;*******************************************************;
;                                                       ;
;                   BloodNet Installer                  ;
;                                                       ;
;                   by Paul Carpenter                   ;
;                     1994 CatFish                     ;
;                                                       ;
;      $VER: BloodNet Install Script 1.3 (16-10-94)     ;
;                                                       ;
;*******************************************************;

;************* Initialize **************
(set @app-name "BloodNet")
(set @user-level 2)
(set default_drive (if (exists "Work:" (noreq))
                       "Work:"
                       (cat (getdevice "c:") ":")))
(set @default-dest default_drive)

(set disk1 "BloodNet1")
(set disk_n "BloodNet")
(set d_num 1)

(set game_size 8388608)
(set font_size 3572)

;************** Main **************

(welcome)

(set install_dir (askdir (prompt "Please select the drive where you would "
                                 "like to install BloodNet. A new drawer "
                                 "called 'BloodNet' will be created there.")
                         (default default_drive)
                         (help @askdir-help)))

(set @default-dest install_dir)

(set install_dir (tackon install_dir "BloodNet"))

(if (NOT (exists install_dir (noreq)))
    (makedir install_dir))

(set @default-dest install_dir)

(while (> font_size (getdiskspace "Fonts:"))
    ((if (NOT @user-level)
        (abort (cat "\nNot enough space to install the BloodNet fonts.\n"
                    "Please free "
                    (- font_size (getdiskspace "Fonts:"))
                    " bytes from 'Fonts:' before installing again")))
        (message (cat "\nNot enough space to install the BloodNet fonts.\n"
                    "Please free "
                    (- font_size (getdiskspace "Fonts:"))
                    " bytes from 'Fonts:' before proceeding"))))

(foreach (cat disk1 ":Fonts/")
         ("#?")
         (copyfiles (source (cat disk1 ":Fonts/"))
                    (choices @each-name)
                    (dest "Fonts:")))

(copylib (source (cat disk1 ":Libs/medplayer.library"))
         (dest "Libs:"))

(copyfiles (source (cat disk1 ":Icons/"))
         (choices "BloodNet.info")
         (dest (cat install_dir "//")))

(while (> game_size (getdiskspace (cat install_dir "/")))
    ((if (NOT @user-level)
        (abort (cat "\nNot enough space to install the BloodNet Game.\n"
                    "Please free "
                    (- game_size (getdiskspace install_dir))
                    " bytes before installing again")))
        (message (cat "\nNot enough space to install the BloodNet Game.\n"
                    "Please free "
                    (- game_size (getdiskspace install_dir))
                    " bytes before proceeding"))))

(while (<= d_num 12)
    (askdisk
        (prompt ("Please insert BloodNet Disk %ld in any drive..." d_num))
        (dest (cat disk_n d_num))
   (help @askdisk-help))
    (foreach (cat disk_n d_num ":")
         ("#?")
         (copyfiles (source (cat disk_n d_num ":"))
                    (choices @each-name)
                    (dest install_dir)))
    (set d_num (+ d_num 1)))

(askdisk
    (prompt ("Please insert BloodNet Disk 1 in any drive..."))
    (dest (cat disk_n 1))
    (help @askdisk-help))
(copyfiles (source (cat disk1 ":Icons/"))
         (choices "FakeSpawn")
         (dest (cat install_dir "/")))
(makedir (cat install_dir "/Save"))

