; $VER: HD INSTALL-SCRiPT V1.0 (17-01-95) by HiTMaN/PSG.
; THiS iS VERY FUCKiNG HARD WORK(about 4 hour's).
(complete 0)
(welcome)

(set GameDir "DisposableHero")                      ; Game directory
(set bytesreq "2MB")                    ; HD space required
(set memoryreq "1MB FAST RAM")            ; Memory required
;=============================================================================
;try to figure out a place where the user usually installs his games
(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")
            (set @default-dest "SYS:")
        )
    )
)

;=============================================================================
;ask the user to select a directory to install the game into
(set default-dest
     (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
                             "A drawer called " GameDir " will be created.\n"
                             "(Note: About " bytesreq " of free space is required for "
                             "complete installation, and " memoryreq " to run.)")
                     (help @askdir-help)
                     (default @default-dest)
                     (newpath)
             )
     GameDir
))

(set @default-dest default-dest)
(makedir @default-dest
         (infos)
)
(complete 5)
;=============================================================================
(copyfiles (source "D-Hero_HD_1:")
	       (dest "RAM:")
	       (pattern "LhX")
)
(set workingMsg ("Extracting files from archive\n\n\n\nGreetings to all my best friends:\n\nJABO,DEATHKNIGHT,SAL-1,PoNTOn,SAMiR,\nlOOSe mARBLEs,Mok,FURY,jAKE.\n\n\n\n\nHD-Script by HiTMaN/PSG :-)."))
(working workingMsg)

(run ("RAM:LhX -q x D-Hero_HD_1:D-HERO_1 \"%s/\"" @default-dest))

(complete 35)

(askdisk
   (prompt  "\n\n\n\n\n\Please insert D-HeroHD Disk 2 into any drive now.")
   (help    @askdisk-help)
   (dest    "D-Hero_HD_2")
   (assigns)
)
(working workingMsg)

(run ("RAM:LhX -q x D-Hero_HD_2:D-HERO_2 \"%s/\"" @default-dest))
(complete 65)
(askdisk
   (prompt  "\n\n\n\n\n\Please insert D-HeroHD Disk 3 into any drive now.")
   (help    @askdisk-help)
   (dest    "D-Hero_HD_3")
   (assigns)
)
(working workingMsg)

(run ("RAM:LhX -q x D-Hero_HD_3:D-HERO_3 \"%s/\"" @default-dest))
;=============================================================================

(delete	"RAM:LhX")
(complete 100)