#	$eterna: kickmenu,v 1.3 2014/03/14 20:59:19 mrg Exp $
#
# This is an unconventional script
# taken from the ircrc of Eleazar, the way
# he posted it to alt.irc
# Use as inspiration and with caution.  ;)
#
# lets me get rid of troublemakers quickly
on -join "*" ^joinhistory $0
assign j1 <none>;assign j2 <none>;assign j3 <none>;assign j4 <none>;assign j5 <none>;assign j6 <none>;assign j7 <none>;assign j8 <none>;assign j9 <none>;assign j10 <none>
alias joinhistory ^assign j10 $j9;^assign j9 $j8;^assign j8 $j7;^assign j7 $j6;^assign j6 $j5;^assign j5 $j4;^assign j4 $j3;^assign j3 $j2;^assign j2 $j1;^assign j1 $0
ALIAS showjoins echo *** Join history:;echo *** 1.$[9]j1 2.$[9]j2 3.$[9]j3 4.$[9]j4 5.$[9]j5;echo *** 6.$[9]j6 7.$[9]j7 8.$[9]j8 9.$[9]j9 10.$[9]j10;
bind meta1-j parse_command showjoins
bind meta1-k PARSE_COMMAND input "Kill who?" kill $* comment to follow
bind meta1-1 PARSE_COMMAND kill $j1 comment to follow
bind meta1-2 PARSE_COMMAND kill $j2 comment to follow
bind meta1-3 PARSE_COMMAND kill $j3 comment to follow
bind meta1-4 PARSE_COMMAND kill $j4 comment to follow
bind meta1-5 PARSE_COMMAND kill $j5 comment to follow
bind meta1-6 PARSE_COMMAND kill $j6 comment to follow
bind meta1-7 PARSE_COMMAND kill $j7 comment to follow
bind meta1-8 PARSE_COMMAND kill $j8 comment to follow
bind meta1-9 PARSE_COMMAND kill $j9 comment to follow
bind meta1-10 PARSE_COMMAND kill $j10 comment to follow
bind meta2-k PARSE_command input "Kick who?" kick $c $*
bind meta2-1 PARSE_COMMAND kick $c $j1
bind meta2-2 PARSE_COMMAND kick $c $j2
bind meta2-3 PARSE_COMMAND kick $c $j3
bind meta2-4 PARSE_COMMAND kick $c $j4
bind meta2-5 PARSE_COMMAND kick $c $j5
bind meta2-6 PARSE_COMMAND kick $c $j6
bind meta2-7 PARSE_COMMAND kick $c $j7
bind meta2-8 PARSE_COMMAND kick $c $j8
bind meta2-9 PARSE_COMMAND kick $c $j9
bind meta2-10 PARSE_COMMAND kick $c $j10