home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 2 / CD-ROM_Today_-_The_Disc_2_June-July_1994.iso / bodydemo / install.scr < prev    next >
Text File  |  1994-04-13  |  5KB  |  205 lines
  1. rem Set default language
  2. set LANG eng
  3. set _text inst%LANG%.txl
  4. err_handler %_text%\errhand.txt
  5. getOpt -N:
  6. switch %_err%
  7. case 0:
  8.         rem -N given, add it to options
  9.         set _next %_1%
  10. case 1:
  11.         rem -N not given
  12.         set _next 9999
  13. endswitch
  14. getOpt -help
  15. if %_err% = 0
  16.         textbox 1 1 80 25 blue
  17.         type %_text%\insthlp.txt 3 2 77 15 -border -nocenter
  18.         waitkey
  19.         goto exit_unsaved
  20. endif
  21. rem ----------------- select language/quit --------------------
  22. :pick_language
  23. rem textbox 1 1 80 24 blue
  24. color back cyan
  25. rem only one language, so don't show menu
  26. rem type %_text%\install.txt 2 2 77 6  -border
  27. rem textbox 1 9 80 13 blue
  28. menu %_text%\startup.mnu 15 11 50 7 %_text%\startup.tit %_text%\updown.leg -default 0 -lookupOnly
  29. set LANG %_1%
  30. set yes %_2%
  31. set no %_3%
  32. set shortTitle %_4%
  33. set title "%_5%"
  34. switch %_1%
  35. case quit:
  36.                 goto exit_unsaved
  37. case escape:
  38.                 goto exit_unsaved
  39. case default:
  40. endswitch
  41. set _text inst%LANG%.txl
  42. rem type %_text%\install.txt 3 2 76 6  -border
  43. color text yellow
  44. rem echo 5 6 70 1 -center "%title%"
  45. color text white
  46. rem --------- Check for windows and warn if present ---------
  47. rem getenv's argument is case sensitive, almost always uppercase,
  48. rem but windir is lowercase.  That way you can't set it from commandline!
  49. getenv windir
  50. if "%_1%" ne ""
  51.         rem by golly they're in windows;
  52.         type %_text%\nowin.txt 10 11 60 7 -border
  53.         waitkey_noesc
  54.         switch %_1%
  55.         case escape:
  56.             rem fall through and install
  57.             textbox 5 10 70 10 blue
  58.         case default:
  59.             goto exit_unsaved
  60.         endswitch
  61. endif
  62. rem -------------- Text vs. Graphics Install ---------
  63. rem Don't switch into graphics if -T is given
  64. getOpt -T
  65. switch %_err%
  66. case 0:
  67.         rem -T given, no graphics
  68.         textbox 1 1 80 25 blue
  69.         color back cyan
  70.         type %_text%\install.txt 3 2 76 6  -border 
  71.         color text yellow
  72.         echo 5 6 70 1 -center "%title%"
  73.         color text white
  74.         set _options "-T"
  75. case 1:
  76.         rem -T not given, use graphics
  77.         graphics 
  78.         if %_err% > 0
  79.                 beep
  80.                 type %_text%\novga.txt 5 17 72 8 -border
  81.                 waitkey
  82.         endif
  83. endswitch
  84. pict install1.img 19 2
  85. rem ---------  Ask user Where to install it ------------
  86. promptdir  C:\%shortTitle% 13 17 58 8 %_text%\whichdrv.tit %_text%\whichdrv.txt -center
  87. textbox 1 17 80 9 blue
  88. if %_1% eq escape
  89.     goto exit_unsaved
  90. endif
  91. setdestdir %_1%
  92. getDriveLetter %CDroot%
  93. set CDdrive %_1%
  94. getDriveLetter %HDroot%
  95. set HDdrive %_1%
  96. getVga
  97. if %_err% = 1
  98.     type %_text%\novga.txt 2 13 77 10 -border
  99.     waitkey
  100.     textbox 1 12 80 13 blue
  101. endif
  102. set _needDisk 2.5
  103. rem Two different error messages: one for compressed full disks.
  104. set _diskWarning diskfree.txt
  105. set shadowCD On
  106. detect_compressedDisk
  107. if %_1% = 1
  108.                 set shadowCD Off
  109.         set _diskWarning dskcfree.txt
  110.         add _needDisk %_needDisk%
  111. endif
  112. getdiskfree
  113. set _gotDisk %_1%
  114. if %_gotDisk% < %_needDisk%
  115.     type %_text%\%_diskWarning% 17 17 50 8 -border
  116.     waitkey_noesc
  117.     goto exit_unsaved
  118. endif
  119. set needMem 520
  120. getmemfree
  121. set _gotMem %_1%
  122. if %_gotMem% < %needMem%
  123.     type %_text%\memfree.txt 17 19 50 6 -border
  124.     waitkey
  125.     textbox 1 17 80 8 blue
  126. endif
  127. mkdirdest
  128. if %_err% != 0
  129.     beep
  130.     type %_text%\noaccess.txt 17 19 50 6 -border
  131.     waitkey_noesc
  132.     goto exit_unsaved
  133. endif
  134. ifcanwrite can_write
  135.     type %_text%\noaccess.txt 17 19 50 6 -border
  136.     waitkey_noesc
  137.     goto exit_unsaved
  138. :can_write
  139. exist install2.img
  140. if %_1% = 1
  141.         textbox 1 1 80 19 blue
  142.         pict install2.img 19 2
  143. endif
  144. type %_text%\copying.txt 17 19 50 6 -border
  145. copy %_text%
  146. set _text %hdroot%\%_text%
  147. saveconfig
  148. copy %shortTitle%.ico %shortTitle%.ico
  149. copy %shortTitle%.pif %shortTitle%.pif
  150. copy callss.exe
  151. copy ssvol.exe
  152. copy cmp.arc
  153. copy fixed.pal
  154. copy install.exe setup.exe
  155. copy ka.ad
  156. copy ka.bml
  157. copy ka.com
  158. copy ka.db
  159. copy ka.inl
  160. copy ka.lch
  161. copy ka.lnk
  162. copy ka.ndx
  163. copy ka.not
  164. copy ka.skp
  165. copy ka.str
  166. copy ka.txt
  167. copy kahd.iml
  168. copy kahd.snd
  169. copy kalogo.adl
  170. copy kalogo.rld
  171. copy kav.pgm
  172. copy kawin.exe
  173. copy kawin.txt
  174. copy knowledg.voc
  175. copy more.com
  176. copy mouse.com
  177. copy moustest.exe
  178. copy nofiles.txt
  179. copy readme.dat readme.bat -expand
  180. copy readme.ico
  181. copy readme.pif
  182. copy sbtest.com
  183. copy setup.scr
  184. copy small.fnt
  185. copy standard.fnt
  186. copy txt.arc
  187. copy zsc.arc
  188. copy cmp.arc
  189. copy mov.arc
  190. copy zrun.exe
  191. copy vgacapt.exe
  192. copy whichvga.com
  193. rem type %_text%\copying2.txt 17 19 50 6 -border
  194. rem Make batch file so shell install can loop.
  195. copy %_text%\install.bat install.bat -expand
  196. rem Done copying.
  197. :install_done
  198. type %_text%\finish.txt 17 18 50 7 -border
  199. beep
  200. waitkey
  201. chain .\setup
  202. :exit_unsaved
  203. textbox 1 1 80 25 black
  204. quit
  205.