FloppyBuilderVersion/code/game_text.s


#include "params.h"
#include "floppy_description.h"
#include "game_enums.h"

    .text

_StartGameTextData

#ifdef LANGUAGE_FR
#pragma osdk replace_characters : é:{ è:} ê:| à:@ î:i
#endif

// Small feedback messages and prompts
_StartMessagesAndPrompts
#ifdef LANGUAGE_FR
_gTextAskInput              .byt "Quels sont vos instructions ?",0
_gTextNothingHere           .byt "Il n'y a rien d'important ici",0
_gTextCanSee                .byt "Je vois ",0
_gTextScore                 .byt "Score:",0
_gTextHighScoreAskForName   .byt "Nouveau top score ! Votre name SVP ?",0
_gTextCarryInWhat           .byt "Transporte dans quoi ?",0
_gTextPetrolEvaporates      .byt "Le pétrole s'évapore",0
_gTextWaterDrainsAways      .byt "L'eau s'écoule",0
_gTextClimbUpLadder         .byt "Vous grimpez l'échelle",0
_gTextClimbDownLadder       .byt "Vous descendez l'échelle",0
_gTextPositionLadder        .byt "Vous mettez l'échelle en place",0
_gTextClimbUpRope           .byt "Vous grimpez la corde",0
_gTextClimbDownRope         .byt "Vous descendez la corde",0
_gTextAttachRopeToTree      .byt "Vous attachez la corde à l'arbre",0
_gTextDeadDog               .byt "un chien mort",0
_gTextDeadThug              .byt "un malfaiteur mort",0
_gTextFoundSomething        .byt "Vous avez trouvé quelque chose",0
_gTextDogGrowlingAtYou      .byt "un alsacien menacant",0
_gTextThugAsleepOnBed       .byt "un malfaiteur assoupi sur le lit",0
_gTextNotDead               .byt "Pas mort",0                                // Debugging text
_gTextDogJumpingAtMe        .byt "un chien qui me saute dessus",0
_gTextThugShootingAtMe      .byt "un malfaiteur qui me tire dessus",0
_gTextAGenericWhiteBag      .byt "Juste un sac blanc normal",0
_gTextThickBookBookmarks    .byt "Un livre épais avec des marques",0
#else
_gTextAskInput              .byt "What are you going to do now?",0
_gTextNothingHere           .byt "There is nothing of interest here",0
_gTextCanSee                .byt "I can see ",0
_gTextScore                 .byt "Score:",0
_gTextHighScoreAskForName   .byt "New highscore! Your name please?",0
_gTextCarryInWhat           .byt "Carry it in what?",0
_gTextPetrolEvaporates      .byt "The petrol evaporates",0
_gTextWaterDrainsAways      .byt "The water drains away",0
_gTextClimbUpLadder         .byt "You climb up the ladder",0
_gTextClimbDownLadder       .byt "You climb down the ladder",0
_gTextPositionLadder        .byt "You position the ladder properly",0
_gTextClimbUpRope           .byt "You climb up the rope",0
_gTextClimbDownRope         .byt "You climb down the rope",0
_gTextAttachRopeToTree      .byt "You attach the rope to the tree",0
_gTextDeadDog               .byt "a dead dog",0
_gTextDeadThug              .byt "a dead thug",0
_gTextFoundSomething        .byt "You found something interesting",0
_gTextDogGrowlingAtYou      .byt "an alsatian growling at you",0
_gTextThugAsleepOnBed       .byt "a thug asleep on the bed",0
_gTextNotDead               .byt "Not dead",0                                // Debugging text
_gTextDogJumpingAtMe        .byt "a dog jumping at me",0
_gTextThugShootingAtMe      .byt "a thug shooting at me",0
_gTextAGenericWhiteBag      .byt "It's just a white generic bag",0
_gTextThickBookBookmarks    .byt "A thick book with some boomarks",0
#endif
_EndMessagesAndPrompts

// Error messages 
_StartErrorMessages
#ifdef LANGUAGE_FR
_gTextErrorInvalidDirection .byt "Impossible d'aller par la",0
_gTextErrorCantTakeNoSee    .byt "Je ne vois pas ca ici",0
_gTextErrorAlreadyHaveItem  .byt "Vous avez déjà cet objet",0
_gTextErrorTooHeavy         .byt "C'est trop lourd",0
_gTextErrorRidiculous       .byt "Ne soyez pas ridicule",0
_gTextErrorAlreadyFull      .byt "Désolé, c'est déja plein",0
_gTextErrorMissingContainer .byt "Vous n'avez pas ce contenant",0
_gTextErrorDropNotHave      .byt "Impossible, vous ne l'avez pas",0
_gTextErrorUnknownItem      .byt "Je ne connais pas cet objet",0
_gTextErrorItemNotPresent   .byt "Cet objet n'est pas présent",0
_gTextErrorCannotRead       .byt "Je ne peux pas lire ca",0
_gTextErrorCannotUseHere    .byt "Pas utilisable ici",0
_gTextErrorDontKnowUsage    .byt "Je ne sais pas l'utiliser",0
_gTextErrorCannotAttachRope .byt "Impossible de l'attacher",0
_gTextErrorLadderInHole     .byt "L'échelle est déja dans le trou",0
_gTextErrorCantClimbThat    .byt "Je ne sais pas grimper ca",0
_gTextErrorNeedPositionned  .byt "Ca doit d'abort être en place",0
_gTextErrorItsNotHere       .byt "Ca n'est pas là",0
_gTextErrorAlreadyDead      .byt "Déjà mort",0
_gTextErrorShouldSaveGirl   .byt "Vous êtes censé la sauver",0
_gTextErrorShouldSubdue     .byt "Il faut d'abord le maitriser",0
_gTextErrorAlreadySearched  .byt "Vous l'avez déjà fouillé",0
_gTextErrorInappropriate    .byt "Probablement inapproprié",0
_gTextErrorDeadDontMove     .byt "Les morts ne bougent pas",0
_gTextErrorNothingSpecial   .byt "Rien de spécial",0
#else
_gTextErrorInvalidDirection .byt "Impossible to move in that direction",0
_gTextErrorCantTakeNoSee    .byt "You can only take something you see",0
_gTextErrorAlreadyHaveItem  .byt "You already have this item",0
_gTextErrorTooHeavy         .byt "This is too heavy",0
_gTextErrorRidiculous       .byt "Don't be ridiculous",0
_gTextErrorAlreadyFull      .byt "Sorry, that's full already",0
_gTextErrorMissingContainer .byt "You don't have this container",0
_gTextErrorDropNotHave      .byt "You can only drop something you have",0
_gTextErrorUnknownItem      .byt "I do not know what this item is",0
_gTextErrorItemNotPresent   .byt "This item does not seem to be present",0
_gTextErrorCannotRead       .byt "I can't read that",0
_gTextErrorCannotUseHere    .byt "I can't use it here",0
_gTextErrorDontKnowUsage    .byt "I don't know how to use that",0
_gTextErrorCannotAttachRope .byt "You can't attach the rope",0
_gTextErrorLadderInHole     .byt "The ladder is already in the hole",0
_gTextErrorCantClimbThat    .byt "I don't know how to climb that",0
_gTextErrorNeedPositionned  .byt "It needs to be positionned first",0
_gTextErrorItsNotHere       .byt "It's not here",0
_gTextErrorAlreadyDead      .byt "Already dead",0
_gTextErrorShouldSaveGirl   .byt "You are supposed to save her",0
_gTextErrorShouldSubdue     .byt "I should subdue him first",0
_gTextErrorAlreadySearched  .byt "You've already frisked him",0
_gTextErrorInappropriate    .byt "Probably inappropriate",0
_gTextErrorDeadDontMove     .byt "Dead don't move",0
_gTextErrorNothingSpecial   .byt "Nothing special",0
#endif
_EndErrorMessages


// Places
_StartLocationNames
#ifdef LANGUAGE_FR
//                                      0         1         2         3
//                                      0123456789012345678901234567890123456789
_gTextLocationMarketPlace         .byt "Vous êtes sur la place du marché",0
_gTextLocationDarkAlley           .byt "Vous êtes dans une allée sombre",0
_gTextLocationRoad                .byt "Une longue route s'étend devant vous",0

_gTextLocationDarkTunel           .byt "Vous êtes dans un tunnel humide",0
_gTextLocationMainStreet          .byt "Vous êtes dans la rue principale",0
_gTextLocationNarrowPath          .byt "Vous êtes sur un chemin étroit",0

_gTextLocationInThePit            .byt "Vous êtes au fond d'un trou",0
_gTextLocationOldWell             .byt "Vous êtes prês d'un vieux puit",0
_gTextLocationWoodedAvenue        .byt "Vous êtes dans une allée arbroisée",0

_gTextLocationGravelDrive         .byt "Vous êtes sur un passage gravilloné",0
_gTextLocationTarmacArea          .byt "Vous êtes sur une zone asphaltée",0
_gTextLocationZenGarden           .byt "Vous êtes dans un jarding zen relaxant",0

_gTextLocationFrontLawn           .byt "Vous êtes sur une large pelouse",0
_gTextLocationGreenHouse          .byt "Vous êtes dans une petite serre",0
_gTextLocationTennisCourt         .byt "Vous êtes sur un cours de tennis",0

_gTextLocationVegetableGarden     .byt "Vous êtes dans un jardin potagé",0
_gTextLocationFishPond            .byt "Vous êtes près d'un bac a poisson",0
_gTextLocationTiledPatio          .byt "Vous êtes sur un patio carellé",0

_gTextLocationAppleOrchard        .byt "Vous êtes dans une pommeraie",0
_gTextLocationDarkerCellar        .byt "Cette pièce est encore plus sombre",0
_gTextLocationCellar              .byt "Une cave frigide et humide",0

_gTextLocationNarrowStaircase     .byt "Vous êtes dans un escalier étroit",0
_gTextLocationEntranceLounge      .byt "Vous êtes dans un salon",0
_gTextLocationEntranceHall        .byt "Vous êtes dans un hall imposant",0

_gTextLocationLibrary             .byt "Probablement une bibliothèque",0
_gTextLocationDiningRoom          .byt "Apparement une salle a manger",0
_gTextLocationStaircase           .byt "Vous êtes dans un large escalier",0

_gTextLocationGamesRoom           .byt "La salle de jeux",0
_gTextLocationSunLounge           .byt "Le solarium",0
_gTextLocationKitchen             .byt "Visiblement la cuisine",0

_gTextLocationNarrowPassage       .byt "Vous êtes dans un passage étroit",0
_gTextLocationGuestBedroom        .byt "Une chambre d'amis",0
_gTextLocationChildBedroom        .byt "La chambre d'un enfant",0

_gTextLocationMasterBedRoom       .byt "La chambre principale",0
_gTextLocationShowerRoom          .byt "Une salle de bain carellée",0
_gTextLocationTinyToilet          .byt "Des petites toilettes",0

_gTextLocationEastGallery         .byt "La gallerie est",0
_gTextLocationBoxRoom             .byt "Une petite loge",0
_gTextLocationPadlockedRoom       .byt "Une porte blindée cadenassée",0

_gTextLocationClassyBathRoom      .byt "Une salle de bain luxieuse",0
_gTextLocationWestGallery         .byt "La gallerie ouest",0
_gTextLocationMainLanding         .byt "Vous êtes sur le palier principal",0

_gTextLocationOutsidePit          .byt "En dehors d'un trou profond",0

_gTextLocationGirlRoomOpenned     .byt "La pièce avec la fille (ouverte)",0
#else
_gTextLocationMarketPlace         .byt "You are in a deserted market square",0
_gTextLocationDarkAlley           .byt "You are in a dark, seedy alley",0
_gTextLocationRoad                .byt "A long road stretches ahead of you",0

_gTextLocationDarkTunel           .byt "You are in a dark, damp tunnel",0
_gTextLocationMainStreet          .byt "You are on the main street",0
_gTextLocationNarrowPath          .byt "You are on a narrow path",0

_gTextLocationInThePit            .byt "You are insided a deep pit",0
_gTextLocationOldWell             .byt "You are near to an old-fashioned well",0
_gTextLocationWoodedAvenue        .byt "You are in a wooded avenue",0

_gTextLocationGravelDrive         .byt "You are on a wide gravel drive",0
_gTextLocationTarmacArea          .byt "You are in an open area of tarmac",0
_gTextLocationZenGarden           .byt "You are in a relaxing zen garden",0

_gTextLocationFrontLawn           .byt "You are on a huge area of lawn",0
_gTextLocationGreenHouse          .byt "You are in a small greenhouse",0
_gTextLocationTennisCourt         .byt "You are on a lawn tennis court",0

_gTextLocationVegetableGarden     .byt "You are in a vegetable plot",0
_gTextLocationFishPond            .byt "You are standing by a fish pond",0
_gTextLocationTiledPatio          .byt "You are on a tiled patio",0

_gTextLocationAppleOrchard        .byt "You are in an apple orchard",0
_gTextLocationDarkerCellar        .byt "This room is even darker than the last",0
_gTextLocationCellar              .byt "This is a cold, damp cellar",0

_gTextLocationNarrowStaircase     .byt "You are on some gloomy, narrow steps",0
_gTextLocationEntranceLounge      .byt "You are in the lounge",0
_gTextLocationEntranceHall        .byt "You are in an imposing entrance hall",0

_gTextLocationLibrary             .byt "This looks like a library",0
_gTextLocationDiningRoom          .byt "A dining room, or so it appears",0
_gTextLocationStaircase           .byt "You are on a sweeping staircase",0

_gTextLocationGamesRoom           .byt "This looks like a games room",0
_gTextLocationSunLounge           .byt "You find yourself in a sun-lounge",0
_gTextLocationKitchen             .byt "This is obviously the kitchen",0

_gTextLocationNarrowPassage       .byt "You are in a narrow passage",0
_gTextLocationGuestBedroom        .byt "This seems to be a guest bedroom",0
_gTextLocationChildBedroom        .byt "This is a child's bedroom",0

_gTextLocationMasterBedRoom       .byt "This must be the master bedroom",0
_gTextLocationShowerRoom          .byt "You are in a tiled shower-room",0
_gTextLocationTinyToilet          .byt "This is a tiny toilet",0

_gTextLocationEastGallery         .byt "You have found the east gallery",0
_gTextLocationBoxRoom             .byt "This is a small box-room",0
_gTextLocationPadlockedRoom       .byt "You see a padlocked steel-plated door",0

_gTextLocationClassyBathRoom      .byt "You are in an ornate bathroom",0
_gTextLocationWestGallery         .byt "This is the west gallery",0
_gTextLocationMainLanding         .byt "You are on the main landing",0

_gTextLocationOutsidePit          .byt "Outside a deep pit",0

_gTextLocationGirlRoomOpenned     .byt "The girl room (openned lock)",0
#endif
_EndLocationNames

// Items
_StartItemNames
#ifdef LANGUAGE_FR
// Containers
_gTextItemTobaccoTin              .byt "une tabatière vide",0
_gTextItemBucket                  .byt "un seau en bois",0
_gTextItemCardboardBox            .byt "une boite en carton",0
_gTextItemFishingNet              .byt "un filet de pêche",0
_gTextItemPlasticBag              .byt "un sac en plastique",0
_gTextItemSmallBottle             .byt "une petite bouteille",0
// Items requiring containers
_gTextItemBlackDust               .byt "de la poudre noire",0
_gTextItemYellowPowder            .byt "poudre jaune granuleuse",0
_gTextItemPetrol                  .byt "du pétrole",0
_gTextItemWater                   .byt "de l'eau",0
// Normal items
_gTextItemLockedPanel             .byt "un paneau mural verouillé",0
_gTextItemOpenPanel               .byt "un paneau mural ouvert",0
_gTextItemSmallHoleInDoor         .byt "un petit trou dans la porte",0
_gTextItemBrokenWindow            .byt "une vitre brisée",0
_gTextItemLargeDove               .byt "une grosse colombe",0
_gTextItemTwine                   .byt "un peu de ficelle",0
_gTextItemSilverKnife             .byt "un coueau en argent",0
_gTextItemLadder                  .byt "une échelle",0
_gTextItemAbandonedCar            .byt "une voiture abandonnée",0
_gTextItemAlsatianDog             .byt "un alsacien qui grogne",0
_gTextItemMeat                    .byt "un morceau de viande",0
_gTextItemBread                   .byt "du pain complet",0
_gTextItemRollOfTape              .byt "un rouleau de bande adhésive",0
_gTextItemChemistryBook           .byt "un livre de chimie",0
_gTextItemBoxOfMatches            .byt "une boite d'allumettes",0
_gTextItemSnookerCue              .byt "une queue de billard",0
_gTextItemThug                    .byt "un voyou endormi sur le lit",0
_gTextItemHeavySafe               .byt "un gros coffre fort",0
_gTextItemHandWrittenNote         .byt "une note manuscripte",0
_gTextItemRope                    .byt "une longueur de corde",0
_gTextItemRopeHangingFromWindow   .byt "une core qui pend de la fenêtre",0
_gTextItemRollOfToiletPaper       .byt "un rouleau de papier toilette",0
_gTextItemHosePipe                .byt "un tuyau d'arrosage",0
_gTextItemOpenSafe                .byt "un coffre fort ouvert",0
_gTextItemBrokenGlass             .byt "des morceaux de glace",0
_gTextItemAcidBurn                .byt "une brulure d'acide",0
_gTextItemYoungGirl               .byt "une jeune fille",0
_gTextItemFuse                    .byt "un fusible",0
_gTextItemGunPowder               .byt "de la poudre à cannon",0
_gTextItemKeys                    .byt "un jeu de clefs",0
_gTextItemNewspaper               .byt "un journal",0
_gTextItemBomb                    .byt "une bombe",0
_gTextItemPistol                  .byt "un pistolet",0
_gTextItemBullets                 .byt "trois balles de calibre .38",0
_gTextItemYoungGirlOnFloor        .byt "une jeunne fille attachée au sol",0
_gTextItemChemistryRecipes        .byt "des formules de chimie",0
_gTextItemUnitedKingdomMap        .byt "une carte du royaume uni",0
_gTextItemLadderInTheHole         .byt "une échelle dans un trou",0
_gTextItemeRopeAttachedToATree    .byt "une corde attachée à un arbre",0
#else
// Containers
_gTextItemTobaccoTin              .byt "an empty tobacco tin",0               
_gTextItemBucket                  .byt "a wooden bucket",0                    
_gTextItemCardboardBox            .byt "a cardboard box",0                    
_gTextItemFishingNet              .byt "a fishing net",0                      
_gTextItemPlasticBag              .byt "a plastic bag",0                      
_gTextItemSmallBottle             .byt "a small bottle",0                     
// Items requiring containers
_gTextItemBlackDust               .byt "black dust",0                         
_gTextItemYellowPowder            .byt "gritty yellow powder",0               
_gTextItemPetrol                  .byt "some petrol",0                        
_gTextItemWater                   .byt "some water",0                         
// Normal items
_gTextItemLockedPanel             .byt "a locked panel on the wall",0         
_gTextItemOpenPanel               .byt "an open panel on wall",0              
_gTextItemSmallHoleInDoor         .byt "a small hole in the door",0           
_gTextItemBrokenWindow            .byt "the window is broken",0               
_gTextItemLargeDove               .byt "a large dove",0                       
_gTextItemTwine                   .byt "some twine",0                         
_gTextItemSilverKnife             .byt "a silver knife",0                     
_gTextItemLadder                  .byt "a ladder",0                           
_gTextItemAbandonedCar            .byt "an abandoned car",0                   
_gTextItemAlsatianDog             .byt "an alsatian growling at you",0        
_gTextItemMeat                    .byt "a joint of meat",0                    
_gTextItemBread                   .byt "some brown bread",0                   
_gTextItemRollOfTape              .byt "a roll of sticky tape",0              
_gTextItemChemistryBook           .byt "a chemistry book",0                   
_gTextItemBoxOfMatches            .byt "a box of matches",0                   
_gTextItemSnookerCue              .byt "a snooker cue",0                      
_gTextItemThug                    .byt "a thug asleep on the bed",0           
_gTextItemHeavySafe               .byt "a heavy safe",0                       
_gTextItemHandWrittenNote         .byt "a hand written note",0                     
_gTextItemRope                    .byt "a length of rope",0                   
_gTextItemRopeHangingFromWindow   .byt "a rope hangs from the window",0       
_gTextItemRollOfToiletPaper       .byt "a roll of toilet tissue",0            
_gTextItemHosePipe                .byt "a hose-pipe",0                        
_gTextItemOpenSafe                .byt "an open safe",0                       
_gTextItemBrokenGlass             .byt "broken glass",0                       
_gTextItemAcidBurn                .byt "an acid burn",0                       
_gTextItemYoungGirl               .byt "a young girl",0                        
_gTextItemFuse                    .byt "a fuse",0                             
_gTextItemGunPowder               .byt "some gunpowder",0                     
_gTextItemKeys                    .byt "a set of keys",0                      
_gTextItemNewspaper               .byt "a newspaper",0                        
_gTextItemBomb                    .byt "a bomb",0                             
_gTextItemPistol                  .byt "a pistol",0                           
_gTextItemBullets                 .byt "three .38 bullets",0                  
_gTextItemYoungGirlOnFloor        .byt "a young girl tied up on the floor",0  
_gTextItemChemistryRecipes        .byt "a couple chemistry recipes",0         
_gTextItemUnitedKingdomMap        .byt "a map of the United Kingdom",0        
_gTextItemLadderInTheHole         .byt "a ladder in a hole",0      
_gTextItemeRopeAttachedToATree    .byt "a rope attached to a tree",0
#endif
_EndItemNames


// Scene descriptions
_StartSceneScripts
_gDescriptionTeenagerRoom         .byt "Teenager room?",0

_gDescriptionNone
    END

_gDescriptionDarkTunel
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,4,0,"Like most tunnels: dark, damp,",0
    .byt 4,13,1,"and somewhat scary.",0
    END

_gDescriptionMarketPlace
#if 1 // Debugging/testing code
    WAIT(1)
    .byt COMMAND_FILL_RECTANGLE,10,10,50,50,127
    .byt COMMAND_FILL_RECTANGLE,20,20,20,20,0
    .byt COMMAND_TEXT,10,10,64,"TEST!",0
    ;.byt COMMAND_STOP_BREAKPOINT
    WAIT(255)
#endif
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
#ifdef LANGUAGE_FR    
    .byt 4,100,0,"La place du marché",0
    .byt 4,106,4,"est désertée",0
#else
    .byt 4,100,0,"The market place",0
    .byt 4,106,4,"is deserted",0
#endif    
    END


_gDescriptionDarkAlley
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
#ifdef LANGUAGE_FR    
    .byt 153,85,0,"Rats, graffittis,",0
    .byt 136,98,0,"et seringues.",0
#else
    .byt 153,85,0,"Rats, graffitti,",0
    .byt 136,98,0,"and used syringes.",0
#endif    
    END

_gDescriptionRoad
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,100,0,"All roads lead...",0
    .byt 4,106,4,"...somewhere?",0
    END

_gDescriptionMainStreet
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,4,0,"A good old",0
    .byt 4,16,0,"medieval church",0
    END

_gDescriptionNarrowPath
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 130,5,0,"Are these the open",0
    .byt 109,17,0,"flood gates of heaven?",0
    END

_gDescriptionInThePit
.(
    JUMP_IF_TRUE(has_ladder,CHECK_ITEM_LOCATION(e_ITEM_Ladder,e_LOCATION_INVENTORY))    
    JUMP_IF_TRUE(draw_ladder,CHECK_ITEM_LOCATION(e_ITEM_Ladder,e_LOCATION_INSIDEHOLE))    
    JUMP_IF_TRUE(rope_attached_to_tree,CHECK_ITEM_LOCATION(e_ITEM_RopeAttachedToATree,e_LOCATION_OUTSIDE_PIT))    
    JUMP(cannot_escape_pit);            ; The player has no way to escape the pit

draw_ladder
    DRAW_BITMAP(LOADER_SPRITE_ITEMS,BLOCK_SIZE(4,50),40,_SecondImageBuffer+36,_ImageBuffer+(40*40)+19)    ; Draw the ladder 
has_ladder
    END

rope_attached_to_tree
    DRAW_BITMAP(LOADER_SPRITE_ITEMS,BLOCK_SIZE(3,52),40,_SecondImageBuffer+(40*37)+51,_ImageBuffer+(40*39)+19)    ; Draw the rope 
    END

cannot_escape_pit
    WAIT(50*2)
    .byt COMMAND_BUBBLE,1,127
    .byt 6,8,0,"It did not look",0
    WAIT(50)
    .byt COMMAND_BUBBLE,1,127
    .byt 176,42,0,"that deep",0
    WAIT(50)
    .byt COMMAND_BUBBLE,1,127
    .byt 82,94,0,"from outside",0
    
    WAIT(50*2)                      ; Wait a couple seconds for dramatic effect
    
    JUMP(_gDescriptionGameOverLost);            ; Draw the 'The End' logo
.)


_gDescriptionOutsidePit
.(
    JUMP_IF_TRUE(ladder_in_hole,CHECK_ITEM_LOCATION(e_ITEM_Ladder,e_LOCATION_INSIDEHOLE))    
    JUMP_IF_TRUE(rope_attached_to_tree,CHECK_ITEM_LOCATION(e_ITEM_RopeAttachedToATree,e_LOCATION_OUTSIDE_PIT))    
    JUMP(digging_for_gold);            ; Generic message if the ladder or rope are not present

ladder_in_hole
    DRAW_BITMAP(LOADER_SPRITE_ITEMS,BLOCK_SIZE(4,34),40,_SecondImageBuffer+25,_ImageBuffer+(40*53)+20)    ; Draw the ladder 
    END

rope_attached_to_tree
    DRAW_BITMAP(LOADER_SPRITE_ITEMS,BLOCK_SIZE(5,49),40,_SecondImageBuffer+30,_ImageBuffer+(40*38)+21)    ; Draw the rope 
    END

digging_for_gold
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,94,0,"Are they digging",0
    .byt 5,103,4,"for gold?",0
    END
.)

_gDescriptionTarmacArea
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 149,5,0,"Ashes to Ashes",0
    .byt 152,15,0,"Rust to Rust...",0
    END

_gDescriptionOldWell
    ; Is the Bucket near the Well?    
    JUMP_IF_FALSE(no_bucket,CHECK_ITEM_LOCATION(e_ITEM_Bucket,e_LOCATION_WELL))    
      DRAW_BITMAP(LOADER_SPRITE_ITEMS,BLOCK_SIZE(6,35),40,_SecondImageBuffer,_ImageBuffer+(40*86)+24)    ; Draw the Bucket 
no_bucket    
    
    ; Is the Rope near the Well?      
    JUMP_IF_FALSE(no_rope,CHECK_ITEM_LOCATION(e_ITEM_Rope,e_LOCATION_WELL))    
      DRAW_BITMAP(LOADER_SPRITE_ITEMS,BLOCK_SIZE(7,44),40,_SecondImageBuffer+7,_ImageBuffer+(40*35)+26)  ; Draw the Rope
no_rope    

    ; Then show the messages
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 111,5,0,"This well looks as old",0
    .byt 158,16,0,"as the church",0
    END

_gDescriptionWoodedAvenue
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,4,0,"These trees have probably",0
    .byt 4,14,1,"witnessed many things",0
    END

_gDescriptionGravelDrive
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,3,64
    .byt 127,86,0,"Kind of impressive",0
    .byt 143,97,0,"when seen from",0
    .byt 182,107,0,"far away",0
    END

_gDescriptionZenGarden
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,4,0,"A Japanese Zen Garden?",0
    .byt 4,15,1,"In England?",0
    END

_gDescriptionFrontLawn
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"The perfect home",0
    .byt 5,15,1,"for egomaniacs",0
    END

_gDescriptionGreenHouse
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,96,0,"Obviously for",0
    .byt 4,107,1,"Therapeutic use",34,0
    END

_gDescriptionTennisCourt
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 4,4,0,"That's more like it:",0
    .byt 4,15,0,"a proper lawn tennis court",0
    END

_gDescriptionVegetableGarden
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 134,5,0,"Not the best spot",0
    .byt 136,15,1,"to grow tomatoes",0
    END

_gDescriptionFishPond
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"Some of these fishes",0
    .byt 5,17,0,"are surprinsingly big",0
    END

_gDescriptionTiledPatio
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 93,5,0,"The house's back entrance",0
    .byt 110,15,0,"is accessible from here",0
    END

_gDescriptionAppleOrchard
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"The best kind of apples:",0
    .byt 5,17,0,"sweet, crunchy and juicy",0
    END

_gDescriptionEntranceHall
    ; Is there a dog in the entrance
    JUMP_IF_FALSE(end_dog,CHECK_ITEM_LOCATION(e_ITEM_AlsatianDog,e_LOCATION_ENTRANCEHALL))

    ; Is the dog dead?
    JUMP_IF_FALSE(dog_alive,CHECK_ITEM_FLAG(e_ITEM_AlsatianDog,ITEM_FLAG_DEAD))
      ; Draw the dead dog
      DRAW_BITMAP(LOADER_SPRITE_DOG,BLOCK_SIZE(12,27),40,_SecondImageBuffer,_ImageBuffer+(40*90)+27)    
      ; Text describing the dead dog
      WAIT(DELAY_FIRST_BUBBLE)
      .byt COMMAND_BUBBLE,2,64
      .byt 5,5,0,"Let's call that a ",0
      .byt 5,17,0,"Collateral Damage",34,0
      END
      
dog_alive
    ; Draw the Growling dog
    DRAW_BITMAP(LOADER_SPRITE_DOG,BLOCK_SIZE(13,66),40,_SecondImageBuffer+(40*61)+0,_ImageBuffer+(40*56)+26)    
    ; Text describing the growling dog
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"Of course there is a dog.",0
    .byt 5,19,0,"There's always a dog.",0
    END

end_dog
    ; Some generic message in case the dog is not there (probably not displayed right now)
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 124,5,0,"Quite an impressive",0
    .byt 187,17,0,"staircase",0
    END

_gDescriptionDogAttacking
    DRAW_BITMAP(LOADER_SPRITE_DOG,BLOCK_SIZE(21,128),40,_SecondImageBuffer+14,_ImageBuffer+(40*0)+10)    ; Draw the attacking dog
     ;
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,1,64
    .byt 5,108,0,"Oops...",0
    WAIT(50*2)                              ; Wait a couple seconds
    JUMP(_gDescriptionGameOverLost)         ; Game Over


_gDescriptionLibrary
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,86,0,"Books, fireplace, and",0
    .byt 5,97,0,"a comfortable chair",0
    END

_gDescriptionNarrowPassage
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,3,127
    .byt 5,48,0,"Either they love dark",0
    .byt 12,68,0,"or they forgot to",0
    .byt 37,90,0,"pay their",0

    .byt COMMAND_BUBBLE,1,64
    .byt 75,110,0,"bills",0
    END

_gDescriptionEntranceLounge
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"Looks like someone",0
    .byt 5,15,0,"had fun",0
    END

_gDescriptionDiningRoom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,95,0,"Two plates...",0
    .byt 5,107,0,"...good to know",0
    END

_gDescriptionGamesRoom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 142,5,0,"Top of the range",0
    .byt 164,16,0,"video system",0

    WAIT(50)

    .byt COMMAND_BUBBLE,1,64
    .byt 175,40,0,"Impressive",0
    END

_gDescriptionSunLounge
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,1,64
    .byt 112,5,0,"No rest for the weary",0
    END

_gDescriptionKitchen
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"A very basic",0
    .byt 5,16,0,"kitchen",0
    END

_gDescriptionNarrowStaircase
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,1,127
    .byt 5,5,0,"Watch your step",0
    END

_gDescriptionCellar
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,127
    .byt 75,15,0,"Is that a Franz",0
    .byt 80,25,0,"Jager safe?",0
    END

_gDescriptionDarkerCellar
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,127
    .byt 5,99,0,"The window seems",0
    .byt 5,109,0,"to be occulted",0
    END

_gDescriptionStaircase
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,3,64
    .byt 16,8,0,"Left?",0
    .byt 179,8,0,"Right?",0
    .byt 60,72,0,"does it really matter?",0
    END

_gDescriptionMainLanding
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,1,64
    .byt 47,70,0,"Nice view from up there",0
    END

_gDescriptionEastGallery
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"Boring corridor:",0
    .byt 20,17,0,"Check",0
    END

_gDescriptionChildBedroom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,96,0,"Let me guess:",0
    .byt 5,107,0,"Teenager room?",0
    END

_gDescriptionGuestBedroom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,6,0,"Simple and fresh",0
    .byt 5,17,0,"for a change",0
    END

_gDescriptionShowerRoom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 149,5,0,"I will need one",0
    .byt 152,16,0,"when I'm done",0
    END

_gDescriptionWestGallery
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,127
    .byt 85,81,0,"Is that Steel",0
    .byt 60,92,0,"behind the Curtain?",0
    END

_gDescriptionBoxRoom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"A practical",0
    .byt 5,16,0,"little room",0
    END

_gDescriptionClassyBathRoom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,1,64
    .byt 132,5,0,"Looks comfortable",0
    END

_gDescriptionTinyToilet
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,1,64
    .byt 137,5,0,"Sparklingly clean",0
    END

_gDescriptionMasterBedRoom
    ; Is there a thug in the master bedroom
    JUMP_IF_FALSE(end_thug,CHECK_ITEM_LOCATION(e_ITEM_Thug,e_LOCATION_MASTERBEDROOM))

    ; Draw the shoes at the bottom of the bed
    DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(7,15),40,_SecondImageBuffer+40*73+14,_ImageBuffer+40*112+3)       ; Shoes

    ; Is the thug alive?
    JUMP_IF_FALSE(thug_alive,CHECK_ITEM_FLAG(e_ITEM_Thug,ITEM_FLAG_DEAD))
      ; Draw the dead thug 
      DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(23,24),40,_SecondImageBuffer+0,_ImageBuffer+40*66+12)          ; Dead thug
      DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(2,27),40,_SecondImageBuffer+40*24+17,_ImageBuffer+40*90+29)    ; Arm
      DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(6,17),40,_SecondImageBuffer+40*0+24,_ImageBuffer+40*109+33)    ; Pillow on the floor
      ; Text describing the dead thug
      WAIT(DELAY_FIRST_BUBBLE)
      .byt COMMAND_BUBBLE,2,64
      .byt 5,5,0,"Let's call that a ",0
      .byt 5,17,0,"Collateral Damage",34,0
      END

thug_alive
    ; Draw the thug Sleeping
    DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(18,37),40,_SecondImageBuffer+40*91,_ImageBuffer+40*52+17)   ; Thug sleeping
    DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(8,23),40,_SecondImageBuffer+32,_ImageBuffer+40*33+30)       ; Zzzz over the head
    ; Draw the message
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"This will make things",0
    .byt 5,16,0,"notably easier...",0
    ; Should probably have a "game over" command
    END
    
end_thug    
    ; Draw the message
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"This was make things",0
    .byt 5,16,0,"notably easier...",0
    ; Should probably have a "game over" command
    .byt COMMAND_FADE_BUFFER
    END

_gDescriptionThugAttacking
    DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(18,105),40,_SecondImageBuffer+40*23+22,_ImageBuffer+(40*21)+13)    ; Draw the attacking thug
    DRAW_BITMAP(LOADER_SPRITE_THUG,BLOCK_SIZE(14,56),40,_SecondImageBuffer+40*34+0,_ImageBuffer+(40*1)+23)       ; Now You Die!
    ; Draw the message
    WAIT(50*2)                              ; Wait a couple seconds
    .byt COMMAND_BUBBLE,2,64
    .byt 5,5,0,"This was a mistake:",0
    .byt 60,16,0,"My last one",0
    WAIT(50*2)                              ; Wait a couple seconds
    JUMP(_gDescriptionGameOverLost)         ; Game Over


_gDescriptionPadlockedRoom
    WAIT(DELAY_FIRST_BUBBLE)
    .byt COMMAND_BUBBLE,4,64
    .byt 5,5,0,"Damn...",0
    .byt 125,16,0,"I will never be able",0
    .byt 131,53,0,"to pick these locks",0
    .byt 140,90,0,"fast enough!",0
    END


_gDescriptionGameOverLost
    ; Draw the 'The End' logo
    DRAW_BITMAP(LOADER_SPRITE_THE_END,BLOCK_SIZE(20,95),20,_SecondImageBuffer,_ImageBuffer+(40*16)+10)
    ; Should probably have a "game over" command
    .byt COMMAND_FADE_BUFFER
    END
_EndSceneScripts


// Scene actions
_StartSceneActions

_gSceneActionReadNewsPaper
    .byt COMMAND_FULLSCREEN_ITEM,LOADER_PICTURE_NEWSPAPER,"The Daily Telegraph, September 29th",0
    .byt COMMAND_INFO_MESSAGE,"I have to find her fast...",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"...I hope she is fine!",0
    WAIT(50*2)
    END

_gSceneActionReadHandWrittenNote
    .byt COMMAND_FULLSCREEN_ITEM,LOADER_PICTURE_HANDWRITTEN_NOTE,"A hand written note",0
    WAIT(50*2)
#ifdef LANGUAGE_FR
    .byt COMMAND_INFO_MESSAGE,"Ca pourrait être utile...",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"...si je peux y accéder !",0
#else
    .byt COMMAND_INFO_MESSAGE,"That could be useful...",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"...if I can access it!",0
#endif    
    WAIT(50*2)
    END

_gSceneActionReadChemistryRecipes
    .byt COMMAND_FULLSCREEN_ITEM,LOADER_PICTURE_CHEMISTRY_RECIPES,"A few useful recipes",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"I can definitely use these...",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"...just need to find the materials.",0
    WAIT(50*2)
    END

_gSceneActionReadChemistryBook
    .byt COMMAND_FULLSCREEN_ITEM,LOADER_PICTURE_SCIENCE_BOOK,"A science book",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"I don't understand much...",0
    WAIT(50*2)
    .byt COMMAND_INFO_MESSAGE,"...but looks like someone took notes.",0
    WAIT(50*2)
    END

_gSceneActionInspectMap
    .byt COMMAND_FULLSCREEN_ITEM,LOADER_PICTURE_UK_MAP,"A map of the United Kingdom",0
    .byt COMMAND_INFO_MESSAGE,"It shows Ireland, Wales and England",0
    WAIT(50*2)
    END

_EndSceneActions


_EndGameTextData

;
; Print statistics about the size of things
;
#print Total size of game text content = (_EndGameTextData - _StartGameTextData)
#print - Messages and prompts = (_EndMessagesAndPrompts - _StartMessagesAndPrompts)
#print - Error messages = (_EndErrorMessages - _StartErrorMessages)
#print - Location names = (_EndLocationNames - _StartLocationNames)
#print - Item names = (_EndItemNames - _StartItemNames)
#print - Scene scripts = (_EndSceneScripts - _StartSceneScripts)
#print - Scene actions = (_EndSceneActions - _StartSceneActions)

