home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Online / TView / Rexx / Send2ToAmirc.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-12  |  1KB  |  59 lines
  1. /********************************************************************
  2.  *
  3.  * Example of an arexx script to be used with TView.
  4.  * A little spam on IRC is always good =)
  5.  * Now fixed for amirc with strings > 250 (lame mm but I don't know arexx)
  6.  ********************************************************************/
  7. options results
  8.  
  9. worked=0
  10. if SHOW('P','TVIEW.1')=1 then worked=1
  11.  else if SHOW('P','TVIEW.2')=1 then worked=2
  12.  
  13. if worked>0 then do
  14.  if worked=1 then address TVIEW.1
  15.   else if worked=2 then address TVIEW.2
  16.  "GetProgram"
  17.  if RC>0 then exit
  18.  prog=RESULT
  19.  "GetTime"
  20.  if RC>0 then exit
  21.  time=RESULT
  22.  "GetInfo"
  23.  if RC>0 then exit
  24.  info=RESULT
  25.  "GetChannel"
  26.  if RC>0 then exit
  27.  chan=RESULT
  28. end
  29. else do
  30.  ADDRESS COMMAND 'Requestchoice "TView ARexx script Error" "Could not find TView port, please start it first!" "Ok"'
  31.  exit
  32. end
  33.  
  34. worked=0
  35. if SHOW('P','AMIRC.1')=1 then worked=1
  36.  else if SHOW('P','AMIRC.2')=1 then worked=2
  37.  
  38. if worked>0 then do
  39.  if worked=1 then address AMIRC.1
  40.   else if worked=2 then address AMIRC.2
  41.  "say "chan time prog
  42.  len=length(info)
  43.  info1 = substr(info, 1, 250)
  44.  info2 = substr(info, 251)
  45.  info3 = substr(info2, 251)
  46.  info4 = substr(info3, 251)
  47.  info5 = substr(info4, 251)
  48.  
  49.  "say" info1
  50.  if len>250 then "say" info2
  51.  if len>500 then "say" info3
  52.  if len>750 then "say" info4
  53.  if len>1000 then "say" info5
  54. end
  55. else do
  56.  ADDRESS COMMAND 'Requestchoice "TView ARexx script Error" "Could not find AmIRC port, please start it first!" "Ok"'
  57.  exit
  58. end
  59.