;YAM Installation script
;by Marcel Beck
;$VER: 1.2 (11-Mar-96)

(set osver (/ (getversion "LIBS:version.library") 65536))
(if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
(if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
(if (= osver 41) (set workbench "4.0"))

(set vernum1 (getversion "YAM")) (set ver1 (/ vernum1 65536))
(set rev1 (- vernum1 (* ver1 65536) ) ) (set YAMver (cat ver1 "." rev1))

(if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
(set lan 0) (set doc 0)
(if (= "deutsch"    lanfound) ((set lan 1) (set doc 1)))
(if (= "svenska"    lanfound)  (set lan 2))
(if (= "français"   lanfound) ((set lan 3) (set doc 2)))
(if (= "greek"      lanfound)  (set lan 4))
(if (= "nederlands" lanfound)  (set lan 5))
(if (= "español"    lanfound)  (set lan 6))
(if (= "italiano"   lanfound)  (set lan 7))
(set #English    "English")
(set #Deutsch    "Deutsch")
(set #Svenska    "Svenska")
(set #Français   "Français")
(set #Greek      "Greek")
(set #Nederlands "Nederlands")
(set #Español    "Español")
(set #Italiano   "Italiano")

(set mfound 0) (set newicon1 1)
(set keeper 1) (set firsttime 0)

(set #about (cat "\n\n\nWelcome to\n\nYAM " YAMver "\n\nCopyright © 1995-1996 by Marcel Beck\n\nAll Rights Reserved.\n") )
(set #nomui (cat "\n\nYAM uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
                 "therefore you YAM will not work correctly.  You will need to install "
                 "MUI before running YAM."))
(set #whereYAM   "Where do you wish to install YAM? A directory called 'YAM' will be created if one is not there.")
(set #oldYAM     "\n\nThere is already a version of YAM on your system.\n\nIf you proceed, the program files (executable, documentation, icons and ARexx examples) will be overwritten.")
(set muiver      "No Version Installed")
(set #newermui   "\n\nYAM needs version 3.1 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\n It looks like you have: \n\n")
(set #copy       "Copying YAM")
(set #whatcat    "\nSelect the YAM Language catalog you wish to install.\n")
(set #whatdocs   "\nWhat YAM documentation would you like to install?\n")
(set #wheredocs  "Where would you like the YAM documentation you selected to be installed?")
(set #modify_ss  (cat "Adding YAM assign to your \"s:user-startup\" file."))
(set #byebye (cat "\nPlease restart your Amiga, if you are upgrading from an old version." ))

(message #about)
(welcome)

(if (< (exists "mui:") 2)  (message #nomui) )
(set ver 0)
(if (exists "mui:mui")
 (
  (set vernum (getversion "mui:mui") )
  (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
 )
)
(if (< ver 12)   (message (cat #newermui muiver)))

(set Package (getassign "YAM"))
(if (= Package "")
(
        (set Package (getassign "AmiTCP"))
   (if (= Package "") (set Package (getassign "INET")))
        (set YAMdir (askdir (prompt #whereYAM) (help #whereYAM) (default Package)))
        (set YAMdir (tackon YAMdir "YAM"))
        (makedir YAMdir (infos))
)
((set YAMdir Package)
(askbool (prompt #oldYAM) (help #oldYAM) (choices "Proceed" "Proceed")))
)
(complete 20)
(copyfiles (prompt #copy) (source "YAM") (newname "YAM") (help @copyfiles-help) (infos) (dest YAMdir))
(copyfiles (source "Icons") (all) (dest (tackon YAMdir "Icons")))
(copyfiles (source "Rexx") (all) (dest (tackon YAMdir "Rexx")))
(copyfiles (source "Changes") (infos) (dest YAMdir))

(complete 40)
(set catalog (askchoice (choices #English #Deutsch #Svenska #Français #Greek #Nederlands #Español #Italiano)
                        (prompt #whatcat) (help #whatcat) (default lan)))
(if (= catalog 0)  (set #lcat #English ))
(if (= catalog 1)  (set #lcat #Deutsch))
(if (= catalog 2)  (set #lcat #Svenska))
(if (= catalog 3)  (set #lcat #Français))
(if (= catalog 4)  (set #lcat #Greek))
(if (= catalog 5)  (set #lcat #Nederlands))
(if (= catalog 6)  (set #lcat #Español))
(if (= catalog 7)  (set #lcat #Italiano))
(if (<> catalog 0)
(
   (if (< (exists "LOCALE:") 2) ((makedir "SYS:Locale") (makeassign "LOCALE" "SYS:Locale")))
   (if (< (exists "LOCALE:Catalogs") 2) (makedir "LOCALE:Catalogs") )
   (if (< (exists (cat "LOCALE:Catalogs/" #lcat)) 2) (makedir (cat "LOCALE:Catalogs/" #lcat)))
   (copylib (source (cat "Catalogs/" #lcat "/YAM.catalog")) (dest (cat "LOCALE:Catalogs/" #lcat))))
)

(complete 60)
(set guide (askchoice (choices #English #Deutsch #Français)
                                (prompt #whatdocs) (help #whatdocs) (default doc)))
(if (= guide 0) (copyfiles (source "Docs/YAM_english.guide") (newname "YAM.guide") (dest YAMdir) (infos)))
(if (= guide 1) (copyfiles (source "Docs/YAM_deutsch.guide") (newname "YAM.guide") (dest YAMdir) (infos)))
(if (= guide 2) (copyfiles (source "Docs/YAM_français.guide") (newname "YAM.guide") (dest YAMdir) (infos)))

(complete 80)
(makeassign "YAM" YAMdir)
(startup "YAM" (prompt #modify_ss) (help @startup-help) (command "Assign YAM: \"" YAMdir "\"\n"))

(complete 100)
(exit #byebye)