help networks ... anti mass GLINE script

[BlacKICcE]

hello,
i coded this script using mIRC ... so if anybody can help convert it to TCL
thanks in advance

Code: Select all

on *:snotice:*Line Added*:{
  .set %gline.nick $14 
  { if (!$eval($+(%,fl),3)) set -u1 $+(%,fl) 1 | elseif ($2 = G:Line)  { gline $gettok(%gline.nick,1,33) 1s Glined due to mass gline. Coded By _CyB0rG  }
  }
}

this script ... check if there is 3 notices in 1 second with (Line Added) he'll gline $14 ($14 = King|Naz!King@M.a.L.e.K: ) so i only need King|Naz ...

please help, And thanks .. oh another thing he'll check if King|Naz (or any nick) is logged in in the so bot he (the bot) wont gline him [/code]