loadtiles tiledata_mario, 4, 300
 loadtiles tiledata_marioj, 4, 304
 loadtiles tiledata_mariof, 4, 308
 loadtiles tiledata_marior1, 4, 312
 loadtiles tiledata_marior2, 4, 316
 loadtiles tiledata_marior3, 4, 320
 loadtiles tiledata_beam, 1, 400
 palettes pallettedata_mario, 0, 0, 16

tiledata_mario:
	DATALONG	$00000222	' Tile #0
	DATALONG	$00002222
	DATALONG	$00003334
	DATALONG	$00034344
	DATALONG	$00034334
	DATALONG	$00033444
	DATALONG	$00000444
	DATALONG	$00003323
	DATALONG	$00033323	' Tile #1
	DATALONG	$00333322
	DATALONG	$00443242
	DATALONG	$00444222
	DATALONG	$00442222
	DATALONG	$00002220
	DATALONG	$00033300
	DATALONG	$00333300
	DATALONG	$22000000	' Tile #2
	DATALONG	$22222000
	DATALONG	$43400000
	DATALONG	$43444000
	DATALONG	$44344400
	DATALONG	$43333000
	DATALONG	$44440000
	DATALONG	$33000000
	DATALONG	$32333000	' Tile #3
	DATALONG	$22333300
	DATALONG	$24234400
	DATALONG	$22244400
	DATALONG	$22224400
	DATALONG	$02220000
	DATALONG	$00333000
	DATALONG	$00333300

tiledata_marioj:
	DATALONG	$00000000	' Tile #0
	DATALONG	$00000022
	DATALONG	$00000222
	DATALONG	$00000333
	DATALONG	$00003434
	DATALONG	$00003433
	DATALONG	$00003344
	DATALONG	$00000044
	DATALONG	$00333332	' Tile #1
	DATALONG	$03333333
	DATALONG	$44333333
	DATALONG	$44402232
	DATALONG	$04032222
	DATALONG	$00333222
	DATALONG	$03332222
	DATALONG	$03002222
	DATALONG	$00000444	' Tile #2
	DATALONG	$22200444
	DATALONG	$22222244
	DATALONG	$44340333
	DATALONG	$44344333
	DATALONG	$44434443
	DATALONG	$44333330
	DATALONG	$44444300
	DATALONG	$33323000	' Tile #3
	DATALONG	$23332003
	DATALONG	$22222003
	DATALONG	$24224233
	DATALONG	$22222233
	DATALONG	$22222233
	DATALONG	$22200000
	DATALONG	$00000000

tiledata_mariof:
	DATALONG	$00000000	' Tile #0
	DATALONG	$00000222
	DATALONG	$00000322
	DATALONG	$00003333
	DATALONG	$00003333
	DATALONG	$00000444
	DATALONG	$00033233
	DATALONG	$00333233
	DATALONG	$03332233	' Tile #1
	DATALONG	$43322223
	DATALONG	$44422222
	DATALONG	$00022222
	DATALONG	$00022222
	DATALONG	$00022220
	DATALONG	$00002222
	DATALONG	$00033333
	DATALONG	$00000000	' Tile #2
	DATALONG	$22200000
	DATALONG	$22300000
	DATALONG	$33330000
	DATALONG	$33330000
	DATALONG	$44400000
	DATALONG	$33233000
	DATALONG	$33233300
	DATALONG	$33223330	' Tile #3
	DATALONG	$32222334
	DATALONG	$22222444
	DATALONG	$22222000
	DATALONG	$22222000
	DATALONG	$02222000
	DATALONG	$22220000
	DATALONG	$33333000

tiledata_marior1:
	DATALONG	$00000222	' Tile #0
	DATALONG	$00002222
	DATALONG	$00003334
	DATALONG	$00034344
	DATALONG	$00034334
	DATALONG	$00033444
	DATALONG	$00000444
	DATALONG	$00333322
	DATALONG	$44333322	' Tile #1
	DATALONG	$44403324
	DATALONG	$44002222
	DATALONG	$00022222
	DATALONG	$00222222
	DATALONG	$03322200
	DATALONG	$03330000
	DATALONG	$00333000
	DATALONG	$22000000	' Tile #2
	DATALONG	$22222000
	DATALONG	$43400000
	DATALONG	$43444000
	DATALONG	$44344400
	DATALONG	$43333000
	DATALONG	$44440000
	DATALONG	$33000000
	DATALONG	$23334440	' Tile #3
	DATALONG	$22233440
	DATALONG	$22200300
	DATALONG	$22223300
	DATALONG	$22223300
	DATALONG	$02223300
	DATALONG	$00000000
	DATALONG	$00000000

tiledata_marior2:
	DATALONG	$00000222	' Tile #0
	DATALONG	$00002222
	DATALONG	$00003334
	DATALONG	$00034344
	DATALONG	$00034334
	DATALONG	$00033444
	DATALONG	$00000444
	DATALONG	$00003323
	DATALONG	$00033332	' Tile #1
	DATALONG	$00033322
	DATALONG	$00033332
	DATALONG	$00023344
	DATALONG	$00002344
	DATALONG	$00000222
	DATALONG	$00000333
	DATALONG	$00000333
	DATALONG	$22000000	' Tile #2
	DATALONG	$22222000
	DATALONG	$43400000
	DATALONG	$43444000
	DATALONG	$44344400
	DATALONG	$43333000
	DATALONG	$44440000
	DATALONG	$33000000
	DATALONG	$23300000	' Tile #3
	DATALONG	$42240000
	DATALONG	$22220000
	DATALONG	$42220000
	DATALONG	$22200000
	DATALONG	$33300000
	DATALONG	$33330000
	DATALONG	$30000000

tiledata_marior3:
	DATALONG	$00000000	' Tile #0
	DATALONG	$00000022
	DATALONG	$00000222
	DATALONG	$00000333
	DATALONG	$00003434
	DATALONG	$00003433
	DATALONG	$00003344
	DATALONG	$00000044
	DATALONG	$00000333	' Tile #1
	DATALONG	$00004333
	DATALONG	$00044233
	DATALONG	$00033222
	DATALONG	$00032222
	DATALONG	$00332220
	DATALONG	$00300003
	DATALONG	$00000003
	DATALONG	$00000000	' Tile #2
	DATALONG	$22200000
	DATALONG	$22222200
	DATALONG	$44340000
	DATALONG	$44344400
	DATALONG	$44434440
	DATALONG	$44333300
	DATALONG	$44444000
	DATALONG	$32304000	' Tile #3
	DATALONG	$33344400
	DATALONG	$33344000
	DATALONG	$22220000
	DATALONG	$22220000
	DATALONG	$22200000
	DATALONG	$33000000
	DATALONG	$33300000

tiledata_beam:
	DATALONG	$11111111	' Tile #0
	DATALONG	$66666666
	DATALONG	$00555000
	DATALONG	$05505500
	DATALONG	$55000550
	DATALONG	$50000055
	DATALONG	$66666666
	DATALONG	$55555555


pallettedata_mario:
	DATAINT	$0000,$064E,$022A,$0066,$028E,$0408,$040A,$0000




 s=addsprite(2,2)
 propsprite s,300,0
 sx=200
 sy=200
 lastSX = 0
 lastSY = 0
 height = 200
 faceLeft = 0
 jumpcount = 0
 fallcount = 0
 dropCount = 0
 runRCount = 0
 runLCount = 0
 do

 movesprite s,sx+128, sy+128
 lastSX = sx
 lastSY = sy

 if jumpcount = 11 then
  fallcount = 1
  if fallcount = 1 then
   if sy < height then
    sy = sy + 1
    fallcount = 2
   else
    fallcount = 1
    jumpcount = 0
   endif
  endif
  if fallcount = 2 then
   if sy < height then
    sy = sy + 2
   else
    fallcount = 1
    jumpcount = 0
   endif
  endif

  if sy = height then
   jumpcount = 0
   if faceLeft = 0 then propsprite s,300,0
   if faceLeft = 1 then propsprite s,300+hfliptile(1),0
  endif
 endif

 'Move routine for when Mario moves up when jumping
 if jumpcount = 10 then
  sy = sy - 1
  jumpcount = 11
 endif

 if jumpcount = 9 then
  sy = sy - 1
  jumpcount = 10
 endif

 if jumpcount = 8 then
  sy = sy - 1
  jumpcount = 9
 endif

 if jumpcount = 7 then
  sy = sy - 1
  jumpcount = 8
 endif

 if jumpcount = 6 then
  sy = sy - 1
  jumpcount = 7
 endif

 if jumpcount = 5 then
  sy = sy - 2
  jumpcount = 6
 endif

 if jumpcount = 4 then
  sy = sy - 5
  jumpcount = 5
 endif

 if jumpcount = 3 then
  sy = sy - 7
  jumpcount = 4
 endif

 if jumpcount = 2 then
  sy = sy - 8
  jumpcount = 3
 endif

 if jumpcount = 1 then
  if faceLeft = 0 then propsprite s,304,0
  if faceLeft = 1 then propsprite s,304+hfliptile(1),0
  sy = sy - 9
  jumpcount = 2
 endif
 'End of move routine when Mario moves up when jumping


 'If Mario isn't jumping or falling
 if jumpcount = 0 then
  if joypad().2 then
   faceLeft = 1
   sx--
   if runLCount = 18 then runLCount = 0
   if runLCount < 18 then
    runLCount++
    propsprite s,320+hfliptile(1),0
   endif
   if runLCount < 12 then
    runLCount++
    propsprite s,316+hfliptile(1),0
   endif
   if runLCount < 6 then
    runLCount++
    propsprite s,312+hfliptile(1),0
   endif
  endif
  if joypad().3 then
   propsprite s,312+hfliptile(0),0
   faceLeft = 0
   sx++
   if runRCount = 24 then runRCount = 0
   if runRCount < 24 then
    runRCount++
    propsprite s,320+hfliptile(0),0
   endif
   if runRCount < 16 then
    runRCount++
    propsprite s,316+hfliptile(0),0
   endif
   if runRCount < 8 then
    runRCount++
    propsprite s,312+hfliptile(0),0
   endif
  endif
  if jumpcount = 0 then
   if joypad().4 then jumpcount = 1
  endif
 'If Mario is juming or falling
 else
  if joypad().2 then
   sx--
  endif
  if joypad().3 then
   sx++
  endif
 endif

 'If Mario didn't move he will stand still.
 if lastSX = sx then
  if lastSY = sy then
   if faceLeft = 0 then propsprite s,300,0
   if faceLeft = 1 then propsprite s,300+hfliptile(1),0
    'If Mario is about to climb a ladder
    if joypad().0 then
     propsprite s,308,0
    endif
  endif
 endif


 if sx > 272 then
  if sy = 200 then dropCount = 1

 endif


 if dropCount = 2 then
  sy = sy + 2
 endif

 if dropCount = 1 then
  sy++
  dropCount = 2
 endif


 drawtile 400, 1,27
 drawtile 400, 2,27
 drawtile 400, 3,27
 drawtile 400, 4,27
 drawtile 400, 5,27
 drawtile 400, 6,27
 drawtile 400, 7,27
 drawtile 400, 8,27
 drawtile 400, 9,27
 drawtile 400, 10,27
 drawtile 400, 11,27
 drawtile 400, 12,27
 drawtile 400, 13,27
 drawtile 400, 14,27
 drawtile 400, 15,27
 drawtile 400, 16,27
 drawtile 400, 17,27
 drawtile 400, 18,27
 drawtile 400, 19,27
 drawtile 400, 20,27
 drawtile 400, 21,27
 drawtile 400, 22,27
 drawtile 400, 23,27
 drawtile 400, 24,27
 drawtile 400, 25,27
 drawtile 400, 26,27
 drawtile 400, 27,27
 drawtile 400, 28,27
 drawtile 400, 29,27
 drawtile 400, 30,27
 drawtile 400, 31,27
 drawtile 400, 32,27
 drawtile 400, 33,27
 drawtile 400, 34,27

 drawtile 400, 1,21
 drawtile 400, 2,21
 drawtile 400, 3,21
 drawtile 400, 4,21
 drawtile 400, 5,21
 drawtile 400, 6,21
 drawtile 400, 7,21
 drawtile 400, 8,21
 drawtile 400, 9,21
 drawtile 400, 10,21
 drawtile 400, 11,21
 drawtile 400, 12,21
 drawtile 400, 13,21
 drawtile 400, 14,21
 drawtile 400, 15,22
 drawtile 400, 16,22
 drawtile 400, 17,22
 drawtile 400, 18,22
 drawtile 400, 19,22
 drawtile 400, 20,22
 drawtile 400, 21,22
 drawtile 400, 22,22
 drawtile 400, 23,22
 drawtile 400, 24,22
 drawtile 400, 25,22
 drawtile 400, 26,22
 drawtile 400, 27,22
 drawtile 400, 28,22
 drawtile 400, 29,22
 drawtile 400, 30,22
 drawtile 400, 31,22
 drawtile 400, 32,22
 drawtile 400, 33,22
 drawtile 400, 34,24
 drawtile 400, 35,24
 drawtile 400, 36,24

 ink = 4



 sleep 1

 loop