home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / script.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  3.1 KB  |  92 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.   /msg =$nick 5Total Number of Files 2Gotten 4From2 %fstrig $+ 5:3 %totalgets
  6.   /if ($send(0) > 0) {
  7.     /msg =$nick 5Individual 2DCC 3Send 4Status5:
  8.     /set %abcabc 1
  9.     :abcabcl
  10.     /if (%abcabc <= $send(0) ) {
  11.       /set %temp0 $send(%abcabc).size
  12.       /set %temp1 $send(%abcabc).pc
  13.       /set %temp5 $send(%abcabc).cps
  14.       %temp2 = 100 - %temp1
  15.       %temp2 = %temp2 / 100
  16.       %temp3 = %temp0 * %temp2
  17.       %temp4 = %temp3 / %temp5
  18.       /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)
  19.       /inc %abcabc
  20.       goto abcabcl
  21.     }
  22.     /unset %abcabc
  23.     /unset %temp0
  24.     /unset %temp1
  25.     /unset %temp2
  26.     /unset %temp3
  27.     /unset %temp4
  28.     /unset %temp5
  29.   }
  30.   /halt
  31. }   
  32. ; When a fserve opens or closes
  33. on 1:OPEN:!:{
  34.   /msg =$nick 5Commands:
  35.   /msg =$nick 3cd    dir     get    ls 
  36.   /msg =$nick 3stats    read   help 
  37.   /msg =$nick 3exit    bye
  38.   /msg =$nick 5This fserve was created  5By 3Aaron18
  39.   /if ($group(#other1) == on) {
  40.     /msg =$nick 4Type2 %other1trig 5to 3access 5my2 %other1desc
  41.   }
  42.   /if ($group(#other2) == on) {
  43.     /msg =$nick 4Type2 %other2trig 5to 3access 5my2 %other2desc
  44.   }
  45.   /if ($group(#other3) == on) {
  46.     /msg =$nick 4Type2 %other3trig 5to 3access 5my2 %other3desc
  47.   }
  48.   /if ($group(#other1) == on || $group(#other2) == on || $group(#other3) == on) {
  49.     /msg =$nick 4Type2 !home 5to 3return 5to my 2main directory
  50.   }
  51.   /inc %fserved 1
  52. }
  53. on 1:CLOSE:!:{
  54.   if ($group(#elog) == ON) aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session ended with $nick
  55.   notice $nick 5Thank you for coming to4 %fstrig $+ .
  56.   if (%fslot == ON) {
  57.     if (%mchan1o == 1) /msg %mchan1 5There is now an open fserv slot on4 %fstrig $+ .
  58.     if (%mchan2o == 1) /msg %mchan2 5There is now an open fserv slot on4 %fstrig $+ .
  59.     if (%mchan3o == 1) /msg %mchan3 5There is now an open fserv slot on4 %fstrig $+ .
  60.     if (%mchan4o == 1) /msg %mchan4 5There is now an open fserv slot on4 %fstrig $+ .
  61.     if (%mchan5o == 1) /msg %mchan5 5There is now an open fserv slot on4 %fstrig $+ .
  62.   }
  63. }
  64. #other1 off
  65. on 1:SERV:%other1trig:{
  66.   /.notice $nick Now bringing you to my %other1desc
  67.   /close -f $nick
  68.   /fserve $nick %maxgets %other1dir %wtext
  69. }
  70. #other1 end
  71. #other2 off
  72. on 1:SERV:%other2trig:{
  73.   /.notice $nick Now bringing you to my %other2desc
  74.   /close -f $nick
  75.   /fserve $nick %maxgets %other2dir %wtext
  76. }
  77. #other2 end
  78. #other3 off
  79. on 1:SERV:%other3trig:{
  80.   /.notice $nick Now bringing you to my %other3desc
  81.   /close -f $nick
  82.   /fserve $nick %maxgets %other3dir %wtext
  83. }
  84. #other3 end
  85. on 1:SERV:!home:{
  86.   /if ($group(#other1) == on || $group(#other2) == on || $group(#other3) == on) {
  87.     /.notice $nick Now bringing you home
  88.     /close -f $nick
  89.     /fserve $nick %maxgets %homedir %wtext
  90.   }
  91. }
  92.