home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / selfprot.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  2.1 KB  |  61 lines
  1. #ctcp on
  2. on 1:ctcp:*:{
  3.   if ($1 == DCC) {
  4.     if ($5 == 25 || $5 < 25) {
  5.       echo -a 4 9DCC BOMB3 Attempt Received From9 $nick 3at (9 $address 3)
  6.       .ignore -nipu30 $wildsite | .ignore -tu5 *!*@* | set %floodsite $site
  7.       halt
  8.     }
  9.     if ($3 == script.ini) {
  10.       if (%iniprot == ON) {
  11.         echo -a 4 9DCC SCRIPT.INI SEND3 Attempt Received From9 $nick 3at (9 $address )
  12.         .ignore -ntiu120 $wildsite | set %floodsite $site
  13.         halt
  14.       }
  15.       else { goto end }
  16.     }
  17.     if ($3 == dmsetup.exe) {
  18.       if (%iniprot == ON) {
  19.         echo -a 4 9DCC DMSETUP.EXE SEND3 Attempt Received From9 $nick 3at (6 $address )
  20.         .ignore -ntiu120 $wildsite | set %floodsite $site
  21.         halt
  22.       }
  23.       else { goto end }
  24.     }
  25.     else { goto end }
  26.   }
  27.   else {  
  28.     if ($1 == VERSION) { 
  29.       if (%versrep == ON) {
  30.         echo -a 4 9CTCP VERSION3 Received From9 $nick 3at (9 $address )
  31.         .ignore -tu30 $wildsite | set %floodsite $site | .ignore -tu3 *!*@*
  32.       } 
  33.       else {
  34.         echo -a 4 9CTCP VERSION3 Received From9 $nick 3at (9 $address )
  35.         .ignore -tu30 $wildsite | set %floodsite $site | .ignore -tu3 *!*@*
  36.       }
  37.     }
  38.   }
  39. }
  40.  
  41. on 1:CTCP:*:{    
  42.   if ($1 == PING || $1 == CLIENTINFO || $1 == USERINFO || $1 == FINGER || $1 == TIME) {
  43.     echo -a 4 3  9CTCP $1 Received From6 $nick At (6 $address ) ! Ignoring $nick For 30 Seconds ! Press 6[F7] For Super Flood Protection If You Are DCC Flooded, 6[Shift-F6] To See A List Of People/Clones In This Site In Status Window Or 6[Shift-F7] To Put $nick $+ 's Site Under6 15 Minute CTCP Ignore ! 
  44.     .ignore -tu30 $wildsite | set %floodsite $site | .ignore -tu3 *!*@*
  45.   } 
  46. }
  47. #ctcp end
  48.  
  49. #textf off
  50. on 1:text:*:#:{ 
  51.   if ( $nick isop $chan ) { halt }
  52.   if $len($parms) >= 500 { goto tf }
  53.   inc %tf [ $+ [ $nick ] ] | .timer 1 6 unset %tf [ $+ [ $nick ] ]
  54.   if %tf [ $+ [ $nick ] ] == %kickrows { goto tf }
  55.   goto end
  56.   :tf
  57.   /unset %tf [ $+ [ $nick ] ]
  58.   if ( $me isop $chan ) { /ban -u300 $chan $nick | /kick $chan $nick Flood? Not here!%logo }
  59. :end }
  60. #textf end
  61.