; $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 "SWOS_95-96")                ; Game directory
(set bytesreq "1.7MB")                    ; HD space required
(set memoryreq "2MB 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 & about " memoryreq " to run.)")
                     (help @askdir-help)
                     (default @default-dest)
                     (newpath)
             )
     GameDir
))

(set @default-dest default-dest)
(makedir @default-dest
         (infos)
)
(complete 20)
;=============================================================================
(copyfiles (source "SWOSHD_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,\nsPIRIT,x-men,THE FUGITIVE.\n\nFixed for HD by SODOM/ILS.\nHD-Script by HiTMaN/PSG :-)."))
(working workingMsg)

(run ("RAM:LhX -q x SWOSHD_1:SWOS_HD1 \"%s/\"" @default-dest))

(complete 50)

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

(run ("RAM:LhX -q x SWOSHD_2:SWOS_HD2 \"%s/\"" @default-dest))

(complete 90)
;=============================================================================

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