This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

version tcl problem

Old posts that have not been replied to for several years.
Locked
M
MagRam

version tcl problem

Post by MagRam »

hi,
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.
a
aCoustiC
Voice
Posts: 2
Joined: Thu May 05, 2005 9:23 pm

Post by aCoustiC »

mIRc Code

Code: Select all

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
Locked