; $Id: Ultima VI new savegame installation

(set #dir-bak "data/savegame_bak")
(set #dir-save "data/savegame")


;--------------------------
(procedure P_InstallNewgame
 (set #version
  (askbool
   (prompt "\n\nDo you want to install a new savegame of Ultima VI?"
           "\n\nIt will *erase* your last saved game!"
   )
   (default 0)
   (help @askbool-help)
  )
 )
 (select #version
 (message "\n\nNO new savegame installed!")
 (P_CopyNewGame)
 )
)

;--------------------------
(procedure P_CopyNewgame
 (set #version
  (askbool
   (prompt "\n\nReally ?"
   )
   (default 0)
   (choices "No" "Yes")
   (help @askbool-help)
  )
 )
 (select #version
 (
  (copyfiles (source #dir-bak) (dest #dir-save) (pattern "#?") (optional "askuser"))
  ( message "\n\nOperation successful!")
 )
 (message "\n\nNO new savegame installed!")
 )
)

;--------------------------
(if (exists #dir-save)
 ("")
 (abort ("Destination \"%s\" drawer doesn't exist!" #dir-save))
)

(if (exists #dir-bak)
 (P_InstallNewgame)
 (abort ("Source \"%s\" drawer doesn't exist!" #dir-bak))
)
(exit (quiet))
