home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 7 Games / 07-Games.zip / connect4.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1994-04-24  |  1KB  |  53 lines
  1. /*    install.cmd - REXX script for installation of Connect Four
  2. */
  3.  
  4. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  5. call SysLoadFuncs
  6. say " "
  7. say " "
  8. say "    |             | "
  9. say "    |             | "
  10. say "    |      O      | "
  11. say "    |      X      | "
  12. say "    |    O X O    | "
  13. say "    |X_X_O_O_X____| "
  14. say " "
  15. say " "
  16. say "Connect Four - (C) 1994 Ralf Seidel and Nicole Greiber"
  17. say " "
  18. say "Installation in progress - please wait ..."
  19. say " "
  20. havemmsound = RxFuncAdd('mciRxInit', 'MCIAPI', 'mciRxInit')
  21. say " "
  22. if havemmsound <> 0 then 
  23. do
  24. rc = SysFileTree("c4mm.EXE", fspec, "FO")
  25. say "The Program will be installed with sound ..."
  26. end
  27. else 
  28. do
  29. rc = SysFileTree("c4nomm.EXE", fspec, "FO")
  30. say "The program will be installed without sound ..."
  31. end
  32. say " "
  33. if rc=0 then
  34. do
  35.     filename=filespec("Name", fspec.1)
  36.     filepath=filespec("Path", fspec.1)
  37.     filedrive=filespec("Drive", fspec.1)
  38.     if SysCreateObject("WPProgram", "Connect Four",,
  39.       "<WP_DESKTOP>", "EXENAME="filedrive||filepath||filename,
  40.       ";STARTUPDIR="||filedrive||filepath, "replace") then
  41.     do
  42.         say "The Connect Four program object has successfully been created."
  43.         say " "
  44.         say "Please make sure that you have placed the emx-DLLs somewhere in your LIBPATH."
  45.     end
  46.     else
  47.         say "ERROR: The program object could not be created."
  48. end
  49. else
  50.     say "ERROR: Connect Four program file connect4.exe not found."
  51.     exit
  52. end
  53.