home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / newaway < prev    next >
Text File  |  1994-01-17  |  838b  |  39 lines
  1. # the new `show away once' script,
  2. # matthew green, oct 1993.  i hate you
  3. # this script uses serial number 311
  4. # $Id: newaway,v 1.1 1994/01/17 08:30:58 mrgreen stable $
  5. # this script is public domain
  6.  
  7. # this interfere's, but it really doesn't matter.
  8.  
  9. ^set show_away_once off
  10. alias n.o
  11.     if (SHOW_NUMERICS == [ON])
  12.         {@function_return = [$0]}
  13.         {@function_return = [***]}
  14.  
  15. alias newaway.show
  16. {
  17.     @junk.nick = encode($tolower($0))
  18.     @junk.away = encode($tolower($1-))
  19.     if (newaway.nick[$junk.nick] == junk.away)
  20.     {
  21.         @function_return = 0
  22.     }
  23.     {
  24.         @function_return = 1
  25.         @newaway.nick[$junk.nick] = junk.away
  26.     }
  27.     if (0 != newaway.whois)
  28.     {
  29.         @function_return = 1
  30.     }
  31.     ^assign -junk.nick
  32.     ^assign -junk.away
  33. }
  34.  
  35. on #-311 311 * @newaway.whois = 1
  36. on #-318 311 * @newaway.whois = 0
  37.  
  38. on ^301 * if (newaway.show($*)) { echo $n.o($H) $0 is away: $1- }
  39.