; $VER: Install_Srpski 3.2b (4.11.99)
(procedure P-check-system-version
 (if (< (/ @installer-version 65536) 43)
  (abort "The installation script requires\n"
   "Installer version 43 or higher.\n"
   "That version is available from Aminet or\n"
   "www.nordicglobal.com.")
 )
 (set #exec-version (/ (getversion) 65536))
 (if (< #exec-version 37)
  (abort "Miami requires Kickstart 2.04 or higher.\n")
 )
)

(procedure P-select-destination-directory
 (if (exists "Miami:" (noreq))
  (
   (set @default-dest
    (askdir
     (prompt "Please indicate in which directory "
      "you have installed Miami 3.2b.")
     (help "Please indicate in which directory "
      "you have installed Miami 3.2b. Usually the "
      "correct directory is the one the `Miami:' "
      "assign points to.")
     (default "Miami:")
    )
   )
  ) (
   (abort "The assign `Miami:' does not exist on your "
    "computer. You first need to install Miami 3.2b "
    "before you can install local files for it.")
  )
 )
)

(welcome "Welcome to the Installation of locale\n"
 "files for Miami 3.2b\n")

(set app-name "Miami")

(P-check-system-version)

(if @pretend
  (abort "The `pretend mode' cannot be used\n"
   "with this installation script.\n")
)

(complete 0)

(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
 (expandpath @icon))
)

(P-select-destination-directory)

(complete 5)

; start actual installation

(if (not (exists (tackon @default-dest "Catalogs")))
 (makedir (tackon @default-dest "Catalogs"))
)

(complete 10)

(if (not (exists (tackon @default-dest "Catalogs/srpski")))
 (makedir (tackon @default-dest "Catalogs/srpski"))
)

(complete 20)

(if (not (exists (tackon @default-dest "Help")))
 (makedir (tackon @default-dest "Help"))
)

(complete 30)

(if (not (exists (tackon @default-dest "Help/srpski")))
 (makedir (tackon @default-dest "Help/srpski"))
)

(complete 40)

(copyfiles
 (source (tackon #source-dir "Miami.guide"))
 (dest (tackon @default-dest "Help/srpski"))
 (optional force)
)

(complete 50)

(copyfiles
 (source (tackon #source-dir "Miami.catalog"))
 (dest (tackon @default-dest "Catalogs/srpski"))
 (optional force)
)

(complete 60)

(copyfiles
 (source (tackon #source-dir "MiamiInit.catalog"))
 (dest (tackon @default-dest "Catalogs/srpski"))
 (optional force)
)

(complete 70)

(copyfiles
 (source (tackon #source-dir "MiamiRegister.catalog"))
 (dest (tackon @default-dest "Catalogs/srpski"))
 (optional force)
)

(complete 80)

(if (exists (tackon @default-dest "Miami.guide.info"))
 (
  (copyfiles
   (source (tackon @default-dest "Miami.guide.info"))
   (dest (tackon @default-dest "Help/srpski"))
   (optional force)
  )
  (tooltype
   (dest (tackon @default-dest "Help/srpski/Miami.guide"))
   (noposition)
  )
 )
)

(complete 100)

(exit "The installation of locale files for Miami is "
  "completed. When you start Miami, MiamiInit or "
  "MiamiRegister again, the installed language will be "
  "used if it is selected in `Locale' system preferences."
)