GameMode cherry GameType QUEST Program0123 TEXTBUFFER LEVS cherry.wbl ENDBUFFER GREENBLOCKSONSCREENCOUNTER G ORANGEBLOCKSONSCREENCOUNTER O REDBLOCKSONSCREENCOUNTER R WEAPONFIREDCOUNTER F LivesRemaining02Counter Q BulletGoneCounter B Loop INIT Do SetParameter GD_FLOAT 30.0 0 0 0 SetParameter GAMEDATA WATERMINLEVEL SendMessage SET_GD_FLOAT SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BACKDROP BACKDROP5 SendMessage SETBACKDROP SetParameter BUFFERNAME LEVS SetParameter NUMLINES 20 SendMessage LOADLEVEL SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SetParameter LIVES 0 SendMessage SETLIVES SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 500 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 3500 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SET F TO 0 SET G To 1000 SET O To 1000 SET R To 1000 Set Z To 0 Set A To 20 Set C To 0 SetParameter POSITION 0.0 -200.0 0.0 0.0 SendMessage ChangeWaterHeight SetParameter TEXT cherry.wbw SendMessage LOADWEAPONLIST SendMessage DEACTIVATESCORE SendMessage MUSIC_GROOVE_LOW SendMessage EndBriefing SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 1.3 1.3 1.3 0.0 SetParameter Scale2 1.3 1.3 1.3 0.0 SetParameter Scale3 1.3 1.3 1.3 0.0 SetParameter Scale4 1.3 1.3 1.3 0.0 SetParameter Scale5 1.3 1.3 1.3 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text CHERRY_FOR_TWO FRE SetParameter TEXT CERISE_POUR_DEUX GER SetParameter Text KIRSCHEN_FÜR_ZWEI SPA SetParameter Text CEREZAS_PARA_DOS ITA SetParameter TEXT CILIEGIE_PER_DUE POL SetParameter TEXT Wisienka_czy_dwie? SendMessage CREATETEXT SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.8 0.8 0.8 0.0 SetParameter Scale2 0.8 0.8 0.8 0.0 SetParameter Scale3 0.8 0.8 0.8 0.0 SetParameter Scale4 0.8 0.8 0.8 0.0 SetParameter Scale5 0.8 0.8 0.8 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 115.0 0.0 0.0 SetParameter Text Eat_the_cherries FRE SetParameter TEXT Mangez_les_cerises GER SetParameter Text Iss_die_Kirschen SPA SetParameter Text Intenta_comerte_las_cerezas ITA SetParameter TEXT Mangia_le_ciliegie POL SetParameter TEXT Zjedz_wszystkie_wisienki SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text Without_hitting_the_stalk FRE SetParameter TEXT sans_toucher_la_queue GER SetParameter Text mit_nur_20_Schuss SPA SetParameter Text SIN_TOCAR_LA_RAMA ITA SetParameter TEXT senza_colpire_il_gambo. POL SetParameter TEXT Nie_uderzając_się_w_??? SendMessage CREATETEXT SetParameter Position 0.0 45.0 0.0 0.0 SetParameter Text With_only_20_shots FRE SetParameter TEXT en_20_tirs_maximum GER SetParameter Text ohne_den_Stängel_zu_treffen SPA SetParameter Text y_con_sólo_20_disparos. ITA SetParameter TEXT Hai_a_disposizione_20_colpi. POL SetParameter TEXT Mając_tylko_20_strzałów. SendMessage CREATETEXT SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 1.0 1.0 1.0 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Scale3 1.0 1.0 1.0 0.0 SetParameter Scale4 1.0 1.0 1.0 0.0 SetParameter Scale5 1.0 1.0 1.0 0.0 SetParameter Position 0.0 -125.0 0.0 0.0 SetParameter Text Press_fire_to_start FRE SetParameter TEXT Appuyez_sur_Tir_pour_commencer! GER SetParameter Text Zum_Starten_Feuer_drücken ITA SetParameter TEXT Premi_fuoco_per_cominciare POL SetParameter TEXT Naciśnij_"Strzał" SPA SetParameter Scale1 0.8 0.8 0.8 0.0 SPA SetParameter Scale2 0.8 0.8 0.8 0.0 SPA SetParameter Scale3 0.8 0.8 0.8 0.0 SPA SetParameter Scale4 0.8 0.8 0.8 0.0 SPA SetParameter Scale5 0.8 0.8 0.8 0.0 SPA SetParameter Text Pulsa_el_disparo_para_empezar SendMessage CREATETEXT SPA SetParameter Scale1 1.0 1.0 1.0 0.0 SPA SetParameter Scale2 1.0 1.0 1.0 0.0 SPA SetParameter Scale3 1.0 1.0 1.0 0.0 SPA SetParameter Scale4 1.0 1.0 1.0 0.0 SPA SetParameter Scale5 1.0 1.0 1.0 0.0 OnMessage FIREPRESSED Do SendMessage MUSIC_GROOVE_MED_LOW SendMessage EndBriefing SendMessage FIRINGON GotoLoop MAIN EndResponse EndLoop Loop MAIN Do SetParameter POSITION 0.0 -200.0 0.0 0.0 SendMessage ChangeWaterHeight If F BecomesGreaterThan C Then Subtract 1 From A Set C To F EndIf SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Scale1 0.5 0.5 0.5 0.0 SetParameter Scale2 1.5 1.5 1.5 0.0 SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Position -40.0 220.0 0.0 0.0 GER SetParameter Position 100.0 220.0 0.0 0.0 POL SetParameter Position 70.0 220.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Left SetParameter TEXT Shots_Remaining FRE SetParameter TEXT Tirs_restants GER SetParameter Text Schüsse ITA SetParameter TEXT Colpi POL SetParameter TEXT strzałów SPA SetParameter Scale1 0.8 0.8 0.8 0.0 SPA SetParameter Scale2 0.8 0.8 0.8 0.0 SPA SetParameter Scale3 0.8 0.8 0.8 0.0 SPA SetParameter Scale4 0.8 0.8 0.8 0.0 SPA SetParameter Scale5 0.8 0.8 0.8 0.0 SPA SetParameter Text Disparos_Restantes SendMessage CREATETEXT SetParameter Colour1 0.0 1.0 0.0 1.0 SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.0 1.0 If A IsLessThan 6 Then 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 EndIf SetParameter Position 250.0 220.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Left ConvertToText A SendMessage CREATETEXT SPA SetParameter Scale1 1.0 1.0 1.0 0.0 SPA SetParameter Scale2 1.0 1.0 1.0 0.0 SPA SetParameter Scale3 1.0 1.0 1.0 0.0 SPA SetParameter Scale4 1.0 1.0 1.0 0.0 SPA SetParameter Scale5 1.0 1.0 1.0 0.0 If Q BecomesEqualTo -1 Then SendMessage FIRINGOFF SendMessage LOSECONDITION EndIf If O BECOMESLESSTHAN 22 then SetParameter Justify Centre 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! FRE SetParameter TEXT ÉCHEC! GER SetParameter Text VERLOREN! SPA SetParameter Text ˇFALLASTE! ITA SetParameter TEXT HAI_FALLITO! POL SetParameter TEXT Klęska SendMessage CREATETEXT SendMessage FIRINGOFF SendMessage LOSECONDITION SET G To 1000 SET O To 1000 SET R To 1000 GotoLoop WIN endif If F BECOMESGREATERTHAN 4 then SetParameter Lifetime 0.1 0.2 2.1 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 Position 0.0 50.0 0.0 0.0 SetParameter Justify Centre SetParameter Text Make_those_shots_count FRE SetParameter TEXT Réglez_bien_vos_tirs! GER SetParameter Text Die_nächsten_Schüsse_müssen_zählen! SPA SetParameter Text ˇAprovecha_esos_disparos! ITA SetParameter TEXT Non_sprecare_i_colpi! POL SetParameter TEXT Licz_amunicję! SendMessage CREATETEXT endif If F BECOMESGREATERTHAN 9 then SetParameter Lifetime 0.1 0.2 2.1 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 Position 0.0 50.0 0.0 0.0 SetParameter Justify Centre SetParameter Text You_can_do_it! FRE SetParameter TEXT Vous_pouvez_y_arriver! GER SetParameter Text Du_kannst_es_schaffen! SPA SetParameter Text ˇTú_puedes_hacerlo! ITA SetParameter TEXT Puoi_farcela! POL SetParameter TEXT Dalej,_uda_Ci_się.! SendMessage CREATETEXT SendMessage MUSIC_GROOVE_MED endif If F BECOMESGREATERTHAN 14 then SetParameter Lifetime 0.1 0.2 2.1 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 Position 0.0 50.0 0.0 0.0 SetParameter Justify Centre SetParameter Text Nearly_out_of_shots! FRE SetParameter TEXt Vos_tirs_sont_presque_épuisés! GER SetParameter Text Kaum_noch_Munition! SPA SetParameter Text ˇCasi_no_te_quedan_disparos! ITA SetParameter TEXT Hai_quasi_finito_i_colpi! POL SetParameter TEXT Kończy_Ci_się_amunicja! SendMessage CREATETEXT SendMessage MUSIC_GROOVE_HIGH endif If F BECOMESEQUALTO 20 then SetParameter Lifetime 0.1 0.2 2.1 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 Position 0.0 50.0 0.0 0.0 SetParameter Justify Centre SetParameter Text NO_MORE_SHOTS! FRE SetParameter TEXT IL_N'Y_A_PLUS_DE_TIRS! GER SetParameter Text KEINE_SCHÜSSE_ÜBRIG! SPA SetParameter Text ˇSE_TE_ACABÓ_LA_MUNICIÓN! ITA SetParameter TEXT COLPI_TERMINATI! POL SetParameter TEXT Koniec_amunicji! SendMessage CREATETEXT Set B To 0 Set Z To 0 SendMessage FIRINGOFF GotoLoop CHECK endif If R BECOMESLESSTHAN 1 then SetParameter Justify Centre SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.4 1.4 1.4 0.0 SetParameter Scale3 3.4 3.4 3.4 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 1.8 1.8 1.8 0.0 SetParameter Colour1 0.18 0.9 0.1 1.0 SetParameter Colour2 0.18 0.9 0.1 1.0 SetParameter Colour3 0.18 0.9 0.1 1.0 SetParameter Colour4 1.0 1.0 1.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Text SUCCESS! FRE SetParameter TEXT RÉUSSI! GER SetParameter Text GESCHAFFT! SPA SetParameter Text ˇLO_CONSEGUISTE! ITA SetParameter TEXT HAI_VINTO! POL SetParameter TEXT Sukces SendMessage CREATETEXT SetParameter TEXT yellow SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION GotoLoop WIN endif EndLoop Loop CHECK Do SetParameter POSITION 0.0 -200.0 0.0 0.0 SendMessage ChangeWaterHeight OnMessage TIMER3 Do Add 1 To Z EndResponse If B IsEqualTo 1 Then If R BECOMESLESSTHAN 1 Then SetParameter Justify Centre SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.4 1.4 1.4 0.0 SetParameter Scale3 3.4 3.4 3.4 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 1.8 1.8 1.8 0.0 SetParameter Colour1 0.18 0.9 0.1 1.0 SetParameter Colour2 0.18 0.9 0.1 1.0 SetParameter Colour3 0.18 0.9 0.1 1.0 SetParameter Colour4 1.0 1.0 1.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Text SUCCESS! FRE SetParameter TEXT RÉUSSI! GER SetParameter Text GESCHAFFT! SPA SetParameter Text ˇLO_CONSEGUISTE! ITA SetParameter TEXT HAI_VINTO! POL SetParameter TEXT Sukces SendMessage CREATETEXT SetParameter TEXT yellow SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION GotoLoop WIN endif If O BECOMESLESSTHAN 22 then SetParameter Justify Centre 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 ENG SetParameter Text FAILED! FRE SetParameter TEXT ÉCHEC! GER SetParameter Text VERLOREN! SPA SetParameter Text ˇFALLASTE! ITA SetParameter TEXT FAILED! POL SetParameter TEXT Klęska SendMessage CREATETEXT SendMessage LOSECONDITION SET G To 1000 SET O To 1000 SET R To 1000 GotoLoop WIN endif If Q BecomesEqualTo -1 Then SetParameter Justify Centre 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 ENG SetParameter Text FAILED! FRE SetParameter TEXT ÉCHEC! GER SetParameter Text VERLOREN! SPA SetParameter Text ˇFALLASTE! ITA SetParameter TEXT FAILED! POL SetParameter TEXT Klęska SendMessage CREATETEXT SendMessage LOSECONDITION EndIf EndIf If Z BecomesEqualTo 7 Then SetParameter Justify Centre 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! FRE SetParameter TEXT ÉCHEC! GER SetParameter Text VERLOREN! SPA SetParameter Text ˇFALLASTE! ITA SetParameter TEXT FAILED! POL SetParameter TEXT Klęska SendMessage CREATETEXT SendMessage LOSECONDITION GotoLoop WIN EndIf EndLoop Loop WIN Do EndLoop EndFile