home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / gamtlk11.zip / Install.CMD < prev    next >
OS/2 REXX Batch file  |  2001-11-16  |  2KB  |  60 lines
  1. /* Compulsive Gambler's Toolkit Installation v1.00 */
  2. call RxFuncAdd 'SysCls','RexxUtil','SysCls'
  3.  
  4. call SysCls    /* Clear the screen */
  5.  
  6. say "Compulsive Gambler's Toolkit v1.00 Installation"
  7. say "Copyright (C) 1999 IglooSoft"
  8. say ""
  9. say "This will install The Compulsive Gambler's Toolkit onto your system."
  10. say ""
  11. say "Enter the target drive and directory"
  12. say "(Default=C:\Gambler)"
  13. pull Target
  14. if Target="" then Target="C:\Gambler"
  15.  
  16. Current=DIRECTORY()
  17.  
  18. /* Check to see if directory already exists */
  19. if \(Target=DIRECTORY(Target)) then
  20. do
  21.  
  22.     call RxFuncAdd 'SysMkDir','RexxUtil','SysMkDir'
  23.  
  24.     RetCode=SysMkDir(Target)
  25.     if(RetCode=1) then
  26.     do
  27.         say "Cannot create directory "Target
  28.         exit
  29.     end
  30. end
  31.  
  32. call DIRECTORY(Current)
  33.  
  34. /* Now copy files over */
  35. "copy *.exe" Target
  36. "copy *.dll" Target
  37. "copy *.hlp" Target
  38. "copy *.doc" Target
  39. "copy *.cmd" Target
  40. "copy *.wav" Target
  41.  
  42. /* Copying complete.  Ask for installation of desktop object */
  43. say "Would you like to install a program object (Y/N)?"
  44. pull Response
  45. if(Response='y' | Response='Y') then
  46. do
  47.     /* Install folder object */
  48.     call RxFuncAdd 'SysCreateObject','RexxUtil','SysCreateObject'
  49.  
  50.     Crap=SysCreateObject("WPFolder", "Compulsive Gambler's Toolkit", "<WP_DESKTOP>",,
  51.         "OBJECTID=<MYFOLDER>")
  52.     Crap=SysCreateObject("WPProgram","Multi Poker", "<MYFOLDER>",,
  53.           "EXENAME="Target"\MPoker.exe", "replace")
  54.     Crap=SysCreateObject("WPProgram","Caribbean Stud", "<MYFOLDER>",,
  55.         "EXENAME="Target"\CaribStd.exe", "replace")
  56. end
  57. e Gambler.doc
  58. say "Kiss that wallet goodbye!"
  59. exit
  60.