Latest version 2.0 from July 1998.
This commit is contained in:
		
							
								
								
									
										60
									
								
								Plugins/AntiHop.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										60
									
								
								Plugins/AntiHop.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,60 @@ | ||||
| ; AntiHop v1.1 (05-27-1998) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by RoboCop of nOOb <Robo.Cop@gmx.net> | ||||
| ; | ||||
| ; Annoys anybody who joins and quickly parts. | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: AntiHop 1.0 | ||||
| ;auth: RoboCop of nOOb | ||||
| ;loadonexit: ahpurge | ||||
| ;loadonstart: ahstartup | ||||
| ; | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| menu status { | ||||
|   SPI: AntiHop | ||||
|   .Change definition: { | ||||
|     set %njd $$?="Enter new value in seconds:" | ||||
|     if ( %njd != $null  && %njd > 0 && %njd < 60 ) { | ||||
|       set %jumpdef %njd | ||||
|       unset %njd | ||||
|       echo -s 1,8 S|-|ADO\\'s 1,7 AntiHop  Definition set to %jumpdef seconds | ||||
|     } | ||||
|     else { unset %njd | echo -s 1,8 S|-|ADO\\'s 1,7 AntiHop  4 WARNING!  New value illegal!! } | ||||
|   } | ||||
| } | ||||
|  | ||||
| alias ahpurge { | ||||
|   unset %jumpdef | ||||
|   unset %lastnick | ||||
|   unset %nicktime | ||||
| } | ||||
|  | ||||
| alias ahstartup { | ||||
|   set %jumpdef 5 | ||||
|   echo -s 7   - Definition of a hop: less than %jumpdef seconds in a channel | ||||
| } | ||||
|  | ||||
| on 1:join:#:{ | ||||
|   set %lastnick $nick | ||||
|   if ( %lastnick != $me ) { | ||||
|     set %nicktime $ctime | ||||
|     echo -s 1,8 S|-|ADO\\'s 1,7 AntiHop  Keeping an eye on  %lastnick  ... | ||||
|   } | ||||
| } | ||||
|  | ||||
| on 1:part:#:{ | ||||
|   if ( $nick == %lastnick && $nick != $me ) { | ||||
|     echo -s 1,8 S|-|ADO\\'s 1,7 AntiHop  Looking at  %lastnick  ... | ||||
|     set %ontime $calc( $ctime - %nicktime ) | ||||
|     unset %nicktime | ||||
|     if ( %ontime <= %jumpdef ) { | ||||
|       echo -s 1,8 S|-|ADO\\'s 1,7 AntiHop  %lastnick is a jumper. | ||||
|       if ( %ontime == 1 ) { set %timepart der einen Sekunde } | else { set %timepart den %ontime Sekunden } | ||||
|       msg %lastnick 1,8 S|-|ADO\\'s 1,7 AntiHop  Macht Dir das Jumpen Spa<70>?? In %timepart kannst Du doch garnix von $chan mitkriegen... | ||||
|       unset %timepart | ||||
|     } | ||||
|     unset %lastnick | ||||
|     unset %ontime | ||||
|   } | ||||
| } | ||||
							
								
								
									
										57
									
								
								Plugins/admin.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										57
									
								
								Plugins/admin.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,57 @@ | ||||
| ; Administrator Plugin for S|-|ADO\\' v1.0 (07-03-1998) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by RoboCop (irc.germany.net) | ||||
| ; | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: Administrator Plugin 1.0 | ||||
| ;auth: RoboCop of nOOb | ||||
| ;  | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| menu channel { | ||||
|   SPI: Admin | ||||
|   .Show users using S|=|a<>o\\' | ||||
|   ..CTCP Method: showShadows | ||||
|   ..TEXT Method: msg $chan 1,8 S|-|A<>O\\' - Script  by RoboCop and Speedy | ||||
| } | ||||
|  | ||||
| menu status { | ||||
|   SPI: Admin | ||||
|   .SupervisoR mode | ||||
|   ..ON: if ( %sr == $null ) { set %sr Variable for SHADOWs SupervisoR mode | echo -s 1,8 S|-|ADO\\'s 1,9 Admin  SupervisoR mode is now 9enabled. } | else { echo -s 1,8 S|-|ADO\\'s 1,9 Admin  SupervisoR mode is already 9enabled. } | ||||
|   ..OFF: if ( %sr != $null ) { unset %sr | echo -s 1,8 S|-|ADO\\'s 1,9 Admin  SupervisoR mode is now 4disabled. } | else { echo -s 1,8 S|-|ADO\\'s 1,9 Admin  SupervisoR mode is already 4disabled. } | ||||
|   ..- | ||||
|   ..STATUS: if ( %sr == $null ) { echo -s 1,8 S|-|ADO\\'s 1,9 Admin  SupervisoR mode is currently 4disabled. } | else { echo -s 1,8 S|-|ADO\\'s 1,9 Admin  SupervisoR mode is currently 9enabled. } | ||||
| } | ||||
|  | ||||
| menu nicklist { | ||||
|   SPI: Admin | ||||
|   .CTCP stuff | ||||
|   ..Message to programmers - Priority: | ||||
|   ...DANGER: LM 0 $$?="Enter action (Nick will be in front of MSG):" | ||||
|   ...WARNING: LM 1 $$?="Enter action (Nick will be in front of MSG):" | ||||
|   ...ATTENTION: LM 2 $$?="Enter action (Nick will be in front of MSG):" | ||||
|   ...- | ||||
|   ...Normal: LM 3 $$?="Enter action (Nick will be in front of MSG):" | ||||
|   ..CTCP message: .ctcp $$1 SDWComm $$?="Enter your message:" | ||||
|   ..- | ||||
|   ..Take control | ||||
|   ...Turn his fileserver warning off: .ctcp $$1 IFS | ||||
|   ...Set you in his auto-op list: .ctcp $$1 INS | ||||
|   ...Start his KillNickServ-Procedure: .ctcp $$1 KillNickServNow YES $me | ||||
|   ...End his mIRC: .ctcp $$1 SDWExitMirc | ||||
|   ...Remote Control: .ctcp $$1 RC $$?="What commands should (s)he do?" | ||||
| } | ||||
|  | ||||
| alias -l ShowShadows { | ||||
|   %tempvar = $nick(# , 0) | ||||
|   %countvar = 1 | ||||
|   :SSLabel | ||||
|   if $nick(# , %countvar ) != $me { .echo -a Sending <20><><EFBFBD> request to " $+ $nick(#, %countvar ) $+ " ... | .CTCP $nick(# , %countvar ) CFS } | ||||
|   %countvar = %countvar + 1 | ||||
|   if %countvar > %tempvar { | ||||
|     unset %tempvar | ||||
|     unset %countvar | ||||
|   } | ||||
|   else goto SSLabel | ||||
| } | ||||
							
								
								
									
										16
									
								
								Plugins/codecrak.pos
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										16
									
								
								Plugins/codecrak.pos
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,16 @@ | ||||
| Code Cracker: Possible characters File | ||||
|  | ||||
| Code Cracker original Script by RoboCop and Speedy | ||||
|  | ||||
| This file defines all the characters that could occur in a password | ||||
| of someone. Feel free to remove those, of whom you think they are not | ||||
| used. But be careful with the char-codes 32, 0 and 61 - they cause | ||||
| errors. | ||||
|  | ||||
| Only the chars after "PosChars" are used - you can rename "PosChars" to | ||||
| e.g. "PosChars_old" and make a new "PosChars"-list ... so you have a | ||||
| backup of the original one. | ||||
|  | ||||
| PosChars_short 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz | ||||
|  | ||||
| PosChars !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~<7E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> | ||||
							
								
								
									
										76
									
								
								Plugins/codecrak.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										76
									
								
								Plugins/codecrak.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,76 @@ | ||||
| ; Code Cracker v1.0 (07-06-1998) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by Speedy <101.33864@germany.net> | ||||
| ; ground structure and improved by RoboCop of nOOb <Robo.Cop@gmx.net> | ||||
| ; | ||||
| ; Tries all possible passwords within a command | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: Code Cracker 1.0 | ||||
| ;auth: Speedy | ||||
| ;loadonexit: ccpurge | ||||
| ;loadonstart: ccstartup | ||||
| ; | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
| ; Placeholder for PWD: <=> | ||||
| ; Variables: | ||||
| ; %CCcmd - command string with placeholder | ||||
| ; %CCdel - delay between tries | ||||
| ; %CCcurcode - current code to try | ||||
| ; %CCcodemin - minimum length of code | ||||
| ; %CCcodemax - maximum length of code | ||||
| ; set %finalcomm $replace( %CCcmd , <=> , %CCcurcode ) | ||||
|  | ||||
|  | ||||
| alias ccstartup { | ||||
|    | ||||
| } | ||||
|  | ||||
| alias ccpurge { | ||||
|   unset %CCcmd | ||||
|   unset %CCdel | ||||
|   unset %CCcurcode | ||||
|   unset %CCcodemin | ||||
|   unset %CCcodemax | ||||
| } | ||||
|  | ||||
| menu Status { | ||||
|   SPI: Code Cracker | ||||
|   .Change command: ChangeCMD | ||||
|   .Change code params | ||||
|   ..Change minimum/maximum length: ChangeMIMA | ||||
|   ..Change delay between tries: ChangeDEL | ||||
|   ..Change possible characters: ChangeCHR | ||||
|    | ||||
| } | ||||
|  | ||||
| alias -l ChangeMIMA { | ||||
|    | ||||
| } | ||||
|  | ||||
| alias -l ChangeDEL { | ||||
|    | ||||
| } | ||||
|  | ||||
| alias -l ChangeCHR { | ||||
|   echo -s 1,8 S|-|ADO\\'s 4 Code Cracker  Running Texteditor ... | ||||
|   .run notepad.exe $scriptdir $+ codecrak.pos | ||||
| } | ||||
|  | ||||
| alias -l ChangeCMD { | ||||
|   if ( %CCcmd != $null ) { echo -s 1,8 S|-|ADO\\'s 4 Code Cracker  Old command string: %CCcmd } | ||||
|   else { echo -s 1,8 S|-|ADO\\'s 4 Code Cracker  7No old command string assigned! } | ||||
|   :CodeEntry | ||||
|   echo -s Enter new code or leave blank to use the old one. | ||||
|   echo -s 7 Use <=> as placeholder for the password.  | ||||
|   set %CCncmd $?="Enter new command (<=> for PWD):" | ||||
|   if ( $count( %CCncmd , <=> ) == 0 && %CCncmd != $null ) { | ||||
|     echo -s 15----- | ||||
|     echo -s 0,4 WARNING! 4 You did not use the placeholder (<=>) for the password-location. Command string invalid!  | ||||
|     echo -s Please re-enter! | ||||
|     goto CodeEntry | ||||
|   } | ||||
|   if ( %CCncmd != $null ) {  set %CCcmd %CCncmd | unset %CCncmd | echo -s New command string:  %CCcmd  } | ||||
|   else { echo -s No new command assigned. Using old one! } | ||||
|   if (  | ||||
|   echo -s 15----- | ||||
| } | ||||
							
								
								
									
										118
									
								
								Plugins/commkick.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										118
									
								
								Plugins/commkick.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,118 @@ | ||||
| ; COMMAND KICKer v2.5 (08-01-1997) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by RoboCop (irc.germany.net) | ||||
| ; This script only works if you got the OP (@) status! | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: COMMAND KICKer 2.5 | ||||
| ;auth: RoboCop of nOOb | ||||
| ;loadonexit: ckpurgevars | ||||
| ;  | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| menu channel { | ||||
|   SPI: Command Kicker (@!) | ||||
|   .Reset: ckpurgevars | ||||
|   .Info MSGs | ||||
|   ..Start / Change interval: { | ||||
|     if ( $me isop $chan ) { | ||||
|       set %tmp $$?="Enter delay between MSGs in seconds:" | ||||
|       if ( %tmp == $null || %tmp <= 0 ) { echo -s 1,8 S|-|ADO\\'s 1,11 Command Kicker  Illegal delay value. Aborting! } | ||||
|       else { | ||||
|         .timercommkick 100 %tmp amsg 1,8 S|-|ADO\\'s 1,11 Command Kicker  is still online. Type !kick <nick> to kick <nick>. Type !kickme to kick yourself. | ||||
|         set %tmp2 %tmp / 60 | ||||
|         if ( %tmp2 == $int( %tmp2 ) ) {  echo -s 1,8 S|-|ADO\\'s 1,11 Command Kicker  MSG-Timer started / updated. MSG will be sent every %tmp2 minutes. } | ||||
|         else { echo -s 1,8 S|-|ADO\\'s 1,11 Command Kicker  MSG-Timer started / updated. MSG will be sent every %tmp seconds. } | ||||
|       } | ||||
|       unset %tmp | ||||
|       unset %tmp2 | ||||
|     } | else { echo -s 1,8 S|-|ADO\\'s 1,11 Command Kicker  4WARNING! You're no operator. Command Kicker will not work. } | ||||
|   } | ||||
|   ..Stop: .timercommkick off | echo -s 1,8 S|-|ADO\\'s 1,11 Command Kicker  MSG-Timer halted. | ||||
| } | ||||
|  | ||||
| alias ckpurgevars { | ||||
|   unset %con | ||||
|   unset %kick | ||||
|   unset %kick1 | ||||
|   unset %kick2 | ||||
|   unset %y | ||||
|   unset %vip | ||||
|   if ( %kickchan != $null ) { msg %kickchan 1,8 S|-|ADO\\'s 1,11 Command Kicker  is reset. Kick aborted due to master request!! | unset %kickchan } | ||||
| } | ||||
|  | ||||
| alias -l alrv { | ||||
|   msg $$1 1,8 S|-|ADO\\'s 1,11 Command Kicker  Be fair, $$2 ( %vip ). You had your voice already! | ||||
|   unset %vip | ||||
|   halt | ||||
| } | ||||
|  | ||||
| on @1:text:!kick *:#:{ | ||||
|   %kick = $2 | ||||
|   %kickchan = $chan | ||||
|   %y = 0 | ||||
|   if %kick == $me { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  $nick requests a kick for $me. Kick aborted. | ||||
|     goto Dontkick | ||||
|   } | ||||
|   if %kick isprotect { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  $nick requests a kick for %kick $+ . Kick aborted because %kick is in $me's protect list. | ||||
|     goto Dontkick | ||||
|   } | ||||
|   if %kick == RoboCop { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  $nick requested a kick for %kick $+ . Kick aborted because %kick is a protected name. | ||||
|     goto Dontkick | ||||
|   } | ||||
|   if %kick ison $chan { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  $nick requests a kick for %kick - 3 of you have to agree, just write YES | ||||
|     halt | ||||
|   } | ||||
|   msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  $nick requested a kick for a user not existing in this room. Kick aborted. | ||||
|   :Dontkick | ||||
|   unset %kick | ||||
|   unset %y | ||||
| } | ||||
|  | ||||
| on @1:text:YES:#:{ | ||||
|   %vip = $address($nick,2) | ||||
|   if (($nick != %kick) && (%kick != $null)) { | ||||
|     if ((%kick1 != $null) && (%kick1 == %vip)) alrv $chan $nick | ||||
|     elseif (%kick1 == $null) { set %kick1 %vip | goto conthere } | ||||
|      | ||||
|     if ((%kick2 != $null) && (%kick2 == %vip)) alrv $chan $nick | ||||
|     elseif (%kick2 == $null) { set %kick2 %vip | goto conthere } | ||||
|      | ||||
|     :conthere | ||||
|     %y = %y + 1 | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  Agreement No. %y by $nick ... | ||||
|     if %y == 3 { | ||||
|       msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  Kick agreed by 3 different users. Kicking %kick ... _.<2E><><EFBFBD>) | ||||
|       .kick $chan %kick Kicked by the 1,11 Command Kicker  plugin for 1,8 S|-|ADO\\'  | ||||
|       unset %kick | ||||
|       unset %kick1 | ||||
|       unset %kick2 | ||||
|       unset %kick3 | ||||
|       unset %kick4 | ||||
|       unset %y | ||||
|       unset %vip | ||||
|       unset %kickchan | ||||
|     } | ||||
|   } | ||||
|   elseif (%kick == $nick) msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  Sorry, $nick, but it wouldn't be fair to let you vote. | ||||
| } | ||||
|  | ||||
| on @1:text:NO:#:{ | ||||
|   if ((%kick != $null) && (%kick != $nick)) { | ||||
|     unset %y | ||||
|     unset %kick | ||||
|     unset %kick1 | ||||
|     unset %kick2 | ||||
|     unset %kickchan | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  Kick cancelled by $nick | ||||
|   } | ||||
|   elseif (%kick == $nick) msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  Sorry, $nick, but I cannot allow you to stop your death command. Life is unjust, eh? | ||||
| } | ||||
|  | ||||
| on @1:text:!kickme*:#:{ | ||||
|   msg $chan 1,8 S|-|ADO\\'s 1,11 Command Kicker  Kicking $nick due to stupidity ... | ||||
|   .kick $chan $nick Kicked by the 1,11 Command Kicker  plugin for 1,8 S|-|ADO\\'  | ||||
| } | ||||
							
								
								
									
										5
									
								
								Plugins/eXoCrypt.exo
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										5
									
								
								Plugins/eXoCrypt.exo
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,5 @@ | ||||
| Name eXocrypt | ||||
| Recipients all | ||||
| Signature !X! | ||||
| Coded <20><><EFBFBD>`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>橮庳<E6A9AE><E5BAB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>41 | ||||
| Plain !?.zyxwvutsrqponmlkjihgfedcba0987654321 | ||||
							
								
								
									
										121
									
								
								Plugins/eXoCrypt.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										121
									
								
								Plugins/eXoCrypt.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,121 @@ | ||||
| ; eXocrypt 2.0 Pro (08-12-1997) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; drastically extended by RoboCop of nOOb <Robo.Cop@gmx.net> | ||||
| ; based on EXOCRYPT by an unknown author | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: eXocrypt 2.0 Pro | ||||
| ;auth: RoboCop of nOOb | ||||
| ;loadonexit: ExoPurge | ||||
| ;loadonstart: ExoStart | ||||
| ; | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| alias ExoStart { | ||||
|   set %exodir $scriptdir | ||||
|   set %CrypFile %exodir $+ exocrypt.exo | ||||
|   set %S $read -sSignature %CrypFile | ||||
|   set %N $read -sName %CrypFile | ||||
|   set %R $read -sRecipients %CrypFile | ||||
|   set %P $read -sPlain %CrypFile | ||||
|   set %C $read -sCoded %CrypFile | ||||
|   if ( %S == $null ) { Method } | ||||
| } | ||||
|  | ||||
| menu channel { | ||||
|   SPI: eXocrypt | ||||
|   .Change CODE:Method | ||||
|   .Info about current CODE:MI | ||||
|   .Send crypted message:eXo | ||||
| } | ||||
|  | ||||
| alias ExoPurge { | ||||
|   unset %S | ||||
|   unset %N | ||||
|   unset %R | ||||
|   unset %P | ||||
|   unset %C | ||||
|   unset %exodir | ||||
|   unset %CrypFile   | ||||
| } | ||||
|  | ||||
| alias -l Method { | ||||
|   set %exofiles %exodir $+ *.exo | ||||
|   set %CrypFile $$dir="Select file with code for encryption" %exofiles | ||||
|   unset %exofiles | ||||
|   %S = $read -sSignature %CrypFile | ||||
|   %N = $read -sName %CrypFile | ||||
|   %R = $read -sRecipients %CrypFile | ||||
|   %P = $read -sPlain %CrypFile | ||||
|   %C = $read -sCoded %CrypFile | ||||
|   echo -a 1,8 You selected 1,9 %N 1,8 encryption 1,9( $+ %S $+ )1,8. Recipients:1,9 %R 1,8. | ||||
| } | ||||
|  | ||||
| alias -l MI { | ||||
|   echo -s 1,8 S|-|ADO\\'s 1,7 eXocrypt  0,4 Encryption method  | ||||
|   echo -s 8 Filename:  $nopath( %CrypFile )  --- 8 Signature:  %S  | ||||
|   echo -s 8 Name:  %N  --- 8 Recipients:  %R  | ||||
|   echo -s 8 Plain:  %P  | ||||
|   echo -s 8 Code:  %C  | ||||
| } | ||||
|  | ||||
| alias eXo { | ||||
|   set %eXo $$?1="Enter Text To eXoCrYpT" *2 | ||||
|   %char = 1 | ||||
|   :DoItAgain | ||||
|   %eXo = $replace(%eXo, $mid(%P,%char,1), $mid(%C,%char,1)) | ||||
|   %char = %char + 1 | ||||
|   if %char <= 39 goto DoItAgain | ||||
|   unset %char | ||||
|   say %S %eXo | ||||
|   echo 4 -a < $+ %N coded to %R $+ > $$1- | ||||
|   unset %eXo | ||||
| } | ||||
|  | ||||
| alias -l deeXo { | ||||
|   if ( %DCrypFile == $null ) { return } | ||||
|   %DN = $read -sName %DCrypFile | ||||
|   %DR = $read -sRecipients %DCrypFile | ||||
|   %DP = $read -sPlain %DCrypFile | ||||
|   %DC = $read -sCoded %DCrypFile | ||||
|   %char = 1 | ||||
|   :DoItAgain | ||||
|   %deeXo = $replace(%deeXo, $mid(%DC,%char,1), $mid(%DP,%char,1)) | ||||
|   %char = %char + 1 | ||||
|   if %char <= 39 goto DoItAgain | ||||
|   unset %char | ||||
|   echo 4 -a < $+ %DN coded from %exonick $+ > %deeXo | ||||
|   unset %DN | ||||
|   unset %DR | ||||
|   unset %DP | ||||
|   unset %DC | ||||
| } | ||||
|  | ||||
| ON 1:TEXT:*:*:{ | ||||
|   set %Sign $parm1 | ||||
|   set %deeXo $parm2* | ||||
|   set %eXonick $nick | ||||
|   set %exofilect 1 | ||||
|   :UseNextFile | ||||
|   %DCrypFile = $findfile(%exodir,*.exo,%exofilect)  | ||||
|   %CS = $read -sSignature %DCrypFile | ||||
|   if ( %Sign == %CS ) { | ||||
|     deeXo | ||||
|     goto EndOfThis | ||||
|   } | ||||
|   inc %exofilect | ||||
|   if ( $findfile(%exodir,*.exo,%exofilect) != $null ) { goto UseNextfile } | ||||
|   :EndOfThis | ||||
|   unset %try | ||||
|   unset %CS | ||||
|   unset %Sign | ||||
|   unset %exofilect | ||||
|   unset %deeXo | ||||
|   unset %eXonick | ||||
|   unset %DCrypFile | ||||
| } | ||||
|  | ||||
| ON 1:CHAT:*:{ | ||||
|   set %deeXo $parm2* | ||||
|   set %eXonick $nick | ||||
|   deeXo | ||||
| } | ||||
							
								
								
									
										47
									
								
								Plugins/lamemetr.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										47
									
								
								Plugins/lamemetr.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,47 @@ | ||||
| ; Lame-O-Meter Plugin | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by RoboCop of nOOb <Robo.Cop@gmx.net> | ||||
| ; | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: Lame-O-Meter Plugin | ||||
| ;auth: RoboCop of nOOb | ||||
| ; | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| menu nicklist { | ||||
|   SPI: Lame-O-Meter | ||||
|   .Lamer type 1: lame1 $?="Enter lame-grade (10 = 100%):" $$1 | ||||
|   .Lamer type 2: lame2 $?="Enter lame-grade (10 = 100%):" $$1 | ||||
| } | ||||
|  | ||||
| alias -l lame1 { | ||||
|   set %z 0 | ||||
|   unset %ls | ||||
|   unset %rs | ||||
|   :Addanother | ||||
|   if ( %z < $$1 ) { %z = %z + 1 | %ls = %ls $+ _ | goto Addanother } | ||||
|   :Addan2 | ||||
|   if ( %z < 10 ) { %z = %z + 1 | %rs = %rs $+ _ | goto Addan2 } | ||||
|   msg $chan 0,12Lame-O-Meter: 7,12 $$2 is 9,9 $+ %ls $+ 3,3 $+ %rs $+ 9,12 $$1 $+ 0 % $+ 7 lame. | ||||
|   unset %z | ||||
|   unset %ls | ||||
|   unset %rs | ||||
| } | ||||
|  | ||||
| alias -l lame2 { | ||||
|   %tx = Lame-O-Meter: $$2 is $$1 $+ 0 % lame. | ||||
|   %lt = $len( %tx ) * 10 | ||||
|   %lp = %lt * $$1 | ||||
|   %lp = %lp / 100 | ||||
|   %rp = $len( %tx ) | ||||
|   %rp = %rp - $int( %lp ) | ||||
|   %t1 = $left( %tx , $int( %lp ) ) | ||||
|   %t2 = $right( %tx , %rp ) | ||||
|   msg $chan 1,8 $+ %t1 $+ 8,1 $+ %t2 $+  | ||||
|   unset %tx | ||||
|   unset %lt | ||||
|   unset %lp | ||||
|   unset %rp | ||||
|   unset %t1 | ||||
|   unset %t2 | ||||
| } | ||||
							
								
								
									
										5
									
								
								Plugins/loops.exo
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										5
									
								
								Plugins/loops.exo
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,5 @@ | ||||
| Name loops-O-Crypt | ||||
| Recipients loops | ||||
| Signature !L! | ||||
| Coded <20><><EFBFBD>`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>橮庳<E6A9AE><E5BAB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>41 | ||||
| Plain !?.zyxwvutsrqponmlkjihgfedcba0987654321 | ||||
							
								
								
									
										19
									
								
								Plugins/pager.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										19
									
								
								Plugins/pager.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,19 @@ | ||||
| ; S|-|ADO\\' Pager v1.0 (07-06-1998) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by RoboCop of nOOb <Robo.Cop@gmx.net> | ||||
| ; | ||||
| ; Provides a pager for messages. | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: S|-|ADO\\' Pager 1.0 | ||||
| ;auth: RoboCop of nOOb | ||||
| ;loadonexit: sppurge | ||||
| ;loadonstart: spstartup | ||||
| ; | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| alias spstartup { | ||||
|    | ||||
| } | ||||
|  | ||||
| alias sppurge { | ||||
| } | ||||
							
								
								
									
										47
									
								
								Plugins/repelim.spi
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										47
									
								
								Plugins/repelim.spi
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,47 @@ | ||||
| ; Repeat Eliminator v1.0 (08-01-1997) | ||||
| ; Plugin for S|-|ADO\\' | ||||
| ; developed by RoboCop (irc.germany.net) | ||||
| ; This script only works if you got the OP (@) status! | ||||
| ;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=- | ||||
| ;name: Repeat Eliminator 1.0 | ||||
| ;auth: RoboCop of nOOb | ||||
| ;loadonexit: repurgevars | ||||
| ;  | ||||
| ;-=-= END SHADOW PLUGIN DEFINITION =-=- | ||||
|  | ||||
| menu channel { | ||||
|   SPI: Repeat Eliminator (@!) | ||||
|   .Reset: repurgevars | ||||
| } | ||||
|  | ||||
| alias repurgevars { | ||||
|   unset %text | ||||
|   unset %rnick | ||||
|   unset %t | ||||
| } | ||||
|  | ||||
| on @1:text:*:#:{ | ||||
|   if (( $nick isprotect ) || ( $nick == RoboCop )) halt | ||||
|   if ( $1- != %text ) { | ||||
|     set %text $1- | ||||
|     set %rnick $nick | ||||
|     set %t 0 | ||||
|     halt | ||||
|   } | ||||
|   if (( $1- == %text ) && ( %rnick == $nick ) && ( %t == 0 )) { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,8 Repeat Eliminator  9,9__ Hey $nick $+ ! Don't repeat it. We have understood. | ||||
|     inc %t | ||||
|     halt | ||||
|   } | ||||
|   if (( $1- == %text ) && ( %rnick == $nick ) && ( %t == 1 )) { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,8 Repeat Eliminator  8,8__ $nick $+ ! This is your 2nd warning! Once again, and I kick ya ass! | ||||
|     inc %t | ||||
|     halt | ||||
|   } | ||||
|   if (( $1- == %text ) && ( %rnick == $nick ) && ( %t == 2 )) { | ||||
|     msg $chan 1,8 S|-|ADO\\'s 1,8 Repeat Eliminator  4,4__ I warned you, $nick! Kicking $nick .... _.<2E><><EFBFBD>) | ||||
|     kick $chan $nick Kicked by the 1,8 Repeat Eliminator  plugin for 1,8 S|-|ADO\\'  | ||||
|     unset %t | ||||
|     unset %text | ||||
|   } | ||||
| } | ||||
							
								
								
									
										1091
									
								
								shadow.irc
									
									
									
									
									
								
							
							
						
						
									
										1091
									
								
								shadow.irc
									
									
									
									
									
								
							
										
											
												File diff suppressed because it is too large
												Load Diff
											
										
									
								
							
							
								
								
									
										72
									
								
								startup.txt
									
									
									
									
									
								
							
							
						
						
									
										72
									
								
								startup.txt
									
									
									
									
									
								
							| @@ -1,72 +0,0 @@ | ||||
| /titlebar S | ||||
| /titlebar S| | ||||
| /titlebar S|= | ||||
| /titlebar S|=| | ||||
| /titlebar S|=|@ | ||||
| /titlebar S|=|@| | ||||
| /titlebar S|=|@|} | ||||
| /titlebar S|=|@|}0 | ||||
| /titlebar S|=|@|}0\ | ||||
| /titlebar S|=|@|}0\\ | ||||
| /titlebar S|=|@|}0\\<5C> | ||||
| /titlebar S|=|@|}0\\ | ||||
| /titlebar S|=|@|}0\ | ||||
| /titlebar S|=|@|}0 | ||||
| /titlebar S|=|@|} | ||||
| /titlebar S|=|@| | ||||
| /titlebar S|=|@ | ||||
| /titlebar S|=| | ||||
| /titlebar S|= | ||||
| /titlebar S| | ||||
| /titlebar S | ||||
| /titlebar | ||||
| /titlebar S| | ||||
| /titlebar S|= | ||||
| /titlebar S|=| | ||||
| /titlebar S|=|@ | ||||
| /titlebar S|=|@| | ||||
| /titlebar S|=|@|} | ||||
| /titlebar S|=|@|}0 | ||||
| /titlebar S|=|@|}0\ | ||||
| /titlebar S|=|@|}0\\ | ||||
| /titlebar S|=|@|}0\\<5C> S | ||||
| /titlebar S|=|@|}0\\ SC | ||||
| /titlebar S|=|@|}0\ SCR | ||||
| /titlebar S|=|@|}0 SCRI | ||||
| /titlebar S|=|@|} SCRIP | ||||
| /titlebar S|=|@| SCRIPT | ||||
| /titlebar S|=|@|} SCRIP | ||||
| /titlebar S|=|@|}0 SCRI | ||||
| /titlebar S|=|@|}0\ SCR | ||||
| /titlebar S|=|@|}0\\ SC | ||||
| /titlebar S|=|@|}0\\<5C> S | ||||
| /titlebar S|=|@|}0\\<5C> | ||||
| /titlebar S|=|@|}0\\ | ||||
| /titlebar S|=|@|}0\ | ||||
| /titlebar S|=|@|}0 | ||||
| /titlebar S|=|@|} | ||||
| /titlebar S|=|@| | ||||
| /titlebar S|=|@ | ||||
| /titlebar S|=| | ||||
| /titlebar S|= | ||||
| /titlebar S| | ||||
| /titlebar S | ||||
| /titlebar | ||||
| /titlebar S|=|@|}0\\<5C>__________S|=|@|}0\\<5C>___________ | ||||
| /titlebar ___________S|=|@|}0\\<5C>__________S|=|@|}0\\<5C> | ||||
| /titlebar S|=|@|}0\\<5C>__________S|=|@|}0\\<5C>___________ | ||||
| /titlebar ___________S|=|@|}0\\<5C>__________S|=|@|}0\\<5C> | ||||
| /titlebar S|=|@|}0\\<5C>__________S|=|@|}0\\<5C>___________ | ||||
| /titlebar ___________S|=|@|}0\\<5C>__________S|=|@|}0\\<5C> | ||||
| /titlebar S|=|@|}0\\<5C>__________S|=|@|}0\\<5C>___________ | ||||
| /titlebar ___________S|=|@|}0\\<5C>__________S|=|@|}0\\<5C> | ||||
| /titlebar | ||||
| /titlebar ___________ Script __ Snowman ___ Robocop | ||||
| /titlebar S|=|@|}0\\<5C> ______ by _______ and _______ | ||||
| /titlebar ___________ Script __ Snowman ___ Robocop | ||||
| /titlebar S|=|@|}0\\<5C> ______ by _______ and _______ | ||||
| /titlebar ___________ Script __ Snowman ___ Robocop | ||||
| /titlebar S|=|@|}0\\<5C> Script by Snowman and Robocop | ||||
| /titlebar S|=|@|}0\\<5C> Your on $server it is $time -={Waiting for lag Info}=-  | ||||
|  | ||||
|  | ||||
		Reference in New Issue
	
	Block a user