home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / urlv.mrc < prev    next >
Text File  |  2004-04-13  |  7KB  |  97 lines

  1.  
  2. ; sgt-d
  3. ; sgt-d@sodpit.com
  4.  
  5. ; load this into your mirc scripts (alt+r -> file menu -> load)
  6.  
  7. ; commands are /urlv (for quick help), /addv, /delv and /showv
  8.  
  9. alias urlv {
  10.   echo -a 0,1URL Virus Protection Help
  11.   echo -a type: /addv <#channel> - to add a channel to protect
  12.   echo -a type: /delv <#channel> - to delete a protected channel
  13.   echo -a type: /showv - to show all channels you are protecting
  14. }
  15.  
  16. alias showv { if (%formatchansv != $null) { echo -a 0,1You are protecting the following channels against URL viruses: | echo -a 0,1 $+ %formatchansv }
  17.   else { echo -a 0,1You are not protecting any channels against URL viruses. }
  18. }
  19.  
  20. alias addv { 
  21.   if ($2 != $null) { echo -a You gave too many parameters | halt 
  22.   }
  23.   elseif ( $1 == $null) { echo -a Correct Usage = /addv #ChannelName | halt 
  24.   }
  25.   elseif ( $1 isin %formatchansv) { echo -a $1 was already added | halt
  26.   }
  27.   elseif ( $chr(35) !isin $1 ) { echo -a $1 must have a $chr(35) in front. | halt
  28.   }
  29.   else { set %formatchansv %formatchansv $1 
  30.     echo -a 9,1Added $1 to your channel protection against URL viruses.
  31.     halt
  32.   }
  33. }
  34.  
  35. alias delv {
  36.   if ($2 != $null) { echo -a You gave too many parameters | halt 
  37.   }
  38.   elseif ( $1 == $null ) { echo -a Correct Usage = /delv #ChannelName | halt 
  39.   }
  40.   elseif ( $1 !isin %formatchansv) { echo -a $1 has not been added | halt
  41.   }
  42.   elseif ( $chr(35) !isin $1 ) { echo -a $1 must have a $chr(35) in front. | halt
  43.   }
  44.   else { set %tempformat $1
  45.     set %formatchansv $remove(%formatchansv,$1)
  46.     unset %tempformat
  47.     echo -a 4,1Removed $1 from your channel protection against URL viruses.
  48.     halt
  49.   }
  50. }
  51.  
  52. on ^1:text:*winrg.swf*:#: {
  53.   echo -a 14,1Message from0,1 $nick 14,1containing4,1 [winrg.swf] 14,1blocked by mIRC Power Pack.
  54.   if ($chan !isin %formatchansv ) {
  55.     { notice $nick 4,1 $+ $nick $+ : Your message (( $1- )) contains a URL that directs users to a web page that contains a virus. | notice $nick 4,1The fact that your computer sent this message indicates that your computer IS infected with a virus.  You should scan your system for viruses IMMEDIATELY.  Your message was automatically blocked by mIRC Power Pack due to dangerous/viral content. | if (%formatchansv != $null) { notice $nick 4,1Be forewarned that I am protecting channels0,1 $chr(91) %formatchansv $chr(93) 4,1against URL virus messages.  If you post a URL virus in any of the channels I am protecting, you will be KICKBANNED. } | halt }
  56.     halt
  57.   }
  58.   if ($me isop #) {
  59.     who $nick 
  60.     mode # -o+b $nick $address($nick,%mpp.masklevel)
  61.     kick # $nick 4,1KICKBAN:0,1 $nick $+ . 4,1REASON:0,1 Spamming URL Viruses. Scan your computer before coming back.  Thank you drive through please. 
  62.     halt
  63.   } 
  64. }
  65.  
  66. on ^1:text:*pingpong.swf*:#: {
  67.   echo -a 14,1Message from0,1 $nick 14,1containing4,1 [pingpong.swf] 14,1blocked by mIRC Power Pack.
  68.   if ($chan !isin %formatchansv ) {
  69.     { notice $nick 4,1 $+ $nick $+ : Your message (( $1- )) contains a URL that directs users to a web page that contains a virus. | notice $nick 4,1The fact that your computer sent this message indicates that your computer IS infected with a virus.  You should scan your system for viruses IMMEDIATELY.  Your message was automatically blocked by mIRC Power Pack due to dangerous/viral content. | if (%formatchansv != $null) { notice $nick 4,1Be forewarned that I am protecting channels0,1 $chr(91) %formatchansv $chr(93) 4,1against URL virus messages.  If you post a URL virus in any of the channels I am protecting, you will be KICKBANNED. } | halt }
  70.     halt
  71.   }
  72.   if ($me isop #) {
  73.     who $nick 
  74.     mode # -o+b $nick $address($nick,%mpp.masklevel)
  75.     kick # $nick 4,1KICKBAN:0,1 $nick $+ . 4,1REASON:0,1 Spamming URL Viruses. Scan your computer before coming back.  Thank you drive through please. 
  76.     halt
  77.   } 
  78. }
  79.  
  80. on ^1:text:*winnoise.swf*:#: {
  81.   echo -a 14,1Message from0,1 $nick 14,1containing4,1 [winnoise.swf] 14,1blocked by mIRC Power Pack.
  82.   if ($chan !isin %formatchansv ) {
  83.     { notice $nick 4,1 $+ $nick $+ : Your message (( $1- )) contains a URL that directs users to a web page that contains a virus. | notice $nick 4,1The fact that your computer sent this message indicates that your computer IS infected with a virus.  You should scan your system for viruses IMMEDIATELY.  Your message was automatically blocked by mIRC Power Pack due to dangerous/viral content. | if (%formatchansv != $null) { notice $nick 4,1Be forewarned that I am protecting channels0,1 $chr(91) %formatchansv $chr(93) 4,1against URL virus messages.  If you post a URL virus in any of the channels I am protecting, you will be KICKBANNED. } | halt }
  84.     halt
  85.   }
  86.   if ($me isop #) {
  87.     who $nick 
  88.     mode # -o+b $nick $address($nick,%mpp.masklevel)
  89.     kick # $nick 4,1KICKBAN:0,1 $nick $+ . 4,1REASON:0,1 Spamming URL Viruses. Scan your computer before coming back.  Thank you drive through please. 
  90.     halt
  91.   } 
  92. }
  93.  
  94. on ^*:text:*winrg.swf*:?: { echo -a 14,1Message from0,1 $nick 14,1containing4,1 [winrg.swf] 14,1blocked by mIRC Power Pack. | notice $nick 4,1 $+ $nick $+ : Your message (( $1- )) contains a URL that directs users to a web page that contains a virus. | notice $nick 4,1The fact that your computer sent this message indicates that your computer IS infected with a virus.  You should scan your system for viruses IMMEDIATELY.  Your message was automatically blocked by mIRC Power Pack due to dangerous/viral content. | if (%formatchansv != $null) { notice $nick 4,1Be forewarned that I am protecting channels0,1 $chr(91) %formatchansv $chr(93) 4,1against URL virus messages.  If you post a URL virus in any of the channels I am protecting, you will be KICKBANNED. } | halt }
  95. on ^*:text:*pingpong.swf*:?: { echo -a 14,1Message from0,1 $nick 14,1containing4,1 [pingpong.swf] 14,1blocked by mIRC Power Pack. | notice $nick 4,1 $+ $nick $+ : Your message (( $1- )) contains a URL that directs users to a web page that contains a virus. | notice $nick 4,1The fact that your computer sent this message indicates that your computer IS infected with a virus.  You should scan your system for viruses IMMEDIATELY.  Your message was automatically blocked by mIRC Power Pack due to dangerous/viral content. | if (%formatchansv != $null) { notice $nick 4,1Be forewarned that I am protecting channels0,1 $chr(91) %formatchansv $chr(93) 4,1against URL virus messages.  If you post a URL virus in any of the channels I am protecting, you will be KICKBANNED. } | halt }
  96. on ^*:text:*winnoise.swf*:?: { echo -a 14,1Message from0,1 $nick 14,1containing4,1 [winnoise.swf] 14,1blocked by mIRC Power Pack. | notice $nick 4,1 $+ $nick $+ : Your message (( $1- )) contains a URL that directs users to a web page that contains a virus. | notice $nick 4,1The fact that your computer sent this message indicates that your computer IS infected with a virus.  You should scan your system for viruses IMMEDIATELY.  Your message was automatically blocked by mIRC Power Pack due to dangerous/viral content. | if (%formatchansv != $null) { notice $nick 4,1Be forewarned that I am protecting channels0,1 $chr(91) %formatchansv $chr(93) 4,1against URL virus messages.  If you post a URL virus in any of the channels I am protecting, you will be KICKBANNED. } | halt }
  97.