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
|
||||||
|
}
|
||||||
|
}
|
||||||
1079
shadow.irc
1079
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