;****************************

(set #readme-file "CannonFodder.readme")
(set #sub-dir "cf_data")
(set #AD_disk "RAM")
(run ("cpu nocache noburst nocopyback"))
(procedure P_ChkRun
  (if
    (= 0 (run ("cd SYS:\nWhich %s" #program)))
    ("")
    (abort 
      (cat
	"You must install \"" #program "\" first!\n"
	"It must be accessible via the path.\n"
	"You can find it in the WHDLoad package."
      )
    )
  )
)

(if
  (exists #readme-file)
  (if
    (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
    ("")
    (run ("SYS:Utilities/More %s" #readme-file))
  )
)

(set #program "WHDLoad")

(P_ChkRun)

(set @default-dest
  (askdir
    (prompt 
      (cat
	"Where should \"" @app-name "\" be installed ?\n"
	"A drawer \"" @app-name "\" will automatically be created."
      )
    )
    (help @askdir-help)
    (default @default-dest)
    (disk)
  )
)
(set #dest (tackon @default-dest @app-name))
(if
  (exists #dest)
  (
    (set #choice
      (askbool
        (prompt
          (cat
            "\nDirectory \"" #dest "\" already exists.\n"
            "Should it be deleted?"
          )
        )
        (default 1)
        (choices "Delete" "Skip")
        (help @askbool-help)
      )
    )
    (if
      (= #choice 1)
      (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
    )
  )
)
(makedir #dest
  (help @makedir-help)
  (infos)
)

;----------------------------

(copyfiles
  (help @copyfiles-help)
  (source ("cf.slave"))
  (dest #dest)
)
(copyfiles
  (help @copyfiles-help)
  (source ("CannonFodder.info"))
  (dest #dest)
)
(copyfiles
  (help @copyfiles-help)
  (source ("CF.exe"))
  (dest #dest)
)
(if
  (exists #readme-file)
  (copyfiles
    (help @copyfiles-help)
    (source #readme-file)
    (dest #dest)
  )
)
(if
  (exists ("%s.info" #readme-file))
  (copyfiles
    (help @copyfiles-help)
    (source ("%s.info" #readme-file))
    (dest #dest)
  )
)



(run
  (cat
   "cd \"" #dest "\"\n")
)
   
(run ("CF.exe"))






(copyfiles
  (help @copyfiles-help)
  (source ("%s:" #AD_disk))
  (dest #dest)
  (pattern "~(s)")
)


(run ("Delete %s ALL QUIET FORCE"  "RAM:cf_data"))
;----------------------------
(run ("cpu cache burst copyback"))
(exit)