UN BOT XDCC EN MIRC

on *:LOAD:{ echo Script Loaded! 
write -c pack.txt
dialog -md xdcc_ xdcc_
}
;=================================================================================
menu channel,menubar {
  XDCC bot
  .gestion du xdcc:dialog -md xdcc_ xdcc_
}
;=================================================================================
On *:CONNECT: { write -c list.txt } 

On *:TEXT:!list:*:{
notice $nick $me (XDCC) 2 slots d'envoie, liste d'attente de max 10 personnes, $lines(pack.txt) fichiers partagés
}

On *:TEXT:*xdcc*:?:{ 
  if ( $2 == list ) { listpack $nick } 
  elseif ( $2 == send ) { 
    if ( $3 <= $lines(pack.txt) ) addtoqueu $nick $3 
    else notice $nick pack non existant 
  } 
  elseif ( $2 == remove ) { remfrqueu $nick } 
} 

On *:SENDFAIL:*: { 
  var %lign = 1, %nblines = $lines(list.txt) 
  while ( %lign <= %nblines && $gettok($read(list.txt,%lign),1,32) != $nick ) { 
    inc %lign 
  } 
  if ( %lign <= %nblines ) { 
    notice $nick transfert de $deltok($read(pack.txt,$gettok($read(list.txt,%lign),2,32),1,124) interrompu ... dsl :( 
    write -dl %lign list.txt 
    dcc send $gettok($read(list.txt,2),1,124)) $gettok($read(pack.txt,$gettok($read(list.txt,2),2,32))),1,124) 
  } 
} 

on *:FILESENT:*: { 
  var %lign = 1, %nblines = $lines(list.txt) 
  while ( %lign <= %nblines && $gettok($read(list.txt,%lign),1,32) != $nick ) { 
    inc %lign 
  } 
  if ( %lign <= %nblines ) { 
    notice $nick transfert de $deltok($read(pack.txt,$gettok($read(list.txt,%lign),2,32)),1,124) accompli 
    write -dl %lign list.txt 
    dcc send $gettok($read(list.txt,2),1,124)) $gettok($read(pack.txt,$gettok($read(list.txt,2),2,32))),1,124) 
  } 
} 

alias listpack { 
  var %lign = 1, %nblines = $lines(pack.txt) 
  notice $1 anime-team's XDCC, 2 slot d'envoie , liste d'attentes $calc( 12 - $lines(pack.txt) )/12
  notice $1 pour avoir un pack, tapez /msg $me xdcc send numero_du_pack 
  while ( %lign <= %nblines ) { 
    notice $1 pack %lign : $deltok($read(pack.txt,%lign),1,124) 
    inc %lign 
  } 
  notice $1 %nblines fichiers partagés 
} 

alias addtoqueu { 
  if ( $lines(list.txt) < 12 ) { 
    if ( $read(list.txt, w, $1) != $1 ) { 
      write list.txt $1 $2 
      notice $1 vouz avez été ajouté en position $lines(list.txt) 
      if ( $lines(list.txt) < 3 ) { 
        notice $1 envoi du pack : $deltok($read(pack.txt,$2),1,124) 
        dcc send $1 $gettok($read(pack.txt,$2),1,124) 
      } 
    } 
    else { notice $1 vous ete deja present dans la liste d'attente } 
  } 
  else { notice $1 liste pleine } 
} 


alias remfrqueu { 
  var %lign = 1, %nblines = $lines(list.txt) 
  while ( %lign <= %nblines && $gettok($read(list.txt,%lign),1,124) != $1 ) { 
    inc %lign 
  } 
  if ( %lign <= %nblines ) { 
    write -dl %lign list.txt 
    notice $1 vous avez bien été enlevé de la liste d'attente :) 
  } 
  else { notice $1 dsl zetes pas dans la liste d'attente :( } 
} 

;======================================================================================== 
dialog xdcc_ { 
  title "Xdcc" 
  size -1 -1 412 129 
  option dbu 
  button "Ajouter un fichier", 2, 334 11 65 15 
  list 1, 9 11 312 105, size 
  box "Gestion de votre Xdcc", 7, 3 4 405 116 
  button "Supprimer un fichier", 3, 334 32 65 15 
  button "Move Up", 5, 334 75 65 15 
  button "Modifier une description", 4, 334 53 65 15 
  button "Move Down", 6, 334 97 65 15 
} 

On *:DIALOG:xdcc_:*:*: { 
  if ( $devent == init ) { 
    var %lign = 1, %nblines = $lines(pack.txt) 
    while ( %lign <= %nblines ) { 
      did -a xdcc_ 1 $read(pack.txt,%lign) 
      inc %lign 
    } 
  } 
  elseif ( $devent == sclick ) { 
    if ( $did == 2 ) { 
      var %nam = $sfile(C:\,Ajouter un fichier,Ajouter) 
      if ( %nam ) { 
        write pack.txt %nam 
        did -a xdcc_ 1 %nam 
      } 
    } 
    elseif ( $did == 3 ) { 
      if ( $did(1).sel ) { 
        write -dl $did(1).sel pack.txt 
        did -d xdcc_ 1 $did(1).sel 
      } 
    } 
    elseif ( $did == 4 ) { 
      if ( $did(1).sel ) { 
        var %temp = $read(pack.txt,$gettok($did(1).sel,1,124)) 
        write -l $did(1).sel pack.txt $+(%temp,|,$?=" $+(entrez une description pour le fichier,$chr(32),%temp) ") 
        did -o xdcc_ 1 $did(1).sel $read(pack.txt,$did(1).sel) 
      } 
    } 
    elseif ( $did == 5 ) { 
      if ( $did(1).sel ) { 
        if ( $calc( $did(1).sel - 1 ) > 0 ) { 
          var %temp = $read(pack.txt,$did(1).sel) , %did_ = $did(1).sel , %didm_ = $calc( $did(1).sel - 1 ) 
          did -o xdcc_ 1 %didm_ %temp 
          did -o xdcc_ 1 %did_ $read(pack.txt,%didm_) 
          write -l %did_ pack.txt $read(pack.txt,%didm_) 
          write -l %didm_ pack.txt %temp 
        } 
      } 
    } 
    elseif ( $did == 6 ) { 
      if ( $did(1).sel ) { 
        if ( $calc( $did(1).sel + 1 ) <= $lines(pack.txt) ) { 
          var %temp = $read(pack.txt,$did(1).sel) , %did_ = $did(1).sel , %didm_ = $calc( $did(1).sel + 1 ) 
          did -o xdcc_ 1 %didm_ %temp 
          did -o xdcc_ 1 %did_ $read(pack.txt,%didm_) 
          write -l %did_ pack.txt $read(pack.txt,%didm_) 
          write -l %didm_ pack.txt %temp 
        } 
      } 
    } 
  } 
}

Télécharger le zip

21 août 2005 17:15:38 :

eu j'av oublié un truc lol dsl

21 août 2005 18:37:08 :

code eclairci variable locale ds certain remote

21 août 2005 18:54:16 :

remplacement des variables inutiles par des arguments pour fonction

21 août 2005 21:22:03 :

des optimisations ds les boucles

22 août 2005 20:19:33 :

ajout d'un dialogue pour parametrer les fichiers partagées !

22 août 2005 22:10:42 :

correction de bugs / mise sous forme *.mrc / ajout d'un zip & d'un apercu

23 août 2005 00:00:24 :

rajout du !list