SCANNER DE HOST / BANLIST EN ECHO / STATS CHAN

Menu channel { 
  Scanner
  .Scanner de host:/scanhost $chan $$?="Host a scanner ? (*!*@host.domaine) :"
  .Banliste de $chan:/banliste $chan
  .Informations $chan:/rapport $chan
}

alias scanhost {
  if ( $2 == $null ) { /perso Utilise /scanhost #Salon *!*@host ! | halt }
  /var %scanhost.chan = $1
  /var %scanhost.host = $2
  /var %i = 1
  /escan Scan-host sur %scanhost.chan
  if ( $ialchan(%scanhost.host,%scanhost.chan,0) == 0 ) || ( $ialchan(%scanhost.host,%scanhost.chan,0) == $null ) {
    /escan Host_cherché4 %scanhost.host
    /escan Host Aucun host correspondant à %scanhost.host
    goto finscanhost
  }
  /escan Host cherché :4 %scanhost.host
  :bouclescanhost
  if ( $ialchan(%scanhost.host,%scanhost.chan,0) >= %i ) {
    /escan Host_n° $+ %i $+  $ialchan(%scanhost.host,%scanhost.chan,%i)
    inc %i 1
    goto bouclescanhost
  }
  :finscanhost
  /escan Fin Scan-host
  unset %i
  unset %scanhost.chan
  unset %scanhost.host
}

alias banliste {
  if ( $1 == $null ) { /perso Utilise /banliste #Salon | /halt }
  set %chan.ban $1
  set %i 1
  /eban Ban-liste sur %chan.ban
  if ( $ibl(%chan.ban,0) == $null ) || ( $ibl(%chan.ban,0) == 0 ) {
    /eban Ban Aucun ban mis pour %chan.ban
    goto finbanliste
  }
  :bouclebanliste
  /eban Ban_n° $+ %i $ibl(%chan.ban,%i) $ibl(%chan.ban,%i).by $ibl(%chan.ban,%i).date
  inc %i 1
  if ( %i <= $ibl(%chan.ban,0) ) { goto bouclebanliste }
  :finbanliste
  /eban Fin Ban-liste
  unset %i
  unset %chan.ban
}

alias rapport {
  if ( $1 == $null ) { /perso Utilise /rapport #Salon | /halt }
  set %rapport.chan $1
  /salon Rapport pour : 1 $+ %rapport.chan
  /salon Nom : 1 $+ %rapport.chan
  if ( $chan(%rapport.chan).topic == $null ) { /salon Topic :1 Aucun }
  else { /salon Topic :1 $chan(%rapport.chan).topic }
  if ( $chan(%rapport.chan).mode == $null ) { /salon Mode :1Aucun }
  else { /salon Mode :1 $chan(%rapport.chan).mode }
  /salon Ops :12 $opnick(%rapport.chan,0) $+ @
  /salon Voices :3 $vnick(%rapport.chan,0) $+ +
  /salon Users :1 $nick(%rapport.chan,0)
  /salon Fin du rapport
  unset %rapport.chan
}

Alias escan { echo 10 -a $timestamp [ Scanner ]1 $1- }
Alias eban { echo 14 -a $timestamp [ Banlist ]1 $1- }
Alias salon { echo 6 -a $timestamp [ Informations ]  $+ $$1- }