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

climb: can now fall from upper levels

Browse Source
This commit is contained in:
Vince Weaver 2024-09-14 12:35:16 -04:00
parent 2f8e6163f8
commit e4ae83c773
2 changed files with 31 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
games/peasant_mini/cliff/climb.s
View File

@ -407,7 +407,7 @@ flame_good:
jsr check_keyboard
lda LEVEL_OVER
bne top_cliff
bne cliff_reload_bg
; delay
@ -416,9 +416,7 @@ flame_good:
jmp game_loop
top_cliff:
inc MAP_LOCATION
cliff_reload_bg:
jsr load_graphics
lda #0

31
games/peasant_mini/cliff/move_peasant_climb.s
View File

@ -1,5 +1,6 @@
; Move that Peasant!
; climbing edition
; note: left/right across screen is roughly 24 keypresses
; width on Apple II roughly 30 across
@ -27,8 +28,29 @@ peasant_falling:
jsr erase_peasant
; FIXME: if not on screen0
; falling, see if hit bottom
;
lda MAP_LOCATION
beq check_falling_hit_ground
; otherwise see if hit bottom of screen
lda PEASANT_Y
cmp #180
bcc move_falling_peasant
; new screen
dec MAP_LOCATION
lda #12 ; move back to top of screen
sta PEASANT_Y
lda #$FF
sta LEVEL_OVER
jmp done_falling_peasant
check_falling_hit_ground:
lda PEASANT_Y
cmp #115
@ -202,13 +224,18 @@ peasant_y_toobig:
;============================
; move up over top of screen
peasant_y_negative:
; jsr move_map_north
lda #$FF
sta LEVEL_OVER
inc MAP_LOCATION
; FIXME: if high enough, we won
; in the coach Z version, increase score
lda #158 ; new Y location
jmp done_movey