home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / script2.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  6.8 KB  |  184 lines
  1. ; Fserve stuff
  2. #chantrig on
  3. on 1:TEXT:%fstrig:%mchan1:{
  4.   /if (%fson == 1 && %mchan1o == 1) {
  5.     /if ((%nlpmg == 1) && ($send(0) >= %maxglobal)) {
  6.       /notice $nick 2Sorry, 5but you can't come on4 %fstrig 5when max gets are in progress (2 $send(0) 5out of2 %maxglobal 5)
  7.     }
  8.     else {
  9.       /if ($fserv(0) < %maxusers) {
  10.         if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session started with $nick
  11.         /fserve $nick %maxgets %homedir %wtext
  12.       }
  13.       else /notice $nick 2Sorry,5 but there are no slots left on4 %fstrig - 5(2 $fserv(0) 5out of 2 %maxusers 5).
  14.     } 
  15.   }
  16.   else /notice $nick 2Sorry,5 but4 %fstrig 5is not currently2 active.
  17. }
  18. on 1:TEXT:%fstrig:%mchan2:{
  19.   /if (%fson == 1 && %mchan2o == 1) {
  20.     /if ((%nlpmg == 1) && ($send(0) >= %maxglobal)) {
  21.       /notice $nick 2Sorry, 5but you can't come on4 %fstrig 5when max gets are in progress (2 $send(0) 5out of2 %maxglobal 5)
  22.     }
  23.     else {
  24.       /if ($fserv(0) < %maxusers) {
  25.         if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session started with $nick
  26.         /fserve $nick %maxgets %homedir %wtext
  27.       }
  28.       else /notice $nick 2Sorry,5 but there are no slots left on4 %fstrig - 5(2 $fserv(0) 5out of 2 %maxusers 5).
  29.     }
  30.   }
  31.   else /notice $nick 2Sorry,5 but4 %fstrig 5is not currently2 active.
  32. }
  33. on 1:TEXT:%fstrig:%mchan3:{
  34.   /if (%fson == 1 && %mchan3o == 1) {
  35.     /if ((%nlpmg == 1) && ($send(0) >= %maxglobal)) {
  36.       /notice $nick 2Sorry, 5but you can't come on4 %fstrig 5when max gets are in progress (2 $send(0) 5out of2 %maxglobal 5)
  37.     }
  38.     else {
  39.       /if ($fserv(0) < %maxusers) {
  40.         if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session started with $nick
  41.         /fserve $nick %maxgets %homedir %wtext
  42.       }
  43.       else /notice $nick 2Sorry,5 but there are no slots left on4 %fstrig - 5(2 $fserv(0) 5out of 2 %maxusers 5).
  44.     }
  45.   }
  46.   else /notice $nick 2Sorry,5 but4 %fstrig 5is not currently2 active.
  47. }
  48. on 1:TEXT:%fstrig:%mchan4:{
  49.   /if (%fson == 1 && %mchan4o == 1) {
  50.     /if ((%nlpmg == 1) && ($send(0) >= %maxglobal)) {
  51.       /notice $nick 2Sorry, 5but you can't come on4 %fstrig 5when max gets are in progress (2 $send(0) 5out of2 %maxglobal 5)
  52.     }
  53.     else {
  54.       /if ($fserv(0) < %maxusers) {
  55.         if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session started with $nick
  56.         /fserve $nick %maxgets %homedir %wtext
  57.       }
  58.       else /notice $nick 2Sorry,5 but there are no slots left on4 %fstrig - 5(2 $fserv(0) 5out of 2 %maxusers 5).
  59.     }
  60.   }
  61.   else /notice $nick 2Sorry,5 but4 %fstrig 5is not currently2 active.
  62. }
  63. on 1:TEXT:%fstrig:%mchan5:{
  64.   /if (%fson == 1 && %mchan5o == 1) {
  65.     /if ((%nlpmg == 1) && ($send(0) >= %maxglobal)) {
  66.       /notice $nick 2Sorry, 5but you can't come on4 %fstrig 5when max gets are in progress (2 $send(0) 5out of2 %maxglobal 5)
  67.     }
  68.     else {
  69.       /if ($fserv(0) < %maxusers) {
  70.         if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session started with $nick
  71.         /fserve $nick %maxgets %homedir %wtext
  72.       }
  73.       else /notice $nick 2Sorry,5 but there are no slots left on4 %fstrig - 5(2 $fserv(0) 5out of 2 %maxusers 5).
  74.     }
  75.   }
  76.   else /notice $nick 2Sorry,5 but4 %fstrig 5is not currently2 active.
  77. }
  78. #chantrig end
  79. #ctcptrig off
  80. ctcp 1:%fstrig:{
  81.   /if (%fson == 1) {
  82.     /if ((%nlpmg == 1) && ($send(0) >= %maxglobal)) {
  83.       /.notice $nick 2Sorry, 5but you can't come on4 %fstrig 5when max gets are in progress (2 $send(0) 5out of2 %maxglobal 5)
  84.     }
  85.     else {
  86.       /if ($fserv(0) < %maxusers) {
  87.         if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session started with $nick
  88.         /fserve $nick %maxgets %homedir %wtext
  89.       }
  90.       else /.notice $nick 2Sorry,5 but there are no slots left on4 %fstrig - 5(2 $fserv(0) 5out of 2 %maxusers 5).
  91.     }
  92.   }
  93.   else /.notice $nick 2Sorry,5 but4 %fstrig 5is not currently2 active.
  94. }
  95. ctcp 100:%fstrig:{
  96.   /.notice $nick 2Sorry,5 but you are banned from 4 %fstrig $+ .
  97. }
  98. #ctcptrig end
  99. on 1:TEXT:!list:%mchan1:{
  100.   /.notice $nick 5Type3 %fstrig 5to get on my 3leech5 fserve
  101. }
  102. }
  103. on 1:TEXT:!list:%mchan2:{
  104. /if (%fson == 1 && %mchan2o == 1) {
  105.   /.notice $nick 5Type3 %fstrig 5to get on my 3leech5 fserve
  106. }
  107. }
  108. on 1:TEXT:!list:%mchan3:{
  109. /if (%fson == 1 && %mchan3o == 1) {
  110.   /.notice $nick 5Type3 %fstrig 5to get on my 3leech5 fserve
  111. }
  112. }
  113. on 1:TEXT:!list:%mchan4:{
  114. /if (%fson == 1 && %mchan4o == 1) {
  115.   /.notice $nick 5Type3 %fstrig 5to get on my 3leech5 fserve
  116. }
  117. }
  118. on 1:TEXT:!list:%mchan5:{
  119. /if (%fson == 1 && %mchan5o == 1) {
  120.   /.notice $nick 5Type3 %fstrig 5to get on my 3leech5 fserve 
  121. }
  122. }
  123. ; FServe BAN Stuff
  124. on 100:TEXT:%fstrig:%mchan1:{
  125. /if (%mchan1o == 1) /notice $nick 2Sorry,5 but you are banned from 4 %fstrig $+ .
  126. }
  127. on 100:TEXT:%fstrig:%mchan2:{
  128. /if (%mchan2o == 1) /notice $nick 2Sorry,5 but you are banned from 4 %fstrig $+ .
  129. }
  130. on 100:TEXT:%fstrig:%mchan3:{
  131. /if (%mchan3o == 1) /notice $nick 2Sorry,5 but you are banned from 4 %fstrig $+ .
  132. }
  133. on 100:TEXT:%fstrig:%mchan4:{
  134. /if (%mchan4o == 1) /notice $nick 2Sorry,5 but you are banned from 4 %fstrig $+ .
  135. }
  136. on 100:TEXT:%fstrig:%mchan5:{
  137. /if (%mchan5o == 1) /notice $nick 2Sorry,5 but you are banned from 4 %fstrig $+ .
  138. }
  139. ; FServe commands
  140. on 1:SERV:get*:{
  141. /set %exists $fserv($nick).cd $+ \ $+ $2-
  142. /if ($exists(%exists) == $false) {
  143.   /msg =$nick 4Sorry,5 but the 3file2 $2- 5does not 2exist5.
  144.   /unset %exists
  145.   /halt
  146. }
  147. /if ($send($nick) == $null) .dcc send $nick
  148. else halt
  149. /msg =$nick 4Sorry,5 You are 3already getting2 a file  
  150. }
  151. /unset %exists
  152. /if ($send(0) < %maxglobal) {
  153. /if ($getspp($nick) < %maxgets) {
  154.   if ($group(#elog) == ON) /aline @EventLog [[ $+ $lavatime(5) $+ ]] %fstrig is sending $2- to $nick
  155.   /if (%cfget == 0) {
  156.     /msg =$nick 4 %fstrig 5is sending2 $2- 5to3 $nick
  157.     /if (%cpscheck == 1) {
  158.       /msg =$nick 5If the CPS of your send drops lower than3 %mincps 5CPS, it will be stopped.
  159.     }
  160.   }
  161.   else {
  162.     /msg =$nick 4 %fstrig 5is sending2 $2- 5to3 $nick 5- 2this 5fserve3 session4 will 3end4 in2 %cftime 4seconds.
  163.     /if (%cpscheck == 1) {
  164.       /msg =$nick 5If the CPS of your send drops lower than3 %mincps 5CPS, it will be stopped.
  165.     }
  166.     /timer 1 %cftime
  167.   }
  168.   ;/dcc send $nick " $+ $2- $+ "
  169.   /inc %totalgets 1
  170.   /unset %temp3  
  171. }
  172. else {
  173.   /msg =$nick 4 Sorry5, but you are 2getting5 to many files at once (2 $getspp($nick) 5/2 %maxgets 5).
  174.   /unset %temp3
  175.   /halt
  176. }
  177. }
  178. else {
  179. /msg =$nick 2Sorry, 5but the max number of 3gets5 total are in progress (4 $send(0) 5out of4 %maxglobal 5).
  180. /halt
  181. }
  182. ;halt
  183. }
  184.