home *** CD-ROM | disk | FTP | other *** search
/ 3D Dinosaur Adventure / DINO16B14.iso / dino3d / install.scr < prev    next >
Text File  |  1994-03-16  |  5KB  |  210 lines
  1. rem Set default language
  2. set LANG eng
  3. set _text inst%LANG%.txl
  4. err_handler %_text%\errhand.txt
  5. rem ----------------- select language/quit --------------------
  6. :pick_language
  7. textbox 1 1 80 25 blue
  8. color back cyan
  9. getOpt -help
  10. if %_err% = 0
  11.     type %_text%\insthlp.txt 3 2 77 15 -border -nocenter
  12.     waitkey
  13.     goto exit_unsaved
  14. endif
  15. rem only one language, so don't show menu
  16. type %_text%\install.txt 2 2 77 6  -border
  17. rem textbox 1 9 80 13 blue
  18. menu %_text%\startup.mnu 15 11 50 7 %_text%\startup.tit %_text%\updown.leg -default 0 -lookupOnly
  19. set LANG %_1%
  20. set yes %_2%
  21. set no %_3%
  22. set shortTitle %_4%
  23. set title "%_5%"
  24. switch %_1%
  25. case quit:
  26.         goto exit_unsaved
  27. case escape:
  28.         goto exit_unsaved
  29. case default:
  30. endswitch
  31. set _text inst%LANG%.txl
  32. rem type %_text%\install.txt 3 2 76 6  -border
  33. color text yellow
  34. rem echo 5 6 70 1 -center "%title%"
  35. color text white
  36. rem --------- If on slow cpu, switch to alternate product --------
  37. set _needCpu 486
  38. getCpuType
  39. set _gotCpu %_1%
  40. set _version 1
  41. if %_gotCpu% < %_needCpu%
  42.     set _version 0
  43. endif
  44. color back blue
  45. type %_text%\cpuid.txt 11 19 60 5 
  46. color back cyan
  47. menu %_text%\cpuid.mnu 14 11 54 6 %_text%\cpuid.tit %_text%\updown.leg -default %_version%
  48. switch %_1%
  49. case slow:
  50.     set _links ka386.lnk
  51. case fast:
  52.     set _links ka.lnk
  53. case escape:
  54.     goto exit_unsaved
  55. endswitch
  56. textbox 1 9 80 16 blue
  57. :noCpuCheck
  58. rem -------------- Text vs. Graphics Install ---------
  59. rem Don't switch into graphics if -T is given
  60. getOpt -T
  61. switch %_err%
  62. case 0:
  63.     rem -T given, no graphics
  64.     textbox 1 1 80 25 blue
  65.     color back cyan
  66.     type %_text%\install.txt 3 2 76 6  -border 
  67.     rem color back blue
  68.     set _options "-T"
  69. case 1:
  70.     rem -T not given, use graphics
  71.     graphics 
  72.     if %_err% > 0
  73.         beep
  74.         type %_text%\novga.txt 2 2 77 10 -border
  75.         waitkey
  76.         textbox 1 1 80 25 blue
  77.     endif
  78. endswitch
  79. getOpt -N:
  80. switch %_err%
  81. case 0:
  82.     rem -N given, add it to options
  83.     set _next %_1%
  84. case 1:
  85.     rem -N not given
  86.     set _next 9999
  87. endswitch
  88. pict install.img 19 1
  89. rem ---------  Ask user Where to install it ------------
  90. promptdir  C:\%shortTitle% 13 17 58 8 %_text%\whichdrv.tit %_text%\whichdrv.txt -center
  91. textbox 1 17 80 9 blue
  92. if %_1% eq escape
  93.     goto exit_unsaved
  94. endif
  95. setdestdir %_1%
  96. rem textbox 1 9 80 16 blue
  97. getVga
  98. if %_err% = 1
  99.     type %_text%\novga.txt 2 13 77 10 -border
  100.     waitkey
  101.     textbox 1 12 80 13 blue
  102. endif
  103. set _needDisk 7.3
  104. detect_compressedDisk
  105. if %_1% = 1
  106.     add _needDisk %_needDisk%
  107. endif
  108. getdiskfree
  109. set _gotDisk %_1%
  110. if %_gotDisk% < %_needDisk%
  111.     type %_text%\diskfree.txt 17 17 50 8 -border
  112.     waitkey_noesc
  113.     goto exit_unsaved
  114. endif
  115. set needMem 520
  116. getmemfree
  117. set _gotMem %_1%
  118. if %_gotMem% < %needMem%
  119.     type %_text%\memfree.txt 17 19 50 6 -border
  120.     waitkey
  121.     textbox 1 17 80 8 blue
  122. endif
  123. mkdirdest
  124. if %_err% != 0
  125.     beep
  126.     type %_text%\noaccess.txt 17 19 50 6 -border
  127.     waitkey_noesc
  128.     goto exit_unsaved
  129. endif
  130. ifcanwrite can_write
  131.     type %_text%\noaccess.txt 17 19 50 6 -border
  132.     waitkey_noesc
  133.     goto exit_unsaved
  134. :can_write
  135. type %_text%\copying.txt 17 19 50 6 -border
  136. copy %_text%
  137. set _text %hdroot%\%_text%
  138. saveconfig
  139. copy nofiles.txt
  140. copy readme.bat readme.bat -expand
  141. copy readme.ico
  142. copy readme.pif
  143. copy more.com
  144. copy %shortTitle%.ico %shortTitle%.ico
  145. copy %shortTitle%.pif %shortTitle%.pif
  146. rem Copy files needed for sound test
  147. copy ka.ad
  148. copy knowledg.voc
  149. copy sbtest.com
  150. copy kalogo.adl
  151. copy kalogo.rld
  152. copy install.exe setup.exe
  153. copy setup.scr
  154. rem copy iinstall.pal
  155. rem copy iinstall.fnt
  156. copy kawin.txt
  157. copy kawin.exe
  158. rem Copy files needed for real product
  159. copy ka.bml
  160. copy ka.com
  161. copy ka.db
  162. copy ka.inl
  163. copy ka.str
  164. copy ka.lch
  165. copy %_links% ka.lnk
  166. copy ka.ndx
  167. copy ka.not
  168. copy ka.skp
  169. copy ka.txt
  170. copy kav.pgm
  171. copy mouse.com
  172. copy moustest.exe
  173. copy small.fnt
  174. copy standard.fnt
  175. copy tiny.fnt
  176. copy vgacapt.exe
  177. copy whichvga.com
  178. copy dinogame\black2.pal black2.pal
  179. copy dinogame\dg.evl dg.evl
  180. copy dinogame\zrun.exe zrun.exe
  181. type %_text%\copying2.txt 17 19 50 6 -border
  182. copy dinogame\dg.iml dg.iml
  183. rem copy dinogame\dg.xml dg.xml
  184. copy dinogame\dg.adl dg.adl
  185. copy dinogame\dg.rld dg.rld
  186. copy dinogame\dg.zsl dg.zsl
  187. copy dinogame\fixed.pal fixed.pal
  188. copy dinogame\ground.pal ground.pal
  189. copy dinogame\sky.pal sky.pal
  190. rem can't be done until setup time!  Put it in cachex1 and cachex2!
  191. rem copy dinogame\zrunfile zrunfile -expand
  192. rem bogus file for jim's benefit
  193. copy sb16dig.drv
  194. rem Make batch file so shell install can loop.
  195. getDriveLetter %CDroot%
  196. set CDdrive %_1%
  197. getDriveLetter %HDroot%
  198. set HDdrive %_1%
  199. rem The sub-install.bat uses _next to pass along the next menu item.
  200. copy %_text%\install.bat install.bat -expand
  201. rem Done copying.
  202. :install_done
  203. type %_text%\finish.txt 17 19 50 6 -border
  204. beep
  205. waitkey
  206. chain .\setup
  207. :exit_unsaved
  208. textbox 1 1 80 25 black
  209. quit
  210.