if you just want the ip presuming $arg are: chefboyrd *** Notice -- Client exiting at 3dspawn.AwesomeChat.Net: ]killa_bnuts[!~B@24.226.26.107 (Killed (DaBigun (Automated file list scripts/bots are prohibited.))) use: set ip [lindex [split [lindex [split $arg @] 1]] 0] result in: 24.226.26.107 if you...
you could just check if it's a valid user, off course that you have to add all ppl to user list. using GodOfSuicide sample code: bind msg - "invite" msg:invite proc msg:invite { nick uhost hand arg } { if {[validuser $nick]} { set chan [lindex [split $arg] 0] if {[string tolower $chan] == ...
Hi ppl, search here in forum and over the net for the solution of my problem without sucess :/ here´s an example of the code i have: switch -- $s { "a" { switch -- $s1 { "a1" {....} "a2" {....} } } "b" { switch -- $s1 { "b1" {....} "b2" {.....
i think you need to split text firsts but i'm not shure just try it bind pub - !kaffe kaffe proc kaffe {nick host hand chan text} { set stext [split $text] if {$stext == "mjölk"} { putserv "PRIVMSG $chan :\001ACTION hämtar en kopp kaffe med mjölk åt $nick" } }
bind join - * file_check proc file_check {n u h c} { if {$n != "|The_Crow|"} {return 0} ; set ficheiro [open "scripts/duvidas.txt"] ; set linhas 0 while {![eof $ficheiro]} {gets $ficheiro line ; if {$line != ""} {incr linhas 1}} ; close $ficheiro if {$linhas != 0} {put...
from userinfo.tcl # TYPE COMMAND USAGE # ====== ============== ======================================== # msg <info> To change your <info> via /MSG. # dcc .<info> To change your <info> via DCC. # dcc .ch<info> To change someone else's <info> via DCC.
lol i need some sleep badly i re-read one of the tutorials and the person who made it highligths that, stranges things could appent if not use them, he said. gess he was wrigth so do you :D i got another small and so easy (its almost 6AM and i havent found it), i can't remember the code for this sit...
hi, i'm having trouble understanding the matching for more that 3 items with this code: } elseif {($sn == "language" && $ss != "en")||($sn == "language" && $ss != "pt")} { this doesn't work and i can't see what's wrong with it if i change to: }...
awyeah i dont want the greet script, im just trying to lear how to deal with files. i got stuck in the replace tryed lreplace and string replace but cant figure how they work even after reading the syntax :/ dam english. maybe you can help me. make simple because im still learning :D what im trying ...