home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / webtimer / demo-scrips / miami-online.arexx < prev   
Encoding:
Text File  |  1999-06-08  |  887 b   |  54 lines
  1. /* Miami Automatisches start script $VER: autoM_Yam_IRC 1.01 (16.09.1998) Dirk Wenk ©1998
  2. */
  3. Options results
  4. parse arg file
  5.  
  6. /* Amirc startup
  7. */
  8.  
  9.  
  10. /* siehe getonline script! */
  11. address command 'run <>Nil: execute Webtimer.arexx f >NIL:'
  12.  
  13. chat='run <>nil: Work:DFÜ-Netz/Internet/irc/amirc connect autojoin #amigaquake'
  14. yam='run <>nil: Work:DFÜ-Netz/Internet/inet/yam'
  15. ICQ='run <>nil: Work:DFÜ-Netz/Internet/ICQ/STRICQ'
  16.  
  17.  
  18. no_chat=1
  19. no_yam=1
  20. no_ICQ=1
  21. on=1
  22.  
  23. lst=show('P')
  24.  
  25. if pos('AMIRC',lst)>0 then do
  26.   no_chat=0
  27.     address 'AMIRC.1' 'isconnected; on=0'
  28.   if on=1 then do
  29.       address 'AMIRC.1' 'say /JOIN #amiga'
  30.   end
  31. end
  32.  
  33. if no_chat then address command chat
  34.  
  35. /* amirc startup finished
  36. beginne mit yam startup
  37. */
  38.  
  39. if pos('YAM',lst)>0 then do
  40.   no_yam=0
  41. end
  42.  
  43. if no_yam then address command yam
  44.  
  45.  
  46. if pos('STRICQ',lst)>0 then do
  47.   no_ICQ=0
  48. end
  49.  
  50. if no_ICQ then address command ICQ
  51.  
  52.  
  53. exit
  54.