Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-24 12:29:29 +00:00
Code Issues Projects Releases Wiki Activity

peasant: can sorta walk around

Browse Source
This commit is contained in:
Vince Weaver 2021-08-15 01:19:26 -04:00
parent 56ace09b86
commit 361b623763
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
games/peasant/peasant.s
View File

@ -90,6 +90,7 @@ peasant_quest:
; draw initial peasant
jsr save_bg_7x30
jsr draw_peasant
game_loop:
@ -102,6 +103,12 @@ game_loop:
; restore bg behind peasant
lda PEASANT_X
sta CURSOR_X
lda PEASANT_Y
sta CURSOR_Y
jsr restore_bg_7x30
; move peasant
@ -136,6 +143,12 @@ done_movex:
; save behind new position
lda PEASANT_X
sta CURSOR_X
lda PEASANT_Y
sta CURSOR_Y
jsr save_bg_7x30
; draw peasant
@ -154,6 +167,13 @@ peasant_the_same:
lda GAME_OVER
bne game_over
; delay
lda #200
jsr WAIT
jmp game_loop
@ -181,17 +201,21 @@ key_was_pressed:
and #$7f ; strip off high bit
check_left:
cmp #$8
beq left_pressed
cmp #'A'
bne check_right
left_pressed:
lda #$FF ; move left
sta PEASANT_XADD
jmp done_check_keyboard
check_right:
cmp #$15
beq right_pressed
cmp #'D'
bne check_up
right_pressed:
lda #$1
sta PEASANT_XADD
jmp done_check_keyboard