Amiga Format CD 18/amigaformatcd18.iso/-in_the_mag-/emulation/otherstuff/303emuv2.2/303emu2/install_303emu2

Text File | 1997-07-31 | 5KB | 296 lines

; ***********************************************
; *                                             *
; *      303 Emulator V2.x HD-Installer by      *
; *    Marinus Kuivenhoven/Jeroen Schellekens   *
; *                                             *
; *                   V1.1                      *
; *                                             *
; *    Thanks to Richard Körber for his nice    *
; *               example-script!               *
; *                                             *
; ***********************************************

;------------------------------------------------ Zet dingen

; ***************** Assign-text

(set AsName    "303emu2:")

; ***************** Files

(set ProgFile    "303emuV2.2")
(set GuideFile    "303emuV2.guide")
(set ReadmeFile    "Readme.txt")

; ***************** Dest-directories

(set DestDirName    "303emu2")

(set SubSystem      "system")
(set SubParameters    "parameters")
(set SubSamples      "samples")
(set SubScripts     "scripts")
(set SubTempfiles    "tempfiles")

; ***************** Messages

(set IntroMsg
    (cat    "\n303emulator 2"
        "\n"
        "\nHi! Now you are going to install version 2.2"
        "\nof the 303emulator on your harddrive."
        "\n"
        "\nThe whole program requires about 2 Megabytes"
        "\nof free diskspace on your hardrive,"
        "\nincluding the example- and helpfiles."
    )
)


(set EndMsg
    (cat    "\nEverything has gone correctly!"
        "\nReset your computer to try 303emu2 out."
    )
)


(set AssignMsg
    (cat    "\nTo start-up the 303emulator properly,"
        "\nI have to make an Assign. Therefore"
                "\nI am going to change your User-startup."
    )
)

; ***************** Prompts

(set DestDirPrompt
    (cat    "Where do you want to install '303emu2'?"
        "\nA new directory will be created."
    )
)

(set CopyMainPrompt
    "Copying main program..."
)

(set CopyGuidePrompt
    "Copying guidefile..."
)

(set CopyReadmePrompt
    "Copying readme-file..."
)

(set CopyMiscPrompt
        "Copying files..."
)

(set AsPrompt
        "Adding things to your user-startup..."
)

; ***************** Help

(set DestDirHelp
    (cat    "\nHe dork! I am asking you where you want"
        "\nto put the program on your harddisk."
    )
)


(set AsHelp
    (cat    "\nIf I don't make an assign, the program will"
        "\nNOT work, so..."
    )
)

;------------------------------------------------ Hier begint het gezeik

; ***************** Introotje

(message IntroMsg)

; ***************** Vraag nieuwe dir

(set DestDir
    (askdir
    (prompt  DestDirPrompt)
    (help DestDirHelp)
    (default "Ram:")
    )
)

; ***************** Maak nieuwe dir

(set DestDir
    (tackon DestDir DestDirName)
)

(makedir
    (DestDir)
    (infos)
)

(set @default-dest (DestDir))

; ***************** Kopieer hoofdprogramma

(copyfiles
    (prompt CopyMainPrompt)
    (help @copyfiles-help)
    (source ProgFile)
    (dest DestDir)
        (infos)
)

; ***************** Kopieer guidefile

(copyfiles
    (prompt CopyGuidePrompt)
    (help @copyfiles-help)
    (source GuideFile)
    (dest DestDir)
        (infos)
)

; ***************** Kopieer readmefile

(copyfiles
    (prompt CopyReadmePrompt)
    (help @copyfiles-help)
    (source ReadmeFile)
    (dest DestDir)
        (infos)
)

; ***************** Onthoud basis-dir

(set BaseDir DestDir)

; ***************** Maak system-dir

(set DestDir
    (tackon BaseDir SubSystem)
)

(makedir
    (DestDir)
)

(set @default-dest (DestDir))

;****************** Kopieer system-dir

(copyfiles
    (prompt CopyMiscPrompt)
    (help @copyfiles-help)
    (source SubSystem)
    (dest DestDir)
    (files)
        (all)
)

; ***************** Maak parameters-dir

(set DestDir
    (tackon BaseDir SubParameters)
)

(makedir
    (DestDir)
)

(set @default-dest (DestDir))

; ***************** Kopieer parameters-dir

(copyfiles
    (prompt CopyMiscPrompt)
    (help @copyfiles-help)
    (source SubParameters)
    (dest DestDir)
    (files)
        (all)
)

; ***************** Maak samples-dir

(set DestDir
    (tackon BaseDir SubSamples)
)

(makedir
    (DestDir)
)

(set @default-dest (DestDir))

; ***************** Kopieer samples-dir

(copyfiles
    (prompt CopyMiscPrompt)
    (help @copyfiles-help)
    (source SubSamples)
    (dest DestDir)
    (files)
        (all)
)

; ***************** Maak scripts-dir

(set DestDir
    (tackon BaseDir SubScripts)
)

(makedir
    (DestDir)
)

(set @default-dest (DestDir))

; ***************** Kopieer scripts-dir

(copyfiles
    (prompt CopyMiscPrompt)
    (help @copyfiles-help)
    (source SubScripts)
    (dest DestDir)
    (files)
        (all)
)

; ***************** Maak tempfiles-dir

(set DestDir
    (tackon BaseDir SubTempfiles)
)

(makedir
    (DestDir)
)

(set @default-dest (DestDir))

; ***************** Zet dir weer zoals aan begin

(set @default-dest (BaseDir))

; ***************** Voeg assign toe aan user-startup

(message AssignMsg)

(startup AsName
    (prompt AsPrompt)
    (help AsHelp)
    (command
        "Assign 303emu2: \"" @default-dest "\"\n"
    )
)

; ***************** Eindbericht

(message EndMsg)

; ***************** Klaar!
;------------------------------------------------ Einde