Statistics: Posted by darkfader — Mon Jan 02, 2006 7:37 pm

Statistics: Posted by Alchera — Mon Jan 02, 2006 7:22 pm

Code:

[maskhost [getchanhost [lindex [split $text] 0]]]

*!*@[lindex [split [getchanhost [lindex [split $text] 0]] @] 1]

[maskhost $host]

*!*@[lindex [split $host @] 1]

Statistics: Posted by Sir_Fz — Mon Jan 02, 2006 7:07 pm

Statistics: Posted by darkfader — Mon Jan 02, 2006 6:05 pm

Code:

set db invite.txt# Default place is in the eggdrop folderbind PUB -|- !allow invite:allowbind PUB -|- !remove invite:removebind PUB -|- !invite invite:doinvproc invite:allow {nick host hand chan text} { if {[isop $nick $chan] && [string equal -nocase $chan "#avalon"] && [onchan [lindex [split $text] 0] $chan]} {  # we put the host in the file (regardless if it's already in there.)  set fs [open $::db a]; puts $fs "[maskhost [getchanhost [lindex [split $text] 0]]]"; close $fs  putserv "NOTICE $nick :De host is toegevoegd." }}proc invite:remove {nick host hand chan text} { if {[isop $nick $chan] && [string equal -nocase $chan "#avalon"] && [onchan [lindex [split $text] 0] $chan]} {  # we remove the host by a loop (i couldn't be bothered with anything else)  set fs [open $::db r]; set hosts ""  while {![eof $fs]} {   if {![string equal -nocase [gets $fs] [maskhost [getchanhost [lindex [split $text] 0]]]]} {    lappend hosts [gets $fs]   }  }  close $fs;  set fs [open $::db w]; foreach i $hosts { puts $fs $i }; close $fs  putserv "NOTICE $nick :De host is verwijderd." }}proc invite:doinv {nick host hand chan text} { set fs [open $::db r]; set found 0 while {![eof $fs]} {  if {[string equal -nocase [gets $fs] [maskhost $host]]} {   set found 1  } } close $fs; if {$found} {  putquick "INVITE $nick #avalon.members"  putquick "NOTICE $nick :invite gelukt." } else {  putserv "NOTICE $nick :Avalon's Member kanaal is dicht dus vraag ook niet om een invite. Blijf gerust in #avalon." }}

Statistics: Posted by metroid — Mon Jan 02, 2006 10:37 am

Code:

 tags.however this looks like an invite script, I am sure you will find a lot searching the TCL archives.[/quote]oke i will edit the post it is a invite script but differnt like alle the scripts i have seen on eeg.org and other site this some works with pub commands and saves the ip of the user who you will add

Statistics: Posted by darkfader — Sat Dec 31, 2005 1:42 pm

Code:

 tags.however this looks like an invite script, I am sure you will find a lot searching the TCL archives.

Statistics: Posted by De Kus — Sat Dec 31, 2005 1:37 pm

on *:text:!allow*:#avalon : {  if ($nick isop $chan) {    write invite.txt $address($2,2)     msg $chan 4 $2 is toegevoegd 12aan de lijst!  }}on *:text:!invite:#avalon : {  if ($nick ison #avalon.members) {    notice $nick 4Je bent al op het 12members-kanaal.  }  else {    if ($read(invite.txt,w,$address($nick,2)) != $null) {      invite $nick #avalon.members      msg $chan 4Invite geslaagd! 12Klik op het members-kanaal!    }    else {      notice $nick Avalon's Member kanaal is dicht dus vraag ook niet om een invite. Blijf gerust in #avalon.    }  }}on *:text:!remove*:#avalon : {  if ($nick isop $chan) {    write -ds $+ $address($2,2) invite.txt    msg $chan 4 $2 is verwijderd 12uit de lijst!  }}

Statistics: Posted by darkfader — Sat Dec 31, 2005 1:23 pm