home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / fserve.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  2.4 KB  |  81 lines
  1. on 1:SERV:stats:{
  2.   /msg =$nick 2DCC 3Send 4Status5:
  3.   /msg =$nick 5Total Number Of 2Gets 4Currently:3 $send(0)
  4.   /msg =$nick 5Maximum Number  of 2Gets 4Total:3 %maxglobal
  5.   /if ($send(0) > 0) {
  6.     /msg =$nick 5Individual 2DCC 3Send 4Status5:
  7.     /set %abcabc 1
  8.     :abcabcl
  9.     /if (%abcabc <= $send(0) ) {
  10.       /set %temp0 $send(%abcabc).size
  11.       /set %temp1 $send(%abcabc).pc
  12.       /set %temp5 $send(%abcabc).cps
  13.       %temp2 = 100 - %temp1
  14.       %temp2 = %temp2 / 100
  15.       %temp3 = %temp0 * %temp2
  16.       %temp4 = %temp3 / %temp5
  17.       /msg =$nick 3  $send(%abcabc) 5has been sent2 $bkm($send(%abcabc).sent) 5of4 $send(%abcabc).file and is3 $send(%abcabc).pc $+ % $+ 5 done 5- 2Cps:3 $send(%abcabc).cps 2Left:3 $duration(%temp4)
  18.       /inc %abcabc
  19.       goto abcabcl
  20.     }
  21.     /unset %abcabc
  22.     /unset %temp0
  23.     /unset %temp1
  24.     /unset %temp2
  25.     /unset %temp3
  26.     /unset %temp4
  27.     /unset %temp5
  28.   }
  29.   /halt
  30. }   
  31. ; When a fserve opens or closes
  32. on 1:OPEN:!:{
  33.   /msg =$nick 5Commands:
  34.   /msg =$nick 3cd    dir     get    ls 
  35.   /msg =$nick 3stats    help 
  36.   /msg =$nick 3exit    bye
  37.   /msg =$nick 5This fserve was created  5By 3Aaron18
  38.   /if ($group(#other1) == on) {
  39.     /msg =$nick 4Type2 %other1trig 5to 3access 5my2 %other1desc
  40.   }
  41.   /if ($group(#other2) == on) {
  42.     /msg =$nick 4Type2 %other2trig 5to 3access 5my2 %other2desc
  43.   }
  44.   /if ($group(#other3) == on) {
  45.     /msg =$nick 4Type2 %other3trig 5to 3access 5my2 %other3desc
  46.   }
  47.   /if ($group(#other1) == on || $group(#other2) == on || $group(#other3) == on) {
  48.     /msg =$nick 4Type2 !home 5to 3return 5to my 2main directory
  49.   }
  50.   /inc %fserved 1 
  51. }
  52. }
  53. #other1 off
  54. on 1:SERV:%other1trig:{
  55. /.notice $nick Now bringing you to my %other1desc
  56. /close -f $nick
  57. /fserve $nick %maxgets %other1dir %wtext
  58. }
  59. #other1 end
  60. #other2 off
  61. on 1:SERV:%other2trig:{
  62. /.notice $nick Now bringing you to my %other2desc
  63. /close -f $nick
  64. /fserve $nick %maxgets %other2dir %wtext
  65. }
  66. #other2 end
  67. #other3 off
  68. on 1:SERV:%other3trig:{
  69. /.notice $nick Now bringing you to my %other3desc
  70. /close -f $nick
  71. /fserve $nick %maxgets %other3dir %wtext
  72. }
  73. #other3 end
  74. on 1:SERV:!home:{
  75. /if ($group(#other1) == on || $group(#other2) == on || $group(#other3) == on) {
  76.   /.notice $nick Now bringing you home
  77.   /close -f $nick
  78.   /fserve $nick %maxgets %homedir %wtext
  79. }
  80. }
  81.