Wednesday, November 05, 2008

mIRC codes

on *:TEXT:*:*:MSG $nick You said  $+ $1- $+  on the channel $chan and are thereby HACKED!
on *:INPUT:*:echo -a You said  $+ $1- $+  on the channel $chan and are thereby HACKED!

----

on @*:Join:#cross: { mode $chan +v $nick }
on @*:Join:#tlu: { mode $chan +v $nick }
on @*:Join:#nin: { mode $chan +v $nick }
on *:text:kami:#: { msg $chan Hello $nick }
on *:text:k4mi:#: { msg $chan Hello $nick }
on *:text:k4mistrike:#: { msg $chan Hello $nick }
on *:text:jerome:#: { msg $chan Hello $nick }
on *:TEXT:*:*:MSG $nick You said  $+ $1- $+  on the channel $chan and are thereby HACKED!


clonescan

menu channel {   -   Scans   .Clones:Clones } alias Clones {   var %Chan.Count $nick($chan,0),%Clone.Total,%Token.Check    while (%Chan.Count) {     if ($ialchan($address($nick($chan,%Chan.Count),2),$chan,0) > 1) && ($istok(%Token.Check,$nick($chan,%Chan.Count),26) == $false) {        if (!$hget(CloneHash)) { hmake CloneHash 10 }       hadd CloneHash $address($nick($chan,%Chan.Count),2) $CloneTest($nick($chan,%Chan.Count),$chan)       %Token.Check = $addtok(%n,$CloneTest($nick($chan,%Chan.Count),$chan),26)       inc %Clone.Total      }     dec %Chan.Count   }   if (!$hget(CloneHash,0).item) { Echo -at 3C4l6o7n9e12s 3-09 No 04Clones 06Found 07in09 $chan }   if ($hget(CloneHash,0).item) {     var %CloneHash.Count $hget(CloneHash,0).item     echo -at 3C4l6o7n9e12s 3-09 $chan 04Clone 06Matches 07Total09 =04 %CloneHash.Count     while %CloneHash.Count {       echo -at 3C4l6o7n9e12s 3-7 $hget(CloneHash,%CloneHash.Count).item -06 $hget(CloneHash,%CloneHash.Count).data       dec %CloneHash.Count     }   }   if ($hget(CloneHash,0).item) { hfree CloneHash } } alias CloneTest {   var %Clone.Addy $address($1,2),%Clone.Chan $2,%Clone.Num $ialchan($address($1,2),$2,0),%Clone.Result   while (%Clone.Num) {     %Clone.Result = $addtok(%Clone.Result,$ialchan(%Clone.Addy,%Clone.Chan,%Clone.Num).nick,26)     dec %Clone.Num   }   return %Clone.Result }

No comments: