Amiga MA Magazine 1998 #6/amigamamagazinepolishissue1998.iso/cdrom/jukebox_2.1/jukebox-extensions/install

Text File | 1996-01-01 | 6KB | 223 lines

(procedure InstProgGui
        (

           (copyfiles
               (prompt "Copying Prog-GUI")
               (help "This is the executable which lets you chose the tracks to play.\n\n" @copyfiles-help)
               (source "Prog-GUI")
               (dest @default-dest)
               (confirm)
               )


           (set textfile-help "The created AREXX script gets the necessary information from JukeBox and calls the executable, then works on its output and lets you hear the music. Great, isn't it?")
           (set textfile-prompt "Creating AREXX script for Prog-GUI")
           (set filename "prog.jb")

         (if (= num 0)
             (
              (textfile
                  (dest (tackon @default-dest filename))
                  (append "/* Prog.jb by Patrick Kursawe 1996 */\n\ntexts = \"Inhalt gewählt\"\n")
                  (include "prog.main")
                  (prompt textfile-prompt)
                  (help textfile-help)
                  (confirm)
                  )
             )
             )
          (if (= num 1)
             ((
               (textfile
                (dest (tackon @default-dest filename))
                (append "/* Prog.jb by Patrick Kursawe 1996 */\n\ntexts = \"contents chosen\"\n")
                (include "prog.main")
                (help textfile-help)
                (prompt textfile-prompt)
                (confirm)
                )
             )
              )
         )

              (set fkey_pg (+ (askchoice
                          (prompt "Please select an F-Key for calling Prog-GUI")
                          (help "You can call the program from a shell (rx prog.jb) or by pressing an F-Key while the JukeBox-Window is active.\n\n" @askchoice-help)
                          (choices "F1" "F2" "F3" "F4" "F5")
                          (default 0)
                          ) 1)
                      )

                  (tooltype
                      (prompt (cat "Set ToolType MACRO_" fkey_pg "=prog"))
                      (help (cat "This is necessary for calling Prog-GUI by F-Key " fkey_pg))
                      (dest JukeBox)
                      (settooltype (cat "MACRO_" fkey_pg) "prog")
                      (confirm)
                      )
                  (set end1txt (cat "Prog-GUI can be called by F" fkey_pg " now.\n"))
       )
    )
(procedure InstCatViewer
        (
           (copyfiles
               (prompt "Copying CatViewer")
               (help "This is the executable which shows the catalog-file.\n\n" @copyfiles-help)
               (source "CatViewer")
               (dest @default-dest)
               (confirm)
               )


           (set textfile-help "The script gets the name of the current catalog file and passes it to the viewer.")
           (set textfile-prompt "Creating AREXX script for CatViewer")
           (set filename "catview.jb")

         (if (= num 0)
            (
              (textfile
                  (dest (tackon @default-dest filename))
                  (append "/* CatView.jb by Patrick Kursawe 1996 */\n\ntexts = \"CD Titel weitersuchen Gefunden!\"\n")
                  (include "catview.main")
                  (help textfile-help)
                  (prompt textfile-prompt)
                  (confirm)
                  )

            )
           )
         (if (= num 1)
               (

               (textfile
                   (dest (tackon @default-dest filename))
                   (append "/* CatView.jb by Patrick Kursawe 1996 */\n\ntexts = \"CD title next Found!\"\n")
                   (include "catview.main")
                   (help textfile-help)
                   (prompt textfile-prompt)
                   (confirm)
                   )
               )
             )
        )

        (set fkey_cv (+ (askchoice
                             (prompt "Please select an F-Key for calling CatViewer")
                             (help "You can call the program from a shell (rx CatView.jb) or by pressing an F-Key while the JukeBox-Window is active.\n\n" @askchoice-help)
                             (choices "F1" "F2" "F3" "F4" "F5")
                             (default 1)
                          ) 1)
                      )




                  (tooltype
                      (prompt (cat "Set ToolType MACRO_" fkey_cv "=catview"))
                      (help (cat "This is necessary for calling CatViewer by F-Key " fkey_cv))
                      (dest JukeBox)
                      (settooltype (cat "MACRO_" fkey_cv) "catview")
                      (confirm)
                      )
                  (set end2txt (cat "CatViewer can be called by F" fkey_cv " now.\n"))
    )

(procedure InstGuide
        (
         (set helptxt (cat "You wanted me to install the guide. I'm just doing this!\n\n" @copyfiles-help))

         (if (= num 0)
               (copyfiles
                   (prompt "Copying the Guide")
                   (help helptxt)
                   (source "Guides/German_guide")
                   (dest @default-dest)
                   (newname "JukeBox-Extensions.guide")
                (infos)
                   (confirm 1)
                   )
           )
         (if (= num 1)
                (copyfiles
                    (prompt "Copying the Guide")
                    (help helptxt)
                    (source "Guides/English_guide")
                    (dest @default-dest)
                    (newname "JukeBox-Extensions.guide")
                    (infos)
                    (confirm 1)
                    )

             )
        )
    )

(welcome "This Installer script will extend your JukeBox® by two "
         "additional functions. You will just have to answer a few questions..."
         )

(complete 0)





(if (>= 37 (/ (getversion "intuition.library" (resident)) 65536))
     (abort "You need at least V37 to use these programs.\n(That means Workbench V2.0 minimum!)")
     )

(set JukeBox (askfile
            (prompt "Please select the JukeBox executable")
            (help "I need to copy some files into the directory where JukeBox is,"
             "later I may modify the ToolTypes of JukeBox.\n"
             "Just select the file you double-click when starting JukeBox.\n\n" @askdir-help )
            (default "work:JukeBox/JukeBox")
            )
        )
(set @default-dest (pathonly JukeBox))

(set bits (askoptions
        (prompt "Which extensions do you wish to install?")
        (help "Well, I suggest you take all, though you don't really need the guide!\n\n" @askoptions-help)
        (choices "Prog-GUI" "CatViewer" "Guide")
        )
    )

(set num (askchoice
        (prompt "Choose a language. See HELP for more info.")
        (help "The guide is available in german or english, "
         "it's up to you to decide. The programs can be adapted to other "
         "languages quite easily. See the guide for more information.\n\n" @askchoice-help)
        (choices "Deutsch" "english")
        )
    )

(complete 10)

(if (in bits 0)
    ((InstProgGui)

     )
    )
(if (in bits 1)
    ((InstCatViewer)

     )
    )
(if (in bits 2)
    ((InstGuide)

     )
    )
(if (= bits 0)
    (abort "Why did you get here when you don't want to install anything?")
    )

(complete 90)


(complete 100)
(exit "Wish you fun with JukeBox-Extensions!\n"
      "Don't forget the email/postcard! (see guide)\n\n"
      end1txt end2txt
      )