Amiga ISO Collection/AmigaUtilCD2.iso/Sound/Player/INSHP232.LHA/HippoPlayer/Install

Text File | 1996-10-06 | 5.4 KB | 228 lines

; Installer script for HippoPlayer.
;
; 3.9.1996 by K-P Koljonen
;


(complete 0)

(delete "s:hip-script")

(message
  "\n\nHippoPlayer is shareware.\n\nPlease consider registering!"
  "\nSee the doc for more info."
  (ALL)
)

(complete 3)

(set #DEST0
  (askdir
    (prompt "Where do you want to install HippoPlayer? A drawer will be created there.")
    (help (cat @askdir-help)
    )
    (default "Work:")
  )
)

(complete 6)

(set #DEST (tackon #DEST0 "HippoPlayer"))
(makedir #DEST (infos))

(copyfiles (dest #DEST) (source "HiP"))
(copyfiles (dest #DEST) (source "HiP.info"))
(copyfiles (dest #DEST) (source "Readme!"))
(copyfiles (dest #DEST) (source "Readme!.info"))
(copyfiles (dest #DEST) (source "RegisteredUsers"))
(copyfiles (dest #DEST) (source "RegisteredUsers.info"))

(complete 10)

; ******* Install icon

(run "run SYS:Utilities/MultiView Icons/Overview.iff")

(set #ICONS
    (askchoice
    (prompt "Choose an icon for HippoPlayer")
    (help (cat @askchoice-help))
    (default 0)
    (choices
        "#1: 4 colors"
        "#2: 4 colors"
        "#3: MagicWB 8 colors"
        "#4: MagicWB 8 colors"
        "#5: MagicWB 8 colors"
        "#6: MagicWB 8 colors"
        "#7: MagicWB 8 colors"
        "#8: NewIcons"
        )
    )
)

(complete 15)

(if (= #ICONS 1) (copyfiles (source "Icons/HiP2.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
(if (= #ICONS 2) (copyfiles (source "Icons/HiP_MWB.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
(if (= #ICONS 3) (copyfiles (source "Icons/HiP_MWB2.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
(if (= #ICONS 4) (copyfiles (source "Icons/HiP_MWB3.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
(if (= #ICONS 5) (copyfiles (source "Icons/HiP_MWB4.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
(if (= #ICONS 6) (copyfiles (source "Icons/HiP_MWB5.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
(if (= #ICONS 7) (copyfiles (source "Icons/HiP_NI.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )

; ******* Reqtools.library

(complete 20)

(if (= (exists "Libs:reqtools.library") 0)
  (copylib
    (source "Libs/ReqTools.library")
    (dest "Libs:")
    (confirm)
    (prompt "\n\nInstall reqtools.library?\nOnly do so if you already don't have it installed!")
    (help
      (cat
        "Reqtools.library is needed for requesters in HippoPlayer."
        " Library version for kickstart 1.2/1.3 is included."
        @copylib-help
      )
    )
  )
)

; ******* Group

(complete 30)

(copyfiles
  (source "")
  (dest
    (askdir
      (prompt
        (cat
          "Select destination directory for HippoPlayer.group"
        )
      )
      (help
        (cat
      "This file contains some play routines for different music"
      " formats. It is adviced to install it."
          " The place of HippoPlayer.group can also be defined"
          " later in HippoPlayer's preferences.\n\n"
          @askdir-help
        )
      )
      (default "S:")
    )
  )
  (choices
    "HippoPlayer.group"
  )
)

; ******* PS3M settings

(complete 40)

(if (exists "S:HippoPlayer.PS3M")
  (if (=
    (askbool
      (prompt (cat
            "\n\n\n\nDo you want to overwrite S:HippoPlayer.PS3M?"
          )
      )
      (help
        (cat "Don't overwrite if you want to keep your PS3M settings."
         " Do overwrite if you're updating from v2.12 or older.")
      )
    ) 1)
    (copyfiles
      (source "HippoPlayer.PS3M")
      (dest "S:")
    )
  )
)


(complete 50)


; ******* Select stuff to copy


(set #NUM
    (askoptions
    (prompt "Which of these do you want to install?")
    (help (cat
         "Documentation: Docs for HippoPlayer in text or guide format.\n\n"
         "ARexx scripts: Various ARexx scripts for HippoPlayer.\n\n"
         "Icons: Different WB icons for HippoPlayer.\n\n"
                 "Toolmanager brush: A brush for use with ToolManager for example.\n\n"
                 "External scopes: A couple of external scopes which must be started from Shell or WB.\n\n"
                 "Support stuff: Some little tools, including the useful 14-bit calibration program.\n\n"
         @askoptions-help))
    (default %100001)
    (choices
        "Documentation"
        "ARexx scripts"
        "Icons"
        "Toolmanager brush"
        "External scopes"
        "Support stuff"
        )
    )
)

(complete 60)

; ******* Copy docs

(if (IN #NUM 0)
   (set #DOC
    (askoptions
      (prompt "Select type of documentation")
      (help (cat @askoptions-help))
      (default 1)
      (choices "AmigaGuide" "Text")
      )
   )
)

(if (IN #DOC 0) (copyfiles (source "") (dest #DEST) (pattern "HiP.guide#?")))
(if (IN #DOC 1) (copyfiles (source "") (dest #DEST) (pattern "HiP.doc#?")))

; ******* ARexx

(complete 65)
(if (IN #NUM 1)    (makedir (tackon #DEST "ARexx") (infos)))
(if (IN #NUM 1)    (copyfiles (source "ARexx/") (dest (tackon #DEST "ARexx")) (all)))

; ******* Icons

(complete 70)
(if (IN #NUM 2) (makedir (tackon #DEST "Icons") (infos)))
(if (IN #NUM 2)    (copyfiles (source "Icons/") (dest (tackon #DEST "Icons")) (all)))

; ******* Toolmanager brushes

(complete 80)
(if (IN #NUM 3)    (makedir (tackon #DEST "Brushes") (infos)))
(if (IN #NUM 3)    (copyfiles (source "Brushes/") (dest (tackon #DEST "Brushes")) (all)))

; ******* External scopes

(complete 90)
(if (IN #NUM 4)    (makedir (tackon #DEST "Scopes") (infos)))
(if (IN #NUM 4)    (copyfiles (source "Scopes/") (dest (tackon #DEST "Scopes")) (all)))

; ******* Support stuff

(complete 95)
(if (IN #NUM 5)    (makedir (tackon #DEST "Support") (infos)))
(if (IN #NUM 5)    (copyfiles (source "Support/") (dest (tackon #DEST "Support")) (all)))

; ******

(complete 100)