; $VER: Capital Punishment HD Install-Script V1.0 (31.07.96) © clickBOOM 1996
; fixed by Chuck

(set GameDir "CapitalPunishment")


(if (exists "Games:" (noreq) )
    (set @default-dest "Games:")

    (if (exists "SYS:Games" (noreq) )
        (set @default-dest "SYS:Games")

        (if (exists "Work:Games" (noreq) )
            (set @default-dest "Work:Games")
        )
    )
)

(complete 0)

;*********************************************************************
;       Text to display in english

(set #yes_eng   "YES")
(set #no_eng    "NO")

(set #par_lock_eng
        (cat
                "\n\n"
                "Do you wish to install the Parental Lock ?\n" 
        )
)

(set #par_lock_help_eng   "\n Please, consult Capital Punishment manual.\n")

(set #dest_dir_eng
        (cat
                " Where would you like to create a \"Capital Punishment\""
                " drawer and install the game ?"
        )
)

(set #dest_dir_help_eng
        (cat
                "The requested directory is the one where you hold your games.\n"
                "It is usually GAMES:, Work:Games, etc...\n"
        )
)

(set #hd_floppy_eng
        "Would you like to make a \"boot disk\" ?\n\n"
)


(set #hd_floppy_help_eng
        (cat
                "\n\n"
                " Please consult Capital Punishment manual\n"
        )
)

(set #insert_disk_eng
        (cat
                "\n Please insert a floppy disk into the drive DF0:\n"
                "\n WARNING : the disk will be formatted and all the data\n"
                " on it will be erased !\n"
        )
)

(set #formatting_eng     
        (cat
                "\n The disk is now being formatted. Please wait...\n"
                "\n IMPORTANT NOTE : DO NOT REMOVE the disk from \n"
                " the drive until prompted\n\n"
        )
)

(set #remove_eng  "You can now remove the disk in DF0:\n")

(set #copying_eng       "Copying files... Please wait.\n")

(set #disk1_eng         "Please insert Capital Punishment disk 1\n")
(set #disk2_eng         "Please insert Capital Punishment disk 2\n")
(set #disk3_eng         "Please insert Capital Punishment disk 3\n")
(set #disk4_eng         "Please insert Capital Punishment disk 4\n")
(set #disk5_eng         "Please insert Capital Punishment disk 5\n")
(set #disk6_eng         "Please insert Capital Punishment disk 6\n")
(set #disk7_eng         "Please insert Capital Punishment disk 7\n")

(set #unpacking_eng     "Unpacking... Please wait...\n")

(set #060_eng           "Is your CPU a MC68060 ?\n")
(set #060_eng_help      "Select YES if your CPU is MC68060, NO if it isn't\n")


;***********************************************************************

(set #yes_deu   "JA")
(set #no_deu    "NEIN")


(set #par_lock_deu
        (cat
                "\n\n"
                "Möchten Sie die Kindersicherung installieren ?\n" 
        )
)

(set #par_lock_help_deu 
              (cat
                         "\n Hilfe: Bitte schlagen Sie in Ihrer\n"
                         " Capital-Punishment-Anleitung nach.\n"
              )
)

(set #dest_dir_deu
        (cat
                " In welchem Verzeichnis soll die Schublade \n"
                " \"Capital Punishment\" erzeugt werden ?"
        )
)

(set #dest_dir_help_deu
        (cat
                "The requested directory is the one where you hold your games.\n"
                "It is usually GAMES:, Work:Games, etc...\n"
        )
)

(set #hd_floppy_deu
        " Wollen Sie eine Boot-Disk anlegen ?\n\n"
)


(set #hd_floppy_help_deu
        (cat
                "\n\n"
                " Bitte schlagen Sie in Ihrer \n"
                " Capital-Punishment-Anleitung nach.\n"
        )
)

(set #insert_disk_deu
        (cat
                "\n Please insert a floppy disk into the drive DF0:\n"
                "\n WARNING : the disk will be formatted and all the data\n"
                " on it will be erased !\n"
        )
)

(set #formatting_deu    
        (cat
                "\n WICHTIGER HINWEIS: ENTFERNEN SIE NICHT die Diskette\n"
                " aus dem Laufwerk, bevor Sie dazu aufgefordert werden !\n\n"
        )
)

(set #remove_deu  "Sie koennen jetzt die Disk aus DF0: entfernen.\n")

(set #copying_deu       "Kopiere Daten... Bitte warten.\n")

(set #disk1_deu         "Bitte legen Sie Capital Punishment Disk 1\n")
(set #disk2_deu         "Bitte legen Sie Capital Punishment Disk 2\n")
(set #disk3_deu         "Bitte legen Sie Capital Punishment Disk 3\n")
(set #disk4_deu         "Bitte legen Sie Capital Punishment Disk 4\n")
(set #disk5_deu         "Bitte legen Sie Capital Punishment Disk 5\n")
(set #disk6_deu         "Bitte legen Sie Capital Punishment Disk 6\n")
(set #disk7_deu         "Bitte legen Sie Capital Punishment Disk 7\n")

(set #unpacking_deu     "Unpacking... Please wait...\n")


(set #060_deu           "Haben Sie einen MC68060-Prozessor ?\n")
(set #060_deu_help      "Waehlen Sie JA, wenn Ihr Computer ueber eine MC68060-CPU verfuegt.\n")


;************************************************************************



    (copyfiles (source "Punishment-disk1:Lha")
               (dest "ram:")
               (NOGAUGE)
    )

    (copyfiles (source "Punishment-disk1:delete")
               (dest "ram:")
               (NOGAUGE)
    )

    (copyfiles (source "Punishment-disk1:format")
               (dest "ram:")
               (NOGAUGE)
    )

    (copyfiles (source "Punishment-disk1:inst")
               (dest "ram:")
               (NOGAUGE)
    )

    (copyfiles (source "Punishment-disk1:rename")
               (dest "ram:")
               (NOGAUGE)
    )



;*********** Language selection ****************************
(set language
                (askchoice 
                        (prompt "")
                        (choices "English" "Deutsch")
                        (help    @askchoice-help)
                        (default 0)
                )
)


(if (= language 0)
        (
                (set #yes              #yes_eng)
                (set #no               #no_eng)
                (set #dest_dir         #dest_dir_eng)
                (set #dest_dir_help    #dest_dir_help_eng)
                (set #hd_floppy        #hd_floppy_eng)
                (set #hd_floppy_help   #hd_floppy_help_eng)
                (set #insert_disk      #insert_disk_eng)
                (set #formatting       #formatting_eng)
                (set #par_lock         #par_lock_eng)
                (set #par_lock_help    #par_lock_help_eng)
                (set #remove           #remove_eng)
                (set #copying          #copying_eng)
                (set #disk_1           #disk1_eng)
                (set #disk_2           #disk2_eng)
                (set #disk_3           #disk3_eng)
                (set #disk_4           #disk4_eng)
                (set #disk_5           #disk5_eng)
                (set #disk_6           #disk6_eng)
                (set #disk_7           #disk7_eng)
                (set #unpacking        #unpacking_eng)
                (set #060              #060_eng)
                (set #060_help         #060_eng_help)
        )
)

(if (= language 1)
        (

                (set #yes              #yes_deu)
                (set #no               #no_deu)
                (set #dest_dir         #dest_dir_deu)
                (set #dest_dir_help    #dest_dir_help_deu)
                (set #hd_floppy        #hd_floppy_deu)
                (set #hd_floppy_help   #hd_floppy_help_deu)
                (set #insert_disk      #insert_disk_deu)
                (set #formatting       #formatting_deu)
                (set #par_lock         #par_lock_deu)
                (set #par_lock_help    #par_lock_help_deu)
                (set #remove           #remove_deu)
                (set #copying          #copying_deu)
                (set #disk_1           #disk1_deu)
                (set #disk_2           #disk2_deu)
                (set #disk_3           #disk3_deu)
                (set #disk_4           #disk4_deu)
                (set #disk_5           #disk5_deu)
                (set #disk_6           #disk6_deu)
                (set #disk_7           #disk7_deu)
                (set #unpacking        #unpacking_deu)
                (set #060              #060_deu)
                (set #060_help         #060_deu_help)
        )
)


        (complete 0)

        (set lock1      (askchoice
                                (prompt #par_lock)
                                (help   #par_lock_help)
                                (choices #yes #no)
                                (default 1)
                        )
        )
        
        (complete 5)



        (set default-dest
             (tackon (askdir 
                        (prompt #dest_dir)
                        (help   #dest_dir_help)
                        (default @default-dest)
                        (newpath)
                     )
                     GameDir
             )
        )

        (set @default-dest default-dest)

        (complete 15)

        (makedir @default-dest
                    (infos)
        )

        
        
         (askdisk (dest "Punishment-disk1")
                    (prompt #disk_1)
                    (help   #disk_1)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk1:Capital.lha")
                (dest   default-dest)
         )

         (complete 25)


         (askdisk (dest "Punishment-disk2")
                    (prompt #disk_2)
                    (help   #disk_2)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk2:CapitalPunishment.lha")
                (dest   default-dest)
         )

         (complete 35)



         (askdisk (dest "Punishment-disk3")
                    (prompt #disk_3)
                    (help   #disk_3)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk3:CapitalPunishment.l01")
                (dest   default-dest)
         )

         (complete 45)


         (askdisk (dest "Punishment-disk4")
                    (prompt #disk_4)
                    (help   #disk_4)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk4:CapitalPunishment.l02")
                (dest   default-dest)
         )

         (complete 55)


         (askdisk (dest "Punishment-disk5")
                    (prompt #disk_5)
                    (help   #disk_5)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk5:CapitalPunishment.l03")
                (dest   default-dest)
         )

         (complete 65)


         (askdisk (dest "Punishment-disk6")
                    (prompt #disk_6)
                    (help   #disk_6)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk6:CapitalPunishment.l04")
                (dest   default-dest)
         )

         (complete 75)



         (askdisk (dest "Punishment-disk7")
                    (prompt #disk_7)
                    (help   #disk_7)
                    (assigns)
         )

         (working #copying)
         (copyfiles
                (source "Punishment-disk7:CapitalPunishment.l05")
                (dest   default-dest)
         )
         (copyfiles
                (source "Punishment-disk7:More")
                (dest   default-dest)
         )
         (copyfiles
                (source "Punishment-disk7:Notes")
                (dest   default-dest)
         )
         (copyfiles
                (source "Punishment-disk7:Notes.info")
                (dest   default-dest)
         )
         (copyfiles
                (source "Punishment-disk7:Welcome")
                (dest   default-dest)
         )
         (copyfiles
                (source "Punishment-disk7:Welcome.info")
                (dest   default-dest)
         )

         (complete 85)



        (working #unpacking)

         (run ("RAM:Lha x \"%s/Capital.lha\" \"%s/\"" default-dest default-dest)
         )
          (set delfile ("\"%s/Capital.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))
         (run ("Join >NIL: \"%s/CapitalPunishment.lha\" \"%s/CapitalPunishment.l01\" AS \"%s/CapitalPunishment1.lha\"" default-dest default-dest default-dest)
         )
          (set delfile ("\"%s/CapitalPunishment.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))
          (set delfile ("\"%s/CapitalPunishment.l01\"" default-dest))
          (run ("RAM:delete %s" delfile))
         (run ("Join >NIL: \"%s/CapitalPunishment1.lha\" \"%s/CapitalPunishment.l02\" AS \"%s/CapitalPunishment01.lha\"" default-dest default-dest default-dest)
         )
          (set delfile ("\"%s/CapitalPunishment.l02\"" default-dest))
          (run ("RAM:delete %s" delfile))
          (set delfile ("\"%s/CapitalPunishment1.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))
         (run ("Join >NIL: \"%s/CapitalPunishment01.lha\" \"%s/CapitalPunishment.l03\" AS \"%s/CapitalPunishment1.lha\"" default-dest default-dest default-dest)
         )
          (set delfile ("\"%s/CapitalPunishment.l03\"" default-dest))
          (run ("RAM:delete %s" delfile))
          (set delfile ("\"%s/CapitalPunishment01.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))
         (run ("Join >NIL: \"%s/CapitalPunishment1.lha\" \"%s/CapitalPunishment.l04\" AS \"%s/CapitalPunishment01.lha\"" default-dest default-dest default-dest)
         )
          (set delfile ("\"%s/CapitalPunishment.l04\"" default-dest))
          (run ("RAM:delete %s" delfile))
          (set delfile ("\"%s/CapitalPunishment1.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))
         (run ("Join >NIL: \"%s/CapitalPunishment01.lha\" \"%s/CapitalPunishment.l05\" AS \"%s/CapitalPunishment1.lha\"" default-dest default-dest default-dest)
         )
          (set delfile ("\"%s/CapitalPunishment.l05\"" default-dest))
          (run ("RAM:delete %s" delfile))
          (set delfile ("\"%s/CapitalPunishment01.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))
         (run ("Join >NIL: \"%s/CapitalPunishment1.lha\" \"%s/CapitalPunishment.l06\" AS \"%s/CapitalPunishment01.lha\"" default-dest default-dest default-dest)
         )
          (set delfile ("\"%s/CapitalPunishment.l06\"" default-dest))
          (run ("RAM:delete %s" delfile))
          (set delfile ("\"%s/CapitalPunishment1.lha\"" default-dest))
          (run ("RAM:delete %s" delfile))

         (run ("RAM:Lha x \"%s/CapitalPunishment01.lha\" \"%s/\"" default-dest default-dest)
         )
         (complete 90)

        (set delfile ("\"%s/CapitalPunishment01.lha\"" default-dest))
        (run ("RAM:delete %s" delfile))

        (set CPU        (askchoice
                                (prompt #060)
                                (help   #060_help)
                                (choices #yes #no)
                                (default 1)
                        )
        )

        (if
                (askbool
                        (prompt #hd_floppy)
                        (help   #hd_floppy_help)
                )
                (
                        (message #insert_disk)
                        
                        (working #formatting)
                        (while
                                (run "RAM:format >NIL: drive DF0: name CapitalBOOT noicons FFS")
                                (
                                        (message #insert_disk)
                                        (working #formatting)
                                )
                        )
                        (run "RAM:inst df0: FFS")

                        (makedir "CapitalBOOT:s")

                        (if (= CPU 0)
                        (
                                (textfile
                                (dest "CapitalBOOT:s/startup-sequence")
                                (append
                                           (cat "cd \"" default-dest "\""
                                                "\nassign LIBS: 060 add\n"
                                                "setpatch"
                                                "\nexecute cp\n"
                                           )
                                )
                        )
                        )
                        )

                        (if (= CPU 1)
                        (
                                (textfile
                                (dest "CapitalBOOT:s/startup-sequence")
                                (append
                                           (cat "cd \"" default-dest "\""
                                                "\nexecute cp\n"
                                           )
                                )
                        )
                        )
                        )
                        
                        (message ("%s" #remove))
                )
        )


        (complete 96)

        (if (= lock1 1)
        (
                (set delfile ("\"%s/DATA/ALL/P1\"" default-dest))
                (run ("RAM:delete %s" delfile))
                
                (set delfile ("\"%s/Bobs/3c.war\"" default-dest))
                (run ("RAM:delete %s" delfile))

                (set ren1file ("\"%s/Bobs/3o.war\"" default-dest))
                (set ren2file ("\"%s/Bobs/3.war\"" default-dest))
                (run ("RAM:rename %s as %s" ren1file ren2file))
        )
        )

        (if (= lock1 0)
        (
                (set delfile ("\"%s/Bobs/3o.war\"" default-dest))
                (run ("RAM:delete %s" delfile))

                (set ren1file ("\"%s/Bobs/3c.war\"" default-dest))
                (set ren2file ("\"%s/Bobs/3.war\"" default-dest))
                (run ("RAM:rename %s as %s" ren1file ren2file))
        )
        )


        (if (= language 0)
           (
                (set delfile ("\"%s/DATA/ALL/P2\"" default-dest))
                (run ("RAM:delete %s" delfile))
        
           )
        )

         (complete 98)


                        (if (= CPU 0)
                        (
                                 (textfile
                                       (dest "sys:punish")
                                       (append
                                            (cat "cd \"" default-dest "\""
                                                 "\nassign LIBS: 060 add\n"
                                                 "setpatch"
                                                 "\nexecute cp\n"
                                            )
                                       )
                                 )
                        )
                        )

                        (if (= CPU 1)
                        (
                                 (textfile
                                       (dest "sys:punish")
                                       (append
                                            (cat "cd \"" default-dest "\""
                                                 "\nexecute cp\n"
                                            )
                                       )
                                 )
                        )
                        )


        (run ("RAM:delete RAM:lha"))
        (run ("RAM:delete RAM:inst"))
        (run ("RAM:delete RAM:format"))
        (run ("RAM:delete RAM:rename"))
        (run ("RAM:delete RAM:delete"))