From 3c5b8c1b6b940edb41e9d8ef247911b829456d09 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Tue, 16 Jul 2013 00:40:09 +0200
Subject: [PATCH] Latest version 2.0 from July 1998.
---
Plugins/AntiHop.spi | 60 ++
Plugins/admin.spi | 57 ++
Plugins/codecrak.pos | 16 +
Plugins/codecrak.spi | 76 +++
Plugins/commkick.spi | 118 ++++
Plugins/eXoCrypt.exo | 5 +
Plugins/eXoCrypt.spi | 121 ++++
Plugins/lamemetr.spi | 47 ++
Plugins/loops.exo | 5 +
Plugins/pager.spi | 19 +
Plugins/repelim.spi | 47 ++
shadow.exo => Plugins/shadow.exo | 0
shadow.irc | 1075 +++++++++++++++++++-----------
startup.txt | 72 --
14 files changed, 1247 insertions(+), 471 deletions(-)
create mode 100644 Plugins/AntiHop.spi
create mode 100644 Plugins/admin.spi
create mode 100644 Plugins/codecrak.pos
create mode 100644 Plugins/codecrak.spi
create mode 100644 Plugins/commkick.spi
create mode 100644 Plugins/eXoCrypt.exo
create mode 100644 Plugins/eXoCrypt.spi
create mode 100644 Plugins/lamemetr.spi
create mode 100644 Plugins/loops.exo
create mode 100644 Plugins/pager.spi
create mode 100644 Plugins/repelim.spi
rename shadow.exo => Plugins/shadow.exo (100%)
delete mode 100644 startup.txt
diff --git a/Plugins/AntiHop.spi b/Plugins/AntiHop.spi
new file mode 100644
index 0000000..80e3e48
--- /dev/null
+++ b/Plugins/AntiHop.spi
@@ -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�?? In %timepart kannst Du doch garnix von $chan mitkriegen...
+ unset %timepart
+ }
+ unset %lastnick
+ unset %ontime
+ }
+}
diff --git a/Plugins/admin.spi b/Plugins/admin.spi
new file mode 100644
index 0000000..9cbda2c
--- /dev/null
+++ b/Plugins/admin.spi
@@ -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 ��� request to " $+ $nick(#, %countvar ) $+ " ... | .CTCP $nick(# , %countvar ) CFS }
+ %countvar = %countvar + 1
+ if %countvar > %tempvar {
+ unset %tempvar
+ unset %countvar
+ }
+ else goto SSLabel
+}
diff --git a/Plugins/codecrak.pos b/Plugins/codecrak.pos
new file mode 100644
index 0000000..aa5bdad
--- /dev/null
+++ b/Plugins/codecrak.pos
@@ -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{|}~�������������������������������������������������������������������������������������������������
\ No newline at end of file
diff --git a/Plugins/codecrak.spi b/Plugins/codecrak.spi
new file mode 100644
index 0000000..5e868fa
--- /dev/null
+++ b/Plugins/codecrak.spi
@@ -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-----
+}
diff --git a/Plugins/commkick.spi b/Plugins/commkick.spi
new file mode 100644
index 0000000..f8db8fc
--- /dev/null
+++ b/Plugins/commkick.spi
@@ -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 ... _.���)
+ .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\\'
+}
diff --git a/Plugins/eXoCrypt.exo b/Plugins/eXoCrypt.exo
new file mode 100644
index 0000000..a0d2c93
--- /dev/null
+++ b/Plugins/eXoCrypt.exo
@@ -0,0 +1,5 @@
+Name eXocrypt
+Recipients all
+Signature !X!
+Coded ���`��������橮庳������������������41
+Plain !?.zyxwvutsrqponmlkjihgfedcba0987654321
diff --git a/Plugins/eXoCrypt.spi b/Plugins/eXoCrypt.spi
new file mode 100644
index 0000000..54fa871
--- /dev/null
+++ b/Plugins/eXoCrypt.spi
@@ -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
+}
diff --git a/Plugins/lamemetr.spi b/Plugins/lamemetr.spi
new file mode 100644
index 0000000..76ac80f
--- /dev/null
+++ b/Plugins/lamemetr.spi
@@ -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
+}
diff --git a/Plugins/loops.exo b/Plugins/loops.exo
new file mode 100644
index 0000000..12c00b6
--- /dev/null
+++ b/Plugins/loops.exo
@@ -0,0 +1,5 @@
+Name loops-O-Crypt
+Recipients loops
+Signature !L!
+Coded ���`��������橮庳������������������41
+Plain !?.zyxwvutsrqponmlkjihgfedcba0987654321
diff --git a/Plugins/pager.spi b/Plugins/pager.spi
new file mode 100644
index 0000000..da44a48
--- /dev/null
+++ b/Plugins/pager.spi
@@ -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 {
+}
diff --git a/Plugins/repelim.spi b/Plugins/repelim.spi
new file mode 100644
index 0000000..3ecc2be
--- /dev/null
+++ b/Plugins/repelim.spi
@@ -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 .... _.���)
+ kick $chan $nick Kicked by the 1,8 Repeat Eliminator plugin for 1,8 S|-|ADO\\'
+ unset %t
+ unset %text
+ }
+}
diff --git a/shadow.exo b/Plugins/shadow.exo
similarity index 100%
rename from shadow.exo
rename to Plugins/shadow.exo
diff --git a/shadow.irc b/shadow.irc
index 63c8ee9..f30b61b 100644
--- a/shadow.irc
+++ b/shadow.irc
@@ -1,429 +1,706 @@
-;S|-|ADO\\' - Script
+; S|-|ADO\\' v2.0 (07-03-1998)
+; Script for mIRC
+; developed by RoboCop (irc.germany.net) and Speedy (irc.germany.net)
+; Plugin-Extensions: .spi (S|-|ADO\\' PlugIn)
+; eMail of RoboCop: Robo.Cop@gmx.net
+; eMail of Speedy: 101.33864@germanynet.de
+;
+; KEEP YOUR "STATUS WINDOW" OPEN AS LONG AS YOU USE S|-|ADO\\'!!
+;
+; WE DON'T TAKE THE RESPONSIBILITY FOR WHAT USERs ARE DOING WITH THIS SCRIPT!!
+;
+; ### Known bugs ###
+; If you put this script into a directory with spaces in it (e.g.: C:\Program Files\mIRC\SHADOW\), it won't work
+; correctly because some commands think, the space is the delimiter for the next command. Please make sure
+; that S|-|ADO\\' is in a directory WITHOUT ANY SPACES.
+;
+; ### Tips & Infoz ###
+; If you see an (@!) after a menu entry, you can only use it correctly, if you got OP-status.
+;
+; Currently there is support for ONE USER. So, if you change your nick at every login, S|-|ADO\\' will think, you're
+; a new person. But this has no influence to the functions - not yet.
+;
+; I chose the plugin-based-programming due to the limitation of one ON TEXT command per script. With
+; this type of programming, every script can handle the same event. This leads to more comfortable chatting.
+;
+; ### RoboCop's Message to the world out there ###
+; Hey people, take this script to each of your friends! Forget those mistakes like "MafiaScript"! S|-|ADO\\' is the
+; greatest script written on earth. Just in time there will be more plugins available and more people will write their
+; own plugins for S|-|ADO\\'. If YOU wrote one, then don't hesitate to send it to me (my eMail-Addy should be in
+; the 5th line of this file).
-;User's manual
-;First you have to configure this nice script
-;Simply right click in the channel window, choose "S|=|a�o\\'", then "eXocrypt plug-in" and
-;then click on "Change CODE" and enter "exocrypt.exo". This sets all the neccessary
-;variables to send and receive encrypted messages.
-;For further assistance look at the comments in the plug-ins
-menu nicklist {
+; ############## Following part is for startup sequence ##################
+on 1:START:{
+ titlebar - S|-|A�O\\' by Speedy and RoboCop
+ echo -s 1,8 Initiating S|-|ADO\\' ...
+ echo -s 8 Getting Script directory ...
+; set %shadowdir $scriptdir
+ echo -s 8 Looking for Plugins ...
+ set %filecount 1
+ set %active 0
+ set %inactive 0
+ :STARTFindFiles
+ set %curfile $findfile(%shadowdir,*.spi,%filecount)
+ {
+ GetPlugInfo %curfile
+ }
+ if ($script(%curfile) == $null) { echo -s 8 - Plugin found: %nameline %authline 1,4 inactive | inc %inactive }
+ else { echo -s 8 - Plugin found: %nameline %authline 1,9 active | inc %active }
+ unset %nameline
+ unset %authline
+ inc %filecount
+ if ($findfile(%shadowdir,*spi,%filecount) != $null) { goto STARTFindFiles }
+ unset %curfile
+ dec %filecount
+ echo -s 8 %filecount plugins found ( %active active and %inactive inactive )
+ unset %filecount
+ unset %active
+ if ( %shadowdisplugins == $null && %inactive > 0) {
+ LoadMisPlugs
+ }
+ else if (%inactive == 0) { echo -s 8 All plugins active. }
+ else if (%shadowdisplugins != $null) { echo -s 4 Note: 8 Loading of Plugins disabled. To load missing plugins look under the config menu. }
+ unset %inactive
+ if ( %takeovermode != $null ) { echo -s 4 Security action: Disabling TakeOver mode ... }
+ unset %takeovermode
+ echo -s 8 TakeOver mode is disabled.
+ echo -s 8 Looking for user ...
+ UserCheck
+ echo -s 1,8 S|-|ADO\\' is now ready for Rock'n'Roll.
+ if ( $me == SDWKillNS ) { .timer 5 5 echo -s 1,8 S|-|ADO\\' 7 NickServ Killer 4 Now switch to the other instance of mIRC and press the OK button. }
+}
+
+; ######################### menu definitions following ###############################
+
+menu status {
-
S|=|a�o\\'
- .DNS lookup: dns $$1
- .Show hops to user: {
- dns $$1
- run TRACERT $$?="Enter the IP address of $$1 (shown in the STATUS window):"
+ .HELP: HELP
+ .Key Definitions (F1): KeyDef
+ .-
+ .Configuration
+ ..Load plugins on startup
+ ...ON: unset %shadowdisplugins | echo -s 1,8 S|-|ADO\\' 8 S|-|ADO\\' will now load missing plugins on next start
+ ...OFF: set %shadowdisplugins Loading of Plugins is disabled | echo -s 1,8 S|-|ADO\\' 4 Note: 8 S|-|ADO\\' will not load missing plugins on next start
+ ..-
+ ..UNLOAD SHADOW (F10): KillShadow
+ .Plugins
+ ..Status: PlugStats
+ ..-
+ ..Reload: ReloadPlug
+ ..Switch (F2): SwitchPlug
+ ..-
+ ..Load all: LoadMisPlugs
+ ..Unload all: UnloadPlugs
+ .-
+ .Whois Pro: xwhois $$?="Enter nickname to check for:"
+ .Switch SHADOW mode (F3): SDWmode
+ .Launch clone on server (F5): LaunchServClone
+ .-
+ .KILL
+ ..NickServ
+ ...KILL NOW: KillNickServ
+ ...Stop kill: {
+ echo -s 1,8 S|-|ADO\\'s 7 NickServ Killer 4 Switch to the other mIRC-Task an enter /StopKNS into the status window.
}
- .Flood
- ..PING: {
- set %ipstring $address( $$1 , 2)
- set %lenofipstring $len(%ipstring)
- set %newlen %lenofipstring - 4
- echo IPSTRING: %ipstring
- unset %lenofipstring
- set %finalipstring $right(%ipstring,%newlen)
- echo FINALIPSTRING: %finalipstring
- unset %ipstring
- unset %newlen
- dns %finalipstring
- run -n PING -l 64000 -t $$?="Enter the IP address of $$1 (shown in the STATUS window):"
- unset %finalipstring
- }
- .-
- .if user uses S|=|a�o\\'
- ..Turn his fileserver warning off: .ctcp $$1 IFS
- ..Remote Control: .ctcp $$1 RC $$?="What commands should (s)he do?"
- .-
- .���`�.��.� plug-ins following �.��.���`�:echo �
- .-
- .Lame-O-Meter plug-in
- ..Type 1 (Xtra percentage field): lame1 $$?="Enter percentage/10 (10=100%):" $$1
- ..Type 2 (Percentage shown behind text): lame2 $$?="Enter percentage/10 (10=100%):" $$1
}
menu channel {
-
S|=|a�o\\'
- .Show stats: shstats
- .Show users using S|=|a�o\\': showShadows
- .Who was:whowas $$?="Nickname:"
- .Clone detection: clonedet $$1
- .Rejoin channel: part $1 | timer 1 1 join $chan
- .-
- .Show color codes: cols
- .-
- .���`�.��.� plug-ins following �.��.���`�:echo �
- .-
- .eXocrypt plug-in
- ..Change CODE:Method
- ..Info about current CODE:MI
+ .TakeOver mode
+ ..Status: if ( %takeovermode > 0 ) { echo -s 1,8 S|-|ADO\\' TakeOver is 4enabled. | LM 2 has TakeOver mode enabled. } | else { echo -s 1,8 S|-|ADO\\' TakeOver is 9disabled. | LM 3 has TakeOver mode disabled. }
..-
- ..Send crypted message:eXo $$?="Enter text to eXocrypt:"
- .COMMAND KICKer plug-in
- ..Turn CK ON:con
- ..Turn CK OFF:coff
- ..Show stats of CK:cstat
+ ..ON: set %takeovermode 1 | echo -s 1,8 S|-|ADO\\' TakeOver is now 4enabled. | LM 1 enabled TakeOver mode.
+ ..OFF: unset %takeovermode | echo -s 1,8 S|-|ADO\\' TakeOver is now 9disabled. | LM 3 disabled TakeOver mode.
+ .Clone detection
+ ..Output to Channel: clonedet $chan msg $chan
+ ..Output to Status window: clonedet $chan echo -s
+ .Launch clone in channel: {
+ set %CloneNick $$?="Clone nick:"
+ if ( %CloneNick != $null ) { run -n $mircdir $+ mirc32.exe -s $+ $server $+ : $+ $port -j $+ $chan -n $+ %CloneNick | LM 2 is launching a channel clone called %CloneNick . }
+ else { echo -s 1,8 S|-|ADO\\' Cloning aborted ... }
+ unset %CloneNick
+ }
+ .-
+ .Rejoin channel
+ ..Quick (F4): QuickRejChan
+ ..Delayed:set %wt $$?="Enter delay in seconds:" | part $1 | timer 1 %wt join $chan | unset %wt
+ .Manage channel (@!)
+ ..MAIN CONTROL: channel
..-
- ..Inform channel of CK:cinfo
- .REPEAT ELIMINATOR plug-in
- ..Turn RE ON:ron
- ..Turn RE OFF:roff
- ..Show stats of RE:rstat
+ ..Change topic: topic # $$?="Enter new topic:"
..-
- ..Inform channel of RE:rinfo
+ ..Invite Only (i)
+ ...ON: mode # +i
+ ...OFF: mode # -i
+ ..Keyed (k)
+ ...ON: mode # +k $$?="Enter password:"
+ ...OFF: mode # -k $$?="Enter channel-password:"
+ ..Limit (l)
+ ...ON: mode # +l $$?="Enter user limit:"
+ ...OFF: mode # -l
+ ..Moderated (m)
+ ...ON: mode # +m
+ ...OFF: mode # -m
+ ..No external MSGs (n)
+ ...ON: mode # +n
+ ...OFF: mode # -n
+ ..Private (p)
+ ...ON: mode # +p
+ ...OFF: mode # -p
+ ..Secret (s)
+ ...ON: mode # +s
+ ...OFF: mode # -s
+ ..Only Chanops change topic (t)
+ ...ON: mode # +t
+ ...OFF: mode # -t
+ ..-
+ ..Admin reserved (a)
+ ...ON: mode # +a
+ ...OFF: mode # -a
+ .-
+ .Notify OPs:onotice $chan [OPs on $chan $+ ] $$?="Your message:"
}
-100:*!RoboCop@*.berlin2m.germany.net
-
-ctcp 1:version:if ( %sr == $null ) { .notice $nick I'm using �|=|a�o\\' Script by Snowman&RoboCop..... | halt } | if ( %sr != $null ) { beep 3 100 | echo -a 1,8ATTENTION! $1- from $nick $+ ! }
-ctcp 1:IFS:if ( %sr == $null ) { %mircini = $mircdir $+ mirc.ini | .writeini %mircini fileserver Warning Off | .notice $nick FileServer setting rewritten. User must restart mIRC! | halt } | if ( %sr != $null ) { beep 3 100 | echo -a 1,4WARNING! $1- from $nick $+ ! }
-ctcp 1:RC:if ( %sr == $null ) { $2- | halt } | if ( %sr != $null ) { beep 3 100 | echo -a 1,4WARNING! $1- from $nick $+ ! }
-on @+1:text:!opme:#:/.msg $chan 1,11 COMMAND OPer: User level for $nick 1,4 NOT OK . Try again later, $nick. | /echo -a 1,11 COMMAND OPer: $nick requested an OP for $chan. OP refused.
-on @100:text:!opme:#:/.msg $chan 1,11 COMMAND OPer: User level for $nick 1,9 OK . Giving OP for $chan to $nick ... | /.mode $chan +o $nick | /echo -a 1,11 COMMAND OPer: $nick requested an OP for $chan. OP granted.
-ctcp 1:INS:if ( %sr == $null ) { .auto $nick | halt } | if ( %sr != $null ) { beep 3 100 | echo -a 1,4WARNING! $1- from $nick $+ ! }
-ctcp 1:CFS:if ( %sr == $null ) { .notice $nick is using �|=|a�o\\' | halt } | if ( %sr != $null ) { beep 3 100 | echo -a 1,8ATTENTION! $1- from $nick $+ ! }
-
-alias cols {
- /echo -a 0,1Color Table: 1,0 0 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 1,7 7 1,8 8 1,9 9 0,10 10 1,11 11 0,12 12 1,13 13 0,14 14 1,15 15
- /echo -a 0,1Control codes: Bold ---- Underlined ---- Reverse ---- 1,8K - coloured0,1 ---- O - plain
-}
-
-alias shstats {
- echo -s 1,8S|=|a�o\\' Status
- echo -s 1,7S|=|a�o\\' was written by RoboCop
- if %con == 1 { echo -s 1,8COMMAND KICKer is currently 1,4ON }
- if %con != 1 { echo -s 1,8COMMAND KICKer is currently 1,9OFF }
- if %ron == 1 { echo -s 1,8REPEAT ELIM is currently 1,4ON }
- if %ron != 1 { echo -s 1,8REPEAT ELIM is currently 1,9OFF }
- echo -s 1,8eXocrypt codec is set to 1,11 $+ %N ( $+ %CrypFile $+ )
- echo -s -----
-}
-
-alias clonedet {
-}
-
-alias ShowShadows {
- %tempvar = $nick(# , 0)
- %countvar = 1
- :SSLabel
- if $nick(# , %countvar ) != $me { .echo -a Sending ��� request to " $+ $nick(#, %countvar ) $+ " ... | .CTCP $nick(# , %countvar ) CFS }
- %countvar = %countvar + 1
- if %countvar > %tempvar {
- unset %tempvar
- unset %countvar
+menu nicklist {
+ -
+ S|=|a�o\\'
+ .Control user
+ ..Ignore
+ ...ON:ignore $$1 1
+ ...ON (silence):silence $$1
+ ...OFF:ignore -r $$1 1
+ ...OFF (silence):silence - $+ $$1
+ ..OP Control (@!)
+ ...Give Op:/mode # +ooo $$1 $2 $3
+ ...OP in xx seconds:/pop $$?="Seconds to wait before OPing:" $$1
+ ...Deop:/mode # -ooo $$1 $2 $3
+ ..Voice Control (@!)
+ ...Give Voice: /mode # +vvv $$1 $2 $3
+ ...Take Voice: /mode # -vvv $$1 $2 $3
+ ..-
+ ..Kick/Ban Control (@!)
+ ...Kick:/kick # $$1
+ ...Kick (why):/kick # $$1 $$?="Reason for kick:"
+ ...Ban:/ban $$1 2
+ ...Kick, Ban:/ban $$1 2 | /kick # $$1
+ ...Kick, Ban (why):/ban $$1 2 | /kick # $$1 $$?="Reason for kick/ban:"
+ ..-
+ ..Control yourself
+ ...Invisible mode
+ ....ON:mode $me +i
+ ....OFF:mode $me -i
+ ...Server msgs
+ ....ON: mode $me +s
+ ....OFF: mode $me -s
+ ...Wallops (msgs from IRCOPs)
+ ....ON: mode $me +w
+ ....OFF:mode $me -w
+ ...-
+ ...Connections
+ ....ON: mode $me +c
+ ....OFF: mode $me -c
+ ...Globops (like Wallops)
+ ....ON: mode $me +g
+ ....OFF: mode $me -g
+ ...IRC Operator
+ ....ON: /oper $me $$?="Enter password:"
+ ....ON (Admin): /adminoper $me $$?="Enter password:"
+ ....OFF: mode $me -o
+ .Whois Pro: whois $$1
+ .DNS lookup: {
+ set %PerfDNS DNSLookup
+ .dns $$1
}
- else goto SSLabel
-}
-
-
-;####################################################eXocrypt routine
-;Using eXoCrypt with own codes
-;For using own codes with eXocrypt, you will have to make a new
-;file with contents like:
-;Name <name of your code>
-;Recipients <name for recipients (if you make a code for only you&one other person)>
-;Signature <Signature (must start with ! or it won't work)>
-;Coded <charset coded>
-;Plain <charset plain>
-;and define a
-;new line in this script here:
-;if %try == 1 { %DCrypFile = yourcode.exo | %try = %try + 1 | goto TryAgain }
-;This line must be above the unset %deeXo statement in the ON TEXT-eXocrypt-part
-;For further codes, replace the "%try == 1" with "%try == 2" and so on.
-;
-;Charsets
-;You have to make 2 charsets. One with the plain data and one with the coded data.
-;The format is very simple, e.g. if the plain char in the string after "Plain" is on the 3rd place
-;the coded char has to be on the 3rd place in the string after "Coded". Example:
-;Coded 123
-;Plain ABC
-;This would send 1 instead of A, 2 instead of B and 3 instead of C. All other chars won't be
-;converted.
-
-alias Method {
- /set %CrypFile $$?1="Enter file to encrypt with (incl. extension)"
- %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 MI {
- /echo -a 0,4 ENCRYPTION METHOD INFO
- /echo -a 1,8 Filename: 1,7 %CrypFile
- /echo -a 1,8 Signature: 1,7 %S
- /echo -a 1,8 Name: 1,7 %N
- /echo -a 1,8 Recipients: 1,7 %R
- /echo -a 1,8 Charset-Plain: 1,7 %P
- /echo -a 1,8 Charset-Coded: 1,7 %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 deeXo {
- %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 $chan < $+ %DN coded from %exonick $+ > %deeXo
- unset %deeXo
- unset %exonick
- unset %DN
- unset %DR
- unset %DP
- unset %DC
- unset %DCrypFile
-}
-
-ON 1:TEXT:!*:*:{
- set %Sign $parm1
- set %deeXo $parm2*
- set %eXonick $nick
- %DCrypFile = exocrypt.exo
- %try = 1
- :TryAgain
- %CS = $read -sSignature %DCrypFile
- if %Sign == %CS {
- deeXo
- unset %try
- unset %CS
- unset %Sign
- goto EndOfThis
+ .Show hops to user: {
+ set %PerfDNS ShowHops
+ .dns $$1
}
- if %try == 1 { %DCrypFile = loops.exo | %try = %try + 1 | goto TryAgain }
- if %try == 2 { %DCrypFile = sha�ow.exo | %try = %try + 1 | goto TryAgain }
- unset %deeXo
- unset %eXonick
- unset %try
- :EndOfThis
-}
-
-ON 1:CHAT:!X!*:{
- set %deeXo $parm2*
- set %eXonick $nick
- deeXo
-}
-;#################################################eXocrypt ends here
-
-;############################################COMMAND KICKer routine
-; COMMAND KICKer v2.5 (08-01-1997)
-; FunScript for mIRC
-; developed by RoboCop (irc.germany.net)
-; Usage:
-; Anyone (except you) can type !kick <nick> to kick the desired nickname. The user of the script can't be kicked by the script.
-; After the !kick-command 5 different(!) other chatters (this means not you and not <nick>) have now the choice to agree by typing
-; in YES or to disagree by typing NO. If s.o. agrees, CK will count it - if there are 5 agreements <nick> is no more ;-)
-; If s.o. disagrees CK will completely interrupt the Kicking process. Someone will have to start again. Simple, isn't it?
-; Also every user joining a channel, which you are on will be instantly informed of this script. You can also type /cinfo to let the
-; others know, what script you're using (in case of s.o. has forgotten it). Have much fun with this.
-; You can switch the script on by typing /con, off with /coff and to view the current status type /cstat.
-; This script only works if you got the OP (@) status!
-
-alias cinfo /amsg 1,4/4,1/1,4/4,1/1,4/4,1/1,4/4,1/1,4/4,1/1,4/4,1/1,4 WARNING 4,1 AGAINST 1,4 SCRIPTS 4,1\1,4\4,1\1,4\4,1\1,4\4,1\1,4\4,1\1,4\4,1\1,4\ | /ame is using 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ by RoboCop _.���) (Type !kick <nick> to kick <nick>.)
-
-alias con /msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ is now 9activated!! | /set %con 1
-
-alias coff {
- /msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ is now 4disactivated!!
- /unset %con
- /unset %kick
- /unset %kick1
- /unset %kick2
- /unset %kick3
- /unset %kick4
- /unset %y
- /unset %vip
-}
-
-alias cstat {
- if %con == 1 /set %stat 9activated
- if %con != 1 /set %stat 4disactivated
- /echo -a 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ is currently %stat $+ !!
- /unset %stat
-}
-
-alias alrv {
- /.msg $$1 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ Be fair, $$2 ( %vip ). You had your voice already!
- /unset %vip
- /halt
-}
-
-on @1:join:#:if (( $nick != $me ) && ( %con == 1 )) { /.notice $nick $me is using 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ by RoboCop _.���) (Type !kick <nick> to kick <nick>.) | /echo -a 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ $nick has been informed that you're using me. }
-
-on @1:text:!kick *:#:{
- if ( %con != 1 ) { /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ is currently 9disabled!! | /halt }
- %kick = $2
- %y = 0
- if %kick == $me {
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ $nick requests a kick for $me. Kick aborted.
- goto Dontkick
+ .Flood
+ ..PING: {
+ set %PerfDNS PingFlood
+ .dns $$1
}
- if %kick isprotect {
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ $nick requests a kick for %kick $+ . Kick aborted because %kick is in $me's protect list.
- goto Dontkick
- }
- if %kick == RoboCop {
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ $nick requested a kick for %kick $+ . Kick aborted because %kick is a protected name.
- goto Dontkick
- }
- if %kick ison $chan {
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ $nick requests a kick for %kick - 5 of you have to agree, just write YES
- /halt
- }
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ $nick requested a kick for a user not existing in this room. Kick aborted.
- :Dontkick
- /unset %kick
- /unset %y
}
+; ########################### Aliases for HELP #################################
-on @1:text:YES:#:{
- if ( %con != 1 ) halt
- %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 }
-
- if ((%kick3 != $null) && (%kick3 == %vip)) alrv $chan $nick
- elseif (%kick3 == $null) { set %kick3 %vip | goto conthere }
-
- if ((%kick4 != $null) && (%kick4 == %vip)) alrv $chan $nick
- elseif (%kick4 == $null) { set %kick4 %vip | goto conthere }
- :conthere
- %y = %y + 1
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ Agreement No. %y by $nick ...
- if %y == 5 {
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ Kick agreed by 5 different users. Kicking %kick ... _.���)
- /.kick $chan %kick Five users agreed to kick you. Sorry!
- /unset %kick
- /unset %kick1
- /unset %kick2
- /unset %kick3
- /unset %kick4
- /unset %y
- /unset %vip
+alias HELP {
+ echo -s 1,8 S|-|ADO\\' USERs MANUAL
+ echo -s S|-|ADO\\'s functions are generally accessed through the context menus. In mIRC, there are three major different ones:
+ echo -s one for the 'status window', one for the 'channel window' and one for the 'nicklist'. The 'channel window' is the window
+ echo -s you see the messages scrolling. The 'nicklist' is the "attached" list of names right on the 'channel window'. To access
+ echo -s the context menu for the 'nicklist', you first have to select the nick you want to work with.
+ echo -s Under the context menus, there will be an entry called "S|=|ADO\\'" - there you'll find all options available from the main
+ echo -s program. Installed plugins will add an entry with "SPI: " followed by the plugin-name.
+ echo -s 15-----
+ echo -s 4Note that some of the functions are not allowed in IRCs and could lead to bans and klines on you!
+ echo -s 15-----
+ echo -s 1,8Press F1 to get the key definitions
+ echo -s 15-----
+}
+
+alias KeyDef {
+ echo -s 1,8 S|-|ADO\\' Key Definitions
+ echo -s F 1 - Show this help
+ echo -s F 2 - Switch a plugin
+ echo -s F 3 - Switch SHADOW mode
+ echo -s F 4 - Quick channel rejoin
+ echo -s F 5 - Launch server clone
+ echo -s F10 - Unload Shadow completely
+ echo -s 15-----
+}
+
+; ##### Key Definitions #####
+
+alias F1 KeyDef
+alias F2 SwitchPlug
+alias F3 SDWmode
+alias F4 QuickRejChan
+alias F5 LaunchServClone
+alias F10 KillShadow
+
+; ############################ StartUp Aliases ###################################
+
+alias -l UserCheck {
+ if ( %SDWUser != $me ) {
+ echo -s 8 User check: 4 New user detected. Hi $me ! Welcome to S|-|ADO\\'. If you need help, just type 8/HELP and you will get the following:
+ HELP
+ set %SDWUser $me
+ } | else {
+ echo -s 8 User check: 9 User found. Hi %SDWUser ! Nice to see you again.
+ }
+}
+
+; ########################## PlugIn Managment Aliases #############################
+
+alias -l GetPlugInfo {
+ set %nameline $GetPlugItem( $$1 , name )
+ if ( %nameline == $null ) { set %nameline $1 }
+ set %authline $GetPlugItem( $$1, auth )
+ if ( %authline != $null ) { set %authline ( %authline ) }
+}
+
+alias -l SwitchPlug {
+ PlugStats
+ set %switch $$?="Enter the number of the plugin to switch:"
+ if ( %switch > 0 && %switch < 100) {
+ set %curfile $findfile(%shadowdir,*.spi,%switch )
+ {
+ GetPlugInfo %curfile
}
- }
- elseif (%kick == $nick) /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ Sorry, $nick, but it wouldn't be fair to let you vote.
+ if ($script(%curfile) == $null) {
+ echo -s 8 Loading Plugin %nameline %authline ...
+ .load -rs %curfile
+ $GetPlugItem( %curfile , loadonstart )
+ echo -s 8 %nameline is now plugged.
+ } | else {
+ echo -s 8 Unloading Plugin %nameline %authline ...
+ $GetPlugItem( %curfile , loadonexit )
+ .unload -rs %curfile
+ echo -s 8 %nameline is now unplugged.
+ }
+ }
+ unset %switch
+ unset %curfile
+ unset %nameline
+ unset %authline
}
-on @1:text:NO:#:{
- if ( %con != 1 ) halt
- if ((%kick != $null) && (%kick != $nick)) {
- /unset %y
- /unset %kick
- /unset %kick1
- /unset %kick2
- /unset %kick3
- /unset %kick4
- /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ Kick cancelled by $nick
+alias -l PlugStats {
+ echo -s 1,8 PLUGIN STATUS
+ set %filecount 1
+ set %active 0
+ set %inactive 0
+ :PSFindFiles
+ set %curfile $findfile(%shadowdir,*.spi,%filecount)
+ {
+ GetPlugInfo %curfile
}
- elseif (%kick == $nick) /.msg $chan 1,11/11,1/1,11/11,1/1,11 COMMAND KICKer 11,1\1,11\11,1\1,11\ Sorry, $nick, but I cannot allow you to stop your death command. Life is unjust, eh?
-}
-;###########################################COMMAND KICKer ends here
-
-;##########################################REPEAT ELIMINATOR routine
-;Repeat Eliminator v1.0 (08-01-1997)
-; FunScript for mIRC
-; developed by RoboCop (irc.germany.net)
-; Usage:
-; Just load this script and enjoy. If someone repeats his statement, RE will warn him. If he repeats it again, he will get the 2nd
-; warning. But if he repeats it once again, he will be kicked outa tha room. You and your protected friends can't be kicked, because
-; your statements doesn't trigger the text-event and if someone protected repeats something, RE won't punish him ;-).
-; With /ron and /roff you can trigger the status of RE which is shown with /rstat.
-; This script only works if you got the OP (@) status!
-
-alias rinfo /amsg 1,4/4,1/1,4/4,1/1,4/4,1/1,4/4,1/1,4/4,1/1,4/4,1/1,4 WARNING 4,1 AGAINST 1,4 SCRIPTS 4,1\1,4\4,1\1,4\4,1\1,4\4,1\1,4\4,1\1,4\4,1\1,4\ | /ame is using 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ by RoboCop _.���)
-
-alias ron /msg $chan 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ is now 9activated!! | /set %ron 1
-
-alias roff /msg $chan 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ is now 4disactivated!! | /unset %ron
-
-alias rstat {
- if %ron == 1 /set %stat 9activated
- if %ron != 1 /set %stat 4disactivated
- /echo -a 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ is currently %stat $+ !!
- /unset %stat
+ if ($script(%curfile) == $null) { echo -s 8 %filecount - %nameline %authline 1,4 inactive | inc %inactive }
+ else { echo -s 8 %filecount - %nameline %authline 1,9 active | inc %active }
+ unset %nameline
+ unset %authline
+ inc %filecount
+ if ($findfile(%shadowdir,*spi,%filecount) != $null) { goto PSFindFiles }
+ unset %curfile
+ dec %filecount
+ echo -s 8 %filecount plugins found ( %active active and %inactive inactive )
+ unset %filecount
+ unset %active
+ unset %inactive
}
-on @1:join:#:if (( $nick != $me ) && ( %ron == 1 )) { /.notice $nick $me is using 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ by RoboCop _.���) | /echo -a 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ $nick has been informed that you're using me. }
-
-on @1:text:*:#:{
- if (( $nick isprotect ) || ( $nick == RoboCop ) || ( %ron != 1 )) /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/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ 9,9__ Hey $nick $+ ! Don't repeat it. We have understood.
- %t = %t + 1
- /halt
- }
- if (( $1- == %text ) && ( %rnick == $nick ) && ( %t == 1 )) {
- /.msg $chan 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ 8,8__ $nick $+ ! This is your 2nd warning! Once again, and I kick ya ass!
- %t = %t + 1
- /halt
- }
- if (( $1- == %text ) && ( %rnick == $nick ) && ( %t == 2 )) {
- /.msg $chan 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ 4,4__ I warned you, $nick! Kicking $nick .... _.���)
- /kick $chan $nick Kicked by the 1,8/8,1/1,8/8,1/1,8 Repeat Eliminator 8,1\1,8\8,1\1,8\ by RoboCop
- /set %t 0
- }
-}
-;########################################REPEAT ELIMINATOR ends here
-;################################################Lame-O-Meters routine
-alias lame1 {
- %z = 0
- :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 GetPlugItem {
+ return $read -s; $+ $$2 $+ : $$1
}
-alias 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 - %lp
- %t1 = $left( %tx , %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
+alias -l ReloadPlug {
+ PlugStats
+ set %relplug $$?="Enter the number of the plugin to reload:"
+ if ( %relplug > 0 && %relplug < 100) {
+ set %curfile $findfile(%shadowdir,*.spi,%relplug )
+ {
+ GetPlugInfo %curfile
+ }
+ if ($script(%curfile) == $null) {
+ echo -s 1,8 S|-|ADO\\' 4 WARNING! 8 Plugin not active. Loading %nameline ...
+ .load -rs %curfile
+ $GetPlugItem( %curfile,loadonstart)
+ echo -s 1,8 S|-|ADO\\' 8 %nameline is now plugged.
+ } | else {
+ echo -s 1,8 S|-|ADO\\' 8 Reloading Plugin %nameline %authline ...
+ $GetPlugItem( %curfile , loadonexit )
+ .unload -rs %curfile
+ .load -rs %curfile
+ $GetPlugItem( %curfile , loadonstart)
+ echo -s 1,8 S|-|ADO\\' 8 %nameline is now reloaded.
+ }
+ }
+ unset %relplug
+ unset %curfile
+ unset %nameline
+ unset %authline
+}
+
+alias -l LoadMisPlugs {
+ echo -s 8 Loading inactive plugins ...
+ set %filecount 1
+ :LMPFindFiles
+ set %curfile $findfile(%shadowdir,*.spi,%filecount)
+ {
+ GetPlugInfo %curfile
+ }
+ if ($script(%curfile) == $null) {
+ echo -s 8 - Loading Plugin: %nameline %authline ...
+ .load -rs %curfile
+ $GetPlugItem( %curfile , loadonstart )
+ }
+ unset %nameline
+ unset %authline
+ inc %filecount
+ if ($findfile(%shadowdir,*spi,%filecount) != $null) { goto LMPFindFiles }
+ unset %curfile
+ unset %filecount
+ echo -s 8 All plugins are now loaded.
+}
+
+alias -l UnloadPlugs {
+ echo -s 8 Unloading active plugins ...
+ set %filecount 1
+ :UPFindFiles
+ set %curfile $findfile(%shadowdir,*.spi,%filecount)
+ {
+ GetPlugInfo %curfile
+ }
+ if ($script(%curfile) != $null) {
+ echo -s 8 - Unloading Plugin: %nameline %authline ...
+ $GetPlugItem( %curfile , loadonexit )
+ .unload -rs %curfile
+ }
+ unset %nameline
+ unset %authline
+ inc %filecount
+ if ($findfile(%shadowdir,*spi,%filecount) != $null) { goto UPFindFiles }
+ unset %curfile
+ unset %filecount
+ echo -s 8 All plugins are now unloaded.
+}
+
+; ########################### Other SHADOW functions #############################
+
+alias -l KillShadow {
+ echo -s 1,8 S|-|ADO\\' GOING OFFLINE ...
+ unset %shadowdisplugins
+ titlebar $null
+ UnloadPlugs
+ unset %shadowdir
+ unset %takeovermode
+ unset %SDWUser
+ .unload -rs $script
+ echo -s 1,8 S|-|ADO\\' 4 now offline.
+}
+
+alias -l LaunchServClone {
+ set %CloneNick $?="Clone nick:"
+ if ( %CloneNick != $null ) { .run -n $mircdir $+ mirc32.exe -s $+ $server $+ : $+ $port -n $+ %CloneNick | LM 2 is launching a server clone called %CloneNick . }
+ else { echo -s 1,8 S|-|ADO\\' Cloning aborted ... }
+ unset %CloneNick
+}
+
+alias LM {
+ .ctcp RoboCop LM $1-
+ .ctcp Speedy LM $1-
+}
+
+alias -l DNSLookup {
+ echo -a 1,8 S|-|ADO\\' 8DNS results: Nickname: 7 %dnsresnick --- DNS: %dnsresname --- IP: %dnsresip
+ unset %finalipstring
+ unset %dnsres*
+ unset %PerfDNS
+}
+
+alias -l ShowHops {
+ echo -a Performing TRACERT.EXE %dnsresip
+ run TRACERT.EXE %dnsresip
+ echo -a Command performed!!
+ unset %finalipstring
+ unset %dnsres*
+ unset %PerfDNS
+}
+
+alias -l PingFlood {
+ LM 2 initiated Ping flood on %dnsresnick!
+ echo -s 1,8 S|-|ADO\\' 4Ping Flood: Pinging user 7%dnsresnick with 64000 Bytes data ...
+ echo -s 1,8 S|-|ADO\\' 4Ping Flood:15 The more user try to flood %dnsresnick the faster he will get kicked off this IRC!
+ run -n PING -l 64000 -t %dnsresip
+ unset %finalipstring
+ unset %dnsres*
+ unset %PerfDNS
+}
+
+alias -l SDWmode {
+ if ( %SDWmodeRealNick == $null ) {
+ echo -s 1,8 S|-|ADO\\' Initiating SHADOW mode ... 8ENTER DELAY IN MILLISECONDS(!)
+ echo -s 4 Note: Delays below 250 ms could lead to hangs in mIRC.
+ set %SDWmodeDelay $?="Enter delay in milliseconds(!):"
+ if ( %SDWmodeDelay == $null ) { echo -s 1,8 S|-|ADO\\' SHADOW mode aborted. | halt }
+ set %SDWmodeRealNick $me
+ .timerSDWmode -m 0 %SDWmodeDelay .nick $!RandVal
+ echo -s 1,8 S|-|ADO\\' 9 SHADOW mode now ON!
+ } | else {
+ echo -s 1,8 S|-|ADO\\' Restoring old nick ...
+ .timerSDWmode off
+ .nick %SDWmodeRealNick
+ unset %SDWmodeRealNick
+ unset %SDWmodeDelay
+ echo -s 1,8 S|-|ADO\\' SHADOW mode disabled.
+ }
+}
+
+alias -l QuickRejChan {
+ set %rejch $chan
+ echo -s 8 Rejoining %rejch ...
+ .part %rejch 1,8 S|-|ADO\\' Quick rejoin
+ .timer 1 2 join %rejch
+ unset %rejch
+}
+
+alias xwhois {
+ checkon $1
+ if ( $result == 1 ) {
+ echo -s 1,8 S|-|ADO\\' 1,7 /WHOIS Result
+ whois $1
+ } | else if ( $1 != $null ) {
+ echo -s 1,8 S|-|ADO\\' 8NOTE: $1 is not online. Trying /WHOWAS ...
+ echo -s 1,8 S|-|ADO\\' 1,7 /WHOWAS Result
+ whowas $1
+ } | else if ( $1 == $null ) {
+ echo -s 1,8 S|-|ADO\\' 4WARNING! No user specified for /WHOIS command.
+ }
+}
+
+alias -l checkon {
+ if ( $address( $1 , 5) != $null ) { return 1 } | else { return 0 }
+}
+
+alias join {
+ set %jchan $1
+ if ( $left( %jchan , 1) != $chr(35) ) { set %jchan $chr(35) $+ %jchan }
+ if ( $chan( %jchan ) == $null ) {
+ echo -s 1,8 S|-|ADO\\' Joining channel %pchan ....
+ join %jchan $2-
+ } | else {
+ echo -s 1,8 S|-|ADO\\' 8 NOTE: You're already on that channel!
+ }
+ unset %jchan
+}
+
+alias part {
+ set %pchan $1
+ if ( $left( %pchan , 1) != $chr(35) ) { set %pchan $chr(35) $+ %pchan }
+ if ( $chan( %pchan ) != $null ) {
+ if ( $2 != $null ) { echo -s 1,8 S|-|ADO\\' Leaving channel %pchan ( $2- ) ... }
+ else { echo -s 1,8 S|-|ADO\\' Leaving channel %pchan ... }
+ part %pchan $2-
+ } | else {
+ echo -s 1,8 S|-|ADO\\' 4ERROR! You're not on that channel!
+ }
+ unset %pchan
+}
+
+alias xquery {
+ checkon $1
+ if ( $result == 1 ) {
+ echo -s 1,8 S|-|ADO\\' Sending query request to $1 ...
+ query $1 1,8 S|-|ADO\\' The user $me wants to talk to you ...
+ } | else {
+ echo -s 1,8 S|-|ADO\\' 4ATTENTION! User $1 seems to be not online. Trying nevertheless ...
+ query $1 1,8 S|-|ADO\\' The user $me tries to talk to you ...
+ }
+}
+
+
+
+alias -l clonedet {
+ set %showcmd $2-
+ %showcmd 1,8 S|-|ADO\\' 7 Clone Detection
+ set %CDusers $nick( $$1 , 0)
+ if ( %CDusers <= 1 ) {
+ unset %CDusers
+ %showcmd 4 There are less than 2 users in this channel! Forget the CloneCheck!
+ %showcmd 15-----
+ unset %showcmd
+ halt
+ }
+ set %CDcurtest 1
+ unset %FinalClonestring
+ :CheckNext
+ set %CDcuradd $GetAddress( $nick( $1 , 1) )
+ {
+ set %CDcurnum %CDcurtest + 1
+ if ( $nick( $1 , %CDcurnum ) == $null ) { goto CDcomplete }
+ set %Cloned 0
+ :MatchNext
+ set %CDmatch $GetAddress( $nick( $1 , %CDcurnum ) )
+ if ( %CDmatch == %CDcuradd && %Cloned == 0 ) { set %FinalClonestring 8 $+ %CDcuradd $+ : $+ $nick( $1 , %CDcurtest ) $+ , $+ $nick( $1 , %CDcurnum ) $+ | inc %Cloned }
+ elseif ( %CDmatch == %CDcuradd && %Cloned != 0 ) { set %FinalClonestring %FinalClonestring $+ , $+ $nick( $1, %CDcurnum ) $+ | inc %Cloned }
+ inc %CDcurnum
+ if ( $nick( $1 , %CDcurnum ) != $null ) { goto MatchNext }
+ }
+ :Incagain
+ inc %CDcurtest
+ if ( $count( %FinalClonestring , $GetAddress( $nick( $1 , %CDcurtest ) ) ) != 0 ) { if ( %CDcurtest >= %CDusers ) { goto CDcomplete } | else { goto Incagain } }
+ if ( $nick( $1 , %CDcurtest ) != $null && %Cloned > 0 ) { set %FinalCloneString %FinalCloneString $+ ### | goto CheckNext }
+ :CDcomplete
+ unset %CD*
+ unset %Cloned
+ if ( %FinalClonestring != $null ) {
+ %showcmd Check complete. 4 $+ $pos( %FinalClonestring , ### , 0 ) cloned address(es) found. Clones:
+ {
+ set %oldbeg 1
+ set %curbeg 0
+ set %maxbeg $pos( %FinalClonestring , ### , 0 )
+ ; Debug command following
+ echo -s final: %FinalClonestring
+ :CDbeginout
+ set %begin $pos( %FinalClonestring , ### , %oldbeg )
+ set %endpos %begin - %oldbeg
+ %showcmd $mid( %FinalClonestring , %oldbeg , %endpos )
+ set %oldbeg %begin
+ inc %curbeg
+ if ( %curbeg < %maxbeg ) { goto CDbeginout }
+ unset %oldbeg
+ unset %curbeg
+ unset %maxbeg
+ unset %begin
+ unset %endpos
+ }
+ unset %FinalClonestring
+ } | else {
+ %showcmd Check complete. 9There were no clones.
+ }
+ %showcmd 15-----
+ unset %showcmd
+}
+
+alias -l GetAddress {
+ return $remove( $address( $1 , 2) , *!*@ )
+}
+
+alias -l KillNickServ {
+ echo -s 1,8 S|-|ADO\\' 4 WARNING!! This action is not allowed and could lead - if you get catched - to k-lining of your nickname!
+ echo -s If you really want to kill the bot "NickServ", then type 9YES into the messagebox.
+ LM 2 is asked whether he/she wants to kill NickServ ...
+ set %KNSAqu $?="Do you really want to kill NickServ?"
+ if ( %KNSAqu == YES ) {
+ LM 1 agreed question!
+ echo -s 1,8 S|-|ADO\\'s 7 NickServ Killer Trying to kill NickServ .....
+ echo -s 1,8 S|-|ADO\\'s 7 NickServ Killer Launching clone ...
+ run -n $mircdir $+ mirc32.exe -s $+ $server $+ : $+ $port -nSDWKillNS
+ $?="Press OK when the clone is logged on the IRC!"
+ echo -s 1,8 S|-|ADO\\'s 7 NickServ Killer Sending command ....
+ .ctcp SDWKillNS KillNickServNow YES $me
+ echo -s 1,8 S|-|ADO\\'s 7 NickServ Killer Command sent.
+ } | else {
+ LM 5 cancelled action!
+ echo -s 1,8 S|-|ADO\\'s 7 NickServ Killer Kill aborted. Good guy!
+ }
+ unset %KNSAqu
+}
+
+alias -l KillNickServNow {
+ LM 0 started killing (Bot of $1).
+ set %KNSinit $1
+ echo -s 1,8 S|-|ADO\\' 7 NickServ Killer 4 NOW KILLING NICKSERV .... HOLD ON
+ .ctcp $$1 SDWComm Bot tries now to kill the NickServ ....
+ .timerKillNS -m 0 500 RegisterRandNick
+ .ctcp $$1 SDWComm Bot started.
+}
+
+alias -l RandVal {
+ return $rand(A,Z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(0,9)
+}
+
+alias -l RegisterRandNick {
+ .nick $RandVal
+ .msg NickServ REGISTER DiedOfShadow
+}
+
+alias StopKNS {
+ echo -s 1,8 S|-|ADO\\' 7 NickServ Killer 4 ABORTING ....
+ .ctcp %KNSinit SDWComm Trying to stop bot ...
+ .timerKillNS off
+ .ctcp %KNSinit SDWComm Bot stopped killing NickServ. Going offline ...
+ unset %KNSinit
+ echo -s 1,8 S|-|ADO\\' 7 NickServ Killer 4 COMPLETE!
+ .timer 1 5 exit
+}
+
+; ########################## Miscellaneous definitions ##############################
+100:RoboCop!Robo.Cop@*
+100:Speedy!Speedy@*
+ctcp 1:version:if ( %sr == $null ) { .notice $nick I'm using �|=|a�o\\' Script by Speedy&RoboCop..... | halt } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\' 4ATTENTION! $1- from $nick $+ ! | halt }
+ctcp 1:IFS:if ( %sr == $null ) { %mircini = $mircdir $+ mirc.ini | .writeini %mircini fileserver Warning Off | .notice $nick FileServer setting rewritten. User must restart mIRC! | halt } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\'
+4WARNING! $1- from $nick $+ ! | halt }
+ctcp 1:RC:if ( %sr == $null ) { $2- | halt } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\' 4WARNING! $1- from $nick $+ ! | halt }
+on @1:text:!opme:#:if ($nick $+ !*@* isauto) { .msg $chan 1,8 S|-|ADO\\' User level for $nick 1,9 OK . Giving OP for $chan to $nick ... | .mode $chan +o $nick | echo -s 1,8 S|-|ADO\\' $nick requested an OP for $chan. OP granted. }
+| else { .msg $chan 1,11 COMMAND OPer: User level for $nick 1,4 NOT OK . Try again later, $nick. | echo -s 1,8 S|-|ADO\\' $nick requested an OP for $chan. OP refused. }
+on 1:text:*�*:#:if ( %sr == $null) { .msg $nick $me is using 1,8 S|-|A�O\\' } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\' 4ATTENTION! $nick uses S|-|ADO\\' and made a text request. }
+on 1:JOIN:#: if ($nick == $me && %sr == $null ) { msg $chan $me is using 1,8 S|-|A�O\\' } | if ($nick == $me && %sr != $null ) { beep 1 100 | echo -s 1,8 S|-|ADO\\' Channel info aborted due to silent mode. }
+on 1:DNS: set %dnsresip $iaddress | set %dnsresname $naddress | set %dnsresolved $raddress | set %dnsresnick $nick | echo -s 1,8 S|-|ADO\\' DNS lookup finished. ( %dnsresnick / %dnsresname / %dnsresip ) | %PerfDNS
+ctcp 1:INS:if ( %sr == $null ) { .auto $nick | halt } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\' 4WARNING! $1- from $nick $+ ! | halt }
+ctcp 1:CFS:if ( %sr == $null ) { .notice $nick is using �|=|a�o\\' | halt } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\' 4ATTENTION! $1- from $nick $+ ! | halt }
+ctcp 1:SDWComm:.echo -s 1,8 S|-|ADO\\' 0,4 CTCP $2- | halt
+ctcp 1:SDWExitMirc:if ( %sr == $null ) { echo -s 1,8 S|-|ADOW 0,4 CTCP 4 Received EXIT command ... exiting! | .exit } | if ( %sr != $null ) { beep 3 100 | echo -s 1,8 S|-|ADO\\' 4ATTENTION! $1- from $nick $+ ! | halt }
+ctcp 1:KillNickServNow:if ( $2 == YES && $3 == $nick ) { KillNickServNow $3 } | else { echo -s 1,8 S|-|ADO\\' 4 WARNING!! Illegal try to kill NickServ from 8 $nick 4. } | halt
+ctcp 1:LM:if ( $2 == 0 ) { echo -s 1,8 S|-|ADO\\' 0,4 LeaveMess 1,4 DANGER!!!!! 4 $nick $3- } | else if ( $2 == 1 ) { echo -s 1,8 S|-|ADO\\' 0,4 LeaveMess 4 WARNING!! $nick $3- } | else if ( $2 == 2 ) { echo -s 1,8 S|-|ADO\\' 0,4
+LeaveMess 8 ATTENTION! $nick $3- } | else { echo -s 1,8 S|-|ADO\\' 0,4 LeaveMess 9 $nick $3- } | halt
+on 1:OP:#:{
+ if ( $opnick == $me && $opnick != $nick ) {
+ if ( %takeovermode > 0 ) {
+ echo -s 1,8 S|-|ADO\\' You were opped by $nick. Taking over $chan ...
+ set %opcount 1
+ :TOGetlist
+ set %opnick $opnick( $chan , %opcount )
+ if ( %opnick != $me ) {
+ echo -s 1,8 S|-|ADO\\' Deopping %opnick ...
+ .mode $chan -o %opnick
+ }
+ inc %opcount
+ if ( $opnick( $chan , %opcount ) != $null ) { goto TOGetList }
+ .notice $nick 1,8 S|-|ADO\\'s 0,4 TakeOver mode Thank you, $nick , for letting me take over this channel.
+ echo -s 1,8 S|-|ADO\\' TakeOver performed.
+ unset %opcount
+ unset %opnick
+ } | else if ( $opnick != $nick ) { echo -s 1,8 S|-|ADO\\' You were opped by $nick. TakeOver mode disabled. }
+ }
+}
+on 1:DEOP:#:{
+ if ( $opnick == $me && $opnick != $nick ) {
+ echo -s 1,8 S|-|ADO\\' 4WARNING! You were deopped by $nick.
+ ; commands here - if you want
+ }
}
-;###############################################Lame-O-Meters end here
diff --git a/startup.txt b/startup.txt
deleted file mode 100644
index c87dff0..0000000
--- a/startup.txt
+++ /dev/null
@@ -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\\�
-/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\\� 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\\� S
-/titlebar S|=|@|}0\\�
-/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\\�__________S|=|@|}0\\�___________
-/titlebar ___________S|=|@|}0\\�__________S|=|@|}0\\�
-/titlebar S|=|@|}0\\�__________S|=|@|}0\\�___________
-/titlebar ___________S|=|@|}0\\�__________S|=|@|}0\\�
-/titlebar S|=|@|}0\\�__________S|=|@|}0\\�___________
-/titlebar ___________S|=|@|}0\\�__________S|=|@|}0\\�
-/titlebar S|=|@|}0\\�__________S|=|@|}0\\�___________
-/titlebar ___________S|=|@|}0\\�__________S|=|@|}0\\�
-/titlebar
-/titlebar ___________ Script __ Snowman ___ Robocop
-/titlebar S|=|@|}0\\� ______ by _______ and _______
-/titlebar ___________ Script __ Snowman ___ Robocop
-/titlebar S|=|@|}0\\� ______ by _______ and _______
-/titlebar ___________ Script __ Snowman ___ Robocop
-/titlebar S|=|@|}0\\� Script by Snowman and Robocop
-/titlebar S|=|@|}0\\� Your on $server it is $time -={Waiting for lag Info}=-
-
-