Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-06 06:30:36 +00:00
Code Issues Projects Releases Wiki Activity

ootw: add swaying plant

Browse Source 
not 100% happy with this
This commit is contained in:
Vince Weaver 2019-01-16 23:50:32 -05:00
parent 17258bfb94
commit c3b36946b0
2 changed files with 56 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ootw/ootw.s
View File

@ -67,12 +67,16 @@ ootw:
lda #0 lda #0
sta GAIT sta GAIT
;============================
; Main Loop
;============================
game_loop: game_loop:
; check keyboard ; check keyboard
jsr handle_keypress jsr handle_keypress
;================================
; copy background to current page ; copy background to current page
jsr gr_copy_to_current jsr gr_copy_to_current
@ -143,22 +147,32 @@ game_loop:
jsr put_sprite jsr put_sprite
;===============
; draw physicist ; draw physicist
jsr draw_physicist jsr draw_physicist
;===============
; draw slugs ; draw slugs
jsr draw_slugs jsr draw_slugs
; draw foreground ;======================
; draw foreground plant
lda #>foreground_plant lda FRAMEL
sta INH and #$c0 ; 0110 1100
lda #<foreground_plant lsr
lsr
lsr
lsr
lsr
tax
lda plant_wind,X
sta INL sta INL
lda plant_wind+1,X
sta INH
lda #4 lda #4
sta XPOS sta XPOS

50
ootw/ootw_sprites.inc
View File

@ -104,21 +104,43 @@ phys_walk_left7:
;======================= ;=======================
; scenery ; scenery
foreground_plant: plant_wind:
.byte $5,$5 .word plant1
.byte $aa,$00,$aa,$aa,$aa .word plant2
.byte $aa,$a0,$0a,$aa,$aa .word plant3
.byte $aa,$aa,$00,$aa,$aa .word plant4
.byte $0a,$0a,$00,$aa,$0a
.byte $aa,$aa,$00,$aa,$00
foreground_plant2: plant1:
.byte $5,$5 .byte $4,$5
.byte $aa,$00,$aa,$aa,$aa .byte $aa,$00,$aa,$aa
.byte $aa,$a0,$0a,$aa,$aa .byte $aa,$00,$aa,$aa
.byte $aa,$aa,$00,$aa,$aa .byte $aa,$00,$aa,$aa
.byte $0a,$0a,$00,$aa,$0a .byte $aa,$00,$aa,$00
.byte $aa,$aa,$00,$aa,$00 .byte $aa,$00,$aa,$00
plant2:
.byte $4,$5
.byte $a0,$0a,$aa,$aa
.byte $aa,$00,$aa,$aa
.byte $aa,$00,$aa,$aa
.byte $aa,$00,$aa,$00
.byte $aa,$00,$aa,$00
plant3:
.byte $4,$5
.byte $00,$aa,$aa,$aa
.byte $a0,$0a,$aa,$aa
.byte $aa,$00,$aa,$aa
.byte $aa,$00,$aa,$00
.byte $aa,$00,$aa,$00
plant4:
.byte $4,$5
.byte $00,$aa,$aa,$aa
.byte $aa,$00,$aa,$aa
.byte $aa,$00,$aa,$aa
.byte $aa,$00,$aa,$00
.byte $aa,$00,$aa,$00
pool_ripples: pool_ripples: