AbePralle-FGB/Source/Levels/L0711.asm

105 lines
2.8 KiB
NASM

; L0711.asm Space Station Apocalypse Exterior
; Generated 04.25.2001 by mlevel
; Modified 04.25.2001 by Abe Pralle
INCLUDE "Source/Defs.inc"
INCLUDE "Source/Levels.inc"
;---------------------------------------------------------------------
SECTION "Level0711Section",ROMX
;---------------------------------------------------------------------
;import classBAPlayer
;import classBSPlayer
;import classHaikuPlayer
;import classBAPlayerSpace
;import classBSPlayerSpace
;import classHaikuPlayerSpace
L0711_Contents::
DW L0711_Load
DW L0711_Init
DW L0711_Check
DW L0711_Map
;---------------------------------------------------------------------
; Load
;---------------------------------------------------------------------
L0711_Load:
DW ((L0711_LoadFinished - L0711_Load2)) ;size
L0711_Load2:
ld a,[hero0_enterLevelFacing]
cp EXIT_U
jr nz,.checkHero1
ld a,50
ld [hero0_enterLevelLocation],a
ld a,23
ld [hero0_enterLevelLocation+1],a
.checkHero1
ld a,[hero1_enterLevelFacing]
cp EXIT_U
jr nz,.afterChangeEnterLoc
ld a,50
ld [hero1_enterLevelLocation],a
ld a,23
ld [hero1_enterLevelLocation+1],a
.afterChangeEnterLoc
call ParseMap
ret
L0711_LoadFinished:
;---------------------------------------------------------------------
; Map
;---------------------------------------------------------------------
L0711_Map:
INCBIN "Data/Levels/L0711_spacestation.lvl"
;---------------------------------------------------------------------
; Init
;---------------------------------------------------------------------
L0711_Init:
DW ((L0711_InitFinished - L0711_Init2)) ;size
L0711_Init2:
ld a,BANK(spaceish_gbm)
ld hl,spaceish_gbm
call InitMusic
ret
L0711_InitFinished:
;---------------------------------------------------------------------
; Check
;---------------------------------------------------------------------
L0711_Check:
DW ((L0711_CheckFinished - L0711_Check2)) ;size
L0711_Check2:
call ((.changePlayersToSpace-L0711_Check2)+levelCheckRAM)
ret
.changePlayersToSpace
ld bc,classBAPlayer
ld de,classBAPlayerSpace
call ChangeClass
ld bc,classBSPlayer
ld de,classBSPlayerSpace
call ChangeClass
ld bc,classHaikuPlayer
ld de,classHaikuPlayerSpace
call ChangeClass
ret
L0711_CheckFinished:
PRINT "0711 Script Sizes (Load/Init/Check) (of $500): "
PRINT (L0711_LoadFinished - L0711_Load2)
PRINT " / "
PRINT (L0711_InitFinished - L0711_Init2)
PRINT " / "
PRINT (L0711_CheckFinished - L0711_Check2)
PRINT "\n"