Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-27 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity
62d15c0663
dos33fsprogs/games/peasant/intro_lake_w.s

395 lines
5.5 KiB
ArmAsm
Raw Normal View History

peasant: more graphics works
2021-08-10 19:30:02 +00:00
; Lake West
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
; Everyone knows west lake is the best lake
;========================
peasant: more graphics works
2021-08-10 19:30:02 +00:00
; Lake West
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;========================
peasant: finish updating intro to new infrastructure
2021-12-30 05:46:21 +00:00
intro_lake_west:
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
lda #0
sta FRAME
;=========================
; init peasant position
; draw at 7,155
lda #1
sta PEASANT_X
lda #155
sta PEASANT_Y
lda #PEASANT_DIR_RIGHT
sta PEASANT_DIR
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;===============================
; load priority to $400
; indirectly as we can't trash screen holes
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
lda #<lake_w_priority_lzsa
peasant: more graphics works
2021-08-10 19:30:02 +00:00
sta getsrc_smc+1
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
lda #>lake_w_priority_lzsa
peasant: more graphics works
2021-08-10 19:30:02 +00:00
sta getsrc_smc+2
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
lda #$20 ; temporarily load to $2000
peasant: more graphics works
2021-08-10 19:30:02 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
jsr decompress_lzsa2_fast
peasant: more graphics works
2021-08-10 19:30:02 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
; copy to $400
peasant: more graphics works
2021-08-10 19:30:02 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
jsr gr_copy_to_page1
peasant: more graphics works
2021-08-10 19:30:02 +00:00
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;==================
; load background
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
lda #<(lake_w_lzsa)
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
sta getsrc_smc+1
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
lda #>(lake_w_lzsa)
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
sta getsrc_smc+2
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
lda #$20
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
jsr decompress_lzsa2_fast
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
jsr hgr_copy
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;================
; print title
jsr intro_print_title
peasant: add the priority layer to intro sequence fix bug where rather dashing was a bit stripey at times
2021-10-02 18:43:58 +00:00
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
;====================
; save background
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
; lda PEASANT_X
; sta CURSOR_X
; lda PEASANT_Y
; sta CURSOR_Y
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
;=======================
; walking
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
; jsr save_bg_1x28
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
lake_w_walk_loop:
peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved
2021-08-16 05:31:49 +00:00
lda PEASANT_X
sta CURSOR_X
lda PEASANT_Y
sta CURSOR_Y
peasant: settle on 1x28 vs 7x28 for name of sprite routines
2021-10-05 04:13:31 +00:00
jsr restore_bg_1x28
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved
2021-08-16 05:31:49 +00:00
; draw peasant
lda FRAME
asl
tax
lda lake_w_path,X
bmi done_lake_w
sta PEASANT_X
sta CURSOR_X
inx
lda lake_w_path,X
sta PEASANT_Y
sta CURSOR_Y
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
; jsr save_bg_1x28
peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved
2021-08-16 05:31:49 +00:00
jsr draw_peasant
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
lda FRAME
check_lake_w_action1:
cmp #0
bne check_lake_w_action2
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so
2021-08-15 01:10:56 +00:00
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;==========================
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so
2021-08-15 01:10:56 +00:00
; re-display cottage text 3
lda #<cottage_text3
sta OUTL
lda #>cottage_text3
sta OUTH
jsr hgr_text_box
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
jmp done_lake_w_action
check_lake_w_action2:
cmp #20
bne done_lake_w_action
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;=========================
; clear old text
peasant: start moving to new background drawing code might be workable, makes animations much easier
2021-12-27 06:19:48 +00:00
lda #0
ldx #39
peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved
2021-08-16 05:31:49 +00:00
jsr hgr_partial_restore
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
;===========================
; display text
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
jsr display_lake_w_text1
done_lake_w_action:
jsr update_bubbles
peasant: auto-walk everywhere now
2021-08-12 19:41:39 +00:00
; jsr wait_until_keypress
lda #3
jsr wait_a_bit
peasant: more graphics works
2021-08-10 19:30:02 +00:00
peasant: have ESCAPE quit the intro
2021-08-15 04:02:13 +00:00
lda ESC_PRESSED
bne done_lake_w
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
inc FRAME
jmp lake_w_walk_loop
;===================
; done
done_lake_w:
peasant: more graphics works
2021-08-10 19:30:02 +00:00
rts
peasant: add some more graphics
2021-08-11 23:29:47 +00:00
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
peasant: add some more graphics
2021-08-11 23:29:47 +00:00
; same message as end of cottage
; walk halfway across the screen
peasant: intro: move text to common location
2021-11-16 17:42:28 +00:00
;lake_w_message1:
; .byte 0,42,24, 0,252,82
; .byte 8,41,"You head east toward the",13
; .byte "mountain atop which",13
; .byte "TROGDOR lives.",0
peasant: add some more graphics
2021-08-11 23:29:47 +00:00
; walk to edge
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
;============================
; display cottage text 1
;============================
display_lake_w_text1:
lda #<lake_w_message1
sta OUTL
lda #>lake_w_message1
sta OUTH
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so
2021-08-15 01:10:56 +00:00
jsr hgr_text_box
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
rts
lake_w_path:
.byte 1,155
.byte 2,155
.byte 3,155
.byte 4,155
.byte 5,155
.byte 6,155
.byte 7,155
.byte 8,155
.byte 9,155
.byte 10,155
.byte 11,155
.byte 12,155
.byte 13,155
.byte 14,155
.byte 15,155
.byte 16,155
.byte 17,155
.byte 18,155
.byte 19,155
.byte 20,155
.byte 21,155
.byte 22,155
.byte 23,155
.byte 24,155
.byte 25,155
.byte 26,155
.byte 27,155
.byte 28,155
.byte 29,155
.byte 30,155
.byte 31,155
.byte 32,155
.byte 33,155
.byte 34,155
.byte 35,155
.byte 36,155
.byte 37,155
.byte 38,155
.byte 39,155
.byte $FF,$FF
;================
; update bubbles
update_bubbles:
; 33,91
; 27,125
; 33,141
; 35,115
; bubble 1
lda FRAME
and #7
asl
tax
lda bubble_progress,X
sta INL
inx
lda bubble_progress,X
sta INH
lda #33
sta CURSOR_X
lda #91
sta CURSOR_Y
peasant: remove last use of 1x5 sprite code
2021-12-30 05:51:05 +00:00
jsr hgr_draw_sprite ;_1x5
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
; bubble 2
lda FRAME
adc #3
and #7
asl
tax
lda bubble_progress,X
sta INL
inx
lda bubble_progress,X
sta INH
lda #27
sta CURSOR_X
lda #125
sta CURSOR_Y
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
jsr hgr_draw_sprite ;_1x5
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
; bubble 3
lda FRAME
adc #5
and #7
asl
tax
lda bubble_progress,X
sta INL
inx
lda bubble_progress,X
sta INH
lda #33
sta CURSOR_X
lda #141
sta CURSOR_Y
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
jsr hgr_draw_sprite ;_1x5
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
; bubble 4
lda FRAME
adc #2
and #7
asl
tax
lda bubble_progress,X
sta INL
inx
lda bubble_progress,X
sta INH
lda #35
sta CURSOR_X
lda #115
sta CURSOR_Y
peasant: remove last use of 1x5 sprite code
2021-12-30 05:51:05 +00:00
jsr hgr_draw_sprite ;_1x5
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
rts
bubble_progress:
.word bubble_sprite0
.word bubble_sprite0
.word bubble_sprite1
.word bubble_sprite0
.word bubble_sprite2
.word bubble_sprite3
.word bubble_sprite4
.word bubble_sprite5
peasant: more work updating the intro
2021-12-29 19:22:55 +00:00
.include "sprites/bubble_sprites_w.inc"
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.if 0
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
bubble_sprite0:
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.byte 1,5
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
.byte $AA ; 1 010 1010 0 +10 10 10 BBBBBBB
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
.byte $80 ; 1 000 0000 0 00 00 00 KKKKKKK
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
bubble_sprite1:
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.byte 1,5
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
.byte $AA ; 1 010 1010 0 10 10 10 BBBBBBB
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
.byte $88 ; 1 000 1000 0 00 10 00 KKKBBKK
.byte $22 ; 0 010 0010 0 10 00 10 PPPKKPP
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
bubble_sprite2:
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.byte 1,5
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
.byte $AA ; 1 010 1010 0 10 10 10 BBBBBBB
.byte $22 ; 0 010 0010 0 10 00 10 PPPKKPP
.byte $88 ; 1 000 1000 0 00 10 00 KKKBBKK
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
bubble_sprite3:
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.byte 1,5
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
.byte $A2 ; 1 010 0010 0 10 00 10 BBBKKBB
.byte $08 ; 0 000 1000 0 00 10 00 KKKPPKK
.byte $88 ; 1 000 1000 0 00 10 00 KKKBBKK
.byte $2A ; 0 010 1010 0 10 10 10 PPPPPPP
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
bubble_sprite4:
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.byte 1,5
.byte $08 ; 0000 1000 0 00 10 00 KKKPPKK
.byte $A2 ; 1010 0010 0 10 00 10 BBBKKBB
.byte $08 ; 0000 1000 0 00 10 00 KKKPPKK
.byte $88 ; 1000 1000 0 00 10 00 KKKBBKK
.byte $2A ; 0010 1010 0 10 10 10 PPPPPPP
peasant: bubbles in lake
2021-08-12 18:07:19 +00:00
bubble_sprite5:
peasant: work on unifying the sprite code
2021-12-29 06:27:37 +00:00
.byte 1,5
.byte $2A ; 0010 1010 0 10 10 10 PPPPPPP
.byte $88 ; 1000 1000 0 00 10 00 KKKBBKK
.byte $22 ; 0010 0010 0 10 00 10 PPPKKPP
.byte $88 ; 1000 1000 0 00 10 00 KKKBBKK
.byte $2A ; 0010 1010 0 10 10 10 PPPPPPP
.endif
Reference in New Issue Copy Permalink