home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gscr20.zip / joinall.cmd < prev    next >
OS/2 REXX Batch file  |  1997-06-16  |  857b  |  41 lines
  1. /* channel greeting */
  2.  
  3. Parse Arg Win WinName OurNick nick
  4.  
  5. text = 'Hi '||nick||'!'
  6. font = 'mini.flf'
  7. width = 40
  8.  
  9. CMD = "C:\OS2\CMD.EXE"
  10.  
  11. outputfile = 'input.txt'
  12. address cmd 'erase 'outputfile
  13. lineout(outputfile, text)
  14. lineout(outputfile)
  15.  
  16. address cmd 'figlet.exe -w '||width||' -c -f '||font||' < '||outputfile||' | rxqueue'
  17.  
  18. lines = queued()
  19.  
  20. do i = 1 to lines
  21.     parse pull something
  22.     if left(something, 1) = ' ' then
  23.         something = '.'||right(something, length(something)-1)
  24.     something = ''||something
  25.     ircrexxcommand('/notice '||nick||' '||something, '')
  26. end
  27.  
  28.  
  29. time=time()
  30. date=date()
  31. lines=2
  32. line.1='And Welcome to 'winname'!'
  33. line.2='It is now 'time' EST on 'date
  34.  
  35. do i = 1 to lines
  36.     l=trunc((width-length(line.i))/2)
  37.     do j=1 to l
  38.         line.i=' '||line.i
  39.     end
  40.     ircrexxcommand('/notice 'nick' .'line.i, '')
  41. end