GameMode purple POL Zniszcz_fioletowe_ceg³y FRE LE_POURPRE ITA CACCIA_AL_VIOLA GER purpur SPA A_POR_EL_morado GameType TOURNAMENT HIDDENID 4 PurpleComboCounter C LandLinesCounter H BulletGoneCounter B LivesRemaining02Counter Q Program0123 DATABUFFER DRAW 14 349 15 349 14 348 16 348 14 347 15 347 14 329 15 329 14 328 16 328 14 327 15 327 14 309 15 309 14 308 16 308 14 307 15 307 -1 -1 ENDBUFFER DATABUFFER DRA2 14 289 15 289 14 288 16 288 14 287 15 287 14 269 15 269 14 268 16 268 14 267 15 267 14 249 15 249 14 248 16 248 14 247 15 247 -1 -1 ENDBUFFER DATABUFFER DRA3 14 229 15 229 14 228 16 228 14 227 15 227 14 209 15 209 14 208 16 208 14 207 15 207 14 189 15 189 14 188 16 188 14 187 15 187 -1 -1 ENDBUFFER DATABUFFER DRA4 14 169 15 169 14 168 16 168 14 167 15 167 14 149 15 149 14 148 16 148 14 147 15 147 14 129 15 129 14 128 16 128 14 127 15 127 -1 -1 ENDBUFFER DATABUFFER DRA5 14 109 15 109 14 108 16 108 14 107 15 107 14 89 15 89 14 88 16 88 14 87 15 87 14 69 15 69 14 68 16 68 14 67 15 67 -1 -1 ENDBUFFER DATABUFFER DRA6 14 49 15 49 14 48 16 48 14 47 15 47 14 29 15 29 14 28 16 28 14 27 15 27 14 9 15 9 14 8 16 8 14 7 15 7 -1 -1 ENDBUFFER DATABUFFER ANKA 15 348 15 328 15 308 ENDBUFFER DATABUFFER ANK2 15 288 15 268 15 248 ENDBUFFER DATABUFFER ANK3 15 228 15 208 15 188 ENDBUFFER DATABUFFER ANK4 15 168 15 148 15 128 ENDBUFFER DATABUFFER ANK5 15 108 15 88 15 68 ENDBUFFER DATABUFFER ANK6 15 48 15 28 15 8 ENDBUFFER TEXTBUFFER LEVS purple.wbl ENDBUFFER Loop INIT Do SendMessage CLEARPROJECTILES Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter TEXT purple.wbw SendMessage LOADWEAPONLIST SetParameter INTERVAL 999999 SendMessage SetLandSpeed SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 360 SendMessage LOADLEVEL SendMessage STARTBRIEFING SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SendMessage FIRINGOFF SendMessage MUSIC_GROOVE_LOW SendMessage QUAKENO SetParameter LIVES 3 SendMessage SetLives SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Velocity 0.0 0.01 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Scale1 0.5 0.5 0.5 0.0 SetParameter Scale2 1.5 1.5 1.5 0.0 SetParameter Colour1 1.0 1.0 1.0 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 Lifetime 0.1 0.5 1.0 1.5 SetParameter JUSTIFY CENTRE SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT SetParameter POSITION 0 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION Set X to 0 Set S to 0 Set G to 0 Set K to 0 Set M to 0 Set J to 0 Set D to 0 Set V to 0 Set C to 0 Set H to 0 Set B to 0 Set Q to 0 SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 0200 SetParameter REPEAT TRUE SendMessage CreateTimer SetParameter TEXT purple SendMessage SET_HIGHSCORE_TABLE SendMessage DEACTIVATESCORE GotoLoop CHECKBRIEF EndLoop / mission briefing / Loop CHECKBRIEF Do OnMessage TIMER1 Do GosubLoop BRIEF EndResponse SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT OnMessage FIREPRESSED Do SendMessage ENDBRIEFING SendMessage FIRINGON SetParameter Lifetime 0.0 0.0 1.0 0.0 SendMessage MUSIC_GROOVE_MED_LOW SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CreateTimer Set B to 0 GotoLoop MAIN1 EndResponse EndLoop Loop BRIEF Do SetParameter JUSTIFY CENTRE SetParameter Lifetime 0.0 0.0 0.2 0.0 SetParameter Scale1 1.1 1.3 1.1 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 Colour1 0.70 0.37 0.92 1.0 SetParameter Colour2 0.70 0.37 0.92 1.0 SetParameter Colour3 0.70 0.37 0.92 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 Position 0.0 180.0 0.0 0.0 GER SetParameter Scale1 1.0 1.0 1.0 0.0 GER SetParameter Scale2 1.0 1.0 1.0 0.0 GER SetParameter Scale3 1.0 1.0 1.0 0.0 GER SetParameter Scale4 1.0 1.0 1.0 0.0 GER SetParameter Scale5 1.0 1.0 1.0 0.0 SetParameter Text GO_FOR_PURPLE POL SetParameter TEXT Zniszcz_fioletowe_ceg³y FRE SetParameter TEXT ALLEZ_POUR_LE_POURPRE ITA SetParameter TEXT CACCIA_AL_VIOLA GER SetParameter TEXT Zerstöre_die_lilafarbenen_Steine. SPA SetParameter TEXT A_POR_EL_morado SendMessage CreateText SetParameter Scale1 0.1 0.1 0.1 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 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 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 SPA SetParameter Scale1 0.1 0.1 0.1 0.0 SPA SetParameter Scale2 0.7 0.7 0.7 0.0 SPA SetParameter Scale3 0.7 0.7 0.7 0.0 SPA SetParameter Scale4 0.7 0.7 0.7 0.0 SPA SetParameter Scale5 0.7 0.7 0.7 0.0 SetParameter Position 0.0 110.0 0.0 0.0 SetParameter Text Your_goal_is_to_hit_the_purple_group_of POL SetParameter TEXT TWOJE_ZADANIE_TO_TRAFIÆ_FIOLETOWE_CEG£Y. FRE SetParameter TEXT Votre_objectif_est_de_détruire_le_groupe_de ITA SetParameter TEXT Il_tuo_obiettivo_è_colpire_il_gruppo_di GER SetParameter TEXT Ziel_ist_es_die_lilafarbenen_Steine_zu_treffen! SPA SetParameter TEXT ¡Debes_disparar_a_los_bloques_morados! SendMessage CreateText SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Text blocks!_You_have_three_lives_in_total, POL SetParameter TEXT MASZ_TYLKO_TRZY_YCIA,_TRACISZ_JEDNO_ZA FRE SetParameter TEXT blocs_violets._Vous_avez_un_total_de ITA SetParameter TEXT blocchi_viola!_Hai_in_tutto_tre_vite_e_ne GER SetParameter TEXT Du_hast_insgesamt_drei_Leben,_von_denen SPA SetParameter TEXT Dispones_de_tres_vidas_en_total, SendMessage CreateText SetParameter Position 0.0 40.0 0.0 0.0 SetParameter Text you_will_lose_a_life_each_time_you_miss. POL SetParameter TEXT KA¯DYM_RAZEM,_GDY_SPUD£UJESZ._DOSTAJESZ FRE SetParameter TEXT trois_vies._Quand_vous_manquez_un_tir,_vous ITA SetParameter TEXT perderai_una_per_ogni_errore_commesso. GER SetParameter TEXT du_eins_verlierst,_wenn_du_vorbei_schießt. SPA SetParameter TEXT y_perderás_una_cada_vez_que_falles_un_disparo. SendMessage CreateText SetParameter Position 0.0 5.0 0.0 0.0 SetParameter Text You_get_1000_points_for_each_group_of POL SetParameter TEXT 1000_PUNKTÓW_ZA_KA_D¥_ZNISZCZON¥_GRUPÊ FRE SetParameter TEXT perdez_une_vie._Vous_obtenez_1000_points ITA SetParameter TEXT Ogni_gruppo_di_blocchi_distrutti_ti_frutterà GER SetParameter TEXT Du_erhältst_1000_Punkte_für_jede_abgeräumte SPA SetParameter TEXT Conseguirás_1000_puntos_por_cada_grupo SendMessage CreateText SetParameter Position 0.0 -30.0 0.0 0.0 SetParameter Text blocks_you_destroy. POL SetParameter TEXT FIOLETOWYCH_CEGIE£._ZDOB¥D_NAJLEPSZY_WYNIK? FRE SetParameter TEXT pour_chaque_groupe_de_blocs_détruits. ITA SetParameter TEXT 1000_punti._Coraggio,_punta_al_record! GER SetParameter TEXT Gruppe_von_Lilafarbenen_Steinen._Viel_Glück! SPA SetParameter TEXT destruido._¡Intenta_batir_el_récord! SendMessage CreateText SetParameter Position 0.0 -65.0 0.0 0.0 ENG SetParameter Text Go_for_a_new_high_score! FRE SetParameter TEXT Augmentez_votre_score! ITA SetParameter TEXT ___ GER SetParameter TEXT ___ SPA SetParameter TEXT ___ POL SetParameter TEXT ___ SendMessage CreateText SetParameter Colour1 1.0 0.0 0.0 1.0 SetParameter Colour2 1.0 0.0 0.0 1.0 SetParameter Colour3 1.0 0.0 0.0 1.0 SetParameter Scale1 0.1 0.1 0.1 0.0 SetParameter Scale2 0.7 0.7 0.7 0.0 SetParameter Scale3 0.7 0.7 0.7 0.0 SetParameter Scale4 0.7 0.7 0.7 0.0 SetParameter Scale5 0.7 0.7 0.7 0.0 SetParameter Position 0.0 -115.0 0.0 0.0 SetParameter Text Press_fire_to_start POL SetParameter TEXT Naciœnij_"Strza" FRE SetParameter TEXT Appuyez_sur_Tir_pour_commencer! ITA SetParameter TEXT Premi_fuoco_per_cominciare SPA SetParameter TEXT Pulsa_el_disparo_para_empezar GER SetParameter TEXT Zum_Starten_Feuer_drücken SendMessage CREATETEXT EndLoop / **********************FIRST LOOP******************** / Loop MAIN1 Do SetParameter Position 0.0 -150.0 0.0 0.0 SendMessage ChangeWaterHeight If B IsGreaterThan 0 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 1 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 2 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 3 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 4 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 5 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 6 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf If B IsGreaterThan 7 Then GosubLoop VEE Set C to 0 SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT Set B to 0 GotoLoop WAITCHECK EndIf GosubLoop SCORE EndLoop / **** this loop sets the variable V with whatever the current screen is, to be used later to pick out the databuffers used to draw the purple blocks in the end stats screen ****/ Loop VEE Do If V IsEqualTo 18 Then Set V to 0 EndIf If V IsNotEqualTo 18 Then Add 1 to V EndIf EndLoop / ***** what's it gonna be ? ***** / Loop WAITCHECK Do Add 1 to G SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 200 SetParameter REPEAT FALSE SendMessage CreateTimer GosubLoop SCORE GotoLoop WAITCHECKA EndLoop Loop WAITCHECKA Do GosubLoop SCORE OnMessage TIMER3 Do GotoLoop CHECK EndResponse EndLoop Loop CHECK Do If C IsLessThanOrEqualTo 0 Then Add 1 to X Set C to 0 If X IsNotEqualTo 4 Then SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Scale1 0.5 0.5 0.5 0.0 SetParameter Scale2 1.5 1.5 1.5 0.0 SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Colour2 0.86 0.16 0.09 1.0 SetParameter Colour3 0.86 0.16 0.09 1.0 SetParameter Text MISSED! POL SetParameter TEXT STRACONYCH! FRE SetParameter TEXT LOUPÉ! ITA SetParameter TEXT MANCATO! SPA SetParameter TEXT ¡FALLASTE! GER SetParameter TEXT DANEBEN! SendMessage CREATETEXT GosubLoop LIVES GosubLoop DESTROYBLOCKS GotoLoop MAIN2 EndIf / If X IsEqualTo 4/ If Q IsLessThan 0 Then SetParameter MESSAGE_ID TIMER7 SetParameter INTERVAL 5400 SetParameter REPEAT FALSE SendMessage CreateTimer SetParameter MESSAGE_ID TIMER8 SetParameter INTERVAL 1000 SetParameter REPEAT FALSE SendMessage CreateTimer GosubLoop DESTROYBLOCKS GotoLoop TOMWAITSA EndIf EndIf If C IsGreaterThan 0 Then Add 1 to S Add 1000 to K Set C to 0 SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Scale1 0.5 0.5 0.5 0.0 SetParameter Scale2 1.5 1.5 1.5 0.0 SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Colour2 0.64 0.28 1.0 1.0 SetParameter Colour3 0.64 0.28 1.0 1.0 SetParameter Text COMPLETE! POL SetParameter TEXT SUKCES! FRE SetParameter TEXT TERMINÉ! ITA SetParameter TEXT COMPLETATO! SPA SetParameter TEXT ¡TERMINADO! GER SetParameter TEXT KOMPLETT! SendMessage CREATETEXT If X IsNotEqualTo 4 Then GosubLoop DESTROYBLOCKS GotoLoop MAIN2 EndIf If X IsEqualTo 4 Then 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 FAILED! POL SetParameter TEXT klêska! FRE SetParameter TEXT ÉCHEC! ITA SetParameter TEXT HAI_FALLITO! SPA SetParameter Text ¡FALLASTE! GER SetParameter TEXT VERLOREN SendMessage CREATETEXT GosubLoop DESTROYBLOCKS GotoLoop LOSE EndIf EndIf GosubLoop SCORE EndLoop / ***** this loop shows the remaining lives ***** / Loop LIVES Do Subtract 1 from Q SetParameter LIVES Q SendMessage SETLIVES If Q BecomesEqualTo 2 Then SendMessage MUSIC_GROOVE_MED EndIf If Q BecomesEqualTo 1 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If Q BecomesEqualTo 0 Then SendMessage MUSIC_GROOVE_HIGH EndIf GosubLoop SCORE EndLoop / ************* the following loops advance the screen ************* / Loop MAIN2 Do SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 0500 SetParameter REPEAT FALSE SendMessage CreateTimer GosubLoop SCORE GotoLoop MAIN2A EndLoop Loop MAIN2A Do GosubLoop SCORE OnMessage TIMER2 Do GotoLoop MAIN3 EndResponse EndLoop Loop MAIN3 Do GosubLoop SCORE SetParameter INTERVAL 0001 SendMessage SetLandSpeed set H to 0 GotoLoop MAIN4 EndLoop Loop MAIN4 Do GosubLoop SCORE If H IsEqualTo 20 then SetParameter INTERVAL 100000 SendMessage SetLandSpeed Set C to 0 Set B to 0 SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT GotoLoop MAIN1 endif EndLoop / ************** this loop destroys the blocks ************* / Loop DESTROYBLOCKS Do SetParameter Position 0.0 0.0 1.0 0.0 SetParameter BlockColour ALLCOLOURS SendMessage CLEARBLOCKS GosubLoop SCORE EndLoop / ****** score counter ****** / Loop SCORE Do OnMessage TIMER1 Do SetParameter Lifetime 0.0 0.0 0.2 0.0 ConvertToText S SetParameter Position 2.0 -210.0 0.0 0.0 /If S IsGreaterThanOrEqualTo 10 Then EndIf/ SetParameter Score S SetParameter Digits 2 SendMessage CREATESCORE SetParameter Text # SetParameter Position -30.0 -210.0 0.0 0.0 SendMessage CREATETEXT EndResponse SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT EndLoop / ****** stats screen ****** / Loop TOMWAITSA Do OnMessage TIMER8 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 GAME_OVER! POL SetParameter TEXT KONIEC! FRE SetParameter TEXT vous_êtes_éliminé! ITA SetParameter TEXT HAI_FALLITO! SPA SetParameter TEXT ¡Se_acabó_el_juego! GER SetParameter TEXT VERLOREN! SendMessage CREATETEXT SendMessage FIRINGOFF GotoLoop TOMWAITS EndResponse SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop TOMWAITS Do OnMessage TIMER7 Do GotoLoop DRAWSUMBLOX EndResponse SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop DRAWSUMBLOX Do If V IsGreaterThanOrEqualTo 1 Then If V IsLessThanOrEqualTo 3 Then ReadFromBuffer DRAW into U ReadFromBuffer DRAW into I ReadFromBuffer ANKA into O ReadFromBuffer ANKA into P EndIf EndIf If V IsGreaterThanOrEqualTo 4 Then If V IsLessThanOrEqualTo 6 Then ReadFromBuffer DRA2 into U ReadFromBuffer DRA2 into I ReadFromBuffer ANK2 into O ReadFromBuffer ANK2 into P EndIf EndIf If V IsGreaterThanOrEqualTo 7 Then If V IsLessThanOrEqualTo 9 Then ReadFromBuffer DRA3 into U ReadFromBuffer DRA3 into I ReadFromBuffer ANK3 into O ReadFromBuffer ANK3 into P EndIf EndIf If V IsGreaterThanOrEqualTo 10 Then If V IsLessThanOrEqualTo 12 Then ReadFromBuffer DRA4 into U ReadFromBuffer DRA4 into I ReadFromBuffer ANK4 into O ReadFromBuffer ANK4 into P EndIf EndIf If V IsGreaterThanOrEqualTo 13 Then If V IsLessThanOrEqualTo 15 Then ReadFromBuffer DRA5 into U ReadFromBuffer DRA5 into I ReadFromBuffer ANK5 into O ReadFromBuffer ANK5 into P EndIf EndIf If V IsGreaterThanOrEqualTo 16 Then If V IsLessThanOrEqualTo 18 Then ReadFromBuffer DRA6 into U ReadFromBuffer DRA6 into I ReadFromBuffer ANK6 into O ReadFromBuffer ANK6 into P EndIf EndIf If I IsGreaterThan 0 Then SetParameter Position U I 0.0 0.0 SetParameter BlockColour PURPLE SendMessage SPAWNINBLOCK SetParameter Position O P 0.0 0.0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK EndIf If I IsLessThan 0 Then SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT Set D to 0 GotoLoop STATISTIC EndIf GosubLoop STATISTICA EndLoop Loop STATISTICA Do SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.0 0.0 0.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 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 Scale1 0.2 0.2 0.2 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 Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify CENTRE SetParameter Text HOW_YOU_DID! FRE SetParameter TEXT RÉSULTAT ITA SetParameter TEXT IL_TUO_RISULTATO SPA SetParameter TEXT RESULTADOS GER SetParameter TEXT Punkte POL SetParameter TEXT Jak_idzie SetParameter Position 0.0 190.0 0.0 0.0 SendMessage CREATETEXT SetParameter Text YOU_MANAGED_TO_GET FRE SetParameter TEXT VOUS_AVEZ ITA SetParameter TEXT HAI SPA SetParameter TEXT HAS_CONSEGUIDO GER SetParameter TEXT DU_HAST POL SetParameter TEXT Masz SetParameter Position 0.0 130.0 0.0 0.0 SendMessage CREATETEXT SetParameter Text X SetParameter Position 0.0 39.0 0.0 0.0 SendMessage CREATETEXT SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.0 1.0 SetParameter Colour4 0.0 1.0 0.0 1.0 ConvertToText S SetParameter Position -45.0 39.0 0.0 0.0 SendMessage CREATETEXT SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 2.0 2.0 2.0 0.0 SetParameter Scale3 2.0 2.0 2.0 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 2.0 2.0 2.0 0.0 SetParameter Position -60.0 -50.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Score M SetParameter Digits 5 SendMessage CREATESCORE EndLoop Loop STATISTIC Do SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.0 0.0 0.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 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 Scale1 0.2 0.2 0.2 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 Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify CENTRE SetParameter Text HOW_YOU_DID! FRE SetParameter TEXT RÉSULTAT ITA SetParameter TEXT IL_TUO_RISULTATO SPA SetParameter TEXT RESULTADOS GER SetParameter TEXT Punkte POL SetParameter TEXT Jak_idzie SetParameter Position 0.0 190.0 0.0 0.0 SendMessage CREATETEXT SetParameter Text YOU_MANAGED_TO_GET FRE SetParameter TEXT VOUS_AVEZ ITA SetParameter TEXT HAI SPA SetParameter TEXT HAS_CONSEGUIDO GER SetParameter TEXT DU_HAST POL SetParameter TEXT Masz SetParameter Position 0.0 130.0 0.0 0.0 SendMessage CREATETEXT SetParameter Text X SetParameter Position 0.0 39.0 0.0 0.0 SendMessage CREATETEXT SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.0 1.0 SetParameter Colour4 0.0 1.0 0.0 1.0 ConvertToText S SetParameter Position -45.0 39.0 0.0 0.0 SendMessage CREATETEXT SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 2.0 2.0 2.0 0.0 SetParameter Scale3 2.0 2.0 2.0 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 2.0 2.0 2.0 0.0 SetParameter Position -60.0 -50.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Score M SetParameter Digits 5 SendMessage CREATESCORE If M IsNotEqualTo K Then Add 100 to M EndIf If M IsEqualTo K Then If J IsEqualTo 0 Then SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 1200 SetParameter REPEAT TRUE SendMessage CreateTimer SetParameter MESSAGE_ID TIMER6 SetParameter INTERVAL 5000 SetParameter REPEAT FALSE SendMessage CreateTimer Set J to 5 EndIf EndIf OnMessage TIMER5 Do If D IsLessThan 3 Then SetParameter Lifetime 0.0 0.0 0.6 0.0 SetParameter Colour1 0.0 0.0 0.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 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 Scale1 0.2 0.2 0.2 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 Text POINTS_IN_TOTAL! POL SetParameter TEXT Razem_punktów! FRE SetParameter TEXT Total_de_points ITA SetParameter TEXT Punteggio_totale SPA SetParameter TEXT Puntuación_Total GER SetParameter TEXT Gesamtpunkte SetParameter Position 0.0 -130.0 0.0 0.0 SendMessage CREATETEXT Add 1 to D EndIf EndResponse If D IsEqualTo 3 Then SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Colour1 0.0 0.0 0.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 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 Scale1 0.2 0.2 0.2 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 Text POINTS_IN_TOTAL! POL SetParameter TEXT Razem_punktów! FRE SetParameter TEXT Total_de_points ITA SetParameter TEXT Punteggio_totale SPA SetParameter TEXT Puntuación_Total GER SetParameter TEXT Gesamtpunkte SetParameter Position 0.0 -130.0 0.0 0.0 SendMessage CREATETEXT EndIf OnMessage TIMER6 Do SetParameter SCORE K SendMessage SET_SCORE SetParameter Position 0.0 0.0 2.0 2.0 SetParameter BlockColour ALLCOLOURS SendMessage CLEARBLOCKS SendMessage LOSECONDITION ResetBuffer DRAW ResetBuffer ANKA ResetBuffer DRA2 ResetBuffer ANK2 ResetBuffer DRA3 ResetBuffer ANK3 ResetBuffer DRA4 ResetBuffer ANK4 ResetBuffer DRA5 ResetBuffer ANK5 ResetBuffer DRA6 ResetBuffer ANK6 Set I to 1 GotoLoop STATISTIC2 EndResponse EndLoop Loop STATISTIC2 Do SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.0 0.0 0.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 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 Scale1 0.2 0.2 0.2 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 Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify CENTRE SetParameter Text HOW_YOU_DID! POL SetParameter TEXT Jak_idzie FRE SetParameter TEXT RÉSULTAT ITA SetParameter TEXT IL_TUO_RISULTATO SPA SetParameter TEXT RESULTADOS GER SetParameter TEXT Punkte SetParameter Position 0.0 190.0 0.0 0.0 SendMessage CREATETEXT SetParameter Text YOU_MANAGED_TO_GET POL SetParameter TEXT Masz FRE SetParameter TEXT VOUS_AVEZ ITA SetParameter TEXT HAI SPA SetParameter TEXT HAS_CONSEGUIDO GER SetParameter TEXT DU_HAST SetParameter Position 0.0 130.0 0.0 0.0 SendMessage CREATETEXT SetParameter Text X SetParameter Position 0.0 39.0 0.0 0.0 SendMessage CREATETEXT SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.0 1.0 SetParameter Colour4 0.0 1.0 0.0 1.0 ConvertToText S SetParameter Position -45.0 39.0 0.0 0.0 SendMessage CREATETEXT SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 2.0 2.0 2.0 0.0 SetParameter Scale3 2.0 2.0 2.0 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 2.0 2.0 2.0 0.0 SetParameter Position -60.0 -50.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Score M SetParameter Digits 5 SendMessage CREATESCORE SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Colour1 0.0 0.0 0.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 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 Scale1 0.2 0.2 0.2 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 Text POINTS_IN_TOTAL! POL SetParameter TEXT Razem_punktów! FRE SetParameter TEXT Total_de_points ITA SetParameter TEXT Punteggio_totale SPA SetParameter TEXT Puntuación_Total GER SetParameter TEXT Gesamtpunkte SetParameter Position 0.0 -130.0 0.0 0.0 SendMessage CREATETEXT If I IsGreaterThan 0 Then If V IsGreaterThanOrEqualTo 1 Then If V IsLessThanOrEqualTo 3 Then ReadFromBuffer DRAW into U ReadFromBuffer DRAW into I ReadFromBuffer ANKA into O ReadFromBuffer ANKA into P EndIf EndIf If V IsGreaterThanOrEqualTo 4 Then If V IsLessThanOrEqualTo 6 Then ReadFromBuffer DRA2 into U ReadFromBuffer DRA2 into I ReadFromBuffer ANK2 into O ReadFromBuffer ANK2 into P EndIf EndIf If V IsGreaterThanOrEqualTo 7 Then If V IsLessThanOrEqualTo 9 Then ReadFromBuffer DRA3 into U ReadFromBuffer DRA3 into I ReadFromBuffer ANK3 into O ReadFromBuffer ANK3 into P EndIf EndIf If V IsGreaterThanOrEqualTo 10 Then If V IsLessThanOrEqualTo 12 Then ReadFromBuffer DRA4 into U ReadFromBuffer DRA4 into I ReadFromBuffer ANK4 into O ReadFromBuffer ANK4 into P EndIf EndIf If V IsGreaterThanOrEqualTo 13 Then If V IsLessThanOrEqualTo 15 Then ReadFromBuffer DRA5 into U ReadFromBuffer DRA5 into I ReadFromBuffer ANK5 into O ReadFromBuffer ANK5 into P EndIf EndIf If V IsGreaterThanOrEqualTo 16 Then If V IsLessThanOrEqualTo 18 Then ReadFromBuffer DRA6 into U ReadFromBuffer DRA6 into I ReadFromBuffer ANK6 into O ReadFromBuffer ANK6 into P EndIf EndIf SetParameter Position U I 0.0 0.0 SetParameter BlockColour PURPLE SendMessage SPAWNINBLOCK SetParameter Position O P 0.0 0.0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK EndIf EndLoop EndFile