| Autore: IRon | Data: 2005-07-14 |
| Modificato:
Documento non modificato
|
Letture: 1978 |
|
Code che rileva al join di un user se vi sono all'interno del chan cloni dello stesso!
Permette anche di fare 1 ricerca dei cloni all'interno del chan elencandola in una window!
Si serve dell'identificatore $ialchan(*) e delle sue proprietà
Le informazioni sono loggate attraverso una hash table
L'individuazione dei cloni e l'elencazione sono eseguite attraverso semplici cicli while
Naturalmente è possibile cambiare i colori e personalizzare il code come meglio si desidera
on *:join:#:{ clonescan $nick }
alias clonescan {
hadd -m clone chan $chan
hadd clone nick $1
var %bv = 1
if ($ialchan($address($hget(clone,nick),2),$hget(clone,chan),0) <= 1) { return }
else {
while (%bv <= $ialchan($address($hget(clone,nick),2),$hget(clone,chan),0)) {
hadd clone cloni $hget(clone,cloni) $ialchan($address($hget(clone,nick),2),$hget(clone,chan),%bv).nick
inc %bv
}
echo $hget(clone,chan) 12[ $+ $time $+ 12] 12[.. Clone 14Scanne r ..12] $hget(clone,cloni) 11[ $+ $address($hget(clone,nick),2) $+ ]
}
hfree clone
}
alias chanscan {
var %i = 1
while (%i <= $nick($1,0) ) {
if (%i == 1) { window @CloneScanner 100 100 500 200 | echo @CloneScanner 12[ $+ $time $+ 12] 12[.. Clone 14Scanne r ..12] Cloni su [ $+ $1 $+ @ $+ $network $+ ] }
if ($ialchan($address($nick($1,%i),2),$1,0) > 1) {
var %l = 1
while (%l <= $ialchan($address($nick($1,%i),2),$1,0)) {
hadd -m clonet cla [ $+ [ %i ] ] $hget(clonet, cla [ $+ [ %i ] ]) $ialchan($address($nick($1,%i),2),$1,%l).nick
inc %l
}
}
if ($hget(clonet,cla [ $+ [ %i ] ])) && ($hget(clonet, cla [ $+ [ %i ] ]) !isin $hget(clonet,clb)) hadd clonet clb $instok($hget(clonet,clb),$hget(clonet,cla [ $+ [ %i ] ]) 11[ $+ $address($nick($1,%i),2) $+ ],$calc($numtok($hget(clonet,clb),43) + 1),43)
inc %i
}
var %f = 1
if ($numtok($hget(clonet,clb),43) == 0) echo 11 @CloneScanner 15[ X ] Nessun clone rilevato su 0[ $+ $1 $+ @ $+ $network $+ ]
while (%f <= $numtok($hget(clonet,clb),43)) {
echo 12 @CloneScanner 15[ $+ %f $+ ] $gettok($hget(clonet,clb),%f,43)
inc %f
}
echo @CloneScanner 12[.. E 14n d ..12]
if ($hget(clonet)) hfree clonet
}menu channel {
-
CloneScanner : chanscan $chan
}
|
