GameMode palmy WaterHeightCounter H LandLinesCounter M OrangeComboCounter O Program0123 TEXTBUFFER LEVS palmy.wbl ENDBUFFER DATABUFFER RED1 2 209 1 208 2 208 3 208 4 208 1 207 3 207 1 206 2 206 3 206 4 206 2 205 ENDBUFFER DATABUFFER GRE1 12 209 11 208 12 208 13 208 14 208 11 207 13 207 11 206 12 206 13 206 14 206 12 205 ENDBUFFER DATABUFFER PUR1 17 209 16 208 17 208 18 208 19 208 16 207 18 207 16 206 17 206 18 206 19 206 17 205 ENDBUFFER DATABUFFER YEL1 22 209 21 208 22 208 23 208 24 208 21 207 23 207 21 206 22 206 23 206 24 206 22 205 ENDBUFFER DATABUFFER RED2 2 169 1 168 2 168 3 168 4 168 1 167 3 167 1 166 2 166 3 166 4 166 2 165 ENDBUFFER DATABUFFER GRE2 12 168 11 168 12 168 13 168 14 168 11 167 13 167 11 166 12 166 13 166 14 166 12 165 ENDBUFFER DATABUFFER PUR2 17 168 16 168 17 168 18 168 19 168 16 167 18 167 16 166 17 166 18 166 19 166 17 165 ENDBUFFER DATABUFFER YEL2 22 169 21 168 22 168 23 168 24 168 21 167 23 167 21 166 22 166 23 166 24 166 22 165 ENDBUFFER DATABUFFER RED3 2 129 1 128 2 128 3 128 4 128 1 127 3 127 1 126 2 126 3 126 4 126 2 125 ENDBUFFER DATABUFFER GRE3 12 129 11 128 12 128 13 128 14 128 11 127 13 127 11 126 12 126 13 126 14 126 12 125 ENDBUFFER DATABUFFER PUR3 17 129 16 128 17 128 18 128 19 128 16 127 18 127 16 126 17 126 18 126 19 126 17 125 ENDBUFFER DATABUFFER YEL3 22 129 21 128 22 128 23 128 24 128 21 127 23 127 21 126 22 126 23 126 24 126 22 125 ENDBUFFER DATABUFFER RED4 2 89 1 88 2 88 3 88 4 88 1 87 3 87 1 86 2 86 3 86 4 86 2 85 ENDBUFFER DATABUFFER GRE4 12 89 11 88 12 88 13 88 14 88 11 87 13 87 11 86 12 86 13 86 14 86 12 85 ENDBUFFER DATABUFFER PUR4 17 89 16 88 17 88 18 88 19 88 16 87 18 87 16 86 17 86 18 86 19 86 17 85 ENDBUFFER DATABUFFER YEL4 22 89 21 88 22 88 23 88 24 88 21 87 23 87 21 86 22 86 23 86 24 86 22 85 ENDBUFFER /******************************/ DATABUFFER RED5 2 49 1 48 2 48 3 48 4 48 1 47 3 47 1 46 2 46 3 46 4 46 2 45 ENDBUFFER DATABUFFER GRE5 12 49 11 48 12 48 13 48 14 48 11 47 13 47 11 46 12 46 13 46 14 46 12 45 ENDBUFFER DATABUFFER PUR5 17 49 16 48 17 48 18 48 19 48 16 47 18 47 16 46 17 46 18 46 19 46 17 45 ENDBUFFER DATABUFFER YEL5 22 49 21 48 22 48 23 48 24 48 21 47 23 47 21 46 22 46 23 46 24 46 22 45 ENDBUFFER /******************************/ DATABUFFER RED6 2 9 1 8 2 8 3 8 4 8 1 7 3 7 1 6 2 6 3 6 4 6 2 5 ENDBUFFER DATABUFFER GRE6 12 9 11 8 12 8 13 8 14 8 11 7 13 7 11 6 12 6 13 6 14 6 12 5 ENDBUFFER DATABUFFER PUR6 17 9 16 8 17 8 18 8 19 8 16 7 18 7 16 6 17 6 18 6 19 6 17 5 ENDBUFFER DATABUFFER YEL6 22 9 21 8 22 8 23 8 24 8 21 7 23 7 21 6 22 6 23 6 24 6 22 5 ENDBUFFER Loop INIT Do SendMessage DEACTIVATESCORE SetParameter INTERVAL 999999 SendMessage SetLandSpeed SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BACKDROP BACKDROP8 SendMessage SETBACKDROP SetParameter BUFFERNAME LEVS SetParameter NUMLINES 240 SendMessage LOADLEVEL SetParameter TEXT palmy.wbw SendMessage LOADWEAPONLIST SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter Justify CENTRE SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.0 1.0 1.0 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 LIVES 0 SendMessage SETLIVES SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 0200 SetParameter REPEAT TRUE SendMessage CREATETIMER SendMessage MUSIC_GROOVE_LOW SendMessage FIRINGOFF Set D to 0 Set O to 0 Set Q to 0 SetParameter POSITION -100 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SendMessage STARTBRIEFING GotoLoop CHECK EndLoop / briefing / Loop CHECK Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT OnMessage TIMER4 Do GosubLoop BRIEF EndResponse OnMessage FIREPRESSED Do SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.0 1.0 1.0 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 SendMessage ENDBRIEFING SendMessage MUSIC_GROOVE_MED_LOW GosubLoop SETTIMER GotoLoop MAIN 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 150.0 0.0 0.0 SetParameter Text ASK_A_QUESTION_._._._. POL SetParameter TEXT KTO_PYTA_NIE_._._._. FRE SetParameter TEXT RÉPONDEZ_à_LA_QUESTION ITA SetParameter TEXT UNA_DOMANDA_._._. SPA SetParameter TEXT PREGUNTA,_PREGUNTA_._._. GER SetParameter TEXT STELL_EINE_FRAGE_._._._. 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 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 ITA SetParameter Scale1 0.1 0.1 0.1 0.0 ITA SetParameter Scale2 0.6 0.6 0.6 0.0 ITA SetParameter Scale3 0.6 0.6 0.6 0.0 ITA SetParameter Scale4 0.6 0.6 0.6 0.0 ITA SetParameter Scale5 0.6 0.6 0.6 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 75.0 0.0 0.0 SetParameter Text Answer_the_questions_on_the_six_different POL SetParameter TEXT ODPOWIEDZ_NA_PYTANIA_NA_SZEŒCIU_RÓ_NYCH, FRE SetParameter TEXT Répondez_aux_questions_en_rapport_aux SPA SetParameter TEXT Responde_a_las_preguntas_relacionadas_con ITA SetParameter TEXT Rispondi_alle_domande_sulle_sei_diverse_immagini GER SetParameter TEXT Beantworte_die_Fragen_zu_den_sechs SendMessage CreateText SetParameter Position 0.0 40.0 0.0 0.0 SetParameter Text pictures_that_you_are_shown._You_need_to POL SetParameter TEXT PRZEDSTAWIONYCH_CI_OBRAZKACH._MUSISZ FRE SetParameter TEXT six_images_différentes._Vous_devez SPA SetParameter TEXT las_seis_imágenes_que_se_muestran. ITA SetParameter TEXT che_ti_vengono_mostrate._Devi_dare_tutte_le GER SetParameter TEXT verschiedenen_Bildern,_die_dir_gezeigt SendMessage CreateText SetParameter Position 0.0 5.0 0.0 0.0 SetParameter Text answer_the_questions_correctly_in POL SetParameter TEXT NA_WSZYSTKIE_ODPOWIEDZIEÆ_POPRAWNIE,_ABY FRE SetParameter TEXT répondre_correctement_à_toutes_les SPA SetParameter TEXT Responde_a_las_preguntas_correctamente ITA SetParameter TEXT risposte_nell'ordine_esatto,_per_poter GER SetParameter TEXT werden._Um_zu_gewinnen_musst_du SendMessage CreateText SetParameter Position 0.0 -30.0 0.0 0.0 SetParameter Text order_to_finish_successfully! POL SetParameter TEXT PRZEJŒÆ_DALEJ. FRE SetParameter TEXT questions_pour_remplir_l'objectif! SPA SetParameter TEXT para_superar_la_prueba. ITA SetParameter TEXT concludere_con_successo_la_prova! GER SetParameter TEXT alle_Fragen_richtig_beantworten! 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 / let the fun begin / Loop MAIN Do OnMessage TIMER1 Do Set O to 0 GotoLoop ADVANCE1 EndResponse EndLoop Loop QUESTION1 Do ReadFromBuffer RED1 into X ReadFromBuffer RED1 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO R ReadFromBuffer GRE1 into X ReadFromBuffer GRE1 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO G ReadFromBuffer PUR1 into X ReadFromBuffer PUR1 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO P ReadFromBuffer YEL1 into X ReadFromBuffer YEL1 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Y If R IsNotEqualTo RED Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If O BecomesGreaterThan 0 Then If A IsEqualTo 2 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 2 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If G IsNotEqualTo GREEN Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If P IsNotEqualTo PURPLE Then If A IsEqualTo 1 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 1 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If Y IsNotEqualTo YELLOW Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop QUESTION2 Do ReadFromBuffer RED2 into X ReadFromBuffer RED2 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO R ReadFromBuffer GRE2 into X ReadFromBuffer GRE2 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO G ReadFromBuffer PUR2 into X ReadFromBuffer PUR2 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO P ReadFromBuffer YEL2 into X ReadFromBuffer YEL2 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Y If R IsNotEqualTo RED Then If A IsEqualTo 2 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 2 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If O BecomesGreaterThan 0 Then If A IsEqualTo 1 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 1 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If G IsNotEqualTo GREEN Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If P IsNotEqualTo PURPLE Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If Y IsNotEqualTo YELLOW Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop QUESTION3 Do ReadFromBuffer RED3 into X ReadFromBuffer RED3 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO R ReadFromBuffer GRE3 into X ReadFromBuffer GRE3 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO G ReadFromBuffer PUR3 into X ReadFromBuffer PUR3 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO P ReadFromBuffer YEL3 into X ReadFromBuffer YEL3 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Y If R IsNotEqualTo RED Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If O BecomesGreaterThan 0 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If G IsNotEqualTo GREEN Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If P IsNotEqualTo PURPLE Then If A IsEqualTo 2 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 2 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If Y IsNotEqualTo YELLOW Then If A IsEqualTo 1 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 1 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop QUESTION4 Do ReadFromBuffer RED4 into X ReadFromBuffer RED4 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO R ReadFromBuffer GRE4 into X ReadFromBuffer GRE4 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO G ReadFromBuffer PUR4 into X ReadFromBuffer PUR4 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO P ReadFromBuffer YEL4 into X ReadFromBuffer YEL4 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Y If R IsNotEqualTo RED Then If A IsEqualTo 2 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 2 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If O BecomesGreaterThan 0 Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If G IsNotEqualTo GREEN Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If P IsNotEqualTo PURPLE Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If Y IsNotEqualTo YELLOW Then If A IsEqualTo 1 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 1 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop QUESTION5 Do ReadFromBuffer RED5 into X ReadFromBuffer RED5 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO R ReadFromBuffer GRE5 into X ReadFromBuffer GRE5 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO G ReadFromBuffer PUR5 into X ReadFromBuffer PUR5 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO P ReadFromBuffer YEL5 into X ReadFromBuffer YEL5 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Y If R IsNotEqualTo RED Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If O BecomesGreaterThan 0 Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If G IsNotEqualTo GREEN Then If A IsEqualTo 1 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 1 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If P IsNotEqualTo PURPLE Then If A IsEqualTo 2 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop RIGHT EndIf If A IsNotEqualTo 2 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If Y IsNotEqualTo YELLOW Then Subtract 1 from Q GosubLoop SHORTTIMER GotoLoop WRONG EndIf SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop Loop QUESTION6 Do ReadFromBuffer RED6 into X ReadFromBuffer RED6 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO R ReadFromBuffer GRE6 into X ReadFromBuffer GRE6 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO G ReadFromBuffer PUR6 into X ReadFromBuffer PUR6 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO P ReadFromBuffer YEL6 into X ReadFromBuffer YEL6 into Y SetParameter POSITION X Y 0 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Y If R IsNotEqualTo RED Then If A IsEqualTo 2 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop WINNAR EndIf If A IsNotEqualTo 2 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If O BecomesGreaterThan 0 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf If G IsNotEqualTo GREEN Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop WINNAR EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If P IsNotEqualTo PURPLE Then If A IsEqualTo 1 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop WINNAR EndIf If A IsNotEqualTo 1 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf If Y IsNotEqualTo YELLOW Then If A IsEqualTo 3 Then SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_ARE_RIGHT! POL SetParameter TEXT MASZ_RACJÊ! FRE SetParameter TEXT BONNE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_ESATTA! SPA SetParameter TEXT ¡MUY_BIEN! GER SetParameter TEXT RICHTIG! SendMessage CREATETEXT GosubLoop SHORTTIMER GotoLoop WINNAR EndIf If A IsNotEqualTo 3 Then Subtract 1 from Q GosubLoop SHORTTIMER GosubLoop WRONGTEXT GotoLoop WRONG EndIf EndIf SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT Set S to 1 EndLoop / clear the screen and advance the screen for two reasons / Loop ADVANCE1 Do SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 0500 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop ADVANCE1A EndLoop Loop ADVANCE1A Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT OnMessage TIMER3 Do GosubLoop DESTROYBLOCKS Randomise A From 1 To 3 Add 1 to D GotoLoop ADVANCE2 EndResponse EndLoop Loop ADVANCE2 Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter INTERVAL 0001 SendMessage SetLandSpeed set M to 0 GotoLoop ADVANCE3 EndLoop Loop ADVANCE3 Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If M IsEqualTo 20 then SetParameter INTERVAL 999999 SendMessage SetLandSpeed If D IsEqualTo 1 Then GosubLoop ASKQUESTION GotoLoop QUESTION1 EndIf If D IsEqualTo 2 Then GosubLoop ASKQUESTION GotoLoop QUESTION2 EndIf If D IsEqualTo 3 Then SendMessage MUSIC_GROOVE_MED GosubLoop ASKQUESTION GotoLoop QUESTION3 EndIf If D IsEqualTo 4 Then SendMessage MUSIC_GROOVE_MED_HI GosubLoop ASKQUESTION GotoLoop QUESTION4 EndIf If D IsEqualTo 5 Then GosubLoop ASKQUESTION GotoLoop QUESTION5 EndIf If D IsEqualTo 6 Then SendMessage MUSIC_GROOVE_HIGH GosubLoop ASKQUESTION GotoLoop QUESTION6 EndIf endif EndLoop Loop ADVANCEX1 Do SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 0500 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop ADVANCEX1A EndLoop Loop ADVANCEX1A Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT OnMessage TIMER3 Do GosubLoop DESTROYBLOCKS GotoLoop ADVANCEX2 EndResponse EndLoop Loop ADVANCEX2 Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter INTERVAL 0001 SendMessage SetLandSpeed set M to 0 GotoLoop ADVANCEX3 EndLoop Loop ADVANCEX3 Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If M IsEqualTo 20 then SetParameter INTERVAL 999999 SendMessage SetLandSpeed GosubLoop SETTIMER Set O to 0 GotoLoop MAIN endif EndLoop Loop DESTROYBLOCKS Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter Position 0.0 0.0 1.0 0.0 SetParameter BlockColour ALLCOLOURS SendMessage CLEARBLOCKS EndLoop Loop SETTIMER Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 4000 SetParameter REPEAT FALSE SendMessage CreateTimer EndLoop Loop SHORTTIMER Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 2500 SetParameter REPEAT FALSE SendMessage CreateTimer EndLoop Loop ASKQUESTION Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT If A IsEqualTo 1 Then SendMessage FIRINGON SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 190 0 0 SetParameter Text Which_was_the_most_common_colour? POL SetParameter TEXT Jaki_by³_najbardziej POL SendMessage CREATETEXT POL SetParameter Position 0 160 0 0 POL SetParameter TEXT popularny_kolor? FRE SetParameter TEXT Quelle_était_la_couleur FRE SendMessage CREATETEXT FRE SetParameter Position 0 160 0 0 FRE SetParameter TEXT la_plus_répandue_? SPA SetParameter TEXT ¿Qué_color_prevalecía? ITA SetParameter TEXT Qual_era_il_colore_più_comune? GER SetParameter TEXT Was_war_die_häufigste_Farbe? SendMessage CREATETEXT EndIf If A IsEqualTo 2 Then SendMessage FIRINGON SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 190 0 0 SetParameter Text Which_was_the_least_common_colour? POL SetParameter TEXT Jaki_by³_najmniej_popularny_kolor? FRE SetParameter TEXT Quelle_était_la_couleur FRE SendMessage CREATETEXT FRE SetParameter Position 0 160 0 0 FRE SetParameter Text la_moins_répandue_? SPA SetParameter TEXT ¿Qué_color_era_el_más_escaso? ITA SetParameter TEXT Qual_era_il_colore_meno_comune? GER SetParameter TEXT Was_war_die_seltenste_Farbe? SendMessage CREATETEXT EndIf If A IsEqualTo 3 Then SendMessage FIRINGON SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 190 0 0 ITA SetParameter Scale1 0.1 0.1 0.1 0.0 ITA SetParameter Scale2 0.8 0.8 0.8 0.0 ITA SetParameter Scale3 0.8 0.8 0.8 0.0 ITA SetParameter Scale4 0.8 0.8 0.8 0.0 ITA SetParameter Scale5 0.8 0.8 0.8 0.0 GER SetParameter Scale1 0.1 0.1 0.1 0.0 GER SetParameter Scale2 0.7 0.7 0.7 0.0 GER SetParameter Scale3 0.7 0.7 0.7 0.0 GER SetParameter Scale4 0.7 0.7 0.7 0.0 GER SetParameter Scale5 0.7 0.7 0.7 0.0 SetParameter Text Pick_a_colour_that_was_not_used! POL SetParameter TEXT Wybierz_kolor,_którego_nie_by³o! ITA SetParameter TEXT Scegli_un_colore_che_non_era_presente! GER SetParameter TEXT Wähle_eine_Farbe,_die_noch_nicht_benutzt_wurde. FRE SetParameter TEXT Choisissez_une_couleur FRE SendMessage CREATETEXT FRE SetParameter Position 0 160 0 0 FRE SetParameter TEXT qui_n'a_pas_été_utilisée! SPA SetParameter TEXT ¡Elige_un_color_que SPA SendMessage CREATETEXT SPA SetParameter Position 0 160 0 0 SPA SetParameter TEXT no_aparezca_en_la_imagen!! SendMessage CREATETEXT EndIf EndLoop / lets ask the answer prancer! / Loop RIGHT Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT Set O to 0 OnMessage TIMER1 Do SendMessage FIRINGOFF GotoLoop ADVANCEX1 EndResponse EndLoop Loop WRONGTEXT Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter LifeTime 0.1 0.2 3 0.1 SetParameter Position 0 150 0 0 SetParameter Text YOU_WERE_WRONG! POL SetParameter TEXT POMYLI£EOE_SIÊ! FRE SetParameter TEXT MAUVAISE_RÉPONSE! ITA SetParameter TEXT RISPOSTA_SBAGLIATA! SPA SetParameter TEXT ¡NO,_TE_EQUIVOCAS! GER SetParameter TEXT FALSCH_GELEGEN! SendMessage CREATETEXT SetParameter LIVES 0 SendMessage SETLIVES EndLoop Loop WRONG Do SetParameter POSITION 0 -175 0 0 SendMessage CHANGEWATERHEIGHT Set O to 0 OnMessage TIMER1 Do If Q IsLessThan 0 Then SendMessage FIRINGOFF GotoLoop ENDGAME EndIf If Q IsGreaterThanOrEqualTo 0 Then If S IsEqualTo 1 Then GotoLoop WINNAR EndIf If S IsNotEqualTo 1 Then SendMessage FIRINGOFF GotoLoop ADVANCEX1 EndIf EndIf EndResponse EndLoop / endgame funk / Loop ENDGAME 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 WINNAR 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 pdmark SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION GotoLoop INFINITE EndLoop Loop INFINITE Do EndLoop EndFile