# $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 ;assign j2 ;assign j3 ;assign j4 ;assign j5 ;assign j6 ;assign j7 ;assign j8 ;assign j9 ;assign j10 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