;============================
	; draw peasant
	;============================
draw_peasant:
	lda	PEASANT_X
	sta	CURSOR_X
	lda	PEASANT_Y
	sta	CURSOR_Y

	lda	PEASANT_DIR
	cmp	#PEASANT_DIR_RIGHT
	beq	peasant_right

	;=====================
	; up up up up
peasant_up:

	lda	FRAME
	and	#1
	beq	peasant_up1


peasant_up2:
	lda	#<peasant_up2_sprite
	sta	INL
	lda	#>peasant_up2_sprite
	jmp	done_pick_draw

peasant_up1:
	lda	#<peasant_up1_sprite
	sta	INL
	lda	#>peasant_up1_sprite
	jmp	done_pick_draw


peasant_right:
	lda	CURSOR_X
	and	#1
	bne	draw_right1

draw_right2:
	lda	#<peasant_right2_sprite
	sta	INL
	lda	#>peasant_right2_sprite
	jmp	done_pick_draw

draw_right1:
	lda	#<peasant_right1_sprite
	sta	INL
	lda	#>peasant_right1_sprite

done_pick_draw:
	sta	INH

	jsr	hgr_draw_sprite_7x30

	rts


.include "sprites/peasant_sprite.inc"