dos33fsprogs/games/peasant/intro_knight.s
Vince Weaver b85da4bc1a peasant: convert to zx02 compression from lzsa
makes a noticable improvement in file sizes
2022-08-02 00:46:54 -04:00

199 lines
2.4 KiB
ArmAsm

; o/~ One knight in Bangkok makes a hard man humble o/~
;************************
; Knight
;************************
intro_knight:
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 priority to $400
; indirectly as we can't trash screen holes
lda #<knight_priority_zx02
sta zx_src_l+1
lda #>knight_priority_zx02
sta zx_src_h+1
lda #$20 ; temporarily load to $2000
jsr zx02_full_decomp
; copy to $400
jsr gr_copy_to_page1
;=====================
; load bg
lda #<(knight_zx02)
sta zx_src_l+1
lda #>(knight_zx02)
sta zx_src_h+1
lda #$20
jsr zx02_full_decomp
jsr hgr_copy
;==================
; print title line
jsr intro_print_title
;====================
; save background
; lda PEASANT_X
; sta CURSOR_X
; lda PEASANT_Y
; sta CURSOR_Y
;=======================
; walking
; jsr save_bg_1x28
knight_walk_loop:
lda PEASANT_X
sta CURSOR_X
lda PEASANT_Y
sta CURSOR_Y
jsr restore_bg_1x28
; 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
; jsr save_bg_1x28
jsr draw_peasant
lda FRAME
check_knight_action1:
cmp #0
bne check_knight_action2
lda #<river_message1
sta OUTL
lda #>river_message1
sta OUTH
jsr hgr_text_box
jmp done_knight_action
check_knight_action2:
cmp #8
bne check_knight_action3
lda #0
ldx #39
jsr hgr_partial_restore
jmp done_knight_action
check_knight_action3:
cmp #17
bne done_knight_action
lda #<knight_message1
sta OUTL
lda #>knight_message1
sta OUTH
jsr hgr_text_box
done_knight_action:
; jsr wait_until_keypress
lda #3
jsr wait_a_bit
lda ESC_PRESSED
bne done_knight
inc FRAME
jmp knight_walk_loop
;===================
; done
done_knight:
rts
; continues displaying previous message
; stops as approach knight
;knight_message1:
; .byte 0,35,34, 0,253,72
; .byte 7,49,"OK go for it.",0
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
score_text:
.byte 0,2,"Score: 0 of 150",0