AppTitle "run"
Graphics 320,240,16
SetBuffer BackBuffer()
Global bg,chara,cx,cy
bg = LoadImage("bg.png")
chara = LoadAnimImage("chara.png",24,32,0,12)
cx = 2
cy = 6
frametimer = CreateTimer(60)
MaskImage(chara,40,152,0)

Function hero_coor(x$)
 If x$ = "x"
  Return cx * 16 - 20
 ElseIf x$ = "y"
  Return cy * 16 - 32
 EndIf
End Function

Function background()
 For x = 0 To 320 Step 32
  For y = 0 To 240 Step 32
   DrawBlock(bg,x,y)
  Next
 Next
End Function

Repeat

 Cls

 If KeyDown(208) And cy < 15
 

  For x=1 To 3
   frametimer = CreateTimer(20)
   WaitTimer(frametimer)
   If x = 1
    Cls
     background()
     DrawImage(chara,hero_coor("x"),hero_coor("y")+4,6)
    Flip
   ElseIf x = 2
    Cls
     background()
     DrawImage(chara,hero_coor("x"),hero_coor("y")+8,8)
    Flip
   Else
    Cls
     background()
     DrawImage(chara,hero_coor("x"),hero_coor("y")+12,7)
    Flip
   EndIf
  Next

  cy = cy + 1

 Else

  background()
  DrawImage(chara,hero_coor("x"),hero_coor("y"),7)
  Flip

 EndIf

Until KeyDown(1)
End