egghelp/eggheads community

Need some help with an tcl here. very simple I guess

2004-01-08T11:26:52-04:00

Thx guyes

Statistics: Posted by quiki — Thu Jan 08, 2004 11:26 am

Need some help with an tcl here. very simple I guess

2004-01-08T11:04:56-04:00

replace "PRIVMSG $mychan" with "NOTICE $nick"

Statistics: Posted by arcane — Thu Jan 08, 2004 11:04 am

Need some help with an tcl here. very simple I guess

2004-01-08T11:03:07-04:00

Code:

I have this tcl, how do I make it msg the list private to the one who type !list ?? Hoping someone could help me. set mychan "#Mychan" set mylist { "My text1" "My text2" } bind pub - "!list" read:shells proc read:shells {nick uhost handle chan args} { global mychan mylist if {[string tolower $chan] != [string tolower $mychan] } { return 0 } foreach line $mylist { puthelp "PRIVMSG $mychan :$line" } return 1 }

replace this with:
-----------------------------

Code:

set mychan "#Mychan" set mylist { "My text1" "My text2" } bind pub -|- !list read:shells proc read:shells {nick uhost handle chan text} {  global mychan mylist  if {[string tolower $chan] != [string tolower $mychan] } { return 0 }  foreach line $mylist {   puthelp "PRIVMSG $nick :$line"  } return 1 }

Greetz,

Chrizz

Statistics: Posted by cvanmeer — Thu Jan 08, 2004 11:03 am

Need some help with an tcl here. very simple I guess

2004-01-08T09:42:03-04:00

I have this tcl, how do I make it msg the list private to the one who type !list ?? Hoping someone could help me.

set mychan "#Mychan"
set mylist {
"My text1"
"My text2"
}

bind pub - "!list" read:shells

proc read:shells {nick uhost handle chan args} {
global mychan mylist
if {[string tolower $chan] != [string tolower $mychan] } { return 0 }
foreach line $mylist {
puthelp "PRIVMSG $mychan :$line"
}
return 1
}

Statistics: Posted by quiki — Thu Jan 08, 2004 9:42 am