home *** CD-ROM | disk | FTP | other *** search
/ PC Spiel 1995 October / PCS1095.BIN / sharewar / wari / install.fil < prev    next >
Text File  |  1995-04-01  |  7KB  |  316 lines
  1. ' WARI  DOS / WINDOWS Installation Script
  2. ' Copyright 1995, ImagiSOFT, Inc.
  3. ' Version 1.4
  4. ' April 1, 1995
  5.  
  6. ' Note:  This installation script is written for THE FINISHING TOUCH, a
  7. '        professional installation program which is also an ImagiSOFT
  8. '        product.  It is distributed with WARI to make
  9. '        installation easier, and to reduce our support calls.
  10.  
  11. '        This script unpacks 2 compressed files (*.PAK) which is a
  12. '        major feature of the program.  For more information about
  13. '        THE FINISHING TOUCH, call ImagiSOFT at (505) 275-1920, or call
  14. '        our personal BBS number with your modem at (505) 275-9696.
  15. '        It will always have the latest shareware version of
  16. '        THE FINISHING TOUCH so you can "try before you buy".
  17.  
  18. BACKGROUND ~0\INSTALL.BIN
  19. TELESCOPE OFF
  20.  
  21. LANGUAGE ENGLISH      ' supports GERMAN, FRENCH, SPANISH, DANISH, and DUTCH
  22.  
  23. BORDER 1
  24. TELESCOPE ON
  25. SHADOW OFF
  26.  
  27. PAUSE 300              ' display screen for 3 seconds
  28.  
  29. CALL NO_VGA           ' test for vga+ monitor
  30.  
  31.  
  32. ' display opening menu
  33. :OPENING
  34.  
  35. WINOPEN 0 5 31
  36. "        INSTALLATION OPTIONS MENU"
  37. ""
  38. "1.  Install as Microsoft Windows 3.1 Application"
  39. "2.  Install as DOS Application"
  40. "3.  QUIT"
  41. ""
  42. "SELECT ONE OF THE ABOVE:    "
  43.  
  44. WINUPDATE +10 +1 30
  45. "INSTALLATION OPTIONS MENU"
  46. INPUT A 1 +28 +7 15
  47. WINCLOSE
  48.  
  49. CALL TEMP_FILE
  50.  
  51. EXIST ~3\1.TMP
  52. JUMP.YES WINDOWS_APP
  53.  
  54. EXIST ~3\2.TMP
  55. JUMP.YES DOS_APP
  56.  
  57. EXIST ~3\3.TMP
  58. JUMP.YES EXIT
  59.  
  60. BEEP
  61. CALL TMP_DEL
  62. JUMP OPENING
  63.  
  64. ' ------------------------
  65. '   install as a dos app
  66. ' ------------------------
  67. :DOS_APP
  68. CALL TMP_DEL
  69.  
  70. ' have user set the drive
  71. CALL ESC
  72. DRIVE C 0 12 31 15 32 14 79
  73. WINCLOSE
  74.  
  75. ' have user set the path
  76. CALL ESC
  77. PATH \WARI 0 12 31 15 32 14 79
  78. WINCLOSE
  79.  
  80. CALL EMPTY_DIR
  81. CALL UNPACK
  82.  
  83. ' create batch file
  84. PROMPT OFF
  85. DELETE ~1\WARI.BAT 0 0 0
  86. PROMPT ON
  87. FILE ~1\WARI.BAT
  88. "~1"
  89. "cd ~2"
  90. "WARI"
  91. "cd \"
  92.  
  93. WINOPEN 0 4 31
  94. "       WARI has been successfully installed.       "
  95. ""
  96. "     To run it, enter the command"
  97. "     from the root directory of drive ~1."
  98. ""
  99. ""
  100. ""
  101. ""
  102. "Press the [Enter] key to continue."
  103. WINUPDATE +36 +3 30
  104. "WARI"
  105. WINUPDATE +7 +6 27
  106. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  107. WAIT +36 +9
  108. WINCLOSE
  109.  
  110. :RUN
  111. WINOPEN 0 10 31
  112. "Would you like to run WARI right now   Y or N?"
  113. ASK +48 +1
  114. JUMP.NO EXIT
  115. RUN ~1\WARI.BAT
  116.  
  117. ' --------------------------
  118. '   install as windows app
  119. ' --------------------------
  120. :WINDOWS_APP
  121.  
  122. ' these commands set drive and path variables
  123. DRIVE C
  124. PATH \WINDOWS
  125.  
  126. :TEST_WIN
  127. EXIST ~1~2\WIN.COM
  128. JUMP.YES WIN_INSTALL
  129.  
  130. EXIST ~3\1.TMP
  131. JUMP.YES SKIP_BEEP
  132. BEEP
  133. RD ~1~2
  134. WINOPEN 0 4 79
  135. "Microsoft Windows is NOT found in the"
  136. "~1~2 directory.  Please try again."
  137. ""
  138. "Press ENTER to continue."
  139. WAIT +26 +4
  140. WINCLOSE
  141.  
  142. ' windows is in a directory other than C:\WINDOWS
  143. :SKIP_BEEP
  144. CALL TMP_DEL
  145. WINOPEN 0 4 31
  146. "To install WARI to Microsoft Windows, we need to know which"
  147. "hard drive Windows is installed on."
  148. ""
  149. "             Most people have Windows on this hard drive."
  150. "             Press ENTER if this is correct, or change to"
  151. "             the correct drive letter."
  152. "             (Press ESC to quit.)"
  153. PROMPT OFF
  154. DRIVE C +2 +3 17 14 32 14 79
  155. WINCLOSE
  156.  
  157. PROMPT ON
  158. WINOPEN 0 4 31
  159. "We also need to know the name of the directory where Microsoft"
  160. "Windows is installed.  Most people have Windows installed in"
  161. "                              this directory.  Press ENTER"
  162. "                              if this is OK, or input the name"
  163. "                              of the directory where Windows"
  164. "                              is installed."
  165. "                              (Press ESC to quit.)"
  166. PROMPT OFF
  167. PATH \WINDOWS +1 +3 17 14 32 14 79
  168. WINCLOSE
  169. PROMPT ON
  170. PROMPT OFF
  171. JUMP TEST_WIN
  172.  
  173. ' you know the windows directory, now install it
  174. :WIN_INSTALL
  175. CALL TMP_DEL
  176.  
  177. PROMPT OFF              ' make backup of progman.ini
  178. COPY ~1~2\PROGMAN.INI ~1~2\PROGMAN.BAK 0 0 0
  179. PROMPT ON
  180. FILE ~1~2\PROGMAN.INI
  181. "Group506=~1\WARI\WARI.GRP"
  182.  
  183. PATH \WARI
  184. MD ~1~2
  185.  
  186. CALL EMPTY_DIR
  187.  
  188. CALL UNPACK
  189.  
  190.  
  191. ' --------------------------------
  192. '  successful install to windows
  193. ' --------------------------------
  194. WINOPEN 0 4 31
  195. "WARI has been installed in your Windows environment"
  196. "in the ~1~2 directory.  However, these changes won't"
  197. "take effect until you exit Windows, then run Windows again."
  198. ""
  199. ""
  200. ""
  201. "Press ENTER to return to Windows."
  202. WINUPDATE +12 +5 27
  203. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  204. WAIT +35 +7
  205. WINCLOSE
  206. END
  207.  
  208. ' ------------------
  209. '   error messages
  210. ' ------------------
  211. :INSTALL_FAILURE
  212. BEEP
  213. WINOPEN 0 4 79
  214. "WARI INSTALLATION FAILED BEFORE IT FINISHED!!"
  215. ""
  216. "Possible reasons:"
  217. "   -- The floppy disk was damaged during shipping."
  218. "   -- Your disk drive is out of alignment."
  219. ""
  220. "You may want to delete the files in the ~1~2 directory."
  221. ""
  222. "      Press [Enter] to Quit."
  223. WAIT +30 +9
  224. WINCLOSE
  225. JUMP EXIT
  226.  
  227. ' -----------
  228. ' subroutines
  229. ' -----------
  230. :EMPTY_DIR
  231. EXIST ~1~2\*.*                 ' brand new directory
  232. JUMP.NO SKIP_DEL
  233.  
  234. EXIST ~1~2\WARI.EXE            ' existing software
  235. JUMP.YES SKIP_DEL
  236.  
  237. WINOPEN 0 4 79
  238. "The directory ~1~2 already exists and contains files!"
  239. ""
  240. "   You will have to DELETE ALL THE FILES in this"
  241. "   directory prior to installing Wari here."
  242. ""
  243. "Press ENTER to Continue."
  244. WAIT +25 +6
  245. WINCLOSE
  246. JUMP OPENING
  247.  
  248. :SKIP_DEL
  249. RETURN
  250.  
  251. ' unpack data files
  252. :UNPACK
  253.  
  254. PROMPT OFF
  255. COPY ~3\CONFIG.SYS ~3\CONFIG.BAK 0 0 0
  256. PROMPT ON
  257. SET.FILES 16
  258.  
  259. FILE ~1~2\TEST_DIR.XY$
  260. "testing whether user is trying to install to same directory."
  261. EXIST ~0\TEST_DIR.XY$
  262. JUMP.YES UNPACK_BACK
  263.  
  264. COPY ~0\WARI*.*      ~1~2\ 0 12 31
  265. JUMP.FAIL INSTALL_FAILURE
  266.  
  267. COPY ~0\PLAYER.WL    ~1~2\ 0 12 31
  268. JUMP.FAIL INSTALL_FAILURE
  269.  
  270. COPY ~0\DEMO.*       ~1~2\ 0 12 31
  271. JUMP.FAIL INSTALL_FAILURE
  272.  
  273. COPY ~0\*.TXT        ~1~2\ 0 12 31
  274. JUMP.FAIL INSTALL_FAILURE
  275.  
  276. :UNPACK_BACK
  277. PROMPT OFF
  278. DELETE ~1~2\TEST_DIR.XY$ 0 0 0
  279. PROMPT ON
  280. RETURN
  281.  
  282. ' create a temporary file in the default directory with a unique name based on the number input by the user
  283. :TEMP_FILE
  284. FILE ~3\~A.TMP
  285. "Delete this temporary file."
  286. RETURN
  287.  
  288. ' delete temporary file created by opening menu
  289. :TMP_DEL
  290. PROMPT OFF
  291. DELETE ~3\~A.TMP 0 0 0
  292. PROMPT ON
  293. RETURN
  294.  
  295. :ESC
  296. WINOPEN 0 20 31
  297. "(Press ESC to Quit) "
  298. RETURN
  299.  
  300. :NO_VGA
  301. VIDEO VGA              ' vga monitor is required
  302. JUMP.YES SKIP_VGA
  303. WINOPEN 0 4 79
  304. "This software requires a VGA monitor to run."
  305. "It probably won't run on your computer.  Do"
  306. "you want to install it anyway        Y or N?"
  307. ASK +39 +3
  308. JUMP.YES SKIP_VGA
  309. JUMP EXIT
  310. :SKIP_VGA
  311. RETURN
  312.  
  313. :EXIT
  314. CALL TMP_DEL
  315. END
  316.