dos33fsprogs/games/peasant/peasant4.s

371 lines
6.0 KiB
ArmAsm
Raw Normal View History

; Peasant's Quest
; Peasantry Part 4 (bottom line of map)
2021-10-21 19:35:33 +00:00
; ned cottage, wavy tree, kerrek 2, lady cottage, burninated tree
2021-09-29 20:53:41 +00:00
2021-08-15 04:23:41 +00:00
; by Vince `deater` Weaver vince@deater.net
; with apologies to everyone
.include "hardware.inc"
.include "zp.inc"
.include "qload.inc"
.include "inventory.inc"
.include "parse_input.inc"
2021-08-15 04:23:41 +00:00
LOCATION_BASE = LOCATION_OUTSIDE_NN ; index starts here (15)
2021-10-21 19:35:33 +00:00
peasantry4:
2021-08-15 05:12:43 +00:00
lda #0
sta LEVEL_OVER
2021-10-21 19:35:33 +00:00
sta FRAME
2021-08-15 04:23:41 +00:00
2021-10-21 19:35:33 +00:00
jsr hgr_make_tables ; necessary?
jsr hgr2 ; necessary?
2021-08-15 04:23:41 +00:00
2021-10-21 19:35:33 +00:00
; decompress dialog to $D000
2021-08-15 04:23:41 +00:00
2021-10-21 19:35:33 +00:00
lda #<peasant4_text_lzsa
sta getsrc_smc+1
lda #>peasant4_text_lzsa
sta getsrc_smc+2
2021-08-15 04:23:41 +00:00
2021-10-21 19:35:33 +00:00
lda #$D0
2021-10-21 19:35:33 +00:00
jsr decompress_lzsa2_fast
2021-08-15 04:23:41 +00:00
; update map location
2021-08-15 04:23:41 +00:00
; jsr update_map_location
2021-08-29 03:05:36 +00:00
; update score
jsr update_score
;=============================
;=============================
; new screen location
;=============================
;=============================
new_location:
lda #0
sta LEVEL_OVER
2021-10-21 19:35:33 +00:00
;==========================
; load updated verb table
;==========================
; setup default verb table
jsr setup_default_verb_table
2021-10-21 19:35:33 +00:00
; we are PEASANT4 so locations 15...19 map to 0...4
lda MAP_LOCATION
sec
sbc #LOCATION_BASE
2021-10-21 19:35:33 +00:00
tax
lda verb_tables_low,X
sta INL
lda verb_tables_hi,X
sta INH
jsr load_custom_verb_table
2021-08-15 04:23:41 +00:00
;=====================
; load bg
; we are PEASANT1 so locations 15...19 map to 0...4, no change
lda MAP_LOCATION
sec
sbc #LOCATION_BASE
tax
lda map_backgrounds_low,X
2021-08-15 04:23:41 +00:00
sta getsrc_smc+1
lda map_backgrounds_hi,X
2021-08-15 04:23:41 +00:00
sta getsrc_smc+2
lda #$40
jsr decompress_lzsa2_fast
;====================
; update ned cottage if necessary
lda MAP_LOCATION
cmp #LOCATION_OUTSIDE_NN
bne not_necessary_cottage
lda GAME_STATE_2
and #COTTAGE_ROCK_MOVED
beq not_necessary_cottage
; 161,117
lda #23
sta CURSOR_X
lda #117
sta CURSOR_Y
lda #<rock_moved_sprite
sta INL
lda #>rock_moved_sprite
sta INH
jsr hgr_draw_sprite
not_necessary_cottage:
2021-08-24 17:38:03 +00:00
; load priority
lda MAP_LOCATION
sec
sbc #LOCATION_BASE
2021-08-24 17:38:03 +00:00
tax
lda map_priority_low,X
sta getsrc_smc+1
lda map_priority_hi,X
sta getsrc_smc+2
lda #$20
jsr decompress_lzsa2_fast
jsr gr_copy_to_page1
; put peasant text
2021-08-15 04:23:41 +00:00
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
jsr hgr_put_string
2021-11-21 06:16:03 +00:00
;==============
2021-08-15 04:23:41 +00:00
; put score
2021-08-29 03:05:36 +00:00
jsr print_score
2021-08-15 04:23:41 +00:00
2021-11-21 06:16:03 +00:00
;====================
; handle kerrek
lda MAP_LOCATION
cmp #LOCATION_KERREK_2
bne not_kerrek
jsr kerrek_setup
not_kerrek:
2021-08-15 04:23:41 +00:00
;====================
; save background
lda PEASANT_X
sta CURSOR_X
lda PEASANT_Y
sta CURSOR_Y
;=======================
; draw initial peasant
jsr save_bg_1x28
2021-08-15 05:19:26 +00:00
2021-08-15 04:23:41 +00:00
jsr draw_peasant
game_loop:
2021-08-24 17:52:11 +00:00
jsr move_peasant
2021-08-15 04:23:41 +00:00
inc FRAME
jsr check_keyboard
jsr kerrek_collision
; check if can enter ned cottage
lda MAP_LOCATION
cmp #LOCATION_OUTSIDE_NN
bne not_ned_cottage
; OK are are at the cottage, is the door open?
lda INVENTORY_1_GONE
and #INV1_BABY
beq not_ned_cottage
; at cottage, door open, check our co-ords
lda PEASANT_Y ; #$68
cmp #$67
bcc not_ned_cottage
cmp #$71
bcs not_ned_cottage
lda PEASANT_X ; 15 - 17
cmp #15
bcc not_ned_cottage
cmp #18
bcs not_ned_cottage
; we did it, we're entering Ned's cottage
lda #LOCATION_INSIDE_NN
jsr update_map_location
lda #11
sta PEASANT_X
lda #$90
sta PEASANT_Y
lda #PEASANT_DIR_UP
sta PEASANT_DIR
lda #0
sta PEASANT_XADD
sta PEASANT_YADD
not_ned_cottage:
lda LEVEL_OVER
bmi oops_new_location
2021-08-15 05:12:43 +00:00
bne game_over
2021-08-15 05:19:26 +00:00
; delay
lda #200
jsr wait
2021-08-15 05:19:26 +00:00
2021-08-15 04:23:41 +00:00
jmp game_loop
oops_new_location:
jmp new_location
2021-08-15 04:23:41 +00:00
2021-08-15 05:12:43 +00:00
;************************
; exit level
2021-08-15 05:12:43 +00:00
;************************
game_over:
rts
2021-08-15 04:23:41 +00:00
2021-08-15 04:23:41 +00:00
.include "draw_peasant.s"
; moved to qload
;.include "decompress_fast_v2.s"
;.include "hgr_font.s"
;.include "draw_box.s"
;.include "hgr_rectangle.s"
;.include "hgr_1x28_sprite_mask.s"
;.include "hgr_1x5_sprite.s"
;.include "hgr_partial_save.s"
;.include "hgr_input.s"
;.include "hgr_tables.s"
;.include "hgr_text_box.s"
;.include "clear_bottom.s"
;.include "hgr_hgr2.s"
;.include "wait_keypress.s"
;.include "loadsave_menu.s"
2021-08-24 17:38:03 +00:00
.include "gr_copy.s"
2021-08-24 17:52:11 +00:00
.include "peasant_move.s"
2021-08-29 03:05:36 +00:00
.include "score.s"
.include "new_map_location.s"
;.include "parse_input.s"
2021-08-15 04:23:41 +00:00
;.include "inventory.s"
2021-08-31 05:15:12 +00:00
.include "keyboard.s"
.include "wait.s"
2021-08-15 04:23:41 +00:00
.include "wait_a_bit.s"
.include "graphics_peasantry/graphics_peasant4.inc"
.include "graphics_peasantry/priority_peasant4.inc"
2021-08-15 04:23:41 +00:00
2021-08-24 03:02:23 +00:00
.include "version.inc"
2021-08-16 03:49:56 +00:00
2021-08-15 05:12:43 +00:00
map_backgrounds_low:
2021-08-23 02:02:11 +00:00
.byte <empty_hut_lzsa ; 15 -- empty hut
.byte <ned_lzsa ; 16 -- ned
2021-08-22 05:47:52 +00:00
.byte <bottom_prints_lzsa ; 17 -- bottom footprints
.byte <lady_cottage_lzsa ; 18 -- cottage lady
2021-08-17 04:04:04 +00:00
.byte <crooked_tree_lzsa ; 19 -- crooked tree
map_backgrounds_hi:
2021-08-23 02:02:11 +00:00
.byte >empty_hut_lzsa ; 15 -- empty hut
.byte >ned_lzsa ; 16 -- ned
2021-08-22 05:47:52 +00:00
.byte >bottom_prints_lzsa ; 17 -- bottom footprints
.byte >lady_cottage_lzsa ; 18 -- cottage lady
2021-08-17 04:04:04 +00:00
.byte >crooked_tree_lzsa ; 19 -- crooked tree
2021-08-24 17:38:03 +00:00
map_priority_low:
.byte <empty_hut_priority_lzsa ; 15 -- empty hut
.byte <ned_priority_lzsa ; 16 -- ned
.byte <bottom_prints_priority_lzsa ; 17 -- bottom footprints
.byte <lady_cottage_priority_lzsa ; 18 -- cottage lady
.byte <crooked_tree_priority_lzsa ; 19 -- crooked tree
map_priority_hi:
.byte >empty_hut_priority_lzsa ; 15 -- empty hut
.byte >ned_priority_lzsa ; 16 -- ned
.byte >bottom_prints_priority_lzsa ; 17 -- bottom footprints
.byte >lady_cottage_priority_lzsa ; 18 -- cottage lady
.byte >crooked_tree_priority_lzsa ; 19 -- crooked tree
2021-10-21 19:35:33 +00:00
verb_tables_low:
2021-10-23 14:36:03 +00:00
.byte <ned_cottage_verb_table ; 15 -- empty hut
2021-10-25 02:13:58 +00:00
.byte <ned_verb_table ; 16 -- ned
2021-10-24 01:14:29 +00:00
.byte <kerrek_verb_table ; 17 -- bottom footprints
2021-10-25 02:13:58 +00:00
.byte <lady_cottage_verb_table ; 18 -- cottage lady
2021-10-21 19:35:33 +00:00
.byte <crooked_tree_verb_table ; 19 -- crooked tree
verb_tables_hi:
2021-10-23 14:36:03 +00:00
.byte >ned_cottage_verb_table ; 15 -- empty hut
2021-10-25 02:13:58 +00:00
.byte >ned_verb_table ; 16 -- ned
2021-10-24 01:14:29 +00:00
.byte >kerrek_verb_table ; 17 -- bottom footprints
2021-10-25 02:13:58 +00:00
.byte >lady_cottage_verb_table ; 18 -- cottage lady
2021-10-21 19:35:33 +00:00
.byte >crooked_tree_verb_table ; 19 -- crooked tree
peasant4_text_lzsa:
.incbin "DIALOG_PEASANT4.LZSA"
.include "peasant4_actions.s"
.include "sprites/ned_sprites.inc"
.include "hgr_sprite.s"