GameMode je15 GameType QUEST LandLinesCounter H GREENBLOCKSONSCREENCOUNTER G LivesRemaining02Counter Q Program0123 TEXTBUFFER LEVS je15.wbl ENDBUFFER LOOP INIT Do SendMessage DEACTIVATESCORE SetParameter NUMLINES 1 SendMessage SetStartLines SetParameter BACKDROP BACKDROP9 SendMessage SETBACKDROP SetParameter BUFFERNAME LEVS SetParameter NUMLINES 60 SendMessage LOADLEVEL SetParameter LIVES 0 SendMessage SETLIVES SetParameter INTERVAL 999200 SendMessage SetLandSpeed SetParameter NUMLINES 1 SendMessage SetStartLines SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SetParameter MESSAGE_ID TIMER7 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter TEXT je15.wbw SendMessage LOADWEAPONLIST SendMessage MUSIC_GROOVE_LOW Set X To 0 Set I To 2 Set U To 30 SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 1.3 1.3 1.3 0.0 SetParameter Scale2 1.3 1.3 1.3 0.0 SetParameter Scale3 1.3 1.3 1.3 0.0 SetParameter Scale4 1.3 1.3 1.3 0.0 SetParameter Scale5 1.3 1.3 1.3 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text NO_GREEN_PLEASE FRE SetParameter TEXT PAS_DE_VERT,_S_._V_._P_. SPA SetParameter Text VERDE_NO,_GRACIAS GER SetParameter Text KEIN_GRÜN_BITTE ITA SetParameter TEXT NIENTE_VERDE,_GRAZIE POL SetParameter TEXT PROSZĘ_TYLKO_NIE_ZIELONE SendMessage CREATETEXT SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.8 0.8 0.8 0.0 SetParameter Scale2 0.8 0.8 0.8 0.0 SetParameter Scale3 0.8 0.8 0.8 0.0 SetParameter Scale4 0.8 0.8 0.8 0.0 SetParameter Scale5 0.8 0.8 0.8 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 115.0 0.0 0.0 SetParameter Text Change_green_to_red FRE SetParameter TEXT Changez_le_vert_en_rouge SPA SetParameter Text ˇConvierte_lo_verde_en_rojo GER SetParameter Text Färbe_rot_in_grün_um ITA SetParameter TEXT Cambia_il_verde_in_rosso POL SetParameter TEXT Zmień_zielone_na_czerwone SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text within_the_time_limit! FRE SetParameter TEXT dans_le_temps_imparti! SPA SetParameter Text antes_de_agotar_el_tiempo! GER SetParameter Text innerhalb_des_Zeitlimits ITA SetParameter TEXT entro_il_tempo_limite. POL SetParameter TEXT w_określonym_czasie SendMessage CREATETEXT SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 1.0 1.0 1.0 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Scale3 1.0 1.0 1.0 0.0 SetParameter Scale4 1.0 1.0 1.0 0.0 SetParameter Scale5 1.0 1.0 1.0 0.0 SetParameter Position 0.0 -125.0 0.0 0.0 SetParameter Text Press_fire_to_start FRE SetParameter TEXT Appuyez_sur_Tir_pour_commencer! GER SetParameter Text Zum_Starten_Feuer_drücken ITA SetParameter TEXT Premi_fuoco_per_cominciare POL SetParameter TEXT Naciśnij_"Strzał" SPA SetParameter Scale1 0.8 0.8 0.8 0.0 SPA SetParameter Scale2 0.8 0.8 0.8 0.0 SPA SetParameter Scale3 0.8 0.8 0.8 0.0 SPA SetParameter Scale4 0.8 0.8 0.8 0.0 SPA SetParameter Scale5 0.8 0.8 0.8 0.0 SPA SetParameter Text Pulsa_el_disparo_para_empezar SendMessage CREATETEXT SPA SetParameter Scale1 1.0 1.0 1.0 0.0 SPA SetParameter Scale2 1.0 1.0 1.0 0.0 SPA SetParameter Scale3 1.0 1.0 1.0 0.0 SPA SetParameter Scale4 1.0 1.0 1.0 0.0 SPA SetParameter Scale5 1.0 1.0 1.0 0.0 OnMessage FIREPRESSED Do SendMessage MUSIC_GROOVE_MED_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SendMessage EndBriefing Set Z To 0 GotoLoop MAIN EndResponse EndLoop Loop MAIN Do OnMessage TIMER7 Do Add 1 To Z EndResponse If Z BecomesEqualTo 2 Then SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter LifeTime 0.2 0.2 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 25.0 0.0 0.0 SetParameter TEXT Get_Ready! FRE SetParameter TEXT Préparez-vous! SPA SetParameter Text ˇPreparado! GER SetParameter Text Fertig! ITA SetParameter TEXT Pronto! POL SetParameter TEXT Gotowy! SendMessage CREATETEXT EndIf If Z IsEqualTo 5 Then SetParameter INTERVAL 0010 SendMessage SetLandSpeed set H to 0 GotoLoop MAIN2 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN2 Do If H IsEqualTo 14 then SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter LifeTime 0.2 0.2 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 25.0 0.0 0.0 SetParameter TEXT Go! FRE SetParameter TEXT Allez-y! SPA SetParameter Text ˇAdelante! GER SetParameter Text Los! ITA SetParameter TEXT Via! POL SetParameter TEXT Start! SendMessage CREATETEXT SetParameter INTERVAL 999000 SendMessage SetLandSpeed SendMessage FIRINGON Set I To 0 Set U To 15 GotoLoop MAIN3 endif SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN3 Do GoSubLoop TIMER If Q BecomesEqualTo -1 Then SendMessage LOSECONDITION EndIf If G IsLessThan 1 Then GotoLoop MAIN4 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN4 Do SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage CLEARBLOCKS SetParameter Position 25.0 0.0 0.0 0.0 SetParameter Text Great! FRE SetParameter TEXT Génial! SPA SetParameter Text ˇGenial! GER SetParameter Text Klasse! ITA SetParameter TEXT Grande! POL SetParameter TEXT Brawo! SendMessage CREATETEXT Set Z To 0 SendMessage FIRINGOFF GotoLoop MAIN5 EndLoop Loop MAIN5 Do OnMessage TIMER7 Do Add 1 To Z EndResponse If Z IsEqualTo 2 Then SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Text _ FRE SetParameter TEXT _ SPA SetParameter Text _ GER SetParameter Text _ ITA SetParameter TEXT _ POL SetParameter TEXT _ SendMessage CREATETEXT SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage CLEARBLOCKS SendMessage MUSIC_GROOVE_LOW GotoLoop MAIN6 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop LOOP MAIN6 Do SetParameter INTERVAL 999200 SendMessage SetLandSpeed SetParameter NUMLINES 1 SendMessage SetStartLines Set Z To 0 SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight GotoLoop MAIN7 EndLoop Loop MAIN7 Do OnMessage TIMER7 Do Add 1 To Z EndResponse If Z BecomesEqualTo 2 Then SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter LifeTime 0.2 0.2 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 25.0 0.0 0.0 SetParameter TEXT Get_Ready! FRE SetParameter TEXT Préparez-vous! SPA SetParameter Text ˇPreparado! GER SetParameter Text Fertig! ITA SetParameter TEXT Pronto! POL SetParameter TEXT Gotowy! SendMessage CREATETEXT EndIf If Z IsEqualTo 5 Then SetParameter INTERVAL 0010 SendMessage SetLandSpeed set H to 0 GotoLoop MAIN8 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN8 Do If H IsEqualTo 14 then SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter LifeTime 0.2 0.2 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 25.0 0.0 0.0 SetParameter TEXT Go! FRE SetParameter TEXT Allez-y! SPA SetParameter Text ˇAdelante! GER SetParameter Text Los! ITA SetParameter TEXT Via! POL SetParameter TEXT Start! SendMessage CREATETEXT SetParameter INTERVAL 999000 SendMessage SetLandSpeed Set I To 0 Set U To 30 SendMessage FIRINGON GotoLoop MAIN9 endif EndLoop Loop MAIN9 Do GoSubLoop TIMER If Q BecomesEqualTo -1 Then SendMessage LOSECONDITION GotoLoop END3 EndIf If G IsLessThan 1 Then GotoLoop MAIN10 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN10 Do SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage CLEARBLOCKS SendMessage FIRINGOFF SetParameter Position 0.0 25.0 0.0 0.0 SetParameter Text Great! FRE SetParameter TEXT Génial! SPA SetParameter Text ˇGenial! GER SetParameter Text Klasse! ITA SetParameter TEXT Grande! POL SetParameter TEXT Brawo! SendMessage CREATETEXT Set Z To 0 GotoLoop MAIN11 EndLoop Loop MAIN11 Do OnMessage TIMER7 Do Add 1 To Z EndResponse If Z IsEqualTo 2 Then SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage CLEARBLOCKS SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Text _ FRE SetParameter TEXT _ SPA SetParameter Text _ GER SetParameter Text _ ITA SetParameter TEXT _ POL SetParameter TEXT _ SendMessage CREATETEXT SendMessage MUSIC_GROOVE_LOW GotoLoop MAIN14 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop LOOP MAIN14 Do SetParameter INTERVAL 999200 SendMessage SetLandSpeed SetParameter NUMLINES 1 SendMessage SetStartLines Set Z To 0 SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight GotoLoop MAIN15 EndLoop Loop MAIN15 Do OnMessage TIMER7 Do Add 1 To Z EndResponse If Z BecomesEqualTo 2 Then SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter LifeTime 0.2 0.2 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 25.0 0.0 0.0 SetParameter TEXT Get_Ready! FRE SetParameter TEXT Préparez-vous! SPA SetParameter Text ˇPreparado! GER SetParameter Text Fertig! ITA SetParameter TEXT Pronto! POL SetParameter TEXT Gotowy! SendMessage CREATETEXT EndIf If Z IsEqualTo 7 Then SetParameter INTERVAL 0010 SendMessage SetLandSpeed set H to 0 GotoLoop MAIN16 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN16 Do If H IsEqualTo 14 then SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter LifeTime 0.2 0.2 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 25.0 0.0 0.0 SetParameter TEXT Go! FRE SetParameter TEXT Allez-y! SPA SetParameter Text ˇAdelante! GER SetParameter Text Los! ITA SetParameter TEXT Via! POL SetParameter TEXT Start! SendMessage CREATETEXT SendMessage FIRINGON SetParameter INTERVAL 999000 SendMessage SetLandSpeed Set I To 0 Set U To 45 GotoLoop MAIN17 endif SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN17 Do GoSubLoop TIMER If Q BecomesEqualTo -1 Then SendMessage LOSECONDITION GotoLoop END3 EndIf If G IsLessThan 1 Then GotoLoop MAIN18 EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop MAIN18 Do SendMessage FIRINGOFF SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage CLEARBLOCKS SetParameter Position 0.0 25.0 0.0 0.0 SetParameter Text Great! FRE SetParameter TEXT Génial! SPA SetParameter Text ˇGenial! GER SetParameter Text Klasse! ITA SetParameter TEXT Grande! POL SetParameter TEXT Brawo! SendMessage CREATETEXT Set Z To 0 SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight GotoLoop MAIN25 EndLoop Loop MAIN25 Do OnMessage TIMER7 Do Add 1 To Z EndResponse If Z IsEqualTo 2 Then SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage CLEARBLOCKS SendMessage FIRINGON SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.4 1.4 1.4 0.0 SetParameter Scale3 3.4 3.4 3.4 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 1.8 1.8 1.8 0.0 SetParameter Colour1 0.18 0.9 0.1 1.0 SetParameter Colour2 0.18 0.9 0.1 1.0 SetParameter Colour3 0.18 0.9 0.1 1.0 SetParameter Colour4 1.0 1.0 1.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Text SUCCESS! FRE SetParameter TEXT RÉUSSI! SPA SetParameter Text ˇLO_CONSEGUISTE! GER SetParameter Text GESCHAFFT! ITA SetParameter TEXT HAI_VINTO! POL SetParameter TEXT Następny SendMessage CREATETEXT SetParameter TEXT jegg39 SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION GotoLoop CHECK EndIf SetParameter Position 0.0 -175.0 0.0 0.0 SendMessage ChangeWaterHeight EndLoop Loop TIMER Do SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale2 1.0 1.0 1.0 1.0 SetParameter Scale3 1.0 1.0 1.0 1.0 SetParameter Scale4 1.0 1.0 1.0 1.0 SetParameter Scale5 1.0 1.0 1.0 1.0 SetParameter FRAME 3 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Position 180.0 210.0 0.0 0.0 SendMessage CREATEICON SetParameter Scale1 0.8 0.8 0.8 0.8 SetParameter Scale2 0.8 0.8 0.8 0.8 SetParameter Scale3 0.8 0.8 0.8 0.8 SetParameter Scale4 0.8 0.8 0.8 0.8 SetParameter Scale5 0.8 0.8 0.8 0.8 OnMessage TIMER7 Do SetParameter Velocity 0.0 0.0 0.0 0.0 If Z IsGreaterThan 60 Then Subtract 60 From U Add 1 to I EndIf Subtract 1 from U SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Position 240.0 210.0 0.0 0.0 SetParameter Scale1 0.8 0.8 0.8 0.8 SetParameter Scale2 0.8 0.8 0.8 0.8 SetParameter Scale3 0.8 0.8 0.8 0.8 SetParameter Scale4 0.8 0.8 0.8 0.8 SetParameter Scale5 0.8 0.8 0.8 0.8 If U IsLessThan 0 Then Subtract 1 from I Set U To 59 EndIf If I IsEqualTo 0 Then If U IsLessThan 11 Then SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 EndIf EndIf If U IsLessThan 10 Then SetParameter Text 0 SetParameter Position 240.0 210.0 0.0 0.0 SendMessage CREATETEXT SetParameter Position 255.0 210.0 0.0 0.0 EndIf If U IsEqualTo 60 Then Set U TO 00 ConvertToText U SendMessage CREATETEXT Set U To 60 EndIf If I IsEqualTo -1 Then Set U To 0 SetParameter Scale1 0.8 0.8 0.8 0.0 SetParameter Scale2 0.8 0.8 0.8 0.0 SetParameter Scale3 0.8 0.8 0.8 0.0 SetParameter Scale4 0.8 0.8 0.8 0.0 SetParameter Scale5 0.8 0.8 0.8 0.0 SetParameter TEXT 0 SetParameter Position 240.0 210.0 0.0 0.0 SendMessage CREATETEXT SetParameter Scale1 0.8 0.8 0.8 0.0 SetParameter Scale2 0.8 0.8 0.8 0.0 SetParameter Scale3 0.8 0.8 0.8 0.0 SetParameter Scale4 0.8 0.8 0.8 0.0 SetParameter Scale5 0.8 0.8 0.8 0.0 SetParameter TEXT 0 SetParameter Position 255.0 210.0 0.0 0.0 SendMessage CREATETEXT Set I To 0 GotoLoop END EndIf SetParameter Scale1 0.8 0.8 0.8 0.8 SetParameter Scale2 0.8 0.8 0.8 0.8 SetParameter Scale3 0.8 0.8 0.8 0.8 SetParameter Scale4 0.8 0.8 0.8 0.8 SetParameter Scale5 0.8 0.8 0.8 0.8 If U IsEqualTo 0 Then If I IsEqualTo 0 Then GotoLoop END EndIf EndIf If U IsLessThan 60 Then ConvertToText U SendMessage CREATETEXT EndIf SetParameter Scale1 0.8 0.8 0.8 0.0 SetParameter Scale2 0.8 0.8 0.8 0.0 SetParameter Scale3 0.8 0.8 0.8 0.0 SetParameter Scale4 0.8 0.8 0.8 0.0 SetParameter Scale5 0.8 0.8 0.8 0.0 SetParameter Lifetime 0.0 0.0 1.0 0.0 ConvertToText I SetParameter Position 215.0 210.0 0.0 0.0 SendMessage CREATETEXT EndResponse If I IsLessThan 1 Then If U BecomesEqualTo 50 Then SendMessage MUSIC_GROOVE_MED EndIf If U BecomesEqualTo 30 Then SendMessage MUSIC_GROOVE_HIGH EndIf EndIf EndLoop Loop END Do SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Scale1 8.0 8.0 8.0 1.0 SetParameter Scale2 5.0 5.0 5.0 1.0 SetParameter Scale4 3.0 3.0 3.0 1.0 SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Text TIME'S_UP! FRE SetParameter TEXT TEMPS_ÉCOULÉ! SPA SetParameter TEXT ˇTIEMPO! GER SetParameter TEXT ENDE! ITA SetParameter TEXT TEMPO_ESAURITO! POL SetParameter TEXT Czas_upłynął SendMessage CREATETEXT SendMessage LOSECONDITION GOTOLOOP CHECK EndLoop Loop CHECK Do EndLoop EndFile