Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-20 17:29:28 +00:00
Code Issues Projects Releases Wiki Activity
25ed768423
dos33fsprogs/games/peasant/intro_knight.s

193 lines
2.3 KiB
ArmAsm
Raw Normal View History

peasant: use qboot so we don't have DOS in the way
2021-08-10 22:49:37 +00:00
; o/~ One knight in Bangkok makes a hard man humble o/~
;************************
; Knight
;************************
knight:
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
lda #0
sta FRAME
;=========================
; init peasant position
; draw at 0,107
lda #0
sta PEASANT_X
lda #107
sta PEASANT_Y
lda #PEASANT_DIR_RIGHT
sta PEASANT_DIR
;=====================
; load bg
peasant: use qboot so we don't have DOS in the way
2021-08-10 22:49:37 +00:00
lda #<(knight_lzsa)
sta getsrc_smc+1
lda #>(knight_lzsa)
sta getsrc_smc+2
lda #$40
jsr decompress_lzsa2_fast
peasant: add "ESC Skips" message to intro
2021-10-07 04:43:44 +00:00
;==================
; print title line
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
peasant: add "ESC Skips" message to intro
2021-10-07 04:43:44 +00:00
jsr intro_print_title
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
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
; load priority to $400
; indirectly as we can't trash screen holes
lda #<knight_priority_lzsa
sta getsrc_smc+1
lda #>knight_priority_lzsa
sta getsrc_smc+2
lda #$20 ; temporarily load to $2000
jsr decompress_lzsa2_fast
; copy to $400
jsr gr_copy_to_page1
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
;====================
; save background
lda PEASANT_X
sta CURSOR_X
lda PEASANT_Y
sta CURSOR_Y
;=======================
; walking
peasant: settle on 1x28 vs 7x28 for name of sprite routines
2021-10-05 04:13:31 +00:00
jsr save_bg_1x28
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
knight_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: finalize knight scene
2021-08-12 19:23:05 +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 knight_path,X
bmi done_knight
sta PEASANT_X
sta CURSOR_X
inx
lda knight_path,X
sta 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 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: finalize knight scene
2021-08-12 19:23:05 +00:00
lda FRAME
check_knight_action1:
cmp #0
bne check_knight_action2
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so
2021-08-15 01:10:56 +00:00
lda #<river_message1
sta OUTL
lda #>river_message1
sta OUTH
jsr hgr_text_box
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
jmp done_knight_action
check_knight_action2:
cmp #8
bne check_knight_action3
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: finalize knight scene
2021-08-12 19:23:05 +00:00
jmp done_knight_action
check_knight_action3:
cmp #17
bne done_knight_action
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so
2021-08-15 01:10:56 +00:00
lda #<knight_message1
sta OUTL
lda #>knight_message1
sta OUTH
jsr hgr_text_box
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
done_knight_action:
peasant: use qboot so we don't have DOS in the way
2021-08-10 22:49:37 +00:00
peasant: auto-walk everywhere now
2021-08-12 19:41:39 +00:00
; jsr wait_until_keypress
lda #3
jsr wait_a_bit
peasant: use qboot so we don't have DOS in the way
2021-08-10 22:49:37 +00:00
peasant: have ESCAPE quit the intro
2021-08-15 04:02:13 +00:00
lda ESC_PRESSED
bne done_knight
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
inc FRAME
jmp knight_walk_loop
;===================
; done
done_knight:
peasant: use qboot so we don't have DOS in the way
2021-08-10 22:49:37 +00:00
rts
peasant: add some more graphics
2021-08-11 23:29:47 +00:00
; continues displaying previous message
; stops as approach knight
knight_message1:
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so
2021-08-15 01:10:56 +00:00
.byte 0,35,34, 0,253,72
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
.byte 7,49,"OK go for it.",0
peasant: add some more graphics
2021-08-11 23:29:47 +00:00
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
knight_path:
.byte 0,107
.byte 1,107
.byte 2,107
.byte 3,107
.byte 4,107
.byte 5,107
.byte 6,107
.byte 7,107
.byte 8,107
.byte 9,107
.byte 10,107
.byte 11,107
.byte 12,107
.byte 13,107
.byte 14,107
.byte 15,107
.byte 16,107
.byte 17,107
.byte 18,107
.byte $FF,$FF
peasant: add some more graphics
2021-08-11 23:29:47 +00:00
peasant: finalize knight scene
2021-08-12 19:23:05 +00:00
score_text:
.byte 0,2,"Score: 0 of 150",0
Reference in New Issue Copy Permalink