home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / polminet / wojciech_kocjan / wkutils / wkutilsdemoscript.pl < prev   
Text File  |  1989-08-02  |  1KB  |  50 lines
  1. failat 21
  2. resident rtEZReq pure
  3. resident rtGetString pure
  4. set DD 1
  5. set rtgstext `rtGetString TITLE="Podaj dowolny tekst" DEF="" ALLOWEMPTY`
  6. set ezreq1 `rtEZReq "Wpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
  7. if "$ezreq1" EQ "1"
  8.    rtEZReq >NIL: "Widzisz, jakie to proste" "_Widzë"
  9.    skip show_makeid
  10. EndIf
  11. Lab repeatit1
  12. set ezreq1 `rtEZReq "Powtórzë ponownie!!!*NWpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
  13. If "$ezreq1" NOT EQ "1"
  14.    Skip repeatit1 BACK
  15. EndIf
  16.  
  17. Lab show_makeid
  18. set rtgstext `rtGetString TITLE="Podaj czteroliterowâ nazwë" DEF="MkID"`
  19. set makeid `MakeID $rtgstext`
  20. IF "$rtgstext" EQ ""
  21.    Skip show_makeid BACK
  22. EndIf
  23. rtEZReq >NIL: "Podaîeô(aô) *"$rtgstext*"*NA ID to 0x$makeid" "_Oh, dziëkujë!"
  24. rtEZReq >NIL: "Drobiazg*N*N(naciônij dowolny klawisz)" VKEY INACTIVE
  25.  
  26. Lab show_idcmp
  27. set ezreq2 `rtEZReq "Wyciâgnij dyskietkë lub kliknij na OKEJ" "_Okej" DISKREMOVED`
  28. if "$ezreq2" NOT EQ "-1"
  29.    set ezreq3 `rtEZReq "Szkoda, nie masz stacji dysków" "_Aleû Mam!|_Nie mam"`
  30.    If "$ezreq3" EQ "1"
  31.       Skip show_idcmp BACK
  32.    EndIf
  33.    set DD 0
  34.    rtEZReq >NIL: "Przykro mi!" "_Wiem"
  35. EndIf
  36.  
  37. If "$DD" EQ "1"
  38.    rtEZReq >NIL: "Wîóû dyskietkë z powrotem*N(lub dowolnâ innâ dyskietkë)" DISKINSERTED
  39. EndIf
  40. rtEZReq >NIL: "I to by byîo na tyle!*NWciônij dowolny klawisz" VKEY
  41.  
  42. Lab Cleanup ; koniec
  43. resident rtEZReq REMOVE
  44. resident rtGetString REMOVE
  45. unset DD
  46. unset ezreq1
  47. unset ezreq2
  48. unset ezreq3
  49. unset RTGSTEXT
  50.