home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / dmsg < prev    next >
Text File  |  1994-07-30  |  365b  |  18 lines
  1. alias dmsg.fixup {
  2.   @ dmsg.tmp = index(, $0) + 1
  3.   if (dmsg.tmp > 0) {
  4.     @ function_return = mid(0 $dmsg.tmp $0) ## [=] ## dmsg.fixup($mid($dmsg.tmp -1 $0))
  5.   } {
  6.     @ function_return = [$0]
  7.   }
  8.   ^assign -dmsg.tmp
  9. }
  10.  
  11. alias dmsg {
  12.   @ dmsg.r = max_recursions
  13.   ^set max_recursions 20
  14.   msg =$dmsg.fixup($0) $1-
  15.   ^set max_recursions $dmsg.r
  16.   ^assign -dmsg.r
  17. }
  18.