egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-08-27T13:16:03-04:00 https://forum.eggheads.org/app.php/feed/topic/2431 2002-08-27T13:16:03-04:00 2002-08-27T13:16:03-04:00 https://forum.eggheads.org/viewtopic.php?p=10077#p10077 <![CDATA[Problem with tcl]]>
glad to be of assistance ;)

Statistics: Posted by Papillon — Tue Aug 27, 2002 1:16 pm

]]> 2002-08-27T11:55:38-04:00 2002-08-27T11:55:38-04:00 https://forum.eggheads.org/viewtopic.php?p=10076#p10076 <![CDATA[Problem with tcl]]> Statistics: Posted by Guest — Tue Aug 27, 2002 11:55 am

]]> 2002-08-27T11:13:16-04:00 2002-08-27T11:13:16-04:00 https://forum.eggheads.org/viewtopic.php?p=10073#p10073 <![CDATA[Problem with tcl]]>

Code: 

proc pub:request {nick uhost handle chan text} {
add this line:

Code: 

global botnicks waittime receiver

Statistics: Posted by Papillon — Tue Aug 27, 2002 11:13 am

]]> 2002-08-27T09:24:29-04:00 2002-08-27T09:24:29-04:00 https://forum.eggheads.org/viewtopic.php?p=10071#p10071 <![CDATA[Problem with tcl]]>
ive got the tcl here so u can view, if anyone can help id be gratefull

thx peepls
:P

set botnicks "botnick1 botnick2 botnick3"
set waittime "604800"
again. (default "604800" = 1 week)
set receiver "$owner"
bind pub -|- !request pub:request

proc pub:request {nick uhost handle chan text} {
set ipmask [lindex [split [maskhost $nick![getchanhost $nick $chan]] "@"] 1]
set userm [lindex [split [getchanhost $nick $chan] "@"] 0]
set userhost *!*$userm@$ipmask
set requestbot [lindex [split $text " "] 0]
set channel [lindex [split $text " "] 1]
set homepage [lindex [split $text " "] 2]
if {[matchattr $handle +R]} {
putserv "NOTICE $nick :Request not send."
putserv "NOTICE $nick :You already requested a bot in the last 7 days!"
putserv "NOTICE $nick :You have to wait more than 7 days after a successful Request."
} else {
if {$requestbot == ""} {
putserv "NOTICE $nick :Wrong !request-format."
putserv "NOTICE $nick :To request use: 4!request <bot-nick> #channel http://www.home.page"
putserv "NOTICE $nick :You also need a working homepage and 2 or more Members opped in the requested channel."
} else {
if {$channel == ""} {
putserv "NOTICE $nick :Wrong !request-format."
putserv "NOTICE $nick :To request use: 4!request <bot-nick> #channel http://www.home.page"
putserv "NOTICE $nick :You also need a working homepage and 2 or more Members opped in the requested channel."
} else {
if {[string first "#" $channel] == -1} {
putserv "NOTICE $nick :Wrong !request-format."
putserv "NOTICE $nick :To request use: 4!request <bot-nick> #channel http://www.home.page"
putserv "NOTICE $nick :You also need a working homepage and 2 or more Members opped in the requested channel."
} else {
if {[string first "http://" $homepage] == -1} {
putserv "NOTICE $nick :Wrong !request-format."
putserv "NOTICE $nick :To request use: 4!request <bot-nick> #channel http://www.home.page"
putserv "NOTICE $nick :You also need a working homepage and 2 or more Members opped in the requested channel."
} else {
if {[string first $requestbot $botnicks] != -1} {
if {$channel != ""} {
if {$homepage != ""} {
sendnote BotRequest $receiver "$nick want's $requestbot in $channel. His HP is $homepage."
# sendnote BotRequest user1 "$nick want's $requestbot in $channel. His HP is $homepage."
# sendnote BotRequest user2 "$nick want's $requestbot in $channel. His HP is $homepage."
adduser $nick $userhost
chattr $nick +R|
utimer $waittime "chattr $nick -R|"
putserv "NOTICE $nick :Request send."
} else {
putserv "NOTICE $nick :Wrong !request-format."
putserv "NOTICE $nick :To request use: 4!request <bot-nick> #channel http://www.home.page"
putserv "NOTICE $nick :You also need a working homepage and 2 or more Members opped in the requested channel."
}
}
} else {
putserv "NOTICE $nick :You typed a wrong bot-nick. Known bot-nick's are:"
putserv "NOTICE $nick :$botnicks"
}
}
}
}
}
}
}

Statistics: Posted by Guest — Tue Aug 27, 2002 9:24 am

]]>