mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-29 08:55:10 +00:00
lemm: also forgot level10
This commit is contained in:
parent
cf39438970
commit
99bd6a8744
303
games/lemm/level10.s
Normal file
303
games/lemm/level10.s
Normal file
@ -0,0 +1,303 @@
|
||||
.include "zp.inc"
|
||||
.include "hardware.inc"
|
||||
.include "qload.inc"
|
||||
.include "lemm.inc"
|
||||
.include "lemming_status.inc"
|
||||
|
||||
; technically it's level 12
|
||||
|
||||
.byte 10 ; level 10
|
||||
|
||||
do_level10:
|
||||
|
||||
|
||||
;======================
|
||||
; set up initial stuff
|
||||
;======================
|
||||
lda #1
|
||||
sta DOOR_X
|
||||
lda #76
|
||||
sta DOOR_Y
|
||||
|
||||
lda #4
|
||||
sta INIT_X
|
||||
lda #85
|
||||
sta INIT_Y
|
||||
|
||||
; flame locations
|
||||
|
||||
lda #35 ;
|
||||
sta l_flame_x_smc+1
|
||||
lda #189
|
||||
sta l_flame_y_smc+1
|
||||
sta r_flame_y_smc+1
|
||||
|
||||
lda #39 ;
|
||||
sta r_flame_x_smc+1
|
||||
|
||||
; door exit location
|
||||
|
||||
lda #33 ;
|
||||
sta exit_x1_smc+1
|
||||
lda #37
|
||||
sta exit_x2_smc+1
|
||||
|
||||
lda #100
|
||||
sta exit_y1_smc+1
|
||||
lda #130
|
||||
sta exit_y2_smc+1
|
||||
|
||||
|
||||
;==============
|
||||
; set up intro
|
||||
;==============
|
||||
|
||||
lda #<level10_preview_lzsa
|
||||
sta level_preview_l_smc+1
|
||||
lda #>level10_preview_lzsa
|
||||
sta level_preview_h_smc+1
|
||||
|
||||
lda #<level10_intro_text
|
||||
sta intro_text_smc_l+1
|
||||
lda #>level10_intro_text
|
||||
sta intro_text_smc_h+1
|
||||
|
||||
lda #$50 ; BCD
|
||||
sta PERCENT_NEEDED
|
||||
lda #$10
|
||||
sta PERCENT_ADD
|
||||
|
||||
|
||||
;==============
|
||||
; set up music
|
||||
;==============
|
||||
|
||||
lda #0
|
||||
sta CURRENT_CHUNK
|
||||
sta DONE_PLAYING
|
||||
sta BASE_FRAME_L
|
||||
sta BUTTON_LOCATION
|
||||
|
||||
; set up first song
|
||||
|
||||
lda #<music17_parts_l
|
||||
sta chunk_l_smc+1
|
||||
lda #>music17_parts_l
|
||||
sta chunk_l_smc+2
|
||||
|
||||
lda #<music17_parts_h
|
||||
sta chunk_h_smc+1
|
||||
lda #>music17_parts_h
|
||||
sta chunk_h_smc+2
|
||||
|
||||
|
||||
lda #$D0
|
||||
sta CHUNK_NEXT_LOAD ; Load at $D0
|
||||
jsr load_song_chunk
|
||||
|
||||
lda #$D0 ; music starts at $d000
|
||||
sta CHUNK_NEXT_PLAY
|
||||
sta BASE_FRAME_H
|
||||
|
||||
lda #1
|
||||
sta LOOP
|
||||
sta CURRENT_CHUNK
|
||||
|
||||
|
||||
|
||||
;=======================
|
||||
; show title screen
|
||||
;=======================
|
||||
|
||||
jsr intro_level
|
||||
|
||||
;=======================
|
||||
; Load Graphics
|
||||
;=======================
|
||||
|
||||
lda #$20
|
||||
sta HGR_PAGE
|
||||
jsr hgr_make_tables
|
||||
|
||||
bit SET_GR
|
||||
bit PAGE0
|
||||
bit HIRES
|
||||
bit FULLGR
|
||||
|
||||
lda #<level10_lzsa
|
||||
sta getsrc_smc+1 ; LZSA_SRC_LO
|
||||
lda #>level10_lzsa
|
||||
sta getsrc_smc+2 ; LZSA_SRC_HI
|
||||
|
||||
lda #$20
|
||||
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
lda #<level10_lzsa
|
||||
sta getsrc_smc+1 ; LZSA_SRC_LO
|
||||
lda #>level10_lzsa
|
||||
sta getsrc_smc+2 ; LZSA_SRC_HI
|
||||
|
||||
lda #$40
|
||||
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
|
||||
;=======================
|
||||
; Setup cursor
|
||||
;=======================
|
||||
|
||||
lda #$FF
|
||||
sta OVER_LEMMING
|
||||
lda #10
|
||||
sta CURSOR_X
|
||||
lda #100
|
||||
sta CURSOR_Y
|
||||
|
||||
|
||||
;=======================
|
||||
; init vars
|
||||
;=======================
|
||||
|
||||
lda #10
|
||||
sta LEMMINGS_TO_RELEASE
|
||||
|
||||
; set up time
|
||||
|
||||
lda #$5
|
||||
sta TIME_MINUTES
|
||||
lda #$00
|
||||
sta TIME_SECONDS
|
||||
sta TIMER_COUNT ; 1/50
|
||||
|
||||
jsr init_level
|
||||
|
||||
;=======================
|
||||
; Play "Let's Go"
|
||||
;=======================
|
||||
|
||||
jsr play_letsgo
|
||||
|
||||
|
||||
;===================
|
||||
;===================
|
||||
; Main Loop
|
||||
;===================
|
||||
;===================
|
||||
l10_main_loop:
|
||||
|
||||
;=========================
|
||||
; load next chunk of music
|
||||
; if necessary
|
||||
;=========================
|
||||
|
||||
jsr load_music
|
||||
|
||||
|
||||
|
||||
l10_no_load_chunk:
|
||||
|
||||
|
||||
lda DOOR_OPEN
|
||||
bne l10_door_is_open
|
||||
|
||||
jsr draw_door
|
||||
|
||||
l10_door_is_open:
|
||||
|
||||
;======================
|
||||
; release lemmings
|
||||
;======================
|
||||
|
||||
jsr release_lemming
|
||||
|
||||
;=====================
|
||||
; animate flames
|
||||
;=====================
|
||||
|
||||
jsr draw_flames
|
||||
|
||||
lda TIMER_COUNT
|
||||
cmp #50
|
||||
bcc l10_timer_not_yet
|
||||
|
||||
jsr update_time
|
||||
|
||||
lda #$0
|
||||
sta TIMER_COUNT
|
||||
l10_timer_not_yet:
|
||||
|
||||
|
||||
; main drawing loop
|
||||
|
||||
jsr erase_lemming
|
||||
|
||||
jsr erase_pointer
|
||||
|
||||
jsr move_lemmings
|
||||
|
||||
jsr draw_lemming
|
||||
|
||||
jsr handle_keypress
|
||||
|
||||
jsr draw_pointer
|
||||
|
||||
lda #$ff
|
||||
jsr wait
|
||||
|
||||
inc FRAMEL
|
||||
|
||||
lda LEVEL_OVER
|
||||
bne l10_level_over
|
||||
|
||||
jmp l10_main_loop
|
||||
|
||||
|
||||
l10_level_over:
|
||||
|
||||
rts
|
||||
|
||||
.include "graphics/graphics_level10.inc"
|
||||
|
||||
|
||||
music17_parts_h:
|
||||
.byte >lemm17_part1_lzsa,>lemm17_part2_lzsa,>lemm17_part3_lzsa
|
||||
.byte >lemm17_part4_lzsa,>lemm17_part5_lzsa,>lemm17_part6_lzsa
|
||||
.byte >lemm17_part7_lzsa,>lemm17_part8_lzsa
|
||||
.byte $00
|
||||
|
||||
music17_parts_l:
|
||||
.byte <lemm17_part1_lzsa,<lemm17_part2_lzsa,<lemm17_part3_lzsa
|
||||
.byte <lemm17_part4_lzsa,<lemm17_part5_lzsa,<lemm17_part6_lzsa
|
||||
.byte <lemm17_part7_lzsa,<lemm17_part8_lzsa
|
||||
|
||||
|
||||
|
||||
lemm17_part1_lzsa:
|
||||
.incbin "music/lemm17.part1.lzsa"
|
||||
lemm17_part2_lzsa:
|
||||
.incbin "music/lemm17.part2.lzsa"
|
||||
lemm17_part3_lzsa:
|
||||
.incbin "music/lemm17.part3.lzsa"
|
||||
lemm17_part4_lzsa:
|
||||
.incbin "music/lemm17.part4.lzsa"
|
||||
lemm17_part5_lzsa:
|
||||
.incbin "music/lemm17.part5.lzsa"
|
||||
lemm17_part6_lzsa:
|
||||
.incbin "music/lemm17.part6.lzsa"
|
||||
lemm17_part7_lzsa:
|
||||
.incbin "music/lemm17.part7.lzsa"
|
||||
lemm17_part8_lzsa:
|
||||
.incbin "music/lemm17.part8.lzsa"
|
||||
|
||||
|
||||
; actually level11
|
||||
level10_intro_text:
|
||||
.byte 0, 8,"LEVEL 10",0
|
||||
.byte 12, 8,"PATIENCE",0
|
||||
.byte 9,12,"NUMBER OF LEMMINGS 80",0
|
||||
.byte 12,14,"50% TO BE SAVED",0
|
||||
.byte 12,16,"RELEASE RATE 99",0
|
||||
.byte 13,18,"TIME 5 MINUTES",0
|
||||
.byte 15,20,"RATING FUN",0
|
||||
.byte 8,23,"PRESS RETURN TO CONTINUE",0
|
Loading…
Reference in New Issue
Block a user