thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2026-02-06 15:45:24 +13:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of https://github.com/pret/pokered

Browse source
This commit is contained in:
dannye 2021-03-23 00:53:43 -05:00
commit e8dd755e18
3702 changed files with 163333 additions and 159040 deletions
Download patch file Download diff file Expand all files Collapse all files

49
scripts/AgathasRoom.asm Executable file → Normal file
View file

@ -20,7 +20,7 @@ AgathaShowOrHideExitBlock:
jp .setExitBlock
.blockExitToNextRoom
ld a, $3b
.setExitBlock:
.setExitBlock
ld [wNewTileBlockID], a
lb bc, 0, 2
predef_jump ReplaceTileBlock
@ -63,8 +63,8 @@ AgathaScript0:
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
xor a
ld [hJoyPressed], a
ld [hJoyHeld], a
ldh [hJoyPressed], a
ldh [hJoyHeld], a
ld [wSimulatedJoypadStatesEnd], a
ld [wSimulatedJoypadStatesIndex], a
ld a, [wCoordIndex]
@ -74,7 +74,7 @@ AgathaScript0:
jr z, AgathaScriptWalkIntoRoom
.stopPlayerFromLeaving
ld a, $2
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID ; "Don't run away!"
ld a, D_UP
ld [wSimulatedJoypadStatesEnd], a
@ -87,11 +87,11 @@ AgathaScript0:
ret
AgathaEntranceCoords:
db $0A,$04
db $0A,$05
db $0B,$04
db $0B,$05
db $FF
dbmapcoord 4, 10
dbmapcoord 5, 10
dbmapcoord 4, 11
dbmapcoord 5, 11
db -1 ; end
AgathaScript3:
ld a, [wSimulatedJoypadStatesIndex]
@ -110,7 +110,7 @@ AgathaScript2:
cp $ff
jp z, ResetAgathaScript
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $1
ld [wChampionsRoomCurScript], a
@ -121,34 +121,27 @@ AgathasRoom_TextPointers:
dw AgathaDontRunAwayText
AgathaTrainerHeader0:
dbEventFlagBit EVENT_BEAT_AGATHAS_ROOM_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_AGATHAS_ROOM_TRAINER_0
dw AgathaBeforeBattleText ; TextBeforeBattle
dw AgathaAfterBattleText ; TextAfterBattle
dw AgathaEndBattleText ; TextEndBattle
dw AgathaEndBattleText ; TextEndBattle
db $ff
trainer EVENT_BEAT_AGATHAS_ROOM_TRAINER_0, 0, AgathaBeforeBattleText, AgathaEndBattleText, AgathaAfterBattleText
db -1 ; end
AgathaText1:
TX_ASM
text_asm
ld hl, AgathaTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
AgathaBeforeBattleText:
TX_FAR _AgathaBeforeBattleText
db "@"
text_far _AgathaBeforeBattleText
text_end
AgathaEndBattleText:
TX_FAR _AgathaEndBattleText
db "@"
text_far _AgathaEndBattleText
text_end
AgathaAfterBattleText:
TX_FAR _AgathaAfterBattleText
db "@"
text_far _AgathaAfterBattleText
text_end
AgathaDontRunAwayText:
TX_FAR _AgathaDontRunAwayText
db "@"
text_far _AgathaDontRunAwayText
text_end

68
scripts/BikeShop.asm Executable file → Normal file
View file

@ -7,7 +7,7 @@ BikeShop_TextPointers:
dw BikeShopText3
BikeShopText1:
TX_ASM
text_asm
CheckEvent EVENT_GOT_BICYCLE
jr z, .asm_260d4
ld hl, BikeShopText_1d82f
@ -23,8 +23,8 @@ BikeShopText1:
call GiveItem
jr nc, .BagFull
ld a, BIKE_VOUCHER
ld [$ffdb], a
callba RemoveItemByID
ldh [hItemToRemoveID], a
farcall RemoveItemByID
SetEvent EVENT_GOT_BICYCLE
ld hl, BikeShopText_1d824
call PrintText
@ -49,21 +49,21 @@ BikeShopText1:
ld [wTopMenuItemX], a
ld hl, wd730
set 6, [hl]
coord hl, 0, 0
ld b, $4
ld c, $f
hlcoord 0, 0
ld b, 4
ld c, 15
call TextBoxBorder
call UpdateSprites
coord hl, 2, 2
hlcoord 2, 2
ld de, BikeShopMenuText
call PlaceString
coord hl, 8, 3
hlcoord 8, 3
ld de, BikeShopMenuPrice
call PlaceString
ld hl, BikeShopText_1d815
call PrintText
call HandleMenuInput
bit 1, a
bit BIT_B_BUTTON, a
jr nz, .cancel
ld hl, wd730
res 6, [hl]
@ -86,50 +86,50 @@ BikeShopMenuPrice:
db "¥1000000@"
BikeShopText_1d810:
TX_FAR _BikeShopText_1d810
db "@"
text_far _BikeShopText_1d810
text_end
BikeShopText_1d815:
TX_FAR _BikeShopText_1d815
db "@"
text_far _BikeShopText_1d815
text_end
BikeShopCantAffordText:
TX_FAR _BikeShopCantAffordText
db "@"
text_far _BikeShopCantAffordText
text_end
BikeShopText_1d81f:
TX_FAR _BikeShopText_1d81f
db "@"
text_far _BikeShopText_1d81f
text_end
BikeShopText_1d824:
TX_FAR _BikeShopText_1d824
TX_SFX_KEY_ITEM
db "@"
text_far _BikeShopText_1d824
sound_get_key_item
text_end
BikeShopComeAgainText:
TX_FAR _BikeShopComeAgainText
db "@"
text_far _BikeShopComeAgainText
text_end
BikeShopText_1d82f:
TX_FAR _BikeShopText_1d82f
db "@"
text_far _BikeShopText_1d82f
text_end
BikeShopText_1d834:
TX_FAR _BikeShopText_1d834
db "@"
text_far _BikeShopText_1d834
text_end
BikeShopText2:
TX_ASM
text_asm
ld hl, BikeShopText_1d843
call PrintText
jp TextScriptEnd
BikeShopText_1d843:
TX_FAR _BikeShopText_1d843
db "@"
text_far _BikeShopText_1d843
text_end
BikeShopText3:
TX_ASM
text_asm
CheckEvent EVENT_GOT_BICYCLE
ld hl, BikeShopText_1d861
jr nz, .asm_34d2d
@ -139,9 +139,9 @@ BikeShopText3:
jp TextScriptEnd
BikeShopText_1d85c:
TX_FAR _BikeShopText_1d85c
db "@"
text_far _BikeShopText_1d85c
text_end
BikeShopText_1d861:
TX_FAR _BikeShopText_1d861
db "@"
text_far _BikeShopText_1d861
text_end

70
scripts/BillsHouse.asm Executable file → Normal file
View file

@ -16,14 +16,14 @@ BillsHouseScript0:
ret
BillsHouseScript1:
ld a, [wSpriteStateData1 + 9]
ld a, [wSpritePlayerStateData1FacingDirection]
and a ; cp SPRITE_FACING_DOWN
ld de, MovementData_1e79c
jr nz, .notDown
ld de, MovementData_1e7a0
.notDown
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $2
ld [wBillsHouseCurScript], a
@ -33,7 +33,7 @@ MovementData_1e79c:
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db $FF
db -1 ; end
; make Bill walk around the player
MovementData_1e7a0:
@ -42,7 +42,7 @@ MovementData_1e7a0:
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_LEFT
db NPC_MOVEMENT_UP
db $FF
db -1 ; end
BillsHouseScript2:
ld a, [wd730]
@ -66,13 +66,13 @@ BillsHouseScript3:
ld a, $2
ld [wSpriteIndex], a
ld a, $c
ld [$ffeb], a
ldh [hSpriteScreenYCoord], a
ld a, $40
ld [$ffec], a
ld a, $6
ld [$ffed], a
ld a, $5
ld [$ffee], a
ldh [hSpriteScreenXCoord], a
ld a, 6
ldh [hSpriteMapYCoord], a
ld a, 5
ldh [hSpriteMapXCoord], a
call SetSpritePosition1
ld a, HS_BILL_1
ld [wMissableObjectIndex], a
@ -80,7 +80,7 @@ BillsHouseScript3:
ld c, 8
call DelayFrames
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld de, MovementData_1e807
call MoveSprite
ld a, $4
@ -93,7 +93,7 @@ MovementData_1e807:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
BillsHouseScript4:
ld a, [wd730]
@ -109,7 +109,7 @@ BillsHouseScript4:
BillsHouseScript5:
ld a, $4
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $0
ld [wBillsHouseCurScript], a
@ -122,10 +122,10 @@ BillsHouse_TextPointers:
dw BillsHouseText4
BillsHouseText4:
TX_BILLS_PC
script_bills_pc
BillsHouseText1:
TX_ASM
text_asm
ld hl, BillsHouseText_1e865
call PrintText
call YesNoChoice
@ -146,19 +146,19 @@ BillsHouseText1:
jp TextScriptEnd
BillsHouseText_1e865:
TX_FAR _BillsHouseText_1e865
db "@"
text_far _BillsHouseText_1e865
text_end
BillsHouseText_1e86a:
TX_FAR _BillsHouseText_1e86a
db "@"
text_far _BillsHouseText_1e86a
text_end
BillsHouseText_1e86f:
TX_FAR _BillsHouseText_1e86f
db "@"
text_far _BillsHouseText_1e86f
text_end
BillsHouseText2:
TX_ASM
text_asm
CheckEvent EVENT_GOT_SS_TICKET
jr nz, .asm_1e8a9
ld hl, BillThankYouText
@ -186,29 +186,29 @@ BillsHouseText2:
jp TextScriptEnd
BillThankYouText:
TX_FAR _BillThankYouText
db "@"
text_far _BillThankYouText
text_end
SSTicketReceivedText:
TX_FAR _SSTicketReceivedText
TX_SFX_KEY_ITEM
TX_BLINK
db "@"
text_far _SSTicketReceivedText
sound_get_key_item
text_promptbutton
text_end
SSTicketNoRoomText:
TX_FAR _SSTicketNoRoomText
db "@"
text_far _SSTicketNoRoomText
text_end
BillsHouseText_1e8cb:
TX_FAR _BillsHouseText_1e8cb
db "@"
text_far _BillsHouseText_1e8cb
text_end
BillsHouseText3:
TX_ASM
text_asm
ld hl, BillsHouseText_1e8da
call PrintText
jp TextScriptEnd
BillsHouseText_1e8da:
TX_FAR _BillsHouseText_1e8da
db "@"
text_far _BillsHouseText_1e8da
text_end

62
scripts/BluesHouse.asm Executable file → Normal file
View file

@ -10,9 +10,7 @@ BluesHouse_ScriptPointers:
BluesHouseScript0:
SetEvent EVENT_ENTERED_BLUES_HOUSE
; trigger the next script
ld a, 1
ld a, $1
ld [wBluesHouseCurScript], a
ret
@ -20,70 +18,70 @@ BluesHouseScript1:
ret
BluesHouse_TextPointers:
dw BluesHouseText1
dw BluesHouseText2
dw BluesHouseText3
dw BluesHouseDaisySittingText
dw BluesHouseDaisyWalkingText
dw BluesHouseTownMapText
BluesHouseText1:
TX_ASM
BluesHouseDaisySittingText:
text_asm
CheckEvent EVENT_GOT_TOWN_MAP
jr nz, .GotMap
jr nz, .got_town_map
CheckEvent EVENT_GOT_POKEDEX
jr nz, .GiveMap
jr nz, .give_town_map
ld hl, DaisyInitialText
call PrintText
jr .done
.GiveMap
.give_town_map
ld hl, DaisyOfferMapText
call PrintText
lb bc, TOWN_MAP, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
ld a, HS_TOWN_MAP
ld [wMissableObjectIndex], a
predef HideObject ; hide table map object
predef HideObject
ld hl, GotMapText
call PrintText
SetEvent EVENT_GOT_TOWN_MAP
jr .done
.GotMap
.got_town_map
ld hl, DaisyUseMapText
call PrintText
jr .done
.BagFull
.bag_full
ld hl, DaisyBagFullText
call PrintText
.done
jp TextScriptEnd
DaisyInitialText:
TX_FAR _DaisyInitialText
db "@"
text_far _DaisyInitialText
text_end
DaisyOfferMapText:
TX_FAR _DaisyOfferMapText
db "@"
text_far _DaisyOfferMapText
text_end
GotMapText:
TX_FAR _GotMapText
TX_SFX_KEY_ITEM
db "@"
text_far _GotMapText
sound_get_key_item
text_end
DaisyBagFullText:
TX_FAR _DaisyBagFullText
db "@"
text_far _DaisyBagFullText
text_end
DaisyUseMapText:
TX_FAR _DaisyUseMapText
db "@"
text_far _DaisyUseMapText
text_end
BluesHouseText2: ; Daisy, walking around
TX_FAR _BluesHouseText2
db "@"
BluesHouseDaisyWalkingText:
text_far _BluesHouseDaisyWalkingText
text_end
BluesHouseText3: ; map on table
TX_FAR _BluesHouseText3
db "@"
BluesHouseTownMapText:
text_far _BluesHouseTownMapText
text_end

47
scripts/BrunosRoom.asm Executable file → Normal file
View file

@ -63,8 +63,8 @@ BrunoScript0:
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
xor a
ld [hJoyPressed], a
ld [hJoyHeld], a
ldh [hJoyPressed], a
ldh [hJoyHeld], a
ld [wSimulatedJoypadStatesEnd], a
ld [wSimulatedJoypadStatesIndex], a
ld a, [wCoordIndex]
@ -74,7 +74,7 @@ BrunoScript0:
jr z, BrunoScriptWalkIntoRoom
.stopPlayerFromLeaving
ld a, $2
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID ; "Don't run away!"
ld a, D_UP
ld [wSimulatedJoypadStatesEnd], a
@ -87,11 +87,11 @@ BrunoScript0:
ret
BrunoEntranceCoords:
db $0A,$04
db $0A,$05
db $0B,$04
db $0B,$05
db $FF
dbmapcoord 4, 10
dbmapcoord 5, 10
dbmapcoord 4, 11
dbmapcoord 5, 11
db -1 ; end
BrunoScript3:
ld a, [wSimulatedJoypadStatesIndex]
@ -110,7 +110,7 @@ BrunoScript2:
cp $ff
jp z, ResetBrunoScript
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
BrunosRoom_TextPointers:
@ -118,34 +118,27 @@ BrunosRoom_TextPointers:
dw BrunoDontRunAwayText
BrunoTrainerHeader0:
dbEventFlagBit EVENT_BEAT_BRUNOS_ROOM_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_BRUNOS_ROOM_TRAINER_0
dw BrunoBeforeBattleText ; TextBeforeBattle
dw BrunoAfterBattleText ; TextAfterBattle
dw BrunoEndBattleText ; TextEndBattle
dw BrunoEndBattleText ; TextEndBattle
db $ff
trainer EVENT_BEAT_BRUNOS_ROOM_TRAINER_0, 0, BrunoBeforeBattleText, BrunoEndBattleText, BrunoAfterBattleText
db -1 ; end
BrunoText1:
TX_ASM
text_asm
ld hl, BrunoTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
BrunoBeforeBattleText:
TX_FAR _BrunoBeforeBattleText
db "@"
text_far _BrunoBeforeBattleText
text_end
BrunoEndBattleText:
TX_FAR _BrunoEndBattleText
db "@"
text_far _BrunoEndBattleText
text_end
BrunoAfterBattleText:
TX_FAR _BrunoAfterBattleText
db "@"
text_far _BrunoAfterBattleText
text_end
BrunoDontRunAwayText:
TX_FAR _BrunoDontRunAwayText
db "@"
text_far _BrunoDontRunAwayText
text_end

12
scripts/CeladonChiefHouse.asm Executable file → Normal file
View file

@ -8,13 +8,13 @@ CeladonChiefHouse_TextPointers:
dw CeladonHouseText3
CeladonHouseText1:
TX_FAR _CeladonHouseText1
db "@"
text_far _CeladonHouseText1
text_end
CeladonHouseText2:
TX_FAR _CeladonHouseText2
db "@"
text_far _CeladonHouseText2
text_end
CeladonHouseText3:
TX_FAR _CeladonHouseText3
db "@"
text_far _CeladonHouseText3
text_end

86
scripts/CeladonCity.asm Executable file → Normal file
View file

@ -25,28 +25,28 @@ CeladonCity_TextPointers:
dw CeladonCityText18
CeladonCityText1:
TX_FAR _CeladonCityText1
db "@"
text_far _CeladonCityText1
text_end
CeladonCityText2:
TX_FAR _CeladonCityText2
db "@"
text_far _CeladonCityText2
text_end
CeladonCityText3:
TX_FAR _CeladonCityText3
db "@"
text_far _CeladonCityText3
text_end
CeladonCityText4:
TX_FAR _CeladonCityText4
db "@"
text_far _CeladonCityText4
text_end
CeladonCityText5:
TX_ASM
text_asm
CheckEvent EVENT_GOT_TM41
jr nz, .asm_7053f
ld hl, TM41PreText
call PrintText
lb bc, TM_41, 1
lb bc, TM_SOFTBOILED, 1
call GiveItem
jr c, .Success
ld hl, TM41NoRoomText
@ -64,69 +64,69 @@ CeladonCityText5:
jp TextScriptEnd
TM41PreText:
TX_FAR _TM41PreText
db "@"
text_far _TM41PreText
text_end
ReceivedTM41Text:
TX_FAR _ReceivedTM41Text
TX_SFX_ITEM_1
db "@"
text_far _ReceivedTM41Text
sound_get_item_1
text_end
TM41ExplanationText:
TX_FAR _TM41ExplanationText
db "@"
text_far _TM41ExplanationText
text_end
TM41NoRoomText:
TX_FAR _TM41NoRoomText
db "@"
text_far _TM41NoRoomText
text_end
CeladonCityText6:
TX_FAR _CeladonCityText6
db "@"
text_far _CeladonCityText6
text_end
CeladonCityText7:
TX_FAR _CeladonCityText7
TX_ASM
text_far _CeladonCityText7
text_asm
ld a, POLIWRATH
call PlayCry
jp TextScriptEnd
CeladonCityText8:
TX_FAR _CeladonCityText8
db "@"
text_far _CeladonCityText8
text_end
CeladonCityText9:
TX_FAR _CeladonCityText9
db "@"
text_far _CeladonCityText9
text_end
CeladonCityText10:
TX_FAR _CeladonCityText10
db "@"
text_far _CeladonCityText10
text_end
CeladonCityText11:
TX_FAR _CeladonCityText11
db "@"
text_far _CeladonCityText11
text_end
CeladonCityText13:
TX_FAR _CeladonCityText13
db "@"
text_far _CeladonCityText13
text_end
CeladonCityText14:
TX_FAR _CeladonCityText14
db "@"
text_far _CeladonCityText14
text_end
CeladonCityText15:
TX_FAR _CeladonCityText15
db "@"
text_far _CeladonCityText15
text_end
CeladonCityText16:
TX_FAR _CeladonCityText16
db "@"
text_far _CeladonCityText16
text_end
CeladonCityText17:
TX_FAR _CeladonCityText17
db "@"
text_far _CeladonCityText17
text_end
CeladonCityText18:
TX_FAR _CeladonCityText18
db "@"
text_far _CeladonCityText18
text_end

50
scripts/CeladonDiner.asm Executable file → Normal file
View file

@ -10,57 +10,57 @@ CeladonDiner_TextPointers:
dw CeladonDinerText5
CeladonDinerText1:
TX_FAR _CeladonDinerText1
db "@"
text_far _CeladonDinerText1
text_end
CeladonDinerText2:
TX_FAR _CeladonDinerText2
db "@"
text_far _CeladonDinerText2
text_end
CeladonDinerText3:
TX_FAR _CeladonDinerText3
db "@"
text_far _CeladonDinerText3
text_end
CeladonDinerText4:
TX_FAR _CeladonDinerText4
db "@"
text_far _CeladonDinerText4
text_end
CeladonDinerText5:
TX_ASM
text_asm
CheckEvent EVENT_GOT_COIN_CASE
jr nz, .asm_eb14d
jr nz, .got_item
ld hl, CeladonDinerText_491a7
call PrintText
lb bc, COIN_CASE, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
SetEvent EVENT_GOT_COIN_CASE
ld hl, ReceivedCoinCaseText
call PrintText
jr .asm_68b61
.BagFull
jr .done
.bag_full
ld hl, CoinCaseNoRoomText
call PrintText
jr .asm_68b61
.asm_eb14d
jr .done
.got_item
ld hl, CeladonDinerText_491b7
call PrintText
.asm_68b61
.done
jp TextScriptEnd
CeladonDinerText_491a7:
TX_FAR _CeladonDinerText_491a7
db "@"
text_far _CeladonDinerText_491a7
text_end
ReceivedCoinCaseText:
TX_FAR _ReceivedCoinCaseText
TX_SFX_KEY_ITEM
db "@"
text_far _ReceivedCoinCaseText
sound_get_key_item
text_end
CoinCaseNoRoomText:
TX_FAR _CoinCaseNoRoomText
db "@"
text_far _CoinCaseNoRoomText
text_end
CeladonDinerText_491b7:
TX_FAR _CeladonDinerText_491b7
db "@"
text_far _CeladonDinerText_491b7
text_end

237
scripts/CeladonGym.asm Executable file → Normal file
View file

@ -2,7 +2,7 @@ CeladonGym_Script:
ld hl, wCurrentMapScriptFlags
bit 6, [hl]
res 6, [hl]
call nz, CeladonGymScript_48927
call nz, .LoadNames
call EnableAutoTextBoxDrawing
ld hl, CeladonGymTrainerHeader0
ld de, CeladonGym_ScriptPointers
@ -11,15 +11,15 @@ CeladonGym_Script:
ld [wCeladonGymCurScript], a
ret
CeladonGymScript_48927:
ld hl, Gym4CityName
ld de, Gym4LeaderName
.LoadNames:
ld hl, .CityName
ld de, .LeaderName
jp LoadGymLeaderAndCityName
Gym4CityName:
.CityName:
db "CELADON CITY@"
Gym4LeaderName:
.LeaderName:
db "ERIKA@"
CeladonGymText_48943:
@ -44,26 +44,26 @@ CeladonGymScript3:
CeladonGymText_48963:
ld a, $9
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_BEAT_ERIKA
lb bc, TM_21, 1
lb bc, TM_MEGA_DRAIN, 1
call GiveItem
jr nc, .BagFull
ld a, $a
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_GOT_TM21
jr .asm_4898c
jr .gymVictory
.BagFull
ld a, $b
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
.asm_4898c
.gymVictory
ld hl, wObtainedBadges
set 3, [hl]
set BIT_RAINBOWBADGE, [hl]
ld hl, wBeatGymFlags
set 3, [hl]
set BIT_RAINBOWBADGE, [hl]
; deactivate gym trainers
SetEventRange EVENT_BEAT_CELADON_GYM_TRAINER_0, EVENT_BEAT_CELADON_GYM_TRAINER_6
@ -84,84 +84,35 @@ CeladonGym_TextPointers:
dw TM21NoRoomText
CeladonGymTrainerHeader0:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_0
dw CeladonGymBattleText2 ; TextBeforeBattle
dw CeladonGymAfterBattleText2 ; TextAfterBattle
dw CeladonGymEndBattleText2 ; TextEndBattle
dw CeladonGymEndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_CELADON_GYM_TRAINER_0, 2, CeladonGymBattleText2, CeladonGymEndBattleText2, CeladonGymAfterBattleText2
CeladonGymTrainerHeader1:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_1
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_1
dw CeladonGymBattleText3 ; TextBeforeBattle
dw CeladonGymAfterBattleText3 ; TextAfterBattle
dw CeladonGymEndBattleText3 ; TextEndBattle
dw CeladonGymEndBattleText3 ; TextEndBattle
trainer EVENT_BEAT_CELADON_GYM_TRAINER_1, 2, CeladonGymBattleText3, CeladonGymEndBattleText3, CeladonGymAfterBattleText3
CeladonGymTrainerHeader2:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_2
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_2
dw CeladonGymBattleText4 ; TextBeforeBattle
dw CeladonGymAfterBattleText4 ; TextAfterBattle
dw CeladonGymEndBattleText4 ; TextEndBattle
dw CeladonGymEndBattleText4 ; TextEndBattle
trainer EVENT_BEAT_CELADON_GYM_TRAINER_2, 4, CeladonGymBattleText4, CeladonGymEndBattleText4, CeladonGymAfterBattleText4
CeladonGymTrainerHeader3:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_3
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_3
dw CeladonGymBattleText5 ; TextBeforeBattle
dw CeladonGymAfterBattleText5 ; TextAfterBattle
dw CeladonGymEndBattleText5 ; TextEndBattle
dw CeladonGymEndBattleText5 ; TextEndBattle
trainer EVENT_BEAT_CELADON_GYM_TRAINER_3, 4, CeladonGymBattleText5, CeladonGymEndBattleText5, CeladonGymAfterBattleText5
CeladonGymTrainerHeader4:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_4
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_4
dw CeladonGymBattleText6 ; TextBeforeBattle
dw CeladonGymAfterBattleText6 ; TextAfterBattle
dw CeladonGymEndBattleText6 ; TextEndBattle
dw CeladonGymEndBattleText6 ; TextEndBattle
trainer EVENT_BEAT_CELADON_GYM_TRAINER_4, 2, CeladonGymBattleText6, CeladonGymEndBattleText6, CeladonGymAfterBattleText6
CeladonGymTrainerHeader5:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_5
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_5
dw CeladonGymBattleText7 ; TextBeforeBattle
dw CeladonGymAfterBattleText7 ; TextAfterBattle
dw CeladonGymEndBattleText7 ; TextEndBattle
dw CeladonGymEndBattleText7 ; TextEndBattle
trainer EVENT_BEAT_CELADON_GYM_TRAINER_5, 2, CeladonGymBattleText7, CeladonGymEndBattleText7, CeladonGymAfterBattleText7
CeladonGymTrainerHeader6:
dbEventFlagBit EVENT_BEAT_CELADON_GYM_TRAINER_6, 1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CELADON_GYM_TRAINER_6, 1
dw CeladonGymBattleText8 ; TextBeforeBattle
dw CeladonGymAfterBattleText8 ; TextAfterBattle
dw CeladonGymEndBattleText8 ; TextEndBattle
dw CeladonGymEndBattleText8 ; TextEndBattle
db $ff
trainer EVENT_BEAT_CELADON_GYM_TRAINER_6, 1, 3, CeladonGymBattleText8, CeladonGymEndBattleText8, CeladonGymAfterBattleText8
db -1 ; end
CeladonGymText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_ERIKA
jr z, .asm_48a2d
jr z, .beginBattle
CheckEventReuseA EVENT_GOT_TM21
jr nz, .asm_48a25
jr nz, .afterVictory
call z, CeladonGymText_48963
call DisableWaitingAfterTextDisplay
jr .asm_48a5b
.asm_48a25
jr .done
.afterVictory
ld hl, CeladonGymText_48a68
call PrintText
jr .asm_48a5b
.asm_48a2d
jr .done
.beginBattle
ld hl, CeladonGymText_48a5e
call PrintText
ld hl, wd72d
@ -170,7 +121,7 @@ CeladonGymText1:
ld hl, CeladonGymText_48a63
ld de, CeladonGymText_48a63
call SaveEndBattleTextPointers
ld a, [H_SPRITEINDEX]
ldh a, [hSpriteIndex]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
@ -179,157 +130,157 @@ CeladonGymText1:
ld a, $3
ld [wCeladonGymCurScript], a
ld [wCurMapScript], a
.asm_48a5b
.done
jp TextScriptEnd
CeladonGymText_48a5e:
TX_FAR _CeladonGymText_48a5e
db "@"
text_far _CeladonGymText_48a5e
text_end
CeladonGymText_48a63:
TX_FAR _CeladonGymText_48a63
db "@"
text_far _CeladonGymText_48a63
text_end
CeladonGymText_48a68:
TX_FAR _CeladonGymText_48a68
db "@"
text_far _CeladonGymText_48a68
text_end
CeladonGymText9:
TX_FAR _CeladonGymText9
db "@"
text_far _CeladonGymText9
text_end
TM21Text:
TX_FAR _ReceivedTM21Text
TX_SFX_ITEM_1
TX_FAR _TM21ExplanationText
db "@"
text_far _ReceivedTM21Text
sound_get_item_1
text_far _TM21ExplanationText
text_end
TM21NoRoomText:
TX_FAR _TM21NoRoomText
db "@"
text_far _TM21NoRoomText
text_end
CeladonGymText2:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText2:
TX_FAR _CeladonGymBattleText2
db "@"
text_far _CeladonGymBattleText2
text_end
CeladonGymEndBattleText2:
TX_FAR _CeladonGymEndBattleText2
db "@"
text_far _CeladonGymEndBattleText2
text_end
CeladonGymAfterBattleText2:
TX_FAR _CeladonGymAfterBattleText2
db "@"
text_far _CeladonGymAfterBattleText2
text_end
CeladonGymText3:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader1
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText3:
TX_FAR _CeladonGymBattleText3
db "@"
text_far _CeladonGymBattleText3
text_end
CeladonGymEndBattleText3:
TX_FAR _CeladonGymEndBattleText3
db "@"
text_far _CeladonGymEndBattleText3
text_end
CeladonGymAfterBattleText3:
TX_FAR _CeladonGymAfterBattleText3
db "@"
text_far _CeladonGymAfterBattleText3
text_end
CeladonGymText4:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader2
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText4:
TX_FAR _CeladonGymBattleText4
db "@"
text_far _CeladonGymBattleText4
text_end
CeladonGymEndBattleText4:
TX_FAR _CeladonGymEndBattleText4
db "@"
text_far _CeladonGymEndBattleText4
text_end
CeladonGymAfterBattleText4:
TX_FAR _CeladonGymAfterBattleText4
db "@"
text_far _CeladonGymAfterBattleText4
text_end
CeladonGymText5:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader3
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText5:
TX_FAR _CeladonGymBattleText5
db "@"
text_far _CeladonGymBattleText5
text_end
CeladonGymEndBattleText5:
TX_FAR _CeladonGymEndBattleText5
db "@"
text_far _CeladonGymEndBattleText5
text_end
CeladonGymAfterBattleText5:
TX_FAR _CeladonGymAfterBattleText5
db "@"
text_far _CeladonGymAfterBattleText5
text_end
CeladonGymText6:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader4
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText6:
TX_FAR _CeladonGymBattleText6
db "@"
text_far _CeladonGymBattleText6
text_end
CeladonGymEndBattleText6:
TX_FAR _CeladonGymEndBattleText6
db "@"
text_far _CeladonGymEndBattleText6
text_end
CeladonGymAfterBattleText6:
TX_FAR _CeladonGymAfterBattleText6
db "@"
text_far _CeladonGymAfterBattleText6
text_end
CeladonGymText7:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader5
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText7:
TX_FAR _CeladonGymBattleText7
db "@"
text_far _CeladonGymBattleText7
text_end
CeladonGymEndBattleText7:
TX_FAR _CeladonGymEndBattleText7
db "@"
text_far _CeladonGymEndBattleText7
text_end
CeladonGymAfterBattleText7:
TX_FAR _CeladonGymAfterBattleText7
db "@"
text_far _CeladonGymAfterBattleText7
text_end
CeladonGymText8:
TX_ASM
text_asm
ld hl, CeladonGymTrainerHeader6
call TalkToTrainer
jp TextScriptEnd
CeladonGymBattleText8:
TX_FAR _CeladonGymBattleText8
db "@"
text_far _CeladonGymBattleText8
text_end
CeladonGymEndBattleText8:
TX_FAR _CeladonGymEndBattleText8
db "@"
text_far _CeladonGymEndBattleText8
text_end
CeladonGymAfterBattleText8:
TX_FAR _CeladonGymAfterBattleText8
db "@"
text_far _CeladonGymAfterBattleText8
text_end

12
scripts/CeladonHotel.asm Executable file → Normal file
View file

@ -7,13 +7,13 @@ CeladonHotel_TextPointers:
dw CeladonHotelText3
CeladonHotelText1:
TX_FAR _CeladonHotelText1
db "@"
text_far _CeladonHotelText1
text_end
CeladonHotelText2:
TX_FAR _CeladonHotelText2
db "@"
text_far _CeladonHotelText2
text_end
CeladonHotelText3:
TX_FAR _CeladonHotelText3
db "@"
text_far _CeladonHotelText3
text_end

28
scripts/CeladonMansion1F.asm Executable file → Normal file
View file

@ -8,32 +8,32 @@ CeladonMansion1F_TextPointers:
dw CeladonMansion1Text4
dw CeladonMansion1Text5
CeladonMansion1_486a1:
CeladonMansion1_PlayCryScript:
call PlayCry
jp TextScriptEnd
CeladonMansion1Text1:
TX_FAR _CeladonMansion1Text1
TX_ASM
text_far _CeladonMansion1Text1
text_asm
ld a, MEOWTH
jp CeladonMansion1_486a1
jp CeladonMansion1_PlayCryScript
CeladonMansion1Text2:
TX_FAR _CeladonMansion1Text2
db "@"
text_far _CeladonMansion1Text2
text_end
CeladonMansion1Text3:
TX_FAR _CeladonMansion1Text3
TX_ASM
text_far _CeladonMansion1Text3
text_asm
ld a, CLEFAIRY
jp CeladonMansion1_486a1
jp CeladonMansion1_PlayCryScript
CeladonMansion1Text4:
TX_FAR _CeladonMansion1Text4
TX_ASM
text_far _CeladonMansion1Text4
text_asm
ld a, NIDORAN_F
jp CeladonMansion1_486a1
jp CeladonMansion1_PlayCryScript
CeladonMansion1Text5:
TX_FAR _CeladonMansion1Text5
db "@"
text_far _CeladonMansion1Text5
text_end

4
scripts/CeladonMansion2F.asm Executable file → Normal file
View file

@ -6,5 +6,5 @@ CeladonMansion2F_TextPointers:
dw CeladonMansion2Text1
CeladonMansion2Text1:
TX_FAR _CeladonMansion2Text1
db "@"
text_far _CeladonMansion2Text1
text_end

58
scripts/CeladonMansion3F.asm Executable file → Normal file
View file

@ -12,60 +12,58 @@ CeladonMansion3F_TextPointers:
dw GameFreakSignText
ProgrammerText:
TX_FAR _ProgrammerText
db "@"
text_far _ProgrammerText
text_end
GraphicArtistText:
TX_FAR _GraphicArtistText
db "@"
text_far _GraphicArtistText
text_end
WriterText:
TX_FAR _WriterText
db "@"
text_far _WriterText
text_end
DirectorText:
TX_ASM
; check pokédex
text_asm
ld hl, wPokedexOwned
ld b, wPokedexOwnedEnd - wPokedexOwned
call CountSetBits
ld a, [wNumSetBits]
cp 150
jr nc, .CompletedDex
ld hl, .GameDesigner
cp NUM_POKEMON - 1 ; discount Mew
jr nc, .completed_dex
ld hl, .GameDesignerText
jr .done
.CompletedDex
.completed_dex
ld hl, .CompletedDexText
.done
call PrintText
jp TextScriptEnd
.GameDesigner
TX_FAR _GameDesignerText
db "@"
.GameDesignerText:
text_far _GameDesignerText
text_end
.CompletedDexText
TX_FAR _CompletedDexText
TX_BLINK
TX_ASM
callab DisplayDiploma
ld a, $1
.CompletedDexText:
text_far _CompletedDexText
text_promptbutton
text_asm
callfar DisplayDiploma
ld a, TRUE
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
jp TextScriptEnd
GameFreakPCText1:
TX_FAR _CeladonMansion3Text5
db "@"
text_far _CeladonMansion3Text5
text_end
GameFreakPCText2:
TX_FAR _CeladonMansion3Text6
db "@"
text_far _CeladonMansion3Text6
text_end
GameFreakPCText3:
TX_FAR _CeladonMansion3Text7
db "@"
text_far _CeladonMansion3Text7
text_end
GameFreakSignText:
TX_FAR _CeladonMansion3Text8
db "@"
text_far _CeladonMansion3Text8
text_end

4
scripts/CeladonMansionRoof.asm Executable file → Normal file
View file

@ -5,5 +5,5 @@ CeladonMansionRoof_TextPointers:
dw CeladonMansion4Text1
CeladonMansion4Text1:
TX_FAR _CeladonMansion4Text1
db "@"
text_far _CeladonMansion4Text1
text_end

10
scripts/CeladonMansionRoofHouse.asm Executable file → Normal file
View file

@ -6,16 +6,16 @@ CeladonMansionRoofHouse_TextPointers:
dw CeladonMansion5Text2
CeladonMansion5Text1:
TX_FAR _CeladonMansion5Text1
db "@"
text_far _CeladonMansion5Text1
text_end
CeladonMansion5Text2:
TX_ASM
text_asm
lb bc, EEVEE, 25
call GivePokemon
jr nc, .asm_24365
jr nc, .party_full
ld a, HS_CELADON_MANSION_EEVEE_GIFT
ld [wMissableObjectIndex], a
predef HideObject
.asm_24365
.party_full
jp TextScriptEnd

12
scripts/CeladonMart1F.asm Executable file → Normal file
View file

@ -7,13 +7,13 @@ CeladonMart1F_TextPointers:
dw CeladonMart1Text3
CeladonMart1Text1:
TX_FAR _CeladonMart1Text1
db "@"
text_far _CeladonMart1Text1
text_end
CeladonMart1Text2:
TX_FAR _CeladonMart1Text2
db "@"
text_far _CeladonMart1Text2
text_end
CeladonMart1Text3:
TX_FAR _CeladonMart1Text3
db "@"
text_far _CeladonMart1Text3
text_end

12
scripts/CeladonMart2F.asm Executable file → Normal file
View file

@ -9,13 +9,13 @@ CeladonMart2F_TextPointers:
dw CeladonMart2Text5
CeladonMart2Text3:
TX_FAR _CeladonMart2Text3
db "@"
text_far _CeladonMart2Text3
text_end
CeladonMart2Text4:
TX_FAR _CeladonMart2Text4
db "@"
text_far _CeladonMart2Text4
text_end
CeladonMart2Text5:
TX_FAR _CeladonMart2Text5
db "@"
text_far _CeladonMart2Text5
text_end

82
scripts/CeladonMart3F.asm Executable file → Normal file
View file

@ -21,88 +21,88 @@ CeladonMart3F_TextPointers:
dw CeladonMart3Text17
CeladonMart3Text1:
TX_ASM
text_asm
CheckEvent EVENT_GOT_TM18
jr nz, .asm_a5463
jr nz, .got_item
ld hl, TM18PreReceiveText
call PrintText
lb bc, TM_18, 1
lb bc, TM_COUNTER, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
SetEvent EVENT_GOT_TM18
ld hl, ReceivedTM18Text
jr .asm_81359
.BagFull
jr .done
.bag_full
ld hl, TM18NoRoomText
jr .asm_81359
.asm_a5463
jr .done
.got_item
ld hl, TM18ExplanationText
.asm_81359
.done
call PrintText
jp TextScriptEnd
TM18PreReceiveText:
TX_FAR _TM18PreReceiveText
db "@"
text_far _TM18PreReceiveText
text_end
ReceivedTM18Text:
TX_FAR _ReceivedTM18Text
TX_SFX_ITEM_1
db "@"
text_far _ReceivedTM18Text
sound_get_item_1
text_end
TM18ExplanationText:
TX_FAR _TM18ExplanationText
db "@"
text_far _TM18ExplanationText
text_end
TM18NoRoomText:
TX_FAR _TM18NoRoomText
db "@"
text_far _TM18NoRoomText
text_end
CeladonMart3Text2:
TX_FAR _CeladonMart3Text2
db "@"
text_far _CeladonMart3Text2
text_end
CeladonMart3Text3:
TX_FAR _CeladonMart3Text3
db "@"
text_far _CeladonMart3Text3
text_end
CeladonMart3Text4:
TX_FAR _CeladonMart3Text4
db "@"
text_far _CeladonMart3Text4
text_end
CeladonMart3Text5:
TX_FAR _CeladonMart3Text5
db "@"
text_far _CeladonMart3Text5
text_end
CeladonMart3Text12
CeladonMart3Text12:
CeladonMart3Text10:
CeladonMart3Text8:
CeladonMart3Text6:
TX_FAR _CeladonMart3Text6
db "@"
text_far _CeladonMart3Text6
text_end
CeladonMart3Text7:
TX_FAR _CeladonMart3Text7
db "@"
text_far _CeladonMart3Text7
text_end
CeladonMart3Text9:
TX_FAR _CeladonMart3Text9
db "@"
text_far _CeladonMart3Text9
text_end
CeladonMart3Text11:
TX_FAR _CeladonMart3Text11
db "@"
text_far _CeladonMart3Text11
text_end
CeladonMart3Text13:
TX_FAR _CeladonMart3Text13
db "@"
text_far _CeladonMart3Text13
text_end
CeladonMart3Text14:
TX_FAR _CeladonMart3Text14
db "@"
text_far _CeladonMart3Text14
text_end
CeladonMart3Text17:
CeladonMart3Text16:
CeladonMart3Text15:
TX_FAR _CeladonMart3Text15
db "@"
text_far _CeladonMart3Text15
text_end

12
scripts/CeladonMart4F.asm Executable file → Normal file
View file

@ -8,13 +8,13 @@ CeladonMart4F_TextPointers:
dw CeladonMart4Text4
CeladonMart4Text2:
TX_FAR _CeladonMart4Text2
db "@"
text_far _CeladonMart4Text2
text_end
CeladonMart4Text3:
TX_FAR _CeladonMart4Text3
db "@"
text_far _CeladonMart4Text3
text_end
CeladonMart4Text4:
TX_FAR _CeladonMart4Text4
db "@"
text_far _CeladonMart4Text4
text_end

12
scripts/CeladonMart5F.asm Executable file → Normal file
View file

@ -9,13 +9,13 @@ CeladonMart5F_TextPointers:
dw CeladonMart5Text5
CeladonMart5Text1:
TX_FAR _CeladonMart5Text1
db "@"
text_far _CeladonMart5Text1
text_end
CeladonMart5Text2:
TX_FAR _CeladonMart5Text2
db "@"
text_far _CeladonMart5Text2
text_end
CeladonMart5Text5:
TX_FAR _CeladonMart5Text5
db "@"
text_far _CeladonMart5Text5
text_end

23
scripts/CeladonMartElevator.asm Executable file → Normal file
View file

@ -40,33 +40,32 @@ CeladonMartElevatorScript_48631:
jp CopyData
CeladonMartElevatorFloors:
db 5 ; number of elements in list
db 5 ; #
db FLOOR_1F
db FLOOR_2F
db FLOOR_3F
db FLOOR_4F
db FLOOR_5F
db $FF
db -1 ; end
CeladonMartElevatorWarpMaps:
; first byte is warp number
; second byte is map number
; These specify where the player goes after getting out of the elevator.
db $05, CELADON_MART_1F
db $02, CELADON_MART_2F
db $02, CELADON_MART_3F
db $02, CELADON_MART_4F
db $02, CELADON_MART_5F
CeladonMartElevatorWarpMaps:
; warp number, map id
db 5, CELADON_MART_1F
db 2, CELADON_MART_2F
db 2, CELADON_MART_3F
db 2, CELADON_MART_4F
db 2, CELADON_MART_5F
CeladonMartElevatorWarpMapsEnd:
CeladonMartElevatorScript_48654:
jpba ShakeElevator
farjp ShakeElevator
CeladonMartElevator_TextPointers:
dw CeladonMartElevatorText1
CeladonMartElevatorText1:
TX_ASM
text_asm
call CeladonMartElevatorScript_48631
ld hl, CeladonMartElevatorWarpMaps
predef DisplayElevatorFloorMenu

106
scripts/CeladonMartRoof.asm Executable file → Normal file
View file

@ -38,7 +38,7 @@ CeladonMartRoofDrinkList:
db FRESH_WATER
db SODA_POP
db LEMONADE
db $00
db 0 ; end
CeladonMartRoofScript_GiveDrinkToGirl:
ld hl, wd730
@ -64,14 +64,14 @@ CeladonMartRoofScript_GiveDrinkToGirl:
dec l
ld b, l
ld c, 12
coord hl, 0, 0
hlcoord 0, 0
call TextBoxBorder
call UpdateSprites
call CeladonMartRoofScript_PrintDrinksInBag
ld hl, wd730
res 6, [hl]
call HandleMenuInput
bit 1, a ; pressed b
bit BIT_B_BUTTON, a
ret nz
ld hl, wFilteredBagItems
ld a, [wCurrentMenuItem]
@ -79,7 +79,7 @@ CeladonMartRoofScript_GiveDrinkToGirl:
ld e, a
add hl, de
ld a, [hl]
ld [hItemToRemoveID], a
ldh [hItemToRemoveID], a
cp FRESH_WATER
jr z, .gaveFreshWater
cp SODA_POP
@ -90,7 +90,7 @@ CeladonMartRoofScript_GiveDrinkToGirl:
ld hl, CeladonMartRoofText_48515
call PrintText
call RemoveItemByIDBank12
lb bc, TM_49, 1
lb bc, TM_TRI_ATTACK, 1
call GiveItem
jr nc, .bagFull
ld hl, ReceivedTM49Text
@ -103,7 +103,7 @@ CeladonMartRoofScript_GiveDrinkToGirl:
ld hl, CeladonMartRoofText_48504
call PrintText
call RemoveItemByIDBank12
lb bc, TM_48, 1
lb bc, TM_ROCK_SLIDE, 1
call GiveItem
jr nc, .bagFull
ld hl, CeladonMartRoofText_4850a
@ -116,7 +116,7 @@ CeladonMartRoofScript_GiveDrinkToGirl:
ld hl, CeladonMartRoofText_484f3
call PrintText
call RemoveItemByIDBank12
lb bc, TM_13, 1
lb bc, TM_ICE_BEAM, 1
call GiveItem
jr nc, .bagFull
ld hl, CeladonMartRoofText_484f9
@ -131,62 +131,62 @@ CeladonMartRoofScript_GiveDrinkToGirl:
jp PrintText
RemoveItemByIDBank12:
jpba RemoveItemByID
farjp RemoveItemByID
CeladonMartRoofText_484ee:
TX_FAR _CeladonMartRoofText_484ee
db "@"
text_far _CeladonMartRoofText_484ee
text_end
CeladonMartRoofText_484f3:
TX_FAR _CeladonMartRoofText_484f3
TX_WAIT
db "@"
text_far _CeladonMartRoofText_484f3
text_waitbutton
text_end
CeladonMartRoofText_484f9:
TX_FAR _CeladonMartRoofText_484f9
TX_SFX_ITEM_1
TX_FAR _CeladonMartRoofText_484fe
TX_WAIT
db "@"
text_far _CeladonMartRoofText_484f9
sound_get_item_1
text_far _CeladonMartRoofText_484fe
text_waitbutton
text_end
CeladonMartRoofText_48504:
TX_FAR _CeladonMartRoofText_48504
TX_WAIT
db "@"
text_far _CeladonMartRoofText_48504
text_waitbutton
text_end
CeladonMartRoofText_4850a:
TX_FAR _CeladonMartRoofText_4850a
TX_SFX_ITEM_1
TX_FAR _CeladonMartRoofText_4850f
TX_WAIT
db "@"
text_far _CeladonMartRoofText_4850a
sound_get_item_1
text_far _CeladonMartRoofText_4850f
text_waitbutton
text_end
CeladonMartRoofText_48515:
TX_FAR _CeladonMartRoofText_48515
TX_WAIT
db "@"
text_far _CeladonMartRoofText_48515
text_waitbutton
text_end
ReceivedTM49Text:
TX_FAR _ReceivedTM49Text
TX_SFX_ITEM_1
TX_FAR _CeladonMartRoofText_48520
TX_WAIT
db "@"
text_far _ReceivedTM49Text
sound_get_item_1
text_far _CeladonMartRoofText_48520
text_waitbutton
text_end
CeladonMartRoofText_48526:
TX_FAR _CeladonMartRoofText_48526
TX_WAIT
db "@"
text_far _CeladonMartRoofText_48526
text_waitbutton
text_end
CeladonMartRoofText_4852c:
TX_FAR _CeladonMartRoofText_4852c
TX_WAIT
db "@"
text_far _CeladonMartRoofText_4852c
text_waitbutton
text_end
CeladonMartRoofScript_PrintDrinksInBag:
ld hl, wFilteredBagItems
xor a
ld [hItemCounter], a
ldh [hItemCounter], a
.loop
ld a, [hli]
cp $ff
@ -194,8 +194,8 @@ CeladonMartRoofScript_PrintDrinksInBag:
push hl
ld [wd11e], a
call GetItemName
coord hl, 2, 2
ld a, [hItemCounter]
hlcoord 2, 2
ldh a, [hItemCounter]
ld bc, SCREEN_WIDTH * 2
call AddNTimes
ld de, wcd6d
@ -214,11 +214,11 @@ CeladonMartRoof_TextPointers:
dw CeladonMartRoofText6
CeladonMartRoofText1:
TX_FAR _CeladonMartRoofText1
db "@"
text_far _CeladonMartRoofText1
text_end
CeladonMartRoofText2:
TX_ASM
text_asm
call CeladonMartRoofScript_GetDrinksInBag
ld a, [wFilteredBagItemsCount]
and a
@ -240,16 +240,16 @@ CeladonMartRoofText2:
jp TextScriptEnd
CeladonMartRoofText3:
TX_FAR _CeladonMartRoofText_48598
db "@"
text_far _CeladonMartRoofText_48598
text_end
CeladonMartRoofText4:
TX_FAR _CeladonMartRoofText4
db "@"
text_far _CeladonMartRoofText4
text_end
CeladonMartRoofText5:
TX_VENDING_MACHINE
script_vending_machine
CeladonMartRoofText6:
TX_FAR _CeladonMartRoofText6
db "@"
text_far _CeladonMartRoofText6
text_end

12
scripts/CeladonPokecenter.asm Executable file → Normal file
View file

@ -9,15 +9,15 @@ CeladonPokecenter_TextPointers:
dw CeladonTradeNurseText
CeladonTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist
CeladonHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
CeladonPokecenterText2:
TX_FAR _CeladonPokecenterText2
db "@"
text_far _CeladonPokecenterText2
text_end
CeladonPokecenterText3:
TX_FAR _CeladonPokecenterText3
db "@"
text_far _CeladonPokecenterText3
text_end

61
scripts/CeruleanBadgeHouse.asm Executable file → Normal file
View file

@ -1,5 +1,5 @@
CeruleanBadgeHouse_Script:
ld a, $1
ld a, TRUE
ld [wAutoTextBoxDrawingControl], a
dec a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
@ -9,7 +9,7 @@ CeruleanBadgeHouse_TextPointers:
dw CeruleanHouse2Text1
CeruleanHouse2Text1:
TX_ASM
text_asm
ld hl, CeruleanHouse2Text_74e77
call PrintText
xor a
@ -34,7 +34,7 @@ CeruleanHouse2Text1:
jr c, .asm_74e60
ld hl, TextPointers_74e86
ld a, [wcf91]
sub $15
sub BOULDERBADGE
add a
ld d, $0
ld e, a
@ -52,19 +52,28 @@ CeruleanHouse2Text1:
jp TextScriptEnd
BadgeItemList:
db $8,BOULDERBADGE,CASCADEBADGE,THUNDERBADGE,RAINBOWBADGE,SOULBADGE,MARSHBADGE,VOLCANOBADGE,EARTHBADGE,$FF
db 8 ; #
db BOULDERBADGE
db CASCADEBADGE
db THUNDERBADGE
db RAINBOWBADGE
db SOULBADGE
db MARSHBADGE
db VOLCANOBADGE
db EARTHBADGE
db -1 ; end
CeruleanHouse2Text_74e77:
TX_FAR _CeruleanHouse2Text_74e77
db "@"
text_far _CeruleanHouse2Text_74e77
text_end
CeruleanHouse2Text_74e7c:
TX_FAR _CeruleanHouse2Text_74e7c
db "@"
text_far _CeruleanHouse2Text_74e7c
text_end
CeruleanHouse2Text_74e81:
TX_FAR _CeruleanHouse2Text_74e81
db "@"
text_far _CeruleanHouse2Text_74e81
text_end
TextPointers_74e86:
dw CeruleanHouse2Text_74e96
@ -77,33 +86,33 @@ TextPointers_74e86:
dw CeruleanHouse2Text_74eb9
CeruleanHouse2Text_74e96:
TX_FAR _CeruleanHouse2Text_74e96
db "@"
text_far _CeruleanHouse2Text_74e96
text_end
CeruleanHouse2Text_74e9b:
TX_FAR _CeruleanHouse2Text_74e9b
db "@"
text_far _CeruleanHouse2Text_74e9b
text_end
CeruleanHouse2Text_74ea0:
TX_FAR _CeruleanHouse2Text_74ea0
db "@"
text_far _CeruleanHouse2Text_74ea0
text_end
CeruleanHouse2Text_74ea5:
TX_FAR _CeruleanHouse2Text_74ea5
db "@"
text_far _CeruleanHouse2Text_74ea5
text_end
CeruleanHouse2Text_74eaa:
TX_FAR _CeruleanHouse2Text_74eaa
db "@"
text_far _CeruleanHouse2Text_74eaa
text_end
CeruleanHouse2Text_74eaf:
TX_FAR _CeruleanHouse2Text_74eaf
db "@"
text_far _CeruleanHouse2Text_74eaf
text_end
CeruleanHouse2Text_74eb4:
TX_FAR _CeruleanHouse2Text_74eb4
db "@"
text_far _CeruleanHouse2Text_74eb4
text_end
CeruleanHouse2Text_74eb9:
TX_FAR _CeruleanHouse2Text_74eb9
db "@"
text_far _CeruleanHouse2Text_74eb9
text_end

0
scripts/CeruleanCave1F.asm Executable file → Normal file
View file

0
scripts/CeruleanCave2F.asm Executable file → Normal file
View file

19
scripts/CeruleanCaveB1F.asm Executable file → Normal file
View file

@ -7,7 +7,7 @@ CeruleanCaveB1F_Script:
ld [wCeruleanCaveB1FCurScript], a
ret
CeruleanCaveB1F_ScriptPointers
CeruleanCaveB1F_ScriptPointers:
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
@ -18,25 +18,18 @@ CeruleanCaveB1F_TextPointers:
dw PickUpItemText
MewtwoTrainerHeader:
dbEventFlagBit EVENT_BEAT_MEWTWO
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MEWTWO
dw MewtwoBattleText ; TextBeforeBattle
dw MewtwoBattleText ; TextAfterBattle
dw MewtwoBattleText ; TextEndBattle
dw MewtwoBattleText ; TextEndBattle
db $ff
trainer EVENT_BEAT_MEWTWO, 0, MewtwoBattleText, MewtwoBattleText, MewtwoBattleText
db -1 ; end
MewtwoText:
TX_ASM
text_asm
ld hl, MewtwoTrainerHeader
call TalkToTrainer
jp TextScriptEnd
MewtwoBattleText:
TX_FAR _MewtwoBattleText
TX_ASM
text_far _MewtwoBattleText
text_asm
ld a, MEWTWO
call PlayCry
call WaitForSoundToFinish

194
scripts/CeruleanCity.asm Executable file → Normal file
View file

@ -27,7 +27,7 @@ CeruleanCityScript4:
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
ld a, $2
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
@ -35,6 +35,10 @@ CeruleanCityScript4:
ret
CeruleanCityScript0:
IF DEF(_DEBUG)
call DebugPressedOrHeldB
ret nz
ENDC
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .asm_194f7
ld hl, CeruleanCityCoords1
@ -50,10 +54,10 @@ CeruleanCityScript0:
.asm_194e6
ld [wPlayerMovingDirection], a
ld a, b
ld [wSpriteStateData1 + 2 * $10 + $9], a
ld [wSprite02StateData1FacingDirection], a
call Delay3
ld a, $2
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
.asm_194f7
CheckEvent EVENT_BEAT_CERULEAN_RIVAL
@ -64,7 +68,7 @@ CeruleanCityScript0:
ld a, [wWalkBikeSurfState]
and a
jr z, .asm_19512
ld a, $ff
ld a, SFX_STOP_ALL_MUSIC
ld [wNewSoundID], a
call PlaySound
.asm_19512
@ -72,51 +76,51 @@ CeruleanCityScript0:
ld a, MUSIC_MEET_RIVAL
call PlayMusic
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $f0
ld [wJoyIgnore], a
ld a, [wXCoord]
cp $14
cp 20
jr z, .asm_19535
ld a, $1
ld [H_SPRITEINDEX], a
ld a, $5
ld [H_SPRITEDATAOFFSET], a
ldh [hSpriteIndex], a
ld a, SPRITESTATEDATA2_MAPX
ldh [hSpriteDataOffset], a
call GetPointerWithinSpriteStateData2
ld [hl], $19
ld [hl], 25
.asm_19535
ld a, HS_CERULEAN_RIVAL
ld [wMissableObjectIndex], a
predef ShowObject
ld de, CeruleanCityMovement1
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $1
ld [wCeruleanCityCurScript], a
ret
CeruleanCityCoords1:
db $07,$1e
db $09,$1e
db $ff
dbmapcoord 30, 7
dbmapcoord 30, 9
db -1 ; end
CeruleanCityCoords2:
db $06,$14
db $06,$15
db $ff
dbmapcoord 20, 6
dbmapcoord 21, 6
db -1 ; end
CeruleanCityMovement1:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
CeruleanCityScript_1955d:
ld a, 1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
xor a ; SPRITE_FACING_DOWN
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
jp SetSpriteFacingDirectionAndDelay ; face object
CeruleanCityScript1:
@ -126,7 +130,7 @@ CeruleanCityScript1:
xor a
ld [wJoyIgnore], a
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld hl, wd72d
set 6, [hl]
@ -134,7 +138,7 @@ CeruleanCityScript1:
ld hl, CeruleanCityText_1966d
ld de, CeruleanCityText_19672
call SaveEndBattleTextPointers
ld a, OPP_SONY1
ld a, OPP_RIVAL1
ld [wCurOpponent], a
; select which team to use during the encounter
@ -154,7 +158,7 @@ CeruleanCityScript1:
ld [wTrainerNo], a
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
call CeruleanCityScript_1955d
ld a, $2
ld [wCeruleanCityCurScript], a
@ -169,17 +173,17 @@ CeruleanCityScript2:
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_RIVAL
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $ff
ld a, SFX_STOP_ALL_MUSIC
ld [wNewSoundID], a
call PlaySound
callba Music_RivalAlternateStart
farcall Music_RivalAlternateStart
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld a, [wXCoord]
cp $14
cp 20
jr nz, .asm_195f0
ld de, CeruleanCityMovement4
jr .asm_195f3
@ -187,7 +191,7 @@ CeruleanCityScript2:
ld de, CeruleanCityMovement3
.asm_195f3
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $3
ld [wCeruleanCityCurScript], a
@ -201,7 +205,7 @@ CeruleanCityMovement3:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
CeruleanCityMovement4:
db NPC_MOVEMENT_RIGHT
@ -211,7 +215,7 @@ CeruleanCityMovement4:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
CeruleanCityScript3:
ld a, [wd730]
@ -247,7 +251,7 @@ CeruleanCity_TextPointers:
dw CeruleanCityText17
CeruleanCityText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_CERULEAN_RIVAL
; do pre-battle text
jr z, .PreBattleText
@ -262,23 +266,23 @@ CeruleanCityText1:
jp TextScriptEnd
CeruleanCityText_19668:
TX_FAR _CeruleanCityText_19668
db "@"
text_far _CeruleanCityText_19668
text_end
CeruleanCityText_1966d:
TX_FAR _CeruleanCityText_1966d
db "@"
text_far _CeruleanCityText_1966d
text_end
CeruleanCityText_19672:
TX_FAR _CeruleanCityText_19672
db "@"
text_far _CeruleanCityText_19672
text_end
CeruleanCityText_19677:
TX_FAR _CeruleanCityText_19677
db "@"
text_far _CeruleanCityText_19677
text_end
CeruleanCityText2:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .asm_4ca20
ld hl, CeruleanCityText_196d9
@ -289,7 +293,7 @@ CeruleanCityText2:
ld hl, CeruleanCityText_196ee
ld de, CeruleanCityText_196ee
call SaveEndBattleTextPointers
ld a, [hSpriteIndexOrTextID]
ldh a, [hSpriteIndexOrTextID]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
@ -299,7 +303,7 @@ CeruleanCityText2:
.asm_4ca20
ld hl, CeruleanCityText_196f3
call PrintText
lb bc, TM_28, 1
lb bc, TM_DIG, 1
call GiveItem
jr c, .Success
ld hl, TM28NoRoomText
@ -310,53 +314,53 @@ CeruleanCityText2:
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, ReceivedTM28Text
call PrintText
callba CeruleanHideRocket
farcall CeruleanHideRocket
.Done
jp TextScriptEnd
CeruleanCityText_196d9:
TX_FAR _CeruleanCityText_196d9
db "@"
text_far _CeruleanCityText_196d9
text_end
ReceivedTM28Text:
TX_FAR _ReceivedTM28Text
TX_SFX_ITEM_1
TX_FAR _ReceivedTM28Text2
TX_WAIT
db "@"
text_far _ReceivedTM28Text
sound_get_item_1
text_far _ReceivedTM28Text2
text_waitbutton
text_end
TM28NoRoomText:
TX_FAR _TM28NoRoomText
db "@"
text_far _TM28NoRoomText
text_end
CeruleanCityText_196ee:
TX_FAR _CeruleanCityText_196ee
db "@"
text_far _CeruleanCityText_196ee
text_end
CeruleanCityText_196f3:
TX_FAR _CeruleanCityText_196f3
db "@"
text_far _CeruleanCityText_196f3
text_end
CeruleanCityText3:
TX_FAR _CeruleanCityText3
db "@"
text_far _CeruleanCityText3
text_end
CeruleanCityText4:
TX_FAR _CeruleanCityText4
db "@"
text_far _CeruleanCityText4
text_end
CeruleanCityText5:
TX_FAR _CeruleanCityText5
db "@"
text_far _CeruleanCityText5
text_end
CeruleanCityText11:
CeruleanCityText6:
TX_FAR _CeruleanCityText6
db "@"
text_far _CeruleanCityText6
text_end
CeruleanCityText7:
TX_ASM
ld a, [hRandomAdd]
text_asm
ldh a, [hRandomAdd]
cp 180
jr c, .asm_e9fc9
ld hl, CeruleanCityText_19730
@ -375,20 +379,20 @@ CeruleanCityText7:
jp TextScriptEnd
CeruleanCityText_19730:
TX_FAR _CeruleanCityText_19730
db "@"
text_far _CeruleanCityText_19730
text_end
CeruleanCityText_19735:
TX_FAR _CeruleanCityText_19735
db "@"
text_far _CeruleanCityText_19735
text_end
CeruleanCityText_1973a:
TX_FAR _CeruleanCityText_1973a
db "@"
text_far _CeruleanCityText_1973a
text_end
CeruleanCityText8:
TX_ASM
ld a, [hRandomAdd]
text_asm
ldh a, [hRandomAdd]
cp 180
jr c, .asm_e28da
ld hl, CeruleanCityText_1976f
@ -413,41 +417,41 @@ CeruleanCityText8:
jp TextScriptEnd
CeruleanCityText_1976f:
TX_FAR _CeruleanCityText_1976f
db "@"
text_far _CeruleanCityText_1976f
text_end
CeruleanCityText_19774:
TX_FAR _CeruleanCityText_19774
db "@"
text_far _CeruleanCityText_19774
text_end
CeruleanCityText_19779:
TX_FAR _CeruleanCityText_19779
db "@"
text_far _CeruleanCityText_19779
text_end
CeruleanCityText_1977e:
TX_FAR _CeruleanCityText_1977e
db "@"
text_far _CeruleanCityText_1977e
text_end
CeruleanCityText9:
TX_FAR _CeruleanCityText9
db "@"
text_far _CeruleanCityText9
text_end
CeruleanCityText10:
TX_FAR _CeruleanCityText10
db "@"
text_far _CeruleanCityText10
text_end
CeruleanCityText12:
TX_FAR _CeruleanCityText12
db "@"
text_far _CeruleanCityText12
text_end
CeruleanCityText13:
TX_FAR _CeruleanCityText13
db "@"
text_far _CeruleanCityText13
text_end
CeruleanCityText16:
TX_FAR _CeruleanCityText16
db "@"
text_far _CeruleanCityText16
text_end
CeruleanCityText17:
TX_FAR _CeruleanCityText17
db "@"
text_far _CeruleanCityText17
text_end

0
scripts/CeruleanCity_2.asm Executable file → Normal file
View file

136
scripts/CeruleanGym.asm Executable file → Normal file
View file

@ -2,7 +2,7 @@ CeruleanGym_Script:
ld hl, wCurrentMapScriptFlags
bit 6, [hl]
res 6, [hl]
call nz, CeruleanGymScript_5c6d0
call nz, .LoadNames
call EnableAutoTextBoxDrawing
ld hl, CeruleanGymTrainerHeader0
ld de, CeruleanGym_ScriptPointers
@ -11,15 +11,15 @@ CeruleanGym_Script:
ld [wCeruleanGymCurScript], a
ret
CeruleanGymScript_5c6d0:
ld hl, Gym2CityName
ld de, Gym2LeaderName
.LoadNames:
ld hl, .CityName
ld de, .LeaderName
jp LoadGymLeaderAndCityName
Gym2CityName:
.CityName:
db "CERULEAN CITY@"
Gym2LeaderName:
.LeaderName:
db "MISTY@"
CeruleanGymScript_5c6ed:
@ -44,26 +44,26 @@ CeruleanGymScript3:
CeruleanGymScript_5c70d:
ld a, $5
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_BEAT_MISTY
lb bc, TM_11, 1
lb bc, TM_BUBBLEBEAM, 1
call GiveItem
jr nc, .BagFull
ld a, $6
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_GOT_TM11
jr .asm_5c736
jr .gymVictory
.BagFull
ld a, $7
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
.asm_5c736
.gymVictory
ld hl, wObtainedBadges
set 1, [hl]
set BIT_CASCADEBADGE, [hl]
ld hl, wBeatGymFlags
set 1, [hl]
set BIT_CASCADEBADGE, [hl]
; deactivate gym trainers
SetEvents EVENT_BEAT_CERULEAN_GYM_TRAINER_0, EVENT_BEAT_CERULEAN_GYM_TRAINER_1
@ -80,39 +80,25 @@ CeruleanGym_TextPointers:
dw CeruleanGymText7
CeruleanGymTrainerHeader0:
dbEventFlagBit EVENT_BEAT_CERULEAN_GYM_TRAINER_0
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CERULEAN_GYM_TRAINER_0
dw CeruleanGymBattleText1 ; TextBeforeBattle
dw CeruleanGymAfterBattleText1 ; TextAfterBattle
dw CeruleanGymEndBattleText1 ; TextEndBattle
dw CeruleanGymEndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_CERULEAN_GYM_TRAINER_0, 3, CeruleanGymBattleText1, CeruleanGymEndBattleText1, CeruleanGymAfterBattleText1
CeruleanGymTrainerHeader1:
dbEventFlagBit EVENT_BEAT_CERULEAN_GYM_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_CERULEAN_GYM_TRAINER_1
dw CeruleanGymBattleText2 ; TextBeforeBattle
dw CeruleanGymAfterBattleText2 ; TextAfterBattle
dw CeruleanGymEndBattleText2 ; TextEndBattle
dw CeruleanGymEndBattleText2 ; TextEndBattle
db $ff
trainer EVENT_BEAT_CERULEAN_GYM_TRAINER_1, 3, CeruleanGymBattleText2, CeruleanGymEndBattleText2, CeruleanGymAfterBattleText2
db -1 ; end
CeruleanGymText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_MISTY
jr z, .asm_5c78d
jr z, .beginBattle
CheckEventReuseA EVENT_GOT_TM11
jr nz, .asm_5c785
jr nz, .afterVictory
call z, CeruleanGymScript_5c70d
call DisableWaitingAfterTextDisplay
jr .asm_5c7bb
.asm_5c785
jr .done
.afterVictory
ld hl, CeruleanGymText_5c7c3
call PrintText
jr .asm_5c7bb
.asm_5c78d
jr .done
.beginBattle
ld hl, CeruleanGymText_5c7be
call PrintText
ld hl, wd72d
@ -121,84 +107,84 @@ CeruleanGymText1:
ld hl, CeruleanGymText_5c7d8
ld de, CeruleanGymText_5c7d8
call SaveEndBattleTextPointers
ld a, [H_SPRITEINDEX]
ldh a, [hSpriteIndex]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
ld a, $2
ld [wGymLeaderNo], a
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $3
ld [wCeruleanGymCurScript], a
.asm_5c7bb
.done
jp TextScriptEnd
CeruleanGymText_5c7be:
TX_FAR _CeruleanGymText_5c7be
db "@"
text_far _CeruleanGymText_5c7be
text_end
CeruleanGymText_5c7c3:
TX_FAR _CeruleanGymText_5c7c3
db "@"
text_far _CeruleanGymText_5c7c3
text_end
CeruleanGymText5:
TX_FAR _CeruleanGymText_5c7c8
db "@"
text_far _CeruleanGymText_5c7c8
text_end
CeruleanGymText6:
TX_FAR _ReceivedTM11Text
TX_SFX_ITEM_1
db "@"
text_far _ReceivedTM11Text
sound_get_item_1
text_end
CeruleanGymText7:
TX_FAR _CeruleanGymText_5c7d3
db "@"
text_far _CeruleanGymText_5c7d3
text_end
CeruleanGymText_5c7d8:
TX_FAR _CeruleanGymText_5c7d8
TX_SFX_KEY_ITEM ; actually plays the second channel of SFX_BALL_POOF due to the wrong music bank being loaded
TX_BLINK
db "@"
text_far _CeruleanGymText_5c7d8
sound_get_key_item ; actually plays the second channel of SFX_BALL_POOF due to the wrong music bank being loaded
text_promptbutton
text_end
CeruleanGymText2:
TX_ASM
text_asm
ld hl, CeruleanGymTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
CeruleanGymBattleText1:
TX_FAR _CeruleanGymBattleText1
db "@"
text_far _CeruleanGymBattleText1
text_end
CeruleanGymEndBattleText1:
TX_FAR _CeruleanGymEndBattleText1
db "@"
text_far _CeruleanGymEndBattleText1
text_end
CeruleanGymAfterBattleText1:
TX_FAR _CeruleanGymAfterBattleText1
db "@"
text_far _CeruleanGymAfterBattleText1
text_end
CeruleanGymText3:
TX_ASM
text_asm
ld hl, CeruleanGymTrainerHeader1
call TalkToTrainer
jp TextScriptEnd
CeruleanGymBattleText2:
TX_FAR _CeruleanGymBattleText2
db "@"
text_far _CeruleanGymBattleText2
text_end
CeruleanGymEndBattleText2:
TX_FAR _CeruleanGymEndBattleText2
db "@"
text_far _CeruleanGymEndBattleText2
text_end
CeruleanGymAfterBattleText2:
TX_FAR _CeruleanGymAfterBattleText2
db "@"
text_far _CeruleanGymAfterBattleText2
text_end
CeruleanGymText4:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_MISTY
jr nz, .asm_5c821
ld hl, CeruleanGymText_5c82a
@ -211,9 +197,9 @@ CeruleanGymText4:
jp TextScriptEnd
CeruleanGymText_5c82a:
TX_FAR _CeruleanGymText_5c82a
db "@"
text_far _CeruleanGymText_5c82a
text_end
CeruleanGymText_5c82f:
TX_FAR _CeruleanGymText_5c82f
db "@"
text_far _CeruleanGymText_5c82f
text_end

8
scripts/CeruleanMart.asm Executable file → Normal file
View file

@ -7,9 +7,9 @@ CeruleanMart_TextPointers:
dw CeruleanMartText3
CeruleanMartText2:
TX_FAR _CeruleanMartText2
db "@"
text_far _CeruleanMartText2
text_end
CeruleanMartText3:
TX_FAR _CeruleanMartText3
db "@"
text_far _CeruleanMartText3
text_end

12
scripts/CeruleanPokecenter.asm Executable file → Normal file
View file

@ -9,15 +9,15 @@ CeruleanPokecenter_TextPointers:
dw CeruleanTradeNurseText
CeruleanTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist
CeruleanHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
CeruleanPokecenterText2:
TX_FAR _CeruleanPokecenterText2
db "@"
text_far _CeruleanPokecenterText2
text_end
CeruleanPokecenterText3:
TX_FAR _CeruleanPokecenterText3
db "@"
text_far _CeruleanPokecenterText3
text_end

8
scripts/CeruleanTradeHouse.asm Executable file → Normal file
View file

@ -6,12 +6,12 @@ CeruleanTradeHouse_TextPointers:
dw CeruleanHouse1Text2
CeruleanHouse1Text1:
TX_FAR _CeruleanHouse1Text1
db "@"
text_far _CeruleanHouse1Text1
text_end
CeruleanHouse1Text2:
TX_ASM
ld a, $6
text_asm
ld a, TRADE_FOR_LOLA
ld [wWhichTrade], a
predef DoInGameTradeDialogue
jp TextScriptEnd

28
scripts/CeruleanTrashedHouse.asm Executable file → Normal file
View file

@ -8,32 +8,32 @@ CeruleanTrashedHouse_TextPointers:
dw CeruleanHouseTrashedText3
CeruleanHouseTrashedText1:
TX_ASM
ld b, $e4
text_asm
ld b, TM_DIG
predef GetQuantityOfItemInBag
and b
jr z, .asm_f8734
jr z, .no_dig_tm
ld hl, CeruleanHouseTrashedText_1d6b0
call PrintText
jr .asm_8dfe9
.asm_f8734
jr .done
.no_dig_tm
ld hl, CeruleanHouseTrashedText_1d6ab
call PrintText
.asm_8dfe9
.done
jp TextScriptEnd
CeruleanHouseTrashedText_1d6ab:
TX_FAR _CeruleanTrashedText_1d6ab
db "@"
text_far _CeruleanTrashedText_1d6ab
text_end
CeruleanHouseTrashedText_1d6b0:
TX_FAR _CeruleanTrashedText_1d6b0
db "@"
text_far _CeruleanTrashedText_1d6b0
text_end
CeruleanHouseTrashedText2:
TX_FAR _CeruleanHouseTrashedText2
db "@"
text_far _CeruleanHouseTrashedText2
text_end
CeruleanHouseTrashedText3:
TX_FAR _CeruleanHouseTrashedText3
db "@"
text_far _CeruleanHouseTrashedText3
text_end

96
scripts/ChampionsRoom.asm Executable file → Normal file
View file

@ -40,10 +40,10 @@ GaryScript1:
ret
GaryEntrance_RLEMovement:
db D_UP,1
db D_RIGHT,1
db D_UP,3
db $ff
db D_UP, 1
db D_RIGHT, 1
db D_UP, 3
db -1 ; end
GaryScript2:
ld a, [wSimulatedJoypadStatesIndex]
@ -55,7 +55,7 @@ GaryScript2:
ld hl, wOptions
res 7, [hl] ; Turn on battle animations to make the battle feel more epic.
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
call Delay3
ld hl, wd72d
@ -64,7 +64,7 @@ GaryScript2:
ld hl, GaryDefeatedText
ld de, GaryVictoryText
call SaveEndBattleTextPointers
ld a, OPP_SONY3
ld a, OPP_RIVAL3
ld [wCurOpponent], a
; select which team to use during the encounter
@ -84,7 +84,7 @@ GaryScript2:
ld [wTrainerNo], a
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $3
ld [wChampionsRoomCurScript], a
ret
@ -98,26 +98,26 @@ GaryScript3:
ld a, $f0
ld [wJoyIgnore], a
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call GaryScript_760c8
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld a, $4
ld [wChampionsRoomCurScript], a
ret
GaryScript4:
callba Music_Cities1AlternateTempo
farcall Music_Cities1AlternateTempo
ld a, $2
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call GaryScript_760c8
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld de, OakEntranceAfterVictoryMovement
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, HS_CHAMPIONS_ROOM_OAK
ld [wMissableObjectIndex], a
@ -132,7 +132,7 @@ OakEntranceAfterVictoryMovement:
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db $FF
db -1 ; end
GaryScript5:
ld a, [wd730]
@ -141,17 +141,17 @@ GaryScript5:
ld a, PLAYER_DIR_LEFT
ld [wPlayerMovingDirection], a
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_LEFT
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
xor a ; SPRITE_FACING_DOWN
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, $3
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call GaryScript_760c8
ld a, $6
ld [wChampionsRoomCurScript], a
@ -159,12 +159,12 @@ GaryScript5:
GaryScript6:
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_RIGHT
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, $4
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call GaryScript_760c8
ld a, $7
ld [wChampionsRoomCurScript], a
@ -172,16 +172,16 @@ GaryScript6:
GaryScript7:
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
xor a ; SPRITE_FACING_DOWN
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, $5
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call GaryScript_760c8
ld de, OakExitGaryRoomMovement
ld a, $2
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $8
ld [wChampionsRoomCurScript], a
@ -190,7 +190,7 @@ GaryScript7:
OakExitGaryRoomMovement:
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db $FF
db -1 ; end
GaryScript8:
ld a, [wd730]
@ -217,9 +217,9 @@ GaryScript9:
ret
WalkToHallOfFame_RLEMovment:
db D_UP,4
db D_LEFT,1
db $ff
db D_UP, 4
db D_LEFT, 1
db -1 ; end
GaryScript10:
ld a, [wSimulatedJoypadStatesIndex]
@ -247,7 +247,7 @@ ChampionsRoom_TextPointers:
dw GaryText5
GaryText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_CHAMPION_RIVAL
ld hl, GaryChampionIntroText
jr z, .printText
@ -257,27 +257,27 @@ GaryText1:
jp TextScriptEnd
GaryChampionIntroText:
TX_FAR _GaryChampionIntroText
db "@"
text_far _GaryChampionIntroText
text_end
GaryDefeatedText:
TX_FAR _GaryDefeatedText
db "@"
text_far _GaryDefeatedText
text_end
GaryVictoryText:
TX_FAR _GaryVictoryText
db "@"
text_far _GaryVictoryText
text_end
GaryText_76103:
TX_FAR _GaryText_76103
db "@"
text_far _GaryText_76103
text_end
GaryText2:
TX_FAR _GaryText2
db "@"
text_far _GaryText2
text_end
GaryText3:
TX_ASM
text_asm
ld a, [wPlayerStarter]
ld [wd11e], a
call GetMonName
@ -286,13 +286,13 @@ GaryText3:
jp TextScriptEnd
GaryText_76120:
TX_FAR _GaryText_76120
db "@"
text_far _GaryText_76120
text_end
GaryText4:
TX_FAR _GaryText_76125
db "@"
text_far _GaryText_76125
text_end
GaryText5:
TX_FAR _GaryText_7612a
db "@"
text_far _GaryText_7612a
text_end

196
scripts/CinnabarGym.asm Executable file → Normal file
View file

@ -10,21 +10,23 @@ CinnabarGymScript_75759:
bit 6, [hl]
res 6, [hl]
push hl
call nz, CinnabarGymScript_75772
call nz, .LoadNames
pop hl
bit 5, [hl]
res 5, [hl]
call nz, UpdateCinnabarGymGateTileBlocks
ResetEvent EVENT_2A7
ret
CinnabarGymScript_75772:
ld hl, Gym7CityName
ld de, Gym7LeaderName
.LoadNames:
ld hl, .CityName
ld de, .LeaderName
jp LoadGymLeaderAndCityName
Gym7CityName:
.CityName:
db "CINNABAR ISLAND@"
Gym7LeaderName:
.LeaderName:
db "BLAINE@"
CinnabarGymScript_75792:
@ -36,7 +38,7 @@ CinnabarGymScript_75792:
ret
CinnabarGymScript_757a0:
ld a, [hSpriteIndexOrTextID]
ldh a, [hSpriteIndexOrTextID]
ld [wTrainerHeaderFlagBit], a
ret
@ -50,7 +52,7 @@ CinnabarGymScript0:
ld a, [wOpponentAfterWrongAnswer]
and a
ret z
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
cp $4
jr nz, .asm_757c3
ld a, PLAYER_DIR_DOWN
@ -71,11 +73,11 @@ CinnabarGymScript0:
MovementData_757d7:
db NPC_MOVEMENT_LEFT
db NPC_MOVEMENT_UP
db $FF
db -1 ; end
MovementData_757da:
db NPC_MOVEMENT_LEFT
db $FF
db -1 ; end
CinnabarGymScript1:
ld a, [wd730]
@ -85,7 +87,7 @@ CinnabarGymScript1:
ld [wJoyIgnore], a
ld a, [wOpponentAfterWrongAnswer]
ld [wTrainerHeaderFlagBit], a
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
CinnabarGymFlagAction:
@ -96,7 +98,7 @@ CinnabarGymScript2:
cp $ff
jp z, CinnabarGymScript_75792
ld a, [wTrainerHeaderFlagBit]
ld [$ffdb], a
ldh [hGymGateIndex], a
AdjustEventBit EVENT_BEAT_CINNABAR_GYM_TRAINER_0, 2
ld c, a
ld b, FLAG_TEST
@ -111,7 +113,7 @@ CinnabarGymScript2:
call WaitForSoundToFinish
.asm_7581b
ld a, [wTrainerHeaderFlagBit]
ld [$ffdb], a
ldh [hGymGateIndex], a
AdjustEventBit EVENT_BEAT_CINNABAR_GYM_TRAINER_0, 2
ld c, a
ld b, FLAG_SET
@ -141,26 +143,26 @@ CinnabarGymScript3:
ld [wJoyIgnore], a
CinnabarGymScript3_75857:
ld a, $a
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_BEAT_BLAINE
lb bc, TM_38, 1
lb bc, TM_FIRE_BLAST, 1
call GiveItem
jr nc, .BagFull
ld a, $b
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_GOT_TM38
jr .asm_75880
jr .gymVictory
.BagFull
ld a, $c
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
.asm_75880
.gymVictory
ld hl, wObtainedBadges
set 6, [hl]
set BIT_VOLCANOBADGE, [hl]
ld hl, wBeatGymFlags
set 6, [hl]
set BIT_VOLCANOBADGE, [hl]
; deactivate gym trainers
SetEventRange EVENT_BEAT_CINNABAR_GYM_TRAINER_0, EVENT_BEAT_CINNABAR_GYM_TRAINER_6
@ -185,7 +187,7 @@ CinnabarGym_TextPointers:
dw TM38NoRoomText
CinnabarGymScript_758b7:
ld a, [hSpriteIndexOrTextID]
ldh a, [hSpriteIndexOrTextID]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
@ -205,19 +207,19 @@ CinnabarGymScript_758b7:
jp TextScriptEnd
CinnabarGymText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_BLAINE
jr z, .asm_d9332
jr z, .beginBattle
CheckEventReuseA EVENT_GOT_TM38
jr nz, .asm_3012f
jr nz, .afterVictory
call z, CinnabarGymScript3_75857
call DisableWaitingAfterTextDisplay
jp TextScriptEnd
.asm_3012f
.afterVictory
ld hl, BlaineFireBlastText
call PrintText
jp TextScriptEnd
.asm_d9332
.beginBattle
ld hl, BlaineBattleText
call PrintText
ld hl, BlaineEndBattleText
@ -228,35 +230,35 @@ CinnabarGymText1:
jp CinnabarGymScript_758b7
BlaineBattleText:
TX_FAR _BlaineBattleText
db "@"
text_far _BlaineBattleText
text_end
BlaineEndBattleText:
TX_FAR _BlaineEndBattleText
TX_SFX_KEY_ITEM ; actually plays the second channel of SFX_BALL_POOF due to the wrong music bank being loaded
TX_WAIT
db "@"
text_far _BlaineEndBattleText
sound_get_key_item ; actually plays the second channel of SFX_BALL_POOF due to the wrong music bank being loaded
text_waitbutton
text_end
BlaineFireBlastText:
TX_FAR _BlaineFireBlastText
db "@"
text_far _BlaineFireBlastText
text_end
BlaineBadgeText:
TX_FAR _BlaineBadgeText
db "@"
text_far _BlaineBadgeText
text_end
ReceivedTM38Text:
TX_FAR _ReceivedTM38Text
TX_SFX_ITEM_1
TX_FAR _TM38ExplanationText
db "@"
text_far _ReceivedTM38Text
sound_get_item_1
text_far _TM38ExplanationText
text_end
TM38NoRoomText:
TX_FAR _TM38NoRoomText
db "@"
text_far _TM38NoRoomText
text_end
CinnabarGymText2:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_0
jr nz, .asm_46bb4
@ -272,19 +274,19 @@ CinnabarGymText2:
jp TextScriptEnd
CinnabarGymText_7595f:
TX_FAR _CinnabarGymText_7595f
db "@"
text_far _CinnabarGymText_7595f
text_end
CinnabarGymText_75964:
TX_FAR _CinnabarGymText_75964
db "@"
text_far _CinnabarGymText_75964
text_end
CinnabarGymText_75969:
TX_FAR _CinnabarGymText_75969
db "@"
text_far _CinnabarGymText_75969
text_end
CinnabarGymText3:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_1
jr nz, .asm_4b406
@ -300,19 +302,19 @@ CinnabarGymText3:
jp TextScriptEnd
CinnabarGymText_75994:
TX_FAR _CinnabarGymText_75994
db "@"
text_far _CinnabarGymText_75994
text_end
CinnabarGymText_75999:
TX_FAR _CinnabarGymText_75999
db "@"
text_far _CinnabarGymText_75999
text_end
CinnabarGymText_7599e:
TX_FAR _CinnabarGymText_7599e
db "@"
text_far _CinnabarGymText_7599e
text_end
CinnabarGymText4:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_2
jr nz, .asm_c0673
@ -328,19 +330,19 @@ CinnabarGymText4:
jp TextScriptEnd
CinnabarGymText_759c9:
TX_FAR _CinnabarGymText_759c9
db "@"
text_far _CinnabarGymText_759c9
text_end
CinnabarGymText_759ce:
TX_FAR _CinnabarGymText_759ce
db "@"
text_far _CinnabarGymText_759ce
text_end
CinnabarGymText_759d3:
TX_FAR _CinnabarGymText_759d3
db "@"
text_far _CinnabarGymText_759d3
text_end
CinnabarGymText5:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_3
jr nz, .asm_5cfd7
@ -356,19 +358,19 @@ CinnabarGymText5:
jp TextScriptEnd
CinnabarGymText_759fe:
TX_FAR _CinnabarGymText_759fe
db "@"
text_far _CinnabarGymText_759fe
text_end
CinnabarGymText_75a03:
TX_FAR _CinnabarGymText_75a03
db "@"
text_far _CinnabarGymText_75a03
text_end
CinnabarGymText_75a08:
TX_FAR _CinnabarGymText_75a08
db "@"
text_far _CinnabarGymText_75a08
text_end
CinnabarGymText6:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_4
jr nz, .asm_776b4
@ -384,19 +386,19 @@ CinnabarGymText6:
jp TextScriptEnd
CinnabarGymText_75a33:
TX_FAR _CinnabarGymText_75a33
db "@"
text_far _CinnabarGymText_75a33
text_end
CinnabarGymText_75a38:
TX_FAR _CinnabarGymText_75a38
db "@"
text_far _CinnabarGymText_75a38
text_end
CinnabarGymText_75a3d:
TX_FAR _CinnabarGymText_75a3d
db "@"
text_far _CinnabarGymText_75a3d
text_end
CinnabarGymText7:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_5
jr nz, .asm_2f755
@ -412,19 +414,19 @@ CinnabarGymText7:
jp TextScriptEnd
CinnabarGymText_75a68:
TX_FAR _CinnabarGymText_75a68
db "@"
text_far _CinnabarGymText_75a68
text_end
CinnabarGymText_75a6d:
TX_FAR _CinnabarGymText_75a6d
db "@"
text_far _CinnabarGymText_75a6d
text_end
CinnabarGymText_75a72:
TX_FAR _CinnabarGymText_75a72
db "@"
text_far _CinnabarGymText_75a72
text_end
CinnabarGymText8:
TX_ASM
text_asm
call CinnabarGymScript_757a0
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_6
jr nz, .asm_d87be
@ -440,19 +442,19 @@ CinnabarGymText8:
jp TextScriptEnd
CinnabarGymText_75a9d:
TX_FAR _CinnabarGymText_75a9d
db "@"
text_far _CinnabarGymText_75a9d
text_end
CinnabarGymText_75aa2:
TX_FAR _CinnabarGymText_75aa2
db "@"
text_far _CinnabarGymText_75aa2
text_end
CinnabarGymText_75aa7:
TX_FAR _CinnabarGymText_75aa7
db "@"
text_far _CinnabarGymText_75aa7
text_end
CinnabarGymText9:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_BLAINE
jr nz, .asm_627d9
ld hl, CinnabarGymText_75ac2
@ -464,9 +466,9 @@ CinnabarGymText9:
jp TextScriptEnd
CinnabarGymText_75ac2:
TX_FAR _CinnabarGymText_75ac2
db "@"
text_far _CinnabarGymText_75ac2
text_end
CinnabarGymText_75ac7:
TX_FAR _CinnabarGymText_75ac7
db "@"
text_far _CinnabarGymText_75ac7
text_end

34
scripts/CinnabarIsland.asm Executable file → Normal file
View file

@ -17,25 +17,25 @@ CinnabarIslandScript0:
call IsItemInBag
ret nz
ld a, [wYCoord]
cp $4
cp 4
ret nz
ld a, [wXCoord]
cp $12
cp 18
ret nz
ld a, PLAYER_DIR_UP
ld [wPlayerMovingDirection], a
ld a, $8
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
ld a, D_DOWN
ld [wSimulatedJoypadStatesEnd], a
call StartSimulatingJoypadStates
xor a
ld [wSpriteStateData1 + 9], a
ld [wSpritePlayerStateData1FacingDirection], a
ld [wJoyIgnore], a
ld a, $1
ld [wCinnabarIslandCurScript], a
@ -61,25 +61,25 @@ CinnabarIsland_TextPointers:
dw CinnabarIslandText8
CinnabarIslandText8:
TX_FAR _CinnabarIslandText8
db "@"
text_far _CinnabarIslandText8
text_end
CinnabarIslandText1:
TX_FAR _CinnabarIslandText1
db "@"
text_far _CinnabarIslandText1
text_end
CinnabarIslandText2:
TX_FAR _CinnabarIslandText2
db "@"
text_far _CinnabarIslandText2
text_end
CinnabarIslandText3:
TX_FAR _CinnabarIslandText3
db "@"
text_far _CinnabarIslandText3
text_end
CinnabarIslandText6:
TX_FAR _CinnabarIslandText6
db "@"
text_far _CinnabarIslandText6
text_end
CinnabarIslandText7:
TX_FAR _CinnabarIslandText7
db "@"
text_far _CinnabarIslandText7
text_end

20
scripts/CinnabarLab.asm Executable file → Normal file
View file

@ -10,21 +10,21 @@ CinnabarLab_TextPointers:
dw Lab1Text5
Lab1Text1:
TX_FAR _Lab1Text1
db "@"
text_far _Lab1Text1
text_end
Lab1Text2:
TX_FAR _Lab1Text2
db "@"
text_far _Lab1Text2
text_end
Lab1Text3:
TX_FAR _Lab1Text3
db "@"
text_far _Lab1Text3
text_end
Lab1Text4:
TX_FAR _Lab1Text4
db "@"
text_far _Lab1Text4
text_end
Lab1Text5:
TX_FAR _Lab1Text5
db "@"
text_far _Lab1Text5
text_end

28
scripts/CinnabarLabFossilRoom.asm Executable file → Normal file
View file

@ -44,10 +44,10 @@ FossilsList:
db DOME_FOSSIL
db HELIX_FOSSIL
db OLD_AMBER
db $00
db 0 ; end
Lab4Text1:
TX_ASM
text_asm
CheckEvent EVENT_GAVE_FOSSIL_TO_LAB
jr nz, .asm_75d96
ld hl, Lab4Text_75dc6
@ -56,7 +56,7 @@ Lab4Text1:
ld a, [wFilteredBagItemsCount]
and a
jr z, .asm_75d8d
callba GiveFossilToCinnabarLab
farcall GiveFossilToCinnabarLab
jr .asm_75d93
.asm_75d8d
ld hl, Lab4Text_75dcb
@ -83,27 +83,27 @@ Lab4Text1:
jr .asm_75d93
Lab4Text_75dc6:
TX_FAR _Lab4Text_75dc6
db "@"
text_far _Lab4Text_75dc6
text_end
Lab4Text_75dcb:
TX_FAR _Lab4Text_75dcb
db "@"
text_far _Lab4Text_75dcb
text_end
Lab4Text_75dd0:
TX_FAR _Lab4Text_75dd0
db "@"
text_far _Lab4Text_75dd0
text_end
Lab4Text_75dd5:
TX_FAR _Lab4Text_75dd5
db "@"
text_far _Lab4Text_75dd5
text_end
Lab4Text2:
TX_ASM
ld a, $3
text_asm
ld a, TRADE_FOR_SAILOR
ld [wWhichTrade], a
predef DoInGameTradeDialogue
jp TextScriptEnd
LoadFossilItemAndMonNameBank1D:
jpba LoadFossilItemAndMonName
farjp LoadFossilItemAndMonName

48
scripts/CinnabarLabMetronomeRoom.asm Executable file → Normal file
View file

@ -9,54 +9,54 @@ CinnabarLabMetronomeRoom_TextPointers:
dw Lab3Text5
Lab3Text1:
TX_ASM
text_asm
CheckEvent EVENT_GOT_TM35
jr nz, .asm_e551a
jr nz, .got_item
ld hl, TM35PreReceiveText
call PrintText
lb bc, TM_35, 1
lb bc, TM_METRONOME, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
ld hl, ReceivedTM35Text
call PrintText
SetEvent EVENT_GOT_TM35
jr .asm_eb896
.BagFull
jr .done
.bag_full
ld hl, TM35NoRoomText
call PrintText
jr .asm_eb896
.asm_e551a
jr .done
.got_item
ld hl, TM35ExplanationText
call PrintText
.asm_eb896
.done
jp TextScriptEnd
TM35PreReceiveText:
TX_FAR _TM35PreReceiveText
db "@"
text_far _TM35PreReceiveText
text_end
ReceivedTM35Text:
TX_FAR _ReceivedTM35Text
TX_SFX_ITEM_1
db "@"
text_far _ReceivedTM35Text
sound_get_item_1
text_end
TM35ExplanationText:
TX_FAR _TM35ExplanationText
db "@"
text_far _TM35ExplanationText
text_end
TM35NoRoomText:
TX_FAR _TM35NoRoomText
db "@"
text_far _TM35NoRoomText
text_end
Lab3Text2:
TX_FAR _Lab3Text2
db "@"
text_far _Lab3Text2
text_end
Lab3Text4:
Lab3Text3:
TX_FAR _Lab3Text3
db "@"
text_far _Lab3Text3
text_end
Lab3Text5:
TX_FAR _Lab3Text5
db "@"
text_far _Lab3Text5
text_end

12
scripts/CinnabarLabTradeRoom.asm Executable file → Normal file
View file

@ -7,18 +7,18 @@ CinnabarLabTradeRoom_TextPointers:
dw Lab2Text3
Lab2Text1:
TX_FAR _Lab2Text1
db "@"
text_far _Lab2Text1
text_end
Lab2Text2:
TX_ASM
ld a, $7
text_asm
ld a, TRADE_FOR_DORIS
ld [wWhichTrade], a
jr Lab2DoTrade
Lab2Text3:
TX_ASM
ld a, $8
text_asm
ld a, TRADE_FOR_CRINKLES
ld [wWhichTrade], a
Lab2DoTrade:
predef DoInGameTradeDialogue

8
scripts/CinnabarMart.asm Executable file → Normal file
View file

@ -7,9 +7,9 @@ CinnabarMart_TextPointers:
dw CinnabarMartText3
CinnabarMartText2:
TX_FAR _CinnabarMartText2
db "@"
text_far _CinnabarMartText2
text_end
CinnabarMartText3:
TX_FAR _CinnabarMartText3
db "@"
text_far _CinnabarMartText3
text_end

12
scripts/CinnabarPokecenter.asm Executable file → Normal file
View file

@ -9,15 +9,15 @@ CinnabarPokecenter_TextPointers:
dw CinnabarTradeNurseText
CinnabarHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
CinnabarPokecenterText2:
TX_FAR _CinnabarPokecenterText2
db "@"
text_far _CinnabarPokecenterText2
text_end
CinnabarPokecenterText3:
TX_FAR _CinnabarPokecenterText3
db "@"
text_far _CinnabarPokecenterText3
text_end
CinnabarTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist

4
scripts/Colosseum.asm Executable file → Normal file
View file

@ -5,5 +5,5 @@ Colosseum_TextPointers:
dw ColosseumText1
ColosseumText1:
TX_FAR _ColosseumText1
db "@"
text_far _ColosseumText1
text_end

12
scripts/CopycatsHouse1F.asm Executable file → Normal file
View file

@ -7,16 +7,16 @@ CopycatsHouse1F_TextPointers:
dw CopycatsHouse1FText3
CopycatsHouse1FText1:
TX_FAR _CopycatsHouse1FText1
db "@"
text_far _CopycatsHouse1FText1
text_end
CopycatsHouse1FText2:
TX_FAR _CopycatsHouse1FText2
db "@"
text_far _CopycatsHouse1FText2
text_end
CopycatsHouse1FText3:
TX_FAR _CopycatsHouse1FText3
TX_ASM
text_far _CopycatsHouse1FText3
text_asm
ld a, CHANSEY
call PlayCry
jp TextScriptEnd

78
scripts/CopycatsHouse2F.asm Executable file → Normal file
View file

@ -11,80 +11,80 @@ CopycatsHouse2F_TextPointers:
dw CopycatsHouse2FText7
CopycatsHouse2FText1:
TX_ASM
text_asm
CheckEvent EVENT_GOT_TM31
jr nz, .asm_7ccf3
ld a, $1
jr nz, .got_item
ld a, TRUE
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, CopycatsHouse2FText_5ccd4
call PrintText
ld b, POKE_DOLL
call IsItemInBag
jr z, .asm_62ecd
jr z, .done
ld hl, TM31PreReceiveText
call PrintText
lb bc, TM_31, 1
lb bc, TM_MIMIC, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
ld hl, ReceivedTM31Text
call PrintText
ld a, POKE_DOLL
ld [$ffdb], a
callba RemoveItemByID
ldh [hItemToRemoveID], a
farcall RemoveItemByID
SetEvent EVENT_GOT_TM31
jr .asm_62ecd
.BagFull
jr .done
.bag_full
ld hl, TM31NoRoomText
call PrintText
jr .asm_62ecd
.asm_7ccf3
jr .done
.got_item
ld hl, TM31ExplanationText2
call PrintText
.asm_62ecd
.done
jp TextScriptEnd
CopycatsHouse2FText_5ccd4:
TX_FAR _CopycatsHouse2FText_5ccd4
db "@"
text_far _CopycatsHouse2FText_5ccd4
text_end
TM31PreReceiveText:
TX_FAR _TM31PreReceiveText
db "@"
text_far _TM31PreReceiveText
text_end
ReceivedTM31Text:
TX_FAR _ReceivedTM31Text
TX_SFX_ITEM_1
text_far _ReceivedTM31Text
sound_get_item_1
TM31ExplanationText1:
TX_FAR _TM31ExplanationText1
TX_WAIT
db "@"
text_far _TM31ExplanationText1
text_waitbutton
text_end
TM31ExplanationText2:
TX_FAR _TM31ExplanationText2
db "@"
text_far _TM31ExplanationText2
text_end
TM31NoRoomText:
TX_FAR _TM31NoRoomText
TX_WAIT
db "@"
text_far _TM31NoRoomText
text_waitbutton
text_end
CopycatsHouse2FText2:
TX_FAR _CopycatsHouse2FText2
db "@"
text_far _CopycatsHouse2FText2
text_end
CopycatsHouse2FText5:
CopycatsHouse2FText4:
CopycatsHouse2FText3:
TX_FAR _CopycatsHouse2FText3
db "@"
text_far _CopycatsHouse2FText3
text_end
CopycatsHouse2FText6:
TX_FAR _CopycatsHouse2FText6
db "@"
text_far _CopycatsHouse2FText6
text_end
CopycatsHouse2FText7:
TX_ASM
ld a, [wSpriteStateData1 + 9]
text_asm
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_UP
ld hl, CopycatsHouse2FText_5cd1c
jr nz, .notUp
@ -94,9 +94,9 @@ CopycatsHouse2FText7:
jp TextScriptEnd
CopycatsHouse2FText_5cd17:
TX_FAR _CopycatsHouse2FText_5cd17
db "@"
text_far _CopycatsHouse2FText_5cd17
text_end
CopycatsHouse2FText_5cd1c:
TX_FAR _CopycatsHouse2FText_5cd1c
db "@"
text_far _CopycatsHouse2FText_5cd1c
text_end

78
scripts/Daycare.asm Executable file → Normal file
View file

@ -5,7 +5,7 @@ Daycare_TextPointers:
dw DayCareMText1
DayCareMText1:
TX_ASM
text_asm
call SaveScreenTilesToBuffer2
ld a, [wDayCareInUse]
and a
@ -35,7 +35,7 @@ DayCareMText1:
pop af
ld hl, DayCareAllRightThenText
jp c, .done
callab KnowsHMMove
callfar KnowsHMMove
ld hl, DayCareCantAcceptMonWithHMText
jp c, .done
xor a
@ -65,19 +65,19 @@ DayCareMText1:
ld a, DAYCARE_DATA
ld [wMonDataLocation], a
call LoadMonData
callab CalcLevelFromExperience
callfar CalcLevelFromExperience
ld a, d
cp MAX_LEVEL
jr c, .skipCalcExp
ld d, MAX_LEVEL
callab CalcExperience
callfar CalcExperience
ld hl, wDayCareMonExp
ld a, [hExperience]
ldh a, [hExperience]
ld [hli], a
ld a, [hExperience + 1]
ldh a, [hExperience + 1]
ld [hli], a
ld a, [hExperience + 2]
ldh a, [hExperience + 2]
ld [hl], a
ld d, MAX_LEVEL
@ -138,11 +138,11 @@ DayCareMText1:
and a
jp nz, .leaveMonInDayCare
ld hl, wDayCareTotalCost
ld [hMoney], a
ldh [hMoney], a
ld a, [hli]
ld [hMoney + 1], a
ldh [hMoney + 1], a
ld a, [hl]
ld [hMoney + 2], a
ldh [hMoney + 2], a
call HasEnoughMoney
jr nc, .enoughMoney
ld hl, DayCareNotEnoughMoneyText
@ -211,59 +211,59 @@ DayCareMText1:
jp TextScriptEnd
DayCareIntroText:
TX_FAR _DayCareIntroText
db "@"
text_far _DayCareIntroText
text_end
DayCareWhichMonText:
TX_FAR _DayCareWhichMonText
db "@"
text_far _DayCareWhichMonText
text_end
DayCareWillLookAfterMonText:
TX_FAR _DayCareWillLookAfterMonText
db "@"
text_far _DayCareWillLookAfterMonText
text_end
DayCareComeSeeMeInAWhileText:
TX_FAR _DayCareComeSeeMeInAWhileText
db "@"
text_far _DayCareComeSeeMeInAWhileText
text_end
DayCareMonHasGrownText:
TX_FAR _DayCareMonHasGrownText
db "@"
text_far _DayCareMonHasGrownText
text_end
DayCareOweMoneyText:
TX_FAR _DayCareOweMoneyText
db "@"
text_far _DayCareOweMoneyText
text_end
DayCareGotMonBackText:
TX_FAR _DayCareGotMonBackText
db "@"
text_far _DayCareGotMonBackText
text_end
DayCareMonNeedsMoreTimeText:
TX_FAR _DayCareMonNeedsMoreTimeText
db "@"
text_far _DayCareMonNeedsMoreTimeText
text_end
DayCareAllRightThenText:
TX_FAR _DayCareAllRightThenText
text_far _DayCareAllRightThenText
DayCareComeAgainText:
TX_FAR _DayCareComeAgainText
db "@"
text_far _DayCareComeAgainText
text_end
DayCareNoRoomForMonText:
TX_FAR _DayCareNoRoomForMonText
db "@"
text_far _DayCareNoRoomForMonText
text_end
DayCareOnlyHaveOneMonText:
TX_FAR _DayCareOnlyHaveOneMonText
db "@"
text_far _DayCareOnlyHaveOneMonText
text_end
DayCareCantAcceptMonWithHMText:
TX_FAR _DayCareCantAcceptMonWithHMText
db "@"
text_far _DayCareCantAcceptMonWithHMText
text_end
DayCareHeresYourMonText:
TX_FAR _DayCareHeresYourMonText
db "@"
text_far _DayCareHeresYourMonText
text_end
DayCareNotEnoughMoneyText:
TX_FAR _DayCareNotEnoughMoneyText
db "@"
text_far _DayCareNotEnoughMoneyText
text_end

3
scripts/DiglettsCave.asm Executable file → Normal file
View file

@ -2,4 +2,5 @@ DiglettsCave_Script:
jp EnableAutoTextBoxDrawing
DiglettsCave_TextPointers:
db "@"
text_end ; unused

4
scripts/DiglettsCaveRoute11.asm Executable file → Normal file
View file

@ -8,5 +8,5 @@ DiglettsCaveRoute11_TextPointers:
dw DiglettsCaveEntranceRoute11Text1
DiglettsCaveEntranceRoute11Text1:
TX_FAR _DiglettsCaveEntRoute11Text1
db "@"
text_far _DiglettsCaveEntRoute11Text1
text_end

4
scripts/DiglettsCaveRoute2.asm Executable file → Normal file
View file

@ -7,5 +7,5 @@ DiglettsCaveRoute2_TextPointers:
dw DiglettsCaveRoute2Text1
DiglettsCaveRoute2Text1:
TX_FAR _DiglettsCaveRoute2Text1
db "@"
text_far _DiglettsCaveRoute2Text1
text_end

148
scripts/FightingDojo.asm Executable file → Normal file
View file

@ -30,25 +30,25 @@ FightingDojoScript1:
CheckEvent EVENT_BEAT_KARATE_MASTER
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld [wcf0d], a
ld a, [wYCoord]
cp $3
cp 3
ret nz
ld a, [wXCoord]
cp $4
cp 4
ret nz
ld a, $1
ld [wcf0d], a
ld a, PLAYER_DIR_RIGHT
ld [wPlayerMovingDirection], a
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_LEFT
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ret
@ -62,9 +62,9 @@ FightingDojoScript3:
ld a, PLAYER_DIR_RIGHT
ld [wPlayerMovingDirection], a
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_LEFT
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
.asm_5cde4
@ -72,7 +72,7 @@ FightingDojoScript3:
ld [wJoyIgnore], a
SetEventRange EVENT_BEAT_KARATE_MASTER, EVENT_BEAT_FIGHTING_DOJO_TRAINER_3
ld a, $8
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
@ -91,45 +91,17 @@ FightingDojo_TextPointers:
dw FightingDojoText8
FightingDojoTrainerHeader0:
dbEventFlagBit EVENT_BEAT_FIGHTING_DOJO_TRAINER_0
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FIGHTING_DOJO_TRAINER_0
dw FightingDojoBattleText1 ; TextBeforeBattle
dw FightingDojoAfterBattleText1 ; TextAfterBattle
dw FightingDojoEndBattleText1 ; TextEndBattle
dw FightingDojoEndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_FIGHTING_DOJO_TRAINER_0, 4, FightingDojoBattleText1, FightingDojoEndBattleText1, FightingDojoAfterBattleText1
FightingDojoTrainerHeader1:
dbEventFlagBit EVENT_BEAT_FIGHTING_DOJO_TRAINER_1
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FIGHTING_DOJO_TRAINER_1
dw FightingDojoBattleText2 ; TextBeforeBattle
dw FightingDojoAfterBattleText2 ; TextAfterBattle
dw FightingDojoEndBattleText2 ; TextEndBattle
dw FightingDojoEndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_FIGHTING_DOJO_TRAINER_1, 4, FightingDojoBattleText2, FightingDojoEndBattleText2, FightingDojoAfterBattleText2
FightingDojoTrainerHeader2:
dbEventFlagBit EVENT_BEAT_FIGHTING_DOJO_TRAINER_2
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FIGHTING_DOJO_TRAINER_2
dw FightingDojoBattleText3 ; TextBeforeBattle
dw FightingDojoAfterBattleText3 ; TextAfterBattle
dw FightingDojoEndBattleText3 ; TextEndBattle
dw FightingDojoEndBattleText3 ; TextEndBattle
trainer EVENT_BEAT_FIGHTING_DOJO_TRAINER_2, 3, FightingDojoBattleText3, FightingDojoEndBattleText3, FightingDojoAfterBattleText3
FightingDojoTrainerHeader3:
dbEventFlagBit EVENT_BEAT_FIGHTING_DOJO_TRAINER_3
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FIGHTING_DOJO_TRAINER_3
dw FightingDojoBattleText4 ; TextBeforeBattle
dw FightingDojoAfterBattleText4 ; TextAfterBattle
dw FightingDojoEndBattleText4 ; TextEndBattle
dw FightingDojoEndBattleText4 ; TextEndBattle
db $ff
trainer EVENT_BEAT_FIGHTING_DOJO_TRAINER_3, 3, FightingDojoBattleText4, FightingDojoEndBattleText4, FightingDojoAfterBattleText4
db -1 ; end
FightingDojoText1:
TX_ASM
text_asm
CheckEvent EVENT_DEFEATED_FIGHTING_DOJO
jp nz, .continue1
CheckEventReuseA EVENT_BEAT_KARATE_MASTER
@ -142,7 +114,7 @@ FightingDojoText1:
ld hl, FightingDojoText_5ce93
ld de, FightingDojoText_5ce93
call SaveEndBattleTextPointers
ld a, [hSpriteIndexOrTextID]
ldh a, [hSpriteIndexOrTextID]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
@ -161,96 +133,96 @@ FightingDojoText1:
jp TextScriptEnd
FightingDojoText_5ce8e:
TX_FAR _FightingDojoText_5ce8e
db "@"
text_far _FightingDojoText_5ce8e
text_end
FightingDojoText_5ce93:
TX_FAR _FightingDojoText_5ce93
db "@"
text_far _FightingDojoText_5ce93
text_end
FightingDojoText8:
TX_FAR _FightingDojoText_5ce98
db "@"
text_far _FightingDojoText_5ce98
text_end
FightingDojoText_5ce9d:
TX_FAR _FightingDojoText_5ce9d
db "@"
text_far _FightingDojoText_5ce9d
text_end
FightingDojoText2:
TX_ASM
text_asm
ld hl, FightingDojoTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
FightingDojoBattleText1:
TX_FAR _FightingDojoBattleText1
db "@"
text_far _FightingDojoBattleText1
text_end
FightingDojoEndBattleText1:
TX_FAR _FightingDojoEndBattleText1
db "@"
text_far _FightingDojoEndBattleText1
text_end
FightingDojoAfterBattleText1:
TX_FAR _FightingDojoAfterBattleText1
db "@"
text_far _FightingDojoAfterBattleText1
text_end
FightingDojoText3:
TX_ASM
text_asm
ld hl, FightingDojoTrainerHeader1
call TalkToTrainer
jp TextScriptEnd
FightingDojoBattleText2:
TX_FAR _FightingDojoBattleText2
db "@"
text_far _FightingDojoBattleText2
text_end
FightingDojoEndBattleText2:
TX_FAR _FightingDojoEndBattleText2
db "@"
text_far _FightingDojoEndBattleText2
text_end
FightingDojoAfterBattleText2:
TX_FAR _FightingDojoAfterBattleText2
db "@"
text_far _FightingDojoAfterBattleText2
text_end
FightingDojoText4:
TX_ASM
text_asm
ld hl, FightingDojoTrainerHeader2
call TalkToTrainer
jp TextScriptEnd
FightingDojoBattleText3:
TX_FAR _FightingDojoBattleText3
db "@"
text_far _FightingDojoBattleText3
text_end
FightingDojoEndBattleText3:
TX_FAR _FightingDojoEndBattleText3
db "@"
text_far _FightingDojoEndBattleText3
text_end
FightingDojoAfterBattleText3:
TX_FAR _FightingDojoAfterBattleText3
db "@"
text_far _FightingDojoAfterBattleText3
text_end
FightingDojoText5:
TX_ASM
text_asm
ld hl, FightingDojoTrainerHeader3
call TalkToTrainer
jp TextScriptEnd
FightingDojoBattleText4:
TX_FAR _FightingDojoBattleText4
db "@"
text_far _FightingDojoBattleText4
text_end
FightingDojoEndBattleText4:
TX_FAR _FightingDojoEndBattleText4
db "@"
text_far _FightingDojoEndBattleText4
text_end
FightingDojoAfterBattleText4:
TX_FAR _FightingDojoAfterBattleText4
db "@"
text_far _FightingDojoAfterBattleText4
text_end
FightingDojoText6:
; Hitmonlee Poké Ball
TX_ASM
text_asm
CheckEitherEventSet EVENT_GOT_HITMONLEE, EVENT_GOT_HITMONCHAN
jr z, .GetMon
ld hl, OtherHitmonText
@ -280,12 +252,12 @@ FightingDojoText6:
jp TextScriptEnd
WantHitmonleeText:
TX_FAR _WantHitmonleeText
db "@"
text_far _WantHitmonleeText
text_end
FightingDojoText7:
; Hitmonchan Poké Ball
TX_ASM
text_asm
CheckEitherEventSet EVENT_GOT_HITMONLEE, EVENT_GOT_HITMONCHAN
jr z, .GetMon
ld hl, OtherHitmonText
@ -315,9 +287,9 @@ FightingDojoText7:
jp TextScriptEnd
WantHitmonchanText:
TX_FAR _WantHitmonchanText
db "@"
text_far _WantHitmonchanText
text_end
OtherHitmonText:
TX_FAR _OtherHitmonText
db "@"
text_far _OtherHitmonText
text_end

12
scripts/FuchsiaBillsGrandpasHouse.asm Executable file → Normal file
View file

@ -8,13 +8,13 @@ FuchsiaBillsGrandpasHouse_TextPointers:
dw FuchsiaHouse1Text3
FuchsiaHouse1Text1:
TX_FAR _FuchsiaHouse1Text1
db "@"
text_far _FuchsiaHouse1Text1
text_end
FuchsiaHouse1Text2:
TX_FAR _FuchsiaHouse1Text2
db "@"
text_far _FuchsiaHouse1Text2
text_end
FuchsiaHouse1Text3:
TX_FAR _FuchsiaHouse1Text3
db "@"
text_far _FuchsiaHouse1Text3
text_end

84
scripts/FuchsiaCity.asm Executable file → Normal file
View file

@ -28,20 +28,20 @@ FuchsiaCity_TextPointers:
dw FuchsiaCityText24
FuchsiaCityText1:
TX_FAR _FuchsiaCityText1
db "@"
text_far _FuchsiaCityText1
text_end
FuchsiaCityText2:
TX_FAR _FuchsiaCityText2
db "@"
text_far _FuchsiaCityText2
text_end
FuchsiaCityText3:
TX_FAR _FuchsiaCityText3
db "@"
text_far _FuchsiaCityText3
text_end
FuchsiaCityText4:
TX_FAR _FuchsiaCityText4
db "@"
text_far _FuchsiaCityText4
text_end
FuchsiaCityText5:
FuchsiaCityText6:
@ -49,32 +49,32 @@ FuchsiaCityText7:
FuchsiaCityText8:
FuchsiaCityText9:
FuchsiaCityText10:
TX_FAR _FuchsiaCityText5
db "@"
text_far _FuchsiaCityText5
text_end
FuchsiaCityText12:
FuchsiaCityText11:
TX_FAR _FuchsiaCityText11
db "@"
text_far _FuchsiaCityText11
text_end
FuchsiaCityText13:
TX_FAR _FuchsiaCityText13
db "@"
text_far _FuchsiaCityText13
text_end
FuchsiaCityText16:
TX_FAR _FuchsiaCityText16
db "@"
text_far _FuchsiaCityText16
text_end
FuchsiaCityText17:
TX_FAR _FuchsiaCityText17
db "@"
text_far _FuchsiaCityText17
text_end
FuchsiaCityText18:
TX_FAR _FuchsiaCityText18
db "@"
text_far _FuchsiaCityText18
text_end
FuchsiaCityText19:
TX_ASM
text_asm
ld hl, FuchsiaCityChanseyText
call PrintText
ld a, CHANSEY
@ -82,11 +82,11 @@ FuchsiaCityText19:
jp TextScriptEnd
FuchsiaCityChanseyText:
TX_FAR _FuchsiaCityChanseyText
db "@"
text_far _FuchsiaCityChanseyText
text_end
FuchsiaCityText20:
TX_ASM
text_asm
ld hl, FuchsiaCityVoltorbText
call PrintText
ld a, VOLTORB
@ -94,11 +94,11 @@ FuchsiaCityText20:
jp TextScriptEnd
FuchsiaCityVoltorbText:
TX_FAR _FuchsiaCityVoltorbText
db "@"
text_far _FuchsiaCityVoltorbText
text_end
FuchsiaCityText21:
TX_ASM
text_asm
ld hl, FuchsiaCityKangaskhanText
call PrintText
ld a, KANGASKHAN
@ -106,11 +106,11 @@ FuchsiaCityText21:
jp TextScriptEnd
FuchsiaCityKangaskhanText:
TX_FAR _FuchsiaCityKangaskhanText
db "@"
text_far _FuchsiaCityKangaskhanText
text_end
FuchsiaCityText22:
TX_ASM
text_asm
ld hl, FuchsiaCitySlowpokeText
call PrintText
ld a, SLOWPOKE
@ -118,11 +118,11 @@ FuchsiaCityText22:
jp TextScriptEnd
FuchsiaCitySlowpokeText:
TX_FAR _FuchsiaCitySlowpokeText
db "@"
text_far _FuchsiaCitySlowpokeText
text_end
FuchsiaCityText23:
TX_ASM
text_asm
ld hl, FuchsiaCityLaprasText
call PrintText
ld a, LAPRAS
@ -130,11 +130,11 @@ FuchsiaCityText23:
jp TextScriptEnd
FuchsiaCityLaprasText:
TX_FAR _FuchsiaCityLaprasText
db "@"
text_far _FuchsiaCityLaprasText
text_end
FuchsiaCityText24:
TX_ASM
text_asm
CheckEvent EVENT_GOT_DOME_FOSSIL
jr nz, .asm_3b4e8
CheckEventReuseA EVENT_GOT_HELIX_FOSSIL
@ -157,13 +157,13 @@ FuchsiaCityText24:
jp TextScriptEnd
FuchsiaCityOmanyteText:
TX_FAR _FuchsiaCityOmanyteText
db "@"
text_far _FuchsiaCityOmanyteText
text_end
FuchsiaCityKabutoText:
TX_FAR _FuchsiaCityKabutoText
db "@"
text_far _FuchsiaCityKabutoText
text_end
FuchsiaCityText_19b2a:
TX_FAR _FuchsiaCityText_19b2a
db "@"
text_far _FuchsiaCityText_19b2a
text_end

63
scripts/FuchsiaGoodRodHouse.asm Executable file → Normal file
View file

@ -5,71 +5,62 @@ FuchsiaGoodRodHouse_TextPointers:
dw FuchsiaHouse3Text1
FuchsiaHouse3Text1:
TX_ASM
text_asm
ld a, [wd728]
bit 4, a
jr nz, .after
bit 4, a ; got good rod?
jr nz, .got_item
ld hl, FuchsiaHouse3Text_561bd
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .refused
lb bc, GOOD_ROD, 1
call GiveItem
jr nc, .full
jr nc, .bag_full
ld hl, wd728
set 4, [hl]
set 4, [hl] ; got good rod
ld hl, FuchsiaHouse3Text_561c2
jr .talk
.full
jr .done
.bag_full
ld hl, FuchsiaHouse3Text_5621c
jr .talk
jr .done
.refused
ld hl, FuchsiaHouse3Text_56212
jr .talk
.after
jr .done
.got_item
ld hl, FuchsiaHouse3Text_56217
.talk
.done
call PrintText
jp TextScriptEnd
FuchsiaHouse3Text_561bd:
TX_FAR _FuchsiaHouse3Text_561bd
db "@"
text_far _FuchsiaHouse3Text_561bd
text_end
FuchsiaHouse3Text_561c2:
TX_FAR _FuchsiaHouse3Text_561c2
TX_SFX_ITEM_1
db "@"
text_far _FuchsiaHouse3Text_561c2
sound_get_item_1
text_end
UnusedText_561c8:
para "つり こそ"
line "おとこの ロマン だ!"
para "つり　こそ"
line "おとこの　ロマン　だ！"
para "へぼいつりざおは"
line "コイキングしか つれ なんだが"
line "この いいつりざおなら"
line "もっと いいもんが つれるんじゃ!"
line "コイキングしか　つれ　なんだが"
line "この　いいつりざおなら"
line "もっと　いいもんが　つれるんじゃ！"
done
FuchsiaHouse3Text_56212:
TX_FAR _FuchsiaHouse3Text_56212
db "@"
text_far _FuchsiaHouse3Text_56212
text_end
FuchsiaHouse3Text_56217:
TX_FAR _FuchsiaHouse3Text_56217
db "@"
text_far _FuchsiaHouse3Text_56217
text_end
FuchsiaHouse3Text_5621c:
TX_FAR _FuchsiaHouse3Text_5621c
db "@"
text_far _FuchsiaHouse3Text_5621c
text_end

227
scripts/FuchsiaGym.asm Executable file → Normal file
View file

@ -1,5 +1,5 @@
FuchsiaGym_Script:
call FuchsiaGymScript_75453
call .LoadNames
call EnableAutoTextBoxDrawing
ld hl, FuchsiaGymTrainerHeader0
ld de, FuchsiaGym_ScriptPointers
@ -8,19 +8,20 @@ FuchsiaGym_Script:
ld [wFuchsiaGymCurScript], a
ret
FuchsiaGymScript_75453:
.LoadNames:
ld hl, wCurrentMapScriptFlags
bit 6, [hl]
res 6, [hl]
ret z
ld hl, Gym5CityName
ld de, Gym5LeaderName
ld hl, .CityName
ld de, .LeaderName
call LoadGymLeaderAndCityName
ret
Gym5CityName:
.CityName:
db "FUCHSIA CITY@"
Gym5LeaderName:
.LeaderName:
db "KOGA@"
FuchsiaGymScript_75477:
@ -44,26 +45,26 @@ FuchsiaGymScript3:
ld [wJoyIgnore], a
FuchsiaGymScript3_75497:
ld a, $9
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_BEAT_KOGA
lb bc, TM_06, 1
lb bc, TM_TOXIC, 1
call GiveItem
jr nc, .BagFull
ld a, $a
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_GOT_TM06
jr .asm_754c0
jr .gymVictory
.BagFull
ld a, $b
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
.asm_754c0
.gymVictory
ld hl, wObtainedBadges
set 4, [hl]
set BIT_SOULBADGE, [hl]
ld hl, wBeatGymFlags
set 4, [hl]
set BIT_SOULBADGE, [hl]
; deactivate gym trainers
SetEventRange EVENT_BEAT_FUCHSIA_GYM_TRAINER_0, EVENT_BEAT_FUCHSIA_GYM_TRAINER_5
@ -84,75 +85,33 @@ FuchsiaGym_TextPointers:
dw FuchsiaGymText11
FuchsiaGymTrainerHeader0:
dbEventFlagBit EVENT_BEAT_FUCHSIA_GYM_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FUCHSIA_GYM_TRAINER_0
dw FuchsiaGymBattleText1 ; TextBeforeBattle
dw FuchsiaGymAfterBattleText1 ; TextAfterBattle
dw FuchsiaGymEndBattleText1 ; TextEndBattle
dw FuchsiaGymEndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_FUCHSIA_GYM_TRAINER_0, 2, FuchsiaGymBattleText1, FuchsiaGymEndBattleText1, FuchsiaGymAfterBattleText1
FuchsiaGymTrainerHeader1:
dbEventFlagBit EVENT_BEAT_FUCHSIA_GYM_TRAINER_1
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FUCHSIA_GYM_TRAINER_1
dw FuchsiaGymBattleText2 ; TextBeforeBattle
dw FuchsiaGymAfterBattleText2 ; TextAfterBattle
dw FuchsiaGymEndBattleText2 ; TextEndBattle
dw FuchsiaGymEndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_FUCHSIA_GYM_TRAINER_1, 2, FuchsiaGymBattleText2, FuchsiaGymEndBattleText2, FuchsiaGymAfterBattleText2
FuchsiaGymTrainerHeader2:
dbEventFlagBit EVENT_BEAT_FUCHSIA_GYM_TRAINER_2
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FUCHSIA_GYM_TRAINER_2
dw FuchsiaGymBattleText3 ; TextBeforeBattle
dw FuchsiaGymAfterBattleText3 ; TextAfterBattle
dw FuchsiaGymEndBattleText3 ; TextEndBattle
dw FuchsiaGymEndBattleText3 ; TextEndBattle
trainer EVENT_BEAT_FUCHSIA_GYM_TRAINER_2, 4, FuchsiaGymBattleText3, FuchsiaGymEndBattleText3, FuchsiaGymAfterBattleText3
FuchsiaGymTrainerHeader3:
dbEventFlagBit EVENT_BEAT_FUCHSIA_GYM_TRAINER_3
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FUCHSIA_GYM_TRAINER_3
dw FuchsiaGymBattleText4 ; TextBeforeBattle
dw FuchsiaGymAfterBattleText4 ; TextAfterBattle
dw FuchsiaGymEndBattleText4 ; TextEndBattle
dw FuchsiaGymEndBattleText4 ; TextEndBattle
trainer EVENT_BEAT_FUCHSIA_GYM_TRAINER_3, 2, FuchsiaGymBattleText4, FuchsiaGymEndBattleText4, FuchsiaGymAfterBattleText4
FuchsiaGymTrainerHeader4:
dbEventFlagBit EVENT_BEAT_FUCHSIA_GYM_TRAINER_4
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FUCHSIA_GYM_TRAINER_4
dw FuchsiaGymBattleText5 ; TextBeforeBattle
dw FuchsiaGymAfterBattleText5 ; TextAfterBattle
dw FuchsiaGymEndBattleText5 ; TextEndBattle
dw FuchsiaGymEndBattleText5 ; TextEndBattle
trainer EVENT_BEAT_FUCHSIA_GYM_TRAINER_4, 2, FuchsiaGymBattleText5, FuchsiaGymEndBattleText5, FuchsiaGymAfterBattleText5
FuchsiaGymTrainerHeader5:
dbEventFlagBit EVENT_BEAT_FUCHSIA_GYM_TRAINER_5
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_FUCHSIA_GYM_TRAINER_5
dw FuchsiaGymBattleText6 ; TextBeforeBattle
dw FuchsiaGymAfterBattleText6 ; TextAfterBattle
dw FuchsiaGymEndBattleText6 ; TextEndBattle
dw FuchsiaGymEndBattleText6 ; TextEndBattle
db $ff
trainer EVENT_BEAT_FUCHSIA_GYM_TRAINER_5, 2, FuchsiaGymBattleText6, FuchsiaGymEndBattleText6, FuchsiaGymAfterBattleText6
db -1 ; end
FuchsiaGymText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_KOGA
jr z, .asm_181b6
jr z, .beginBattle
CheckEventReuseA EVENT_GOT_TM06
jr nz, .asm_adc3b
jr nz, .afterVictory
call z, FuchsiaGymScript3_75497
call DisableWaitingAfterTextDisplay
jr .asm_e84c6
.asm_adc3b
jr .done
.afterVictory
ld hl, KogaExplainToxicText
call PrintText
jr .asm_e84c6
.asm_181b6
jr .done
.beginBattle
ld hl, KogaBeforeBattleText
call PrintText
ld hl, wd72d
@ -161,157 +120,157 @@ FuchsiaGymText1:
ld hl, KogaAfterBattleText
ld de, KogaAfterBattleText
call SaveEndBattleTextPointers
ld a, [H_SPRITEINDEX]
ldh a, [hSpriteIndex]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
ld a, $5
ld [wGymLeaderNo], a
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $3
ld [wFuchsiaGymCurScript], a
.asm_e84c6
.done
jp TextScriptEnd
KogaBeforeBattleText:
TX_FAR _KogaBeforeBattleText
db "@"
text_far _KogaBeforeBattleText
text_end
KogaAfterBattleText:
TX_FAR _KogaAfterBattleText
db "@"
text_far _KogaAfterBattleText
text_end
KogaExplainToxicText:
TX_FAR _KogaExplainToxicText
db "@"
text_far _KogaExplainToxicText
text_end
FuchsiaGymText9:
TX_FAR _FuchsiaGymText9
db "@"
text_far _FuchsiaGymText9
text_end
FuchsiaGymText10:
TX_FAR _ReceivedTM06Text
TX_SFX_KEY_ITEM
text_far _ReceivedTM06Text
sound_get_key_item
TM06ExplanationText:
TX_FAR _TM06ExplanationText
db "@"
text_far _TM06ExplanationText
text_end
FuchsiaGymText11:
TX_FAR _TM06NoRoomText
db "@"
text_far _TM06NoRoomText
text_end
FuchsiaGymText2:
TX_ASM
text_asm
ld hl, FuchsiaGymTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
FuchsiaGymBattleText1:
TX_FAR _FuchsiaGymBattleText1
db "@"
text_far _FuchsiaGymBattleText1
text_end
FuchsiaGymEndBattleText1:
TX_FAR _FuchsiaGymEndBattleText1
db "@"
text_far _FuchsiaGymEndBattleText1
text_end
FuchsiaGymAfterBattleText1:
TX_FAR _FuchsiaGymAfterBattleText1
db "@"
text_far _FuchsiaGymAfterBattleText1
text_end
FuchsiaGymText3:
TX_ASM
text_asm
ld hl, FuchsiaGymTrainerHeader1
call TalkToTrainer
jp TextScriptEnd
FuchsiaGymBattleText2:
TX_FAR _FuchsiaGymBattleText2
db "@"
text_far _FuchsiaGymBattleText2
text_end
FuchsiaGymEndBattleText2:
TX_FAR _FuchsiaGymEndBattleText2
db "@"
text_far _FuchsiaGymEndBattleText2
text_end
FuchsiaGymAfterBattleText2:
TX_FAR _FuchsiaGymAfterBattleText2
db "@"
text_far _FuchsiaGymAfterBattleText2
text_end
FuchsiaGymText4:
TX_ASM
text_asm
ld hl, FuchsiaGymTrainerHeader2
call TalkToTrainer
jp TextScriptEnd
FuchsiaGymBattleText3:
TX_FAR _FuchsiaGymBattleText3
db "@"
text_far _FuchsiaGymBattleText3
text_end
FuchsiaGymEndBattleText3:
TX_FAR _FuchsiaGymEndBattleText3
db "@"
text_far _FuchsiaGymEndBattleText3
text_end
FuchsiaGymAfterBattleText3:
TX_FAR _FuchsiaGymAfterBattleText3
db "@"
text_far _FuchsiaGymAfterBattleText3
text_end
FuchsiaGymText5:
TX_ASM
text_asm
ld hl, FuchsiaGymTrainerHeader3
call TalkToTrainer
jp TextScriptEnd
FuchsiaGymBattleText4:
TX_FAR _FuchsiaGymBattleText4
db "@"
text_far _FuchsiaGymBattleText4
text_end
FuchsiaGymEndBattleText4:
TX_FAR _FuchsiaGymEndBattleText4
db "@"
text_far _FuchsiaGymEndBattleText4
text_end
FuchsiaGymAfterBattleText4:
TX_FAR _FuchsiaGymAfterBattleText4
db "@"
text_far _FuchsiaGymAfterBattleText4
text_end
FuchsiaGymText6:
TX_ASM
text_asm
ld hl, FuchsiaGymTrainerHeader4
call TalkToTrainer
jp TextScriptEnd
FuchsiaGymBattleText5:
TX_FAR _FuchsiaGymBattleText5
db "@"
text_far _FuchsiaGymBattleText5
text_end
FuchsiaGymEndBattleText5:
TX_FAR _FuchsiaGymEndBattleText5
db "@"
text_far _FuchsiaGymEndBattleText5
text_end
FuchsiaGymAfterBattleText5:
TX_FAR _FuchsiaGymAfterBattleText5
db "@"
text_far _FuchsiaGymAfterBattleText5
text_end
FuchsiaGymText7:
TX_ASM
text_asm
ld hl, FuchsiaGymTrainerHeader5
call TalkToTrainer
jp TextScriptEnd
FuchsiaGymBattleText6:
TX_FAR _FuchsiaGymBattleText6
db "@"
text_far _FuchsiaGymBattleText6
text_end
FuchsiaGymEndBattleText6:
TX_FAR _FuchsiaGymEndBattleText6
db "@"
text_far _FuchsiaGymEndBattleText6
text_end
FuchsiaGymAfterBattleText6:
TX_FAR _FuchsiaGymAfterBattleText6
db "@"
text_far _FuchsiaGymAfterBattleText6
text_end
FuchsiaGymText8:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_KOGA
ld hl, FuchsiaGymText_75653
jr nz, .asm_50671
@ -321,9 +280,9 @@ FuchsiaGymText8:
jp TextScriptEnd
FuchsiaGymText_7564e:
TX_FAR _FuchsiaGymText_7564e
db "@"
text_far _FuchsiaGymText_7564e
text_end
FuchsiaGymText_75653:
TX_FAR _FuchsiaGymText_75653
db "@"
text_far _FuchsiaGymText_75653
text_end

8
scripts/FuchsiaMart.asm Executable file → Normal file
View file

@ -7,9 +7,9 @@ FuchsiaMart_TextPointers:
dw FuchsiaMartText3
FuchsiaMartText2:
TX_FAR _FuchsiaMartText2
db "@"
text_far _FuchsiaMartText2
text_end
FuchsiaMartText3:
TX_FAR _FuchsiaMartText3
db "@"
text_far _FuchsiaMartText3
text_end

12
scripts/FuchsiaMeetingRoom.asm Executable file → Normal file
View file

@ -8,13 +8,13 @@ FuchsiaMeetingRoom_TextPointers:
dw FuchsiaMeetingRoomText3
FuchsiaMeetingRoomText1:
TX_FAR _FuchsiaMeetingRoomText1
db "@"
text_far _FuchsiaMeetingRoomText1
text_end
FuchsiaMeetingRoomText2:
TX_FAR _FuchsiaMeetingRoomText2
db "@"
text_far _FuchsiaMeetingRoomText2
text_end
FuchsiaMeetingRoomText3:
TX_FAR _FuchsiaMeetingRoomText3
db "@"
text_far _FuchsiaMeetingRoomText3
text_end

12
scripts/FuchsiaPokecenter.asm Executable file → Normal file
View file

@ -9,15 +9,15 @@ FuchsiaPokecenter_TextPointers:
dw FuchsiaTradeNurseText
FuchsiaHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
FuchsiaPokecenterText2:
TX_FAR _FuchsiaPokecenterText1
db "@"
text_far _FuchsiaPokecenterText1
text_end
FuchsiaPokecenterText3:
TX_FAR _FuchsiaPokecenterText3
db "@"
text_far _FuchsiaPokecenterText3
text_end
FuchsiaTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist

226
scripts/GameCorner.asm Executable file → Normal file
View file

@ -12,7 +12,7 @@ CeladonGameCornerScript_48bcf:
res 6, [hl]
ret z
call Random
ld a, [hRandomAdd]
ldh a, [hRandomAdd]
cp $7
jr nc, .asm_48be2
ld a, $8
@ -57,25 +57,25 @@ CeladonGameCornerScript1:
ld a, $f0
ld [wJoyIgnore], a
ld a, $d
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $b
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld de, MovementData_48c5a
ld a, [wYCoord]
cp $6
cp 6
jr nz, .asm_48c43
ld de, MovementData_48c63
jr .asm_48c4d
.asm_48c43
ld a, [wXCoord]
cp $8
cp 8
jr nz, .asm_48c4d
ld de, MovementData_48c63
.asm_48c4d
ld a, $b
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $2
ld [wGameCornerCurScript], a
@ -90,7 +90,7 @@ MovementData_48c5a:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db $FF
db -1 ; end
MovementData_48c63:
db NPC_MOVEMENT_RIGHT
@ -98,7 +98,7 @@ MovementData_48c63:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db $FF
db -1 ; end
CeladonGameCornerScript2:
ld a, [wd730]
@ -132,11 +132,11 @@ GameCorner_TextPointers:
dw CeladonGameCornerText13
CeladonGameCornerText1:
TX_FAR _CeladonGameCornerText1
db "@"
text_far _CeladonGameCornerText1
text_end
CeladonGameCornerText2:
TX_ASM
text_asm
call CeladonGameCornerScript_48f1e
ld hl, CeladonGameCornerText_48d22
call PrintText
@ -150,29 +150,29 @@ CeladonGameCornerText2:
call Has9990Coins
jr nc, .asm_48d14
xor a
ld [hMoney], a
ld [hMoney + 2], a
ldh [hMoney], a
ldh [hMoney + 2], a
ld a, $10
ld [hMoney + 1], a
ldh [hMoney + 1], a
call HasEnoughMoney
jr nc, .asm_48cdb
ld hl, CeladonGameCornerText_48d31
jr .asm_48d1c
.asm_48cdb
xor a
ld [hMoney], a
ld [hMoney + 2], a
ldh [hMoney], a
ldh [hMoney + 2], a
ld a, $10
ld [hMoney + 1], a
ldh [hMoney + 1], a
ld hl, hMoney + 2
ld de, wPlayerMoney + 2
ld c, $3
predef SubBCDPredef
xor a
ld [hUnusedCoinsByte], a
ld [hCoins], a
ldh [hUnusedCoinsByte], a
ldh [hCoins], a
ld a, $50
ld [hCoins + 1], a
ldh [hCoins + 1], a
ld de, wPlayerCoins + 1
ld hl, hCoins + 1
ld c, $2
@ -193,39 +193,39 @@ CeladonGameCornerText2:
jp TextScriptEnd
CeladonGameCornerText_48d22:
TX_FAR _CeladonGameCornerText_48d22
db "@"
text_far _CeladonGameCornerText_48d22
text_end
CeladonGameCornerText_48d27:
TX_FAR _CeladonGameCornerText_48d27
db "@"
text_far _CeladonGameCornerText_48d27
text_end
CeladonGameCornerText_48d2c:
TX_FAR _CeladonGameCornerText_48d2c
db "@"
text_far _CeladonGameCornerText_48d2c
text_end
CeladonGameCornerText_48d31:
TX_FAR _CeladonGameCornerText_48d31
db "@"
text_far _CeladonGameCornerText_48d31
text_end
CeladonGameCornerText_48d36:
TX_FAR _CeladonGameCornerText_48d36
db "@"
text_far _CeladonGameCornerText_48d36
text_end
CeladonGameCornerText_48d3b:
TX_FAR _CeladonGameCornerText_48d3b
db "@"
text_far _CeladonGameCornerText_48d3b
text_end
CeladonGameCornerText3:
TX_FAR _CeladonGameCornerText3
db "@"
text_far _CeladonGameCornerText3
text_end
CeladonGameCornerText4:
TX_FAR _CeladonGameCornerText4
db "@"
text_far _CeladonGameCornerText4
text_end
CeladonGameCornerText5:
TX_ASM
text_asm
CheckEvent EVENT_GOT_10_COINS
jr nz, .asm_48d89
ld hl, CeladonGameCornerText_48d9c
@ -236,10 +236,10 @@ CeladonGameCornerText5:
call Has9990Coins
jr nc, .asm_48d8e
xor a
ld [hUnusedCoinsByte], a
ld [hCoins], a
ldh [hUnusedCoinsByte], a
ldh [hCoins], a
ld a, $10
ld [hCoins + 1], a
ldh [hCoins + 1], a
ld de, wPlayerCoins + 1
ld hl, hCoins + 1
ld c, $2
@ -262,28 +262,28 @@ CeladonGameCornerText5:
jp TextScriptEnd
CeladonGameCornerText_48d9c:
TX_FAR _CeladonGameCornerText_48d9c
db "@"
text_far _CeladonGameCornerText_48d9c
text_end
Received10CoinsText:
TX_FAR _Received10CoinsText
TX_SFX_ITEM_1
db "@"
text_far _Received10CoinsText
sound_get_item_1
text_end
CeladonGameCornerText_48da7:
TX_FAR _CeladonGameCornerText_48da7
db "@"
text_far _CeladonGameCornerText_48da7
text_end
CeladonGameCornerText_48dac:
TX_FAR _CeladonGameCornerText_48dac
db "@"
text_far _CeladonGameCornerText_48dac
text_end
CeladonGameCornerText6:
TX_FAR _CeladonGameCornerText6
db "@"
text_far _CeladonGameCornerText6
text_end
CeladonGameCornerText7:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_ERIKA
ld hl, CeladonGameCornerText_48dca
jr z, .asm_48dc4
@ -293,19 +293,19 @@ CeladonGameCornerText7:
jp TextScriptEnd
CeladonGameCornerText_48dca:
TX_FAR _CeladonGameCornerText_48dca
db "@"
text_far _CeladonGameCornerText_48dca
text_end
CeladonGameCornerText_48dcf:
TX_FAR _CeladonGameCornerText_48dcf
db "@"
text_far _CeladonGameCornerText_48dcf
text_end
CeladonGameCornerText8:
TX_FAR _CeladonGameCornerText8
db "@"
text_far _CeladonGameCornerText8
text_end
CeladonGameCornerText9:
TX_ASM
text_asm
CheckEvent EVENT_GOT_20_COINS_2
jr nz, .asm_48e13
ld hl, CeladonGameCornerText_48e26
@ -316,10 +316,10 @@ CeladonGameCornerText9:
call Has9990Coins
jr nc, .asm_48e18
xor a
ld [hUnusedCoinsByte], a
ld [hCoins], a
ldh [hUnusedCoinsByte], a
ldh [hCoins], a
ld a, $20
ld [hCoins + 1], a
ldh [hCoins + 1], a
ld de, wPlayerCoins + 1
ld hl, hCoins + 1
ld c, $2
@ -340,24 +340,24 @@ CeladonGameCornerText9:
jp TextScriptEnd
CeladonGameCornerText_48e26:
TX_FAR _CeladonGameCornerText_48e26
db "@"
text_far _CeladonGameCornerText_48e26
text_end
Received20CoinsText:
TX_FAR _Received20CoinsText
TX_SFX_ITEM_1
db "@"
text_far _Received20CoinsText
sound_get_item_1
text_end
CeladonGameCornerText_48e31:
TX_FAR _CeladonGameCornerText_48e31
db "@"
text_far _CeladonGameCornerText_48e31
text_end
CeladonGameCornerText_48e36:
TX_FAR _CeladonGameCornerText_48e36
db "@"
text_far _CeladonGameCornerText_48e36
text_end
CeladonGameCornerText10:
TX_ASM
text_asm
CheckEvent EVENT_GOT_20_COINS
jr nz, .asm_48e75
ld hl, CeladonGameCornerText_48e88
@ -368,10 +368,10 @@ CeladonGameCornerText10:
call Has9990Coins
jr z, .asm_48e7a
xor a
ld [hUnusedCoinsByte], a
ld [hCoins], a
ldh [hUnusedCoinsByte], a
ldh [hCoins], a
ld a, $20
ld [hCoins + 1], a
ldh [hCoins + 1], a
ld de, wPlayerCoins + 1
ld hl, hCoins + 1
ld c, $2
@ -392,24 +392,24 @@ CeladonGameCornerText10:
jp TextScriptEnd
CeladonGameCornerText_48e88:
TX_FAR _CeladonGameCornerText_48e88
db "@"
text_far _CeladonGameCornerText_48e88
text_end
CeladonGameCornerText_48e8d:
TX_FAR _CeladonGameCornerText_48e8d
TX_SFX_ITEM_1
db "@"
text_far _CeladonGameCornerText_48e8d
sound_get_item_1
text_end
CeladonGameCornerText_48e93:
TX_FAR _CeladonGameCornerText_48e93
db "@"
text_far _CeladonGameCornerText_48e93
text_end
CeladonGameCornerText_48e98:
TX_FAR _CeladonGameCornerText_48e98
db "@"
text_far _CeladonGameCornerText_48e98
text_end
CeladonGameCornerText11:
TX_ASM
text_asm
ld hl, CeladonGameCornerText_48ece
call PrintText
ld hl, wd72d
@ -418,32 +418,32 @@ CeladonGameCornerText11:
ld hl, CeladonGameCornerText_48ed3
ld de, CeladonGameCornerText_48ed3
call SaveEndBattleTextPointers
ld a, [H_SPRITEINDEX]
ldh a, [hSpriteIndex]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
xor a
ld [hJoyHeld], a
ld [hJoyPressed], a
ld [hJoyReleased], a
ldh [hJoyHeld], a
ldh [hJoyPressed], a
ldh [hJoyReleased], a
ld a, $1
ld [wGameCornerCurScript], a
jp TextScriptEnd
CeladonGameCornerText_48ece:
TX_FAR _CeladonGameCornerText_48ece
db "@"
text_far _CeladonGameCornerText_48ece
text_end
CeladonGameCornerText_48ed3:
TX_FAR _CeladonGameCornerText_48ed3
db "@"
text_far _CeladonGameCornerText_48ed3
text_end
CeladonGameCornerText13:
TX_FAR _CeladonGameCornerText_48ed8
db "@"
text_far _CeladonGameCornerText_48ed8
text_end
CeladonGameCornerText12:
TX_ASM
text_asm
ld a, $1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, CeladonGameCornerText_48f09
@ -460,46 +460,46 @@ CeladonGameCornerText12:
jp TextScriptEnd
CeladonGameCornerText_48f09:
TX_FAR _CeladonGameCornerText_48f09
TX_ASM
text_far _CeladonGameCornerText_48f09
text_asm
ld a, SFX_SWITCH
call PlaySound
call WaitForSoundToFinish
jp TextScriptEnd
CeladonGameCornerText_48f19:
TX_FAR _CeladonGameCornerText_48f19
db "@"
text_far _CeladonGameCornerText_48f19
text_end
CeladonGameCornerScript_48f1e:
ld hl, wd730
set 6, [hl]
coord hl, 11, 0
ld b, $5
ld c, $7
hlcoord 11, 0
ld b, 5
ld c, 7
call TextBoxBorder
call UpdateSprites
coord hl, 12, 1
hlcoord 12, 1
ld b, 4
ld c, 7
call ClearScreenArea
coord hl, 12, 2
hlcoord 12, 2
ld de, GameCornerMoneyText
call PlaceString
coord hl, 12, 3
hlcoord 12, 3
ld de, GameCornerBlankText1
call PlaceString
coord hl, 12, 3
hlcoord 12, 3
ld de, wPlayerMoney
ld c, $a3
ld c, 3 | MONEY_SIGN | LEADING_ZEROES
call PrintBCDNumber
coord hl, 12, 4
hlcoord 12, 4
ld de, GameCornerCoinText
call PlaceString
coord hl, 12, 5
hlcoord 12, 5
ld de, GameCornerBlankText2
call PlaceString
coord hl, 15, 5
hlcoord 15, 5
ld de, wPlayerCoins
ld c, $82
call PrintBCDNumber
@ -521,7 +521,7 @@ GameCornerBlankText2:
Has9990Coins:
ld a, $99
ld [hCoins], a
ldh [hCoins], a
ld a, $90
ld [hCoins + 1], a
ldh [hCoins + 1], a
jp HasEnoughCoins

10
scripts/GameCornerPrizeRoom.asm Executable file → Normal file
View file

@ -9,12 +9,12 @@ GameCornerPrizeRoom_TextPointers:
dw CeladonPrizeRoomText3
CeladonPrizeRoomText1:
TX_FAR _CeladonPrizeRoomText1
db "@"
text_far _CeladonPrizeRoomText1
text_end
CeladonPrizeRoomText2:
TX_FAR _CeladonPrizeRoomText2
db "@"
text_far _CeladonPrizeRoomText2
text_end
CeladonPrizeRoomText3:
TX_PRIZE_VENDOR
script_prize_vendor

18
scripts/HallOfFame.asm Executable file → Normal file
View file

@ -45,7 +45,7 @@ HallofFameRoomScript2:
ld [wHallOfFameCurScript], a
ld a, PALLET_TOWN
ld [wLastBlackoutMap], a
callba SaveSAVtoSRAM
farcall SaveSAVtoSRAM
ld b, 5
.delayLoop
ld c, 600 / 5
@ -69,8 +69,8 @@ HallofFameRoomScript0:
ret
RLEMovement5a528:
db D_UP,$5
db $ff
db D_UP, 5
db -1 ; end
HallofFameRoomScript1:
ld a, [wSimulatedJoypadStatesIndex]
@ -79,10 +79,10 @@ HallofFameRoomScript1:
ld a, PLAYER_DIR_RIGHT
ld [wPlayerMovingDirection], a
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld a, SPRITE_FACING_LEFT
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
call Delay3
xor a
@ -90,11 +90,11 @@ HallofFameRoomScript1:
inc a ; PLAYER_DIR_RIGHT
ld [wPlayerMovingDirection], a
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $ff
ld [wJoyIgnore], a
ld a, HS_UNKNOWN_DUNGEON_GUY
ld a, HS_CERULEAN_CAVE_GUY
ld [wMissableObjectIndex], a
predef HideObject
ld a, $2
@ -105,5 +105,5 @@ HallOfFame_TextPointers:
dw HallofFameRoomText1
HallofFameRoomText1:
TX_FAR _HallofFameRoomText1
db "@"
text_far _HallofFameRoomText1
text_end

0
scripts/IndigoPlateau.asm Executable file → Normal file
View file

12
scripts/IndigoPlateauLobby.asm Executable file → Normal file
View file

@ -22,15 +22,15 @@ IndigoPlateauLobby_TextPointers:
dw IndigoTradeNurseText
IndigoHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
IndigoPlateauLobbyText2:
TX_FAR _IndigoPlateauLobbyText2
db "@"
text_far _IndigoPlateauLobbyText2
text_end
IndigoPlateauLobbyText3:
TX_FAR _IndigoPlateauLobbyText3
db "@"
text_far _IndigoPlateauLobbyText3
text_end
IndigoTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist

63
scripts/LancesRoom.asm Executable file → Normal file
View file

@ -18,23 +18,21 @@ LanceShowOrHideEntranceBlocks:
; open entrance
ld a, $31
ld b, $32
jp LanceSetEntranceBlocks
jp .setEntranceBlocks
.closeEntrance
ld a, $72
ld b, $73
LanceSetEntranceBlocks:
.setEntranceBlocks
; Replaces the tile blocks so the player can't leave.
push bc
ld [wNewTileBlockID], a
lb bc, 6, 2
call LanceSetEntranceBlock
call .SetEntranceBlock
pop bc
ld a, b
ld [wNewTileBlockID], a
lb bc, 6, 3
LanceSetEntranceBlock:
.SetEntranceBlock:
predef_jump ReplaceTileBlock
ResetLanceScript:
@ -59,12 +57,12 @@ LanceScript0:
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, [wCoordIndex]
cp $3 ; Is player standing next to Lance's sprite?
jr nc, .notStandingNextToLance
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
.notStandingNextToLance
cp $5 ; Is player standing on the entrance staircase?
@ -78,12 +76,12 @@ LanceScript0:
jp LanceShowOrHideEntranceBlocks
LanceTriggerMovementCoords:
db $01,$05
db $02,$06
db $0B,$05
db $0B,$06
db $10,$18
db $FF
dbmapcoord 5, 1
dbmapcoord 6, 2
dbmapcoord 5, 11
dbmapcoord 6, 11
dbmapcoord 24, 16
db -1 ; end
LanceScript2:
call EndTrainerBattle
@ -91,7 +89,7 @@ LanceScript2:
cp $ff
jp z, ResetLanceScript
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
WalkToLance:
@ -110,11 +108,11 @@ WalkToLance:
ret
WalkToLance_RLEList:
db D_UP, $0C
db D_LEFT, $0C
db D_DOWN, $07
db D_LEFT, $06
db $FF
db D_UP, 12
db D_LEFT, 12
db D_DOWN, 7
db D_LEFT, 6
db -1 ; end
LanceScript3:
ld a, [wSimulatedJoypadStatesIndex]
@ -131,32 +129,25 @@ LancesRoom_TextPointers:
dw LanceText1
LanceTrainerHeader0:
dbEventFlagBit EVENT_BEAT_LANCES_ROOM_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_LANCES_ROOM_TRAINER_0
dw LanceBeforeBattleText ; TextBeforeBattle
dw LanceAfterBattleText ; TextAfterBattle
dw LanceEndBattleText ; TextEndBattle
dw LanceEndBattleText ; TextEndBattle
db $ff
trainer EVENT_BEAT_LANCES_ROOM_TRAINER_0, 0, LanceBeforeBattleText, LanceEndBattleText, LanceAfterBattleText
db -1 ; end
LanceText1:
TX_ASM
text_asm
ld hl, LanceTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
LanceBeforeBattleText:
TX_FAR _LanceBeforeBattleText
db "@"
text_far _LanceBeforeBattleText
text_end
LanceEndBattleText:
TX_FAR _LanceEndBattleText
db "@"
text_far _LanceEndBattleText
text_end
LanceAfterBattleText:
TX_FAR _LanceAfterBattleText
TX_ASM
text_far _LanceAfterBattleText
text_asm
SetEvent EVENT_BEAT_LANCE
jp TextScriptEnd

22
scripts/LavenderCuboneHouse.asm Executable file → Normal file
View file

@ -7,29 +7,29 @@ LavenderCuboneHouse_TextPointers:
dw LavenderHouse2Text2
LavenderHouse2Text1:
TX_FAR _LavenderHouse2Text1
TX_ASM
text_far _LavenderHouse2Text1
text_asm
ld a, CUBONE
call PlayCry
jp TextScriptEnd
LavenderHouse2Text2:
TX_ASM
text_asm
CheckEvent EVENT_RESCUED_MR_FUJI
jr nz, .asm_65711
jr nz, .rescued_mr_fuji
ld hl, LavenderHouse2Text_1d9dc
call PrintText
jr .asm_64be1
.asm_65711
jr .done
.rescued_mr_fuji
ld hl, LavenderHouse2Text_1d9e1
call PrintText
.asm_64be1
.done
jp TextScriptEnd
LavenderHouse2Text_1d9dc:
TX_FAR _LavenderHouse2Text_1d9dc
db "@"
text_far _LavenderHouse2Text_1d9dc
text_end
LavenderHouse2Text_1d9e1:
TX_FAR _LavenderHouse2Text_1d9e1
db "@"
text_far _LavenderHouse2Text_1d9e1
text_end

14
scripts/LavenderMart.asm Executable file → Normal file
View file

@ -7,11 +7,11 @@ LavenderMart_TextPointers:
dw LavenderMartText3
LavenderMartText2:
TX_FAR _LavenderMartText2
db "@"
text_far _LavenderMartText2
text_end
LavenderMartText3:
TX_ASM
text_asm
CheckEvent EVENT_RESCUED_MR_FUJI
jr nz, .Nugget
ld hl, .ReviveText
@ -24,9 +24,9 @@ LavenderMartText3:
jp TextScriptEnd
.ReviveText
TX_FAR _LavenderMartReviveText
db "@"
text_far _LavenderMartReviveText
text_end
.NuggetText
TX_FAR _LavenderMartNuggetText
db "@"
text_far _LavenderMartNuggetText
text_end

12
scripts/LavenderPokecenter.asm Executable file → Normal file
View file

@ -9,15 +9,15 @@ LavenderPokecenter_TextPointers:
dw LavenderTradeNurseText
LavenderTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist
LavenderHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
LavenderPokecenterText2:
TX_FAR _LavenderPokecenterText2
db "@"
text_far _LavenderPokecenterText2
text_end
LavenderPokecenterText3:
TX_FAR _LavenderPokecenterText3
db "@"
text_far _LavenderPokecenterText3
text_end

42
scripts/LavenderTown.asm Executable file → Normal file
View file

@ -13,51 +13,51 @@ LavenderTown_TextPointers:
dw LavenderTownText9
LavenderTownText1:
TX_ASM
text_asm
ld hl, LavenderTownText_4413c
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
ld hl, LavenderTownText_44146
jr nz, .asm_40831
jr nz, .got_text
ld hl, LavenderTownText_44141
.asm_40831
.got_text
call PrintText
jp TextScriptEnd
LavenderTownText_4413c:
TX_FAR _LavenderTownText_4413c
db "@"
text_far _LavenderTownText_4413c
text_end
LavenderTownText_44141:
TX_FAR _LavenderTownText_44141
db "@"
text_far _LavenderTownText_44141
text_end
LavenderTownText_44146:
TX_FAR _LavenderTownText_44146
db "@"
text_far _LavenderTownText_44146
text_end
LavenderTownText2:
TX_FAR _LavenderTownText2
db "@"
text_far _LavenderTownText2
text_end
LavenderTownText3:
TX_FAR _LavenderTownText3
db "@"
text_far _LavenderTownText3
text_end
LavenderTownText4:
TX_FAR _LavenderTownText4
db "@"
text_far _LavenderTownText4
text_end
LavenderTownText5:
TX_FAR _LavenderTownText5
db "@"
text_far _LavenderTownText5
text_end
LavenderTownText8:
TX_FAR _LavenderTownText8
db "@"
text_far _LavenderTownText8
text_end
LavenderTownText9:
TX_FAR _LavenderTownText9
db "@"
text_far _LavenderTownText9
text_end

47
scripts/LoreleisRoom.asm Executable file → Normal file
View file

@ -65,8 +65,8 @@ LoreleiScript0:
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
xor a
ld [hJoyPressed], a
ld [hJoyHeld], a
ldh [hJoyPressed], a
ldh [hJoyHeld], a
ld [wSimulatedJoypadStatesEnd], a
ld [wSimulatedJoypadStatesIndex], a
ld a, [wCoordIndex]
@ -76,7 +76,7 @@ LoreleiScript0:
jr z, LoreleiScriptWalkIntoRoom
.stopPlayerFromLeaving
ld a, $2
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID ; "Don't run away!"
ld a, D_UP
ld [wSimulatedJoypadStatesEnd], a
@ -89,11 +89,11 @@ LoreleiScript0:
ret
LoreleiEntranceCoords:
db $0A,$04
db $0A,$05
db $0B,$04
db $0B,$05
db $FF
dbmapcoord 4, 10
dbmapcoord 5, 10
dbmapcoord 4, 11
dbmapcoord 5, 11
db -1 ; end
LoreleiScript3:
ld a, [wSimulatedJoypadStatesIndex]
@ -112,7 +112,7 @@ LoreleiScript2:
cp $ff
jp z, ResetLoreleiScript
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
LoreleisRoom_TextPointers:
@ -120,34 +120,27 @@ LoreleisRoom_TextPointers:
dw LoreleiDontRunAwayText
LoreleiTrainerHeader0:
dbEventFlagBit EVENT_BEAT_LORELEIS_ROOM_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_LORELEIS_ROOM_TRAINER_0
dw LoreleiBeforeBattleText ; TextBeforeBattle
dw LoreleiAfterBattleText ; TextAfterBattle
dw LoreleiEndBattleText ; TextEndBattle
dw LoreleiEndBattleText ; TextEndBattle
db $ff
trainer EVENT_BEAT_LORELEIS_ROOM_TRAINER_0, 0, LoreleiBeforeBattleText, LoreleiEndBattleText, LoreleiAfterBattleText
db -1 ; end
LoreleiText1:
TX_ASM
text_asm
ld hl, LoreleiTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
LoreleiBeforeBattleText:
TX_FAR _LoreleiBeforeBattleText
db "@"
text_far _LoreleiBeforeBattleText
text_end
LoreleiEndBattleText:
TX_FAR _LoreleiEndBattleText
db "@"
text_far _LoreleiEndBattleText
text_end
LoreleiAfterBattleText:
TX_FAR _LoreleiAfterBattleText
db "@"
text_far _LoreleiAfterBattleText
text_end
LoreleiDontRunAwayText:
TX_FAR _LoreleiDontRunAwayText
db "@"
text_far _LoreleiDontRunAwayText
text_end

84
scripts/MrFujisHouse.asm Executable file → Normal file
View file

@ -11,102 +11,102 @@ MrFujisHouse_TextPointers:
dw LavenderHouse1Text6
LavenderHouse1Text1:
TX_ASM
text_asm
CheckEvent EVENT_RESCUED_MR_FUJI
jr nz, .asm_72e5d
jr nz, .rescued_mr_fuji
ld hl, LavenderHouse1Text_1d8d1
call PrintText
jr .asm_6957f
.asm_72e5d
jr .done
.rescued_mr_fuji
ld hl, LavenderHouse1Text_1d8d6
call PrintText
.asm_6957f
.done
jp TextScriptEnd
LavenderHouse1Text_1d8d1:
TX_FAR _LavenderHouse1Text_1d8d1
db "@"
text_far _LavenderHouse1Text_1d8d1
text_end
LavenderHouse1Text_1d8d6:
TX_FAR _LavenderHouse1Text_1d8d6
db "@"
text_far _LavenderHouse1Text_1d8d6
text_end
LavenderHouse1Text2:
TX_ASM
text_asm
CheckEvent EVENT_RESCUED_MR_FUJI
jr nz, .asm_06470
jr nz, .rescued_mr_fuji
ld hl, LavenderHouse1Text_1d8f4
call PrintText
jr .asm_3d208
.asm_06470
jr .done
.rescued_mr_fuji
ld hl, LavenderHouse1Text_1d8f9
call PrintText
.asm_3d208
.done
jp TextScriptEnd
LavenderHouse1Text_1d8f4:
TX_FAR _LavenderHouse1Text_1d8f4
db "@"
text_far _LavenderHouse1Text_1d8f4
text_end
LavenderHouse1Text_1d8f9:
TX_FAR _LavenderHouse1Text_1d8f9
db "@"
text_far _LavenderHouse1Text_1d8f9
text_end
LavenderHouse1Text3:
TX_FAR _LavenderHouse1Text3
TX_ASM
text_far _LavenderHouse1Text3
text_asm
ld a, PSYDUCK
call PlayCry
jp TextScriptEnd
LavenderHouse1Text4:
TX_FAR _LavenderHouse1Text4
TX_ASM
text_far _LavenderHouse1Text4
text_asm
ld a, NIDORINO
call PlayCry
jp TextScriptEnd
LavenderHouse1Text5:
TX_ASM
text_asm
CheckEvent EVENT_GOT_POKE_FLUTE
jr nz, .asm_15ac2
jr nz, .got_item
ld hl, LavenderHouse1Text_1d94c
call PrintText
lb bc, POKE_FLUTE, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
ld hl, ReceivedFluteText
call PrintText
SetEvent EVENT_GOT_POKE_FLUTE
jr .asm_da749
.BagFull
jr .done
.bag_full
ld hl, FluteNoRoomText
call PrintText
jr .asm_da749
.asm_15ac2
jr .done
.got_item
ld hl, MrFujiAfterFluteText
call PrintText
.asm_da749
.done
jp TextScriptEnd
LavenderHouse1Text_1d94c:
TX_FAR _LavenderHouse1Text_1d94c
db "@"
text_far _LavenderHouse1Text_1d94c
text_end
ReceivedFluteText:
TX_FAR _ReceivedFluteText
TX_SFX_KEY_ITEM
TX_FAR _FluteExplanationText
db "@"
text_far _ReceivedFluteText
sound_get_key_item
text_far _FluteExplanationText
text_end
FluteNoRoomText:
TX_FAR _FluteNoRoomText
db "@"
text_far _FluteNoRoomText
text_end
MrFujiAfterFluteText:
TX_FAR _MrFujiAfterFluteText
db "@"
text_far _MrFujiAfterFluteText
text_end
LavenderHouse1Text6:
TX_FAR _LavenderHouse1Text6
db "@"
text_far _LavenderHouse1Text6
text_end

36
scripts/MrPsychicsHouse.asm Executable file → Normal file
View file

@ -5,41 +5,41 @@ MrPsychicsHouse_TextPointers:
dw SaffronHouse2Text1
SaffronHouse2Text1:
TX_ASM
text_asm
CheckEvent EVENT_GOT_TM29
jr nz, .asm_9e72b
jr nz, .got_item
ld hl, TM29PreReceiveText
call PrintText
lb bc, TM_29, 1
lb bc, TM_PSYCHIC_M, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
ld hl, ReceivedTM29Text
call PrintText
SetEvent EVENT_GOT_TM29
jr .asm_fe4e1
.BagFull
jr .done
.bag_full
ld hl, TM29NoRoomText
call PrintText
jr .asm_fe4e1
.asm_9e72b
jr .done
.got_item
ld hl, TM29ExplanationText
call PrintText
.asm_fe4e1
.done
jp TextScriptEnd
TM29PreReceiveText:
TX_FAR _TM29PreReceiveText
db "@"
text_far _TM29PreReceiveText
text_end
ReceivedTM29Text:
TX_FAR _ReceivedTM29Text
TX_SFX_ITEM_1
db "@"
text_far _ReceivedTM29Text
sound_get_item_1
text_end
TM29ExplanationText:
TX_FAR _TM29ExplanationText
db "@"
text_far _TM29ExplanationText
text_end
TM29NoRoomText:
TX_FAR _TM29NoRoomText
db "@"
text_far _TM29NoRoomText
text_end

167
scripts/MtMoon1F.asm Executable file → Normal file
View file

@ -29,196 +29,147 @@ MtMoon1F_TextPointers:
dw MtMoon1Text14
MtMoon1TrainerHeader0:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_0
dw MtMoon1BattleText2 ; TextBeforeBattle
dw MtMoon1AfterBattleText2 ; TextAfterBattle
dw MtMoon1EndBattleText2 ; TextEndBattle
dw MtMoon1EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_1_TRAINER_0, 2, MtMoon1BattleText2, MtMoon1EndBattleText2, MtMoon1AfterBattleText2
MtMoon1TrainerHeader1:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_1
dw MtMoon1BattleText3 ; TextBeforeBattle
dw MtMoon1AfterBattleText3 ; TextAfterBattle
dw MtMoon1EndBattleText3 ; TextEndBattle
dw MtMoon1EndBattleText3 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_1_TRAINER_1, 3, MtMoon1BattleText3, MtMoon1EndBattleText3, MtMoon1AfterBattleText3
MtMoon1TrainerHeader2:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_2
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_2
dw MtMoon1BattleText4 ; TextBeforeBattle
dw MtMoon1AfterBattleText4 ; TextAfterBattle
dw MtMoon1EndBattleText4 ; TextEndBattle
dw MtMoon1EndBattleText4 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_1_TRAINER_2, 3, MtMoon1BattleText4, MtMoon1EndBattleText4, MtMoon1AfterBattleText4
MtMoon1TrainerHeader3:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_3
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_3
dw MtMoon1BattleText5 ; TextBeforeBattle
dw MtMoon1AfterBattleText5 ; TextAfterBattle
dw MtMoon1EndBattleText5 ; TextEndBattle
dw MtMoon1EndBattleText5 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_1_TRAINER_3, 3, MtMoon1BattleText5, MtMoon1EndBattleText5, MtMoon1AfterBattleText5
MtMoon1TrainerHeader4:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_4
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_4
dw MtMoon1BattleText6 ; TextBeforeBattle
dw MtMoon1AfterBattleText6 ; TextAfterBattle
dw MtMoon1EndBattleText6 ; TextEndBattle
dw MtMoon1EndBattleText6 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_1_TRAINER_4, 3, MtMoon1BattleText6, MtMoon1EndBattleText6, MtMoon1AfterBattleText6
MtMoon1TrainerHeader5:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_5
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_5
dw MtMoon1BattleText7 ; TextBeforeBattle
dw MtMoon1AfterBattleText7 ; TextAfterBattle
dw MtMoon1EndBattleText7 ; TextEndBattle
dw MtMoon1EndBattleText7 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_1_TRAINER_5, 3, MtMoon1BattleText7, MtMoon1EndBattleText7, MtMoon1AfterBattleText7
MtMoon1TrainerHeader6:
dbEventFlagBit EVENT_BEAT_MT_MOON_1_TRAINER_6
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_1_TRAINER_6
dw MtMoon1BattleText8 ; TextBeforeBattle
dw MtMoon1AfterBattleText8 ; TextAfterBattle
dw MtMoon1EndBattleText8 ; TextEndBattle
dw MtMoon1EndBattleText8 ; TextEndBattle
db $ff
trainer EVENT_BEAT_MT_MOON_1_TRAINER_6, 3, MtMoon1BattleText8, MtMoon1EndBattleText8, MtMoon1AfterBattleText8
db -1 ; end
MtMoon1Text1:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
MtMoon1Text2:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
MtMoon1Text3:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
MtMoon1Text4:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
MtMoon1Text5:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
MtMoon1Text6:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader5
call TalkToTrainer
jp TextScriptEnd
MtMoon1Text7:
TX_ASM
text_asm
ld hl, MtMoon1TrainerHeader6
call TalkToTrainer
jp TextScriptEnd
MtMoon1BattleText2:
TX_FAR _MtMoon1BattleText2
db "@"
text_far _MtMoon1BattleText2
text_end
MtMoon1EndBattleText2:
TX_FAR _MtMoon1EndBattleText2
db "@"
text_far _MtMoon1EndBattleText2
text_end
MtMoon1AfterBattleText2:
TX_FAR _MtMoon1AfterBattleText2
db "@"
text_far _MtMoon1AfterBattleText2
text_end
MtMoon1BattleText3:
TX_FAR _MtMoon1BattleText3
db "@"
text_far _MtMoon1BattleText3
text_end
MtMoon1EndBattleText3:
TX_FAR _MtMoon1EndBattleText3
db "@"
text_far _MtMoon1EndBattleText3
text_end
MtMoon1AfterBattleText3:
TX_FAR _MtMoon1AfterBattleText3
db "@"
text_far _MtMoon1AfterBattleText3
text_end
MtMoon1BattleText4:
TX_FAR _MtMoon1BattleText4
db "@"
text_far _MtMoon1BattleText4
text_end
MtMoon1EndBattleText4:
TX_FAR _MtMoon1EndBattleText4
db "@"
text_far _MtMoon1EndBattleText4
text_end
MtMoon1AfterBattleText4:
TX_FAR _MtMoon1AfterBattleText4
db "@"
text_far _MtMoon1AfterBattleText4
text_end
MtMoon1BattleText5:
TX_FAR _MtMoon1BattleText5
db "@"
text_far _MtMoon1BattleText5
text_end
MtMoon1EndBattleText5:
TX_FAR _MtMoon1EndBattleText5
db "@"
text_far _MtMoon1EndBattleText5
text_end
MtMoon1AfterBattleText5:
TX_FAR _MtMoon1AfterBattleText5
db "@"
text_far _MtMoon1AfterBattleText5
text_end
MtMoon1BattleText6:
TX_FAR _MtMoon1BattleText6
db "@"
text_far _MtMoon1BattleText6
text_end
MtMoon1EndBattleText6:
TX_FAR _MtMoon1EndBattleText6
db "@"
text_far _MtMoon1EndBattleText6
text_end
MtMoon1AfterBattleText6:
TX_FAR _MtMoon1AfterBattleText6
db "@"
text_far _MtMoon1AfterBattleText6
text_end
MtMoon1BattleText7:
TX_FAR _MtMoon1BattleText7
db "@"
text_far _MtMoon1BattleText7
text_end
MtMoon1EndBattleText7:
TX_FAR _MtMoon1EndBattleText7
db "@"
text_far _MtMoon1EndBattleText7
text_end
MtMoon1AfterBattleText7:
TX_FAR _MtMoon1AfterBattleText7
db "@"
text_far _MtMoon1AfterBattleText7
text_end
MtMoon1BattleText8:
TX_FAR _MtMoon1BattleText8
db "@"
text_far _MtMoon1BattleText8
text_end
MtMoon1EndBattleText8:
TX_FAR _MtMoon1EndBattleText8
db "@"
text_far _MtMoon1EndBattleText8
text_end
MtMoon1AfterBattleText8:
TX_FAR _MtMoon1AfterBattleText8
db "@"
text_far _MtMoon1AfterBattleText8
text_end
MtMoon1Text14:
TX_FAR _MtMoon1Text14
db "@"
text_far _MtMoon1Text14
text_end

4
scripts/MtMoonB1F.asm Executable file → Normal file
View file

@ -6,5 +6,5 @@ MtMoonB1F_TextPointers:
dw MtMoonText1
MtMoonText1:
TX_FAR _MtMoonText1
db "@"
text_far _MtMoonText1
text_end

217
scripts/MtMoonB2F.asm Executable file → Normal file
View file

@ -19,23 +19,23 @@ MtMoonB2F_Script:
ret
CoordsData_49d37:
db $05,$0B
db $05,$0C
db $05,$0D
db $05,$0E
db $06,$0B
db $06,$0C
db $06,$0D
db $06,$0E
db $07,$0B
db $07,$0C
db $07,$0D
db $07,$0E
db $08,$0B
db $08,$0C
db $08,$0D
db $08,$0E
db $FF
dbmapcoord 11, 5
dbmapcoord 12, 5
dbmapcoord 13, 5
dbmapcoord 14, 5
dbmapcoord 11, 6
dbmapcoord 12, 6
dbmapcoord 13, 6
dbmapcoord 14, 6
dbmapcoord 11, 7
dbmapcoord 12, 7
dbmapcoord 13, 7
dbmapcoord 14, 7
dbmapcoord 11, 8
dbmapcoord 12, 8
dbmapcoord 13, 8
dbmapcoord 14, 8
db -1 ; end
MtMoon3Script_49d58:
xor a
@ -56,15 +56,15 @@ MtMoon3Script0:
CheckEvent EVENT_BEAT_MT_MOON_EXIT_SUPER_NERD
jp nz, MtMoon3Script_49d91
ld a, [wYCoord]
cp $8
cp 8
jp nz, MtMoon3Script_49d91
ld a, [wXCoord]
cp $d
cp 13
jp nz, MtMoon3Script_49d91
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
MtMoon3Script_49d91:
@ -88,7 +88,7 @@ MtMoon3Script3:
MtMoon3Script4:
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld hl, CoordsData_49dea
call ArePlayerCoordsInArray
@ -102,7 +102,7 @@ MtMoon3Script4:
ld de, MovementData_49df8
.asm_49dda
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $5
ld [wMtMoonB2FCurScript], a
@ -110,22 +110,22 @@ MtMoon3Script4:
ret
CoordsData_49dea:
db $07,$0C
db $06,$0B
db $05,$0C
db $FF
dbmapcoord 12, 7
dbmapcoord 11, 6
dbmapcoord 12, 5
db -1 ; end
CoordsData_49df1:
db $07,$0D
db $06,$0E
db $05,$0E
db $FF
dbmapcoord 13, 7
dbmapcoord 14, 6
dbmapcoord 14, 5
db -1 ; end
MovementData_49df8:
db NPC_MOVEMENT_RIGHT
MovementData_49df9:
db NPC_MOVEMENT_UP,$FF
db NPC_MOVEMENT_UP
db -1 ; end
MtMoon3Script5:
ld a, [wd730]
@ -136,7 +136,7 @@ MtMoon3Script5:
ld a, $1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld a, $a
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
CheckEvent EVENT_GOT_DOME_FOSSIL
jr z, .asm_49e1d
@ -167,48 +167,21 @@ MtMoonB2F_TextPointers:
dw MtMoon3Text_49f99
MtMoon3TrainerHeader0:
dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_0
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_0
dw MtMoon3BattleText2 ; TextBeforeBattle
dw MtMoon3AfterBattleText2 ; TextAfterBattle
dw MtMoon3EndBattleText2 ; TextEndBattle
dw MtMoon3EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_3_TRAINER_0, 4, MtMoon3BattleText2, MtMoon3EndBattleText2, MtMoon3AfterBattleText2
MtMoon3TrainerHeader1:
dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_1
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_1
dw MtMoon3BattleText3 ; TextBeforeBattle
dw MtMoon3AfterBattleText3 ; TextAfterBattle
dw MtMoon3EndBattleText3 ; TextEndBattle
dw MtMoon3EndBattleText3 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_3_TRAINER_1, 4, MtMoon3BattleText3, MtMoon3EndBattleText3, MtMoon3AfterBattleText3
MtMoon3TrainerHeader2:
dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_2
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_2
dw MtMoon3BattleText4 ; TextBeforeBattle
dw MtMoon3AfterBattleText4 ; TextAfterBattle
dw MtMoon3EndBattleText4 ; TextEndBattle
dw MtMoon3EndBattleText4 ; TextEndBattle
trainer EVENT_BEAT_MT_MOON_3_TRAINER_2, 4, MtMoon3BattleText4, MtMoon3EndBattleText4, MtMoon3AfterBattleText4
MtMoon3TrainerHeader3:
dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_3
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_3
dw MtMoon3BattleText5 ; TextBeforeBattle
dw MtMoon3AfterBattleText5 ; TextAfterBattle
dw MtMoon3EndBattleText5 ; TextEndBattle
dw MtMoon3EndBattleText5 ; TextEndBattle
db $ff
trainer EVENT_BEAT_MT_MOON_3_TRAINER_3, 4, MtMoon3BattleText5, MtMoon3EndBattleText5, MtMoon3AfterBattleText5
db -1 ; end
MtMoon3Text1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_MT_MOON_EXIT_SUPER_NERD
jr z, .asm_49e8d
and $c0
; CheckEitherEventSetReuseA EVENT_GOT_DOME_FOSSIL, EVENT_GOT_HELIX_FOSSIL
and (1 << (EVENT_GOT_DOME_FOSSIL % 8)) | (1 << (EVENT_GOT_HELIX_FOSSIL % 8))
jr nz, .asm_49eb8
ld hl, MtMoon3Text_49f8f
call PrintText
@ -222,7 +195,7 @@ MtMoon3Text1:
ld hl, MtMoon3Text_49f8a
ld de, MtMoon3Text_49f8a
call SaveEndBattleTextPointers
ld a, [H_SPRITEINDEX]
ldh a, [hSpriteIndex]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
@ -237,31 +210,31 @@ MtMoon3Text1:
jp TextScriptEnd
MtMoon3Text2:
TX_ASM
text_asm
ld hl, MtMoon3TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
MtMoon3Text3:
TX_ASM
text_asm
ld hl, MtMoon3TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
MtMoon3Text4:
TX_ASM
text_asm
ld hl, MtMoon3TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
MtMoon3Text5:
TX_ASM
text_asm
ld hl, MtMoon3TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
MtMoon3Text6:
TX_ASM
text_asm
ld a, $1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, MtMoon3Text_49f24
@ -285,11 +258,11 @@ MtMoon3Text6:
jp TextScriptEnd
MtMoon3Text_49f24:
TX_FAR _MtMoon3Text_49f24
db "@"
text_far _MtMoon3Text_49f24
text_end
MtMoon3Text7:
TX_ASM
text_asm
ld a, $1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, MtMoon3Text_49f64
@ -313,18 +286,18 @@ MtMoon3Text7:
jp TextScriptEnd
MtMoon3Text_49f64:
TX_FAR _MtMoon3Text_49f64
db "@"
text_far _MtMoon3Text_49f64
text_end
MtMoon3Script_49f69:
ld hl, MtMoon3Text_49f6f
jp PrintText
MtMoon3Text_49f6f:
TX_FAR _MtMoon3Text_49f6f
TX_SFX_KEY_ITEM
TX_WAIT
db "@"
text_far _MtMoon3Text_49f6f
sound_get_key_item
text_waitbutton
text_end
MtMoon3Script_49f76:
ld hl, MtMoon3Text_49f7f
@ -332,75 +305,75 @@ MtMoon3Script_49f76:
jp TextScriptEnd
MtMoon3Text_49f7f:
TX_FAR _MtMoon3Text_49f7f
TX_WAIT
db "@"
text_far _MtMoon3Text_49f7f
text_waitbutton
text_end
MtMoon3Text_49f85:
TX_FAR _MtMoon3Text_49f85
db "@"
text_far _MtMoon3Text_49f85
text_end
MtMoon3Text_49f8a:
TX_FAR _MtMoon3Text_49f8a
db "@"
text_far _MtMoon3Text_49f8a
text_end
MtMoon3Text_49f8f:
TX_FAR _MtMoon3Text_49f8f
db "@"
text_far _MtMoon3Text_49f8f
text_end
MtMoon3Text_49f94:
TX_FAR _MtMoon3Text_49f94
db "@"
text_far _MtMoon3Text_49f94
text_end
MtMoon3Text_49f99:
TX_FAR _MtMoon3Text_49f99
TX_SFX_KEY_ITEM
db "@"
text_far _MtMoon3Text_49f99
sound_get_key_item
text_end
MtMoon3BattleText2:
TX_FAR _MtMoon3BattleText2
db "@"
text_far _MtMoon3BattleText2
text_end
MtMoon3EndBattleText2:
TX_FAR _MtMoon3EndBattleText2
db "@"
text_far _MtMoon3EndBattleText2
text_end
MtMoon3AfterBattleText2:
TX_FAR _MtMoon3AfterBattleText2
db "@"
text_far _MtMoon3AfterBattleText2
text_end
MtMoon3BattleText3:
TX_FAR _MtMoon3BattleText3
db "@"
text_far _MtMoon3BattleText3
text_end
MtMoon3EndBattleText3:
TX_FAR _MtMoon3EndBattleText3
db "@"
text_far _MtMoon3EndBattleText3
text_end
MtMoon3AfterBattleText3:
TX_FAR _MtMoon3AfterBattleText3
db "@"
text_far _MtMoon3AfterBattleText3
text_end
MtMoon3BattleText4:
TX_FAR _MtMoon3BattleText4
db "@"
text_far _MtMoon3BattleText4
text_end
MtMoon3EndBattleText4:
TX_FAR _MtMoon3EndBattleText4
db "@"
text_far _MtMoon3EndBattleText4
text_end
MtMoon3AfterBattleText4:
TX_FAR _MtMoon3AfterBattleText4
db "@"
text_far _MtMoon3AfterBattleText4
text_end
MtMoon3BattleText5:
TX_FAR _MtMoon3BattleText5
db "@"
text_far _MtMoon3BattleText5
text_end
MtMoon3EndBattleText5:
TX_FAR _MtMoon3EndBattleText5
db "@"
text_far _MtMoon3EndBattleText5
text_end
MtMoon3AfterBattleText5:
TX_FAR _MtMoon3AfterBattleText5
db "@"
text_far _MtMoon3AfterBattleText5
text_end

40
scripts/MtMoonPokecenter.asm Executable file → Normal file
View file

@ -11,18 +11,18 @@ MtMoonPokecenter_TextPointers:
dw MtMoonTradeNurseText
MtMoonHealNurseText:
db $ff
script_pokecenter_nurse
MtMoonPokecenterText2:
TX_FAR _MtMoonPokecenterText1
db "@"
text_far _MtMoonPokecenterText1
text_end
MtMoonPokecenterText3:
TX_FAR _MtMoonPokecenterText3
db "@"
text_far _MtMoonPokecenterText3
text_end
MagikarpSalesmanText:
TX_ASM
text_asm
CheckEvent EVENT_BOUGHT_MAGIKARP, 1
jp c, .alreadyBoughtMagikarp
ld hl, .Text1
@ -34,10 +34,10 @@ MagikarpSalesmanText:
ld a, [wCurrentMenuItem]
and a
jp nz, .choseNo
ld [hMoney], a
ld [hMoney + 2], a
ldh [hMoney], a
ldh [hMoney + 2], a
ld a, $5
ld [hMoney + 1], a
ldh [hMoney + 1], a
call HasEnoughMoney
jr nc, .enoughMoney
ld hl, .NoMoneyText
@ -71,24 +71,24 @@ MagikarpSalesmanText:
jp TextScriptEnd
.Text1
TX_FAR _MagikarpSalesmanText1
db "@"
text_far _MagikarpSalesmanText1
text_end
.RefuseText
TX_FAR _MagikarpSalesmanNoText
db "@"
text_far _MagikarpSalesmanNoText
text_end
.NoMoneyText
TX_FAR _MagikarpSalesmanNoMoneyText
db "@"
text_far _MagikarpSalesmanNoMoneyText
text_end
.Text2
TX_FAR _MagikarpSalesmanText2
db "@"
text_far _MagikarpSalesmanText2
text_end
MtMoonPokecenterText5:
TX_FAR _MtMoonPokecenterText5
db "@"
text_far _MtMoonPokecenterText5
text_end
MtMoonTradeNurseText:
db $f6
script_cable_club_receptionist

116
scripts/Museum1F.asm Executable file → Normal file
View file

@ -1,5 +1,5 @@
Museum1F_Script:
ld a, $1
ld a, TRUE
ld [wAutoTextBoxDrawingControl], a
xor a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
@ -13,19 +13,19 @@ Museum1F_ScriptPointers:
Museum1FScript0:
ld a, [wYCoord]
cp $4
cp 4
ret nz
ld a, [wXCoord]
cp $9
cp 9
jr z, .asm_5c120
ld a, [wXCoord]
cp $a
cp 10
ret nz
.asm_5c120
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
Museum1FScript1:
@ -39,19 +39,19 @@ Museum1F_TextPointers:
dw Museum1FText5
Museum1FText1:
TX_ASM
text_asm
ld a, [wYCoord]
cp $4
cp 4
jr nz, .asm_8774b
ld a, [wXCoord]
cp $d
cp 13
jp z, Museum1FScript_5c1f9
jr .asm_b8709
.asm_8774b
cp $3
jr nz, .asm_d49e7
ld a, [wXCoord]
cp $c
cp 12
jp z, Museum1FScript_5c1f9
.asm_d49e7
CheckEvent EVENT_BOUGHT_MUSEUM_TICKET
@ -71,7 +71,7 @@ Museum1FText1:
ld [wTextBoxID], a
call DisplayTextBoxID
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld hl, Museum1FText_5c21f
call PrintText
call YesNoChoice
@ -79,10 +79,10 @@ Museum1FText1:
and a
jr nz, .asm_de133
xor a
ld [hMoney], a
ld [hMoney + 1], a
ldh [hMoney], a
ldh [hMoney + 1], a
ld a, $50
ld [hMoney + 2], a
ldh [hMoney + 2], a
call HasEnoughMoney
jr nc, .asm_0f3e3
ld hl, Museum1FText_5c229
@ -140,108 +140,108 @@ Museum1FScriptEnd:
jp TextScriptEnd
Museum1FText_5c21a:
TX_FAR _Museum1FText_5c21a
db "@"
text_far _Museum1FText_5c21a
text_end
Museum1FText_5c21f:
TX_FAR _Museum1FText_5c21f
db "@"
text_far _Museum1FText_5c21f
text_end
Museum1FText_5c224:
TX_FAR _Museum1FText_5c224
db "@"
text_far _Museum1FText_5c224
text_end
Museum1FText_5c229:
TX_FAR _Museum1FText_5c229
db "@"
text_far _Museum1FText_5c229
text_end
Museum1FText_5c22e:
TX_FAR _Museum1FText_5c22e
db "@"
text_far _Museum1FText_5c22e
text_end
Museum1FText_5c233:
TX_FAR _Museum1FText_5c233
db "@"
text_far _Museum1FText_5c233
text_end
Museum1FText_5c238:
TX_FAR _Museum1FText_5c238
db "@"
text_far _Museum1FText_5c238
text_end
Museum1FText_5c23d:
TX_FAR _Museum1FText_5c23d
db "@"
text_far _Museum1FText_5c23d
text_end
Museum1FText_5c242:
TX_FAR _Museum1FText_5c242
db "@"
text_far _Museum1FText_5c242
text_end
Museum1FText2:
TX_ASM
text_asm
ld hl, Museum1FText_5c251
call PrintText
jp TextScriptEnd
Museum1FText_5c251:
TX_FAR _Museum1FText_5c251
db "@"
text_far _Museum1FText_5c251
text_end
Museum1FText3:
TX_ASM
text_asm
CheckEvent EVENT_GOT_OLD_AMBER
jr nz, .asm_5c285
jr nz, .got_item
ld hl, Museum1FText_5c28e
call PrintText
lb bc, OLD_AMBER, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
SetEvent EVENT_GOT_OLD_AMBER
ld a, HS_OLD_AMBER
ld [wMissableObjectIndex], a
predef HideObject
ld hl, ReceivedOldAmberText
jr .asm_5c288
.BagFull
jr .done
.bag_full
ld hl, Museum1FText_5c29e
jr .asm_5c288
.asm_5c285
jr .done
.got_item
ld hl, Museum1FText_5c299
.asm_5c288
.done
call PrintText
jp TextScriptEnd
Museum1FText_5c28e:
TX_FAR _Museum1FText_5c28e
db "@"
text_far _Museum1FText_5c28e
text_end
ReceivedOldAmberText:
TX_FAR _ReceivedOldAmberText
TX_SFX_ITEM_1
db "@"
text_far _ReceivedOldAmberText
sound_get_item_1
text_end
Museum1FText_5c299:
TX_FAR _Museum1FText_5c299
db "@"
text_far _Museum1FText_5c299
text_end
Museum1FText_5c29e:
TX_FAR _Museum1FText_5c29e
db "@"
text_far _Museum1FText_5c29e
text_end
Museum1FText4:
TX_ASM
text_asm
ld hl, Museum1FText_5c2ad
call PrintText
jp TextScriptEnd
Museum1FText_5c2ad:
TX_FAR _Museum1FText_5c2ad
db "@"
text_far _Museum1FText_5c2ad
text_end
Museum1FText5:
TX_ASM
text_asm
ld hl, Museum1FText_5c2bc
call PrintText
jp TextScriptEnd
Museum1FText_5c2bc:
TX_FAR _Museum1FText_5c2bc
db "@"
text_far _Museum1FText_5c2bc
text_end

28
scripts/Museum2F.asm Executable file → Normal file
View file

@ -11,29 +11,29 @@ Museum2F_TextPointers:
dw Museum2FText7
Museum2FText1:
TX_FAR _Museum2FText1
db "@"
text_far _Museum2FText1
text_end
Museum2FText2:
TX_FAR _Museum2FText2
db "@"
text_far _Museum2FText2
text_end
Museum2FText3:
TX_FAR _Museum2FText3
db "@"
text_far _Museum2FText3
text_end
Museum2FText4:
TX_FAR _Museum2FText4
db "@"
text_far _Museum2FText4
text_end
Museum2FText5:
TX_FAR _Museum2FText5
db "@"
text_far _Museum2FText5
text_end
Museum2FText6:
TX_FAR _Museum2FText6
db "@"
text_far _Museum2FText6
text_end
Museum2FText7:
TX_FAR _Museum2FText7
db "@"
text_far _Museum2FText7
text_end

32
scripts/NameRatersHouse.asm Executable file → Normal file
View file

@ -41,7 +41,7 @@ NameRatersHouse_TextPointers:
dw NameRaterText1
NameRaterText1:
TX_ASM
text_asm
call SaveScreenTilesToBuffer2
ld hl, NameRaterText_1dab3
call NameRaterScript_1da15
@ -68,7 +68,7 @@ NameRaterText1:
jr nz, .asm_1daae
ld hl, NameRaterText_1dac2
call PrintText
callba DisplayNameRaterScreen
farcall DisplayNameRaterScreen
jr c, .asm_1daae
ld hl, NameRaterText_1dac7
.asm_1daa8
@ -79,29 +79,29 @@ NameRaterText1:
jr .asm_1daa8
NameRaterText_1dab3:
TX_FAR _NameRaterText_1dab3
db "@"
text_far _NameRaterText_1dab3
text_end
NameRaterText_1dab8:
TX_FAR _NameRaterText_1dab8
db "@"
text_far _NameRaterText_1dab8
text_end
NameRaterText_1dabd:
TX_FAR _NameRaterText_1dabd
db "@"
text_far _NameRaterText_1dabd
text_end
NameRaterText_1dac2:
TX_FAR _NameRaterText_1dac2
db "@"
text_far _NameRaterText_1dac2
text_end
NameRaterText_1dac7:
TX_FAR _NameRaterText_1dac7
db "@"
text_far _NameRaterText_1dac7
text_end
NameRaterText_1dacc:
TX_FAR _NameRaterText_1dacc
db "@"
text_far _NameRaterText_1dacc
text_end
NameRaterText_1dad1:
TX_FAR _NameRaterText_1dad1
db "@"
text_far _NameRaterText_1dad1
text_end

482
scripts/OaksLab.asm Executable file → Normal file
View file

File diff suppressed because it is too large Load diff

66
scripts/PalletTown.asm Executable file → Normal file
View file

@ -24,14 +24,14 @@ PalletTownScript0:
cp 1 ; is player near north exit?
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, PLAYER_DIR_DOWN
ld [wPlayerMovingDirection], a
ld a, $FF
call PlaySound ; stop music
ld a, SFX_STOP_ALL_MUSIC
call PlaySound
ld a, 0 ; BANK(Music_MeetProfOak)
ld c, a
ld a, MUSIC_MEET_PROF_OAK ; “oak appears” music
ld a, MUSIC_MEET_PROF_OAK ; "oak appears" music
call PlayMusic
ld a, $FC
ld [wJoyIgnore], a
@ -46,7 +46,7 @@ PalletTownScript1:
xor a
ld [wcf0d], a
ld a, 1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $FF
ld [wJoyIgnore], a
@ -61,25 +61,25 @@ PalletTownScript1:
PalletTownScript2:
ld a, 1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_UP
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
call Delay3
ld a, 1
ld [wYCoord], a
ld a, 1
ld [hNPCPlayerRelativePosPerspective], a
ldh [hNPCPlayerRelativePosPerspective], a
ld a, 1
swap a
ld [hNPCSpriteOffset], a
ldh [hNPCSpriteOffset], a
predef CalcPositionOfPlayerRelativeToNPC
ld hl, hNPCPlayerYDistance
dec [hl]
predef FindPathToPlayer ; load Oak’s movement into wNPCMovementDirections2
predef FindPathToPlayer ; load Oak's movement into wNPCMovementDirections2
ld de, wNPCMovementDirections2
ld a, 1 ; oak
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $FF
ld [wJoyIgnore], a
@ -94,13 +94,13 @@ PalletTownScript3:
bit 0, a
ret nz
xor a ; ld a, SPRITE_FACING_DOWN
ld [wSpriteStateData1 + 9], a
ld [wSpritePlayerStateData1FacingDirection], a
ld a, 1
ld [wcf0d], a
ld a, $FC
ld [wJoyIgnore], a
ld a, 1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
; set up movement script that causes the player to follow Oak to his lab
ld a, $FF
@ -111,7 +111,7 @@ PalletTownScript3:
ld [wNPCMovementScriptFunctionNum], a
ld a, 1
ld [wNPCMovementScriptPointerTableNum], a
ld a, [H_LOADEDROMBANK]
ldh a, [hLoadedROMBank]
ld [wNPCMovementScriptBank], a
; trigger the next script
@ -158,7 +158,7 @@ PalletTown_TextPointers:
dw PalletTownText7
PalletTownText1:
TX_ASM
text_asm
ld a, [wcf0d]
and a
jr nz, .next
@ -173,8 +173,8 @@ PalletTownText1:
jp TextScriptEnd
OakAppearsText:
TX_FAR _OakAppearsText
TX_ASM
text_far _OakAppearsText
text_asm
ld c, 10
call DelayFrames
xor a
@ -186,29 +186,29 @@ OakAppearsText:
jp TextScriptEnd
OakWalksUpText:
TX_FAR _OakWalksUpText
db "@"
text_far _OakWalksUpText
text_end
PalletTownText2: ; girl
TX_FAR _PalletTownText2
db "@"
text_far _PalletTownText2
text_end
PalletTownText3: ; fat man
TX_FAR _PalletTownText3
db "@"
text_far _PalletTownText3
text_end
PalletTownText4: ; sign by lab
TX_FAR _PalletTownText4
db "@"
text_far _PalletTownText4
text_end
PalletTownText5: ; sign by fence
TX_FAR _PalletTownText5
db "@"
text_far _PalletTownText5
text_end
PalletTownText6: ; sign by Red’s house
TX_FAR _PalletTownText6
db "@"
PalletTownText6: ; sign by Red's house
text_far _PalletTownText6
text_end
PalletTownText7: ; sign by Blue’s house
TX_FAR _PalletTownText7
db "@"
PalletTownText7: ; sign by Blue's house
text_far _PalletTownText7
text_end

160
scripts/PewterCity.asm Executable file → Normal file
View file

@ -23,53 +23,57 @@ PewterCityScript0:
PewterCityScript_1925e:
CheckEvent EVENT_BEAT_BROCK
ret nz
IF DEF(_DEBUG)
call DebugPressedOrHeldB
ret nz
ENDC
ld hl, CoordsData_19277
call ArePlayerCoordsInArray
ret nc
ld a, $f0
ld [wJoyIgnore], a
ld a, $5
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
CoordsData_19277:
db $11,$23
db $11,$24
db $12,$25
db $13,$25
db $ff
dbmapcoord 35, 17
dbmapcoord 36, 17
dbmapcoord 37, 18
dbmapcoord 37, 19
db -1 ; end
PewterCityScript1:
ld a, [wNPCMovementScriptPointerTableNum]
and a
ret nz
ld a, $3
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_UP
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, ($3 << 4) | SPRITE_FACING_UP
ld [hSpriteImageIndex], a
ldh [hSpriteImageIndex], a
call SetSpriteImageIndexAfterSettingFacingDirection
call PlayDefaultMusic
ld hl, wFlags_0xcd60
set 4, [hl]
ld a, $d
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $3c
ld [$ffeb], a
ldh [hSpriteScreenYCoord], a
ld a, $30
ld [$ffec], a
ld a, $c
ld [$ffed], a
ld a, $11
ld [$ffee], a
ldh [hSpriteScreenXCoord], a
ld a, 12
ldh [hSpriteMapYCoord], a
ld a, 17
ldh [hSpriteMapXCoord], a
ld a, $3
ld [wSpriteIndex], a
call SetSpritePosition1
ld a, $3
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld de, MovementData_PewterMuseumGuyExit
call MoveSprite
ld a, $2
@ -81,7 +85,7 @@ MovementData_PewterMuseumGuyExit:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
PewterCityScript2:
ld a, [wd730]
@ -112,32 +116,32 @@ PewterCityScript4:
and a
ret nz
ld a, $5
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, SPRITE_FACING_LEFT
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, ($1 << 4) | SPRITE_FACING_LEFT
ld [hSpriteImageIndex], a
ldh [hSpriteImageIndex], a
call SetSpriteImageIndexAfterSettingFacingDirection
call PlayDefaultMusic
ld hl, wFlags_0xcd60
set 4, [hl]
ld a, $e
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $3c
ld [$ffeb], a
ldh [hSpriteScreenYCoord], a
ld a, $40
ld [$ffec], a
ld a, $16
ld [$ffed], a
ld a, $10
ld [$ffee], a
ldh [hSpriteScreenXCoord], a
ld a, 22
ldh [hSpriteMapYCoord], a
ld a, 16
ldh [hSpriteMapXCoord], a
ld a, $5
ld [wSpriteIndex], a
call SetSpritePosition1
ld a, $5
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld de, MovementData_PewterGymGuyExit
call MoveSprite
ld a, $5
@ -150,7 +154,7 @@ MovementData_PewterGymGuyExit:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db $FF
db -1 ; end
PewterCityScript5:
ld a, [wd730]
@ -193,98 +197,98 @@ PewterCity_TextPointers:
dw PewterCityText14
PewterCityText1:
TX_FAR _PewterCityText1
db "@"
text_far _PewterCityText1
text_end
PewterCityText2:
TX_FAR _PewterCityText2
db "@"
text_far _PewterCityText2
text_end
PewterCityText3:
TX_ASM
text_asm
ld hl, PewterCityText_193f1
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .asm_193c9
jr nz, .playerDidNotGoIntoMuseum
ld hl, PewterCityText_193f6
call PrintText
jr .asm_193ee
.asm_193c9
jr .done
.playerDidNotGoIntoMuseum
ld hl, PewterCityText_193fb
call PrintText
xor a
ld [hJoyPressed], a
ld [hJoyHeld], a
ldh [hJoyPressed], a
ldh [hJoyHeld], a
ld [wNPCMovementScriptFunctionNum], a
ld a, $2
ld [wNPCMovementScriptPointerTableNum], a
ld a, [H_LOADEDROMBANK]
ldh a, [hLoadedROMBank]
ld [wNPCMovementScriptBank], a
ld a, $3
ld [wSpriteIndex], a
call GetSpritePosition2
ld a, $1
ld [wPewterCityCurScript], a
.asm_193ee
.done
jp TextScriptEnd
PewterCityText_193f1:
TX_FAR _PewterCityText_193f1
db "@"
text_far _PewterCityText_193f1
text_end
PewterCityText_193f6:
TX_FAR _PewterCityText_193f6
db "@"
text_far _PewterCityText_193f6
text_end
PewterCityText_193fb:
TX_FAR _PewterCityText_193fb
db "@"
text_far _PewterCityText_193fb
text_end
PewterCityText13:
TX_FAR _PewterCityText13
db "@"
text_far _PewterCityText13
text_end
PewterCityText4:
TX_ASM
text_asm
ld hl, PewterCityText_19427
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
cp $0
jr nz, .asm_1941e
jr nz, .playerDoesNotKnow
ld hl, PewterCityText_1942c
call PrintText
jr .asm_19424
.asm_1941e
jr .done
.playerDoesNotKnow
ld hl, PewterCityText_19431
call PrintText
.asm_19424
.done
jp TextScriptEnd
PewterCityText_19427:
TX_FAR _PewterCityText_19427
db "@"
text_far _PewterCityText_19427
text_end
PewterCityText_1942c:
TX_FAR _PewterCityText_1942c
db "@"
text_far _PewterCityText_1942c
text_end
PewterCityText_19431:
TX_FAR _PewterCityText_19431
db "@"
text_far _PewterCityText_19431
text_end
PewterCityText5:
TX_ASM
text_asm
ld hl, PewterCityText_1945d
call PrintText
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld [wNPCMovementScriptFunctionNum], a
ld a, $3
ld [wNPCMovementScriptPointerTableNum], a
ld a, [H_LOADEDROMBANK]
ldh a, [hLoadedROMBank]
ld [wNPCMovementScriptBank], a
ld a, $5
ld [wSpriteIndex], a
@ -294,29 +298,29 @@ PewterCityText5:
jp TextScriptEnd
PewterCityText_1945d:
TX_FAR _PewterCityText_1945d
db "@"
text_far _PewterCityText_1945d
text_end
PewterCityText14:
TX_FAR _PewterCityText14
db "@"
text_far _PewterCityText14
text_end
PewterCityText6:
TX_FAR _PewterCityText6
db "@"
text_far _PewterCityText6
text_end
PewterCityText7:
TX_FAR _PewterCityText7
db "@"
text_far _PewterCityText7
text_end
PewterCityText10:
TX_FAR _PewterCityText10
db "@"
text_far _PewterCityText10
text_end
PewterCityText11:
TX_FAR _PewterCityText11
db "@"
text_far _PewterCityText11
text_end
PewterCityText12:
TX_FAR _PewterCityText12
db "@"
text_far _PewterCityText12
text_end

130
scripts/PewterGym.asm Executable file → Normal file
View file

@ -2,7 +2,7 @@ PewterGym_Script:
ld hl, wCurrentMapScriptFlags
bit 6, [hl]
res 6, [hl]
call nz, PewterGymScript_5c3a4
call nz, .LoadNames
call EnableAutoTextBoxDrawing
ld hl, PewterGymTrainerHeader0
ld de, PewterGym_ScriptPointers
@ -11,15 +11,15 @@ PewterGym_Script:
ld [wPewterGymCurScript], a
ret
PewterGymScript_5c3a4:
ld hl, Gym1CityName
ld de, Gym1LeaderName
.LoadNames:
ld hl, .CityName
ld de, .LeaderName
jp LoadGymLeaderAndCityName
Gym1CityName:
.CityName:
db "PEWTER CITY@"
Gym1LeaderName:
.LeaderName:
db "BROCK@"
PewterGymScript_5c3bf:
@ -41,29 +41,28 @@ PewterGymScript3:
jp z, PewterGymScript_5c3bf
ld a, $f0
ld [wJoyIgnore], a
PewterGymScript_5c3df:
ld a, $4
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_BEAT_BROCK
lb bc, TM_34, 1
lb bc, TM_BIDE, 1
call GiveItem
jr nc, .BagFull
ld a, $5
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
SetEvent EVENT_GOT_TM34
jr .asm_5c408
jr .gymVictory
.BagFull
ld a, $6
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
.asm_5c408
.gymVictory
ld hl, wObtainedBadges
set 0, [hl]
set BIT_BOULDERBADGE, [hl]
ld hl, wBeatGymFlags
set 0, [hl]
set BIT_BOULDERBADGE, [hl]
ld a, HS_GYM_GUY
ld [wMissableObjectIndex], a
@ -88,30 +87,23 @@ PewterGym_TextPointers:
dw PewterGymText6
PewterGymTrainerHeader0:
dbEventFlagBit EVENT_BEAT_PEWTER_GYM_TRAINER_0
db ($5 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_PEWTER_GYM_TRAINER_0
dw PewterGymBattleText1 ; TextBeforeBattle
dw PewterGymAfterBattleText1 ; TextAfterBattle
dw PewterGymEndBattleText1 ; TextEndBattle
dw PewterGymEndBattleText1 ; TextEndBattle
db $ff
trainer EVENT_BEAT_PEWTER_GYM_TRAINER_0, 5, PewterGymBattleText1, PewterGymEndBattleText1, PewterGymAfterBattleText1
db -1 ; end
PewterGymText1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_BROCK
jr z, .asm_5c46a
jr z, .beginBattle
CheckEventReuseA EVENT_GOT_TM34
jr nz, .asm_5c462
jr nz, .gymVictory
call z, PewterGymScript_5c3df
call DisableWaitingAfterTextDisplay
jr .asm_5c49b
.asm_5c462
jr .done
.gymVictory
ld hl, PewterGymText_5c4a3
call PrintText
jr .asm_5c49b
.asm_5c46a
jr .done
.beginBattle
ld hl, PewterGymText_5c49e
call PrintText
ld hl, wd72d
@ -120,70 +112,70 @@ PewterGymText1:
ld hl, PewterGymText_5c4bc
ld de, PewterGymText_5c4bc
call SaveEndBattleTextPointers
ld a, [H_SPRITEINDEX]
ldh a, [hSpriteIndex]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
ld a, $1
ld [wGymLeaderNo], a
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $3
ld [wPewterGymCurScript], a
ld [wCurMapScript], a
.asm_5c49b
.done
jp TextScriptEnd
PewterGymText_5c49e:
TX_FAR _PewterGymText_5c49e
db "@"
text_far _PewterGymText_5c49e
text_end
PewterGymText_5c4a3:
TX_FAR _PewterGymText_5c4a3
db "@"
text_far _PewterGymText_5c4a3
text_end
PewterGymText4:
TX_FAR _TM34PreReceiveText
db "@"
text_far _TM34PreReceiveText
text_end
PewterGymText5:
TX_FAR _ReceivedTM34Text
TX_SFX_ITEM_1
TX_FAR _TM34ExplanationText
db "@"
text_far _ReceivedTM34Text
sound_get_item_1
text_far _TM34ExplanationText
text_end
PewterGymText6:
TX_FAR _TM34NoRoomText
db "@"
text_far _TM34NoRoomText
text_end
PewterGymText_5c4bc:
TX_FAR _PewterGymText_5c4bc
TX_SFX_LEVEL_UP ; probably supposed to play SFX_GET_ITEM_1 but the wrong music bank is loaded
TX_FAR _PewterGymText_5c4c1
db "@"
text_far _PewterGymText_5c4bc
sound_level_up ; probably supposed to play SFX_GET_ITEM_1 but the wrong music bank is loaded
text_far _PewterGymText_5c4c1
text_end
PewterGymText2:
TX_ASM
text_asm
ld hl, PewterGymTrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PewterGymBattleText1:
TX_FAR _PewterGymBattleText1
db "@"
text_far _PewterGymBattleText1
text_end
PewterGymEndBattleText1:
TX_FAR _PewterGymEndBattleText1
db "@"
text_far _PewterGymEndBattleText1
text_end
PewterGymAfterBattleText1:
TX_FAR _PewterGymAfterBattleText1
db "@"
text_far _PewterGymAfterBattleText1
text_end
PewterGymText3:
TX_ASM
text_asm
ld a, [wBeatGymFlags]
bit 0, a
bit BIT_BOULDERBADGE, a
jr nz, .asm_5c50c
ld hl, PewterGymText_5c515
call PrintText
@ -208,21 +200,21 @@ PewterGymText3:
jp TextScriptEnd
PewterGymText_5c515:
TX_FAR _PewterGymText_5c515
db "@"
text_far _PewterGymText_5c515
text_end
PewterGymText_5c51a:
TX_FAR _PewterGymText_5c51a
db "@"
text_far _PewterGymText_5c51a
text_end
PewterGymText_5c51f:
TX_FAR _PewterGymText_5c51f
db "@"
text_far _PewterGymText_5c51f
text_end
PewterGymText_5c524:
TX_FAR _PewterGymText_5c524
db "@"
text_far _PewterGymText_5c524
text_end
PewterGymText_5c529:
TX_FAR _PewterGymText_5c529
db "@"
text_far _PewterGymText_5c529
text_end

16
scripts/PewterMart.asm Executable file → Normal file
View file

@ -1,6 +1,6 @@
PewterMart_Script:
call EnableAutoTextBoxDrawing
ld a, $1
ld a, TRUE
ld [wAutoTextBoxDrawingControl], a
ret
@ -10,19 +10,21 @@ PewterMart_TextPointers:
dw PewterMartText3
PewterMartText2:
TX_ASM
text_asm
ld hl, .Text
call PrintText
jp TextScriptEnd
.Text
TX_FAR _PewterMartText2
db "@"
text_far _PewterMartText2
text_end
PewterMartText3:
TX_ASM
text_asm
ld hl, .Text
call PrintText
jp TextScriptEnd
.Text
TX_FAR _PewterMartText3
db "@"
text_far _PewterMartText3
text_end

12
scripts/PewterNidoranHouse.asm Executable file → Normal file
View file

@ -7,17 +7,17 @@ PewterNidoranHouse_TextPointers:
dw PewterHouse1Text3
PewterHouse1Text1:
TX_FAR _PewterHouse1Text1
TX_ASM
text_far _PewterHouse1Text1
text_asm
ld a, NIDORAN_M
call PlayCry
call WaitForSoundToFinish
jp TextScriptEnd
PewterHouse1Text2:
TX_FAR _PewterHouse1Text2
db "@"
text_far _PewterHouse1Text2
text_end
PewterHouse1Text3:
TX_FAR _PewterHouse1Text3
db "@"
text_far _PewterHouse1Text3
text_end

33
scripts/PewterPokecenter.asm Executable file → Normal file
View file

@ -9,21 +9,24 @@ PewterPokecenter_TextPointers:
dw PewterTradeNurseText
PewterHealNurseText:
TX_POKECENTER_NURSE
script_pokecenter_nurse
PewterPokecenterText2:
TX_FAR _PewterPokecenterText2
db "@"
text_far _PewterPokecenterText2
text_end
PewterJigglypuffText:
TX_ASM
ld a, $1
text_asm
ld a, TRUE
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, .Text
ld hl, .JigglypuffText
call PrintText
StopAllMusic
ld a, SFX_STOP_ALL_MUSIC
call PlaySound
ld c, 32
call DelayFrames
ld hl, JigglypuffFacingDirections
ld de, wJigglypuffFacingDirections
ld bc, JigglypuffFacingDirectionsEnd - JigglypuffFacingDirections
@ -36,15 +39,16 @@ PewterJigglypuffText:
inc hl
jr nz, .findMatchingFacingDirectionLoop
dec hl
push hl
ld c, 0 ; BANK(Music_JigglypuffSong)
ld a, MUSIC_JIGGLYPUFF_SONG
call PlayMusic
pop hl
.loop
.spinMovementLoop
ld a, [hl]
ld [wSprite03StateData1ImageIndex], a
; rotate the array
push hl
ld hl, wJigglypuffFacingDirections
@ -54,23 +58,22 @@ PewterJigglypuffText:
ld a, [wJigglypuffFacingDirections - 1]
ld [wJigglypuffFacingDirections + 3], a
pop hl
ld c, 24
call DelayFrames
push hl
call IsSongPlaying
pop hl
jr c, .loop
jr c, .spinMovementLoop
ld c, 48
call DelayFrames
call PlayDefaultMusic
jp TextScriptEnd
.Text
TX_FAR _PewterJigglypuffText
db "@"
.JigglypuffText:
text_far _PewterJigglypuffText
text_end
JigglypuffFacingDirections:
db $30 | SPRITE_FACING_DOWN
@ -80,4 +83,4 @@ JigglypuffFacingDirections:
JigglypuffFacingDirectionsEnd:
PewterTradeNurseText:
TX_CABLE_CLUB_RECEPTIONIST
script_cable_club_receptionist

8
scripts/PewterSpeechHouse.asm Executable file → Normal file
View file

@ -6,9 +6,9 @@ PewterSpeechHouse_TextPointers:
dw PewterHouse2Text2
PewterHouse2Text1:
TX_FAR _PewterHouse2Text1
db "@"
text_far _PewterHouse2Text1
text_end
PewterHouse2Text2:
TX_FAR _PewterHouse2Text2
db "@"
text_far _PewterHouse2Text2
text_end

78
scripts/PokemonFanClub.asm Executable file → Normal file
View file

@ -23,7 +23,7 @@ PokemonFanClub_TextPointers:
FanClubText1:
; pikachu fan
TX_ASM
text_asm
CheckEvent EVENT_PIKACHU_FAN_BOAST
jr nz, .mineisbetter
ld hl, .normaltext
@ -38,16 +38,16 @@ FanClubText1:
jp TextScriptEnd
.normaltext
TX_FAR PikachuFanText
db "@"
text_far PikachuFanText
text_end
.bettertext
TX_FAR PikachuFanBetterText
db "@"
text_far PikachuFanBetterText
text_end
FanClubText2:
; seel fan
TX_ASM
text_asm
CheckEvent EVENT_SEEL_FAN_BOAST
jr nz, .mineisbetter
ld hl, .normaltext
@ -62,16 +62,16 @@ FanClubText2:
jp TextScriptEnd
.normaltext
TX_FAR SeelFanText
db "@"
text_far SeelFanText
text_end
.bettertext
TX_FAR SeelFanBetterText
db "@"
text_far SeelFanBetterText
text_end
FanClubText3:
; pikachu
TX_ASM
text_asm
ld hl, .text
call PrintText
ld a, PIKACHU
@ -80,12 +80,12 @@ FanClubText3:
jp TextScriptEnd
.text
TX_FAR FanClubPikachuText
db "@"
text_far FanClubPikachuText
text_end
FanClubText4:
; seel
TX_ASM
text_asm
ld hl, .text
call PrintText
ld a, SEEL
@ -94,12 +94,12 @@ FanClubText4:
jp TextScriptEnd
.text
TX_FAR FanClubSeelText
db "@"
text_far FanClubSeelText
text_end
FanClubText5:
; chair
TX_ASM
text_asm
call FanClubBikeInBag
jr nz, .nothingleft
@ -115,12 +115,12 @@ FanClubText5:
call PrintText
lb bc, BIKE_VOUCHER, 1
call GiveItem
jr nc, .BagFull
jr nc, .bag_full
ld hl, .receivedvouchertext
call PrintText
SetEvent EVENT_GOT_BIKE_VOUCHER
jr .done
.BagFull
.bag_full
ld hl, .bagfulltext
call PrintText
jr .done
@ -135,39 +135,39 @@ FanClubText5:
jp TextScriptEnd
.meetchairtext
TX_FAR FanClubMeetChairText
db "@"
text_far FanClubMeetChairText
text_end
.storytext
TX_FAR FanClubChairStoryText
db "@"
text_far FanClubChairStoryText
text_end
.receivedvouchertext
TX_FAR ReceivedBikeVoucherText
TX_SFX_KEY_ITEM
TX_FAR ExplainBikeVoucherText
db "@"
text_far ReceivedBikeVoucherText
sound_get_key_item
text_far ExplainBikeVoucherText
text_end
.nostorytext
TX_FAR FanClubNoStoryText
db "@"
text_far FanClubNoStoryText
text_end
.finaltext
TX_FAR FanClubChairFinalText
db "@"
text_far FanClubChairFinalText
text_end
.bagfulltext
TX_FAR FanClubBagFullText
db "@"
text_far FanClubBagFullText
text_end
FanClubText6:
TX_FAR _FanClubText6
db "@"
text_far _FanClubText6
text_end
FanClubText7:
TX_FAR _FanClubText7
db "@"
text_far _FanClubText7
text_end
FanClubText8:
TX_FAR _FanClubText8
db "@"
text_far _FanClubText8
text_end

47
scripts/PokemonMansion1F.asm Executable file → Normal file
View file

@ -45,14 +45,14 @@ Mansion1ReplaceBlock:
predef ReplaceTileBlock
ret
Mansion1Script_Switches:
ld a, [wSpriteStateData1 + 9]
Mansion1Script_Switches::
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_UP
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $4
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
PokemonMansion1F_ScriptPointers:
@ -67,36 +67,29 @@ PokemonMansion1F_TextPointers:
dw Mansion1Text4
Mansion1TrainerHeader0:
dbEventFlagBit EVENT_BEAT_MANSION_1_TRAINER_0
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MANSION_1_TRAINER_0
dw Mansion1BattleText2 ; TextBeforeBattle
dw Mansion1AfterBattleText2 ; TextAfterBattle
dw Mansion1EndBattleText2 ; TextEndBattle
dw Mansion1EndBattleText2 ; TextEndBattle
db $ff
trainer EVENT_BEAT_MANSION_1_TRAINER_0, 3, Mansion1BattleText2, Mansion1EndBattleText2, Mansion1AfterBattleText2
db -1 ; end
Mansion1Text1:
TX_ASM
text_asm
ld hl, Mansion1TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
Mansion1BattleText2:
TX_FAR _Mansion1BattleText2
db "@"
text_far _Mansion1BattleText2
text_end
Mansion1EndBattleText2:
TX_FAR _Mansion1EndBattleText2
db "@"
text_far _Mansion1EndBattleText2
text_end
Mansion1AfterBattleText2:
TX_FAR _Mansion1AfterBattleText2
db "@"
text_far _Mansion1AfterBattleText2
text_end
Mansion1Text4:
TX_ASM
text_asm
ld hl, MansionSwitchText
call PrintText
call YesNoChoice
@ -122,13 +115,13 @@ Mansion1Text4:
jp TextScriptEnd
MansionSwitchText:
TX_FAR _MansionSwitchText
db "@"
text_far _MansionSwitchText
text_end
MansionSwitchPressedText:
TX_FAR _MansionSwitchPressedText
db "@"
text_far _MansionSwitchPressedText
text_end
MansionSwitchNotPressedText:
TX_FAR _MansionSwitchNotPressedText
db "@"
text_far _MansionSwitchNotPressedText
text_end

55
scripts/PokemonMansion2F.asm Executable file → Normal file
View file

@ -41,14 +41,14 @@ Mansion2Script_5202f:
ld [wNewTileBlockID], a
predef_jump ReplaceTileBlock
Mansion2Script_Switches:
ld a, [wSpriteStateData1 + 9]
Mansion2Script_Switches::
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_UP
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $5
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
PokemonMansion2F_ScriptPointers:
@ -64,45 +64,38 @@ PokemonMansion2F_TextPointers:
dw Mansion2Text5
Mansion2TrainerHeader0:
dbEventFlagBit EVENT_BEAT_MANSION_2_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MANSION_2_TRAINER_0
dw Mansion2BattleText1 ; TextBeforeBattle
dw Mansion2AfterBattleText1 ; TextAfterBattle
dw Mansion2EndBattleText1 ; TextEndBattle
dw Mansion2EndBattleText1 ; TextEndBattle
db $ff
trainer EVENT_BEAT_MANSION_2_TRAINER_0, 0, Mansion2BattleText1, Mansion2EndBattleText1, Mansion2AfterBattleText1
db -1 ; end
Mansion2Text1:
TX_ASM
text_asm
ld hl, Mansion2TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
Mansion2BattleText1:
TX_FAR _Mansion2BattleText1
db "@"
text_far _Mansion2BattleText1
text_end
Mansion2EndBattleText1:
TX_FAR _Mansion2EndBattleText1
db "@"
text_far _Mansion2EndBattleText1
text_end
Mansion2AfterBattleText1:
TX_FAR _Mansion2AfterBattleText1
db "@"
text_far _Mansion2AfterBattleText1
text_end
Mansion2Text3:
TX_FAR _Mansion2Text3
db "@"
text_far _Mansion2Text3
text_end
Mansion2Text4:
TX_FAR _Mansion2Text4
db "@"
text_far _Mansion2Text4
text_end
Mansion3Text6:
Mansion2Text5:
TX_ASM
text_asm
ld hl, Mansion2Text_520c2
call PrintText
call YesNoChoice
@ -128,13 +121,13 @@ Mansion2Text5:
jp TextScriptEnd
Mansion2Text_520c2:
TX_FAR _Mansion2Text_520c2
db "@"
text_far _Mansion2Text_520c2
text_end
Mansion2Text_520c7:
TX_FAR _Mansion2Text_520c7
db "@"
text_far _Mansion2Text_520c7
text_end
Mansion2Text_520cc:
TX_FAR _Mansion2Text_520cc
db "@"
text_far _Mansion2Text_520cc
text_end

80
scripts/PokemonMansion3F.asm Executable file → Normal file
View file

@ -16,18 +16,18 @@ Mansion3Script_52204:
CheckEvent EVENT_MANSION_SWITCH_ON
jr nz, .asm_52224
ld a, $e
ld bc, $207
lb bc, 2, 7
call Mansion2Script_5202f
ld a, $5f
ld bc, $507
lb bc, 5, 7
call Mansion2Script_5202f
ret
.asm_52224
ld a, $5f
ld bc, $207
lb bc, 2, 7
call Mansion2Script_5202f
ld a, $e
ld bc, $507
lb bc, 5, 7
call Mansion2Script_5202f
ret
@ -43,18 +43,18 @@ Mansion3Script0:
and a
jp z, CheckFightingMapTrainers
cp $3
ld a, $a5
ld a, POKEMON_MANSION_1F
jr nz, .asm_52250
ld a, $d6
ld a, POKEMON_MANSION_2F
.asm_52250
ld [wDungeonWarpDestinationMap], a
ret
CoordsData_52254:
db $0E,$10
db $0E,$11
db $0E,$13
db $FF
dbmapcoord 16, 14
dbmapcoord 17, 14
dbmapcoord 19, 14
db -1 ; end
Mansion3Script_5225b:
xor a
@ -72,14 +72,14 @@ Mansion3Script_5225b:
set 4, [hl]
ret
Mansion3Script_Switches:
ld a, [wSpriteStateData1 + 9]
Mansion3Script_Switches::
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_UP
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $6
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
PokemonMansion3F_TextPointers:
@ -91,61 +91,47 @@ PokemonMansion3F_TextPointers:
dw Mansion3Text6
Mansion3TrainerHeader0:
dbEventFlagBit EVENT_BEAT_MANSION_3_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MANSION_3_TRAINER_0
dw Mansion3BattleText1 ; TextBeforeBattle
dw Mansion3AfterBattleText1 ; TextAfterBattle
dw Mansion3EndBattleText1 ; TextEndBattle
dw Mansion3EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_MANSION_3_TRAINER_0, 0, Mansion3BattleText1, Mansion3EndBattleText1, Mansion3AfterBattleText1
Mansion3TrainerHeader1:
dbEventFlagBit EVENT_BEAT_MANSION_3_TRAINER_1
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MANSION_3_TRAINER_1
dw Mansion3BattleText2 ; TextBeforeBattle
dw Mansion3AfterBattleText2 ; TextAfterBattle
dw Mansion3EndBattleText2 ; TextEndBattle
dw Mansion3EndBattleText2 ; TextEndBattle
db $ff
trainer EVENT_BEAT_MANSION_3_TRAINER_1, 2, Mansion3BattleText2, Mansion3EndBattleText2, Mansion3AfterBattleText2
db -1 ; end
Mansion3Text1:
TX_ASM
text_asm
ld hl, Mansion3TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
Mansion3Text2:
TX_ASM
text_asm
ld hl, Mansion3TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
Mansion3BattleText1:
TX_FAR _Mansion3BattleText1
db "@"
text_far _Mansion3BattleText1
text_end
Mansion3EndBattleText1:
TX_FAR _Mansion3EndBattleText1
db "@"
text_far _Mansion3EndBattleText1
text_end
Mansion3AfterBattleText1:
TX_FAR _Mansion3AfterBattleText1
db "@"
text_far _Mansion3AfterBattleText1
text_end
Mansion3BattleText2:
TX_FAR _Mansion3BattleText2
db "@"
text_far _Mansion3BattleText2
text_end
Mansion3EndBattleText2:
TX_FAR _Mansion3EndBattleText2
db "@"
text_far _Mansion3EndBattleText2
text_end
Mansion3AfterBattleText2:
TX_FAR _Mansion3AfterBattleText2
db "@"
text_far _Mansion3AfterBattleText2
text_end
Mansion3Text5:
TX_FAR _Mansion3Text5
db "@"
text_far _Mansion3Text5
text_end

60
scripts/PokemonMansionB1F.asm Executable file → Normal file
View file

@ -43,14 +43,14 @@ Mansion4Script_523cf:
call Mansion2Script_5202f
ret
Mansion4Script_Switches:
ld a, [wSpriteStateData1 + 9]
Mansion4Script_Switches::
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_UP
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $9
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
jp DisplayTextID
PokemonMansionB1F_ScriptPointers:
@ -70,61 +70,47 @@ PokemonMansionB1F_TextPointers:
dw Mansion3Text6
Mansion4TrainerHeader0:
dbEventFlagBit EVENT_BEAT_MANSION_4_TRAINER_0
db ($0 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MANSION_4_TRAINER_0
dw Mansion4BattleText1 ; TextBeforeBattle
dw Mansion4AfterBattleText1 ; TextAfterBattle
dw Mansion4EndBattleText1 ; TextEndBattle
dw Mansion4EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_MANSION_4_TRAINER_0, 0, Mansion4BattleText1, Mansion4EndBattleText1, Mansion4AfterBattleText1
Mansion4TrainerHeader1:
dbEventFlagBit EVENT_BEAT_MANSION_4_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_MANSION_4_TRAINER_1
dw Mansion4BattleText2 ; TextBeforeBattle
dw Mansion4AfterBattleText2 ; TextAfterBattle
dw Mansion4EndBattleText2 ; TextEndBattle
dw Mansion4EndBattleText2 ; TextEndBattle
db $ff
trainer EVENT_BEAT_MANSION_4_TRAINER_1, 3, Mansion4BattleText2, Mansion4EndBattleText2, Mansion4AfterBattleText2
db -1 ; end
Mansion4Text1:
TX_ASM
text_asm
ld hl, Mansion4TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
Mansion4Text2:
TX_ASM
text_asm
ld hl, Mansion4TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
Mansion4BattleText1:
TX_FAR _Mansion4BattleText1
db "@"
text_far _Mansion4BattleText1
text_end
Mansion4EndBattleText1:
TX_FAR _Mansion4EndBattleText1
db "@"
text_far _Mansion4EndBattleText1
text_end
Mansion4AfterBattleText1:
TX_FAR _Mansion4AfterBattleText1
db "@"
text_far _Mansion4AfterBattleText1
text_end
Mansion4BattleText2:
TX_FAR _Mansion4BattleText2
db "@"
text_far _Mansion4BattleText2
text_end
Mansion4EndBattleText2:
TX_FAR _Mansion4EndBattleText2
db "@"
text_far _Mansion4EndBattleText2
text_end
Mansion4AfterBattleText2:
TX_FAR _Mansion4AfterBattleText2
db "@"
text_far _Mansion4AfterBattleText2
text_end
Mansion4Text7:
TX_FAR _Mansion4Text7
db "@"
text_far _Mansion4Text7
text_end

20
scripts/PokemonTower1F.asm Executable file → Normal file
View file

@ -9,21 +9,21 @@ PokemonTower1F_TextPointers:
dw PokemonTower1Text5
PokemonTower1Text1:
TX_FAR _PokemonTower1Text1
db "@"
text_far _PokemonTower1Text1
text_end
PokemonTower1Text2:
TX_FAR _PokemonTower1Text2
db "@"
text_far _PokemonTower1Text2
text_end
PokemonTower1Text3:
TX_FAR _PokemonTower1Text3
db "@"
text_far _PokemonTower1Text3
text_end
PokemonTower1Text4:
TX_FAR _PokemonTower1Text4
db "@"
text_far _PokemonTower1Text4
text_end
PokemonTower1Text5:
TX_FAR _PokemonTower1Text5
db "@"
text_far _PokemonTower1Text5
text_end

58
scripts/PokemonTower2F.asm Executable file → Normal file
View file

@ -17,12 +17,16 @@ PokemonTower2F_ScriptPointers:
dw PokemonTower2Script2
PokemonTower2Script0:
IF DEF(_DEBUG)
call DebugPressedOrHeldB
ret nz
ENDC
CheckEvent EVENT_BEAT_POKEMON_TOWER_RIVAL
ret nz
ld hl, CoordsData_6055e
call ArePlayerCoordsInArray
ret nc
ld a, $ff
ld a, SFX_STOP_ALL_MUSIC
ld [wNewSoundID], a
call PlaySound
ld c, 0 ; BANK(Music_MeetRival)
@ -41,22 +45,22 @@ PokemonTower2Script0:
.asm_60544
ld [wPlayerMovingDirection], a
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
ld a, b
ld [hSpriteFacingDirection], a
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [hJoyHeld], a
ld [hJoyPressed], a
ldh [hJoyHeld], a
ldh [hJoyPressed], a
ret
CoordsData_6055e:
db $05,$0F
db $06,$0E
db $0F ; isn't this supposed to end in $ff?
dbmapcoord 15, 5
dbmapcoord 14, 6
db $0F ; end? (should be $ff?)
PokemonTower2Script1:
ld a, [wIsInBattle]
@ -66,7 +70,7 @@ PokemonTower2Script1:
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_POKEMON_TOWER_RIVAL
ld a, $1
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld de, MovementData_605b2
CheckEvent EVENT_POKEMON_TOWER_RIVAL_ON_LEFT
@ -74,12 +78,12 @@ PokemonTower2Script1:
ld de, MovementData_605a9
.asm_60589
ld a, $1
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
call MoveSprite
ld a, $ff
ld a, SFX_STOP_ALL_MUSIC
ld [wNewSoundID], a
call PlaySound
callba Music_RivalAlternateStart
farcall Music_RivalAlternateStart
ld a, $2
ld [wPokemonTower2FCurScript], a
ld [wCurMapScript], a
@ -94,7 +98,7 @@ MovementData_605a9:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db $FF
db -1 ; end
MovementData_605b2:
db NPC_MOVEMENT_DOWN
@ -105,7 +109,7 @@ MovementData_605b2:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
PokemonTower2Script2:
ld a, [wd730]
@ -127,7 +131,7 @@ PokemonTower2F_TextPointers:
dw PokemonTower2Text2
PokemonTower2Text1:
TX_ASM
text_asm
CheckEvent EVENT_BEAT_POKEMON_TOWER_RIVAL
jr z, .asm_16f24
ld hl, PokemonTower2Text_6063c
@ -142,7 +146,7 @@ PokemonTower2Text1:
ld hl, PokemonTower2Text_60632
ld de, PokemonTower2Text_60637
call SaveEndBattleTextPointers
ld a, OPP_SONY2
ld a, OPP_RIVAL2
ld [wCurOpponent], a
; select which team to use during the encounter
@ -168,21 +172,21 @@ PokemonTower2Text1:
jp TextScriptEnd
PokemonTower2Text_6062d:
TX_FAR _PokemonTower2Text_6062d
db "@"
text_far _PokemonTower2Text_6062d
text_end
PokemonTower2Text_60632:
TX_FAR _PokemonTower2Text_60632
db "@"
text_far _PokemonTower2Text_60632
text_end
PokemonTower2Text_60637:
TX_FAR _PokemonTower2Text_60637
db "@"
text_far _PokemonTower2Text_60637
text_end
PokemonTower2Text_6063c:
TX_FAR _PokemonTower2Text_6063c
db "@"
text_far _PokemonTower2Text_6063c
text_end
PokemonTower2Text2:
TX_FAR _PokemonTower2Text2
db "@"
text_far _PokemonTower2Text2
text_end

70
scripts/PokemonTower3F.asm Executable file → Normal file
View file

@ -19,83 +19,63 @@ PokemonTower3F_TextPointers:
dw PickUpItemText
PokemonTower3TrainerHeader0:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_3_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_3_TRAINER_0
dw PokemonTower3BattleText1 ; TextBeforeBattle
dw PokemonTower3AfterBattleText1 ; TextAfterBattle
dw PokemonTower3EndBattleText1 ; TextEndBattle
dw PokemonTower3EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_3_TRAINER_0, 2, PokemonTower3BattleText1, PokemonTower3EndBattleText1, PokemonTower3AfterBattleText1
PokemonTower3TrainerHeader1:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_3_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_3_TRAINER_1
dw PokemonTower3BattleText2 ; TextBeforeBattle
dw PokemonTower3AfterBattleText2 ; TextAfterBattle
dw PokemonTower3EndBattleText2 ; TextEndBattle
dw PokemonTower3EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_3_TRAINER_1, 3, PokemonTower3BattleText2, PokemonTower3EndBattleText2, PokemonTower3AfterBattleText2
PokemonTower3TrainerHeader2:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_3_TRAINER_2
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_3_TRAINER_2
dw PokemonTower3BattleText3 ; TextBeforeBattle
dw PokemonTower3AfterBattleText3 ; TextAfterBattle
dw PokemonTower3EndBattleText3 ; TextEndBattle
dw PokemonTower3EndBattleText3 ; TextEndBattle
db $ff
trainer EVENT_BEAT_POKEMONTOWER_3_TRAINER_2, 2, PokemonTower3BattleText3, PokemonTower3EndBattleText3, PokemonTower3AfterBattleText3
db -1 ; end
PokemonTower3Text1:
TX_ASM
text_asm
ld hl, PokemonTower3TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PokemonTower3Text2:
TX_ASM
text_asm
ld hl, PokemonTower3TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
PokemonTower3Text3:
TX_ASM
text_asm
ld hl, PokemonTower3TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
PokemonTower3BattleText1:
TX_FAR _PokemonTower3BattleText1
db "@"
text_far _PokemonTower3BattleText1
text_end
PokemonTower3EndBattleText1:
TX_FAR _PokemonTower3EndBattleText1
db "@"
text_far _PokemonTower3EndBattleText1
text_end
PokemonTower3AfterBattleText1:
TX_FAR _PokemonTower3AfterBattleText1
db "@"
text_far _PokemonTower3AfterBattleText1
text_end
PokemonTower3BattleText2:
TX_FAR _PokemonTower3BattleText2
db "@"
text_far _PokemonTower3BattleText2
text_end
PokemonTower3EndBattleText2:
TX_FAR _PokemonTower3EndBattleText2
db "@"
text_far _PokemonTower3EndBattleText2
text_end
PokemonTower3AfterBattleText2:
TX_FAR _PokemonTower3AfterBattleText2
db "@"
text_far _PokemonTower3AfterBattleText2
text_end
PokemonTower3BattleText3:
TX_FAR _PokemonTower3BattleText3
db "@"
text_far _PokemonTower3BattleText3
text_end
PokemonTower3EndBattleText3:
TX_FAR _PokemonTower3EndBattleText3
db "@"
text_far _PokemonTower3EndBattleText3
text_end
PokemonTower3AfterBattleText3:
TX_FAR _PokemonTower3AfterBattleText3
db "@"
text_far _PokemonTower3AfterBattleText3
text_end

71
scripts/PokemonTower4F.asm Executable file → Normal file
View file

@ -21,84 +21,63 @@ PokemonTower4F_TextPointers:
dw PickUpItemText
PokemonTower4TrainerHeader0:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_4_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_4_TRAINER_0
dw PokemonTower4BattleText1 ; TextBeforeBattle
dw PokemonTower4AfterBattleText1 ; TextAfterBattle
dw PokemonTower4EndBattleText1 ; TextEndBattle
dw PokemonTower4EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_4_TRAINER_0, 2, PokemonTower4BattleText1, PokemonTower4EndBattleText1, PokemonTower4AfterBattleText1
PokemonTower4TrainerHeader1:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_4_TRAINER_1
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_4_TRAINER_1
dw PokemonTower4BattleText2 ; TextBeforeBattle
dw PokemonTower4AfterBattleText2 ; TextAfterBattle
dw PokemonTower4EndBattleText2 ; TextEndBattle
dw PokemonTower4EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_4_TRAINER_1, 2, PokemonTower4BattleText2, PokemonTower4EndBattleText2, PokemonTower4AfterBattleText2
PokemonTower4TrainerHeader2:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_4_TRAINER_2
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_4_TRAINER_2
dw PokemonTower4BattleText3 ; TextBeforeBattle
dw PokemonTower4AfterBattleText3 ; TextAfterBattle
dw PokemonTower4EndBattleText3 ; TextEndBattle
dw PokemonTower4EndBattleText3 ; TextEndBattle
db $ff
trainer EVENT_BEAT_POKEMONTOWER_4_TRAINER_2, 2, PokemonTower4BattleText3, PokemonTower4EndBattleText3, PokemonTower4AfterBattleText3
db -1 ; end
PokemonTower4Text1:
TX_ASM
text_asm
ld hl, PokemonTower4TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PokemonTower4Text2:
TX_ASM
text_asm
ld hl, PokemonTower4TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
PokemonTower4Text3:
TX_ASM
text_asm
ld hl, PokemonTower4TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
PokemonTower4BattleText1:
TX_FAR _PokemonTower4BattleText1
db "@"
text_far _PokemonTower4BattleText1
text_end
PokemonTower4EndBattleText1:
TX_FAR _PokemonTower4EndBattleText1
db "@"
text_far _PokemonTower4EndBattleText1
text_end
PokemonTower4AfterBattleText1:
TX_FAR _PokemonTower4AfterBattleText1
db "@"
text_far _PokemonTower4AfterBattleText1
text_end
PokemonTower4BattleText2:
TX_FAR _PokemonTower4BattleText2
db "@"
text_far _PokemonTower4BattleText2
text_end
PokemonTower4EndBattleText2:
TX_FAR _PokemonTower4EndBattleText2
db "@"
text_far _PokemonTower4EndBattleText2
text_end
PokemonTower4AfterBattleText2:
TX_FAR _PokemonTower4AfterBattleText2
db "@"
text_far _PokemonTower4AfterBattleText2
text_end
PokemonTower4BattleText3:
TX_FAR _PokemonTower4BattleText3
db "@"
text_far _PokemonTower4BattleText3
text_end
PokemonTower4EndBattleText3:
TX_FAR _PokemonTower4EndBattleText3
db "@"
text_far _PokemonTower4EndBattleText3
text_end
PokemonTower4AfterBattleText3:
TX_FAR _PokemonTower4AfterBattleText3
db "@"
text_far _PokemonTower4AfterBattleText3
text_end

116
scripts/PokemonTower5F.asm Executable file → Normal file
View file

@ -24,7 +24,7 @@ PokemonTower5Script0:
CheckAndSetEvent EVENT_IN_PURIFIED_ZONE
ret nz
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $f0
ld [wJoyIgnore], a
ld hl, wd72e
@ -35,18 +35,18 @@ PokemonTower5Script0:
call Delay3
call GBFadeInFromWhite
ld a, $7
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
ret
CoordsData_60992:
db $08,$0A
db $08,$0B
db $09,$0A
db $09,$0B
db $FF
dbmapcoord 10, 8
dbmapcoord 11, 8
dbmapcoord 10, 9
dbmapcoord 11, 9
db -1 ; end
PokemonTower5F_TextPointers:
dw PokemonTower5Text1
@ -58,119 +58,91 @@ PokemonTower5F_TextPointers:
dw PokemonTower5Text7
PokemonTower5TrainerHeader0:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_0
dw PokemonTower5BattleText1 ; TextBeforeBattle
dw PokemonTower5AfterBattleText1 ; TextAfterBattle
dw PokemonTower5EndBattleText1 ; TextEndBattle
dw PokemonTower5EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_0, 2, PokemonTower5BattleText1, PokemonTower5EndBattleText1, PokemonTower5AfterBattleText1
PokemonTower5TrainerHeader1:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_1
dw PokemonTower5BattleText2 ; TextBeforeBattle
dw PokemonTower5AfterBattleText2 ; TextAfterBattle
dw PokemonTower5EndBattleText2 ; TextEndBattle
dw PokemonTower5EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_1, 3, PokemonTower5BattleText2, PokemonTower5EndBattleText2, PokemonTower5AfterBattleText2
PokemonTower5TrainerHeader2:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_2
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_2
dw PokemonTower5BattleText3 ; TextBeforeBattle
dw PokemonTower5AfterBattleText3 ; TextAfterBattle
dw PokemonTower5EndBattleText3 ; TextEndBattle
dw PokemonTower5EndBattleText3 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_2, 2, PokemonTower5BattleText3, PokemonTower5EndBattleText3, PokemonTower5AfterBattleText3
PokemonTower5TrainerHeader3:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_3
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_3
dw PokemonTower5BattleText4 ; TextBeforeBattle
dw PokemonTower5AfterBattleText4 ; TextAfterBattle
dw PokemonTower5EndBattleText4 ; TextEndBattle
dw PokemonTower5EndBattleText4 ; TextEndBattle
db $ff
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_3, 2, PokemonTower5BattleText4, PokemonTower5EndBattleText4, PokemonTower5AfterBattleText4
db -1 ; end
PokemonTower5Text1:
TX_FAR _PokemonTower5Text1
db "@"
text_far _PokemonTower5Text1
text_end
PokemonTower5Text2:
TX_ASM
text_asm
ld hl, PokemonTower5TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PokemonTower5BattleText1:
TX_FAR _PokemonTower5BattleText1
db "@"
text_far _PokemonTower5BattleText1
text_end
PokemonTower5EndBattleText1:
TX_FAR _PokemonTower5EndBattleText1
db "@"
text_far _PokemonTower5EndBattleText1
text_end
PokemonTower5AfterBattleText1:
TX_FAR _PokemonTower5AfterBattleText1
db "@"
text_far _PokemonTower5AfterBattleText1
text_end
PokemonTower5Text3:
TX_ASM
text_asm
ld hl, PokemonTower5TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
PokemonTower5BattleText2:
TX_FAR _PokemonTower5BattleText2
db "@"
text_far _PokemonTower5BattleText2
text_end
PokemonTower5EndBattleText2:
TX_FAR _PokemonTower5EndBattleText2
db "@"
text_far _PokemonTower5EndBattleText2
text_end
PokemonTower5AfterBattleText2:
TX_FAR _PokemonTower5AfterBattleText2
db "@"
text_far _PokemonTower5AfterBattleText2
text_end
PokemonTower5Text4:
TX_ASM
text_asm
ld hl, PokemonTower5TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
PokemonTower5BattleText3:
TX_FAR _PokemonTower5BattleText3
db "@"
text_far _PokemonTower5BattleText3
text_end
PokemonTower5EndBattleText3:
TX_FAR _PokemonTower5EndBattleText3
db "@"
text_far _PokemonTower5EndBattleText3
text_end
PokemonTower5AfterBattleText3:
TX_FAR _PokemonTower5AfterBattleText3
db "@"
text_far _PokemonTower5AfterBattleText3
text_end
PokemonTower5Text5:
TX_ASM
text_asm
ld hl, PokemonTower5TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
PokemonTower5BattleText4:
TX_FAR _PokemonTower5BattleText4
db "@"
text_far _PokemonTower5BattleText4
text_end
PokemonTower5EndBattleText4:
TX_FAR _PokemonTower5EndBattleText4
db "@"
text_far _PokemonTower5EndBattleText4
text_end
PokemonTower5AfterBattleText4:
TX_FAR _PokemonTower5AfterBattleText4
db "@"
text_far _PokemonTower5AfterBattleText4
text_end
PokemonTower5Text7:
TX_FAR _PokemonTower5Text7
db "@"
text_far _PokemonTower5Text7
text_end

100
scripts/PokemonTower6F.asm Executable file → Normal file
View file

@ -28,11 +28,11 @@ PokemonTower6Script0:
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
xor a
ld [hJoyHeld], a
ldh [hJoyHeld], a
ld a, $6
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, MAROWAK
ld a, RESTLESS_SOUL
ld [wCurOpponent], a
ld a, 30
ld [wCurEnemyLVL], a
@ -42,7 +42,8 @@ PokemonTower6Script0:
ret
CoordsData_60b45:
db $10,$0A,$FF
dbmapcoord 10, 16
db -1 ; end
PokemonTower6Script4:
ld a, [wIsInBattle]
@ -61,7 +62,7 @@ PokemonTower6Script4:
jr nz, .asm_60b82
SetEvent EVENT_BEAT_GHOST_MAROWAK
ld a, $7
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
@ -75,7 +76,7 @@ PokemonTower6Script4:
ld a, $10
ld [wSimulatedJoypadStatesEnd], a
xor a
ld [wSpriteStateData2 + $06], a
ld [wSpritePlayerStateData2MovementByte1], a
ld [wOverrideSimulatedJoypadStatesMask], a
ld hl, wd730
set 7, [hl]
@ -104,57 +105,36 @@ PokemonTower6F_TextPointers:
dw PokemonTower6Text7
PokemonTower6TrainerHeader0:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_6_TRAINER_0
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_6_TRAINER_0
dw PokemonTower6BattleText1 ; TextBeforeBattle
dw PokemonTower6AfterBattleText1 ; TextAfterBattle
dw PokemonTower6EndBattleText1 ; TextEndBattle
dw PokemonTower6EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_6_TRAINER_0, 3, PokemonTower6BattleText1, PokemonTower6EndBattleText1, PokemonTower6AfterBattleText1
PokemonTower6TrainerHeader1:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_6_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_6_TRAINER_1
dw PokemonTower6BattleText2 ; TextBeforeBattle
dw PokemonTower6AfterBattleText2 ; TextAfterBattle
dw PokemonTower6EndBattleText2 ; TextEndBattle
dw PokemonTower6EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_6_TRAINER_1, 3, PokemonTower6BattleText2, PokemonTower6EndBattleText2, PokemonTower6AfterBattleText2
PokemonTower6TrainerHeader2:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_6_TRAINER_2
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_6_TRAINER_2
dw PokemonTower6BattleText3 ; TextBeforeBattle
dw PokemonTower6AfterBattleText3 ; TextAfterBattle
dw PokemonTower6EndBattleText3 ; TextEndBattle
dw PokemonTower6EndBattleText3 ; TextEndBattle
db $ff
trainer EVENT_BEAT_POKEMONTOWER_6_TRAINER_2, 2, PokemonTower6BattleText3, PokemonTower6EndBattleText3, PokemonTower6AfterBattleText3
db -1 ; end
PokemonTower6Text1:
TX_ASM
text_asm
ld hl, PokemonTower6TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PokemonTower6Text2:
TX_ASM
text_asm
ld hl, PokemonTower6TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
PokemonTower6Text3:
TX_ASM
text_asm
ld hl, PokemonTower6TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
PokemonTower6Text7:
TX_ASM
text_asm
ld hl, PokemonTower2Text_60c1f
call PrintText
ld a, MAROWAK
ld a, RESTLESS_SOUL
call PlayCry
call WaitForSoundToFinish
ld c, 30
@ -164,49 +144,49 @@ PokemonTower6Text7:
jp TextScriptEnd
PokemonTower2Text_60c1f:
TX_FAR _PokemonTower2Text_60c1f
db "@"
text_far _PokemonTower2Text_60c1f
text_end
PokemonTower2Text_60c24:
TX_FAR _PokemonTower2Text_60c24
db "@"
text_far _PokemonTower2Text_60c24
text_end
PokemonTower6BattleText1:
TX_FAR _PokemonTower6BattleText1
db "@"
text_far _PokemonTower6BattleText1
text_end
PokemonTower6EndBattleText1:
TX_FAR _PokemonTower6EndBattleText1
db "@"
text_far _PokemonTower6EndBattleText1
text_end
PokemonTower6AfterBattleText1:
TX_FAR _PokemonTower6AfterBattleText1
db "@"
text_far _PokemonTower6AfterBattleText1
text_end
PokemonTower6BattleText2:
TX_FAR _PokemonTower6BattleText2
db "@"
text_far _PokemonTower6BattleText2
text_end
PokemonTower6EndBattleText2:
TX_FAR _PokemonTower6EndBattleText2
db "@"
text_far _PokemonTower6EndBattleText2
text_end
PokemonTower6AfterBattleText2:
TX_FAR _PokemonTower6AfterBattleText2
db "@"
text_far _PokemonTower6AfterBattleText2
text_end
PokemonTower6BattleText3:
TX_FAR _PokemonTower6BattleText3
db "@"
text_far _PokemonTower6BattleText3
text_end
PokemonTower6EndBattleText3:
TX_FAR _PokemonTower6EndBattleText3
db "@"
text_far _PokemonTower6EndBattleText3
text_end
PokemonTower6AfterBattleText3:
TX_FAR _PokemonTower6AfterBattleText3
db "@"
text_far _PokemonTower6AfterBattleText3
text_end
PokemonTower6Text6:
TX_FAR _PokemonTower6Text6
db "@"
text_far _PokemonTower6Text6
text_end

133
scripts/PokemonTower7F.asm Executable file → Normal file
View file

@ -31,7 +31,7 @@ PokemonTower7Script2:
ld a, $f0
ld [wJoyIgnore], a
ld a, [wSpriteIndex]
ld [hSpriteIndexOrTextID], a
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
call PokemonTower7Script_60db6
ld a, $3
@ -70,9 +70,9 @@ PokemonTower7Script4:
ld [wMissableObjectIndex], a
predef HideObject
ld a, SPRITE_FACING_UP
ld [wSpriteStateData1 + 9], a
ld [wSpritePlayerStateData1FacingDirection], a
ld a, MR_FUJIS_HOUSE
ld [hWarpDestinationMap], a
ldh [hWarpDestinationMap], a
ld a, $1
ld [wDestinationWarpID], a
ld a, LAVENDER_TOWN
@ -107,7 +107,7 @@ PokemonTower7Script_60db6:
ld d, [hl]
ld e, a
ld a, [wSpriteIndex]
ld [H_SPRITEINDEX], a
ldh [hSpriteIndex], a
jp MoveSprite
.asm_60dde
inc hl
@ -117,30 +117,18 @@ PokemonTower7Script_60db6:
jr .asm_60dcb
CoordsData_60de3:
db $0C,$09
dw MovementData_60e13
db $0B,$0A
dw MovementData_60e1b
db $0B,$0B
dw MovementData_60e22
db $0B,$0C
dw MovementData_60e22
db $0A,$0C
dw MovementData_60e28
db $09,$0B
dw MovementData_60e30
db $09,$0A
dw MovementData_60e22
db $09,$09
dw MovementData_60e22
db $08,$09
dw MovementData_60e37
db $07,$0A
dw MovementData_60e22
db $07,$0B
dw MovementData_60e22
db $07,$0C
dw MovementData_60e22
map_coord_movement 9, 12, MovementData_60e13
map_coord_movement 10, 11, MovementData_60e1b
map_coord_movement 11, 11, MovementData_60e22
map_coord_movement 12, 11, MovementData_60e22
map_coord_movement 12, 10, MovementData_60e28
map_coord_movement 11, 9, MovementData_60e30
map_coord_movement 10, 9, MovementData_60e22
map_coord_movement 9, 9, MovementData_60e22
map_coord_movement 9, 8, MovementData_60e37
map_coord_movement 10, 7, MovementData_60e22
map_coord_movement 11, 7, MovementData_60e22
map_coord_movement 12, 7, MovementData_60e22
MovementData_60e13:
db NPC_MOVEMENT_RIGHT
@ -150,7 +138,7 @@ MovementData_60e13:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_LEFT
db $FF
db -1 ; end
MovementData_60e1b:
db NPC_MOVEMENT_DOWN
@ -159,7 +147,7 @@ MovementData_60e1b:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
MovementData_60e22:
db NPC_MOVEMENT_DOWN
@ -167,7 +155,7 @@ MovementData_60e22:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
MovementData_60e28:
db NPC_MOVEMENT_LEFT
@ -177,7 +165,7 @@ MovementData_60e28:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
MovementData_60e30:
db NPC_MOVEMENT_DOWN
@ -186,7 +174,7 @@ MovementData_60e30:
db NPC_MOVEMENT_LEFT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
MovementData_60e37:
db NPC_MOVEMENT_RIGHT
@ -196,7 +184,7 @@ MovementData_60e37:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
db -1 ; end
PokemonTower7F_TextPointers:
dw PokemonTower7Text1
@ -205,54 +193,33 @@ PokemonTower7F_TextPointers:
dw PokemonTower7FujiText
PokemonTower7TrainerHeader0:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_7_TRAINER_0
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_7_TRAINER_0
dw PokemonTower7BattleText1 ; TextBeforeBattle
dw PokemonTower7AfterBattleText1 ; TextAfterBattle
dw PokemonTower7EndBattleText1 ; TextEndBattle
dw PokemonTower7EndBattleText1 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_7_TRAINER_0, 3, PokemonTower7BattleText1, PokemonTower7EndBattleText1, PokemonTower7AfterBattleText1
PokemonTower7TrainerHeader1:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_7_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_7_TRAINER_1
dw PokemonTower7BattleText2 ; TextBeforeBattle
dw PokemonTower7AfterBattleText2 ; TextAfterBattle
dw PokemonTower7EndBattleText2 ; TextEndBattle
dw PokemonTower7EndBattleText2 ; TextEndBattle
trainer EVENT_BEAT_POKEMONTOWER_7_TRAINER_1, 3, PokemonTower7BattleText2, PokemonTower7EndBattleText2, PokemonTower7AfterBattleText2
PokemonTower7TrainerHeader2:
dbEventFlagBit EVENT_BEAT_POKEMONTOWER_7_TRAINER_2
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_7_TRAINER_2
dw PokemonTower7BattleText3 ; TextBeforeBattle
dw PokemonTower7AfterBattleText3 ; TextAfterBattle
dw PokemonTower7EndBattleText3 ; TextEndBattle
dw PokemonTower7EndBattleText3 ; TextEndBattle
db $ff
trainer EVENT_BEAT_POKEMONTOWER_7_TRAINER_2, 3, PokemonTower7BattleText3, PokemonTower7EndBattleText3, PokemonTower7AfterBattleText3
db -1 ; end
PokemonTower7Text1:
TX_ASM
text_asm
ld hl, PokemonTower7TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PokemonTower7Text2:
TX_ASM
text_asm
ld hl, PokemonTower7TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
PokemonTower7Text3:
TX_ASM
text_asm
ld hl, PokemonTower7TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
PokemonTower7FujiText:
TX_ASM
text_asm
ld hl, TowerRescueFujiText
call PrintText
SetEvent EVENT_RESCUED_MR_FUJI
@ -272,41 +239,41 @@ PokemonTower7FujiText:
jp TextScriptEnd
TowerRescueFujiText:
TX_FAR _TowerRescueFujiText
db "@"
text_far _TowerRescueFujiText
text_end
PokemonTower7BattleText1:
TX_FAR _PokemonTower7BattleText1
db "@"
text_far _PokemonTower7BattleText1
text_end
PokemonTower7EndBattleText1:
TX_FAR _PokemonTower7EndBattleText1
db "@"
text_far _PokemonTower7EndBattleText1
text_end
PokemonTower7AfterBattleText1:
TX_FAR _PokemonTower7AfterBattleText1
db "@"
text_far _PokemonTower7AfterBattleText1
text_end
PokemonTower7BattleText2:
TX_FAR _PokemonTower7BattleText2
db "@"
text_far _PokemonTower7BattleText2
text_end
PokemonTower7EndBattleText2:
TX_FAR _PokemonTower7EndBattleText2
db "@"
text_far _PokemonTower7EndBattleText2
text_end
PokemonTower7AfterBattleText2:
TX_FAR _PokemonTower7AfterBattleText2
db "@"
text_far _PokemonTower7AfterBattleText2
text_end
PokemonTower7BattleText3:
TX_FAR _PokemonTower7BattleText3
db "@"
text_far _PokemonTower7BattleText3
text_end
PokemonTower7EndBattleText3:
TX_FAR _PokemonTower7EndBattleText3
db "@"
text_far _PokemonTower7EndBattleText3
text_end
PokemonTower7AfterBattleText3:
TX_FAR _PokemonTower7AfterBattleText3
db "@"
text_far _PokemonTower7AfterBattleText3
text_end

111
scripts/PowerPlant.asm Executable file → Normal file
View file

@ -7,7 +7,7 @@ PowerPlant_Script:
ld [wPowerPlantCurScript], a
ret
PowerPlant_ScriptPointers
PowerPlant_ScriptPointers:
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
@ -29,87 +29,24 @@ PowerPlant_TextPointers:
dw PickUpItemText
Voltorb0TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_0
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_0
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_0, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb1TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_1
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_1
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_1, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb2TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_2
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_2
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_2, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb3TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_3
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_3
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_3, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb4TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_4
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_4
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_4, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb5TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_5
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_5
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_5, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb6TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_6
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_6
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_6, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
Voltorb7TrainerHeader:
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_7, 1
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_7, 1
dw VoltorbBattleText ; TextBeforeBattle
dw VoltorbBattleText ; TextAfterBattle
dw VoltorbBattleText ; TextEndBattle
dw VoltorbBattleText ; TextEndBattle
trainer EVENT_BEAT_POWER_PLANT_VOLTORB_7, 1, 0, VoltorbBattleText, VoltorbBattleText, VoltorbBattleText
ZapdosTrainerHeader:
dbEventFlagBit EVENT_BEAT_ZAPDOS, 1
db 0 ; view range
dwEventFlagAddress EVENT_BEAT_ZAPDOS, 1
dw ZapdosBattleText ; TextBeforeBattle
dw ZapdosBattleText ; TextAfterBattle
dw ZapdosBattleText ; TextEndBattle
dw ZapdosBattleText ; TextEndBattle
db $ff
trainer EVENT_BEAT_ZAPDOS, 1, 0, ZapdosBattleText, ZapdosBattleText, ZapdosBattleText
db -1 ; end
InitVoltorbBattle:
call TalkToTrainer
@ -118,57 +55,57 @@ InitVoltorbBattle:
jp TextScriptEnd
Voltorb0Text:
TX_ASM
text_asm
ld hl, Voltorb0TrainerHeader
jr InitVoltorbBattle
Voltorb1Text:
TX_ASM
text_asm
ld hl, Voltorb1TrainerHeader
jr InitVoltorbBattle
Voltorb2Text:
TX_ASM
text_asm
ld hl, Voltorb2TrainerHeader
jr InitVoltorbBattle
Voltorb3Text:
TX_ASM
text_asm
ld hl, Voltorb3TrainerHeader
jr InitVoltorbBattle
Voltorb4Text:
TX_ASM
text_asm
ld hl, Voltorb4TrainerHeader
jr InitVoltorbBattle
Voltorb5Text:
TX_ASM
text_asm
ld hl, Voltorb5TrainerHeader
jr InitVoltorbBattle
Voltorb6Text:
TX_ASM
text_asm
ld hl, Voltorb6TrainerHeader
jr InitVoltorbBattle
Voltorb7Text:
TX_ASM
text_asm
ld hl, Voltorb7TrainerHeader
jr InitVoltorbBattle
ZapdosText:
TX_ASM
text_asm
ld hl, ZapdosTrainerHeader
jr InitVoltorbBattle
VoltorbBattleText:
TX_FAR _VoltorbBattleText
db "@"
text_far _VoltorbBattleText
text_end
ZapdosBattleText:
TX_FAR _ZapdosBattleText
TX_ASM
text_far _ZapdosBattleText
text_asm
ld a, ZAPDOS
call PlayCry
call WaitForSoundToFinish

42
scripts/RedsHouse1F.asm Executable file → Normal file
View file

@ -2,14 +2,14 @@ RedsHouse1F_Script:
jp EnableAutoTextBoxDrawing
RedsHouse1F_TextPointers:
dw RedsHouse1FText1
dw RedsHouse1FText2
dw RedsHouse1FMomText
dw RedsHouse1FTVText
RedsHouse1FText1: ; Mom
TX_ASM
RedsHouse1FMomText:
text_asm
ld a, [wd72e]
bit 3, a
jr nz, .heal ; if player has received a Pokémon from Oak, heal team
bit 3, a ; received a Pokémon from Oak?
jr nz, .heal
ld hl, MomWakeUpText
call PrintText
jr .done
@ -19,8 +19,8 @@ RedsHouse1FText1: ; Mom
jp TextScriptEnd
MomWakeUpText:
TX_FAR _MomWakeUpText
db "@"
text_far _MomWakeUpText
text_end
MomHealPokemon:
ld hl, MomHealText1
@ -40,27 +40,27 @@ MomHealPokemon:
jp PrintText
MomHealText1:
TX_FAR _MomHealText1
db "@"
text_far _MomHealText1
text_end
MomHealText2:
TX_FAR _MomHealText2
db "@"
text_far _MomHealText2
text_end
RedsHouse1FText2: ; TV
TX_ASM
ld a, [wSpriteStateData1 + 9]
RedsHouse1FTVText:
text_asm
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_UP
ld hl, TVWrongSideText
jr nz, .notUp
jr nz, .got_text
ld hl, StandByMeText
.notUp
.got_text
call PrintText
jp TextScriptEnd
StandByMeText:
TX_FAR _StandByMeText
db "@"
text_far _StandByMeText
text_end
TVWrongSideText:
TX_FAR _TVWrongSideText
db "@"
text_far _TVWrongSideText
text_end

Some files were not shown because too many files have changed in this diff Show more