GameMode rings2 CollectStarCounter S DestroyOwnStarCounter T DestroyEnemyStarCounter T LandLinesCounter L WaterHeightCounter H RedComboCounter R GreenComboCounter G PurpleComboCounter P LandLinesCounter M LivesRemaining02Counter Q Program0123 TEXTBUFFER LEVS Rings2.wbl ENDBUFFER DATABUFFER RNG1 18 41 18 42 18 43 18 44 18 45 18 46 18 47 18 48 18 49 18 50 18 51 18 52 18 53 18 54 17 54 16 54 15 54 14 54 13 54 12 54 11 54 10 54 9 54 8 54 7 54 6 53 7 52 6 51 7 50 6 49 7 48 6 47 7 46 6 45 7 44 6 43 7 42 6 41 7 40 8 40 9 40 10 40 11 40 12 40 13 40 14 40 15 40 16 40 17 40 18 40 ENDBUFFER DATABUFFER RNG2 17 40 18 40 18 41 18 42 18 43 18 44 18 45 18 46 18 47 18 48 18 49 18 50 18 51 18 52 18 53 18 54 17 54 16 54 15 54 14 54 13 54 12 54 11 54 10 54 9 54 8 54 7 54 6 53 7 52 6 51 7 50 6 49 7 48 6 47 7 46 6 45 7 44 6 43 7 42 6 41 7 40 8 40 9 40 10 40 11 40 12 40 13 40 14 40 15 40 16 40 ENDBUFFER DATABUFFER RNG3 8 51 9 50 8 49 9 48 8 47 9 46 8 45 9 44 8 43 9 42 10 42 11 42 12 42 13 42 14 42 15 42 16 42 16 43 16 44 16 45 16 46 16 47 16 48 16 49 16 50 16 51 16 52 15 52 14 52 13 52 12 52 11 52 10 52 9 52 ENDBUFFER DATABUFFER RNG4 10 52 9 52 8 51 9 50 8 49 9 48 8 47 9 46 8 45 9 44 8 43 9 42 10 42 11 42 12 42 13 42 14 42 15 42 16 42 16 43 16 44 16 45 16 46 16 47 16 48 16 49 16 50 16 51 16 52 15 52 14 52 13 52 12 52 11 52 ENDBUFFER DATABUFFER RNG5 14 45 14 46 14 47 14 48 14 49 14 50 13 50 12 50 11 50 10 49 11 48 10 47 11 46 10 45 11 44 12 44 13 44 14 44 ENDBUFFER DATABUFFER RNG6 13 44 14 44 14 45 14 46 14 47 14 48 14 49 14 50 13 50 12 50 11 50 10 49 11 48 10 47 11 46 10 45 11 44 12 44 ENDBUFFER DATABUFFER SQU1 17 21 18 22 18 23 19 24 19 25 20 26 20 27 20 28 19 29 19 30 18 31 18 32 17 33 17 34 16 34 15 34 14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 33 7 32 6 31 6 30 5 29 5 28 4 27 5 26 5 25 6 24 6 23 7 22 7 21 8 20 9 20 10 20 11 20 12 20 13 20 14 20 15 20 16 20 17 20 ENDBUFFER DATABUFFER SQU2 16 20 17 20 17 21 18 22 18 23 19 24 19 25 20 26 20 27 20 28 19 29 19 30 18 31 18 32 17 33 17 34 16 34 15 34 14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 33 7 32 6 31 6 30 5 29 5 28 4 27 5 26 5 25 6 24 6 23 7 22 7 21 8 20 9 20 10 20 11 20 12 20 13 20 14 20 15 20 ENDBUFFER DATABUFFER SQU3 7 25 8 24 8 23 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 16 23 17 24 17 25 18 26 18 27 18 28 17 29 17 30 16 31 16 32 15 32 14 32 13 32 12 32 11 32 10 32 9 32 8 31 8 30 7 29 7 28 6 27 7 26 ENDBUFFER DATABUFFER SQU4 6 27 7 26 7 25 8 24 8 23 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 16 23 17 24 17 25 18 26 18 27 18 28 17 29 17 30 16 31 16 32 15 32 14 32 13 32 12 32 11 32 10 32 9 32 8 31 8 30 7 29 7 28 ENDBUFFER DATABUFFER SQU5 13 30 12 30 11 30 10 30 9 29 9 28 8 27 9 26 9 25 10 24 11 24 12 24 13 24 14 24 15 24 15 25 16 26 16 27 16 28 15 29 15 30 14 30 ENDBUFFER DATABUFFER SQU6 15 30 14 30 13 30 12 30 11 30 10 30 9 29 9 28 8 27 9 26 9 25 10 24 11 24 12 24 13 24 14 24 15 24 15 25 16 26 16 27 16 28 15 29 ENDBUFFER DATABUFFER SQU7 14 26 14 27 14 28 13 28 12 28 11 28 10 27 11 26 12 26 ENDBUFFER DATABUFFER SQU8 11 26 12 26 14 26 14 27 14 28 13 28 12 28 11 28 10 27 ENDBUFFER DATABUFFER SQUX 11 26 12 26 14 26 14 27 14 28 13 28 12 28 11 28 10 27 -1 -1 ENDBUFFER DATABUFFER BTH1 15 1 16 1 17 1 18 1 19 1 20 1 20 2 19 3 19 4 18 5 18 6 17 7 18 8 18 9 19 10 19 11 20 12 20 13 19 13 18 13 17 13 16 13 15 13 14 13 14 14 13 14 12 14 11 14 10 14 9 13 8 13 7 13 6 13 5 13 4 13 3 13 4 12 4 11 5 10 5 9 6 8 6 7 6 6 5 5 5 4 4 3 4 2 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 0 11 0 12 0 13 0 14 0 14 1 ENDBUFFER DATABUFFER BTH2 14 0 14 1 15 1 16 1 17 1 18 1 19 1 20 1 20 2 19 3 19 4 18 5 18 6 17 7 18 8 18 9 19 10 19 11 20 12 20 13 19 13 18 13 17 13 16 13 15 13 14 13 14 14 13 14 12 14 11 14 10 14 9 13 8 13 7 13 6 13 5 13 4 13 3 13 4 12 4 11 5 10 5 9 6 8 6 7 6 6 5 5 5 4 4 3 4 2 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 0 11 0 12 0 13 0 ENDBUFFER DATABUFFER BTH3 12 12 11 12 10 11 9 11 8 11 7 11 6 11 7 10 7 9 8 8 8 7 8 6 7 5 7 4 6 3 7 3 8 3 9 3 10 3 11 2 12 2 13 2 13 3 14 3 15 3 16 3 17 3 17 4 16 5 16 6 15 7 16 8 16 9 17 10 17 11 16 11 15 11 14 11 13 11 13 12 ENDBUFFER DATABUFFER BTH4 13 11 13 12 12 12 11 12 10 11 9 11 8 11 7 11 6 11 7 10 7 9 8 8 8 7 8 6 7 5 7 4 6 3 7 3 8 3 9 3 10 3 11 2 12 2 13 2 13 3 14 3 15 3 16 3 17 3 17 4 16 5 16 6 15 7 16 8 16 9 17 10 17 11 16 11 15 11 14 11 ENDBUFFER DATABUFFER BTH5 10 9 9 9 10 8 10 7 10 6 9 5 10 5 11 5 12 5 13 5 14 5 14 6 13 7 14 8 14 9 13 9 12 9 11 9 ENDBUFFER DATABUFFER BTH6 12 9 11 9 10 9 9 9 10 8 10 7 10 6 9 5 10 5 11 5 12 5 13 5 14 5 14 6 13 7 14 8 14 9 13 9 ENDBUFFER / the init loop! / Loop INIT Do SendMessage DEACTIVATESCORE SendMessage STARTBRIEFING SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter POSITION 0 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SetParameter INTERVAL 999999 SendMessage SetLandSpeed SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BACKDROP BACKDROP8 SendMessage SETBACKDROP SetParameter TEXT rings2.wbw SendMessage LOADWEAPONLIST SetParameter BUFFERNAME LEVS SetParameter NUMLINES 60 SendMessage LOADLEVEL SendMessage QUAKENO SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SetParameter LIVES 0 SendMessage SETLIVES SetParameter MESSAGE_ID TIMER1 / SetParameter INTERVAL 0170/ SetParameter INTERVAL 0220 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 0200 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Scale1 0.2 0.2 0.2 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.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.0 0.0 1.0 0.0 SetParameter Justify Centre ResetBuffer RNG1 ResetBuffer RNG2 ResetBuffer RNG3 ResetBuffer RNG4 ResetBuffer RNG5 ResetBuffer RNG6 ResetBuffer SQU1 ResetBuffer SQU2 ResetBuffer SQU3 ResetBuffer SQU4 ResetBuffer SQU5 ResetBuffer SQU6 ResetBuffer SQU7 ResetBuffer SQU8 ResetBuffer SQUX ResetBuffer BTH1 ResetBuffer BTH2 ResetBuffer BTH3 ResetBuffer BTH4 ResetBuffer BTH5 ResetBuffer BTH6 SET A TO 0 Set S to 0 Set R to 0 Set T to 0 Set L to 0 Set H to 0 Set G to 0 Set P to 0 Set M to 0 Set Q to 0 Set N to 0 Set J to 0 SendMessage MUSIC_GROOVE_LOW / minutes and seconds/ Set U to 60 Set I to 0 SendMessage FIRINGOFF GotoLoop CHECK EndLoop / mission briefing / Loop CHECK Do OnMessage TIMER3 Do GosubLoop BRIEF EndResponse OnMessage FIREPRESSED Do SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SendMessage MUSIC_GROOVE_MED_LOW SendMessage FIRINGON SendMessage ENDBRIEFING SetParameter Lifetime 0.0 0.0 1.0 0.0 GotoLoop RING1 EndResponse 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 Position 0.0 180.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.2 0.0 SetParameter Justify Centre SetParameter Text MOVING_SHAPES_2_of_2 POL SetParameter TEXT RUCHOMY_CEL_2_z_2 FRE SetParameter TEXT DÉPLACER_LES_FORMES_2_sur_2 ITA SetParameter TEXT FIGURE_IN_MOVIMENTO_2_di_2 SPA SetParameter TEXT FORMAS_MÓVILES_2_de_2 GER SetParameter TEXT BEWEGLICHE_TEILE_2_von_2 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 FRE SetParameter Scale1 0.1 0.1 0.1 0.0 FRE SetParameter Scale2 0.7 0.7 0.7 0.0 FRE SetParameter Scale3 0.7 0.7 0.7 0.0 FRE SetParameter Scale4 0.7 0.7 0.7 0.0 FRE SetParameter Scale5 0.7 0.7 0.7 0.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 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 SetParameter Position 0.0 110.0 0.0 0.0 SetParameter Text Time_your_shots_correctly_to_destroy_the POL SetParameter TEXT DOK£ADNIE_WYMIERZ_SWOJE_STRZA£Y_I FRE SetParameter TEXT Minutez_bien_vos_tirs_pour_détruire_les ITA SetParameter TEXT Spara_nel_momento_giusto_per_distruggere_i SPA SetParameter TEXT Ajusta_el_tiempo_del_disparo_para_destruir GER SetParameter TEXT Du_musst_gut_zielen_um_die_Steine_neben SendMessage CreateText SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Text blocks_beneath_the_star_and_catch_it_when POL SetParameter TEXT ZNISZCZ_CEG£Y_PONI_EJ_GWIAZDEK._Z£AP_JE FRE SetParameter TEXT blocs_situés_sous_l'étoile_et_attraper_celle-ci ITA SetParameter TEXT blocchi_sotto_la_stella_e_afferrala_quando SPA SetParameter TEXT los_bloques_que_tapan_la_estrella_y_hacer GER SetParameter TEXT dem_Stern_zu_zerstören_und_ihn_auffangen, SendMessage CreateText SetParameter Position 0.0 40.0 0.0 0.0 SetParameter Text it_falls!_You_have_three_stars_in_total POL SetParameter TEXT GDY_BÊD¥_SPADAÆ._MASZ_DO_Z£APANIA_TRZY FRE SetParameter TEXT quand_elle_tombe._Vous_devez_attraper_trois ITA SetParameter TEXT cade!_In_tutto_ci_sono_tre_stelle_da_ SPA SetParameter TEXT que_caiga._En_total_hay_tres_estrellas GER SetParameter TEXT wenn_er_fällt!_Du_musst_drei_Sterne_auf SendMessage CreateText SetParameter Position 0.0 5.0 0.0 0.0 SetParameter Text to_catch_on_three_separate_screens._You POL SetParameter TEXT NA_TRZECH_RÓ_NYCH_EKRANACH._NA_Z£APANIE FRE SetParameter TEXT étoiles_sur_trois_écrans_distincts._Vous ITA SetParameter TEXT prendere,_in_tre_schermate_separate._Hai_ SPA SetParameter TEXT que_deberás_coger_en_tres_pantallas_distintas. GER SetParameter TEXT drei_Bildschirmen_einsammeln_und_hast SendMessage CreateText SetParameter Position 0.0 -30.0 0.0 0.0 SetParameter Text have_one_minute_to_collect_each_star! POL SetParameter TEXT GWIAZDKI_MASZ_DOK£ADNIE_JEDN¥_MINUTÊ. FRE SetParameter TEXT avez_une_minute_pour_récupérer_chaque_étoile. ITA SetParameter TEXT un_minuto_per_prendere_ogni_stella! SPA SetParameter TEXT ¡Tienes_un_minuto_para_cada_estrella! GER SetParameter TEXT für_jeden_Stern_eine_Minute_Zeit! 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 SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop / animate the first screen / Loop RING1 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If R IsEqualTo 0 Then ReadFromBuffer RNG2 Into C ReadFromBuffer RNG2 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer RNG1 Into C ReadFromBuffer RNG1 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer RNG4 Into C ReadFromBuffer RNG4 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer RNG3 Into C ReadFromBuffer RNG3 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN SendMessage SETBLOCKCOLOUR ReadFromBuffer RNG6 Into C ReadFromBuffer RNG6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer RNG5 Into C ReadFromBuffer RNG5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage REDCOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour RED SendMessage CLEARBLOCKS GotoLoop RING2 EndResponse EndLoop Loop RING2 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If G IsEqualTo 0 Then ReadFromBuffer RNG4 Into C ReadFromBuffer RNG4 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer RNG3 Into C ReadFromBuffer RNG3 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer RNG6 Into C ReadFromBuffer RNG6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer RNG5 Into C ReadFromBuffer RNG5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage GREENCOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour GREEN SendMessage CLEARBLOCKS GotoLoop RING3 EndResponse EndLoop Loop RING3 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If P IsEqualTo 0 Then ReadFromBuffer RNG6 Into C ReadFromBuffer RNG6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SETBLOCKCOLOUR ReadFromBuffer RNG5 Into C ReadFromBuffer RNG5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR EndIf EndResponse / make sure them blocks is rainbowy / SetParameter Position 12 49 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO N If N IsEqualTo RED Then SetParameter Position 12 49 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If N IsEqualTo GREEN Then SetParameter Position 12 49 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf / make sure them blocks is rainbowy / GosubLoop TIMER OnMessage PURPLECOMBODONE Do If U IsGreaterThan 11 Then Set U to 11 EndIf Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour PURPLE SendMessage CLEARBLOCKS GotoLoop RING4 EndResponse EndLoop Loop RING4 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf GosubLoop TIMER If S BecomesGreaterThan 0 Then Set S to 0 Set A to 1 Set U to 60 Set I to 0 SendMessage MUSIC_GROOVE_MED SetParameter Lifetime 0.1 0.3 1.0 0.1 GotoLoop ADVANCE1 EndIf EndLoop / animate the second screen / Loop SQUARE1 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If R IsEqualTo 0 Then ReadFromBuffer SQU2 Into C ReadFromBuffer SQU2 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU1 Into C ReadFromBuffer SQU1 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer SQU4 Into C ReadFromBuffer SQU4 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU3 Into C ReadFromBuffer SQU3 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN SendMessage SETBLOCKCOLOUR ReadFromBuffer SQU6 Into C ReadFromBuffer SQU6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU5 Into C ReadFromBuffer SQU5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR ReadFromBuffer SQU8 Into C ReadFromBuffer SQU8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU7 Into C ReadFromBuffer SQU7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage REDCOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour RED SendMessage CLEARBLOCKS GosubLoop REDRAW GotoLoop SQUARE2 EndResponse EndLoop Loop SQUARE2 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If G IsEqualTo 0 Then ReadFromBuffer SQU4 Into C ReadFromBuffer SQU4 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU3 Into C ReadFromBuffer SQU3 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer SQU6 Into C ReadFromBuffer SQU6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU5 Into C ReadFromBuffer SQU5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR ReadFromBuffer SQU8 Into C ReadFromBuffer SQU8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU7 Into C ReadFromBuffer SQU7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage GREENCOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour GREEN SendMessage CLEARBLOCKS GotoLoop SQUARE3 EndResponse EndLoop Loop SQUARE3 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If P IsEqualTo 0 Then ReadFromBuffer SQU6 Into C ReadFromBuffer SQU6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU5 Into C ReadFromBuffer SQU5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer SQU8 Into C ReadFromBuffer SQU8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU7 Into C ReadFromBuffer SQU7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage PURPLECOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour PURPLE SendMessage CLEARBLOCKS GotoLoop SQUARE4 EndResponse EndLoop Loop SQUARE4 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If R IsEqualTo 0 Then ReadFromBuffer SQU8 Into C ReadFromBuffer SQU8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer SQU7 Into C ReadFromBuffer SQU7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndIf EndResponse / make sure them blocks is rainbowy / SetParameter Position 12 27 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO N If N IsEqualTo PURPLE Then SetParameter Position 12 27 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If N IsEqualTo GREEN Then SetParameter Position 12 27 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf / make sure them blocks is rainbowy / GosubLoop TIMER OnMessage REDCOMBODONE Do If U IsGreaterThan 11 Then Set U to 11 EndIf SetParameter BlockColour RED SendMessage CLEARBLOCKS Set R to 0 Set G to 0 Set P to 0 Set T to 0 GotoLoop SQUARE5 EndResponse EndLoop Loop SQUARE5 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf If S BecomesGreaterThan 0 Then Set S to 0 Set A to 2 Set R to 0 Set G to 0 Set P to 0 Set U to 60 Set I to 0 SendMessage MUSIC_GROOVE_MED SetParameter Lifetime 0.1 0.3 1.0 0.1 GotoLoop ADVANCE1 EndIf GosubLoop TIMER EndLoop Loop BOTH1 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If G IsEqualTo 0 Then ReadFromBuffer BTH2 Into C ReadFromBuffer BTH2 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH1 Into C ReadFromBuffer BTH1 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer BTH4 Into C ReadFromBuffer BTH4 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH3 Into C ReadFromBuffer BTH3 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR ReadFromBuffer BTH6 Into C ReadFromBuffer BTH6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH5 Into C ReadFromBuffer BTH5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage GREENCOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour GREEN SendMessage CLEARBLOCKS GotoLoop BOTH2 EndResponse EndLoop Loop BOTH2 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If P IsEqualTo 0 Then ReadFromBuffer BTH4 Into C ReadFromBuffer BTH4 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH3 Into C ReadFromBuffer BTH3 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour PURPLE SendMessage SETBLOCKCOLOUR EndIf ReadFromBuffer BTH6 Into C ReadFromBuffer BTH6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH5 Into C ReadFromBuffer BTH5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndResponse GosubLoop TIMER OnMessage PURPLECOMBODONE Do Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour PURPLE SendMessage CLEARBLOCKS GotoLoop BOTH3 EndResponse EndLoop Loop BOTH3 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf OnMessage TIMER1 Do If R IsEqualTo 0 Then ReadFromBuffer BTH6 Into C ReadFromBuffer BTH6 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH5 Into C ReadFromBuffer BTH5 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR EndIf EndResponse / make sure them blocks is rainbowy / SetParameter Position 12 8 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO N If N IsEqualTo PURPLE Then SetParameter Position 12 8 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If N IsEqualTo GREEN Then SetParameter Position 12 8 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf / make sure them blocks is rainbowy / GosubLoop TIMER OnMessage REDCOMBODONE Do If U IsGreaterThan 11 Then Set U to 11 EndIf Set R to 0 Set G to 0 Set P to 0 SetParameter BlockColour RED SendMessage CLEARBLOCKS GotoLoop BOTH5 EndResponse EndLoop Loop BOTH5 Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If Q BecomesLessThan 0 Then Gotoloop LASTLOOP EndIf If T BecomesGreaterThan 0 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 SendMessage LOSECONDITION GotoLoop INFINITE EndIf GosubLoop TIMER If S BecomesGreaterThan 0 Then Set S to 0 Set A to 2 GotoLoop ENDGAME EndIf EndLoop / this destroys all the blocks on screen and advances to the next screen / Loop ADVANCE1 Do Set R to 0 Set G to 0 Set P to 0 SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 0500 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop ADVANCEA EndLoop Loop ADVANCEA Do SetParameter Position 0.0 0.0 1.0 0.0 SetParameter BlockColour ALLCOLOURS SendMessage CLEARBLOCKS GosubLoop TIMER OnMessage TIMER4 Do GotoLoop ADVANCE2 EndResponse EndLoop Loop ADVANCE2 Do GosubLoop TIMER SetParameter INTERVAL 0001 SendMessage SetLandSpeed set M to 0 GotoLoop ADVANCE3 EndLoop Loop ADVANCE3 Do GosubLoop TIMER If M IsEqualTo 20 then SetParameter INTERVAL 999999 SendMessage SetLandSpeed If A IsEqualTo 1 Then GotoLoop SQUARE1 EndIf If A IsEqualTo 2 Then GotoLoop BOTH1 EndIf endif EndLoop / this redraws the top square line / Loop REDRAW Do Set X to 0 Set Y to 0 GosubLoop TIMER While X IsGreaterThanOrEqualTo 0 Do ReadFromBuffer SQUX into X ReadFromBuffer SQUX into Y If X IsGreaterThanOrEqualTo 0 Then SetParameter BlockColour ANCHOR SetParameter Position X Y 0 0 SendMessage SPAWNINBLOCK EndIf EndWhile EndLoop Loop REDRAW2 Do Set X to 0 Set Y to 0 GosubLoop TIMER While X IsGreaterThanOrEqualTo 0 Do ReadFromBuffer BTHX into X ReadFromBuffer BTHX into Y If X IsGreaterThanOrEqualTo 0 Then SetParameter BlockColour ANCHOR SetParameter Position X Y 0 0 SendMessage SPAWNINBLOCK EndIf EndWhile EndLoop / teh timer / Loop TIMER Do SetParameter Lifetime 0 0 0 0 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 TIMER2 Do SetParameter Lifetime 0 0 1 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 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 If U IsGreaterThan 60 Then Subtract 60 from X Add 1 to I EndIf Subtract 1 from U SetParameter Position 245.0 210.0 0.0 0.0 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 245.0 210.0 0.0 0.0 SendMessage CREATETEXT SetParameter Position 260.0 210.0 0.0 0.0 EndIf ConvertToText U SendMessage CREATETEXT ConvertToText I SetParameter Position 215.0 210.0 0.0 0.0 SendMessage CREATETEXT If U IsEqualTo 0 Then Subtract 1 from I Set U to 60 EndIf If I IsLessThan 0 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 TIME'S_UP! POL SetParameter TEXT Czas_up³yn¹³ FRE SetParameter TEXT TEMPS_ÉCOULÉ! ITA SetParameter TEXT TEMPO_ESAURITO! SPA SetParameter TEXT ¡TIEMPO! GER SetParameter TEXT ENDE! SendMessage CREATETEXT SendMessage LOSECONDITION GotoLoop INFINITE EndIf SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.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.0 0.0 1.0 0.0 EndResponse If U BecomesLessThan 40 Then SendMessage MUSIC_GROOVE_MED EndIf If U BecomesLessThan 20 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If U BecomesLessThan 10 Then SetParameter Position 340.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity -0.4 0.0 0.0 0.0 SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.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 HURRY_UP!! POL SetParameter TEXT Poœpiesz_siê! FRE SetParameter TEXT DÉPÊCHEZ-VOUS!! ITA SetParameter TEXT SBRIGATI! SPA SetParameter TEXT ¡DEPRISA! GER SetParameter TEXT MACH_SCHNELL! SendMessage CREATETEXT SendMessage MUSIC_GROOVE_HIGH SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.0 1.0 EndIf EndLoop / this here is the end / Loop ENDGAME Do SendMessage WINCONDITION GotoLoop INFINITE EndLoop Loop LASTLOOP 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 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 SendMessage LOSECONDITION GotoLoop INFINITE EndLoop Loop INFINITE Do EndLoop EndFile