home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / columns < prev    next >
Text File  |  1994-07-30  |  594b  |  22 lines
  1. # columnate some output 
  2. alias format {
  3.     assign IRCII.word $1
  4.     if ( @IRCII.word < [$0] )
  5.         { assign function_return $([-$0]1) }
  6.         { assign function_return $1 }
  7. }
  8.  
  9. on ^public * echo $format(11 <$0>) $2-
  10. on ^send_public * {
  11.     if ( C == [$0] )
  12.         { echo $format(11 <$N>) $1- }
  13.         { echo $format(10 <$N):$0> $1- }
  14. }
  15. on ^public_other * echo $format(10 <$0):$1> $2-
  16. on ^msg * echo $format(11 *$0*) $1-
  17. on ^send_msg * echo -> $format(8 *$0*) $1-
  18. on ^notice * echo $format(11 -$(0)-) $1-
  19. on ^send_notice * echo -> $format(8 -$(0)-) $1-
  20. on ^wall * echo $format(11 #$0#) $1-
  21. set continued_line             
  22.