home *** CD-ROM | disk | FTP | other *** search
/ Unprotect 6 / Unprotect-6.0.iso / update / aodcd12 / frn.bat < prev    next >
Encoding:
DOS Batch File  |  1995-04-24  |  8.4 KB  |  305 lines
  1. @echo off
  2.  
  3. rem ------ first find out what drive we're installing from ---------
  4. call DRIVE.EXE
  5. IF ERRORLEVEL 25 IF NOT ERRORLEVEL 26 SET IDRIVE=Z
  6. IF ERRORLEVEL 24 IF NOT ERRORLEVEL 25 SET IDRIVE=Y
  7. IF ERRORLEVEL 23 IF NOT ERRORLEVEL 24 SET IDRIVE=X
  8. IF ERRORLEVEL 22 IF NOT ERRORLEVEL 23 SET IDRIVE=W
  9. IF ERRORLEVEL 21 IF NOT ERRORLEVEL 22 SET IDRIVE=V
  10. IF ERRORLEVEL 20 IF NOT ERRORLEVEL 21 SET IDRIVE=U
  11. IF ERRORLEVEL 19 IF NOT ERRORLEVEL 20 SET IDRIVE=T
  12. IF ERRORLEVEL 18 IF NOT ERRORLEVEL 19 SET IDRIVE=S
  13. IF ERRORLEVEL 17 IF NOT ERRORLEVEL 18 SET IDRIVE=R
  14. IF ERRORLEVEL 16 IF NOT ERRORLEVEL 17 SET IDRIVE=Q
  15. IF ERRORLEVEL 15 IF NOT ERRORLEVEL 16 SET IDRIVE=P
  16. IF ERRORLEVEL 14 IF NOT ERRORLEVEL 15 SET IDRIVE=O
  17. IF ERRORLEVEL 13 IF NOT ERRORLEVEL 14 SET IDRIVE=N
  18. IF ERRORLEVEL 12 IF NOT ERRORLEVEL 13 SET IDRIVE=M
  19. IF ERRORLEVEL 11 IF NOT ERRORLEVEL 12 SET IDRIVE=L
  20. IF ERRORLEVEL 10 IF NOT ERRORLEVEL 11 SET IDRIVE=K
  21. IF ERRORLEVEL 9  IF NOT ERRORLEVEL 10 SET IDRIVE=J
  22. IF ERRORLEVEL 8  IF NOT ERRORLEVEL 9  SET IDRIVE=I
  23. IF ERRORLEVEL 7  IF NOT ERRORLEVEL 8  SET IDRIVE=H
  24. IF ERRORLEVEL 6  IF NOT ERRORLEVEL 7  SET IDRIVE=G
  25. IF ERRORLEVEL 5  IF NOT ERRORLEVEL 6  SET IDRIVE=F
  26. IF ERRORLEVEL 4  IF NOT ERRORLEVEL 5  SET IDRIVE=E
  27. IF ERRORLEVEL 3  IF NOT ERRORLEVEL 4  SET IDRIVE=D
  28. IF ERRORLEVEL 2  IF NOT ERRORLEVEL 3  SET IDRIVE=C
  29. IF ERRORLEVEL 1  IF NOT ERRORLEVEL 2  SET IDRIVE=B
  30. IF ERRORLEVEL 0  IF NOT ERRORLEVEL 1  SET IDRIVE=A
  31.  
  32. if '%1' == '' goto usage
  33.  
  34. :skipit
  35. if '%2' == '' goto chkdef
  36.  
  37. rem ----  extract the destination drive letter and path from command line
  38. IF NOT '%3'=='' GOTO ChangeD
  39. IF NOT EXIST %2\NUL GOTO BadDir
  40. FOR %%f IN (/%2) DO %0 %1 %%f %2
  41.  
  42.  
  43. :========= ChangeD ===========
  44. %2:
  45. CD %3 > NUL
  46.  
  47.  
  48. :============= warning ================
  49. echo                   *** II. Parties Sauvegardées ***
  50. echo.
  51. echo          Les parties sauvegardées sous AOD et AOD CD ne se 
  52. echo          chargeront pas correctement dans la simulation après
  53. echo          l'installation de la correction, à moins d'avoir
  54. echo          sauvegardé la mission au port. Pour préserver une carrière
  55. echo          sauvegardée en mer, ramenez votre capitaine au port et
  56. echo          sauvegardez la partie avant d'installer la
  57. echo          correction.
  58. echo.
  59. echo.
  60. echo                 Désirez-vous continuer l'installation?
  61. echo                                 (O/N)
  62. echo.
  63.  
  64. %dirtemp%GK.COM
  65. IF ERRORLEVEL 111 IF NOT ERRORLEVEL 112 GOTO startcopy
  66. IF ERRORLEVEL 110 IF NOT ERRORLEVEL 111 GOTO earlyexit
  67. IF ERRORLEVEL 79  IF NOT ERRORLEVEL 80  GOTO startcopy
  68. IF ERRORLEVEL 78  IF NOT ERRORLEVEL 79  GOTO earlyexit
  69.  
  70.  
  71.  
  72. :startcopy
  73. :next
  74. IF NOT EXIST resource.cfg goto nosim
  75. IF NOT EXIST SIM\NUL    goto nosim
  76. IF NOT EXIST SHELL\NUL  goto nosim
  77. IF NOT EXIST SOUND\NUL  goto nosim
  78.  
  79.  
  80. rem ---- make sure resource file isn't already in this directory ----
  81. IF EXIST resource.000 goto sameDir
  82. rem -----------------------------------------------------------------
  83.  
  84.  
  85. rem ---------- Unpack the files -------------
  86. cls
  87. echo.
  88. echo   ********      Décompression des fichiers en cours...       *********
  89. echo.
  90. copy %dirtemp%resource.000                        >nul
  91. copy %dirtemp%resource.001
  92. copy %dirtemp%unchunk.exe                   >nul
  93. :============= sameDir =============
  94. IF EXIST SIM\RADAR.SCR  goto skip000
  95. unchunk resource.001 . > nul
  96. unchunk resource.000 . > nul
  97. if  ERRORLEVEL 1 goto BadChunk                    
  98.                                                   
  99. rem ------- copy language specific files --------
  100. copy french\language.txt  sim\language.txt       >nul
  101. copy french\radiolog.dat  sim\radiolog.dat       >nul
  102. copy french\icons.bmp     sim\icons.bmp          >nul
  103. copy french\vehicle.frn   shell\sw\vehicle.lst   >nul
  104. copy french\top_comm.lst  shell\sw\top_comm.lst  >nul
  105. rem copy french\historic.lst  shell\sw\historic.lst  >nul
  106. copy french\shell.txt     shell\sw\shell.txt     >nul
  107. copy french\airbase.dat   sim\airbase.dat        >nul
  108. copy french\*.st_         shell\sw\*.*           >nul
  109.  
  110. :======= readmecheck =========
  111. copy %dirtemp%readme.frn  french\readme.         >nul
  112. IF EXIST readme.old goto skip1
  113. IF EXIST readme.    copy readme. readme.old
  114. IF EXIST read.me    copy read.me readme.old
  115.  
  116. :====  skip1 ====
  117. IF NOT EXIST readme. goto chngname
  118. copy french\readme.                              >nul
  119. goto skip2
  120. :==== chngname ====
  121. copy french\readme. read.me                      >nul
  122. :====  skip2  ====
  123. cls
  124. goto playNow
  125. rem ------------------------------------------------------
  126.  
  127.  
  128. :==== skip000 ====
  129. unchunk resource.001 . > nul
  130. if ERRORLEVEL 1 goto BadChunk
  131. copy french\language.txt sim\language.txt        >nul
  132. copy french\vehicle.lst  shell\sw\vehicle.lst    >nul
  133. goto readmecheck
  134.  
  135.  
  136. :playNow
  137. echo.
  138. echo.
  139. echo        **** Installation de la correction de AOD terminée   ****
  140. echo        *                                                       *
  141. echo        * Pour jouer maintenant:                                *
  142. echo        *    Tapez AOD et appuyez sur [ENTREE].                 *
  143. echo        *                                                       *
  144. echo        * Pour jouer plus tard:                                 *
  145. echo        *    Ouvrez le répertoire du jeu.                       *
  146. echo        *    Tapez AOD et appuyez sur [ENTREE].                 *
  147. echo        *                                                       *
  148. echo        *********************************************************
  149. goto done
  150.  
  151.  
  152. :usage 
  153. echo.
  154. echo.  
  155. echo         Pour installer la correction de AOD
  156. echo         dans un répertoire particulier:
  157. echo         Tapez "aodpatch" suivi de la lettre du lecteur, accompagnée
  158. echo         du chemin de ACES OF THE DEEP a été installé.
  159. echo.
  160. echo         Exemple: "aodpatch C:\DYNAMIX\AOD" installera la
  161. echo         correction dans le répertoire DYNAMIX\AOD de C:.
  162. echo.
  163. %IDRIVE%:
  164. IF EXIST aodpatch.bat goto end
  165. cd..
  166. goto end
  167.  
  168.  
  169. :BadDir
  170. :nosim
  171. :noshell
  172. cls
  173. echo.
  174. echo.
  175. echo          Impossible de trouver AOD dans le répertoire précisé.
  176. echo          Vérifiez le lecteur et le chemin du répertoire et 
  177. echo          relancez l'installation.
  178. echo. 
  179. echo.
  180. echo.
  181. echo.
  182. goto usage
  183.  
  184.  
  185. :========= chkdef ============
  186. rem 
  187. rem  check for aod installation in default directories
  188.  
  189. IF EXIST C:\DYNAMIX\AOD\SIM\SUBSIM.EXE   goto def1
  190. IF EXIST C:\DYNAMIX\AODCD\SIM\SUBSIM.EXE goto def2
  191. IF EXIST C:\GAMES\AOD\SIM\SUBSIM.EXE     goto def3
  192. IF EXIST C:\GAMES\AODCD\SIM\SUBSIM.EXE   goto def4
  193. goto usage
  194.  
  195.  
  196. :def1
  197. c:
  198. cd c:\dynamix\aod
  199. cls
  200. echo.
  201. echo.
  202. echo                   AOD se trouve dans C:\DYNAMIX\AOD  
  203. goto confirm
  204.  
  205. :def2
  206. c:
  207. cd c:\dynamix\aodcd
  208. cls
  209. echo.
  210. echo.
  211. echo                  AOD se trouve dans C:\DYNAMIX\AODCD
  212. goto confirm
  213.  
  214. :def3
  215. c:
  216. cd c:\games\aod
  217. cls
  218. echo.
  219. echo.
  220. echo                    AOD se trouve dans C:\GAMES\AOD
  221. goto confirm
  222.  
  223. :def4
  224. c:
  225. cd c:\games\aodcd
  226. cls
  227. echo.
  228. echo.
  229. echo                   AOD se trouve dans C:\GAMES\AODCD
  230. goto confirm
  231.  
  232.  
  233. :confirm
  234. echo.
  235. echo               Désirez-vous installer la correction de AOD
  236. echo                        dans ce répertoire? (O/N)
  237. echo.
  238. echo.
  239.  
  240. %dirtemp%GK.COM
  241. IF ERRORLEVEL 111 IF NOT ERRORLEVEL 112 GOTO warning
  242. IF ERRORLEVEL 110 IF NOT ERRORLEVEL 111 GOTO usage
  243. IF ERRORLEVEL 79  IF NOT ERRORLEVEL 80  GOTO warning
  244. IF ERRORLEVEL 78  IF NOT ERRORLEVEL 79  GOTO usage
  245. goto usage
  246.              
  247.  
  248.  
  249.  
  250. :============= earlyexit ===============
  251. %IDRIVE%:
  252. IF EXIST aodpatch.bat goto end
  253. cd..
  254. goto end
  255. rem-------------------------------------
  256.  
  257. :============= dontdoit  ===============
  258. echo.
  259. echo   ********      Décompression des fichiers en cours...       *********
  260. echo.
  261. copy %dirtemp%unchunk.exe     > nul
  262. copy %dirtemp%resource.001    > nul
  263. unchunk resource.001 . > nul
  264. goto playNow
  265. echo.
  266. echo.
  267. echo.
  268. echo                     *****      WARNING      *****
  269. echo.
  270. echo       La correction de AOD a déjà été installée
  271. echo       dans ce répertoire. Il est inutile d'installer cette correction.
  272. echo.
  273. echo.
  274. goto end
  275.  
  276.  
  277.  
  278. rem *********** error handling and clean up *********
  279.  
  280. :BadChunk
  281. echo          Impossible d'extraire le fichier ressources.
  282. goto done
  283.  
  284. :Delchunk
  285. del unchunk.exe
  286. goto done
  287.  
  288. :DelRes
  289. del resource.000
  290. goto done
  291.  
  292. :DelRes1
  293. del resource.001
  294. goto done
  295.  
  296. :done
  297. IF EXIST unchunk.exe goto Delchunk
  298. IF EXIST resource.000 goto DelRes
  299. IF EXIST resource.001 goto DelRes1
  300. SET IDRIVE=
  301. SET DEFD=
  302. SET DEFP=
  303. :end
  304.  
  305.