| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110 |
- HallofFameRoomScript:
- call EnableAutoTextBoxDrawing
- ld hl, HallofFameRoomScriptPointers
- ld a, [wHallOfFameRoomCurScript]
- jp CallFunctionInTable
- HallofFameRoomScript_5a4aa:
- xor a
- ld [wJoyIgnore], a
- ld [wHallOfFameRoomCurScript], a
- ret
- HallofFameRoomScriptPointers:
- dw HallofFameRoomScript0
- dw HallofFameRoomScript1
- dw HallofFameRoomScript2
- dw HallofFameRoomScript3
- HallofFameRoomScript3:
- ret
- HallofFameRoomScript2:
- call Delay3
- ld a, [wLetterPrintingDelayFlags]
- push af
- xor a
- ld [wJoyIgnore], a
- predef HallOfFamePC
- pop af
- ld [wLetterPrintingDelayFlags], a
- ld hl, wFlags_D733
- res 1, [hl]
- inc hl
- set 0, [hl]
- xor a
- ld hl, wLoreleiCurScript
- ld [hli], a
- ld [hli], a
- ld [hl], a
- ld [wLanceCurScript], a
- ld [wHallOfFameRoomCurScript], a
- ; Elite 4 events
- ResetEventRange ELITE4_EVENTS_START, ELITE4_CHAMPION_EVENTS_END, 1
- xor a
- ld [wHallOfFameRoomCurScript], a
- ld a, PALLET_TOWN
- ld [wLastBlackoutMap], a
- callba SaveSAVtoSRAM
- ld b, 5
- .delayLoop
- ld c, 600 / 5
- call DelayFrames
- dec b
- jr nz, .delayLoop
- call WaitForTextScrollButtonPress
- jp Init
- HallofFameRoomScript0:
- ld a, $ff
- ld [wJoyIgnore], a
- ld hl, wSimulatedJoypadStatesEnd
- ld de, RLEMovement5a528
- call DecodeRLEList
- dec a
- ld [wSimulatedJoypadStatesIndex], a
- call StartSimulatingJoypadStates
- ld a, $1
- ld [wHallOfFameRoomCurScript], a
- ret
- RLEMovement5a528:
- db D_UP,$5
- db $ff
- HallofFameRoomScript1:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- ld a, PLAYER_DIR_RIGHT
- ld [wPlayerMovingDirection], a
- ld a, $1
- ld [H_SPRITEINDEX], a
- call SetSpriteMovementBytesToFF
- ld a, SPRITE_FACING_LEFT
- ld [hSpriteFacingDirection], a
- call SetSpriteFacingDirectionAndDelay
- call Delay3
- xor a
- ld [wJoyIgnore], a
- inc a ; PLAYER_DIR_RIGHT
- ld [wPlayerMovingDirection], a
- ld a, $1
- ld [hSpriteIndexOrTextID], a
- call DisplayTextID
- ld a, $ff
- ld [wJoyIgnore], a
- ld a, HS_UNKNOWN_DUNGEON_GUY
- ld [wMissableObjectIndex], a
- predef HideObject
- ld a, $2
- ld [wHallOfFameRoomCurScript], a
- ret
- HallofFameRoomTextPointers:
- dw HallofFameRoomText1
- HallofFameRoomText1:
- TX_FAR _HallofFameRoomText1
- db "@"
|
