Archived
119 lines
4.4 KiB
Plaintext
119 lines
4.4 KiB
Plaintext
; 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\\'
|
|
}
|