Amiga Magazin: Amiga-CD 2000 April & May/AMIGA_2000_04.iso/patches/redfix/redfix.lha/REDFiX/Register_REDFiX

Text File | 1999-11-02 | 35KB | 1,594 lines

; $VER: Register_REDFiX 1.2 (02.11.99) ® 1999 by Przemyslaw 'SENSEI' Gruchala

; Inicjalizacja

; Ustawienie wersji REDFiX'a jaka rejestrujemy.
(set #redfixversion 1)
(set #redfixrevision 5)

; Ustawiamy nazwe wersji REDFiX'a.
(set #redfixversionname ("%ld.%ld" #redfixversion #redfixrevision))

; Ustawienie minimalnego poziomu REDFiX'a. W wersji demo nie ma wyboru...
(set #redfixminlevel 3)

; Ustawienie wersji rejestratora REDFiX'a.
(set #redfixregisterversionname "1.2")
(set #redfixregisterdate "02.11.99")

; Ustawienie minimalnej wersji systemu operacyjnego.
(set #kickstartminversion 36)

; Ustawienie nazwy minimalnej wersji systemu operacyjnego.
(set #kickstartminversionname "2.0")

; Pobranie aktualnej wersji systemu operacyjnego.
(set #kickstartversion (/ (getversion) 65536) )

; Zapamietanie poziomu uzytkownika.
(set #userlevel @user-level)

; Domyslna wersja angielska.
(set #languagetemp 0)

; Ustawiamy pytanie o wersje jezykowa po angielsku.
(set #selectlanguage "Select your language...")

; Ustawiamy tekst powitania po angielsku.
(set #welcome
    (cat
        "\n\n\n\nWelcome in the REDFiX v" #redfixversionname " registration script.\n\n\n"
        "Copyright (c) 1999 by R.E.D. Group.\n\n\n"
        "Register_REDFiX v" #redfixregisterversionname " (" #redfixregisterdate ") by Przemyslaw 'SENSEI' Gruchala.\n"
    )
)

; Ustawiamy wersje angielska.
(if
    (= @language "english")
    (set #languagetemp 0)
)

; Ustawiamy wersje niemiecka.
(if
    (= @language "deutsch")
    (
        (set #languagetemp 1)

; Ustawiamy pytanie o wersje jezykowa po niemiecku.
;        (set #selectlanguage "Select your language...")

; Ustawiamy tekst powitania po niemiecku.
;        (set #welcome
;            (cat "\n\n\n\nWelcome in REDFiX v" #redfixversionname ".\n\n\nCopyright (c) 1999 by R.E.D. Group.\n\n\nRegister_REDFiX v" #redfixregisterversionname " (" #redfixregisterdate ") by Przemyslaw 'SENSEI' Gruchala.")
;        )
    )
)

; Ustawiamy wersje polska.
(if
    (= @language "polski")
    (
        (set #languagetemp 2)

; Ustawiamy pytanie o wersje jezykowa po polsku.
        (set #selectlanguage "Wybierz swój jëzyk...")

; Ustawiamy tekst powitania do polsku.
        (set #welcome
            (cat
                "\n\n\n\nWitam w skrypcie rejestracyjnym REDFiX'a v" #redfixversionname ".\n\n\n"
                "Copyright (c) 1999 by R.E.D. Group.\n\n\n"
                "Register_REDFiX v" #redfixregisterversionname " (" #redfixregisterdate ") by Przemysîaw 'SENSEI' Gruchaîa.\n"
            )
        )
    )
)

; Poczatkowe powitanie.
(message #welcome (all))

(if
    (>= #userlevel 2)
    (

; Wybor jezyka w ktorym bedziemy informowani w installer'ze.
        (set #language
            (select
                (askchoice
                    (prompt    #selectlanguage)
                    (help        @askoptions-help)
                    (choices
                        "English"
                        "Deutsch"
                        "Polski"
                    )
                    (default #languagetemp)
                )
                "English"
                "Deutsch"
                "Polski"
            )
        )
    )
)

; Wersja angielska jest domyslna, dlatego najpierw wypelniamy nia wszystkie ciagi tekstowe.
(set #kickstartmsg
    (cat
        "REDFiX requires KickStart V" #kickstartminversion "+ (AmigaDOS v" #kickstartminversionname "+)\n"
    )
)

(set #enternamemsg
    (cat
        "Please, enter your name and surname:"
    )
)

(set #helpenternamemsg
    (cat
        "In this record you must enter your name and surname.\n\n"
        "Attention: Required!!!\n\n"
        "Note: Your name and surname will be stored in local variable REDFiX_Register_UserName.\n"
    )
)

(set #enteraddressmsg
    (cat
        "Please, enter your address\n"
        "and your zip code:"
    )
)

(set #helpenteraddressmsg
    (cat
        "In this record you must enter your address and zip code.\n\n"
        "Attention: Required!!!\n\n"
        "Note: Your addres will be stored in local variable REDFiX_Register_UserAddress.\n"
    )
)

(set #entertelephonemsg
    (cat
        "Please, enter your telephone number:\n"
        "(If you don't have leave this record empty)"
    )
)

(set #helpentertelephonemsg
    (cat
        "In this record you could enter your telephone number.\n\n"
        "Note: Your telephone number will be stored in local variable REDFiX_Register_UserTelephone.\n"
    )
)

(set #enteremailmsg
    (cat
        "Please, enter your E-Mail address:\n"
        "(If you don't have leave this record empty)\n"
        "VERY agreeably seen!"
    )
)

(set #helpenteremailmsg
    (cat
        "In this record you could enter your E-Mail address.\n\n"
        "Note: Your E-Mail address will be stored in local variable REDFiX_Register_UserEMail.\n"
    )
)

(set #whichmccpumsg
    (cat
        "Which Motorola processor version of the REDFiX modules do you want to register?\n"
        "Default is that you have in computer."
    )
)

(set #whichmcfpumsg
    (cat
        "Which Motorola coprocessor version of the REDFiX modules do you want to register?\n"
        "Default is that you have (or not) in computer."
    )
)

(set #whichppccpumsg
    (cat
        "Which PowerPC processor version of the REDFiX modules do you want to register?\n"
        "Default is that you have (or not) in computer."
    )
)

(set #howmuchchipmemorymsg
    (cat
        "How much Chip memory your computer has?\n"
        "Default is that you have in computer."
    )
)

(set #howmuchfastmemorymsg
    (cat
        "How much Fast memory your computer has?\n"
        "Default is that you have in computer."
    )
)

(set #whichkickstartmsg
    (cat
        "Which KickStart version your computer has?\n"
        "Default is that you have in computer."
    )
)

(set #selectimagefxversionsmsg
    (cat
        "Please, select versions of ImageFX to which do you want modules:\n"
        "(Only some of them aren't compatible)"
    )
)

(set #helpselectimagefxversionsmsg
    (cat
        "Some of modules aren't compatible in different versions of the ImageFX"
        " and must to be in adequete versions.\n"
        "You should select one of them which you find interesting, or all"
        " (but price will rise!).\n\n"
        "Note: Until now only preview modules requires that operation...\n\n"
        "Attention: From REDFiX v0.925 prerelease it isn't true!!!\n"
    )
)

(set #selectredfixmodulesmsg
    "Please, select modules of the REDFiX:"
)

(set #helpselectredfixmodulesmsg
    (cat
        "In this place you can select which modules of the REDFiX packet"
        " you find interesting, and you want to register.\n"
        "Attention: Modules exists in two price versions: world and Polish"
        " and you should very carefully choice language version of Register_REDFiX!\n"
        "Attention: Be sure that modules which you want to register exist!"
        " More information in guide!\n"
    )
)

(set #modulepricesuffix            "$")

(set #modulepricea_level2        "4")
(set #modulepricea_level3        "6")
(set #modulepriceb_level2        "2")
(set #modulepriceb_level3        "4")

(set #wherestoreregiesterfilemsg
    (cat
        "Where do you want to save the register text file?\n"
        "(Good place is in RAM: or T: if you want to E-Mail me or print it)"
    )
)

(set #registerinfo
    (cat
        "I want to register full version of the REDFiX modules package to the ImageFX."
    )
)

(set #registerpersonaldata        "This is my personal data:")

(set #registername                "1. Name and surname: ")
(set #registeraddress            "2. Address:          ")
(set #registertelephone            "3. Telephone:        ")
(set #registeremail                "4. E-Mail:           ")

(set #registercomputerdata        "My computer data:")
(set #registercpufpuppcnone    "None")

(set #registermccpu                "1. Motorola CPU:     ")
(set #registermcfpu                "2. Motorola FPU:     ")
(set #registerppccpu                "3. PowerPC CPU:      ")
(set #registerchipmemory        "4. Chip memory:      ")
(set #registerfastmemory        "5. Fast memory:      ")
(set #registerkickstart            "6. KickStart:        ")

(set #registerimagefxversions    "I want REDFiX modules for the ImageFX version(s): ")

(set #registermodules            "I'm interested in modules of the REDFiX:")
(set #registerprice                "---------------------------\nPrice of the REDFiX packet: ")

(set #saveenvironmentmsg
    (cat
        "Save environment?\n"
        "(All data that you enter)"
    )
)

(set #helpsaveenvironmentmsg
    (cat
        "If you want to register new versions of the REDFiX you should select:"
        " Yes (Default). Otherwise: No."
    )
)

(set #couldnotsaveenvironmentmsg
    (cat
        "Sorry! I cannot save environment!\n"
        "Check for system assigns ENV: and ENVARC: whether correct set.\n"
    )
)

(set #exitmsg
    (cat
        "\n\n\n\n\nThank you for registering!!!\n\n"
        "Time to receive dispatch is 2-14 days.\n"
    )
)

; Wersja niemiecka.
(if
    (= #language "Deutsch")
    (
        (message
            (cat
                "Sorry! Deutsch version currently not implemented!\n"
                "English will be used...\n"
            )
        )
    )
)

; Wersja Polska.
(if
    (= #language "Polski")
    (

        (set #kickstartmsg
            (cat
                "REDFiX wymaga KickStart'u V" #kickstartminversion "+ (AmigaDOS v" #kickstartminversionname "+)\n"
            )
        )

        (set #enternamemsg
            (cat
                "Proszë podaê imië i nazwisko:\n"
                "(Ksywa mile widziana)"
            )
        )

        (set #helpenternamemsg
            (cat
                "W tym polu trzeba wpisaê swoje imië i nazwisko.\n\n"
                "UWAGA: Wymagane!!!\n\n"
                "Notka: Twoje imië i nazwisko zostanie zapisane w zmiennej"
                " lokalnej REDFiX_Register_UserName.\n\n"
                "Jeôli sië pomyliîeô przy wypeînianiu wystarczy, ûe przerwiesz rejestracjë.\n"
                "Dane poprawne nie bëdâ musiaîy zostaê ponownie wprowadzone.\n"
            )
        )

        (set #enteraddressmsg
            (cat
                "Proszë podaê adres zamieszkania\ni kod pocztowy:"
            )
        )

        (set #helpenteraddressmsg
            (cat
                "W tym polu trzeba wpisaê swój adres zamieszkania i kod pocztowy.\n\n"
                "UWAGA: Wymagane!!!\n\n"
                "Notka: Twój adres zamieszkania zostanie zapisany w zmiennej lokalnej REDFiX_Register_UserAddress.\n\n"
                "Jeôli sië pomyliîeô przy wypeînianiu wystarczy, ûe przerwiesz rejestracjë.\n"
                "Dane poprawne nie bëdâ musiaîy zostaê ponownie wprowadzone.\n"
            )
        )

        (set #entertelephonemsg
            (cat
                "Proszë podaê swój numer telefonu:\n"
                "(Jeôli nie masz, pozostaw to miejsce puste)"
            )
        )

        (set #helpentertelephonemsg
            (cat
                "W tym polu moûesz podaê numer swojego telefonu.\n"
                "W razie problemów pomoûe on nam sië z Tobâ skontaktowaê.\n\n"
                "Notka: Twój numer telefonu zostanie zapisany w zmiennej"
                " lokalnej REDFiX_Register_UserTelephone.\n\n"
                "Jeôli sië pomyliîeô przy wypeînianiu wystarczy, ûe przerwiesz rejestracjë.\n"
                "Dane poprawne nie bëdâ musiaîy zostaê ponownie wprowadzone.\n"
            )
        )

        (set #enteremailmsg
            (cat
                "Proszë podaê swój adres E-Mail:\n"
                "(Jeôli nie masz, pozostaw to miejsce puste)\n"
                "BARDZO mile widziane!"
            )
        )

        (set #helpenteremailmsg
            (cat
                "W tym polu moûesz podaê swój adres E-Mail.\n"
                "W razie problemów pomoûe on nam sië z Tobâ skontaktowaê.\n\n"
                "Notka: Twoj adres E-Mail zostanie zapisany w zmiennej"
                " lokalnej REDFiX_Register_UserEMail.\n\n"
                "Jeôli sië pomyliîeô przy wypeînianiu wystarczy, ze przerwiesz rejestracjë.\n"
                "Dane poprawne nie bëdâ musiaîy zostaê ponownie wprowadzone.\n"
            )
        )

        (set #whichmccpumsg
            (cat
                "Dla jakiego procesora Motoroli chciaî(a)byô zarejstrowaê moduî(y) REDFiX'a?\n"
                "Przydatne gdy rejestrujesz z innego komputera.\n"
                "Domyôlnie taki jaki masz w komputerze."
            )
        )

        (set #whichmcfpumsg
            (cat
                "Dla jakiego koprocesora Motoroli chciaî(a)byô zarejstrowaê moduî(y) REDFiX'a?\n"
                "Przydatne gdy rejestrujesz z innego komputera.\n"
                "Domyôlnie taki jaki masz w komputerze."
            )
        )

        (set #whichppccpumsg
            (cat
                "Dla jakiego procesora PowerPC chciaî(a)byô zarejstrowaê moduî(y) REDFiX'a?\n"
                "Przydatne gdy rejestrujesz z innego komputera.\n"
                "Domyôlnie taki jaki masz w komputerze."
            )
        )

        (set #howmuchchipmemorymsg
            (cat
                "Ile pamiëci Chip masz w swoim komputerze?\n"
                "Przydatne gdy rejestrujesz z innego komputera.\n"
                "Domyôlnie tyle ile masz w komputerze."
            )
        )

        (set #howmuchfastmemorymsg
            (cat
                "Ile pamiëci Fast masz w swoim komputerze?\n"
                "Przydatne gdy rejestrujesz z innego komputera.\n"
                "Domyôlnie tyle ile masz w komputerze."
            )
        )

        (set #whichkickstartmsg
            (cat
                "Dla jakiego systemu AmigaOS chciaî(a)byô zarejstrowaê moduî(y) REDFiX'a?\n"
                "Przydatne gdy rejestrujesz z innego komputera.\n"
                "Domyôlnie taki jaki masz w komputerze."
            )
        )

        (set #selectimagefxversionsmsg
            (cat
                "Proszë wybraê wersjë ImageFX'a do którego(ch) chciaî(a)byô moduîy:\n"
                "(Tylko niektóre moduîy sâ niekompatybilne)"
            )
        )

        (set #helpselectimagefxversionsmsg
            (cat
                "Niektóre z moduîów sâ niekompatybilne w róûnych wersjach ImageFX'a"
                " i dlatego muszâ wystëpowaê w odpowiednich wersjach.\n"
                "Wybierz jednâ z nich która Cië interesuje, lub wszystkie"
                " (ale wtedy cena wzroônie!).\n\n"
                "Notka: Na dzieï dzisiejszy tylko moduîy preview wymagajâ takich dziaîaï...\n\n"
                "UWAGA: Od wersji REDFiX'a v0.925 prerelease to nie jest prawda!\n"
            )
        )

        (set #selectredfixmodulesmsg
            (cat
                "Proszë wybraê moduîy REDFiX'a:"
            )
        )

        (set #helpselectredfixmodulesmsg
            (cat
                "W tym miejscu moûesz zaznaczyê które z moduîów pakietu REDFiX Cië interesujâ i chcesz je zarejstrowaê.\n\n"
                "UWAGA: Moduîy wystëpujâ w dwuch wersjach cenowych: ôwiatowej i polskiej wiëc proszë uwaûaê przy wybieraniu wersji jëzykowej Register_REDFiX!\n"
                "UWAGA: Upewnij sië, ûe moduîy które chcesz zarejstrowaê istniejâ! (Wiëcej informacji w guide'dzie)\n"
            )
        )

        (set #modulepricesuffix            " PLN")

        (set #modulepricea_level2        "4")
        (set #modulepricea_level3        "6")
        (set #modulepriceb_level2        "2")
        (set #modulepriceb_level3        "4")

        (set #wherestoreregiesterfilemsg
            (cat
                "Gdzie chcesz zapisaê tekstowy plik rejestracyjny?\n"
                "(Dobrym miejscem jest RAM: albo T: jeôli chcesz go do mnie wysîaê E-Mail'em albo wydrukowaê)"
            )
        )

        (set #registerinfo
            (cat
                "Chcë zarejstrowaê peînâ wersjë REDFiX'a, pakietu moduîów do ImageFX'a."
            )
        )

        (set #registerpersonaldata                "Oto moje dane personalne:")

        (set #registername                        "1. Imië i nazwisko: ")
        (set #registeraddress                    "2. Adres:           ")
        (set #registertelephone                    "3. Telefon:         ")
        (set #registeremail                        "4. E-Mail:          ")

        (set #registercomputerdata                "Dane mojego komputera:")
        (set #registercpufpuppcnone            "Brak")

        (set #registermccpu                        "1. Motorola CPU:    ")
        (set #registermcfpu                        "2. Motorola FPU:    ")
        (set #registerppccpu                        "3. PowerPC CPU:     ")
        (set #registerchipmemory                "4. Pamieê Chip:     ")
        (set #registerfastmemory                "5. Pamieê Fast:     ")
        (set #registerkickstart                    "6. KickStart:       ")

        (set #registerimagefxversions
            "Chciaî(a)bym zamówiê moduîy REDFiX'a dla ImageFX'a w wersji: "
        )

        (set #registermodules                    "Interesujâ mnie moduîy REDFiX'a:")
        (set #registerprice                        "---------------------------\nCena pakietu REDFiX: ")

        (set #saveenvironmentmsg        "Zapisaê ôrodowisko?\n(Wszystkie dane które wprowadziîaô(eô))\n")

        (set #helpsaveenvironmentmsg    "Jeôli bëdziesz chciaî(a) rejestrowaê nowsze wersje REDFiX'a powinieneô(powinnaô) wybraê: Tak (domyôlny). W przeciwnym wypadku: Nie.\n")

        (set #couldnotsaveenvironmentmsg
            (cat
                "Przykro mi! Nie mogë zapisaê ôrodowiska!\n"
                "Sprawdz czy systemowe przypisania ENV: i ENVARC: sa dobrze ustawione.\n"
            )
        )

        (set #exitmsg
            (cat
                "\n\n\n\n\nDziëkujemy za zarejstrowanie sië!!!\n\n"
                "Czas oczekiwania na odbiór przesyîki 2-14 dni.\n"
            )
        )
    )
)

(complete 0)

; Sprawdzenie czy mamy odpowiednia wersje systemu operacyjnego
(if (< #kickstartversion #kickstartminversion)
    (abort #kickstartmsg)
)

;
; Etap 1:
; - Pytanie o imie i nazwisko uzytkownika.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (set #username
        (getenv "REDFiX_Register_UserName")
    )
    (set #username "")
)

; Pytamy uzytkownika jak sie nazywa. Korzystamy z poprzedniego ustawienia.
(set #username
    (askstring
        (prompt    #enternamemsg)
        (help        #helpenternamemsg)
        (default    #username)
    )
)

; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_UserName " #username)
)

(complete 10)

;
; Etap 2:
; - Pytamy sie o adres uzytkownika.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (set #useraddress
        (getenv "REDFiX_Register_UserAddress")
    )
    (set #useraddress "")
)

; Pytamy sie uzytkownika gdzie mieszka. Korzystamy z poprzedniego ustawienia.
(set #useraddress
    (askstring
        (prompt    #enteraddressmsg)
        (help        #helpenteraddressmsg)
        (default    #useraddress)
    )
)

; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_UserAddress " #useraddress)
)

(complete 20)

;
; Etap 3:
; - Pytamy sie o telefon uzytkownika.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (set #usertelephone
        (getenv "REDFiX_Register_UserTelephone")
    )
    (set #usertelephone "")
)

; Pytamy sie uzytkownika o numer telefon. Korzystamy z poprzedniego ustawienia.
(set #usertelephone
    (askstring
        (prompt    #entertelephonemsg)
        (help        #helpentertelephonemsg)
        (default    #usertelephone)
    )
)

; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_UserTelephone " #usertelephone)
)

(complete 30)

;
; Etap 4:
; - Pytamy sie o E-Mail uzytkownika.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (set #useremail
        (getenv "REDFiX_Register_UserEMail")
    )
    (set #useremail "")
)

; Pytamy sie uzytkownika o adres E-Mail. Korzystamy z poprzedniego ustawienia.
(set #useremail
    (askstring
        (prompt    #enteremailmsg)
        (help        #helpenteremailmsg)
        (default    #useremail)
    )
)

; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_UserEMail " #useremail)
)

(complete 40)

;
; Etap 5:
; - Pobranie wersji procesora.
; - Przeliczenie typu procesora (zgodnego z askchoice).
; - Spytanie sie uzytkownika o wlasciwa wersje procesora (tylko w trybie EXPERT).
;

; Pobranie wersji procesora.
(set #cpu (database "CPU"))

; Domyslna wartosc.
(set #cputype 0)

; Przeliczamy typ procesora na wersje.
(if
    (= #cpu 68000)
    (set #cputype 0)
)

(if
    (= #cpu 68010)
    (set #cputype 0)
)

(if
    (= #cpu 68020)
    (set #cputype 1)
)

(if
    (= #cpu 68030)
    (set #cputype 2)
)

(if
    (= #cpu 68040)
    (set #cputype 3)
)

(if
    (= #cpu 68060)
    (set #cputype 4)
)


(if
    (>= #userlevel 2)
    (

; Pytamy sie uzytkownika pod jaki procesor chce zarejstrowac moduly.
        (set #cputype
            (askchoice
                (prompt    #whichmccpumsg)
                (help        @askchoice-help)
                (choices
                    "MC 68000"
                    "MC 68020"
                    "MC 68030"
                    "MC 68040"
                    "MC 68060"
                )
                (default #cputype)
            )
        )
    )
)

(set #usermccpu
    (select #cputype
        "MC 68000"
        "MC 68020"
        "MC 68030"
        "MC 68040"
        "MC 68060"
    )
)

(complete 50)

;
; Etap 6:
; - Pobranie wersji koprocesora.
; - Przeliczenie typu koprocesora (zgodnego z askchoice).
; - Spytanie sie uzytkownika o wlasciwa wersje koprocesora (tylko w trybie EXPERT).
;

; Pobranie wersji koprocesora.
(set #fpu (database "FPU"))

(set #fputype 0)

; Przeliczamy typ procesora na wersje.
(if
    (= #fpu NOFPU)
    (set #fputype 0)
)

(if
    (= #fpu 68881)
    (set #fputype 1)
)

(if
    (= #fpu 68882)
    (set #fputype 2)
)

(if
    (= #fpu FPU40)
    (set #fputype 3)
)

(if
    (>= #userlevel 2)
    (

; Pytamy sie uzytkownika pod jaki koprocesor chce zarejstrowac moduly.
        (set #fputype
            (askchoice
                (prompt    #whichmcfpumsg)
                (help        @askchoice-help)
                (choices
                    #registercpufpuppcnone
                    "MC 68881"
                    "MC 68882"
                    "MC 68040FPU"
                    "MC 68060FPU"
                )
                (default #fputype)
            )
        )
    )
)

(set #usermcfpu
    (select #fputype
        #registercpufpuppcnone
        "MC 68881"
        "MC 68882"
        "MC 68040FPU"
        "MC 68060FPU"
    )
)

(complete 55)

;
; Etap 7:
; - Pobranie wersji procesora PowerPC.
; - Przeliczenie typu procesora PowerPC (zgodnego z askchoice).
; - Spytanie sie uzytkownika o wlasciwa wersje procesora PowerPC (tylko w trybie EXPERT).
;

; Pobranie wersji procesora PowerPC.
(run
    ("Bin/REDFiX_SysInfo PPCCPU >ENV:REDFiX_PowerPCCPU")
)

(set #ppccpu
    (getenv "REDFiX_PowerPCCPU")
)

(set #ppccputype 0)

; Przeliczamy typ procesora PowerPC na wersje.
(if
    (= #ppccpu "")
    (set #ppccputype 0)
)

(if
    (= #ppccpu PPC603e)
    (set #ppccputype 1)
)

(if
    (= #ppccpu PPC604e)
    (set #ppccputype 2)
)

(if
    (>= #userlevel 2)
    (

; Pytamy sie uzytkownika pod jaki procesor PowerPC chce zarejstrowac moduly.
        (set #ppccputype
            (askchoice
                (prompt    #whichppccpumsg)
                (help        @askchoice-help)
                (choices
                    #registercpufpuppcnone
                    "PowerPC 603e"
                    "PowerPC 604e"
                )
                (default #ppccputype)
            )
        )
    )
)

(set #userppccpu
    (select #ppccputype
        #registercpufpuppcnone
        "PowerPC 603e"
        "PowerPC 604e"
    )
)

(complete 60)

;
; Etap 8:
; - Pobranie ilosci pamieci Chip.
; - Przeliczenie ilosci pamieci Chip (zgodnego z askchoice).
; - Spytanie sie uzytkownika o wlasciwa ilosc pamieci Chip (tylko w trybie EXPERT).
;

; Odczytanie ilosci pamieci CHIP w komputerze.
(run
    ("Bin/REDFiX_SysInfo CHIP >ENV:REDFiX_ChipMemory")
)

(set #chipmemory
    (/
        (getenv "REDFiX_ChipMemory")
        1024
    )
)

(set #chipmemorytype 0)

; Przeliczamy ilosc pamieci CHIP na wersje.

; Idiotoodpornosc. Ilosc pamieci CHIP ponizej 0.5 MB.
(if
    (< #chipmemory 512)
    (set #chipmemorytype 0)
)

; Ilosc pamieci CHIP w przedziale od 0.5 MB do 1.0 MB.
(if
    (AND
        (>= #chipmemory 512)
        (< #chipmemory 1024)
    )
    (set #chipmemorytype 1)
)

; Ilosc pamieci CHIP w przedziale od 1.0 MB do 2.0 MB.
(if
    (AND
        (>= #chipmemory 1024)
        (< #chipmemory 2048)
    )
    (set #chipmemorytype 2)
)

; Ilosc pamieci CHIP wynosi 2.0 MB.
(if
    (= #chipmemory 2048)
    (set #chipmemorytype 3)
)

; idiotoodpornosc. Ilosc pamieci CHIP powyzej 2.0 MB.
(if
    (> #chipmemory 2048)
    (set #chipmemorytype 4)
)

(if
    (>= #userlevel 2)
    (

; Pytamy sie uzytkownika ile pamieci CHIP ma w komputerze.
        (set #chipmemorytype
            (askchoice
                (prompt    #howmuchchipmemorymsg)
                (help        @askchoice-help)
                (choices
                    "<0.5 MB"
                    "0.5 MB"
                    "1.0 MB"
                    "2.0 MB"
                    ">2.0 MB"
                )
                (default #chipmemorytype)
            )
        )
    )
)

(set #userchipmemory
    (select #chipmemorytype
        "<0.5 MB"
        "0.5 MB"
        "1.0 MB"
        "2.0 MB"
        ">2.0 MB"
    )
)

(complete 65)

;
; Etap 9:
; - Pobranie ilosci pamieci Fast.
; - Przeliczenie ilosci pamieci Fast (zgodnego z askchoice).
; - Spytanie sie uzytkownika o wlasciwa ilosc pamieci Fast (tylko w trybie EXPERT).
;

; Odczytanie ilosci pamieci FAST w komputerze.
(run
    ("Bin/REDFiX_SysInfo FAST >ENV:REDFiX_FastMemory")
)

(set #fastmemory
    (/
        (getenv "REDFiX_FastMemory")
        1024
    )
)

(set #fastmemorytype 0)

; Przeliczamy ilosc pamieci FAST na wersje.

; Idiotoodpornosc. Ilosc pamieci FAST ponizej 0.5 MB.
(if
    (< #fastmemory 512)
    (set #fastmemorytype 0)
)

; Ilosc pamieci FAST w przedziale od 0.5 MB do 1.0 MB.
(if
    (AND
        (>= #fastmemory 512)
        (< #fastmemory 1024)
    )
    (set #fastmemorytype 1)
)

; Ilosc pamieci FAST w przedziale od 1 MB do 2 MB.
(if
    (AND
        (>= #fastmemory 1024)
        (< #fastmemory 2048)
    )
    (set #fastmemorytype 2)
)

; Ilosc pamieci FAST w przedziale od 2 MB do 4 MB.
(if
    (AND
        (>= #fastmemory 2048)
        (< #fastmemory 4096)
    )
    (set #fastmemorytype 3)
)

; Ilosc pamieci FAST w przedziale od 4 MB do 8 MB.
(if
    (AND
        (>= #fastmemory 4096)
        (< #fastmemory 8192)
    )
    (set #fastmemorytype 4)
)

; Ilosc pamieci FAST w przedziale od 8 MB do 16 MB.
(if
    (AND
        (>= #fastmemory 8192)
        (< #fastmemory 16384)
    )
    (set #fastmemorytype 5)
)

; Ilosc pamieci FAST w przedziale od 16 MB do 32 MB.
(if
    (AND
        (>= #fastmemory 16384)
        (< #fastmemory 32768)
    )
    (set #fastmemorytype 6)
)

; Ilosc pamieci FAST w przedziale od 32 MB do 64 MB.
(if
    (AND
        (>= #fastmemory 32768)
        (< #fastmemory 65536)
    )
    (set #fastmemorytype 7)
)

; Ilosc pamieci FAST w przedziale od 64 MB do 128 MB.
(if
    (AND
        (>= #fastmemory 65536)
        (< #fastmemory 131072)
    )
    (set #fastmemorytype 8)
)

; Ilosc pamieci FAST w przedziale od 128 MB do 256 MB.
(if
    (AND
        (>= #fastmemory 131072)
        (< #fastmemory 262144)
    )
    (set #fastmemorytype 9)
)

; idiotoodpornosc. Ilosc pamieci FAST powyzej 256 MB.
(if
    (> #fastmemory 262144)
    (set #fastmemorytype 10)
)

(if
    (>= #userlevel 2)
    (

; Pytamy sie uzytkownika ile pamieci FAST ma w komputerze.
        (set #fastmemorytype
            (askchoice
                (prompt    #howmuchfastmemorymsg)
                (help        @askchoice-help)
                (choices
                    "<0.5 MB"
                    "0.5 - 1 MB"
                    "1 - 2 MB"
                    "2 - 4 MB"
                    "4 - 8 MB"
                    "8 - 16 MB"
                    "16 - 32 MB"
                    "32 - 64 MB"
                    "64 - 128 MB"
                    "128 - 256 MB"
                    ">256 MB"
                )
                (default #fastmemorytype)
            )
        )
    )
)

(set #userfastmemory
    (select #fastmemorytype
        "<0.5 MB"
        "0.5 - 1 MB"
        "1 - 2 MB"
        "2 - 4 MB"
        "4 - 8 MB"
        "8 - 16 MB"
        "16 - 32 MB"
        "32 - 64 MB"
        "64 - 128 MB"
        "128 - 256 MB"
        ">256 MB"
    )
)

(complete 70)

;
; Etap 10:
; - Pobranie wersji systemu operacyjnego.
; - Przeliczenie wersji systemu operacyjnego (zgodnego z askchoice).
; - Spytanie sie uzytkownika o wlasciwa wersje systemu operacyjnego (tylko w trybie EXPERT).
;

(set #kickstarttype 0)

; Przeliczamy wersje systemu operacyjnego.
(if
    (= #kickstartversion 36)
    (set #kickstarttype 0)
)

(if
    (= #kickstartversion 37)
    (set #kickstarttype 1)
)

(if
    (= #kickstartversion 39)
    (set #kickstarttype 2)
)

(if
    (= #kickstartversion 40)
    (set #kickstarttype 3)
)

(if
    (> #kickstartversion 40)
    (set #kickstarttype 4)
)

(if
    (>= #userlevel 2)
    (

; Pytamy sie uzytkownika jaki ma KickStart.
        (set #kickstarttype
            (askchoice
                (prompt    #whichkickstartmsg)
                (help        @askchoice-help)
                (choices
                    "KickStart v2.0 (V36)"
                    "KickStart v2.04 (V37)"
                    "KickStart v3.0 (V39)"
                    "KickStart v3.1 (V40)"
                    ">KickStart v3.1 (V40+)"
                )
                (default #kickstarttype)
            )
        )
    )
)

(set #userkickstart
    (select #kickstarttype
        "v2.0 (V36)"
        "v2.04 (V37)"
        "v3.0 (V39)"
        "v3.1 (V40)"
        ">v3.1 (>V40)"
    )
)

(complete 75)

;
; Etap 11:
; - Pytamy sie o wersje ImageFX'a w jakich uzytkownik chce moduly.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (
        (set #imagefxversions
                (getenv "REDFiX_Register_ImageFXVersions")
        )

; Jesli nie bylo wczesniejszych ustawien lub byly uszkodzone to ustawienie domyslnych wersji (obu).
        (if
            (OR
                (= #imagefxversions "")
                (> #imagefxversions 4)
            )
            (
                (set #imagefxversions 0)
            )
        )
    )
    (set #imagefxversions 2)
)

; Pytamy sie uzytkownika o wersje ImageFX'a. Korzystamy z poprzedniego ustawienia.
(set #imagefxversions
    (askchoice
        (prompt    #selectimagefxversionsmsg)
        (help        #helpselectimagefxversionsmsg)
        (choices
            "ImageFX v1.x...v4.x"
            "ImageFX v1.x"
            "ImageFX v2.x"
            "ImageFX v3.x"
            "ImageFX v4.x"
        )
        (default    #imagefxversions)
    )
)

;
; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_ImageFXVersions " #imagefxversions)
)

(complete 80)

;
; Etap 12:
; - Pytamy sie uzytkownika ktore chce moduly.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (
        (set #redfixmodules1
                (getenv "REDFiX_Register_REDFiXModules1")
        )

; Jesli nie bylo wczesniejszych ustawien to ustawienie domyslnych modulow (wszystkich).
        (if
            (= #redfixmodules1 "")
            (
                (set #redfixmodules1 %10111011101010)
            )
        )
    )
    (set #redfixmodules1 %10111011101010)
)

; Pytamy sie uzytkownika ktore chce moduly. Korzystamy z poprzedniego ustawienia.
(set #redfixmodules1
    (askoptions
        (prompt    #selectredfixmodulesmsg)
        (help        #helpselectredfixmodulesmsg)
        (choices
; REDFiX v0.9+
            (cat "Modules/Preview/REDFiX_Standard - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")")
            (cat "Modules/Preview/REDFiX_Standard - LEVEL3 (" #modulepricea_level3 #modulepricesuffix ")")
            (cat "Hooks/REDFiX_AutoContrast       - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")")
            (cat "Hooks/REDFiX_AutoContrast       - LEVEL3 (" #modulepriceb_level3 #modulepricesuffix ")")
            (cat "Hooks/REDFiX_LowPass            - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")")
            (cat "Hooks/REDFiX_LowPass            - LEVEL3 (" #modulepriceb_level3 #modulepricesuffix ")")
; REDFiX v1.5+
            (cat "Modules/Loaders/REDFiX_NewIcon  - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")")
            (cat "Modules/Savers/REDFiX_NewIcon   - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")")
            (cat "Hooks/REDFiX_Swirl              - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")")
            (cat "Hooks/REDFiX_Swirl              - LEVEL3 (" #modulepricea_level3 #modulepricesuffix ")")
; REDFiX v1.7+
;            (cat "Modules/Loaders/REDFiX_XFA      - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")")
;            (cat "Modules/Savers/REDFiX_XFA       - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")")
;            (cat "Hooks/REDFiX_Pulsar             - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")")
;            (cat "Hooks/REDFiX_Pulsar             - LEVEL3 (" #modulepricea_level3 #modulepricesuffix ")")
        )
        (default    #redfixmodules1)
    )
)

; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_REDFiXModules1 " #redfixmodules1)
)

; ******* W TYM MIEJSCU MOZNA WSTAWIAC NASTEPNE ZESTAWY MODULOW!!! *******

(complete 85)

;
; Etap 13:
; - Pytamy sie o to w jakim pliku chcemy miec wygenerowany plik z rejestracja.
;

; Sprawdzenie czy ENV: istnieje (idiotoodpornosc).
(if
    (getassign "ENV")

; Jesli tak to pobieramy zmienna lokalna.
    (
        (set #registerfile
            (getenv "REDFiX_Register_RegisterFile")
        )

; Jesli nie bylo wczesniejszych ustawien to ustawienie domyslnego rejestracyjnego pliku tekstowego.
        (if
            (= #registerfile "")
            (set #registerfile "RAM:REDFiX_Registration.txt")
        )
    )

; Jesli nie bylo wczesniejszych ustawien to ustawienie domyslnego rejestracyjnego pliku tekstowego.
    (set #registerfile "RAM:REDFiX_Registration.txt")
)

; Pytamy sie uzytkownika o to gdzie zapisac rejestracyjny plik tekstowy.
(set #registerfile
    (askfile
        (prompt    #wherestoreregiesterfilemsg)
        (help        @askfile-help)
        (default    (fileonly #registerfile))
    )
)

; Jesli ENV: istnieje to
; Zapisujemy ustawienie jako zmienna lokalna.
(if
    (getassign "ENV")
    (run "SetEnv REDFiX_Register_RegisterFile " #registerfile)
)

(complete 90)

; Wyczyszczenie ciagu przechowujacego liste modulow REDFiX'a.
(set #redfixmoduleslist "")

; Ustawienie ceny pakietu REDFiX.
(set #redfixprice 0)

; Wyzerowanie licznika modulow.
(set #actualredfixmodule 0)

(while
    (set #actualredfixmodulename
        (select #actualredfixmodule
; REDFiX v0.9+
            (cat " - " "Modules/Preview/REDFiX_Standard - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")\n")
            (cat " - " "Modules/Preview/REDFiX_Standard - LEVEL3 (" #modulepricea_level3 #modulepricesuffix ")\n")
            (cat " - " "Hooks/REDFiX_AutoContrast       - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")\n")
            (cat " - " "Hooks/REDFiX_AutoContrast       - LEVEL3 (" #modulepriceb_level3 #modulepricesuffix ")\n")
            (cat " - " "Hooks/REDFiX_LowPass            - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")\n")
            (cat " - " "Hooks/REDFiX_LowPass            - LEVEL3 (" #modulepriceb_level3 #modulepricesuffix ")\n")
; REDFiX v1.5+
            (cat " - " "Modules/Loaders/REDFiX_NewIcon  - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")\n")
            (cat " - " "Modules/Savers/REDFiX_NewIcon   - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")\n")
            (cat " - " "Hooks/REDFiX_Swirl              - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")\n")
            (cat " - " "Hooks/REDFiX_Swirl              - LEVEL3 (" #modulepricea_level3 #modulepricesuffix ")\n")
; REDFiX v1.7+
;            (cat " - " "Modules/Loaders/REDFiX_XFA      - LEVEL2 (" #modulepriceb_level2 #modulepricesuffix ")\n")
;            (cat " - " "Modules/Savers/REDFiX_XFA       - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")\n")
;            (cat " - " "Hooks/REDFiX_Pulsar             - LEVEL2 (" #modulepricea_level2 #modulepricesuffix ")\n")
;            (cat " - " "Hooks/REDFiX_Pulsar             - LEVEL3 (" #modulepricea_level3 #modulepricesuffix ")\n")
            ""
        )
    )
    (
        (if
            (IN #redfixmodules1 #actualredfixmodule)
            (

;                (message (cat #actualredfixmodule "\n" #actualredfixmodulename))

                (set #redfixmoduleslist (cat #redfixmoduleslist #actualredfixmodulename))
                (set #redfixprice
                    (+ #redfixprice
                        (select #actualredfixmodule
; REDFiX v0.9+
                            #modulepricea_level2
                            #modulepricea_level3
                            #modulepriceb_level2
                            #modulepriceb_level3
                            #modulepriceb_level2
                            #modulepriceb_level3
; REDFiX v1.5+
                            #modulepriceb_level2
                            #modulepricea_level2
                            #modulepricea_level2
                            #modulepricea_level3
; REDFiX v1.7+
;                            #modulepriceb_level2
;                            #modulepricea_level2
;                            #modulepricea_level2
;                            #modulepricea_level3
                        )
                    )
                )
            )
        )

        (set #actualredfixmodule (+ #actualredfixmodule 1))
    )
)

; Generowanie rejestracyjnego pliku tekstowego.
(textfile
    (dest #registerfile )

    (append
        (cat #registerinfo "\n\n")
    )

    (append
        (cat #registerpersonaldata "\n\n")
    )

    (append
        (cat #registername #username "\n")
    )
    (append
        (cat #registeraddress #useraddress "\n")
    )
    (append
        (cat #registertelephone #usertelephone "\n")
    )
    (append
        (cat #registeremail #useremail "\n")
    )

    (append "\n")

    (append
        (cat #registercomputerdata "\n\n")
    )

    (append
        (cat #registermccpu #usermccpu "\n")
    )
    (append
        (cat #registermcfpu #usermcfpu "\n")
    )
    (append
        (cat #registerppccpu #userppccpu "\n")
    )
    (append
        (cat #registerchipmemory #userchipmemory "\n")
    )
    (append
        (cat #registerfastmemory #userfastmemory "\n")
    )
    (append
        (cat #registerkickstart #userkickstart "\n")
    )

    (append "\n")

    (append
        (cat #registerimagefxversions
            (select #imagefxversions
                "v1.x...v4.x"
                "v1.x"
                "v2.x"
                "v3.x"
                "v4.x"
            )
            "\n"
        )
    )

    (append "\n")

    (append #registermodules "\n" #redfixmoduleslist "\n")

    (append #registerprice #redfixprice #modulepricesuffix)
)

(complete 95)

; Czy ENV: i ENVARC: istnieja?
(if
    (AND
        (<> (getassign "ENV") "")
        (<> (getassign "ENVARC") "")
    )
    (

; Czy ENV: i ENVARC: sa rozne? (idiotoodpornosc)
        (if
            (<>
                (getassign "ENV")
                (getassign "ENVARC")
            )
            (

; Pytamy sie czy zapisac ustawienia na stale.
                (if
                    (askbool
                        (prompt    #saveenvironmentmsg)
                        (help        #helpsaveenvironmentmsg)
                        (default TRUE)
                    )
                    (

; Sprawdzamy czy ENV: i ENVARC: istnieja (idiotoodpornosc).
                        (copyfiles
                            (source "ENV:")
                            (dest "ENVARC:")
                            (pattern "REDFiX_Register_#?")
                            (nogauge)
                        )
                    )
                )
            )
            (message #couldnotsaveenvironmentmsg)
        )
    )
    (message #couldnotsaveenvironmentmsg)
)

(complete 100)

(exit #exitmsg (quiet))