; Installation: Whale's Voyage II
; 1997 written by C.Hook
; $VER: WV2 1MB (11.5.97)

; English language

; first message
(message "Welcome to the WHALE'S VOYAGE II installation utility.")

(complete 0)

; asking for destination
(set @WorkDir
   (askdir
      (prompt "Please select target drawer where WHALE'S VOYAGE II is to be installed.")
      (default @default-dest)
      (help   "No help available, Please refer to the manual!!")
   )
)

(complete 1)

; creating directories
(makedir 
   (tackon @WorkDir "ACTGAME")
)

(makedir 
   (tackon @WorkDir "ANIMS1MB")
)

(makedir 
   (tackon @WorkDir "CHRED")
)

(makedir 
   (tackon @WorkDir "CHRED1MB")
)

(makedir 
   (tackon @WorkDir "DIVERSES")
)

(makedir 
   (tackon @WorkDir "HANDEL")
)

(makedir 
   (tackon @WorkDir "HANDE1MB")
)

(makedir 
   (tackon @WorkDir "INTRO")
)

(makedir 
   (tackon @WorkDir "NEWGAME")
)

(makedir 
   (tackon @WorkDir "SAVEGAME")
)

(makedir 
   (tackon @WorkDir "SPIEL")
)

(makedir 
   (tackon @WorkDir "SPIELPIC")
)

(complete 2)

; asking for disk 1
(askdisk
   (prompt "Please insert Disk 1 of WHALE'S VOYAGE II into any drive!")
   (dest   "WV2Disk1")
   (help   "No help available, Please refer to the manual!")
   (assigns)
)

; copying anims
(copyfiles
   (source "WV2Disk1:ANIMS1MB")
   (dest   (tackon @WorkDir "ANIMS1MB"))
   (all)
)

; copying chred
(copyfiles
   (source "WV2Disk1:CHRED")
   (dest   (tackon @WorkDir "CHRED"))
   (all)
)

(copyfiles
   (source "WV2Disk1:CHRED1MB")
   (dest   (tackon @WorkDir "CHRED1MB"))
   (all)
)

(copyfiles
   (source "WV2Disk1:DIVERSES")
   (dest   (tackon @WorkDir "DIVERSES"))
   (all)
)

(copyfiles
   (source "WV2Disk1:INTRO")
   (dest   (tackon @WorkDir "INTRO"))
   (all)
)

; copying exe
(copyfiles
   (source "WV2Disk1:CHRED.EXE")
   (dest   @WorkDir)
)

(copyfiles
   (source "WV2Disk1:INTRO.EXE")
   (dest   @WorkDir)
)

(copyfiles
   (source "WV2Disk1:NEO")
   (dest   @WorkDir)
)

(copyfiles
   (source "WV2Disk1:SELECT.EXE")
   (dest   @WorkDir)
)

(copyfiles
   (source "WV2Disk1:WV2.EXE")
   (dest   @WorkDir)
)

(complete 18)

; asking for disk 2
(askdisk
   (prompt "Please insert Disk 2 of WHALE'S VOYAGE II into any drive!")
   (dest   "WV2Disk2")
   (help   "No help available, Please refer to the manual!!")
   (assigns)
)

; copying anims
(copyfiles
   (source "WV2Disk2:ANIMS1MB")
   (dest   (tackon @WorkDir "ANIMS1MB"))
   (all)
)

; copying handel
(copyfiles
   (source "WV2Disk2:HANDE1MB")
   (dest   (tackon @WorkDir "HANDE1MB"))
   (all)
)

(copyfiles
   (source "WV2Disk2:HANDEL")
   (dest   (tackon @WorkDir "HANDEL"))
   (all)
)

; copying exe
(copyfiles
   (source "WV2Disk2:HANDEL.EXE")
   (dest   @WorkDir)
)

(complete 34)

; asking for disk 3
(askdisk
   (prompt "Please insert Disk 3 of WHALE'S VOYAGE II into any drive!")
   (dest   "WV2Disk3")
   (help   "No help available, Please refer to the manual!!")
   (assigns)
)

; copying spiel
(copyfiles
   (source "WV2Disk3:SPIEL")
   (dest   (tackon @WorkDir "SPIEL"))
   (all)
)

(copyfiles
   (source "WV2Disk3:SPIELPIC")
   (dest   (tackon @WorkDir "SPIELPIC"))
   (all)
)

; copying exe
(copyfiles
   (source "WV2Disk3:SPIEL.EXE")
   (dest   @WorkDir)
)

(complete 50)

; asking for disk 4
(askdisk
   (prompt "Please insert Disk 4 of WHALE'S VOYAGE II into any drive!")
   (dest   "WV2Disk4")
   (help   "No help available, Please refer to the manual!!")
   (assigns)
)

; copying spiel
(copyfiles
   (source "WV2Disk4:ANIMS1MB")
   (dest   (tackon @WorkDir "ANIMS1MB"))
   (all)
)

(copyfiles
   (source "WV2Disk4:SPIEL")
   (dest   (tackon @WorkDir "SPIEL"))
   (all)
)

(copyfiles
   (source "WV2Disk4:SPIELPIC")
   (dest   (tackon @WorkDir "SPIELPIC"))
   (all)
)

(complete 66)

; asking for disk 5
(askdisk
   (prompt "Please insert Disk 5 of WHALE'S VOYAGE II into any drive!")
   (dest   "WV2Disk5")
   (help   "No help available, Please refer to the manual!!")
   (assigns)
)

(copyfiles
   (source "WV2Disk5:ANIMS1MB")
   (dest   (tackon @WorkDir "ANIMS1MB"))
   (all)
)

(complete 82)

; asking for disk 6
(askdisk
   (prompt "Please insert Disk 6 of WHALE'S VOYAGE II into any drive!")
   (dest   "WV2Disk6")
   (help   "No help available, Please refer to the manual!!")
   (assigns)
)

(copyfiles
   (source "WV2Disk6:ACTGAME")
   (dest   (tackon @WorkDir "ACTGAME"))
   (all)
)

(copyfiles
   (source "WV2Disk6:ANIMS1MB")
   (dest   (tackon @WorkDir "ANIMS1MB"))
   (all)
)

(copyfiles
   (source "WV2Disk6:DIVERSES")
   (dest   (tackon @WorkDir "DIVERSES"))
   (all)
)

(copyfiles
   (source "WV2Disk6:NEWGAME")
   (dest   (tackon @WorkDir "NEWGAME"))
   (all)
)

(copyfiles
   (source "WV2Disk6:SAVEGAME")
   (dest   (tackon @WorkDir "SAVEGAME"))
   (all)
)

; copying exe
(copyfiles
   (source "WV2Disk6:ENDE.EXE")
   (dest   @WorkDir)
)

; copying exe
(copyfiles
   (source "WV2Disk6:XICON")
   (dest   @WorkDir)
)

(copyfiles
   (source "WV2Disk6:SSICON")
   (dest   @WorkDir)
   (newname "Start Game.info")
)

(tooltype
   (dest (tackon @WorkDir "Start Game.info"))
   (swapcolors)
)

(complete 99)

; building startup batch file
(textfile
   (dest   (tackon @WorkDir "Start Game"))
   (append ("assign WV2Disk1: \"%s\"\nassign WV2Disk2: \"%s\"\nassign WV2Disk3: \"%s\"\nassign WV2Disk4: \"%s\"\nassign WV2Disk5: \"%s\"\nassign WV2Disk6: \"%s\"\n\nWV2.EXE\n" @WorkDir @WorkDir @WorkDir @WorkDir @WorkDir @WorkDir))
)

(complete 100)

(message "The insallation of WHALE'S VOYAGE II has finished. "
         "Please remove ALL game disks, Before clicking on Start Game."
)

(exit (quiet))