; Olga Installtion Script
;$VER Olga-Install 1.22 (14.08.99)

(set TESTING 0)
(set InstallEnglish 1) ; 1 = install, 0 = don't install
(set InstallFrench  0) ; 1 = install, 0 = don't install


;**************************************************************
; French strings
;**************************************************************

(if (= @language "français")
 (
  (set #msg_welcome
   (cat
    "\n\n\nBienvenue dans l'installation d'Olga\n\n"
    "Ce script installe la version 1.22 sur votre Amiga.\n\n"
    "Olga © 1998-99 L.D.B SoftWare\n\n"
    "Tous Droits Réservés\n\n"
   )
  )

  (set #msg_warn_mui
   (cat
    "\n\nAttention\n\nMUI (Magic User Interface)\n"
    "ne semble pas être installé sur votre système.\n\n"
    "MUI est absolument nécessaire à Olga.\n"
    "MUI © 1993-98 Stefan Stuntz"
   )
  )

  (set #msg_assign
   (cat
    "\n\n\nL'installation d'Olga est presque terminée.\n\n"
    "Vous devrez maintenant ajouter un assign dans votre user-startup\n\n\n"
    "Exemple :   ASSIGN OLGA: WORK:OLGA \n\n"
   )
  )

  (set #msg_askdestdir
   (cat
    "SVP, choisissez une destination pour \"Olga\".\n"
    "Un répertoire sera créé pour vous."
   )
  )

  (set #msg_wichlang
   "SVP, choisissez la langue que vous désirez installer."
  )
 )
)

;**************************************************************
; English strings
;**************************************************************

(if (= @language "english")  
 (
 (set #msg_welcome
   (cat
     "\nWelcome to Olga installation\n\n"
     "This script installs version 1.22 on your Amiga.\n\n"
     "Olga © 1998-99 L.D.B SoftWare.\n\n"
     "All Rights Reserved\n\n"
   )
 )

 (set #msg_warn_mui
  (cat
    "\n\nWarning\n\nMUI (Magic User Interface)\n"
    "seems to be not installed on your system.\n\n"
    "MUI is absolutely needed for Olga to run.\n"
    "MUI © 1993-98 Stefan Stuntz"
  )
 )

 (set #msg_assign
  (cat
    "\n\n\nThe installation of Olga is ending.\n\n"
    "You must add an assign in your user-startup\n\n\n"
    "Example :   ASSIGN OLGA: WORK:OLGA \n\n"
  )
 )

 (set #msg_askdestdir
   (cat
     "Please, choose a destination for \"Olga\".\n"
     "A directory will be created for you."
   )
 )

 (set #msg_wichlang
   "Please, choose witch language you want to install."
 )
 )
)


;=======================================================
;================== Procedures =========================
;=======================================================

(procedure P_copydir dirname
  (copyfiles (infos) (all)
    (source dirname)
    (dest (tackon destination dirname))
  )
)

;=======================================================
;=================== Settings! =========================
;=======================================================


(message #msg_welcome (all))
(welcome)
(complete 0)

;**** teste si mui est installé
(if (= (exists "mui:" (noreq)) 0)
  (message #msg_warnmui)
)


;**** get destination directory
(set destdir
  (askdir
    (prompt #msg_askdestdir)
    (help @askdir-help)
    (default "SYS:")
  )
)

(set @default-dest (expandpath destdir))
(set destination (tackon destdir "Olga"))

;=======================================================
;==================== Action ===========================
;=======================================================

(complete 20)

(copyfiles
    (source "Olga")
    (dest destination)
)


(copyfiles
    (source "Olga.info")
    (dest destination)
)

(complete 30)

(copyfiles
    (source "ReadMe_MUI")
    (dest destination)
)

(copyfiles
    (source "ReadMe_MUI.info")
    (dest destination)
)

(copyfiles
    (source "logo_ldb.iff")
    (dest destination)
)

(copyfiles
    (source "logo_olga.iff")
    (dest destination)
)

(copyfiles
    (source "File_id.diz")
    (dest destination)
)

(P_copydir "Msg")

(complete 50)

(P_copydir "Acc")

(complete 60)

(P_copydir "RNG")

(complete 70)

(P_copydir "Doc")


;(if (exists "Catalogs")

(set lang
  (askoptions
    (prompt #msg_wichlang)
    (help @askoptions-help)
    (default 0)
    (choices
      "Français"
      "Anglais"
    )
  )
)

(if (BITAND lang 1)
  (
    (copyfiles
      (source (tackon "catalogs/français" "olga.catalog"))
      (dest "locale:Catalogs/français/")
    )

(complete 80)

    (copyfiles
      (source (tackon "guide/français" "olga.guide"))
      (dest ("%s/doc/" destination) )
    )

    (copyfiles
      (source (tackon "guide/français" "olga.guide.info"))
      (dest ("%s/doc/" destination) )
    )

  )
)

(if (BITAND lang 2)
  (
    (copyfiles
      (source (tackon "catalogs/english" "olga.catalog"))
      (dest "locale:Catalogs/English/")
    )

(complete 80)

    (copyfiles
      (source (tackon "guide/english" "olga.guide"))
      (dest ("%s/doc/" destination) )
    )

    (copyfiles
      (source (tackon "guide/english" "olga.guide.info"))
      (dest ("%s/doc/" destination) )
    )
  )
)

(complete 100)

(message #msg_assign (all))