home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / kickmenu < prev    next >
Encoding:
Text File  |  1994-07-30  |  1.8 KB  |  34 lines
  1. # This is an unconventional script
  2. # taken from the ircrc of Eleazar, the way
  3. # he posted it to alt.irc
  4. # Use as inspiration and with caution.  ;)
  5. #
  6. # lets me get rid of troublemakers quickly
  7. on -join "*" ^joinhistory $0
  8. 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>
  9. 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
  10. 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;
  11. bind meta1-j parse_command showjoins
  12. bind meta1-k PARSE_COMMAND kill $"Kill who?" comment to follow
  13. bind meta1-1 PARSE_COMMAND kill $j1 comment to follow
  14. bind meta1-2 PARSE_COMMAND kill $j2 comment to follow
  15. bind meta1-3 PARSE_COMMAND kill $j3 comment to follow
  16. bind meta1-4 PARSE_COMMAND kill $j4 comment to follow
  17. bind meta1-5 PARSE_COMMAND kill $j5 comment to follow
  18. bind meta1-6 PARSE_COMMAND kill $j6 comment to follow
  19. bind meta1-7 PARSE_COMMAND kill $j7 comment to follow
  20. bind meta1-8 PARSE_COMMAND kill $j8 comment to follow
  21. bind meta1-9 PARSE_COMMAND kill $j9 comment to follow
  22. bind meta1-10 PARSE_COMMAND kill $j10 comment to follow
  23. bind meta2-k PARSE_command kick $c $"Kick who?"
  24. bind meta2-1 PARSE_COMMAND kick $c $j1
  25. bind meta2-2 PARSE_COMMAND kick $c $j2
  26. bind meta2-3 PARSE_COMMAND kick $c $j3
  27. bind meta2-4 PARSE_COMMAND kick $c $j4
  28. bind meta2-5 PARSE_COMMAND kick $c $j5
  29. bind meta2-6 PARSE_COMMAND kick $c $j6
  30. bind meta2-7 PARSE_COMMAND kick $c $j7
  31. bind meta2-8 PARSE_COMMAND kick $c $j8
  32. bind meta2-9 PARSE_COMMAND kick $c $j9
  33. bind meta2-10 PARSE_COMMAND kick $c $j10
  34.