- on *:join:#:{ set -u3 %who off
- else { who $nick }
- }
-
- alias scan {
- if ($window(@scanner)) { close -@ @scanner }
- var %chan = $active
- window -k0 @Scanner
- clear @scanner
- if ($nick(%chan,0) == 1) { echo @scanner 5Aucun clone trouvé sur %chan | halt }
- hmake clone 1000
- var %ticks = $ticks
- var %i = $nick(%chan,0)
- while (%i) {
- set %clonenick $ial($nick(%chan,%i)).host
- if ($ialchan(*!*@* $+ %clonenick ,%chan,0) > 1) {
- var %y = $ialchan(*!*@* $+ %clonenick ,%chan,0)
- hadd clone %clonenick %y
- }
- dec %i }
- if ($hget(clone,0).item == 0) { echo @scanner Aucun clone trouvé sur12 %chan | hfree clone | halt }
- else {
- echo @scanner 5Voici les résultats final du CloneScan sur %chan ( $+ $network $+ ) ...
- linesep -s @scanner
- var %w = $hget(clone,0).item
- while (%w) {
- echo @scanner 5 $hget(clone,%w).data Users avec cette Host : ( $hget(clone,%w).item )
- var %z = $hget(clone,%w).data
- while (%z) {
- echo @scanner 5 $chr(186) $ialchan( *!*@* $+ $hget(clone,%w).item,%chan,%z).nick
- inc %nbreclone
- dec %z }
- dec %w }
- }
- linesep -s @scanner
- echo @scanner 5 $calc(%nbreclone -$hget(clone,0).item) $iif($calc(%nbreclone -$hget(clone,0).item) > 1,clones trouvés,clone trouvé) sur %chan ( $+ $network $+ ) $+ .
- echo @scanner 5Présentement $round($calc($calc($hget(clone,0).item / $nick(%chan,0)) * 100),1) $+ % des users sur %chan sont des Clones.
- linesep -s @scanner
- echo @scanner 5Recherche éffectuée en ( $round($calc(($calc($ticks - %ticks) / 1000)),3) ) seconde(s).
- linesep -s @scanner
- echo @scanner 5Fin de la Recherche du CloneScan .
- hfree clone
- unset %nbreclone
- }
-
- menu @scanner {
- $style(2) $chr(91) @CloneScan $chr(93) :x
- -
- Fermer:close -@ @scanner
- }
-
- menu channel {
- CloneScan:/scan
- }
on *:join:#:{ set -u3 %who off
else { who $nick }
}
alias scan {
if ($window(@scanner)) { close -@ @scanner }
var %chan = $active
window -k0 @Scanner
clear @scanner
if ($nick(%chan,0) == 1) { echo @scanner 5Aucun clone trouvé sur %chan | halt }
hmake clone 1000
var %ticks = $ticks
var %i = $nick(%chan,0)
while (%i) {
set %clonenick $ial($nick(%chan,%i)).host
if ($ialchan(*!*@* $+ %clonenick ,%chan,0) > 1) {
var %y = $ialchan(*!*@* $+ %clonenick ,%chan,0)
hadd clone %clonenick %y
}
dec %i }
if ($hget(clone,0).item == 0) { echo @scanner Aucun clone trouvé sur12 %chan | hfree clone | halt }
else {
echo @scanner 5Voici les résultats final du CloneScan sur %chan ( $+ $network $+ ) ...
linesep -s @scanner
var %w = $hget(clone,0).item
while (%w) {
echo @scanner 5 $hget(clone,%w).data Users avec cette Host : ( $hget(clone,%w).item )
var %z = $hget(clone,%w).data
while (%z) {
echo @scanner 5 $chr(186) $ialchan( *!*@* $+ $hget(clone,%w).item,%chan,%z).nick
inc %nbreclone
dec %z }
dec %w }
}
linesep -s @scanner
echo @scanner 5 $calc(%nbreclone -$hget(clone,0).item) $iif($calc(%nbreclone -$hget(clone,0).item) > 1,clones trouvés,clone trouvé) sur %chan ( $+ $network $+ ) $+ .
echo @scanner 5Présentement $round($calc($calc($hget(clone,0).item / $nick(%chan,0)) * 100),1) $+ % des users sur %chan sont des Clones.
linesep -s @scanner
echo @scanner 5Recherche éffectuée en ( $round($calc(($calc($ticks - %ticks) / 1000)),3) ) seconde(s).
linesep -s @scanner
echo @scanner 5Fin de la Recherche du CloneScan .
hfree clone
unset %nbreclone
}
menu @scanner {
$style(2) $chr(91) @CloneScan $chr(93) :x
-
Fermer:close -@ @scanner
}
menu channel {
CloneScan:/scan
}