;
; Spitfire Installer Script
; Copyright ©1999 Ralph Torchia
; All Rights Reserved
;
; Email: torchia@windsor.igs.net
; WWW  : http://www.windsor.igs.net/~torchia/
;
; $VER: Spitfire-Install v1.2 (03.05.1999)
;
;---------------------------------------------------------------------

;__________Set up variables__________

 ;copyright
  (set #copyright "Copyright ©1999 Ralph Torchia")

 ;minimal os for installation
  (set #min_os_version 39)
  (set #min_os_revision 0)

 ;spitfire version
  (set #spit_ver (getversion "Spitfire"))
  (set #spit_version  (/ #spit_ver 65536))
  (set #spit_revision (- #spit_ver (* #spit_version 65536) ) )

 ;default destination directories
  (set #dest-spitfire "Work:")
  (set #dest-libs     "LIBS:")
  (set #dest-mui      "MUI:Libs/mui/")

 ;default language
  (set @language "english")
;---------------------------------------------------------------------

;__________English__________
 (set #welcome-msg  ("Welcome to Spitfire!\n\nInstallation for Spitfire version %ld.%ld\n\nCopyright ©1999 Ralph Torchia\nAll Rights Reserved" #spit_version #spit_revision))

 (set #dest-prompt  "Where shall the Spitfire program be placed? (a directory will be created)")
 (set #dest-help    "Use the requester to select an area on your system where you want the Spifire folder located")

 (set #libs-prompt  "Copying to LIBS: the file ")
 (set #libs-help    "")

 (set #mui-prompt   "Copying to MUI:Libs/mui/ the file ")
 (set #mui-help     "")

 (set #dir-prompt   "Creating directory for Spitfire...")
 (set #dir-help     "")

 (set #spit-prompt  "Copying Spitfire...")
 (set #spit-help    "")

 (set #imgs-asktype "Which Images do you want to install with Spitfire?")
 (set #imgs-prompt  "Copying Spitfire images...")
 (set #imgs-help    "")

 (set #guide-prompt "Copying Spitfire Guide...")
 (set #guide-help   "")

 (set #icon-msg1    "Copying Spitfire icon...")
 (set #icon-msg2    "Copying Spitfire Guide icon...")
 (set #icon-help    "")

 (set #key-prompt   "Copying Spitfire key...")
 (set #key-help     "")
 (set #key-msg      "Thank-you for registering Spitfire!  Your support is greatly appreciated.")

 (set #exit-msg     "Spitfire installation is finished!\n\nRemember, this product is shareware!")
;---------------------------------------------------------------------

;__________Introduce Outselves__________
 (welcome #welcome-msg)

 (set #dest-spitfire
   (askdir
     (prompt  #dest-prompt)
     (help    #dest-help)
     (default #dest-spitfire)
   )
 )
 (set #dest-spitfiredir (tackon #dest-spitfire "Spitfire"))
 (set @default-dest #dest-spitfire)
 (set #dest-spitfireimg (tackon #dest-spitfiredir "images"))

;__________Copy libs__________
 (
   (copylib
     (prompt  #libs-prompt "palmlink.library")
     (help    #libs-help)
     (confirm "average")
     (source  "libs/palmlink.library")
     (dest    #dest-libs)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #libs-prompt "date.library")
     (help    #libs-help)
     (confirm "average")
     (source  "libs/date.library")
     (dest    #dest-libs)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #libs-prompt "vapor_toolkit.library")
     (help    #libs-help)
     (confirm "average")
     (source  "libs/vapor_toolkit.library")
     (dest    #dest-libs)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #libs-prompt "vapor_update.library")
     (help    #libs-help)
     (confirm "average")
     (source  "libs/vapor_update.library")
     (dest    #dest-libs)
     (optional "oknodelete" "force")
   )
 )

;__________Copy MUI stuff__________
 (
   (copylib
     (prompt  #mui-prompt "InfoText.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/InfoText.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib               
     (prompt  #mui-prompt "MonthNavigator.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/MonthNavigator.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "MonthNavigator.mcp")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/MonthNavigator.mcp")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "NFloattext.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/NFloattext.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "NList.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/NList.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "NListview.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/NListview.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "NListviews.mcp")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/NListviews.mcp")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "Textinput.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/Textinput.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "Textinput.mcp")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/Textinput.mcp")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
   (copylib
     (prompt  #mui-prompt "Textinputscroll.mcc")
     (help    #mui-help)
     (confirm "average")
     (source  "mui/Textinputscroll.mcc")
     (dest    #dest-mui)
     (optional "oknodelete" "force")
   )
 )

;__________Copy Spitfire__________
 (if (not (exists #dest-spitfiredir))
   (
     (makedir #dest-spitfiredir
       (prompt #dir-prompt)
       (help   #dir-help)
       (infos)
     )

     (copyfiles
       (prompt #icon-msg1)
       (help   #icon-help)
       (source "Spitfire.info")
       (dest   #dest-spitfiredir)
     )
     (copyfiles
       (prompt #icon-msg2)
       (help   #icon-help)
       (source "Spitfire.guide.info")
       (dest   #dest-spitfiredir)
     )
   )
 )
 (
   (copyfiles
     (prompt #spit-prompt)
     (help   #spit-help)
     (source "Spitfire")
     (dest #dest-spitfiredir)
   )
   (copyfiles
     (prompt #guide-prompt)
     (help   #guide-help)
     (source "Spitfire.guide")
     (dest #dest-spitfiredir)
   )
 )

;__________Copy Image folder__________
 (set #imgs-choice
   (askchoice
     (prompt #imgs-asktype)
     (help @askchoice-help)
     (choices "MagicWB"
              "NewIcons - Bordered"
              "NewIcons - No Border")
     (default 0)
   )
 )

 (if (= #imgs-choice 0)
   (set #imgs-source "images/magicwb/")
   (set #imgs-logo   "images/SpitfireLogo")
 )
 (if (= #imgs-choice 1)
   (set #imgs-source "images/newicons-border/")
   (set #imgs-logo   "images/SpitfireLogo2-256")
 )
 (if (= #imgs-choice 2)
   (set #imgs-source "images/newicons-noborder/")
   (set #imgs-logo   "images/SpitfireLogo2-256")
 )

 (copyfiles
   (prompt #imgs-prompt)
   (help   #imgs-help)
   (source #imgs-source)
   (all)
   (dest   #dest-spitfireimg)
 )

 (copyfiles
   (prompt #imgs-prompt)
   (help   #imgs-help)
   (source #imgs-logo)
   (dest   #dest-spitfireimg)
   (newname "SpitfireLogo")
 )

;__________Copy key if found__________
 (if (exists "spitfire.key")
   (
     (copyfiles
       (prompt #key-prompt)
       (help   #key-help)
       (source "spitfire.key")
       (dest   #dest-spitfiredir)
     )
     (message #key-msg)
   )
 )

(exit #exit-msg)