;
; Zombie Massacre Installation Script
;         - By Alpha Software
;
(procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )

(working "\n\n\n\n\n\n\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\n\nZombie Massacre (Aminet Release)") (WAITX)
(working "\nZombie Massacre (Aminet Release)") (WAITX)
(working "\nZombie Massacre (Aminet Release)") (WAITX)

(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby") (WAITX)

(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\n\n\n\n\n\n\nAlpha Software") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\n\n\n\n\n\nAlpha Software") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\n\n\n\n\nAlpha Software") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\n\n\n\nAlpha Software") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\n\n\nAlpha Software") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\n\nAlpha Software") (WAITX)
(working "\nZombie Massacre (Aminet Release)\n\n\nby\n\n\nAlpha Software") (WAITX)

;(message "\n\n\nZombie Massacre\n\n\nby\n\n\nAlpha Software") (WAITX)
(run "Installdata/play16 <>nil: Installdata/TA.WAV")
(run "Installdata/wait 2")

(procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )

(working "\n\n\n\n\n\n\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n\n(c) Alpha Software") (WAITX)
(working "\n\n(c) Alpha Software") (WAITX)
(working "\n(c) Alpha Software") (WAITX)
(working "\n(c) Alpha Software") (WAITX)
(working "(c) Alpha Software") (WAITX)
(working "(c) Alpha Software") (WAITX)

(working "(c) Alpha Software\n\n\n\n\n\n\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n---") (WAITX)
(working "(c) Alpha Software\n\n\n---") (WAITX)

(working "(c) Alpha Software\n\n\n---\n\n\n\n\n\n\n\n\n1997-2000") (WAITX)
(working "(c) Alpha Software\n\n\n---\n\n\n\n\n\n\n\n1997-2000") (WAITX)
(working "(c) Alpha Software\n\n\n---\n\n\n\n\n\n\n1997-2000") (WAITX)
(working "(c) Alpha Software\n\n\n---\n\n\n\n\n\n1997-2000") (WAITX)
(working "(c) Alpha Software\n\n\n---\n\n\n\n\n1997-2000") (WAITX)
(working "(c) Alpha Software\n\n\n---\n\n\n\n1997-2000") (WAITX)
(working "(c) Alpha Software\n\n\n---\n\n\n1997-2000") (WAITX)

;(message "\n\n(c) Alpha Software\n\n\n---\n\n\n1997-98") (WAITX)
(run "Installdata/play16 <>nil: Installdata/TA.WAV")
(run "Installdata/wait 2")

(run "Installdata/MultiPlayer dir=Installdata/ play=Neutron.mod nowindow")

(welcome)

; *** Introduction ***
(complete 0)

(message
  "\n\nWelcome to Zombie Massacre\nBy Alpha Software."
  "\n\nThis installer will setup Zombie Massacre so that"
  "\nit is playable from the CD-ROM."
  "\n\neMail.........................gazy@globalnet.co.uk"
  "\nURL........http://www.alpha-software.co.uk"

)

(complete 10)
(set GLOOM3-dest
 (set Connect-dest
  (tackon
    (askdir
      (prompt "Where do you want the ZM config Directory?")
      (help
    "G3DC Config Directory:\n"
    "The path you specify will be where the Zombie Massacre "
    "config directory will be copied to.\n"
    "\n"
      @askdir-help)
      (default "SYS:S")
    )
    "G"
  )
 )
)
(set @default-dest GLOOM3-dest)
;
;
(complete 45)
;---------------------
;---------------------
(copyfiles
  (source "data")
  (dest GLOOM3-dest)
  (all)
)
(complete 46)
;---------------------

(startup   "--Zombie Massacre CD-ROM assigns--"
 (help    "ZM Must have a dir to save config files "
                    "and save games to. If it doesnt have this "
                    "the game won't work! So select somewhere "
                    "where the files will be safe. If you already "
                    "have Ultimate Gloom/Gloom3 installed then it will "
                    " be kept safe.")
           (command "assign Zombie: \"" GLOOM3-dest "\"\n"
           )
           (prompt  "Some commands need to be added to your "
                    "user-startup."
                    )
                    )

; *** Final Message ***
;
;
;
;
;
;
;
;
;---------------------
(complete 92)

(copyfiles
  (source "installdata/iconx")
  (dest "c:")
  (all)
)
;---------------------
;
(message
"\n\n Zombie Massacre was installed successfully!"
"\n\n Now simply play the game from the CD-ROM!"
"\n\n Enjoy Zombie Massacre..."
"\n\n\n\n Alpha Software - Quality Amiga Software guaranteed!"
)
(makeassign "Zombie" GLOOM3-dest)
;(run "Installdata/play16 <>nil: Installdata/complete.iff")
(run "Installdata/MultiView <>nil: Installdata/credits.txt")
;(run "Installdata/VT <>nil: Installdata/Url.iff")
(run "Installdata/Execute Installdata/Quit")
;(run "Installdata/play16 <>nil: Installdata/bye.wav")
(complete 100)