home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #4 / amigamamagazinepolishissue1998.iso / www / clickboom / cp / cp1.1.dms / cp1.1.adf / INSTALL < prev    next >
Text File  |  1997-02-27  |  17KB  |  594 lines
  1.  
  2. ; $VER: Capital Punishment HD Install-Script V1.1 (19.02.97) © clickBOOM 1997
  3.  
  4. (set GameDir "CapitalPunishment")
  5.  
  6. (complete 0)
  7.  
  8. ;*********************************************************************
  9. ;       Text to display in english
  10.  
  11. (set #yes_eng   "YES")
  12. (set #no_eng    "NO")
  13.  
  14. (set #par_lock_eng
  15.         (cat
  16.                 "\n\n"
  17.                 "Do you wish to install the Parental Lock ?\n" 
  18.         )
  19. )
  20.  
  21. (set #par_lock_help_eng   "\n Please, consult Capital Punishment manual.\n")
  22.  
  23. (set #dest_dir_eng
  24.         (cat
  25.                 " Where would you like to create a \"Capital Punishment\""
  26.                 " drawer and install the game ?"
  27.         )
  28. )
  29.  
  30. (set #dest_dir_help_eng
  31.         (cat
  32.                 "The requested directory is the one where you keep your games.\n"
  33.                 "It is usually GAMES:, Work:Games, etc...\n"
  34.         )
  35. )
  36.  
  37. (set #hd_floppy_eng
  38.         (cat
  39.                 "Would you like to make a \"boot disk\" ?\n\n"
  40.                 "If you choose \"No\" you will still be able to create\n"
  41.                 "a boot disk at a later date by running MakeBootDisk\n program"
  42.                 " from \"CapitalPunishment\" directory.\n"
  43.         )
  44. )
  45.  
  46.  
  47. (set #hd_floppy_help_eng
  48.         (cat
  49.                 "\n\n"
  50.                 " Please consult Capital Punishment manual\n"
  51.         )
  52. )
  53.  
  54. (set #insert_disk_eng
  55.         (cat
  56.                 "\n Please insert a floppy disk into the drive DF0:\n"
  57.                 "\n WARNING: The disk will be formatted and all the data\n"
  58.                 " on it will be erased !\n"
  59.         )
  60. )
  61.  
  62. (set #formatting_eng     
  63.         (cat
  64.                 "\n The disk is now being formatted. Please wait...\n"
  65.                 "\n IMPORTANT NOTE: DO NOT REMOVE the disk from \n"
  66.                 " the drive until prompted\n\n"
  67.         )
  68. )
  69.  
  70. (set #remove_eng  "You can now remove the disk from DF0:\n")
  71.  
  72. (set #copying_eng       "Copying files... Please wait.\n")
  73.  
  74. (set #diskinst_eng      "Please insert CapitalPunishmentInstallDisk\n")
  75. (set #disk1_eng         "Please insert Capital Punishment disk 1\n")
  76. (set #disk2_eng         "Please insert Capital Punishment disk 2\n")
  77. (set #disk3_eng         "Please insert Capital Punishment disk 3\n")
  78. (set #disk4_eng         "Please insert Capital Punishment disk 4\n")
  79. (set #disk5_eng         "Please insert Capital Punishment disk 5\n")
  80. (set #disk6_eng         "Please insert Capital Punishment disk 6\n")
  81. (set #disk7_eng         "Please insert Capital Punishment disk 7\n")
  82.  
  83. (set #unpacking_eng     "Unpacking... Please wait...\n")
  84.  
  85. ;***********************************************************************
  86.  
  87. (set #yes_deu   "JA")
  88. (set #no_deu    "NEIN")
  89.  
  90.  
  91. (set #par_lock_deu
  92.         (cat
  93.                 "\n\n"
  94.                 "Möchten Sie die Kindersicherung installieren ?\n" 
  95.         )
  96. )
  97.  
  98. (set #par_lock_help_deu 
  99.               (cat
  100.                          "\n Hilfe: Bitte schlagen Sie in Ihrer\n"
  101.                          " Capital-Punishment-Anleitung nach.\n"
  102.               )
  103. )
  104.  
  105. (set #dest_dir_deu
  106.         (cat
  107.                 " In welchem Verzeichnis soll die Schublade \n"
  108.                 " \"Capital Punishment\" erzeugt werden ?"
  109.         )
  110. )
  111.  
  112. (set #dest_dir_help_deu
  113.         (cat
  114.                 "The requested directory is the one where you hold your games.\n"
  115.                 "It is usually GAMES:, Work:Games, etc...\n"
  116.         )
  117. )
  118.  
  119. (set #hd_floppy_deu
  120.         (cat
  121.                 " Wollen Sie eine Boot-Disk anlegen ?\n\n"
  122.                 "If you choose \"No\" you will still be able to create\n"
  123.                 "a boot disk at a later date by running MakeBootDisk\nprogram"
  124.                 "from \"CapitalPunishment\" directory.\n"
  125.         )
  126. )
  127.  
  128.  
  129. (set #hd_floppy_help_deu
  130.         (cat
  131.                 "\n\n"
  132.                 " Bitte schlagen Sie in Ihrer \n"
  133.                 " Capital-Punishment-Anleitung nach.\n"
  134.         )
  135. )
  136.  
  137. (set #insert_disk_deu
  138.         (cat
  139.                 "\n Please insert a floppy disk into the drive DF0:\n"
  140.                 "\n WARNING: the disk will be formatted and all the data\n"
  141.                 " on it will be erased!\n"
  142.         )
  143. )
  144.  
  145. (set #formatting_deu    
  146.         (cat
  147.                 "\n WICHTIGER HINWEIS: ENTFERNEN SIE NICHT die Diskette\n"
  148.                 " aus dem Laufwerk, bevor Sie dazu aufgefordert werden!\n\n"
  149.         )
  150. )
  151.  
  152. (set #remove_deu  "Sie koennen jetzt die Disk aus DF0: entfernen.\n")
  153.  
  154. (set #copying_deu       "Kopiere Daten... Bitte warten.\n")
  155.  
  156. (set #diskinst_deu      "Bitte legen Sie CapitalPunishmentInstallDisk\n")
  157. (set #disk1_deu         "Bitte legen Sie Capital Punishment Disk 1\n")
  158. (set #disk2_deu         "Bitte legen Sie Capital Punishment Disk 2\n")
  159. (set #disk3_deu         "Bitte legen Sie Capital Punishment Disk 3\n")
  160. (set #disk4_deu         "Bitte legen Sie Capital Punishment Disk 4\n")
  161. (set #disk5_deu         "Bitte legen Sie Capital Punishment Disk 5\n")
  162. (set #disk6_deu         "Bitte legen Sie Capital Punishment Disk 6\n")
  163. (set #disk7_deu         "Bitte legen Sie Capital Punishment Disk 7\n")
  164.  
  165. (set #unpacking_deu     "Unpacking... Please wait...\n")
  166.  
  167. ;************************************************************************
  168.  
  169.  
  170.  
  171.     (copyfiles (source "CapitalPunishmentInstallDisk:delete")
  172.                (dest "ram:")
  173.                (NOGAUGE)
  174.     )
  175.  
  176.     (copyfiles (source "CapitalPunishmentInstallDisk:format")
  177.                (dest "ram:")
  178.                (NOGAUGE)
  179.     )
  180.  
  181.     (copyfiles (source "CapitalPunishmentInstallDisk:inst")
  182.                (dest "ram:")
  183.                (NOGAUGE)
  184.     )
  185.  
  186.     (copyfiles (source "CapitalPunishmentInstallDisk:rename")
  187.                (dest "ram:")
  188.                (NOGAUGE)
  189.     )
  190.  
  191.     (copyfiles (source "CapitalPunishmentInstallDisk:assign")
  192.                (dest "ram:")
  193.                (NOGAUGE)
  194.     )
  195.  
  196.  
  197.  
  198.  
  199.  
  200. ;*********** Language selection ****************************
  201. (set language
  202.                 (askchoice 
  203.                         (prompt "")
  204.                         (choices "English" "Deutch")
  205.                         (help    @askchoice-help)
  206.                         (default 0)
  207.                 )
  208. )
  209.  
  210.  
  211. (if (= language 0)
  212.         (
  213.                 (set #yes              #yes_eng)
  214.                 (set #no               #no_eng)
  215.                 (set #dest_dir         #dest_dir_eng)
  216.                 (set #dest_dir_help    #dest_dir_help_eng)
  217.                 (set #hd_floppy        #hd_floppy_eng)
  218.                 (set #hd_floppy_help   #hd_floppy_help_eng)
  219.                 (set #insert_disk      #insert_disk_eng)
  220.                 (set #formatting       #formatting_eng)
  221.                 (set #par_lock         #par_lock_eng)
  222.                 (set #par_lock_help    #par_lock_help_eng)
  223.                 (set #remove           #remove_eng)
  224.                 (set #copying          #copying_eng)
  225.                 (set #diskinst         #diskinst_eng)
  226.                 (set #disk_1           #disk1_eng)
  227.                 (set #disk_2           #disk2_eng)
  228.                 (set #disk_3           #disk3_eng)
  229.                 (set #disk_4           #disk4_eng)
  230.                 (set #disk_5           #disk5_eng)
  231.                 (set #disk_6           #disk6_eng)
  232.                 (set #disk_7           #disk7_eng)
  233.                 (set #unpacking        #unpacking_eng)
  234.         )
  235. )
  236.  
  237. (if (= language 1)
  238.         (
  239.  
  240.                 (set #yes              #yes_deu)
  241.                 (set #no               #no_deu)
  242.                 (set #dest_dir         #dest_dir_deu)
  243.                 (set #dest_dir_help    #dest_dir_help_deu)
  244.                 (set #hd_floppy        #hd_floppy_deu)
  245.                 (set #hd_floppy_help   #hd_floppy_help_deu)
  246.                 (set #insert_disk      #insert_disk_deu)
  247.                 (set #formatting       #formatting_deu)
  248.                 (set #par_lock         #par_lock_deu)
  249.                 (set #par_lock_help    #par_lock_help_deu)
  250.                 (set #remove           #remove_deu)
  251.                 (set #copying          #copying_deu)
  252.                 (set #diskinst         #diskinst_deu)
  253.                 (set #disk_1           #disk1_deu)
  254.                 (set #disk_2           #disk2_deu)
  255.                 (set #disk_3           #disk3_deu)
  256.                 (set #disk_4           #disk4_deu)
  257.                 (set #disk_5           #disk5_deu)
  258.                 (set #disk_6           #disk6_deu)
  259.                 (set #disk_7           #disk7_deu)
  260.                 (set #unpacking        #unpacking_deu)
  261.         )
  262. )
  263.  
  264.  
  265.         (complete 0)
  266.  
  267.         (set lock1      (askchoice
  268.                                 (prompt #par_lock)
  269.                                 (help   #par_lock_help)
  270.                                 (choices #yes #no)
  271.                                 (default 1)
  272.                         )
  273.         )
  274.         
  275.         (complete 5)
  276.  
  277.  
  278.  
  279.         (set default-dest
  280.              (tackon (askdir 
  281.                         (prompt #dest_dir)
  282.                         (help   #dest_dir_help)
  283.                         (default @default-dest)
  284.                         (newpath)
  285.                      )
  286.                      GameDir
  287.              )
  288.         )
  289.  
  290.         (set @default-dest default-dest)
  291.  
  292.         (complete 15)
  293.  
  294.         (makedir @default-dest
  295.                     (infos)
  296.         )
  297.  
  298.          (askdisk (dest "CapitalPunishmentInstallDisk")
  299.                     (prompt #diskinst)
  300.                     (help   #diskinst)
  301.                     (assigns)
  302.          )
  303.  
  304.          (copyfiles (source "CapitalPunishmentInstallDisk:format")
  305.                (dest default-dest)
  306.                (NOGAUGE)
  307.          )
  308.  
  309.          (copyfiles (source "CapitalPunishmentInstallDisk:inst")
  310.                (dest default-dest)
  311.                (NOGAUGE)
  312.          )
  313.  
  314.          (copyfiles (source "CapitalPunishmentInstallDisk:Installer")
  315.                (dest default-dest)
  316.                (NOGAUGE)
  317.          )
  318.  
  319.  
  320.          (working #copying)
  321.          (copyfiles
  322.                 (source "CapitalPunishmentInstallDisk:Upgrade.lha")
  323.                 (dest   default-dest)
  324.          )
  325.         
  326.         
  327.          (askdisk (dest "Punishment-disk1")
  328.                     (prompt #disk_1)
  329.                     (help   #disk_1)
  330.                     (assigns)
  331.          )
  332.  
  333.  
  334.          (working #copying)
  335.  
  336.          (copyfiles (source "Punishment-disk1:Lha")
  337.                (dest "ram:")
  338.                (NOGAUGE)
  339.          )
  340.  
  341.          (copyfiles (source "Punishment-disk1:l/lha.key")
  342.                (dest "ram:")
  343.                (NOGAUGE)
  344.          )
  345.  
  346.          (run ("ram:assign L: remove")
  347.          )
  348.  
  349.          (run ("ram:assign L: ram:")
  350.          )
  351.  
  352.          (copyfiles
  353.                 (source "Punishment-disk1:Capital.lha")
  354.                 (dest   default-dest)
  355.          )
  356.  
  357.          (complete 25)
  358.  
  359.  
  360.          (askdisk (dest "Punishment-disk2")
  361.                     (prompt #disk_2)
  362.                     (help   #disk_2)
  363.                     (assigns)
  364.          )
  365.  
  366.          (working #copying)
  367.          (copyfiles
  368.                 (source "Punishment-disk2:CapitalPunishment.lha")
  369.                 (dest   default-dest)
  370.          )
  371.  
  372.          (complete 35)
  373.  
  374.  
  375.  
  376.          (askdisk (dest "Punishment-disk3")
  377.                     (prompt #disk_3)
  378.                     (help   #disk_3)
  379.                     (assigns)
  380.          )
  381.  
  382.          (working #copying)
  383.          (copyfiles
  384.                 (source "Punishment-disk3:CapitalPunishment.l01")
  385.                 (dest   default-dest)
  386.          )
  387.  
  388.          (complete 45)
  389.  
  390.  
  391.          (askdisk (dest "Punishment-disk4")
  392.                     (prompt #disk_4)
  393.                     (help   #disk_4)
  394.                     (assigns)
  395.          )
  396.  
  397.          (working #copying)
  398.          (copyfiles
  399.                 (source "Punishment-disk4:CapitalPunishment.l02")
  400.                 (dest   default-dest)
  401.          )
  402.  
  403.          (complete 55)
  404.  
  405.  
  406.          (askdisk (dest "Punishment-disk5")
  407.                     (prompt #disk_5)
  408.                     (help   #disk_5)
  409.                     (assigns)
  410.          )
  411.  
  412.          (working #copying)
  413.          (copyfiles
  414.                 (source "Punishment-disk5:CapitalPunishment.l03")
  415.                 (dest   default-dest)
  416.          )
  417.  
  418.          (complete 65)
  419.  
  420.  
  421.          (askdisk (dest "Punishment-disk6")
  422.                     (prompt #disk_6)
  423.                     (help   #disk_6)
  424.                     (assigns)
  425.          )
  426.  
  427.          (working #copying)
  428.          (copyfiles
  429.                 (source "Punishment-disk6:CapitalPunishment.l04")
  430.                 (dest   default-dest)
  431.          )
  432.  
  433.          (complete 75)
  434.  
  435.  
  436.  
  437.          (askdisk (dest "Punishment-disk7")
  438.                     (prompt #disk_7)
  439.                     (help   #disk_7)
  440.                     (assigns)
  441.          )
  442.  
  443.          (working #copying)
  444.  
  445.          (copyfiles
  446.                 (source "Punishment-disk7:CapitalPunishment.l05")
  447.                 (dest   default-dest)
  448.          )
  449.  
  450.          (copyfiles
  451.                 (source "Punishment-disk7:More")
  452.                 (dest   default-dest)
  453.          )
  454.  
  455.          (complete 85)
  456.  
  457.  
  458.  
  459.         (working #unpacking)
  460.  
  461.          (run ("RAM:Lha x \"%s/Capital.lha\" \"%s/\"" default-dest default-dest)
  462.          )
  463.          
  464.         (set delfile ("\"%s/Capital.lha\"" default-dest))
  465.         (run ("RAM:delete %s" delfile))
  466.  
  467.  
  468.          (run ("RAM:Lha x -V \"%s/CapitalPunishment.lha\" \"%s/\"" default-dest default-dest)
  469.          )
  470.  
  471.  
  472.          (run ("RAM:Lha x -m \"%s/Upgrade.lha\" \"%s/\"" default-dest default-dest)
  473.          )
  474.  
  475.  
  476.          (complete 90)
  477.  
  478.  
  479.         (set delfile ("\"%s/Upgrade.lha\"" default-dest))
  480.         (run ("RAM:delete %s" delfile))
  481.         (set delfile ("\"%s/CapitalPunishment.lha\"" default-dest))
  482.         (run ("RAM:delete %s" delfile))
  483.         (set delfile ("\"%s/CapitalPunishment.l01\"" default-dest))
  484.         (run ("RAM:delete %s" delfile))
  485.         (set delfile ("\"%s/CapitalPunishment.l02\"" default-dest))
  486.         (run ("RAM:delete %s" delfile))
  487.         (set delfile ("\"%s/CapitalPunishment.l03\"" default-dest))
  488.         (run ("RAM:delete %s" delfile))
  489.         (set delfile ("\"%s/CapitalPunishment.l04\"" default-dest))
  490.         (run ("RAM:delete %s" delfile))
  491.         (set delfile ("\"%s/CapitalPunishment.l05\"" default-dest))
  492.         (run ("RAM:delete %s" delfile))
  493.  
  494.  
  495.         (complete 96)
  496.  
  497.         (if (= lock1 1)
  498.         (
  499.                 (set delfile ("\"%s/DATA/ALL/P1\"" default-dest))
  500.                 (run ("RAM:delete %s" delfile))
  501.                 
  502.                 (set delfile ("\"%s/Bobs/3c.war\"" default-dest))
  503.                 (run ("RAM:delete %s" delfile))
  504.  
  505.                 (set ren1file ("\"%s/Bobs/3o.war\"" default-dest))
  506.                 (set ren2file ("\"%s/Bobs/3.war\"" default-dest))
  507.                 (run ("RAM:rename %s as %s" ren1file ren2file))
  508.         )
  509.         )
  510.  
  511.         (if (= lock1 0)
  512.         (
  513.                 (set delfile ("\"%s/Bobs/3o.war\"" default-dest))
  514.                 (run ("RAM:delete %s" delfile))
  515.  
  516.                 (set ren1file ("\"%s/Bobs/3c.war\"" default-dest))
  517.                 (set ren2file ("\"%s/Bobs/3.war\"" default-dest))
  518.                 (run ("RAM:rename %s as %s" ren1file ren2file))
  519.         )
  520.         )
  521.  
  522.  
  523.         (if (= language 0)
  524.            (
  525.                 (set delfile ("\"%s/DATA/ALL/P2\"" default-dest))
  526.                 (run ("RAM:delete %s" delfile))
  527.         
  528.            )
  529.         )
  530.  
  531.          (complete 98)
  532.  
  533.          (textfile
  534.                  (dest "sys:punish")
  535.                  (append
  536.                          (cat "cd \"" default-dest "\""
  537.                               "\nexecute cp\n"
  538.                          )
  539.                  )
  540.          )
  541.  
  542.          (run ("ram:assign L: ram: REMOVE")
  543.          )
  544.  
  545.          (run ("ram:assign L: sys:L")
  546.          )
  547.  
  548.  
  549.         (run ("RAM:delete RAM:lha"))
  550.         (run ("RAM:delete RAM:lha.key"))
  551.         (run ("RAM:delete RAM:rename"))
  552.         (run ("RAM:delete RAM:assign"))
  553.  
  554.  
  555. ; boot disk creation
  556.  
  557.         (if
  558.                 (askbool
  559.                         (prompt #hd_floppy)
  560.                         (help   #hd_floppy_help)
  561.                 )
  562.                 (
  563.                         (message #insert_disk)
  564.                     
  565.                         (working #formatting)
  566.                         (while
  567.                                 (run "RAM:format >NIL: drive DF0: name CapitalBOOT noicons FFS")
  568.                                 (
  569.                                         (message #insert_disk)
  570.                                         (working #formatting)
  571.                                 )
  572.                         )
  573.                         (complete 99)
  574.                         (run "RAM:inst df0: FFS")
  575.  
  576.                         (makedir "CapitalBOOT:s")
  577.  
  578.                         (textfile
  579.                                 (dest "CapitalBOOT:s/startup-sequence")
  580.                                 (append
  581.                                         (cat "cd \"" default-dest "\""
  582.                                              "\nexecute cp\n"
  583.                                         )
  584.                                 )
  585.                         )
  586.                         
  587.                         (message ("%s" #remove))
  588.                 )
  589.         )
  590.  
  591.         (run ("RAM:delete RAM:inst"))
  592.         (run ("RAM:delete RAM:format"))
  593.         (run ("RAM:delete RAM:delete"))
  594.