mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-26 11:30:12 +00:00
cliff: split off climb
This commit is contained in:
Vince Weaver
parent
911b6b7d09
commit
e1d02e018d
@ -12,10 +12,11 @@ all: cliff.dsk
|
||||
|
||||
####
|
||||
|
||||
cliff.dsk: HELLO CLIFF
|
||||
cliff.dsk: HELLO CLIFF CLIMB
|
||||
cp $(EMPTY_DISK) cliff.dsk
|
||||
$(DOS33) -y cliff.dsk SAVE A HELLO
|
||||
$(DOS33) -y cliff.dsk BSAVE -a 0x6000 CLIFF
|
||||
$(DOS33) -y cliff.dsk BSAVE -a 0x6000 CLIMB
|
||||
|
||||
###
|
||||
|
||||
@ -38,10 +39,25 @@ cliff.o: cliff.s zx02_optim.s \
|
||||
zp.inc hardware.inc \
|
||||
walking_sprites.zx02
|
||||
ca65 -o cliff.o cliff.s -l cliff.lst
|
||||
|
||||
####
|
||||
|
||||
CLIMB: climb.o
|
||||
ld65 -o CLIMB climb.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
|
||||
|
||||
climb.o: climb.s zx02_optim.s \
|
||||
move_peasant.s draw_peasant.s \
|
||||
hgr_copy.s hgr_partial_restore.s \
|
||||
hgr_sprite.s hgr_sprite_bg_mask.s \
|
||||
random16.s \
|
||||
cliff_graphics/cliff_base.hgr.zx02 \
|
||||
sprites/enemy_sprites.inc \
|
||||
zp.inc hardware.inc \
|
||||
walking_sprites.zx02
|
||||
ca65 -o climb.o climb.s -l climb.lst
|
||||
|
||||
####
|
||||
|
||||
# sprites/walk_sprites.inc \
|
||||
# sprites/flame_sprites.inc \
|
||||
|
||||
walking_sprites.zx02: walking_sprites
|
||||
$(ZX02) -f walking_sprites walking_sprites.zx02
|
||||
@ -67,6 +83,6 @@ sprites/enemy_sprites.inc:
|
||||
####
|
||||
|
||||
clean:
|
||||
rm -f *.lst *.o CLIFF HELLO walking_sprites *.zx02
|
||||
rm -f *.lst *.o CLIFF CLIMB HELLO walking_sprites *.zx02
|
||||
cd cliff_graphics && make clean
|
||||
cd sprites && make clean
|
||||
|
||||
539
games/peasant_mini/cliff/climb.s
Normal file
539
games/peasant_mini/cliff/climb.s
Normal file
@ -0,0 +1,539 @@
|
||||
; Cliff climb minigame from Peasant's Quest
|
||||
;
|
||||
; Yet Another HR project
|
||||
;
|
||||
; by deater (Vince Weaver) <vince@deater.net>
|
||||
|
||||
|
||||
.include "zp.inc"
|
||||
.include "hardware.inc"
|
||||
|
||||
;div7_table = $400
|
||||
;mod7_table = $500
|
||||
;hposn_high = $600
|
||||
;hposn_low = $700
|
||||
|
||||
div7_table = $b800
|
||||
mod7_table = $b900
|
||||
hposn_high = $ba00
|
||||
hposn_low = $bb00
|
||||
|
||||
cliff_base:
|
||||
|
||||
;===================
|
||||
; set graphics mode
|
||||
;===================
|
||||
jsr HOME
|
||||
|
||||
bit HIRES
|
||||
bit FULLGR
|
||||
bit SET_GR
|
||||
bit PAGE1
|
||||
|
||||
lda #0
|
||||
sta LEVEL_OVER
|
||||
sta FRAME
|
||||
sta PEASANT_XADD
|
||||
sta PEASANT_YADD
|
||||
sta PEASANT_DIR ; 0 = up
|
||||
sta ERASE_SPRITE_COUNT
|
||||
sta PEASANT_STEPS
|
||||
sta FLAME_COUNT
|
||||
|
||||
lda #10
|
||||
sta PEASANT_X
|
||||
lda #100
|
||||
sta PEASANT_Y
|
||||
|
||||
; default for peasant quest is the tables are for page2
|
||||
lda #$40
|
||||
sta HGR_PAGE
|
||||
jsr hgr_make_tables
|
||||
|
||||
;========================
|
||||
; Load Priority graphics
|
||||
;========================
|
||||
|
||||
lda #<priority_data
|
||||
sta ZX0_src
|
||||
lda #>priority_data
|
||||
sta ZX0_src+1
|
||||
|
||||
lda #$20 ; temporarily load to $2000
|
||||
|
||||
jsr full_decomp
|
||||
|
||||
; copy to $400
|
||||
|
||||
jsr gr_copy_to_page1
|
||||
|
||||
|
||||
|
||||
;=============================
|
||||
|
||||
|
||||
;==========================
|
||||
; Load Background Graphics
|
||||
;===========================
|
||||
|
||||
load_image:
|
||||
|
||||
lda #<bg_data
|
||||
sta ZX0_src
|
||||
lda #>bg_data
|
||||
sta ZX0_src+1
|
||||
|
||||
|
||||
lda #$20
|
||||
|
||||
jsr full_decomp
|
||||
|
||||
jsr hgr_copy ; copy to page2
|
||||
|
||||
bit PAGE2
|
||||
|
||||
|
||||
|
||||
;========================
|
||||
; Load Peasant Sprites
|
||||
;========================
|
||||
|
||||
lda #<walking_sprite_data
|
||||
sta ZX0_src
|
||||
lda #>walking_sprite_data
|
||||
sta ZX0_src+1
|
||||
|
||||
lda #$a0
|
||||
|
||||
jsr full_decomp
|
||||
|
||||
|
||||
;==========================
|
||||
;==========================
|
||||
; main loop
|
||||
;==========================
|
||||
;==========================
|
||||
game_loop:
|
||||
|
||||
;=====================
|
||||
; move peasant
|
||||
|
||||
jsr move_peasant
|
||||
|
||||
;=====================
|
||||
; draw peasant
|
||||
|
||||
jsr draw_peasant
|
||||
|
||||
|
||||
;=====================
|
||||
;=====================
|
||||
; draw enemies
|
||||
;=====================
|
||||
;=====================
|
||||
|
||||
;=====================
|
||||
; erase old
|
||||
;=====================
|
||||
|
||||
; from A to X
|
||||
; SAVED_Y1 to SAVED_Y2
|
||||
|
||||
erase_old_loop:
|
||||
ldx ERASE_SPRITE_COUNT
|
||||
beq done_erase_old
|
||||
|
||||
dex ; index is one less than count
|
||||
|
||||
lda save_ystart,X
|
||||
sta SAVED_Y1
|
||||
lda save_yend,X
|
||||
sta SAVED_Y2
|
||||
lda save_xstart,X
|
||||
pha
|
||||
lda save_xend,X
|
||||
tax
|
||||
pla
|
||||
|
||||
jsr hgr_partial_restore
|
||||
|
||||
dec ERASE_SPRITE_COUNT
|
||||
bpl erase_old_loop
|
||||
|
||||
|
||||
done_erase_old:
|
||||
|
||||
lda #0
|
||||
sta ERASE_SPRITE_COUNT ; no doubt this could be optimized
|
||||
|
||||
;=====================
|
||||
; draw bird
|
||||
;=====================
|
||||
|
||||
lda bird_out
|
||||
beq done_draw_bird
|
||||
|
||||
lda bird_x
|
||||
sta SPRITE_X
|
||||
lda bird_y
|
||||
sta SPRITE_Y
|
||||
|
||||
lda FRAME
|
||||
and #1
|
||||
tax
|
||||
|
||||
ldy ERASE_SPRITE_COUNT
|
||||
|
||||
jsr hgr_draw_sprite
|
||||
|
||||
inc ERASE_SPRITE_COUNT
|
||||
|
||||
done_draw_bird:
|
||||
|
||||
;=====================
|
||||
; draw rock
|
||||
;=====================
|
||||
|
||||
MAX_ROCKS=3
|
||||
|
||||
lda #0
|
||||
sta CURRENT_ROCK
|
||||
draw_rock_loop:
|
||||
ldx CURRENT_ROCK
|
||||
|
||||
lda rock_x,X
|
||||
sta SPRITE_X
|
||||
lda rock_y,X
|
||||
sta SPRITE_Y
|
||||
|
||||
lda rock_state,X
|
||||
beq do_draw_rock
|
||||
|
||||
cmp #3 ; 1,2=exploding
|
||||
bcc do_explode_rock ; blt
|
||||
|
||||
; if we get here, rock not out
|
||||
; for now just skip
|
||||
|
||||
bcs skip_rock
|
||||
|
||||
|
||||
do_explode_rock:
|
||||
; explode is 1 or 2
|
||||
; map to 6,7 or 12,13
|
||||
|
||||
lda rock_type,X
|
||||
beq explode_big_rock
|
||||
explode_small_rock:
|
||||
lda #11
|
||||
bne explode_common_rock ; bra
|
||||
|
||||
explode_big_rock:
|
||||
lda #5
|
||||
|
||||
explode_common_rock:
|
||||
clc
|
||||
adc rock_state,X
|
||||
bne really_draw_rock
|
||||
|
||||
do_draw_rock:
|
||||
|
||||
lda rock_type,X
|
||||
beq draw_big_rock
|
||||
draw_small_rock:
|
||||
lda #8
|
||||
bne draw_common_rock ; bra
|
||||
|
||||
draw_big_rock:
|
||||
lda #2
|
||||
|
||||
draw_common_rock:
|
||||
sta rock_add_smc+1
|
||||
|
||||
|
||||
lda FRAME
|
||||
and #3
|
||||
clc
|
||||
rock_add_smc:
|
||||
adc #2 ; rock
|
||||
|
||||
really_draw_rock:
|
||||
tax
|
||||
|
||||
ldy ERASE_SPRITE_COUNT
|
||||
|
||||
jsr hgr_draw_sprite
|
||||
|
||||
inc ERASE_SPRITE_COUNT
|
||||
|
||||
skip_rock:
|
||||
inc CURRENT_ROCK
|
||||
lda CURRENT_ROCK
|
||||
cmp #MAX_ROCKS
|
||||
bne draw_rock_loop
|
||||
|
||||
|
||||
|
||||
;=====================
|
||||
;=====================
|
||||
; move enemies
|
||||
;=====================
|
||||
;=====================
|
||||
|
||||
;=====================
|
||||
; bird
|
||||
|
||||
lda bird_out
|
||||
bne move_bird
|
||||
maybe_new_bird:
|
||||
|
||||
jsr random16
|
||||
and #7 ; 1/8 of time start new bird?
|
||||
bne move_bird_done
|
||||
|
||||
jsr random16
|
||||
and #$3f ; 0... 64
|
||||
clc
|
||||
adc #12 ; skip top bar
|
||||
sta bird_y
|
||||
|
||||
lda #37
|
||||
sta bird_x
|
||||
inc bird_out
|
||||
jmp move_bird_done
|
||||
|
||||
move_bird:
|
||||
dec bird_x
|
||||
bpl move_bird_done
|
||||
|
||||
; off screen here
|
||||
|
||||
lda #0
|
||||
sta bird_out
|
||||
|
||||
move_bird_done:
|
||||
|
||||
;=====================
|
||||
; rock
|
||||
|
||||
ldx #0
|
||||
stx CURRENT_ROCK
|
||||
move_rock_loop:
|
||||
ldx CURRENT_ROCK
|
||||
|
||||
lda rock_state,X
|
||||
beq move_rock_normal
|
||||
cmp #3
|
||||
bcc move_rock_exploding
|
||||
|
||||
move_rock_waiting:
|
||||
|
||||
jsr random16
|
||||
and #7 ; 1/8 of time start new rock
|
||||
bne rock_good
|
||||
|
||||
jsr random16
|
||||
and #$1f ; 0... 31
|
||||
clc
|
||||
adc #2 ; skip to middle slightly
|
||||
sta rock_x,X
|
||||
|
||||
lda #12
|
||||
sta rock_y,X
|
||||
|
||||
lda #0
|
||||
sta rock_state,X
|
||||
|
||||
jmp rock_good
|
||||
|
||||
|
||||
move_rock_exploding:
|
||||
inc rock_state,X
|
||||
jmp rock_good
|
||||
|
||||
move_rock_normal:
|
||||
inc rock_y,X
|
||||
lda rock_y,X
|
||||
cmp #105
|
||||
bcc rock_good
|
||||
rock_start_explode:
|
||||
|
||||
lda #1
|
||||
sta rock_state,X
|
||||
|
||||
rock_good:
|
||||
inc CURRENT_ROCK
|
||||
lda CURRENT_ROCK
|
||||
cmp #MAX_ROCKS
|
||||
bne move_rock_loop
|
||||
|
||||
|
||||
;=====================
|
||||
; increment frame
|
||||
|
||||
inc FRAME
|
||||
|
||||
inc FLAME_COUNT
|
||||
lda FLAME_COUNT
|
||||
cmp #3
|
||||
bne flame_good
|
||||
|
||||
|
||||
lda #0
|
||||
sta FLAME_COUNT
|
||||
|
||||
flame_good:
|
||||
|
||||
;=====================
|
||||
; check keyboard
|
||||
|
||||
jsr check_keyboard
|
||||
|
||||
lda LEVEL_OVER
|
||||
bne done_cliff
|
||||
|
||||
; delay
|
||||
|
||||
lda #200
|
||||
jsr wait
|
||||
|
||||
jmp game_loop
|
||||
|
||||
|
||||
done_cliff:
|
||||
lda #0
|
||||
sta WHICH_LOAD
|
||||
rts
|
||||
|
||||
.include "wait.s"
|
||||
|
||||
.include "hgr_tables.s"
|
||||
|
||||
.include "hgr_sprite.s"
|
||||
|
||||
.include "zx02_optim.s"
|
||||
|
||||
.include "keyboard.s"
|
||||
|
||||
.include "draw_peasant.s"
|
||||
|
||||
.include "move_peasant.s"
|
||||
|
||||
.include "hgr_partial_restore.s"
|
||||
|
||||
|
||||
|
||||
.include "gr_copy.s"
|
||||
.include "hgr_copy.s"
|
||||
|
||||
.include "random16.s"
|
||||
|
||||
bg_data:
|
||||
.incbin "cliff_graphics/cliff_base.hgr.zx02"
|
||||
|
||||
priority_data:
|
||||
.incbin "cliff_graphics/cliff_base_priority.zx02"
|
||||
|
||||
sprites:
|
||||
.include "sprites/enemy_sprites.inc"
|
||||
|
||||
|
||||
sprites_xsize:
|
||||
.byte 3, 3 ; bird
|
||||
.byte 3, 3, 3, 3 ; bigrock
|
||||
.byte 3, 4 ; bigrock_crash
|
||||
.byte 2, 2, 2, 2 ; smallrock
|
||||
.byte 2, 4 ; smallrock_crash
|
||||
|
||||
sprites_ysize:
|
||||
.byte 16,14 ; bird
|
||||
.byte 23,22,21,22 ; bigrock
|
||||
.byte 18,21 ; bigrock_crash
|
||||
.byte 15,14,15,14 ; smallrock
|
||||
.byte 15,19 ; smallrock_crash
|
||||
|
||||
sprites_data_l:
|
||||
.byte <bird0_sprite,<bird1_sprite
|
||||
.byte <bigrock0_sprite,<bigrock1_sprite
|
||||
.byte <bigrock2_sprite,<bigrock3_sprite
|
||||
.byte <bigrock_crash0_sprite,<bigrock_crash1_sprite
|
||||
.byte <smallrock0_sprite,<smallrock1_sprite
|
||||
.byte <smallrock2_sprite,<smallrock3_sprite
|
||||
.byte <smallrock_crash0_sprite,<smallrock_crash1_sprite
|
||||
sprites_data_h:
|
||||
.byte >bird0_sprite,>bird1_sprite
|
||||
.byte >bigrock0_sprite,>bigrock1_sprite
|
||||
.byte >bigrock2_sprite,>bigrock3_sprite
|
||||
.byte >bigrock_crash0_sprite,>bigrock_crash1_sprite
|
||||
.byte >smallrock0_sprite,>smallrock1_sprite
|
||||
.byte >smallrock2_sprite,>smallrock3_sprite
|
||||
.byte >smallrock_crash0_sprite,>smallrock_crash1_sprite
|
||||
|
||||
sprites_mask_l:
|
||||
.byte <bird0_mask,<bird1_mask
|
||||
.byte <bigrock0_mask,<bigrock1_mask
|
||||
.byte <bigrock2_mask,<bigrock3_mask
|
||||
.byte <bigrock_crash0_mask,<bigrock_crash1_mask
|
||||
.byte <smallrock0_mask,<smallrock1_mask
|
||||
.byte <smallrock2_mask,<smallrock3_mask
|
||||
.byte <smallrock_crash0_mask,<smallrock_crash1_mask
|
||||
|
||||
sprites_mask_h:
|
||||
.byte >bird0_mask,>bird1_mask
|
||||
.byte >bigrock0_mask,>bigrock1_mask
|
||||
.byte >bigrock2_mask,>bigrock3_mask
|
||||
.byte >bigrock_crash0_mask,>bigrock_crash1_mask
|
||||
.byte >smallrock0_mask,>smallrock1_mask
|
||||
.byte >smallrock2_mask,>smallrock3_mask
|
||||
.byte >smallrock_crash0_mask,>smallrock_crash1_mask
|
||||
|
||||
;========================================
|
||||
|
||||
; background restore parameters
|
||||
; currently 5, should check this and error if we overflow
|
||||
|
||||
save_xstart:
|
||||
.byte 0, 0, 0, 0, 0, 0
|
||||
save_xend:
|
||||
.byte 0, 0, 0, 0, 0, 0
|
||||
save_ystart:
|
||||
.byte 0, 0, 0, 0, 0, 0
|
||||
save_yend:
|
||||
.byte 0, 0, 0, 0, 0, 0
|
||||
|
||||
|
||||
;========================================
|
||||
; data for the enemies
|
||||
|
||||
bird_out:
|
||||
.byte 0
|
||||
|
||||
bird_x:
|
||||
.byte 37
|
||||
bird_y:
|
||||
.byte 75
|
||||
|
||||
|
||||
rock_type: ; 0=big, 1=little
|
||||
.byte 0, 1, 0
|
||||
rock_state:
|
||||
.byte 3, 3, 3 ; 0 = falling, 1,2 = exploding, 3 = waiting?
|
||||
rock_x:
|
||||
.byte 7, 12, 17 ; remember, /7
|
||||
rock_y:
|
||||
.byte 12,12,12
|
||||
|
||||
|
||||
.include "hgr_sprite_bg_mask.s"
|
||||
|
||||
walking_sprite_data:
|
||||
.incbin "walking_sprites.zx02"
|
||||
|
||||
peasant_sprite_offset = $a000
|
||||
|
||||
walk_sprites_xsize = peasant_sprite_offset+0
|
||||
walk_sprites_ysize = peasant_sprite_offset+36
|
||||
walk_sprites_data_l = peasant_sprite_offset+72
|
||||
walk_sprites_data_h = peasant_sprite_offset+108
|
||||
walk_mask_data_l = peasant_sprite_offset+144
|
||||
walk_mask_data_h = peasant_sprite_offset+180
|
||||
@ -1,3 +1,16 @@
|
||||
since taking a break, what I had planned:
|
||||
+ finish 2 missing locations (and 3 artworks) in rotating room
|
||||
+ disk37 which would be first maglev with it not there, and
|
||||
the animation once the button is pressed
|
||||
+ mine cart animation
|
||||
+ animate an ending, probably the bad one moving telescope
|
||||
+ hook up bare minimum so you can go from book island
|
||||
to suvery to jungle (via fish) even if most isn't
|
||||
actually hooked up
|
||||
+ hook up rotating room puzzle
|
||||
|
||||
|
||||
|
||||
General:
|
||||
press escape to skip cutscenes?
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user