egghelp/eggheads community

one command all x sek.

2004-03-29T15:16:40-04:00

set colist "#sever"
bind pub - !help proc_help
proc proc_help {nick host hand chan text} {
global pro
if {[string match *[string tolower $chan]* $::colist] && [botisop $chan] && ![string match *[string tolower $chan]* $::botnick]} {
if {![info exists ::pro]} {
putserv "PRIVMSG $chan :» \037\002h\002elp:\037 !rank !server !bot more coming soon"
} else { return 0 }
set ::pro "on"
timer 5 "
"
}
}

that works, a friend has help me!

thx

Statistics: Posted by sever — Mon Mar 29, 2004 3:16 pm

one command all x sek.

2004-03-29T14:13:07-04:00

set colist "#sever"
bind pub - !help proc_help
proc proc_help {nick host hand chan text} {
global pro
if {[string equal -nocase $chan $::colist] && [botisop $chan] && ![string equal -nocase $nick $::botnick]} {
if {$pro == "on"} { return 0 }
putserv "PRIVMSG $chan :» \037\002h\002elp:\037 !rank ¬ !server ¬ !bot ¬ more coming soon"
set pro on
timer 10 "unset pro"
}
}

doesnt work

Tcl error [proc_help]: can't read "pro": no such variable

i have .restart the eggdrop, but it doesnt work.

Statistics: Posted by sever — Mon Mar 29, 2004 2:13 pm

one command all x sek.

2004-03-29T12:57:26-04:00

if {[string match *[string tolower $chan]* $::colist] && [botisop $chan] && $nick!=$::botnick} {

If you intend to use just on channel in the colist variable then use the folowing code:

Code:

if {[string equal -nocase $chan $::colist] && [botisop $chan] && ![string equal -nocase $nick $::botnick]} {

else replace the "equal" with "match" and put $chan in "*$chan*" Also.. will be a lot smater if you move the nick check thing outside and before this if like. There is no reason to use that chek at the end. Either place it first or ad another if before this one that will do an return or what you want. Same thing goes with the if the bot is op check.

Statistics: Posted by caesar — Mon Mar 29, 2004 12:57 pm

one command all x sek.

2004-03-29T06:06:38-04:00

Yeah, forgot one '='

Statistics: Posted by Xpert — Mon Mar 29, 2004 6:06 am

one command all x sek.

2004-03-29T05:53:42-04:00

hum....

Code:

if {$pro == "on"} { return 0 }

Statistics: Posted by CrazyCat — Mon Mar 29, 2004 5:53 am

one command all x sek.

2004-03-29T03:10:25-04:00

Change the:

Code:

if {pro = "on"} { return 0 }

to:

Code:

if {$pro = "on"} { return 0 }

Statistics: Posted by Xpert — Mon Mar 29, 2004 3:10 am

one command all x sek.

2004-03-28T18:01:02-04:00

set colist "#sever"
bind pub - !help proc_help
proc proc_help {nick host hand chan text} {
global pro
if {[string match *[string tolower $chan]* $::colist] && [botisop $chan] && $nick!=$::botnick} {
if {pro = "on"} { return 0 }
putserv "PRIVMSG $chan :» \037\002h\002elp:\037 !rank ¬ !server ¬ !bot ¬ more coming soon"
set pro on
timer 10 "unset pro"
}
}

that doesnt work.

ich have read http://peterre.com/characters.html but i dont undestandt it!

please help

thanks

Statistics: Posted by sever — Sun Mar 28, 2004 6:01 pm