mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
93 lines
1.5 KiB
ArmAsm
93 lines
1.5 KiB
ArmAsm
; starbase
|
|
|
|
starbase:
|
|
|
|
; Initialize some variables
|
|
|
|
;=======================
|
|
; Run the "intro"
|
|
;=======================
|
|
; just us falling?
|
|
|
|
jsr starbase_init
|
|
|
|
;=========================
|
|
; starbase_new_room
|
|
;=========================
|
|
; enter new room on starbase
|
|
|
|
starbase_new_room:
|
|
lda #0
|
|
sta GAME_OVER
|
|
|
|
jsr ootw_city
|
|
|
|
c4_check_done:
|
|
lda GAME_OVER
|
|
cmp #$ff
|
|
beq quit_starbase
|
|
|
|
;====================
|
|
; go to next level
|
|
l4_defeated:
|
|
lda WHICH_ROOM
|
|
cmp #5
|
|
bne starbase_new_room
|
|
|
|
lda #5
|
|
sta WHICH_LOAD
|
|
rts
|
|
|
|
|
|
;===========================
|
|
; quit_starbase
|
|
;===========================
|
|
|
|
quit_starbase:
|
|
|
|
wait_loop:
|
|
lda KEYPRESS
|
|
bpl wait_loop
|
|
|
|
lda KEYRESET ; clear strobe
|
|
|
|
lda #0
|
|
sta GAME_OVER
|
|
|
|
rts
|
|
|
|
.include "starbase_action.s"
|
|
;.include "text_print.s"
|
|
;.include "gr_pageflip.s"
|
|
;.include "gr_unrle.s"
|
|
;.include "gr_fast_clear.s"
|
|
;.include "gr_copy.s"
|
|
.include "gr_hlin.s"
|
|
.include "gr_twoscreen_scroll.s"
|
|
.include "gr_putsprite.s"
|
|
;.include "gr_putsprite_flipped.s"
|
|
.include "gr_putsprite_crop.s"
|
|
;.include "gr_offsets.s"
|
|
.include "keyboard.s"
|
|
|
|
.include "starbase_astronaut.s"
|
|
.include "starbase_alien.s"
|
|
|
|
.include "starbase_doors.s"
|
|
.include "starbase_charger.s"
|
|
.include "starbase_gun.s"
|
|
.include "starbase_laser.s"
|
|
.include "starbase_shield.s"
|
|
.include "starbase_blast.s"
|
|
.include "starbase_collision.s"
|
|
.include "starbase_friend.s"
|
|
.include "starbase_alien_laser.s"
|
|
|
|
; room backgrounds
|
|
.include "graphics/starbase/starbase.inc"
|
|
; sprites
|
|
.include "graphics/sprites/astronaut.inc"
|
|
.include "graphics/sprites/alien.inc"
|
|
|
|
|