home *** CD-ROM | disk | FTP | other *** search
/ America Adventure / AMERICAADVE.BIN / america / iinstall.scr < prev    next >
Text File  |  1993-12-15  |  3KB  |  137 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 24 blue
  8. color back cyan
  9. rem only one language, so don't show menu
  10. rem type %_text%\install.txt 2 2 77 6  -border
  11. rem textbox 1 9 80 13 blue
  12. menu %_text%\startup.mnu 15 11 50 7 %_text%\startup.tit %_text%\updown.leg -default 0 -lookupOnly
  13. set LANG %_1%
  14. set yes %_2%
  15. set no %_3%
  16. set shortTitle %_4%
  17. set title "%_5%"
  18. switch %_1%
  19. case quit:
  20.                 goto exit_unsaved
  21. case escape:
  22.                 goto exit_unsaved
  23. case default:
  24. endswitch
  25. set _text inst%LANG%.txl
  26. type %_text%\install.txt 2 2 77 6  -border
  27. rem ---------  Ask user Where to install it ------------
  28. textbox 1 9 80 16 blue
  29. promptdir c:\%shortTitle% 20 11 40 7 %_text%\whichdrv.tit %_text%\whichdrv.txt 
  30. if %_1% eq escape
  31.     goto exit_unsaved
  32. endif
  33. setdestdir %_1%
  34. mkdirdest
  35. if %_err% != 0
  36.     beep
  37.     type %_text%\noaccess.txt 9 11 62 9 -border
  38.     waitkey_noesc
  39.     goto exit_unsaved
  40. endif
  41. textbox 1 9 80 16 blue
  42. getVga
  43. if %_err% = 1
  44.     type %_text%\novga.txt 9 11 62 13 -border
  45.     waitkey
  46.     textbox 1 9 80 16 blue
  47. endif
  48. set _needDisk 3.25
  49. getdiskfree
  50. set _gotDisk %_1%
  51. if %_gotDisk% < %_needDisk%
  52.     type %_text%\diskfree.txt 9 11 62 9 -border
  53.     waitkey_noesc
  54.     goto exit_unsaved
  55. endif
  56. set needMem 523
  57. getmemfree
  58. set _gotMem %_1%
  59. if %_gotMem% < %needMem%
  60.     type %_text%\memfree.txt 9 11 62 9 -border
  61.     waitkey
  62.     textbox 1 9 80 16 blue
  63. endif
  64. rem determine which version to install; default is 486
  65. set _links ka486.lnk
  66. set _needCpu 486
  67. getCpuType
  68. set _gotCpu %_1%
  69. if %_gotCpu% < %_needCpu%
  70. :ask_cpu
  71.     type %_text%\cpuid.txt 9 11 62 14 -border
  72.     waitkey
  73.     textbox 1 9 80 16
  74.     switch %_1%
  75.     case %yes%:
  76.         set _links ka386.lnk
  77.     case %no%:
  78.         rem do nothing
  79.     case default:
  80.         goto ask_cpu
  81.     endswitch
  82. endif
  83. rem set CDroot %CDroot%\_archiveDir
  84. ifcanwrite can_write
  85.     type %_text%\noaccess.txt 9 11 62 9 -border
  86.     waitkey_noesc
  87.     goto exit_unsaved
  88. :can_write
  89. type %_text%\copying.txt 9 11 62 9 -border
  90. saveconfig
  91. copy readme.bat
  92. copy readme.doc
  93. copy %shortTitle%.ico %shortTitle%.ico
  94. copy %shortTitle%.pif %shortTitle%.pif
  95. rem Copy files needed for sound test
  96. copy ka.ad
  97. copy knowledg.voc
  98. copy sbtest.com
  99. copy kalogo.adl
  100. copy kalogo.rld
  101. copy iinstall.exe setup.exe
  102. copy setup.scr
  103. rem copy iinstall.pal
  104. rem copy iinstall.fnt
  105. rem Copy files needed for real product
  106. copy ka.bml
  107. copy ka.com
  108. copy ka.db
  109. copy ka.inl
  110. rem copy ka.lch
  111. copy %_links% ka.lnk
  112. copy ka.ndx
  113. copy ka.not
  114. copy ka.skp
  115. type %_text%\copying2.txt 9 11 62 9 -border
  116. copy ka.txt
  117. copy kaicons.pal
  118. copy kav.pgm
  119. copy mouse.com
  120. copy moustest.exe
  121. copy small.fnt
  122. copy standard.fnt
  123. copy tiny.fnt
  124. copy vgacapt.exe
  125. copy whichvga.com
  126. copy vrsd.386
  127. rem Done copying.
  128. :install_done
  129. type %_text%\finish.txt 9 11 62 9 -border
  130. beep
  131. waitkey
  132. chain .\setup
  133. :exit_unsaved
  134. textbox 1 1 80 25 black
  135. quit
  136.  
  137.