(set @app-name "UFO_Enemy_Unclothed")
(set @default-dest "Work:")

(complete 0)

(set #Prg-Dir
  (askdir
    (prompt "Choose destination for UFO_demo\nA directory called UFO_demo will be created there.")
    (help @askdir-help)
    (default @Default-Dest)
  )
)

(complete 10)

(set #Prg-Dir (tackon  #Prg-Dir "UFO_demo"))

(set @default-dest #Prg-Dir)

(makedir #Prg-Dir 
  (infos)
)


(copyfiles
  (prompt "Copying UFO executable...\n")
  (help @copyfiles-help)
  (source ("FORMATdemo"))
  (dest #Prg-Dir)
)

(complete 20)

(copyfiles
  (prompt "Copying Demo game...\n")
  (help @copyfiles-help)
  (source ("FORMATgame"))
  (dest #Prg-Dir)
)

(complete 25)

(copyfiles
  (prompt "Copying UFOdemo script...\n")
  (help @copyfiles-help)
  (source ("UFOdemo"))
  (dest #Prg-Dir)
  (infos)
)

(complete 30)

(copyfiles
  (prompt "Copying U.F.O.data...\n")
  (help @copyfiles-help)
  (source ("U.F.O.data"))
  (dest (tackon #Prg-Dir "U.F.O.data"))
  (all)
)

(complete 50)

(copyfiles
  (prompt "Copying U.F.O.maps...\n")
  (help @copyfiles-help)
  (source ("U.F.O.maps"))
  (dest (tackon #Prg-Dir "U.F.O.maps"))
  (all)
)

(complete 70)

(copyfiles
  (prompt "Copying U.F.O.fonts...\n")
  (help @copyfiles-help)
  (source ("Fonts"))
  (dest (tackon #Prg-Dir "Fonts"))
  (all)
)

(complete 80)

(copyfiles
  (prompt "Copying U.F.O.libs...\n")
  (help @copyfiles-help)
  (source ("libs"))
  (dest (tackon #Prg-Dir "libs"))
  (all)
)

(complete 90)

(startup @app-name
  (prompt "\n\nMaking Assign in S:User-Startup...\n")
  (help @startup-help)
  (command "ASSIGN U.F.O.program: \"" #Prg-Dir "\"\n")
)

(makeassign "U.F.O.program" #Prg-Dir)

(complete 100)

(exit "\n\n\n"
  "The DEMO version of\n"
  "U.F.O. Enemy Unclothed\n"
  "is now installed in your\n\n"
  "\""@default-dest"\""
  "\n\ndrawer (or partition)."
  (quiet)
)