; Installer Script for RoadKill
;

(set destname
  (askdir
    (prompt "Select or create a directory to install RoadKill to.")
    (help @askdir-help)
    (default "SYS:")
  )
)

(complete 0)

(copyfiles
  (prompt "Copying Files From Disc 3.")
  (help @copyfiles-help)
  (source "ROADKILL3:")
  (dest destname)
  (pattern "#?")
  (files)
)

(complete 33)

(copyfiles
  (prompt "Copying Files From Disc 2.")
  (help @copyfiles-help)
  (source "ROADKILL2:")
  (dest destname)
  (pattern "#?")
  (files)
)

(complete 60)

(copyfiles
  (prompt "Copying Files From Disc 1.")
  (help @copyfiles-help)
  (source "ROADKILL1:")
  (dest destname)
  (pattern "#?")
  (files)
)

(complete 90)

(textfile
  (prompt "Creating RoadKill script...")
  (help "This creates a file called c:Roadkill")
  (dest "c:RoadKill")
  (append "cd " destname)
  (append "\n")
  (append "assign roadkill1: \"\"\n")
  (append "assign roadkill2: \"\"\n")
  (append "assign roadkill3: \"\"\n")
  (append "roadkill.exe")
)

(complete 100)

(run "c:protect c:RoadKill swred")

(exit "Check your manual for instructions " "on how to run RoadKill " "from your harddrive. " (quiet))
