;Installer script for nVmDIZ

(message 
  "nVmDIZ 0.4 from nEVERmIND productions"
  (ALL)
)

(set #DEST
  (askdir
    (prompt "Where do you want to have nVmDIZ executable?")
    (help (cat @askdir-help)
    )
    (default "Work:")
  )
)

(copyfiles (dest #DEST) (source "nVmDIZ"))
(copyfiles (dest #DEST) (source "nVmDIZ.info"))
(copyfiles (dest "ENVARC:") (source "nVmDIZ.archivers"))
(copyfiles (dest "ENVARC:") (source "nVmDIZ.diz"))

(set #DEST1
  (askdir
    (prompt "Where do you want to have nVmDIZ documentation?")
    (help (cat @askdir-help)
    )
    (default #DEST)
  )
)

(copyfiles (dest #DEST1) (source "nVmDIZ.doc"))
(copyfiles (dest #DEST1) (source "nVmDIZ.doc.info"))

(run "Run SYS:Utilities/More DIZPreview")

(set #DIZ
	(askchoice
	(prompt "Choose DIZ file")
	(help (cat @askchoice-help))
	(default 0)
	(choices
		"#1: 10 lines"
		"#2: 4 lines"
		"#3: 2 lines"
		)
	)
)

(if (= #DIZ 1) (copyfiles (source "nVmDIZ.diz") (dest "ENVARC:") (newname "nVmDIZ.diz") (optional "nofail")) )
(if (= #DIZ 2) (copyfiles (source "nVmDIZ2.diz") (dest "ENVARC:") (newname "nVmDIZ.diz") (optional "nofail")) )
(if (= #DIZ 3) (copyfiles (source "nVmDIZ3.diz") (dest "ENVARC:") (newname "nVmDIZ.diz") (optional "nofail")) )
