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 }
