mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
199 lines
2.4 KiB
ArmAsm
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
|