;REBEL GW24 Solar System Instaler v0.5

FailAt 21

    Echo ""
    Echo "   [32m[1mInstaler REBEL GW24 Solar System[0m"
    Echo ""

RequestChoice >NIL: "Instaler REBEL GW24 Solar System" "Instalacja REBEL.*nPotrzebne miejsce 2.6 MB*nProgram zostanie zainstalowany w wersji spakowanej.*nJeli chcesz rozpakowa pliki, na planszy tytuowej*ngry wcinij SHIFT+I*nPotrzeba bdzie wtedy ok.5 MB wolnego miejsca na dysku.*nKatalog REBEL zostanie stworzony." "  O K  "

RequestFile DRAWER "SYS:" TITLE "Wska gdzie zainstalowa REBEL" DRAWERSONLY >ENV:REBPath

IF WARN


    Echo ""
    Echo "   [1mInstalacja przerwana[0m"
    Echo ""


Quit

EndIF

Cd $REBPath

Assign DEST: $REBPath





; DYSK 1


MakeDir REBEL

Copy GW1:Dane/Rebel.Info to DEST:


IF WARN


    Echo ""
    Echo "   [1mInstalacja przerwana[0m"
    Echo ""


Quit

EndIF


    Echo ""
    Echo "   [1mProsz czeka instaluj 1 dysk[0m"
    Echo ""


Copy GW1: to DEST:REBEL ALL QUIET





; DYSK 2


setenv RBSELECT `RequestChoice TITLE="REBEL Installer" BODY="Prosz woy dysk 2 " GADGETS=" GOTOWE | PONIECHAJ "`

	if $RBSelect EQ 0


    Echo ""
    Echo "   [1mInstalacja przerwana[0m"
    Echo ""


Quit

Else

        if $RBSelect EQ 1



    Echo ""
    Echo "   [1mProsz czeka instaluj 2 dysk[0m"
    Echo ""


Copy GW2: to DEST:REBEL ALL QUIET

endif

endif

unsetenv RBSelect




; DYSK 3


setenv RBSELECT `RequestChoice TITLE="REBEL Installer" BODY="Prosz woy dysk 3 " GADGETS=" GOTOWE | PONIECHAJ "`

	if $RBSelect EQ 0


    Echo ""
    Echo "   [1mInstalacja przerwana[0m"
    Echo ""


Quit

Else

        if $RBSelect EQ 1



    Echo ""
    Echo "   [1mProsz czeka instaluj 3 dysk[0m"
    Echo ""


Copy GW3: to DEST:REBEL ALL QUIET

Delete DEST:Rebel/Disk.info QUIET
Delete DEST:Rebel/InstalerREBEL.info QUIET
Delete DEST:Rebel/Dane/Rebel.info QUIET
Assign DEST: Remove QUIET


    Echo ""
    Echo ""
    Echo ""
    Echo ""
    Echo "   Instalacja zakoczona"
    Echo ""
    Echo "   [1mREBEL[0m znajduje si w [1m$REBPath[0m
    Echo ""


UnSetEnv $REBPath

Wait 10

endif

endif

unsetenv RBSelect
