mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-16 18:30:50 +12:00
6c9265f0a2
This was an interesting thought exercise. As you can see, this code adds a scaling function for when you reach the KEP post-game. These teams are very powerful and a strong test of the player's skills. I did, however, remove the Legendary Pokemon from the first three's teams. They felt a little bit out there and kind of decrease the significance of the player's. Plus, we just went through hell adding conditional Hall of Fame respawns. The Elite Four use refight text based on their LGPE appearances. It's honestly a little odd, so if it's too much, the FRLG conditional text could be used instead. I like the way Agatha's plays out, though... Anyway, stupid hacky implementation done, please don't look at how I did the champion's trainer number.
182 lines
3.5 KiB
NASM
182 lines
3.5 KiB
NASM
LancesRoom_Script:
|
|
call LanceShowOrHideEntranceBlocks
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, LancesRoomTrainerHeaders
|
|
ld de, LancesRoom_ScriptPointers
|
|
ld a, [wLancesRoomCurScript]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [wLancesRoomCurScript], a
|
|
ret
|
|
|
|
LanceShowOrHideEntranceBlocks:
|
|
ld hl, wCurrentMapScriptFlags
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
ret z
|
|
CheckEvent EVENT_LANCES_ROOM_LOCK_DOOR
|
|
jr nz, .closeEntrance
|
|
; open entrance
|
|
ld a, $31
|
|
ld b, $32
|
|
jp .setEntranceBlocks
|
|
.closeEntrance
|
|
ld a, $72
|
|
ld b, $73
|
|
.setEntranceBlocks
|
|
; Replaces the tile blocks so the player can't leave.
|
|
push bc
|
|
ld [wNewTileBlockID], a
|
|
lb bc, 6, 2
|
|
call .SetEntranceBlock
|
|
pop bc
|
|
ld a, b
|
|
ld [wNewTileBlockID], a
|
|
lb bc, 6, 3
|
|
.SetEntranceBlock:
|
|
predef_jump ReplaceTileBlock
|
|
|
|
ResetLanceScript:
|
|
xor a
|
|
ld [wLancesRoomCurScript], a
|
|
ret
|
|
|
|
LancesRoom_ScriptPointers:
|
|
dw LanceScript0
|
|
dw DisplayEnemyTrainerTextAndStartBattle
|
|
dw LanceScript2
|
|
dw LanceScript3
|
|
dw LanceScript4
|
|
|
|
LanceScript4:
|
|
ret
|
|
|
|
LanceScript0:
|
|
CheckEvent EVENT_BEAT_LANCE
|
|
ret nz
|
|
ld hl, LanceTriggerMovementCoords
|
|
call ArePlayerCoordsInArray
|
|
jp nc, CheckFightingMapTrainers
|
|
xor a
|
|
ldh [hJoyHeld], a
|
|
ld a, [wCoordIndex]
|
|
cp $3 ; Is player standing next to Lance's sprite?
|
|
jr nc, .notStandingNextToLance
|
|
ld a, $1
|
|
ldh [hSpriteIndexOrTextID], a
|
|
jp DisplayTextID
|
|
.notStandingNextToLance
|
|
cp $5 ; Is player standing on the entrance staircase?
|
|
jr z, WalkToLance
|
|
CheckAndSetEvent EVENT_LANCES_ROOM_LOCK_DOOR
|
|
ret nz
|
|
ld hl, wCurrentMapScriptFlags
|
|
set 5, [hl]
|
|
ld a, SFX_GO_INSIDE
|
|
call PlaySound
|
|
jp LanceShowOrHideEntranceBlocks
|
|
|
|
LanceTriggerMovementCoords:
|
|
dbmapcoord 5, 1
|
|
dbmapcoord 6, 2
|
|
dbmapcoord 5, 11
|
|
dbmapcoord 6, 11
|
|
dbmapcoord 24, 16
|
|
db -1 ; end
|
|
|
|
LanceScript2:
|
|
call EndTrainerBattle
|
|
ld a, [wIsInBattle]
|
|
cp $ff
|
|
jp z, ResetLanceScript
|
|
ld a, $1
|
|
ldh [hSpriteIndexOrTextID], a
|
|
jp DisplayTextID
|
|
|
|
WalkToLance:
|
|
; Moves the player down the hallway to Lance's room.
|
|
ld a, $ff
|
|
ld [wJoyIgnore], a
|
|
ld hl, wSimulatedJoypadStatesEnd
|
|
ld de, WalkToLance_RLEList
|
|
call DecodeRLEList
|
|
dec a
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
call StartSimulatingJoypadStates
|
|
ld a, $3
|
|
ld [wLancesRoomCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
WalkToLance_RLEList:
|
|
db D_UP, 12
|
|
db D_LEFT, 12
|
|
db D_DOWN, 7
|
|
db D_LEFT, 6
|
|
db -1 ; end
|
|
|
|
LanceScript3:
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
|
and a
|
|
ret nz
|
|
call Delay3
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld [wLancesRoomCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
LancesRoom_TextPointers:
|
|
dw LanceText1
|
|
|
|
LancesRoomTrainerHeaders:
|
|
def_trainers
|
|
LancesRoomTrainerHeader0:
|
|
trainer EVENT_BEAT_LANCES_ROOM_TRAINER_0, 0, LanceBeforeBattleText, LanceEndBattleText, LanceAfterBattleText
|
|
LancesRoomTrainerHeader1:
|
|
trainer EVENT_BEAT_LANCES_ROOM_TRAINER_1, 0, LanceRematchText, LanceRematchEndBattleText, LanceRematchAfterBattleText
|
|
db -1 ; end
|
|
|
|
LanceText1:
|
|
text_asm
|
|
ld hl, LancesRoomTrainerHeader0
|
|
CheckEvent EVENT_POST_GAME_ATTAINED
|
|
jr z, .skip
|
|
ld hl, LancesRoomTrainerHeader1
|
|
.skip
|
|
call TalkToTrainer
|
|
CheckEvent EVENT_POST_GAME_ATTAINED
|
|
jr z, .skip2
|
|
ld a, [wTrainerNo]
|
|
inc a
|
|
ld [wTrainerNo], a
|
|
.skip2
|
|
jp TextScriptEnd
|
|
|
|
LanceBeforeBattleText:
|
|
text_far _LanceBeforeBattleText
|
|
text_end
|
|
|
|
LanceEndBattleText:
|
|
text_far _LanceEndBattleText
|
|
text_end
|
|
|
|
LanceAfterBattleText:
|
|
text_far _LanceAfterBattleText
|
|
text_asm
|
|
SetEvent EVENT_BEAT_LANCE
|
|
jp TextScriptEnd
|
|
|
|
LanceRematchText:
|
|
text_far _LanceRematchText
|
|
text_end
|
|
|
|
LanceRematchEndBattleText:
|
|
text_far _LanceRematchEndBattleText
|
|
text_end
|
|
|
|
LanceRematchAfterBattleText:
|
|
text_far _LanceRematchAfterBattleText
|
|
text_asm
|
|
SetEvent EVENT_BEAT_LANCE
|
|
jp TextScriptEnd
|