egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-05-05T21:30:42-04:00 https://forum.eggheads.org/app.php/feed/topic/8384 2005-05-05T21:30:42-04:00 2005-05-05T21:30:42-04:00 https://forum.eggheads.org/viewtopic.php?p=49076#p49076 <![CDATA[version tcl problem]]>

Code: 

on *:snotice:*Client connecting*: {   writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))   ctcp $9 version   .timer $+ $readini(version.ini,$9,ip) 1 30 versionban $9 } alias versionban { gline $readini(version.ini,$1,ip) 1d :Trojan Dedected } on 1:ctcpreply:* {   if ($1 == version) {     if ($regex($readini(version.ini,$nick,ip),\d) == 1) {       .timer $+ $readini(version.ini,$nick,ip) off       remini version.ini $nick     }   } }
convert pls TCL

Statistics: Posted by aCoustiC — Thu May 05, 2005 9:30 pm

]]> 2004-10-04T07:52:31-04:00 2004-10-04T07:52:31-04:00 https://forum.eggheads.org/viewtopic.php?p=41540#p41540 <![CDATA[version tcl problem]]> i use the noversions.tcl for ban some bad client, but there is a problem if the lame disable the ctcp reply.Is possible ban the user when it don't reply to ctcp version?
Sorry for my english and thank for the help.

Statistics: Posted by Guest — Mon Oct 04, 2004 7:52 am

]]>