; $VER: MultiRen-Install v1.41 (23.08.00)
; Installer script made by Stefan Blixth, OnyxSoft

(set #welcome "\nWelcome to MultiRen 1.41 installer.\nŠ 1999-2000 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
(set #endmsgs "MultiRen 1.41 has now been installed on your system.\n\nDon't forget to register the program.\nIt's totaly free!!!\n\nPlease use the Easy Register option which pops up when you start an unregistered copy of MultiRen!")

(message #welcome)
(welcome)
(complete 0)

; - create destination dir

(set destination
  (askdir (prompt "Please select the destination directory for MultiRen.\nA sub-directory \"MultiRen\" will be created.")
    (default @default-dest)
    (help @askdir-help)
  )
)

(set @default-dest destination)

(set destination (expandpath destination))
(set destination (tackon destination "MultiRen"))

(if (<> 0 (exists destination))
(
  (message "There is an older installation of MultiRen in the same directory.\n\nIt will be overwritten! (not backed up as before)\n\nAny plugin-settings except the substitute list will also be overwritten!")
    (run (cat "copy \"" destination "/Plugins/Substitute.list\" T:"))
    (run (cat "delete \"" destination "\" >nil:"))
    (run (cat "delete \"" destination ".info\" >nil:"))
  )
)

(makedir destination)
(run (cat "copy /MultiRen.info \"" destination ".info\""))

(complete 25)

; - copy main files

(copyfiles (prompt "Copying ...") (source "MultiRen") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "MultiRen.info") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "MultiRen.guide") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "MultiRen.guide.info") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "MultiRen.readme") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "MultiRen.readme.info") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "SubstituteGenerator") (dest destination) (help @copyfiles-help) )
(copyfiles (prompt "Copying ...") (source "SubstituteGenerator.info") (dest destination) (help @copyfiles-help) )
(complete 50)

; - copy plugins

(makedir (cat destination "/Plugins"))
(copyfiles
  (prompt "Copying...")
  (source "Plugins/")
  (pattern "#?")
  (dest (cat destination "/Plugins"))
)
(run (cat "copy T:Substitute.list \"" destination "/Plugins/\""))
(run (cat "delete T:Substitute.list"))

(complete 75)

; - copy developers stuff..

(set choice
  (askchoice
    (prompt "Do you want to install the developer files ?")
    (help @askoptions-help)
    (choices "Yes" "No")
    (default 0)
  )
)

(if (= 0 choice)
  (
    (makedir (cat destination "/Developers"))
    (copyfiles
      (prompt "Copying...")
      (source "Developers/")
      (pattern "#?")
      (dest (cat destination "/Developers"))
    )
  )
)

(complete 100)
(message #endmsgs)
(exit)