; Blood Of The Martyr Installer Utility
;
; (Released at: 18/11/95)


(

   ; Which OS are we under?
   (set osver (/ (getversion) 65536))

   ; Ask where to install it...
   (set @default-dest
      (askdir
         (prompt "Select or create the directory where you would "
                 "like to install Blood Of The Martyr.")
         (help   "                                                      "
                 "      *** B L O O D  O F  T H E  M A R T Y R ***      "
                 "                     1995 DELIGHT                     "
                 "                                                      "
                 " Blood Of The Martyr and all necessary files will be  "
                 " installed in the directory of your choice.           "
                 " You may wish to create a new directory for Blood Of  "
                 " The Martyr by using the 'Make New Drawer' gadget.    ")
         (default "RAM:")
      )
   )

   (working "Installing Blood Of The Martyr Program...")

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:BotM")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:BotM.info")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:BotM.txt")
      (dest @default-dest)
   )

   (makedir (tackon @default-dest "Data"))

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data01")
      (dest (tackon @default-dest "Data"))
   )
 
  (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data02")
      (dest (tackon @default-dest "Data"))
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data03")
      (dest (tackon @default-dest "Data"))
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data04")
      (dest (tackon @default-dest "Data"))
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data05")
      (dest (tackon @default-dest "Data"))
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data06")
      (dest (tackon @default-dest "Data"))
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data07")
      (dest (tackon @default-dest "Data"))
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data08")
      (dest (tackon @default-dest "Data"))
   )
   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk1:Data/Data09")
      (dest (tackon @default-dest "Data"))
   )

   ;----------------------------------------------------------
   ; Prompt for second disk.

   (askdisk
      (prompt "Please insert BOTM_Disk2: in any drive.")
      (help "")
      (dest "BOTM_Disk2")
   )

   (working "Installing Pictures...")

   (makedir (tackon @default-dest "Gfx"))

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk2:Gfx/")
      (dest (tackon @default-dest "Gfx"))
      (choices
         "Pic01"
         "Pic02"
         "Pic03"
         "Pic04"
         "Pic05"
         "Pic06"
         "Pic07"
         "Pic08"
         "Pic09"
         "Pic10"
         "Pic11"
         "Pic12"
         "Pic13"
         "Pic14"
         "Pic15"
         "Pic16"
      )
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "BOTM_Disk2:Gfx/")
      (dest (tackon @default-dest "Gfx"))
      (choices
         "Info01"
         "Info02"
         "Info03"
         "Info04"
         "Info05"
         "Info06"
         "Info07"
         "Info08"
         "Info09"
         "Info10"
         "Info11"
         "Info12"
         "Info13"
         "Info14"
         "Info15"
         "Info16"
      )
   )
)
