riven: add some missing files

This commit is contained in:
Vince Weaver 2024-06-25 09:32:07 -04:00
parent b56e4f57c7
commit 8f6c58124c
3 changed files with 212 additions and 0 deletions

View File

@ -0,0 +1,30 @@
LOAD_TITLE = 0
LOAD_TUNNEL2 = 1
LOAD_STAIRS = 2
LOAD_COVE = 3
LOAD_STAIRS2 = 4
LOAD_MOVIE_COVE = 5
;================================
; Level definitions
; TUNNEL
RIVEN_TUNNEL5 = 0
RIVEN_TUNNEL6 = 1
RIVEN_TUNNEL7 = 2
RIVEN_TUNNEL8 = 3
; STAIRS
RIVEN_STAIRS = 0
RIVEN_UP1 = 1
; COVE
RIVEN_DOWN1 = 0
RIVEN_DOWN2 = 1
RIVEN_COVE = 2
; STAIRS2
RIVEN_UP2 = 0
RIVEN_UP3 = 1
RIVEN_UP4 = 2

View File

@ -0,0 +1,107 @@
; Riven -- Jungle Island -- Tunnels Part2
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
.include "../zp.inc"
.include "../hardware.inc"
.include "../common_defines.inc"
.include "../qload.inc"
.include "disk41_defines.inc"
riven_jungle_tunnel2:
;===================
; init screen
;===================
; jsr TEXT
; jsr HOME
bit KEYRESET
bit SET_GR
bit PAGE1
bit HIRES
bit FULLGR
;========================
; set up location
;========================
lda #<locations
sta LOCATIONS_L
lda #>locations
sta LOCATIONS_H
lda #0
sta DRAW_PAGE
sta LEVEL_OVER
lda #0
sta JOYSTICK_ENABLED
sta UPDATE_POINTER
lda #1
sta CURSOR_VISIBLE
lda #20
sta CURSOR_X
sta CURSOR_Y
;===================================
; init
;===================================
jsr change_location
jsr save_bg_14x14 ; save old bg
game_loop:
;===================================
; draw pointer
;===================================
jsr draw_pointer
;===================================
; handle keypress/joystick
;===================================
jsr handle_keypress
;===================================
; increment frame count
;===================================
inc FRAMEL
bne frame_no_oflo
inc FRAMEH
frame_no_oflo:
;====================================
; check level over
;====================================
lda LEVEL_OVER
bne really_exit
jmp game_loop
really_exit:
rts
;==========================
; includes
;==========================
.include "graphics_tunnel/tunnel_graphics.inc"
.include "leveldata_tunnel.inc"

View File

@ -0,0 +1,75 @@
;===============================================
; level data for Jungle Tunnel2
;===============================================
locations:
.word location0,location1,location2,location3
; RIVEN_TUNNEL5 -- mid-tunnel
location0:
.byte $E0|0 ; north exit
.byte RIVEN_TUNNEL6 ; south exit
.byte $ff ; east exit
.byte $FF ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word tunnel5_n_zx02 ; north bg
.word tunnel5_s_zx02 ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff ; special exit
; RIVEN_TUNNEL6 -- mid-tunnel
location1:
.byte RIVEN_TUNNEL5 ; north exit
.byte RIVEN_TUNNEL7 ; south exit
.byte $ff ; east exit
.byte $FF ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word tunnel6_n_zx02 ; north bg
.word tunnel6_s_zx02 ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff ; special exit
; RIVEN_TUNNEL7 -- mid-tunnel
location2:
.byte RIVEN_TUNNEL6 ; north exit
.byte RIVEN_TUNNEL8 ; south exit
.byte $ff ; east exit
.byte $FF ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word tunnel7_n_zx02 ; north bg
.word tunnel7_s_zx02 ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff ; special exit
; RIVEN_TUNNEL8 -- mid-tunnel
location3:
.byte RIVEN_TUNNEL7 ; north exit
.byte LOAD_STAIRS<<4|RIVEN_STAIRS ; south exit
.byte $ff ; east exit
.byte $FF ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word tunnel8_n_zx02 ; north bg
.word tunnel8_s_zx02 ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff ; special exit