Amiga Format 106/af106sub.adf/Startup.LZX/Startup/Startup-Install

Text File | 1984-01-26 | 5KB | 189 lines

;$VER: Startup-Install 40.1 (17.11.1997) #INSTALL © Msi Software

;------------------------------------------------------------------------
;Installer settings!
(set @default-dest "") ;To avoid getting a possible log in Sys:Prefs/ :-)

;Our default values (surprise :-)
(set #default-path "Sys:Prefs/")
(set #default-startup "Sys:Prefs/Startup")

(set progspace 87046) ;Free space needed for install (with Guide and locale)
(set prognum (getversion "Startup"))
(set progver (/ prognum 65536))
(set progrev (- prognum (* progver 65536)))
(set progversion (" v%ld.%ld" progver progrev))
;------------------------------------------------------------------------
(set Language FALSE)
(if (= @language "norsk")
 (
  (set #wrongversion
   (cat "Du har en gammel versjon av programmet 'Installer' på din Amiga!\n\n"
        "Du er rådet til å bruke Installer V43!\n\n"
        "Vennligst sjekk din konfigurasjon!"
   )
  )
  (set #welcome
   (cat "Velkommen til Installasjonen av Msi Software's\n\n"
        @app-name progversion
        "\n\n© Msi Software 1997, All Rights Reserved.\n"
   )
  )
  (set #guide-prompt "Vennligst velg hvor AmigaGuide dokumentet\nskal installeres.\n")
  (set #guide-help "Det er altid lurt å lagre dokumentet for senere bruk.")
  (set #no-diskspace
   (cat "For å installere" @app-name "til " #default-path
        ", trenger du minst %ld bytes med ledig harddisk plass!"
   )
  )
  (set #ask-save
   (cat @app-name
        " har nå blitt installert.\n\nØnsker du å kjøre programmet\nslik at du kan 'gjøre klar' din Startup-Sequence?"
   )
  )
  (set #ask-save-help "Programmet vil bli kjørt 'gjemt' i backgrunnen, og vil ikke komme opp på skermen!")
 )
 (;Language not supported, use default instead!
  (set @language "english")
 )
)

;English text... (default)
(if (= Language FALSE)
 (
  (set #wrongversion
   (cat "You have an old version of the program 'Installer' on your Amiga!\n\n"
        "It is highly advised you use Installer V43!\n\n"
        "Please check your configuration!"
   )
  )
  (set #welcome
   (cat "Welcome to the Installation of Msi Software's\n\n"
        @app-name progversion
        "\n\n© Msi Software 1997, All Rights Reserved.\n"
   )
  )
  (set #guide-prompt "Please select where the AmigaGuide document\nshould be installed.\n")
  (set #guide-help "It is always wise to store the documentation for later use.")
  (set #no-diskspace
   (cat "To install" @app-name "into " #default-path
        ", you need at least %ld bytes of free harddrive space!"
   )
  )
  (set #ask-save
   (cat @app-name
        " has now been installed.\n\nDo you wish to run the program\nso you can 'prepare' your Startup-Sequence?"
   )
  )
  (set #ask-save-help "The program will be run 'hidden' in the background, and will not appear on the screen!")
 )
)

;------------------------------------------------------------------------
;It all starts here...

;Check if it is Installer 43 or higher!
(if (< (/ @installer-version 65536) 43)
 (
  (message #wrongversion)
  (exit (quiet))
 )
)

;Welcome message!
(welcome #welcome)
(complete 0)

;Check the diskspace, AND find out if it is an update or not!
(set ver (/ (getversion #default-startup) 65536))
(if (< ver 40) ;Check if original/no ver!
 (
  ;For a new install, we should check the available space!)
  (if (< (getdiskspace #default-path) progspace)
   (abort (#no-diskspace progspace))
  )
  (set IsUpdate FALSE)
 )
 (
  ;This must be an update!
  (set IsUpdate TRUE)
 )
)

;------------------------------------------------------------------------
;Installing program...
(if (= IsUpdate TRUE)
 (
  (copylib
   (source "Startup")
   (dest #default-path)
   (optional oknodelete "force" "askuser")
  )
 )
 (copyfiles
  (source "Startup")
  (infos)
  (noposition)
  (dest #default-path)
  (optional oknodelete "force" "askuser")
 )
)
(complete 50)

;And the catalogs
(if (<> @language "english")
 (
  (if (exists "LOCALE:" (noreq))
   (
    (set #language-catalog
     (cat "Catalogs/"
          @language
     )
    )
    (if (= (exists "LOCALE:Catalogs") 0)
     (makedir "LOCALE:Catalogs")
    )
    (if (= (exists (cat "LOCALE:" #language-catalog)) 0)
     (makedir (cat "LOCALE:" #language-catalog))
    )
    (copyfiles
     (source #language-catalog)
     (dest (cat "LOCALE:" #language-catalog))
     (all)
     (optional oknodelete "force" "askuser")
    )
   )
  )
 )
)
(complete 75)

(user 1)
(copyfiles
 (source "Startup.Guide")
 (dest (askdir
        (prompt #guide-prompt)
        (help #guide-help)
        (default "Work:")
        (disk)
       )
 )
 (infos)
 (noposition)
 (optional oknodelete "force" "askuser")
 (confirm)
)

(complete 85)

;------------------------------------------------------------------------
;Convert old prefs to new prefs!
(run (cat #default-startup " S:Startup-Sequence SAVE"))

;That's it!
(complete 100)
(exit)

;------------------------------------------------------------------------
;END of Startup-Install