SCREEN_BOT = 0
PAL_ISAAC = 0
PAL_NINA = 1

function waitForStylus()
x = 0
while x == 0 do
if Stylus.Down() then
x = 1
end
end
end

function DSLua.ProgressiveString(progstr,coloredwut,screenwhich,delaybetweeneach,xvl,yvl)
for current_position = 1, string.len( progstr ) do
current_char = string.sub( progstr, current_position, current_position )
if screenwhich == 0 then
BGBotText:SetColor(coloredwut)
BGBotText:PrintXY( xvl, yvl, current_char )
end
if screenwhich == 1 then
BGTopText:SetColor(coloredwut)
BGTopText:PrintXY( xvl, yvl, current_char )
end
if screenwhich == 2 then
BGBotText:SetColor(coloredwut)
BGTopText:SetColor(coloredwut)
BGBotText:PrintXY( xvl, yvl, current_char )
BGTopText:PrintXY( xvl, yvl, current_char )
end
for delay = 1, delaybetweeneach do end
xvl = xvl + 1
if xvl == 32 then xvl = 0 yvl = yvl + 1
end
end
end

BGBotMap = Screen.LoadTileBG()
BGBotMap:LoadPalette( "actionbg.pal" )
BGBotMap:LoadTiles( "actionbg.raw", 256 )
BGBotMap:LoadMap( "actionbg.map", ( 256/8 ), ( 192/8 ))
BGBotText = Screen.LoadTextBG()
Screen.Initialize( 0, BGBotText, BGBotMap )
Screen.WaitForVBL()

Sprite.LoadPalette( 0, 0, "Isaac.pal" )
Sprite.LoadPalette( 0, 1, "Nina.pal" )

IsaacFrames  = FrameStrip.Create( 0, 64, 64, "256" )
NinaFrames  = FrameStrip.Create( 0, 64, 64, "256" )

IsaacFrames:LoadBin( "Isaac.raw", 1 )
NinaFrames:LoadBin( "Nina.raw", 1 )

while true do

if Stylus.Down() then
Isaac  = Sprite.Create( IsaacFrames, 0, 0, 190, 126 )
Nina  = Sprite.Create( NinaFrames, 0, 1, 2, 2 )
    DSLua.ProgressiveString("Nina:",1,0,5000,9,1)
    DSLua.ProgressiveString("Bonjour Isaac^^",0,0,5000,15,1)
    DSLua.ProgressiveString("Comment vas tu ?",0,0,5000,9,2)
    DSLua.ProgressiveString("Isaac:",3,0,5000,0,16)
    DSLua.ProgressiveString("Nina, pourquoi es",0,0,5000,6,16)
    DSLua.ProgressiveString("tu venu me voir ?",0,0,5000,0,17)
    DSLua.ProgressiveString("Je t'avais dis non..",0,0,5000,0,18)
    DSLua.ProgressiveString("Jamais je ne pourrais...",0,0,5000,9,3)
  DSLua.ProgressiveString("Pourtant il le faudra.",0,0,5000,0,19)
DSLua.ProgressiveString("Jamais tu entends..8-(",0,0,5000,9,4)
end
end

function DSLua.ProgressiveString(progstr,coloredwut,screenwhich,delaybetweeneach,xvl,yvl)

DSLua.ProgressiveText()