count and kick script needed..

[NTHosts]

Ok i know i have asked for something like this before and not got anywhere but i have a bit more info this time and i dont think it will be 2 hard for you guys...

What i need is this, the bot to act on the command !count, on this command it should count down from say.. 15 and then execute this script...

Code: Select all

bind pub n !kick kicksource

proc kicksource {nick host handle chan text} {
#ip:
set server "****"
#port:
set port "****"
#login: (wird erzeugt aus (ab ins mirc) //echo $encode(admin:PASS,m) bei
#pass auch das pass angeben ^^ und dann eintragen sonst tut das nicht
#login (get it in mirc with //echo $encode(admin:PASS,m)
set login "********"

#ab hier nixmehr ändern / don't change anything under this


set sock [socket $server $port]
puts $sock "GET /admin.cgi?mode=kicksrc HTTP/1.1"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $server"
puts $sock "Authorization: Basic $login"
puts $sock ""
flush $sock
}
putlog "sourcekick by #@homer (quakenet) loadet"

I did have this working with 2 bots, 1 did the counting then said !kick at the end, which executed the !kick script on the other bot, but when i moved servers this stopped working and only i can perform !kick.. god knows why :s

Anyway, any help with this would be very helpfull, thanks in advance

P.S. That script is the kicksource.tcl by homer.[/code]