Amiga ISO Collection/AmigaDemoCD2.iso/DEMOS/UWORLD01.DMS/in.adf/Install

Text File | 1992-09-02 | 9.5 KB | 692 lines

;
; UnderWorld Installer Utility
;
; This script is Copyright ©1995 by Dreamline Designs
;
; This Install script was created at The Party V by
;      Thomas Williams of Dreamline Designs
(
    ; Setup English strings

    (set #intro
        (cat
            "- UnderWorld -\n"
            "\n"
            "Presented to you\n"
            "by\n"
            "Dreamline Designs\n"
            "This demo requires 13 Megabytes of\n"
            "Hardisk space, and additional\n"
            "10 Megabytes for extracting etc.\n"
            "The Demo will ONLY run with the AGA-chipset!\n"
            "An A4000/030 or A1200/30 is recommended."

        )
    )

    (set #askdir
        (cat    "Select where you would like to install "
            "The Demo. A drawer called 'UnderWorld' will "
            "be created here."
        )
    )

    (set #askdir_help
        (cat
            "The demo executable and all necessary files will "
            "be installed in the directory of your choice. You "
            "may wish to create a new directory by using the "
            "'Make New Drawer' gadget.\n\n"
        )
    )

    (set #overwrite
        (cat
            "The 'UnderWorld' directory already exists, overwrite?"
        )
    )

    (set #overwrite_help
        (cat
            "You may stop the install to "
            "avoid overwriting your current "
            "version of UnderWorld.\n\n"
            "Continuing the install will "
            "overwrite your current files."
        )
    )

    (set #yes
        (cat
            "Yes"
        )
    )

    (set #no
        (cat
            "No"
        )
    )

    (set #quit
        (cat
            "Quit"
        )
    )

    (set #disk1
        (cat
            "\nPlease insert disk 1 into any drive"
        )
    )

    (set #helpdisk1
        (cat
            "Search for disk labeled 'Disk1' and "
            "insert it into any drive."
        )
    )

    (set #disk2
        (cat
            "\nPlease insert disk 2 into any drive"
        )
    )

    (set #helpdisk2
        (cat
            "Search for disk labeled 'Disk2' and "
            "insert it into any drive."
        )
    )

    (set #disk3
        (cat
            "\nPlease insert disk 3 into any drive"
        )
    )

    (set #helpdisk3
        (cat
            "Search for disk labeled 'Disk3' and "
            "insert it into any drive."
        )
    )

    (set #disk4
        (cat
            "\nPlease insert disk 4 into any drive"
        )
    )

    (set #helpdisk4
        (cat
            "Search for disk labeled 'Disk4' and "
            "insert it into any drive."
        )
    )

    (set #disk5
        (cat
            "\nPlease insert disk 5 into any drive"
        )
    )

    (set #helpdisk5
        (cat
            "Search for disk labeled 'Disk5' and "
            "insert it into any drive."
        )
    )

    (set #disk6
        (cat
            "\nPlease insert disk 6 into any drive"
        )
    )

    (set #helpdisk6
        (cat
            "Search for disk labeled 'Disk6' and "
            "insert it into any drive."
        )
    )

    (set #disk7
        (cat
            "\nPlease insert disk 7 into any drive"
        )
    )

    (set #helpdisk7
        (cat
            "Search for disk labeled 'Disk7' and "
            "insert it into any drive."
        )
    )

    (set #disk8
        (cat
            "\nPlease insert disk 8 into any drive"
        )
    )

    (set #helpdisk8
        (cat
            "Search for disk labeled 'Disk8' and "
            "insert it into any drive."
        )
    )

    (set #disk9
        (cat
            "\nPlease insert disk 9 into any drive"
        )
    )

    (set #helpdisk9
        (cat
            "Search for disk labeled 'Disk9' and "
            "insert it into any drive."
        )
    )

    (set #disk10
        (cat
            "\nPlease insert disk 10 into any drive"
        )
    )

    (set #helpdisk10
        (cat
            "Search for disk labeled 'Disk10' and "
            "insert it into any drive."
        )
    )

    (set #disk11
        (cat
            "\nPlease insert disk 11 into any drive"
        )
    )

    (set #helpdisk11
        (cat
            "Search for disk labeled 'Disk11' and "
            "insert it into any drive."
        )
    )

    (set #disk12
        (cat
            "\nPlease insert disk 12 into any drive"
        )
    )

    (set #helpdisk12
        (cat
            "Search for disk labeled 'Disk12' and "
            "insert it into any drive."
        )
    )

    (set #disk13
        (cat
            "\nPlease insert disk 13 into any drive"
        )
    )

    (set #helpdisk13
        (cat
            "Search for disk labeled 'Disk13' and "
            "insert it into any drive."
        )
    )

    (set #installed
        (cat
            "Underworld will be installed in "
        )
    )

    (set #installing
        (cat
            "Installing UnderWorld..."
        )
    )

    (set #creating
        (cat
            "Creating 'UnderWorld' directory"
        )
    )

    (set #copyingexe
        (cat
            "Copying UnderWorld executable..."
        )
    )

    (set #copyingother
        (cat
            "Copying support files..."
        )
    )

    (set #copying2disk
        (cat
            "Copying 2nd disk files..."
        )
    )

    (set #copying3disk
        (cat
            "Copying 3rd disk files..."
        )
    )

    (set #copying4disk
        (cat
            "Copying 4th disk files..."
        )
    )

    (set #copying5disk
        (cat
            "Copying 5th disk files..."
        )
    )

    (set #copying6disk
        (cat
            "Copying 6th disk files..."
        )
    )

    (set #copying7disk
        (cat
            "Copying 7th disk files..."
        )
    )

    (set #copying8disk
        (cat
            "Copying 8th disk files..."
        )
    )

    (set #copying9disk
        (cat
            "Copying 9th disk files..."
        )
    )

    (set #copying10disk
        (cat
            "Copying 10th disk files..."
        )
    )

    (set #copying11disk
        (cat
            "Copying 11th disk files..."
        )
    )

    (set #copying12disk
        (cat
            "Copying 12th disk files..."
        )
    )

    (set #copying13disk
        (cat
            "Copying 13th disk files..."
        )
    )

    (set #goodbye
        (cat
            "Thank you! Now go enjoy the show."
        )
    )

    (set #Extract
        (cat
            "Ok! ..Now I'm going to extract the files."
        )
    )

    ; Start! Show intro message...

    (message #intro)

    ; Ask where to install Underworld directory...

    (set destdir
        (askdir
            (prompt #askdir)
            (help #askdir_help)
            (default @default-dest)
            (disk)
        )
    )

    (set destdir
        (tackon destdir "UnderWorld")
    )

    (set @executedir destdir)

    (set @default-dest destdir)

    ; See whether this directory exists, if so warn the user

    (if (exists @default-dest)
        (
            (if (= 0 (askbool
                    (prompt #overwrite)
                    (help #overwrite_help)
                    (choices #yes #quit)
                ))

                (

                ; User wishes to quit

                (exit (quiet))
                )

            )
        )
    )

    ; Prompt for choosed dir

    (message #installed @default-dest)

    ; Start copy

    (complete 0)

    (working #installing)

    ; Create the directory if it doesn't exist

    (if (= 0 (exists @default-dest))
        (
            (makedir @default-dest
                (prompt #creating)
                (infos)
            )
        )
    )

    ; Ask for 1st disk

    (askdisk
        (prompt #disk1)
        (help #helpdisk1)
        (dest "UnderWorld1")
    )

    ; Install the UnderWorld executable file

    (working #copyingexe)

    (copyfiles
        (source "UnderWorld1:UnderWorld")
        (dest @default-dest)
        (infos)
    )

    ; Install other files

    (working #copyingother)

    ; Install the XPK extractor

    (copyfiles
        (source "UnderWorld1:C/lha")
        (dest "RAM:T")
    )

    (copyfiles
        (source "UnderWorld1:C/join")
        (dest "RAM:T")
    )

    (complete 3)

    ; Ask for 2nd disk

    (askdisk
        (prompt #disk2)
        (help #helpdisk2)
        (dest "UnderWorld2")
    )

    ; Install all files from 2nd disk

    (working #copying2disk)

    (copyfiles
        (source "UnderWorld2:Under.001")
        (dest @default-dest)
    )

    (complete 9)

    ; Ask for 3rd disk

    (askdisk
        (prompt #disk3)
        (help #helpdisk3)
        (dest "UnderWorld3")
    )

    ; Install all files from 3rd disk

    (working #copying3disk)

    (copyfiles
        (source "UnderWorld3:under.002")
        (dest @default-dest)
    )

    (complete 15)

    (askdisk
        (prompt #disk4)
        (help #helpdisk4)
        (dest "UnderWorld4")
    )

    ; Install all files from 4th disk

    (working #copying4disk)

    (copyfiles
        (source "UnderWorld4:under.003")
        (dest @default-dest)
    )

    (complete 23)

    (askdisk
        (prompt #disk5)
        (help #helpdisk5)
        (dest "UnderWorld5")
    )

    ; Install all files from 5th disk

    (working #copying5disk)

    (copyfiles
        (source "UnderWorld5:under.004")
        (dest @default-dest)
    )

    (complete 31)

    (askdisk
        (prompt #disk6)
        (help #helpdisk6)
        (dest "UnderWorld6")
    )

    ; Install all files from 6th disk

    (working #copying6disk)

    (copyfiles
        (source "UnderWorld6:under.005")
        (dest @default-dest)
    )

    (complete 39)

    (askdisk
        (prompt #disk7)
        (help #helpdisk7)
        (dest "UnderWorld7")
    )

    ; Install all files from 7th disk

    (working #copying7disk)

    (copyfiles
        (source "UnderWorld7:under.006")
        (dest @default-dest)
    )

    (complete 46)

    (askdisk
        (prompt #disk8)
        (help #helpdisk8)
        (dest "UnderWorld8")
    )

    ; Install all files from 8th disk

    (working #copying8disk)

    (copyfiles
        (source "UnderWorld8:under.007")
        (dest @default-dest)
    )

    (complete 54)

    (askdisk
        (prompt #disk9)
        (help #helpdisk9)
        (dest "UnderWorld9")
    )

    ; Install all files from 9th disk

    (working #copying9disk)

    (copyfiles
        (source "UnderWorld9:under.008")
        (dest @default-dest)
    )

    (complete 62)

    (askdisk
        (prompt #disk10)
        (help #helpdisk10)
        (dest "UnderWorld10")
    )

    ; Install all files from 10th disk

    (working #copying10disk)

    (copyfiles
        (source "UnderWorld10:under.009")
        (dest @default-dest)
    )

    (complete 69)

    (askdisk
        (prompt #disk11)
        (help #helpdisk11)
        (dest "UnderWorld11")
    )

    ; Install all files from 11th disk

    (working #copying11disk)

    (copyfiles
        (source "UnderWorld11:under.010")
        (dest @default-dest)
    )

    (complete 77)

    (askdisk
        (prompt #disk12)
        (help #helpdisk12)
        (dest "UnderWorld12")
    )

    ; Install all files from 12th disk

    (working #copying12disk)

    (copyfiles
        (source "UnderWorld12:under.011")
        (dest @default-dest)
    )

    (complete 85)

    (askdisk
        (prompt #disk13)
        (help #helpdisk13)
        (dest "UnderWorld13")
    )

    ; Install all files from 13th disk

    (working #copying13disk)

    (copyfiles
        (source "UnderWorld13:under.012")
        (dest @default-dest)
    )

    (complete 93)

(message #Extract)
(textfile (dest "RAM:t/extract.scp")
      (append "C:CD ")
          (append @default-dest)
          (append "\nRAM:T/join Under.001 Under.002 Under.003 Under.004 Under.005 Under.006 Under.007 Under.008 Under.009 Under.010 Under.011 Under.012 to UnderWorld.lha\n")
          (append "C:Delete Under.#?\n")
          (append "C:Delete RAM:t/join\n")
          (append "RAM:T/lha x UnderWorld.lha ")
          (append (tackon @default-dest " "))
          (append "\n")
    )
(execute "RAM:t/extract.scp")

      (Delete "RAM:t/lha")
      (Delete (tackon @default-dest "UnderWorld.lha"))
      (Delete "RAM:t/extract.scp")

    (complete 100)

    ; Say goodbye

    (message #goodbye)
)