mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
76b882d952
'dbmapcoord' has X, Y order like other coordinate-related data macros
144 lines
2.8 KiB
NASM
Executable file
144 lines
2.8 KiB
NASM
Executable file
BrunosRoom_Script:
|
|
call BrunoShowOrHideExitBlock
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, BrunoTrainerHeader0
|
|
ld de, BrunosRoom_ScriptPointers
|
|
ld a, [wBrunosRoomCurScript]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [wBrunosRoomCurScript], a
|
|
ret
|
|
|
|
BrunoShowOrHideExitBlock:
|
|
; Blocks or clears the exit to the next room.
|
|
ld hl, wCurrentMapScriptFlags
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
ret z
|
|
CheckEvent EVENT_BEAT_BRUNOS_ROOM_TRAINER_0
|
|
jr z, .blockExitToNextRoom
|
|
ld a, $5
|
|
jp .setExitBlock
|
|
.blockExitToNextRoom
|
|
ld a, $24
|
|
.setExitBlock
|
|
ld [wNewTileBlockID], a
|
|
lb bc, 0, 2
|
|
predef_jump ReplaceTileBlock
|
|
|
|
ResetBrunoScript:
|
|
xor a
|
|
ld [wBrunosRoomCurScript], a
|
|
ret
|
|
|
|
BrunosRoom_ScriptPointers:
|
|
dw BrunoScript0
|
|
dw DisplayEnemyTrainerTextAndStartBattle
|
|
dw BrunoScript2
|
|
dw BrunoScript3
|
|
dw BrunoScript4
|
|
|
|
BrunoScript4:
|
|
ret
|
|
|
|
BrunoScriptWalkIntoRoom:
|
|
; Walk six steps upward.
|
|
ld hl, wSimulatedJoypadStatesEnd
|
|
ld a, D_UP
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hl], a
|
|
ld a, $6
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
call StartSimulatingJoypadStates
|
|
ld a, $3
|
|
ld [wBrunosRoomCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
BrunoScript0:
|
|
ld hl, BrunoEntranceCoords
|
|
call ArePlayerCoordsInArray
|
|
jp nc, CheckFightingMapTrainers
|
|
xor a
|
|
ldh [hJoyPressed], a
|
|
ldh [hJoyHeld], a
|
|
ld [wSimulatedJoypadStatesEnd], a
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
ld a, [wCoordIndex]
|
|
cp $3 ; Is player standing one tile above the exit?
|
|
jr c, .stopPlayerFromLeaving
|
|
CheckAndSetEvent EVENT_AUTOWALKED_INTO_BRUNOS_ROOM
|
|
jr z, BrunoScriptWalkIntoRoom
|
|
.stopPlayerFromLeaving
|
|
ld a, $2
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID ; "Don't run away!"
|
|
ld a, D_UP
|
|
ld [wSimulatedJoypadStatesEnd], a
|
|
ld a, $1
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
call StartSimulatingJoypadStates
|
|
ld a, $3
|
|
ld [wBrunosRoomCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
BrunoEntranceCoords:
|
|
dbmapcoord 4, 10
|
|
dbmapcoord 5, 10
|
|
dbmapcoord 4, 11
|
|
dbmapcoord 5, 11
|
|
db -1 ; end
|
|
|
|
BrunoScript3:
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
|
and a
|
|
ret nz
|
|
call Delay3
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld [wBrunosRoomCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
BrunoScript2:
|
|
call EndTrainerBattle
|
|
ld a, [wIsInBattle]
|
|
cp $ff
|
|
jp z, ResetBrunoScript
|
|
ld a, $1
|
|
ldh [hSpriteIndexOrTextID], a
|
|
jp DisplayTextID
|
|
|
|
BrunosRoom_TextPointers:
|
|
dw BrunoText1
|
|
dw BrunoDontRunAwayText
|
|
|
|
BrunoTrainerHeader0:
|
|
trainer EVENT_BEAT_BRUNOS_ROOM_TRAINER_0, 0, BrunoBeforeBattleText, BrunoEndBattleText, BrunoAfterBattleText
|
|
db -1 ; end
|
|
|
|
BrunoText1:
|
|
text_asm
|
|
ld hl, BrunoTrainerHeader0
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
BrunoBeforeBattleText:
|
|
text_far _BrunoBeforeBattleText
|
|
text_end
|
|
|
|
BrunoEndBattleText:
|
|
text_far _BrunoEndBattleText
|
|
text_end
|
|
|
|
BrunoAfterBattleText:
|
|
text_far _BrunoAfterBattleText
|
|
text_end
|
|
|
|
BrunoDontRunAwayText:
|
|
text_far _BrunoDontRunAwayText
|
|
text_end
|