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

(set #welcome "\nWelcome to MultiRen 1.4 installer.\nŠ 1999-2000 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
(set #endmsgs "MultiRen 1.4 has now been installed on your system.\n\nDon't forget to register your copy at : daniel@onyxsoft.nu\n\nIt's totaly free!!!\n")

(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.\nI'll rename it to MultiRen_old, so you can delete it later.")
    (run (cat "rename \"" destination "\" \"" destination "_old\""))
    (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"))
)

(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)