mirror of https://github.com/AbePralle/FGB.git
250 lines
6.4 KiB
NASM
250 lines
6.4 KiB
NASM
; L0213.asm storming moonbase obliteration
|
|
; Generated 07.09.2000 by mlevel
|
|
; Modified 07.31.2000 by Abe Pralle
|
|
|
|
INCLUDE "Source/Defs.inc"
|
|
INCLUDE "Source/Levels.inc"
|
|
|
|
|
|
;---------------------------------------------------------------------
|
|
SECTION "Level0213Section",ROMX
|
|
;---------------------------------------------------------------------
|
|
|
|
L0213_Contents::
|
|
DW L0213_Load
|
|
DW L0213_Init
|
|
DW L0213_Check
|
|
DW L0213_Map
|
|
|
|
;---------------------------------------------------------------------
|
|
; Load
|
|
;---------------------------------------------------------------------
|
|
L0213_Load:
|
|
DW ((L0213_LoadFinished - L0213_Load2)) ;size
|
|
L0213_Load2:
|
|
call ParseMap
|
|
ret
|
|
|
|
L0213_LoadFinished:
|
|
;---------------------------------------------------------------------
|
|
; Map
|
|
;---------------------------------------------------------------------
|
|
L0213_Map:
|
|
INCBIN "Data/Levels/L0213_intro_ba3.lvl"
|
|
|
|
;---------------------------------------------------------------------
|
|
; Init
|
|
;---------------------------------------------------------------------
|
|
VAR_LIGHT EQU 0
|
|
VAR_STATIC EQU 1
|
|
VAR_FACEON EQU 2
|
|
|
|
MONITORINDEX EQU 36
|
|
LIGHTINDEX EQU 40
|
|
FACEINDEX EQU 44
|
|
STATICINDEX EQU 48
|
|
|
|
|
|
L0213_Init:
|
|
DW ((L0213_InitFinished - L0213_Init2)) ;size
|
|
L0213_Init2:
|
|
ld a,[bgTileMap+LIGHTINDEX] ;tile index of first light
|
|
ld [levelVars+VAR_LIGHT],a
|
|
ld a,[bgTileMap+STATICINDEX] ;tile index of monitor
|
|
ld [levelVars+VAR_STATIC],a
|
|
xor a
|
|
ld [levelVars+VAR_FACEON],a
|
|
|
|
;have general gyro face west
|
|
ld bc,classGeneralGyro
|
|
call FindClassIndex
|
|
ld c,a
|
|
call GetFirst
|
|
ld a,DIR_WEST
|
|
call SetFacing
|
|
ld b,METHOD_DRAW
|
|
call CallMethod
|
|
|
|
ld bc,classGeneralGyro
|
|
ld de,classDoNothing
|
|
call ChangeClass
|
|
ret
|
|
|
|
L0213_InitFinished:
|
|
;---------------------------------------------------------------------
|
|
; Check
|
|
;---------------------------------------------------------------------
|
|
L0213_Check:
|
|
DW ((L0213_CheckFinished - L0213_Check2)) ;size
|
|
L0213_Check2:
|
|
;animate dice lights
|
|
ld a,[levelVars+VAR_LIGHT]
|
|
ld b,a
|
|
|
|
;slow lights
|
|
ldio a,[updateTimer]
|
|
swap a
|
|
and %00000011
|
|
add b
|
|
|
|
ld hl,bgTileMap+LIGHTINDEX
|
|
call ((.updateTwoLights - L0213_Check2) + levelCheckRAM)
|
|
|
|
;fast lights
|
|
ldio a,[updateTimer]
|
|
swap a
|
|
rlca
|
|
and %00000011
|
|
add b
|
|
call ((.updateTwoLights - L0213_Check2) + levelCheckRAM)
|
|
|
|
;animate static
|
|
ld a,[levelVars+VAR_STATIC]
|
|
ld b,a
|
|
ldio a,[updateTimer]
|
|
rrca
|
|
and %00000010
|
|
add b
|
|
ld hl,bgTileMap+STATICINDEX
|
|
ld [hl+],a
|
|
inc a
|
|
ld [hl+],a
|
|
|
|
;----cycle monitor displays-----------------------------------
|
|
ld a,MAPBANK
|
|
ldio [$ff70],a
|
|
|
|
;pick a random location
|
|
ld a,22
|
|
call GetRandomNumZeroToN
|
|
|
|
;ld a,31
|
|
;call GetRandomNumMask
|
|
;cp 23
|
|
;jr nc,.afterScreen
|
|
|
|
sla a
|
|
ld d,0
|
|
ld e,a
|
|
ld hl,((.monitorLocations-L0213_Check2)+levelCheckRAM)
|
|
add hl,de
|
|
ld a,[hl+]
|
|
ld h,[hl]
|
|
ld l,a
|
|
|
|
;is this static?
|
|
ld a,[hl]
|
|
cp STATICINDEX
|
|
jr z,.staticToFace
|
|
|
|
;is this the face?
|
|
ld a,[hl]
|
|
cp FACEINDEX
|
|
jr z,.turnOffFace
|
|
|
|
;is the face on elsewhere?
|
|
ld a,[levelVars+VAR_FACEON]
|
|
or a
|
|
jr nz,.afterScreen ;face is on; skip
|
|
|
|
;turn this to static to become the face
|
|
ld a,1
|
|
ld [levelVars+VAR_FACEON],a
|
|
ld a,STATICINDEX
|
|
jr .pickedScreen
|
|
|
|
.turnOffFace
|
|
xor a
|
|
ld [levelVars+VAR_FACEON],a
|
|
ld a,MONITORINDEX ;monitor
|
|
jr .pickedScreen
|
|
|
|
.staticToFace
|
|
ld a,FACEINDEX ;face
|
|
.pickedScreen
|
|
ld [hl+],a
|
|
inc a
|
|
ld [hl+],a
|
|
inc a
|
|
cp STATICINDEX+2
|
|
jr nz,.afterStaticCheck
|
|
sub 2
|
|
.afterStaticCheck
|
|
ld de,30 ;map pitch
|
|
add hl,de
|
|
ld [hl+],a
|
|
inc a
|
|
ld [hl+],a
|
|
|
|
.afterScreen
|
|
;----Check to see if confronting General Gyro-----------------
|
|
ld hl,hero0_data
|
|
call ((.checkConfrontGyro - L0213_Check2) + levelCheckRAM)
|
|
ld hl,hero1_data
|
|
call ((.checkConfrontGyro - L0213_Check2) + levelCheckRAM)
|
|
ret
|
|
|
|
.updateTwoLights
|
|
ld [hl+],a
|
|
call ((.incCount4 - L0213_Check2) + levelCheckRAM)
|
|
ld [hl+],a
|
|
ret
|
|
|
|
.incCount4
|
|
sub b
|
|
inc a
|
|
and %00000011
|
|
add b
|
|
ret
|
|
|
|
.checkConfrontGyro
|
|
inc hl
|
|
ld a,[hl-]
|
|
or a ;look at the hero class index I've been given
|
|
ret z ;not present if zero
|
|
|
|
ld c,a ;save class index
|
|
ld a,[hl] ;get my joy index
|
|
ld [dialogJoyIndex],a ;save that in case I talk
|
|
|
|
ld de,HERODATA_TYPE
|
|
add hl,de
|
|
ld a,[hl] ;get my type
|
|
ld [dialogSpeakerIndex],a ;save that for talking too
|
|
|
|
;get my object then my zone
|
|
call GetFirst
|
|
call GetCurZone
|
|
|
|
cp 9 ;in same zone as Gyro?
|
|
ret nz ;all for naught
|
|
|
|
ld hl,$1302 ;next level
|
|
ld a,l
|
|
ld [curLevelIndex],a
|
|
ld a,h
|
|
ld [curLevelIndex+1],a
|
|
call YankRemotePlayer
|
|
ld a,1
|
|
ld [timeToChangeLevel],a
|
|
ret
|
|
|
|
|
|
.monitorLocations
|
|
DW $d021,$d033,$d056,$d058,$d05a,$d05c ;6
|
|
DW $d262,$d264,$d266 ;3
|
|
DW $d2d2,$d312,$d352,$d392 ;4
|
|
DW $d255,$d295,$d2d5,$d315,$d355,$d395 ;6
|
|
DW $d25c,$d29c,$d2dc,$d31c ;4 23
|
|
|
|
L0213_CheckFinished:
|
|
|
|
PRINT "0213 Script Sizes (Load/Init/Check) (of $500): "
|
|
PRINT (L0213_LoadFinished - L0213_Load2)
|
|
PRINT " / "
|
|
PRINT (L0213_InitFinished - L0213_Init2)
|
|
PRINT " / "
|
|
PRINT (L0213_CheckFinished - L0213_Check2)
|
|
PRINT "\n"
|
|
|