/ScriptServ

on *:load:/echo 5You Have Just Loaded The Transfer Wizard Script Created By 7NightMare
Dialog trans {
  Title "Transfer Wizard"
  Size -1 -1 598 340
  List 1, 6 6 586.912751677852 141, extsel size
  List 2, 6 146 586.912751677852 141, extsel size
  Button "Close", 3, 235 296 89 23, ok
}
menu menubar,channel {
  Trasfer Wizard:dialog -dm trans trans
}
alias mdx { return { $+(",$scriptdirDLLS\mdx.dll,") } }
alias trans.init { dll $mdx SetMircVersion $version | dll $mdx MarkDialog trans }
on *:dialog:trans:init:*:{
  trans.init
  dll $mdx SetDialog $dname bgcolor $rgb(100,0,10)
  dll $mdx SetControlMDX $dname 1 Listview report grid > $scriptdirDLLS\views.mdx
  dll $mdx SetControlMDX $dname 2 Listview report grid > $scriptdirDLLS\views.mdx
  did -i $dname 1 1 headerdims 160:1 70:2 60:3 80:4 80:5 90:6 150:7
  did -i $dname 1 1 headertext +c 0 Filename $+ $chr(9) $+ +c 0 Size $+ $chr(9) $+ +c 0 $chr(37) $+ Done $+ $chr(9) $+ +c 0 Sent $+ $chr(9) $+ +c 0 Speed $+ $chr(9) $+ +c 0 Nickname $+ $chr(9) $+ +c 0 Directory
  did -i $dname 2 1 headerdims 160:1 70:2 60:3 80:4 80:5 90:6 150:7
  did -i $dname 2 1 headertext +c 0 Filename $+ $chr(9) $+ +c 0 Size $+ $chr(9) $+ +c 0 $chr(37) $+ Done $+ $chr(9) $+ +c 0 Rcvd $+ $chr(9) $+ +c 0 Speed $+ $chr(9) $+ +c 0 Nickname $+ $chr(9) $+ +c 0 Directory
  .timer1transend 0 3 /transend
  .timer1tranget 0 3 /tranget
  transend1
  tranget1
}
on *:dialog:trans:sclick:3:{
  .timer1transend off
  .timer1tranget off
}
alias transend {
  transend2
  var %tran.send1 2
  var %tran.send 1
  while (%tran.send <= $send(0)) {
    did -o trans 1 %tran.send1 $send( $+ %tran.send $+ ).file $+ $chr(9) $+ $bytes($send( $+ %tran.send $+ ).size,M).suf $+ $chr(9) $+ $send( $+ %tran.send $+ ).pc $+ $chr(37) $+ $chr(9) $+ $bytes($send( $+ %tran.send $+ ).sent,M).suf $+ $chr(9) $+ $bytes($send( $+ %tran.send $+ ).cps,k) $+ kb/sec $+ $chr(9) $+ $send( $+ %tran.send $+ ) $+ $chr(9) $+ $send( $+ %tran.send $+ ).path $+ $send( $+ %tran.send $+ ).file
    inc %tran.send 1
    inc %tran.send1 1
  }
}
alias tranget {
  tranget2
  var %tran.get1 2
  var %tran.get 1
  while (%tran.get <= $get(0)) {
    did -o trans 2 %tran.get1 $get( $+ %tran.get $+ ).file $+ $chr(9) $+ $bytes($get( $+ %tran.get $+ ).size,M).suf $+ $chr(9) $+ $get( $+ %tran.get $+ ).pc $+ $chr(37) $+ $chr(9) $+ $bytes($get( $+ %tran.get $+ ).rcvd,M).suf $+ $chr(9) $+ $bytes($get( $+ %tran.get $+ ).cps,k) $+ kb/sec $+ $chr(9) $+ $get( $+ %tran.get $+ ) $+ $chr(9) $+ $get( $+ %tran.get $+ ).path $+ $get( $+ %tran.get $+ ).file
    inc %tran.get 1
    inc %tran.get1 1
  }
}
alias transend1 {
  var %tran.send 1
  while (%tran.send <= $send(0)) {
    did -a trans 1 2 $send( $+ %tran.send $+ ).file $+ $chr(9) $+ $bytes($send( $+ %tran.send $+ ).size,M).suf $+ $chr(9) $+ $send( $+ %tran.send $+ ).pc $+ $chr(37) $+ $chr(9) $+ $bytes($send( $+ %tran.send $+ ).sent,M).suf $+ $chr(9) $+ $bytes($send( $+ %tran.send $+ ).cps,k) $+ kb/sec $+ $chr(9) $+ $send( $+ %tran.send $+ ) $+ $chr(9) $+ $send( $+ %tran.send $+ ).path $+ $send( $+ %tran.send $+ ).file
    inc %tran.send 1
  }
}
alias tranget1 {
  var %tran.get 1
  while (%tran.get <= $get(0)) {
    did -a trans 2 2 $get( $+ %tran.get $+ ).file $+ $chr(9) $+ $bytes($get( $+ %tran.get $+ ).size,M).suf $+ $chr(9) $+ $get( $+ %tran.get $+ ).pc $+ $chr(37) $+ $chr(9) $+ $bytes($get( $+ %tran.get $+ ).rcvd,M).suf $+ $chr(9) $+ $bytes($get( $+ %tran.get $+ ).cps,k) $+ kb/sec $+ $chr(9) $+ $get( $+ %tran.get $+ ) $+ $chr(9) $+ $get( $+ %tran.get $+ ).path $+ $get( $+ %tran.get $+ ).file
    inc %tran.get 1
  }
}
alias transend2 {
  var %tran.send2 1
  while (%tran.send1 <= $send(0)) {
    did -d trans 1 %tran.send1
    inc %tran.send1 1
  }
}
alias tranget2 {
  var %tran.get2 1
  while (%tran.get1 <= $get(0)) {
    did -d trans 2 %tran.get1
    inc %tran.get1 1
  }
}