Amiga Format CD 16/amigaformatcd16.iso/-in_the_mag-/top100_shareware/workbench/iconian/install

Text File | 1996-03-02 | 6KB | 240 lines

(SET @default-dest "Sys:")
(SET default_lang 0)

(SET #needKick ("\n'Iconian' needs Kickstart Version 39 at least." ) )

(SET #startMsg ("\nWelcome to 'Iconian'\n\nThis script installs 'Iconian' on your Amiga.\n") )

(SET #destPrompt "Please choose the destination directory for 'Iconian'.\nA drawer will NOT be created.")

(SET #copyPFiles "Copying program files...")

(SET #DocPrompt "Select the directory for the documentation file.")

(SET #exitMsg ("Hope you enjoy using 'Iconian'.") )


(if (< (/ (GETVERSION) 65536) 39)
    (ABORT #needKick)
)

(MESSAGE #startMsg)

(SET @default-dest
    (ASKDIR (PROMPT  #destPrompt)
            (HELP    askdir-help)
            (DEFAULT @default-dest )))

(COPYFILES (SOURCE "Iconian")
           (HELP copyfiles-help)
           (DEST @default-dest )
           (INFOS)
)

(SET @DocDir
    (ASKDIR (PROMPT  #DocPrompt)
            (HELP    askdir-help)
            (DEFAULT "Help:")
            (NEWPATH)
    )
)


(COPYFILES (SOURCE "Iconian_help.guide")
           (DEST   @DocDir)
           (HELP copyfiles-help)
           (INFOS)
)

(set classdir @default-dest)
(set gaddir (tackon @default-dest "gadgets"))

(set foundclass 0)
(if (exists "classes:" (NOREQ))
    (
        (set foundclass 1)
         (set classdir "classes:")
         (set gaddir "classes:gadgets")
    )
)
(if (= foundclass 0)
    (if (exists "sys:classes" (NOREQ))
        (
            (set foundclass 1)
          (set classdir "sys:classes")
          (set gaddir "sys:classes/gadgets")
      )
    )
)
(if (= foundclass 0)
    (
        (if (exists "libs:classes" (NOREQ))
            (
                (set classdir "libs:classes")
                (set gaddir "libs:classes/gadgets")
            )
        )
    )
)
(set chunky (tackon classdir "chunkyimage.class"))
(set complex (tackon classdir "compleximage.class"))
(set gauge (tackon classdir "gaugeimage.class"))
(set popup (tackon gaddir "pop.gadget"))
(set doloaddt (tackon "LIBS:" "doloaddt.library"))

(set neednew 1)
(if (exists chunky (NOREQ))
    (
        (set existvernum (getversion chunky))
        (set newvernum (getversion "classes/chunkyimage.class"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing chunkyimage.class is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the chunkyimage.class is already installed on your system.  Selecting Yes to overwrite the existing class may cause incompatibilities with other programs that rely on chunkyimage.class.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "classes/chunkyimage.class")
        (HELP copyfiles-help)
      (DEST classdir)
      (INFOS)
        )
    )
)

(set neednew 1)
(if (exists complex (NOREQ))
    (
        (set existvernum (getversion complex))
        (set newvernum (getversion "classes/compleximage.class"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing compleximage.class is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the compleximage.class is already installed on your system.  Selecting Yes to overwrite the existing class may cause incompatibilities with other programs that rely on compleximage.class.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "classes/compleximage.class")
        (HELP copyfiles-help)
      (DEST classdir)
      (INFOS)
        )
    )
)

(set neednew 1)
(if (exists gauge (NOREQ))
    (
        (set existvernum (getversion gauge))
        (set newvernum (getversion "classes/gaugeimage.class"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing gaugeimage.class is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the gaugeimage.class is already installed on your system.  Selecting Yes to overwrite the existing class may cause incompatibilities with other programs that rely on gaugeimage.class.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "classes/gaugeimage.class")
        (HELP copyfiles-help)
      (DEST classdir)
      (INFOS)
        )
    )
)

(set neednew 1)
(if (exists popup (NOREQ))
    (
        (set existvernum (getversion popup))
        (set newvernum (getversion "gadgets/pop.gadget"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing pop.gadget is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the pop.gadget is already installed on your system.  Selecting Yes to overwrite the existing gadget may cause incompatibilities with other programs that rely on pop.gadget.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "gadgets/pop.gadget")
        (HELP copyfiles-help)
      (DEST gaddir)
      (INFOS)
        )
    )
)

(set neednew 1)
(if (exists doloaddt (NOREQ))
    (
        (set existvernum (getversion doloaddt))
        (set newvernum (getversion "libs/doloaddt.library"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing doloaddt.library is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the doloaddt.library is already installed on your system.  Selecting Yes to overwrite the existing gadget may cause incompatibilities with other programs that rely on doloaddt.library.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "libs/doloaddt.library")
        (HELP copyfiles-help)
      (DEST "LIBS:")
      (INFOS)
        )
    )
)
(Exit #exitMsg)