thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2026-02-07 08:05:23 +13:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename map files, labels, and constants to be consistent and work with Polished Map

Browse source
This commit is contained in:
Rangi 2019-01-01 15:06:23 -05:00
parent 90430e6dee
commit c779602459
1398 changed files with 6631 additions and 6166 deletions
Download patch file Download diff file Expand all files Collapse all files

103
scripts/VictoryRoad1F.asm Executable file
View file

@ -0,0 +1,103 @@
VictoryRoad1F_Script:
ld hl, wCurrentMapScriptFlags
bit 5, [hl]
res 5, [hl]
call nz, .next
call EnableAutoTextBoxDrawing
ld hl, VictoryRoad1TrainerHeader0
ld de, VictoryRoad1F_ScriptPointers
ld a, [wVictoryRoad1FCurScript]
call ExecuteCurMapScriptInTable
ld [wVictoryRoad1FCurScript], a
ret
.next
CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
ret z
ld a, $1d
ld [wNewTileBlockID], a
lb bc, 6, 4
predef_jump ReplaceTileBlock
VictoryRoad1F_ScriptPointers:
dw VictoryRoad1Script0
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
VictoryRoad1Script0:
CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
jp nz, CheckFightingMapTrainers
ld hl, CoordsData_5da5c
call CheckBoulderCoords
jp nc, CheckFightingMapTrainers
ld hl, wCurrentMapScriptFlags
set 5, [hl]
SetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
ret
CoordsData_5da5c:
db $0D,$11,$FF
VictoryRoad1F_TextPointers:
dw VictoryRoad1Text1
dw VictoryRoad1Text2
dw PickUpItemText
dw PickUpItemText
dw BoulderText
dw BoulderText
dw BoulderText
VictoryRoad1TrainerHeader0:
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0
dw VictoryRoad1BattleText1 ; TextBeforeBattle
dw VictoryRoad1AfterBattleText1 ; TextAfterBattle
dw VictoryRoad1EndBattleText1 ; TextEndBattle
dw VictoryRoad1EndBattleText1 ; TextEndBattle
VictoryRoad1TrainerHeader1:
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1
dw VictoryRoad1BattleText2 ; TextBeforeBattle
dw VictoryRoad1AfterBattleText2 ; TextAfterBattle
dw VictoryRoad1EndBattleText2 ; TextEndBattle
dw VictoryRoad1EndBattleText2 ; TextEndBattle
db $ff
VictoryRoad1Text1:
TX_ASM
ld hl, VictoryRoad1TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
VictoryRoad1Text2:
TX_ASM
ld hl, VictoryRoad1TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
VictoryRoad1BattleText1:
TX_FAR _VictoryRoad1BattleText1
db "@"
VictoryRoad1EndBattleText1:
TX_FAR _VictoryRoad1EndBattleText1
db "@"
VictoryRoad1AfterBattleText1:
TX_FAR _VictoryRoad1AfterBattleText1
db "@"
VictoryRoad1BattleText2:
TX_FAR _VictoryRoad1BattleText2
db "@"
VictoryRoad1EndBattleText2:
TX_FAR _VictoryRoad1EndBattleText2
db "@"
VictoryRoad1AfterBattleText2:
TX_FAR _VictoryRoad1AfterBattleText2
db "@"