home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / x-plorer.mrc < prev    next >
Text File  |  2003-05-03  |  4KB  |  89 lines
  1. ;X-plorer v4.0 By DMagic1.
  2. ;remotely and visually explore fserver's
  3. #fserveex on
  4. on *:chat:*:{
  5.   if ($1 == [\]) && ($dialog(fs.expl) == $null) { f.ex | msg = $+ $did(fs.expl,3).text dir | goto endB }
  6.   if ($1 == ['C') { f.ex | msg = $+ $did(fs.expl,3).text dir | msg = $+ $did(fs.expl,3).text dir | goto endB }
  7.   if ($1 == agree) { f.ex | msg = $+ $did(fs.expl,3).text agree }
  8.   :endB
  9.   if ($dialog(fs.expl)) {
  10.     set %fs.niga $1-
  11.     if (%fs.niga == [\*.*]) { halt }
  12.     if (%fs.niga == End of list.) { halt }
  13.     if ( [\ isin %fs.niga) { halt }
  14.     if ( elcome isin %fs.niga ) { goto fread }
  15.     if ( Send isin %fs.niga ) { goto fread }
  16.     if ( byte(s) isin %fs.niga ) { goto fread }
  17.     if ( file(s) isin %fs.niga ) { goto fread }
  18.     if ( accessed isin %fs.niga ) { goto fread }
  19.     if ( ileserver isin %fs.niga ) { goto fread }
  20.     if ( fail(s) isin %fs.niga ) { goto fread }
  21.     if ( queue isin %fs.niga ) { goto fread }
  22.     if ( 4-2k isin %fs.niga ) { goto fread }
  23.     if ( requested isin %fs.niga ) { goto fread }
  24.     if ( login isin %fs.niga ) { goto fread }
  25.     if ( stats isin %fs.niga ) { goto fread }
  26.     if ( ueued isin %fs.niga ) { goto fread }
  27.     if ( Joined isin %fs.niga ) { goto fread }
  28.     if ( cps isin %fs.niga ) { goto fread }
  29.     if ( Sent isin %fs.niga ) { goto fread }
  30.     if ( Invalid isin %fs.niga ) { goto fread }
  31.     if ( Closing isin %fs.niga ) { msg = $+ $did(fs.expl,3).text cd~ | goto fread }
  32.     did -a fs.expl 4 $strip(%fs.niga,burc)  | did -z fs.expl 4 | goto fpass
  33.     :fread
  34.     did -a fs.expl 11 $strip(%fs.niga,burc) $crlf | did -z fs.expl 11
  35.     :fpass
  36.   }
  37.   else halt
  38. }
  39. on *:chat:
  40. alias f.ex { dialog -md fs.expl fs.expl }
  41. dialog fs.expl {
  42.   title "X-plorer v4.0 by DMagic1"
  43.   size -1 -1 490 410
  44.   button "Close X-plorer",1, 360 380 80 20,ok
  45.   box "X-plorer",2, 10 5 464 260
  46.   combo 3, 140 15 130 110,drop
  47.   list 4, 25 35 435 215,vsbar hsbar autohs autovs
  48.   edit "", 11, 10 270 464 105,read multi vsbar hsbar autohs autovs
  49.   button "Clear Que",9, 15 380 60 20
  50.   button "Sends",5, 135 380 60 20
  51.   button "Queues",7, 205 380 60 20
  52.   button "Exit FServer",8, 280 380 70 20
  53.   text "Click folders(upper case) to enter. Click files(lower case) to download.",10, 18 247 372 19
  54. } 
  55. on *:dialog:fs.expl:sclick:9:{ .msg = $+ $did($dname,3).text clearq | .msg = $+ $did($dname,3).text clr_queues }
  56. on *:dialog:fs.expl:sclick:5:{ .msg = $+ $did($dname,3).text sends }
  57. on *:dialog:fs.expl:sclick:7:{ .msg = $+ $did($dname,3).text queues }
  58. on *:dialog:fs.expl:sclick:8:{ .msg = $+ $did($dname,3).text exit }
  59. on *:dialog:fs.expl:init:0:{
  60.   did -z $dname 4
  61.   set %fs.num 0
  62.   :lewp
  63.   inc %fs.num
  64.   if ($fserv(%fs.num) != $null) { did -a $dname 3 $fserv(%fs.num) | goto lewp }
  65.   else { unset %fs.num | did -c $dname 3 1 | goto check0 }
  66.   :check0
  67.   set %fs.num 0
  68.   :lewp1
  69.   inc %fs.num
  70.   if ($chat(%fs.num) != $null) { did -a $dname 3 $chat(%fs.num) | goto lewp1 }
  71.   else { unset %fs.num | did -c $dname 3 1 | goto check1 }
  72.   :check1
  73.   if ($did($dname,3).text != $null) did -a $dname 4 ..
  74.   else { did -a $dname 4 Not Connected... }
  75. }
  76. on *:dialog:fs.expl:dclick:4:{
  77.   %goodtxt = $deltok($did($dname,4,$did($dname,4).sel).text,$numtok($did($dname,4,$did($dname,4).sel).text,32),32)
  78.   %clickon = $did($dname,4,$did($dname,4).sel).text
  79.   if ($did($dname,4,$did($dname,4).sel).text == ..) { .msg = $+ $did($dname,3).text cd .. | did -r $dname 4  }
  80.   if ($chr(46) isin %clickon) {
  81.     if (($right($did($dname,4,$did($dname,4).sel).text,3) == $chr(32) $+ mb) || ($right($did($dname,4,$did($dname,4).sel).text,3) == $chr(32) $+ kb)) { .msg = $+ $did($dname,3).text get $deltok(%goodtxt,$numtok(%goodtxt,32),32) $crlf | goto endclick  }
  82.     if (($right(%clickon,1) === b) || ($right(%clickon,1) === k)) { .msg = $+ $did($dname,3).text get $deltok($did($dname,4,$did($dname,4).sel).text,$numtok($did($dname,4,$did($dname,4).sel).text,32),32) }
  83.     :endclick
  84.     else { .msg = $+ $did($dname,3).text cd $did($dname,4,$did($dname,4).sel).text | did -r $dname 4 | .msg = $+ $did($dname,3).text dir }
  85.   }
  86.   else { .msg = $+ $did($dname,3).text cd $did($dname,4,$did($dname,4).sel).text | did -r $dname 4 | .msg = $+ $did($dname,3).text dir }
  87. }
  88. #fserveex end
  89.