;; AppPlugin Installation utility
;; (C)1997-98 by Sascha `enigma` Reissner

(set @default-dest "")
(set @pretend 0)
(set @user-level 2)
(complete 0)
(if (= @language "deutsch")
 (
   ; Let`s use German as language
   (set #welcome "\n\n\n\nAppPlugin 1.00Beta2\n© 1997-98 by Sascha Reissner\n\n\nWillkommen zum AppPlugin 1.00Beta2 Installationstool\nDieses Script wird AppPlugin auf Ihre HD installieren\n")
   (set #whisuc "Wo befindet sich UConv 2.x NG auf Ihrer Platte ?")
   (set #copymuirexx "Wo soll MUIRexx installiert werden ?")
   (set #copyim "Wohin soll Icon.mcc kopiert werden ?")
   (set #ready "\n\n\n\n\nInstallation erfolgreich beendet\nViel Spaß!")
 )
 (
   ; Let`s use English as language
   (set #welcome "\n\n\n\nAppPlugin 1.00Beta2\n© 1997-98 by Sascha Reissner\n\n\nWelcome to the AppPlugin 1.00Beta2 installationtool\nThis Script will install AppPlugin on your HD\n")
   (set #whisuc "Where is UConv 2.x NG installed on your HD ?")
   (set #copymuirexx "Where shall MUIRexx be installed ?")
   (set #copyim "Where do you want to copy Icon.mcc ?")
   (set #ready "\n\n\n\n\nInstallation could be ended successfully\nHave fun!")
 )
)


; Ok, let`s begin with a small greeting!
(message #welcome
)

(set #installdir
    (askdir
        (prompt #whisuc)
        (help @askdir-help)
        (default "UConv:")
    )
)

(set #idcommands
   (tackon #installdir "Commands")
)

(set #idicons
   (tackon #installdir "Icons")
)

(set #idrexx
   (tackon #installdir "Rexx")
)

(copyfiles
    (source "Commands/")
    (dest #idcommands)
    (pattern "#?")
)

(copyfiles
    (source "Icons/")
    (dest #idicons)
    (pattern "#?")
)

(copyfiles
    (source "")
    (dest #idrexx)
    (pattern "AppPlugin")
)

(complete 50)

(copylib
    (prompt #copymuirexx)
    (help "This file is essential!")
    (source "MUIRexx")
    (dest "C:")
    (confirm)
)

(complete 70)

(copylib
    (prompt #copyim)
    (help "This file is essential!")
    (source "Libs/MUI/Icon.mcc")
    (dest "MUI:Libs/MUI/")
    (confirm)
)

(complete 100)
(message #ready
)