XDCC SYSTEM

dialog xdcc {
  title "system xdcc"
  size -1 -1 107 154
  option dbu
  button "lancer XDCC", 1, 30 140 37 12, ok
  edit "", 2, 54 38 50 10
  text "Nom du bot", 3, 2 38 48 8
  edit "", 4, 54 55 50 10
  text "Numero du premier slot", 5, 1 55 48 15
  button "Continuer", 6, 3 97 37 12
  button "Arreter ", 7, 66 97 37 12
  text "Continue continue la suite des slot , arreter arrete les telechargement apres le premier slot", 8, 2 72 101 23
  button "fermer", 9, 33 0 33 6, cancel
  list 10, 2 110 102 28, size vsbar
  edit %cv, 11, 54 22 50 10
  edit %sv, 12, 54 8 50 10
  text "nom du chan", 13, 2 23 47 9
  text "Serveur du xdcc", 14, 2 8 49 10
}


on *:dialog:xdcc:sclick:1:{
  if ( $did(2) != $null ) {
    if ( $did(4) != $null ) { /set %nb $did(2) | /set %sb $did(4) | /didtok xdcc 10 c nom %nb slot %sb | /write xdcc.txt nom %nb slot %sb }
    else { /echo 4 -a Impossible a lancer le xdcc si le slot n est pas preciser }
  }
  else { /echo 4 -a Impossible a lancer le xdcc si le nom du bot n est pas preciser }
}
on *:dialog:xdcc:sclick:6:{ /enable #continue }
on *:dialog:xdcc:sclick:7:{ /disable #continue }
on *:GETFAIL:*.avi:{
  if ( $nick == %nb ) { /msg %nb xdcc send %sb }
  else { /echo -a Error Dcc }
}
#continue off
on *:FILERCVD:*.avi:{
  if ( $nick == %nb ) { /inc %sb 1 | /msg %nb xdcc send %sb }
  else { /echo -a Error Dcc }
}
#continue end
on *:start:{ .server %sv }
on *:connect:{ 
  if ( $server == %sv ) { /j %cv | /msg %nb xdcc send %sb }
  else { /return }
}
alias xdcc {
  /dialog -m xdcc xdcc
  /timerlist 1 3 /xdcclist
}

menu menubar,nicklist,query,channel {
  Systeme xdcc :/xdcc
}

alias xdcclist {
  var %i = 1
  while (%i <= $lines(xdcc.txt) ) {
    /didtok xdcc 10 C $read(xdcc.txt,%i)
    inc %i
  }
}