egghelp/eggheads community

Sir_Fz wrote:My bad, change

Code: Select all

set anick [lindex [split $arg] 1]

to

Code: Select all

set anick [lindex [split $arg] 0]

and

Code: Select all

set anick [lindex [split $arg !] 0]

to

Code: Select all

set anick [lindex [lindex [split $arg !] 1] 0]

still nothing

This should do it, but it does not store the nicks in a file (try and do it yourself :wink: ) bind pub - !add add:alias bind pubm - !* show:alias set alist [list] proc add:alias {nick uhost hand chan arg} { global alist set anick [lindex [split $arg] 1] if {[lsearch -exact $alist "$anick $chan...

I have question, how would a switch script if it suppose to work on the same basis ? that is if i type !name in #X it gives allias1 then if i type !name in #Y it gives allias 2. Why would i like to use switch ? because i want to have a userlisf * !name1,!name2,!Name3 etc.. and for every !name*** i ...

bind pub * !name announce proc announce {nick uhost hand chan arg} { if {$chan == "#YYYYY"} { putserv "PRIVMSG $chan :$arg is allias1" } elseif {$chan == "#XXXX"} { putserv "PRIVMSG $chan :$arg is allias2 " } } notice the braces. Thank you , this works excell...

oh yea, this will work. bind pub * !name announce proc announce {nick uhost hand chan arg} { if {$chan == "#YYYYY"} { putserv "PRIVMSG $chan :$arg is allias1"} } elseif {$chan == "#XXXX"} { putserv "PRIVMSG $chan :$arg is allias2 "} } } Ok, thats it. It will ...

bind pub * !name announce proc announce {nick uhost hand chan arg} { if {$chan == "#YYYYY"} {putserv "PRIVMSG $chan :$arg is allias1"} elseif {$chan == "#XXXX"} {putserv "PRIVMSG $chan :$arg is allias2 "} } That will display what you type after !name. So !nam...

Hello there, Im very new to TCL and this would be considered my 1st ever script. I need help in modifing it and tweaking as it's not working properly becuase it shows error with "elseif" and "else" if used instead of "elseif" *optional* What i would like more, is someon...