function England()
BGTopMap = Screen.LoadTileBG()
BGBotMap = Screen.LoadTileBG()
BGBotText = Screen.LoadTextBG()
BGTopText = Screen.LoadTextBG()
Sprite.LoadPalette( 1, 0, "angd.pal" )
AngdFrames = FrameStrip.Create( SCREEN_TOP, 32, 16, "256" )
AngdFrames:LoadBin( "angd.raw",1 )
BGTopMap:LoadPalette( "match.pal" )
BGTopMap:LoadTiles( "match.raw", 256 )
BGTopMap:LoadMap( "match.map", ( 256/8 ), ( 192/8 ))
Screen.Initialize( 1, BGTopText, BGTopMap )
BGTopText:SetColor( 9 )
BGTopText:PrintXY( 11, 2, "ANGLETERRE" )
BGTopText:PrintXY( 1, 5, "Le XV de la Rose" )
BGTopText:PrintXY( 1, 6, "Fondé en 1871" )
BGTopText:PrintXY( 1, 7, "Poule: D" )
BGTopText:SetColor( 3 )
BGTopText:PrintXY( 1, 9, "Palmarés Coupe du monde:" )
BGTopText:SetColor( 9 )
BGTopText:PrintXY( 2, 11, "1987: Quart de finaliste" )
BGTopText:PrintXY( 2, 12, "1991: Finaliste (2e)" )
BGTopText:PrintXY( 2, 13, "1995: Demi-finaliste (4e)" )
BGTopText:PrintXY( 2, 14, "1999: Quart de finaliste" )
BGTopText:SetColor( 3 )
BGTopText:PrintXY( 1, 16, "Matchs:" )
BGTopText:SetColor( 9 )
BGTopText:PrintXY( 2, 18, "08/09:Angleterre - Etats Unis" )
BGTopText:PrintXY( 2, 19, "14/09:Angleterre - Afr.du Sud" )
BGTopText:PrintXY( 2, 20, "22/09:Angleterre - Samoa" )
BGTopText:PrintXY( 2, 21, "28/09:Angleterre - Tonga" )
BGBotMap:LoadPalette( "match.pal" )
BGBotMap:LoadTiles( "match.raw", 256 )
BGBotMap:LoadMap( "match.map", ( 256/8 ), ( 192/8 ))
Screen.Initialize( 0, BGBotText, BGBotMap )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 11, 2, "EFFECTIF" )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 5, "Arrière:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 10, 5, "Abendanon, Lewsey," )
BGBotText:PrintXY( 1, 6, "Morgan, Robinson." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 7, "3/4 Aile:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 11, 7, "Cueto, Sackey," )
BGBotText:PrintXY( 1, 8, "Strettle." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 9, "3/4 Centre:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 13, 9, "Catt, Farrell," )
BGBotText:PrintXY( 1, 10, "Hipkiss, Noon, Tait, Tindall," )
BGBotText:PrintXY( 1, 11, "Waters." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 12, "Demi d'ouverture:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 19, 12, "Flood," )
BGBotText:PrintXY( 1, 13, "Geraghty, Hodgson, Perry," )
BGBotText:PrintXY( 1, 14, "Wilkinson." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 15, "3eme ligne:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 13, 15, "Corry, Dallaglio," )
BGBotText:PrintXY( 1, 16, "Easter, Regan." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 17, "2eme ligne:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 13, 17, "Borthwick, Kay," )
BGBotText:PrintXY( 1, 18, "Palmer." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 19, "Talonneur:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 12, 19, "Chuter." )
BGBotText:SetColor( 3 )
BGBotText:PrintXY( 1, 20, "Pilier:" )
BGBotText:SetColor( 9 )
BGBotText:PrintXY( 9, 20, "Freshwater, Mears," )
BGBotText:PrintXY( 1, 21, "Sheridan, Stevens, Vickery," )
BGBotText:PrintXY( 1, 22, "Yates." )
Screen.WaitForVBL()
Angd = Sprite.Create( AngdFrames,0,0,9,10 )
local continueProgram = true
while continueProgram do
if Stylus.Down() then
delaySeconds(2)
Screen.ResetAll()
PA()
end
end
end
Why when I touch the screen with my stylus ,It don't go to function PA() ?
