home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / net.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.2 KB  |  26 lines
  1. #Net off
  2. ON 1:QUIT: {
  3.   if (%splitstat == off ) { halt }
  4.   if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  5.     if ($parms == %split) { halt }
  6.     set %split1 $token(1,46,$parm1) | set %split2 $token(1,46,$parm2)
  7.     ame 4,1Possible Split at 9 $+ %split1 $+  12,1and 9,1 $+ %split2 $+  
  8.     /beep 15 150
  9.     set %split $parms
  10.     .timer 1 5 unset %split
  11.   }
  12. }
  13. ON 1:UNOTIFY:if $nick == ChanServ && %splitstat == on { /beep 15 100 | .notice $me 10ChanServ just left IRC, check for possible splits!! }
  14. #Net end
  15. on 1:CLOSE:!:{
  16. if ($group(#elog) == ON) aline @EventLog [[ $+ $lavatime(5) $+ ]] FServe session ended with $nick
  17. notice $nick 5Thank you for coming to4 %fstrig $+ .
  18. if (%fslot == ON) {
  19.   if (%mchan1o == 1) /msg %mchan1 5There is now an open fserv slot on4 %fstrig $+ .
  20.   if (%mchan2o == 1) /msg %mchan2 5There is now an open fserv slot on4 %fstrig $+ .
  21.   if (%mchan3o == 1) /msg %mchan3 5There is now an open fserv slot on4 %fstrig $+ .
  22.   if (%mchan4o == 1) /msg %mchan4 5There is now an open fserv slot on4 %fstrig $+ .
  23.   if (%mchan5o == 1) /msg %mchan5 5There is now an open fserv slot on4 %fstrig $+ .
  24. }
  25. }
  26.