2021-10-17 19:58:14 -04:00
|
|
|
; Peasant's Quest / New Game
|
|
|
|
|
|
|
|
|
|
; included by intro.s
|
|
|
|
|
|
|
|
|
|
; by Vince `deater` Weaver vince@deater.net
|
|
|
|
|
|
|
|
|
|
;=============================
|
|
|
|
|
; start new game
|
|
|
|
|
;=============================
|
|
|
|
|
start_new_game:
|
|
|
|
|
|
|
|
|
|
;===================================================
|
|
|
|
|
; load inventory code to language card $d000 bank 2
|
|
|
|
|
|
|
|
|
|
; switch in language card
|
|
|
|
|
; read/write RAM, $d000 bank 2
|
|
|
|
|
|
2021-10-17 22:56:46 -04:00
|
|
|
lda LCBANK2
|
|
|
|
|
lda LCBANK2
|
2021-10-17 19:58:14 -04:00
|
|
|
|
|
|
|
|
; actually load it
|
|
|
|
|
lda #LOAD_INVENTORY
|
|
|
|
|
sta WHICH_LOAD
|
|
|
|
|
|
|
|
|
|
jsr load_file
|
|
|
|
|
|
2021-10-17 22:56:46 -04:00
|
|
|
; read/write RAM, $d000 bank 1
|
|
|
|
|
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
lda LCBANK1
|
2021-10-17 19:58:14 -04:00
|
|
|
|
|
|
|
|
; start in PEASANT2 file
|
|
|
|
|
|
|
|
|
|
lda #LOAD_PEASANT2
|
|
|
|
|
sta WHICH_LOAD
|
|
|
|
|
|
|
|
|
|
;=========================
|
|
|
|
|
; init peasant position
|
|
|
|
|
; draw at 18,108
|
|
|
|
|
|
|
|
|
|
lda #18
|
|
|
|
|
sta PEASANT_X
|
|
|
|
|
lda #108
|
|
|
|
|
sta PEASANT_Y
|
|
|
|
|
|
|
|
|
|
; set direction
|
|
|
|
|
|
|
|
|
|
lda #PEASANT_DIR_RIGHT
|
|
|
|
|
sta PEASANT_DIR
|
|
|
|
|
|
|
|
|
|
; set not walking
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta PEASANT_XADD
|
|
|
|
|
sta PEASANT_YADD
|
|
|
|
|
|
|
|
|
|
; set score to 0
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta SCORE_HUNDREDS
|
|
|
|
|
|
|
|
|
|
lda #$00
|
|
|
|
|
sta SCORE_TENSONES
|
|
|
|
|
|
|
|
|
|
; map location
|
|
|
|
|
|
|
|
|
|
lda #4
|
|
|
|
|
sta MAP_X
|
|
|
|
|
lda #1
|
|
|
|
|
sta MAP_Y
|
|
|
|
|
|
|
|
|
|
; inventory is only t-shirt
|
|
|
|
|
|
|
|
|
|
lda #$00
|
|
|
|
|
sta INVENTORY_1
|
|
|
|
|
sta INVENTORY_2
|
|
|
|
|
lda #INV3_SHIRT
|
|
|
|
|
sta INVENTORY_3
|
|
|
|
|
|
|
|
|
|
; inventory items gone
|
|
|
|
|
|
|
|
|
|
; 1100 1011
|
|
|
|
|
lda #$00
|
|
|
|
|
sta INVENTORY_1_GONE
|
|
|
|
|
; 0001 1101
|
|
|
|
|
; lda #$00
|
|
|
|
|
sta INVENTORY_2_GONE
|
|
|
|
|
;
|
|
|
|
|
; lda #$00
|
|
|
|
|
sta INVENTORY_3_GONE
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
