home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / kpstat < prev    next >
Encoding:
Text File  |  1994-07-30  |  1.2 KB  |  57 lines
  1. # This one by Snoopy (hellmond@phoenix.princeton.edu)
  2. #
  3. # Due to the annoying feature [bug] of frequent ServerKills, I updated the
  4. # nkpath script to put serverkills into the status_user variable and to
  5. # display only operkills.
  6. # 
  7. # -- Peter
  8.  
  9. # No Kill Path Script
  10. # ===================
  11. # Original script from YeggMan
  12. # Version for servers 2.7.1* by Nap
  13. # modified for displaying Serverkills in Status_Line by snoopy
  14. # This version works both with old and new 2.7.1e kill formats !
  15. # conversion to 2.2.1 by phone
  16.  
  17. assign _kpath <empty>
  18. alias kpath echo !LASTKILL! Last received KILL Path: $_kpath
  19.  
  20. alias _ridx ^assign function_return $RINDEX(! $0)
  21. alias _is_serv ^assign function_return $INDEX(. $MID($_ridx($0) 512 $0))
  22. alias _opkill xecho -level OPNOTES OPERKILL: by $MID($_ridx($1) 9 $1) for $0 $2-
  23. alias _svkill ^set status_user SERVERKILL: $0 ($1)
  24.  
  25. alias _napEserv {
  26.         ^assign _kpath $12-
  27.         if ( _is_serv($12) > -1 )
  28.     {
  29.         _svkill $8 $10
  30.     }
  31.     {
  32.         _opkill $8 $10 $13-
  33.     }
  34. }
  35.  
  36. alias _napDserv {
  37.         ^assign _kpath $10-
  38.         if ( _is_serv($10) >- 1)
  39.     {
  40.         _svkill $8 $10
  41.     }
  42.     {
  43.         _opkill $8 $10 $11-
  44.     }
  45. }
  46.  
  47. on ^server_notice "% * Notice -- Received KILL*" {
  48.     echo $0-
  49.         if ([$9] == [From])
  50.     {
  51.         _napEserv $0-
  52.     }
  53.     {
  54.         _napDserv $0-
  55.     }
  56. }
  57.