3 SCANNEURS DIFFÉRENTS

dialog scaninfo {
  title "Scanneurs"
  size -1 -1 300 40
  combo 1 , 95 5 100 100 , vsbar , drop , size , sort
  list 2 , 10 30 280 200
  list 3 , 10 230 90 120
  edit "Clones Interdits" , 4 , 190 270 100 20 , autohs
  button "KICK" , 5 , 190 295 40 20
  button "KICKBAN" , 6 , 235 295 56 20
  text "" , 7 , 105 230 130 20
  button "scanner" , 8 , 240 230 50 20
  list 9 , 10 30 280 200
  button "scanner" , 10 , 120 220 50 20
  list 11 , 10 30 280 200
  list 12 , 10 230 100 50
  button "scanner" , 13 , 240 230 50 20
}
on *:dialog:scaninfo:init:*:{
  dll $stdl MarkDialog scaninfo
  dll $stdl SetMircVersion $version
  dll $stdl SetControlMDX scaninfo 9,11 ListView showsel rowselect infotip report grid > views.mdx
  did -i $dname 9 1 headerdims 90 185
  did -i $dname 9 1 headertext $+(Pseudos,$chr(9),Info)
  did -i $dname 11 1 headerdims 90 185
  did -i $dname 11 1 headertext $+(Pseudos,$chr(9),Statut)
  did -h $dname 2,3,4,5,6,7,8,9,10,11,12,13
  did -a $dname 1 Scan•Clone
  did -a $dname 1 Scan•Fullname
  did -a $dname 1 Scan•IRCop
}
on *:dialog:scaninfo:sclick:*:{
  if ($did(1) == Scan•Clone) { .dialog -s scaninfo -1 -1 300 350 | .did -h $dname 9,10,11,12,13 | .did -v $dname 2,3,4,5,6,7,8 }
  if ($did(1) == Scan•Fullname) { .dialog -s scaninfo -1 -1 300 250 | did -h $dname 2,3,4,5,6,7,8,9,12,13 | .did -v $dname 9,10 }
  if ($did(1) == Scan•IRCop) { .dialog -s scaninfo -1 -1 300 270 | did -h $dname 2,3,4,5,6,7,8,9,10 | .did -v $dname 11,12,13 }
  if ($did == 5) { .kick $active $did(3).seltext $did(4) }
  if ($did == 6) { .ban $active $did(3).seltext 2 | .kick $active $did(3).seltext $did(4) }
  if ($did == 8) { .bcs }
  if ($did == 10) { .bfull }
  if ($did == 13) { .bcop }
}
alias stdl { return Dlls\mdx.dll }
alias f9 /scaninfo
alias scaninfo $iif($active != $chan,echo -a [Erreur] Mauvaise fenêtre. Choisissez un canal.,dialog -mdr scaninfo scaninfo)
alias bfull { %scan = 2 | did -r scaninfo 9 | enable #scnn | who $active }
alias bcop { %scan = 3 | did -r scaninfo 11,12 | enable #scnn | who $active }
alias beginsc {
  set %n 0
  :loop1
  inc %n 1
  if ($nick(%itchan,%n) isin %istock) { goto end }
  if ($ialchan($address($nick(%itchan,%n),2),%itchan,0) > 1) {
    inc %ittotal 1
    unset %inick | set %l 0
    :loop2
    inc %l 1
    if ($ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick) {
      set %istock %istock $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick
      did -a scaninfo 3 $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick
      set %inick %inick = [ $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick ]
      goto loop2
    }
    did -a scaninfo 2 $str(•,57)
    did -a scaninfo 2 $str($chr(160),2) > $right(%inick,-2) :
    did -a scaninfo 2 $str($chr(160),2) > $address($nick(%itchan,%n),2)
    did -a scaninfo 2 $str(•,57)
  }
  :end
  if (%n < $nick(%itchan,0)) { goto loop1 }
  if (%n == $nick(%itchan,0)) { evall }
}
alias evall {
  %itpr = [ $calc(%ittotal * 100) ] / %itnick
  did -a scaninfo 7 Total: %ittotal host, soit ~ ( $+ $int(%itpr) $+ % $+ )
  if (%ittotal == 0) { did -r scaninfo 2 | did -b scaninfo 5,6 | did -a scaninfo 2 $str($chr(160),25) •aucun clone detecté. }
  if (%ittotal != 0) { did -e scaninfo 5,6 }
  else { did -e scaninfo 5,6 }
  unset %it*
  unset %istock
}
alias bcs {
  %scan = 1
  did -r scaninfo 2,3,7
  .ial on
  .enable #scnn
  who $active
  set %itchan $active
  set %itnick $nick($active,0)
  set %ittotal 0
  did -a scaninfo 2 $str($chr(160),30) •detection..
  unset %inick
}
#scnn off
raw 352:*:{
  if (%scan == 1) { halt }
  elseif (%scan == 2) { haltdef | .did -a scaninfo 9 $6 $chr(9) $strip($9-) }
  elseif (%scan == 3) { haltdef | .did -a scaninfo 11 $6 $chr(9) $iif(* isin $7,$+($str($chr(160),5),IRCop),simple tchatteur) | $iif(* isin $7,did -a scaninfo 12 $6,halt) }
}
raw 315:*:{
  if (%scan == 1) { .disable #scnn | beginsc | halt }
  else { .disable #scnn | haltdef }
}
#scnn end