home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / stricq / rexx / _notify_default.rexx next >
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  1.1 KB  |  54 lines
  1. /* $VER: notify.rexx ©1998 by Michael Kilimann mike@kily.ruhr.de - changed by Goldy-IrcNet@gmx.net
  2.  
  3.    You need to change
  4.    -the path of "Play16"
  5.    -add "%ld" to the rexx-command in STRICQ/NOTIFY/ONLINE NOTIFY COMMAND
  6.  
  7.     rx <script> %ld
  8.  
  9. */
  10.  
  11. parse arg UIN
  12. options results
  13.  
  14. if ~exists("Libs:rexxreqtools.library") then do
  15.     echo "LIBS:RexxReqTools.Library nicht gefunden."
  16.     exit
  17. end
  18.  
  19. addlib("rexxreqtools.library",0,-30)
  20.  
  21. /* 
  22.    You need to add for each user one new "IF"!
  23. */
  24.  
  25. if UIN="13113314" then User="GER:Kilyman, Michael Kilimann"
  26. if UIN="14626385" then User="GER:Goldy"
  27. if UIN="8083608" then User="USA:Black Fire, Douglas McLaughlin"
  28.  
  29. /* if UIN="" then User="" */
  30.  
  31. if user~="USER" then do
  32.  
  33. ADDRESS COMMAND "run >nil: DH2:MUSIK/PLAY/Play16/play16 DH2:DFUe/ON/S_ICQ/stricq/sounds/OnlineWNT.wav VOL=60"
  34.  
  35.  IF SHOW('P',"AMIRC.1") =1 then
  36.     do
  37.       address 'AMIRC.1'
  38.      "echo C=1 P="d2c(27)"b«ICQ» Benutzer: "User" UIN="UIN" ist Online !"
  39.     end
  40.     else do
  41.  
  42.      call rtezrequest( "Benutzer:"User" UIN="UIN" ist Online !","Toll|Egal" ,"ICQ notify" , "rt_font=xhelvetica.font/11")
  43.      if rtresult == 0 then exit
  44.  
  45.     end
  46.  
  47.  
  48. end
  49.  
  50. EXIT
  51.  
  52.  
  53. --BOUNDARY.1753094472.1--
  54.