bg = Image.load("BG.jpg")
walking = {Image.load("HMR/r1.png"),Image.load("HMR/r2.png"),Image.load("HMR/r3.png"),Image.load("HMR/r4.png"),Image.load("HMR/r5.png"),Image.load("HMR/r6.png"),Image.load("HMR/r7.png"),Image.load("HMR/r8.png")}
walkleft = {Image.load("HML/l1.png"),Image.load("HML/l2.png"),Image.load("HML/l3.png"),Image.load("HML/l3.png")}
r0 = Image.load("HMR/r0.png")
player_x = 5
walk_num = 1
walk_numl = 1
action = "stand"
walk_delay = 0
walk_delayl = 0

function player_action()
 	--walk
	if action == "walk" then
		walk_delay = walk_delay + 1
		screen:blit(player_x,178, walking[walk_num],true)
		if walk_delay == 8 then
			walk_delay = 0
			walk_num = walk_num + 1
		end
	 	if walk_num > table.getn(walking) then 
			walk_num = 1
		end
	end
	--walkl
	if action == "walkl" then
		walk_delayl = walk_delayl + 1
		screen:blit(player_x,178,walkleft[walk_numl],true)
		if walk_delayl == 8 then
			walk_delayl = 0
			walk_numl = walk_numl + 1
		end
		if walk_numl > table.getn(walkleft) then 
			walk_numl = 1 
		end
	end
	--stand
	if action == "stand" then
 		screen:blit(player_x,178, r0,true)
	end
end

while true do
	screen:clear()
	pad = Controls.read()
	if pad:right() then
		if action == "walk" then
			player_x = player_x + 1 
		end
		action = "walk"
	end
	if pad:left() then
		if action == "walkl" then
			player_x = player_x -1
		end
		action = "walkl"
	end
  	while not pad:right() and action == "walk" do
		action = "stand"
		break
	end
	while not pad:left() and action == "walkl" do
		action = "stand"
		break
	end
	if player_x > 457 then player_x = 457 end
	if player_x < 3 then player_x = 3 end
	screen:blit(0, 0, bg, 0, 0, bg:width(), bg:height(), false)
	player_action()
	screen.flip()
	screen.waitVblankStart()
 end