GameMode rings CollectStarCounter S DestroyOwnStarCounter T DestroyEnemyStarCounter T LandLinesCounter L WaterHeightCounter H RedComboCounter R GreenComboCounter G PurpleComboCounter P RainbowBlocksOnScreenCounter N LandLinesCounter M LivesRemaining02Counter Q Program0123 TEXTBUFFER LEVS Rings.wbl ENDBUFFER DATABUFFER RNG1 14 41 15 41 16 42 17 42 17 43 18 43 19 44 19 45 20 46 19 47 20 48 19 49 19 50 18 51 17 51 17 52 16 52 15 53 14 53 14 54 13 54 12 54 11 54 10 53 9 53 9 52 8 52 7 51 6 51 6 50 5 49 5 48 5 47 5 46 5 45 6 44 6 43 7 43 8 42 9 42 9 41 10 41 11 40 12 40 13 40 14 40 ENDBUFFER DATABUFFER RNG2 11 40 12 40 13 40 14 40 14 41 15 41 16 42 17 42 17 43 18 43 19 44 19 45 20 46 19 47 20 48 19 49 19 50 18 51 17 51 17 52 16 52 15 53 14 53 14 54 13 54 12 54 11 54 10 53 9 53 9 52 8 52 7 51 6 51 6 50 5 49 5 48 5 47 5 46 5 45 6 44 6 43 7 43 8 42 9 42 9 41 10 41 ENDBUFFER DATABUFFER RNG3 13 51 14 51 15 50 16 50 16 49 17 49 18 48 17 47 18 46 17 45 16 45 16 44 15 44 14 43 13 43 13 42 12 42 11 43 10 43 10 44 9 44 8 45 7 45 7 46 7 47 7 48 7 49 8 49 9 50 10 50 10 51 11 51 12 52 13 52 ENDBUFFER DATABUFFER RNG4 11 51 12 52 13 52 13 51 14 51 15 50 16 50 16 49 17 49 18 48 17 47 18 46 17 45 16 45 16 44 15 44 14 43 13 43 13 42 12 42 11 43 10 43 10 44 9 44 8 45 7 45 7 46 7 47 7 48 7 49 8 49 9 50 10 50 10 51 ENDBUFFER DATABUFFER RNG5 15 46 15 47 15 48 14 48 13 49 12 49 11 49 11 48 10 48 9 47 10 46 11 46 11 45 12 45 13 45 14 46 ENDBUFFER DATABUFFER RNG6 12 45 13 45 14 46 15 46 15 47 15 48 14 48 13 49 12 49 11 49 11 48 10 48 9 47 10 46 11 46 11 45 ENDBUFFER DATABUFFER SQU1 7 34 8 34 9 34 10 34 11 34 12 34 13 34 14 34 15 34 16 34 17 34 18 34 19 34 20 34 21 34 17 34 16 34 15 34 14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 34 6 34 5 34 4 34 3 34 ENDBUFFER DATABUFFER SQU2 3 34 4 34 5 34 6 34 7 34 8 34 9 34 10 34 11 34 12 34 13 34 14 34 15 34 16 34 17 34 21 34 20 34 19 34 18 34 17 34 16 34 15 34 14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 34 ENDBUFFER DATABUFFER SQU4 21 30 20 30 19 30 18 30 17 30 16 30 15 30 14 30 13 30 12 30 11 30 10 30 9 30 8 30 7 30 3 30 4 30 5 30 6 30 7 30 8 30 9 30 10 30 11 30 12 30 13 30 14 30 15 30 16 30 17 30 ENDBUFFER DATABUFFER SQU3 17 30 16 30 15 30 14 30 13 30 12 30 11 30 10 30 9 30 8 30 7 30 6 30 5 30 4 30 3 30 7 30 8 30 9 30 10 30 11 30 12 30 13 30 14 30 15 30 16 30 17 30 18 30 19 30 20 30 21 30 ENDBUFFER DATABUFFER SQU5 6 26 7 26 8 26 9 26 10 26 11 26 12 26 13 26 14 26 15 26 16 26 17 26 18 26 19 26 20 26 21 26 18 26 17 26 16 26 15 26 14 26 13 26 12 26 11 26 10 26 9 26 8 26 7 26 6 26 5 26 4 26 3 26 ENDBUFFER DATABUFFER SQU6 3 26 4 26 5 26 6 26 7 26 8 26 9 26 10 26 11 26 12 26 13 26 14 26 15 26 16 26 17 26 18 26 21 26 20 26 19 26 18 26 17 26 16 26 15 26 14 26 13 26 12 26 11 26 10 26 9 26 8 26 7 26 6 26 ENDBUFFER DATABUFFER SQU8 21 22 20 22 19 22 18 22 17 22 16 22 15 22 14 22 13 22 12 22 11 22 10 22 9 22 8 22 7 22 6 22 3 22 4 22 5 22 6 22 7 22 8 22 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 17 22 18 22 ENDBUFFER DATABUFFER SQU7 18 22 17 22 16 22 15 22 14 22 13 22 12 22 11 22 10 22 9 22 8 22 7 22 6 22 5 22 4 22 3 22 6 22 7 22 8 22 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 17 22 18 22 19 22 20 22 21 22 ENDBUFFER DATABUFFER SQUX 21 22 20 22 19 22 18 22 17 22 16 22 15 22 14 22 13 22 12 22 11 22 10 22 9 22 8 22 7 22 6 22 5 22 3 22 4 22 5 22 6 22 7 22 8 22 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 17 22 18 22 19 22 -1 -1 ENDBUFFER DATABUFFER BTH1 2 7 3 8 3 9 4 10 4 11 5 12 5 13 6 14 7 14 8 14 9 14 10 14 11 14 12 14 13 14 14 14 15 14 16 14 17 14 18 14 18 13 19 12 19 11 20 10 20 9 21 8 21 7 22 6 22 5 23 4 21 7 21 8 20 9 20 10 19 11 19 12 18 13 18 14 17 14 16 14 15 14 14 14 13 14 12 14 11 14 10 14 9 14 8 14 7 14 6 14 5 13 5 12 4 11 4 10 3 9 3 8 2 7 2 6 1 5 1 4 ENDBUFFER DATABUFFER BTH2 1 4 1 5 2 6 2 7 3 8 3 9 4 10 4 11 5 12 5 13 6 14 7 14 8 14 9 14 10 14 11 14 12 14 13 14 14 14 15 14 16 14 17 14 18 14 18 13 19 12 19 11 20 10 20 9 21 8 21 7 23 4 22 5 22 6 21 7 21 8 20 9 20 10 19 11 19 12 18 13 18 14 17 14 16 14 15 14 14 14 13 14 12 14 11 14 10 14 9 14 8 14 7 14 6 14 5 13 5 12 4 11 4 10 3 9 3 8 2 7 ENDBUFFER DATABUFFER BTH3 19 6 18 7 18 8 17 9 17 10 16 11 15 11 14 11 13 11 12 11 11 11 10 11 9 11 8 11 7 11 7 10 6 9 6 8 5 7 5 6 4 5 4 4 5 6 5 7 6 8 6 9 7 10 7 11 8 11 9 11 10 11 11 11 12 11 13 11 14 11 15 11 16 11 17 10 17 9 18 8 18 7 19 6 19 5 20 4 ENDBUFFER DATABUFFER BTH4 20 4 19 5 19 6 18 7 18 8 17 9 17 10 16 11 15 11 14 11 13 11 12 11 11 11 10 11 9 11 8 11 7 11 7 10 6 9 6 8 5 7 5 6 4 4 4 5 5 6 5 7 6 8 6 9 7 10 7 11 8 11 9 11 10 11 11 11 12 11 13 11 14 11 15 11 16 11 17 10 17 9 18 8 18 7 19 6 ENDBUFFER DATABUFFER BTH5 8 6 8 7 9 8 10 8 11 8 12 8 13 8 14 8 15 8 15 7 16 6 16 5 17 4 16 6 15 7 15 8 14 8 13 8 12 8 11 8 10 8 9 8 8 7 8 6 7 5 7 4 ENDBUFFER DATABUFFER BTH6 7 4 7 5 8 6 8 7 9 8 10 8 11 8 12 8 13 8 14 8 15 8 15 7 16 6 17 4 16 5 16 6 15 7 15 8 14 8 13 8 12 8 11 8 10 8 9 8 8 7 8 6 ENDBUFFER DATABUFFER BTH7 11 4 10 4 9 3 10 2 10 1 11 1 12 1 13 1 14 2 14 3 14 4 13 4 12 4 ENDBUFFER DATABUFFER BTH8 13 4 12 4 11 4 10 4 9 3 10 2 10 1 11 1 12 1 13 1 14 2 14 3 14 4 ENDBUFFER DATABUFFER BTHX 11 4 10 4 9 3 10 2 10 1 11 1 12 1 13 1 14 2 14 3 14 4 13 4 12 4 -1 -1 ENDBUFFER / the init loop! / Loop INIT Do SendMessage DEACTIVATESCORE 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 TEXT rings.wbw SendMessage LOADWEAPONLIST SetParameter BACKDROP BACKDROP6 SendMessage SETBACKDROP 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 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 ResetBuffer BTH7 ResetBuffer BTH8 ResetBuffer BTHX 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 / minutes and seconds/ Set U to 60 Set I to 0 SendMessage MUSIC_GROOVE_LOW SendMessage STARTBRIEFING 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 ENDBRIEFING SendMessage FIRINGON SetParameter Lifetime 0.0 0.0 1.0 0.0 GotoLoop RING1 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 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 Position 0.0 180.0 0.0 0.0 SetParameter Text MOVING_SHAPES_1_of_2 POL SetParameter TEXT RUCHOME_KSZTA£TY_1_z_2 FRE SetParameter TEXT DÉPLACER_LES_FORMES_1_sur_2 ITA SetParameter TEXT FIGURE_IN_MOVIMENTO_1_di_2 SPA SetParameter TEXT FORMAS_MÓVILES_1_de_2 GER SetParameter TEXT BEWEGLICHE_TEILE_1_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_prendere, 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 in_tre_schermate_separate._Hai_un_minuto_per 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 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 If N IsEqualTo 0 Then SetParameter Position 12 48 0 0 SetParameter BlockColour Rainbow SendMessage SPAWNINBLOCK SetParameter Position 13 48 0 0 SetParameter BlockColour Rainbow SendMessage SPAWNINBLOCK EndIf 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 If N IsEqualTo 0 Then SetParameter Position 12 48 0 0 SetParameter BlockColour Rainbow SendMessage SPAWNINBLOCK SetParameter Position 13 48 0 0 SetParameter BlockColour Rainbow SendMessage SPAWNINBLOCK EndIf 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 SPAWNINBLOCK 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 48 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO N SetParameter Position 13 48 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO J If N IsEqualTo RED Then SetParameter Position 12 48 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If N IsEqualTo GREEN Then SetParameter Position 12 48 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If J IsEqualTo RED Then SetParameter Position 13 48 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If J IsEqualTo GREEN Then SetParameter Position 13 48 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf / make sure them blocks is rainbowy / GosubLoop TIMER If P IsGreaterThan 0 Then 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 EndIf 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 Set R to 0 Set G to 0 Set P to 0 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 Set R to 0 Set G to 0 Set P 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 21 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO N SetParameter Position 13 21 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO J If N IsEqualTo PURPLE Then SetParameter Position 12 21 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If N IsEqualTo GREEN Then SetParameter Position 12 21 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If J IsEqualTo PURPLE Then SetParameter Position 13 21 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If J IsEqualTo GREEN Then SetParameter Position 13 21 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 ReadFromBuffer BTH8 Into C ReadFromBuffer BTH8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH7 Into C ReadFromBuffer BTH7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN 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 GosubLoop REDRAW2 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 ReadFromBuffer BTH8 Into C ReadFromBuffer BTH8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH7 Into C ReadFromBuffer BTH7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN 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 ReadFromBuffer BTH8 Into C ReadFromBuffer BTH8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH7 Into C ReadFromBuffer BTH7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN 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 BOTH4 EndResponse EndLoop Loop BOTH4 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 BTH8 Into C ReadFromBuffer BTH8 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer BTH7 Into C ReadFromBuffer BTH7 Into D SetParameter POSITION C D 0 0 SetParameter BlockColour GREEN SendMessage SETBLOCKCOLOUR EndIf EndResponse / make sure them blocks is rainbowy / SetParameter Position 11 3 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO N SetParameter Position 12 3 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO J If N IsEqualTo PURPLE Then SetParameter Position 11 3 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If N IsEqualTo GREEN Then SetParameter Position 11 3 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If J IsEqualTo PURPLE Then SetParameter Position 12 3 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf If J IsEqualTo GREEN Then SetParameter Position 12 3 0 0 SetParameter BlockColour RAINBOW SendMessage SPAWNINBLOCK EndIf / make sure them blocks is rainbowy / GosubLoop TIMER OnMessage GREENCOMBODONE 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 GREEN SendMessage CLEARBLOCKS Set T to 0 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 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 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 SCHNELLER! 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 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! POL SetParameter TEXT SUKCES! FRE SetParameter TEXT RÉUSSI! ITA SetParameter TEXT HAI_VINTO! SPA SetParameter TEXT ¡LO_CONSEGUISTE! GER SetParameter TEXT GESCHAFFT! SendMessage CREATETEXT SetParameter TEXT serp SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION 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