home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
polminet
/
wojciech_kocjan
/
wkutils
/
wkutilsdemoscript.pl
< prev
Wrap
Text File
|
1989-08-02
|
1KB
|
50 lines
failat 21
resident rtEZReq pure
resident rtGetString pure
set DD 1
set rtgstext `rtGetString TITLE="Podaj dowolny tekst" DEF="" ALLOWEMPTY`
set ezreq1 `rtEZReq "Wpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
if "$ezreq1" EQ "1"
rtEZReq >NIL: "Widzisz, jakie to proste" "_Widzë"
skip show_makeid
EndIf
Lab repeatit1
set ezreq1 `rtEZReq "Powtórzë ponownie!!!*NWpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
If "$ezreq1" NOT EQ "1"
Skip repeatit1 BACK
EndIf
Lab show_makeid
set rtgstext `rtGetString TITLE="Podaj czteroliterowâ nazwë" DEF="MkID"`
set makeid `MakeID $rtgstext`
IF "$rtgstext" EQ ""
Skip show_makeid BACK
EndIf
rtEZReq >NIL: "Podaîeô(aô) *"$rtgstext*"*NA ID to 0x$makeid" "_Oh, dziëkujë!"
rtEZReq >NIL: "Drobiazg*N*N(naciônij dowolny klawisz)" VKEY INACTIVE
Lab show_idcmp
set ezreq2 `rtEZReq "Wyciâgnij dyskietkë lub kliknij na OKEJ" "_Okej" DISKREMOVED`
if "$ezreq2" NOT EQ "-1"
set ezreq3 `rtEZReq "Szkoda, nie masz stacji dysków" "_Aleû Mam!|_Nie mam"`
If "$ezreq3" EQ "1"
Skip show_idcmp BACK
EndIf
set DD 0
rtEZReq >NIL: "Przykro mi!" "_Wiem"
EndIf
If "$DD" EQ "1"
rtEZReq >NIL: "Wîóû dyskietkë z powrotem*N(lub dowolnâ innâ dyskietkë)" DISKINSERTED
EndIf
rtEZReq >NIL: "I to by byîo na tyle!*NWciônij dowolny klawisz" VKEY
Lab Cleanup ; koniec
resident rtEZReq REMOVE
resident rtGetString REMOVE
unset DD
unset ezreq1
unset ezreq2
unset ezreq3
unset RTGSTEXT