salut a placer dans un remote ces pas de moi un amis la fais il de sa un ou deux ans ces juste pour savoir si le code et bien fais normalemment il marche
Source / Exemple :
######################################### SCAN-IRCOP #################################
alias ircop.scan { if $dialog(ircop.s) == $null) { unset %cbd | dialog -m ircop.s ircop.s } }
dialog ircop.s {
icon image\icone.ico
title ""
size -1 -1 190 222
text "Liste des Ircops sur un Salon :", 6, 24 16 190 20
text "Salon à Scanner :", 7, 24 130 130 100
combo 10, 22 150 100 100, drop
box "", 141, 10 5 170 180
list 8, 22 40 145 100, autohs
button "Scanner", 16, 8 190 80 25
button "Fermer", 2, 100 190 80 25, ok
}
on *:dialog:ircop.s:edit:*:{ if ($did == 10) { set %cbd $did(ircop.s,10).text } }
on *:dialog:ircop.s:dclick:*:{ if ($did == 8) { query $did(8,$did(8).sel) } }
on *:dialog:ircop.s:init:*:{ dialog -t ircop.s $network ZaRCkOSs`IRCop`Scan | chan.l | did -c ircop.s 10 1 }
on *:dialog:ircop.s:sclick:16:{ if ($did == 1) unset %cbd | if ($did == 16) ircops.chan | if ($did == 18) if ($did(9,$did(9).sel) != $null) query $did(9,$did(9).sel) | if (%son23 == on) && (%soundxs == on) { .timerscan 1 1 splay %wav23 | haltdef } }
-alias ircop.s1 { did -r ircop.s 9 | .disable #ircopscan.chan | .enable #ircop-scan.net | .who 0 o }
#ircopscan.chan off
raw 315:*: .disable #ircopscan.chan | halt
raw 352:*: if (* isin $7) did -a ircop.s 8 $6 | halt
#ircopscan.chan end
#ircop-scan.net off
raw 315:*: .disable #ircop-scan.net | halt
raw 352:*: if ($dialog(ircop.s) != $null) { did -a ircop.s 9 $6 | did -o ircop.s 142 1 $ircop.count | halt }
#ircop-scan.net end
alias ircops.chan { did -r ircop.s 8 | set -u20 %Irchan on | .who $did(ircop.s,10).text | .enable #ircopscan.chan }
alias chan.l { var %channum = 0 | :findchan | inc %channum 1 | var %chan = $chan(%channum) | if (%chan == $null) { goto end } | did -i ircop.s 10 1 %chan | goto findchan | :end }
######################################### SCAN-CLONE ################################################################
#clone off
alias clonescan { set -u20 %Irchan on | unset %i* | .ial on | .enable #cln | .who # | set %ichan # | set %itnick $nick(#,0) | set %itotal 0 | hmake c 10 }
#clone end
#clone off
alias scaning { set %n 0 | :p | inc %n
if ($nick(%ichan,%n) isin %istock) { goto e }
if ($ialchan($address($nick(%ichan,%n),2),%ichan,0) > 1) { inc %itotal | unset %inick | set %l 0 | :l | inc %l
if ($ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick) { set %istock %istock $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick | set %inick %inick 4---> $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick | goto l } | hadd c %itotal ( $+ $right($address($nick(%ichan,%n),2),-4) $+ ) $right(%inick,-2) }
:e
if (%n < $nick(%ichan,0)) { goto p }
if (%n = $nick(%ichan,0)) {
if (%itotal != 0) { echo -a [ [ %time ] ] %logo 1[ 12Scan1 ] Détection sur2 %ichan | echo -a [ [ %time ] ] %logo 1[ 12Scan1 ] Résultat:2 $numtok(%istock,32) clones pour1 %itotal host(s) | var %e = 1 | while ($hget(c,%e)) { echo -a [ [ %time ] ] %logo 1[ 12Scan1 ] %e $+ . $hget(c,%e) | inc %e } }
if (%itotal == 0) { echo -a [ [ %time ] ] %logo 1[ 12Scan1 ] Pas de clones détecté sur2 %ichan $+ . }
unset %i* | hfree c }
if (%son23 == on) && (%soundZaRCkOSs == on) { .timerscan 1 1 splay %wav23 | haltdef }
}
#clone end
#clonef on
alias clonescan { set -u20 %Irchan on | unset %i* | .ial on | window -k @Scan`Clone | .enable #cln | .who # | set %ichan # | set %itnick $nick(#,0) | set %itotal 0 | hmake c 10 }
#clonef end
#clonef on
alias scaning { set %n 0 | :p | inc %n
if ($nick(%ichan,%n) isin %istock) { goto e }
if ($ialchan($address($nick(%ichan,%n),2),%ichan,0) > 1) { inc %itotal | unset %inick | set %l 0 | :l | inc %l
if ($ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick) { set %istock %istock $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick | set %inick %inick 4---> $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick | goto l } | hadd c %itotal ( $+ $right($address($nick(%ichan,%n),2),-4) $+ ) $right(%inick,-2) }
:e
if (%n < $nick(%ichan,0)) { goto p }
if (%n = $nick(%ichan,0)) {
if (%itotal != 0) { echo @Scan`Clone [ [ %time ] ] %logo 1[ 12Scan1 ] Détection sur2 %ichan | echo @Scan`Clone [ [ %time ] ] %logo 1[ 12Scan1 ] Résultat:2 $numtok(%istock,32) clones pour1 %itotal host(s) | var %e = 1 | while ($hget(c,%e)) { echo @Scan`Clone [ [ %time ] ] %logo 1[ 12Scan1 ] %e $+ . $hget(c,%e) | inc %e } }
if (%itotal == 0) { echo @Scan`Clone [ [ %time ] ] %logo 1[ 12Scan1 ] Pas de clones détecté sur2 %ichan $+ . }
unset %i* | hfree c }
if (%son23 == on) && (%soundZaRCkOSs == on) { .timerscan 1 1 splay %wav23 | haltdef }
}
#clonef end
#cln off
raw 352:*:halt
raw 315:*:.disable #cln | scaning | halt
#cln end
#Scan.Channel off
raw 352:*:{
if ( $parm3 $+ @ $+ $parm4 isin %Chan.Address) { inc %Chan.Clones } | else { %Chan.Address = %Chan.Address $parm3 $+ @ $+ $parm4 }
if (G isin $parm7) {
inc %Chan.Gone
if (%Chan.pseudo == $null) { %Chan.pseudo = $parm6 }
alse { %Chan.pseudo = %Chan.pseudo 1+ $parm6 }
}
inc %Chan.Total | halt
}
raw 315:*:{
echo 2 $parm2 6••• Stat. de $parm2 6•••
echo 2 $parm2 6•OQP6• %Chan.Gone 6• %Chan.pseudo 6•
echo 2 $parm2 6•Clones 6• %Chan.Clones
echo 2 $parm2 6••• Fin de Stat. total: %Chan.Total 6•••
.disable #Scan.Channel | unset %Chan.* | halt
}
#Scan.Channel end
#clonejoin off
on !*:join:#:{
if ( #!*! iswm $chan ) { halt }
if ($ialchan($wildsite,$chan,0) > 1) {
echo $chan [ [ %time ] ] %logo 1[ 12Scan1 ] Attention 2Clones1 détecté sur2 $chan 1!
var %i = 2
while (%i <= $ialchan($wildsite,$chan,0)) {
echo $chan [ [ %time ] ] %logo 1[ 12Clone1 ]2 $ialchan($wildsite,$chan,1).nick 1et2 $ialchan($wildsite,$chan,%i).nick 1sont des clones !!!
inc %i
}
}
}
#clonejoin end
################################################## SCAN AWAY ###########################################
alias scanaway { .dialog -m scanaway scanaway }
dialog scanaway {
icon image\icone.ico
title "Scan`Away"
size -1 -1 183 215
combo 1, 11 11 160 100, drop, edit, size
list 2, 10 40 162 102, size
button "Scanner", 3, 8 180 75 25
edit "", 5, 10 146 162 23, disabled, multi, return, autohs
button "Fermer", 4, 100 180 75 25, ok
}
on *:dialog:scanaway:dclick:*:{ if ($did == 2) { query $did(2,$did(2).sel) } }
on *:dialog:scanaway:*:*: {
if ($devent == init) { .awaychans | .did -f scanaway 3 | .did -c scanaway 1 1 | .set %scan.chan $did(1).text }
if ($devent == sclick) {
if ($did == 10) { .warns }
if ($did == 1) { .set %scan.chan $did(1).text }
if ($did == 3) { .did -r scanaway 2,5 | .enable #scanaway | set -u20 %Irchan on | .who %scan.chan * | if (%son23 == on) && (%soundxs == on) { .timerscan 1 1 splay %wav23 } }
}
}
alias awaychans {
set %num.chans 0
:start
inc %num.chans
if ($comchan($me,%num.chans)) { .did -a scanaway 1 $comchan($me,%num.chans) | goto start }
unset %num.chans
if ($comchan($me,0) == 0) { .did -r scanaway 1,2,5 | .did -a scanaway 5 Enter In A Chan... }
}
#scanaway off
raw 352:* { did -a scanaway 5 Scanning... | if (G isin $7) { did -a scanaway 2 $nick(%scan.chan,$6).pnick | inc %scan.aways } }
raw 315:* { if (%scan.aways == 0) { .did -r scanaway 5 | .did -a scanaway 5 Pas d'Away ici ! | set %awaysfound None } | .disable #scanaway | unset %scan.aways | if (%awaysfound == None) { .did -r scanaway 5 | .did -a scanaway 5 Pas d'Away ici ! } | if (%awaysfound != None) { .did -r scanaway 5 | .did -a scanaway 5 Fin du Scan... } | unset %awaysfound | halt }
#scanaway end
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.