home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / lockdoor.zip / BRENET.CMD < prev    next >
OS/2 REXX Batch file  |  1995-06-06  |  1KB  |  35 lines
  1. /* This REXX script is called from a menu type 10 and when executed will    */
  2. /* check for the existence of a flag file in the directory of the target    */
  3. /* door game. If the file exists it will write an AdeptREXX message to the  */
  4. /* user's screen. if the flag does not exist it will call the door .cmd.    */
  5. /* This file should reside in the Adept\Menus directory                     */
  6. /*                                                                          */
  7. /* written by Jerry Jones * Enigma, A Piece of the Puzzle * 1:3602/212.0    */
  8. /*                                                                          */
  9.  
  10. ARG linenum
  11.  
  12. file = 'd:\adept\doors\breip\in-use.flg'
  13.  
  14. IF STREAM(file, 'c', 'query exist') <> '' THEN
  15.          signal notnow
  16.                 else signal playit
  17.  
  18. playit:
  19. ADDRESS Adept
  20. AdeptMenuType(linenum,801,'cmd.exe /c breip.cmd {LN')
  21. signal exit
  22.  
  23. notnow:
  24.  
  25. ADDRESS Adept
  26. AdeptPrint(linenum,'{CS\r\n')
  27. AdeptPrint(linenum,'{FF┌───────────────────────────────────────────────────────────┐\r\n')
  28. AdeptPrint(linenum,'{FF│{F8 Sorry, but this single user door is currently in use.     {FF│ \r\n')
  29. AdeptPrint(linenum,'{FF│{F8 Please try again a little later.                          {FF│ \r\n')
  30. AdeptPrint(linenum,'{FF└───────────────────────────────────────────────────────────┘\r\n')
  31. AdeptPrint(linenum,'{PC\r\n')
  32.  
  33. exit:
  34. exit
  35.