; Gunbee F-99 - ©1997,1998 Lobsang Alvites
;
; Installation Script - 5/2/98 by Facundo Rodriguez

(set #gunbee_introduction (cat "\n"

            "GUNBEE F-99 - The Kidnapping Of Lady Akiko\n"
            " \n"
            "Created by Lobsang Alvites Szaler (Mr.Byte)\n"
            " \n"
            "Published by APC&TCP\n"
           " \n"
            "Installation script by Facundo Rodríguez\n"
            " \n"
))

;------------------ the action begins ------------------------------------------

(message #gunbee_introduction )

(welcome)

(set GunBeePATH
        (askdir
                (prompt "Where do you wish to install Gunbee F-99?\n"
                "A directory named 'Gunbee_F99' will be created there")
                (help @askdir-help)
                (default @default-dest)
                (newpath)
        )
)

(set GunBeePATH (tackon GunBeePATH "Gunbee_F99"))
(makedir GunBeePATH(infos))

(set @default-dest GunBeePATH)

;-------------  copy disk 1 -------------------------------------------------

(complete 20)

(askdisk
        (prompt "Please insert Gunbee Disk 1")
        (help @askdisk-help)
        (dest "F99_Disk1")
)

(complete 40)

(copyfiles
        (prompt "Copying Game files")
        (source "F99_Disk1:")
        (help @copyfiles-help)
        (all)
        (infos)
        (dest GunBeePATH)
)

;-------------  copy disk 2 -------------------------------------------------

(complete 60)

(askdisk
        (prompt "Please insert Gunbee Disk 2")
        (help @askdisk-help)
        (dest "F99_Disk2")
)

(complete 80)

(copyfiles
        (prompt "Copying Game files")
        (source "F99_Disk2:")
        (help @copyfiles-help)
        (all)
        (infos)
        (dest GunBeePATH)
)

;--------------- the end ---------------------------------------------------

(complete 100)
(exit)