SITES.DAT AUTO CONFIGUE POUR VOS EGGDROP OU IRCBOT ( PETIT DÉFIT DOS )

--------------------------------------------------------------------------------------
********************************** by abdoulax ***************************************
--------------------------------------------------------------------------------------

alias testdat { 
  var %i = 1
  while ( %i <= $lines(C:\FlashFXP\sites.dat) ) {
    if ( $read -l $+ %i C:\FlashFXP\sites.dat == $chr(91) $+ $chr(127) $+ BOTGRP $+ $chr(30) $+ $chr(32) $+ $nickdat $+ $chr(93) ) {
      set %lignedat $calc( %i + 2 )
      write -l $+ %lignedat C:\FlashFXP\sites.dat ip= $+ $ipdat
      echo 4 -a config sites.dat :11 $read -l $+ %i C:\FlashFXP\sites.dat 4:11 $read -l $+ %lignedat C:\FlashFXP\sites.dat
    }
    inc %i
  }
  if ( %lignedat == $null ) {
    write C:\FlashFXP\sites.dat [abd-bot %nickdat $+ ]
    write C:\FlashFXP\sites.dat IP= $+ %ipdat
    write C:\FlashFXP\sites.dat Port=21
    write C:\FlashFXP\sites.dat Options=3003333000033001103
    write C:\FlashFXP\sites.dat User=USER
    write C:\FlashFXP\sites.dat Pass=5402A4BN89OPH
  }
}
alias nickdat { return %nickdat }
alias ipdat { return %ipdat }
on *:join:#CANAL:{
  if ( $mid($nick,1,2) == BO ) { 
    set %nickdat $nick 
    dns %nickdat
  }
}
on 1:DNS: {
  echo 11 -a ------------------------------------------------------------- 
  echo -a    4DNS look-up results:11 $nick 
  echo -a    4IP address:11 $iaddress
  if ( $nick == %nickdat ) { 
    set %ipdat $iaddress
    testdat 
  }
  if ( $naddress != $null ) {
    set %hostaddress $naddess | echo -a   4Local host address:11 $naddress 
  }
  else {
  echo -a 4Local host address: 11Je ne peux pas le résolver le local host address demander !
  }
  if ( $raddress != $null ) {
  echo -a    4Resolved address:11 $raddress
  }
  else {
  echo -a    4Resolved address: 11Je ne peux pas resolve l'IP address tu vois ben ! $null) aline %whois  · 11Idle:14 $duration($3)
  }
  echo 11 -a -------------------------------------------------------------
}