; $VER: SWOS HD Install-Script by Roland for Sentinel & Piotr Bieniek

(set GameDir "SWOS")
(set TotalDisks 2)
(set CurrentDisk 0)
(set Percent 20)
(set DiskPercent (/ (- 100 Percent) TotalDisks))

;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.")
                     (help @askdir-help)
                     (default @default-dest)
                     (newpath)
             )
     GameDir
     )
)
(set @default-dest default-dest)
(complete 5)

;create the selected directory and a subdirectory called Data
(makedir @default-dest
         (infos)
)
(makedir (tackon @default-dest "data")
)
(makedir (tackon @default-dest "grafs")
)
(makedir (tackon @default-dest "sound")
)
(complete 10)

;copy all extra files to this directory
(set gamever
     (askchoice (prompt "Which version of SWOS do you wish to install?")
                (help @askchoice-help)
                (choices "SWOS 1.0" "SWOS 1.1" "SWOS 95/96" "SWOS Euro'96")
     )
)

(if (= gamever 0) (set ssbootfile "ssboot10.hd"))
(if (= gamever 1) (set ssbootfile "ssboot11.hd"))
(if (= gamever 2) (set ssbootfile "ssboot96.hd"))
(if (= gamever 3) (set ssbootfile "ssbootEC.hd"))

      (copyfiles (source ssbootfile)
                 (dest @default-dest)
                 (newname "ssboot")
      )
      (copyfiles (source "Sensible World of Soccer")
                 (dest @default-dest)
      )
      (copyfiles (source "Sensible World of Soccer.icon")
                 (dest @default-dest)
                 (newname "Sensible World of Soccer.info")
      )

(complete 20)

(askdisk (prompt "Please insert SWOS disk 1 in any drive.")
         (help @askdisk-help)
         (dest "SWOS")
;         (assigns)
)

(copyfiles (source "SWOS:swos")
           (dest @default-dest)
)
(copyfiles (source "SWOS:swos.rel")
           (dest @default-dest)
)
(copyfiles (source "SWOS:swos2")
           (dest @default-dest)
)
(copyfiles (source "SWOS:swos2.rel")
           (dest @default-dest)
)
(copyfiles (source "SWOS:grafs")
           (dest (tackon @default-dest "grafs"))
           (all)
)
(copyfiles (source "SWOS:sound")
           (dest (tackon @default-dest "sound"))
           (all)
)

(complete 60)

(askdisk (prompt "Please insert SWOS disk 2 in any drive.")
         (help @askdisk-help)
         (dest "SWOS2")
;         (assigns)
)

(copyfiles (source "SWOS2:data")
           (dest (tackon @default-dest "data"))
           (all)
)
(copyfiles (source "SWOS2:grafs")
           (dest (tackon @default-dest "grafs"))
           (all)
)
(copyfiles (source "SWOS2:sound")
           (dest (tackon @default-dest "sound"))
           (all)
)

(complete 100)