diff options
| -rw-r--r-- | Makefile | 17 | ||||
| -rw-r--r-- | common.asm | 41477 | ||||
| -rw-r--r-- | gfx/blue/blueversion.1bpp | bin | 0 -> 64 bytes | |||
| -rw-r--r-- | gfx/blue/introfight.2bpp | bin | 0 -> 1680 bytes | |||
| -rw-r--r-- | gfx/blue/slotmachine1.2bpp | bin | 0 -> 432 bytes | |||
| -rw-r--r-- | gfx/blue/slotmachine2.2bpp | bin | 0 -> 384 bytes | |||
| -rw-r--r-- | gfx/blue/supergameboyborder.2bpp | bin | 0 -> 1536 bytes | |||
| -rw-r--r-- | gfx/red/introfight.2bpp | bin | 0 -> 1680 bytes | |||
| -rw-r--r-- | gfx/red/redgreenversion.1bpp (renamed from gfx/redgreenversion.1bpp) | bin | 80 -> 80 bytes | |||
| -rw-r--r-- | gfx/red/slotmachine1.2bpp | bin | 0 -> 432 bytes | |||
| -rw-r--r-- | gfx/red/slotmachine2.2bpp | bin | 0 -> 384 bytes | |||
| -rw-r--r-- | gfx/red/supergameboyborder.2bpp | bin | 0 -> 1536 bytes | |||
| -rw-r--r-- | pokeblue.asm | 3 | ||||
| -rw-r--r-- | pokered.asm | 41470 |
14 files changed, 41496 insertions, 41471 deletions
@@ -5,8 +5,11 @@ TEXTFILES = text/oakspeech.tx text/pokedex.tx text/mapRedsHouse1F.tx \ all: pokered.gbc -pokered.o: pokered.tx constants.asm ${TEXTFILES} - rgbasm -o pokered.o pokered.tx +pokered.o: pokered.asm common.tx constants.asm ${TEXTFILES} + rgbasm -o pokered.o pokered.asm + +pokeblue.o: pokeblue.asm common.tx constants.asm ${TEXTFILES} + rgbasm -o pokeblue.o pokeblue.asm redrle: extras/redrle.c ${CC} -o $@ $> @@ -14,10 +17,16 @@ redrle: extras/redrle.c .asm.tx: awk -f textpre.awk < $< > $@ -.o.gbc: +pokered.gbc: pokered.o rgblink -o $@ $< rgbfix -jsv -k 01 -l 0x33 -m 0x13 -p 0 -r 03 -t "POKEMON RED" $@ cmp baserom.gbc $@ + +pokeblue.gbc: pokeblue.o + rgblink -o $@ $< + rgbfix -jsv -k 01 -l 0x33 -m 0x13 -p 0 -r 03 -t "POKEMON BLUE" $@ clean: - rm -f pokered.tx pokered.o pokered.gbc redrle ${TEXTFILES} + rm -f common.tx pokered.o pokered.gbc pokeblue.o pokeblue.gbc redrle ${TEXTFILES} + +more: pokered.gbc pokeblue.gbc
\ No newline at end of file diff --git a/common.asm b/common.asm new file mode 100644 index 00000000..6830b5a0 --- /dev/null +++ b/common.asm @@ -0,0 +1,41477 @@ +INCLUDE "constants.asm" + +; the rst vectors are unused +SECTION "rst00",HOME[0] + db $FF +SECTION "rst08",HOME[8] + db $FF +SECTION "rst10",HOME[$10] + db $FF +SECTION "rst18",HOME[$18] + db $FF +SECTION "rst20",HOME[$20] + db $FF +SECTION "rst28",HOME[$28] + db $FF +SECTION "rst30",HOME[$30] + db $FF +SECTION "rst38",HOME[$38] + db $FF + +; interrupts +SECTION "vblank",HOME[$40] + jp $2024 +SECTION "lcdc",HOME[$48] + db $FF +SECTION "timer",HOME[$50] + jp $2306 +SECTION "serial",HOME[$58] + jp $2125 +SECTION "joypad",HOME[$60] + reti + +SECTION "bank0",HOME[$61] +DisableLCD: +;$0061 + xor a + ld [$ff0f],a + ld a,[$ffff] + ld b,a + res 0,a + ld [$ffff],a +.jr0\@ + ld a,[$ff44] + cp a,$91 + jr nz,.jr0\@ + ld a,[$ff40] + and a,$7f ; res 7,a + ld [$ff40],a + ld a,b + ld [$ffff],a + ret + +EnableLCD: +;$007b + ld a,[$ff40] + set 7,a + ld [$ff40],a + ret + +CleanLCD_OAM: +;$0082 + xor a + ld hl,$c300 + ld b,$a0 +.jr0\@ + ld [hli],a + dec b + jr nz,.jr0\@ + ret + +ResetLCD_OAM: +;$008d + ld a,$a0 + ld hl,$c300 + ld de,$0004 + ld b,$28 +.jr0\@ + ld [hl],a + add hl,de + dec b + jr nz,.jr0\@ + ret + +FarCopyData: ; 009D +; copy bc bytes of data from a:hl to de + ld [$CEE9],a ; save future bank # for later + ld a,[$FFB8] ; get current bank # + push af + ld a,[$CEE9] ; get future bank #, switch + ld [$FFB8],a + ld [$2000],a + call CopyData + pop af ; okay, done, time to switch back + ld [$FFB8],a + ld [$2000],a + ret +CopyData: ; 00B5 +; copy bc bytes of data from hl to de + ld a,[hli] + ld [de],a + inc de + dec bc + ld a,c + or b + jr nz,CopyData + ret + +SECTION "romheader",HOME[$100] +nop +jp Start + +Section "start",HOME[$150] +Start: +INCBIN "baserom.gbc",$150,$1AE - $150 +; see also MapHeaderBanks +MapHeaderPointers: ; $01AE + dw PalletTown_h ; PALLET_TOWN + dw ViridianCity_h ; VIRIDIAN_CITY + dw PewterCity_h ; PEWTER_CITY + dw CeruleanCity_h ; CERULEAN_CITY + dw LavenderTown_h ; LAVENDER_TOWN + dw VermilionCity_h ; VERMILION_CITY + dw CeladonCity_h ; CELADON_CITY + dw FuchsiaCity_h ; FUCHSIA_CITY + dw CinnabarIsland_h ; CINNABAR_ISLAND + dw IndigoPlateau_h ; INDIGO_PLATEAU + dw SaffronCity_h ; SAFFRON_CITY + dw SaffronCity_h ; unused + dw Route1_h ; ROUTE_1 + dw $4000 ; ROUTE_2 + dw Route3_h ; ROUTE_3 + dw Route4_h ; ROUTE_4 + dw Route5_h ; ROUTE_5 + dw Route6_h ; ROUTE_6 + dw Route7_h ; ROUTE_7 + dw Route8_h ; ROUTE_8 + dw Route9_h ; ROUTE_9 + dw Route10_h ; ROUTE_10 + dw Route11_h ; ROUTE_11 + dw Route12_h ; ROUTE_12 + dw Route13_h ; ROUTE_13 + dw Route14_h ; ROUTE_14 + dw Route15_h ; ROUTE_15 + dw Route16_h ; ROUTE_16 + dw Route17_h ; ROUTE_17 + dw Route18_h ; ROUTE_18 + dw Route19_h ; ROUTE_19 + dw Route20_h ; ROUTE_20 + dw Route21_h ; ROUTE_21 + dw Route22_h ; ROUTE_22 + dw Route23_h ; ROUTE_23 + dw Route24_h ; ROUTE_24 + dw Route25_h ; ROUTE_25 + dw RedsHouse1F_h + dw RedsHouse2F_h + dw BluesHouse_h + dw OaksLab_h + dw ViridianPokecenter_h + dw ViridianMart_h + dw School_h + dw ViridianHouse_h + dw ViridianGym_h + dw DiglettsCaveRoute2_h + dw ViridianForestexit_h + dw Route2House_h + dw Route2Gate_h + dw ViridianForestEntrance_h + dw ViridianForest_h + dw MuseumF1_h + dw MuseumF2_h + dw PewterGym_h + dw PewterHouse1_h + dw PewterMart_h + dw PewterHouse2_h + dw PewterPokecenter_h + dw MtMoon1_h + dw MtMoon2_h + dw MtMoon3_h + dw CeruleanHouseTrashed_h + dw CeruleanHouse2_h + dw CeruleanPokecenter_h + dw CeruleanGym_h + dw BikeShop_h + dw CeruleanMart_h + dw MtMoonPokecenter_h + dw CeruleanHouseTrashed_h ; copy of map 62 + dw Route5Gate_h + dw UndergroundTunnelEntranceRoute5_h + dw DayCareM_h + dw Route6Gate_h + dw UndergroundTunnelEntranceRoute6_h + dw $56e3 ; id=75 + dw Route7Gate_h + dw UndergroundPathEntranceRoute7_h + dw $575d + dw Route8Gate_h + dw UndergroundPathEntranceRoute8_h + dw RockTunnelPokecenter_h + dw RockTunnel1_h + dw PowerPlant_h + dw Route11Gate_h + dw DiglettsCaveEntranceRoute11_h + dw Route11GateUpstairs_h + dw Route12Gate_h + dw BillsHouse_h + dw VermilionPokecenter_h + dw FanClub_h + dw VermilionMart_h + dw VermilionGym_h + dw VermilionHouse1_h + dw VermilionDock_h + dw SSAnne1_h + dw SSAnne2_h + dw SSAnne3_h + dw SSAnne4_h + dw SSAnne5_h + dw SSAnne6_h + dw SSAnne7_h + dw SSAnne8_h + dw SSAnne9_h + dw SSAnne10_h ; id=104 + dw Lance_h ; unused + dw Lance_h ; unused + dw Lance_h ; unused + dw VictoryRoad1_h ; id=108 + dw Lance_h ; unused + dw Lance_h ; unused + dw Lance_h ; unused + dw Lance_h ; unused + dw Lance_h + dw Lance_h ; unused + dw Lance_h ; unused + dw Lance_h ; unused + dw Lance_h ; unused + dw $6492 + dw UndergroundPathNS_h + dw $5f11 + dw UndergroundPathWE_h + dw CeladonMart1_h + dw CeladonMart2_h + dw CeladonMart3_h + dw CeladonMart4_h + dw CeladonMartRoof_h + dw CeladonMartElevator_h + dw CeladonMansion1_h + dw CeladonMansion2_h + dw CeladonMansion3_h + dw CeladonMansion4_h + dw CeladonMansion5_h + dw CeladonPokecenter_h + dw CeladonGym_h + dw CeladonGameCorner_h + dw CeladonMart5_h + dw CeladonPrizeRoom_h + dw CeladonDiner_h + dw CeladonHouse_h + dw CeladonHotel_h + dw LavenderPokecenter_h + dw PokemonTower1_h + dw PokemonTower2_h + dw PokemonTower3_h + dw PokemonTower4_h + dw PokemonTower5_h + dw PokemonTower6_h + dw PokemonTower7_h + dw LavenderHouse1_h + dw LavenderMart_h + dw LavenderHouse2_h + dw FuchsiaMart_h + dw FuchsiaHouse1_h + dw FuchsiaPokecenter_h + dw FuchsiaHouse2_h + dw SafariZoneEntrance_h + dw FuchsiaGym_h + dw FuchsiaMeetingRoom_h + dw SeafoamIslands2_h + dw SeafoamIslands3_h + dw SeafoamIslands4_h + dw SeafoamIslands5_h + dw VermilionHouse2_h + dw FuchsiaHouse3_h + dw Mansion1_h + dw CinnabarGym_h + dw Lab1_h + dw Lab2_h + dw Lab3_h + dw Lab4_h + dw CinnabarPokecenter_h + dw CinnabarMart_h + dw $5e72 + dw IndigoPlateauLobby_h + dw CopycatsHouseF1_h + dw CopycatsHouseF2_h + dw FightingDojo_h + dw SaffronGym_h + dw SaffronHouse1_h + dw SaffronMart_h + dw SilphCo1_h + dw SaffronPokecenter_h + dw SaffronHouse2_h + dw Route15Gate_h + dw $563e + dw Route16GateMap_h + dw Route16GateUpstairs_h + dw Route16House_h + dw Route12House_h + dw Route18Gate_h + dw Route18GateHeader_h + dw SeafoamIslands1_h + dw Route22Gate_h + dw VictoryRoad2_h + dw Route12GateUpstairs_h + dw VermilionHouse3_h + dw DiglettsCave_h + dw VictoryRoad3_h + dw RocketHideout1_h + dw RocketHideout2_h + dw RocketHideout3_h + dw RocketHideout4_h + dw RocketHideoutElevator_h + dw $5704 + dw $5704 + dw $5704 + dw SilphCo2_h + dw SilphCo3_h ; id=208 + dw SilphCo4_h + dw SilphCo5_h + dw SilphCo6_h + dw SilphCo7_h + dw SilphCo8_h + dw Mansion2_h + dw Mansion3_h + dw Mansion4_h + dw SafariZoneEast_h + dw SafariZoneNorth_h + dw SafariZoneWest_h + dw SafariZoneCenter_h + dw SafariZoneRestHouse1_h + dw SafariZoneSecretHouse_h + dw SafariZoneRestHouse2_h + dw SafariZoneRestHouse3_h + dw SafariZoneRestHouse4_h + dw UnknownDungeon2_h + dw UnknownDungeon3_h + dw UnknownDungeon1_h + dw NameRater_h + dw CeruleanHouse3_h + dw $56b2 + dw RockTunnel2_h + dw SilphCo9_h + dw SilphCo10_h + dw SilphCo11_h + dw SilphCoElevator_h + dw $5ce5 + dw $5ce5 + dw BattleCenterM_h + dw TradeCenterM_h + dw $5CE5 + dw $5CE5 + dw $5CE5 + dw $5CE5 + dw Lorelei_h + dw Bruno_h + dw Agatha_h + +INCBIN "baserom.gbc",$39E,$1627 - $39E + +;XXX what does this do +;XXX what points to this +; offset 1627 + ld bc,$D0B8 + add hl,bc + ld a,[hli] + ld [$D0AB],a + ld a,[hl] + ld [$D0AC],a + +; offset 1633 +; define (by index number) the bank that a pokemon's image is in +; index = Mew, bank 1 +; index = Kabutops fossil, bank $B +; index < $1F, bank 9 +; $1F ≤ index < $4A, bank $A +; $4A ≤ index < $74, bank $B +; $74 ≤ index < $99, bank $C +; $99 ≤ index, bank $D + ld a,[$CF91] ; XXX name for this ram location + ld b,a + cp $15 + ld a,$01 + jr z,.GotBank\@ + ld a,b + cp $B6 + ld a,$0B + jr z,.GotBank\@ + ld a,b + cp $1F + ld a,$09 + jr c,.GotBank\@ + ld a,b + cp $4A + ld a,$0A + jr c,.GotBank\@ + ld a,b + cp $74 + ld a,$0B + jr c,.GotBank\@ + ld a,b + cp $99 + ld a,$0C + jr c,.GotBank\@ + ld a,$0D +.GotBank\@ + jp $24FD + +INCBIN "baserom.gbc",$1665,$172F - $1665 + +Tset0B_Coll: + INCBIN "baserom.gbc",$172F,$1735-$172F +Tset00_Coll: + INCBIN "baserom.gbc",$1735,$1749-$1735 +Tset01_Coll: + INCBIN "baserom.gbc",$1749,$1753-$1749 +Tset02_Coll: + INCBIN "baserom.gbc",$1753,$1759-$1753 +Tset05_Coll: + INCBIN "baserom.gbc",$1759,$1765-$1759 +Tset03_Coll: + INCBIN "baserom.gbc",$1765,$1775-$1765 +Tset08_Coll: + INCBIN "baserom.gbc",$1775,$177F-$1775 +Tset09_Coll: + INCBIN "baserom.gbc",$177F,$178A-$177F +Tset0D_Coll: + INCBIN "baserom.gbc",$178A,$1795-$178A +Tset0E_Coll: + INCBIN "baserom.gbc",$1795,$179A-$1795 +Tset0F_Coll: + INCBIN "baserom.gbc",$179A,$17A2-$179A +Tset10_Coll: + INCBIN "baserom.gbc",$17A2,$17AC-$17A2 +Tset11_Coll: + INCBIN "baserom.gbc",$17AC,$17B8-$17AC +Tset12_Coll: + INCBIN "baserom.gbc",$17B8,$17C0-$17B8 +Tset13_Coll: + INCBIN "baserom.gbc",$17C0,$17CA-$17C0 +Tset14_Coll: + INCBIN "baserom.gbc",$17CA,$17D1-$17CA +Tset15_Coll: + INCBIN "baserom.gbc",$17D1,$17DD-$17D1 +Tset16_Coll: + INCBIN "baserom.gbc",$17DD,$17F0-$17DD +Tset17_Coll: + INCBIN "baserom.gbc",$17F0,$190F-$17F0 + +ClearScreen: ; 190F +; clears all tiles in the tilemap, +; then wait three frames + ld bc,$0168 ; tilemap size + inc b + ld hl,$C3A0 ; TILEMAP_START + ld a,$7F ; $7F is blank tile +.loop\@ + ld [hli],a + dec c + jr nz,.loop\@ + dec b + jr nz,.loop\@ + jp Delay3 + +TextBoxBorder: ; 1922 +; draw a text box +; upper-left corner at coordinates hl +; height b +; width c + + ; first row + push hl + ld a,"┌" + ld [hli],a + inc a ; horizontal border ─ + call NPlaceChar + inc a ; upper-right border ┐ + ld [hl],a + + ; middle rows + pop hl + ld de,20 + add hl,de ; skip the top row + +.PlaceRow\@ + push hl + ld a,"│" + ld [hli],a + ld a," " + call NPlaceChar + ld [hl],"│" + + pop hl + ld de,20 + add hl,de ; move to next row + dec b + jr nz,.PlaceRow\@ + + ; bottom row + ld a,"└" + ld [hli],a + ld a,"─" + call NPlaceChar + ld [hl],"┘" + ret +; +NPlaceChar: +; place a row of width c of identical characters + ld d,c +.loop\@ + ld [hli],a + dec d + jr nz,.loop\@ + ret + +PlaceString: ; 1955 + push hl +PlaceNextChar: ; 1956 + ld a,[de] + + cp "@" + jr nz,.PlaceText\@ + ld b,h + ld c,l + pop hl + ret + +.PlaceText\@ + cp $4E + jr nz,.next\@ + ld bc,$0028 + ld a,[$FFF6] + bit 2,a + jr z,.next2\@ + ld bc,$14 +.next2\@ + pop hl + add hl,bc + push hl + jp Next19E8 + +.next\@ + cp $4F + jr nz,.next3\@ + pop hl + ld hl,$C4E1 + push hl + jp Next19E8 + +.next3\@ ; Check against a dictionary + and a + jp z,Char00 + cp $4C + jp z,$1B0A + cp $4B + jp z,Char4B + cp $51 + jp z,Char51 + cp $49 + jp z,Char49 + cp $52 + jp z,Char52 + cp $53 + jp z,Char53 + cp $54 + jp z,Char54 + cp $5B + jp z,Char5B + cp $5E + jp z,Char5E + cp $5C + jp z,Char5C + cp $5D + jp z,Char5D + cp $55 + jp z,$1A7C + cp $56 + jp z,Char56 + cp $57 + jp z,$1AAD + cp $58 + jp z,Char58 + cp $4A + jp z,Char4A + cp $5F + jp z,Char5F + cp $59 + jp z,Char59 + cp $5A + jp z,Char5A + ld [hli],a + call $38D3 +Next19E8: + inc de + jp PlaceNextChar + +Char00: + ld b,h + ld c,l + pop hl + ld de,Char00Text + dec de + ret + +Char00Text: ; “%d ERROR.” + TX_FAR _Char00Text + db "@" + +Char52: ; player’s name + push de + ld de,W_PLAYERNAME + jr FinishDTE + +Char53: ; rival’s name + push de + ld de,W_RIVALNAME + jr FinishDTE + +Char5D: ; TRAINER + push de + ld de,Char5DText + jr FinishDTE + +Char5C: ; TM + push de + ld de,Char5CText + jr FinishDTE + +Char5B: ; PC + push de + ld de,Char5BText + jr FinishDTE + +Char5E: ; ROCKET + push de + ld de,Char5EText + jr FinishDTE + +Char54: ; POKé + push de + ld de,Char54Text + jr FinishDTE + +Char56: ; …… + push de + ld de,Char56Text + jr FinishDTE + +Char4A: ; PKMN + push de + ld de,Char4AText + jr FinishDTE + +Char59: +; depending on whose turn it is, print +; enemy active monster’s name, prefixed with “Enemy ” +; or +; player active monster’s name +; (like Char5A but flipped) + ld a,[H_WHOSETURN] + xor 1 + jr MonsterNameCharsCommon + +Char5A: +; depending on whose turn it is, print +; player active monster’s name +; or +; enemy active monster’s name, prefixed with “Enemy ” + ld a,[H_WHOSETURN] +MonsterNameCharsCommon: + push de + and a + jr nz,.Enemy\@ + ld de,$D009 ; player active monster name + jr FinishDTE + +.Enemy\@ ; 1A40 + ; print “Enemy ” + ld de,Char5AText + call PlaceString + + ld h,b + ld l,c + ld de,$CFDA ; enemy active monster name + +FinishDTE: + call PlaceString + ld h,b + ld l,c + pop de + inc de + jp PlaceNextChar + +Char5CText: + db "TM@" +Char5DText: + db "TRAINER@" +Char5BText: + db "PC@" +Char5EText: + db "ROCKET@" +Char54Text: + db "POKé@" +Char56Text: + db "……@" +Char5AText: + db "Enemy @" +Char4AText: + db $E1,$E2,"@" ; PKMN + +Char55: + push de + ld b,h + ld c,l + ld hl,Char55Text + call $1B40 + ld h,b + ld l,c + pop de + inc de + jp PlaceNextChar + +Char55Text: +; equivalent to Char4B + TX_FAR _Char55Text + db "@" + +Char5F: +; ends a Pokédex entry + ld [hl],"." + pop hl + ret + +Char58: + ld a,[$D12B] + cp 4 + jp z,Next1AA2 + ld a,$EE + ld [$C4F2],a +Next1AA2: + call ProtectedDelay3 + call $3898 + ld a,$7F + ld [$C4F2],a + pop hl + ld de,Char58Text + dec de + ret + +Char58Text: + db "@" + +Char51: + push de + ld a,$EE + ld [$C4F2],a + call ProtectedDelay3 + call $3898 + ld hl,$C4A5 + ld bc,$0412 + call $18C4 + ld c,$14 + call DelayFrames + pop de + ld hl,$C4B9 + jp Next19E8 + +Char49: + push de + ld a,$EE + ld [$C4F2],a + call ProtectedDelay3 + call $3898 + ld hl,$C469 + ld bc,$0712 + call $18C4 + ld c,$14 + call DelayFrames + pop de + pop hl + ld hl,$C47D + push hl + jp Next19E8 + +Char4B: + ld a,$EE + ld [$C4F2],a + call ProtectedDelay3 + push de + call $3898 + pop de + ld a,$7F + ld [$C4F2],a + push de + call Next1B18 + call Next1B18 + ld hl,$C4E1 + pop de + jp Next19E8 + +Next1B18: + ld hl,$C4B8 + ld de,$C4A4 + ld b,$3C +.next\@ + ld a,[hli] + ld [de],a + inc de + dec b + jr nz,.next\@ + ld hl,$C4E1 + ld a,$7F + ld b,$12 +.next2\@ + ld [hli],a + dec b + jr nz,.next2\@ + + ; wait five frames + ld b,5 +.WaitFrame\@ + call DelayFrame + dec b + jr nz,.WaitFrame\@ + + ret + +ProtectedDelay3: + push bc + call Delay3 + pop bc + ret + +INCBIN "baserom.gbc",$1B40,$20AF - $1B40 + +DelayFrame: ; 20AF +; delay for one frame + ld a,1 + ld [$FFD6],a + +; wait for the next Vblank, halting to conserve battery +.halt\@ + db $76 ; XXX this is a hack--rgbasm adds a nop after this instr + ; even when ints are enabled + ld a,[$FFD6] + and a + jr nz,.halt\@ + + ret + +; These routines manage gradual fading +; (e.g., entering a doorway) +LoadGBPal: ; 20BA + ld a,[$d35d] ;tells if cur.map is dark + ld b,a ;(requires HM5_FLASH?) + ld hl,GBPalTable_00 ;16 + ld a,l + sub b + ld l,a + jr nc,.jr0\@ + dec h +.jr0\@ + ld a,[hli] + ld [rBGP],a + ld a,[hli] + ld [rOBP0],a + ld a,[hli] + ld [rOBP1],a + ret + +GBFadeOut1: ; 20D1 + ld hl,IncGradGBPalTable_01 ;0d + ld b,$04 + jr GBFadeOutCommon + +GBFadeOut2: ; 20D8 + ld hl,IncGradGBPalTable_02 ;1c + ld b,$03 + +GBFadeOutCommon: + ld a,[hli] + ld [rBGP],a + ld a,[hli] + ld [rOBP0],a + ld a,[hli] + ld [rOBP1],a + ld c,8 + call DelayFrames + dec b + jr nz,GBFadeOutCommon + ret + +GBFadeIn1: ; 20EF + ld hl,DecGradGBPalTable_01 ;18 + ld b,$04 + jr GBFadeInCommon + +GBFadeIn2: ; 20F6 + ld hl,DecGradGBPalTable_02 ;21 + ld b,$03 + +GBFadeInCommon: + ld a,[hld] + ld [rOBP1],a + ld a,[hld] + ld [rOBP0],a + ld a,[hld] + ld [rBGP],a + ld c,8 + call DelayFrames + dec b + jr nz,GBFadeInCommon + ret + +IncGradGBPalTable_01: ; 210D + db %11111111 ;BG Pal + db %11111111 ;OBJ Pal 1 + db %11111111 ;OBJ Pal 2 + ;and so on... + db %11111110 + db %11111110 + db %11111000 + + db %11111001 + db %11100100 + db %11100100 +GBPalTable_00: ;16 + db %11100100 + db %11010000 +DecGradGBPalTable_01: ;18 + db %11100000 + ;19 + db %11100100 + db %11010000 + db %11100000 +IncGradGBPalTable_02: ;1c + db %10010000 + db %10000000 + db %10010000 + + db %01000000 + db %01000000 +DecGradGBPalTable_02: ;21 + db %01000000 + + db %00000000 + db %00000000 + db %00000000 + +INCBIN "baserom.gbc",$2125,$2442 - $2125 + +; XXX where is the pointer to this data? +MartInventories: ; 2442 + ; first byte $FE, next byte # of items, last byte $FF + +; Viridian +ViridianMartText4: ; XXX confirm + db $FE,4,POKE_BALL,ANTIDOTE,PARLYZ_HEAL,BURN_HEAL,$FF + +; Pewter +PewterMartText1: + db $FE,7,POKE_BALL,POTION,ESCAPE_ROPE,ANTIDOTE,BURN_HEAL,AWAKENING + db PARLYZ_HEAL,$FF + +; Cerulean +CeruleanMartText1: + db $FE,7,POKE_BALL,POTION,REPEL,ANTIDOTE,BURN_HEAL,AWAKENING + db PARLYZ_HEAL,$FF + +; Bike shop + db $FE,1,BICYCLE,$FF + +; Vermilion +VermilionMartText1: + db $FE,6,POKE_BALL,SUPER_POTION,ICE_HEAL,AWAKENING,PARLYZ_HEAL + db REPEL,$FF + +; Lavender +LavenderMartText1: + db $FE,9,GREAT_BALL,SUPER_POTION,REVIVE,ESCAPE_ROPE,SUPER_REPEL + db ANTIDOTE,BURN_HEAL,ICE_HEAL,PARLYZ_HEAL,$FF + +; Celadon Dept. Store 2F (1) +CeladonMart2Text1: + db $FE,9,GREAT_BALL,SUPER_POTION,REVIVE,SUPER_REPEL,ANTIDOTE + db BURN_HEAL,ICE_HEAL,AWAKENING,PARLYZ_HEAL,$FF + +; Celadon Dept. Store 2F (2) +CeladonMart2Text2: + db $FE,9,TM_32,TM_33,TM_02,TM_07,TM_37,TM_01,TM_05,TM_09,TM_17,$FF + +; Celadon Dept. Store 4F +CeladonMart4Text1: + db $FE,5,POKE_DOLL,FIRE_STONE,THUNDER_STONE,WATER_STONE,LEAF_STONE,$FF + +; Celadon Dept. Store 5F (1) +CeladonMart5Text3: + db $FE,7,X_ACCURACY,GUARD_SPEC_,DIRE_HIT,X_ATTACK,X_DEFEND,X_SPEED + db X_SPECIAL,$FF + +; Celadon Dept. Store 5F (2) +CeladonMart5Text4: + db $FE,5,HP_UP,PROTEIN,IRON,CARBOS,CALCIUM,$FF + +; Fuchsia +FuchsiaMartText1: + db $FE,6,ULTRA_BALL,GREAT_BALL,SUPER_POTION,REVIVE,FULL_HEAL + db SUPER_REPEL,$FF + +; unused? + db $FE,5,GREAT_BALL,HYPER_POTION,SUPER_POTION,FULL_HEAL,REVIVE,$FF + +; Cinnabar +CinnabarMartText1: + db $FE,7,ULTRA_BALL,GREAT_BALL,HYPER_POTION,MAX_REPEL,ESCAPE_ROPE + db FULL_HEAL,REVIVE,$FF + +; Saffron +SaffronMartText1: + db $FE,6,GREAT_BALL,HYPER_POTION,MAX_REPEL,ESCAPE_ROPE,FULL_HEAL + db REVIVE,$FF + +; Indigo +IndigoPlateauLobbyText4: + db $FE,7,ULTRA_BALL,GREAT_BALL,FULL_RESTORE,MAX_POTION,FULL_HEAL + db REVIVE,MAX_REPEL,$FF + +TextScriptEndingChar: + db "@" +TextScriptEnd: ; 24D7 24d7 + ld hl,TextScriptEndingChar + ret + +INCBIN "baserom.gbc",$24DB,$24E5 - $24DB + +VictoryRoad3Text10: +VictoryRoad3Text9: +VictoryRoad3Text8: +VictoryRoad3Text7: +VictoryRoad2Text13: +VictoryRoad2Text12: +VictoryRoad2Text11: +SeafoamIslands1Text2: +SeafoamIslands1Text1: +SeafoamIslands5Text2: +SeafoamIslands5Text1: +SeafoamIslands4Text6: +SeafoamIslands4Text5: +SeafoamIslands4Text4: +SeafoamIslands4Text3: +SeafoamIslands4Text2: +SeafoamIslands4Text1: +SeafoamIslands3Text2: +SeafoamIslands3Text1: +SeafoamIslands2Text2: +SeafoamIslands2Text1: +FuchsiaHouse2Text3: +VictoryRoad1Text7: +VictoryRoad1Text6: ; _VictoryRoad1Text6 +VictoryRoad1Text5: ; 0x24e5 + TX_FAR _VictoryRoad1Text5 + db $50 + +SaffronCityText19: +CinnabarIslandText4: +FuchsiaCityText14: +VermilionCityText9: +LavenderTownText6: +CeruleanCityText14: +PewterCityText8: +ViridianCityText11: ; 0x24ea + TX_FAR _ViridianCityText11 + db $50 + +PewterCityText9: +CeruleanCityText15: +LavenderTownText7: +VermilionCityText10: +CeladonCityText12: +FuchsiaCityText15: +CinnabarIslandText5: +SaffronCityText23: +Route4Text4: +Route10Text8: +ViridianCityText12: ; 0x24ef + TX_FAR _ViridianCityText12 + db $50 + +Route2Text1: +Route4Text3: +Route9Text10: +Route12Text9: +Route12Text10: +Route15Text11: +Route24Text8: +Route25Text10: +ViridianGymText11: +ViridianForestText5: +ViridianForestText6: +ViridianForestText7: +MtMoon1Text8: +MtMoon1Text9: +MtMoon1Text10: +MtMoon1Text11: +MtMoon1Text12: +MtMoon1Text13: +MtMoon3Text8: +MtMoon3Text9: +PowerPlantText10: +PowerPlantText11: +PowerPlantText12: +PowerPlantText13: +PowerPlantText14: +SSAnne8Text10: +SSAnne9Text6: +SSAnne9Text9: +SSAnne10Text9: +SSAnne10Text10: +SSAnne10Text11: +VictoryRoad1Text3: +VictoryRoad1Text4: +PokemonTower3Text4: +PokemonTower4Text4: +PokemonTower4Text5: +PokemonTower4Text6: +PokemonTower5Text6: +PokemonTower6Text4: +PokemonTower6Text5: +FuchsiaHouse2Text2: +VictoryRoad2Text7: +VictoryRoad2Text8: +VictoryRoad2Text9: +VictoryRoad2Text10: +VictoryRoad3Text5: +VictoryRoad3Text6: +RocketHideout1Text6: +RocketHideout1Text7: +RocketHideout2Text2: +RocketHideout2Text3: +RocketHideout2Text4: +RocketHideout2Text5: +RocketHideout3Text3: +RocketHideout3Text4: +RocketHideout4Text5: +RocketHideout4Text6: +RocketHideout4Text7: +RocketHideout4Text8: +RocketHideout4Text9: +SilphCo3Text4: +SilphCo4Text5: +SilphCo4Text6: +SilphCo4Text7: +SilphCo5Text6: +SilphCo5Text7: +SilphCo5Text8: +SilphCo6Text9: +SilphCo6Text10: +SilphCo7Text10: +SilphCo7Text11: +SilphCo7Text12: +Mansion1Text2: +Mansion1Text3: +Mansion2Text2: +Mansion3Text3: +Mansion3Text4: +Mansion4Text3: +Mansion4Text4: +Mansion4Text5: +Mansion4Text6: +Mansion4Text8: +SafariZoneEastText1: +SafariZoneEastText2: +SafariZoneEastText3: +SafariZoneEastText4: +SafariZoneNorthText1: +SafariZoneNorthText2: +SafariZoneWestText1: +SafariZoneWestText2: +SafariZoneWestText3: +SafariZoneWestText4: +SafariZoneCenterText1: +UnknownDungeon2Text1: +UnknownDungeon2Text2: +UnknownDungeon2Text3: +UnknownDungeon3Text2: +UnknownDungeon3Text3: +UnknownDungeon1Text1: +UnknownDungeon1Text2: +UnknownDungeon1Text3: +SilphCo10Text4: +SilphCo10Text5: +SilphCo10Text6: +Route2Text2: ; 24f4 0x424f4 + db $08 ; asm + ld a, $5c + call Predef + jp $24d7 + +INCBIN "baserom.gbc",$24fd,$2f9e - $24fd + +GetMonName: ; 2F9E + push hl + ld a,[$ffb8] + push af + ld a,BANK(MonsterNames) ; 07 + ld [$ffb8],a + ld [$2000],a + ld a,[$d11e] + dec a + ld hl,MonsterNames ; 421E + ld c,10 + ld b,0 + call AddNTimes + ld de,$cd6d + push de + ld bc,10 + call CopyData + ld hl,$cd77 + ld [hl],$50 + pop de + pop af + ld [$ffb8],a + ld [$2000],a + pop hl + ret + +GetItemName: ; 2FCF +; given an item ID at [$D11E], store the name of the item into a string +; starting at $CD6D + push hl + push bc + ld a,[$D11E] + cp HM_01 ; is this a TM/HM? + jr nc,.Machine\@ + + ld [$D0B5],a + ld a,ITEM_NAME + ld [$D0B6],a + ld a,BANK(ItemNames) + ld [$D0B7],a + call GetName + jr .Finish\@ + +.Machine\@ + call GetMachineName +.Finish\@ + ld de,$CD6D ; pointer to where item name is stored in RAM + pop bc + pop hl + ret + +GetMachineName: +; copies the name of the TM/HM in [$D11E] to $CD6D + push hl + push de + push bc + ld a,[$D11E] + push af + cp TM_01 ; is this a TM? [not HM] + jr nc,.WriteTM\@ +; if HM, then write "HM" and add 5 to the item ID, so we can reuse the +; TM printing code + add 5 + ld [$D11E],a + ld hl,HiddenPrefix ; points to "HM" + ld bc,2 + jr .WriteMachinePrefix\@ +.WriteTM\@ + ld hl,TechnicalPrefix ; points to "TM" + ld bc,2 +.WriteMachinePrefix\@ + ld de,$CD6D + call CopyData + +; now get the machine number and convert it to text + ld a,[$D11E] + sub TM_01 - 1 + ld b,$F6 ; "0" +.FirstDigit\@ + sub 10 + jr c,.SecondDigit\@ + inc b + jr .FirstDigit\@ +.SecondDigit\@ + add 10 + push af + ld a,b + ld [de],a + inc de + pop af + ld b,$F6 ; "0" + add b + ld [de],a + inc de + ld a,"@" + ld [de],a + + pop af + ld [$D11E],a + pop bc + pop de + pop hl + ret + +TechnicalPrefix: + db "TM" +HiddenPrefix: + db "HM" + +INCBIN "baserom.gbc",$3040,$31cc - $3040 + +LoadTrainerHeader: ; 0x31cc + call $3157 + xor a + call $3193 + ld a, $2 + call $3193 + ld a, [$cc55] + ld c, a + ld b, $2 + call $31c7 + ld a, c + and a + jr z, .asm_c2964 ; 0x31e3 $8 + ld a, $6 + call $3193 + jp PrintText +.asm_c2964 ; 0x31ed + ld a, $4 + call $3193 + call PrintText + ld a, $a + call $3193 + push de + ld a, $8 + call $3193 + pop de + call $3354 + ld hl, $d733 + set 4, [hl] + ld hl, $cd60 + bit 0, [hl] + ret nz + call $336a + ld hl, $da39 + inc [hl] + jp $325d + call $3306 + ld a, [$cf13] + cp $ff + jr nz, .asm_76c22 ; 0x3221 $8 + xor a + ld [$cf13], a + ld [$cc55], a + ret +.asm_76c22 ; 0x322b + ld hl, $d733 + set 3, [hl] + ld [$cd4f], a + xor a + ld [$cd50], a + ld a, $4c + call Predef + ld a, $f0 + ld [$cd6b], a + xor a + ldh [$b4], a + call $32cf + ld hl, $da39 + inc [hl] + ret + +INCBIN "baserom.gbc",$324c,$3474 - $324c + +FuncTX_F7: ; 3474 +; XXX find a better name for this function +; special_F7 + ld b,BANK(CeladonPrizeMenu) + ld hl,CeladonPrizeMenu + call Bankswitch + jp $29DF ; continue to main text-engine function + +INCBIN "baserom.gbc",$347F,$3493 - $347F + +IsItemInBag: ; 3493 +; given an item_id in b +; set zero flag if item isn't in player's bag +; else reset zero flag +; related to Pokémon Tower and ghosts + ld a,$1C + call Predef + ld a,b + and a + ret + +INCBIN "baserom.gbc",$349B,$3541 - $349B + +Function3541: ; 3541 +; XXX what do these three functions do + push hl + call Function354E + ld [hl],$FF + call Function3558 + ld [hl],$FF + pop hl + ret + +Function354E: ; 354E + ld h,$C2 + ld a,[$FF8C] ; the sprite to move + swap a + add a,6 + ld l,a + ret + +Function3558: ; 3558 + push de + ld hl,$D4E4 + ld a,[$FF8C] ; the sprite to move + dec a + add a + ld d,0 + ld e,a + add hl,de + pop de + ret + +INCBIN "baserom.gbc",$3566,$35BC - $3566 + +BankswitchHome: ; 35BC +; switches to bank # in a +; Only use this when in the home bank! + ld [$CF09],a + ld a,[$FFB8] + ld [$CF08],a + ld a,[$CF09] + ld [$FFB8],a + ld [$2000],a + ret + +BankswitchBack: ; 35CD +; returns from BankswitchHome + ld a,[$CF08] + ld [$FFB8],a + ld [$2000],a + ret + +Bankswitch: ; 35D6 +; self-contained bankswitch, use this when not in the home bank +; switches to the bank in b + ld a,[$FFB8] + push af + ld a,b + ld [$FFB8],a + ld [$2000],a + ld bc,.Return\@ + push bc + jp [hl] +.Return\@ + pop bc + ld a,b + ld [$FFB8],a + ld [$2000],a + ret + +INCBIN "baserom.gbc",$35EC,$363A - $35EC + +MoveSprite: ; 363A +; move the sprite [$FF8C] with the movement pointed to by de +; actually only copies the movement data to $CC5B for later + call Function3541 + push hl + push bc + call Function354E + xor a + ld [hl],a + ld hl,$CC5B + ld c,0 + +.loop\@ + ld a,[de] + ldi [hl],a + inc de + inc c + cp a,$FF ; have we reached the end of the movement data? + jr nz,.loop\@ + + ld a,c + ld [$CF0F],a ; number of steps taken + + pop bc + ld hl,$D730 + set 0,[hl] + pop hl + xor a + ld [$CD3B],a + ld [$CCD3],a + dec a + ld [$CD6B],a + ld [$CD3A],a + ret + +INCBIN "baserom.gbc",$366B,$3739 - $366B + +DelayFrames: ; 3739 +; wait n frames, where n is the value in c + call DelayFrame + dec c + jr nz,DelayFrames + ret + +INCBIN "baserom.gbc",$3740,$375D - $3740 + +NamePointers: ; 375D + dw MonsterNames + dw MoveNames + dw UnusedNames + dw ItemNames + dw $D273 ; player's OT names list + dw $D9AC ; enemy's OT names list + dw TrainerNames + +GetName: ; 376B +; arguments: +; [$D0B5] = which name +; [$D0B6] = which list +; [$D0B7] = bank of list +; +; returns pointer to name in de + ld a,[$d0b5] + ld [$d11e],a + cp a,$C4 ;it's TM/HM + jp nc,GetMachineName + ld a,[$ffb8] + push af + push hl + push bc + push de + ld a,[$d0b6] ;List3759_entrySelector + dec a + jr nz,.otherEntries\@ + ;1 = MON_NAMES + call GetMonName + ld hl,11 + add hl,de + ld e,l + ld d,h + jr .gotPtr\@ +.otherEntries\@ ;$378d + ;2-7 = OTHER ENTRIES + ld a,[$d0b7] + ld [$ffb8],a + ld [$2000],a + ld a,[$d0b6] ;VariousNames' entryID + dec a + add a + ld d,0 + ld e,a + jr nc,.skip\@ + inc d +.skip\@ ;$37a0 + ld hl,NamePointers + add hl,de + ld a,[hli] + ld [$ff96],a + ld a,[hl] + ld [$ff95],a + ld a,[$ff95] + ld h,a + ld a,[$ff96] + ld l,a + ld a,[$d0b5] + ld b,a + ld c,0 +.nextName\@ + ld d,h + ld e,l +.nextChar\@ + ld a,[hli] + cp a,$50 + jr nz,.nextChar\@ + inc c ;entry counter + ld a,b ;wanted entry + cp c + jr nz,.nextName\@ + ld h,d + ld l,e + ld de,$cd6d + ld bc,$0014 + call CopyData +.gotPtr\@ ;$37cd + ld a,e + ld [$cf8d],a + ld a,d + ld [$cf8e],a + pop de + pop bc + pop hl + pop af + ld [$ffb8],a + ld [$2000],a + ret + +INCBIN "baserom.gbc",$37df,$3927 - $37df + +AddPokemonToParty: ; 0x3927 + push hl + push de + push bc + ld b, $3 ; BANK(MyFunction) + ld hl, $72e5 ; MyFunction + call Bankswitch + pop bc + pop de + pop hl + ret + +INCBIN "baserom.gbc",$3936,$3A87 - $3936 + +AddNTimes: ; 3A87 +; add bc to hl a times + and a + ret z +.loop\@ + add hl,bc + dec a + jr nz,.loop\@ + ret + +INCBIN "baserom.gbc",$3A8E,$3C49 - $3A8E + +PrintText: ; 3C49 +; given a pointer in hl, print the text there + push hl + ld a,1 + ld [$D125],a + call $30E8 + call $2429 + call Delay3 + pop hl + FuncCoord 1,14 + ld bc,Coord ;$C4B9 + jp $1B40 + +Func3C5F: ; 3C5F + push bc + xor a + ld [$FF95],a + ld [$FF96],a + ld [$FF97],a + ld a,b + and $F + cp 1 + jr z,.next\@ + cp 2 + jr z,.next2\@ + ld a,[de] + ld [$FF96],a + inc de + ld a,[de] + ld [$FF97],a + inc de + ld a,[de] + ld [$FF98],a + jr .next3\@ + +.next2\@ + ld a,[de] + ld [$FF97],a + inc de + ld a,[de] + ld [$FF98],a + jr .next3\@ + +.next\@ + ld a,[de] + ld [$FF98],a + +.next3\@ + push de + ld d,b + ld a,c + ld b,a + xor a + ld c,a + ld a,b + cp 2 + jr z,.next4\@ + cp 3 + jr z,.next5\@ + cp 4 + jr z,.next6\@ + cp 5 + jr z,.next7\@ + cp 6 + jr z,.next8\@ + ld a,$F + ld [$FF99],a + ld a,$42 + ld [$FF9A],a + ld a,$40 + ld [$FF9B],a + call $3D25 + call $3D89 +.next8\@ + ld a,1 + ld [$FF99],a + ld a,$86 + ld [$FF9A],a + ld a,$A0 + ld [$FF9B],a + call $3D25 + call $3D89 +.next7\@ + xor a + ld [$FF99],a + ld a,$27 + ld [$FF9A],a + ld a,$10 + ld [$FF9B],a + call $3D25 + call $3D89 +.next6\@ + xor a + ld [$FF99],a + ld a,3 + ld [$FF9A],a + ld a,$E8 + ld [$FF9B],a + call $3D25 + call $3D89 +.next5\@ + xor a + ld [$FF99],a + xor a + ld [$FF9A],a + ld a,$64 + ld [$FF9B],a + call $3D25 + call $3D89 +.next4\@ + ld c,0 + ld a,[$FF98] +.next10\@ + cp $A + jr c,.next9\@ + sub $A + inc c + jr .next10\@ +.next9\@ + ld b,a + ld a,[$FF95] + or c + ld [$FF95],a + jr nz,.next11\@ + call $3D83 + jr .next12\@ +.next11\@ + ld a,$F6 + add a,c + ld [hl],a +.next12\@ + call $3D89 + ld a,$F6 + add a,b + ld [hli],a + pop de + dec de + pop bc + ret + +INCBIN "baserom.gbc",$3D25,$3DAB - $3D25 + +IsInArray: ; 3DAB +; searches an array at hl for the value in a. +; skips (de − 1) bytes between reads, so to check every byte, de should be 1. +; if found, returns count in b and sets carry. + ld b,0 + ld c,a +.loop\@ + ld a,[hl] + cp a,$FF + jr z,.NotInArray\@ + cp c + jr z,.InArray\@ + inc b + add hl,de + jr .loop\@ +.NotInArray\@ + and a + ret +.InArray\@ + scf + ret + +INCBIN "baserom.gbc",$3DBE,$3DD7 - $3DBE + +Delay3: ; 3DD7 +; call Delay with a parameter of 3 + ld c,3 + jp DelayFrames + +INCBIN "baserom.gbc",$3DDC,$3DED - $3DDC + +GoPAL_SET_CF1C: ; 3ded + ld b,$ff +GoPAL_SET: ; 3def + ld a,[$cf1b] + and a + ret z + ld a,$45 + jp Predef + +INCBIN "baserom.gbc",$3df9,$3e2e - $3df9 + +GiveItem: ; 0x3e2e + ld a, b + ld [$d11e], a + ld [$cf91], a + ld a, c + ld [$cf96], a + ld hl,W_NUMBAGITEMS + call $2bcf + ret nc + call GetItemName ; $2fcf + call $3826 + scf + ret + +GivePokemon: ; 0x3e48 + ld a, b + ld [$cf91], a + ld a, c + ld [$d127], a + xor a + ld [$cc49], a + ld b, $13 + ld hl, $7da5 + jp Bankswitch + +GenRandom: ; 3E5C +; store a random 8-bit value in a + push hl + push de + push bc + ld b,BANK(GenRandom_) + ld hl,GenRandom_ + call Bankswitch + ld a,[H_RAND1] + pop bc + pop de + pop hl + ret + +Predef: ; 3E6D +; runs a predefined ASM command, where the command ID is read from $D0B7 +; $3E6D grabs the ath pointer from PredefPointers and executes it + + ld [$CC4E],a ; save the predef routine's ID for later + + ld a,[$FFB8] + ld [$CF12],a + + ; save bank and call 13:7E49 + push af + ld a,BANK(GetPredefPointer) + ld [$FFB8],a + ld [$2000],a + call GetPredefPointer + + ; call the predef function + ; ($D0B7 has the bank of the predef routine) + ld a,[$D0B7] + ld [$FFB8],a + ld [$2000],a + ld de,.Return\@ + push de + jp [hl] + ; after the predefined function finishes it returns here +.Return\@ + pop af + ld [$FFB8],a + ld [$2000],a + ret + +INCBIN "baserom.gbc",$3E94,$4000 - $3E94 + +SECTION "bank1",DATA,BANK[$1] + +INCBIN "baserom.gbc",$4000,$112 + +MewPicFront: + INCBIN "pic/bmon/mew.pic" +MewPicBack: + INCBIN "pic/monback/mewb.pic" + +INCBIN "baserom.gbc",$425B,$4588-$425B + +TitleMons: ; 4588 +; mons on the title screen are randomly chosen from here +IF _RED + db CHARMANDER + db SQUIRTLE + db BULBASAUR + db WEEDLE + db NIDORAN_M + db SCYTHER + db PIKACHU + db CLEFAIRY + db RHYDON + db ABRA + db GASTLY + db DITTO + db PIDGEOTTO + db ONIX + db PONYTA + db MAGIKARP +ENDC +IF _GREEN + db BULBASAUR + db CHARMANDER + db SQUIRTLE + db CATERPIE + db NIDORAN_F + db PINSIR + db PIKACHU + db CLEFAIRY + db RHYDON + db ABRA + db GASTLY + db DITTO + db PIDGEOTTO + db ONIX + db PONYTA + db MAGIKARP +ENDC +IF _BLUE + db SQUIRTLE + db CHARMANDER + db BULBASAUR + db MANKEY + db HITMONLEE + db VULPIX + db CHANSEY + db AERODACTYL + db JOLTEON + db SNORLAX + db GLOOM + db POLIWAG + db DODUO + db PORYGON + db GENGAR + db RAICHU +ENDC + +INCBIN "baserom.gbc",$4598,$472B-$4598 + +ItemNames: ; 472B + db "MASTER BALL@" + db "ULTRA BALL@" + db "GREAT BALL@" + db "POKé BALL@" + db "TOWN MAP@" + db "BICYCLE@" + db "?????@" + db "SAFARI BALL@" + db "POKéDEX@" + db "MOON STONE@" + db "ANTIDOTE@" + db "BURN HEAL@" + db "ICE HEAL@" + db "AWAKENING@" + db "PARLYZ HEAL@" + db "FULL RESTORE@" + db "MAX POTION@" + db "HYPER POTION@" + db "SUPER POTION@" + db "POTION@" + db "BOULDERBADGE@" + db "CASCADEBADGE@" + db "THUNDERBADGE@" + db "RAINBOWBADGE@" + db "SOULBADGE@" + db "MARSHBADGE@" + db "VOLCANOBADGE@" + db "EARTHBADGE@" + db "ESCAPE ROPE@" + db "REPEL@" + db "OLD AMBER@" + db "FIRE STONE@" + db "THUNDERSTONE@" + db "WATER STONE@" + db "HP UP@" + db "PROTEIN@" + db "IRON@" + db "CARBOS@" + db "CALCIUM@" + db "RARE CANDY@" + db "DOME FOSSIL@" + db "HELIX FOSSIL@" + db "SECRET KEY@" + db "?????@" + db "BIKE VOUCHER@" + db "X ACCURACY@" + db "LEAF STONE@" + db "CARD KEY@" + db "NUGGET@" + db "PP UP@" + db "POKé DOLL@" + db "FULL HEAL@" + db "REVIVE@" + db "MAX REVIVE@" + db "GUARD SPEC.@" + db "SUPER REPEL@" + db "MAX REPEL@" + db "DIRE HIT@" + db "COIN@" + db "FRESH WATER@" + db "SODA POP@" + db "LEMONADE@" + db "S.S.TICKET@" + db "GOLD TEETH@" + db "X ATTACK@" + db "X DEFEND@" + db "X SPEED@" + db "X SPECIAL@" + db "COIN CASE@" + db "OAK's PARCEL@" + db "ITEMFINDER@" + db "SILPH SCOPE@" + db "POKé FLUTE@" + db "LIFT KEY@" + db "EXP.ALL@" + db "OLD ROD@" + db "GOOD ROD@" + db "SUPER ROD@" + db "PP UP@" + db "ETHER@" + db "MAX ETHER@" + db "ELIXER@" + db "MAX ELIXER@" + db "B2F@" + db "B1F@" + db "1F@" + db "2F@" + db "3F@" + db "4F@" + db "5F@" + db "6F@" + db "7F@" + db "8F@" + db "9F@" + db "10F@" + db "11F@" + db "B4F@" + +UnusedNames: ; 4A92 + db "かみなりバッヂ@" + db "かいがらバッヂ@" + db "おじぞうバッヂ@" + db "はやぶさバッヂ@" + db "ひんやりバッヂ@" + db "なかよしバッヂ@" + db "バラバッヂ@" + db "ひのたまバッヂ@" + db "ゴールドバッヂ@" + db "たまご@" + db "ひよこ@" + db "ブロンズ@" + db "シルバー@" + db "ゴールド@" + db "プチキャプテン@" + db "キャプテン@" + db "プチマスター@" + db "マスター@" + +INCBIN "baserom.gbc",$4B09,$5AF2-$4B09 + +MainMenu: +; Check save file + call Func_5bff + xor a + ld [$D08A],a + inc a + ld [$D088],a + call $609E + jr nc,.next0\@ + + ; Predef 52 loads the save from SRAM to RAM + ld a,$52 + call Predef + +.next0\@ + ld c,20 + call DelayFrames + xor a + ld [$D12B],a + ld hl,$CC2B + ld [hli],a + ld [hli],a + ld [hli],a + ld [hl],a + ld [$D07C],a + ld hl,$D72E + res 6,[hl] + call ClearScreen + call $3DED + call $36A0 ; load some graphics in VRAM + call $3680 ; load fonts in VRAM + ld hl,$D730 + set 6,[hl] + ld a,[$D088] + cp a,1 + jr z,.next1\@ + FuncCoord 0,0 + ld hl,Coord + ld b,6 + ld c,13 + call TextBoxBorder + FuncCoord 2,2 + ld hl,Coord + ld de,$5D7E + call PlaceString + jr .next2\@ +.next1\@ + FuncCoord 0,0 + ld hl,Coord + ld b,4 + ld c,13 + call TextBoxBorder + FuncCoord 2,2 + ld hl,Coord + ld de,$5D87 + call PlaceString +.next2\@ + ld hl,$D730 + res 6,[hl] + call $2429 ; OAM? + xor a + ld [$CC26],a + ld [$CC2A],a + ld [$CC34],a + inc a + ld [$CC25],a + inc a + ld [$CC24],a + ld a,$B + ld [$CC29],a + ld a,[$D088] + ld [$CC28],a + call $3ABE + bit 1,a + jp nz,$42DD ; load title screen (gfx and arrangement) + ld c,20 + call DelayFrames + ld a,[$CC26] + ld b,a + ld a,[$D088] + cp a,2 + jp z,.next3\@ + inc b ; adjust MenuArrow_Counter +.next3\@ + ld a,b + and a + jr z,.next4\@ ; if press_A on Continue + cp a,1 + jp z,$5D52 ; if press_A on NewGame + call $5E8A ; if press_a on Options + ld a,1 + ld [$D08A],a + jp .next0\@ +.next4\@ + call $5DB5 + ld hl,$D126 + set 5,[hl] +.next6\@ + xor a + ld [$FFB3],a + ld [$FFB2],a + ld [$FFB4],a + call $19A + ld a,[$FFB4] + bit 0,a + jr nz,.next5\@ + bit 1,a + jp nz,.next0\@ + jr .next6\@ +.next5\@ + call $3DD4 + call ClearScreen + ld a,4 + ld [$D52A],a + ld c,10 + call DelayFrames + ld a,[$D5A2] + and a + jp z,$5D5F + ld a,[W_CURMAP] ; map ID + cp a,$76 ; Hall of Fame + jp nz,$5D5F + xor a + ld [$D71A],a + ld hl,$D732 + set 2,[hl] + call $62CE + jp $5D5F +Func_5bff: + ld a,1 + ld [$D358],a + ld a,3 + ld [$D355],a + ret + +INCBIN "baserom.gbc",$5C0A,$6115 - $5C0A + +OakSpeech: ; 6115 + ld a,$FF + call $23B1 ; stop music + ld a,2 ; bank of song + ld c,a + ld a,$EF ; song # + call $23A1 ; plays music + call ClearScreen + call $36A0 + call $60CA + ld a,$18 + call Predef + ld hl,$D53A + ld a,$14 + ld [$CF91],a + ld a,1 + ld [$CF96],a + call $2BCF + ld a,[$D07C] + ld [$D71A],a + call Function62CE + xor a + ld [$FFD7],a + ld a,[$D732] + bit 1,a ; XXX when is bit 1 set? + jp nz,Function61BC ; easter egg: skip the intro + ld de,$615F + ld bc,$1300 + call IntroPredef3B ; displays Oak pic? + call FadeInIntroPic + ld hl,OakSpeechText1 + call PrintText ; prints text box + call GBFadeOut2 + call ClearScreen + ld a,NIDORINO + ld [$D0B5],a ; pic displayed is stored at this location + ld [$CF91],a + call $1537 ; this is also related to the pic + ld hl,$C3F6 ; position on tilemap the pic is displayed + call $1384 ; displays pic? + call MovePicLeft + ld hl,OakSpeechText2 + call PrintText ; Prints text box + call GBFadeOut2 + call ClearScreen + ld de,$6EDE + ld bc,$0400 ; affects the position of the player pic + call IntroPredef3B ; displays player pic? + call MovePicLeft + ld hl,IntroducePlayerText + call PrintText + call $695D ; brings up NewName/Red/etc menu + call GBFadeOut2 + call ClearScreen + ld de,$6049 + ld bc,$1300 + call IntroPredef3B ; displays rival pic + call FadeInIntroPic + ld hl,IntroduceRivalText + call PrintText + call $69A4 +Function61BC: + call GBFadeOut2 + call ClearScreen + ld de,$6EDE + ld bc,$0400 + call IntroPredef3B + call GBFadeIn2 + ld a,[$D72D] + and a + jr nz,.next\@ + ld hl,OakSpeechText3 + call PrintText +.next\@ ld a,[$FFB8] + push af + ld a,$9C + call $23B1 + pop af + ld [$FFB8],a + ld [$2000],a + ld c,4 + call DelayFrames + ld de,$4180 + ld hl,$8000 + ld bc,$050C + call $1848 + ld de,$6FE8 + ld bc,$0400 + call IntroPredef3B + ld c,4 + call DelayFrames + ld de,$7042 + ld bc,$0400 + call IntroPredef3B + call $28A6 + ld a,[$FFB8] + push af + ld a,2 + ld [$C0EF],a + ld [$C0F0],a + ld a,$A + ld [$CFC7],a + ld a,$FF + ld [$C0EE],a + call $23B1 ; stop music + pop af + ld [$FFB8],a + ld [$2000],a + ld c,$14 + call DelayFrames + ld hl,$C40A + ld b,7 + ld c,7 + call $18C4 + call $36A0 + ld a,1 + ld [$CFCB],a + ld c,$32 + call DelayFrames + call GBFadeOut2 + jp ClearScreen +OakSpeechText1: + TX_FAR _OakSpeechText1 + db "@" +OakSpeechText2: + TX_FAR _OakSpeechText2A + db $14 + TX_FAR _OakSpeechText2B + db "@" +IntroducePlayerText: + TX_FAR _IntroducePlayerText + db "@" +IntroduceRivalText: + TX_FAR _IntroduceRivalText + db "@" +OakSpeechText3: + TX_FAR _OakSpeechText3 + db "@" + +FadeInIntroPic: + ld hl,IntroFadePalettes + ld b,6 +.next\@ + ld a,[hli] + ld [rBGP],a + ld c,10 + call DelayFrames + dec b + jr nz,.next\@ + ret + +IntroFadePalettes: + db %01010100 + db %10101000 + db %11111100 + db %11111000 + db %11110100 + db %11100100 + +MovePicLeft: + ld a,119 + ld [$FF4B],a + call DelayFrame + + ld a,$E4 + ld [rBGP],a +.next\@ + call DelayFrame + ld a,[$FF4B] + sub 8 + cp $FF + ret z + ld [$FF4B],a + jr .next\@ + +Predef3B: ; 62A1 + call $3E94 +IntroPredef3B: ; 62A4 + push bc + ld a,b + call $36EB + ld hl,$A188 + ld de,$A000 + ld bc,$0310 + call CopyData + ld de,$9000 + call $16EA + pop bc + ld a,c + and a + ld hl,$C3C3 + jr nz,.next\@ + ld hl,$C3F6 +.next\@ + xor a + ld [$FFE1],a + ld a,1 + jp $3E6D + +Function62CE: ; 62CE, XXX called by 4B2 948 989 5BF9 5D15 + call $62FF + ld a,$19 + call $3E6D + ld hl,$D732 + bit 2,[hl] + res 2,[hl] + jr z,.next\@ + ld a,[$D71A] + jr .next2\@ +.next\@ + bit 1,[hl] + jr z,.next3\@ + call $64EA +.next3\@ + ld a,0 +.next2\@ + ld b,a + ld a,[$D72D] + and a + jr nz,.next4\@ + ld a,b +.next4\@ + ld hl,$D732 + bit 4,[hl] + ret nz + ld [$D365],a + ret + +INCBIN "baserom.gbc",$62FF,$6420-$62FF + +FirstMapSpec: + db $26 ; RedHouse1F +; Original Format: +; [Event Displacement][Y-block][X-block][Y-sub_block][X-sub_block] +; Macro Format: +; FLYWARP_DATA [Map Width][Y-pos][X-pos] + FLYWARP_DATA 4,6,3 + db $04 ;Tileset_id + +INCBIN "baserom.gbc",$6428,$6448-$6428 + +FlyWarpDataPtr: + db $00,0 + dw Map00FlyWarp + db $01,0 + dw Map01FlyWarp + db $02,0 + dw Map02FlyWarp + db $03,0 + dw Map03FlyWarp + db $04,0 + dw Map04FlyWarp + db $05,0 + dw Map05FlyWarp + db $06,0 + dw Map06FlyWarp + db $07,0 + dw Map07FlyWarp + db $08,0 + dw Map08FlyWarp + db $09,0 + dw Map09FlyWarp + db $0A,0 + dw Map0aFlyWarp + db $0F,0 + dw Map0fFlyWarp + db $15,0 + dw Map15FlyWarp + +; Original Format: +; [Event Displacement][Y-block][X-block][Y-sub_block][X-sub_block] +; Macro Format: +; FLYWARP_DATA [Map Width][Y-pos][X-pos] +Map00FlyWarp: + FLYWARP_DATA 10,6,5 +Map01FlyWarp: + FLYWARP_DATA 20,26,23 +Map02FlyWarp: + FLYWARP_DATA 20,26,13 +Map03FlyWarp: + FLYWARP_DATA 20,18,19 +Map04FlyWarp: + FLYWARP_DATA 10,6,3 +Map05FlyWarp: + FLYWARP_DATA 20,4,11 +Map06FlyWarp: + FLYWARP_DATA 25,10,41 +Map07FlyWarp: + FLYWARP_DATA 20,28,19 +Map08FlyWarp: + FLYWARP_DATA 10,12,11 +Map09FlyWarp: + FLYWARP_DATA 10,6,9 +Map0aFlyWarp: + FLYWARP_DATA 20,30,9 +Map0fFlyWarp: + FLYWARP_DATA 45,6,11 +Map15FlyWarp: + FLYWARP_DATA 10,20,11 + +INCBIN "baserom.gbc",$64CA,$778D - $64CA + +FieldMoveNames: ; 778D + db "CUT@" + db "FLY@" + db "@" + db "SURF@" + db "STRENGTH@" + db "FLASH@" + db "DIG@" + db "TELEPORT@" + db "SOFTBOILED@" + +PokemonMenuEntries: ; 77C2 + db "STATS",$4E + db "SWITCH",$4E + db "CANCEL@" + +INCBIN "baserom.gbc",$77D6,$7AF5 - $77D6 + +PlayersPCMenuEntries: ; 7AF5 + db "WITHDRAW ITEM",$4E + db "DEPOSIT ITEM",$4E + db "TOSS ITEM",$4E + db "LOG OFF@" + +INCBIN "baserom.gbc",$7B22,$7C49 - $7B22 + +SECTION "bank2",DATA,BANK[$2] + +INCBIN "baserom.gbc",$8000,$4000 + +SECTION "bank3",DATA,BANK[$3] + +INCBIN "baserom.gbc",$C000,$C23D - $C000 + +; see also MapHeaderPointers +MapHeaderBanks: ; 423D + db BANK(PalletTown_h) + db BANK(ViridianCity_h) ; VIRIDIAN_CITY + db BANK(PewterCity_h) ; PEWTER_CITY + db BANK(CeruleanCity_h) ; CERULEAN_CITY + db BANK(LavenderTown_h) ; LAVENDER_TOWN + db BANK(VermilionCity_h) ; VERMILION_CITY + db BANK(CeladonCity_h) ; CELADON_CITY + db BANK(FuchsiaCity_h) ; FUCHSIA_CITY + db BANK(CinnabarIsland_h) ; CINNABAR_ISLAND + db BANK(IndigoPlateau_h) ; INDIGO_PLATEAU + db BANK(SaffronCity_h) ; SAFFRON_CITY + db $01 ; unused + db BANK(Route1_h) ; ROUTE_1 + db $15 ; ROUTE_2 + db BANK(Route3_h) ; ROUTE_3 + db BANK(Route4_h) ; ROUTE_4 + db BANK(Route5_h) ; ROUTE_5 + db BANK(Route6_h) ; ROUTE_6 + db BANK(Route7_h) ; ROUTE_7 + db BANK(Route8_h) ; ROUTE_8 + db BANK(Route9_h) ; ROUTE_9 + db BANK(Route10_h) ; ROUTE_10 + db BANK(Route11_h) ; ROUTE_11 + db BANK(Route12_h) ; ROUTE_12 + db BANK(Route13_h) ; ROUTE_13 + db BANK(Route14_h) ; ROUTE_14 + db BANK(Route15_h) ; ROUTE_15 + db BANK(Route16_h) ; ROUTE_16 + db BANK(Route17_h) ; ROUTE_17 + db BANK(Route18_h) ; ROUTE_18 + db BANK(Route19_h) ; ROUTE_19 + db BANK(Route20_h) ; ROUTE_20 + db BANK(Route21_h) ; ROUTE_21 + db BANK(Route22_h) ; ROUTE_22 + db BANK(Route23_h) ; ROUTE_23 + db BANK(Route24_h) ; ROUTE_24 + db BANK(Route25_h) ; ROUTE_25 + db BANK(RedsHouse1F_h) + db BANK(RedsHouse2F_h) + db BANK(BluesHouse_h) + db BANK(OaksLab_h) + db BANK(ViridianPokecenter_h) + db BANK(ViridianMart_h) + db BANK(School_h) + db BANK(ViridianHouse_h) + db BANK(ViridianGym_h) + db BANK(DiglettsCaveRoute2_h) + db BANK(ViridianForestexit_h) + db BANK(Route2House_h) + db BANK(Route2Gate_h) + db BANK(ViridianForestEntrance_h) + db BANK(ViridianForest_h) + db BANK(MuseumF1_h) + db BANK(MuseumF2_h) + db BANK(PewterGym_h) + db BANK(PewterHouse1_h) + db BANK(PewterMart_h) + db BANK(PewterHouse2_h) + db BANK(PewterPokecenter_h) + db BANK(MtMoon1_h) + db BANK(MtMoon2_h) + db BANK(MtMoon3_h) + db BANK(CeruleanHouseTrashed_h) + db BANK(CeruleanHouse2_h) + db BANK(CeruleanPokecenter_h) + db BANK(CeruleanGym_h) + db BANK(BikeShop_h) + db BANK(CeruleanMart_h) + db BANK(MtMoonPokecenter_h) + db BANK(CeruleanHouseTrashed_h) + db BANK(Route5Gate_h) + db BANK(UndergroundTunnelEntranceRoute5_h) + db BANK(DayCareM_h) + db BANK(Route6Gate_h) + db BANK(UndergroundTunnelEntranceRoute6_h) + db $17 + db BANK(Route7Gate_h) + db BANK(UndergroundPathEntranceRoute7_h) + db $17 + db BANK(Route8Gate_h) + db BANK(UndergroundPathEntranceRoute8_h) + db BANK(RockTunnelPokecenter_h) + db BANK(RockTunnel1_h) + db BANK(PowerPlant_h) + db BANK(Route11Gate_h) + db BANK(DiglettsCaveEntranceRoute11_h) + db BANK(Route11GateUpstairs_h) + db BANK(Route12Gate_h) + db BANK(BillsHouse_h) + db BANK(VermilionPokecenter_h) + db BANK(FanClub_h) + db BANK(VermilionMart_h) + db BANK(VermilionGym_h) + db BANK(VermilionHouse1_h) + db BANK(VermilionDock_h) + db BANK(SSAnne1_h) + db BANK(SSAnne2_h) + db BANK(SSAnne3_h) + db BANK(SSAnne4_h) + db BANK(SSAnne5_h) + db BANK(SSAnne6_h) + db BANK(SSAnne7_h) + db BANK(SSAnne8_h) + db BANK(SSAnne9_h) + db BANK(SSAnne10_h) + db $1D + db $1D + db $1D + db BANK(VictoryRoad1_h) + db $1D + db $1D + db $1D + db $1D + db BANK(Lance_h) + db $1D + db $1D + db $1D + db $1D + db $16 + db BANK(UndergroundPathNS_h) + db $1D + db BANK(UndergroundPathWE_h) + db BANK(CeladonMart1_h) + db BANK(CeladonMart2_h) + db BANK(CeladonMart3_h) + db BANK(CeladonMart4_h) + db BANK(CeladonMartRoof_h) + db BANK(CeladonMartElevator_h) + db BANK(CeladonMansion1_h) + db BANK(CeladonMansion2_h) + db BANK(CeladonMansion3_h) + db BANK(CeladonMansion4_h) + db BANK(CeladonMansion5_h) + db BANK(CeladonPokecenter_h) + db BANK(CeladonGym_h) + db BANK(CeladonGameCorner_h) + db BANK(CeladonMart5_h) + db BANK(CeladonPrizeRoom_h) + db BANK(CeladonDiner_h) + db BANK(CeladonHouse_h) + db BANK(CeladonHotel_h) + db BANK(LavenderPokecenter_h) + db BANK(PokemonTower1_h) + db BANK(PokemonTower2_h) + db BANK(PokemonTower3_h) + db BANK(PokemonTower4_h) + db BANK(PokemonTower5_h) + db BANK(PokemonTower6_h) + db BANK(PokemonTower7_h) + db BANK(LavenderHouse1_h) + db BANK(LavenderMart_h) + db BANK(LavenderHouse2_h) + db BANK(FuchsiaMart_h) + db BANK(FuchsiaHouse1_h) + db BANK(FuchsiaPokecenter_h) + db BANK(FuchsiaHouse2_h) + db BANK(SafariZoneEntrance_h) + db BANK(FuchsiaGym_h) + db BANK(FuchsiaMeetingRoom_h) + db BANK(SeafoamIslands2_h) + db BANK(SeafoamIslands3_h) + db BANK(SeafoamIslands4_h) + db BANK(SeafoamIslands5_h) + db BANK(VermilionHouse2_h) + db BANK(FuchsiaHouse3_h) + db BANK(Mansion1_h) + db BANK(CinnabarGym_h) + db BANK(Lab1_h) + db BANK(Lab2_h) + db BANK(Lab3_h) + db BANK(Lab4_h) + db BANK(CinnabarPokecenter_h) + db BANK(CinnabarMart_h) + db $1D + db BANK(IndigoPlateauLobby_h) + db BANK(CopycatsHouseF1_h) + db BANK(CopycatsHouseF2_h) + db BANK(FightingDojo_h) + db BANK(SaffronGym_h) + db BANK(SaffronHouse1_h) + db BANK(SaffronMart_h) + db BANK(SilphCo1_h) + db BANK(SaffronPokecenter_h) + db BANK(SaffronHouse2_h) + db BANK(Route15Gate_h) + db $12 + db BANK(Route16GateMap_h) + db BANK(Route16GateUpstairs_h) + db BANK(Route16House_h) + db BANK(Route12House_h) + db BANK(Route18Gate_h) + db BANK(Route18GateHeader_h) + db BANK(SeafoamIslands1_h) + db BANK(Route22Gate_h) + db BANK(VictoryRoad2_h) + db BANK(Route12GateUpstairs_h) + db BANK(VermilionHouse3_h) + db BANK(DiglettsCave_h) + db BANK(VictoryRoad3_h) + db BANK(RocketHideout1_h) + db BANK(RocketHideout2_h) + db BANK(RocketHideout3_h) + db BANK(RocketHideout4_h) + db BANK(RocketHideoutElevator_h) + db $01 + db $01 + db $01 + db BANK(SilphCo2_h) + db BANK(SilphCo3_h) + db BANK(SilphCo4_h) + db BANK(SilphCo5_h) + db BANK(SilphCo6_h) + db BANK(SilphCo7_h) + db BANK(SilphCo8_h) + db BANK(Mansion2_h) + db BANK(Mansion3_h) + db BANK(Mansion4_h) + db BANK(SafariZoneEast_h) + db BANK(SafariZoneNorth_h) + db BANK(SafariZoneWest_h) + db BANK(SafariZoneCenter_h) + db BANK(SafariZoneRestHouse1_h) + db BANK(SafariZoneSecretHouse_h) + db BANK(SafariZoneRestHouse2_h) + db BANK(SafariZoneRestHouse3_h) + db BANK(SafariZoneRestHouse4_h) + db BANK(UnknownDungeon2_h) + db BANK(UnknownDungeon3_h) + db BANK(UnknownDungeon1_h) + db BANK(NameRater_h) + db BANK(CeruleanHouse3_h) + db $01 + db BANK(RockTunnel2_h) + db BANK(SilphCo9_h) + db BANK(SilphCo10_h) + db BANK(SilphCo11_h) + db BANK(SilphCoElevator_h) + db $11 + db $11 + db BANK(BattleCenterM_h) + db BANK(TradeCenterM_h) + db $11 + db $11 + db $11 + db $11 + db BANK(Lorelei_h) + db BANK(Bruno_h) + db BANK(Agatha_h) + +INCBIN "baserom.gbc",$C335,$C766-$C335 + ld hl,TilesetsHeadPtr +INCBIN "baserom.gbc",$C769,$C7BE-$C769 + +TilesetsHeadPtr: + TSETHEAD Tset00_Block,Tset00_GFX,Tset00_Coll,$FF,$FF,$FF,$52,2 + TSETHEAD Tset01_Block,Tset01_GFX,Tset01_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset02_Block,Tset02_GFX,Tset02_Coll,$18,$19,$1E,$FF,0 + TSETHEAD Tset03_Block,Tset03_GFX,Tset03_Coll,$FF,$FF,$FF,$20,1 + TSETHEAD Tset01_Block,Tset01_GFX,Tset01_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset05_Block,Tset05_GFX,Tset05_Coll,$3A,$FF,$FF,$FF,2 + TSETHEAD Tset02_Block,Tset02_GFX,Tset02_Coll,$18,$19,$1E,$FF,0 + TSETHEAD Tset05_Block,Tset05_GFX,Tset05_Coll,$3A,$FF,$FF,$FF,2 + TSETHEAD Tset08_Block,Tset08_GFX,Tset08_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset09_Block,Tset09_GFX,Tset09_Coll,$17,$32,$FF,$FF,0 + TSETHEAD Tset09_Block,Tset09_GFX,Tset09_Coll,$17,$32,$FF,$FF,0 + TSETHEAD Tset0B_Block,Tset0B_GFX,Tset0B_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset09_Block,Tset09_GFX,Tset09_Coll,$17,$32,$FF,$FF,0 + TSETHEAD Tset0D_Block,Tset0D_GFX,Tset0D_Coll,$FF,$FF,$FF,$FF,1 + TSETHEAD Tset0E_Block,Tset0E_GFX,Tset0E_Coll,$FF,$FF,$FF,$FF,1 + TSETHEAD Tset0F_Block,Tset0F_GFX,Tset0F_Coll,$12,$FF,$FF,$FF,0 + TSETHEAD Tset10_Block,Tset10_GFX,Tset10_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset11_Block,Tset11_GFX,Tset11_Coll,$FF,$FF,$FF,$FF,1 + TSETHEAD Tset12_Block,Tset12_GFX,Tset12_Coll,$15,$36,$FF,$FF,0 + TSETHEAD Tset13_Block,Tset13_GFX,Tset13_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset14_Block,Tset14_GFX,Tset14_Coll,$FF,$FF,$FF,$FF,0 + TSETHEAD Tset15_Block,Tset15_GFX,Tset15_Coll,$07,$17,$FF,$FF,0 + TSETHEAD Tset16_Block,Tset16_GFX,Tset16_Coll,$12,$FF,$FF,$FF,1 + TSETHEAD Tset17_Block,Tset17_GFX,Tset17_Coll,$FF,$FF,$FF,$45,1 + +INCBIN "baserom.gbc",$C8DE,$C8F5-$C8DE + +; data for default hidden/shown +; objects for each map ($00-$F8) + +; Table of 2-Byte pointers, one pointer per map, +; goes up to Map_F7, ends with $FFFF. +MapHSPointers: ; 48F5 + dw MapHS00 + dw MapHS01 + dw MapHS02 + dw MapHS03 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS0A + dw MapHSXX + dw MapHSXX + dw MapHS0D + dw MapHSXX + dw MapHS0F + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS14 + dw MapHSXX + dw MapHSXX + dw MapHS17 + dw MapHSXX + dw MapHSXX + dw MapHS1A + dw MapHS1B + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS21 + dw MapHSXX + dw MapHS23 + dw MapHS24 + dw MapHSXX + dw MapHSXX + dw MapHS27 + dw MapHS28 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS2D + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS33 + dw MapHS34 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS3B + dw MapHSXX + dw MapHS3D + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS53 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS58 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS60 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS66 + dw MapHS67 + dw MapHS68 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS6C + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS78 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS84 + dw MapHSXX + dw MapHSXX + dw MapHS87 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS8F + dw MapHS90 + dw MapHS91 + dw MapHS92 + dw MapHS93 + dw MapHS94 + dw MapHS95 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS9B + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHS9F + dw MapHSA0 + dw MapHSA1 + dw MapHSA2 + dw MapHSXX + dw MapHSXX + dw MapHSA5 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSB1 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSB5 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSC0 + dw MapHSXX + dw MapHSC2 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSC6 + dw MapHSC7 + dw MapHSC8 + dw MapHSC9 + dw MapHSCA + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSCF + dw MapHSD0 + dw MapHSD1 + dw MapHSD2 + dw MapHSD3 + dw MapHSD4 + dw MapHSD5 + dw MapHSD6 + dw MapHSD7 + dw MapHSD8 + dw MapHSD9 + dw MapHSDA + dw MapHSDB + dw MapHSDC + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSE2 + dw MapHSE3 + dw MapHSE4 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSE9 + dw MapHSEA + dw MapHSEB + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw MapHSF4 + dw MapHSXX + dw MapHSXX + dw MapHSXX + dw $FFFF + +; Structure: +; 3 bytes per object +; [Map_ID][Object_ID][H/S] +; +; Program stops reading when either: +; a) Map_ID = $FF +; b) Map_ID ≠ currentMapID +; +; This Data is loaded into RAM at $D5CE-$D5F?. + +; These constants come from the bytes for Predef functions: +Hide equ $11 +Show equ $15 + +MapHSXX: + db $FF,$FF,$FF +MapHS00: + db $00,$01,Hide +MapHS01: + db $01,$05,Show + db $01,$07,Hide +MapHS02: + db $02,$03,Show + db $02,$05,Show +MapHS03: + db $03,$01,Hide + db $03,$02,Show + db $03,$06,Hide + db $03,$0A,Show + db $03,$0B,Show +MapHS0A: + db $0A,$01,Show + db $0A,$02,Show + db $0A,$03,Show + db $0A,$04,Show + db $0A,$05,Show + db $0A,$06,Show + db $0A,$07,Show + db $0A,$08,Hide + db $0A,$09,Hide + db $0A,$0A,Hide + db $0A,$0B,Hide + db $0A,$0C,Hide + db $0A,$0D,Hide + db $0A,$0E,Show + db $0A,$0F,Hide +MapHS0D: + db $0D,$01,Show + db $0D,$02,Show +MapHS0F: + db $0F,$03,Show +MapHS14: + db $14,$0A,Show +MapHS17: + db $17,$01,Show + db $17,$09,Show + db $17,$0A,Show +MapHS1A: + db $1A,$0B,Show +MapHS1B: + db $1B,$07,Show +MapHS21: + db $21,$01,Hide + db $21,$02,Hide +MapHS23: + db $23,$01,Show + db $23,$08,Show +MapHS24: + db $24,$0A,Show +MapHS27: + db $27,$01,Show + db $27,$02,Hide + db $27,$03,Show +MapHS28: + db $28,$01,Show + db $28,$02,Show + db $28,$03,Show + db $28,$04,Show + db $28,$05,Hide + db $28,$06,Show + db $28,$07,Show + db $28,$08,Hide +MapHS2D: + db $2D,$01,Show + db $2D,$0B,Show +MapHS34: + db $34,$05,Show +MapHSE4: + db $E4,$01,Show + db $E4,$02,Show + db $E4,$03,Show +MapHS8F: + db $8F,$01,Show +MapHS90: + db $90,$04,Show +MapHS91: + db $91,$04,Show + db $91,$05,Show + db $91,$06,Show +MapHS92: + db $92,$06,Show +MapHS93: + db $93,$04,Show + db $93,$05,Show +MapHS94: + db $94,$01,Show + db $94,$02,Show + db $94,$03,Show + db $94,$04,Show +MapHS95: + db $95,$05,Hide +MapHS84: + db $84,$02,Show +MapHS87: + db $87,$0B,Show +MapHS9B: + db $9B,$02,Show +MapHSA5: + db $A5,$02,Show + db $A5,$03,Show +MapHSB1: + db $B1,$06,Show + db $B1,$07,Show +MapHSB5: + db $B5,$01,Hide +MapHS53: + db $53,$01,Show + db $53,$02,Show + db $53,$03,Show + db $53,$04,Show + db $53,$05,Show + db $53,$06,Show + db $53,$07,Show + db $53,$08,Show + db $53,$09,Show + db $53,$0A,Show + db $53,$0B,Show + db $53,$0C,Show + db $53,$0D,Show + db $53,$0E,Show +MapHSC2: + db $C2,$06,Show + db $C2,$07,Show + db $C2,$08,Show + db $C2,$09,Show + db $C2,$0A,Show + db $C2,$0D,Show +MapHS58: + db $58,$01,Show + db $58,$02,Hide + db $58,$03,Hide +MapHS33: + db $33,$05,Show + db $33,$06,Show + db $33,$07,Show +MapHS3B: + db $3B,$08,Show + db $3B,$09,Show + db $3B,$0A,Show + db $3B,$0B,Show + db $3B,$0C,Show + db $3B,$0D,Show +MapHS3D: + db $3D,$06,Show + db $3D,$07,Show + db $3D,$08,Show + db $3D,$09,Show +MapHS60: + db $60,$02,Hide +MapHS66: + db $66,$0A,Show +MapHS67: + db $67,$06,Show + db $67,$09,Show +MapHS68: + db $68,$09,Show + db $68,$0A,Show + db $68,$0B,Show +MapHSC6: + db $C6,$05,Show + db $C6,$06,Show + db $C6,$0A,Show +MapHSC7: + db $C7,$06,Show + db $C7,$07,Show +MapHSC8: + db $C8,$02,Show + db $C8,$03,Show + db $C8,$04,Show + db $C8,$05,Show +MapHSC9: + db $C9,$03,Show + db $C9,$04,Show +MapHSCA: + db $CA,$01,Show + db $CA,$05,Show + db $CA,$06,Show + db $CA,$07,Show + db $CA,$08,Hide + db $CA,$09,Hide +MapHSCF: + db $CF,$01,Show + db $CF,$02,Show + db $CF,$03,Show + db $CF,$04,Show + db $CF,$05,Show +MapHSD0: + db $D0,$02,Show + db $D0,$03,Show + db $D0,$04,Show +MapHSD1: + db $D1,$02,Show + db $D1,$03,Show + db $D1,$04,Show + db $D1,$05,Show + db $D1,$06,Show + db $D1,$07,Show +MapHSD2: + db $D2,$02,Show + db $D2,$03,Show + db $D2,$04,Show + db $D2,$05,Show + db $D2,$06,Show + db $D2,$07,Show + db $D2,$08,Show +MapHSD3: + db $D3,$06,Show + db $D3,$07,Show + db $D3,$08,Show + db $D3,$09,Show + db $D3,$0A,Show +MapHSD4: + db $D4,$05,Show + db $D4,$06,Show + db $D4,$07,Show + db $D4,$08,Show + db $D4,$09,Show + db $D4,$0A,Show + db $D4,$0B,Show + db $D4,$0C,Show +MapHSD5: + db $D5,$02,Show + db $D5,$03,Show + db $D5,$04,Show +MapHSE9: + db $E9,$02,Show + db $E9,$03,Show + db $E9,$04,Show +MapHSEA: + db $EA,$01,Show + db $EA,$02,Show + db $EA,$03,Show + db $EA,$04,Show + db $EA,$05,Show + db $EA,$06,Show +MapHSEB: + db $EB,$03,Show + db $EB,$04,Show + db $EB,$05,Show +MapHSF4: + db $F4,$02,Show +MapHSD6: + db $D6,$02,Show +MapHSD7: + db $D7,$03,Show + db $D7,$04,Show +MapHSD8: + db $D8,$03,Show + db $D8,$04,Show + db $D8,$05,Show + db $D8,$06,Show + db $D8,$08,Show +MapHSD9: + db $D9,$01,Show + db $D9,$02,Show + db $D9,$03,Show + db $D9,$04,Show +MapHSDA: + db $DA,$01,Show + db $DA,$02,Show +MapHSDB: + db $DB,$01,Show + db $DB,$02,Show + db $DB,$03,Show + db $DB,$04,Show +MapHSDC: + db $DC,$01,Show +MapHSE2: + db $E2,$01,Show + db $E2,$02,Show + db $E2,$03,Show +MapHSE3: + db $E3,$01,Show + db $E3,$02,Show + db $E3,$03,Show +MapHS6C: + db $6C,$03,Show + db $6C,$04,Show +MapHS78: + db $78,$02,Hide +MapHSC0: + db $C0,$01,Show + db $C0,$02,Show +MapHS9F: + db $9F,$01,Hide + db $9F,$02,Hide +MapHSA0: + db $A0,$01,Hide + db $A0,$02,Hide +MapHSA1: + db $A1,$02,Show + db $A1,$03,Show + db $A1,$05,Hide + db $A1,$06,Hide +MapHSA2: + db $A2,$01,Hide + db $A2,$02,Hide + db $A2,$03,Show + + db $FF + +INCBIN "baserom.gbc",$CD97,$CEB8-$CD97 + +; wild pokemon data: from 4EB8 to 55C7 + +LoadWildData: ; 4EB8 + ld hl,WildDataPointers + ld a,[W_CURMAP] + + ; get wild data for current map + ld c,a + ld b,0 + add hl,bc + add hl,bc + ld a,[hli] + ld h,[hl] + ld l,a ; hl now points to wild data for current map + ld a,[hli] + ld [W_GRASSRATE],a + and a + jr z,.NoGrassData\@ ; if no grass data, skip to surfing data + push hl + ld de,W_GRASSMONS ; otherwise, load grass data + ld bc,$0014 + call CopyData + pop hl + ld bc,$0014 + add hl,bc +.NoGrassData\@ + ld a,[hli] + ld [W_WATERRATE],a + and a + ret z ; if no water data, we're done + ld de,W_WATERMONS ; otherwise, load surfing data + ld bc,$0014 + jp CopyData + +WildDataPointers: ; 4EEB + dw NoMons ; PALLET_TOWN + dw NoMons ; VIRIDIAN_CITY + dw NoMons ; PEWTER_CITY + dw NoMons ; CERULEAN_CITY + dw NoMons ; LAVENDER_TOWN + dw NoMons ; VERMILION_CITY + dw NoMons ; CELADON_CITY + dw NoMons ; FUCHSIA_CITY + dw NoMons ; CINNABAR_ISLAND + dw NoMons ; INDIGO_PLATEAU + dw NoMons ; SAFFRON_CITY + dw NoMons ; unused + dw Route1Mons ; ROUTE_1 + dw Route2Mons ; ROUTE_2 + dw Route3Mons ; ROUTE_3 + dw Route4Mons ; ROUTE_4 + dw Route5Mons ; ROUTE_5 + dw Route6Mons ; ROUTE_6 + dw Route7Mons ; ROUTE_7 + dw Route8Mons ; ROUTE_8 + dw Route9Mons ; ROUTE_9 + dw Route10Mons ; ROUTE_10 + dw Route11Mons ; ROUTE_11 + dw Route12Mons ; ROUTE_12 + dw Route13Mons ; ROUTE_13 + dw Route14Mons ; ROUTE_14 + dw Route15Mons ; ROUTE_15 + dw Route16Mons ; ROUTE_16 + dw Route17Mons ; ROUTE_17 + dw Route18Mons ; ROUTE_18 + dw WaterMons ; ROUTE_19 + dw WaterMons ; ROUTE_20 + dw Route21Mons ; ROUTE_21 + dw Route22Mons ; ROUTE_22 + dw Route23Mons ; ROUTE_23 + dw Route24Mons ; ROUTE_24 + dw Route25Mons ; ROUTE_25 + dw NoMons ; REDS_HOUSE_1F + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw ForestMons ; ViridianForest + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw MoonMons1 + dw MoonMonsB1 + dw MoonMonsB2 + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw TunnelMonsB1 + dw PowerPlantMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw PlateauMons1 + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw TowerMons1 + dw TowerMons2 + dw TowerMons3 + dw TowerMons4 + dw TowerMons5 + dw TowerMons6 + dw TowerMons7 + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw IslandMonsB1 + dw IslandMonsB2 + dw IslandMonsB3 + dw IslandMonsB4 + dw NoMons + dw NoMons + dw MansionMons1 + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw IslandMons1 + dw NoMons + dw PlateauMons2 + dw NoMons + dw NoMons + dw CaveMons + dw PlateauMons3 + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw MansionMons2 + dw MansionMons3 + dw MansionMonsB1 + dw ZoneMons1 + dw ZoneMons2 + dw ZoneMons3 + dw ZoneMonsCenter + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw DungeonMons2 + dw DungeonMonsB1 + dw DungeonMons1 + dw NoMons + dw NoMons + dw NoMons + dw TunnelMonsB2 + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw NoMons + dw $FFFF + +; wild pokemon data is divided into two parts. +; first part: pokemon found in grass +; second part: pokemon found while surfing +; each part goes as follows: + ; if first byte == 00, then + ; no wild pokemon on this map + ; if first byte != 00, then + ; first byte is encounter rate + ; followed by 20 bytes: + ; level, species (ten times) + +IF _RED +NoMons: + db $00 + + db $00 + +Route1Mons: + db $19 + db 3,PIDGEY + db 3,RATTATA + db 3,RATTATA + db 2,RATTATA + db 2,PIDGEY + db 3,PIDGEY + db 3,PIDGEY + db 4,RATTATA + db 4,PIDGEY + db 5,PIDGEY + + db $00 + +Route2Mons: + db $19 + db 3,RATTATA + db 3,PIDGEY + db 4,PIDGEY + db 4,RATTATA + db 5,PIDGEY + db 3,WEEDLE + db 2,RATTATA + db 5,RATTATA + db 4,WEEDLE + db 5,WEEDLE + + db $00 + +Route22Mons: + db $19 + db 3,RATTATA + db 3,NIDORAN_M + db 4,RATTATA + db 4,NIDORAN_M + db 2,RATTATA + db 2,NIDORAN_M + db 3,SPEAROW + db 5,SPEAROW + db 3,NIDORAN_F + db 4,NIDORAN_F + + db $00 + +ForestMons: + db $08 + db 4,WEEDLE + db 5,KAKUNA + db 3,WEEDLE + db 5,WEEDLE + db 4,KAKUNA + db 6,KAKUNA + db 4,METAPOD + db 3,CATERPIE + db 3,PIKACHU + db 5,PIKACHU + + db $00 + +Route3Mons: + db $14 + db 6,PIDGEY + db 5,SPEAROW + db 7,PIDGEY + db 6,SPEAROW + db 7,SPEAROW + db 8,PIDGEY + db 8,SPEAROW + db 3,JIGGLYPUFF + db 5,JIGGLYPUFF + db 7,JIGGLYPUFF + + db $00 + +MoonMons1: + db $0A + db 8,ZUBAT + db 7,ZUBAT + db 9,ZUBAT + db 8,GEODUDE + db 6,ZUBAT + db 10,ZUBAT + db 10,GEODUDE + db 8,PARAS + db 11,ZUBAT + db 8,CLEFAIRY + + db $00 + +MoonMonsB1: + db $0A + db 8,ZUBAT + db 7,ZUBAT + db 7,GEODUDE + db 8,GEODUDE + db 9,ZUBAT + db 10,PARAS + db 10,ZUBAT + db 11,ZUBAT + db 9,CLEFAIRY + db 9,GEODUDE + + db $00 + +MoonMonsB2: + db $0A + db 9,ZUBAT + db 9,GEODUDE + db 10,ZUBAT + db 10,GEODUDE + db 11,ZUBAT + db 10,PARAS + db 12,PARAS + db 10,CLEFAIRY + db 12,ZUBAT + db 12,CLEFAIRY + + db $00 + +Route4Mons: + db $14 + db 10,RATTATA + db 10,SPEAROW + db 8,RATTATA + db 6,EKANS + db 8,SPEAROW + db 10,EKANS + db 12,RATTATA + db 12,SPEAROW + db 8,EKANS + db 12,EKANS + + db $00 + +Route24Mons: + db $19 + db 7,WEEDLE + db 8,KAKUNA + db 12,PIDGEY + db 12,ODDISH + db 13,ODDISH + db 10,ABRA + db 14,ODDISH + db 13,PIDGEY + db 8,ABRA + db 12,ABRA + + db $00 + +Route25Mons: + db $0F + db 8,WEEDLE + db 9,KAKUNA + db 13,PIDGEY + db 12,ODDISH + db 13,ODDISH + db 12,ABRA + db 14,ODDISH + db 10,ABRA + db 7,METAPOD + db 8,CATERPIE + + db $00 + +Route9Mons: + db $0F + db 16,RATTATA + db 16,SPEAROW + db 14,RATTATA + db 11,EKANS + db 13,SPEAROW + db 15,EKANS + db 17,RATTATA + db 17,SPEAROW + db 13,EKANS + db 17,EKANS + + db $00 + +Route5Mons: + db $0F + db 13,ODDISH + db 13,PIDGEY + db 15,PIDGEY + db 10,MANKEY + db 12,MANKEY + db 15,ODDISH + db 16,ODDISH + db 16,PIDGEY + db 14,MANKEY + db 16,MANKEY + + db $00 + +Route6Mons: + db $0F + db 13,ODDISH + db 13,PIDGEY + db 15,PIDGEY + db 10,MANKEY + db 12,MANKEY + db 15,ODDISH + db 16,ODDISH + db 16,PIDGEY + db 14,MANKEY + db 16,MANKEY + + db $00 + +Route11Mons: + db $0F + db 14,EKANS + db 15,SPEAROW + db 12,EKANS + db 9,DROWZEE + db 13,SPEAROW + db 13,DROWZEE + db 15,EKANS + db 17,SPEAROW + db 11,DROWZEE + db 15,DROWZEE + + db $00 + +TunnelMonsB1: + db $0F + db 16,ZUBAT + db 17,ZUBAT + db 17,GEODUDE + db 15,MACHOP + db 16,GEODUDE + db 18,ZUBAT + db 15,ZUBAT + db 17,MACHOP + db 13,ONIX + db 15,ONIX + + db $00 + +TunnelMonsB2: + db $0F + db 16,ZUBAT + db 17,ZUBAT + db 17,GEODUDE + db 15,MACHOP + db 16,GEODUDE + db 18,ZUBAT + db 17,MACHOP + db 17,ONIX + db 13,ONIX + db 18,GEODUDE + + db $00 + +Route10Mons: + db $0F + db 16,VOLTORB + db 16,SPEAROW + db 14,VOLTORB + db 11,EKANS + db 13,SPEAROW + db 15,EKANS + db 17,VOLTORB + db 17,SPEAROW + db 13,EKANS + db 17,EKANS + + db $00 + +Route12Mons: + db $0F + db 24,ODDISH + db 25,PIDGEY + db 23,PIDGEY + db 24,VENONAT + db 22,ODDISH + db 26,VENONAT + db 26,ODDISH + db 27,PIDGEY + db 28,GLOOM + db 30,GLOOM + + db $00 + +Route8Mons: + db $0F + db 18,PIDGEY + db 18,MANKEY + db 17,EKANS + db 16,GROWLITHE + db 20,PIDGEY + db 20,MANKEY + db 19,EKANS + db 17,GROWLITHE + db 15,GROWLITHE + db 18,GROWLITHE + + db $00 + +Route7Mons: + db $0F + db 19,PIDGEY + db 19,ODDISH + db 17,MANKEY + db 22,ODDISH + db 22,PIDGEY + db 18,MANKEY + db 18,GROWLITHE + db 20,GROWLITHE + db 19,MANKEY + db 20,MANKEY + + db $00 + +TowerMons1: + db $00 + + db $00 + +TowerMons2: + db $00 + + db $00 + +TowerMons3: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 24,GASTLY + db 20,CUBONE + db 22,CUBONE + db 25,HAUNTER + + db $00 + +TowerMons4: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,HAUNTER + db 20,CUBONE + db 22,CUBONE + db 24,GASTLY + + db $00 + +TowerMons5: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,HAUNTER + db 20,CUBONE + db 22,CUBONE + db 24,GASTLY + + db $00 + +TowerMons6: + db $0F + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 20,GASTLY + db 19,GASTLY + db 26,HAUNTER + db 22,CUBONE + db 24,CUBONE + db 28,HAUNTER + + db $00 + +TowerMons7: + db $0F + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 20,GASTLY + db 28,HAUNTER + db 22,CUBONE + db 24,CUBONE + db 28,HAUNTER + db 30,HAUNTER + + db $00 + +Route13Mons: + db $14 + db 24,ODDISH + db 25,PIDGEY + db 27,PIDGEY + db 24,VENONAT + db 22,ODDISH + db 26,VENONAT + db 26,ODDISH + db 25,DITTO + db 28,GLOOM + db 30,GLOOM + + db $00 + +Route14Mons: + db $0F + db 24,ODDISH + db 26,PIDGEY + db 23,DITTO + db 24,VENONAT + db 22,ODDISH + db 26,VENONAT + db 26,ODDISH + db 30,GLOOM + db 28,PIDGEOTTO + db 30,PIDGEOTTO + + db $00 + +Route15Mons: + db $0F + db 24,ODDISH + db 26,DITTO + db 23,PIDGEY + db 26,VENONAT + db 22,ODDISH + db 28,VENONAT + db 26,ODDISH + db 30,GLOOM + db 28,PIDGEOTTO + db 30,PIDGEOTTO + + db $00 + +Route16Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 18,RATTATA + db 20,DODUO + db 20,RATTATA + db 18,DODUO + db 22,DODUO + db 22,RATTATA + db 23,RATICATE + db 25,RATICATE + + db $00 + +Route17Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 25,RATICATE + db 24,DODUO + db 27,RATICATE + db 26,DODUO + db 28,DODUO + db 29,RATICATE + db 25,FEAROW + db 27,FEAROW + + db $00 + +Route18Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 25,RATICATE + db 24,DODUO + db 25,FEAROW + db 26,DODUO + db 28,DODUO + db 29,RATICATE + db 27,FEAROW + db 29,FEAROW + + db $00 + +ZoneMonsCenter: + db $1E + db 22,NIDORAN_M + db 25,RHYHORN + db 22,VENONAT + db 24,EXEGGCUTE + db 31,NIDORINO + db 25,EXEGGCUTE + db 31,NIDORINA + db 30,PARASECT + db 23,SCYTHER + db 23,CHANSEY + + db $00 + +ZoneMons1: + db $1E + db 24,NIDORAN_M + db 26,DODUO + db 22,PARAS + db 25,EXEGGCUTE + db 33,NIDORINO + db 23,EXEGGCUTE + db 24,NIDORAN_F + db 25,PARASECT + db 25,KANGASKHAN + db 28,SCYTHER + + db $00 + +ZoneMons2: + db $1E + db 22,NIDORAN_M + db 26,RHYHORN + db 23,PARAS + db 25,EXEGGCUTE + db 30,NIDORINO + db 27,EXEGGCUTE + db 30,NIDORINA + db 32,VENOMOTH + db 26,CHANSEY + db 28,TAUROS + + db $00 + +ZoneMons3: + db $1E + db 25,NIDORAN_M + db 26,DODUO + db 23,VENONAT + db 24,EXEGGCUTE + db 33,NIDORINO + db 26,EXEGGCUTE + db 25,NIDORAN_F + db 31,VENOMOTH + db 26,TAUROS + db 28,KANGASKHAN + + db $00 + +WaterMons: + db $00 + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +IslandMons1: + db $0F + db 30,SEEL + db 30,SLOWPOKE + db 30,SHELLDER + db 30,HORSEA + db 28,HORSEA + db 21,ZUBAT + db 29,GOLBAT + db 28,PSYDUCK + db 28,SHELLDER + db 38,GOLDUCK + + db $00 + +IslandMonsB1: + db $0A + db 30,STARYU + db 30,HORSEA + db 32,SHELLDER + db 32,HORSEA + db 28,SLOWPOKE + db 30,SEEL + db 30,SLOWPOKE + db 28,SEEL + db 38,DEWGONG + db 37,SEADRA + + db $00 + +IslandMonsB2: + db $0A + db 30,SEEL + db 30,SLOWPOKE + db 32,SEEL + db 32,SLOWPOKE + db 28,HORSEA + db 30,STARYU + db 30,HORSEA + db 28,SHELLDER + db 30,GOLBAT + db 37,SLOWBRO + + db $00 + +IslandMonsB3: + db $0A + db 31,SLOWPOKE + db 31,SEEL + db 33,SLOWPOKE + db 33,SEEL + db 29,HORSEA + db 31,SHELLDER + db 31,HORSEA + db 29,SHELLDER + db 39,SEADRA + db 37,DEWGONG + + db $00 + +IslandMonsB4: + db $0A + db 31,HORSEA + db 31,SHELLDER + db 33,HORSEA + db 33,SHELLDER + db 29,SLOWPOKE + db 31,SEEL + db 31,SLOWPOKE + db 29,SEEL + db 39,SLOWBRO + db 32,GOLBAT + + db $00 + +MansionMons1: + db $0A + db 32,KOFFING + db 30,KOFFING + db 34,PONYTA + db 30,PONYTA + db 34,GROWLITHE + db 32,PONYTA + db 30,GRIMER + db 28,PONYTA + db 37,WEEZING + db 39,MUK + + db $00 + +MansionMons2: + db $0A + db 32,GROWLITHE + db 34,KOFFING + db 34,KOFFING + db 30,PONYTA + db 30,KOFFING + db 32,PONYTA + db 30,GRIMER + db 28,PONYTA + db 39,WEEZING + db 37,MUK + + db $00 + +MansionMons3: + db $0A + db 31,KOFFING + db 33,GROWLITHE + db 35,KOFFING + db 32,PONYTA + db 34,PONYTA + db 40,WEEZING + db 34,GRIMER + db 38,WEEZING + db 36,PONYTA + db 42,MUK + + db $00 + +MansionMonsB1: + db $0A + db 33,KOFFING + db 31,KOFFING + db 35,GROWLITHE + db 32,PONYTA + db 31,KOFFING + db 40,WEEZING + db 34,PONYTA + db 35,GRIMER + db 42,WEEZING + db 42,MUK + + db $00 + +Route21Mons: + db $19 + db 21,RATTATA + db 23,PIDGEY + db 30,RATICATE + db 23,RATTATA + db 21,PIDGEY + db 30,PIDGEOTTO + db 32,PIDGEOTTO + db 28,TANGELA + db 30,TANGELA + db 32,TANGELA + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +DungeonMons1: + db $0A + db 46,GOLBAT + db 46,HYPNO + db 46,MAGNETON + db 49,DODRIO + db 49,VENOMOTH + db 52,ARBOK + db 49,KADABRA + db 52,PARASECT + db 53,RAICHU + db 53,DITTO + + db $00 + +DungeonMons2: + db $0F + db 51,DODRIO + db 51,VENOMOTH + db 51,KADABRA + db 52,RHYDON + db 52,MAROWAK + db 52,ELECTRODE + db 56,CHANSEY + db 54,WIGGLYTUFF + db 55,DITTO + db 60,DITTO + + db $00 + +DungeonMonsB1: + db $19 + db 55,RHYDON + db 55,MAROWAK + db 55,ELECTRODE + db 64,CHANSEY + db 64,PARASECT + db 64,RAICHU + db 57,ARBOK + db 65,DITTO + db 63,DITTO + db 67,DITTO + + db $00 + +PowerPlantMons: + db $0A + db 21,VOLTORB + db 21,MAGNEMITE + db 20,PIKACHU + db 24,PIKACHU + db 23,MAGNEMITE + db 23,VOLTORB + db 32,MAGNETON + db 35,MAGNETON + db 33,ELECTABUZZ + db 36,ELECTABUZZ + + db $00 + +Route23Mons: + db $0A + db 26,EKANS + db 33,DITTO + db 26,SPEAROW + db 38,FEAROW + db 38,DITTO + db 38,FEAROW + db 41,ARBOK + db 43,DITTO + db 41,FEAROW + db 43,FEAROW + + db $00 + +PlateauMons2: + db $0A + db 22,MACHOP + db 24,GEODUDE + db 26,ZUBAT + db 36,ONIX + db 39,ONIX + db 42,ONIX + db 41,MACHOKE + db 40,GOLBAT + db 40,MAROWAK + db 43,GRAVELER + + db $00 + +PlateauMons3: + db $0F + db 24,MACHOP + db 26,GEODUDE + db 22,ZUBAT + db 42,ONIX + db 40,VENOMOTH + db 45,ONIX + db 43,GRAVELER + db 41,GOLBAT + db 42,MACHOKE + db 45,MACHOKE + + db $00 + +PlateauMons1: + db $0F + db 24,MACHOP + db 26,GEODUDE + db 22,ZUBAT + db 36,ONIX + db 39,ONIX + db 42,ONIX + db 41,GRAVELER + db 41,GOLBAT + db 42,MACHOKE + db 43,MAROWAK + + db $00 + +CaveMons: + db $14 + db 18,DIGLETT + db 19,DIGLETT + db 17,DIGLETT + db 20,DIGLETT + db 16,DIGLETT + db 15,DIGLETT + db 21,DIGLETT + db 22,DIGLETT + db 29,DUGTRIO + db 31,DUGTRIO + + db $00 + +ENDC +IF _GREEN || !_JAPAN && _BLUE +NoMons: + db $00 + + db $00 + +Route1Mons: + db $19 + db 3,PIDGEY + db 3,RATTATA + db 3,RATTATA + db 2,RATTATA + db 2,PIDGEY + db 3,PIDGEY + db 3,PIDGEY + db 4,RATTATA + db 4,PIDGEY + db 5,PIDGEY + + db $00 + +Route2Mons: + db $19 + db 3,RATTATA + db 3,PIDGEY + db 4,PIDGEY + db 4,RATTATA + db 5,PIDGEY + db 3,CATERPIE + db 2,RATTATA + db 5,RATTATA + db 4,CATERPIE + db 5,CATERPIE + + db $00 + +Route22Mons: + db $19 + db 3,RATTATA + db 3,NIDORAN_F + db 4,RATTATA + db 4,NIDORAN_F + db 2,RATTATA + db 2,NIDORAN_F + db 3,SPEAROW + db 5,SPEAROW + db 3,NIDORAN_M + db 4,NIDORAN_M + + db $00 + +ForestMons: + db $08 + db 4,CATERPIE + db 5,METAPOD + db 3,CATERPIE + db 5,CATERPIE + db 4,METAPOD + db 6,METAPOD + db 4,KAKUNA + db 3,WEEDLE + db 3,PIKACHU + db 5,PIKACHU + + db $00 + +Route3Mons: + db $14 + db 6,PIDGEY + db 5,SPEAROW + db 7,PIDGEY + db 6,SPEAROW + db 7,SPEAROW + db 8,PIDGEY + db 8,SPEAROW + db 3,JIGGLYPUFF + db 5,JIGGLYPUFF + db 7,JIGGLYPUFF + + db $00 + +MoonMons1: + db $0A + db 8,ZUBAT + db 7,ZUBAT + db 9,ZUBAT + db 8,GEODUDE + db 6,ZUBAT + db 10,ZUBAT + db 10,GEODUDE + db 8,PARAS + db 11,ZUBAT + db 8,CLEFAIRY + + db $00 + +MoonMonsB1: + db $0A + db 8,ZUBAT + db 7,ZUBAT + db 7,GEODUDE + db 8,GEODUDE + db 9,ZUBAT + db 10,PARAS + db 10,ZUBAT + db 11,ZUBAT + db 9,CLEFAIRY + db 9,GEODUDE + + db $00 + +MoonMonsB2: + db $0A + db 9,ZUBAT + db 9,GEODUDE + db 10,ZUBAT + db 10,GEODUDE + db 11,ZUBAT + db 10,PARAS + db 12,PARAS + db 10,CLEFAIRY + db 12,ZUBAT + db 12,CLEFAIRY + + db $00 + +Route4Mons: + db $14 + db 10,RATTATA + db 10,SPEAROW + db 8,RATTATA + db 6,SANDSHREW + db 8,SPEAROW + db 10,SANDSHREW + db 12,RATTATA + db 12,SPEAROW + db 8,SANDSHREW + db 12,SANDSHREW + + db $00 + +Route24Mons: + db $19 + db 7,CATERPIE + db 8,METAPOD + db 12,PIDGEY + db 12,BELLSPROUT + db 13,BELLSPROUT + db 10,ABRA + db 14,BELLSPROUT + db 13,PIDGEY + db 8,ABRA + db 12,ABRA + + db $00 + +Route25Mons: + db $0F + db 8,CATERPIE + db 9,METAPOD + db 13,PIDGEY + db 12,BELLSPROUT + db 13,BELLSPROUT + db 12,ABRA + db 14,BELLSPROUT + db 10,ABRA + db 7,KAKUNA + db 8,WEEDLE + + db $00 + +Route9Mons: + db $0F + db 16,RATTATA + db 16,SPEAROW + db 14,RATTATA + db 11,SANDSHREW + db 13,SPEAROW + db 15,SANDSHREW + db 17,RATTATA + db 17,SPEAROW + db 13,SANDSHREW + db 17,SANDSHREW + + db $00 + +Route5Mons: + db $0F + db 13,BELLSPROUT + db 13,PIDGEY + db 15,PIDGEY + db 10,MEOWTH + db 12,MEOWTH + db 15,BELLSPROUT + db 16,BELLSPROUT + db 16,PIDGEY + db 14,MEOWTH + db 16,MEOWTH + + db $00 + +Route6Mons: + db $0F + db 13,BELLSPROUT + db 13,PIDGEY + db 15,PIDGEY + db 10,MEOWTH + db 12,MEOWTH + db 15,BELLSPROUT + db 16,BELLSPROUT + db 16,PIDGEY + db 14,MEOWTH + db 16,MEOWTH + + db $00 + +Route11Mons: + db $0F + db 14,SANDSHREW + db 15,SPEAROW + db 12,SANDSHREW + db 9,DROWZEE + db 13,SPEAROW + db 13,DROWZEE + db 15,SANDSHREW + db 17,SPEAROW + db 11,DROWZEE + db 15,DROWZEE + + db $00 + +TunnelMonsB1: + db $0F + db 16,ZUBAT + db 17,ZUBAT + db 17,GEODUDE + db 15,MACHOP + db 16,GEODUDE + db 18,ZUBAT + db 15,ZUBAT + db 17,MACHOP + db 13,ONIX + db 15,ONIX + + db $00 + +TunnelMonsB2: + db $0F + db 16,ZUBAT + db 17,ZUBAT + db 17,GEODUDE + db 15,MACHOP + db 16,GEODUDE + db 18,ZUBAT + db 17,MACHOP + db 17,ONIX + db 13,ONIX + db 18,GEODUDE + + db $00 + +Route10Mons: + db $0F + db 16,VOLTORB + db 16,SPEAROW + db 14,VOLTORB + db 11,SANDSHREW + db 13,SPEAROW + db 15,SANDSHREW + db 17,VOLTORB + db 17,SPEAROW + db 13,SANDSHREW + db 17,SANDSHREW + + db $00 + +Route12Mons: + db $0F + db 24,BELLSPROUT + db 25,PIDGEY + db 23,PIDGEY + db 24,VENONAT + db 22,BELLSPROUT + db 26,VENONAT + db 26,BELLSPROUT + db 27,PIDGEY + db 28,WEEPINBELL + db 30,WEEPINBELL + + db $00 + +Route8Mons: + db $0F + db 18,PIDGEY + db 18,MEOWTH + db 17,SANDSHREW + db 16,VULPIX + db 20,PIDGEY + db 20,MEOWTH + db 19,SANDSHREW + db 17,VULPIX + db 15,VULPIX + db 18,VULPIX + + db $00 + +Route7Mons: + db $0F + db 19,PIDGEY + db 19,BELLSPROUT + db 17,MEOWTH + db 22,BELLSPROUT + db 22,PIDGEY + db 18,MEOWTH + db 18,VULPIX + db 20,VULPIX + db 19,MEOWTH + db 20,MEOWTH + + db $00 + +TowerMons1: + db $00 + + db $00 + +TowerMons2: + db $00 + + db $00 + +TowerMons3: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 24,GASTLY + db 20,CUBONE + db 22,CUBONE + db 25,HAUNTER + + db $00 + +TowerMons4: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,HAUNTER + db 20,CUBONE + db 22,CUBONE + db 24,GASTLY + + db $00 + +TowerMons5: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,HAUNTER + db 20,CUBONE + db 22,CUBONE + db 24,GASTLY + + db $00 + +TowerMons6: + db $0F + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 20,GASTLY + db 19,GASTLY + db 26,HAUNTER + db 22,CUBONE + db 24,CUBONE + db 28,HAUNTER + + db $00 + +TowerMons7: + db $0F + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 20,GASTLY + db 28,HAUNTER + db 22,CUBONE + db 24,CUBONE + db 28,HAUNTER + db 30,HAUNTER + + db $00 + +Route13Mons: + db $14 + db 24,BELLSPROUT + db 25,PIDGEY + db 27,PIDGEY + db 24,VENONAT + db 22,BELLSPROUT + db 26,VENONAT + db 26,BELLSPROUT + db 25,DITTO + db 28,WEEPINBELL + db 30,WEEPINBELL + + db $00 + +Route14Mons: + db $0F + db 24,BELLSPROUT + db 26,PIDGEY + db 23,DITTO + db 24,VENONAT + db 22,BELLSPROUT + db 26,VENONAT + db 26,BELLSPROUT + db 30,WEEPINBELL + db 28,PIDGEOTTO + db 30,PIDGEOTTO + + db $00 + +Route15Mons: + db $0F + db 24,BELLSPROUT + db 26,DITTO + db 23,PIDGEY + db 26,VENONAT + db 22,BELLSPROUT + db 28,VENONAT + db 26,BELLSPROUT + db 30,WEEPINBELL + db 28,PIDGEOTTO + db 30,PIDGEOTTO + + db $00 + +Route16Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 18,RATTATA + db 20,DODUO + db 20,RATTATA + db 18,DODUO + db 22,DODUO + db 22,RATTATA + db 23,RATICATE + db 25,RATICATE + + db $00 + +Route17Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 25,RATICATE + db 24,DODUO + db 27,RATICATE + db 26,DODUO + db 28,DODUO + db 29,RATICATE + db 25,FEAROW + db 27,FEAROW + + db $00 + +Route18Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 25,RATICATE + db 24,DODUO + db 25,FEAROW + db 26,DODUO + db 28,DODUO + db 29,RATICATE + db 27,FEAROW + db 29,FEAROW + + db $00 + +ZoneMonsCenter: + db $1E + db 22,NIDORAN_F + db 25,RHYHORN + db 22,VENONAT + db 24,EXEGGCUTE + db 31,NIDORINA + db 25,EXEGGCUTE + db 31,NIDORINO + db 30,PARASECT + db 23,PINSIR + db 23,CHANSEY + + db $00 + +ZoneMons1: + db $1E + db 24,NIDORAN_F + db 26,DODUO + db 22,PARAS + db 25,EXEGGCUTE + db 33,NIDORINA + db 23,EXEGGCUTE + db 24,NIDORAN_M + db 25,PARASECT + db 25,KANGASKHAN + db 28,PINSIR + + db $00 + +ZoneMons2: + db $1E + db 22,NIDORAN_F + db 26,RHYHORN + db 23,PARAS + db 25,EXEGGCUTE + db 30,NIDORINA + db 27,EXEGGCUTE + db 30,NIDORINO + db 32,VENOMOTH + db 26,CHANSEY + db 28,TAUROS + + db $00 + +ZoneMons3: + db $1E + db 25,NIDORAN_F + db 26,DODUO + db 23,VENONAT + db 24,EXEGGCUTE + db 33,NIDORINA + db 26,EXEGGCUTE + db 25,NIDORAN_M + db 31,VENOMOTH + db 26,TAUROS + db 28,KANGASKHAN + + db $00 + +WaterMons: + db $00 + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +IslandMons1: + db $0F + db 30,SEEL + db 30,PSYDUCK + db 30,STARYU + db 30,KRABBY + db 28,KRABBY + db 21,ZUBAT + db 29,GOLBAT + db 28,SLOWPOKE + db 28,STARYU + db 38,SLOWBRO + + db $00 + +IslandMonsB1: + db $0A + db 30,SHELLDER + db 30,KRABBY + db 32,STARYU + db 32,KRABBY + db 28,PSYDUCK + db 30,SEEL + db 30,PSYDUCK + db 28,SEEL + db 38,DEWGONG + db 37,KINGLER + + db $00 + +IslandMonsB2: + db $0A + db 30,SEEL + db 30,PSYDUCK + db 32,SEEL + db 32,PSYDUCK + db 28,KRABBY + db 30,SHELLDER + db 30,KRABBY + db 28,STARYU + db 30,GOLBAT + db 37,GOLDUCK + + db $00 + +IslandMonsB3: + db $0A + db 31,PSYDUCK + db 31,SEEL + db 33,PSYDUCK + db 33,SEEL + db 29,KRABBY + db 31,STARYU + db 31,KRABBY + db 29,STARYU + db 39,KINGLER + db 37,DEWGONG + + db $00 + +IslandMonsB4: + db $0A + db 31,KRABBY + db 31,STARYU + db 33,KRABBY + db 33,STARYU + db 29,PSYDUCK + db 31,SEEL + db 31,PSYDUCK + db 29,SEEL + db 39,GOLDUCK + db 32,GOLBAT + + db $00 + +MansionMons1: + db $0A + db 32,GRIMER + db 30,GRIMER + db 34,PONYTA + db 30,PONYTA + db 34,VULPIX + db 32,PONYTA + db 30,KOFFING + db 28,PONYTA + db 37,MUK + db 39,WEEZING + + db $00 + +MansionMons2: + db $0A + db 32,VULPIX + db 34,GRIMER + db 34,GRIMER + db 30,PONYTA + db 30,GRIMER + db 32,PONYTA + db 30,KOFFING + db 28,PONYTA + db 39,MUK + db 37,WEEZING + + db $00 + +MansionMons3: + db $0A + db 31,GRIMER + db 33,VULPIX + db 35,GRIMER + db 32,PONYTA + db 34,MAGMAR + db 40,MUK + db 34,KOFFING + db 38,MUK + db 36,PONYTA + db 42,WEEZING + + db $00 + +MansionMonsB1: + db $0A + db 33,GRIMER + db 31,GRIMER + db 35,VULPIX + db 32,PONYTA + db 31,GRIMER + db 40,MUK + db 34,PONYTA + db 35,KOFFING + db 38,MAGMAR + db 42,WEEZING + + db $00 + +Route21Mons: + db $19 + db 21,RATTATA + db 23,PIDGEY + db 30,RATICATE + db 23,RATTATA + db 21,PIDGEY + db 30,PIDGEOTTO + db 32,PIDGEOTTO + db 28,TANGELA + db 30,TANGELA + db 32,TANGELA + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +DungeonMons1: + db $0A + db 46,GOLBAT + db 46,HYPNO + db 46,MAGNETON + db 49,DODRIO + db 49,VENOMOTH + db 52,SANDSLASH + db 49,KADABRA + db 52,PARASECT + db 53,RAICHU + db 53,DITTO + + db $00 + +DungeonMons2: + db $0F + db 51,DODRIO + db 51,VENOMOTH + db 51,KADABRA + db 52,RHYDON + db 52,MAROWAK + db 52,ELECTRODE + db 56,CHANSEY + db 54,WIGGLYTUFF + db 55,DITTO + db 60,DITTO + + db $00 + +DungeonMonsB1: + db $19 + db 55,RHYDON + db 55,MAROWAK + db 55,ELECTRODE + db 64,CHANSEY + db 64,PARASECT + db 64,RAICHU + db 57,SANDSLASH + db 65,DITTO + db 63,DITTO + db 67,DITTO + + db $00 + +PowerPlantMons: + db $0A + db 21,VOLTORB + db 21,MAGNEMITE + db 20,PIKACHU + db 24,PIKACHU + db 23,MAGNEMITE + db 23,VOLTORB + db 32,MAGNETON + db 35,MAGNETON + db 33,RAICHU + db 36,RAICHU + + db $00 + +Route23Mons: + db $0A + db 26,SANDSHREW + db 33,DITTO + db 26,SPEAROW + db 38,FEAROW + db 38,DITTO + db 38,FEAROW + db 41,SANDSLASH + db 43,DITTO + db 41,FEAROW + db 43,FEAROW + + db $00 + +PlateauMons2: + db $0A + db 22,MACHOP + db 24,GEODUDE + db 26,ZUBAT + db 36,ONIX + db 39,ONIX + db 42,ONIX + db 41,MACHOKE + db 40,GOLBAT + db 40,MAROWAK + db 43,GRAVELER + + db $00 + +PlateauMons3: + db $0F + db 24,MACHOP + db 26,GEODUDE + db 22,ZUBAT + db 42,ONIX + db 40,VENOMOTH + db 45,ONIX + db 43,GRAVELER + db 41,GOLBAT + db 42,MACHOKE + db 45,MACHOKE + + db $00 + +PlateauMons1: + db $0F + db 24,MACHOP + db 26,GEODUDE + db 22,ZUBAT + db 36,ONIX + db 39,ONIX + db 42,ONIX + db 41,GRAVELER + db 41,GOLBAT + db 42,MACHOKE + db 43,MAROWAK + + db $00 + +CaveMons: + db $14 + db 18,DIGLETT + db 19,DIGLETT + db 17,DIGLETT + db 20,DIGLETT + db 16,DIGLETT + db 15,DIGLETT + db 21,DIGLETT + db 22,DIGLETT + db 29,DUGTRIO + db 31,DUGTRIO + + db $00 + +ENDC +IF _JAPAN && _BLUE +NoMons: + db $00 + + db $00 + +Route1Mons: + db $19 + db 3,PIDGEY + db 3,RATTATA + db 3,RATTATA + db 2,RATTATA + db 2,PIDGEY + db 3,PIDGEY + db 3,PIDGEY + db 4,RATTATA + db 4,PIDGEY + db 5,PIDGEY + + db $00 + +Route2Mons: + db $19 + db 3,RATTATA + db 3,PIDGEY + db 4,PIDGEY + db 4,RATTATA + db 5,PIDGEY + db 3,CATERPIE + db 2,RATTATA + db 5,RATTATA + db 4,CATERPIE + db 5,CATERPIE + + db $00 + +Route22Mons: + db $19 + db 3,RATTATA + db 3,NIDORAN_M + db 4,RATTATA + db 4,NIDORAN_M + db 2,RATTATA + db 2,NIDORAN_M + db 3,SPEAROW + db 5,SPEAROW + db 3,NIDORAN_F + db 4,NIDORAN_F + + db $00 + +ForestMons: + db $08 + db 4,CATERPIE + db 5,METAPOD + db 3,CATERPIE + db 5,CATERPIE + db 4,METAPOD + db 6,METAPOD + db 4,KAKUNA + db 3,WEEDLE + db 3,PIKACHU + db 5,PIKACHU + + db $00 + +Route3Mons: + db $14 + db 6,PIDGEY + db 5,SPEAROW + db 7,PIDGEY + db 6,SPEAROW + db 7,SPEAROW + db 8,PIDGEY + db 8,SPEAROW + db 3,JIGGLYPUFF + db 5,JIGGLYPUFF + db 7,JIGGLYPUFF + + db $00 + +MoonMons1: + db $0A + db 8,ZUBAT + db 7,ZUBAT + db 9,ZUBAT + db 8,GEODUDE + db 6,ZUBAT + db 10,ZUBAT + db 10,GEODUDE + db 8,PARAS + db 11,ZUBAT + db 8,CLEFAIRY + + db $00 + +MoonMonsB1: + db $0A + db 8,ZUBAT + db 7,ZUBAT + db 7,GEODUDE + db 8,GEODUDE + db 9,ZUBAT + db 10,PARAS + db 10,ZUBAT + db 11,ZUBAT + db 9,CLEFAIRY + db 9,GEODUDE + + db $00 + +MoonMonsB2: + db $0A + db 9,ZUBAT + db 9,GEODUDE + db 10,ZUBAT + db 10,GEODUDE + db 11,ZUBAT + db 10,PARAS + db 12,PARAS + db 10,CLEFAIRY + db 12,ZUBAT + db 12,CLEFAIRY + + db $00 + +Route4Mons: + db $14 + db 10,RATTATA + db 10,SPEAROW + db 8,RATTATA + db 6,SANDSHREW + db 8,SPEAROW + db 10,SANDSHREW + db 12,RATTATA + db 12,SPEAROW + db 8,SANDSHREW + db 12,SANDSHREW + + db $00 + +Route24Mons: + db $19 + db 7,CATERPIE + db 8,METAPOD + db 12,PIDGEY + db 12,ODDISH + db 13,ODDISH + db 10,ABRA + db 14,ODDISH + db 13,PIDGEY + db 8,ABRA + db 12,ABRA + + db $00 + +Route25Mons: + db $0F + db 8,CATERPIE + db 9,METAPOD + db 13,PIDGEY + db 12,ODDISH + db 13,ODDISH + db 12,ABRA + db 14,ODDISH + db 10,ABRA + db 7,KAKUNA + db 8,WEEDLE + + db $00 + +Route9Mons: + db $0F + db 16,RATTATA + db 16,SPEAROW + db 14,RATTATA + db 11,SANDSHREW + db 13,SPEAROW + db 15,SANDSHREW + db 17,RATTATA + db 17,SPEAROW + db 13,SANDSHREW + db 17,SANDSHREW + + db $00 + +Route5Mons: + db $0F + db 13,ODDISH + db 13,PIDGEY + db 15,PIDGEY + db 10,MEOWTH + db 12,MEOWTH + db 15,ODDISH + db 16,ODDISH + db 16,PIDGEY + db 14,MEOWTH + db 16,MEOWTH + + db $00 + +Route6Mons: + db $0F + db 13,ODDISH + db 13,PIDGEY + db 15,PIDGEY + db 10,MEOWTH + db 12,MEOWTH + db 15,ODDISH + db 16,ODDISH + db 16,PIDGEY + db 14,MEOWTH + db 16,MEOWTH + + db $00 + +Route11Mons: + db $0F + db 14,SANDSHREW + db 15,SPEAROW + db 12,SANDSHREW + db 9,DROWZEE + db 13,SPEAROW + db 13,DROWZEE + db 15,SANDSHREW + db 17,SPEAROW + db 11,DROWZEE + db 15,DROWZEE + + db $00 + +TunnelMonsB1: + db $0F + db 16,ZUBAT + db 17,ZUBAT + db 17,GEODUDE + db 15,MACHOP + db 16,GEODUDE + db 18,DITTO + db 15,ZUBAT + db 17,MACHOP + db 13,ONIX + db 15,ONIX + + db $00 + +TunnelMonsB2: + db $0F + db 16,ZUBAT + db 17,ZUBAT + db 17,GEODUDE + db 15,MACHOP + db 16,GEODUDE + db 18,DITTO + db 17,MACHOP + db 17,ONIX + db 13,ONIX + db 18,GEODUDE + + db $00 + +Route10Mons: + db $0F + db 16,VOLTORB + db 16,SPEAROW + db 14,VOLTORB + db 11,SANDSHREW + db 13,SPEAROW + db 15,SANDSHREW + db 17,VOLTORB + db 17,SPEAROW + db 13,SANDSHREW + db 17,SANDSHREW + + db $00 + +Route12Mons: + db $0F + db 24,ODDISH + db 25,PIDGEY + db 23,PIDGEY + db 24,VENONAT + db 22,ODDISH + db 26,VENONAT + db 26,ODDISH + db 27,PIDGEY + db 28,GLOOM + db 30,GLOOM + + db $00 + +Route8Mons: + db $0F + db 18,PIDGEY + db 18,MEOWTH + db 17,SANDSHREW + db 16,GROWLITHE + db 20,PIDGEY + db 20,MEOWTH + db 19,SANDSHREW + db 17,GROWLITHE + db 15,GROWLITHE + db 18,GROWLITHE + + db $00 + +Route7Mons: + db $0F + db 19,PIDGEY + db 19,ODDISH + db 17,MEOWTH + db 22,ODDISH + db 22,PIDGEY + db 18,MEOWTH + db 18,GROWLITHE + db 20,GROWLITHE + db 19,MEOWTH + db 20,MEOWTH + + db $00 + +TowerMons1: + db $00 + + db $00 + +TowerMons2: + db $00 + + db $00 + +TowerMons3: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 24,GASTLY + db 20,CUBONE + db 22,CUBONE + db 25,HAUNTER + + db $00 + +TowerMons4: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,HAUNTER + db 20,CUBONE + db 22,CUBONE + db 24,GASTLY + + db $00 + +TowerMons5: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,HAUNTER + db 20,CUBONE + db 22,CUBONE + db 24,GASTLY + + db $00 + +TowerMons6: + db $0F + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 20,GASTLY + db 19,GASTLY + db 26,HAUNTER + db 22,CUBONE + db 24,CUBONE + db 28,HAUNTER + + db $00 + +TowerMons7: + db $0F + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 20,GASTLY + db 28,HAUNTER + db 22,CUBONE + db 24,CUBONE + db 28,HAUNTER + db 30,HAUNTER + + db $00 + +Route13Mons: + db $14 + db 24,ODDISH + db 25,PIDGEY + db 27,PIDGEY + db 24,VENONAT + db 22,ODDISH + db 26,VENONAT + db 26,ODDISH + db 25,DITTO + db 28,GLOOM + db 30,GLOOM + + db $00 + +Route14Mons: + db $0F + db 24,ODDISH + db 26,PIDGEY + db 23,DITTO + db 24,VENONAT + db 22,ODDISH + db 26,VENONAT + db 26,ODDISH + db 30,GLOOM + db 28,PIDGEOTTO + db 30,PIDGEOTTO + + db $00 + +Route15Mons: + db $0F + db 24,ODDISH + db 26,DITTO + db 23,PIDGEY + db 26,VENONAT + db 22,ODDISH + db 28,VENONAT + db 26,ODDISH + db 30,GLOOM + db 28,PIDGEOTTO + db 30,PIDGEOTTO + + db $00 + +Route16Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 18,RATTATA + db 20,DODUO + db 20,RATTATA + db 18,DODUO + db 22,DODUO + db 22,RATTATA + db 23,RATICATE + db 25,RATICATE + + db $00 + +Route17Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 25,RATICATE + db 24,DODUO + db 27,RATICATE + db 26,DODUO + db 28,DODUO + db 29,RATICATE + db 25,FEAROW + db 27,FEAROW + + db $00 + +Route18Mons: + db $19 + db 20,SPEAROW + db 22,SPEAROW + db 25,RATICATE + db 24,DODUO + db 25,FEAROW + db 26,DODUO + db 28,DODUO + db 29,RATICATE + db 27,FEAROW + db 29,FEAROW + + db $00 + +ZoneMonsCenter: + db $1E + db 22,NIDORAN_M + db 25,RHYHORN + db 22,VENONAT + db 24,EXEGGCUTE + db 31,NIDORINO + db 25,EXEGGCUTE + db 31,NIDORINA + db 30,PARASECT + db 23,SCYTHER + db 23,CHANSEY + + db $00 + +ZoneMons1: + db $1E + db 24,NIDORAN_M + db 26,DODUO + db 22,PARAS + db 25,EXEGGCUTE + db 33,NIDORINO + db 23,EXEGGCUTE + db 24,NIDORAN_F + db 25,PARASECT + db 25,LICKITUNG + db 28,SCYTHER + + db $00 + +ZoneMons2: + db $1E + db 22,NIDORAN_M + db 26,RHYHORN + db 23,PARAS + db 25,EXEGGCUTE + db 30,NIDORINO + db 27,EXEGGCUTE + db 30,NIDORINA + db 32,VENOMOTH + db 26,CHANSEY + db 28,PINSIR + + db $00 + +ZoneMons3: + db $1E + db 25,NIDORAN_M + db 26,DODUO + db 23,VENONAT + db 24,EXEGGCUTE + db 33,NIDORINO + db 26,EXEGGCUTE + db 25,NIDORAN_F + db 31,VENOMOTH + db 26,PINSIR + db 28,LICKITUNG + + db $00 + +WaterMons: + db $00 + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +WaterMons: + db $00 + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +IslandMons1: + db $0F + db 30,SEEL + db 30,HORSEA + db 30,STARYU + db 30,KRABBY + db 28,KRABBY + db 21,ZUBAT + db 29,GOLBAT + db 28,SLOWPOKE + db 28,STARYU + db 38,SLOWBRO + + db $00 + +IslandMonsB1: + db $0A + db 30,SHELLDER + db 30,KRABBY + db 32,STARYU + db 32,KRABBY + db 28,HORSEA + db 30,SEEL + db 30,HORSEA + db 28,SEEL + db 38,DEWGONG + db 37,KINGLER + + db $00 + +IslandMonsB2: + db $0A + db 30,SEEL + db 30,HORSEA + db 32,SEEL + db 32,HORSEA + db 28,KRABBY + db 30,SHELLDER + db 30,KRABBY + db 28,STARYU + db 30,GOLBAT + db 37,JYNX + + db $00 + +IslandMonsB3: + db $0A + db 31,HORSEA + db 31,SEEL + db 33,HORSEA + db 33,SEEL + db 29,KRABBY + db 31,STARYU + db 31,KRABBY + db 29,STARYU + db 39,KINGLER + db 37,DEWGONG + + db $00 + +IslandMonsB4: + db $0A + db 31,KRABBY + db 31,STARYU + db 33,KRABBY + db 33,STARYU + db 29,HORSEA + db 31,SEEL + db 31,HORSEA + db 29,SEEL + db 39,JYNX + db 32,GOLBAT + + db $00 + +MansionMons1: + db $0A + db 32,GRIMER + db 30,GRIMER + db 34,PONYTA + db 30,PONYTA + db 34,GROWLITHE + db 32,PONYTA + db 30,KOFFING + db 28,PONYTA + db 37,MUK + db 39,WEEZING + + db $00 + +MansionMons2: + db $0A + db 32,GROWLITHE + db 34,GRIMER + db 34,GRIMER + db 30,PONYTA + db 30,GRIMER + db 32,PONYTA + db 30,KOFFING + db 28,PONYTA + db 39,MUK + db 37,WEEZING + + db $00 + +MansionMons3: + db $0A + db 31,GRIMER + db 33,GROWLITHE + db 35,GRIMER + db 32,PONYTA + db 34,PONYTA + db 40,MUK + db 34,KOFFING + db 38,MUK + db 36,PONYTA + db 42,WEEZING + + db $00 + +MansionMonsB1: + db $0A + db 33,GRIMER + db 31,GRIMER + db 35,GROWLITHE + db 32,PONYTA + db 31,GRIMER + db 40,MUK + db 34,PONYTA + db 35,KOFFING + db 38,MUK + db 42,WEEZING + + db $00 + +Route21Mons: + db $19 + db 21,RATTATA + db 23,PIDGEY + db 30,RATICATE + db 23,RATTATA + db 21,PIDGEY + db 30,PIDGEOTTO + db 32,PIDGEOTTO + db 28,TANGELA + db 30,TANGELA + db 32,TANGELA + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +DungeonMons1: + db $0A + db 46,GOLBAT + db 46,HYPNO + db 46,MAGNETON + db 49,RAPIDASH + db 49,VENOMOTH + db 52,SANDSLASH + db 49,KADABRA + db 52,PARASECT + db 53,RAICHU + db 53,DITTO + + db $00 + +DungeonMons2: + db $0F + db 51,DODRIO + db 51,VENOMOTH + db 51,KADABRA + db 52,RHYDON + db 52,RATICATE + db 52,ELECTRODE + db 56,CHANSEY + db 54,WIGGLYTUFF + db 55,DITTO + db 60,DITTO + + db $00 + +DungeonMonsB1: + db $19 + db 55,RHYDON + db 55,MAROWAK + db 55,ELECTRODE + db 64,CLEFAIRY + db 64,PARASECT + db 64,RAICHU + db 57,SANDSLASH + db 65,DITTO + db 63,DITTO + db 67,DITTO + + db $00 + +PowerPlantMons: + db $0A + db 21,VOLTORB + db 21,MAGNEMITE + db 20,PIKACHU + db 24,PIKACHU + db 23,MAGNEMITE + db 23,VOLTORB + db 32,MAGNETON + db 35,MAGNETON + db 33,RAICHU + db 36,RAICHU + + db $00 + +Route23Mons: + db $0A + db 26,SANDSHREW + db 33,DITTO + db 26,SPEAROW + db 38,FEAROW + db 38,DITTO + db 38,FEAROW + db 41,SANDSLASH + db 43,DITTO + db 41,FEAROW + db 43,FEAROW + + db $00 + +PlateauMons2: + db $0A + db 22,MACHOP + db 24,GEODUDE + db 26,ZUBAT + db 36,ONIX + db 39,ONIX + db 42,ONIX + db 41,MACHOKE + db 40,GOLBAT + db 40,MAROWAK + db 43,GRAVELER + + db $00 + +PlateauMons3: + db $0F + db 24,MACHOP + db 26,GEODUDE + db 22,ZUBAT + db 42,ONIX + db 40,VENOMOTH + db 45,ONIX + db 43,GRAVELER + db 41,GOLBAT + db 42,MACHOKE + db 45,MACHOKE + + db $00 + +PlateauMons1: + db $0F + db 24,MACHOP + db 26,GEODUDE + db 22,ZUBAT + db 36,ONIX + db 39,ONIX + db 42,ONIX + db 41,GRAVELER + db 41,GOLBAT + db 42,MACHOKE + db 43,MAROWAK + + db $00 + +CaveMons: + db $14 + db 18,DIGLETT + db 19,DIGLETT + db 17,DIGLETT + db 20,DIGLETT + db 16,DIGLETT + db 15,DIGLETT + db 21,DIGLETT + db 22,DIGLETT + db 29,DUGTRIO + db 31,DUGTRIO + + db $00 + +ENDC +IF _YELLOW +NoMons: + db $00 + + db $00 + +Route1Mons: + db $19 + db 3,PIDGEY + db 4,PIDGEY + db 2,RATTATA + db 3,RATTATA + db 2,PIDGEY + db 3,PIDGEY + db 5,PIDGEY + db 4,RATTATA + db 6,PIDGEY + db 7,PIDGEY + + db $00 + +Route2Mons: + db $19 + db 3,RATTATA + db 3,PIDGEY + db 4,RATTATA + db 4,NIDORAN_M + db 4,NIDORAN_F + db 5,PIDGEY + db 6,NIDORAN_M + db 6,NIDORAN_F + db 7,PIDGEY + db 7,PIDGEY + + db $00 + +Route22Mons: + db $19 + db 2,NIDORAN_M + db 2,NIDORAN_F + db 3,MANKEY + db 3,RATTATA + db 4,NIDORAN_M + db 4,NIDORAN_F + db 5,MANKEY + db 2,SPEAROW + db 4,SPEAROW + db 6,SPEAROW + + db $00 + +ForestMons: + db $19 + db 3,CATERPIE + db 4,METAPOD + db 4,CATERPIE + db 5,CATERPIE + db 4,PIDGEY + db 6,PIDGEY + db 6,CATERPIE + db 6,METAPOD + db 8,PIDGEY + db 9,PIDGEOTTO + + db $00 + +Route3Mons: + db $14 + db 8,SPEAROW + db 9,SPEAROW + db 9,MANKEY + db 10,SPEAROW + db 8,SANDSHREW + db 10,RATTATA + db 10,SANDSHREW + db 12,RATTATA + db 11,SPEAROW + db 12,SPEAROW + + db $00 + +MoonMons1: + db $0A + db 8,ZUBAT + db 9,ZUBAT + db 10,GEODUDE + db 6,ZUBAT + db 7,ZUBAT + db 10,ZUBAT + db 10,GEODUDE + db 11,ZUBAT + db 12,SANDSHREW + db 11,CLEFAIRY + + db $00 + +MoonMonsB1: + db $0A + db 8,ZUBAT + db 9,ZUBAT + db 10,ZUBAT + db 10,GEODUDE + db 11,GEODUDE + db 11,ZUBAT + db 9,PARAS + db 11,PARAS + db 10,CLEFAIRY + db 12,CLEFAIRY + + db $00 + +MoonMonsB2: + db $0A + db 10,ZUBAT + db 11,GEODUDE + db 13,PARAS + db 11,ZUBAT + db 11,ZUBAT + db 12,ZUBAT + db 13,ZUBAT + db 9,CLEFAIRY + db 11,CLEFAIRY + db 13,CLEFAIRY + + db $00 + +Route4Mons: + db $14 + db 8,SPEAROW + db 9,SPEAROW + db 9,MANKEY + db 10,SPEAROW + db 8,SANDSHREW + db 10,RATTATA + db 10,SANDSHREW + db 12,RATTATA + db 11,SPEAROW + db 12,SPEAROW + + db $00 + +Route24Mons: + db $19 + db 12,ODDISH + db 12,BELLSPROUT + db 13,PIDGEY + db 14,ODDISH + db 14,BELLSPROUT + db 15,PIDGEY + db 13,VENONAT + db 16,VENONAT + db 17,PIDGEY + db 17,PIDGEOTTO + + db $00 + +Route25Mons: + db $0F + db 12,ODDISH + db 12,BELLSPROUT + db 13,PIDGEY + db 14,ODDISH + db 14,BELLSPROUT + db 15,PIDGEY + db 13,VENONAT + db 16,VENONAT + db 17,PIDGEY + db 17,PIDGEOTTO + + db $00 + +Route9Mons: + db $0F + db 16,NIDORAN_M + db 16,NIDORAN_F + db 18,RATTATA + db 18,NIDORAN_M + db 18,NIDORAN_F + db 17,SPEAROW + db 18,NIDORINO + db 18,NIDORINA + db 20,RATICATE + db 19,FEAROW + + db $00 + +Route5Mons: + db $0F + db 15,PIDGEY + db 14,RATTATA + db 7,ABRA + db 16,PIDGEY + db 16,RATTATA + db 17,PIDGEY + db 17,PIDGEOTTO + db 3,JIGGLYPUFF + db 5,JIGGLYPUFF + db 7,JIGGLYPUFF + + db $00 + +Route6Mons: + db $0F + db 15,PIDGEY + db 14,RATTATA + db 7,ABRA + db 16,PIDGEY + db 16,RATTATA + db 17,PIDGEY + db 17,PIDGEOTTO + db 3,JIGGLYPUFF + db 5,JIGGLYPUFF + db 7,JIGGLYPUFF + + db $03 + db 15,PSYDUCK + db 15,PSYDUCK + db 15,PSYDUCK + db 15,PSYDUCK + db 15,PSYDUCK + db 15,PSYDUCK + db 15,PSYDUCK + db 15,PSYDUCK + db 15,GOLDUCK + db 20,GOLDUCK + +Route11Mons: + db $0F + db 16,PIDGEY + db 15,RATTATA + db 18,PIDGEY + db 15,DROWZEE + db 17,RATTATA + db 17,DROWZEE + db 18,PIDGEOTTO + db 20,PIDGEOTTO + db 19,DROWZEE + db 17,RATICATE + + db $00 + +TunnelMonsB1: + db $0F + db 15,ZUBAT + db 16,GEODUDE + db 17,ZUBAT + db 19,ZUBAT + db 18,GEODUDE + db 20,GEODUDE + db 21,ZUBAT + db 17,MACHOP + db 19,MACHOP + db 21,MACHOP + + db $00 + +TunnelMonsB2: + db $0F + db 20,ZUBAT + db 17,GEODUDE + db 18,MACHOP + db 21,ZUBAT + db 22,ZUBAT + db 21,GEODUDE + db 20,MACHOP + db 14,ONIX + db 18,ONIX + db 22,ONIX + + db $00 + +Route10Mons: + db $0F + db 16,MAGNEMITE + db 18,RATTATA + db 18,MAGNEMITE + db 20,MAGNEMITE + db 17,NIDORAN_M + db 17,NIDORAN_F + db 22,MAGNEMITE + db 20,RATICATE + db 16,MACHOP + db 18,MACHOP + + db $00 + +Route12Mons: + db $0F + db 25,ODDISH + db 25,BELLSPROUT + db 28,PIDGEY + db 28,PIDGEOTTO + db 27,ODDISH + db 27,BELLSPROUT + db 29,GLOOM + db 29,WEEPINBELL + db 26,FARFETCH_D + db 31,FARFETCH_D + + db $03 + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWBRO + db 20,SLOWBRO + +Route8Mons: + db $0F + db 20,PIDGEY + db 22,PIDGEY + db 20,RATTATA + db 15,ABRA + db 19,ABRA + db 24,PIDGEOTTO + db 19,JIGGLYPUFF + db 24,JIGGLYPUFF + db 20,KADABRA + db 27,KADABRA + + db $00 + +Route7Mons: + db $0F + db 20,PIDGEY + db 22,PIDGEY + db 20,RATTATA + db 15,ABRA + db 19,ABRA + db 24,PIDGEOTTO + db 26,ABRA + db 19,JIGGLYPUFF + db 24,JIGGLYPUFF + db 24,JIGGLYPUFF + + db $00 + +TowerMons1: + db $00 + + db $00 + +TowerMons2: + db $00 + + db $00 + +TowerMons3: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,GASTLY + db 20,HAUNTER + db 25,HAUNTER + + db $00 + +TowerMons4: + db $0A + db 20,GASTLY + db 21,GASTLY + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 19,GASTLY + db 18,GASTLY + db 25,GASTLY + db 20,HAUNTER + db 25,HAUNTER + + db $00 + +TowerMons5: + db $0F + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 25,GASTLY + db 26,GASTLY + db 21,GASTLY + db 20,CUBONE + db 27,GASTLY + db 22,HAUNTER + db 27,HAUNTER + + db $00 + +TowerMons6: + db $0F + db 22,GASTLY + db 23,GASTLY + db 24,GASTLY + db 25,GASTLY + db 26,GASTLY + db 21,GASTLY + db 22,CUBONE + db 27,GASTLY + db 22,HAUNTER + db 27,HAUNTER + + db $00 + +TowerMons7: + db $14 + db 24,GASTLY + db 25,GASTLY + db 26,GASTLY + db 27,GASTLY + db 28,GASTLY + db 23,GASTLY + db 24,CUBONE + db 29,GASTLY + db 24,HAUNTER + db 29,HAUNTER + + db $00 + +Route13Mons: + db $0F + db 25,ODDISH + db 25,BELLSPROUT + db 28,PIDGEOTTO + db 28,PIDGEY + db 27,ODDISH + db 27,BELLSPROUT + db 29,GLOOM + db 29,WEEPINBELL + db 26,FARFETCH_D + db 31,FARFETCH_D + + db $03 + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWPOKE + db 15,SLOWBRO + db 20,SLOWBRO + +Route14Mons: + db $0F + db 26,ODDISH + db 26,BELLSPROUT + db 24,VENONAT + db 30,PIDGEOTTO + db 28,ODDISH + db 28,BELLSPROUT + db 30,GLOOM + db 30,WEEPINBELL + db 27,VENONAT + db 30,VENOMOTH + + db $00 + +Route15Mons: + db $0F + db 26,ODDISH + db 26,BELLSPROUT + db 24,VENONAT + db 32,PIDGEOTTO + db 28,ODDISH + db 28,BELLSPROUT + db 30,GLOOM + db 30,WEEPINBELL + db 27,VENONAT + db 30,VENOMOTH + + db $00 + +Route16Mons: + db $19 + db 22,SPEAROW + db 22,DODUO + db 23,RATTATA + db 24,DODUO + db 24,RATTATA + db 26,DODUO + db 23,SPEAROW + db 24,FEAROW + db 25,RATICATE + db 26,RATICATE + + db $00 + +Route17Mons: + db $19 + db 26,DODUO + db 27,FEAROW + db 27,DODUO + db 28,DODUO + db 28,PONYTA + db 30,PONYTA + db 29,FEAROW + db 28,DODUO + db 32,PONYTA + db 29,DODRIO + + db $00 + +Route18Mons: + db $19 + db 22,SPEAROW + db 22,DODUO + db 23,RATTATA + db 24,DODUO + db 24,RATTATA + db 26,DODUO + db 23,SPEAROW + db 24,FEAROW + db 25,RATICATE + db 26,RATICATE + + db $00 + +ZoneMonsCenter: + db $1E + db 14,NIDORAN_M + db 36,NIDORAN_F + db 24,EXEGGCUTE + db 20,RHYHORN + db 23,NIDORINO + db 27,PARASECT + db 27,PARAS + db 32,PARASECT + db 22,TANGELA + db 7,CHANSEY + + db $00 + +ZoneMons1: + db $1E + db 21,NIDORAN_M + db 29,NIDORAN_F + db 22,EXEGGCUTE + db 21,TAUROS + db 32,NIDORINA + db 19,CUBONE + db 26,EXEGGCUTE + db 24,MAROWAK + db 21,CHANSEY + db 15,SCYTHER + + db $00 + +ZoneMons2: + db $1E + db 36,NIDORAN_M + db 14,NIDORAN_F + db 20,EXEGGCUTE + db 25,RHYHORN + db 23,NIDORINA + db 28,KANGASKHAN + db 16,CUBONE + db 33,KANGASKHAN + db 25,SCYTHER + db 15,PINSIR + + db $00 + +ZoneMons3: + db $1E + db 29,NIDORAN_M + db 21,NIDORAN_F + db 22,EXEGGCUTE + db 21,TAUROS + db 32,NIDORINO + db 19,CUBONE + db 26,EXEGGCUTE + db 24,MAROWAK + db 25,PINSIR + db 27,TANGELA + + db $00 + +WaterMons: + db $00 + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +WaterMons: + db $00 + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +IslandMons1: + db $0F + db 18,ZUBAT + db 25,KRABBY + db 27,KRABBY + db 27,ZUBAT + db 36,ZUBAT + db 28,SLOWPOKE + db 30,SLOWPOKE + db 9,ZUBAT + db 27,GOLBAT + db 36,GOLBAT + + db $00 + +IslandMonsB1: + db $0A + db 27,ZUBAT + db 26,KRABBY + db 36,ZUBAT + db 28,KRABBY + db 27,GOLBAT + db 29,SLOWPOKE + db 18,ZUBAT + db 28,KINGLER + db 22,SEEL + db 26,SEEL + + db $00 + +IslandMonsB2: + db $0A + db 27,ZUBAT + db 27,KRABBY + db 36,ZUBAT + db 27,GOLBAT + db 28,KINGLER + db 24,SEEL + db 29,KRABBY + db 36,GOLBAT + db 31,SLOWPOKE + db 31,SLOWBRO + + db $00 + +IslandMonsB3: + db $0A + db 27,GOLBAT + db 36,ZUBAT + db 29,KRABBY + db 27,ZUBAT + db 30,KINGLER + db 26,SEEL + db 31,KRABBY + db 30,SEEL + db 28,DEWGONG + db 32,DEWGONG + + db $05 + db 25,TENTACOOL + db 30,TENTACOOL + db 20,TENTACOOL + db 30,STARYU + db 35,TENTACOOL + db 30,STARYU + db 40,TENTACOOL + db 30,STARYU + db 30,STARYU + db 30,STARYU + +IslandMonsB4: + db $0A + db 36,GOLBAT + db 36,ZUBAT + db 30,KRABBY + db 32,KINGLER + db 28,SEEL + db 32,SEEL + db 27,GOLBAT + db 45,ZUBAT + db 30,DEWGONG + db 34,DEWGONG + + db $05 + db 25,TENTACOOL + db 30,TENTACOOL + db 20,TENTACOOL + db 30,STARYU + db 35,TENTACOOL + db 30,STARYU + db 40,TENTACOOL + db 30,STARYU + db 30,STARYU + db 30,STARYU + +MansionMons1: + db $0A + db 34,RATTATA + db 34,RATICATE + db 23,GRIMER + db 26,GROWLITHE + db 37,RATTATA + db 37,RATICATE + db 30,GROWLITHE + db 26,GRIMER + db 34,GROWLITHE + db 38,GROWLITHE + + db $00 + +MansionMons2: + db $0A + db 37,RATTATA + db 37,RATICATE + db 26,GRIMER + db 29,GRIMER + db 40,RATTATA + db 40,RATICATE + db 32,GRIMER + db 35,GRIMER + db 35,MUK + db 38,MUK + + db $00 + +MansionMons3: + db $0A + db 40,RATTATA + db 40,RATICATE + db 32,GRIMER + db 35,GRIMER + db 43,RATTATA + db 43,RATICATE + db 38,GRIMER + db 38,GRIMER + db 38,MUK + db 41,MUK + + db $00 + +MansionMonsB1: + db $0A + db 35,GRIMER + db 38,GRIMER + db 37,RATICATE + db 40,RATICATE + db 41,MUK + db 43,RATICATE + db 24,DITTO + db 46,RATICATE + db 18,DITTO + db 12,DITTO + + db $00 + +Route21Mons: + db $19 + db 15,PIDGEY + db 13,RATTATA + db 13,PIDGEY + db 11,PIDGEY + db 17,PIDGEY + db 15,RATTATA + db 15,RATICATE + db 17,PIDGEOTTO + db 19,PIDGEOTTO + db 15,PIDGEOTTO + + db $05 + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 5,TENTACOOL + db 10,TENTACOOL + db 15,TENTACOOL + db 20,TENTACOOL + db 30,TENTACOOL + db 35,TENTACOOL + db 40,TENTACOOL + +DungeonMons1: + db $0A + db 50,GOLBAT + db 55,GOLBAT + db 45,GRAVELER + db 55,GLOOM + db 55,WEEPINBELL + db 52,SANDSLASH + db 54,VENOMOTH + db 54,PARASECT + db 55,DITTO + db 60,DITTO + + db $00 + +DungeonMons2: + db $0F + db 52,GOLBAT + db 57,GOLBAT + db 50,GRAVELER + db 56,SANDSLASH + db 50,RHYHORN + db 60,DITTO + db 58,GLOOM + db 58,WEEPINBELL + db 60,RHYDON + db 58,RHYDON + + db $00 + +DungeonMonsB1: + db $19 + db 54,GOLBAT + db 59,GOLBAT + db 55,GRAVELER + db 52,RHYHORN + db 62,RHYDON + db 60,DITTO + db 56,CHANSEY + db 65,DITTO + db 55,LICKITUNG + db 50,LICKITUNG + + db $00 + +PowerPlantMons: + db $0A + db 30,MAGNEMITE + db 35,MAGNEMITE + db 33,MAGNETON + db 33,VOLTORB + db 37,VOLTORB + db 33,GRIMER + db 37,GRIMER + db 38,MAGNETON + db 33,MUK + db 37,MUK + + db $00 + +Route23Mons: + db $0A + db 41,NIDORINO + db 41,NIDORINA + db 36,MANKEY + db 44,NIDORINO + db 44,NIDORINA + db 40,FEAROW + db 41,MANKEY + db 45,FEAROW + db 41,PRIMEAPE + db 46,PRIMEAPE + + db $00 + +PlateauMons2: + db $0A + db 31,GEODUDE + db 36,GEODUDE + db 41,GEODUDE + db 44,ZUBAT + db 39,GOLBAT + db 44,GRAVELER + db 45,ONIX + db 47,ONIX + db 39,MACHOKE + db 42,MACHOKE + + db $00 + +PlateauMons3: + db $0F + db 36,GEODUDE + db 44,GOLBAT + db 41,GEODUDE + db 49,ONIX + db 46,GEODUDE + db 41,GRAVELER + db 42,MACHOKE + db 45,MACHOKE + db 47,GRAVELER + db 47,GRAVELER + + db $00 + +PlateauMons1: + db $0F + db 26,GEODUDE + db 31,GEODUDE + db 36,GEODUDE + db 39,ZUBAT + db 44,ZUBAT + db 41,GEODUDE + db 43,ONIX + db 45,ONIX + db 41,GRAVELER + db 47,GRAVELER + + db $00 + +CaveMons: + db $14 + db 18,DIGLETT + db 19,DIGLETT + db 17,DIGLETT + db 20,DIGLETT + db 16,DIGLETT + db 15,DIGLETT + db 21,DIGLETT + db 22,DIGLETT + db 29,DUGTRIO + db 31,DUGTRIO + + db $00 + +ENDC + +GetItemUse: ;$D5C7 + ld a,1 + ld [$cd6a],a + ld a,[$cf91] ;contains item_ID + cp a,HM_01 + jp nc,ItemUseTMHM + ld hl,ItemUsePtrTable + dec a + add a + ld c,a + ld b,0 + add hl,bc + ld a,[hli] + ld h,[hl] + ld l,a + jp [hl] + +ItemUsePtrTable: ;$D5E1 + dw ItemUseBall ;$5687 masterball + dw ItemUseBall ;$5687 ultraball + dw ItemUseBall ;$5687 greatball + dw ItemUseBall ;$5687 pokeball + dw ItemUseTownMap ;$5968 TownMap + dw $5977 ;ItemUseBicycle + dw $59B4 ;ItemUseSurfBoard (UNUSED, glitchy!) + dw ItemUseBall ;$5687 Safariball + dw $5A56 + dw $5A5B + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5ABB + dw $5F52 + dw $5F67 + dw $6476 + dw $6476 + dw $6476 + dw $6476 + dw $6476 + dw $6476 + dw $5FAF + dw $6003 + dw $6476 + dw $5A5B + dw $5A5B + dw $5A5B + dw $5AB4 + dw $5AB4 + dw $5AB4 + dw $5AB4 + dw $5AB4 + dw $5AB4 + dw $6476 + dw $6476 + dw $6476 + dw $6476 + dw $6476 + dw $6013 + dw $5A5B + dw $6022 + dw $6476 + dw $6476 + dw $60CD + dw $5ABB + dw $5ABB + dw $5ABB + dw $60DC + dw $60EB + dw $60F0 + dw $60F5 + dw $6476 + dw $5ABB + dw $5ABB + dw $5ABB + dw $6476 + dw $6476 + dw $6104 + dw $6104 + dw $6104 + dw $6104 + dw $623A + dw $62DE + dw $62E1 + dw $6476 + dw $6140 + dw $6476 + dw $6476 + dw $624C + dw GoodRodCode ;$6259 + dw $6283 + dw $6317 + dw $631E + dw $631E + dw $631E + dw $631E + +ItemUseBall: ;03:5687 + ld a,[W_ISINBATTLE] + and a + jp z,ItemUseNotTime ; not in battle + dec a + jp nz,$658b ; in trainer battle + ld a,[W_BATTLETYPE] + dec a + jr z,.UseBall\@ + ld a,[W_NUMINPARTY] ;is Party full? + cp a,6 + jr nz,.UseBall\@ + ld a,[W_NUMINBOX] ;is Box full? + cp a,20 + jp z,$65b1 +.UseBall\@ ;$56a7 +;ok, you can use a ball + xor a + ld [$d11c],a + ld a,[W_BATTLETYPE] + cp a,2 ;SafariBattle + jr nz,.next2\@ + ; remove a Safari Ball from inventory + ld hl,W_NUMSAFARIBALLS + dec [hl] +.next2\@ ;$56b6 + call GoPAL_SET_CF1C + ld a,$43 + ld [$d11e],a + call $3725 ;restore screenBuffer from Backup + ld hl,ItemUseText00 + call PrintText + ld hl,$583a + ld b,$0f + call Bankswitch + ld b,$10 + jp z,$5801 + ld a,[W_BATTLETYPE] + dec a + jr nz,.next3\@ + ld hl,W_GRASSRATE ;backups wildMon data + ld de,W_PLAYERNAME + ld bc,11 + call CopyData + jp .BallSuccess\@ ;$578b +.next3\@ ;$56e9 + ld a,[W_CURMAP] + cp a,$93 ;MonTower 6F + jr nz,.next4\@ + ld a,[$cfd8] + cp a,MAROWAK + ld b,$10 + jp z,$5801 +.next4\@ ;$56fa + call $3e5c ;GetRandom + ld b,a + ld hl,$cf91 + ld a,[hl] + cp a,MASTER_BALL;1 + jp z,.BallSuccess\@ ;$578b + cp a,POKE_BALL ;4 + jr z,.next5\@ + ld a,200 + cp b + jr c,.next4\@ ;get only numbers < 200 + ld a,[hl] + cp a,GREAT_BALL ;3 + jr z,.next5\@ + ld a,150 ;get only numbers < 150 + cp b + jr c,.next4\@ +.next5\@ ;$571a + ld a,[$cfe9] ;status ailments + and a + jr z,.next6\@ + and a,(FRZ + SLP) ;is frozen and/or asleep? + ld c,12 + jr z,.noAilments\@ + ld c,25 +.noAilments\@ ;$5728 + ld a,b + sub c + jp c,.BallSuccess\@ ;$578b + ld b,a +.next6\@ ;$572e + push bc ;save RANDOM number + xor a + ld [$ff96],a + ld hl,$cff4 ;enemy: Max HP + ld a,[hli] + ld [$ff97],a + ld a,[hl] + ld [$ff98],a + ld a,255 + ld [$ff99],a + call $38ac ;Multiply: MaxHP * 255 + ld a,[$cf91] + cp a,GREAT_BALL + ld a,12 ;any other BallFactor + jr nz,.next7\@ + ld a,8 +.next7\@ ;$574d + ld [$ff99],a + ld b,4 ;GreatBall's BallFactor + call $38b9 ;Divide + ld hl,$cfe6 ;currentHP + ld a,[hli] + ld b,a + ld a,[hl] + srl b ;explanation: + rr a ;we have a 16 bit value + srl b ;equal to [b << 8 | a]. + rr a ;This number is divided + and a ;by 4. The result is + jr nz,.next8\@ ;8 bit (reg. a). Always + inc a ;bigger than zero. +.next8\@ ;$5766 + ld [$ff99],a + ld b,4 + call $38b9 ;Divide + ld a,[$ff97] + and a + jr z,.next9\@ + ld a,255 + ld [$ff98],a +.next9\@ ;$5776 + pop bc + ld a,[$d007] ;enemy: Catch Rate + cp b + jr c,.next10\@ + ld a,[$ff97] + and a + jr nz,.BallSuccess\@ + call $3e5c ;get random number + ld b,a + ld a,[$ff98] + cp b + jr c,.next10\@ +.BallSuccess\@ ;$578b + jr .BallSuccess2\@ +.next10\@ ;$578d + ld a,[$ff98] + ld [$d11e],a + xor a + ld [$ff96],a + ld [$ff97],a + ld a,[$d007] ;enemy: Catch Rate + ld [$ff98],a + ld a,100 + ld [$ff99],a + call $38ac ;Multiply: CatchRate * 100 + ld a,[$cf91] + ld b,255 + cp a,POKE_BALL + jr z,.next11\@ + ld b,200 + cp a,GREAT_BALL + jr z,.next11\@ + ld b,150 + cp a,ULTRA_BALL + jr z,.next11\@ +.next11\@ ;$57b8 + ld a,b + ld [$ff99],a + ld b,4 + call $38b9 ;Divide + ld a,[$ff97] + and a + ld b,$63 + jr nz,.next12\@ + ld a,[$d11e] + ld [$ff99],a + call $38ac + ld a,255 + ld [$ff99],a + ld b,4 + call $38b9 + ld a,[$cfe9] ;status ailments + and a + jr z,.next13\@ + and a,(FRZ + SLP) + ld b,5 + jr z,.next14\@ + ld b,10 +.next14\@ ;$57e6 + ld a,[$ff98] + add b + ld [$ff98],a +.next13\@ ;$57eb + ld a,[$ff98] + cp a,10 + ld b,$20 + jr c,.next12\@ + cp a,30 + ld b,$61 + jr c,.next12\@ + cp a,70 + ld b,$62 + jr c,.next12\@ + ld b,$63 +.next12\@ ;$5801 + ld a,b + ld [$d11e],a +.BallSuccess2\@ ;$5805 + ld c,20 + call DelayFrames + ld a,$c1 + ld [$d07c],a + xor a + ld [$fff3],a + ld [$cc5b],a + ld [$d05b],a + ld a,[$cf92] + push af + ld a,[$cf91] + push af + ld a,$08 ;probably animations + call Predef + pop af + ld [$cf91],a + pop af + ld [$cf92],a + ld a,[$d11e] + cp a,$10 + ld hl,ItemUseBallText00 + jp z,.printText0\@ + cp a,$20 + ld hl,ItemUseBallText01 + jp z,.printText0\@ + cp a,$61 + ld hl,ItemUseBallText02 + jp z,.printText0\@ + cp a,$62 + ld hl,ItemUseBallText03 + jp z,.printText0\@ + cp a,$63 + ld hl,ItemUseBallText04 + jp z,.printText0\@ + ld hl,$cfe6 ;current HP + ld a,[hli] + push af + ld a,[hli] + push af ;backup currentHP... + inc hl + ld a,[hl] + push af ;...and status ailments + push hl + ld hl,$d069 + bit 3,[hl] + jr z,.next15\@ + ld a,$4c + ld [$cfd8],a + jr .next16\@ +.next15\@ ;$5871 + set 3,[hl] + ld hl,$cceb + ld a,[$cff1] + ld [hli],a + ld a,[$cff2] + ld [hl],a +.next16\@ ;$587e + ld a,[$cf91] + push af + ld a,[$cfd8] + ld [$cf91],a + ld a,[$cff3] + ld [$d127],a + ld hl,$6b01 + ld b,$0f + call Bankswitch + pop af + ld [$cf91],a + pop hl + pop af + ld [hld],a + dec hl + pop af + ld [hld],a + pop af + ld [hl],a + ld a,[$cfe5] ;enemy + ld [$d11c],a + ld [$cf91],a + ld [$d11e],a + ld a,[W_BATTLETYPE] + dec a + jr z,.printText1\@ + ld hl,ItemUseBallText05 + call PrintText + ld a,$3a ;convert order: Internal->Dex + call Predef + ld a,[$d11e] + dec a + ld c,a + ld b,2 + ld hl,$d2f7 ;Dex_own_flags (pokemon) + ld a,$10 + call Predef ;check Dex flag (own already or not) + ld a,c + push af + ld a,[$d11e] + dec a + ld c,a + ld b,1 + ld a,$10 ;set Dex_own_flag? + call Predef + pop af + and a + jr nz,.checkParty\@ + ld hl,ItemUseBallText06 + call PrintText + call CleanLCD_OAM + ld a,[$cfe5] ;caught mon_ID + ld [$d11e],a + ld a,$3d + call Predef +.checkParty\@ ;$58f4 + ld a,[W_NUMINPARTY] + cp a,6 ;is party full? + jr z,.sendToBox\@ + xor a + ld [$cc49],a + call CleanLCD_OAM + call AddPokemonToParty ;add mon to Party + jr .End\@ +.sendToBox\@ ;$5907 + call CleanLCD_OAM + call $67a4 + ld hl,ItemUseBallText07 + ld a,[$d7f1] + bit 0,a ;already met Bill? + jr nz,.sendToBox2\@ + ld hl,ItemUseBallText08 +.sendToBox2\@ ;$591a + call PrintText + jr .End\@ +.printText1\@ ;$591f + ld hl,ItemUseBallText05 +.printText0\@ ;$5922 + call PrintText + call CleanLCD_OAM +.End\@ ;$5928 + ld a,[W_BATTLETYPE] + and a + ret nz + ld hl,$d31d + inc a + ld [$cf96],a + jp $2bbb ;remove ITEM (XXX) +ItemUseBallText00: +;"It dodged the thrown ball!" +;"This pokemon can't be caught" + TX_FAR _ItemUseBallText00 + db "@" +ItemUseBallText01: +;"You missed the pokemon!" + TX_FAR _ItemUseBallText01 + db "@" +ItemUseBallText02: +;"Darn! The pokemon broke free!" + TX_FAR _ItemUseBallText02 + db "@" +ItemUseBallText03: +;"Aww! It appeared to be caught!" + TX_FAR _ItemUseBallText03 + db "@" +ItemUseBallText04: +;"Shoot! It was so close too!" + TX_FAR _ItemUseBallText04 + db "@" +ItemUseBallText05: +;"All right! {MonName} was caught!" +;play sound + TX_FAR _ItemUseBallText05 + db $12,$06 + db "@" +ItemUseBallText07: +;"X was transferred to Bill's PC" + TX_FAR _ItemUseBallText07 + db "@" +ItemUseBallText08: +;"X was transferred to someone's PC" + TX_FAR _ItemUseBallText08 + db "@" + +ItemUseBallText06: +;"New DEX data will be added..." +;play sound + TX_FAR _ItemUseBallText06 + db $13,$06 + db "@" + +ItemUseTownMap: ;03:5968 + ld a,[W_ISINBATTLE] ;in-battle or outside + and a + jp nz,ItemUseNotTime ;OAK: "this isn't the time..." + +INCBIN "baserom.gbc",$D96F,$E259 - $D96F + +GoodRodCode: ; 6259 + call $62B4 + jp c,ItemUseNotTime +Next625F: + call GenRandom + srl a + jr c,Next6278 + and 3 + cp 2 + jr nc,Next625F + ; choose which monster appears + ld hl,GoodRodMons + add a,a + ld c,a + ld b,0 + add hl,bc + ld b,[hl] + inc hl + ld c,[hl] + and a +Next6278: + ld a,0 + rla + xor 1 + jr Next628E + +GoodRodMons: + db 10,GOLDEEN + db 10,POLIWAG + +Next6283: + call $62B4 + jp c,ItemUseNotTime +Next6289: + call $68EA + ld a,e +Next628E: + ld [$CD3D],a + dec a + jr nz,.next\@ + ld a,1 + ld [$D05F],a + ld a,b + ld [$D127],a + ld a,c + ld [$D059],a +.next\@ + ld hl,$D700 + ld a,[hl] + push af + push hl + ld [hl],0 + ld b,$1C + ld hl,$47B6 + call Bankswitch + pop hl + pop af + ld [hl],a + ret + +INCBIN "baserom.gbc",$E2B4,$E479 - $E2B4 + +ItemUseTMHM: ;03:6479 + INCBIN "baserom.gbc",$E479,$E581 - $E479 +ItemUseNotTime: ;03:6581 + INCBIN "baserom.gbc",$E581,$E5E8 - $E581 +;ItemUseTexts: ;03:65e8 +ItemUseText00: ;03:65e8 + TX_FAR _ItemUseText001 + db $05 + TX_FAR _ItemUseText002 + db "@" +INCBIN "baserom.gbc",$E5F2,$E919 - $E5F2 + +; super rod data +; map, pointer to fishing group +SuperRodData: ; 6919 + dbw $00,FishingGroup1 + dbw $01,FishingGroup1 + dbw $03,FishingGroup3 + dbw $05,FishingGroup4 + dbw $06,FishingGroup5 + dbw $07,FishingGroup10 + dbw $08,FishingGroup8 + dbw $0F,FishingGroup3 + dbw $11,FishingGroup4 + dbw $15,FishingGroup5 + dbw $16,FishingGroup4 + dbw $17,FishingGroup7 + dbw $18,FishingGroup7 + dbw $1C,FishingGroup7 + dbw $1D,FishingGroup7 + dbw $1E,FishingGroup8 + dbw $1F,FishingGroup8 + dbw $20,FishingGroup8 + dbw $21,FishingGroup2 + dbw $22,FishingGroup9 + dbw $23,FishingGroup3 + dbw $24,FishingGroup3 + dbw $41,FishingGroup3 + dbw $5E,FishingGroup4 + dbw $A1,FishingGroup8 + dbw $A2,FishingGroup8 + dbw $D9,FishingGroup6 + dbw $DA,FishingGroup6 + dbw $DB,FishingGroup6 + dbw $DC,FishingGroup6 + dbw $E2,FishingGroup9 + dbw $E3,FishingGroup9 + dbw $E4,FishingGroup9 + db $FF + +; fishing groups +; number of monsters, followed by level/monster pairs +FishingGroup1: + db 2 + db 15,TENTACOOL + db 15,POLIWAG + +FishingGroup2: + db 2 + db 15,GOLDEEN + db 15,POLIWAG + +FishingGroup3: + db 3 + db 15,PSYDUCK + db 15,GOLDEEN + db 15,KRABBY + +FishingGroup4: + db 2 + db 15,KRABBY + db 15,SHELLDER + +FishingGroup5: + db 2 + db 23,POLIWHIRL + db 15,SLOWPOKE + +FishingGroup6: + db 4 + db 15,DRATINI + db 15,KRABBY + db 15,PSYDUCK + db 15,SLOWPOKE + +FishingGroup7: + db 4 + db 5,TENTACOOL + db 15,KRABBY + db 15,GOLDEEN + db 15,MAGIKARP + +FishingGroup8: + db 4 + db 15,STARYU + db 15,HORSEA + db 15,SHELLDER + db 15,GOLDEEN + +FishingGroup9: + db 4 + db 23,SLOWBRO + db 23,SEAKING + db 23,KINGLER + db 23,SEADRA + +FishingGroup10: + db 4 + db 23,SEAKING + db 15,KRABBY + db 15,GOLDEEN + db 15,MAGIKARP + +INCBIN "baserom.gbc",$E9C5,$10000 - $E9C5 + +SECTION "bank4",DATA,BANK[$4] + +INCBIN "baserom.gbc",$10000,$2EDE + +RedPicFront: + INCBIN "pic/trainer/red.pic" +ShrinkPic1: + INCBIN "pic/trainer/shrink1.pic" +ShrinkPic2: + INCBIN "pic/trainer/shrink2.pic" + +INCBIN "baserom.gbc",$13074,$13A8F-$13074 + +GenRandom_: ; 7A8F +; generate a random 16-bit integer and store it at $FFD3,$FFD4 + ld a,[rDIV] + ld b,a + ld a,[H_RAND1] + adc b + ld [H_RAND1],a + ld a,[rDIV] + ld b,a + ld a,[H_RAND2] + sbc b + ld [H_RAND2],a + ret + +SECTION "bank5",DATA,BANK[$5] + +INCBIN "baserom.gbc",$14000,$4000 + +SECTION "bank6",DATA,BANK[$6] + +CeladonCity_h: ; 0x18000 + db $00 ; tileset + db $12,$19 ; dimensions + dw CeladonCityBlocks, CeladonCityTexts, CeladonCityScript ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connection data + + db ROUTE_16 + dw $4B95, $C7C1 ; pointers (connected, current) (strip) + db $09, $14 ; bigness, width + db $F8, $27 ; alignments (y, x) + dw $C716 ; window + + db ROUTE_7 + dw $4051, $C7DD ; pointers (connected, current) (strip) + db $09, $0A ; bigness, width + db $F8, $00 ; alignments (y, x) + dw $C6F9 ; window + + ; end connection data + + dw CeladonCityObject ; objects + +CeladonCityObject: ; 0x18022 (size=189) + db $f ; border tile + + db $d ; warps + db $d, $8, $0, CELADON_MART_1 + db $d, $a, $2, CELADON_MART_1 + db $9, $18, $0, CELADON_MANSION_1 + db $3, $18, $2, CELADON_MANSION_1 + db $3, $19, $2, CELADON_MANSION_1 + db $9, $29, $0, CELADON_POKECENTER + db $1b, $c, $0, CELADON_GYM + db $13, $1c, $0, GAME_CORNER + db $13, $27, $0, CELADON_MART_5 + db $13, $21, $0, CELADONPRIZE_ROOM + db $1b, $1f, $0, CELADON_DINER + db $1b, $23, $0, CELADON_HOUSE + db $1b, $2b, $0, CELADON_HOTEL + + db $9 ; signs + db $f, $1b, $a ; CeladonCityText10 + db $f, $13, $b ; CeladonCityText11 + db $9, $2a, $c ; CeladonCityText12 + db $1d, $d, $d ; CeladonCityText13 + db $9, $15, $e ; CeladonCityText14 + db $d, $c, $f ; CeladonCityText15 + db $15, $27, $10 ; CeladonCityText16 + db $15, $21, $11 ; CeladonCityText17 + db $15, $1b, $12 ; CeladonCityText18 + + db $9 ; people + db SPRITE_LITTLE_GIRL, $11 + 4, $8 + 4, $fe, $0, $1 ; person + db SPRITE_OLD_PERSON, $1c + 4, $b + 4, $ff, $d1, $2 ; person + db SPRITE_GIRL, $13 + 4, $e + 4, $fe, $1, $3 ; person + db SPRITE_OLD_PERSON, $16 + 4, $19 + 4, $ff, $d0, $4 ; person + db SPRITE_OLD_PERSON, $10 + 4, $16 + 4, $ff, $d0, $5 ; person + db SPRITE_FISHER2, $c + 4, $20 + 4, $ff, $d2, $6 ; person + db SPRITE_SLOWBRO, $c + 4, $1e + 4, $ff, $d3, $7 ; person + db SPRITE_ROCKET, $1d + 4, $20 + 4, $fe, $2, $8 ; person + db SPRITE_ROCKET, $e + 4, $2a + 4, $fe, $2, $9 ; person + + ; warp-to + EVENT_DISP $19, $d, $8 ; CELADON_MART_1 + EVENT_DISP $19, $d, $a ; CELADON_MART_1 + EVENT_DISP $19, $9, $18 ; CELADON_MANSION_1 + EVENT_DISP $19, $3, $18 ; CELADON_MANSION_1 + EVENT_DISP $19, $3, $19 ; CELADON_MANSION_1 + EVENT_DISP $19, $9, $29 ; CELADON_POKECENTER + EVENT_DISP $19, $1b, $c ; CELADON_GYM + EVENT_DISP $19, $13, $1c ; GAME_CORNER + EVENT_DISP $19, $13, $27 ; CELADON_MART_5 + EVENT_DISP $19, $13, $21 ; CELADONPRIZE_ROOM + EVENT_DISP $19, $1b, $1f ; CELADON_DINER + EVENT_DISP $19, $1b, $23 ; CELADON_HOUSE + EVENT_DISP $19, $1b, $2b ; CELADON_HOTEL + +CeladonCityBlocks: ; 450 + INCBIN "maps/celadoncity.blk" + +PalletTown_h: + db $00 ; tileset + db $09,$0A ; dimensions + dw PalletTownBlocks, PalletTownTexts, PalletTownScript + db NORTH | SOUTH ; connections + + db $0C ; Route 1 + dw $4192,$C6EB ; pointers + db $0A,$0A ; bigness, width + db $23,$00 ; alignments + dw $C809 ; window + + db $20 ; Route 21 + dw $506D,$C7AB ; pointers + db $0A,$0A ; bigness, width + db $00,$00 ; alignments + dw $C6F9 ; window + + dw PalletTownObject + +PalletTownObject: ; 0x182c3 (size=58) + db $b ; border tile + + db $3 ; warps + db $5, $5, $0, REDS_HOUSE_1F + db $5, $d, $0, BLUES_HOUSE + db $b, $c, $1, OAKS_LAB + + db $4 ; signs + db $d, $d, $4 ; PalletTownText4 + db $9, $7, $5 ; PalletTownText5 + db $5, $3, $6 ; PalletTownText6 + db $5, $b, $7 ; PalletTownText7 + + db $3 ; people + db SPRITE_OAK, $5 + 4, $8 + 4, $ff, $ff, $1 ; person + db SPRITE_GIRL, $8 + 4, $3 + 4, $fe, $0, $2 ; person + db SPRITE_FISHER2, $e + 4, $b + 4, $fe, $0, $3 ; person + + ; warp-to + EVENT_DISP $a, $5, $5 ; REDS_HOUSE_1F + EVENT_DISP $a, $5, $d ; BLUES_HOUSE + EVENT_DISP $a, $b, $c ; OAKS_LAB + +PalletTownBlocks: ; 0x182fd + INCBIN "maps/pallettown.blk" + +ViridianCity_h: ; 0x18357 to 0x18384 (45 bytes) (bank=6) (id=1) + db $00 ; tileset + db $12, $14 ; dimensions (y, x) + dw ViridianCityBlocks, ViridianCityTexts, ViridianCityScript ; blocks, texts, scripts + db NORTH | SOUTH | WEST ; connections + + ; connections data + + db ROUTE_2 + dw $41C8, $C6F0 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $47, $f6 ; alignments (y, x) + dw $c929 ; window + + db ROUTE_1 + dw $40fc, $c912 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $f6 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_22 + dw $404e, $c79e ; pointers (connected, current) (strip) + db $09, $14 ; bigness, width + db $f8, $27 ; alignments (y, x) + dw $c716 ; window + + ; end connection data + + dw ViridianCityObject ; objects + +ViridianCityObject: ; 0x18384 (size=104) + db $f ; border tile + + db $5 ; warps + db $19, $17, $0, VIRIDIAN_POKECENTER + db $13, $1d, $0, VIRIDIAN_MART + db $f, $15, $0, VIRIDIAN_SCHOOL + db $9, $15, $0, VIRIDIAN_HOUSE + db $7, $20, $0, VIRIDIAN_GYM + + db $6 ; signs + db $11, $11, $8 ; ViridianCityText8 + db $1, $13, $9 ; ViridianCityText9 + db $1d, $15, $a ; ViridianCityText10 + db $13, $1e, $b ; ViridianCityText11 + db $19, $18, $c ; ViridianCityText12 + db $7, $1b, $d ; ViridianCityText13 + + db $7 ; people + db SPRITE_BUG_CATCHER, $14 + 4, $d + 4, $fe, $0, $1 ; person + db SPRITE_GAMBLER, $8 + 4, $1e + 4, $ff, $ff, $2 ; person + db SPRITE_BUG_CATCHER, $19 + 4, $1e + 4, $fe, $0, $3 ; person + db SPRITE_GIRL, $9 + 4, $11 + 4, $ff, $d3, $4 ; person + db SPRITE_LYING_OLD_MAN, $9 + 4, $12 + 4, $ff, $ff, $5 ; person + db SPRITE_FISHER2, $17 + 4, $6 + 4, $ff, $d0, $6 ; person + db SPRITE_GAMBLER, $5 + 4, $11 + 4, $fe, $2, $7 ; person + + ; warp-to + EVENT_DISP $14, $19, $17 ; VIRIDIAN_POKECENTER + EVENT_DISP $14, $13, $1d ; VIRIDIAN_MART + EVENT_DISP $14, $f, $15 ; VIRIDIAN_SCHOOL + EVENT_DISP $14, $9, $15 ; VIRIDIAN_HOUSE + EVENT_DISP $14, $7, $20 ; VIRIDIAN_GYM + +ViridianCityBlocks: ; 360 + INCBIN "maps/viridiancity.blk" + +PewterCity_h: ; 0x18554 to 0x18576 (34 bytes) (bank=6) (id=2) + db $00 ; tileset + db $12, $14 ; dimensions (y, x) + dw PewterCityBlocks, PewterCityTexts, PewterCityScript ; blocks, texts, scripts + db SOUTH | EAST ; connections + + ; connections data + + db ROUTE_2 + dw $407e, $c912 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $f6 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_3 + dw $4255, $c7b5 ; pointers (connected, current) (strip) + db $09, $23 ; bigness, width + db $f8, $00 ; alignments (y, x) + dw $c712 ; window + + ; end connection data + + dw PewterCityObject ; objects + +INCBIN "baserom.gbc",$18576,$18577 - $18576 + +PewterCityObject: ; 0x18577 (size=111) + db $a ; border tile + + db $7 ; warps + db $7, $e, $0, MUSEUM_1F + db $5, $13, $2, MUSEUM_1F + db $11, $10, $0, PEWTER_GYM + db $d, $1d, $0, PEWTER_HOUSE_1 + db $11, $17, $0, PEWTER_MART + db $1d, $7, $0, PEWTER_HOUSE_2 + db $19, $d, $0, PEWTER_POKECENTER + + db $7 ; signs + db $1d, $13, $6 ; PewterCityText6 + db $13, $21, $7 ; PewterCityText7 + db $11, $18, $8 ; PewterCityText8 + db $19, $e, $9 ; PewterCityText9 + db $9, $f, $a ; PewterCityText10 + db $11, $b, $b ; PewterCityText11 + db $17, $19, $c ; PewterCityText12 + + db $5 ; people + db SPRITE_LASS, $f + 4, $8 + 4, $ff, $ff, $1 ; person + db SPRITE_BLACK_HAIR_BOY_1, $19 + 4, $11 + 4, $ff, $ff, $2 ; person + db SPRITE_BLACK_HAIR_BOY_2, $11 + 4, $1b + 4, $ff, $ff, $3 ; person + db SPRITE_BLACK_HAIR_BOY_2, $19 + 4, $1a + 4, $fe, $2, $4 ; person + db SPRITE_BUG_CATCHER, $10 + 4, $23 + 4, $ff, $d0, $5 ; person + + ; warp-to + EVENT_DISP $14, $7, $e ; MUSEUM_1F + EVENT_DISP $14, $5, $13 ; MUSEUM_1F + EVENT_DISP $14, $11, $10 ; PEWTER_GYM + EVENT_DISP $14, $d, $1d ; PEWTER_HOUSE_1 + EVENT_DISP $14, $11, $17 ; PEWTER_MART + EVENT_DISP $14, $1d, $7 ; PEWTER_HOUSE_2 + EVENT_DISP $14, $19, $d ; PEWTER_POKECENTER + +PewterCityBlocks: ; 360 + INCBIN "maps/pewtercity.blk" + +CeruleanCity_h: ; 0x1874e to 0x18786 (56 bytes) (bank=6) (id=3) + db $00 ; tileset + db $12, $14 ; dimensions (y, x) + dw CeruleanCityBlocks, CeruleanCityTexts, CeruleanCityScript ; blocks, texts, scripts + db NORTH | SOUTH | WEST | EAST ; connections + + ; connections data + + db ROUTE_24 + dw $477d, $c6f0 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $23, $f6 ; alignments (y, x) + dw $c809 ; window + + db ROUTE_5 + dw $45d2, $c912 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $f6 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_4 + dw $4416, $c79e ; pointers (connected, current) (strip) + db $09, $2d ; bigness, width + db $f8, $59 ; alignments (y, x) + dw $c748 ; window + + db ROUTE_9 + dw $46fe, $c7b5 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $f8, $00 ; alignments (y, x) + dw $c70d ; window + + ; end connection data + + dw CeruleanCityObject ; objects + +CeruleanCityObject: ; 0x18786 (size=170) + db $f ; border tile + + db $a ; warps + db $b, $1b, $0, TRASHED_HOUSE + db $f, $d, $0, CERULEAN_HOUSE + db $11, $13, $0, CERULEAN_POKECENTER + db $13, $1e, $0, CERULEAN_GYM + db $19, $d, $0, BIKE_SHOP + db $19, $19, $0, CERULEAN_MART + db $b, $4, $0, UNKNOWN_DUNGEON_1 + db $9, $1b, $2, TRASHED_HOUSE + db $b, $9, $1, CERULEAN_HOUSE_3 + db $9, $9, $0, CERULEAN_HOUSE_3 + + db $6 ; signs + db $13, $17, $c ; CeruleanCityText12 + db $1d, $11, $d ; CeruleanCityText13 + db $19, $1a, $e ; CeruleanCityText14 + db $11, $14, $f ; CeruleanCityText15 + db $19, $b, $10 ; CeruleanCityText16 + db $15, $1b, $11 ; CeruleanCityText17 + + db $b ; people + db SPRITE_BLUE, $2 + 4, $14 + 4, $ff, $d0, $1 ; person + db SPRITE_ROCKET, $8 + 4, $1e + 4, $ff, $ff, $42, ROCKET + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $14 + 4, $1f + 4, $ff, $d0, $3 ; person + db SPRITE_BLACK_HAIR_BOY_2, $12 + 4, $f + 4, $fe, $1, $4 ; person + db SPRITE_BLACK_HAIR_BOY_2, $15 + 4, $9 + 4, $fe, $2, $5 ; person + db SPRITE_GUARD, $c + 4, $1c + 4, $ff, $d0, $6 ; person + db SPRITE_LASS, $1a + 4, $1d + 4, $ff, $d2, $7 ; person + db SPRITE_SLOWBRO, $1a + 4, $1c + 4, $ff, $d0, $8 ; person + db SPRITE_LASS, $1b + 4, $9 + 4, $fe, $2, $9 ; person + db SPRITE_BLACK_HAIR_BOY_2, $c + 4, $4 + 4, $ff, $d0, $a ; person + db SPRITE_GUARD, $c + 4, $1b + 4, $ff, $d0, $b ; person + + ; warp-to + EVENT_DISP $14, $b, $1b ; TRASHED_HOUSE + EVENT_DISP $14, $f, $d ; CERULEAN_HOUSE + EVENT_DISP $14, $11, $13 ; CERULEAN_POKECENTER + EVENT_DISP $14, $13, $1e ; CERULEAN_GYM + EVENT_DISP $14, $19, $d ; BIKE_SHOP + EVENT_DISP $14, $19, $19 ; CERULEAN_MART + EVENT_DISP $14, $b, $4 ; UNKNOWN_DUNGEON_1 + EVENT_DISP $14, $9, $1b ; TRASHED_HOUSE + EVENT_DISP $14, $b, $9 ; CERULEAN_HOUSE_3 + EVENT_DISP $14, $9, $9 ; CERULEAN_HOUSE_3 + +CeruleanCityBlocks: ; 360 + INCBIN "maps/ceruleancity.blk" + +VermilionCity_h: ; 0x18998 to 0x189ba (34 bytes) (bank=6) (id=5) + db $00 ; tileset + db $12, $14 ; dimensions (y, x) + dw VermilionCityBlocks, VermilionCityTexts, VermilionCityScript ; blocks, texts, scripts + db NORTH | EAST ; connections + + ; connections data + + db ROUTE_6 + dw $410f, $c6f0 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $23, $f6 ; alignments (y, x) + dw $c809 ; window + + db ROUTE_11 + dw $455f, $c7b5 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $f8, $00 ; alignments (y, x) + dw $c70d ; window + + ; end connection data + + dw VermilionCityObject ; objects + +VermilionCityObject: ; 0x189ba (size=133) + db $43 ; border tile + + db $9 ; warps + db $3, $b, $0, VERMILION_POKECENTER + db $d, $9, $0, POKEMON_FAN_CLUB + db $d, $17, $0, VERMILION_MART + db $13, $c, $0, VERMILION_GYM + db $13, $17, $0, VERMILION_HOUSE_1 + db $1f, $12, $0, VERMILION_DOCK + db $1f, $13, $0, VERMILION_DOCK + db $d, $f, $0, VERMILION_HOUSE_3 + db $3, $7, $0, VERMILION_HOUSE_2 + + db $7 ; signs + db $3, $1b, $7 ; VermilionCityText7 + db $d, $25, $8 ; VermilionCityText8 + db $d, $18, $9 ; VermilionCityText9 + db $3, $c, $a ; VermilionCityText10 + db $d, $7, $b ; VermilionCityText11 + db $13, $7, $c ; VermilionCityText12 + db $f, $1d, $d ; VermilionCityText13 + + db $6 ; people + db SPRITE_FOULARD_WOMAN, $7 + 4, $13 + 4, $fe, $2, $1 ; person + db SPRITE_GAMBLER, $6 + 4, $e + 4, $ff, $ff, $2 ; person + db SPRITE_SAILOR, $1e + 4, $13 + 4, $ff, $d1, $3 ; person + db SPRITE_GAMBLER, $7 + 4, $1e + 4, $ff, $ff, $4 ; person + db SPRITE_SLOWBRO, $9 + 4, $1d + 4, $fe, $1, $5 ; person + db SPRITE_SAILOR, $1b + 4, $19 + 4, $fe, $2, $6 ; person + + ; warp-to + EVENT_DISP $14, $3, $b ; VERMILION_POKECENTER + EVENT_DISP $14, $d, $9 ; POKEMON_FAN_CLUB + EVENT_DISP $14, $d, $17 ; VERMILION_MART + EVENT_DISP $14, $13, $c ; VERMILION_GYM + EVENT_DISP $14, $13, $17 ; VERMILION_HOUSE_1 + EVENT_DISP $14, $1f, $12 ; VERMILION_DOCK + EVENT_DISP $14, $1f, $13 ; VERMILION_DOCK + EVENT_DISP $14, $d, $f ; VERMILION_HOUSE_3 + EVENT_DISP $14, $3, $7 ; VERMILION_HOUSE_2 + +VermilionCityBlocks: ; 360 + INCBIN "maps/vermilioncity.blk" + +FuchsiaCity_h: ; 0x18ba7 to 0x18bd4 (45 bytes) (bank=6) (id=7) + db $00 ; tileset + db $12, $14 ; dimensions (y, x) + dw FuchsiaCityBlocks, FuchsiaCityTexts, FuchsiaCityScript ; blocks, texts, scripts + db SOUTH | WEST | EAST ; connections + + ; connections data + + db ROUTE_19 + dw $4ef1, $c912 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $f6 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_18 + dw $4cb2, $c79e ; pointers (connected, current) (strip) + db $09, $19 ; bigness, width + db $f8, $31 ; alignments (y, x) + dw $c720 ; window + + db ROUTE_15 + dw $49cc, $c7b5 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $f8, $00 ; alignments (y, x) + dw $c70d ; window + + ; end connection data + + dw FuchsiaCityObject ; objects + +FuchsiaCityObject: ; 0x18bd4 (size=178) + db $f ; border tile + + db $9 ; warps + db $d, $5, $0, FUCHSIA_MART + db $1b, $b, $0, FUCHSIA_HOUSE_1 + db $1b, $13, $0, FUCHSIA_POKECENTER + db $1b, $1b, $0, FUCHSIA_HOUSE_2 + db $3, $12, $0, SAFARIZONEENTRANCE + db $1b, $5, $0, FUCHSIA_GYM + db $d, $16, $0, FUCHSIAMEETINGROOM + db $1b, $1f, $1, FUCHSIA_HOUSE_3 + db $18, $1f, $0, FUCHSIA_HOUSE_3 + + db $e ; signs + db $17, $f, $b ; FuchsiaCityText11 + db $f, $19, $c ; FuchsiaCityText12 + db $5, $11, $d ; FuchsiaCityText13 + db $d, $6, $e ; FuchsiaCityText14 + db $1b, $14, $f ; FuchsiaCityText15 + db $1d, $1b, $10 ; FuchsiaCityText16 + db $f, $15, $11 ; FuchsiaCityText17 + db $1d, $5, $12 ; FuchsiaCityText18 + db $7, $21, $13 ; FuchsiaCityText19 + db $7, $1b, $14 ; FuchsiaCityText20 + db $7, $d, $15 ; FuchsiaCityText21 + db $d, $1f, $16 ; FuchsiaCityText22 + db $f, $d, $17 ; FuchsiaCityText23 + db $7, $7, $18 ; FuchsiaCityText24 + + db $a ; people + db SPRITE_BUG_CATCHER, $c + 4, $a + 4, $fe, $2, $1 ; person + db SPRITE_GAMBLER, $11 + 4, $1c + 4, $fe, $2, $2 ; person + db SPRITE_FISHER2, $e + 4, $1e + 4, $ff, $d0, $3 ; person + db SPRITE_BUG_CATCHER, $8 + 4, $18 + 4, $ff, $d1, $4 ; person + db SPRITE_CLEFAIRY, $5 + 4, $1f + 4, $fe, $0, $5 ; person + db SPRITE_BALL, $6 + 4, $19 + 4, $ff, $ff, $6 ; person + db SPRITE_SLOWBRO, $6 + 4, $c + 4, $fe, $2, $7 ; person + db SPRITE_SLOWBRO, $c + 4, $1e + 4, $fe, $2, $8 ; person + db SPRITE_SEEL, $11 + 4, $8 + 4, $fe, $0, $9 ; person + db SPRITE_OMANYTE, $5 + 4, $6 + 4, $ff, $ff, $a ; person + + ; warp-to + EVENT_DISP $14, $d, $5 ; FUCHSIA_MART + EVENT_DISP $14, $1b, $b ; FUCHSIA_HOUSE_1 + EVENT_DISP $14, $1b, $13 ; FUCHSIA_POKECENTER + EVENT_DISP $14, $1b, $1b ; FUCHSIA_HOUSE_2 + EVENT_DISP $14, $3, $12 ; SAFARIZONEENTRANCE + EVENT_DISP $14, $1b, $5 ; FUCHSIA_GYM + EVENT_DISP $14, $d, $16 ; FUCHSIAMEETINGROOM + EVENT_DISP $14, $1b, $1f ; FUCHSIA_HOUSE_3 + EVENT_DISP $14, $18, $1f ; FUCHSIA_HOUSE_3 + +FuchsiaCityBlocks: ; 360 + INCBIN "maps/fuchsiacity.blk" + +INCBIN "baserom.gbc",$18dee,$6d + +PalletTownScript: + ld a,[$D74B] + bit 4,a + jr z,.next\@ + ld hl,$D747 + set 6,[hl] +.next\@ + call $3C3C + ld hl,PalletTownScriptPointers + ld a,[$D5F1] + jp $3D97 +; 0x18e73 + +PalletTownScriptPointers: + dw PalletTownScript1,PalletTownScript2,PalletTownScript3,PalletTownScript4,PalletTownScript5,PalletTownScript6,PalletTownScript7 + +PalletTownScript1: + ld a,[$D747] + bit 0,a + ret nz + ld a,[W_YCOORD] + cp 1 ; is player near north exit? + ret nz + xor a + ld [$FFB4],a + ld a,4 + ld [$D528],a + ld a,$FF + call $23B1 ; stop music + ld a,2 + ld c,a ; song bank + ld a,$DB ; “oak appears” music + call $23A1 ; plays music + ld a,$FC + ld [$CD6B],a + ld hl,$D74B + set 7,[hl] + + ; trigger the next script + ld a,1 + ld [$D5F1],a + ret + +PalletTownScript2: + xor a + ld [$CF0D],a + ld a,1 + ld [$FF8C],a + call $2920 + ld a,$FF + ld [$CD6B],a + ld a,0 + ld [$CC4D],a + ld a,$15 + call Predef + + ; trigger the next script + ld a,2 + ld [$D5F1],a + ret + +PalletTownScript3: + ld a,1 + ld [$FF8C],a + ld a,4 + ld [$FF8D],a + call $34A6 + call Delay3 + ld a,1 + ld [W_YCOORD],a + ld a,1 + ld [$FF9B],a + ld a,1 + swap a + ld [$FF95],a + ld a,$22 + call Predef + ld hl,$FF95 + dec [hl] + ld a,$20 + call Predef ; load Oak’s movement into $CC97 + ld de,$CC97 + ld a,1 ; oak + ld [$FF8C],a + call MoveSprite + ld a,$FF + ld [$CD6B],a + + ; trigger the next script + ld a,3 + ld [$D5F1],a + ret + +PalletTownScript4: + ld a,[$D730] + bit 0,a + ret nz + xor a + ld [$C109],a + ld a,1 + ld [$CF0D],a + ld a,$FC + ld [$CD6B],a + ld a,1 + ld [$FF8C],a + call $2920 + ld a,$FF + ld [$CD6B],a + ld a,1 + ld [$CF13],a + xor a + ld [$CF10],a + ld a,1 + ld [$CC57],a + ld a,[$FFB8] + ld [$CC58],a + + ; trigger the next script + ld a,4 + ld [$D5F1],a + ret + +PalletTownScript5: + ld a,[$CC57] + and a + ret nz + + ; trigger the next script + ld a,5 + ld [$D5F1],a + ret + +PalletTownScript6: + ld a,[$D74A] + bit 2,a + jr nz,.next\@ + and 3 + cp 3 + jr nz,.next\@ + ld hl,$D74A + set 2,[hl] + ld a,$27 + ld [$CC4D],a + ld a,$11 + call Predef + ld a,$28 + ld [$CC4D],a + ld a,$15 + jp Predef +.next\@ + ld a,[$D74B] + bit 4,a + ret z + ld hl,$D74B + set 6,[hl] +PalletTownScript7: + ret + +PalletTownTexts: ; 0x18f88 + dw PalletTownText1,PalletTownText2,PalletTownText3,PalletTownText4,PalletTownText5,PalletTownText6,PalletTownText7 + +PalletTownText1: ; 4F96 0x18f96 + db 8 + ld a,[$CF0D] + and a + jr nz,.next\@ + ld a,1 + ld [$CC3C],a + ld hl,OakAppearsText + jr .done\@ +.next\@ + ld hl,OakWalksUpText +.done\@ + call PrintText + jp $24D7 + +OakAppearsText: + TX_FAR _OakAppearsText + db 8 + ld c,10 + call DelayFrames + xor a + ld [$CD4F],a + ld [$CD50],a + ld a,$4C + call Predef ; display ! over head + ld a,4 + ld [$D528],a + jp $24D7 + +OakWalksUpText: + TX_FAR _OakWalksUpText + db "@" + +PalletTownText2: ; girl 0x18fd3 + TX_FAR _PalletTownText2 ; dc 42 29 pointing to 0xa42dc + db "@" + +PalletTownText3: ; fat man + TX_FAR _PalletTownText3 + db "@" + +PalletTownText4: ; sign by lab + TX_FAR _PalletTownText4 + db "@" + +PalletTownText5: ; sign by fence + TX_FAR _PalletTownText5 + db "@" + +PalletTownText6: ; sign by Red’s house + TX_FAR _PalletTownText6 + db "@" + +PalletTownText7: ; sign by Blue’s house + TX_FAR _PalletTownText7 + db "@" + +ViridianCityScript: ; 0x18ff1 + call $3c3c + ld hl, $4ffd + ld a, [$d5f4] + jp $3d97 +; 0x18ffd + +ViridianCityScripts: ; 0x18ffd + dw ViridianCityScript0 + +INCBIN "baserom.gbc",$18fff,$6 + +ViridianCityScript0: ; 0x19005 + call $500b + jp $503d +; 0x1900b + +INCBIN "baserom.gbc",$1900b,$d9 + +ViridianCityTexts: ; 0x190e4 + dw ViridianCityText1, ViridianCityText2, ViridianCityText3, ViridianCityText4, ViridianCityText5, ViridianCityText6, ViridianCityText7, ViridianCityText8, ViridianCityText9, ViridianCityText10, ViridianCityText11, ViridianCityText12, ViridianCityText13, ViridianCityText14, ViridianCityText15 + +ViridianCityText1: ; 0x19102 + TX_FAR _ViridianCityText1 + db $50 + +ViridianCityText2: ; 0x19107 + db $08 ; asm + ld a, [$d356] + cp $7f + ld hl, $5127 + jr z, .asm_ae9fe ; 0x19110 + ld a, [$d751] + bit 1, a + jr nz, .asm_ae9fe ; 0x19117 + ld hl, $5122 +.asm_ae9fe ; 0x1911c + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$19122,$1912c - $19122 + +ViridianCityText3: ; 0x1912c + db $08 ; asm + ld hl, $514d + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_6dfea ; 0x1913a + ld hl, $5157 + call PrintText + jr .asm_d611f ; 0x19142 +.asm_6dfea ; 0x19144 + ld hl, $5152 + call PrintText +.asm_d611f ; 0x1914a + jp $24d7 + +INCBIN "baserom.gbc",$1914d,$1915c - $1914d + +ViridianCityText4: ; 0x1915c + db $08 ; asm + ld a, [$d74b] + bit 5, a + jr nz, .asm_83894 ; 0x19162 + ld hl, $5175 + call PrintText + jr .asm_700a6 ; 0x1916a +.asm_83894 ; 0x1916c + ld hl, $517a + call PrintText +.asm_700a6 ; 0x19172 + jp $24d7 + +INCBIN "baserom.gbc",$19175,$1917f - $19175 + +ViridianCityText5: ; 0x1917f + db $08 ; asm + ld hl, $5191 + call PrintText + call $50cf + ld a, $3 + ld [$d5f4], a + jp $24d7 + +INCBIN "baserom.gbc",$19191,$19196 - $19191 + +ViridianCityText6: ; 0x19196 + db $08 ; asm + ld a, [$d74c] + bit 1, a + jr nz, .asm_4e5a0 ; 0x1919c + ld hl, $51ca + call PrintText + ld bc,(TM_42 << 8) | 1 + call $3e2e + jr nc, .asm_b655e ; 0x191aa + ld hl, $51cf + call PrintText + ld hl, $d74c + set 1, [hl] + jr .asm_3c73c ; 0x191b7 +.asm_b655e ; 0x191b9 + ld hl, $51da + call PrintText + jr .asm_3c73c ; 0x191bf +.asm_4e5a0 ; 0x191c1 + ld hl, $51d5 + call PrintText +.asm_3c73c ; 0x191c7 + jp $24d7 + +INCBIN "baserom.gbc",$191ca,$191df - $191ca + +ViridianCityText7: ; 0x191df + db $08 ; asm + ld hl, $520a + call PrintText + ld c, $2 + call $3739 + call $35ec + ld a, [$cc26] + and a + jr z, .asm_42f68 ; 0x191f2 + ld hl, $520f + call PrintText + ld a, $1 + ld [$d5f4], a + jr .asm_2413a ; 0x191ff +.asm_42f68 ; 0x19201 + ld hl, $5214 + call PrintText +.asm_2413a ; 0x19207 + jp $24d7 + +INCBIN "baserom.gbc",$1920a,$19219 - $1920a + +ViridianCityText15: ; 0x19219 +INCBIN "baserom.gbc",$19219,$1921e - $19219 + +ViridianCityText8: ; 0x1921e + TX_FAR _ViridianCityText8 + db $50 + +ViridianCityText9: ; 0x19223 + TX_FAR _ViridianCityText9 + db $50 + +ViridianCityText10: ; 0x19228 + TX_FAR _ViridianCityText10 + db $50 + +ViridianCityText13: ; 0x1922d + TX_FAR _ViridianCityText13 + db $50 + +ViridianCityText14: +INCBIN "baserom.gbc",$19232,$19237 - $19232 + +PewterCityScript: ; 0x19237 + call $3c3c + ld hl, $5243 + ld a, [$d5f7] + jp $3d97 +; 0x19243 + +PewterCityScripts: ; 0x19243 + dw PewterCityScript0 + +INCBIN "baserom.gbc",$19245,$c + +PewterCityScript0: ; 0x19251 + xor a + ld [$d619], a + ld hl, $d754 + res 0, [hl] + call $525e + ret +; 0x1925e + +INCBIN "baserom.gbc",$1925e,$12d + +PewterCityTexts: ; 0x1938b + dw PewterCityText1, PewterCityText2, PewterCityText3, PewterCityText4, PewterCityText5, PewterCityText6, PewterCityText7, PewterCityText8, PewterCityText9, PewterCityText10, PewterCityText11, PewterCityText12, PewterCityText13, PewterCityText14 + +PewterCityText1: ; 0x193a7 + TX_FAR _PewterCityText1 + db $50 + +PewterCityText2: ; 0x193ac + TX_FAR _PewterCityText2 + db $50 + +PewterCityText3: ; 0x193b1 + db $08 ; asm + ld hl, $53f1 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_f46a9 ; 0x193bf + ld hl, $53f6 + call PrintText + jr .asm_ac429 ; 0x193c7 +.asm_f46a9 ; 0x193c9 + ld hl, $53fb + call PrintText + xor a + ldh [$b3], a + ldh [$b4], a + ld [$cf10], a + ld a, $2 + ld [$cc57], a + ldh a, [$b8] + ld [$cc58], a + ld a, $3 + ld [$cf13], a + call $32f4 + ld a, $1 + ld [$d5f7], a +.asm_ac429 ; 0x193ee + jp $24d7 + +INCBIN "baserom.gbc",$193f1,$19400 - $193f1 + +PewterCityText13: +INCBIN "baserom.gbc",$19400,$5 + +PewterCityText4: ; 0x19405 + db $8 + ld hl, $5427 + call PrintText + call $35ec + ld a, [$cc26] + cp $0 + jr nz, .asm_e4603 + ld hl, $542c + call PrintText + jr .asm_e4604 ; 0x1941c $6 +.asm_e4603 + ld hl, $5431 + call PrintText +.asm_e4604 ; 0x19424 + jp $24d7 +; 0x19427 + +INCBIN "baserom.gbc",$19427,$f + +PewterCityText5: ; 0x19436 + db $08 ; asm + ld hl, $545d + call PrintText + xor a + ldh [$b4], a + ld [$cf10], a + ld a, $3 + ld [$cc57], a + ldh a, [$b8] + ld [$cc58], a + ld a, $5 + ld [$cf13], a + call $32f4 + ld a, $4 + ld [$d5f7], a + jp $24d7 + +INCBIN "baserom.gbc",$1945d,$19462 - $1945d + +PewterCityText14: ; 0x19462 +INCBIN "baserom.gbc",$19462,$5 + +PewterCityText6: ; 0x19467 + TX_FAR _PewterCityText6 + db $50 + +PewterCityText7: ; 0x1946c + TX_FAR _PewterCityText7 + db $50 + +PewterCityText10: ; 0x19471 + TX_FAR _PewterCityText10 + db $50 + +PewterCityText11: ; 0x19476 + TX_FAR _PewterCityText11 + db $50 + +PewterCityText12: ; 0x1947b + TX_FAR _PewterCityText12 + db $50 + +CeruleanCityScript: ; 0x19480 + call $3c3c + ld hl, $549d + ld a, [$d60f] + jp $3d97 +; 0x1948c + +INCBIN "baserom.gbc",$1948c,$1949d - $1948c + +CeruleanCityScripts: ; 0x1949d + dw CeruleanCityScript0, CeruleanCityScript1, CeruleanCityScript2, CeruleanCityScript3 + +INCBIN "baserom.gbc",$194a5,$23 + +CeruleanCityScript0: ; 0x194c8 + ld a, [$d75b] + bit 7, a + jr nz, .asm_194f7 ; 0x194cd $28 + ld hl, $554f + call $34bf + jr nc, .asm_194f7 ; 0x194d5 $20 + ld a, [$cd3d] + cp $1 + ld a, $8 + ld b, $0 + jr nz, .asm_194e6 ; 0x194e0 $4 + ld a, $4 + ld b, $4 +.asm_194e6 + ld [$d528], a + ld a, b + ld [$c129], a + call Delay3 + ld a, $2 + ld [$ff00+$8c], a + jp $2920 +.asm_194f7 + ld a, [$d75a] + bit 0, a + ret nz + ld hl, $5554 + call $34bf + ret nc + ld a, [$d700] + and a + jr z, .asm_19512 ; 0x19508 $8 + ld a, $ff + ld [$c0ee], a + call $23b1 +.asm_19512 + ld c, $2 + ld a, $de + call $23a1 + xor a + ld [$ff00+$b4], a + ld a, $f0 + ld [$cd6b], a + ld a, [$d362] + cp $14 + jr z, .asm_19535 ; 0x19526 $d + ld a, $1 + ld [$ff00+$8c], a + ld a, $5 + ld [$ff00+$8b], a + call $3500 + ld [hl], $19 +.asm_19535 + ld a, $5 + ld [$cc4d], a + ld a, $15 + call Predef + ld de, $5559 + ld a, $1 + ld [$ff00+$8c], a + call $363a + ld a, $1 + ld [$d60f], a + ret +; 0x1954f + +INCBIN "baserom.gbc",$1954f,$19567 - $1954f + +CeruleanCityScript1: ; 0x19567 + ld a, [$d730] + bit 0, a + ret nz + xor a + ld [$cd6b], a + ld a, $1 + ld [$ff00+$8c], a + call $2920 + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $566d + ld de, $5672 + call $3354 + ld a, $e1 + ld [$d059], a + ld a, [$d715] + cp $b1 + jr nz, .asm_19598 ; 0x19592 $4 + ld a, $7 + jr .asm_195a2 ; 0x19596 $a +.asm_19598 + cp $99 + jr nz, .asm_195a0 ; 0x1959a $4 + ld a, $8 + jr .asm_195a2 ; 0x1959e $2 +.asm_195a0 + ld a, $9 +.asm_195a2 + ld [$d05d], a + xor a + ld [$ff00+$b4], a + call $555d + ld a, $2 + ld [$d60f], a + ret +; 0x195b1 + +CeruleanCityScript2: ; 0x195b1 + ld a, [$d057] + cp $ff + jp z, $548c + call $555d + ld a, $f0 + ld [$cd6b], a + ld hl, $d75a + set 0, [hl] + ld a, $1 + ld [$ff00+$8c], a + call $2920 + ld a, $ff + ld [$c0ee], a + call $23b1 + ld b, $2 + ld hl, $5b47 + call Bankswitch + ld a, $1 + ld [$ff00+$8c], a + call $3541 + ld a, [$d362] + cp $14 + jr nz, .asm_195f0 ; 0x195e9 $5 + ld de, $5608 + jr .asm_195f3 ; 0x195ee $3 +.asm_195f0 + ld de, $5600 +.asm_195f3 + ld a, $1 + ld [$ff00+$8c], a + call $363a + ld a, $3 + ld [$d60f], a + ret +; 0x19600 + +INCBIN "baserom.gbc",$19600,$19610 - $19600 + +CeruleanCityScript3: ; 0x19610 + ld a, [$d730] + bit 0, a + ret nz + ld a, $5 + ld [$cc4d], a + ld a, $11 + call Predef + xor a + ld [$cd6b], a + call $2307 + ld a, $0 + ld [$d60f], a + ret +; 0x1962d + +CeruleanCityTexts: ; 0x1962d + dw CeruleanCityText1, CeruleanCityText2, CeruleanCityText3, CeruleanCityText4, CeruleanCityText5, CeruleanCityText6, CeruleanCityText7, CeruleanCityText8, CeruleanCityText9, CeruleanCityText10, CeruleanCityText11, CeruleanCityText12, CeruleanCityText13, CeruleanCityText14, CeruleanCityText15, CeruleanCityText16, CeruleanCityText17 + +CeruleanCityText1: ; 0x1964f + db $08 ; asm + ld a, [$d75a] + bit 0, a + jr z, .asm_a89f9 ; 0x19655 + ld hl, $5677 + call PrintText + jr .asm_815c6 ; 0x1965d +.asm_a89f9 ; 0x1965f + ld hl, $5668 + call PrintText +.asm_815c6 ; 0x19665 + jp $24d7 + +INCBIN "baserom.gbc",$19668,$1967c - $19668 + +CeruleanCityText2: ; 0x1967c + db $8 + ld a, [$d75b] + bit 7, a + jr nz, .asm_4ca20 ; 0x19682 $29 + ld hl, $56d9 + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $56ee + ld de, $56ee + call $3354 + ld a, [$ff00+$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $4 + ld [$d60f], a + jp $24d7 +.asm_4ca20 ; 0x196ad + ld hl, $56f3 + call PrintText + ld bc, $e401 + call GiveItem + jr c, .asm_8bbbd ; 0x196b9 $8 + ld hl, $56e9 + call PrintText + jr .asm_e4e6f ; 0x196c1 $13 +.asm_8bbbd ; 0x196c3 + ld a, $1 + ld [$cc3c], a + ld hl, $56de + call PrintText + ld b, $1d + ld hl, $4872 + call Bankswitch +.asm_e4e6f ; 0x196d6 + jp $24d7 +; 0x196d9 + +INCBIN "baserom.gbc",$196d9,$1f + +CeruleanCityText3: ; 0x196f8 + TX_FAR _CeruleanCityText3 + db $50 + +CeruleanCityText4: ; 0x196fd + TX_FAR _CeruleanCityText4 + db $50 + +CeruleanCityText5: ; 0x19702 + TX_FAR _CeruleanCityText5 + db $50 + +CeruleanCityText11: +CeruleanCityText6: ; 0x19707 + TX_FAR _CeruleanCityText6 + db $50 + +CeruleanCityText7: ; 0x1970c + db $08 ; asm + ldh a, [$d3] + cp $b4 + jr c, .asm_e9fc9 ; 0x19711 + ld hl, $5730 + call PrintText + jr .asm_d486e ; 0x19719 +.asm_e9fc9 ; 0x1971b + cp $64 + jr c, .asm_df99b ; 0x1971d + ld hl, $5735 + call PrintText + jr .asm_d486e ; 0x19725 +.asm_df99b ; 0x19727 + ld hl, $573a + call PrintText +.asm_d486e ; 0x1972d + jp $24d7 + +INCBIN "baserom.gbc",$19730,$1973f - $19730 + +CeruleanCityText8: ; 0x1973f + db $08 ; asm + ldh a, [$d3] + cp $b4 + jr c, .asm_e28da ; 0x19744 + ld hl, $576f + call PrintText + jr .asm_f2f38 ; 0x1974c +.asm_e28da ; 0x1974e + cp $78 + jr c, .asm_15d08 ; 0x19750 + ld hl, $5774 + call PrintText + jr .asm_f2f38 ; 0x19758 +.asm_15d08 ; 0x1975a + cp $3c + jr c, .asm_d7fea ; 0x1975c + ld hl, $5779 + call PrintText + jr .asm_f2f38 ; 0x19764 +.asm_d7fea ; 0x19766 + ld hl, $577e + call PrintText +.asm_f2f38 ; 0x1976c + jp $24d7 + +INCBIN "baserom.gbc",$1976f,$14 + +CeruleanCityText9: ; 0x19783 + TX_FAR _CeruleanCityText9 + db $50 + +CeruleanCityText10: ; 0x19788 + TX_FAR _CeruleanCityText10 + db $50 + +CeruleanCityText12: ; 0x1978d + TX_FAR _CeruleanCityText12 + db $50 + +CeruleanCityText13: ; 0x19792 + TX_FAR _CeruleanCityText13 + db $50 + +CeruleanCityText16: ; 0x19797 + TX_FAR _CeruleanCityText16 + db $50 + +CeruleanCityText17: ; 0x1979c + TX_FAR _CeruleanCityText17 + db $50 + +VermilionCityScript: ; 0x197a1 + call $3c3c + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + push hl + call nz, $57cb + pop hl + bit 5, [hl] + res 5, [hl] + call nz, $57c0 + ld hl, $57dc + ld a, [$d62a] + jp $3d97 +; 0x197c0 + +INCBIN "baserom.gbc",$197c0,$197dc - $197c0 + +VermilionCityScripts: ; 0x197dc + dw VermilionCityScript0, VermilionCityScript1 + +INCBIN "baserom.gbc",$197e0,$6 + +VermilionCityScript0: ; 0x197e6 + ld a, [$c109] + and a + ret nz + ld hl, $5823 + call $34bf + ret nc + xor a + ld [$ff00+$b4], a + ld [$cf0d], a + ld a, $3 + ld [$ff00+$8c], a + call $2920 + ld a, [$d803] + bit 2, a + jr nz, .asm_19810 ; 0x19804 $a + ld b, $3f + ld a, $1c + call Predef + ld a, b + and a + ret nz +.asm_19810 + ld a, $40 + ld [$ccd3], a + ld a, $1 + ld [$cd38], a + call $3486 + ld a, $1 + ld [$d62a], a + ret +; 0x19823 + +INCBIN "baserom.gbc",$19823,$1985f - $19823 + +VermilionCityScript1: ; 0x1985f + ld a, [$cd38] + and a + ret nz + ld c, $a + call $3739 + ld a, $0 + ld [$d62a], a + ret +; 0x1986f + +VermilionCityTexts: ; 0x1986f + dw VermilionCityText1, VermilionCityText2, VermilionCityText3, VermilionCityText4, VermilionCityText5, VermilionCityText6, VermilionCityText7, VermilionCityText8, VermilionCityText9, VermilionCityText10, VermilionCityText11, VermilionCityText12, VermilionCityText13 + +VermilionCityText1: ; 0x19889 + TX_FAR _VermilionCityText1 + db $50 + +VermilionCityText2: ; 0x1988e + db $08 ; asm + ld a, [$d803] + bit 2, a + jr nz, .asm_359bd ; 0x19894 + ld hl, $58a7 + call PrintText + jr .asm_735d9 ; 0x1989c +.asm_359bd ; 0x1989e + ld hl, $58ac + call PrintText +.asm_735d9 ; 0x198a4 + jp $24d7 + +INCBIN "baserom.gbc",$198a7,$198b1 - $198a7 + +VermilionCityText3: ; 0x198b1 + db $08 ; asm + ld a, [$d803] + bit 2, a + jr nz, .asm_3e0e9 ; 0x198b7 + ld a, [$c109] + cp $c + jr z, .asm_07af3 ; 0x198be + ld hl, $58ff + call $34bf + jr nc, .asm_57b73 ; 0x198c6 +.asm_07af3 ; 0x198c8 + ld hl, $5904 + call PrintText + jr .asm_79bd1 ; 0x198ce +.asm_57b73 ; 0x198d0 + ld hl, $5909 + call PrintText + ld b, $3f + ld a, $1c + call Predef + ld a, b + and a + jr nz, .asm_0419b ; 0x198df + ld hl, $5913 + call PrintText + jr .asm_79bd1 ; 0x198e7 +.asm_0419b ; 0x198e9 + ld hl, $590e + call PrintText + ld a, $4 + ld [$d62a], a + jr .asm_79bd1 ; 0x198f4 +.asm_3e0e9 ; 0x198f6 + ld hl, $5918 + call PrintText +.asm_79bd1 ; 0x198fc + jp $24d7 + +INCBIN "baserom.gbc",$198ff,$1e + +VermilionCityText4: ; 0x1991d + TX_FAR _VermilionCityText4 + db $50 + +VermilionCityText5: ; 0x19922 + TX_FAR _VermilionCityText5 + db $08 ; asm + ld a, $6a + call $13d0 + call $3748 + ld hl, $5933 + ret + +;db $17, $6b, $58, $29, $50 +INCBIN "baserom.gbc",$19933,$5 + +VermilionCityText6: ; 0x19938 + TX_FAR _VermilionCityText6 + db $50 + +VermilionCityText7: ; 0x1993d + TX_FAR _VermilionCityText7 + db $50 + +VermilionCityText8: ; 0x19942 + TX_FAR _VermilionCityText8 + db $50 + +VermilionCityText11: ; 0x19947 + TX_FAR _VermilionCityText11 + db $50 + +VermilionCityText12: ; 0x1994c + TX_FAR _VermilionCityText12 + db $50 + +VermilionCityText13: ; 0x19951 + TX_FAR _VermilionCityText13 + db $50 + +CeladonCityScript: ; 0x19956 + call $3c3c + ld hl, $d77e + res 0, [hl] + res 7, [hl] + ld hl, $d816 + res 7, [hl] + ret +; 0x19966 + +CeladonCityTexts: ; 0x19966 + dw CeladonCityText1, CeladonCityText2, CeladonCityText3, CeladonCityText4, CeladonCityText5, CeladonCityText6, CeladonCityText7, CeladonCityText8, CeladonCityText9, CeladonCityText10, CeladonCityText11, CeladonCityText12, CeladonCityText13, CeladonCityText14, CeladonCityText15, CeladonCityText16, CeladonCityText17, CeladonCityText18 + +CeladonCityText1: ; 0x1998a + TX_FAR _CeladonCityText1 + db $50 + +CeladonCityText2: ; 0x1998f + TX_FAR _CeladonCityText2 + db $50 + +CeladonCityText3: ; 0x19994 + TX_FAR _CeladonCityText3 + db $50 + +CeladonCityText4: ; 0x19999 + TX_FAR _CeladonCityText4 + db $50 + +CeladonCityText5: ; 0x1999e + db $08 ; asm + ld a, [$d777] + bit 0, a + jr nz, .asm_7053f ; 0x199a4 + ld hl, $59d2 + call PrintText + ld bc,(TM_41 << 8) | 1 + call $3e2e + jr c, .asm_890ec ; 0x199b2 + ld hl, $59e2 + call PrintText + jr .asm_c765a ; 0x199ba +.asm_890ec ; 0x199bc + ld hl, $59d7 + call PrintText + ld hl, $d777 + set 0, [hl] + jr .asm_c765a ; 0x199c7 +.asm_7053f ; 0x199c9 + ld hl, $59dd + call PrintText +.asm_c765a ; 0x199cf + jp $24d7 + +INCBIN "baserom.gbc",$199d2,$15 + +CeladonCityText6: ; 0x199e7 + TX_FAR _CeladonCityText6 + db $50 + +CeladonCityText7: ; 0x199ec + TX_FAR _CeladonCityText7 + db $08 ; asm + ld a, $6f + call $13d0 + jp $24d7 + +CeladonCityText8: ; 0x199f9 + TX_FAR _CeladonCityText8 + db $50 + +CeladonCityText9: ; 0x199fe + TX_FAR _CeladonCityText9 + db $50 + +CeladonCityText10: ; 0x19a03 + TX_FAR _CeladonCityText10 + db $50 + +CeladonCityText11: ; 0x19a08 + TX_FAR _CeladonCityText11 + db $50 + +CeladonCityText13: ; 0x19a0d + TX_FAR _CeladonCityText13 + db $50 + +CeladonCityText14: ; 0x19a12 + TX_FAR _CeladonCityText14 + db $50 + +CeladonCityText15: ; 0x19a17 + TX_FAR _CeladonCityText15 + db $50 + +CeladonCityText16: ; 0x19a1c + TX_FAR _CeladonCityText16 + db $50 + +CeladonCityText17: ; 0x19a21 + TX_FAR _CeladonCityText17 + db $50 + +CeladonCityText18: ; 0x19a26 + TX_FAR _CeladonCityText18 + db $50 + +FuchsiaCityScript: ; 0x19a2b + jp $3c3c +; 0x19a2e + +FuchsiaCityTexts: ; 0x19a2e + dw FuchsiaCityText1, FuchsiaCityText2, FuchsiaCityText3, FuchsiaCityText4, FuchsiaCityText5, FuchsiaCityText6, FuchsiaCityText7, FuchsiaCityText8, FuchsiaCityText9, FuchsiaCityText10, FuchsiaCityText11, FuchsiaCityText12, FuchsiaCityText13, FuchsiaCityText14, FuchsiaCityText15, FuchsiaCityText16, FuchsiaCityText17, FuchsiaCityText18, FuchsiaCityText19, FuchsiaCityText20, FuchsiaCityText21, FuchsiaCityText22, FuchsiaCityText23, FuchsiaCityText24 + +FuchsiaCityText1: ; 0x19a5e + TX_FAR _FuchsiaCityText1 + db $50 + +FuchsiaCityText2: ; 0x19a63 + TX_FAR _FuchsiaCityText2 + db $50 + +FuchsiaCityText3: ; 0x19a68 + TX_FAR _FuchsiaCityText3 + db $50 + +FuchsiaCityText4: ; 0x19a6d + TX_FAR _FuchsiaCityText4 + db $50 + +FuchsiaCityText5: ; 0x19a72 +FuchsiaCityText6: +FuchsiaCityText7: +FuchsiaCityText8: +FuchsiaCityText9: +FuchsiaCityText10: ; 0x19a72 + TX_FAR _FuchsiaCityText5 + db $50 + +FuchsiaCityText12: +FuchsiaCityText11: ; 0x19a77 + TX_FAR _FuchsiaCityText11 + db $50 + +FuchsiaCityText13: ; 0x19a7c + TX_FAR _FuchsiaCityText13 + db $50 + +FuchsiaCityText16: ; 0x19a81 + TX_FAR _FuchsiaCityText16 + db $50 + +FuchsiaCityText17: ; 0x19a86 + TX_FAR _FuchsiaCityText17 + db $50 + +FuchsiaCityText18: ; 0x19a8b + TX_FAR _FuchsiaCityText18 + db $50 + +FuchsiaCityText19: ; 0x19a90 + db $08 ; asm + ld hl, $5a9f + call PrintText + ld a, $28 + call $349b + jp $24d7 + +INCBIN "baserom.gbc",$19a9f,$19aa4 - $19a9f + +FuchsiaCityText20: ; 0x19aa4 + db $08 ; asm + ld hl, $5ab3 + call PrintText + ld a, $6 + call $349b + jp $24d7 + +INCBIN "baserom.gbc",$19ab3,$19ab8 - $19ab3 + +FuchsiaCityText21: ; 0x19ab8 + db $08 ; asm + ld hl, $5ac7 + call PrintText + ld a, $2 + call $349b + jp $24d7 + +INCBIN "baserom.gbc",$19ac7,$19acc - $19ac7 + +FuchsiaCityText22: ; 0x19acc + db $08 ; asm + ld hl, $5adb + call PrintText + ld a, $25 + call $349b + jp $24d7 + +INCBIN "baserom.gbc",$19adb,$19ae0 - $19adb + +FuchsiaCityText23: ; 0x19ae0 + db $08 ; asm + ld hl, $5aef + call PrintText + ld a, $13 + call $349b + jp $24d7 + +INCBIN "baserom.gbc",$19aef,$19af4 - $19aef + +FuchsiaCityText24: ; 0x19af4 + db $08 ; asm + ld a, [$d7f6] + bit 6, a + jr nz, .asm_3b4e8 ; 0x19afa + bit 7, a + jr nz, .asm_667d5 ; 0x19afe + ld hl, $5b2a + call PrintText + jr .asm_4343f ; 0x19b06 +.asm_3b4e8 ; 0x19b08 + ld hl, $5b20 + call PrintText + ld a, $62 + jr .asm_81556 ; 0x19b10 +.asm_667d5 ; 0x19b12 + ld hl, $5b25 + call PrintText + ld a, $5a +.asm_81556 ; 0x19b1a + call $349b +.asm_4343f ; 0x19b1d + jp $24d7 + +INCBIN "baserom.gbc",$19b20,$f + +BluesHouse_h: ; 0x19b2f + db $08 ; tileset + db $04,$04 ; dimensions + dw BluesHouseBlocks, BluesHouseTexts, BluesHouseScript + db 0 + dw BluesHouseObject + +BluesHouseScript: + call $3C3C + ld hl,BluesHouseScriptPointers + ld a,[$D5F3] + jp $3D97 + +BluesHouseScriptPointers: + dw BluesHouseScript1,BluesHouseScript2 + +BluesHouseScript1: + ld hl,$D74A + set 1,[hl] + + ; trigger the next script + ld a,1 + ld [$D5F3],a + ret + +BluesHouseScript2: + ret + +BluesHouseTexts: ; 0x19B57 + dw BluesHouseText1,BluesHouseText2,BluesHouseText3 + +BluesHouseText1: ; 5B5D 0x19B5D + db 8 + ld a,[$D74A] + bit 0,a + jr nz,.GotMap\@ + ld a,[$D74B] + bit 5,a + jr nz,.GiveMap\@ + ld hl,DaisyInitialText + call PrintText + jr .done\@ +.GiveMap\@ + ld hl,DaisyOfferMapText + call PrintText + ld bc,(TOWN_MAP << 8) | 1 + call $3E2E + jr nc,.BagFull\@ + ld a,$29 + ld [$CC4D],a + ld a,$11 + call Predef ; hide table map object + ld hl,GotMapText + call PrintText + ld hl,$D74A + set 0,[hl] + jr .done\@ +.GotMap\@ + ld hl,DaisyUseMapText + call PrintText + jr .done\@ +.BagFull\@ + ld hl,DaisyBagFullText + call PrintText +.done\@ + jp $24D7 + +DaisyInitialText: + TX_FAR _DaisyInitialText + db "@" +DaisyOfferMapText: + TX_FAR _DaisyOfferMapText + db "@" +GotMapText: + TX_FAR _GotMapText + db $11,"@" +DaisyBagFullText: + TX_FAR _DaisyBagFullText + db "@" +DaisyUseMapText: + TX_FAR _DaisyUseMapText + db "@" +BluesHouseText2: ; Daisy, walking around + TX_FAR _BluesHouseText2 + db "@" +BluesHouseText3: ; map on table + TX_FAR _BluesHouseText3 + db "@" + +BluesHouseObject: + db $0A ; border tile + + db 2 ; warps + db 7,2,1,$FF + db 7,3,1,$FF + + db 0 ; signs + + db 3 ; people + db $11,4+3,4+2,$FF,$D3,1 ; Daisy, sitting by map + db $11,4+4,4+6,$FE,1,ITEM|2,0 ; map on table + db $41,4+3,4+3,$FF,$FF,ITEM|3,0 ; Daisy, walking around + + ; warp-to + dw $C712 + db 7,2 + + dw $C712 + db 7,3 + +BluesHouseBlocks: + INCBIN "maps/blueshouse.blk" + +VermilionHouse3_h: ; 0x19c06 to 0x19c12 (12 bytes) (bank=6) (id=196) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw VermilionHouse3Blocks, VermilionHouse3Texts, VermilionHouse3Script ; blocks, texts, scripts + db $00 ; connections + + dw VermilionHouse3Object ; objects + +VermilionHouse3Script: ; 0x19c12 + jp $3c3c +; 0x19c15 + +VermilionHouse3Texts: ; 0x19c15 + dw VermilionHouse3Text1 + +VermilionHouse3Text1: ; 0x19c17 + db $08 ; asm + ld a, $4 + ld [W_WHICHTRADE], a + ld a, $54 + call Predef + jp $24d7 + +VermilionHouse3Object: ; 0x19c25 (size=26) + db $a ; border tile + + db $2 ; warps + db $7, $2, $7, $ff + db $7, $3, $7, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_LITTLE_GIRL, $5 + 4, $3 + 4, $ff, $d1, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +VermilionHouse3Blocks: ; 16 + INCBIN "maps/vermilionhouse3.blk" + +IndigoPlateauLobby_h: ; 0x19c4f to 0x19c5b (12 bytes) (bank=6) (id=174) + db $02 ; tileset + db $06, $08 ; dimensions (y, x) + dw IndigoPlateauLobbyBlocks, IndigoPlateauLobbyTexts, IndigoPlateauLobbyScript ; blocks, texts, scripts + db $00 ; connections + + dw IndigoPlateauLobbyObject ; objects + +IndigoPlateauLobbyScript: ; 0x19c5b + call $22fa + call $3c3c + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + ret z + ld hl, $d869 + res 7, [hl] + ld hl, $d734 + bit 1, [hl] + res 1, [hl] + ret z + ld hl, $d863 + xor a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hl], a + ret +; 0x19c7f + +IndigoPlateauLobbyTexts: +INCBIN "baserom.gbc",$19c7f,$b + +IndigoPlateauLobbyText2: +IndigoPlateauLobbyText1: ; 0x19c8a + TX_FAR _IndigoPlateauLobbyText1 + db $50 + +INCBIN "baserom.gbc",$19c8f,$19c8f - $19c8f + +IndigoPlateauLobbyText3: ; 0x19c8f + TX_FAR _IndigoPlateauLobbyText3 + db $50 + +IndigoPlateauLobbyText5: + db $f6 + +IndigoPlateauLobbyObject: ; 0x19c95 (size=58) + db $0 ; border tile + + db $3 ; warps + db $b, $7, $0, $ff + db $b, $8, $1, $ff + db $0, $8, $0, LORELEIS_ROOM + + db $0 ; signs + + db $5 ; people + db SPRITE_NURSE, $5 + 4, $7 + 4, $ff, $d0, $1 ; person + db SPRITE_GYM_HELPER, $9 + 4, $4 + 4, $ff, $d3, $2 ; person + db SPRITE_LASS, $1 + 4, $5 + 4, $ff, $d0, $3 ; person + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $4 ; person + db SPRITE_CABLE_CLUB_WOMAN, $6 + 4, $d + 4, $ff, $d0, $5 ; person + + ; warp-to + EVENT_DISP $8, $b, $7 + EVENT_DISP $8, $b, $8 + EVENT_DISP $8, $0, $8 ; LORELEIS_ROOM + +IndigoPlateauLobbyBlocks: ; 48 + INCBIN "maps/indigoplateaulobby.blk" + +SilphCo4_h: ; 0x19cff to 0x19d0b (12 bytes) (bank=6) (id=209) + db $16 ; tileset + db $09, $0f ; dimensions (y, x) + dw SilphCo4Blocks, SilphCo4Texts, SilphCo4Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo4Object ; objects + +SilphCo4Script: ; 0x19d0b + call $5d21 + call $3c3c + ld hl, $5dae + ld de, $5d9a + ld a, [$d645] + call $3160 + ld [$d645], a + ret +; 0x19d21 + +INCBIN "baserom.gbc",$19d21,$7f + +SilphCo4Texts: ; 0x19da0 + dw SilphCo4Text1, SilphCo4Text2, SilphCo4Text3, SilphCo4Text4, SilphCo4Text5, SilphCo4Text6, SilphCo4Text7 + +INCBIN "baserom.gbc",$19dae,$25 + +SilphCo4Text1: ; 0x19dd3 + db $08 ; asm + ld hl, $5de0 + ld de, $5de5 + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$19de0,$19dea - $19de0 + +SilphCo4Text2: ; 0x19dea + db $08 ; asm + ld hl, $5dae + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$19df4,$19e03 - $19df4 + +SilphCo4Text3: ; 0x19e03 + db $08 ; asm + ld hl, $5dba + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$19e0d,$19e1c - $19e0d + +SilphCo4Text4: ; 0x19e1c + db $08 ; asm + ld hl, $5dc6 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$19e26,$f + +SilphCo4Object: ; 0x19e35 (size=111) + db $2e ; border tile + + db $7 ; warps + db $0, $18, $1, SILPH_CO_3F + db $0, $1a, $1, SILPH_CO_5F + db $0, $14, $0, SILPH_CO_ELEVATOR + db $7, $b, $3, SILPH_CO_10F + db $3, $11, $3, SILPH_CO_6F + db $f, $3, $4, SILPH_CO_10F + db $b, $11, $5, SILPH_CO_10F + + db $0 ; signs + + db $7 ; people + db SPRITE_LAPRAS_GIVER, $2 + 4, $6 + 4, $ff, $ff, $1 ; person + db SPRITE_ROCKET, $e + 4, $9 + 4, $ff, $d3, $42, ROCKET + $C8, $1a ; trainer + db SPRITE_OAK_AIDE, $6 + 4, $e + 4, $ff, $d2, $43, SCIENTIST + $C8, $5 ; trainer + db SPRITE_ROCKET, $a + 4, $1a + 4, $ff, $d1, $44, ROCKET + $C8, $1b ; trainer + db SPRITE_BALL, $9 + 4, $3 + 4, $ff, $ff, $85, FULL_HEAL ; item + db SPRITE_BALL, $7 + 4, $4 + 4, $ff, $ff, $86, MAX_REVIVE ; item + db SPRITE_BALL, $8 + 4, $5 + 4, $ff, $ff, $87, ESCAPE_ROPE ; item + + ; warp-to + EVENT_DISP $f, $0, $18 ; SILPH_CO_3F + EVENT_DISP $f, $0, $1a ; SILPH_CO_5F + EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR + EVENT_DISP $f, $7, $b ; SILPH_CO_10F + EVENT_DISP $f, $3, $11 ; SILPH_CO_6F + EVENT_DISP $f, $f, $3 ; SILPH_CO_10F + EVENT_DISP $f, $b, $11 ; SILPH_CO_10F + +SilphCo4Blocks: ; 135 + INCBIN "maps/silphco4.blk" + +SilphCo5_h: ; 0x19f2b to 0x19f37 (12 bytes) (bank=6) (id=210) + db $16 ; tileset + db $09, $0f ; dimensions (y, x) + dw SilphCo5Blocks, SilphCo5Texts, SilphCo5Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo5Object ; objects + +SilphCo5Script: ; 0x19f37 + call $5f4d + call $3c3c + ld hl, $5fd2 + ld de, $5fb6 + ld a, [$d646] + call $3160 + ld [$d646], a + ret +; 0x19f4d + +INCBIN "baserom.gbc",$19f4d,$6f + +SilphCo5Texts: ; 0x19fbc + dw SilphCo5Text1, SilphCo5Text2, SilphCo5Text3, SilphCo5Text4, SilphCo5Text5, SilphCo5Text6, SilphCo5Text7, SilphCo5Text8, SilphCo5Text9, SilphCo5Text10, SilphCo5Text11 + +INCBIN "baserom.gbc",$19fd2,$31 + +SilphCo5Text1: ; 0x1a003 + db $08 ; asm + ld hl, $6010 + ld de, $6015 + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$1a010,$1a01a - $1a010 + +SilphCo5Text2: ; 0x1a01a + db $08 ; asm + ld hl, $5fd2 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a024,$1a033 - $1a024 + +SilphCo5Text3: ; 0x1a033 + db $08 ; asm + ld hl, $5fde + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a03d,$1a04c - $1a03d + +SilphCo5Text4: ; 0x1a04c + db $08 ; asm + ld hl, $5fea + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a056,$1a065 - $1a056 + +SilphCo5Text5: ; 0x1a065 + db $08 ; asm + ld hl, $5ff6 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a06f,$f + +SilphCo5Text9: ; 0x1a07e + TX_FAR _SilphCo5Text9 + db $50 + +SilphCo5Text10: ; 0x1a083 + TX_FAR _SilphCo5Text10 + db $50 + +SilphCo5Text11: ; 0x1a088 + TX_FAR _SilphCo5Text11 + db $50 + +SilphCo5Object: ; 0x1a08d (size=137) + db $2e ; border tile + + db $7 ; warps + db $0, $18, $1, SILPH_CO_6F + db $0, $1a, $1, SILPH_CO_4F + db $0, $14, $0, SILPH_CO_ELEVATOR + db $3, $1b, $5, SILPH_CO_7F + db $f, $9, $4, SILPH_CO_9F + db $5, $b, $4, SILPH_CO_3F + db $f, $3, $5, SILPH_CO_3F + + db $0 ; signs + + db $b ; people + db SPRITE_LAPRAS_GIVER, $9 + 4, $d + 4, $ff, $ff, $1 ; person + db SPRITE_ROCKET, $10 + 4, $8 + 4, $ff, $d3, $42, ROCKET + $C8, $1c ; trainer + db SPRITE_OAK_AIDE, $3 + 4, $8 + 4, $ff, $d3, $43, SCIENTIST + $C8, $6 ; trainer + db SPRITE_ROCKER, $a + 4, $12 + 4, $ff, $d1, $44, JUGGLER + $C8, $1 ; trainer + db SPRITE_ROCKET, $4 + 4, $1c + 4, $ff, $d1, $45, ROCKET + $C8, $1d ; trainer + db SPRITE_BALL, $d + 4, $2 + 4, $ff, $ff, $86, TM_09 ; item + db SPRITE_BALL, $6 + 4, $4 + 4, $ff, $ff, $87, PROTEIN ; item + db SPRITE_BALL, $10 + 4, $15 + 4, $ff, $ff, $88, CARD_KEY ; item + db SPRITE_CLIPBOARD, $c + 4, $16 + 4, $ff, $ff, $9 ; person + db SPRITE_CLIPBOARD, $a + 4, $19 + 4, $ff, $ff, $a ; person + db SPRITE_CLIPBOARD, $6 + 4, $18 + 4, $ff, $ff, $b ; person + + ; warp-to + EVENT_DISP $f, $0, $18 ; SILPH_CO_6F + EVENT_DISP $f, $0, $1a ; SILPH_CO_4F + EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR + EVENT_DISP $f, $3, $1b ; SILPH_CO_7F + EVENT_DISP $f, $f, $9 ; SILPH_CO_9F + EVENT_DISP $f, $5, $b ; SILPH_CO_3F + EVENT_DISP $f, $f, $3 ; SILPH_CO_3F + +SilphCo5Blocks: ; 135 + INCBIN "maps/silphco5.blk" + +SilphCo6_h: ; 0x1a19d to 0x1a1a9 (12 bytes) (bank=6) (id=211) + db $16 ; tileset + db $09, $0d ; dimensions (y, x) + dw SilphCo6Blocks, SilphCo6Texts, SilphCo6Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo6Object ; objects + +SilphCo6Script: ; 0x1a1a9 + call $61bf + call $3c3c + ld hl, $620a + ld de, $61f0 + ld a, [$d647] + call $3160 + ld [$d647], a + ret +; 0x1a1bf + +INCBIN "baserom.gbc",$1a1bf,$37 + +SilphCo6Texts: ; 0x1a1f6 + dw SilphCo6Text1, SilphCo6Text2, SilphCo6Text3, SilphCo6Text4, SilphCo6Text5, SilphCo6Text6, SilphCo6Text7, SilphCo6Text8, SilphCo6Text9, SilphCo6Text10 + +INCBIN "baserom.gbc",$1a20a,$33 + +SilphCo6Text1: ; 0x1a23d + db $08 ; asm + ld hl, $624a + ld de, $624f + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$1a24a,$1a254 - $1a24a + +SilphCo6Text2: ; 0x1a254 + db $08 ; asm + ld hl, $6261 + ld de, $6266 + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$1a261,$1a26b - $1a261 + +SilphCo6Text3: ; 0x1a26b + db $08 ; asm + ld hl, $6278 + ld de, $627d + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$1a278,$1a282 - $1a278 + +SilphCo6Text4: ; 0x1a282 + db $08 ; asm + ld hl, $628f + ld de, $6294 + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$1a28f,$1a299 - $1a28f + +SilphCo6Text5: ; 0x1a299 + db $08 ; asm + ld hl, $62a6 + ld de, $62ab + call $622f + jp $24d7 + +INCBIN "baserom.gbc",$1a2a6,$1a2b0 - $1a2a6 + +SilphCo6Text6: ; 0x1a2b0 + db $08 ; asm + ld hl, $620a + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a2ba,$1a2c9 - $1a2ba + +SilphCo6Text7: ; 0x1a2c9 + db $08 ; asm + ld hl, $6216 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a2d3,$1a2e2 - $1a2d3 + +SilphCo6Text8: ; 0x1a2e2 + db $08 ; asm + ld hl, $6222 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$1a2ec,$f + +SilphCo6Object: ; 0x1a2fb (size=112) + db $2e ; border tile + + db $5 ; warps + db $0, $10, $1, SILPH_CO_7F + db $0, $e, $0, SILPH_CO_5F + db $0, $12, $0, SILPH_CO_ELEVATOR + db $3, $3, $4, SILPH_CO_4F + db $3, $17, $6, SILPH_CO_2F + + db $0 ; signs + + db $a ; people + db SPRITE_LAPRAS_GIVER, $6 + 4, $a + 4, $ff, $ff, $1 ; person + db SPRITE_LAPRAS_GIVER, $6 + 4, $14 + 4, $ff, $ff, $2 ; person + db SPRITE_ERIKA, $6 + 4, $15 + 4, $ff, $d0, $3 ; person + db SPRITE_ERIKA, $a + 4, $b + 4, $ff, $d3, $4 ; person + db SPRITE_LAPRAS_GIVER, $d + 4, $12 + 4, $ff, $d1, $5 ; person + db SPRITE_ROCKET, $3 + 4, $11 + 4, $ff, $d3, $46, ROCKET + $C8, $1e ; trainer + db SPRITE_OAK_AIDE, $8 + 4, $7 + 4, $ff, $d0, $47, SCIENTIST + $C8, $7 ; trainer + db SPRITE_ROCKET, $f + 4, $e + 4, $ff, $d2, $48, ROCKET + $C8, $1f ; trainer + db SPRITE_BALL, $c + 4, $3 + 4, $ff, $ff, $89, HP_UP ; item + db SPRITE_BALL, $f + 4, $2 + 4, $ff, $ff, $8a, X_ACCURACY ; item + + ; warp-to + EVENT_DISP $d, $0, $10 ; SILPH_CO_7F + EVENT_DISP $d, $0, $e ; SILPH_CO_5F + EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR + EVENT_DISP $d, $3, $3 ; SILPH_CO_4F + EVENT_DISP $d, $3, $17 ; SILPH_CO_2F + +SilphCo6Blocks: ; 117 + INCBIN "maps/silphco6.blk" + +INCBIN "baserom.gbc",$1a3e0,$1c20 + +SECTION "bank7",DATA,BANK[$7] + +CinnabarIsland_h: ; 0x1c000 to 0x1c022 (34 bytes) (bank=7) (id=8) + db $00 ; tileset + db $09, $0a ; dimensions (y, x) + dw CinnabarIslandBlocks, CinnabarIslandTexts, CinnabarIslandScript ; blocks, texts, scripts + db NORTH | EAST ; connections + + ; connections data + + db ROUTE_21 + dw $5211, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $59, $00 ; alignments (y, x) + dw $c9b9 ; window + + db ROUTE_20 + dw $417d, $c725 ; pointers (connected, current) (strip) + db $09, $32 ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c721 ; window + + ; end connection data + + dw CinnabarIslandObject ; objects + +CinnabarIslandObject: ; 0x1c022 (size=71) + db $43 ; border tile + + db $5 ; warps + db $3, $6, $1, MANSION_1 + db $3, $12, $0, CINNABAR_GYM + db $9, $6, $0, CINNABAR_LAB_1 + db $b, $b, $0, CINNABAR_POKECENTER + db $b, $f, $0, CINNABAR_MART + + db $5 ; signs + db $5, $9, $3 ; CinnabarIslandText3 + db $b, $10, $4 ; CinnabarIslandText4 + db $b, $c, $5 ; CinnabarIslandText5 + db $b, $9, $6 ; CinnabarIslandText6 + db $3, $d, $7 ; CinnabarIslandText7 + + db $2 ; people + db SPRITE_GIRL, $5 + 4, $c + 4, $fe, $2, $1 ; person + db SPRITE_GAMBLER, $6 + 4, $e + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $a, $3, $6 ; MANSION_1 + EVENT_DISP $a, $3, $12 ; CINNABAR_GYM + EVENT_DISP $a, $9, $6 ; CINNABAR_LAB_1 + EVENT_DISP $a, $b, $b ; CINNABAR_POKECENTER + EVENT_DISP $a, $b, $f ; CINNABAR_MART + +CinnabarIslandBlocks: ; 90 + INCBIN "maps/cinnabarisland.blk" + +Route1_h: ; 0x1c0c3 to 0x1c0e5 (34 bytes) (bank=7) (id=12) + db $00 ; tileset + db $12, $0a ; dimensions (y, x) + dw Route1Blocks, Route1Texts, Route1Script ; blocks, texts, scripts + db NORTH | SOUTH ; connections + + ; connections data + + db VIRIDIAN_CITY + dw $451a, $c6e8 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $23, $0a ; alignments (y, x) + dw $c8bd ; window + + db PALLET_TOWN + dw $42fd, $c83b ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route1Object ; objects + +Route1Object: ; 0x1c0e5 (size=19) + db $b ; border tile + + db $0 ; warps + + db $1 ; signs + db $1b, $9, $3 ; Route1Text3 + + db $2 ; people + db SPRITE_BUG_CATCHER, $18 + 4, $5 + 4, $fe, $1, $1 ; person + db SPRITE_BUG_CATCHER, $d + 4, $f + 4, $fe, $2, $2 ; person + +INCBIN "baserom.gbc",$1c0f8,$4 + +Route1Blocks: ; 180 + INCBIN "maps/route1.blk" + +UndergroundPathEntranceRoute8Blocks: ; 16 + INCBIN "maps/undergroundpathentranceroute8.blk" + +OaksLabBlocks: ; 30 + INCBIN "maps/oakslab.blk" + +Route16HouseBlocks: +Route2HouseBlocks: +SaffronHouse1Blocks: +SaffronHouse2Blocks: +VermilionHouse1Blocks: +NameRaterBlocks: +LavenderHouse1Blocks: +LavenderHouse2Blocks: +CeruleanHouse2Blocks: +PewterHouse1Blocks: +PewterHouse2Blocks: +ViridianHouseBlocks: ; 16 0x1c1de 41DE + INCBIN "maps/viridianhouse.blk" + +CeladonMansion5Blocks: +SchoolBlocks: ; 16 0x1c1ee 41EE + INCBIN "maps/school.blk" + +CeruleanHouseTrashedBlocks: ; 16 + INCBIN "maps/ceruleanhousetrashed.blk" + +DiglettsCaveEntranceRoute11Blocks: +DiglettsCaveRoute2Blocks: ; 16 + INCBIN "maps/diglettscaveroute2.blk" + +MonsterNames: ; 421E + db "RHYDON@@@@" + db "KANGASKHAN" + db "NIDORAN♂@@" + db "CLEFAIRY@@" + db "SPEAROW@@@" + db "VOLTORB@@@" + db "NIDOKING@@" + db "SLOWBRO@@@" + db "IVYSAUR@@@" + db "EXEGGUTOR@" + db "LICKITUNG@" + db "EXEGGCUTE@" + db "GRIMER@@@@" + db "GENGAR@@@@" + db "NIDORAN♀@@" + db "NIDOQUEEN@" + db "CUBONE@@@@" + db "RHYHORN@@@" + db "LAPRAS@@@@" + db "ARCANINE@@" + db "MEW@@@@@@@" + db "GYARADOS@@" + db "SHELLDER@@" + db "TENTACOOL@" + db "GASTLY@@@@" + db "SCYTHER@@@" + db "STARYU@@@@" + db "BLASTOISE@" + db "PINSIR@@@@" + db "TANGELA@@@" + db "MISSINGNO." + db "MISSINGNO." + db "GROWLITHE@" + db "ONIX@@@@@@" + db "FEAROW@@@@" + db "PIDGEY@@@@" + db "SLOWPOKE@@" + db "KADABRA@@@" + db "GRAVELER@@" + db "CHANSEY@@@" + db "MACHOKE@@@" + db "MR.MIME@@@" + db "HITMONLEE@" + db "HITMONCHAN" + db "ARBOK@@@@@" + db "PARASECT@@" + db "PSYDUCK@@@" + db "DROWZEE@@@" + db "GOLEM@@@@@" + db "MISSINGNO." + db "MAGMAR@@@@" + db "MISSINGNO." + db "ELECTABUZZ" + db "MAGNETON@@" + db "KOFFING@@@" + db "MISSINGNO." + db "MANKEY@@@@" + db "SEEL@@@@@@" + db "DIGLETT@@@" + db "TAUROS@@@@" + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "FARFETCH'D" + db "VENONAT@@@" + db "DRAGONITE@" + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "DODUO@@@@@" + db "POLIWAG@@@" + db "JYNX@@@@@@" + db "MOLTRES@@@" + db "ARTICUNO@@" + db "ZAPDOS@@@@" + db "DITTO@@@@@" + db "MEOWTH@@@@" + db "KRABBY@@@@" + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "VULPIX@@@@" + db "NINETALES@" + db "PIKACHU@@@" + db "RAICHU@@@@" + db "MISSINGNO." + db "MISSINGNO." + db "DRATINI@@@" + db "DRAGONAIR@" + db "KABUTO@@@@" + db "KABUTOPS@@" + db "HORSEA@@@@" + db "SEADRA@@@@" + db "MISSINGNO." + db "MISSINGNO." + db "SANDSHREW@" + db "SANDSLASH@" + db "OMANYTE@@@" + db "OMASTAR@@@" + db "JIGGLYPUFF" + db "WIGGLYTUFF" + db "EEVEE@@@@@" + db "FLAREON@@@" + db "JOLTEON@@@" + db "VAPOREON@@" + db "MACHOP@@@@" + db "ZUBAT@@@@@" + db "EKANS@@@@@" + db "PARAS@@@@@" + db "POLIWHIRL@" + db "POLIWRATH@" + db "WEEDLE@@@@" + db "KAKUNA@@@@" + db "BEEDRILL@@" + db "MISSINGNO." + db "DODRIO@@@@" + db "PRIMEAPE@@" + db "DUGTRIO@@@" + db "VENOMOTH@@" + db "DEWGONG@@@" + db "MISSINGNO." + db "MISSINGNO." + db "CATERPIE@@" + db "METAPOD@@@" + db "BUTTERFREE" + db "MACHAMP@@@" + db "MISSINGNO." + db "GOLDUCK@@@" + db "HYPNO@@@@@" + db "GOLBAT@@@@" + db "MEWTWO@@@@" + db "SNORLAX@@@" + db "MAGIKARP@@" + db "MISSINGNO." + db "MISSINGNO." + db "MUK@@@@@@@" + db "MISSINGNO." + db "KINGLER@@@" + db "CLOYSTER@@" + db "MISSINGNO." + db "ELECTRODE@" + db "CLEFABLE@@" + db "WEEZING@@@" + db "PERSIAN@@@" + db "MAROWAK@@@" + db "MISSINGNO." + db "HAUNTER@@@" + db "ABRA@@@@@@" + db "ALAKAZAM@@" + db "PIDGEOTTO@" + db "PIDGEOT@@@" + db "STARMIE@@@" + db "BULBASAUR@" + db "VENUSAUR@@" + db "TENTACRUEL" + db "MISSINGNO." + db "GOLDEEN@@@" + db "SEAKING@@@" + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "PONYTA@@@@" + db "RAPIDASH@@" + db "RATTATA@@@" + db "RATICATE@@" + db "NIDORINO@@" + db "NIDORINA@@" + db "GEODUDE@@@" + db "PORYGON@@@" + db "AERODACTYL" + db "MISSINGNO." + db "MAGNEMITE@" + db "MISSINGNO." + db "MISSINGNO." + db "CHARMANDER" + db "SQUIRTLE@@" + db "CHARMELEON" + db "WARTORTLE@" + db "CHARIZARD@" + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "MISSINGNO." + db "ODDISH@@@@" + db "GLOOM@@@@@" + db "VILEPLUME@" + db "BELLSPROUT" + db "WEEPINBELL" + db "VICTREEBEL" + +INCBIN "baserom.gbc",$1c98a,$1ca19 - $1c98a + +CinnabarIslandScript: ; 0x1ca19 + call $3c3c + ld hl, $d126 + set 5, [hl] + ld hl, $d796 + res 0, [hl] + ld hl, $d7a3 + res 1, [hl] + ld hl, $4a34 + ld a, [$d639] + jp $3d97 +; 0x1ca34 + +CinnabarIslandScripts: ; 0x1ca34 + dw CinnabarIslandScript0, CinnabarIslandScript1 + +CinnabarIslandScript0: ; 0x1ca38 + ld b, $2b + call $3493 + ret nz + ld a, [$d361] + cp $4 + ret nz + ld a, [$d362] + cp $12 + ret nz + ld a, $8 + ld [$d528], a + ld a, $8 + ld [$ff00+$8c], a + call $2920 + xor a + ld [$ff00+$b4], a + ld a, $1 + ld [$cd38], a + ld a, $80 + ld [$ccd3], a + call $3486 + xor a + ld [$c109], a + ld [$cd6b], a + ld a, $1 + ld [$d639], a + ret +; 0x1ca73 + +CinnabarIslandScript1: ; 0x1ca73 + ld a, [$cd38] + and a + ret nz + call Delay3 + ld a, $0 + ld [$d639], a + ret +; 0x1ca81 + +CinnabarIslandTexts: ; 0x1ca81 + dw CinnabarIslandText1, CinnabarIslandText2, CinnabarIslandText3, CinnabarIslandText4, CinnabarIslandText5, CinnabarIslandText6, CinnabarIslandText7, CinnabarIslandText8 + +CinnabarIslandText8: +INCBIN "baserom.gbc",$1ca91,$5 + +CinnabarIslandText1: ; 0x1ca96 + TX_FAR _CinnabarIslandText1 + db $50 + +CinnabarIslandText2: ; 0x1ca9b + TX_FAR _CinnabarIslandText2 + db $50 + +CinnabarIslandText3: ; 0x1caa0 + TX_FAR _CinnabarIslandText3 + db $50 + +CinnabarIslandText6: ; 0x1caa5 + TX_FAR _CinnabarIslandText6 + db $50 + +CinnabarIslandText7: ; 0x1caaa + TX_FAR _CinnabarIslandText7 + db $50 + +Route1Script: ; 0x1caaf + jp $3c3c +; 0x1cab2 + +Route1Texts: ; 0x1cab2 + dw Route1Text1, Route1Text2, Route1Text3 + +Route1Text1: ; 0x1cab8 + db $08 ; asm + ld hl, $d7bf + bit 0, [hl] + set 0, [hl] + jr nz, .asm_02840 ; 0x1cac0 + ld hl, $4ae3 + call PrintText + ld bc, (POTION << 8) | 1 + call $3e2e + jr nc, .asm_a630e ; 0x1cace + ld hl, $4ae8 + jr .asm_46d43 ; 0x1cad3 +.asm_a630e ; 0x1cad5 + ld hl, $4af3 + jr .asm_46d43 ; 0x1cad8 +.asm_02840 ; 0x1cada + ld hl, $4aee +.asm_46d43 ; 0x1cadd + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1cae3,$15 + +Route1Text2: ; 0x1caf8 + TX_FAR _Route1Text2 + db $50 + +Route1Text3: ; 0x1cafd + TX_FAR _Route1Text3 + db $50 + +OaksLab_h: ; 0x1cb02 to 0x1cb0e (12 bytes) (bank=7) (id=40) + db $05 ; tileset + db $06, $05 ; dimensions (y, x) + dw OaksLabBlocks, OaksLabTexts, OaksLabScript ; blocks, texts, scripts + db $00 ; connections + + dw OaksLabObject ; objects + +OaksLabScript: ; 0x1cb0e + ld a, [$d74b] + bit 6, a + call nz, $5076 + ld a, $1 + ld [$cf0c], a + xor a + ld [$cc3c], a + ld hl, $4b28 + ld a, [$d5f0] + jp $3d97 +; 0x1cb28 + +OaksLabScripts: ; 0x1cb28 + dw OaksLabScript0, OaksLabScript1, OaksLabScript2, OaksLabScript3, OaksLabScript4, OaksLabScript5, OaksLabScript6, OaksLabScript7 + +INCBIN "baserom.gbc",$1cb38,$16 + +OaksLabScript0: ; 0x1cb4e + ld a, [$d74b] + bit 7, a + ret z + ld a, [$cf10] + and a + ret nz + ld a, $31 + ld [$cc4d], a + ld a, $15 + call Predef + ld hl, $d72e + res 4, [hl] + ld a, $1 + ld [$d5f0], a + ret +; 0x1cb6e + +OaksLabScript1: ; 0x1cb6e + ld a, $8 + ld [$ff00+$8c], a + ld de, $4b7e + call $363a + ld a, $2 + ld [$d5f0], a + ret +; 0x1cb7e + +INCBIN "baserom.gbc",$1cb7e,$1cb82 - $1cb7e + +OaksLabScript2: ; 0x1cb82 + ld a, [$d730] + bit 0, a + ret nz + ld a, $31 + ld [$cc4d], a + ld a, $11 + call Predef + ld a, $2e + ld [$cc4d], a + ld a, $15 + call Predef + ld a, $3 + ld [$d5f0], a + ret +; 0x1cba2 + +OaksLabScript3: ; 0x1cba2 + call Delay3 + ld hl, $ccd3 + ld de, $4bcf + call $350c + dec a + ld [$cd38], a + call $3486 + ld a, $1 + ld [$ff00+$8c], a + xor a + ld [$ff00+$8d], a + call $34a6 + ld a, $5 + ld [$ff00+$8c], a + xor a + ld [$ff00+$8d], a + call $34a6 + ld a, $4 + ld [$d5f0], a + ret +; 0x1cbcf + +INCBIN "baserom.gbc",$1cbcf,$1cbd2 - $1cbcf + +OaksLabScript4: ; 0x1cbd2 + ld a, [$cd38] + and a + ret nz + ld hl, $d747 + set 0, [hl] + ld hl, $d74b + set 0, [hl] + ld a, $1 + ld [$ff00+$8c], a + ld a, $4 + ld [$ff00+$8d], a + call $34a6 + call $2429 + ld hl, $d733 + res 1, [hl] + call $2307 + ld a, $5 + ld [$d5f0], a + ret +; 0x1cbfd + +OaksLabScript5: ; 0x1cbfd + ld a, $fc + ld [$cd6b], a + ld a, $11 + ld [$ff00+$8c], a + call $2920 + call Delay3 + ld a, $12 + ld [$ff00+$8c], a + call $2920 + call Delay3 + ld a, $13 + ld [$ff00+$8c], a + call $2920 + call Delay3 + ld a, $14 + ld [$ff00+$8c], a + call $2920 + ld hl, $d74b + set 1, [hl] + xor a + ld [$cd6b], a + ld a, $6 + ld [$d5f0], a + ret +; 0x1cc36 + +OaksLabScript6: ; 0x1cc36 + ld a, [$d361] + cp $6 + ret nz + ld a, $5 + ld [$ff00+$8c], a + xor a + ld [$ff00+$8d], a + call $34a6 + ld a, $1 + ld [$ff00+$8c], a + xor a + ld [$ff00+$8d], a + call $34a6 + call $2429 + ld a, $c + ld [$ff00+$8c], a + call $2920 + ld a, $1 + ld [$cd38], a + ld a, $40 + ld [$ccd3], a + call $3486 + ld a, $8 + ld [$d528], a + ld a, $7 + ld [$d5f0], a + ret +; 0x1cc72 + +OaksLabScript7: ; 0x1cc72 + ld a, [$cd38] + and a + ret nz + call Delay3 + ld a, $6 + ld [$d5f0], a + ret +; 0x1cc80 + +INCBIN "baserom.gbc",$1cc80,$402 + +OaksLabTexts: ; 0x1d082 + dw OaksLabText1, OaksLabText2, OaksLabText3, OaksLabText4, OaksLabText5, OaksLabText6, OaksLabText7, OaksLabText8, OaksLabText9, OaksLabText10, OaksLabText11, OaksLabText12, OaksLabText13, OaksLabText14, OaksLabText15, OaksLabText16, OaksLabText17, OaksLabText18, OaksLabText19, OaksLabText20, OaksLabText21, OaksLabText22, OaksLabText23, OaksLabText24, OaksLabText25, OaksLabText26, OaksLabText27 + +INCBIN "baserom.gbc",$1d0b8,22 + +OaksLabText1: ; 0x1d0ce + db $08 ; asm + ld a, [$d74b] + bit 0, a + jr nz, .asm_6a7a2 ; 0x1d0d4 + ld hl, $50f3 + call PrintText + jr .asm_ff2ed ; 0x1d0dc +.asm_6a7a2 ; 0x1d0de + bit 2, a + jr nz, .asm_56780 ; 0x1d0e0 + ld hl, $50f8 + call PrintText + jr .asm_ff2ed ; 0x1d0e8 +.asm_56780 ; 0x1d0ea + ld hl, $50fd + call PrintText +.asm_ff2ed ; 0x1d0f0 + jp $24d7 + +INCBIN "baserom.gbc",$1d0f3,$1d102 - $1d0f3 + +OaksLabText2: ; 0x1d102 + db $8 + ld a, $b1 + ld [$cd3d], a + ld a, $3 + ld [$cd3e], a + ld a, $b0 + ld b, $2 + jr asm_5e6bb ; 0x1d111 $20 + +OaksLabText3: ; 0x1d113 + db $8 + ld a, $99 + ld [$cd3d], a + ld a, $4 + ld [$cd3e], a + ld a, $b1 + ld b, $3 + jr asm_5e6bb ; 0x1d122 $f + +OaksLabText4: ; 0x1d124 + db $8 + ld a, $b0 + ld [$cd3d], a + ld a, $2 + ld [$cd3e], a + ld a, $99 + ld b, $4 + +asm_5e6bb: ; 0x1d133 + ld [$cf91], a + ld [$d11e], a + ld a, b + ld [$cf13], a + ld a, [$d74b] + bit 2, a + jp nz, $522d + bit 1, a + jr nz, asm_9eaa4 ; 0x1d147 $e + ld hl, $5152 + call PrintText + jp $24d7 +; 0x1d152 + +;XXX which text is this? +db $17, $df, $4d, $25, $50 + +asm_9eaa4: ; 0x1d157 + ld a, $5 + ld [$ff00+$8c], a + ld a, $9 + ld [$ff00+$8b], a + call $34fc + ld [hl], $0 + ; manually fixed some disassembler issues around here + ld a, $1 + ld [$FF8c], a + ld a, $9 + ld [$ff00+$8b], a + call $34fc + ld [hl], $c + ld hl, $d730 + set 6, [hl] + ld a, $46 + call Predef + ld hl, $d730 + res 6, [hl] + call $3071 + ld c, $a + call $3739 + ld a, [$cf13] + cp $2 + jr z, asm_f6e3a ; 0x1d18d $6 + cp $3 + jr z, asm_2391d ; 0x1d191 $c + jr asm_ddec1 ; 0x1d193 $14 +asm_f6e3a: ; 0x1d195 + ld hl, $519a + jr asm_b5ddf ; 0x1d198 $19 + rla ; probably a TX_FAR + ld b, $4e + dec h + ld d, b +asm_2391d: ; 0x1d19f + ld hl, $51a4 + jr asm_b5ddf ; 0x1d1a2 $f + rla ; probably a TX_FAR + cpl + ld c, [hl] + dec h + ld d, b +asm_ddec1: ; 0x1d1a9 + ld hl, $51ae + jr asm_b5ddf ; 0x1d1ac $5 + rla ; probably a TX_FAR + ld d, a + ld c, [hl] + dec h + ld d, b +asm_b5ddf: ; 0x1d1b3 + call PrintText + ld a, $1 + ld [$cc3c], a + call $35ec + ld a, [$cc26] + and a + jr nz, asm_6ccd7 ; 0x1d1c2 $5b + ld a, [$cf91] + ld [$d717], a + ld [$d11e], a + call GetMonName + ld a, [$cf13] + cp $2 + jr nz, asm_5b538 ; 0x1d1d5 $4 + ld a, $2b + jr asm_03e85 ; 0x1d1d9 $a +asm_5b538: ; 0x1d1db + cp $3 + jr nz, asm_f8b3f ; 0x1d1dd $4 + ld a, $2c + jr asm_03e85 ; 0x1d1e1 $2 +asm_f8b3f: ; 0x1d1e3 + ld a, $2d +asm_03e85: ; 0x1d1e5 + ld [$cc4d], a + ld a, $11 + call Predef + ld a, $1 + ld [$cc3c], a + ld hl, $5222 + call PrintText + ld hl, $5227 + call PrintText + xor a + ld [$cc49], a + ld a, $5 + ld [$d127], a + ld a, [$cf91] + ld [$d11e], a + call AddPokemonToParty + ld hl, $d72e + set 3, [hl] + ld a, $fc + ld [$cd6b], a + ld a, $8 + ld [$d5f0], a +asm_6ccd7: ; 0x1d21f + jp $24d7 +; 0x1d222 + +INCBIN "baserom.gbc",$1d222,$26 + +OaksLabText5: ; 0x1d248 + db $08 ; asm + ld a, [$d747] + bit 6, a + jr nz, .asm_50e81 ; 0x1d24e + ld hl, $d2f7 + ld b, $13 + call $2b7f + ld a, [$d11e] + cp $2 + jr c, .asm_b28b0 ; 0x1d25d + ld a, [$d74b] + bit 5, a + jr z, .asm_b28b0 ; 0x1d264 +.asm_50e81 ; 0x1d266 + ld hl, $531d + call PrintText + ld a, $1 + ld [$cc3c], a + ld a, $56 + call Predef + jp $52ed +.asm_b28b0 ; 0x1d279 + ld b,POKE_BALL + call $3493 + jr nz, .asm_17c30 ; 0x1d27e + ld a, [$d7eb] + bit 5, a + jr nz, .asm_f1adc ; 0x1d285 + ld a, [$d74b] + bit 5, a + jr nz, .asm_333a2 ; 0x1d28c + bit 3, a + jr nz, .asm_76269 ; 0x1d290 + ld a, [$d72e] + bit 3, a + jr nz, .asm_4a5e0 ; 0x1d297 + ld hl, $52f0 + call PrintText + jr .asm_0f042 ; 0x1d29f +.asm_4a5e0 ; 0x1d2a1 + ld hl, $52f5 + call PrintText + jr .asm_0f042 ; 0x1d2a7 +.asm_76269 ; 0x1d2a9 + ld b,OAKS_PARCEL + call $3493 + jr nz, .asm_a8fcf ; 0x1d2ae + ld hl, $52fa + call PrintText + jr .asm_0f042 ; 0x1d2b6 +.asm_a8fcf ; 0x1d2b8 + ld hl, $52ff + call PrintText + call $500a + ld a, $f + ld [$d5f0], a + jr .asm_0f042 ; 0x1d2c6 +.asm_333a2 ; 0x1d2c8 + ld hl, $5309 + call PrintText + jr .asm_0f042 ; 0x1d2ce +.asm_f1adc ; 0x1d2d0 + ld hl, $d74b + bit 4, [hl] + set 4, [hl] + jr nz, .asm_17c30 ; 0x1d2d7 + ld bc, (POKE_BALL << 8) | 5 + call $3e2e + ld hl, $530e + call PrintText + jr .asm_0f042 ; 0x1d2e5 +.asm_17c30 ; 0x1d2e7 + ld hl, $5318 + call PrintText +.asm_0f042 ; 0x1d2ed + jp $24d7 +; 0x1d2f0 + +INCBIN "baserom.gbc",$1d2f0,$32 + +OaksLabText7: ; 0x1d322 +OaksLabText6: ; 0x1d322 + db $08 ; asm + ld hl, $532c + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1d32c,$5 + +OaksLabText8: ; 0x1d331 + TX_FAR _OaksLabText8 + db $50 + +OaksLabText9: ; 0x1d336 + db $08 ; asm + ld hl, $5340 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1d340,$1d345 - $1d340 + +OaksLabText17: ; 0x1d345 + db $8 + ld hl, $534f + call PrintText + jp $24d7 +; 0x1d34f + +INCBIN "baserom.gbc",$1d34f,$1d354 - $1d34f + +OaksLabText18: ; 0x1d354 + db $8 + ld hl, $535e + call PrintText + jp $24d7 +; 0x1d35e + +INCBIN "baserom.gbc",$1d35e,$1d363 - $1d35e + +OaksLabText19: ; 0x1d363 + db $8 + ld hl, $536d + call PrintText + jp $24d7 +; 0x1d36d + +INCBIN "baserom.gbc",$1d36d,$1d372 - $1d36d + +OaksLabText20: ; 0x1d372 + db $8 + ld hl, $537c + call PrintText + jp $24d7 +; 0x1d37c + +INCBIN "baserom.gbc",$1d37c,$1d381 - $1d37c + +OaksLabText12: ; 0x1d381 +INCBIN "baserom.gbc",$1d381,$5 + +INCBIN "baserom.gbc",$1d386,$1d390 - $1d386 + +OaksLabText13: ; 0x1d390 +INCBIN "baserom.gbc",$1d390,$5 + +INCBIN "baserom.gbc",$1d395,$1d39f - $1d395 + +OaksLabText14: ; 0x1d39f + db $8 + ld hl, $53a9 + call PrintText + jp $24d7 +; 0x1d3a9 + +INCBIN "baserom.gbc",$1d3a9,$1d3af - $1d3a9 + +OaksLabText15: ; 0x1d3af to 0x1d3b9 + db $8 + ld hl, $53b9 + call PrintText + jp $24d7 +; 0x1d3b9 + +INCBIN "baserom.gbc",$1d3b9,$1d3c8 - $1d3b9 + +OaksLabText16: ; 0x1d3c8 + db $8 + ld hl, $53d2 + call PrintText + jp $24d7 +; 0x1d3d2 + +INCBIN "baserom.gbc",$1d3d2,$1d3d7 - $1d3d2 + +OaksLabText21: ; 0x1d3d7 +INCBIN "baserom.gbc",$1d3d7,$5 + +OaksLabText22: ; 0x1d3dc +INCBIN "baserom.gbc",$1d3dc,$5 + +OaksLabText23: ; 0x1d3e1 +INCBIN "baserom.gbc",$1d3e1,$5 + +OaksLabText24: ; 0x1d3e6 +INCBIN "baserom.gbc",$1d3e6,$5 + +OaksLabText25: ; 0x1d3eb +INCBIN "baserom.gbc",$1d3eb,$4 + db $11 + db $50 + +OaksLabText26: ; 0x1d3f1 +INCBIN "baserom.gbc",$1d3f1,$1d3f6 - $1d3f1 + +OaksLabText27: ; 0x1d3f6 +INCBIN "baserom.gbc",$1d3f6,5 + +OaksLabText11: +OaksLabText10: ; 0x1d3fb + db $08 ; asm + ld hl, $5405 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1d405,$5 + +OaksLabObject: ; 0x1d40a (size=88) + db $3 ; border tile + + db $2 ; warps + db $b, $4, $2, $ff + db $b, $5, $2, $ff + + db $0 ; signs + + db $b ; people + db SPRITE_BLUE, $3 + 4, $4 + 4, $ff, $ff, $41, SONY1 + $C8, $1 ; trainer + db SPRITE_BALL, $3 + 4, $6 + 4, $ff, $ff, $2 ; person + db SPRITE_BALL, $3 + 4, $7 + 4, $ff, $ff, $3 ; person + db SPRITE_BALL, $3 + 4, $8 + 4, $ff, $ff, $4 ; person + db SPRITE_OAK, $2 + 4, $5 + 4, $ff, $d0, $5 ; person + db SPRITE_BOOK_MAP_DEX, $1 + 4, $2 + 4, $ff, $ff, $6 ; person + db SPRITE_BOOK_MAP_DEX, $1 + 4, $3 + 4, $ff, $ff, $7 ; person + db SPRITE_OAK, $a + 4, $5 + 4, $ff, $d1, $8 ; person + db SPRITE_GIRL, $9 + 4, $1 + 4, $fe, $1, $9 ; person + db SPRITE_OAK_AIDE, $a + 4, $2 + 4, $ff, $ff, $a ; person + db SPRITE_OAK_AIDE, $a + 4, $8 + 4, $ff, $ff, $b ; person + + ; warp-to + EVENT_DISP $5, $b, $4 + EVENT_DISP $5, $b, $5 + +ViridianMart_h: ; 0x1d462 to 0x1d46e (12 bytes) (bank=7) (id=42) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw ViridianMartBlocks, ViridianMartTexts, ViridianMartScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianMartObject ; objects + +ViridianMartScript: ; 0x1d46e + call $547d + call $3c3c + ld hl, $5495 + ld a, [$d60d] + jp $3d97 +; 0x1d47d + +INCBIN "baserom.gbc",$1d47d,$1e + +ViridianMartScript0: ; 0x1d49b + call $2429 + ld a, $4 + ld [$ff00+$8c], a + call $2920 + ld hl, $ccd3 + ld de, $54bb + call $350c + dec a + ld [$cd38], a + call $3486 + ld a, $1 + ld [$d60d], a + ret +; 0x1d4bb + +INCBIN "baserom.gbc",$1d4bb,$1d4c0 - $1d4bb + +ViridianMartScript1: ; 0x1d4c0 + ld a, [$cd38] + and a + ret nz + call Delay3 + ld a, $5 + ld [$ff00+$8c], a + call $2920 + ld bc, $4601 + call GiveItem + ld hl, $d74e + set 1, [hl] + ld a, $2 + ld [$d60d], a + ret +; 0x1d4e0 + +ViridianMartTexts: ; 0x1d4e0 + dw ViridianMartText1, ViridianMartText2, ViridianMartText3 ;, ViridianMartText4 + +INCBIN "baserom.gbc",$1d4e6,$a + +ViridianMartText1: ; 0x1d4f0 + TX_FAR _ViridianMartText1 + db $50 + +INCBIN "baserom.gbc",$1d4f5,$1d500 - $1d4f5 + +ViridianMartText2: ; 0x1d500 + TX_FAR _ViridianMartText2 + db $50 + +ViridianMartText3: ; 0x1d505 + TX_FAR _ViridianMartText3 + db $50 + +ViridianMartObject: ; 0x1d50a (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $1, $ff + db $7, $4, $1, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_BUG_CATCHER, $5 + 4, $5 + 4, $fe, $1, $2 ; person + db SPRITE_BLACK_HAIR_BOY_1, $3 + 4, $3 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +ViridianMartBlocks: ; 16 + INCBIN "maps/viridianmart.blk" + +School_h: ; 0x1d540 to 0x1d54c (12 bytes) (bank=7) (id=43) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw SchoolBlocks, SchoolTexts, SchoolScript ; blocks, texts, scripts + db $00 ; connections + + dw SchoolObject ; objects + +SchoolScript: ; 0x1d54c + jp $3c3c +; 0x1d54f + +SchoolTexts: ; 0x1d54f + dw SchoolText1, SchoolText2 + +SchoolText1: ; 0x1d553 + TX_FAR _SchoolText1 + db $50 + +SchoolText2: ; 0x1d558 + TX_FAR _SchoolText2 + db $50 + +SchoolObject: ; 0x1d55d (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $2, $ff + db $7, $3, $2, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_BRUNETTE_GIRL, $5 + 4, $3 + 4, $ff, $d1, $1 ; person + db SPRITE_LASS, $1 + 4, $4 + 4, $ff, $d0, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +ViridianHouse_h: ; 0x1d57d to 0x1d589 (12 bytes) (bank=7) (id=44) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw ViridianHouseBlocks, ViridianHouseTexts, ViridianHouseScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianHouseObject ; objects + +INCBIN "baserom.gbc",$1d589,$1d58a - $1d589 + +ViridianHouseScript: ; 0x1d58a + jp $3c3c +; 0x1d58d + +ViridianHouseTexts: ; 0x1d58d + dw ViridianHouseText1, ViridianHouseText2, ViridianHouseText3, ViridianHouseText4 + +ViridianHouseText1: ; 0x1d595 + TX_FAR _ViridianHouseText1 + db $50 + +ViridianHouseText2: ; 0x1d59a + TX_FAR _ViridianHouseText2 + db $50 + +ViridianHouseText3: ; 0x1d59f + db $08 ; asm + ld hl, $55b1 + call PrintText + ld a,SPEAROW + call $13d0 + call $3748 + jp $24d7 + +INCBIN "baserom.gbc",$1d5b1,$5 + +ViridianHouseText4: ; 0x1d5b6 + TX_FAR _ViridianHouseText4 + db $50 + +ViridianHouseObject: ; 0x1d5bb (size=44) + db $a ; border tile + + db $2 ; warps + db $7, $2, $3, $ff + db $7, $3, $3, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_BALDING_GUY, $3 + 4, $5 + 4, $ff, $ff, $1 ; person + db SPRITE_LITTLE_GIRL, $4 + 4, $1 + 4, $fe, $1, $2 ; person + db SPRITE_BIRD, $5 + 4, $5 + 4, $fe, $2, $3 ; person + db SPRITE_CLIPBOARD, $0 + 4, $4 + 4, $ff, $ff, $4 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +PewterHouse1_h: ; 0x1d5e7 to 0x1d5f3 (12 bytes) (bank=7) (id=55) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw PewterHouse1Blocks, PewterHouse1Texts, PewterHouse1Script ; blocks, texts, scripts + db $00 ; connections + + dw PewterHouse1Object ; objects + +PewterHouse1Script: ; 0x1d5f3 + jp $3c3c +; 0x1d5f6 + +PewterHouse1Texts: ; 0x1d5f6 + dw PewterHouse1Text1, PewterHouse1Text2, PewterHouse1Text3 + +PewterHouse1Text1: ; 0x1d5fc + TX_FAR _PewterHouse1Text1 + db $08 ; asm + ld a, $3 + call $13d0 + call $3748 + jp $24d7 + +PewterHouse1Text2: ; 0x1d60c + TX_FAR _PewterHouse1Text2 + db $50 + +PewterHouse1Text3: ; 0x1d611 + TX_FAR _PewterHouse1Text3 + db $50 + +PewterHouse1Object: ; 0x1d616 (size=38) + db $a ; border tile + + db $2 ; warps + db $7, $2, $3, $ff + db $7, $3, $3, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_SLOWBRO, $5 + 4, $4 + 4, $ff, $d2, $1 ; person + db SPRITE_YOUNG_BOY, $5 + 4, $3 + 4, $ff, $d3, $2 ; person + db SPRITE_FAT_BALD_GUY, $2 + 4, $1 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +PewterHouse2_h: ; 0x1d63c to 0x1d648 (12 bytes) (bank=7) (id=57) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw PewterHouse2Blocks, PewterHouse2Texts, PewterHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw PewterHouse2Object ; objects + +PewterHouse2Script: ; 0x1d648 + jp $3c3c +; 0x1d64b + +PewterHouse2Texts: ; 0x1d64b + dw PewterHouse2Text1, PewterHouse2Text2 + +PewterHouse2Text1: ; 0x1d64f + TX_FAR _PewterHouse2Text1 + db $50 + +PewterHouse2Text2: ; 0x1d654 + TX_FAR _PewterHouse2Text2 + db $50 + +PewterHouse2Object: ; 0x1d659 (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $5, $ff + db $7, $3, $5, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_GAMBLER, $3 + 4, $2 + 4, $ff, $d3, $1 ; person + db SPRITE_BUG_CATCHER, $5 + 4, $4 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +CeruleanHouseTrashed_h: ; 0x1d679 to 0x1d685 (12 bytes) (bank=7) (id=62) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw CeruleanHouseTrashedBlocks, CeruleanHouseTrashedTexts, CeruleanHouseTrashedScript ; blocks, texts, scripts + db $00 ; connections + + dw CeruleanHouseTrashedObject ; objects + +CeruleanHouseTrashedScript: ; 0x1d685 + call $3c3c + ret +; 0x1d689 + +CeruleanHouseTrashedTexts: ; 0x1d689 + dw CeruleanHouseTrashedText1, CeruleanHouseTrashedText2, CeruleanHouseTrashedText3 + +CeruleanHouseTrashedText1: ; 0x1d68f + db $08 ; asm + ld b, $e4 + ld a, $1c + call Predef + and b + jr z, .asm_f8734 ; 0x1d698 + ld hl, $56b0 + call PrintText + jr .asm_8dfe9 ; 0x1d6a0 +.asm_f8734 ; 0x1d6a2 + ld hl, $56ab + call PrintText +.asm_8dfe9 ; 0x1d6a8 + jp $24d7 + +INCBIN "baserom.gbc",$1d6ab,$a + +CeruleanHouseTrashedText2: ; 0x1d6b5 + TX_FAR _CeruleanHouseTrashedText2 + db $50 + +CeruleanHouseTrashedText3: ; 0x1d6ba + TX_FAR _CeruleanHouseTrashedText3 + db $50 + +CeruleanHouseTrashedObject: ; 0x1d6bf (size=43) + db $a ; border tile + + db $3 ; warps + db $7, $2, $0, $ff + db $7, $3, $0, $ff + db $0, $3, $7, $ff + + db $1 ; signs + db $0, $3, $3 ; CeruleanHouseTrashedText3 + + db $2 ; people + db SPRITE_FISHER, $1 + 4, $2 + 4, $ff, $d0, $1 ; person + db SPRITE_GIRL, $6 + 4, $5 + 4, $fe, $2, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $0, $3 + +CeruleanHouse2_h: ; 0x1d6ea to 0x1d6f6 (12 bytes) (bank=7) (id=63) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw CeruleanHouse2Blocks, CeruleanHouse2Texts, CeruleanHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw CeruleanHouse2Object ; objects + +CeruleanHouse2Script: ; 0x1d6f6 + jp $3c3c +; 0x1d6f9 + +CeruleanHouse2Texts: ; 0x1d6f9 + dw CeruleanHouse2Text1, CeruleanHouse2Text2 + +CeruleanHouse2Text1: ; 0x1d6fd + TX_FAR _CeruleanHouse2Text1 + db $50 + +CeruleanHouse2Text2: ; 0x1d702 + db $08 ; asm + ld a, $6 + ld [W_WHICHTRADE], a + ld a, $54 + call Predef + jp $24d7 + +CeruleanHouse2Object: ; 0x1d710 (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $1, $ff + db $7, $3, $1, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_OLD_MEDIUM_WOMAN, $4 + 4, $5 + 4, $ff, $d2, $1 ; person + db SPRITE_GAMBLER, $2 + 4, $1 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +BikeShop_h: ; 0x1d730 to 0x1d73c (12 bytes) (bank=7) (id=66) + db $15 ; tileset + db $04, $04 ; dimensions (y, x) + dw BikeShopBlocks, BikeShopTexts, BikeShopScript ; blocks, texts, scripts + db $00 ; connections + + dw BikeShopObject ; objects + +BikeShopScript: ; 0x1d73c + jp $3c3c +; 0x1d73f + +BikeShopTexts: ; 0x1d73f + dw BikeShopText1, BikeShopText2, BikeShopText3 + +BikeShopText1: ; 0x1d745 + db $08 ; asm + ld a, [$d75f] + bit 0, a + jr z, .asm_260d4 ; 0x1d74b + ld hl, $582f + call PrintText + jp $57f5 +.asm_260d4 ; 0x1d756 + ld b,BIKE_VOUCHER + call $3493 + jr z, .asm_41190 ; 0x1d75b + ld hl, $581f + call PrintText + ld bc,(BICYCLE << 8) | 1 + call $3e2e + jr nc, .asm_d0d90 ; 0x1d769 + ld a, $2d + ldh [$db], a + ld b, $5 ; BANK(MyFunction) + ld hl, $7f37 ; MyFunction + call Bankswitch + ld hl, $d75f + set 0, [hl] + ld hl, $5824 + call PrintText + jr .asm_99ef2 ; 0x1d782 +.asm_d0d90 ; 0x1d784 + ld hl, $5834 + call PrintText + jr .asm_99ef2 ; 0x1d78a +.asm_41190 ; 0x1d78c + ld hl, $5810 + call PrintText + xor a + ld [$cc26], a + ld [$cc2a], a + ld a, $3 + ld [$cc29], a + ld a, $1 + ld [$cc28], a + ld a, $2 + ld [$cc24], a + ld a, $1 + ld [$cc25], a + ld hl, $d730 + set 6, [hl] + ld hl, $c3a0 + ld b, $4 + ld c, $f + call $1922 + call $2429 + ld hl, $c3ca + ld de, $57f8 + call $1955 + ld hl, $c3e4 + ld de, $5807 + call $1955 + ld hl, $5815 + call PrintText + call $3abe + bit 1, a + jr nz, .asm_b7579 ; 0x1d7dc + ld hl, $d730 + res 6, [hl] + ld a, [$cc26] + and a + jr nz, .asm_b7579 ; 0x1d7e7 + ld hl, $581a + call PrintText +.asm_b7579 ; 0x1d7ef + ld hl, $582a + call PrintText +.asm_99ef2 ; 0x1d7f5 + jp $24d7 + +INCBIN "baserom.gbc",$1d7f8,$1d839 - $1d7f8 + +BikeShopText2: ; 0x1d839 + db $08 ; asm + ld hl, $5843 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1d843,$1d848 - $1d843 + +BikeShopText3: ; 0x1d848 + db $08 ; asm + ld a, [$d75f] + bit 0, a + ld hl, $5861 + jr nz, .asm_34d2d ; 0x1d851 + ld hl, $585c +.asm_34d2d ; 0x1d856 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1d85c,$a + +BikeShopObject: ; 0x1d866 (size=38) + db $e ; border tile + + db $2 ; warps + db $7, $2, $4, $ff + db $7, $3, $4, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_BIKE_SHOP_GUY, $2 + 4, $6 + 4, $ff, $ff, $1 ; person + db SPRITE_MOM_GEISHA, $6 + 4, $5 + 4, $fe, $1, $2 ; person + db SPRITE_BUG_CATCHER, $3 + 4, $1 + 4, $ff, $d1, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +BikeShopBlocks: ; 16 + INCBIN "maps/bikeshop.blk" + +LavenderHouse1_h: ; 0x1d89c to 0x1d8a8 (12 bytes) (bank=7) (id=149) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw LavenderHouse1Blocks, LavenderHouse1Texts, LavenderHouse1Script ; blocks, texts, scripts + db $00 ; connections + + dw LavenderHouse1Object ; objects + +LavenderHouse1Script: ; 0x1d8a8 + call $3c3c + ret +; 0x1d8ac + +LavenderHouse1Texts: ; 0x1d8ac + dw LavenderHouse1Text1, LavenderHouse1Text2, LavenderHouse1Text3, LavenderHouse1Text4, LavenderHouse1Text5, LavenderHouse1Text6 + +LavenderHouse1Text1: ; 0x1d8b8 + db $08 ; asm + ld a, [$d7e0] + bit 7, a + jr nz, .asm_72e5d ; 0x1d8be + ld hl, $58d1 + call PrintText + jr .asm_6957f ; 0x1d8c6 +.asm_72e5d ; 0x1d8c8 + ld hl, $58d6 + call PrintText +.asm_6957f ; 0x1d8ce + jp $24d7 + +INCBIN "baserom.gbc",$1d8d1,$1d8db - $1d8d1 + +LavenderHouse1Text2: ; 0x1d8db + db $08 ; asm + ld a, [$d7e0] + bit 7, a + jr nz, .asm_06470 ; 0x1d8e1 + ld hl, $58f4 + call PrintText + jr .asm_3d208 ; 0x1d8e9 +.asm_06470 ; 0x1d8eb + ld hl, $58f9 + call PrintText +.asm_3d208 ; 0x1d8f1 + jp $24d7 + +INCBIN "baserom.gbc",$1d8f4,$a + +LavenderHouse1Text3: ; 0x1d8fe + TX_FAR _LavenderHouse1Text3 + db $8 + ld a, $2f + call $13d0 + jp $24d7 + +LavenderHouse1Text4: ; 0x1d90b + TX_FAR _LavenderHouse1Text4 + db $8 + ld a, $a7 + call $13d0 + jp $24d7 +; 0x1d918 + +LavenderHouse1Text5: ; 0x1d918 + db $08 ; asm + ld a, [$d76c] + bit 0, a + jr nz, .asm_15ac2 ; 0x1d91e + ld hl, $594c + call PrintText + ld bc, (POKE_FLUTE << 8) | 1 + call $3e2e + jr nc, .asm_5ce36 ; 0x1d92c + ld hl, $5951 + call PrintText + ld hl, $d76c + set 0, [hl] + jr .asm_da749 ; 0x1d939 +.asm_5ce36 ; 0x1d93b + ld hl, $595b + call PrintText + jr .asm_da749 ; 0x1d941 +.asm_15ac2 ; 0x1d943 + ld hl, $5960 + call PrintText +.asm_da749 ; 0x1d949 + jp $24d7 + +INCBIN "baserom.gbc",$1d94c,$19 + +LavenderHouse1Text6: ; 0x1d965 + TX_FAR _LavenderHouse1Text6 + db $50 + +LavenderHouse1Object: ; 0x1d96a (size=56) + db $a ; border tile + + db $2 ; warps + db $7, $2, $2, $ff + db $7, $3, $2, $ff + + db $0 ; signs + + db $6 ; people + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $3 + 4, $ff, $ff, $1 ; person + db SPRITE_LITTLE_GIRL, $3 + 4, $6 + 4, $ff, $d0, $2 ; person + db SPRITE_SLOWBRO, $4 + 4, $6 + 4, $ff, $d1, $3 ; person + db SPRITE_SLOWBRO, $3 + 4, $1 + 4, $ff, $ff, $4 ; person + db SPRITE_MR_FUJI, $1 + 4, $3 + 4, $ff, $ff, $5 ; person + db SPRITE_BOOK_MAP_DEX, $3 + 4, $3 + 4, $ff, $ff, $6 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +LavenderHouse2_h: ; 0x1d9a2 to 0x1d9ae (12 bytes) (bank=7) (id=151) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw LavenderHouse2Blocks, LavenderHouse2Texts, LavenderHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw LavenderHouse2Object ; objects + +LavenderHouse2Script: ; 0x1d9ae + call $3c3c + ret +; 0x1d9b2 + +LavenderHouse2Texts: ; 0x1d9b2 + dw LavenderHouse2Text1, LavenderHouse2Text2 + +LavenderHouse2Text1: ; 0x1d9b6 + TX_FAR _LavenderHouse2Text1 + db $8 + ld a, $11 + call $13d0 + jp $24d7 +; 0x1d9c3 + +LavenderHouse2Text2: ; 0x1d9c3 + db $08 ; asm + ld a, [$d7e0] + bit 7, a + jr nz, .asm_65711 ; 0x1d9c9 + ld hl, $59dc + call PrintText + jr .asm_64be1 ; 0x1d9d1 +.asm_65711 ; 0x1d9d3 + ld hl, $59e1 + call PrintText +.asm_64be1 ; 0x1d9d9 + jp $24d7 + +INCBIN "baserom.gbc",$1d9dc,$a + +LavenderHouse2Object: ; 0x1d9e6 (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $4, $ff + db $7, $3, $4, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_SLOWBRO, $5 + 4, $3 + 4, $ff, $d1, $1 ; person + db SPRITE_BRUNETTE_GIRL, $4 + 4, $2 + 4, $ff, $d3, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +NameRater_h: ; 0x1da06 to 0x1da12 (12 bytes) (bank=7) (id=229) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw NameRaterBlocks, $5a54, NameRaterScript ; blocks, texts, scripts + db $00 ; connections + + dw NameRaterObject ; objects + +NameRaterScript: ; 0x1da12 + jp $3c3c +; 0x1da15 + +INCBIN "baserom.gbc",$1da15,$41 + +NameRaterText1: ; 0x1da56 + db $8 + call $36f4 + ld hl, $5ab3 + call $5a15 + jr nz, .asm_1daae ; 0x1da60 $4c + ld hl, $5ab8 + call PrintText + xor a + ld [$d07d], a + ld [$cfcb], a + ld [$cc35], a + call $13fc + push af + call $3dd4 + call $3dbe + call $20ba + pop af + jr c, .asm_1daae ; 0x1da80 $2c + call $15b4 + call $5a20 + ld hl, $5ad1 + jr c, .asm_1daa8 ; 0x1da8b $1b + ld hl, $5abd + call $5a15 + jr nz, .asm_1daae ; 0x1da93 $19 + ld hl, $5ac2 + call PrintText + ld b, $1 + ld hl, $655c + call Bankswitch + jr c, .asm_1daae ; 0x1daa3 $9 + ld hl, $5ac7 +.asm_1daa8 + call PrintText + jp $24d7 +.asm_1daae + ld hl, $5acc + jr .asm_1daa8 ; 0x1dab1 $f5 +; 0x1dab3 + +INCBIN "baserom.gbc",$1dab3,$23 + +NameRaterObject: ; 0x1dad6 (size=26) + db $a ; border tile + + db $2 ; warps + db $7, $2, $5, $ff + db $7, $3, $5, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_MR_MASTERBALL, $3 + 4, $5 + 4, $ff, $d2, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +VermilionHouse1_h: ; 0x1daf0 to 0x1dafc (12 bytes) (bank=7) (id=93) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw VermilionHouse1Blocks, VermilionHouse1Texts, VermilionHouse1Script ; blocks, texts, scripts + db $00 ; connections + + dw VermilionHouse1Object ; objects + +VermilionHouse1Script: ; 0x1dafc + call $3c3c + ret +; 0x1db00 + +VermilionHouse1Texts: ; 0x1db00 + dw VermilionHouse1Text1, VermilionHouse1Text2, VermilionHouse1Text3 + +VermilionHouse1Text1: ; 0x1db06 + TX_FAR _VermilionHouse1Text1 + db $50 + +VermilionHouse1Text2: ; 0x1db0b + TX_FAR _VermilionHouse1Text2 + db $08 ; asm + ld a, $24 + call $13d0 + call $3748 + jp $24d7 + +VermilionHouse1Text3: ; 0x1db1b + TX_FAR _VermilionHouse1Text3 + db $50 + +INCBIN "baserom.gbc", $1db1b + 5, $1db20 - ($1db1b + 5) + +VermilionHouse1Object: ; 0x1db20 (size=38) + db $a ; border tile + + db $2 ; warps + db $7, $2, $4, $ff + db $7, $3, $4, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_BUG_CATCHER, $3 + 4, $5 + 4, $ff, $d2, $1 ; person + db SPRITE_BIRD, $5 + 4, $3 + 4, $fe, $2, $2 ; person + db SPRITE_PAPER_SHEET, $3 + 4, $4 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +VermilionDock_h: ; 0x1db46 to 0x1db52 (12 bytes) (bank=7) (id=94) + db $0e ; tileset + db $06, $0e ; dimensions (y, x) + dw VermilionDockBlocks, $5cbf, VermilionDockScript ; blocks, texts, scripts + db $00 ; connections + + dw VermilionDockObject ; objects + +VermilionDockScript: ; 0x1db52 + call $3c3c + ld hl, $d803 + bit 4, [hl] + jr nz, .asm_1db8d ; 0x1db5a $31 + bit 0, [hl] + ret z + ld a, [$d42f] + cp $1 + ret nz + bit 2, [hl] + jp z, $5b9b + set 4, [hl] + call Delay3 + ld hl, $d730 + set 7, [hl] + ld hl, $ccd3 + ld a, $40 + ld [hli], a + ld [hli], a + ld [hl], a + ld a, $3 + ld [$cd38], a + xor a + ld [$c206], a + ld [$cd3b], a + dec a + ld [$cd6b], a + ret +.asm_1db8d + bit 5, [hl] + ret nz + ld a, [$cd38] + and a + ret nz + ld [$cd6b], a + set 5, [hl] + ret +; 0x1db9b + +INCBIN "baserom.gbc",$1db9b,$12b + +VermilionDockObject: ; 0x1dcc6 (size=20) + db $f ; border tile + + db $2 ; warps + db $0, $e, $5, $ff + db $2, $e, $1, SS_ANNE_1 + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $e, $0, $e + EVENT_DISP $e, $2, $e ; SS_ANNE_1 + +VermilionDockBlocks: ; 84 + INCBIN "maps/vermiliondock.blk" + +CeladonMansion5_h: ; 0x1dd2e to 0x1dd3a (12 bytes) (bank=7) (id=132) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw CeladonMansion5Blocks, CeladonMansion5Texts, CeladonMansion5Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMansion5Object ; objects + +CeladonMansion5Script: ; 0x1dd3a + jp $3c3c +; 0x1dd3d + +CeladonMansion5Texts: ; 0x1dd3d + dw CeladonMansion5Text1, CeladonMansion5Text2 + +CeladonMansion5Text1: ; 0x1dd41 + TX_FAR _CeladonMansion5Text1 + db $50 + +CeladonMansion5Text2: ; 0x1dd46 + db $08 ; asm + ld bc,(EEVEE << 8) | 25 + call GivePokemon + jr nc, .asm_24365 ; 0x1dd4d + ld a, $45 + ld [$cc4d], a + ld a, $11 + call Predef +.asm_24365 ; 0x1dd59 + jp $24d7 + +CeladonMansion5Object: ; 0x1dd5c (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $2, CELADON_MANSION_4 + db $7, $3, $2, CELADON_MANSION_4 + + db $0 ; signs + + db $2 ; people + db SPRITE_HIKER, $2 + 4, $2 + 4, $ff, $d0, $1 ; person + db SPRITE_BALL, $3 + 4, $4 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; CELADON_MANSION_4 + EVENT_DISP $4, $7, $3 ; CELADON_MANSION_4 + +FuchsiaMart_h: ; 0x1dd7c to 0x1dd88 (12 bytes) (bank=7) (id=152) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw FuchsiaMartBlocks, FuchsiaMartTexts, FuchsiaMartScript ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaMartObject ; objects + +FuchsiaMartScript: ; 0x1dd88 + jp $3c3c +; 0x1dd8b + +FuchsiaMartTexts: ; 0x1dd8b + dw FuchsiaMartText1, FuchsiaMartText2, FuchsiaMartText3 + +FuchsiaMartText2: ; 0x1dd91 + TX_FAR _FuchsiaMartText2 + db $50 + +FuchsiaMartText3: ; 0x1dd96 + TX_FAR _FuchsiaMartText3 + db $50 + +FuchsiaMartObject: ; 0x1dd9b (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $0, $ff + db $7, $4, $0, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_FAT_BALD_GUY, $2 + 4, $4 + 4, $ff, $ff, $2 ; person + db SPRITE_LASS, $5 + 4, $6 + 4, $fe, $1, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +FuchsiaMartBlocks: ; 16 + INCBIN "maps/fuchsiamart.blk" + +SaffronHouse1_h: ; 0x1ddd1 to 0x1dddd (12 bytes) (bank=7) (id=179) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw SaffronHouse1Blocks, SaffronHouse1Texts, SaffronHouse1Script ; blocks, texts, scripts + db $00 ; connections + + dw SaffronHouse1Object ; objects + +SaffronHouse1Script: ; 0x1dddd + jp $3c3c +; 0x1dde0 + +SaffronHouse1Texts: ; 0x1dde0 + dw SaffronHouse1Text1, SaffronHouse1Text2, SaffronHouse1Text3, SaffronHouse1Text4 + +SaffronHouse1Text1: ; 0x1dde8 + TX_FAR _SaffronHouse1Text1 + db $50 + +SaffronHouse1Text2: ; 0x1dded + TX_FAR _SaffronHouse1Text2 + db $8 + ld a, $24 + call $13d0 + jp $24d7 +; 0x1ddfa + +SaffronHouse1Text3: ; 0x1ddfa + TX_FAR _SaffronHouse1Text3 + db $50 + +SaffronHouse1Text4: ; 0x1ddff + TX_FAR _SaffronHouse1Text4 + db $50 + +SaffronHouse1Object: ; 0x1de04 (size=44) + db $a ; border tile + + db $2 ; warps + db $7, $2, $3, $ff + db $7, $3, $3, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_BRUNETTE_GIRL, $3 + 4, $2 + 4, $ff, $d3, $1 ; person + db SPRITE_BIRD, $4 + 4, $0 + 4, $fe, $1, $2 ; person + db SPRITE_BUG_CATCHER, $1 + 4, $4 + 4, $ff, $d0, $3 ; person + db SPRITE_PAPER_SHEET, $3 + 4, $3 + 4, $ff, $ff, $4 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +SaffronHouse2_h: ; 0x1de30 to 0x1de3c (12 bytes) (bank=7) (id=183) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw SaffronHouse2Blocks, SaffronHouse2Texts, SaffronHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw SaffronHouse2Object ; objects + +SaffronHouse2Script: ; 0x1de3c + jp $3c3c +; 0x1de3f + +SaffronHouse2Texts: ; 0x1de3f + dw SaffronHouse2Text1 + +SaffronHouse2Text1: ; 0x1de41 + db $08 ; asm + ld a, [$d7bd] + bit 0, a + jr nz, .asm_9e72b ; 0x1de47 + ld hl, $5e75 + call PrintText + ld bc,(TM_29 << 8) | 1 + call $3e2e + jr nc, .asm_4b1da ; 0x1de55 + ld hl, $5e7a + call PrintText + ld hl, $d7bd + set 0, [hl] + jr .asm_fe4e1 ; 0x1de62 +.asm_4b1da ; 0x1de64 + ld hl, $5e85 + call PrintText + jr .asm_fe4e1 ; 0x1de6a +.asm_9e72b ; 0x1de6c + ld hl, $5e80 + call PrintText +.asm_fe4e1 ; 0x1de72 + jp $24d7 + +INCBIN "baserom.gbc",$1de75,$15 + +SaffronHouse2Object: ; 0x1de8a (size=26) + db $a ; border tile + + db $2 ; warps + db $7, $2, $7, $ff + db $7, $3, $7, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_FISHER, $3 + 4, $5 + 4, $ff, $d2, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +DiglettsCaveRoute2_h: ; 0x1dea4 to 0x1deb0 (12 bytes) (bank=7) (id=46) + db $11 ; tileset + db $04, $04 ; dimensions (y, x) + dw DiglettsCaveRoute2Blocks, DiglettsCaveRoute2Texts, DiglettsCaveRoute2Script ; blocks, texts, scripts + db $00 ; connections + + dw DiglettsCaveRoute2Object ; objects + +DiglettsCaveRoute2Script: ; 0x1deb0 + ld a, $d + ld [$d365], a + jp $3c3c +; 0x1deb8 + +DiglettsCaveRoute2Texts: ; 0x1deb8 + dw DiglettsCaveRoute2Text1 + +DiglettsCaveRoute2Text1: ; 0x1deba + TX_FAR _DiglettsCaveRoute2Text1 + db $50 + +DiglettsCaveRoute2Object: ; 0x1debf (size=34) + db $7d ; border tile + + db $3 ; warps + db $7, $2, $0, $ff + db $7, $3, $0, $ff + db $4, $4, $0, DIGLETTS_CAVE + + db $0 ; signs + + db $1 ; people + db SPRITE_FISHER, $3 + 4, $3 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $4, $4 ; DIGLETTS_CAVE + +Route2House_h: ; 0x1dee1 to 0x1deed (12 bytes) (bank=7) (id=48) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw Route2HouseBlocks, Route2HouseTexts, Route2HouseScript ; blocks, texts, scripts + db $00 ; connections + + dw Route2HouseObject ; objects + +Route2HouseScript: ; 0x1deed + jp $3c3c +; 0x1def0 + +Route2HouseTexts: ; 0x1def0 + dw Route2HouseText1, Route2HouseText2 + +Route2HouseText1: ; 0x1def4 + TX_FAR _Route2HouseText1 + db $50 + +Route2HouseText2: ; 0x1def9 + db $08 ; asm + ld a, $1 + ld [W_WHICHTRADE], a + ld a, $54 + call Predef + jp $24d7 + +Route2HouseObject: ; 0x1df07 (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $2, $ff + db $7, $3, $2, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_OAK_AIDE, $4 + 4, $2 + 4, $ff, $d3, $1 ; person + db SPRITE_GAMEBOY_KID_COPY, $1 + 4, $4 + 4, $ff, $d0, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +Route5Gate_h: ; 0x1df27 to 0x1df33 (12 bytes) (bank=7) (id=70) + db $0c ; tileset + db $03, $04 ; dimensions (y, x) + dw Route5GateBlocks, Route5GateTexts, Route5GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route5GateObject ; objects + +Route5GateScript: ; 0x1df33 + call $3c3c + ld a, [$d662] + ld hl, $5f3f + jp $3d97 +; 0x1df3f + +Route5GateScripts: ; 0x1df3f + dw Route5GateScript0 + +INCBIN "baserom.gbc",$1df41,$f + +Route5GateScript0: ; 0x1df50 + ld a, [$d728] + bit 6, a + ret nz + ld hl, $5f8f + call $34bf + ret nc + ld a, $2 + ld [$d528], a + xor a + ld [$ff00+$b4], a + ld b, $16 + ld hl, $659f + call Bankswitch + ld a, [$ff00+$db] + and a + jr nz, .asm_1df82 ; 0x1df70 $10 + ld a, $2 + ld [$ff00+$8c], a + call $2920 + call $5f43 + ld a, $1 + ld [$d662], a + ret +.asm_1df82 + ld a, $3 + ld [$ff00+$8c], a + call $2920 + ld hl, $d728 + set 6, [hl] + ret +; 0x1df8f + +INCBIN "baserom.gbc",$1df8f,$15 + +Route5GateTexts: ; 0x1dfa4 + dw Route5GateText1, Route5GateText2, Route5GateText3 + +Route8GateText1: +Route7GateText1: +Route6GateText1: +Route5GateText1: ; 0x1dfaa + db $8 + ld a, [$d728] + bit 6, a + jr nz, .asm_88856 ; 0x1dfb0 $2c + ld b, $16 + ld hl, $659f + call Bankswitch + ld a, [$ff00+$db] + and a + jr nz, .asm_768a2 ; 0x1dfbd $11 + ld hl, $5fe7 + call PrintText + call $5f43 + ld a, $1 + ld [$d662], a + jp $24d7 +.asm_768a2 ; 0x1dfd0 + ld hl, $5fec + call PrintText + ld hl, $d728 + set 6, [hl] + jp $24d7 +.asm_88856 ; 0x1dfde + ld hl, $5ff6 + call PrintText + jp $24d7 +; 0x1dfe7 + +Route8GateText2: +Route7GateText2: +Route6GateText2: +Route5GateText2: ; 0x1dfe7 +INCBIN "baserom.gbc",$1dfe7,$5 + +Route8GateText3: +Route7GateText3: +Route6GateText3: +Route5GateText3: ; 0x1dfec +INCBIN "baserom.gbc",$1dfec,$5 + +INCBIN "baserom.gbc",$1dff1,$1dffb - $1dff1 + +Route5GateObject: ; 0x1dffb (size=42) + db $a ; border tile + + db $4 ; warps + db $5, $3, $2, $ff + db $5, $4, $2, $ff + db $0, $3, $1, $ff + db $0, $4, $0, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $3 + 4, $1 + 4, $ff, $d3, $1 ; person + + ; warp-to + EVENT_DISP $4, $5, $3 + EVENT_DISP $4, $5, $4 + EVENT_DISP $4, $0, $3 + EVENT_DISP $4, $0, $4 + +Route5GateBlocks: ; 12 + INCBIN "maps/route5gate.blk" + +Route6Gate_h: ; 0x1e031 to 0x1e03d (12 bytes) (bank=7) (id=73) + db $0c ; tileset + db $03, $04 ; dimensions (y, x) + dw Route6GateBlocks, Route6GateTexts, Route6GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route6GateObject ; objects + +Route6GateScript: ; 0x1e03d + call $3c3c + ld hl, $604a + ld a, [$d636] + call $3d97 + ret +; 0x1e04a + +Route6GateScripts: ; 0x1e04a + dw Route6GateScript0 + +INCBIN "baserom.gbc",$1e04c,$2 + +Route6GateScript0: ; 0x1e04e + ld a, [$d728] + bit 6, a + ret nz + ld hl, $608c + call $34bf + ret nc + ld a, $1 + ld [$d528], a + xor a + ld [$ff00+$b4], a + ld b, $16 + ld hl, $659f + call Bankswitch + ld a, [$ff00+$db] + and a + jr nz, .asm_1e080 ; 0x1e06e $10 + ld a, $2 + ld [$ff00+$8c], a + call $2920 + call $60a1 + ld a, $1 + ld [$d636], a + ret +.asm_1e080 + ld hl, $d728 + set 6, [hl] + ld a, $3 + ld [$ff00+$8c], a + jp $2920 +; 0x1e08c + +INCBIN "baserom.gbc",$1e08c,$2c + +Route6GateTexts: ; 0x1e0b8 + dw Route6GateText1, Route6GateText2, Route6GateText3 + +Route6GateObject: ; 0x1e0be (size=42) + db $a ; border tile + + db $4 ; warps + db $5, $3, $2, $ff + db $5, $4, $2, $ff + db $0, $3, $1, $ff + db $0, $4, $1, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $2 + 4, $6 + 4, $ff, $d2, $1 ; person + + ; warp-to + EVENT_DISP $4, $5, $3 + EVENT_DISP $4, $5, $4 + EVENT_DISP $4, $0, $3 + EVENT_DISP $4, $0, $4 + +Route6GateBlocks: ; 12 + INCBIN "maps/route6gate.blk" + +Route7Gate_h: ; 0x1e0f4 to 0x1e100 (12 bytes) (bank=7) (id=76) + db $0c ; tileset + db $04, $03 ; dimensions (y, x) + dw Route7GateBlocks, Route7GateTexts, Route7GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route7GateObject ; objects + +Route7GateScript: ; 0x1e100 + call $3c3c + ld a, [$d663] + ld hl, $610d + call $3d97 + ret +; 0x1e10d + +Route7GateScripts: ; 0x1e10d + dw Route7GateScript0 + +INCBIN "baserom.gbc",$1e10f,$19 + +Route7GateScript0: ; 0x1e128 + ld a, [$d728] + bit 6, a + ret nz + ld hl, $6167 + call $34bf + ret nc + ld a, $8 + ld [$d528], a + xor a + ld [$ff00+$b4], a + ld b, $16 + ld hl, $659f + call Bankswitch + ld a, [$ff00+$db] + and a + jr nz, .asm_1e15a ; 0x1e148 $10 + ld a, $2 + ld [$ff00+$8c], a + call $2920 + call $6111 + ld a, $1 + ld [$d663], a + ret +.asm_1e15a + ld a, $3 + ld [$ff00+$8c], a + call $2920 + ld hl, $d728 + set 6, [hl] + ret +; 0x1e167 + +INCBIN "baserom.gbc",$1e167,$18 + +Route7GateTexts: ; 0x1e17f + dw Route7GateText1, Route7GateText2, Route7GateText3 + +Route7GateObject: ; 0x1e185 (size=42) + db $a ; border tile + + db $4 ; warps + db $3, $0, $3, $ff + db $4, $0, $3, $ff + db $3, $5, $0, $ff + db $4, $5, $1, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $3, $3, $0 + EVENT_DISP $3, $4, $0 + EVENT_DISP $3, $3, $5 + EVENT_DISP $3, $4, $5 + +Route7GateBlocks: ; 12 + INCBIN "maps/route7gate.blk" + +Route8Gate_h: ; 0x1e1bb to 0x1e1c7 (12 bytes) (bank=7) (id=79) + db $0c ; tileset + db $04, $03 ; dimensions (y, x) + dw Route8GateBlocks, Route8GateTexts, Route8GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route8GateObject ; objects + +Route8GateScript: ; 0x1e1c7 + call $3c3c + ld hl, $61d3 + ld a, [$d637] + jp $3d97 +; 0x1e1d3 + +Route8GateScripts: ; 0x1e1d3 + dw Route8GateScript0 + +INCBIN "baserom.gbc",$1e1d5,$19 + +Route8GateScript0: ; 0x1e1ee + ld a, [$d728] + bit 6, a + ret nz + ld hl, $622c + call $34bf + ret nc + ld a, $2 + ld [$d528], a + xor a + ld [$ff00+$b4], a + ld b, $16 + ld hl, $659f + call Bankswitch + ld a, [$ff00+$db] + and a + jr nz, .asm_1e220 ; 0x1e20e $10 + ld a, $2 + ld [$ff00+$8c], a + call $2920 + call $61d7 + ld a, $1 + ld [$d637], a + ret +.asm_1e220 + ld hl, $d728 + set 6, [hl] + ld a, $3 + ld [$ff00+$8c], a + jp $2920 +; 0x1e22c +INCBIN "baserom.gbc",$1e22c,$15 + +Route8GateTexts: ; 0x1e241 + dw Route8GateText1, Route8GateText2, Route8GateText3 + +Route8GateObject: ; 0x1e247 (size=42) + db $a ; border tile + + db $4 ; warps + db $3, $0, $0, $ff + db $4, $0, $1, $ff + db $3, $5, $2, $ff + db $4, $5, $3, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $1 + 4, $2 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $3, $3, $0 + EVENT_DISP $3, $4, $0 + EVENT_DISP $3, $3, $5 + EVENT_DISP $3, $4, $5 + +Route8GateBlocks: ; 12 + INCBIN "maps/route8gate.blk" + +UndergroundPathEntranceRoute8_h: ; 0x1e27d to 0x1e289 (12 bytes) (bank=7) (id=80) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw UndergroundPathEntranceRoute8Blocks, UndergroundPathEntranceRoute8Texts, UndergroundPathEntranceRoute8Script ; blocks, texts, scripts + db $00 ; connections + + dw UndergroundPathEntranceRoute8Object ; objects + +UndergroundPathEntranceRoute8Script: ; 0x1e289 + ld a, $13 + ld [$d365], a + jp $3c3c +; 0x1e291 + +UndergroundPathEntranceRoute8Texts: ; 0x1e291 + dw UndergroundPathEntranceRoute8Text1 + +;XXX wtf? syntax error +UndergroundPathEntranceRoute8Text1: ; 0x1e293 + db $17, $8d, $42, $23 + ;TX_FAR _UndergroundPathEntranceRoute8Text1 + db $50 + +UndergroundPathEntranceRoute8Object: ; 0x1e298 (size=34) + db $a ; border tile + + db $3 ; warps + db $7, $3, $4, $ff + db $7, $4, $4, $ff + db $4, $4, $1, UNDERGROUND_PATH_WE + + db $0 ; signs + + db $1 ; people + db SPRITE_GIRL, $4 + 4, $3 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_WE + +PowerPlant_h: ; 0x1e2ba to 0x1e2c6 (12 bytes) (bank=7) (id=83) + db $16 ; tileset + db $12, $14 ; dimensions (y, x) + dw PowerPlantBlocks, PowerPlantTexts, PowerPlantScript ; blocks, texts, scripts + db $00 ; connections + + dw PowerPlantObject ; objects + +PowerPlantScript: ; 0x1e2c6 + call $3c3c + ld hl, $62fb + ld de, $62d9 + ld a, [$d663] + call $3160 + ld [$d663], a + ret +; 0x1e2d9 + +INCBIN "baserom.gbc",$1e2d9,$6 + +PowerPlantTexts: ; 0x1e2df + dw PowerPlantText1, PowerPlantText2, PowerPlantText3, PowerPlantText4, PowerPlantText5, PowerPlantText6, PowerPlantText7, PowerPlantText8, PowerPlantText9, PowerPlantText10, PowerPlantText11, PowerPlantText12, PowerPlantText13, PowerPlantText14 + +INCBIN "baserom.gbc",$1e2fb,$6d + +asm_234cc: + call $31cc + ld a, [$da39] + ld [$d663], a + jp $24d7 +; 0x1e374 + +PowerPlantText1: ; maybe + db $8 ; asm + ld hl, $62fb + jr asm_234cc ; 0x1e378 $ee + +PowerPlantText2: + db $8 ; asm + ld hl, $6307 + jr asm_234cc ; 0x1e37e $e8 + +PowerPlantText3: + db $8 ; asm + ld hl, $6313 + jr asm_234cc ; 0x1e384 $e2 + +PowerPlantText4: + db $8 ; asm + ld hl, $631f + jr asm_234cc ; 0x1e38a $dc + +PowerPlantText5: + db $8 ; asm + ld hl, $632b + jr asm_234cc ; 0x1e390 $d6 + +PowerPlantText6: + db $8 ; asm + ld hl, $6337 + jr asm_234cc ; 0x1e396 $d0 + +PowerPlantText7: + db $8 ; asm + ld hl, $6343 + jr asm_234cc ; 0x1e39c $ca + +PowerPlantText8: + db $8 ; asm + ld hl, $634f + jr asm_234cc ; 0x1e3a2 $c4 + +PowerPlantText9: + db $8 ; asm + ld hl, $635b + jr asm_234cc ; 0x1e3a8 $be + rla ; probably a TX_FAR + ld [$ff00+c], a + ld b, l + inc hl + ld d, b + rla + ld [$2345], a + db $8 + ld a, $4b + call $13d0 + call $3748 + jp $24d7 +; 0x1e3bf + +PowerPlantObject: ; 0x1e3bf (size=135) + db $2e ; border tile + + db $3 ; warps + db $23, $4, $3, $ff + db $23, $5, $3, $ff + db $b, $0, $3, $ff + + db $0 ; signs + + db $e ; people + db SPRITE_BALL, $14 + 4, $9 + 4, $ff, $ff, $41, VOLTORB, $28 ; trainer + db SPRITE_BALL, $12 + 4, $20 + 4, $ff, $ff, $42, VOLTORB, $28 ; trainer + db SPRITE_BALL, $19 + 4, $15 + 4, $ff, $ff, $43, VOLTORB, $28 ; trainer + db SPRITE_BALL, $12 + 4, $19 + 4, $ff, $ff, $44, ELECTRODE, $2b ; trainer + db SPRITE_BALL, $22 + 4, $17 + 4, $ff, $ff, $45, VOLTORB, $28 ; trainer + db SPRITE_BALL, $1c + 4, $1a + 4, $ff, $ff, $46, VOLTORB, $28 ; trainer + db SPRITE_BALL, $e + 4, $15 + 4, $ff, $ff, $47, ELECTRODE, $2b ; trainer + db SPRITE_BALL, $20 + 4, $25 + 4, $ff, $ff, $48, VOLTORB, $28 ; trainer + db SPRITE_BIRD, $9 + 4, $4 + 4, $ff, $d1, $49, ZAPDOS, $32 ; trainer + db SPRITE_BALL, $19 + 4, $7 + 4, $ff, $ff, $8a, CARBOS ; item + db SPRITE_BALL, $3 + 4, $1c + 4, $ff, $ff, $8b, HP_UP ; item + db SPRITE_BALL, $3 + 4, $22 + 4, $ff, $ff, $8c, RARE_CANDY ; item + db SPRITE_BALL, $20 + 4, $1a + 4, $ff, $ff, $8d, TM_25 ; item + db SPRITE_BALL, $20 + 4, $14 + 4, $ff, $ff, $8e, TM_33 ; item + + ; warp-to + EVENT_DISP $14, $23, $4 + EVENT_DISP $14, $23, $5 + EVENT_DISP $14, $b, $0 + +PowerPlantBlocks: ; 360 + INCBIN "maps/powerplant.blk" + +DiglettsCaveEntranceRoute11_h: ; 0x1e5ae to 0x1e5ba (12 bytes) (bank=7) (id=85) + db $11 ; tileset + db $04, $04 ; dimensions (y, x) + dw DiglettsCaveEntranceRoute11Blocks, DiglettsCaveEntranceRoute11Texts, DiglettsCaveEntranceRoute11Script ; blocks, texts, scripts + db $00 ; connections + + dw DiglettsCaveEntranceRoute11Object ; objects + +DiglettsCaveEntranceRoute11Script: ; 0x1e5ba + call $3c3c + ld a, $16 + ld [$d365], a + ret +; 0x1e5c3 + +DiglettsCaveEntranceRoute11Texts: ; 0x1e5c3 + dw DiglettsCaveEntranceRoute11Text1 + +; XXX wtf? syntax error +DiglettsCaveEntranceRoute11Text1: ; 0x1e5c5 + db $17, $f9, $47, $23 + ;TX_FAR _DiglettsCaveEntranceRoute11Text1 + db $50 + +DiglettsCaveEntranceRoute11Object: ; 0x1e5ca (size=34) + db $7d ; border tile + + db $3 ; warps + db $7, $2, $4, $ff + db $7, $3, $4, $ff + db $4, $4, $1, DIGLETTS_CAVE + + db $0 ; signs + + db $1 ; people + db SPRITE_GAMBLER, $3 + 4, $2 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $4, $4 ; DIGLETTS_CAVE + +Route16House_h: ; 0x1e5ec to 0x1e5f8 (12 bytes) (bank=7) (id=188) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw Route16HouseBlocks, Route16HouseTexts, Route16HouseScript ; blocks, texts, scripts + db $00 ; connections + + dw Route16HouseObject ; objects + +Route16HouseScript: ; 0x1e5f8 + jp $3c3c +; 0x1e5fb + +Route16HouseTexts: ; 0x1e5fb + dw Route16HouseText1, Route16HouseText2 + +Route16HouseText1: ; 0x1e5ff + db $08 ; asm + ld a, [$d7e0] + bit 6, a + ld hl, $6636 + jr nz, .asm_13616 ; 0x1e608 + ld hl, $662b + call PrintText + ld bc,(HM_02 << 8) | 1 + call $3e2e + jr nc, .asm_d3ee3 ; 0x1e616 + ld hl, $d7e0 + set 6, [hl] + ld hl, $6630 + jr .asm_13616 ; 0x1e620 +.asm_d3ee3 ; 0x1e622 + ld hl, $663b +.asm_13616 ; 0x1e625 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$1e62b,$1e640 - $1e62b + +Route16HouseText2: ; 0x1e640 + db $08 ; asm + ld hl, $6652 + call PrintText + ld a,FEAROW + call $13d0 + call $3748 + jp $24d7 + +INCBIN "baserom.gbc",$1e652,$5 + +Route16HouseObject: ; 0x1e657 (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $8, $ff + db $7, $3, $8, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_BRUNETTE_GIRL, $3 + 4, $2 + 4, $ff, $d3, $1 ; person + db SPRITE_BIRD, $4 + 4, $6 + 4, $fe, $0, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +Route22Gate_h: ; 0x1e677 to 0x1e683 (12 bytes) (bank=7) (id=193) + db $0c ; tileset + db $04, $05 ; dimensions (y, x) + dw Route22GateBlocks, Route22GateTexts, Route22GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route22GateObject ; objects + +Route22GateScript: ; 0x1e683 + call $3c3c + ld hl, $669e + ld a, [$d60e] + call $3d97 + ld a, [$d361] + cp $4 + ld a, $22 + jr c, .asm_1e69a ; 0x1e696 $2 + ld a, $21 +.asm_1e69a + ld [$d365], a + ret +; 0x1e69e + +Route22GateScripts: ; 0x1e69e + dw Route22GateScript0, Route22GateScript1 + +INCBIN "baserom.gbc",$1e6a2,$2 + +Route22GateScript0: ; 0x1e6a4 + ld hl, $66b5 + call $34bf + ret nc + xor a + ld [$ff00+$b4], a + ld a, $1 + ld [$ff00+$8c], a + jp $2920 +; 0x1e6b5 + +INCBIN "baserom.gbc",$1e6b5,$1e6cd - $1e6b5 + +Route22GateScript1: ; 0x1e6cd + ld a, [$cd38] + and a + ret nz + xor a + ld [$cd6b], a + call Delay3 + ld a, $0 + ld [$d60e], a + ret +; 0x1e6df + +Route22GateTexts: ; 0x1e6df + dw Route22GateText1 + +Route22GateText1: ; 0x1e6e1 + db $8 + ld a, [$d356] + bit 0, a + jr nz, .asm_8a809 ; 0x1e6e7 $d + ld hl, $6704 + call PrintText + call $66ba + ld a, $1 + jr .asm_20f7e ; 0x1e6f4 $8 +.asm_8a809 ; 0x1e6f6 + ld hl, $671a + call PrintText + ld a, $2 +.asm_20f7e ; 0x1e6fe + ld [$d60e], a + jp $24d7 +; 0x1e704 + +INCBIN "baserom.gbc",$1e704,$1c + +Route22GateObject: ; 0x1e720 (size=42) + db $a ; border tile + + db $4 ; warps + db $7, $4, $0, $ff + db $7, $5, $0, $ff + db $0, $4, $0, $ff + db $0, $5, $1, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $2 + 4, $6 + 4, $ff, $d2, $1 ; person + + ; warp-to + EVENT_DISP $5, $7, $4 + EVENT_DISP $5, $7, $5 + EVENT_DISP $5, $0, $4 + EVENT_DISP $5, $0, $5 + +Route22GateBlocks: ; 20 + INCBIN "maps/route22gate.blk" + +BillsHouse_h: ; 0x1e75e to 0x1e76a (12 bytes) (bank=7) (id=88) + db $10 ; tileset + db $04, $04 ; dimensions (y, x) + dw BillsHouseBlocks, BillsHouseTexts, BillsHouseScript ; blocks, texts, scripts + db $00 ; connections + + dw BillsHouseObject ; objects + +BillsHouseScript: ; 0x1e76a + call $3c3c + ld a, [$d661] + ld hl, $6776 + jp $3d97 +; 0x1e776 + +BillsHouseScripts: ; 0x1e776 + dw BillsHouseScript0 + +INCBIN "baserom.gbc",$1e778,$a + +BillsHouseScript0: ; 0x1e782 + ret +; 0x1e783 + +INCBIN "baserom.gbc",$1e783,$b1 + +BillsHouseTexts: ; 0x1e834 + dw BillsHouseText1, BillsHouseText2, BillsHouseText3, BillsHouseText4 + +BillsHouseText4: + db $fd + +BillsHouseText1: ; 0x1e83d + db $8 + ld hl, $6865 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, asm_6b196 ; 0x1e84b $d +asm_4d03c: + ld hl, $686a + call PrintText + ld a, $1 + ld [$d661], a + jr asm_fd4e2 ; 0x1e858 $8 +asm_6b196: ; 0x1e85a + ld hl, $686f + call PrintText + jr asm_4d03c ; 0x1e860 $eb +asm_fd4e2 ; 0x1e862 + jp $24d7 + +; dunno what this is (rla indicates $17 or TX_FAR) + rla + ld h, a + ld d, d + inc hl + ld d, b + rla + ld b, l + ld d, e + inc hl + ld d, b + rla + sub c + ld d, e + inc hl + ld d, b + +BillsHouseText2: ; 0x1e874 + db $08 ; asm + ld a, [$d7f2] + bit 4, a + jr nz, .asm_5491f ; 0x1e87a + ld hl, $68ba + call PrintText + ld bc,(S_S__TICKET << 8) | 1 + call $3e2e + jr nc, .asm_18a67 ; 0x1e888 + ld hl, $68bf + call PrintText + ld hl, $d7f2 + set 4, [hl] + ld a, $7 + ld [$cc4d], a + ld a, $15 + call Predef + ld a, $9 + ld [$cc4d], a + ld a, $11 + call Predef +.asm_5491f ; 0x1e8a9 + ld hl, $68cb + call PrintText + jr .asm_bd408 ; 0x1e8af +.asm_18a67 ; 0x1e8b1 + ld hl, $68c6 + call PrintText +.asm_bd408 ; 0x1e8b7 + jp $24d7 + +INCBIN "baserom.gbc",$1e8ba,$1e8d0 - $1e8ba + +BillsHouseText3: ; 0x1e8d0 + db $08 ; asm + ld hl, $68da + call PrintText + jp $24d7 +; 0x1e8da + +INCBIN "baserom.gbc",$1e8da,$5 + +BillsHouseObject: ; 0x1e8df (size=38) + db $d ; border tile + + db $2 ; warps + db $7, $2, $0, $ff + db $7, $3, $0, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_SLOWBRO, $5 + 4, $6 + 4, $ff, $ff, $1 ; person + db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $4 + 4, $ff, $ff, $2 ; person + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $6 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +BillsHouseBlocks: + INCBIN "maps/billshouse.blk" + +INCBIN "baserom.gbc",$1e905 + 16,$16fb - 16 + +SECTION "bank8",DATA,BANK[$8] + +INCBIN "baserom.gbc",$20000,$4000 + +SECTION "bank9",DATA,BANK[$9] + +RhydonPicFront: + INCBIN "pic/bmon/rhydon.pic" +RhydonPicBack: + INCBIN "pic/monback/rhydonb.pic" +KangaskhanPicFront: + INCBIN "pic/bmon/kangaskhan.pic" +KangaskhanPicBack: + INCBIN "pic/monback/kangaskhanb.pic" +NidoranMPicFront: + INCBIN "pic/bmon/nidoranm.pic" +NidoranMPicBack: + INCBIN "pic/monback/nidoranmb.pic" +ClefairyPicFront: + INCBIN "pic/bmon/clefairy.pic" +ClefairyPicBack: + INCBIN "pic/monback/clefairyb.pic" +SpearowPicFront: + INCBIN "pic/bmon/spearow.pic" +SpearowPicBack: + INCBIN "pic/monback/spearowb.pic" +VoltorbPicFront: + INCBIN "pic/bmon/voltorb.pic" +VoltorbPicBack: + INCBIN "pic/monback/voltorbb.pic" +NidokingPicFront: + INCBIN "pic/bmon/nidoking.pic" +NidokingPicBack: + INCBIN "pic/monback/nidokingb.pic" +SlowbroPicFront: + INCBIN "pic/bmon/slowbro.pic" +SlowbroPicBack: + INCBIN "pic/monback/slowbrob.pic" +IvysaurPicFront: + INCBIN "pic/bmon/ivysaur.pic" +IvysaurPicBack: + INCBIN "pic/monback/ivysaurb.pic" +ExeggutorPicFront: + INCBIN "pic/bmon/exeggutor.pic" +ExeggutorPicBack: + INCBIN "pic/monback/exeggutorb.pic" +LickitungPicFront: + INCBIN "pic/bmon/lickitung.pic" +LickitungPicBack: + INCBIN "pic/monback/lickitungb.pic" +ExeggcutePicFront: + INCBIN "pic/bmon/exeggcute.pic" +ExeggcutePicBack: + INCBIN "pic/monback/exeggcuteb.pic" +GrimerPicFront: + INCBIN "pic/bmon/grimer.pic" +GrimerPicBack: + INCBIN "pic/monback/grimerb.pic" +GengarPicFront: + INCBIN "pic/bmon/gengar.pic" +GengarPicBack: + INCBIN "pic/monback/gengarb.pic" +NidoranFPicFront: + INCBIN "pic/bmon/nidoranf.pic" +NidoranFPicBack: + INCBIN "pic/monback/nidoranfb.pic" +NidoqueenPicFront: + INCBIN "pic/bmon/nidoqueen.pic" +NidoqueenPicBack: + INCBIN "pic/monback/nidoqueenb.pic" +CubonePicFront: + INCBIN "pic/bmon/cubone.pic" +CubonePicBack: + INCBIN "pic/monback/cuboneb.pic" +RhyhornPicFront: + INCBIN "pic/bmon/rhyhorn.pic" +RhyhornPicBack: + INCBIN "pic/monback/rhyhornb.pic" +LaprasPicFront: + INCBIN "pic/bmon/lapras.pic" +LaprasPicBack: + INCBIN "pic/monback/laprasb.pic" +ArcaninePicFront: + INCBIN "pic/bmon/arcanine.pic" +ArcaninePicBack: + INCBIN "pic/monback/arcanineb.pic" +GyaradosPicFront: + INCBIN "pic/bmon/gyarados.pic" +GyaradosPicBack: + INCBIN "pic/monback/gyaradosb.pic" +ShellderPicFront: + INCBIN "pic/bmon/shellder.pic" +ShellderPicBack: + INCBIN "pic/monback/shellderb.pic" +TentacoolPicFront: + INCBIN "pic/bmon/tentacool.pic" +TentacoolPicBack: + INCBIN "pic/monback/tentacoolb.pic" +GastlyPicFront: + INCBIN "pic/bmon/gastly.pic" +GastlyPicBack: + INCBIN "pic/monback/gastlyb.pic" +ScytherPicFront: + INCBIN "pic/bmon/scyther.pic" +ScytherPicBack: + INCBIN "pic/monback/scytherb.pic" +StaryuPicFront: + INCBIN "pic/bmon/staryu.pic" +StaryuPicBack: + INCBIN "pic/monback/staryub.pic" +BlastoisePicFront: + INCBIN "pic/bmon/blastoise.pic" +BlastoisePicBack: + INCBIN "pic/monback/blastoiseb.pic" +PinsirPicFront: + INCBIN "pic/bmon/pinsir.pic" +PinsirPicBack: + INCBIN "pic/monback/pinsirb.pic" +TangelaPicFront: + INCBIN "pic/bmon/tangela.pic" +TangelaPicBack: + INCBIN "pic/monback/tangelab.pic" + +INCBIN "baserom.gbc",$27d6b,$27DAE - $27d6b + +TypeNamePointers: ; 7DAE + dw Type00Name + dw Type01Name + dw Type02Name + dw Type03Name + dw Type04Name + dw Type05Name + dw Type06Name + dw Type07Name + dw Type08Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type00Name + dw Type14Name + dw Type15Name + dw Type16Name + dw Type17Name + dw Type18Name + dw Type19Name + dw Type1AName + +Type00Name: + db "NORMAL@" +Type01Name: + db "FIGHTING@" +Type02Name: + db "FLYING@" +Type03Name: + db "POISON@" +Type14Name: + db "FIRE@" +Type15Name: + db "WATER@" +Type16Name: + db "GRASS@" +Type17Name: + db "ELECTRIC@" +Type18Name: + db "PSYCHIC@" +Type19Name: + db "ICE@" +Type04Name: + db "GROUND@" +Type05Name: + db "ROCK@" +Type06Name: + db "BIRD@" +Type07Name: + db "BUG@" +Type08Name: + db "GHOST@" +Type1AName: + db "DRAGON@" + +SaveTrainerName: ; 7E4A + ld hl,TrainerNamePointers + ld a,[W_TRAINERCLASS] + dec a + ld c,a + ld b,0 + add hl,bc + add hl,bc + ld a,[hli] + ld h,[hl] + ld l,a + ld de,$CD6D +.CopyCharacter\@ + ld a,[hli] + ld [de],a + inc de + cp "@" + jr nz,.CopyCharacter\@ + ret + +TrainerNamePointers: +; what is the point of these? + dw YoungsterName + dw BugCatcherName + dw LassName + dw $D04A + dw JrTrainerMName + dw JrTrainerFName + dw PokemaniacName + dw SuperNerdName + dw $D04A + dw $D04A + dw BurglarName + dw EngineerName + dw JugglerXName + dw $D04A + dw SwimmerName + dw $D04A + dw $D04A + dw BeautyName + dw $D04A + dw RockerName + dw JugglerName + dw $D04A + dw $D04A + dw BlackbeltName + dw $D04A + dw ProfOakName + dw ChiefName + dw ScientistName + dw $D04A + dw RocketName + dw CooltrainerMName + dw CooltrainerFName + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + dw $D04A + +YoungsterName: + db "YOUNGSTER@" +BugCatcherName: + db "BUG CATCHER@" +LassName: + db "LASS@" +JrTrainerMName: + db "JR.TRAINER♂@" +JrTrainerFName: + db "JR.TRAINER♀@" +PokemaniacName: + db "POKéMANIAC@" +SuperNerdName: + db "SUPER NERD@" +BurglarName: + db "BURGLAR@" +EngineerName: + db "ENGINEER@" +JugglerXName: + db "JUGGLER@" +SwimmerName: + db "SWIMMER@" +BeautyName: + db "BEAUTY@" +RockerName: + db "ROCKER@" +JugglerName: + db "JUGGLER@" +BlackbeltName: + db "BLACKBELT@" +ProfOakName: + db "PROF.OAK@" +ChiefName: + db "CHIEF@" +ScientistName: + db "SCIENTIST@" +RocketName: + db "ROCKET@" +CooltrainerMName: + db "COOLTRAINER♂@" +CooltrainerFName: + db "COOLTRAINER♀@" + +INCBIN "baserom.gbc",$27f86,$27fb8-$27f86 + +SECTION "bankA",DATA,BANK[$A] +GrowlithePicFront: + INCBIN "pic/bmon/growlithe.pic" +GrowlithePicBack: + INCBIN "pic/monback/growlitheb.pic" +OnixPicFront: + INCBIN "pic/bmon/onix.pic" +OnixPicBack: + INCBIN "pic/monback/onixb.pic" +FearowPicFront: + INCBIN "pic/bmon/fearow.pic" +FearowPicBack: + INCBIN "pic/monback/fearowb.pic" +PidgeyPicFront: + INCBIN "pic/bmon/pidgey.pic" +PidgeyPicBack: + INCBIN "pic/monback/pidgeyb.pic" +SlowpokePicFront: + INCBIN "pic/bmon/slowpoke.pic" +SlowpokePicBack: + INCBIN "pic/monback/slowpokeb.pic" +KadabraPicFront: + INCBIN "pic/bmon/kadabra.pic" +KadabraPicBack: + INCBIN "pic/monback/kadabrab.pic" +GravelerPicFront: + INCBIN "pic/bmon/graveler.pic" +GravelerPicBack: + INCBIN "pic/monback/gravelerb.pic" +ChanseyPicFront: + INCBIN "pic/bmon/chansey.pic" +ChanseyPicBack: + INCBIN "pic/monback/chanseyb.pic" +MachokePicFront: + INCBIN "pic/bmon/machoke.pic" +MachokePicBack: + INCBIN "pic/monback/machokeb.pic" +MrMimePicFront: + INCBIN "pic/bmon/mr.mime.pic" +MrMimePicBack: + INCBIN "pic/monback/mr.mimeb.pic" +HitmonleePicFront: + INCBIN "pic/bmon/hitmonlee.pic" +HitmonleePicBack: + INCBIN "pic/monback/hitmonleeb.pic" +HitmonchanPicFront: + INCBIN "pic/bmon/hitmonchan.pic" +HitmonchanPicBack: + INCBIN "pic/monback/hitmonchanb.pic" +ArbokPicFront: + INCBIN "pic/bmon/arbok.pic" +ArbokPicBack: + INCBIN "pic/monback/arbokb.pic" +ParasectPicFront: + INCBIN "pic/bmon/parasect.pic" +ParasectPicBack: + INCBIN "pic/monback/parasectb.pic" +PsyduckPicFront: + INCBIN "pic/bmon/psyduck.pic" +PsyduckPicBack: + INCBIN "pic/monback/psyduckb.pic" +DrowzeePicFront: + INCBIN "pic/bmon/drowzee.pic" +DrowzeePicBack: + INCBIN "pic/monback/drowzeeb.pic" +GolemPicFront: + INCBIN "pic/bmon/golem.pic" +GolemPicBack: + INCBIN "pic/monback/golemb.pic" +MagmarPicFront: + INCBIN "pic/bmon/magmar.pic" +MagmarPicBack: + INCBIN "pic/monback/magmarb.pic" +ElectabuzzPicFront: + INCBIN "pic/bmon/electabuzz.pic" +ElectabuzzPicBack: + INCBIN "pic/monback/electabuzzb.pic" +MagnetonPicFront: + INCBIN "pic/bmon/magneton.pic" +MagnetonPicBack: + INCBIN "pic/monback/magnetonb.pic" +KoffingPicFront: + INCBIN "pic/bmon/koffing.pic" +KoffingPicBack: + INCBIN "pic/monback/koffingb.pic" +MankeyPicFront: + INCBIN "pic/bmon/mankey.pic" +MankeyPicBack: + INCBIN "pic/monback/mankeyb.pic" +SeelPicFront: + INCBIN "pic/bmon/seel.pic" +SeelPicBack: + INCBIN "pic/monback/seelb.pic" +DiglettPicFront: + INCBIN "pic/bmon/diglett.pic" +DiglettPicBack: + INCBIN "pic/monback/diglettb.pic" +TaurosPicFront: + INCBIN "pic/bmon/tauros.pic" +TaurosPicBack: + INCBIN "pic/monback/taurosb.pic" +FarfetchdPicFront: + INCBIN "pic/bmon/farfetchd.pic" +FarfetchdPicBack: + INCBIN "pic/monback/farfetchdb.pic" +VenonatPicFront: + INCBIN "pic/bmon/venonat.pic" +VenonatPicBack: + INCBIN "pic/monback/venonatb.pic" +DragonitePicFront: + INCBIN "pic/bmon/dragonite.pic" +DragonitePicBack: + INCBIN "pic/monback/dragoniteb.pic" +DoduoPicFront: + INCBIN "pic/bmon/doduo.pic" +DoduoPicBack: + INCBIN "pic/monback/doduob.pic" +PoliwagPicFront: + INCBIN "pic/bmon/poliwag.pic" +PoliwagPicBack: + INCBIN "pic/monback/poliwagb.pic" +JynxPicFront: + INCBIN "pic/bmon/jynx.pic" +JynxPicBack: + INCBIN "pic/monback/jynxb.pic" +MoltresPicFront: + INCBIN "pic/bmon/moltres.pic" +MoltresPicBack: + INCBIN "pic/monback/moltresb.pic" + +INCBIN "baserom.gbc",$2bea9,$3efc-$3ea9 + +SECTION "bankB",DATA,BANK[$B] +ArticunoPicFront: + INCBIN "pic/bmon/articuno.pic" +ArticunoPicBack: + INCBIN "pic/monback/articunob.pic" +ZapdosPicFront: + INCBIN "pic/bmon/zapdos.pic" +ZapdosPicBack: + INCBIN "pic/monback/zapdosb.pic" +DittoPicFront: + INCBIN "pic/bmon/ditto.pic" +DittoPicBack: + INCBIN "pic/monback/dittob.pic" +MeowthPicFront: + INCBIN "pic/bmon/meowth.pic" +MeowthPicBack: + INCBIN "pic/monback/meowthb.pic" +KrabbyPicFront: + INCBIN "pic/bmon/krabby.pic" +KrabbyPicBack: + INCBIN "pic/monback/krabbyb.pic" +VulpixPicFront: + INCBIN "pic/bmon/vulpix.pic" +VulpixPicBack: + INCBIN "pic/monback/vulpixb.pic" +NinetalesPicFront: + INCBIN "pic/bmon/ninetales.pic" +NinetalesPicBack: + INCBIN "pic/monback/ninetalesb.pic" +PikachuPicFront: + INCBIN "pic/bmon/pikachu.pic" +PikachuPicBack: + INCBIN "pic/monback/pikachub.pic" +RaichuPicFront: + INCBIN "pic/bmon/raichu.pic" +RaichuPicBack: + INCBIN "pic/monback/raichub.pic" +DratiniPicFront: + INCBIN "pic/bmon/dratini.pic" +DratiniPicBack: + INCBIN "pic/monback/dratinib.pic" +DragonairPicFront: + INCBIN "pic/bmon/dragonair.pic" +DragonairPicBack: + INCBIN "pic/monback/dragonairb.pic" +KabutoPicFront: + INCBIN "pic/bmon/kabuto.pic" +KabutoPicBack: + INCBIN "pic/monback/kabutob.pic" +KabutopsPicFront: + INCBIN "pic/bmon/kabutops.pic" +KabutopsPicBack: + INCBIN "pic/monback/kabutopsb.pic" +HorseaPicFront: + INCBIN "pic/bmon/horsea.pic" +HorseaPicBack: + INCBIN "pic/monback/horseab.pic" +SeadraPicFront: + INCBIN "pic/bmon/seadra.pic" +SeadraPicBack: + INCBIN "pic/monback/seadrab.pic" +SandshrewPicFront: + INCBIN "pic/bmon/sandshrew.pic" +SandshrewPicBack: + INCBIN "pic/monback/sandshrewb.pic" +SandslashPicFront: + INCBIN "pic/bmon/sandslash.pic" +SandslashPicBack: + INCBIN "pic/monback/sandslashb.pic" +OmanytePicFront: + INCBIN "pic/bmon/omanyte.pic" +OmanytePicBack: + INCBIN "pic/monback/omanyteb.pic" +OmastarPicFront: + INCBIN "pic/bmon/omastar.pic" +OmastarPicBack: + INCBIN "pic/monback/omastarb.pic" +JigglypuffPicFront: + INCBIN "pic/bmon/jigglypuff.pic" +JigglypuffPicBack: + INCBIN "pic/monback/jigglypuffb.pic" +WigglytuffPicFront: + INCBIN "pic/bmon/wigglytuff.pic" +WigglytuffPicBack: + INCBIN "pic/monback/wigglytuffb.pic" +EeveePicFront: + INCBIN "pic/bmon/eevee.pic" +EeveePicBack: + INCBIN "pic/monback/eeveeb.pic" +FlareonPicFront: + INCBIN "pic/bmon/flareon.pic" +FlareonPicBack: + INCBIN "pic/monback/flareonb.pic" +JolteonPicFront: + INCBIN "pic/bmon/jolteon.pic" +JolteonPicBack: + INCBIN "pic/monback/jolteonb.pic" +VaporeonPicFront: + INCBIN "pic/bmon/vaporeon.pic" +VaporeonPicBack: + INCBIN "pic/monback/vaporeonb.pic" +MachopPicFront: + INCBIN "pic/bmon/machop.pic" +MachopPicBack: + INCBIN "pic/monback/machopb.pic" +ZubatPicFront: + INCBIN "pic/bmon/zubat.pic" +ZubatPicBack: + INCBIN "pic/monback/zubatb.pic" +EkansPicFront: + INCBIN "pic/bmon/ekans.pic" +EkansPicBack: + INCBIN "pic/monback/ekansb.pic" +ParasPicFront: + INCBIN "pic/bmon/paras.pic" +ParasPicBack: + INCBIN "pic/monback/parasb.pic" +PoliwhirlPicFront: + INCBIN "pic/bmon/poliwhirl.pic" +PoliwhirlPicBack: + INCBIN "pic/monback/poliwhirlb.pic" +PoliwrathPicFront: + INCBIN "pic/bmon/poliwrath.pic" +PoliwrathPicBack: + INCBIN "pic/monback/poliwrathb.pic" +WeedlePicFront: + INCBIN "pic/bmon/weedle.pic" +WeedlePicBack: + INCBIN "pic/monback/weedleb.pic" +KakunaPicFront: + INCBIN "pic/bmon/kakuna.pic" +KakunaPicBack: + INCBIN "pic/monback/kakunab.pic" +BeedrillPicFront: + INCBIN "pic/bmon/beedrill.pic" +BeedrillPicBack: + INCBIN "pic/monback/beedrillb.pic" +FossilKabutopsPic: + INCBIN "pic/bmon/fossilkabutops.pic" + +INCBIN "baserom.gbc",$2fb7b,$2ff3c-$2fb7b + +SECTION "bankC",DATA,BANK[$C] +DodrioPicFront: + INCBIN "pic/bmon/dodrio.pic" +DodrioPicBack: + INCBIN "pic/monback/dodriob.pic" +PrimeapePicFront: + INCBIN "pic/bmon/primeape.pic" +PrimeapePicBack: + INCBIN "pic/monback/primeapeb.pic" +DugtrioPicFront: + INCBIN "pic/bmon/dugtrio.pic" +DugtrioPicBack: + INCBIN "pic/monback/dugtriob.pic" +VenomothPicFront: + INCBIN "pic/bmon/venomoth.pic" +VenomothPicBack: + INCBIN "pic/monback/venomothb.pic" +DewgongPicFront: + INCBIN "pic/bmon/dewgong.pic" +DewgongPicBack: + INCBIN "pic/monback/dewgongb.pic" +CaterpiePicFront: + INCBIN "pic/bmon/caterpie.pic" +CaterpiePicBack: + INCBIN "pic/monback/caterpieb.pic" +MetapodPicFront: + INCBIN "pic/bmon/metapod.pic" +MetapodPicBack: + INCBIN "pic/monback/metapodb.pic" +ButterfreePicFront: + INCBIN "pic/bmon/butterfree.pic" +ButterfreePicBack: + INCBIN "pic/monback/butterfreeb.pic" +MachampPicFront: + INCBIN "pic/bmon/machamp.pic" +MachampPicBack: + INCBIN "pic/monback/machampb.pic" +GolduckPicFront: + INCBIN "pic/bmon/golduck.pic" +GolduckPicBack: + INCBIN "pic/monback/golduckb.pic" +HypnoPicFront: + INCBIN "pic/bmon/hypno.pic" +HypnoPicBack: + INCBIN "pic/monback/hypnob.pic" +GolbatPicFront: + INCBIN "pic/bmon/golbat.pic" +GolbatPicBack: + INCBIN "pic/monback/golbatb.pic" +MewtwoPicFront: + INCBIN "pic/bmon/mewtwo.pic" +MewtwoPicBack: + INCBIN "pic/monback/mewtwob.pic" +SnorlaxPicFront: + INCBIN "pic/bmon/snorlax.pic" +SnorlaxPicBack: + INCBIN "pic/monback/snorlaxb.pic" +MagikarpPicFront: + INCBIN "pic/bmon/magikarp.pic" +MagikarpPicBack: + INCBIN "pic/monback/magikarpb.pic" +MukPicFront: + INCBIN "pic/bmon/muk.pic" +MukPicBack: + INCBIN "pic/monback/mukb.pic" +KinglerPicFront: + INCBIN "pic/bmon/kingler.pic" +KinglerPicBack: + INCBIN "pic/monback/kinglerb.pic" +CloysterPicFront: + INCBIN "pic/bmon/cloyster.pic" +CloysterPicBack: + INCBIN "pic/monback/cloysterb.pic" +ElectrodePicFront: + INCBIN "pic/bmon/electrode.pic" +ElectrodePicBack: + INCBIN "pic/monback/electrodeb.pic" +ClefablePicFront: + INCBIN "pic/bmon/clefable.pic" +ClefablePicBack: + INCBIN "pic/monback/clefableb.pic" +WeezingPicFront: + INCBIN "pic/bmon/weezing.pic" +WeezingPicBack: + INCBIN "pic/monback/weezingb.pic" +PersianPicFront: + INCBIN "pic/bmon/persian.pic" +PersianPicBack: + INCBIN "pic/monback/persianb.pic" +MarowakPicFront: + INCBIN "pic/bmon/marowak.pic" +MarowakPicBack: + INCBIN "pic/monback/marowakb.pic" +HaunterPicFront: + INCBIN "pic/bmon/haunter.pic" +HaunterPicBack: + INCBIN "pic/monback/haunterb.pic" +AbraPicFront: + INCBIN "pic/bmon/abra.pic" +AbraPicBack: + INCBIN "pic/monback/abrab.pic" +AlakazamPicFront: + INCBIN "pic/bmon/alakazam.pic" +AlakazamPicBack: + INCBIN "pic/monback/alakazamb.pic" +PidgeottoPicFront: + INCBIN "pic/bmon/pidgeotto.pic" +PidgeottoPicBack: + INCBIN "pic/monback/pidgeottob.pic" +PidgeotPicFront: + INCBIN "pic/bmon/pidgeot.pic" +PidgeotPicBack: + INCBIN "pic/monback/pidgeotb.pic" +StarmiePicFront: + INCBIN "pic/bmon/starmie.pic" +StarmiePicBack: + INCBIN "pic/monback/starmieb.pic" +RedPicBack: + INCBIN "pic/trainer/redb.pic" +OldManPic: + INCBIN "pic/trainer/oldman.pic" + +INCBIN "baserom.gbc",$33f2b,$3f90-$3f2b + +SECTION "bankD",DATA,BANK[$D] +BulbasaurPicFront: + INCBIN "pic/bmon/bulbasaur.pic" +BulbasaurPicBack: + INCBIN "pic/monback/bulbasaurb.pic" +VenusaurPicFront: + INCBIN "pic/bmon/venusaur.pic" +VenusaurPicBack: + INCBIN "pic/monback/venusaurb.pic" +TentacruelPicFront: + INCBIN "pic/bmon/tentacruel.pic" +TentacruelPicBack: + INCBIN "pic/monback/tentacruelb.pic" +GoldeenPicFront: + INCBIN "pic/bmon/goldeen.pic" +GoldeenPicBack: + INCBIN "pic/monback/goldeenb.pic" +SeakingPicFront: + INCBIN "pic/bmon/seaking.pic" +SeakingPicBack: + INCBIN "pic/monback/seakingb.pic" +PonytaPicFront: + INCBIN "pic/bmon/ponyta.pic" +RapidashPicFront: + INCBIN "pic/bmon/rapidash.pic" +PonytaPicBack: + INCBIN "pic/monback/ponytab.pic" +RapidashPicBack: + INCBIN "pic/monback/rapidashb.pic" +RattataPicFront: + INCBIN "pic/bmon/rattata.pic" +RattataPicBack: + INCBIN "pic/monback/rattatab.pic" +RaticatePicFront: + INCBIN "pic/bmon/raticate.pic" +RaticatePicBack: + INCBIN "pic/monback/raticateb.pic" +NidorinoPicFront: + INCBIN "pic/bmon/nidorino.pic" +NidorinoPicBack: + INCBIN "pic/monback/nidorinob.pic" +NidorinaPicFront: + INCBIN "pic/bmon/nidorina.pic" +NidorinaPicBack: + INCBIN "pic/monback/nidorinab.pic" +GeodudePicFront: + INCBIN "pic/bmon/geodude.pic" +GeodudePicBack: + INCBIN "pic/monback/geodudeb.pic" +PorygonPicFront: + INCBIN "pic/bmon/porygon.pic" +PorygonPicBack: + INCBIN "pic/monback/porygonb.pic" +AerodactylPicFront: + INCBIN "pic/bmon/aerodactyl.pic" +AerodactylPicBack: + INCBIN "pic/monback/aerodactylb.pic" +MagnemitePicFront: + INCBIN "pic/bmon/magnemite.pic" +MagnemitePicBack: + INCBIN "pic/monback/magnemiteb.pic" +CharmanderPicFront: + INCBIN "pic/bmon/charmander.pic" +CharmanderPicBack: + INCBIN "pic/monback/charmanderb.pic" +SquirtlePicFront: + INCBIN "pic/bmon/squirtle.pic" +SquirtlePicBack: + INCBIN "pic/monback/squirtleb.pic" +CharmeleonPicFront: + INCBIN "pic/bmon/charmeleon.pic" +CharmeleonPicBack: + INCBIN "pic/monback/charmeleonb.pic" +WartortlePicFront: + INCBIN "pic/bmon/wartortle.pic" +WartortlePicBack: + INCBIN "pic/monback/wartortleb.pic" +CharizardPicFront: + INCBIN "pic/bmon/charizard.pic" +CharizardPicBack: + INCBIN "pic/monback/charizardb.pic" +FossilAerodactylPic: + INCBIN "pic/bmon/fossilaerodactyl.pic" +GhostPic: + INCBIN "pic/other/ghost.pic" +OddishPicFront: + INCBIN "pic/bmon/oddish.pic" +OddishPicBack: + INCBIN "pic/monback/oddishb.pic" +GloomPicFront: + INCBIN "pic/bmon/gloom.pic" +GloomPicBack: + INCBIN "pic/monback/gloomb.pic" +VileplumePicFront: + INCBIN "pic/bmon/vileplume.pic" +VileplumePicBack: + INCBIN "pic/monback/vileplumeb.pic" +BellsproutPicFront: + INCBIN "pic/bmon/bellsprout.pic" +BellsproutPicBack: + INCBIN "pic/monback/bellsproutb.pic" +WeepinbellPicFront: + INCBIN "pic/bmon/weepinbell.pic" +WeepinbellPicBack: + INCBIN "pic/monback/weepinbellb.pic" +VictreebelPicFront: + INCBIN "pic/bmon/victreebel.pic" +VictreebelPicBack: + INCBIN "pic/monback/victreebelb.pic" + +INCBIN "baserom.gbc",$37244,$3e88-$3244 + +SECTION "bankE",DATA,BANK[$E] + +Attacks: ; 4000 +; characteristics of each attack +; animation, effect, power, type, accuracy, PP +db POUND ,$00,$28,NORMAL,$FF,35 +db KARATE_CHOP ,$00,$32,NORMAL,$FF,25 +db DOUBLESLAP ,$1D,$0F,NORMAL,$D8,10 +db COMET_PUNCH ,$1D,$12,NORMAL,$D8,15 +db MEGA_PUNCH ,$00,$50,NORMAL,$D8,20 +db PAY_DAY ,$10,$28,NORMAL,$FF,20 +db FIRE_PUNCH ,$04,$4B,FIRE,$FF,15 +db ICE_PUNCH ,$05,$4B,ICE,$FF,15 +db THUNDERPUNCH,$06,$4B,ELECTRIC,$FF,15 +db SCRATCH ,$00,$28,NORMAL,$FF,35 +db VICEGRIP ,$00,$37,NORMAL,$FF,30 +db GUILLOTINE ,$26,$01,NORMAL,$4C,5 +db RAZOR_WIND ,$27,$50,NORMAL,$BF,10 +db SWORDS_DANCE,$32,$00,NORMAL,$FF,30 +db CUT ,$00,$32,NORMAL,$F2,30 +db GUST ,$00,$28,NORMAL,$FF,35 +db WING_ATTACK ,$00,$23,FLYING,$FF,35 +db WHIRLWIND ,$1C,$00,NORMAL,$D8,20 +db FLY ,$2B,$46,FLYING,$F2,15 +db BIND ,$2A,$0F,NORMAL,$BF,20 +db SLAM ,$00,$50,NORMAL,$BF,20 +db VINE_WHIP ,$00,$23,GRASS,$FF,10 +db STOMP ,$25,$41,NORMAL,$FF,20 +db DOUBLE_KICK ,$2C,$1E,FIGHTING,$FF,30 +db MEGA_KICK ,$00,$78,NORMAL,$BF,5 +db JUMP_KICK ,$2D,$46,FIGHTING,$F2,25 +db ROLLING_KICK,$25,$3C,FIGHTING,$D8,15 +db SAND_ATTACK ,$16,$00,NORMAL,$FF,15 +db HEADBUTT ,$25,$46,NORMAL,$FF,15 +db HORN_ATTACK ,$00,$41,NORMAL,$FF,25 +db FURY_ATTACK ,$1D,$0F,NORMAL,$D8,20 +db HORN_DRILL ,$26,$01,NORMAL,$4C,5 +db TACKLE ,$00,$23,NORMAL,$F2,35 +db BODY_SLAM ,$24,$55,NORMAL,$FF,15 +db WRAP ,$2A,$0F,NORMAL,$D8,20 +db TAKE_DOWN ,$30,$5A,NORMAL,$D8,20 +db THRASH ,$1B,$5A,NORMAL,$FF,20 +db DOUBLE_EDGE ,$30,$64,NORMAL,$FF,15 +db TAIL_WHIP ,$13,$00,NORMAL,$FF,30 +db POISON_STING,$02,$0F,POISON,$FF,35 +db TWINEEDLE ,$4D,$19,BUG,$FF,20 +db PIN_MISSILE ,$1D,$0E,BUG,$D8,20 +db LEER ,$13,$00,NORMAL,$FF,30 +db BITE ,$1F,$3C,NORMAL,$FF,25 +db GROWL ,$12,$00,NORMAL,$FF,40 +db ROAR ,$1C,$00,NORMAL,$FF,20 +db SING ,$20,$00,NORMAL,$8C,15 +db SUPERSONIC ,$31,$00,NORMAL,$8C,20 +db SONICBOOM ,$29,$01,NORMAL,$E5,20 +db DISABLE ,$56,$00,NORMAL,$8C,20 +db ACID ,$45,$28,POISON,$FF,30 +db EMBER ,$04,$28,FIRE,$FF,25 +db FLAMETHROWER,$04,$5F,FIRE,$FF,15 +db MIST ,$2E,$00,ICE,$FF,30 +db WATER_GUN ,$00,$28,WATER,$FF,25 +db HYDRO_PUMP ,$00,$78,WATER,$CC,5 +db SURF ,$00,$5F,WATER,$FF,15 +db ICE_BEAM ,$05,$5F,ICE,$FF,10 +db BLIZZARD ,$05,$78,ICE,$E5,5 +db PSYBEAM ,$4C,$41,PSYCHIC,$FF,20 +db BUBBLEBEAM ,$46,$41,WATER,$FF,20 +db AURORA_BEAM ,$44,$41,ICE,$FF,20 +db HYPER_BEAM ,$50,$96,NORMAL,$E5,5 +db PECK ,$00,$23,FLYING,$FF,35 +db DRILL_PECK ,$00,$50,FLYING,$FF,20 +db SUBMISSION ,$30,$50,FIGHTING,$CC,25 +db LOW_KICK ,$25,$32,FIGHTING,$E5,20 +db COUNTER ,$00,$01,FIGHTING,$FF,20 +db SEISMIC_TOSS,$29,$01,FIGHTING,$FF,20 +db STRENGTH ,$00,$50,NORMAL,$FF,15 +db ABSORB ,$03,$14,GRASS,$FF,20 +db MEGA_DRAIN ,$03,$28,GRASS,$FF,10 +db LEECH_SEED ,$54,$00,GRASS,$E5,10 +db GROWTH ,$0D,$00,NORMAL,$FF,40 +db RAZOR_LEAF ,$00,$37,GRASS,$F2,25 +db SOLARBEAM ,$27,$78,GRASS,$FF,10 +db POISONPOWDER,$42,$00,POISON,$BF,35 +db STUN_SPORE ,$43,$00,GRASS,$BF,30 +db SLEEP_POWDER,$20,$00,GRASS,$BF,15 +db PETAL_DANCE ,$1B,$46,GRASS,$FF,20 +db STRING_SHOT ,$14,$00,BUG,$F2,40 +db DRAGON_RAGE ,$29,$01,DRAGON,$FF,10 +db FIRE_SPIN ,$2A,$0F,FIRE,$B2,15 +db THUNDERSHOCK,$06,$28,ELECTRIC,$FF,30 +db THUNDERBOLT ,$06,$5F,ELECTRIC,$FF,15 +db THUNDER_WAVE,$43,$00,ELECTRIC,$FF,20 +db THUNDER ,$06,$78,ELECTRIC,$B2,10 +db ROCK_THROW ,$00,$32,ROCK,$A5,15 +db EARTHQUAKE ,$00,$64,GROUND,$FF,10 +db FISSURE ,$26,$01,GROUND,$4C,5 +db DIG ,$27,$64,GROUND,$FF,10 +db TOXIC ,$42,$00,POISON,$D8,10 +db CONFUSION ,$4C,$32,PSYCHIC,$FF,25 +db PSYCHIC_M ,$47,$5A,PSYCHIC,$FF,10 +db HYPNOSIS ,$20,$00,PSYCHIC,$99,20 +db MEDITATE ,$0A,$00,PSYCHIC,$FF,40 +db AGILITY ,$34,$00,PSYCHIC,$FF,30 +db QUICK_ATTACK,$00,$28,NORMAL,$FF,30 +db RAGE ,$51,$14,NORMAL,$FF,20 +db TELEPORT ,$1C,$00,PSYCHIC,$FF,20 +db NIGHT_SHADE ,$29,$00,GHOST,$FF,15 +db MIMIC ,$52,$00,NORMAL,$FF,10 +db SCREECH ,$3B,$00,NORMAL,$D8,40 +db DOUBLE_TEAM ,$0F,$00,NORMAL,$FF,15 +db RECOVER ,$38,$00,NORMAL,$FF,20 +db HARDEN ,$0B,$00,NORMAL,$FF,30 +db MINIMIZE ,$0F,$00,NORMAL,$FF,20 +db SMOKESCREEN ,$16,$00,NORMAL,$FF,20 +db CONFUSE_RAY ,$31,$00,GHOST,$FF,10 +db WITHDRAW ,$0B,$00,WATER,$FF,40 +db DEFENSE_CURL,$0B,$00,NORMAL,$FF,40 +db BARRIER ,$33,$00,PSYCHIC,$FF,30 +db LIGHT_SCREEN,$40,$00,PSYCHIC,$FF,30 +db HAZE ,$19,$00,ICE,$FF,30 +db REFLECT ,$41,$00,PSYCHIC,$FF,20 +db FOCUS_ENERGY,$2F,$00,NORMAL,$FF,30 +db BIDE ,$1A,$00,NORMAL,$FF,10 +db METRONOME ,$53,$00,NORMAL,$FF,10 +db MIRROR_MOVE ,$09,$00,FLYING,$FF,20 +db SELFDESTRUCT,$07,$82,NORMAL,$FF,5 +db EGG_BOMB ,$00,$64,NORMAL,$BF,10 +db LICK ,$24,$14,GHOST,$FF,30 +db SMOG ,$21,$14,POISON,$B2,20 +db SLUDGE ,$21,$41,POISON,$FF,20 +db BONE_CLUB ,$1F,$41,GROUND,$D8,20 +db FIRE_BLAST ,$22,$78,FIRE,$D8,5 +db WATERFALL ,$00,$50,WATER,$FF,15 +db CLAMP ,$2A,$23,WATER,$BF,10 +db SWIFT ,$11,$3C,NORMAL,$FF,20 +db SKULL_BASH ,$27,$64,NORMAL,$FF,15 +db SPIKE_CANNON,$1D,$14,NORMAL,$FF,15 +db CONSTRICT ,$46,$0A,NORMAL,$FF,35 +db AMNESIA ,$35,$00,PSYCHIC,$FF,20 +db KINESIS ,$16,$00,PSYCHIC,$CC,15 +db SOFTBOILED ,$38,$00,NORMAL,$FF,10 +db HI_JUMP_KICK,$2D,$55,FIGHTING,$E5,20 +db GLARE ,$43,$00,NORMAL,$BF,30 +db DREAM_EATER ,$08,$64,PSYCHIC,$FF,15 +db POISON_GAS ,$42,$00,POISON,$8C,40 +db BARRAGE ,$1D,$0F,NORMAL,$D8,20 +db LEECH_LIFE ,$03,$14,BUG,$FF,15 +db LOVELY_KISS ,$20,$00,NORMAL,$BF,10 +db SKY_ATTACK ,$27,$8C,FLYING,$E5,5 +db TRANSFORM ,$39,$00,NORMAL,$FF,10 +db BUBBLE ,$46,$14,WATER,$FF,30 +db DIZZY_PUNCH ,$00,$46,NORMAL,$FF,10 +db SPORE ,$20,$00,GRASS,$FF,15 +db FLASH ,$16,$00,NORMAL,$B2,20 +db PSYWAVE ,$29,$01,PSYCHIC,$CC,15 +db SPLASH ,$55,$00,NORMAL,$FF,40 +db ACID_ARMOR ,$33,$00,POISON,$FF,40 +db CRABHAMMER ,$00,$5A,WATER,$D8,10 +db EXPLOSION ,$07,$AA,NORMAL,$FF,5 +db FURY_SWIPES ,$1D,$12,NORMAL,$CC,15 +db BONEMERANG ,$2C,$32,GROUND,$E5,10 +db REST ,$38,$00,PSYCHIC,$FF,10 +db ROCK_SLIDE ,$00,$4B,ROCK,$E5,10 +db HYPER_FANG ,$1F,$50,NORMAL,$E5,15 +db SHARPEN ,$0A,$00,NORMAL,$FF,30 +db CONVERSION ,$18,$00,NORMAL,$FF,30 +db TRI_ATTACK ,$00,$50,NORMAL,$FF,10 +db SUPER_FANG ,$28,$01,NORMAL,$E5,10 +db SLASH ,$00,$46,NORMAL,$FF,20 +db SUBSTITUTE ,$4F,$00,NORMAL,$FF,10 +db STRUGGLE ,$30,$32,NORMAL,$FF,10 + +INCBIN "baserom.gbc",$383DE,$39884 - $383DE + +ReadAttack: ; 5884 + push hl + push de + push bc + dec a + ld hl,Attacks + ld bc,6 + call AddNTimes + ld de,$CFCC + call CopyData + pop bc + pop de + pop hl + ret + +; trainer data: from 5C53 to 652E +INCBIN "baserom.gbc",$3989B,$39914 - $3989B + +; trainer pic pointers and base money. +dw YoungsterPic +db 0,$15,0 + +dw BugCatcherPic +db 0,$10,0 + +dw LassPic +db 0,$15,0 + +dw SailorPic +db 0,$30,0 + +dw JrTrainerMPic +db 0,$20,0 + +dw JrTrainerFPic +db 0,$20,0 + +dw PokemaniacPic +db 0,$50,0 + +dw SuperNerdPic +db 0,$25,0 + +dw HikerPic +db 0,$35,0 + +dw BikerPic +db 0,$20,0 + +dw BurglarPic +db 0,$90,0 + +dw EngineerPic +db 0,$50,0 + +dw JugglerPic +db 0,$35,0 + +dw FisherPic +db 0,$35,0 + +dw SwimmerPic +db 0,$05,0 + +dw CueBallPic +db 0,$25,0 + +dw GamblerPic +db 0,$70,0 + +dw BeautyPic +db 0,$70,0 + +dw PsychicPic +db 0,$10,0 + +dw RockerPic +db 0,$25,0 + +dw JugglerPic +db 0,$35,0 + +dw TamerPic +db 0,$40,0 + +dw BirdKeeperPic +db 0,$25,0 + +dw BlackbeltPic +db 0,$25,0 + +dw Rival1Pic +db 0,$35,0 + +dw ProfOakPic +db 0,$99,0 + +dw ChiefPic +db 0,$30,0 + +dw ScientistPic +db 0,$50,0 + +dw GiovanniPic +db 0,$99,0 + +dw RocketPic +db 0,$30,0 + +dw CooltrainerMPic +db 0,$35,0 + +dw CooltrainerFPic +db 0,$35,0 + +dw BrunoPic +db 0,$99,0 + +dw BrockPic +db 0,$99,0 + +dw MistyPic +db 0,$99,0 + +dw LtSurgePic +db 0,$99,0 + +dw ErikaPic +db 0,$99,0 + +dw KogaPic +db 0,$99,0 + +dw BlainePic +db 0,$99,0 + +dw SabrinaPic +db 0,$99,0 + +dw GentlemanPic +db 0,$70,0 + +dw Rival2Pic +db 0,$65,0 + +dw Rival3Pic +db 0,$99,0 + +dw LoreleiPic +db 0,$99,0 + +dw ChannelerPic +db 0,$30,0 + +dw AgathaPic +db 0,$99,0 + +dw LancePic +db 0,$99,0 + +TrainerNames: ; 59FF + db "YOUNGSTER@" + db "BUG CATCHER@" + db "LASS@" + db "SAILOR@" + db "JR.TRAINER♂@" + db "JR.TRAINER♀@" + db "POKéMANIAC@" + db "SUPER NERD@" + db "HIKER@" + db "BIKER@" + db "BURGLAR@" + db "ENGINEER@" + db "JUGGLER@" + db "FISHERMAN@" + db "SWIMMER@" + db "CUE BALL@" + db "GAMBLER@" + db "BEAUTY@" + db "PSYCHIC@" + db "ROCKER@" + db "JUGGLER@" + db "TAMER@" + db "BIRD KEEPER@" + db "BLACKBELT@" + db "RIVAL1@" + db "PROF.OAK@" + db "CHIEF@" + db "SCIENTIST@" + db "GIOVANNI@" + db "ROCKET@" + db "COOLTRAINER♂@" + db "COOLTRAINER♀@" + db "BRUNO@" + db "BROCK@" + db "MISTY@" + db "LT.SURGE@" + db "ERIKA@" + db "KOGA@" + db "BLAINE@" + db "SABRINA@" + db "GENTLEMAN@" + db "RIVAL2@" + db "RIVAL3@" + db "LORELEI@" + db "CHANNELER@" + db "AGATHA@" + db "LANCE@" + +INCBIN "baserom.gbc",$39B87,$39C53 - $39B87 + +ReadTrainer: ; 5C53 + +; don't change any moves in a link battle + ld a,[W_ISLINKBATTLE] + and a + ret nz + +; set [W_ENEMYMONCOUNT] to 0, [$D89D] to FF +; XXX first is total enemy pokemon? +; XXX second is species of first pokemon? + ld hl,W_ENEMYMONCOUNT + xor a + ld [hli],a + dec a + ld [hl],a + +; get the pointer to trainer data for this class + ld a,[W_CUROPPONENT] + sub $C9 ; convert value from pokemon to trainer + add a,a + ld hl,TrainerDataPointers + ld c,a + ld b,0 + add hl,bc ; hl points to trainer class + ld a,[hli] + ld h,[hl] + ld l,a + ld a,[W_TRAINERNO] + ld b,a +; At this point b contains the trainer number, +; and hl points to the trainer class. +; Our next task is to iterate through the trainers, +; decrementing b each time, until we get to the right one. +.outer\@ + dec b + jr z,.IterateTrainer +.inner\@ + ld a,[hli] + and a + jr nz,.inner\@ + jr .outer\@ + +; if the first byte of trainer data is FF, +; - each pokemon has a specific level +; (as opposed to the whole team being of the same level) +; - if [W_LONEATTACKNO] != 0, one pokemon on the team has a special move +; else the first byte is the level of every pokemon on the team +.IterateTrainer + ld a,[hli] + cp $FF ; is the trainer special? + jr z,.SpecialTrainer\@ ; if so, check for special attacks + ld [W_CURENEMYLVL],a +.LoopTrainerData\@ + ld a,[hli] + and a ; have we reached the end of the trainer data? + jr z,.FinishUp\@ + ld [$CF91],a ; write species somewhere (XXX why?) + ld a,1 + ld [$CC49],a + push hl + call AddPokemonToParty + pop hl + jr .LoopTrainerData\@ +.SpecialTrainer\@ +; if this code is being run: +; - each pokemon has a specific level +; (as opposed to the whole team being of the same level) +; - if [W_LONEATTACKNO] != 0, one pokemon on the team has a special move + ld a,[hli] + and a ; have we reached the end of the trainer data? + jr z,.AddLoneAttack\@ + ld [W_CURENEMYLVL],a + ld a,[hli] + ld [$CF91],a + ld a,1 + ld [$CC49],a + push hl + call AddPokemonToParty + pop hl + jr .SpecialTrainer\@ +.AddLoneAttack\@ +; does the trainer have a single monster with a different move + ld a,[W_LONEATTACKNO] ; Brock is 01, Misty is 02, Erika is 04, etc + and a + jr z,.AddTeamAttack\@ + dec a + add a,a + ld c,a + ld b,0 + ld hl,LoneAttacks + add hl,bc + ld a,[hli] + ld d,[hl] + ld hl,W_ENEMYMON1MOVE3 + ld bc,W_ENEMYMON2MOVE3 - W_ENEMYMON1MOVE3 + call AddNTimes + ld [hl],d + jr .FinishUp\@ +.AddTeamAttack\@ +; check if our trainer's team has special moves + +; get trainer class number + ld a,[$D059] + sub $C8 + ld b,a + ld hl,TeamAttacks + +; iterate through entries in TeamAttacks, checking each for our trainer class +.IterateTeamAttacks\@ + ld a,[hli] + cp b + jr z,.GiveTeamAttacks\@ ; is there a match? + inc hl ; if not, go to the next entry + inc a + jr nz,.IterateTeamAttacks\@ + + ; no matches found. is this trainer champion rival? + ld a,b + cp SONY3 + jr z,.ChampionRival\@ + jr .FinishUp\@ ; nope +.GiveTeamAttacks\@ + ld a,[hl] + ld [$D95E],a + jr .FinishUp\@ +.ChampionRival\@ ; give attacks to his team + +; pidgeot + ld a,SKY_ATTACK + ld [W_ENEMYMON1MOVE3],a + +; starter + ld a,[W_RIVALSTARTER] + cp BULBASAUR + ld b,MEGA_DRAIN + jr z,.GiveStarterMove\@ + cp CHARMANDER + ld b,FIRE_BLAST + jr z,.GiveStarterMove\@ + ld b,BLIZZARD ; must be squirtle +.GiveStarterMove\@ + ld a,b + ld [W_ENEMYMON6MOVE3],a +.FinishUp\@ ; XXX this needs documenting + xor a ; clear D079-D07B + ld de,$D079 + ld [de],a + inc de + ld [de],a + inc de + ld [de],a + ld a,[W_CURENEMYLVL] + ld b,a +.LastLoop\@ + ld hl,$D047 + ld c,2 + push bc + ld a,$B + call Predef + pop bc + inc de + inc de + dec b + jr nz,.LastLoop\@ + ret + +LoneAttacks: ; 5D22 +; these are used for gym leaders. +; this is not automatic! you have to write the number you want to W_LONEATTACKNO +; first. e.g., erika's script writes 4 to W_LONEATTACKNO to get mega drain, +; the fourth entry in the list. + +; first byte: pokemon in the trainer's party that gets the move +; second byte: move +; unterminated + db 1,BIDE + db 1,BUBBLEBEAM + db 2,THUNDERBOLT + db 2,MEGA_DRAIN + db 3,TOXIC + db 3,PSYWAVE + db 3,FIRE_BLAST + db 4,FISSURE + +TeamAttacks: ; 5D32 +; these are used for elite four. +; this is automatic, based on trainer class. +; don't be confused by LoneAttacks above, the two data structures are + ; _completely_ unrelated. + +; first byte: trainer (all trainers in this class have this move) +; second byte: move +; ff-terminated + db LORELEI,BLIZZARD + db BRUNO,FISSURE + db AGATHA,TOXIC + db LANCE,BARRIER + db $FF + +TrainerDataPointers: ; 5D3B + dw YoungsterData,BugCatcherData,LassData,SailorData,JrTrainerMData + dw JrTrainerFData,PokemaniacData,SuperNerdData,HikerData,BikerData + dw BurglarData,EngineerData,Juggler1Data,FisherData,SwimmerData + dw CueBallData,GamblerData,BeautyData,PsychicData,RockerData + dw JugglerData,TamerData,BirdKeeperData,BlackbeltData,Green1Data + dw ProfOakData,ChiefData,ScientistData,GiovanniData,RocketData + dw CooltrainerMData,CooltrainerFData,BrunoData,BrockData,MistyData + dw LtSurgeData,ErikaData,KogaData,BlaineData,SabrinaData + dw GentlemanData,Green2Data,Green3Data,LoreleiData,ChannelerData + dw AgathaData,LanceData + +; if first byte != FF, then + ; first byte is level (of all pokemon on this team) + ; all the next bytes are pokemon species + ; null-terminated +; if first byte == FF, then + ; first byte is FF (obviously) + ; every next two bytes are a level and species + ; null-terminated + +YoungsterData: + db 11,RATTATA,EKANS,0 + db 14,SPEAROW,0 + db 10,RATTATA,RATTATA,ZUBAT,0 + db 14,RATTATA,EKANS,ZUBAT,0 + db 15,RATTATA,SPEAROW,0 + db 17,SLOWPOKE,0 + db 14,EKANS,SANDSHREW,0 + db 21,NIDORAN_M,0 + db 21,EKANS,0 + db 19,SANDSHREW,ZUBAT,0 + db 17,RATTATA,RATTATA,RATICATE,0 + db 18,NIDORAN_M,NIDORINO,0 + db 17,SPEAROW,RATTATA,RATTATA,SPEAROW,0 +BugCatcherData: + db 6,WEEDLE,CATERPIE,0 + db 7,WEEDLE,KAKUNA,WEEDLE,0 + db 9,WEEDLE,0 + db 10,CATERPIE,WEEDLE,CATERPIE,0 + db 9,WEEDLE,KAKUNA,CATERPIE,METAPOD,0 + db 11,CATERPIE,METAPOD,0 + db 11,WEEDLE,KAKUNA,0 + db 10,CATERPIE,METAPOD,CATERPIE,0 + db 14,CATERPIE,WEEDLE,0 + db 16,WEEDLE,CATERPIE,WEEDLE,0 + db 20,BUTTERFREE,0 + db 18,METAPOD,CATERPIE,VENONAT,0 + db 19,BEEDRILL,BEEDRILL,0 + db 20,CATERPIE,WEEDLE,VENONAT,0 +LassData: + db 9,PIDGEY,PIDGEY,0 + db 10,RATTATA,NIDORAN_M,0 + db 14,JIGGLYPUFF,0 + db 31,PARAS,PARAS,PARASECT,0 + db 11,ODDISH,BELLSPROUT,0 + db 14,CLEFAIRY,0 + db 16,PIDGEY,NIDORAN_F,0 + db 14,PIDGEY,NIDORAN_F,0 + db 15,NIDORAN_M,NIDORAN_F,0 + db 13,ODDISH,PIDGEY,ODDISH,0 + db 18,PIDGEY,NIDORAN_F,0 + db 18,RATTATA,PIKACHU,0 + db 23,NIDORAN_F,NIDORINA,0 + db 24,MEOWTH,MEOWTH,MEOWTH,0 + db 19,PIDGEY,RATTATA,NIDORAN_M,MEOWTH,PIKACHU,0 + db 22,CLEFAIRY,CLEFAIRY,0 + db 23,BELLSPROUT,WEEPINBELL,0 + db 23,ODDISH,GLOOM,0 +SailorData: + db 18,MACHOP,SHELLDER,0 + db 17,MACHOP,TENTACOOL,0 + db 21,SHELLDER,0 + db 17,HORSEA,SHELLDER,TENTACOOL,0 + db 18,TENTACOOL,STARYU,0 + db 17,HORSEA,HORSEA,HORSEA,0 + db 20,MACHOP,0 + db 21,PIKACHU,PIKACHU,0 +JrTrainerMData: + db 11,DIGLETT,SANDSHREW,0 + db 14,RATTATA,EKANS,0 + db 18,MANKEY,0 + db 20,SQUIRTLE,0 + db 16,SPEAROW,RATICATE,0 + db 18,DIGLETT,DIGLETT,SANDSHREW,0 + db 21,GROWLITHE,CHARMANDER,0 + db 19,RATTATA,DIGLETT,EKANS,SANDSHREW,0 + db 29,NIDORAN_M,NIDORINO,0 +JrTrainerFData: + db 19,GOLDEEN,0 + db 16,RATTATA,PIKACHU,0 + db 16,PIDGEY,PIDGEY,PIDGEY,0 + db 22,BULBASAUR,0 + db 18,ODDISH,BELLSPROUT,ODDISH,BELLSPROUT,0 + db 23,MEOWTH,0 + db 20,PIKACHU,CLEFAIRY,0 + db 21,PIDGEY,PIDGEOTTO,0 + db 21,JIGGLYPUFF,PIDGEY,MEOWTH,0 + db 22,ODDISH,BULBASAUR,0 + db 24,BULBASAUR,IVYSAUR,0 + db 24,PIDGEY,MEOWTH,RATTATA,PIKACHU,MEOWTH,0 + db 30,POLIWAG,POLIWAG,0 + db 27,PIDGEY,MEOWTH,PIDGEY,PIDGEOTTO,0 + db 28,GOLDEEN,POLIWAG,HORSEA,0 + db 31,GOLDEEN,SEAKING,0 + db 22,BELLSPROUT,CLEFAIRY,0 + db 20,MEOWTH,ODDISH,PIDGEY,0 + db 19,PIDGEY,RATTATA,RATTATA,BELLSPROUT,0 + db 28,GLOOM,ODDISH,ODDISH,0 + db 29,PIKACHU,RAICHU,0 + db 33,CLEFAIRY,0 + db 29,BELLSPROUT,ODDISH,TANGELA,0 + db 30,TENTACOOL,HORSEA,SEEL,0 +PokemaniacData: + db 30,RHYHORN,LICKITUNG,0 + db 20,CUBONE,SLOWPOKE,0 + db 20,SLOWPOKE,SLOWPOKE,SLOWPOKE,0 + db 22,CHARMANDER,CUBONE,0 + db 25,SLOWPOKE,0 + db 40,CHARMELEON,LAPRAS,LICKITUNG,0 + db 23,CUBONE,SLOWPOKE,0 +SuperNerdData: + db 11,MAGNEMITE,VOLTORB,0 + db 12,GRIMER,VOLTORB,KOFFING,0 + db 20,VOLTORB,KOFFING,VOLTORB,MAGNEMITE,0 + db 22,GRIMER,MUK,GRIMER,0 + db 26,KOFFING,0 + db 22,KOFFING,MAGNEMITE,WEEZING,0 + db 20,MAGNEMITE,MAGNEMITE,KOFFING,MAGNEMITE,0 + db 24,MAGNEMITE,VOLTORB,0 + db 36,VULPIX,VULPIX,NINETALES,0 + db 34,PONYTA,CHARMANDER,VULPIX,GROWLITHE,0 + db 41,RAPIDASH,0 + db 37,GROWLITHE,VULPIX,0 +HikerData: + db 10,GEODUDE,GEODUDE,ONIX,0 + db 15,MACHOP,GEODUDE,0 + db 13,GEODUDE,GEODUDE,MACHOP,GEODUDE,0 + db 17,ONIX,0 + db 21,GEODUDE,ONIX,0 + db 20,GEODUDE,MACHOP,GEODUDE,0 + db 21,GEODUDE,ONIX,0 + db 19,ONIX,GRAVELER,0 + db 21,GEODUDE,GEODUDE,GRAVELER,0 + db 25,GEODUDE,0 + db 20,MACHOP,ONIX,0 + db 19,GEODUDE,MACHOP,GEODUDE,GEODUDE,0 + db 20,ONIX,ONIX,GEODUDE,0 + db 21,GEODUDE,GRAVELER,0 +BikerData: + db 28,KOFFING,KOFFING,KOFFING,0 + db 29,KOFFING,GRIMER,0 + db 25,KOFFING,KOFFING,WEEZING,KOFFING,GRIMER,0 + db 28,KOFFING,GRIMER,WEEZING,0 + db 29,GRIMER,KOFFING,0 + db 33,WEEZING,0 + db 26,GRIMER,GRIMER,GRIMER,GRIMER,0 + db 28,WEEZING,KOFFING,WEEZING,0 + db 33,MUK,0 + db 29,VOLTORB,VOLTORB,0 + db 29,WEEZING,MUK,0 + db 25,KOFFING,WEEZING,KOFFING,KOFFING,WEEZING,0 + db 26,KOFFING,KOFFING,GRIMER,KOFFING,0 + db 28,GRIMER,GRIMER,KOFFING,0 + db 29,KOFFING,MUK,0 +BurglarData: + db 29,GROWLITHE,VULPIX,0 + db 33,GROWLITHE,0 + db 28,VULPIX,CHARMANDER,PONYTA,0 + db 36,GROWLITHE,VULPIX,NINETALES,0 + db 41,PONYTA,0 + db 37,VULPIX,GROWLITHE,0 + db 34,CHARMANDER,CHARMELEON,0 + db 38,NINETALES,0 + db 34,GROWLITHE,PONYTA,0 +EngineerData: + db 21,VOLTORB,MAGNEMITE,0 + db 21,MAGNEMITE,0 + db 18,MAGNEMITE,MAGNEMITE,MAGNETON,0 +Juggler1Data: +; none +FisherData: + db 17,GOLDEEN,TENTACOOL,GOLDEEN,0 + db 17,TENTACOOL,STARYU,SHELLDER,0 + db 22,GOLDEEN,POLIWAG,GOLDEEN,0 + db 24,TENTACOOL,GOLDEEN,0 + db 27,GOLDEEN,0 + db 21,POLIWAG,SHELLDER,GOLDEEN,HORSEA,0 + db 28,SEAKING,GOLDEEN,SEAKING,SEAKING,0 + db 31,SHELLDER,CLOYSTER,0 + db 27,MAGIKARP,MAGIKARP,MAGIKARP,MAGIKARP,MAGIKARP,MAGIKARP,0 + db 33,SEAKING,GOLDEEN,0 + db 24,MAGIKARP,MAGIKARP,0 +SwimmerData: + db 16,HORSEA,SHELLDER,0 + db 30,TENTACOOL,SHELLDER,0 + db 29,GOLDEEN,HORSEA,STARYU,0 + db 30,POLIWAG,POLIWHIRL,0 + db 27,HORSEA,TENTACOOL,TENTACOOL,GOLDEEN,0 + db 29,GOLDEEN,SHELLDER,SEAKING,0 + db 30,HORSEA,HORSEA,0 + db 27,TENTACOOL,TENTACOOL,STARYU,HORSEA,TENTACRUEL,0 + db 31,SHELLDER,CLOYSTER,0 + db 35,STARYU,0 + db 28,HORSEA,HORSEA,SEADRA,HORSEA,0 + db 33,SEADRA,TENTACRUEL,0 + db 37,STARMIE,0 + db 33,STARYU,WARTORTLE,0 + db 32,POLIWHIRL,TENTACOOL,SEADRA,0 +CueBallData: + db 28,MACHOP,MANKEY,MACHOP,0 + db 29,MANKEY,MACHOP,0 + db 33,MACHOP,0 + db 29,MANKEY,PRIMEAPE,0 + db 29,MACHOP,MACHOKE,0 + db 33,MACHOKE,0 + db 26,MANKEY,MANKEY,MACHOKE,MACHOP,0 + db 29,PRIMEAPE,MACHOKE,0 + db 31,TENTACOOL,TENTACOOL,TENTACRUEL,0 +GamblerData: + db 18,POLIWAG,HORSEA,0 + db 18,BELLSPROUT,ODDISH,0 + db 18,VOLTORB,MAGNEMITE,0 + db 18,GROWLITHE,VULPIX,0 + db 22,POLIWAG,POLIWAG,POLIWHIRL,0 + db 22,ONIX,GEODUDE,GRAVELER,0 + db 24,GROWLITHE,VULPIX,0 +BeautyData: + db 21,ODDISH,BELLSPROUT,ODDISH,BELLSPROUT,0 + db 24,BELLSPROUT,BELLSPROUT,0 + db 26,EXEGGCUTE,0 + db 27,RATTATA,PIKACHU,RATTATA,0 + db 29,CLEFAIRY,MEOWTH,0 + db 35,SEAKING,0 + db 30,SHELLDER,SHELLDER,CLOYSTER,0 + db 31,POLIWAG,SEAKING,0 + db 29,PIDGEOTTO,WIGGLYTUFF,0 + db 29,BULBASAUR,IVYSAUR,0 + db 33,WEEPINBELL,BELLSPROUT,WEEPINBELL,0 + db 27,POLIWAG,GOLDEEN,SEAKING,GOLDEEN,POLIWAG,0 + db 30,GOLDEEN,SEAKING,0 + db 29,STARYU,STARYU,STARYU,0 + db 30,SEADRA,HORSEA,SEADRA,0 +PsychicData: + db 31,KADABRA,SLOWPOKE,MR_MIME,KADABRA,0 + db 34,MR_MIME,KADABRA,0 + db 33,SLOWPOKE,SLOWPOKE,SLOWBRO,0 + db 38,SLOWBRO,0 +RockerData: + db 20,VOLTORB,MAGNEMITE,VOLTORB,0 + db 29,VOLTORB,ELECTRODE,0 +JugglerData: + db 29,KADABRA,MR_MIME,0 + db 41,DROWZEE,HYPNO,KADABRA,KADABRA,0 + db 31,DROWZEE,DROWZEE,KADABRA,DROWZEE,0 + db 34,DROWZEE,HYPNO,0 + db 48,MR_MIME,0 + db 33,HYPNO,0 + db 38,HYPNO,0 + db 34,DROWZEE,KADABRA,0 +TamerData: + db 34,SANDSLASH,ARBOK,0 + db 33,ARBOK,SANDSLASH,ARBOK,0 + db 43,RHYHORN,0 + db 39,ARBOK,TAUROS,0 + db 44,PERSIAN,GOLDUCK,0 + db 42,RHYHORN,PRIMEAPE,ARBOK,TAUROS,0 +BirdKeeperData: + db 29,PIDGEY,PIDGEOTTO,0 + db 25,SPEAROW,PIDGEY,PIDGEY,SPEAROW,SPEAROW,0 + db 26,PIDGEY,PIDGEOTTO,SPEAROW,FEAROW,0 + db 33,FARFETCH_D,0 + db 29,SPEAROW,FEAROW,0 + db 26,PIDGEOTTO,FARFETCH_D,DODUO,PIDGEY,0 + db 28,DODRIO,DODUO,DODUO,0 + db 29,SPEAROW,FEAROW,0 + db 34,DODRIO,0 + db 26,SPEAROW,SPEAROW,FEAROW,SPEAROW,0 + db 30,FEAROW,FEAROW,PIDGEOTTO,0 + db 39,PIDGEOTTO,PIDGEOTTO,PIDGEY,PIDGEOTTO,0 + db 42,FARFETCH_D,FEAROW,0 + db 28,PIDGEY,DODUO,PIDGEOTTO,0 + db 26,PIDGEY,SPEAROW,PIDGEY,FEAROW,0 + db 29,PIDGEOTTO,FEAROW,0 + db 28,SPEAROW,DODUO,FEAROW,0 +BlackbeltData: + db 37,HITMONLEE,HITMONCHAN,0 + db 31,MANKEY,MANKEY,PRIMEAPE,0 + db 32,MACHOP,MACHOKE,0 + db 36,PRIMEAPE,0 + db 31,MACHOP,MANKEY,PRIMEAPE,0 + db 40,MACHOP,MACHOKE,0 + db 43,MACHOKE,0 + db 38,MACHOKE,MACHOP,MACHOKE,0 + db 43,MACHOKE,MACHOP,MACHOKE,0 +Green1Data: + db 5,SQUIRTLE,0 + db 5,BULBASAUR,0 + db 5,CHARMANDER,0 + db $FF,9,PIDGEY,8,SQUIRTLE,0 + db $FF,9,PIDGEY,8,BULBASAUR,0 + db $FF,9,PIDGEY,8,CHARMANDER,0 + db $FF,18,PIDGEOTTO,15,ABRA,15,RATTATA,17,SQUIRTLE,0 + db $FF,18,PIDGEOTTO,15,ABRA,15,RATTATA,17,BULBASAUR,0 + db $FF,18,PIDGEOTTO,15,ABRA,15,RATTATA,17,CHARMANDER,0 +ProfOakData: + db $FF,66,TAUROS,67,EXEGGUTOR,68,ARCANINE,69,BLASTOISE,70,GYARADOS,0 + db $FF,66,TAUROS,67,EXEGGUTOR,68,ARCANINE,69,VENUSAUR,70,GYARADOS,0 + db $FF,66,TAUROS,67,EXEGGUTOR,68,ARCANINE,69,CHARIZARD,70,GYARADOS,0 +ChiefData: +; none +ScientistData: + db 34,KOFFING,VOLTORB,0 + db 26,GRIMER,WEEZING,KOFFING,WEEZING,0 + db 28,MAGNEMITE,VOLTORB,MAGNETON,0 + db 29,ELECTRODE,WEEZING,0 + db 33,ELECTRODE,0 + db 26,MAGNETON,KOFFING,WEEZING,MAGNEMITE,0 + db 25,VOLTORB,KOFFING,MAGNETON,MAGNEMITE,KOFFING,0 + db 29,ELECTRODE,MUK,0 + db 29,GRIMER,ELECTRODE,0 + db 28,VOLTORB,KOFFING,MAGNETON,0 + db 29,MAGNEMITE,KOFFING,0 + db 33,MAGNEMITE,MAGNETON,VOLTORB,0 + db 34,MAGNEMITE,ELECTRODE,0 +GiovanniData: + db $FF,25,ONIX,24,RHYHORN,29,KANGASKHAN,0 + db $FF,37,NIDORINO,35,KANGASKHAN,37,RHYHORN,41,NIDOQUEEN,0 + db $FF,45,RHYHORN,42,DUGTRIO,44,NIDOQUEEN,45,NIDOKING,50,RHYDON,0 +RocketData: + db 13,RATTATA,ZUBAT,0 + db 11,SANDSHREW,RATTATA,ZUBAT,0 + db 12,ZUBAT,EKANS,0 + db 16,RATICATE,0 + db 17,MACHOP,DROWZEE,0 + db 15,EKANS,ZUBAT,0 + db 20,RATICATE,ZUBAT,0 + db 21,DROWZEE,MACHOP,0 + db 21,RATICATE,RATICATE,0 + db 20,GRIMER,KOFFING,KOFFING,0 + db 19,RATTATA,RATICATE,RATICATE,RATTATA,0 + db 22,GRIMER,KOFFING,0 + db 17,ZUBAT,KOFFING,GRIMER,ZUBAT,RATICATE,0 + db 20,RATTATA,RATICATE,DROWZEE,0 + db 21,MACHOP,MACHOP,0 + db 23,SANDSHREW,EKANS,SANDSLASH,0 + db 23,EKANS,SANDSHREW,ARBOK,0 + db 21,KOFFING,ZUBAT,0 + db 25,ZUBAT,ZUBAT,GOLBAT,0 + db 26,KOFFING,DROWZEE,0 + db 23,ZUBAT,RATTATA,RATICATE,ZUBAT,0 + db 26,DROWZEE,KOFFING,0 + db 29,CUBONE,ZUBAT,0 + db 25,GOLBAT,ZUBAT,ZUBAT,RATICATE,ZUBAT,0 + db 28,RATICATE,HYPNO,RATICATE,0 + db 29,MACHOP,DROWZEE,0 + db 28,EKANS,ZUBAT,CUBONE,0 + db 33,ARBOK,0 + db 33,HYPNO,0 + db 29,MACHOP,MACHOKE,0 + db 28,ZUBAT,ZUBAT,GOLBAT,0 + db 26,RATICATE,ARBOK,KOFFING,GOLBAT,0 + db 29,CUBONE,CUBONE,0 + db 29,SANDSHREW,SANDSLASH,0 + db 26,RATICATE,ZUBAT,GOLBAT,RATTATA,0 + db 28,WEEZING,GOLBAT,KOFFING,0 + db 28,DROWZEE,GRIMER,MACHOP,0 + db 28,GOLBAT,DROWZEE,HYPNO,0 + db 33,MACHOKE,0 + db 25,RATTATA,RATTATA,ZUBAT,RATTATA,EKANS,0 + db 32,CUBONE,DROWZEE,MAROWAK,0 +CooltrainerMData: + db 39,NIDORINO,NIDOKING,0 + db 43,EXEGGUTOR,CLOYSTER,ARCANINE,0 + db 43,KINGLER,TENTACRUEL,BLASTOISE,0 + db 45,KINGLER,STARMIE,0 + db 42,IVYSAUR,WARTORTLE,CHARMELEON,CHARIZARD,0 + db 44,IVYSAUR,WARTORTLE,CHARMELEON,0 + db 49,NIDOKING,0 + db 44,KINGLER,CLOYSTER,0 + db 39,SANDSLASH,DUGTRIO,0 + db 43,RHYHORN,0 +CooltrainerFData: + db 24,WEEPINBELL,GLOOM,IVYSAUR,0 + db 43,BELLSPROUT,WEEPINBELL,VICTREEBEL,0 + db 43,PARASECT,DEWGONG,CHANSEY,0 + db 46,VILEPLUME,BUTTERFREE,0 + db 44,PERSIAN,NINETALES,0 + db 45,IVYSAUR,VENUSAUR,0 + db 45,NIDORINA,NIDOQUEEN,0 + db 43,PERSIAN,NINETALES,RAICHU,0 +BrunoData: + db $FF,53,ONIX,55,HITMONCHAN,55,HITMONLEE,56,ONIX,58,MACHAMP,0 +BrockData: + db $FF,12,GEODUDE,14,ONIX,0 +MistyData: + db $FF,18,STARYU,21,STARMIE,0 +LtSurgeData: + db $FF,21,VOLTORB,18,PIKACHU,24,RAICHU,0 +ErikaData: + db $FF,29,VICTREEBEL,24,TANGELA,29,VILEPLUME,0 +KogaData: + db $FF,37,KOFFING,39,MUK,37,KOFFING,43,WEEZING,0 +BlaineData: + db $FF,42,GROWLITHE,40,PONYTA,42,RAPIDASH,47,ARCANINE,0 +SabrinaData: + db $FF,38,KADABRA,37,MR_MIME,38,VENOMOTH,43,ALAKAZAM,0 +GentlemanData: + db 18,GROWLITHE,GROWLITHE,0 + db 19,NIDORAN_M,NIDORAN_F,0 + db 23,PIKACHU,0 + db 48,PRIMEAPE,0 + db 17,GROWLITHE,PONYTA,0 +Green2Data: + db $FF,19,PIDGEOTTO,16,RATICATE,18,KADABRA,20,WARTORTLE,0 + db $FF,19,PIDGEOTTO,16,RATICATE,18,KADABRA,20,IVYSAUR,0 + db $FF,19,PIDGEOTTO,16,RATICATE,18,KADABRA,20,CHARMELEON,0 + db $FF,25,PIDGEOTTO,23,GROWLITHE,22,EXEGGCUTE,20,KADABRA,25,WARTORTLE,0 + db $FF,25,PIDGEOTTO,23,GYARADOS,22,GROWLITHE,20,KADABRA,25,IVYSAUR,0 + db $FF,25,PIDGEOTTO,23,EXEGGCUTE,22,GYARADOS,20,KADABRA,25,CHARMELEON,0 + db $FF,37,PIDGEOT,38,GROWLITHE,35,EXEGGCUTE,35,ALAKAZAM,40,BLASTOISE,0 + db $FF,37,PIDGEOT,38,GYARADOS,35,GROWLITHE,35,ALAKAZAM,40,VENUSAUR,0 + db $FF,37,PIDGEOT,38,EXEGGCUTE,35,GYARADOS,35,ALAKAZAM,40,CHARIZARD,0 + db $FF,47,PIDGEOT,45,RHYHORN,45,GROWLITHE,47,EXEGGCUTE,50,ALAKAZAM ;\ + db 53,BLASTOISE,0 + db $FF,47,PIDGEOT,45,RHYHORN,45,GYARADOS,47,GROWLITHE,50,ALAKAZAM ;\ + db 53,VENUSAUR,0 + db $FF,47,PIDGEOT,45,RHYHORN,45,EXEGGCUTE,47,GYARADOS,50,ALAKAZAM ;\ + db 53,CHARIZARD,0 +Green3Data: + db $FF,61,PIDGEOT,59,ALAKAZAM,61,RHYDON,61,ARCANINE,63,EXEGGUTOR ;\ + db 65,BLASTOISE,0 + db $FF,61,PIDGEOT,59,ALAKAZAM,61,RHYDON,61,GYARADOS,63,ARCANINE ;\ + db 65,VENUSAUR,0 + db $FF,61,PIDGEOT,59,ALAKAZAM,61,RHYDON,61,EXEGGUTOR,63,GYARADOS ;\ + db 65,CHARIZARD,0 +LoreleiData: + db $FF,54,DEWGONG,53,CLOYSTER,54,SLOWBRO,56,JYNX,56,LAPRAS,0 +ChannelerData: + db 22,GASTLY,0 + db 24,GASTLY,0 + db 23,GASTLY,GASTLY,0 + db 24,GASTLY,0 + db 23,GASTLY,0 + db 24,GASTLY,0 + db 24,HAUNTER,0 + db 22,GASTLY,0 + db 24,GASTLY,0 + db 23,GASTLY,GASTLY,0 + db 24,GASTLY,0 + db 22,GASTLY,0 + db 24,GASTLY,0 + db 23,HAUNTER,0 + db 24,GASTLY,0 + db 22,GASTLY,0 + db 24,GASTLY,0 + db 22,HAUNTER,0 + db 22,GASTLY,GASTLY,GASTLY,0 + db 24,GASTLY,0 + db 24,GASTLY,0 + db 34,GASTLY,HAUNTER,0 + db 38,HAUNTER,0 + db 33,GASTLY,GASTLY,HAUNTER,0 +AgathaData: + db $FF,56,GENGAR,56,GOLBAT,55,HAUNTER,58,ARBOK,60,GENGAR,0 +LanceData: + db $FF,58,GYARADOS,56,DRAGONAIR,56,DRAGONAIR,60,AERODACTYL ;\ + db 62,DRAGONITE,0 + +TrainerAI: ; 652E +;XXX called at 34964, 3c342, 3c398 + and a + ld a,[W_ISINBATTLE] + dec a + ret z ; if not a trainer, we're done here + ld a,[W_ISLINKBATTLE] + cp 4 + ret z + ld a,[W_TRAINERCLASS] ; what trainer class is this? + dec a + ld c,a + ld b,0 + ld hl,TrainerAIPointers + add hl,bc + add hl,bc + add hl,bc + ld a,[W_AICOUNT] + and a + ret z ; if no AI uses left, we're done here + inc hl + inc a + jr nz,.getpointer\@ + dec hl + ld a,[hli] + ld [W_AICOUNT],a +.getpointer\@ + ld a,[hli] + ld h,[hl] + ld l,a + call GenRandom + jp [hl] + +TrainerAIPointers: ; 655C +; one entry per trainer class +; first byte, number of times (per Pokémon) it can occur +; next two bytes, pointer to AI subroutine for trainer class + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,JugglerAI ; juggler_x + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,GenericAI + dbw 3,JugglerAI ; juggler + dbw 3,GenericAI + dbw 3,GenericAI + dbw 2,BlackbeltAI ; blackbelt + dbw 3,GenericAI + dbw 3,GenericAI + dbw 1,GenericAI ; chief + dbw 3,GenericAI + dbw 1,GiovanniAI ; giovanni + dbw 3,GenericAI + dbw 2,CooltrainerMAI ; cooltrainerm + dbw 1,CooltrainerFAI ; cooltrainerf + dbw 2,BrunoAI ; bruno + dbw 5,BrockAI ; brock + dbw 1,MistyAI ; misty + dbw 1,LtSurgeAI ; surge + dbw 1,ErikaAI ; erika + dbw 2,KogaAI ; koga + dbw 2,BlaineAI ; blaine + dbw 1,SabrinaAI ; sabrina + dbw 3,GenericAI + dbw 1,Sony2AI ; sony2 + dbw 1,Sony3AI ; sony3 + dbw 2,LoreleiAI ; lorelei + dbw 3,GenericAI + dbw 2,AgathaAI ; agatha + dbw 1,LanceAI ; lance + +JugglerAI: + cp $40 + ret nc + jp $672A + +BlackbeltAI: + cp $20 + ret nc + jp AIUseXAttack + +GiovanniAI: + cp $40 + ret nc + jp AIUseGuardSpec + +CooltrainerMAI: + cp $40 + ret nc + jp AIUseXAttack + +CooltrainerFAI: + cp $40 + ld a,$A + call $67CF + jp c,AIUseHyperPotion + ld a,5 + call $67CF + ret nc + jp $672A + +BrockAI: +; if his active monster has a status condition, use a full heal + ld a,[W_OPPONENTSTATUS] + and a + ret z + jp AIUseFullHeal + +MistyAI: + cp $40 + ret nc + jp AIUseXDefend + +LtSurgeAI: + cp $40 + ret nc + jp AIUseXSpeed + +ErikaAI: + cp $80 + ret nc + ld a,$A + call $67CF + ret nc + jp AIUseSuperPotion + +KogaAI: + cp $40 + ret nc + jp AIUseXAttack + +BlaineAI: + cp $40 + ret nc + jp AIUseSuperPotion + +SabrinaAI: + cp $40 + ret nc + ld a,$A + call $67CF + ret nc + jp AIUseHyperPotion + +Sony2AI: + cp $20 + ret nc + ld a,5 + call $67CF + ret nc + jp AIUsePotion + +Sony3AI: + cp $20 + ret nc + ld a,5 + call $67CF + ret nc + jp AIUseFullRestore + +LoreleiAI: + cp $80 + ret nc + ld a,5 + call $67CF + ret nc + jp AIUseSuperPotion + +BrunoAI: + cp $40 + ret nc + jp AIUseXDefend + +AgathaAI: + cp $14 + jp c,$672A + cp $80 + ret nc + ld a,4 + call $67CF + ret nc + jp AIUseSuperPotion + +LanceAI: + cp $80 + ret nc + ld a,5 + call $67CF + ret nc + jp AIUseHyperPotion + +GenericAI: + and a ; clear carry + ret + +; end of individual trainer AI routines + +DecrementAICount: ; 6695 + ld hl,W_AICOUNT + dec [hl] + scf + ret + +Function669B: ; 669B +; XXX what does this do + ld a,$8E + jp $3740 + +AIUseFullRestore: + call AICureStatus + ld a,FULL_RESTORE + ld [$CF05],a + ld de,$CEEB + ld hl,$CFE7 + ld a,[hld] + ld [de],a + inc de + ld a,[hl] + ld [de],a + inc de + ld hl,$CFF5 + ld a,[hld] + ld [de],a + inc de + ld [$CEE9],a + ld [$CFE7],a + ld a,[hl] + ld [de],a + ld [$CEEA],a + ld [W_OPPONENTHP],a + jr Function6718 + +AIUsePotion: +; enemy trainer heals his monster with a potion + ld a,POTION + ld b,20 + jr AIRecoverHP + +AIUseSuperPotion: +; enemy trainer heals his monster with a super potion + ld a,SUPER_POTION + ld b,50 + jr AIRecoverHP + +AIUseHyperPotion: +; enemy trainer heals his monster with a hyper potion + ld a,HYPER_POTION + ld b,200 + ; fallthrough + +AIRecoverHP: ; 66DA +; heal b HP and print "trainer used $(a) on pokemon!" + ld [$CF05],a + ld hl,$CFE7 + ld a,[hl] + ld [$CEEB],a + add b + ld [hld],a + ld [$CEED],a + ld a,[hl] + ld [$CEEC],a + ld [$CEEE],a + jr nc,.next\@ + inc a + ld [hl],a + ld [$CEEE],a +.next\@ + inc hl + ld a,[hld] + ld b,a + ld de,$CFF5 + ld a,[de] + dec de + ld [$CEE9],a + sub b + ld a,[hli] + ld b,a + ld a,[de] + ld [$CEEA],a + sbc b + jr nc,Function6718 + inc de + ld a,[de] + dec de + ld [hld],a + ld [$CEED],a + ld a,[de] + ld [hl],a + ld [$CEEE],a + ; fallthrough + +Function6718: ; 6718 + call AIPrintItemUse_ + ld hl,$C3CA + xor a + ld [$CF94],a + ld a,$48 + call Predef + jp DecrementAICount + +Function672A: ; 672A + ld a,[W_ENEMYMONCOUNT] + ld c,a + ld hl,W_ENEMYMON1HP + + ld d,0 ; keep count of unfainted monsters + + ; count how many monsters haven't fainted yet +.loop\@ + ld a,[hli] + ld b,a + ld a,[hld] + or b + jr z,.Fainted\@ ; has monster fainted? + inc d +.Fainted\@ + push bc + ld bc,$2C + add hl,bc + pop bc + dec c + jr nz,.loop\@ + + ld a,d ; how many available monsters are there? + cp 2 ; don't bother if only 1 or 2 + jp nc,Function674B ; XXX check, does this jump when a = 2? + and a + ret + +Function674B: ; 674B + +; prepare to withdraw the active monster: copy hp, number, and status to roster + + ld a,[W_OPPONENTNUMBER] + ld hl,W_ENEMYMON1HP + ld bc,$2C + call AddNTimes + ld d,h + ld e,l + ld hl,W_OPPONENTHP + ld bc,4 + call CopyData + + ld hl,AIBattleWithdrawText + call PrintText + + ld a,1 + ld [$D11D],a + ld hl,EnemySendOut + ld b,BANK(EnemySendOut) + call Bankswitch + xor a + ld [$D11D],a + + ld a,[W_ISLINKBATTLE] + cp 4 + ret z + scf + ret + +AIBattleWithdrawText: + TX_FAR _AIBattleWithdrawText + db "@" + +AIUseFullHeal: + call $669B + call AICureStatus + ld a,FULL_HEAL + jp AIPrintItemUse + +AICureStatus: +; cures the status of enemy's active pokemon + ld a,[W_OPPONENTNUMBER] + ld hl,$D8A8 + ld bc,$2C + call AddNTimes + xor a + ld [hl],a ; clear status in enemy team roster + ld [W_OPPONENTSTATUS],a ; clear status of active enemy + ld hl,$D069 + res 0,[hl] + ret + +AIUseXAccuracy: ; unused + call $669B + ld hl,$D068 + set 0,[hl] + ld a,X_ACCURACY + jp AIPrintItemUse + +AIUseGuardSpec: + call $669B + ld hl,$D068 + set 1,[hl] + ld a,GUARD_SPEC_ + jp AIPrintItemUse + +AIUseDireHit: ; unused + call $669B + ld hl,$D068 + set 2,[hl] + ld a,DIRE_HIT + jp AIPrintItemUse + +Function67CF: ; 67CF + ld [$FF99],a + ld hl,$CFF4 + ld a,[hli] + ld [$FF95],a + ld a,[hl] + ld [$FF96],a + ld b,2 + call $38B9 + ld a,[$FF98] + ld c,a + ld a,[$FF97] + ld b,a + ld hl,$CFE7 + ld a,[hld] + ld e,a + ld a,[hl] + ld d,a + ld a,d + sub b + ret nz + ld a,e + sub c + ret + +AIUseXAttack: + ld b,$A + ld a,X_ATTACK + jr AIIncreaseStat + +AIUseXDefend: + ld b,$B + ld a,X_DEFEND + jr AIIncreaseStat + +AIUseXSpeed: + ld b,$C + ld a,X_SPEED + jr AIIncreaseStat + +AIUseXSpecial: + ld b,$D + ld a,X_SPECIAL + ; fallthrough + +AIIncreaseStat: + ld [$CF05],a + push bc + call AIPrintItemUse_ + pop bc + ld hl,$CFCD + ld a,[hld] + push af + ld a,[hl] + push af + push hl + ld a,$AF + ld [hli],a + ld [hl],b + ld hl,$7428 + ld b,$F + call Bankswitch + pop hl + pop af + ld [hli],a + pop af + ld [hl],a + jp DecrementAICount + +AIPrintItemUse: + ld [$CF05],a + call AIPrintItemUse_ + jp DecrementAICount + +AIPrintItemUse_: +; print "x used [$CF05] on z!" + ld a,[$CF05] + ld [$D11E],a + call GetItemName + ld hl,AIBattleUseItemText + jp PrintText + +AIBattleUseItemText: + TX_FAR _AIBattleUseItemText + db "@" + +INCBIN "baserom.gbc",$3A849,$3B05C - $3A849 + +EvosAttacksPointerTable: ; 705C + dw Mon112_EvosAttacks + dw Mon115_EvosAttacks + dw Mon032_EvosAttacks + dw Mon035_EvosAttacks + dw Mon021_EvosAttacks + dw Mon100_EvosAttacks + dw Mon034_EvosAttacks + dw Mon080_EvosAttacks + dw Mon002_EvosAttacks + dw Mon103_EvosAttacks + dw Mon108_EvosAttacks + dw Mon102_EvosAttacks + dw Mon088_EvosAttacks + dw Mon094_EvosAttacks + dw Mon029_EvosAttacks + dw Mon031_EvosAttacks + dw Mon104_EvosAttacks + dw Mon111_EvosAttacks + dw Mon131_EvosAttacks + dw Mon059_EvosAttacks + dw Mon151_EvosAttacks + dw Mon130_EvosAttacks + dw Mon090_EvosAttacks + dw Mon072_EvosAttacks + dw Mon092_EvosAttacks + dw Mon123_EvosAttacks + dw Mon120_EvosAttacks + dw Mon009_EvosAttacks + dw Mon127_EvosAttacks + dw Mon114_EvosAttacks + dw Mon152_EvosAttacks ;MissingNo + dw Mon153_EvosAttacks ;MissingNo + dw Mon058_EvosAttacks + dw Mon095_EvosAttacks + dw Mon022_EvosAttacks + dw Mon016_EvosAttacks + dw Mon079_EvosAttacks + dw Mon064_EvosAttacks + dw Mon075_EvosAttacks + dw Mon113_EvosAttacks + dw Mon067_EvosAttacks + dw Mon122_EvosAttacks + dw Mon106_EvosAttacks + dw Mon107_EvosAttacks + dw Mon024_EvosAttacks + dw Mon047_EvosAttacks + dw Mon054_EvosAttacks + dw Mon096_EvosAttacks + dw Mon076_EvosAttacks + dw Mon154_EvosAttacks ;MissingNo + dw Mon126_EvosAttacks + dw Mon155_EvosAttacks ;MissingNo + dw Mon125_EvosAttacks + dw Mon082_EvosAttacks + dw Mon109_EvosAttacks + dw Mon156_EvosAttacks ;MissingNo + dw Mon056_EvosAttacks + dw Mon086_EvosAttacks + dw Mon050_EvosAttacks + dw Mon128_EvosAttacks + dw Mon157_EvosAttacks ;MissingNo + dw Mon158_EvosAttacks ;MissingNo + dw Mon159_EvosAttacks ;MissingNo + dw Mon083_EvosAttacks + dw Mon048_EvosAttacks + dw Mon149_EvosAttacks + dw Mon160_EvosAttacks ;MissingNo + dw Mon161_EvosAttacks ;MissingNo + dw Mon162_EvosAttacks ;MissingNo + dw Mon084_EvosAttacks + dw Mon060_EvosAttacks + dw Mon124_EvosAttacks + dw Mon146_EvosAttacks + dw Mon144_EvosAttacks + dw Mon145_EvosAttacks + dw Mon132_EvosAttacks + dw Mon052_EvosAttacks + dw Mon098_EvosAttacks + dw Mon163_EvosAttacks ;MissingNo + dw Mon164_EvosAttacks ;MissingNo + dw Mon165_EvosAttacks ;MissingNo + dw Mon037_EvosAttacks + dw Mon038_EvosAttacks + dw Mon025_EvosAttacks + dw Mon026_EvosAttacks + dw Mon166_EvosAttacks ;MissingNo + dw Mon167_EvosAttacks ;MissingNo + dw Mon147_EvosAttacks + dw Mon148_EvosAttacks + dw Mon140_EvosAttacks + dw Mon141_EvosAttacks + dw Mon116_EvosAttacks + dw Mon117_EvosAttacks + dw Mon168_EvosAttacks ;MissingNo + dw Mon169_EvosAttacks ;MissingNo + dw Mon027_EvosAttacks + dw Mon028_EvosAttacks + dw Mon138_EvosAttacks + dw Mon139_EvosAttacks + dw Mon039_EvosAttacks + dw Mon040_EvosAttacks + dw Mon133_EvosAttacks + dw Mon136_EvosAttacks + dw Mon135_EvosAttacks + dw Mon134_EvosAttacks + dw Mon066_EvosAttacks + dw Mon041_EvosAttacks + dw Mon023_EvosAttacks + dw Mon046_EvosAttacks + dw Mon061_EvosAttacks + dw Mon062_EvosAttacks + dw Mon013_EvosAttacks + dw Mon014_EvosAttacks + dw Mon015_EvosAttacks + dw Mon170_EvosAttacks ;MissingNo + dw Mon085_EvosAttacks + dw Mon057_EvosAttacks + dw Mon051_EvosAttacks + dw Mon049_EvosAttacks + dw Mon087_EvosAttacks + dw Mon171_EvosAttacks ;MissingNo + dw Mon172_EvosAttacks ;MissingNo + dw Mon010_EvosAttacks + dw Mon011_EvosAttacks + dw Mon012_EvosAttacks + dw Mon068_EvosAttacks + dw Mon173_EvosAttacks ;MissingNo + dw Mon055_EvosAttacks + dw Mon097_EvosAttacks + dw Mon042_EvosAttacks + dw Mon150_EvosAttacks + dw Mon143_EvosAttacks + dw Mon129_EvosAttacks + dw Mon174_EvosAttacks ;MissingNo + dw Mon175_EvosAttacks ;MissingNo + dw Mon089_EvosAttacks + dw Mon176_EvosAttacks ;MissingNo + dw Mon099_EvosAttacks + dw Mon091_EvosAttacks + dw Mon177_EvosAttacks ;MissingNo + dw Mon101_EvosAttacks + dw Mon036_EvosAttacks + dw Mon110_EvosAttacks + dw Mon053_EvosAttacks + dw Mon105_EvosAttacks + dw Mon178_EvosAttacks ;MissingNo + dw Mon093_EvosAttacks + dw Mon063_EvosAttacks + dw Mon065_EvosAttacks + dw Mon017_EvosAttacks + dw Mon018_EvosAttacks + dw Mon121_EvosAttacks + dw Mon001_EvosAttacks + dw Mon003_EvosAttacks + dw Mon073_EvosAttacks + dw Mon179_EvosAttacks ;MissingNo + dw Mon118_EvosAttacks + dw Mon119_EvosAttacks + dw Mon180_EvosAttacks ;MissingNo + dw Mon181_EvosAttacks ;MissingNo + dw Mon182_EvosAttacks ;MissingNo + dw Mon183_EvosAttacks ;MissingNo + dw Mon077_EvosAttacks + dw Mon078_EvosAttacks + dw Mon019_EvosAttacks + dw Mon020_EvosAttacks + dw Mon033_EvosAttacks + dw Mon030_EvosAttacks + dw Mon074_EvosAttacks + dw Mon137_EvosAttacks + dw Mon142_EvosAttacks + dw Mon184_EvosAttacks ;MissingNo + dw Mon081_EvosAttacks + dw Mon185_EvosAttacks ;MissingNo + dw Mon186_EvosAttacks ;MissingNo + dw Mon004_EvosAttacks + dw Mon007_EvosAttacks + dw Mon005_EvosAttacks + dw Mon008_EvosAttacks + dw Mon006_EvosAttacks + dw Mon187_EvosAttacks ;MissingNo + dw Mon188_EvosAttacks ;MissingNo + dw Mon189_EvosAttacks ;MissingNo + dw Mon190_EvosAttacks ;MissingNo + dw Mon043_EvosAttacks + dw Mon044_EvosAttacks + dw Mon045_EvosAttacks + dw Mon069_EvosAttacks + dw Mon070_EvosAttacks + dw Mon071_EvosAttacks + +Mon112_EvosAttacks: +;RHYDON +;Evolutions + db 0 +;Learnset + db 30,STOMP + db 35,TAIL_WHIP + db 40,FURY_ATTACK + db 48,HORN_DRILL + db 55,LEER + db 64,TAKE_DOWN + db 0 +Mon115_EvosAttacks: +;KANGASKHAN +;Evolutions + db 0 +;Learnset + db 26,BITE + db 31,TAIL_WHIP + db 36,MEGA_PUNCH + db 41,LEER + db 46,DIZZY_PUNCH + db 0 +Mon032_EvosAttacks: +;NIDORAN_M +;Evolutions + db EV_LEVEL,16,NIDORINO + db 0 +;Learnset + db 8,HORN_ATTACK + db 14,POISON_STING + db 21,FOCUS_ENERGY + db 29,FURY_ATTACK + db 36,HORN_DRILL + db 43,DOUBLE_KICK + db 0 +Mon035_EvosAttacks: +;CLEFAIRY +;Evolutions + db EV_ITEM,MOON_STONE,1,CLEFABLE + db 0 +;Learnset + db 13,SING + db 18,DOUBLESLAP + db 24,MINIMIZE + db 31,METRONOME + db 39,DEFENSE_CURL + db 48,LIGHT_SCREEN + db 0 +Mon021_EvosAttacks: +;SPEAROW +;Evolutions + db EV_LEVEL,20,FEAROW + db 0 +;Learnset + db 9,LEER + db 15,FURY_ATTACK + db 22,MIRROR_MOVE + db 29,DRILL_PECK + db 36,AGILITY + db 0 +Mon100_EvosAttacks: +;VOLTORB +;Evolutions + db EV_LEVEL,30,ELECTRODE + db 0 +;Learnset + db 17,SONICBOOM + db 22,SELFDESTRUCT + db 29,LIGHT_SCREEN + db 36,SWIFT + db 43,EXPLOSION + db 0 +Mon034_EvosAttacks: +;NIDOKING +;Evolutions + db 0 +;Learnset + db 8,HORN_ATTACK + db 14,POISON_STING + db 23,THRASH + db 0 +Mon080_EvosAttacks: +;SLOWBRO +;Evolutions + db 0 +;Learnset + db 18,DISABLE + db 22,HEADBUTT + db 27,GROWL + db 33,WATER_GUN + db 37,WITHDRAW + db 44,AMNESIA + db 55,PSYCHIC_M + db 0 +Mon002_EvosAttacks: +;IVYSAUR +;Evolutions + db EV_LEVEL,32,VENUSAUR + db 0 +;Learnset + db 7,LEECH_SEED + db 13,VINE_WHIP + db 22,POISONPOWDER + db 30,RAZOR_LEAF + db 38,GROWTH + db 46,SLEEP_POWDER + db 54,SOLARBEAM + db 0 +Mon103_EvosAttacks: +;EXEGGUTOR +;Evolutions + db 0 +;Learnset + db 28,STOMP + db 0 +Mon108_EvosAttacks: +;LICKITUNG +;Evolutions + db 0 +;Learnset + db 7,STOMP + db 15,DISABLE + db 23,DEFENSE_CURL + db 31,SLAM + db 39,SCREECH + db 0 +Mon102_EvosAttacks: +;EXEGGCUTE +;Evolutions + db EV_ITEM,LEAF_STONE ,1,EXEGGUTOR + db 0 +;Learnset + db 25,REFLECT + db 28,LEECH_SEED + db 32,STUN_SPORE + db 37,POISONPOWDER + db 42,SOLARBEAM + db 48,SLEEP_POWDER + db 0 +Mon088_EvosAttacks: +;GRIMER +;Evolutions + db EV_LEVEL,38,MUK + db 0 +;Learnset + db 30,POISON_GAS + db 33,MINIMIZE + db 37,SLUDGE + db 42,HARDEN + db 48,SCREECH + db 55,ACID_ARMOR + db 0 +Mon094_EvosAttacks: +;GENGAR +;Evolutions + db 0 +;Learnset + db 29,HYPNOSIS + db 38,DREAM_EATER + db 0 +Mon029_EvosAttacks: +;NIDORAN_F +;Evolutions + db EV_LEVEL,16,NIDORINA + db 0 +;Learnset + db 8,SCRATCH + db 14,POISON_STING + db 21,TAIL_WHIP + db 29,BITE + db 36,FURY_SWIPES + db 43,DOUBLE_KICK + db 0 +Mon031_EvosAttacks: +;NIDOQUEEN +;Evolutions + db 0 +;Learnset + db 8,SCRATCH + db 14,POISON_STING + db 23,BODY_SLAM + db 0 +Mon104_EvosAttacks: +;CUBONE +;Evolutions + db EV_LEVEL,28,MAROWAK + db 0 +;Learnset + db 25,LEER + db 31,FOCUS_ENERGY + db 38,THRASH + db 43,BONEMERANG + db 46,RAGE + db 0 +Mon111_EvosAttacks: +;RHYHORN +;Evolutions + db EV_LEVEL,42,RHYDON + db 0 +;Learnset + db 30,STOMP + db 35,TAIL_WHIP + db 40,FURY_ATTACK + db 45,HORN_DRILL + db 50,LEER + db 55,TAKE_DOWN + db 0 +Mon131_EvosAttacks: +;LAPRAS +;Evolutions + db 0 +;Learnset + db 16,SING + db 20,MIST + db 25,BODY_SLAM + db 31,CONFUSE_RAY + db 38,ICE_BEAM + db 46,HYDRO_PUMP + db 0 +Mon059_EvosAttacks: +;ARCANINE +;Evolutions + db 0 +;Learnset + db 0 +Mon151_EvosAttacks: +;MEW +;Evolutions + db 0 +;Learnset + db 10,TRANSFORM + db 20,MEGA_PUNCH + db 30,METRONOME + db 40,PSYCHIC_M + db 0 +Mon130_EvosAttacks: +;GYARADOS +;Evolutions + db 0 +;Learnset + db 20,BITE + db 25,DRAGON_RAGE + db 32,LEER + db 41,HYDRO_PUMP + db 52,HYPER_BEAM + db 0 +Mon090_EvosAttacks: +;SHELLDER +;Evolutions + db EV_ITEM,WATER_STONE ,1,CLOYSTER + db 0 +;Learnset + db 18,SUPERSONIC + db 23,CLAMP + db 30,AURORA_BEAM + db 39,LEER + db 50,ICE_BEAM + db 0 +Mon072_EvosAttacks: +;TENTACOOL +;Evolutions + db EV_LEVEL,30,TENTACRUEL + db 0 +;Learnset + db 7,SUPERSONIC + db 13,WRAP + db 18,POISON_STING + db 22,WATER_GUN + db 27,CONSTRICT + db 33,BARRIER + db 40,SCREECH + db 48,HYDRO_PUMP + db 0 +Mon092_EvosAttacks: +;GASTLY +;Evolutions + db EV_LEVEL,25,HAUNTER + db 0 +;Learnset + db 27,HYPNOSIS + db 35,DREAM_EATER + db 0 +Mon123_EvosAttacks: +;SCYTHER +;Evolutions + db 0 +;Learnset + db 17,LEER + db 20,FOCUS_ENERGY + db 24,DOUBLE_TEAM + db 29,SLASH + db 35,SWORDS_DANCE + db 42,AGILITY + db 0 +Mon120_EvosAttacks: +;STARYU +;Evolutions + db EV_ITEM,WATER_STONE ,1,STARMIE + db 0 +;Learnset + db 17,WATER_GUN + db 22,HARDEN + db 27,RECOVER + db 32,SWIFT + db 37,MINIMIZE + db 42,LIGHT_SCREEN + db 47,HYDRO_PUMP + db 0 +Mon009_EvosAttacks: +;BLASTOISE +;Evolutions + db 0 +;Learnset + db 8,BUBBLE + db 15,WATER_GUN + db 24,BITE + db 31,WITHDRAW + db 42,SKULL_BASH + db 52,HYDRO_PUMP + db 0 +Mon127_EvosAttacks: +;PINSIR +;Evolutions + db 0 +;Learnset + db 25,SEISMIC_TOSS + db 30,GUILLOTINE + db 36,FOCUS_ENERGY + db 43,HARDEN + db 49,SLASH + db 54,SWORDS_DANCE + db 0 +Mon114_EvosAttacks: +;TANGELA +;Evolutions + db 0 +;Learnset + db 29,ABSORB + db 32,POISONPOWDER + db 36,STUN_SPORE + db 39,SLEEP_POWDER + db 45,SLAM + db 49,GROWTH + db 0 + +Mon152_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon153_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon058_EvosAttacks: +;GROWLITHE +;Evolutions + db EV_ITEM,FIRE_STONE,1,ARCANINE + db 0 +;Learnset + db 18,EMBER + db 23,LEER + db 30,TAKE_DOWN + db 39,AGILITY + db 50,FLAMETHROWER + db 0 +Mon095_EvosAttacks: +;ONIX +;Evolutions + db 0 +;Learnset + db 15,BIND + db 19,ROCK_THROW + db 25,RAGE + db 33,SLAM + db 43,HARDEN + db 0 +Mon022_EvosAttacks: +;FEAROW +;Evolutions + db 0 +;Learnset + db 9,LEER + db 15,FURY_ATTACK + db 25,MIRROR_MOVE + db 34,DRILL_PECK + db 43,AGILITY + db 0 +Mon016_EvosAttacks: +;PIDGEY +;Evolutions + db EV_LEVEL,18,PIDGEOTTO + db 0 +;Learnset + db 5,SAND_ATTACK + db 12,QUICK_ATTACK + db 19,WHIRLWIND + db 28,WING_ATTACK + db 36,AGILITY + db 44,MIRROR_MOVE + db 0 +Mon079_EvosAttacks: +;SLOWPOKE +;Evolutions + db EV_LEVEL,37,SLOWBRO + db 0 +;Learnset + db 18,DISABLE + db 22,HEADBUTT + db 27,GROWL + db 33,WATER_GUN + db 40,AMNESIA + db 48,PSYCHIC_M + db 0 +Mon064_EvosAttacks: +;KADABRA +;Evolutions + db EV_TRADE,1,ALAKAZAM + db 0 +;Learnset + db 16,CONFUSION + db 20,DISABLE + db 27,PSYBEAM + db 31,RECOVER + db 38,PSYCHIC_M + db 42,REFLECT + db 0 +Mon075_EvosAttacks: +;GRAVELER +;Evolutions + db EV_TRADE,1,GOLEM + db 0 +;Learnset + db 11,DEFENSE_CURL + db 16,ROCK_THROW + db 21,SELFDESTRUCT + db 29,HARDEN + db 36,EARTHQUAKE + db 43,EXPLOSION + db 0 +Mon113_EvosAttacks: +;CHANSEY +;Evolutions + db 0 +;Learnset + db 24,SING + db 30,GROWL + db 38,MINIMIZE + db 44,DEFENSE_CURL + db 48,LIGHT_SCREEN + db 54,DOUBLE_EDGE + db 0 +Mon067_EvosAttacks: +;MACHOKE +;Evolutions + db EV_TRADE,1,MACHAMP + db 0 +;Learnset + db 20,LOW_KICK + db 25,LEER + db 36,FOCUS_ENERGY + db 44,SEISMIC_TOSS + db 52,SUBMISSION + db 0 +Mon122_EvosAttacks: +;MR_MIME +;Evolutions + db 0 +;Learnset + db 15,CONFUSION + db 23,LIGHT_SCREEN + db 31,DOUBLESLAP + db 39,MEDITATE + db 47,SUBSTITUTE + db 0 +Mon106_EvosAttacks: +;HITMONLEE +;Evolutions + db 0 +;Learnset + db 33,ROLLING_KICK + db 38,JUMP_KICK + db 43,FOCUS_ENERGY + db 48,HI_JUMP_KICK + db 53,MEGA_KICK + db 0 +Mon107_EvosAttacks: +;HITMONCHAN +;Evolutions + db 0 +;Learnset + db 33,FIRE_PUNCH + db 38,ICE_PUNCH + db 43,THUNDERPUNCH + db 48,MEGA_PUNCH + db 53,COUNTER + db 0 +Mon024_EvosAttacks: +;ARBOK +;Evolutions + db 0 +;Learnset + db 10,POISON_STING + db 17,BITE + db 27,GLARE + db 36,SCREECH + db 47,ACID + db 0 +Mon047_EvosAttacks: +;PARASECT +;Evolutions + db 0 +;Learnset + db 13,STUN_SPORE + db 20,LEECH_LIFE + db 30,SPORE + db 39,SLASH + db 48,GROWTH + db 0 +Mon054_EvosAttacks: +;PSYDUCK +;Evolutions + db EV_LEVEL,33,GOLDUCK + db 0 +;Learnset + db 28,TAIL_WHIP + db 31,DISABLE + db 36,CONFUSION + db 43,FURY_SWIPES + db 52,HYDRO_PUMP + db 0 +Mon096_EvosAttacks: +;DROWZEE +;Evolutions + db EV_LEVEL,26,HYPNO + db 0 +;Learnset + db 12,DISABLE + db 17,CONFUSION + db 24,HEADBUTT + db 29,POISON_GAS + db 32,PSYCHIC_M + db 37,MEDITATE + db 0 +Mon076_EvosAttacks: +;GOLEM +;Evolutions + db 0 +;Learnset + db 11,DEFENSE_CURL + db 16,ROCK_THROW + db 21,SELFDESTRUCT + db 29,HARDEN + db 36,EARTHQUAKE + db 43,EXPLOSION + db 0 + +Mon154_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon126_EvosAttacks: +;MAGMAR +;Evolutions + db 0 +;Learnset + db 36,LEER + db 39,CONFUSE_RAY + db 43,FIRE_PUNCH + db 48,SMOKESCREEN + db 52,SMOG + db 55,FLAMETHROWER + db 0 + +Mon155_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon125_EvosAttacks: +;ELECTABUZZ +;Evolutions + db 0 +;Learnset + db 34,THUNDERSHOCK + db 37,SCREECH + db 42,THUNDERPUNCH + db 49,LIGHT_SCREEN + db 54,THUNDER + db 0 +Mon082_EvosAttacks: +;MAGNETON +;Evolutions + db 0 +;Learnset + db 21,SONICBOOM + db 25,THUNDERSHOCK + db 29,SUPERSONIC + db 38,THUNDER_WAVE + db 46,SWIFT + db 54,SCREECH + db 0 +Mon109_EvosAttacks: +;KOFFING +;Evolutions + db EV_LEVEL,35,WEEZING + db 0 +;Learnset + db 32,SLUDGE + db 37,SMOKESCREEN + db 40,SELFDESTRUCT + db 45,HAZE + db 48,EXPLOSION + db 0 + +Mon156_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon056_EvosAttacks: +;MANKEY +;Evolutions + db EV_LEVEL,28,PRIMEAPE + db 0 +;Learnset + db 15,KARATE_CHOP + db 21,FURY_SWIPES + db 27,FOCUS_ENERGY + db 33,SEISMIC_TOSS + db 39,THRASH + db 0 +Mon086_EvosAttacks: +;SEEL +;Evolutions + db EV_LEVEL,34,DEWGONG + db 0 +;Learnset + db 30,GROWL + db 35,AURORA_BEAM + db 40,REST + db 45,TAKE_DOWN + db 50,ICE_BEAM + db 0 +Mon050_EvosAttacks: +;DIGLETT +;Evolutions + db EV_LEVEL,26,DUGTRIO + db 0 +;Learnset + db 15,GROWL + db 19,DIG + db 24,SAND_ATTACK + db 31,SLASH + db 40,EARTHQUAKE + db 0 +Mon128_EvosAttacks: +;TAUROS +;Evolutions + db 0 +;Learnset + db 21,STOMP + db 28,TAIL_WHIP + db 35,LEER + db 44,RAGE + db 51,TAKE_DOWN + db 0 + +Mon157_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon158_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon159_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon083_EvosAttacks: +;FARFETCH_D +;Evolutions + db 0 +;Learnset + db 7,LEER + db 15,FURY_ATTACK + db 23,SWORDS_DANCE + db 31,AGILITY + db 39,SLASH + db 0 +Mon048_EvosAttacks: +;VENONAT +;Evolutions + db EV_LEVEL,31,VENOMOTH + db 0 +;Learnset + db 24,POISONPOWDER + db 27,LEECH_LIFE + db 30,STUN_SPORE + db 35,PSYBEAM + db 38,SLEEP_POWDER + db 43,PSYCHIC_M + db 0 +Mon149_EvosAttacks: +;DRAGONITE +;Evolutions + db 0 +;Learnset + db 10,THUNDER_WAVE + db 20,AGILITY + db 35,SLAM + db 45,DRAGON_RAGE + db 60,HYPER_BEAM + db 0 + +Mon160_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon161_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon162_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon084_EvosAttacks: +;DODUO +;Evolutions + db EV_LEVEL,31,DODRIO + db 0 +;Learnset + db 20,GROWL + db 24,FURY_ATTACK + db 30,DRILL_PECK + db 36,RAGE + db 40,TRI_ATTACK + db 44,AGILITY + db 0 +Mon060_EvosAttacks: +;POLIWAG +;Evolutions + db EV_LEVEL,25,POLIWHIRL + db 0 +;Learnset + db 16,HYPNOSIS + db 19,WATER_GUN + db 25,DOUBLESLAP + db 31,BODY_SLAM + db 38,AMNESIA + db 45,HYDRO_PUMP + db 0 +Mon124_EvosAttacks: +;JYNX +;Evolutions + db 0 +;Learnset + db 18,LICK + db 23,DOUBLESLAP + db 31,ICE_PUNCH + db 39,BODY_SLAM + db 47,THRASH + db 58,BLIZZARD + db 0 +Mon146_EvosAttacks: +;MOLTRES +;Evolutions + db 0 +;Learnset + db 51,LEER + db 55,AGILITY + db 60,SKY_ATTACK + db 0 +Mon144_EvosAttacks: +;ARTICUNO +;Evolutions + db 0 +;Learnset + db 51,BLIZZARD + db 55,AGILITY + db 60,MIST + db 0 +Mon145_EvosAttacks: +;ZAPDOS +;Evolutions + db 0 +;Learnset + db 51,THUNDER + db 55,AGILITY + db 60,LIGHT_SCREEN + db 0 +Mon132_EvosAttacks: +;DITTO +;Evolutions + db 0 +;Learnset + db 0 +Mon052_EvosAttacks: +;MEOWTH +;Evolutions + db EV_LEVEL,28,PERSIAN + db 0 +;Learnset + db 12,BITE + db 17,PAY_DAY + db 24,SCREECH + db 33,FURY_SWIPES + db 44,SLASH + db 0 +Mon098_EvosAttacks: +;KRABBY +;Evolutions + db EV_LEVEL,28,KINGLER + db 0 +;Learnset + db 20,VICEGRIP + db 25,GUILLOTINE + db 30,STOMP + db 35,CRABHAMMER + db 40,HARDEN + db 0 + +Mon163_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon164_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon165_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon037_EvosAttacks: +;VULPIX +;Evolutions + db EV_ITEM,FIRE_STONE,1,NINETALES + db 0 +;Learnset + db 16,QUICK_ATTACK + db 21,ROAR + db 28,CONFUSE_RAY + db 35,FLAMETHROWER + db 42,FIRE_SPIN + db 0 +Mon038_EvosAttacks: +;NINETALES +;Evolutions + db 0 +;Learnset + db 0 +Mon025_EvosAttacks: +;PIKACHU +;Evolutions + db EV_ITEM,THUNDER_STONE ,1,RAICHU + db 0 +;Learnset + db 9,THUNDER_WAVE + db 16,QUICK_ATTACK + db 26,SWIFT + db 33,AGILITY + db 43,THUNDER + db 0 +Mon026_EvosAttacks: +;RAICHU +;Evolutions + db 0 +;Learnset + db 0 + +Mon166_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon167_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon147_EvosAttacks: +;DRATINI +;Evolutions + db EV_LEVEL,30,DRAGONAIR + db 0 +;Learnset + db 10,THUNDER_WAVE + db 20,AGILITY + db 30,SLAM + db 40,DRAGON_RAGE + db 50,HYPER_BEAM + db 0 +Mon148_EvosAttacks: +;DRAGONAIR +;Evolutions + db EV_LEVEL,55,DRAGONITE + db 0 +;Learnset + db 10,THUNDER_WAVE + db 20,AGILITY + db 35,SLAM + db 45,DRAGON_RAGE + db 55,HYPER_BEAM + db 0 +Mon140_EvosAttacks: +;KABUTO +;Evolutions + db EV_LEVEL,40,KABUTOPS + db 0 +;Learnset + db 34,ABSORB + db 39,SLASH + db 44,LEER + db 49,HYDRO_PUMP + db 0 +Mon141_EvosAttacks: +;KABUTOPS +;Evolutions + db 0 +;Learnset + db 34,ABSORB + db 39,SLASH + db 46,LEER + db 53,HYDRO_PUMP + db 0 +Mon116_EvosAttacks: +;HORSEA +;Evolutions + db EV_LEVEL,32,SEADRA + db 0 +;Learnset + db 19,SMOKESCREEN + db 24,LEER + db 30,WATER_GUN + db 37,AGILITY + db 45,HYDRO_PUMP + db 0 +Mon117_EvosAttacks: +;SEADRA +;Evolutions + db 0 +;Learnset + db 19,SMOKESCREEN + db 24,LEER + db 30,WATER_GUN + db 41,AGILITY + db 52,HYDRO_PUMP + db 0 + +Mon168_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon169_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon027_EvosAttacks: +;SANDSHREW +;Evolutions + db EV_LEVEL,22,SANDSLASH + db 0 +;Learnset + db 10,SAND_ATTACK + db 17,SLASH + db 24,POISON_STING + db 31,SWIFT + db 38,FURY_SWIPES + db 0 +Mon028_EvosAttacks: +;SANDSLASH +;Evolutions + db 0 +;Learnset + db 10,SAND_ATTACK + db 17,SLASH + db 27,POISON_STING + db 36,SWIFT + db 47,FURY_SWIPES + db 0 +Mon138_EvosAttacks: +;OMANYTE +;Evolutions + db EV_LEVEL,40,OMASTAR + db 0 +;Learnset + db 34,HORN_ATTACK + db 39,LEER + db 46,SPIKE_CANNON + db 53,HYDRO_PUMP + db 0 +Mon139_EvosAttacks: +;OMASTAR +;Evolutions + db 0 +;Learnset + db 34,HORN_ATTACK + db 39,LEER + db 44,SPIKE_CANNON + db 49,HYDRO_PUMP + db 0 +Mon039_EvosAttacks: +;JIGGLYPUFF +;Evolutions + db EV_ITEM,MOON_STONE,1,WIGGLYTUFF + db 0 +;Learnset + db 9,POUND + db 14,DISABLE + db 19,DEFENSE_CURL + db 24,DOUBLESLAP + db 29,REST + db 34,BODY_SLAM + db 39,DOUBLE_EDGE + db 0 +Mon040_EvosAttacks: +;WIGGLYTUFF +;Evolutions + db 0 +;Learnset + db 0 +Mon133_EvosAttacks: +;EEVEE +;Evolutions + db EV_ITEM,FIRE_STONE,1,FLAREON + db EV_ITEM,THUNDER_STONE ,1,JOLTEON + db EV_ITEM,WATER_STONE ,1,VAPOREON + db 0 +;Learnset + db 27,QUICK_ATTACK + db 31,TAIL_WHIP + db 37,BITE + db 45,TAKE_DOWN + db 0 +Mon136_EvosAttacks: +;FLAREON +;Evolutions + db 0 +;Learnset + db 27,QUICK_ATTACK + db 31,EMBER + db 37,TAIL_WHIP + db 40,BITE + db 42,LEER + db 44,FIRE_SPIN + db 48,RAGE + db 54,FLAMETHROWER + db 0 +Mon135_EvosAttacks: +;JOLTEON +;Evolutions + db 0 +;Learnset + db 27,QUICK_ATTACK + db 31,THUNDERSHOCK + db 37,TAIL_WHIP + db 40,THUNDER_WAVE + db 42,DOUBLE_KICK + db 44,AGILITY + db 48,PIN_MISSILE + db 54,THUNDER + db 0 +Mon134_EvosAttacks: +;VAPOREON +;Evolutions + db 0 +;Learnset + db 27,QUICK_ATTACK + db 31,WATER_GUN + db 37,TAIL_WHIP + db 40,BITE + db 42,ACID_ARMOR + db 44,HAZE + db 48,MIST + db 54,HYDRO_PUMP + db 0 +Mon066_EvosAttacks: +;MACHOP +;Evolutions + db EV_LEVEL,28,MACHOKE + db 0 +;Learnset + db 20,LOW_KICK + db 25,LEER + db 32,FOCUS_ENERGY + db 39,SEISMIC_TOSS + db 46,SUBMISSION + db 0 +Mon041_EvosAttacks: +;ZUBAT +;Evolutions + db EV_LEVEL,22,GOLBAT + db 0 +;Learnset + db 10,SUPERSONIC + db 15,BITE + db 21,CONFUSE_RAY + db 28,WING_ATTACK + db 36,HAZE + db 0 +Mon023_EvosAttacks: +;EKANS +;Evolutions + db EV_LEVEL,22,ARBOK + db 0 +;Learnset + db 10,POISON_STING + db 17,BITE + db 24,GLARE + db 31,SCREECH + db 38,ACID + db 0 +Mon046_EvosAttacks: +;PARAS +;Evolutions + db EV_LEVEL,24,PARASECT + db 0 +;Learnset + db 13,STUN_SPORE + db 20,LEECH_LIFE + db 27,SPORE + db 34,SLASH + db 41,GROWTH + db 0 +Mon061_EvosAttacks: +;POLIWHIRL +;Evolutions + db EV_ITEM,WATER_STONE ,1,POLIWRATH + db 0 +;Learnset + db 16,HYPNOSIS + db 19,WATER_GUN + db 26,DOUBLESLAP + db 33,BODY_SLAM + db 41,AMNESIA + db 49,HYDRO_PUMP + db 0 +Mon062_EvosAttacks: +;POLIWRATH +;Evolutions + db 0 +;Learnset + db 16,HYPNOSIS + db 19,WATER_GUN + db 0 +Mon013_EvosAttacks: +;WEEDLE +;Evolutions + db EV_LEVEL,7,KAKUNA + db 0 +;Learnset + db 0 +Mon014_EvosAttacks: +;KAKUNA +;Evolutions + db EV_LEVEL,10,BEEDRILL + db 0 +;Learnset + db 0 +Mon015_EvosAttacks: +;BEEDRILL +;Evolutions + db 0 +;Learnset + db 12,FURY_ATTACK + db 16,FOCUS_ENERGY + db 20,TWINEEDLE + db 25,RAGE + db 30,PIN_MISSILE + db 35,AGILITY + db 0 + +Mon170_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon085_EvosAttacks: +;DODRIO +;Evolutions + db 0 +;Learnset + db 20,GROWL + db 24,FURY_ATTACK + db 30,DRILL_PECK + db 39,RAGE + db 45,TRI_ATTACK + db 51,AGILITY + db 0 +Mon057_EvosAttacks: +;PRIMEAPE +;Evolutions + db 0 +;Learnset + db 15,KARATE_CHOP + db 21,FURY_SWIPES + db 27,FOCUS_ENERGY + db 37,SEISMIC_TOSS + db 46,THRASH + db 0 +Mon051_EvosAttacks: +;DUGTRIO +;Evolutions + db 0 +;Learnset + db 15,GROWL + db 19,DIG + db 24,SAND_ATTACK + db 35,SLASH + db 47,EARTHQUAKE + db 0 +Mon049_EvosAttacks: +;VENOMOTH +;Evolutions + db 0 +;Learnset + db 24,POISONPOWDER + db 27,LEECH_LIFE + db 30,STUN_SPORE + db 38,PSYBEAM + db 43,SLEEP_POWDER + db 50,PSYCHIC_M + db 0 +Mon087_EvosAttacks: +;DEWGONG +;Evolutions + db 0 +;Learnset + db 30,GROWL + db 35,AURORA_BEAM + db 44,REST + db 50,TAKE_DOWN + db 56,ICE_BEAM + db 0 + +Mon171_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon172_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon010_EvosAttacks: +;CATERPIE +;Evolutions + db EV_LEVEL,7,METAPOD + db 0 +;Learnset + db 0 +Mon011_EvosAttacks: +;METAPOD +;Evolutions + db EV_LEVEL,10,BUTTERFREE + db 0 +;Learnset + db 0 +Mon012_EvosAttacks: +;BUTTERFREE +;Evolutions + db 0 +;Learnset + db 12,CONFUSION + db 15,POISONPOWDER + db 16,STUN_SPORE + db 17,SLEEP_POWDER + db 21,SUPERSONIC + db 26,WHIRLWIND + db 32,PSYBEAM + db 0 +Mon068_EvosAttacks: +;MACHAMP +;Evolutions + db 0 +;Learnset + db 20,LOW_KICK + db 25,LEER + db 36,FOCUS_ENERGY + db 44,SEISMIC_TOSS + db 52,SUBMISSION + db 0 + +Mon173_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon055_EvosAttacks: +;GOLDUCK +;Evolutions + db 0 +;Learnset + db 28,TAIL_WHIP + db 31,DISABLE + db 39,CONFUSION + db 48,FURY_SWIPES + db 59,HYDRO_PUMP + db 0 +Mon097_EvosAttacks: +;HYPNO +;Evolutions + db 0 +;Learnset + db 12,DISABLE + db 17,CONFUSION + db 24,HEADBUTT + db 33,POISON_GAS + db 37,PSYCHIC_M + db 43,MEDITATE + db 0 +Mon042_EvosAttacks: +;GOLBAT +;Evolutions + db 0 +;Learnset + db 10,SUPERSONIC + db 15,BITE + db 21,CONFUSE_RAY + db 32,WING_ATTACK + db 43,HAZE + db 0 +Mon150_EvosAttacks: +;MEWTWO +;Evolutions + db 0 +;Learnset + db 63,BARRIER + db 66,PSYCHIC_M + db 70,RECOVER + db 75,MIST + db 81,AMNESIA + db 0 +Mon143_EvosAttacks: +;SNORLAX +;Evolutions + db 0 +;Learnset + db 35,BODY_SLAM + db 41,HARDEN + db 48,DOUBLE_EDGE + db 56,HYPER_BEAM + db 0 +Mon129_EvosAttacks: +;MAGIKARP +;Evolutions + db EV_LEVEL,20,GYARADOS + db 0 +;Learnset + db 15,TACKLE + db 0 + +Mon174_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon175_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon089_EvosAttacks: +;MUK +;Evolutions + db 0 +;Learnset + db 30,POISON_GAS + db 33,MINIMIZE + db 37,SLUDGE + db 45,HARDEN + db 53,SCREECH + db 60,ACID_ARMOR + db 0 + +Mon176_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon099_EvosAttacks: +;KINGLER +;Evolutions + db 0 +;Learnset + db 20,VICEGRIP + db 25,GUILLOTINE + db 34,STOMP + db 42,CRABHAMMER + db 49,HARDEN + db 0 +Mon091_EvosAttacks: +;CLOYSTER +;Evolutions + db 0 +;Learnset + db 50,SPIKE_CANNON + db 0 + +Mon177_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon101_EvosAttacks: +;ELECTRODE +;Evolutions + db 0 +;Learnset + db 17,SONICBOOM + db 22,SELFDESTRUCT + db 29,LIGHT_SCREEN + db 40,SWIFT + db 50,EXPLOSION + db 0 +Mon036_EvosAttacks: +;CLEFABLE +;Evolutions + db 0 +;Learnset + db 0 +Mon110_EvosAttacks: +;WEEZING +;Evolutions + db 0 +;Learnset + db 32,SLUDGE + db 39,SMOKESCREEN + db 43,SELFDESTRUCT + db 49,HAZE + db 53,EXPLOSION + db 0 +Mon053_EvosAttacks: +;PERSIAN +;Evolutions + db 0 +;Learnset + db 12,BITE + db 17,PAY_DAY + db 24,SCREECH + db 37,FURY_SWIPES + db 51,SLASH + db 0 +Mon105_EvosAttacks: +;MAROWAK +;Evolutions + db 0 +;Learnset + db 25,LEER + db 33,FOCUS_ENERGY + db 41,THRASH + db 48,BONEMERANG + db 55,RAGE + db 0 + +Mon178_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon093_EvosAttacks: +;HAUNTER +;Evolutions + db EV_TRADE,1,GENGAR + db 0 +;Learnset + db 29,HYPNOSIS + db 38,DREAM_EATER + db 0 +Mon063_EvosAttacks: +;ABRA +;Evolutions + db EV_LEVEL,16,KADABRA + db 0 +;Learnset + db 0 +Mon065_EvosAttacks: +;ALAKAZAM +;Evolutions + db 0 +;Learnset + db 16,CONFUSION + db 20,DISABLE + db 27,PSYBEAM + db 31,RECOVER + db 38,PSYCHIC_M + db 42,REFLECT + db 0 +Mon017_EvosAttacks: +;PIDGEOTTO +;Evolutions + db EV_LEVEL,36,PIDGEOT + db 0 +;Learnset + db 5,SAND_ATTACK + db 12,QUICK_ATTACK + db 21,WHIRLWIND + db 31,WING_ATTACK + db 40,AGILITY + db 49,MIRROR_MOVE + db 0 +Mon018_EvosAttacks: +;PIDGEOT +;Evolutions + db 0 +;Learnset + db 5,SAND_ATTACK + db 12,QUICK_ATTACK + db 21,WHIRLWIND + db 31,WING_ATTACK + db 44,AGILITY + db 54,MIRROR_MOVE + db 0 +Mon121_EvosAttacks: +;STARMIE +;Evolutions + db 0 +;Learnset + db 0 +Mon001_EvosAttacks: +;BULBASAUR +;Evolutions + db EV_LEVEL,16,IVYSAUR + db 0 +;Learnset + db 7,LEECH_SEED + db 13,VINE_WHIP + db 20,POISONPOWDER + db 27,RAZOR_LEAF + db 34,GROWTH + db 41,SLEEP_POWDER + db 48,SOLARBEAM + db 0 +Mon003_EvosAttacks: +;VENUSAUR +;Evolutions + db 0 +;Learnset + db 7,LEECH_SEED + db 13,VINE_WHIP + db 22,POISONPOWDER + db 30,RAZOR_LEAF + db 43,GROWTH + db 55,SLEEP_POWDER + db 65,SOLARBEAM + db 0 +Mon073_EvosAttacks: +;TENTACRUEL +;Evolutions + db 0 +;Learnset + db 7,SUPERSONIC + db 13,WRAP + db 18,POISON_STING + db 22,WATER_GUN + db 27,CONSTRICT + db 35,BARRIER + db 43,SCREECH + db 50,HYDRO_PUMP + db 0 + +Mon179_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon118_EvosAttacks: +;GOLDEEN +;Evolutions + db EV_LEVEL,33,SEAKING + db 0 +;Learnset + db 19,SUPERSONIC + db 24,HORN_ATTACK + db 30,FURY_ATTACK + db 37,WATERFALL + db 45,HORN_DRILL + db 54,AGILITY + db 0 +Mon119_EvosAttacks: +;SEAKING +;Evolutions + db 0 +;Learnset + db 19,SUPERSONIC + db 24,HORN_ATTACK + db 30,FURY_ATTACK + db 39,WATERFALL + db 48,HORN_DRILL + db 54,AGILITY + db 0 + +Mon180_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon181_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon182_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon183_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon077_EvosAttacks: +;PONYTA +;Evolutions + db EV_LEVEL,40,RAPIDASH + db 0 +;Learnset + db 30,TAIL_WHIP + db 32,STOMP + db 35,GROWL + db 39,FIRE_SPIN + db 43,TAKE_DOWN + db 48,AGILITY + db 0 +Mon078_EvosAttacks: +;RAPIDASH +;Evolutions + db 0 +;Learnset + db 30,TAIL_WHIP + db 32,STOMP + db 35,GROWL + db 39,FIRE_SPIN + db 47,TAKE_DOWN + db 55,AGILITY + db 0 +Mon019_EvosAttacks: +;RATTATA +;Evolutions + db EV_LEVEL,20,RATICATE + db 0 +;Learnset + db 7,QUICK_ATTACK + db 14,HYPER_FANG + db 23,FOCUS_ENERGY + db 34,SUPER_FANG + db 0 +Mon020_EvosAttacks: +;RATICATE +;Evolutions + db 0 +;Learnset + db 7,QUICK_ATTACK + db 14,HYPER_FANG + db 27,FOCUS_ENERGY + db 41,SUPER_FANG + db 0 +Mon033_EvosAttacks: +;NIDORINO +;Evolutions + db EV_ITEM,MOON_STONE,1,NIDOKING + db 0 +;Learnset + db 8,HORN_ATTACK + db 14,POISON_STING + db 23,FOCUS_ENERGY + db 32,FURY_ATTACK + db 41,HORN_DRILL + db 50,DOUBLE_KICK + db 0 +Mon030_EvosAttacks: +;NIDORINA +;Evolutions + db EV_ITEM,MOON_STONE,1,NIDOQUEEN + db 0 +;Learnset + db 8,SCRATCH + db 14,POISON_STING + db 23,TAIL_WHIP + db 32,BITE + db 41,FURY_SWIPES + db 50,DOUBLE_KICK + db 0 +Mon074_EvosAttacks: +;GEODUDE +;Evolutions + db EV_LEVEL,25,GRAVELER + db 0 +;Learnset + db 11,DEFENSE_CURL + db 16,ROCK_THROW + db 21,SELFDESTRUCT + db 26,HARDEN + db 31,EARTHQUAKE + db 36,EXPLOSION + db 0 +Mon137_EvosAttacks: +;PORYGON +;Evolutions + db 0 +;Learnset + db 23,PSYBEAM + db 28,RECOVER + db 35,AGILITY + db 42,TRI_ATTACK + db 0 +Mon142_EvosAttacks: +;AERODACTYL +;Evolutions + db 0 +;Learnset + db 33,SUPERSONIC + db 38,BITE + db 45,TAKE_DOWN + db 54,HYPER_BEAM + db 0 + +Mon184_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon081_EvosAttacks: +;MAGNEMITE +;Evolutions + db EV_LEVEL,30,MAGNETON + db 0 +;Learnset + db 21,SONICBOOM + db 25,THUNDERSHOCK + db 29,SUPERSONIC + db 35,THUNDER_WAVE + db 41,SWIFT + db 47,SCREECH + db 0 + +Mon185_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon186_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon004_EvosAttacks: +;CHARMANDER +;Evolutions + db EV_LEVEL,16,CHARMELEON + db 0 +;Learnset + db 9,EMBER + db 15,LEER + db 22,RAGE + db 30,SLASH + db 38,FLAMETHROWER + db 46,FIRE_SPIN + db 0 +Mon007_EvosAttacks: +;SQUIRTLE +;Evolutions + db EV_LEVEL,16,WARTORTLE + db 0 +;Learnset + db 8,BUBBLE + db 15,WATER_GUN + db 22,BITE + db 28,WITHDRAW + db 35,SKULL_BASH + db 42,HYDRO_PUMP + db 0 +Mon005_EvosAttacks: +;CHARMELEON +;Evolutions + db EV_LEVEL,36,CHARIZARD + db 0 +;Learnset + db 9,EMBER + db 15,LEER + db 24,RAGE + db 33,SLASH + db 42,FLAMETHROWER + db 56,FIRE_SPIN + db 0 +Mon008_EvosAttacks: +;WARTORTLE +;Evolutions + db EV_LEVEL,36,BLASTOISE + db 0 +;Learnset + db 8,BUBBLE + db 15,WATER_GUN + db 24,BITE + db 31,WITHDRAW + db 39,SKULL_BASH + db 47,HYDRO_PUMP + db 0 +Mon006_EvosAttacks: +;CHARIZARD +;Evolutions + db 0 +;Learnset + db 9,EMBER + db 15,LEER + db 24,RAGE + db 36,SLASH + db 46,FLAMETHROWER + db 55,FIRE_SPIN + db 0 + +Mon187_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon188_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon189_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 + +Mon190_EvosAttacks: +;MISSINGNO +;Evolutions + db 0 +;Learnset + db 0 +Mon043_EvosAttacks: +;ODDISH +;Evolutions + db EV_LEVEL,21,GLOOM + db 0 +;Learnset + db 15,POISONPOWDER + db 17,STUN_SPORE + db 19,SLEEP_POWDER + db 24,ACID + db 33,PETAL_DANCE + db 46,SOLARBEAM + db 0 +Mon044_EvosAttacks: +;GLOOM +;Evolutions + db EV_ITEM,LEAF_STONE ,1,VILEPLUME + db 0 +;Learnset + db 15,POISONPOWDER + db 17,STUN_SPORE + db 19,SLEEP_POWDER + db 28,ACID + db 38,PETAL_DANCE + db 52,SOLARBEAM + db 0 +Mon045_EvosAttacks: +;VILEPLUME +;Evolutions + db 0 +;Learnset + db 15,POISONPOWDER + db 17,STUN_SPORE + db 19,SLEEP_POWDER + db 0 +Mon069_EvosAttacks: +;BELLSPROUT +;Evolutions + db EV_LEVEL,21,WEEPINBELL + db 0 +;Learnset + db 13,WRAP + db 15,POISONPOWDER + db 18,SLEEP_POWDER + db 21,STUN_SPORE + db 26,ACID + db 33,RAZOR_LEAF + db 42,SLAM + db 0 +Mon070_EvosAttacks: +;WEEPINBELL +;Evolutions + db EV_ITEM,LEAF_STONE ,1,VICTREEBEL + db 0 +;Learnset + db 13,WRAP + db 15,POISONPOWDER + db 18,SLEEP_POWDER + db 23,STUN_SPORE + db 29,ACID + db 38,RAZOR_LEAF + db 49,SLAM + db 0 +Mon071_EvosAttacks: +;VICTREEBEL +;Evolutions + db 0 +;Learnset + db 13,WRAP + db 15,POISONPOWDER + db 18,SLEEP_POWDER + db 0 + +INCBIN "baserom.gbc",$3B9EC, $3C000 - $3B9EC + +SECTION "bankF",DATA,BANK[$F] + +; These are move effects (second value from the Attacks table in bank $E). +EffectsArray1: ; 4000 + db $18,$19,$1C,$2E,$2F,$31,$38,$39,$40,$41,$42,$43,$4F,$52,$54,$55,$FF +EffectsArray2: ; 4011 +; attacks that do damage but not through normal calculations +; e.g., Super Fang, Psywave + db $28,$29,$FF +EffectsArray3: ; 4014 +; non-damaging, stat‐affecting or status‐causing attacks? +; e.g., Meditate, Bide, Hypnosis + db $01,$0A,$0B,$0C,$0D,$0E,$0F,$12,$13,$14,$15,$16,$17,$1A,$20,$32,$33,$34,$35,$36,$37,$3A,$3B,$3C,$3D,$3E,$3F,$FF +EffectsArray4: ; 4030 + db $03,$07,$08,$10,$1D,$1E,$2C,$30,$4D,$51,$FF +EffectsArray5: ; 403B + db $03,$07,$08,$10,$11,$1D,$1E,$27,$28,$29,$2B,$2C,$2D,$30 ; fallthru +EffectsArray5B: ; 4049 +; attacks that prevent the player from switching attacks? + db $1B,$2A,$FF + +INCBIN "baserom.gbc",$3C04C,$90E - $4C + +; XXX this needs cleaning up. it's what runs when a juggler switches pokemon +EnemySendOut: ; 490E + ld hl,$D058 + xor a + ld [hl],a + ld a,[$CC2F] + ld c,a + ld b,1 + push bc + ld a,$10 + call Predef + ld hl,$CCF5 + xor a + ld [hl],a + pop bc + ld a,$10 + call Predef + xor a + ld hl,$D065 + ld [hli],a + ld [hli],a + ld [hli],a + ld [hli],a + ld [hl],a + ld [$D072],a + ld [$CCEF],a + ld [$CCF3],a + ld hl,$CCF1 + ld [hli],a + ld [hl],a + dec a + ld [W_AICOUNT],a + ld hl,$D062 + res 5,[hl] + ld hl,$C3B2 + ld a,8 + call $48DF + call $6E94 + call $3719 + ld a,[$D12B] + cp 4 + jr nz,.next\@ + ld a,[$CC3E] + sub 4 + ld [$CF92],a + jr .next3\@ +.next\@ + ld b,$FF +.next2\@ + inc b + ld a,[$CFE8] + cp b + jr z,.next2\@ + ld hl,$D8A4 + ld a,b + ld [$CF92],a + push bc + ld bc,$2C + call AddNTimes + pop bc + inc hl + ld a,[hli] + ld c,a + ld a,[hl] + or c + jr z,.next2\@ +.next3\@ + ld a,[$CF92] + ld hl,$D8C5 + ld bc,$2C + call AddNTimes + ld a,[hl] + ld [$D127],a + ld a,[$CF92] + inc a + ld hl,$D89C + ld c,a + ld b,0 + add hl,bc + ld a,[hl] + ld [$CFD8],a + ld [$CF91],a + call $6B01 + ld hl,$CFE6 + ld a,[hli] + ld [$CCE3],a + ld a,[hl] + ld [$CCE4],a + ld a,1 + ld [$CC26],a + ld a,[$D11D] + dec a + jr z,.next4\@ + ld a,[W_NUMINPARTY] + dec a + jr z,.next4\@ + ld a,[$D12B] + cp 4 + jr z,.next4\@ + ld a,[$D355] + bit 6,a + jr nz,.next4\@ + ld hl,TrainerAboutToUseText + call PrintText + ld hl,$C42C + ld bc,$0801 + ld a,$14 + ld [$D125],a + call $30E8 + ld a,[$CC26] + and a + jr nz,.next4\@ + ld a,2 + ld [$D07D],a + call $13FC +.next9\@ + ld a,1 + ld [$CC26],a + jr c,.next7\@ + ld hl,$CC2F + ld a,[$CF92] + cp [hl] + jr nz,.next6\@ + ld hl,$51F5 + call PrintText +.next8\@ + call $1411 + jr .next9\@ +.next6\@ + call $4A97 + jr z,.next8\@ + xor a + ld [$CC26],a +.next7\@ + call $3DE5 + call $6E5B + call $3725 +.next4\@ + call $0082 + ld hl,$C3A0 + ld bc,$040B + call $18C4 + ld b,1 + call $3DEF + call $3DDC + ld hl,TrainerSentOutText + call PrintText + ld a,[$CFD8] + ld [$CF91],a + ld [$D0B5],a + call $1537 + ld de,$9000 + call $1665 + ld a,$CF + ld [$FFE1],a + ld hl,$C427 + ld a,2 + call Predef + ld a,[$CFD8] + call $13D0 + call $4DEC + ld a,[$CC26] + and a + ret nz + xor a + ld [$D058],a + ld [$CCF5],a + call $3719 + jp $51BA + +TrainerAboutToUseText: + TX_FAR _TrainerAboutToUseText + db "@" + +TrainerSentOutText: + TX_FAR _TrainerSentOutText + db "@" + +INCBIN "baserom.gbc",$3CA83,$3D6A9 - $3CA83 + +; in-battle stuff + ld hl,$D062 + res 4,[hl] + res 6,[hl] + call $5AF5 + ld hl,DecrementPP + ld de,$CCDC ; pointer to the move just used + ld b,BANK(DecrementPP) + call Bankswitch + ld a,[$CFD3] ; effect of the attack just used + ld hl,EffectsArray1 + ld de,1 + call IsInArray + jp c,$7132 + ld a,[$CFD3] + ld hl,EffectsArray5B + ld de,1 + call IsInArray + call c,$7132 + ld a,[$CFD3] + ld hl,EffectsArray2 + ld de,1 + call IsInArray + jp c,$5702 + call $6023 + call $6093 + jr z,.next11\@ + call $5DCF + call $5F65 + jp z,$574B + call $63A5 + call $6687 + call $656B +.next11\@ + ld a,[$D05F] + and a + jr z,.next\@ + ld a,[$CFD3] + sub a,7 + jr z,.next2\@ + jr .next3\@ ; 574B +.next\@ + ld a,[$CFD3] + and a + ld a,4 + jr z,.next2\@ + ld a,5 +.next2\@ + push af + ld a,[$D063] + bit 4,a + ld hl,$5747 + ld b,$1E + call nz,Bankswitch + pop af + ld [$CC5B],a + ld a,[$CFD2] + call $6F07 + call $6ED3 + call $4D60 + ld a,[$D063] + bit 4,a + ld hl,$5771 + ld b,$1E + call nz,Bankswitch + jr .next4\@ +.next3\@ + ld c,$1E + call $3739 + ld a,[$CFD3] + cp a,$2B + jr z,.next5\@ + cp a,$27 ; XXX SLP | FRZ ? + jr z,.next5\@ + jr .next4\@ +.next5\@ + xor a + ld [$CC5B],a + ld a,$A7 + call $6F07 +.next4\@ + ld a,[$CFD3] + cp a,9 + jr nz,.next6\@ ; 577A + call $62FD + jp z,Function580A + xor a + ld [$CCED],a + jp $569A +.next6\@ + cp a,$53 + jr nz,.next7\@ ; 5784 + call $6348 + jp $569A +.next7\@ + ld a,[$CFD3] + ld hl,EffectsArray3 + ld de,1 + call IsInArray + jp c,$7132 + ld a,[$D05F] + and a + jr z,.next8\@ ; 57A6 + call $5BE2 + ld a,[$CFD3] + cp a,7 + jr z,.next9\@ ; 57B9 + jp Function580A +.next8\@ + call $60DF + call $5C5C + ld hl,$7B7B ; MyFunction + ld b,$B ; BANK(MyFunction) + call Bankswitch + ld a,1 + ld [$CCF4],a +.next9\@ + ld a,[$CFD3] + ld hl,EffectsArray4 + ld de,1 + call IsInArray + call c,$7132 + ld hl,$CFE6 + ld a,[hli] + ld b,[hl] + or b + ret z + call $62B6 + + ld hl,$D062 + bit 2,[hl] + jr z,.next10\@ ; 57EF + ld a,[$D06A] + dec a + ld [$D06A],a + jp nz,$5714 + + res 2,[hl] + ld hl,MultiHitText + call PrintText + xor a + ld [W_NUMHITS],a ; reset +.next10\@ + ld a,[$CFD3] + and a + jp z,Function580A + ld hl,EffectsArray5 + ld de,1 + call IsInArray + call nc,$7132 + jp Function580A + +MultiHitText: + TX_FAR _MultiHitText + db "@" + +Function580A: ; 580A + xor a + ld [$CD6A],a + ld b,1 + ret + +Function5811: ; 5811 +; print the ghost battle messages + call $583A + ret nz + ld a,[H_WHOSETURN] + and a + jr nz,.Ghost\@ + ld a,[W_CURMONSTATUS] ; player’s turn + and a,SLP | FRZ + ret nz + ld hl,ScaredText + call PrintText + xor a + ret +.Ghost\@ ; ghost’s turn + ld hl,GetOutText + call PrintText + xor a + ret + +ScaredText: + TX_FAR _ScaredText + db "@" + +GetOutText: + TX_FAR _GetOutText + db "@" + +Function583A: ; 583A + ld a,[W_ISINBATTLE] + dec a + ret nz + ld a,[W_CURMAP] + cp a,$8E ; Lavender Town + jr c,.next\@ + cp a,$95 ; Pokémon Tower + jr nc,.next\@ + ld b,SILPH_SCOPE + call IsItemInBag ; $3493 + ret z +.next\@ + ld a,1 + and a + ret + +Function5854: ; 5854 + ld hl,W_CURMONSTATUS + ld a,[hl] + and a,SLP + jr z,.FrozenCheck\@ ; to 5884 + + dec a + ld [W_CURMONSTATUS],a ; decrement sleep count + and a + jr z,.WakeUp\@ ; to 5874 + + xor a + ld [$CC5B],a + ld a,SLP_ANIM - 1 + call $6F07 + ld hl,FastAsleepText + call PrintText + jr .sleepDone\@ +.WakeUp\@ + ld hl,WokeUpText + call PrintText +.sleepDone\@ + xor a + ld [$CCF1],a + ld hl,Function580A + jp $5A37 + +.FrozenCheck\@ + bit 5,[hl] ; frozen? + jr z,.HeldInPlaceCheck\@ ; to 5898 + ld hl,FrozenText + call PrintText + xor a + ld [$CCF1],a + ld hl,Function580A + jp $5A37 + +.HeldInPlaceCheck\@ + ld a,[W_CURMONBATTSTATUS] + bit 5,a + jp z,FlinchedCheck + ld hl,CantMoveText + call PrintText + ld hl,Function580A + jp $5A37 + +FlinchedCheck: ; 58AC + ld hl,$D062 + bit 3,[hl] + jp z,HyperBeamCheck + res 3,[hl] + ld hl,FlinchedText + call PrintText + ld hl,Function580A + jp $5A37 + +HyperBeamCheck: ; 58C2 + ld hl,$D063 + bit 5,[hl] + jr z,.next\@ ; 58D7 + res 5,[hl] + ld hl,MustRechargeText + call PrintText + ld hl,$580A + jp $5A37 +.next\@ + ld hl,$D06D + ld a,[hl] + and a + jr z,.next2\@ ; 58EE + dec a + ld [hl],a + and a,$F + jr nz,.next2\@ + ld [hl],a + ld [$CCEE],a + ld hl,DisabledNoMoreText + call PrintText +.next2\@ + ld a,[$D062] + add a + jr nc,.next3\@ ; 5929 + ld hl,$D06B + dec [hl] + jr nz,.next4\@ ; 5907 + ld hl,$D062 + res 7,[hl] + ld hl,ConfusedNoMoreText + call PrintText + jr .next3\@ +.next4\@ + ld hl,IsConfusedText + call PrintText + xor a + ld [$CC5B],a + ld a,CONF_ANIM - 1 + call $6F07 + call $6E9B + cp a,$80 + jr c,.next3\@ + ld hl,$D062 + ld a,[hl] + and a,$80 + ld [hl],a + call $5AAD + jr .next5\@ ; 5952 +.next3\@ + ld a,[$CCEE] + and a + jr z,.ParalysisCheck\@ ; 593E + ld hl,$CCDC + cp [hl] + jr nz,.ParalysisCheck\@ + call $5A88 + ld hl,$580A + jp $5A37 +.ParalysisCheck\@ + ld hl,W_CURMONSTATUS + bit 6,[hl] + jr z,.next7\@ ; 5975 + call $6E9B ; random number? + cp a,$3F + jr nc,.next7\@ + ld hl,FullyParalyzedText + call PrintText +.next5\@ + ld hl,$D062 + ld a,[hl] + and a,$CC + ld [hl],a + ld a,[$CFD3] + cp a,$2B + jr z,.next8\@ ; 5966 + cp a,$27 + jr z,.next8\@ + jr .next9\@ ; 596F +.next8\@ + xor a + ld [$CC5B],a + ld a,$A7 + call $6F07 +.next9\@ + ld hl,$580A + jp $5A37 +.next7\@ + ld hl,$D062 + bit 0,[hl] + jr z,.next10\@ ; 59D0 + xor a + ld [$CFD2],a + ld hl,$D0D7 + ld a,[hli] + ld b,a + ld c,[hl] + ld hl,$D075 + ld a,[hl] + add c + ld [hld],a + ld a,[hl] + adc b + ld [hl],a + ld hl,$D06A + dec [hl] + jr z,.next11\@ ; 599B + ld hl,$580A + jp $5A37 +.next11\@ + ld hl,$D062 + res 0,[hl] + ld hl,UnleashedEnergyText + call PrintText + ld a,1 + ld [$CFD4],a + ld hl,$D075 + ld a,[hld] + add a + ld b,a + ld [$D0D8],a + ld a,[hl] + rl a + ld [$D0D7],a + or b + jr nz,.next12\@ ; 59C2 + ld a,1 + ld [$D05F],a +.next12\@ + xor a + ld [hli],a + ld [hl],a + ld a,$75 + ld [$CFD2],a + ld hl,$5705 + jp $5A37 +.next10\@ + bit 1,[hl] + jr z,.next13\@ ; 59FF + ld a,$25 + ld [$CFD2],a + ld hl,ThrashingAboutText + call PrintText + ld hl,$D06A + dec [hl] + ld hl,$56DC + jp nz,$5A37 + push hl + ld hl,$D062 + res 1,[hl] + set 7,[hl] + call $6E9B ; random number? + and a,3 + inc a + inc a + ld [$D06B],a + pop hl + jp $5A37 +.next13\@ + bit 5,[hl] + jp z,$5A1A + ld hl,AttackContinuesText + call PrintText + ld a,[$D06A] + dec a + ld [$D06A],a + ld hl,$5714 + jp nz,$5A37 + jp $5A37 + +INCBIN "baserom.gbc",$3DA1A,$3DA3D - $3DA1A + +FastAsleepText: + TX_FAR _FastAsleepText + db "@" + +WokeUpText: + TX_FAR _WokeUpText + db "@" + +FrozenText: + TX_FAR _FrozenText + db "@" + +FullyParalyzedText: + TX_FAR _FullyParalyzedText + db "@" + +FlinchedText: + TX_FAR _FlinchedText + db "@" + +MustRechargeText: + TX_FAR _MustRechargeText + db "@" + +DisabledNoMoreText: + TX_FAR _DisabledNoMoreText + db "@" + +IsConfusedText: + TX_FAR _IsConfusedText + db "@" + +HurtItselfText: + TX_FAR _HurtItselfText + db "@" + +ConfusedNoMoreText: + TX_FAR _ConfusedNoMoreText + db "@" + +SavingEnergyText: + TX_FAR _SavingEnergyText + db "@" + +UnleashedEnergyText: + TX_FAR _UnleashedEnergyText + db "@" + +ThrashingAboutText: + TX_FAR _ThrashingAboutText + db "@" + +AttackContinuesText: + TX_FAR _AttackContinuesText + db "@" + +CantMoveText: + TX_FAR _CantMoveText + db "@" + +INCBIN "baserom.gbc",$3DA88,$3E474 - $3DA88 + +TypeEffects: ; 6474 +; format: attacking type, defending type, damage multiplier +; the multiplier is a (decimal) fixed-point number: +; 20 is ×2.0 +; 05 is ×0.5 +; 00 is ×0 + db WATER,FIRE,20 + db FIRE,GRASS,20 + db FIRE,ICE,20 + db GRASS,WATER,20 + db ELECTRIC,WATER,20 + db WATER,ROCK,20 + db GROUND,FLYING,00 + db WATER,WATER,05 + db FIRE,FIRE,05 + db ELECTRIC,ELECTRIC,05 + db ICE,ICE,05 + db GRASS,GRASS,05 + db PSYCHIC,PSYCHIC,05 + db FIRE,WATER,05 + db GRASS,FIRE,05 + db WATER,GRASS,05 + db ELECTRIC,GRASS,05 + db NORMAL,ROCK,05 + db NORMAL,GHOST,00 + db GHOST,GHOST,20 + db FIRE,BUG,20 + db FIRE,ROCK,05 + db WATER,GROUND,20 + db ELECTRIC,GROUND,00 + db ELECTRIC,FLYING,20 + db GRASS,GROUND,20 + db GRASS,BUG,05 + db GRASS,POISON,05 + db GRASS,ROCK,20 + db GRASS,FLYING,05 + db ICE,WATER,05 + db ICE,GRASS,20 + db ICE,GROUND,20 + db ICE,FLYING,20 + db FIGHTING,NORMAL,20 + db FIGHTING,POISON,05 + db FIGHTING,FLYING,05 + db FIGHTING,PSYCHIC,05 + db FIGHTING,BUG,05 + db FIGHTING,ROCK,20 + db FIGHTING,ICE,20 + db FIGHTING,GHOST,00 + db POISON,GRASS,20 + db POISON,POISON,05 + db POISON,GROUND,05 + db POISON,BUG,20 + db POISON,ROCK,05 + db POISON,GHOST,05 + db GROUND,FIRE,20 + db GROUND,ELECTRIC,20 + db GROUND,GRASS,05 + db GROUND,BUG,05 + db GROUND,ROCK,20 + db GROUND,POISON,20 + db FLYING,ELECTRIC,05 + db FLYING,FIGHTING,20 + db FLYING,BUG,20 + db FLYING,GRASS,20 + db FLYING,ROCK,05 + db PSYCHIC,FIGHTING,20 + db PSYCHIC,POISON,20 + db BUG,FIRE,05 + db BUG,GRASS,20 + db BUG,FIGHTING,05 + db BUG,FLYING,05 + db BUG,PSYCHIC,20 + db BUG,GHOST,05 + db BUG,POISON,20 + db ROCK,FIRE,20 + db ROCK,FIGHTING,05 + db ROCK,GROUND,05 + db ROCK,FLYING,20 + db ROCK,BUG,20 + db ROCK,ICE,20 + db GHOST,NORMAL,00 + db GHOST,PSYCHIC,00 + db FIRE,DRAGON,05 + db WATER,DRAGON,05 + db ELECTRIC,DRAGON,05 + db GRASS,DRAGON,05 + db ICE,DRAGON,20 + db DRAGON,DRAGON,20 + db $FF + +INCBIN "baserom.gbc",$3E56B,$3EF07 - $3E56B + +PlayAttackAnimation: ; 6F07 + ld [$D07C],a + call Delay3 + ld a,8 + jp Predef + +INCBIN "baserom.gbc",$3EF12,$40000 - $3EF12 + +SECTION "bank10",DATA,BANK[$10] + +INCBIN "baserom.gbc",$40000,$47E + +PokedexEntryPointers: ; 447E + dw RhydonDexEntry + dw KangaskhanDexEntry + dw NidoranMDexEntry + dw ClefairyDexEntry + dw SpearowDexEntry + dw VoltorbDexEntry + dw NidokingDexEntry + dw SlowbroDexEntry + dw IvysaurDexEntry + dw ExeggutorDexEntry + dw LickitungDexEntry + dw ExeggcuteDexEntry + dw GrimerDexEntry + dw GengarDexEntry + dw NidoranFDexEntry + dw NidoqueenDexEntry + dw CuboneDexEntry + dw RhyhornDexEntry + dw LaprasDexEntry + dw ArcanineDexEntry + dw MewDexEntry + dw GyaradosDexEntry + dw ShellderDexEntry + dw TentacoolDexEntry + dw GastlyDexEntry + dw ScytherDexEntry + dw StaryuDexEntry + dw BlastoiseDexEntry + dw PinsirDexEntry + dw TangelaDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw GrowlitheDexEntry + dw OnixDexEntry + dw FearowDexEntry + dw PidgeyDexEntry + dw SlowpokeDexEntry + dw KadabraDexEntry + dw GravelerDexEntry + dw ChanseyDexEntry + dw MachokeDexEntry + dw MrMimeDexEntry + dw HitmonleeDexEntry + dw HitmonchanDexEntry + dw ArbokDexEntry + dw ParasectDexEntry + dw PsyduckDexEntry + dw DrowzeeDexEntry + dw GolemDexEntry + dw MissingNoDexEntry + dw MagmarDexEntry + dw MissingNoDexEntry + dw ElectabuzzDexEntry + dw MagnetonDexEntry + dw KoffingDexEntry + dw MissingNoDexEntry + dw MankeyDexEntry + dw SeelDexEntry + dw DiglettDexEntry + dw TaurosDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw FarfetchdDexEntry + dw VenonatDexEntry + dw DragoniteDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw DoduoDexEntry + dw PoliwagDexEntry + dw JynxDexEntry + dw MoltresDexEntry + dw ArticunoDexEntry + dw ZapdosDexEntry + dw DittoDexEntry + dw MeowthDexEntry + dw KrabbyDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw VulpixDexEntry + dw NinetalesDexEntry + dw PikachuDexEntry + dw RaichuDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw DratiniDexEntry + dw DragonairDexEntry + dw KabutoDexEntry + dw KabutopsDexEntry + dw HorseaDexEntry + dw SeadraDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw SandshrewDexEntry + dw SandslashDexEntry + dw OmanyteDexEntry + dw OmastarDexEntry + dw JigglypuffDexEntry + dw WigglytuffDexEntry + dw EeveeDexEntry + dw FlareonDexEntry + dw JolteonDexEntry + dw VaporeonDexEntry + dw MachopDexEntry + dw ZubatDexEntry + dw EkansDexEntry + dw ParasDexEntry + dw PoliwhirlDexEntry + dw PoliwrathDexEntry + dw WeedleDexEntry + dw KakunaDexEntry + dw BeedrillDexEntry + dw MissingNoDexEntry + dw DodrioDexEntry + dw PrimeapeDexEntry + dw DugtrioDexEntry + dw VenomothDexEntry + dw DewgongDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw CaterpieDexEntry + dw MetapodDexEntry + dw ButterfreeDexEntry + dw MachampDexEntry + dw MissingNoDexEntry + dw GolduckDexEntry + dw HypnoDexEntry + dw GolbatDexEntry + dw MewtwoDexEntry + dw SnorlaxDexEntry + dw MagikarpDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MukDexEntry + dw MissingNoDexEntry + dw KinglerDexEntry + dw CloysterDexEntry + dw MissingNoDexEntry + dw ElectrodeDexEntry + dw ClefableDexEntry + dw WeezingDexEntry + dw PersianDexEntry + dw MarowakDexEntry + dw MissingNoDexEntry + dw HaunterDexEntry + dw AbraDexEntry + dw AlakazamDexEntry + dw PidgeottoDexEntry + dw PidgeotDexEntry + dw StarmieDexEntry + dw BulbasaurDexEntry + dw VenusaurDexEntry + dw TentacruelDexEntry + dw MissingNoDexEntry + dw GoldeenDexEntry + dw SeakingDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw PonytaDexEntry + dw RapidashDexEntry + dw RattataDexEntry + dw RaticateDexEntry + dw NidorinoDexEntry + dw NidorinaDexEntry + dw GeodudeDexEntry + dw PorygonDexEntry + dw AerodactylDexEntry + dw MissingNoDexEntry + dw MagnemiteDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw CharmanderDexEntry + dw SquirtleDexEntry + dw CharmeleonDexEntry + dw WartortleDexEntry + dw CharizardDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw MissingNoDexEntry + dw OddishDexEntry + dw GloomDexEntry + dw VileplumeDexEntry + dw BellsproutDexEntry + dw WeepinbellDexEntry + dw VictreebelDexEntry + +; string: species name +; height in feet, inches +; weight in pounds +; text entry + +RhydonDexEntry: + db "DRILL@" + db 6,3 + dw 2650 + TX_FAR _RhydonDexEntry + db "@" + +KangaskhanDexEntry: + db "PARENT@" + db 7,3 + dw 1760 + TX_FAR _KangaskhanDexEntry + db "@" + +NidoranMDexEntry: + db "POISON PIN@" + db 1,8 + dw 200 + TX_FAR _NidoranMDexEntry + db "@" + +ClefairyDexEntry: + db "FAIRY@" + db 2,0 + dw 170 + TX_FAR _ClefairyDexEntry + db "@" + +SpearowDexEntry: + db "TINY BIRD@" + db 1,0 + dw 40 + TX_FAR _SpearowDexEntry + db "@" + +VoltorbDexEntry: + db "BALL@" + db 1,8 + dw 230 + TX_FAR _VoltorbDexEntry + db "@" + +NidokingDexEntry: + db "DRILL@" + db 4,7 + dw 1370 + TX_FAR _NidokingDexEntry + db "@" + +SlowbroDexEntry: + db "HERMITCRAB@" + db 5,3 + dw 1730 + TX_FAR _SlowbroDexEntry + db "@" + +IvysaurDexEntry: + db "SEED@" + db 3,3 + dw 290 + TX_FAR _IvysaurDexEntry + db "@" + +ExeggutorDexEntry: + db "COCONUT@" + db 6,7 + dw 2650 + TX_FAR _ExeggutorDexEntry + db "@" + +LickitungDexEntry: + db "LICKING@" + db 3,11 + dw 1440 + TX_FAR _LickitungDexEntry + db "@" + +ExeggcuteDexEntry: + db "EGG@" + db 1,4 + dw 60 + TX_FAR _ExeggcuteDexEntry + db "@" + +GrimerDexEntry: + db "SLUDGE@" + db 2,11 + dw 660 + TX_FAR _GrimerDexEntry + db "@" + +GengarDexEntry: + db "SHADOW@" + db 4,11 + dw 890 + TX_FAR _GengarDexEntry + db "@" + +NidoranFDexEntry: + db "POISON PIN@" + db 1,4 + dw 150 + TX_FAR _NidoranFDexEntry + db "@" + +NidoqueenDexEntry: + db "DRILL@" + db 4,3 + dw 1320 + TX_FAR _NidoqueenDexEntry + db "@" + +CuboneDexEntry: + db "LONELY@" + db 1,4 + dw 140 + TX_FAR _CuboneDexEntry + db "@" + +RhyhornDexEntry: + db "SPIKES@" + db 3,3 + dw 2540 + TX_FAR _RhyhornDexEntry + db "@" + +LaprasDexEntry: + db "TRANSPORT@" + db 8,2 + dw 4850 + TX_FAR _LaprasDexEntry + db "@" + +ArcanineDexEntry: + db "LEGENDARY@" + db 6,3 + dw 3420 + TX_FAR _ArcanineDexEntry + db "@" + +MewDexEntry: + db "NEW SPECIE@" + db 1,4 + dw 90 + TX_FAR _MewDexEntry + db "@" + +GyaradosDexEntry: + db "ATROCIOUS@" + db 21,4 + dw 5180 + TX_FAR _GyaradosDexEntry + db "@" + +ShellderDexEntry: + db "BIVALVE@" + db 1,0 + dw 90 + TX_FAR _ShellderDexEntry + db "@" + +TentacoolDexEntry: + db "JELLYFISH@" + db 2,11 + dw 1000 + TX_FAR _TentacoolDexEntry + db "@" + +GastlyDexEntry: + db "GAS@" + db 4,3 + dw 2 + TX_FAR _GastlyDexEntry + db "@" + +ScytherDexEntry: + db "MANTIS@" + db 4,11 + dw 1230 + TX_FAR _ScytherDexEntry + db "@" + +StaryuDexEntry: + db "STARSHAPE@" + db 2,7 + dw 760 + TX_FAR _StaryuDexEntry + db "@" + +BlastoiseDexEntry: + db "SHELLFISH@" + db 5,3 + dw 1890 + TX_FAR _BlastoiseDexEntry + db "@" + +PinsirDexEntry: + db "STAGBEETLE@" + db 4,11 + dw 1210 + TX_FAR _PinsirDexEntry + db "@" + +TangelaDexEntry: + db "VINE@" + db 3,3 + dw 770 + TX_FAR _TangelaDexEntry + db "@" + +GrowlitheDexEntry: + db "PUPPY@" + db 2,4 + dw 420 + TX_FAR _GrowlitheDexEntry + db "@" + +OnixDexEntry: + db "ROCK SNAKE@" + db 28,10 + dw 4630 + TX_FAR _OnixDexEntry + db "@" + +FearowDexEntry: + db "BEAK@" + db 3,11 + dw 840 + TX_FAR _FearowDexEntry + db "@" + +PidgeyDexEntry: + db "TINY BIRD@" + db 1,0 + dw 40 + TX_FAR _PidgeyDexEntry + db "@" + +SlowpokeDexEntry: + db "DOPEY@" + db 3,11 + dw 790 + TX_FAR _SlowpokeDexEntry + db "@" + +KadabraDexEntry: + db "PSI@" + db 4,3 + dw 1250 + TX_FAR _KadabraDexEntry + db "@" + +GravelerDexEntry: + db "ROCK@" + db 3,3 + dw 2320 + TX_FAR _GravelerDexEntry + db "@" + +ChanseyDexEntry: + db "EGG@" + db 3,7 + dw 760 + TX_FAR _ChanseyDexEntry + db "@" + +MachokeDexEntry: + db "SUPERPOWER@" + db 4,11 + dw 1550 + TX_FAR _MachokeDexEntry + db "@" + +MrMimeDexEntry: + db "BARRIER@" + db 4,3 + dw 1200 + TX_FAR _MrMimeDexEntry + db "@" + +HitmonleeDexEntry: + db "KICKING@" + db 4,11 + dw 1100 + TX_FAR _HitmonleeDexEntry + db "@" + +HitmonchanDexEntry: + db "PUNCHING@" + db 4,7 + dw 1110 + TX_FAR _HitmonchanDexEntry + db "@" + +ArbokDexEntry: + db "COBRA@" + db 11,6 + dw 1430 + TX_FAR _ArbokDexEntry + db "@" + +ParasectDexEntry: + db "MUSHROOM@" + db 3,3 + dw 650 + TX_FAR _ParasectDexEntry + db "@" + +PsyduckDexEntry: + db "DUCK@" + db 2,7 + dw 430 + TX_FAR _PsyduckDexEntry + db "@" + +DrowzeeDexEntry: + db "HYPNOSIS@" + db 3,3 + dw 710 + TX_FAR _DrowzeeDexEntry + db "@" + +GolemDexEntry: + db "MEGATON@" + db 4,7 + dw 6620 + TX_FAR _GolemDexEntry + db "@" + +MagmarDexEntry: + db "SPITFIRE@" + db 4,3 + dw 980 + TX_FAR _MagmarDexEntry + db "@" + +ElectabuzzDexEntry: + db "ELECTRIC@" + db 3,7 + dw 660 + TX_FAR _ElectabuzzDexEntry + db "@" + +MagnetonDexEntry: + db "MAGNET@" + db 3,3 + dw 1320 + TX_FAR _MagnetonDexEntry + db "@" + +KoffingDexEntry: + db "POISON GAS@" + db 2,0 + dw 20 + TX_FAR _KoffingDexEntry + db "@" + +MankeyDexEntry: + db "PIG MONKEY@" + db 1,8 + dw 620 + TX_FAR _MankeyDexEntry + db "@" + +SeelDexEntry: + db "SEA LION@" + db 3,7 + dw 1980 + TX_FAR _SeelDexEntry + db "@" + +DiglettDexEntry: + db "MOLE@" + db 0,8 + dw 20 + TX_FAR _DiglettDexEntry + db "@" + +TaurosDexEntry: + db "WILD BULL@" + db 4,7 + dw 1950 + TX_FAR _TaurosDexEntry + db "@" + +FarfetchdDexEntry: + db "WILD DUCK@" + db 2,7 + dw 330 + TX_FAR _FarfetchdDexEntry + db "@" + +VenonatDexEntry: + db "INSECT@" + db 3,3 + dw 660 + TX_FAR _VenonatDexEntry + db "@" + +DragoniteDexEntry: + db "DRAGON@" + db 7,3 + dw 4630 + TX_FAR _DragoniteDexEntry + db "@" + +DoduoDexEntry: + db "TWIN BIRD@" + db 4,7 + dw 860 + TX_FAR _DoduoDexEntry + db "@" + +PoliwagDexEntry: + db "TADPOLE@" + db 2,0 + dw 270 + TX_FAR _PoliwagDexEntry + db "@" + +JynxDexEntry: + db "HUMANSHAPE@" + db 4,7 + dw 900 + TX_FAR _JynxDexEntry + db "@" + +MoltresDexEntry: + db "FLAME@" + db 6,7 + dw 1320 + TX_FAR _MoltresDexEntry + db "@" + +ArticunoDexEntry: + db "FREEZE@" + db 5,7 + dw 1220 + TX_FAR _ArticunoDexEntry + db "@" + +ZapdosDexEntry: + db "ELECTRIC@" + db 5,3 + dw 1160 + TX_FAR _ZapdosDexEntry + db "@" + +DittoDexEntry: + db "TRANSFORM@" + db 1,0 + dw 90 + TX_FAR _DittoDexEntry + db "@" + +MeowthDexEntry: + db "SCRATCHCAT@" + db 1,4 + dw 90 + TX_FAR _MeowthDexEntry + db "@" + +KrabbyDexEntry: + db "RIVER CRAB@" + db 1,4 + dw 140 + TX_FAR _KrabbyDexEntry + db "@" + +VulpixDexEntry: + db "FOX@" + db 2,0 + dw 220 + TX_FAR _VulpixDexEntry + db "@" + +NinetalesDexEntry: + db "FOX@" + db 3,7 + dw 440 + TX_FAR _NinetalesDexEntry + db "@" + +PikachuDexEntry: + db "MOUSE@" + db 1,4 + dw 130 + TX_FAR _PikachuDexEntry + db "@" + +RaichuDexEntry: + db "MOUSE@" + db 2,7 + dw 660 + TX_FAR _RaichuDexEntry + db "@" + +DratiniDexEntry: + db "DRAGON@" + db 5,11 + dw 70 + TX_FAR _DratiniDexEntry + db "@" + +DragonairDexEntry: + db "DRAGON@" + db 13,1 + dw 360 + TX_FAR _DragonairDexEntry + db "@" + +KabutoDexEntry: + db "SHELLFISH@" + db 1,8 + dw 250 + TX_FAR _KabutoDexEntry + db "@" + +KabutopsDexEntry: + db "SHELLFISH@" + db 4,3 + dw 890 + TX_FAR _KabutopsDexEntry + db "@" + +HorseaDexEntry: + db "DRAGON@" + db 1,4 + dw 180 + TX_FAR _HorseaDexEntry + db "@" + +SeadraDexEntry: + db "DRAGON@" + db 3,11 + dw 550 + TX_FAR _SeadraDexEntry + db "@" + +SandshrewDexEntry: + db "MOUSE@" + db 2,0 + dw 260 + TX_FAR _SandshrewDexEntry + db "@" + +SandslashDexEntry: + db "MOUSE@" + db 3,3 + dw 650 + TX_FAR _SandslashDexEntry + db "@" + +OmanyteDexEntry: + db "SPIRAL@" + db 1,4 + dw 170 + TX_FAR _OmanyteDexEntry + db "@" + +OmastarDexEntry: + db "SPIRAL@" + db 3,3 + dw 770 + TX_FAR _OmastarDexEntry + db "@" + +JigglypuffDexEntry: + db "BALLOON@" + db 1,8 + dw 120 + TX_FAR _JigglypuffDexEntry + db "@" + +WigglytuffDexEntry: + db "BALLOON@" + db 3,3 + dw 260 + TX_FAR _WigglytuffDexEntry + db "@" + +EeveeDexEntry: + db "EVOLUTION@" + db 1,0 + dw 140 + TX_FAR _EeveeDexEntry + db "@" + +FlareonDexEntry: + db "FLAME@" + db 2,11 + dw 550 + TX_FAR _FlareonDexEntry + db "@" + +JolteonDexEntry: + db "LIGHTNING@" + db 2,7 + dw 540 + TX_FAR _JolteonDexEntry + db "@" + +VaporeonDexEntry: + db "BUBBLE JET@" + db 3,3 + dw 640 + TX_FAR _VaporeonDexEntry + db "@" + +MachopDexEntry: + db "SUPERPOWER@" + db 2,7 + dw 430 + TX_FAR _MachopDexEntry + db "@" + +ZubatDexEntry: + db "BAT@" + db 2,7 + dw 170 + TX_FAR _ZubatDexEntry + db "@" + +EkansDexEntry: + db "SNAKE@" + db 6,7 + dw 150 + TX_FAR _EkansDexEntry + db "@" + +ParasDexEntry: + db "MUSHROOM@" + db 1,0 + dw 120 + TX_FAR _ParasDexEntry + db "@" + +PoliwhirlDexEntry: + db "TADPOLE@" + db 3,3 + dw 440 + TX_FAR _PoliwhirlDexEntry + db "@" + +PoliwrathDexEntry: + db "TADPOLE@" + db 4,3 + dw 1190 + TX_FAR _PoliwrathDexEntry + db "@" + +WeedleDexEntry: + db "HAIRY BUG@" + db 1,0 + dw 70 + TX_FAR _WeedleDexEntry + db "@" + +KakunaDexEntry: + db "COCOON@" + db 2,0 + dw 220 + TX_FAR _KakunaDexEntry + db "@" + +BeedrillDexEntry: + db "POISON BEE@" + db 3,3 + dw 650 + TX_FAR _BeedrillDexEntry + db "@" + +DodrioDexEntry: + db "TRIPLEBIRD@" + db 5,11 + dw 1880 + TX_FAR _DodrioDexEntry + db "@" + +PrimeapeDexEntry: + db "PIG MONKEY@" + db 3,3 + dw 710 + TX_FAR _PrimeapeDexEntry + db "@" + +DugtrioDexEntry: + db "MOLE@" + db 2,4 + dw 730 + TX_FAR _DugtrioDexEntry + db "@" + +VenomothDexEntry: + db "POISONMOTH@" + db 4,11 + dw 280 + TX_FAR _VenomothDexEntry + db "@" + +DewgongDexEntry: + db "SEA LION@" + db 5,7 + dw 2650 + TX_FAR _DewgongDexEntry + db "@" + +CaterpieDexEntry: + db "WORM@" + db 1,0 + dw 60 + TX_FAR _CaterpieDexEntry + db "@" + +MetapodDexEntry: + db "COCOON@" + db 2,4 + dw 220 + TX_FAR _MetapodDexEntry + db "@" + +ButterfreeDexEntry: + db "BUTTERFLY@" + db 3,7 + dw 710 + TX_FAR _ButterfreeDexEntry + db "@" + +MachampDexEntry: + db "SUPERPOWER@" + db 5,3 + dw 2870 + TX_FAR _MachampDexEntry + db "@" + +GolduckDexEntry: + db "DUCK@" + db 5,7 + dw 1690 + TX_FAR _GolduckDexEntry + db "@" + +HypnoDexEntry: + db "HYPNOSIS@" + db 5,3 + dw 1670 + TX_FAR _HypnoDexEntry + db "@" + +GolbatDexEntry: + db "BAT@" + db 5,3 + dw 1210 + TX_FAR _GolbatDexEntry + db "@" + +MewtwoDexEntry: + db "GENETIC@" + db 6,7 + dw 2690 + TX_FAR _MewtwoDexEntry + db "@" + +SnorlaxDexEntry: + db "SLEEPING@" + db 6,11 + dw 10140 + TX_FAR _SnorlaxDexEntry + db "@" + +MagikarpDexEntry: + db "FISH@" + db 2,11 + dw 220 + TX_FAR _MagikarpDexEntry + db "@" + +MukDexEntry: + db "SLUDGE@" + db 3,11 + dw 660 + TX_FAR _MukDexEntry + db "@" + +KinglerDexEntry: + db "PINCER@" + db 4,3 + dw 1320 + TX_FAR _KinglerDexEntry + db "@" + +CloysterDexEntry: + db "BIVALVE@" + db 4,11 + dw 2920 + TX_FAR _CloysterDexEntry + db "@" + +ElectrodeDexEntry: + db "BALL@" + db 3,11 + dw 1470 + TX_FAR _ElectrodeDexEntry + db "@" + +ClefableDexEntry: + db "FAIRY@" + db 4,3 + dw 880 + TX_FAR _ClefableDexEntry + db "@" + +WeezingDexEntry: + db "POISON GAS@" + db 3,11 + dw 210 + TX_FAR _WeezingDexEntry + db "@" + +PersianDexEntry: + db "CLASSY CAT@" + db 3,3 + dw 710 + TX_FAR _PersianDexEntry + db "@" + +MarowakDexEntry: + db "BONEKEEPER@" + db 3,3 + dw 990 + TX_FAR _MarowakDexEntry + db "@" + +HaunterDexEntry: + db "GAS@" + db 5,3 + dw 2 + TX_FAR _HaunterDexEntry + db "@" + +AbraDexEntry: + db "PSI@" + db 2,11 + dw 430 + TX_FAR _AbraDexEntry + db "@" + +AlakazamDexEntry: + db "PSI@" + db 4,11 + dw 1060 + TX_FAR _AlakazamDexEntry + db "@" + +PidgeottoDexEntry: + db "BIRD@" + db 3,7 + dw 660 + TX_FAR _PidgeottoDexEntry + db "@" + +PidgeotDexEntry: + db "BIRD@" + db 4,11 + dw 870 + TX_FAR _PidgeotDexEntry + db "@" + +StarmieDexEntry: + db "MYSTERIOUS@" + db 3,7 + dw 1760 + TX_FAR _StarmieDexEntry + db "@" + +BulbasaurDexEntry: + db "SEED@" + db 2,4 + dw 150 + TX_FAR _BulbasaurDexEntry + db "@" + +VenusaurDexEntry: + db "SEED@" + db 6,7 + dw 2210 + TX_FAR _VenusaurDexEntry + db "@" + +TentacruelDexEntry: + db "JELLYFISH@" + db 5,3 + dw 1210 + TX_FAR _TentacruelDexEntry + db "@" + +GoldeenDexEntry: + db "GOLDFISH@" + db 2,0 + dw 330 + TX_FAR _GoldeenDexEntry + db "@" + +SeakingDexEntry: + db "GOLDFISH@" + db 4,3 + dw 860 + TX_FAR _SeakingDexEntry + db "@" + +PonytaDexEntry: + db "FIRE HORSE@" + db 3,3 + dw 660 + TX_FAR _PonytaDexEntry + db "@" + +RapidashDexEntry: + db "FIRE HORSE@" + db 5,7 + dw 2090 + TX_FAR _RapidashDexEntry + db "@" + +RattataDexEntry: + db "RAT@" + db 1,0 + dw 80 + TX_FAR _RattataDexEntry + db "@" + +RaticateDexEntry: + db "RAT@" + db 2,4 + dw 410 + TX_FAR _RaticateDexEntry + db "@" + +NidorinoDexEntry: + db "POISON PIN@" + db 2,11 + dw 430 + TX_FAR _NidorinoDexEntry + db "@" + +NidorinaDexEntry: + db "POISON PIN@" + db 2,7 + dw 440 + TX_FAR _NidorinaDexEntry + db "@" + +GeodudeDexEntry: + db "ROCK@" + db 1,4 + dw 440 + TX_FAR _GeodudeDexEntry + db "@" + +PorygonDexEntry: + db "VIRTUAL@" + db 2,7 + dw 800 + TX_FAR _PorygonDexEntry + db "@" + +AerodactylDexEntry: + db "FOSSIL@" + db 5,11 + dw 1300 + TX_FAR _AerodactylDexEntry + db "@" + +MagnemiteDexEntry: + db "MAGNET@" + db 1,0 + dw 130 + TX_FAR _MagnemiteDexEntry + db "@" + +CharmanderDexEntry: + db "LIZARD@" + db 2,0 + dw 190 + TX_FAR _CharmanderDexEntry + db "@" + +SquirtleDexEntry: + db "TINYTURTLE@" + db 1,8 + dw 200 + TX_FAR _SquirtleDexEntry + db "@" + +CharmeleonDexEntry: + db "FLAME@" + db 3,7 + dw 420 + TX_FAR _CharmeleonDexEntry + db "@" + +WartortleDexEntry: + db "TURTLE@" + db 3,3 + dw 500 + TX_FAR _WartortleDexEntry + db "@" + +CharizardDexEntry: + db "FLAME@" + db 5,7 + dw 2000 + TX_FAR _CharizardDexEntry + db "@" + +OddishDexEntry: + db "WEED@" + db 1,8 + dw 120 + TX_FAR _OddishDexEntry + db "@" + +GloomDexEntry: + db "WEED@" + db 2,7 + dw 190 + TX_FAR _GloomDexEntry + db "@" + +VileplumeDexEntry: + db "FLOWER@" + db 3,11 + dw 410 + TX_FAR _VileplumeDexEntry + db "@" + +BellsproutDexEntry: + db "FLOWER@" + db 2,4 + dw 90 + TX_FAR _BellsproutDexEntry + db "@" + +WeepinbellDexEntry: + db "FLYCATCHER@" + db 3,3 + dw 140 + TX_FAR _WeepinbellDexEntry + db "@" + +VictreebelDexEntry: + db "FLYCATCHER@" + db 5,7 + dw 340 + TX_FAR _VictreebelDexEntry + db "@" + +MissingNoDexEntry: + db "???@" + db 10 ; 1.0 m + db 100 ; 10.0 kg + db 0,"コメント さくせいちゅう@" ; コメント作成中 (Comment to be written) + +PokedexToIndex: + ; converts the Pokédex number at $D11E to an index + push bc + push hl + ld a,[$D11E] + ld b,a + ld c,0 + ld hl,PokedexOrder + +.loop\@ ; go through the list until we find an entry with a matching dex number + inc c + ld a,[hli] + cp b + jr nz,.loop\@ + + ld a,c + ld [$D11E],a + pop hl + pop bc + ret + +IndexToPokedex: + ; converts the indexédex number at $D11E to a Pokédex number + push bc + push hl + ld a,[$D11E] + dec a + ld hl,PokedexOrder + ld b,0 + ld c,a + add hl,bc + ld a,[hl] + ld [$D11E],a + pop hl + pop bc + ret + +PokedexOrder: ; 5024 + db DEX_RHYDON + db DEX_KANGASKHAN + db DEX_NIDORAN_M + db DEX_CLEFAIRY + db DEX_SPEAROW + db DEX_VOLTORB + db DEX_NIDOKING + db DEX_SLOWBRO + db DEX_IVYSAUR + db DEX_EXEGGUTOR + db DEX_LICKITUNG + db DEX_EXEGGCUTE + db DEX_GRIMER + db DEX_GENGAR + db DEX_NIDORAN_F + db DEX_NIDOQUEEN + db DEX_CUBONE + db DEX_RHYHORN + db DEX_LAPRAS + db DEX_ARCANINE + db DEX_MEW + db DEX_GYARADOS + db DEX_SHELLDER + db DEX_TENTACOOL + db DEX_GASTLY + db DEX_SCYTHER + db DEX_STARYU + db DEX_BLASTOISE + db DEX_PINSIR + db DEX_TANGELA + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_GROWLITHE + db DEX_ONIX + db DEX_FEAROW + db DEX_PIDGEY + db DEX_SLOWPOKE + db DEX_KADABRA + db DEX_GRAVELER + db DEX_CHANSEY + db DEX_MACHOKE + db DEX_MR_MIME + db DEX_HITMONLEE + db DEX_HITMONCHAN + db DEX_ARBOK + db DEX_PARASECT + db DEX_PSYDUCK + db DEX_DROWZEE + db DEX_GOLEM + db 0 ; MISSINGNO. + db DEX_MAGMAR + db 0 ; MISSINGNO. + db DEX_ELECTABUZZ + db DEX_MAGNETON + db DEX_KOFFING + db 0 ; MISSINGNO. + db DEX_MANKEY + db DEX_SEEL + db DEX_DIGLETT + db DEX_TAUROS + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_FARFETCH_D + db DEX_VENONAT + db DEX_DRAGONITE + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_DODUO + db DEX_POLIWAG + db DEX_JYNX + db DEX_MOLTRES + db DEX_ARTICUNO + db DEX_ZAPDOS + db DEX_DITTO + db DEX_MEOWTH + db DEX_KRABBY + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_VULPIX + db DEX_NINETALES + db DEX_PIKACHU + db DEX_RAICHU + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_DRATINI + db DEX_DRAGONAIR + db DEX_KABUTO + db DEX_KABUTOPS + db DEX_HORSEA + db DEX_SEADRA + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_SANDSHREW + db DEX_SANDSLASH + db DEX_OMANYTE + db DEX_OMASTAR + db DEX_JIGGLYPUFF + db DEX_WIGGLYTUFF + db DEX_EEVEE + db DEX_FLAREON + db DEX_JOLTEON + db DEX_VAPOREON + db DEX_MACHOP + db DEX_ZUBAT + db DEX_EKANS + db DEX_PARAS + db DEX_POLIWHIRL + db DEX_POLIWRATH + db DEX_WEEDLE + db DEX_KAKUNA + db DEX_BEEDRILL + db 0 ; MISSINGNO. + db DEX_DODRIO + db DEX_PRIMEAPE + db DEX_DUGTRIO + db DEX_VENOMOTH + db DEX_DEWGONG + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_CATERPIE + db DEX_METAPOD + db DEX_BUTTERFREE + db DEX_MACHAMP + db 0 ; MISSINGNO. + db DEX_GOLDUCK + db DEX_HYPNO + db DEX_GOLBAT + db DEX_MEWTWO + db DEX_SNORLAX + db DEX_MAGIKARP + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_MUK + db 0 ; MISSINGNO. + db DEX_KINGLER + db DEX_CLOYSTER + db 0 ; MISSINGNO. + db DEX_ELECTRODE + db DEX_CLEFABLE + db DEX_WEEZING + db DEX_PERSIAN + db DEX_MAROWAK + db 0 ; MISSINGNO. + db DEX_HAUNTER + db DEX_ABRA + db DEX_ALAKAZAM + db DEX_PIDGEOTTO + db DEX_PIDGEOT + db DEX_STARMIE + db DEX_BULBASAUR + db DEX_VENUSAUR + db DEX_TENTACRUEL + db 0 ; MISSINGNO. + db DEX_GOLDEEN + db DEX_SEAKING + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_PONYTA + db DEX_RAPIDASH + db DEX_RATTATA + db DEX_RATICATE + db DEX_NIDORINO + db DEX_NIDORINA + db DEX_GEODUDE + db DEX_PORYGON + db DEX_AERODACTYL + db 0 ; MISSINGNO. + db DEX_MAGNEMITE + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_CHARMANDER + db DEX_SQUIRTLE + db DEX_CHARMELEON + db DEX_WARTORTLE + db DEX_CHARIZARD + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db 0 ; MISSINGNO. + db DEX_ODDISH + db DEX_GLOOM + db DEX_VILEPLUME + db DEX_BELLSPROUT + db DEX_WEEPINBELL + db DEX_VICTREEBEL +INCBIN "baserom.gbc",$410E2,$2769 - $10E2 + +; XXX what do these do + FuncCoord 5,0 + ld hl,Coord + ld de,OTString67E5 + call PlaceString + ld a,[$CD3D] + ld [$D11E],a + ld a,$3A + call Predef + ld hl,$C3A9 + ld de,$D11E + ld bc,$8103 + call $3C5F + FuncCoord 5,2 + ld hl,Coord + ld de,$CF4B + call PlaceString + FuncCoord 8,4 + ld hl,Coord + ld de,$CD41 + call PlaceString + ld hl,$C420 + ld de,$CD4C + ld bc,$8205 + jp $3C5F + + FuncCoord 5,10 + ld hl,Coord + ld de,OTString67E5 + call PlaceString + ld a,[$CD3E] + ld [$D11E],a + ld a,$3A + call Predef + ld hl,$C471 + ld de,$D11E + ld bc,$8103 + call $3C5F + FuncCoord 5,12 + ld hl,Coord + ld de,$CD6D + call PlaceString + FuncCoord 8,14 + ld hl,Coord + ld de,$CD4E + call PlaceString + ld hl,$C4E8 + ld de,$CD59 + ld bc,$8205 + jp $3C5F + +OTString67E5: ; 67E5 + db "──",$74,$F2,$4E + db $4E + db "OT/",$4E + db $73,"№",$F2,"@" + +SECTION "bank11",DATA,BANK[$11] + +LavenderTown_h: ; 0x44000 to 0x4402d (45 bytes) (bank=11) (id=4) + db $00 ; tileset + db $09, $0a ; dimensions (y, x) + dw LavenderTownBlocks, LavenderTownTexts, LavenderTownScript ; blocks, texts, scripts + db NORTH | SOUTH | WEST ; connections + + ; connections data + + db ROUTE_10 + dw $44a0, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $47, $00 ; alignments (y, x) + dw $c929 ; window + + db ROUTE_12 + dw $4710, $c7ab ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_8 + dw $41e1, $c718 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $00, $3b ; alignments (y, x) + dw $c72a ; window + + ; end connection data + + dw LavenderTownObject ; objects + +LavenderTownObject: ; 0x4402d (size=88) + db $2c ; border tile + + db $6 ; warps + db $5, $3, $0, LAVENDER_POKECENTER + db $5, $e, $0, POKEMONTOWER_1 + db $9, $7, $0, LAVENDER_HOUSE_1 + db $d, $f, $0, LAVENDER_MART + db $d, $3, $0, LAVENDER_HOUSE_2 + db $d, $7, $0, NAME_RATERS_HOUSE + + db $6 ; signs + db $9, $b, $4 ; LavenderTownText4 + db $3, $9, $5 ; LavenderTownText5 + db $d, $10, $6 ; LavenderTownText6 + db $5, $4, $7 ; LavenderTownText7 + db $9, $5, $8 ; LavenderTownText8 + db $7, $11, $9 ; LavenderTownText9 + + db $3 ; people + db SPRITE_LITTLE_GIRL, $9 + 4, $f + 4, $fe, $0, $1 ; person + db SPRITE_BLACK_HAIR_BOY_1, $a + 4, $9 + 4, $ff, $ff, $2 ; person + db SPRITE_BLACK_HAIR_BOY_2, $7 + 4, $8 + 4, $fe, $2, $3 ; person + + ; warp-to + EVENT_DISP $a, $5, $3 ; LAVENDER_POKECENTER + EVENT_DISP $a, $5, $e ; POKEMONTOWER_1 + EVENT_DISP $a, $9, $7 ; LAVENDER_HOUSE_1 + EVENT_DISP $a, $d, $f ; LAVENDER_MART + EVENT_DISP $a, $d, $3 ; LAVENDER_HOUSE_2 + EVENT_DISP $a, $d, $7 ; NAME_RATERS_HOUSE + +LavenderTownBlocks: ; 90 + INCBIN "maps/lavendertown.blk" + +ViridianPokecenterBlocks: ; 28 + INCBIN "maps/viridianpokecenter.blk" + +SafariZoneRestHouse1Blocks: ; 16 + INCBIN "maps/safarizoneresthouse1.blk" + +LavenderTownScript: ; 0x4410b + jp $3c3c +; 0x4410e + +LavenderTownTexts: ; 0x4410e + dw LavenderTownText1, LavenderTownText2, LavenderTownText3, LavenderTownText4, LavenderTownText5, LavenderTownText6, LavenderTownText7, LavenderTownText8, LavenderTownText9 + +LavenderTownText1: ; 0x44120 + db $08 ; asm + ld hl, $413c + call PrintText + call $35ec + ld a, [$cc26] + and a + ld hl, $4146 + jr nz, .asm_40831 ; 0x44131 + ld hl, $4141 +.asm_40831 ; 0x44136 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$4413c,$f + +LavenderTownText2: ; 0x4414b + TX_FAR _LavenderTownText2 + db $50 + +LavenderTownText3: ; 0x44150 + TX_FAR _LavenderTownText3 + db $50 + +LavenderTownText4: ; 0x44155 + TX_FAR _LavenderTownText4 + db $50 + +LavenderTownText5: ; 0x4415a + TX_FAR _LavenderTownText5 + db $50 + +LavenderTownText8: ; 0x4415f + TX_FAR _LavenderTownText8 + db $50 + +LavenderTownText9: ; 0x44164 + TX_FAR _LavenderTownText9 + db $50 + +INCBIN "baserom.gbc",$44169,$e8 + +ViridianPokecenter_h: ; 0x44251 to 0x4425d (12 bytes) (bank=11) (id=41) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw ViridianPokecenterBlocks, ViridianPokecenterTexts, ViridianPokeCenterScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianPokecenterObject ; objects + +ViridianPokeCenterScript: ; 0x4425d + call $22fa + jp $3c3c +; 0x44263 + +ViridianPokecenterTexts: ; 0x44263 + dw ViridianPokeCenterText1, ViridianPokeCenterText2, ViridianPokeCenterText3, ViridianPokeCenterText4 + +ViridianPokeCenterText1: ; 0x4426b + db $ff + +ViridianPokeCenterText2: ; 0x4426c + TX_FAR _ViridianPokeCenterText1 + db $50 + +INCBIN "baserom.gbc",$44271,$44271 - $44271 + +ViridianPokeCenterText3: ; 0x44271 + TX_FAR _ViridianPokeCenterText3 + db $50 + +ViridianPokeCenterText4: + db $f6 + +ViridianPokecenterObject: ; 0x44277 (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $0, $ff + db $7, $4, $0, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_GENTLEMAN, $5 + 4, $a + 4, $fe, $1, $2 ; person + db SPRITE_BLACK_HAIR_BOY_1, $3 + 4, $4 + 4, $ff, $ff, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +Mansion1_h: ; 0x442a3 to 0x442af (12 bytes) (bank=11) (id=165) + db $16 ; tileset + db $0e, $0f ; dimensions (y, x) + dw Mansion1Blocks, Mansion1Texts, Mansion1Script ; blocks, texts, scripts + db $00 ; connections + + dw Mansion1Object ; objects + +Mansion1Script: + call Mansion1Subscript1 + call $3c3c + ld hl, $4334 + ld de, $4326 + ld a, [$d63a] + call $3160 + ld [$d63a], a + ret +; 0x442c5 + +Mansion1Subscript1: ; 0x442c5 + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + ret z + ld a, [$d796] + bit 0, a + jr nz, .asm_442ec ; 0x442d2 $18 + ld bc, $060c + call $430b + ld bc, $0308 + call $4304 + ld bc, $080a + call $4304 + ld bc, $0d0d + jp $4304 +.asm_442ec + ld bc, $060c + call $4304 + ld bc, $0308 + call $430b + ld bc, $080a + call $430b + ld bc, $0d0d + jp $430b +; 0x44304 + +INCBIN "baserom.gbc",$44304,$4432c - $44304 + +Mansion1Texts: ; 4432c +INCBIN "baserom.gbc",$4432c,$44341 - $4432c + +Mansion1Text1: ; 0x44341 + db $08 ; asm + ld hl, $4334 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$4434b,$59 + +Mansion1Object: ; 0x443a4 (size=90) + db $2e ; border tile + + db $8 ; warps + db $1b, $4, $0, $ff + db $1b, $5, $0, $ff + db $1b, $6, $0, $ff + db $1b, $7, $0, $ff + db $a, $5, $0, MANSION_2 + db $17, $15, $0, MANSION_4 + db $1b, $1a, $0, $ff + db $1b, $1b, $0, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_OAK_AIDE, $11 + 4, $11 + 4, $ff, $d2, $41, SCIENTIST + $C8, $4 ; trainer + db SPRITE_BALL, $3 + 4, $e + 4, $ff, $ff, $82, ESCAPE_ROPE ; item + db SPRITE_BALL, $15 + 4, $12 + 4, $ff, $ff, $83, CARBOS ; item + + ; warp-to + EVENT_DISP $f, $1b, $4 + EVENT_DISP $f, $1b, $5 + EVENT_DISP $f, $1b, $6 + EVENT_DISP $f, $1b, $7 + EVENT_DISP $f, $a, $5 ; MANSION_2 + EVENT_DISP $f, $17, $15 ; MANSION_4 + EVENT_DISP $f, $1b, $1a + EVENT_DISP $f, $1b, $1b + +Mansion1Blocks: ; 203 + INCBIN "maps/mansion1.blk" + +RockTunnel1_h: ; 0x444d0 to 0x444dc (12 bytes) (bank=11) (id=82) + db $11 ; tileset + db $12, $14 ; dimensions (y, x) + dw RockTunnel1Blocks, RockTunnel1Texts, RockTunnel1Script ; blocks, texts, scripts + db $00 ; connections + + dw RockTunnel1Object ; objects + +RockTunnel1Script: ; 0x444dc + call $3c3c + ld hl, $4505 + ld de, $44ef + ld a, [$d621] + call $3160 + ld [$d621], a + ret +; 0x444ef + +INCBIN "baserom.gbc",$444ef,$6 + +RockTunnel1Texts: ; 0x444f5 + dw RockTunnel1Text1, RockTunnel1Text2, RockTunnel1Text3, RockTunnel1Text4, RockTunnel1Text5, RockTunnel1Text6, RockTunnel1Text7, RockTunnel1Text8 + +INCBIN "baserom.gbc",$44505,$55 + +RockTunnel1Text1: ; 0x4455a + db $8 + ld hl, $4505 + jr asm_0c916 ; 0x4455e $22 + +RockTunnel1Text2: + db $8 + ld hl, $4511 + jr asm_0c916 ; 0x44564 $1c + +RockTunnel1Text3: + db $8 + ld hl, $451d + jr asm_0c916 ; 0x4456a $16 + +RockTunnel1Text4: + db $8 + ld hl, $4529 + jr asm_0c916 ; 0x44570 $10 + +RockTunnel1Text5: + db $8 + ld hl, $4535 + jr asm_0c916 ; 0x44576 $a + +RockTunnel1Text6: + db $8 + ld hl, $4541 + jr asm_0c916 ; 0x4457c $4 + +RockTunnel1Text7: + db $8 + ld hl, $454d +asm_0c916: ; 0x44582 + call $31cc + jp $24d7 + +INCBIN "baserom.gbc",$44588,$69 + +RockTunnel1Text8: ; 0x445f1 + TX_FAR _RockTunnel1Text8 + db $50 + +RockTunnel1Object: ; 0x445f6 (size=127) + db $3 ; border tile + + db $8 ; warps + db $3, $f, $1, $ff + db $0, $f, $1, $ff + db $21, $f, $2, $ff + db $23, $f, $2, $ff + db $3, $25, $0, ROCK_TUNNEL_2 + db $3, $5, $1, ROCK_TUNNEL_2 + db $b, $11, $2, ROCK_TUNNEL_2 + db $11, $25, $3, ROCK_TUNNEL_2 + + db $1 ; signs + db $1d, $b, $8 ; RockTunnel1Text8 + + db $7 ; people + db SPRITE_HIKER, $5 + 4, $7 + 4, $ff, $d0, $41, HIKER + $C8, $c ; trainer + db SPRITE_HIKER, $10 + 4, $5 + 4, $ff, $d0, $42, HIKER + $C8, $d ; trainer + db SPRITE_HIKER, $f + 4, $11 + 4, $ff, $d2, $43, HIKER + $C8, $e ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $17 + 4, $ff, $d2, $44, POKEMANIAC + $C8, $7 ; trainer + db SPRITE_LASS, $15 + 4, $25 + 4, $ff, $d2, $45, JR__TRAINER_F + $C8, $11 ; trainer + db SPRITE_LASS, $18 + 4, $16 + 4, $ff, $d0, $46, JR__TRAINER_F + $C8, $12 ; trainer + db SPRITE_LASS, $18 + 4, $20 + 4, $ff, $d3, $47, JR__TRAINER_F + $C8, $13 ; trainer + + ; warp-to + EVENT_DISP $14, $3, $f + EVENT_DISP $14, $0, $f + EVENT_DISP $14, $21, $f + EVENT_DISP $14, $23, $f + EVENT_DISP $14, $3, $25 ; ROCK_TUNNEL_2 + EVENT_DISP $14, $3, $5 ; ROCK_TUNNEL_2 + EVENT_DISP $14, $b, $11 ; ROCK_TUNNEL_2 + EVENT_DISP $14, $11, $25 ; ROCK_TUNNEL_2 + +RockTunnel1Blocks: ; 360 + INCBIN "maps/rocktunnel1.blk" + +SeafoamIslands1_h: ; 0x447dd to 0x447e9 (12 bytes) (bank=11) (id=192) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw SeafoamIslands1Blocks, SeafoamIslands1Texts, SeafoamIslands1Script ; blocks, texts, scripts + db $00 ; connections + + dw SeafoamIslands1Object ; objects + +SeafoamIslands1Script: ; 0x447e9 + call $3c3c + ld hl, $d7e7 + set 0, [hl] + ld hl, $cd60 + bit 7, [hl] + res 7, [hl] + jr z, .asm_4483b ; 0x447f8 $41 + ld hl, $4846 + call $34e4 + ret nc + ld hl, $d7e8 + ld a, [$cd3d] + cp $1 + jr nz, .asm_44819 ; 0x44809 $e + set 6, [hl] + ld a, $d7 + ld [$d079], a + ld a, $d9 + ld [$d07a], a + jr .asm_44825 ; 0x44817 $c +.asm_44819 + set 7, [hl] + ld a, $d8 + ld [$d079], a + ld a, $da + ld [$d07a], a +.asm_44825 + ld a, [$d079] + ld [$cc4d], a + ld a, $11 + call Predef + ld a, [$d07a] + ld [$cc4d], a + ld a, $15 + jp $3e6d +.asm_4483b + ld a, $9f + ld [$d71d], a + ld hl, $4846 + jp $6981 +; 0x44846 + +INCBIN "baserom.gbc",$44846,$5 + +SeafoamIslands1Texts: ; 0x4484b + dw SeafoamIslands1Text1, SeafoamIslands1Text2 + +SeafoamIslands1Object: ; 0x4484f (size=72) + db $7d ; border tile + + db $7 ; warps + db $11, $4, $0, $ff + db $11, $5, $0, $ff + db $11, $1a, $1, $ff + db $11, $1b, $1, $ff + db $5, $7, $1, SEAFOAM_ISLANDS_2 + db $3, $19, $6, SEAFOAM_ISLANDS_2 + db $f, $17, $4, SEAFOAM_ISLANDS_2 + + db $0 ; signs + + db $2 ; people + db SPRITE_BOULDER, $a + 4, $12 + 4, $ff, $10, $1 ; person + db SPRITE_BOULDER, $7 + 4, $1a + 4, $ff, $10, $2 ; person + + ; warp-to + EVENT_DISP $f, $11, $4 + EVENT_DISP $f, $11, $5 + EVENT_DISP $f, $11, $1a + EVENT_DISP $f, $11, $1b + EVENT_DISP $f, $5, $7 ; SEAFOAM_ISLANDS_2 + EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_2 + EVENT_DISP $f, $f, $17 ; SEAFOAM_ISLANDS_2 + +INCBIN "baserom.gbc",$44897,$8 + +SeafoamIslands1Blocks: ; 135 + INCBIN "maps/seafoamislands1.blk" + +SSAnne3_h: ; 0x44926 to 0x44932 (12 bytes) (bank=11) (id=97) + db $0d ; tileset + db $03, $0a ; dimensions (y, x) + dw SSAnne3Blocks, SSAnne3Texts, SSAnne3Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne3Object ; objects + +SSAnne3Script: ; 0x44932 + jp $3c3c +; 0x44935 + +SSAnne3Texts: ; 0x44935 + dw SSAnne3Text1 + +SSAnne3Text1: ; 0x44937 + TX_FAR _SSAnne3Text1 + db $50 + +SSAnne3Object: ; 0x4493c (size=26) + db $c ; border tile + + db $2 ; warps + db $3, $0, $0, SS_ANNE_5 + db $3, $13, $7, SS_ANNE_2 + + db $0 ; signs + + db $1 ; people + db SPRITE_SAILOR, $3 + 4, $9 + 4, $fe, $2, $1 ; person + + ; warp-to + EVENT_DISP $a, $3, $0 ; SS_ANNE_5 + EVENT_DISP $a, $3, $13 ; SS_ANNE_2 + +SSAnne3Blocks: ; 30 + INCBIN "maps/ssanne3.blk" + +VictoryRoad3_h: ; 0x44974 to 0x44980 (12 bytes) (bank=11) (id=198) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw VictoryRoad3Blocks, VictoryRoad3Texts, VictoryRoad3Script ; blocks, texts, scripts + db $00 ; connections + + dw VictoryRoad3Object ; objects + +VictoryRoad3Script: ; 0x44980 + call $4996 + call $3c3c + ld hl, $4a38 + ld de, $49b1 + ld a, [$d640] + call $3160 + ld [$d640], a + ret +; 0x44996 + +INCBIN "baserom.gbc",$44996,$8e + +VictoryRoad3Texts: ; 0x44a24 + dw VictoryRoad3Text1, VictoryRoad3Text2, VictoryRoad3Text3, VictoryRoad3Text4, VictoryRoad3Text5, VictoryRoad3Text6, VictoryRoad3Text7, VictoryRoad3Text8, VictoryRoad3Text9, VictoryRoad3Text10 + +INCBIN "baserom.gbc",$44a38,$31 + +VictoryRoad3Text1: ; 0x44a69 + db $08 ; asm + ld hl, $4a38 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad3Text2: ; 0x44a73 + db $08 ; asm + ld hl, $4a44 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad3Text3: ; 0x44a7d + db $08 ; asm + ld hl, $4a50 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad3Text4: ; 0x44a87 + db $08 ; asm + ld hl, $4a5c + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$44a91,$3c + +VictoryRoad3Object: ; 0x44acd (size=106) + db $7d ; border tile + + db $4 ; warps + db $7, $17, $3, VICTORY_ROAD_2 + db $8, $1a, $5, VICTORY_ROAD_2 + db $f, $1b, $4, VICTORY_ROAD_2 + db $0, $2, $6, VICTORY_ROAD_2 + + db $0 ; signs + + db $a ; people + db SPRITE_BLACK_HAIR_BOY_1, $5 + 4, $1c + 4, $ff, $d2, $41, COOLTRAINER_M + $C8, $2 ; trainer + db SPRITE_LASS, $d + 4, $7 + 4, $ff, $d3, $42, COOLTRAINER_F + $C8, $2 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $e + 4, $6 + 4, $ff, $d2, $43, COOLTRAINER_M + $C8, $3 ; trainer + db SPRITE_LASS, $3 + 4, $d + 4, $ff, $d3, $44, COOLTRAINER_F + $C8, $3 ; trainer + db SPRITE_BALL, $5 + 4, $1a + 4, $ff, $ff, $85, MAX_REVIVE ; item + db SPRITE_BALL, $7 + 4, $7 + 4, $ff, $ff, $86, TM_47 ; item + db SPRITE_BOULDER, $3 + 4, $16 + 4, $ff, $10, $7 ; person + db SPRITE_BOULDER, $c + 4, $d + 4, $ff, $10, $8 ; person + db SPRITE_BOULDER, $a + 4, $18 + 4, $ff, $10, $9 ; person + db SPRITE_BOULDER, $f + 4, $16 + 4, $ff, $10, $a ; person + + ; warp-to + EVENT_DISP $f, $7, $17 ; VICTORY_ROAD_2 + EVENT_DISP $f, $8, $1a ; VICTORY_ROAD_2 + EVENT_DISP $f, $f, $1b ; VICTORY_ROAD_2 + EVENT_DISP $f, $0, $2 ; VICTORY_ROAD_2 + +VictoryRoad3Blocks: ; 135 + INCBIN "maps/victoryroad3.blk" + +RocketHideout1_h: ; 0x44bbe to 0x44bca (12 bytes) (bank=11) (id=199) + db $16 ; tileset + db $0e, $0f ; dimensions (y, x) + dw RocketHideout1Blocks, RocketHideout1Texts, RocketHideout1Script ; blocks, texts, scripts + db $00 ; connections + + dw RocketHideout1Object ; objects + +RocketHideout1Script: ; 0x44bca + call $4be0 + call $3c3c + ld hl, $4c22 + ld de, $4c0e + ld a, [$d631] + call $3160 + ld [$d631], a + ret +; 0x44be0 + +INCBIN "baserom.gbc",$44be0,$34 + +RocketHideout1Texts: ; 0x44c14 + dw RocketHideout1Text1, RocketHideout1Text2, RocketHideout1Text3, RocketHideout1Text4, RocketHideout1Text5, RocketHideout1Text6, RocketHideout1Text7 + +INCBIN "baserom.gbc",$44c22,$3d + +RocketHideout1Text1: ; 0x44c5f + db $08 ; asm + ld hl, $4c22 + call LoadTrainerHeader + jp $24d7 + +RocketHideout1Text2: ; 0x44c69 + db $08 ; asm + ld hl, $4c2e + call LoadTrainerHeader + jp $24d7 + +RocketHideout1Text3: ; 0x44c73 + db $08 ; asm + ld hl, $4c3a + call LoadTrainerHeader + jp $24d7 + +RocketHideout1Text4: ; 0x44c7d + db $08 ; asm + ld hl, $4c46 + call LoadTrainerHeader + jp $24d7 + +RocketHideout1Text5: ; 0x44c87 + db $08 ; asm + ld hl, $4c52 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$44c91,$56 + +RocketHideout1Object: ; 0x44ce7 (size=98) + db $2e ; border tile + + db $5 ; warps + db $2, $17, $0, ROCKET_HIDEOUT_2 + db $2, $15, $2, GAME_CORNER + db $13, $18, $0, ROCKET_HIDEOUT_ELEVATOR + db $18, $15, $3, ROCKET_HIDEOUT_2 + db $13, $19, $1, ROCKET_HIDEOUT_ELEVATOR + + db $0 ; signs + + db $7 ; people + db SPRITE_ROCKET, $8 + 4, $1a + 4, $ff, $d2, $41, ROCKET + $C8, $8 ; trainer + db SPRITE_ROCKET, $6 + 4, $c + 4, $ff, $d3, $42, ROCKET + $C8, $9 ; trainer + db SPRITE_ROCKET, $11 + 4, $12 + 4, $ff, $d0, $43, ROCKET + $C8, $a ; trainer + db SPRITE_ROCKET, $19 + 4, $f + 4, $ff, $d3, $44, ROCKET + $C8, $b ; trainer + db SPRITE_ROCKET, $12 + 4, $1c + 4, $ff, $d2, $45, ROCKET + $C8, $c ; trainer + db SPRITE_BALL, $e + 4, $b + 4, $ff, $ff, $86, ESCAPE_ROPE ; item + db SPRITE_BALL, $11 + 4, $9 + 4, $ff, $ff, $87, HYPER_POTION ; item + + ; warp-to + EVENT_DISP $f, $2, $17 ; ROCKET_HIDEOUT_2 + EVENT_DISP $f, $2, $15 ; GAME_CORNER + EVENT_DISP $f, $13, $18 ; ROCKET_HIDEOUT_ELEVATOR + EVENT_DISP $f, $18, $15 ; ROCKET_HIDEOUT_2 + EVENT_DISP $f, $13, $19 ; ROCKET_HIDEOUT_ELEVATOR + +RocketHideout1Blocks: ; 210 + INCBIN "maps/rockethideout1.blk" + +RocketHideout2_h: ; 0x44e1b to 0x44e27 (12 bytes) (bank=11) (id=200) + db $16 ; tileset + db $0e, $0f ; dimensions (y, x) + dw RocketHideout2Blocks, RocketHideout2Texts, RocketHideout2Script ; blocks, texts, scripts + db $00 ; connections + + dw RocketHideout2Object ; objects + +RocketHideout2Script: ; 0x44e27 + call $3c3c + ld hl, $50d1 + ld de, $4e3a + ld a, [$d632] + call $3160 + ld [$d632], a + ret +; 0x44e3a + +INCBIN "baserom.gbc",$44e3a,$28d + +RocketHideout2Texts: ; 0x450c7 + dw RocketHideout2Text1, RocketHideout2Text2, RocketHideout2Text3, RocketHideout2Text4, RocketHideout2Text5 + +INCBIN "baserom.gbc",$450d1,$d + +RocketHideout2Text1: ; 0x450de + db $08 ; asm + ld hl, $50d1 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$450e8,$f + +RocketHideout2Object: ; 0x450f7 (size=80) + db $2e ; border tile + + db $5 ; warps + db $8, $1b, $0, ROCKET_HIDEOUT_1 + db $8, $15, $0, ROCKET_HIDEOUT_3 + db $13, $18, $0, ROCKET_HIDEOUT_ELEVATOR + db $16, $15, $3, ROCKET_HIDEOUT_1 + db $13, $19, $1, ROCKET_HIDEOUT_ELEVATOR + + db $0 ; signs + + db $5 ; people + db SPRITE_ROCKET, $c + 4, $14 + 4, $ff, $d0, $41, ROCKET + $C8, $d ; trainer + db SPRITE_BALL, $b + 4, $1 + 4, $ff, $ff, $82, MOON_STONE ; item + db SPRITE_BALL, $8 + 4, $10 + 4, $ff, $ff, $83, NUGGET ; item + db SPRITE_BALL, $c + 4, $6 + 4, $ff, $ff, $84, TM_07 ; item + db SPRITE_BALL, $15 + 4, $3 + 4, $ff, $ff, $85, SUPER_POTION ; item + + ; warp-to + EVENT_DISP $f, $8, $1b ; ROCKET_HIDEOUT_1 + EVENT_DISP $f, $8, $15 ; ROCKET_HIDEOUT_3 + EVENT_DISP $f, $13, $18 ; ROCKET_HIDEOUT_ELEVATOR + EVENT_DISP $f, $16, $15 ; ROCKET_HIDEOUT_1 + EVENT_DISP $f, $13, $19 ; ROCKET_HIDEOUT_ELEVATOR + +RocketHideout2Blocks: ; 210 + INCBIN "maps/rockethideout2.blk" + +RocketHideout3_h: ; 0x45219 to 0x45225 (12 bytes) (bank=11) (id=201) + db $16 ; tileset + db $0e, $0f ; dimensions (y, x) + dw RocketHideout3Blocks, RocketHideout3Texts, RocketHideout3Script ; blocks, texts, scripts + db $00 ; connections + + dw RocketHideout3Object ; objects + +RocketHideout3Script: ; 0x45225 + call $3c3c + ld hl, $5302 + ld de, $5238 + ld a, [$d633] + call $3160 + ld [$d633], a + ret +; 0x45238 + +INCBIN "baserom.gbc",$45238,$c2 + +RocketHideout3Texts: ; 0x452fa + dw RocketHideout3Text1, RocketHideout3Text2, RocketHideout3Text3, RocketHideout3Text4 + +INCBIN "baserom.gbc",$45302,$19 + +RocketHideout3Text1: ; 0x4531b + db $08 ; asm + ld hl, $5302 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$45325,$45334 - $45325 + +RocketHideout3Text2: ; 0x45334 + db $08 ; asm + ld hl, $530e + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$4533e,$f + +RocketHideout3Object: ; 0x4534d (size=50) + db $2e ; border tile + + db $2 ; warps + db $6, $19, $1, ROCKET_HIDEOUT_2 + db $12, $13, $0, ROCKET_HIDEOUT_4 + + db $0 ; signs + + db $4 ; people + db SPRITE_ROCKET, $16 + 4, $a + 4, $ff, $d3, $41, ROCKET + $C8, $e ; trainer + db SPRITE_ROCKET, $c + 4, $1a + 4, $ff, $d1, $42, ROCKET + $C8, $f ; trainer + db SPRITE_BALL, $11 + 4, $1a + 4, $ff, $ff, $83, TM_10 ; item + db SPRITE_BALL, $e + 4, $14 + 4, $ff, $ff, $84, RARE_CANDY ; item + + ; warp-to + EVENT_DISP $f, $6, $19 ; ROCKET_HIDEOUT_2 + EVENT_DISP $f, $12, $13 ; ROCKET_HIDEOUT_4 + +RocketHideout3Blocks: ; 210 + INCBIN "maps/rockethideout3.blk" + +RocketHideout4_h: ; 0x45451 to 0x4545d (12 bytes) (bank=11) (id=202) + db $16 ; tileset + db $0c, $0f ; dimensions (y, x) + dw RocketHideout4Blocks, RocketHideout4Texts, RocketHideout4Script ; blocks, texts, scripts + db $00 ; connections + + dw RocketHideout4Object ; objects + +RocketHideout4Script: ; 0x4545d + call $5473 + call $3c3c + ld hl, $5515 + ld de, $54ae + ld a, [$d634] + call $3160 + ld [$d634], a + ret +; 0x45473 + +INCBIN "baserom.gbc",$45473,$8e + +RocketHideout4Texts: ; 0x45501 + dw RocketHideout4Text1, RocketHideout4Text2, RocketHideout4Text3, RocketHideout4Text4, RocketHideout4Text5, RocketHideout4Text6, RocketHideout4Text7, RocketHideout4Text8, RocketHideout4Text9, RocketHideout4Text10 + +INCBIN "baserom.gbc",$45515,$25 + +RocketHideout4Text1: ; 0x4553a + db $08 ; asm + ld a, [$d81b] + bit 7, a + jp nz, $5571 + ld hl, $557a + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $557f + ld de, $557f + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + xor a + ldh [$b4], a + ld a, $3 + ld [$d634], a + ld [$da39], a + jr .asm_209f0 ; 0x4556f + ld hl, $5584 + call PrintText +.asm_209f0 ; 0x45577 + jp $24d7 + +INCBIN "baserom.gbc",$4557a,$45584 - $4557a + +RocketHideout4Text10: ; 0x45584 +INCBIN "baserom.gbc",$45584,5 + +RocketHideout4Text2: ; 0x45589 + db $08 ; asm + ld hl, $5515 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$45593,$455a2 - $45593 + +RocketHideout4Text3: ; 0x455a2 + db $08 ; asm + ld hl, $5521 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$455ac,$455bb - $455ac + +RocketHideout4Text4: ; 0x455bb + db $08 ; asm + ld hl, $552d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$455c5,$2c + +RocketHideout4Object: ; 0x455f1 (size=95) + db $2e ; border tile + + db $3 ; warps + db $a, $13, $1, ROCKET_HIDEOUT_3 + db $f, $18, $0, ROCKET_HIDEOUT_ELEVATOR + db $f, $19, $1, ROCKET_HIDEOUT_ELEVATOR + + db $0 ; signs + + db $9 ; people + db SPRITE_GIOVANNI, $3 + 4, $19 + 4, $ff, $d0, $41, GIOVANNI + $C8, $1 ; trainer + db SPRITE_ROCKET, $c + 4, $17 + 4, $ff, $d0, $42, ROCKET + $C8, $10 ; trainer + db SPRITE_ROCKET, $c + 4, $1a + 4, $ff, $d0, $43, ROCKET + $C8, $11 ; trainer + db SPRITE_ROCKET, $2 + 4, $b + 4, $ff, $d0, $44, ROCKET + $C8, $12 ; trainer + db SPRITE_BALL, $c + 4, $a + 4, $ff, $ff, $85, HP_UP ; item + db SPRITE_BALL, $4 + 4, $9 + 4, $ff, $ff, $86, TM_02 ; item + db SPRITE_BALL, $14 + 4, $c + 4, $ff, $ff, $87, IRON ; item + db SPRITE_BALL, $2 + 4, $19 + 4, $ff, $ff, $88, SILPH_SCOPE ; item + db SPRITE_BALL, $2 + 4, $a + 4, $ff, $ff, $89, LIFT_KEY ; item + + ; warp-to + EVENT_DISP $f, $a, $13 ; ROCKET_HIDEOUT_3 + EVENT_DISP $f, $f, $18 ; ROCKET_HIDEOUT_ELEVATOR + EVENT_DISP $f, $f, $19 ; ROCKET_HIDEOUT_ELEVATOR + +RocketHideout4Blocks: ; 180 + INCBIN "maps/rockethideout4.blk" + +RocketHideoutElevator_h: ; 0x45704 to 0x45710 (12 bytes) (bank=11) (id=203) + db $12 ; tileset + db $04, $03 ; dimensions (y, x) + dw RocketHideoutElevatorBlocks, RocketHideoutElevatorTexts, RocketHideoutElevatorScript ; blocks, texts, scripts + db $00 ; connections + + dw RocketHideoutElevatorObject ; objects + +RocketHideoutElevatorScript: ; 0x45710 + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + push hl + call nz, $572c + pop hl + bit 7, [hl] + res 7, [hl] + call nz, $575f + xor a + ld [$cf0c], a + inc a + ld [$cc3c], a + ret +; 0x4572c + +INCBIN "baserom.gbc",$4572c,$3f + +RocketHideoutElevatorTexts: ; 0x4576b + dw RocketHideoutElevatorText1 + +RocketHideoutElevatorText1: ; 0x4576d + db $08 ; asm + ld b,LIFT_KEY + call $3493 + jr z, .asm_8d8f0 ; 0x45773 + call $5741 + ld hl, $5759 + ld a, $61 + call Predef + jr .asm_46c43 ; 0x45780 +.asm_8d8f0 ; 0x45782 + ld hl, $578b + call PrintText +.asm_46c43 ; 0x45788 + jp $24d7 + +INCBIN "baserom.gbc",$4578b,$6 + +RocketHideoutElevatorObject: ; 0x45791 (size=23) + db $f ; border tile + + db $2 ; warps + db $1, $2, $2, ROCKET_HIDEOUT_1 + db $1, $3, $4, ROCKET_HIDEOUT_1 + + db $1 ; signs + db $1, $1, $1 ; RocketHideoutElevatorText1 + + db $0 ; people + + ; warp-to + EVENT_DISP $3, $1, $2 ; ROCKET_HIDEOUT_1 + EVENT_DISP $3, $1, $3 ; ROCKET_HIDEOUT_1 + +RocketHideoutElevatorBlocks: ; 12 + INCBIN "maps/rockethideoutelevator.blk" + +SilphCoElevator_h: ; 0x457b4 to 0x457c0 (12 bytes) (bank=11) (id=236) + db $12 ; tileset + db $02, $02 ; dimensions (y, x) + dw SilphCoElevatorBlocks, SilphCoElevatorTexts, SilphCoElevatorScript ; blocks, texts, scripts + db $00 ; connections + + dw SilphCoElevatorObject ; objects + +SilphCoElevatorScript: ; 0x457c0 + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + push hl + call nz, $57dc + pop hl + bit 7, [hl] + res 7, [hl] + call nz, $5827 + xor a + ld [$cf0c], a + inc a + ld [$cc3c], a + ret +; 0x457dc + +INCBIN "baserom.gbc",$457dc,$57 + +SilphCoElevatorTexts: ; 0x45833 + dw SilphCoElevatorText1 + +SilphCoElevatorText1: ; 0x45835 + db $08 ; asm + call $57f1 + ld hl, $5811 + ld a, $61 + call Predef + jp $24d7 + +SilphCoElevatorObject: ; 0x45844 (size=23) + db $f ; border tile + + db $2 ; warps + db $3, $1, $0, $ed + db $3, $2, $0, $ed + + db $1 ; signs + db $0, $3, $1 ; SilphCoElevatorText1 + + db $0 ; people + + ; warp-to + EVENT_DISP $2, $3, $1 + EVENT_DISP $2, $3, $2 + +SilphCoElevatorBlocks: ; 4 + INCBIN "maps/silphcoelevator.blk" + +SafariZoneEast_h: ; 0x4585f to 0x4586b (12 bytes) (bank=11) (id=217) + db $03 ; tileset + db $0d, $0f ; dimensions (y, x) + dw SafariZoneEastBlocks, SafariZoneEastTexts, SafariZoneEastScript ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneEastObject ; objects + +SafariZoneEastScript: ; 0x4586b + jp $3c3c +; 0x4586e + +SafariZoneEastTexts: ; 0x4586e + dw SafariZoneEastText1, SafariZoneEastText2, SafariZoneEastText3, SafariZoneEastText4, SafariZoneEastText5, SafariZoneEastText6, SafariZoneEastText7 + +SafariZoneEastText5: ; 0x4587c + TX_FAR _SafariZoneEastText5 + db $50 + +SafariZoneEastText6: ; 0x45881 + TX_FAR _SafariZoneEastText6 + db $50 + +SafariZoneEastText7: ; 0x45886 + TX_FAR _SafariZoneEastText7 + db $50 + +SafariZoneEastObject: ; 0x4588b (size=81) + db $0 ; border tile + + db $5 ; warps + db $4, $0, $6, SAFARI_ZONE_NORTH + db $5, $0, $7, SAFARI_ZONE_NORTH + db $16, $0, $6, SAFARI_ZONE_CENTER + db $17, $0, $6, SAFARI_ZONE_CENTER + db $9, $19, $0, SAFARI_ZONE_REST_HOUSE_3 + + db $3 ; signs + db $a, $1a, $5 ; SafariZoneEastText5 + db $4, $6, $6 ; SafariZoneEastText6 + db $17, $5, $7 ; SafariZoneEastText7 + + db $4 ; people + db SPRITE_BALL, $a + 4, $15 + 4, $ff, $ff, $81, FULL_RESTORE ; item + db SPRITE_BALL, $7 + 4, $3 + 4, $ff, $ff, $82, MAX_POTION ; item + db SPRITE_BALL, $d + 4, $14 + 4, $ff, $ff, $83, CARBOS ; item + db SPRITE_BALL, $c + 4, $f + 4, $ff, $ff, $84, TM_37 ; item + + ; warp-to + EVENT_DISP $f, $4, $0 ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $5, $0 ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $16, $0 ; SAFARI_ZONE_CENTER + EVENT_DISP $f, $17, $0 ; SAFARI_ZONE_CENTER + EVENT_DISP $f, $9, $19 ; SAFARI_ZONE_REST_HOUSE_3 + +SafariZoneEastBlocks: ; 195 + INCBIN "maps/safarizoneeast.blk" + +SafariZoneNorth_h: ; 0x4599f to 0x459ab (12 bytes) (bank=11) (id=218) + db $03 ; tileset + db $12, $14 ; dimensions (y, x) + dw SafariZoneNorthBlocks, SafariZoneNorthTexts, SafariZoneNorthScript ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneNorthObject ; objects + +SafariZoneNorthScript: ; 0x459ab + jp $3c3c +; 0x459ae + +SafariZoneNorthTexts: ; 0x459ae + dw SafariZoneNorthText1, SafariZoneNorthText2, SafariZoneNorthText3, SafariZoneNorthText4, SafariZoneNorthText5, SafariZoneNorthText6, SafariZoneNorthText7 + +SafariZoneNorthText3: ; 0x459bc + TX_FAR _SafariZoneNorthText3 + db $50 + +SafariZoneNorthText4: ; 0x459c1 + TX_FAR _SafariZoneNorthText4 + db $50 + +SafariZoneNorthText5: ; 0x459c6 + TX_FAR _SafariZoneNorthText5 + db $50 + +SafariZoneNorthText6: ; 0x459cb + TX_FAR _SafariZoneNorthText6 + db $50 + +SafariZoneNorthText7: ; 0x459d0 + TX_FAR _SafariZoneNorthText7 + db $50 + +SafariZoneNorthObject: ; 0x459d5 (size=105) + db $0 ; border tile + + db $9 ; warps + db $23, $2, $0, SAFARI_ZONE_WEST + db $23, $3, $1, SAFARI_ZONE_WEST + db $23, $8, $2, SAFARI_ZONE_WEST + db $23, $9, $3, SAFARI_ZONE_WEST + db $23, $14, $4, SAFARI_ZONE_CENTER + db $23, $15, $5, SAFARI_ZONE_CENTER + db $1e, $27, $0, SAFARI_ZONE_EAST + db $1f, $27, $1, SAFARI_ZONE_EAST + db $3, $23, $0, SAFARI_ZONE_REST_HOUSE_4 + + db $5 ; signs + db $4, $24, $3 ; SafariZoneNorthText3 + db $19, $4, $4 ; SafariZoneNorthText4 + db $1f, $d, $5 ; SafariZoneNorthText5 + db $21, $13, $6 ; SafariZoneNorthText6 + db $1c, $1a, $7 ; SafariZoneNorthText7 + + db $2 ; people + db SPRITE_BALL, $1 + 4, $19 + 4, $ff, $ff, $81, PROTEIN ; item + db SPRITE_BALL, $7 + 4, $13 + 4, $ff, $ff, $82, TM_40 ; item + + ; warp-to + EVENT_DISP $14, $23, $2 ; SAFARI_ZONE_WEST + EVENT_DISP $14, $23, $3 ; SAFARI_ZONE_WEST + EVENT_DISP $14, $23, $8 ; SAFARI_ZONE_WEST + EVENT_DISP $14, $23, $9 ; SAFARI_ZONE_WEST + EVENT_DISP $14, $23, $14 ; SAFARI_ZONE_CENTER + EVENT_DISP $14, $23, $15 ; SAFARI_ZONE_CENTER + EVENT_DISP $14, $1e, $27 ; SAFARI_ZONE_EAST + EVENT_DISP $14, $1f, $27 ; SAFARI_ZONE_EAST + EVENT_DISP $14, $3, $23 ; SAFARI_ZONE_REST_HOUSE_4 + +SafariZoneNorthBlocks: ; 360 + INCBIN "maps/safarizonenorth.blk" + +SafariZoneCenter_h: ; 0x45ba6 to 0x45bb2 (12 bytes) (bank=11) (id=220) + db $03 ; tileset + db $0d, $0f ; dimensions (y, x) + dw SafariZoneCenterBlocks, SafariZoneCenterTexts, SafariZoneCenterScript ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneCenterObject ; objects + +SafariZoneCenterScript: ; 0x45bb2 + jp $3c3c +; 0x45bb5 + +SafariZoneCenterTexts: ; 0x45bb5 + dw SafariZoneCenterText1, SafariZoneCenterText2, SafariZoneCenterText3 + +SafariZoneCenterText2: ; 0x45bbb + TX_FAR _SafariZoneCenterText2 + db $50 + +SafariZoneCenterText3: ; 0x45bc0 + TX_FAR _SafariZoneCenterText3 + db $50 + +SafariZoneCenterObject: ; 0x45bc5 (size=89) + db $0 ; border tile + + db $9 ; warps + db $19, $e, $2, SAFARIZONEENTRANCE + db $19, $f, $3, SAFARIZONEENTRANCE + db $a, $0, $4, SAFARI_ZONE_WEST + db $b, $0, $5, SAFARI_ZONE_WEST + db $0, $e, $4, SAFARI_ZONE_NORTH + db $0, $f, $5, SAFARI_ZONE_NORTH + db $a, $1d, $2, SAFARI_ZONE_EAST + db $b, $1d, $3, SAFARI_ZONE_EAST + db $13, $11, $0, SAFARI_ZONE_REST_HOUSE_1 + + db $2 ; signs + db $14, $12, $2 ; SafariZoneCenterText2 + db $16, $e, $3 ; SafariZoneCenterText3 + + db $1 ; people + db SPRITE_BALL, $a + 4, $e + 4, $ff, $ff, $81, NUGGET ; item + + ; warp-to + EVENT_DISP $f, $19, $e ; SAFARIZONEENTRANCE + EVENT_DISP $f, $19, $f ; SAFARIZONEENTRANCE + EVENT_DISP $f, $a, $0 ; SAFARI_ZONE_WEST + EVENT_DISP $f, $b, $0 ; SAFARI_ZONE_WEST + EVENT_DISP $f, $0, $e ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $0, $f ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $a, $1d ; SAFARI_ZONE_EAST + EVENT_DISP $f, $b, $1d ; SAFARI_ZONE_EAST + EVENT_DISP $f, $13, $11 ; SAFARI_ZONE_REST_HOUSE_1 + +SafariZoneCenterBlocks: ; 195 + INCBIN "maps/safarizonecenter.blk" + +SafariZoneRestHouse1_h: ; 0x45ce1 to 0x45ced (12 bytes) (bank=11) (id=221) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw SafariZoneRestHouse1Blocks, SafariZoneRestHouse1Texts, SafariZoneRestHouse1Script ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneRestHouse1Object ; objects + +SafariZoneRestHouse1Script: ; 0x45ced + jp $3c3c +; 0x45cf0 + +SafariZoneRestHouse1Texts: ; 0x45cf0 + dw SafariZoneRestHouse1Text1, SafariZoneRestHouse1Text2 + +SafariZoneRestHouse1Text1: ; 0x45cf4 + TX_FAR _SafariZoneRestHouse1Text1 + db $50 + +SafariZoneRestHouse1Text2: ; 0x45cf9 + TX_FAR _SafariZoneRestHouse1Text2 + db $50 + +SafariZoneRestHouse1Object: ; 0x45cfe (size=32) + db $a ; border tile + + db $2 ; warps + db $7, $2, $8, SAFARI_ZONE_CENTER + db $7, $3, $8, SAFARI_ZONE_CENTER + + db $0 ; signs + + db $2 ; people + db SPRITE_GIRL, $2 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_OAK_AIDE, $4 + 4, $1 + 4, $fe, $1, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_CENTER + EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_CENTER + +SafariZoneRestHouse2_h: ; 0x45d1e to 0x45d2a (12 bytes) (bank=11) (id=223) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $40fb, SafariZoneRestHouse2Texts, SafariZoneRestHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneRestHouse2Object ; objects + +SafariZoneRestHouse2Script: ; 0x45d2a + call $3c3c + ret +; 0x45d2e + +SafariZoneRestHouse2Texts: ; 0x45d2e + dw SafariZoneRestHouse2Text1, SafariZoneRestHouse2Text2, SafariZoneRestHouse2Text3 + +SafariZoneRestHouse2Text1: ; 0x45d34 + TX_FAR _SafariZoneRestHouse2Text1 + db $50 + +SafariZoneRestHouse2Text2: ; 0x45d39 + TX_FAR _SafariZoneRestHouse2Text2 + db $50 + +SafariZoneRestHouse2Text3: ; 0x45d3e + TX_FAR _SafariZoneRestHouse2Text3 + db $50 + +SafariZoneRestHouse2Object: ; 0x45d43 (size=38) + db $a ; border tile + + db $2 ; warps + db $7, $2, $7, SAFARI_ZONE_WEST + db $7, $3, $7, SAFARI_ZONE_WEST + + db $0 ; signs + + db $3 ; people + db SPRITE_OAK_AIDE, $4 + 4, $4 + 4, $fe, $0, $1 ; person + db SPRITE_BLACK_HAIR_BOY_1, $2 + 4, $0 + 4, $ff, $d3, $2 ; person + db SPRITE_ERIKA, $2 + 4, $6 + 4, $ff, $d0, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_WEST + EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_WEST + +SafariZoneRestHouse3_h: ; 0x45d69 to 0x45d75 (12 bytes) (bank=11) (id=224) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $40fb, SafariZoneRestHouse3Texts, SafariZoneRestHouse3Script ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneRestHouse3Object ; objects + +SafariZoneRestHouse3Script: ; 0x45d75 + call $3c3c + ret +; 0x45d79 + +SafariZoneRestHouse3Texts: ; 0x45d79 + dw SafariZoneRestHouse3Text1, SafariZoneRestHouse3Text2, SafariZoneRestHouse3Text3 + +SafariZoneRestHouse3Text1: ; 0x45d7f + TX_FAR _SafariZoneRestHouse3Text1 + db $50 + +SafariZoneRestHouse3Text2: ; 0x45d84 + TX_FAR _SafariZoneRestHouse3Text2 + db $50 + +SafariZoneRestHouse3Text3: ; 0x45d89 + TX_FAR _SafariZoneRestHouse3Text3 + db $50 + +SafariZoneRestHouse3Object: ; 0x45d8e (size=38) + db $a ; border tile + + db $2 ; warps + db $7, $2, $4, SAFARI_ZONE_EAST + db $7, $3, $4, SAFARI_ZONE_EAST + + db $0 ; signs + + db $3 ; people + db SPRITE_OAK_AIDE, $3 + 4, $1 + 4, $fe, $1, $1 ; person + db SPRITE_ROCKER, $2 + 4, $4 + 4, $ff, $ff, $2 ; person + db SPRITE_LAPRAS_GIVER, $2 + 4, $5 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_EAST + EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_EAST + +SafariZoneRestHouse4_h: ; 0x45db4 to 0x45dc0 (12 bytes) (bank=11) (id=225) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $40fb, SafariZoneRestHouse4Texts, SafariZoneRestHouse4Script ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneRestHouse4Object ; objects + +SafariZoneRestHouse4Script: ; 0x45dc0 + call $3c3c + ret +; 0x45dc4 + +SafariZoneRestHouse4Texts: ; 0x45dc4 + dw SafariZoneRestHouse4Text1, SafariZoneRestHouse4Text2, SafariZoneRestHouse4Text3 + +SafariZoneRestHouse4Text1: ; 0x45dca + TX_FAR _SafariZoneRestHouse4Text1 + db $50 + +SafariZoneRestHouse4Text2: ; 0x45dcf + TX_FAR _SafariZoneRestHouse4Text2 + db $50 + +SafariZoneRestHouse4Text3: ; 0x45dd4 + TX_FAR _SafariZoneRestHouse4Text3 + db $50 + +SafariZoneRestHouse4Object: ; 0x45dd9 (size=38) + db $a ; border tile + + db $2 ; warps + db $7, $2, $8, SAFARI_ZONE_NORTH + db $7, $3, $8, SAFARI_ZONE_NORTH + + db $0 ; signs + + db $3 ; people + db SPRITE_OAK_AIDE, $3 + 4, $6 + 4, $fe, $2, $1 ; person + db SPRITE_WHITE_PLAYER, $4 + 4, $3 + 4, $ff, $ff, $2 ; person + db SPRITE_GENTLEMAN, $5 + 4, $1 + 4, $fe, $1, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_NORTH + EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_NORTH + +UnknownDungeon2_h: ; 0x45dff to 0x45e0b (12 bytes) (bank=11) (id=226) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw UnknownDungeon2Blocks, UnknownDungeon2Texts, UnknownDungeon2Script ; blocks, texts, scripts + db $00 ; connections + + dw UnknownDungeon2Object ; objects + +UnknownDungeon2Script: ; 0x45e0b + jp $3c3c +; 0x45e0e + +UnknownDungeon2Texts: ; 0x45e0e + dw UnknownDungeon2Text1, UnknownDungeon2Text2, UnknownDungeon2Text3 + +UnknownDungeon2Object: ; 0x45e14 (size=73) + db $7d ; border tile + + db $6 ; warps + db $1, $1d, $2, UNKNOWN_DUNGEON_1 + db $6, $16, $3, UNKNOWN_DUNGEON_1 + db $7, $13, $4, UNKNOWN_DUNGEON_1 + db $1, $9, $5, UNKNOWN_DUNGEON_1 + db $3, $1, $6, UNKNOWN_DUNGEON_1 + db $b, $3, $7, UNKNOWN_DUNGEON_1 + + db $0 ; signs + + db $3 ; people + db SPRITE_BALL, $9 + 4, $1d + 4, $ff, $ff, $81, PP_UP ; item + db SPRITE_BALL, $f + 4, $4 + 4, $ff, $ff, $82, ULTRA_BALL ; item + db SPRITE_BALL, $6 + 4, $d + 4, $ff, $ff, $83, FULL_RESTORE ; item + + ; warp-to + EVENT_DISP $f, $1, $1d ; UNKNOWN_DUNGEON_1 + EVENT_DISP $f, $6, $16 ; UNKNOWN_DUNGEON_1 + EVENT_DISP $f, $7, $13 ; UNKNOWN_DUNGEON_1 + EVENT_DISP $f, $1, $9 ; UNKNOWN_DUNGEON_1 + EVENT_DISP $f, $3, $1 ; UNKNOWN_DUNGEON_1 + EVENT_DISP $f, $b, $3 ; UNKNOWN_DUNGEON_1 + +UnknownDungeon2Blocks: ; 135 + INCBIN "maps/unknowndungeon2.blk" + +UnknownDungeon3_h: ; 0x45ee4 to 0x45ef0 (12 bytes) (bank=11) (id=227) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw UnknownDungeon3Blocks, UnknownDungeon3Texts, UnknownDungeon3Script ; blocks, texts, scripts + db $00 ; connections + + dw UnknownDungeon3Object ; objects + +UnknownDungeon3Script: ; 0x45ef0 + call $3c3c + ld hl, $5f0f + ld de, $5f03 + ld a, [$d650] + call $3160 + ld [$d650], a + ret +; 0x45f03 + +INCBIN "baserom.gbc",$45f03,$6 + +UnknownDungeon3Texts: ; 0x45f09 + dw UnknownDungeon3Text1, UnknownDungeon3Text2, UnknownDungeon3Text3 + +INCBIN "baserom.gbc",$45f0f,$d + +UnknownDungeon3Text1: ; 0x45f1c + db $08 ; asm + ld hl, $5f0f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$45f26,$10 + +UnknownDungeon3Object: ; 0x45f36 (size=34) + db $7d ; border tile + + db $1 ; warps + db $6, $3, $8, UNKNOWN_DUNGEON_1 + + db $0 ; signs + + db $3 ; people + db SPRITE_SLOWBRO, $d + 4, $1b + 4, $ff, $d0, $41, MEWTWO, $46 ; trainer + db SPRITE_BALL, $9 + 4, $10 + 4, $ff, $ff, $82, ULTRA_BALL ; item + db SPRITE_BALL, $1 + 4, $12 + 4, $ff, $ff, $83, MAX_REVIVE ; item + + ; warp-to + EVENT_DISP $f, $6, $3 ; UNKNOWN_DUNGEON_1 + +UnknownDungeon3Blocks: ; 135 + INCBIN "maps/unknowndungeon3.blk" + +RockTunnel2_h: ; 0x45fdf to 0x45feb (12 bytes) (bank=11) (id=232) + db $11 ; tileset + db $12, $14 ; dimensions (y, x) + dw RockTunnel2Blocks, RockTunnel2Texts, RockTunnel2Script ; blocks, texts, scripts + db $00 ; connections + + dw RockTunnel2Object ; objects + +RockTunnel2Script: ; 0x45feb + call $3c3c + ld hl, $6014 + ld de, $5ffe + ld a, [$d620] + call $3160 + ld [$d620], a + ret +; 0x45ffe + +INCBIN "baserom.gbc",$45ffe,$6 + +RockTunnel2Texts: ; 0x46004 + dw RockTunnel2Text1, RockTunnel2Text2, RockTunnel2Text3, RockTunnel2Text4, RockTunnel2Text5, RockTunnel2Text6, RockTunnel2Text7, RockTunnel2Text8 + +INCBIN "baserom.gbc",$46014,$61 + +RockTunnel2Text1: ; 0x46075 + db $08 ; asm + ld hl, $6014 + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text2: ; 0x4607f + db $08 ; asm + ld hl, $6020 + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text3: ; 0x46089 + db $08 ; asm + ld hl, $602c + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text4: ; 0x46093 + db $08 ; asm + ld hl, $6038 + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text5: ; 0x4609d + db $08 ; asm + ld hl, $6044 + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text6: ; 0x460a7 + db $08 ; asm + ld hl, $6050 + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text7: ; 0x460b1 + db $08 ; asm + ld hl, $605c + call LoadTrainerHeader + jp $24d7 + +RockTunnel2Text8: ; 0x460bb + db $08 ; asm + ld hl, $6068 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$460c5,$78 + +RockTunnel2Object: ; 0x4613d (size=100) + db $3 ; border tile + + db $4 ; warps + db $19, $21, $4, ROCK_TUNNEL_1 + db $3, $1b, $5, ROCK_TUNNEL_1 + db $b, $17, $6, ROCK_TUNNEL_1 + db $3, $3, $7, ROCK_TUNNEL_1 + + db $0 ; signs + + db $8 ; people + db SPRITE_LASS, $d + 4, $b + 4, $ff, $d0, $41, JR__TRAINER_F + $C8, $9 ; trainer + db SPRITE_HIKER, $a + 4, $6 + 4, $ff, $d0, $42, HIKER + $C8, $9 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $3 + 4, $ff, $d0, $43, POKEMANIAC + $C8, $3 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $15 + 4, $14 + 4, $ff, $d3, $44, POKEMANIAC + $C8, $4 ; trainer + db SPRITE_HIKER, $a + 4, $1e + 4, $ff, $d0, $45, HIKER + $C8, $a ; trainer + db SPRITE_LASS, $1c + 4, $e + 4, $ff, $d3, $46, JR__TRAINER_F + $C8, $a ; trainer + db SPRITE_HIKER, $5 + 4, $21 + 4, $ff, $d3, $47, HIKER + $C8, $b ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $1e + 4, $1a + 4, $ff, $d0, $48, POKEMANIAC + $C8, $5 ; trainer + + ; warp-to + EVENT_DISP $14, $19, $21 ; ROCK_TUNNEL_1 + EVENT_DISP $14, $3, $1b ; ROCK_TUNNEL_1 + EVENT_DISP $14, $b, $17 ; ROCK_TUNNEL_1 + EVENT_DISP $14, $3, $3 ; ROCK_TUNNEL_1 + +RockTunnel2Blocks: ; 360 + INCBIN "maps/rocktunnel2.blk" + +SeafoamIslands2_h: ; 0x46309 to 0x46315 (12 bytes) (bank=11) (id=159) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw SeafoamIslands2Blocks, SeafoamIslands2Texts, SeafoamIslands2Script ; blocks, texts, scripts + db $00 ; connections + + dw SeafoamIslands2Object ; objects + +SeafoamIslands2Script: ; 0x46315 + call $3c3c + ld hl, $cd60 + bit 7, [hl] + res 7, [hl] + jr z, .asm_46362 ; 0x4631f $41 + ld hl, $636d + call $34e4 + ret nc + ld hl, $d87f + ld a, [$cd3d] + cp $1 + jr nz, .asm_46340 ; 0x46330 $e + set 0, [hl] + ld a, $d9 + ld [$d079], a + ld a, $db + ld [$d07a], a + jr .asm_4634c ; 0x4633e $c +.asm_46340 + set 1, [hl] + ld a, $da + ld [$d079], a + ld a, $dc + ld [$d07a], a +.asm_4634c + ld a, [$d079] + ld [$cc4d], a + ld a, $11 + call Predef + ld a, [$d07a] + ld [$cc4d], a + ld a, $15 + jp $3e6d +.asm_46362 + ld a, $a0 + ld [$d71d], a + ld hl, $636d + jp $6981 +; 0x4636d + +INCBIN "baserom.gbc",$4636d,$5 + +SeafoamIslands2Texts: ; 0x46372 + dw SeafoamIslands2Text1, SeafoamIslands2Text2 + +SeafoamIslands2Object: ; 0x46376 (size=72) + db $7d ; border tile + + db $7 ; warps + db $2, $4, $0, SEAFOAM_ISLANDS_3 + db $5, $7, $4, SEAFOAM_ISLANDS_1 + db $7, $d, $2, SEAFOAM_ISLANDS_3 + db $f, $13, $3, SEAFOAM_ISLANDS_3 + db $f, $17, $6, SEAFOAM_ISLANDS_1 + db $b, $19, $5, SEAFOAM_ISLANDS_3 + db $3, $19, $5, SEAFOAM_ISLANDS_1 + + db $0 ; signs + + db $2 ; people + db SPRITE_BOULDER, $6 + 4, $11 + 4, $ff, $10, $1 ; person + db SPRITE_BOULDER, $6 + 4, $16 + 4, $ff, $10, $2 ; person + + ; warp-to + EVENT_DISP $f, $2, $4 ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $5, $7 ; SEAFOAM_ISLANDS_1 + EVENT_DISP $f, $7, $d ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $f, $13 ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $f, $17 ; SEAFOAM_ISLANDS_1 + EVENT_DISP $f, $b, $19 ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_1 + +SeafoamIslands2Blocks: ; 135 + INCBIN "maps/seafoamislands2.blk" + +SeafoamIslands3_h: ; 0x46445 to 0x46451 (12 bytes) (bank=11) (id=160) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw SeafoamIslands3Blocks, SeafoamIslands3Texts, SeafoamIslands3Script ; blocks, texts, scripts + db $00 ; connections + + dw SeafoamIslands3Object ; objects + +SeafoamIslands3Script: ; 0x46451 + call $3c3c + ld hl, $cd60 + bit 7, [hl] + res 7, [hl] + jr z, .asm_4649e ; 0x4645b $41 + ld hl, $64a9 + call $34e4 + ret nc + ld hl, $d880 + ld a, [$cd3d] + cp $1 + jr nz, .asm_4647c ; 0x4646c $e + set 0, [hl] + ld a, $db + ld [$d079], a + ld a, $df + ld [$d07a], a + jr .asm_46488 ; 0x4647a $c +.asm_4647c + set 1, [hl] + ld a, $dc + ld [$d079], a + ld a, $e0 + ld [$d07a], a +.asm_46488 + ld a, [$d079] + ld [$cc4d], a + ld a, $11 + call Predef + ld a, [$d07a] + ld [$cc4d], a + ld a, $15 + jp $3e6d +.asm_4649e + ld a, $a1 + ld [$d71d], a + ld hl, $64a9 + jp $6981 +; 0x464a9 + +INCBIN "baserom.gbc",$464a9,$5 + +SeafoamIslands3Texts: ; 0x464ae + dw SeafoamIslands3Text1, SeafoamIslands3Text2 + +SeafoamIslands3Object: ; 0x464b2 (size=72) + db $7d ; border tile + + db $7 ; warps + db $3, $5, $0, SEAFOAM_ISLANDS_2 + db $d, $5, $0, SEAFOAM_ISLANDS_4 + db $7, $d, $2, SEAFOAM_ISLANDS_2 + db $f, $13, $3, SEAFOAM_ISLANDS_2 + db $3, $19, $3, SEAFOAM_ISLANDS_4 + db $b, $19, $5, SEAFOAM_ISLANDS_2 + db $e, $19, $4, SEAFOAM_ISLANDS_4 + + db $0 ; signs + + db $2 ; people + db SPRITE_BOULDER, $6 + 4, $12 + 4, $ff, $10, $1 ; person + db SPRITE_BOULDER, $6 + 4, $17 + 4, $ff, $10, $2 ; person + + ; warp-to + EVENT_DISP $f, $3, $5 ; SEAFOAM_ISLANDS_2 + EVENT_DISP $f, $d, $5 ; SEAFOAM_ISLANDS_4 + EVENT_DISP $f, $7, $d ; SEAFOAM_ISLANDS_2 + EVENT_DISP $f, $f, $13 ; SEAFOAM_ISLANDS_2 + EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_4 + EVENT_DISP $f, $b, $19 ; SEAFOAM_ISLANDS_2 + EVENT_DISP $f, $e, $19 ; SEAFOAM_ISLANDS_4 + +SeafoamIslands3Blocks: ; 135 + INCBIN "maps/seafoamislands3.blk" + +SeafoamIslands4_h: ; 0x46581 to 0x4658d (12 bytes) (bank=11) (id=161) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw SeafoamIslands4Blocks, SeafoamIslands4Texts, SeafoamIslands4Script ; blocks, texts, scripts + db $00 ; connections + + dw SeafoamIslands4Object ; objects + +SeafoamIslands4Script: ; 0x4658d + call $3c3c + ld hl, $cd60 + bit 7, [hl] + res 7, [hl] + jr z, .asm_465dc ; 0x46597 $43 + ld hl, $65f6 + call $34e4 + ret nc + ld hl, $d881 + ld a, [$cd3d] + cp $1 + jr nz, .asm_465b8 ; 0x465a8 $e + set 0, [hl] + ld a, $dd + ld [$d079], a + ld a, $e1 + ld [$d07a], a + jr .asm_465c4 ; 0x465b6 $c +.asm_465b8 + set 1, [hl] + ld a, $de + ld [$d079], a + ld a, $e2 + ld [$d07a], a +.asm_465c4 + ld a, [$d079] + ld [$cc4d], a + ld a, $11 + call Predef + ld a, [$d07a] + ld [$cc4d], a + ld a, $15 + call Predef + jr .asm_465ed ; 0x465da $11 +.asm_465dc + ld a, $a2 + ld [$d71d], a + ld hl, $65f6 + call $6981 + ld a, [$d732] + bit 4, a + ret nz +.asm_465ed + ld hl, $65fb + ld a, [$d666] + jp $3d97 +; 0x465f6 + +INCBIN "baserom.gbc",$465f6,$465fb - $465f6 + +SeafoamIslands4Scripts: ; 0x465fb + dw SeafoamIslands4Script0, SeafoamIslands4Script1 + +INCBIN "baserom.gbc",$465ff,$4 + +SeafoamIslands4Script0: ; 0x46603 + ld a, [$d880] + and $3 + cp $3 + ret z + ld a, [$d361] + cp $8 + ret nz + ld a, [$d362] + cp $f + ret nz + ld hl, $ccd3 + ld de, $6632 + call $350c + dec a + ld [$cd38], a + call $3486 + ld hl, $d733 + set 2, [hl] + ld a, $1 + ld [$d666], a + ret +; 0x46632 + +INCBIN "baserom.gbc",$46632,$46639 - $46632 + +SeafoamIslands4Script1: ; 0x46639 + ld a, [$cd38] + and a + ret nz + ld a, $0 + ld [$d666], a + ret +; 0x46644 + +INCBIN "baserom.gbc",$46644,$56 + +SeafoamIslands4Texts: ; 0x4669a + dw SeafoamIslands4Text1, SeafoamIslands4Text2, SeafoamIslands4Text3, SeafoamIslands4Text4, SeafoamIslands4Text5, SeafoamIslands4Text6 + +SeafoamIslands4Object: ; 0x466a6 (size=96) + db $7d ; border tile + + db $7 ; warps + db $c, $5, $1, SEAFOAM_ISLANDS_3 + db $6, $8, $2, SEAFOAM_ISLANDS_5 + db $4, $19, $3, SEAFOAM_ISLANDS_5 + db $3, $19, $4, SEAFOAM_ISLANDS_3 + db $e, $19, $6, SEAFOAM_ISLANDS_3 + db $11, $14, $0, SEAFOAM_ISLANDS_5 + db $11, $15, $1, SEAFOAM_ISLANDS_5 + + db $0 ; signs + + db $6 ; people + db SPRITE_BOULDER, $e + 4, $5 + 4, $ff, $10, $1 ; person + db SPRITE_BOULDER, $f + 4, $3 + 4, $ff, $10, $2 ; person + db SPRITE_BOULDER, $e + 4, $8 + 4, $ff, $10, $3 ; person + db SPRITE_BOULDER, $e + 4, $9 + 4, $ff, $10, $4 ; person + db SPRITE_BOULDER, $6 + 4, $12 + 4, $ff, $ff, $5 ; person + db SPRITE_BOULDER, $6 + 4, $13 + 4, $ff, $ff, $6 ; person + + ; warp-to + EVENT_DISP $f, $c, $5 ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $6, $8 ; SEAFOAM_ISLANDS_5 + EVENT_DISP $f, $4, $19 ; SEAFOAM_ISLANDS_5 + EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $e, $19 ; SEAFOAM_ISLANDS_3 + EVENT_DISP $f, $11, $14 ; SEAFOAM_ISLANDS_5 + EVENT_DISP $f, $11, $15 ; SEAFOAM_ISLANDS_5 + +SeafoamIslands4Blocks: ; 135 + INCBIN "maps/seafoamislands4.blk" + +SeafoamIslands5_h: ; 0x4678d to 0x46799 (12 bytes) (bank=11) (id=162) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw SeafoamIslands5Blocks, SeafoamIslands5Texts, SeafoamIslands5Script ; blocks, texts, scripts + db $00 ; connections + + dw SeafoamIslands5Object ; objects + +SeafoamIslands5Script: ; 0x46799 + call $3c3c + ld a, [$d668] + ld hl, $67ad + jp $3d97 +; 0x467a5 + +INCBIN "baserom.gbc",$467a5,$467ad - $467a5 + +SeafoamIslands5Scripts: ; 0x467ad + dw SeafoamIslands5Script0, SeafoamIslands5Script1 + +INCBIN "baserom.gbc",$467b1,$16 + +SeafoamIslands5Script0: ; 0x467c7 + ld a, [$d880] + and $3 + cp $3 + ret z + ld hl, $67fe + call $34bf + ret nc + ld a, [$cd3d] + cp $3 + jr nc, .asm_467e6 ; 0x467db $9 + ld a, $40 + ld [$ccd4], a + ld a, $2 + jr .asm_467e8 ; 0x467e4 $2 +.asm_467e6 + ld a, $1 +.asm_467e8 + ld [$cd38], a + ld a, $40 + ld [$ccd3], a + call $3486 + ld hl, $d733 + res 2, [hl] + ld a, $1 + ld [$d668], a + ret +; 0x467fe + +INCBIN "baserom.gbc",$467fe,$46807 - $467fe + +SeafoamIslands5Script1: ; 0x46807 + ld a, [$cd38] + and a + ret nz + xor a + ld [$cd6b], a + ld a, $0 + ld [$d668], a + ret +; 0x46816 + +INCBIN "baserom.gbc",$46816,$66 + +SeafoamIslands5Texts: ; 0x4687c + dw SeafoamIslands5Text1, SeafoamIslands5Text2, SeafoamIslands5Text3, SeafoamIslands5Text4, SeafoamIslands5Text5 + +INCBIN "baserom.gbc",$46886,$d + +SeafoamIslands5Text3: ; 0x46893 + db $08 ; asm + ld hl, $6886 + call LoadTrainerHeader + ld a, $4 + ld [$d668], a + jp $24d7 + +; 0x468a2 TX_FAR +db $17, $75, $40, $22 +; 0x468a6 + db $8 + ld a, $4a + call $13d0 + call $3748 + jp TextScriptEnd +; 0x468b2 + +SeafoamIslands5Text4: ; 0x468b2 + TX_FAR _SeafoamIslands5Text4 + db $50 + +SeafoamIslands5Text5: ; 0x468b7 + TX_FAR _SeafoamIslands5Text5 + db $50 + +SeafoamIslands5Object: ; 0x468bc (size=62) + db $7d ; border tile + + db $4 ; warps + db $11, $14, $5, SEAFOAM_ISLANDS_4 + db $11, $15, $6, SEAFOAM_ISLANDS_4 + db $7, $b, $1, SEAFOAM_ISLANDS_4 + db $4, $19, $2, SEAFOAM_ISLANDS_4 + + db $2 ; signs + db $f, $9, $4 ; SeafoamIslands5Text4 + db $1, $17, $5 ; SeafoamIslands5Text5 + + db $3 ; people + db SPRITE_BOULDER, $f + 4, $4 + 4, $ff, $ff, $1 ; person + db SPRITE_BOULDER, $f + 4, $5 + 4, $ff, $ff, $2 ; person + db SPRITE_BIRD, $1 + 4, $6 + 4, $ff, $d0, $43, ARTICUNO, $32 ; trainer + + ; warp-to + EVENT_DISP $f, $11, $14 ; SEAFOAM_ISLANDS_4 + EVENT_DISP $f, $11, $15 ; SEAFOAM_ISLANDS_4 + EVENT_DISP $f, $7, $b ; SEAFOAM_ISLANDS_4 + EVENT_DISP $f, $4, $19 ; SEAFOAM_ISLANDS_4 + +SeafoamIslands5Blocks: ; 135 + INCBIN "maps/seafoamislands5.blk" + +INCBIN "baserom.gbc",$46981,$167f + +SECTION "bank12",DATA,BANK[$12] + +Route7_h: ; 0x48000 to 0x48022 (34 bytes) (bank=12) (id=18) + db $00 ; tileset + db $09, $0a ; dimensions (y, x) + dw Route7Blocks, $4155, Route7Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db CELADON_CITY + dw $410e, $c6e8 ; pointers (connected, current) (strip) + db $0f, $19 ; bigness, width + db $08, $31 ; alignments (y, x) + dw $c720 ; window + + db SAFFRON_CITY + dw $4aac, $c6f5 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $00 ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route7Object ; objects + +Route7Object: ; 0x48022 (size=47) + db $f ; border tile + + db $5 ; warps + db $9, $12, $2, ROUTE_7_GATE + db $a, $12, $3, ROUTE_7_GATE + db $9, $b, $0, ROUTE_7_GATE + db $a, $b, $1, ROUTE_7_GATE + db $d, $5, $0, PATH_ENTRANCE_ROUTE_7 + + db $1 ; signs + db $d, $3, $1 ; Route7Text1 + + db $0 ; people + + ; warp-to + EVENT_DISP $a, $9, $12 ; ROUTE_7_GATE + EVENT_DISP $a, $a, $12 ; ROUTE_7_GATE + EVENT_DISP $a, $9, $b ; ROUTE_7_GATE + EVENT_DISP $a, $a, $b ; ROUTE_7_GATE + EVENT_DISP $a, $d, $5 ; PATH_ENTRANCE_ROUTE_7 + +Route7Blocks: ; 90 + INCBIN "maps/route7.blk" + +MtMoonPokecenterBlocks: ; 28 + INCBIN "maps/mtmoonpokecenter.blk" + +Route11GateBlocks: ; 20 + INCBIN "maps/route11gate.blk" + +Route11GateUpstairsBlocks: ; 16 + INCBIN "maps/route11gateupstairs.blk" + +INCBIN "baserom.gbc",$480eb,$48152 - $480eb + +Route7Script: ; 0x48152 + jp $3c3c +; 0x48155 + +INCBIN "baserom.gbc",$48155,$2 + +Route7Text1: ; 0x48157 + TX_FAR _Route7Text1 + db $50 + +RedsHouse1F_h: ; 415C + db $01 ; tileset + db $04,$04 ; dimensions + dw RedsHouse1FBlocks, RedsHouse1FTexts, RedsHouse1FScript + db 0 ; no connections + dw RedsHouse1FObject + +RedsHouse1FScript: ; 4168 + jp $3C3C + +RedsHouse1FTexts: ; 416B + dw RedsHouse1FText1,RedsHouse1FText2 + +RedsHouse1FText1: ; Mom + db 8 + ld a,[$D72E] + bit 3,a + jr nz,.heal\@ ; if player has received a Pokémon from Oak, heal team + ld hl,MomWakeUpText + call PrintText + jr .done\@ +.heal\@ + call MomHealPokemon +.done\@ + jp $24D7 + +MomWakeUpText: + TX_FAR _MomWakeUpText + db "@" + +MomHealPokemon: + ld hl,MomHealText1 + call PrintText + call GBFadeOut2 + call $3071 + ld a,7 + call Predef + ld a,$E8 + ld [$C0EE],a + call $23B1 ; play sound? +.next\@ + ld a,[$C026] + cp $E8 + jr z,.next\@ + ld a,[$D35B] + ld [$C0EE],a + call $23B1 + call GBFadeIn2 + ld hl,MomHealText2 + jp PrintText + +MomHealText1: + TX_FAR _MomHealText1 + db "@" +MomHealText2: + TX_FAR _MomHealText2 + db "@" + +RedsHouse1FText2: ; TV + db 8 + ld a,[$C109] + cp 4 + ld hl,TVWrongSideText + jr nz,.done\@ ; if player is not facing up + ld hl,StandByMeText +.done\@ + call PrintText + jp $24D7 + +StandByMeText: + TX_FAR _StandByMeText + db "@" + +TVWrongSideText: + TX_FAR _TVWrongSideText + db "@" + +RedsHouse1FObject: + db $0A ; border tile + + db 3 ; warps + db 7,2,0,$FF ; exit1 + db 7,3,0,$FF ; exit2 + db 1,7,0,$26 ; staircase + + db 1 ; signs + db 1,3,2 ; TV + + db 1 ; people + db $33,4+4,5+4,$FF,$D2,1 ; Mom + + ; warp-to + + dw $C6EF + 4 + (4 + 6) * (3) + 1 + db 7,2 + + dw $C6EF + 4 + (4 + 6) * (3) + 1 + db 7,3 + + dw $C6EF + 4 + (4 + 6) * (0) + 3 + db 1,7 + +RedsHouse1FBlocks: + INCBIN "maps/redshouse1f.blk" + +CeladonMart3_h: ; 0x48219 to 0x48225 (12 bytes) (bank=12) (id=124) + db $12 ; tileset + db $04, $0a ; dimensions (y, x) + dw CeladonMart3Blocks, CeladonMart3Texts, CeladonMart3Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMart3Object ; objects + +CeladonMart3Script: ; 0x48225 + jp $3c3c +; 0x48228 + +CeladonMart3Texts: ; 0x48228 + dw CeladonMart3Text1, CeladonMart3Text2, CeladonMart3Text3, CeladonMart3Text4, CeladonMart3Text5, CeladonMart3Text6, CeladonMart3Text7, CeladonMart3Text8, CeladonMart3Text9, CeladonMart3Text10, CeladonMart3Text11, CeladonMart3Text12, CeladonMart3Text13, CeladonMart3Text14, CeladonMart3Text15, CeladonMart3Text16, CeladonMart3Text17 + +CeladonMart3Text1: ; 0x4824a + db $08 ; asm + ld a, [$d778] + bit 7, a + jr nz, .asm_a5463 ; 0x48250 + ld hl, $4278 + call PrintText + ld bc,(TM_18 << 8) | 1 + call $3e2e + jr nc, .asm_95f37 ; 0x4825e + ld hl, $d778 + set 7, [hl] + ld hl, $427d + jr .asm_81359 ; 0x48268 +.asm_95f37 ; 0x4826a + ld hl, $4288 + jr .asm_81359 ; 0x4826d +.asm_a5463 ; 0x4826f + ld hl, $4283 +.asm_81359 ; 0x48272 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$48278,$15 + +CeladonMart3Text2: ; 0x4828d + TX_FAR _CeladonMart3Text2 + db $50 + +CeladonMart3Text3: ; 0x48292 + TX_FAR _CeladonMart3Text3 + db $50 + +CeladonMart3Text4: ; 0x48297 + TX_FAR _CeladonMart3Text4 + db $50 + +CeladonMart3Text5: ; 0x4829c + TX_FAR _CeladonMart3Text5 + db $50 + +CeladonMart3Text12 +CeladonMart3Text10: +CeladonMart3Text8: +CeladonMart3Text6: ; 0x482a1 + TX_FAR _CeladonMart3Text6 + db $50 + +CeladonMart3Text7: ; 0x482a6 + TX_FAR _CeladonMart3Text7 + db $50 + +CeladonMart3Text9: ; 0x482ab + TX_FAR _CeladonMart3Text9 + db $50 + +CeladonMart3Text11: ; 0x482b0 + TX_FAR _CeladonMart3Text11 + db $50 + +CeladonMart3Text13: ; 0x482b5 + TX_FAR _CeladonMart3Text13 + db $50 + +CeladonMart3Text14: ; 0x482ba + TX_FAR _CeladonMart3Text14 + db $50 + +CeladonMart3Text17: +CeladonMart3Text16: +CeladonMart3Text15: ; 0x482bf + TX_FAR _CeladonMart3Text15 + db $50 + +CeladonMart3Object: ; 0x482c4 (size=94) + db $f ; border tile + + db $3 ; warps + db $1, $c, $0, CELADON_MART_4 + db $1, $10, $1, CELADON_MART_2 + db $1, $1, $0, CELADON_MART_ELEVATOR + + db $c ; signs + db $4, $2, $6 ; CeladonMart3Text6 + db $4, $3, $7 ; CeladonMart3Text7 + db $4, $5, $8 ; CeladonMart3Text8 + db $4, $6, $9 ; CeladonMart3Text9 + db $6, $2, $a ; CeladonMart3Text10 + db $6, $3, $b ; CeladonMart3Text11 + db $6, $5, $c ; CeladonMart3Text12 + db $6, $6, $d ; CeladonMart3Text13 + db $1, $e, $e ; CeladonMart3Text14 + db $1, $4, $f ; CeladonMart3Text15 + db $1, $6, $10 ; CeladonMart3Text16 + db $1, $a, $11 ; CeladonMart3Text17 + + db $5 ; people + db SPRITE_MART_GUY, $5 + 4, $10 + 4, $ff, $ff, $1 ; person + db SPRITE_GAMEBOY_KID_COPY, $6 + 4, $b + 4, $ff, $d3, $2 ; person + db SPRITE_GAMEBOY_KID_COPY, $2 + 4, $7 + 4, $ff, $d0, $3 ; person + db SPRITE_GAMEBOY_KID_COPY, $2 + 4, $8 + 4, $ff, $d0, $4 ; person + db SPRITE_YOUNG_BOY, $5 + 4, $2 + 4, $ff, $d1, $5 ; person + + ; warp-to + EVENT_DISP $a, $1, $c ; CELADON_MART_4 + EVENT_DISP $a, $1, $10 ; CELADON_MART_2 + EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR + +CeladonMart3Blocks: ; 40 + INCBIN "maps/celadonmart3.blk" + +CeladonMart4_h: ; 0x4834a to 0x48356 (12 bytes) (bank=12) (id=125) + db $12 ; tileset + db $04, $0a ; dimensions (y, x) + dw CeladonMart4Blocks, CeladonMart4Texts, CeladonMart4Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMart4Object ; objects + +CeladonMart4Script: ; 0x48356 + jp $3c3c +; 0x48359 + +CeladonMart4Texts: ; 0x48359 + dw CeladonMart4Text1, CeladonMart4Text2, CeladonMart4Text3, CeladonMart4Text4 + +CeladonMart4Text2: ; 0x48361 + TX_FAR _CeladonMart4Text2 + db $50 + +CeladonMart4Text3: ; 0x48366 + TX_FAR _CeladonMart4Text3 + db $50 + +CeladonMart4Text4: ; 0x4836b + TX_FAR _CeladonMart4Text4 + db $50 + +CeladonMart4Object: ; 0x48370 (size=49) + db $f ; border tile + + db $3 ; warps + db $1, $c, $0, CELADON_MART_3 + db $1, $10, $1, CELADON_MART_5 + db $1, $1, $0, CELADON_MART_ELEVATOR + + db $1 ; signs + db $1, $e, $4 ; CeladonMart4Text4 + + db $3 ; people + db SPRITE_MART_GUY, $7 + 4, $5 + 4, $ff, $ff, $1 ; person + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $f + 4, $fe, $2, $2 ; person + db SPRITE_BUG_CATCHER, $2 + 4, $5 + 4, $fe, $2, $3 ; person + + ; warp-to + EVENT_DISP $a, $1, $c ; CELADON_MART_3 + EVENT_DISP $a, $1, $10 ; CELADON_MART_5 + EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR + +CeladonMart4Blocks: ; 40 + INCBIN "maps/celadonmart4.blk" + +CeladonMartRoof_h: ; 0x483c9 to 0x483d5 (12 bytes) (bank=12) (id=126) + db $12 ; tileset + db $04, $0a ; dimensions (y, x) + dw CeladonMartRoofBlocks, $455b, CeladonMartRoofScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMartRoofObject ; objects + +CeladonMartRoofScript: ; 0x483d5 + jp $3c3c +; 0x483d8 + +INCBIN "baserom.gbc",$483d8,$18f + +CeladonMartRoofText1: ; 0x48567 + TX_FAR _CeladonMartRoofText1 + db $50 + +CeladonMartRoofText2: ; 0x4856c + db $08 ; asm + call $43d8 + ld a, [$cd37] + and a + jr z, .asm_914b9 ; 0x48574 + ld a, $1 + ld [$cc3c], a + ld hl, $459d + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_05aa4 ; 0x48588 + call $440c + jr .asm_05aa4 ; 0x4858d +.asm_914b9 ; 0x4858f + ld hl, $4598 + call PrintText +.asm_05aa4 ; 0x48595 + jp $24d7 + +INCBIN "baserom.gbc",$48598,$b + +CeladonMartRoofText6: ; 0x485a3 + TX_FAR _CeladonMartRoofText6 + db $50 + +CeladonMartRoofObject: ; 0x485a8 (size=36) + db $42 ; border tile + + db $1 ; warps + db $2, $f, $0, CELADON_MART_5 + + db $4 ; signs + db $1, $a, $3 ; CeladonMartRoofText3 + db $1, $b, $4 ; CeladonMartRoofText4 + db $2, $c, $5 ; CeladonMartRoofText5 + db $2, $d, $6 ; CeladonMartRoofText6 + + db $2 ; people + db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $a + 4, $ff, $d2, $1 ; person + db SPRITE_LITTLE_GIRL, $5 + 4, $5 + 4, $fe, $0, $2 ; person + + ; warp-to + EVENT_DISP $a, $2, $f ; CELADON_MART_5 + +CeladonMartRoofBlocks: ; 40 + INCBIN "maps/celadonmart5.blk" + +CeladonMartElevator_h: ; 0x485f4 to 0x48600 (12 bytes) (bank=12) (id=127) + db $12 ; tileset + db $02, $02 ; dimensions (y, x) + dw CeladonMartElevatorBlocks, CeladonMartElevatorTexts, CeladonMartElevatorScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMartElevatorObject ; objects + +CeladonMartElevatorScript: ; 0x48600 + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + push hl + call nz, $461c + pop hl + bit 7, [hl] + res 7, [hl] + call nz, $4654 + xor a + ld [$cf0c], a + inc a + ld [$cc3c], a + ret +; 0x4861c + +INCBIN "baserom.gbc",$4861c,$40 + +CeladonMartElevatorTexts: ; 0x4865c + dw CeladonMartElevatorText1 + +CeladonMartElevatorText1: ; 0x4865e + db $08 ; asm + call $4631 + ld hl, $464a + ld a, $61 + call Predef + jp $24d7 + +CeladonMartElevatorObject: ; 0x4866d (size=23) + db $f ; border tile + + db $2 ; warps + db $3, $1, $5, CELADON_MART_1 + db $3, $2, $5, CELADON_MART_1 + + db $1 ; signs + db $0, $3, $1 ; CeladonMartElevatorText1 + + db $0 ; people + + ; warp-to + EVENT_DISP $2, $3, $1 ; CELADON_MART_1 + EVENT_DISP $2, $3, $2 ; CELADON_MART_1 + +CeladonMartElevatorBlocks: ; 4 + INCBIN "maps/celadonmart6.blk" + +CeladonMansion1_h: ; 0x48688 to 0x48694 (12 bytes) (bank=12) (id=128) + db $13 ; tileset + db $06, $04 ; dimensions (y, x) + dw CeladonMansion1Blocks, CeladonMansion1Texts, CeladonMansion1Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMansion1Object ; objects + +CeladonMansion1Script: ; 0x48694 + jp $3c3c +; 0x48697 + +CeladonMansion1Texts: ; 0x48697 + dw CeladonMansion1Text1, CeladonMansion1Text2, CeladonMansion1Text3, CeladonMansion1Text4, CeladonMansion1Text5 + +;0x486a1 + call $13d0 + jp TextScriptEnd +; 0x486a7 + +CeladonMansion1Text1: ; 0x486a7 + TX_FAR _CeladonMansion1Text1 + db $08 ; asm + ld a, $4d + jp $46a1 + +CeladonMansion1Text2: ; 0x486b1 + TX_FAR _CeladonMansion1Text2 + db $50 + +CeladonMansion1Text3: ; 0x486b6 + TX_FAR _CeladonMansion1Text3 + db $8 + ld a, $4 + jp $46a1 +; 0x486c0 + +CeladonMansion1Text4: ; 0x486c0 + TX_FAR _CeladonMansion1Text4 + db $8 + ld a, $f + jp $46a1 +; 0x486ca + +CeladonMansion1Text5: ; 0x486ca + TX_FAR _CeladonMansion1Text5 + db $50 + +CeladonMansion1Object: ; 0x486cf (size=71) + db $f ; border tile + + db $5 ; warps + db $b, $4, $2, $ff + db $b, $5, $2, $ff + db $0, $4, $4, $ff + db $1, $7, $1, CELADON_MANSION_2 + db $1, $2, $2, CELADON_MANSION_2 + + db $1 ; signs + db $9, $4, $5 ; CeladonMansion1Text5 + + db $4 ; people + db SPRITE_SLOWBRO, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_OLD_MEDIUM_WOMAN, $5 + 4, $1 + 4, $ff, $d0, $2 ; person + db SPRITE_CLEFAIRY, $8 + 4, $1 + 4, $fe, $2, $3 ; person + db SPRITE_SLOWBRO, $4 + 4, $4 + 4, $fe, $1, $4 ; person + + ; warp-to + EVENT_DISP $4, $b, $4 + EVENT_DISP $4, $b, $5 + EVENT_DISP $4, $0, $4 + EVENT_DISP $4, $1, $7 ; CELADON_MANSION_2 + EVENT_DISP $4, $1, $2 ; CELADON_MANSION_2 + +CeladonMansion1Blocks: ; 24 + INCBIN "maps/celadonmansion1.blk" + +CeladonMansion2_h: ; 0x4872e to 0x4873a (12 bytes) (bank=12) (id=129) + db $13 ; tileset + db $06, $04 ; dimensions (y, x) + dw CeladonMansion2Blocks, CeladonMansion2Texts, CeladonMansion2Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMansion2Object ; objects + +CeladonMansion2Script: ; 0x4873a + call $3c3c + ret +; 0x4873e + +CeladonMansion2Texts: ; 0x4873e + dw CeladonMansion2Text1 + +CeladonMansion2Text1: ; 0x48740 + TX_FAR _CeladonMansion2Text1 + db $50 + +CeladonMansion2Object: ; 0x48745 (size=39) + db $f ; border tile + + db $4 ; warps + db $1, $6, $0, CELADON_MANSION_3 + db $1, $7, $3, CELADON_MANSION_1 + db $1, $2, $4, CELADON_MANSION_1 + db $1, $4, $3, CELADON_MANSION_3 + + db $1 ; signs + db $9, $4, $1 ; CeladonMansion2Text1 + + db $0 ; people + + ; warp-to + EVENT_DISP $4, $1, $6 ; CELADON_MANSION_3 + EVENT_DISP $4, $1, $7 ; CELADON_MANSION_1 + EVENT_DISP $4, $1, $2 ; CELADON_MANSION_1 + EVENT_DISP $4, $1, $4 ; CELADON_MANSION_3 + +CeladonMansion2Blocks: ; 24 + INCBIN "maps/celadonmansion2.blk" + +CeladonMansion3_h: ; 0x48784 to 0x48790 (12 bytes) (bank=12) (id=130) + db $13 ; tileset + db $06, $04 ; dimensions (y, x) + dw CeladonMansion3Blocks, CeladonMansion3Texts, CeladonMansion3Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMansion3Object ; objects + +CeladonMansion3Script: ; 0x48790 + jp $3c3c +; 0x48793 + +CeladonMansion3Texts: ; 0x48793 + dw CeladonMansion3Text1, CeladonMansion3Text2, CeladonMansion3Text3, CeladonMansion3Text4, CeladonMansion3Text5, CeladonMansion3Text6, CeladonMansion3Text7, CeladonMansion3Text8 + +CeladonMansion3Text1: ; 0x487a3 + TX_FAR _CeladonMansion3Text1 + db $50 + +CeladonMansion3Text2: ; 0x487a8 + TX_FAR _CeladonMansion3Text2 + db $50 + +CeladonMansion3Text3: ; 0x487ad + TX_FAR _CeladonMansion3Text3 + db $50 + +CeladonMansion3Text4: ; 0x487b2 + db $08 ; asm + ld hl, $d2f7 + ld b, $13 + call $2b7f + ld a, [$d11e] + cp $96 + jr nc, .asm_f03d0 ; 0x487c0 + ld hl, $47d0 + jr .asm_c13f0 ; 0x487c5 +.asm_f03d0 ; 0x487c7 + ld hl, $47d5 +.asm_c13f0 ; 0x487ca + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$487d0,$1b + +CeladonMansion3Text5: ; 0x487eb + TX_FAR _CeladonMansion3Text5 + db $50 + +CeladonMansion3Text6: ; 0x487f0 + TX_FAR _CeladonMansion3Text6 + db $50 + +CeladonMansion3Text7: ; 0x487f5 + TX_FAR _CeladonMansion3Text7 + db $50 + +CeladonMansion3Text8: ; 0x487fa + TX_FAR _CeladonMansion3Text8 + db $50 + +CeladonMansion3Object: ; 0x487ff (size=72) + db $f ; border tile + + db $4 ; warps + db $1, $6, $0, CELADON_MANSION_2 + db $1, $7, $0, CELADON_MANSION_4 + db $1, $2, $1, CELADON_MANSION_4 + db $1, $4, $3, CELADON_MANSION_2 + + db $4 ; signs + db $3, $1, $5 ; CeladonMansion3Text5 + db $3, $4, $6 ; CeladonMansion3Text6 + db $6, $1, $7 ; CeladonMansion3Text7 + db $9, $4, $8 ; CeladonMansion3Text8 + + db $4 ; people + db SPRITE_BIKE_SHOP_GUY, $4 + 4, $0 + 4, $ff, $d1, $1 ; person + db SPRITE_MART_GUY, $4 + 4, $3 + 4, $ff, $d1, $2 ; person + db SPRITE_BLACK_HAIR_BOY_2, $7 + 4, $0 + 4, $ff, $d1, $3 ; person + db SPRITE_LAPRAS_GIVER, $3 + 4, $2 + 4, $ff, $ff, $4 ; person + + ; warp-to + EVENT_DISP $4, $1, $6 ; CELADON_MANSION_2 + EVENT_DISP $4, $1, $7 ; CELADON_MANSION_4 + EVENT_DISP $4, $1, $2 ; CELADON_MANSION_4 + EVENT_DISP $4, $1, $4 ; CELADON_MANSION_2 + +CeladonMansion3Blocks: ; 24 + INCBIN "maps/celadonmansion3.blk" + +CeladonMansion4_h: ; 0x4885f to 0x4886b (12 bytes) (bank=12) (id=131) + db $13 ; tileset + db $06, $04 ; dimensions (y, x) + dw CeladonMansion4Blocks, CeladonMansion4Texts, CeladonMansion4Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMansion4Object ; objects + +CeladonMansion4Script: ; 0x4886b + jp $3c3c +; 0x4886e + +CeladonMansion4Texts: ; 0x4886e + dw CeladonMansion4Text1 + +CeladonMansion4Text1: ; 0x48870 + TX_FAR _CeladonMansion4Text1 + db $50 + +CeladonMansion4Object: ; 0x48875 (size=31) + db $9 ; border tile + + db $3 ; warps + db $1, $6, $1, CELADON_MANSION_3 + db $1, $2, $2, CELADON_MANSION_3 + db $7, $2, $0, CELADON_MANSION_5 + + db $1 ; signs + db $7, $3, $1 ; CeladonMansion4Text1 + + db $0 ; people + + ; warp-to + EVENT_DISP $4, $1, $6 ; CELADON_MANSION_3 + EVENT_DISP $4, $1, $2 ; CELADON_MANSION_3 + EVENT_DISP $4, $7, $2 ; CELADON_MANSION_5 + +CeladonMansion4Blocks: ; 24 + INCBIN "maps/celadonmansion4.blk" + +CeladonPokecenter_h: ; 0x488ac to 0x488b8 (12 bytes) (bank=12) (id=133) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw $40ab, $48be, CeladonPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonPokecenterObject ; objects + +CeladonPokecenterScript: ; 0x488b8 + call $22fa + jp $3c3c +; 0x488be + +INCBIN "baserom.gbc",$488be,$8 + +CeladonPokecenterText4: + db $f6, $ff + +CeladonPokecenterText2: ; _CeladonPokecenterText2 +CeladonPokecenterText1: ; 0x488c8 + TX_FAR _CeladonPokecenterText1 + +INCBIN "baserom.gbc",$488cc,$488cd - $488cc + +CeladonPokecenterText3: ; 0x488cd + TX_FAR _CeladonPokecenterText3 + db $50 + +CeladonPokecenterObject: ; 0x488d2 (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $5, $ff + db $7, $4, $5, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_GENTLEMAN, $3 + 4, $7 + 4, $fe, $2, $2 ; person + db SPRITE_FOULARD_WOMAN, $5 + 4, $a + 4, $fe, $0, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +CeladonGym_h: ; 0x488fe to 0x4890a (12 bytes) (bank=12) (id=134) + db $07 ; tileset + db $09, $05 ; dimensions (y, x) + dw CeladonGymBlocks, CeladonGymTexts, CeladonGymScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonGymObject ; objects + +CeladonGymScript: ; 0x4890a + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + call nz, $4927 + call $3c3c + ld hl, $49bc + ld de, $494e + ld a, [$d5ff] + call $3160 + ld [$d5ff], a + ret +; 0x48927 + +INCBIN "baserom.gbc",$48927,$7f + +CeladonGymTexts: ; 0x489a6 + dw CeladonGymText1, CeladonGymText2, CeladonGymText3, CeladonGymText4, CeladonGymText5, CeladonGymText6, CeladonGymText7, CeladonGymText8, CeladonGymText9, CeladonGymText10, CeladonGymText11 + +INCBIN "baserom.gbc",$489bc,$55 + +CeladonGymText1: ; 0x48a11 + db $08 ; asm + ld a, [$d77c] + bit 1, a + jr z, .asm_16064 ; 0x48a17 + bit 0, a + jr nz, .asm_3b22c ; 0x48a1b + call z, $4963 + call $30b6 + jr .asm_96252 ; 0x48a23 +.asm_3b22c ; 0x48a25 + ld hl, $4a68 + call PrintText + jr .asm_96252 ; 0x48a2b +.asm_16064 ; 0x48a2d + ld hl, $4a5e + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $4a63 + ld de, $4a63 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $4 + ld [$d05c], a + ld a, $3 + ld [$d5ff], a + ld [$da39], a +.asm_96252 ; 0x48a5b + jp $24d7 + +INCBIN "baserom.gbc",$48a5e,$48a6d - $48a5e + +CeladonGymText9: ; 0x48a6d +INCBIN "baserom.gbc",$48a6d,$5 + +CeladonGymText10: ; 0x48a72 +INCBIN "baserom.gbc",$48a72,$4 +db $0b + +INCBIN "baserom.gbc",$48a77,$48a7c - $48a77 + +CeladonGymText11: ; 0x48a7c +INCBIN "baserom.gbc",$48a7c,$5 + +CeladonGymText2: ; 0x48a81 + db $08 ; asm + ld hl, $49bc + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48a8b,$48a9a - $48a8b + +CeladonGymText3: ; 0x48a9a + db $08 ; asm + ld hl, $49c8 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48aa4,$48ab3 - $48aa4 + +CeladonGymText4: ; 0x48ab3 + db $08 ; asm + ld hl, $49d4 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48abd,$48acc - $48abd + +CeladonGymText5: ; 0x48acc + db $08 ; asm + ld hl, $49e0 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48ad6,$48ae5 - $48ad6 + +CeladonGymText6: ; 0x48ae5 + db $08 ; asm + ld hl, $49ec + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48aef,$48afe - $48aef + +CeladonGymText7: ; 0x48afe + db $08 ; asm + ld hl, $49f8 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48b08,$48b17 - $48b08 + +CeladonGymText8: ; 0x48b17 + db $08 ; asm + ld hl, $4a04 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$48b21,$f + +CeladonGymObject: ; 0x48b30 (size=84) + db $3 ; border tile + + db $2 ; warps + db $11, $4, $6, $ff + db $11, $5, $6, $ff + + db $0 ; signs + + db $8 ; people + db SPRITE_ERIKA, $3 + 4, $4 + 4, $ff, $d0, $41, ERIKA + $C8, $1 ; trainer + db SPRITE_LASS, $b + 4, $2 + 4, $ff, $d3, $42, LASS + $C8, $11 ; trainer + db SPRITE_FOULARD_WOMAN, $a + 4, $7 + 4, $ff, $d2, $43, BEAUTY + $C8, $1 ; trainer + db SPRITE_LASS, $5 + 4, $9 + 4, $ff, $d0, $44, JR__TRAINER_F + $C8, $b ; trainer + db SPRITE_FOULARD_WOMAN, $5 + 4, $1 + 4, $ff, $d0, $45, BEAUTY + $C8, $2 ; trainer + db SPRITE_LASS, $3 + 4, $6 + 4, $ff, $d0, $46, LASS + $C8, $12 ; trainer + db SPRITE_FOULARD_WOMAN, $3 + 4, $3 + 4, $ff, $d0, $47, BEAUTY + $C8, $3 ; trainer + db SPRITE_LASS, $3 + 4, $5 + 4, $ff, $d0, $48, COOLTRAINER_F + $C8, $1 ; trainer + + ; warp-to + EVENT_DISP $5, $11, $4 + EVENT_DISP $5, $11, $5 + +CeladonGymBlocks: ; 45 + INCBIN "maps/celadongym.blk" + +CeladonGameCorner_h: ; 0x48bb1 to 0x48bbd (12 bytes) (bank=12) (id=135) + db $12 ; tileset + db $09, $0a ; dimensions (y, x) + dw CeladonGameCornerBlocks, CeladonGameCornerTexts, CeladonGameCornerScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonGameCornerObject ; objects + +CeladonGameCornerScript: ; 0x48bbd + call $4bcf + call $4bec + call $3c3c + ld hl, $4c12 + ld a, [$d65f] + jp $3d97 +; 0x48bcf + +INCBIN "baserom.gbc",$48bcf,$48c12 - $48bcf + +CeladonGameCornerScripts: ; 0x48c12 + dw CeladonGameCornerScript0 + +INCBIN "baserom.gbc",$48c14,$4 + +CeladonGameCornerScript0: ; 0x48c18 + ret +; 0x48c19 + +INCBIN "baserom.gbc",$48c19,$71 + +CeladonGameCornerTexts: ; 0x48c8a + dw CeladonGameCornerText1, CeladonGameCornerText2, CeladonGameCornerText3, CeladonGameCornerText4, CeladonGameCornerText5, CeladonGameCornerText6, CeladonGameCornerText7, CeladonGameCornerText8, CeladonGameCornerText9, CeladonGameCornerText10, CeladonGameCornerText11, CeladonGameCornerText12, CeladonGameCornerText13 + +CeladonGameCornerText1: ; 0x48ca4 + TX_FAR _CeladonGameCornerText1 + db $50 + +CeladonGameCornerText2: ; 0x48ca9 + db $08 ; asm + call $4f1e + ld hl, $4d22 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_c650b ; 0x48cba + ld b,COIN_CASE + call $3493 + jr z, .asm_ed086 ; 0x48cc1 + call $4f95 + jr nc, .asm_31338 ; 0x48cc6 + xor a + ldh [$9f], a + ldh [$a1], a + ld a, $10 + ldh [$a0], a + call $35a6 + jr nc, .asm_b6ef0 ; 0x48cd4 + ld hl, $4d31 + jr .asm_e2afd ; 0x48cd9 +.asm_b6ef0 ; 0x48cdb + xor a + ldh [$9f], a + ldh [$a1], a + ld a, $10 + ldh [$a0], a + ld hl, $ffa1 + ld de, $d349 + ld c, $3 + ld a, $c + call Predef + xor a + ldh [$9f], a + ldh [$a0], a + ld a, $50 + ldh [$a1], a + ld de, $d5a5 + ld hl, $ffa1 + ld c, $2 + ld a, $b + call Predef + call $4f1e + ld hl, $4d27 + jr .asm_e2afd ; 0x48d0d +.asm_c650b ; 0x48d0f + ld hl, $4d2c + jr .asm_e2afd ; 0x48d12 +.asm_31338 ; 0x48d14 + ld hl, $4d36 + jr .asm_e2afd ; 0x48d17 +.asm_ed086 ; 0x48d19 + ld hl, $4d3b +.asm_e2afd ; 0x48d1c + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$48d22,$1e + +CeladonGameCornerText3: ; 0x48d40 + TX_FAR _CeladonGameCornerText3 + db $50 + +CeladonGameCornerText4: ; 0x48d45 + TX_FAR _CeladonGameCornerText4 + db $50 + +CeladonGameCornerText5: ; 0x48d4a + db $08 ; asm + ld a, [$d77e] + bit 2, a + jr nz, .asm_d0957 ; 0x48d50 + ld hl, $4d9c + call PrintText + ld b,COIN_CASE + call $3493 + jr z, .asm_5aef9 ; 0x48d5d + call $4f95 + jr nc, .asm_98546 ; 0x48d62 + xor a + ldh [$9f], a + ldh [$a0], a + ld a, $10 + ldh [$a1], a + ld de, $d5a5 + ld hl, $ffa1 + ld c, $2 + ld a, $b + call Predef + ld hl, $d77e + set 2, [hl] + ld a, $1 + ld [$cc3c], a + ld hl, $4da1 + jr .asm_c7d1a ; 0x48d87 +.asm_d0957 ; 0x48d89 + ld hl, $4dac + jr .asm_c7d1a ; 0x48d8c +.asm_98546 ; 0x48d8e + ld hl, $4da7 + jr .asm_c7d1a ; 0x48d91 +.asm_5aef9 ; 0x48d93 + ld hl, $4f19 +.asm_c7d1a ; 0x48d96 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$48d9c,$15 + +CeladonGameCornerText6: ; 0x48db1 + TX_FAR _CeladonGameCornerText6 + db $50 + +CeladonGameCornerText7: ; 0x48db6 + db $08 ; asm + ld a, [$d77c] + bit 1, a + ld hl, $4dca + jr z, .asm_be3fd ; 0x48dbf + ld hl, $4dcf +.asm_be3fd ; 0x48dc4 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$48dca,$a + +CeladonGameCornerText8: ; 0x48dd4 + TX_FAR _CeladonGameCornerText8 + db $50 + +CeladonGameCornerText9: ; 0x48dd9 + db $08 ; asm + ld a, [$d77e] + bit 4, a + jr nz, .asm_ed8bc ; 0x48ddf + ld hl, $4e26 + call PrintText + ld b,COIN_CASE + call $3493 + jr z, .asm_df794 ; 0x48dec + call $4f95 + jr nc, .asm_f17c3 ; 0x48df1 + xor a + ldh [$9f], a + ldh [$a0], a + ld a, $20 + ldh [$a1], a + ld de, $d5a5 + ld hl, $ffa1 + ld c, $2 + ld a, $b + call Predef + ld hl, $d77e + set 4, [hl] + ld hl, $4e2b + jr .asm_0ddc2 ; 0x48e11 +.asm_ed8bc ; 0x48e13 + ld hl, $4e36 + jr .asm_0ddc2 ; 0x48e16 +.asm_f17c3 ; 0x48e18 + ld hl, $4e31 + jr .asm_0ddc2 ; 0x48e1b +.asm_df794 ; 0x48e1d + ld hl, $4f19 +.asm_0ddc2 ; 0x48e20 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$48e26,$48e3b - $48e26 + +CeladonGameCornerText10: ; 0x48e3b + db $08 ; asm + ld a, [$d77e] + bit 3, a + jr nz, .asm_ff080 ; 0x48e41 + ld hl, $4e88 + call PrintText + ld b,COIN_CASE + call $3493 + jr z, .asm_4fb0c ; 0x48e4e + call $4f95 + jr z, .asm_9505a ; 0x48e53 + xor a + ldh [$9f], a + ldh [$a0], a + ld a, $20 + ldh [$a1], a + ld de, $d5a5 + ld hl, $ffa1 + ld c, $2 + ld a, $b + call Predef + ld hl, $d77e + set 3, [hl] + ld hl, $4e8d + jr .asm_78d65 ; 0x48e73 +.asm_ff080 ; 0x48e75 + ld hl, $4e98 + jr .asm_78d65 ; 0x48e78 +.asm_9505a ; 0x48e7a + ld hl, $4e93 + jr .asm_78d65 ; 0x48e7d +.asm_4fb0c ; 0x48e7f + ld hl, $4f19 +.asm_78d65 ; 0x48e82 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$48e88,$48e9d - $48e88 + +CeladonGameCornerText11: ; 0x48e9d + db $08 ; asm + ld hl, $4ece + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $4ed3 + ld de, $4ed3 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + xor a + ldh [$b4], a + ldh [$b3], a + ldh [$b2], a + ld a, $1 + ld [$d65f], a + jp $24d7 + +INCBIN "baserom.gbc",$48ece,$48ed8 - $48ece + +CeladonGameCornerText13: ; 0x48ed8 +INCBIN "baserom.gbc",$48ed8,5 + +CeladonGameCornerText12: ; 0x48edd + db $08 ; asm + ld a, $1 + ld [$cc3c], a + ld hl, $4f09 + call PrintText + call $3748 + ld a, $ad + call $23b1 + call $3748 + ld hl, $d77e + set 1, [hl] + ld a, $43 + ld [$d09f], a + ld bc, $0208 + ld a, $17 + call Predef + jp $24d7 + +INCBIN "baserom.gbc",$48f09,$97 + +CeladonGameCornerObject: ; 0x48fa0 (size=99) + db $f ; border tile + + db $3 ; warps + db $11, $f, $7, $ff + db $11, $10, $7, $ff + db $4, $11, $1, ROCKET_HIDEOUT_1 + + db $1 ; signs + db $4, $9, $c ; CeladonGameCornerText12 + + db $b ; people + db SPRITE_FOULARD_WOMAN, $6 + 4, $2 + 4, $ff, $d0, $1 ; person + db SPRITE_MART_GUY, $6 + 4, $5 + 4, $ff, $d0, $2 ; person + db SPRITE_FAT_BALD_GUY, $a + 4, $2 + 4, $ff, $d2, $3 ; person + db SPRITE_FOULARD_WOMAN, $d + 4, $2 + 4, $ff, $d2, $4 ; person + db SPRITE_FISHER, $b + 4, $5 + 4, $ff, $d3, $5 ; person + db SPRITE_MOM_GEISHA, $b + 4, $8 + 4, $ff, $d2, $6 ; person + db SPRITE_GYM_HELPER, $e + 4, $8 + 4, $ff, $d2, $7 ; person + db SPRITE_GAMBLER, $f + 4, $b + 4, $ff, $d3, $8 ; person + db SPRITE_MART_GUY, $b + 4, $e + 4, $ff, $d2, $9 ; person + db SPRITE_GENTLEMAN, $d + 4, $11 + 4, $ff, $d3, $a ; person + db SPRITE_ROCKET, $5 + 4, $9 + 4, $ff, $d1, $4b, ROCKET + $C8, $7 ; trainer + + ; warp-to + EVENT_DISP $a, $11, $f + EVENT_DISP $a, $11, $10 + EVENT_DISP $a, $4, $11 ; ROCKET_HIDEOUT_1 + +CeladonGameCornerBlocks: ; 90 + INCBIN "maps/celadongamecorner.blk" + +CeladonMart5_h: ; 0x4905d to 0x49069 (12 bytes) (bank=12) (id=136) + db $12 ; tileset + db $04, $0a ; dimensions (y, x) + dw CeladonMart5Blocks, CeladonMart5Texts, CeladonMart5Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMart5Object ; objects + +CeladonMart5Script: ; 0x49069 + jp $3c3c +; 0x4906c + +CeladonMart5Texts: ; 0x4906c + dw CeladonMart5Text1, CeladonMart5Text2, CeladonMart5Text3, CeladonMart5Text4, CeladonMart5Text5 + +CeladonMart5Text1: ; 0x49076 + TX_FAR _CeladonMart5Text1 + db $50 + +CeladonMart5Text2: ; 0x4907b + TX_FAR _CeladonMart5Text2 + db $50 + +CeladonMart5Text5: ; 0x49080 + TX_FAR _CeladonMart5Text5 + db $50 + +CeladonMart5Object: ; 0x49085 (size=55) + db $f ; border tile + + db $3 ; warps + db $1, $c, $0, CELADON_MART_ROOF + db $1, $10, $1, CELADON_MART_4 + db $1, $1, $0, CELADON_MART_ELEVATOR + + db $1 ; signs + db $1, $e, $5 ; CeladonMart5Text5 + + db $4 ; people + db SPRITE_GENTLEMAN, $5 + 4, $e + 4, $fe, $1, $1 ; person + db SPRITE_SAILOR, $6 + 4, $2 + 4, $ff, $ff, $2 ; person + db SPRITE_MART_GUY, $3 + 4, $5 + 4, $ff, $d0, $3 ; person + db SPRITE_MART_GUY, $3 + 4, $6 + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $a, $1, $c ; CELADON_MART_ROOF + EVENT_DISP $a, $1, $10 ; CELADON_MART_4 + EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR + +CeladonMart5Blocks: ; 40 + INCBIN "maps/celadonhouse.blk" + +CeladonPrizeRoom_h: ; 0x490e4 to 0x490f0 (12 bytes) (bank=12) (id=137) + db $12 ; tileset + db $04, $05 ; dimensions (y, x) + dw CeladonPrizeRoomBlocks, $50f3, $50f0 ; blocks, texts, scripts + db $00 ; connections + + dw CeladonPrizeRoomObject ; objects + +CeladonPrizeRoomScript: ; 0x490f0 + jp $3c3c +; 0x490f3 + +INCBIN "baserom.gbc",$490f3,$a + +CeladonPrizeRoomText1: ; 0x490fd + TX_FAR _CeladonPrizeRoomText1 + db $50 + +CeladonPrizeRoomText2: ; 0x49102 + TX_FAR _CeladonPrizeRoomText2 + db $50 + +INCBIN "baserom.gbc",$49107,$1 + +CeladonPrizeRoomObject: ; 0x49108 (size=41) + db $f ; border tile + + db $2 ; warps + db $7, $4, $9, $ff + db $7, $5, $9, $ff + + db $3 ; signs + db $2, $2, $3 ; CeladonPrizeRoomText3 + db $2, $4, $4 ; CeladonPrizeRoomText4 + db $2, $6, $5 ; CeladonPrizeRoomText5 + + db $2 ; people + db SPRITE_BALDING_GUY, $4 + 4, $1 + 4, $ff, $ff, $1 ; person + db SPRITE_GAMBLER, $3 + 4, $7 + 4, $fe, $2, $2 ; person + + ; warp-to + EVENT_DISP $5, $7, $4 + EVENT_DISP $5, $7, $5 + +CeladonPrizeRoomBlocks: ; 20 + INCBIN "maps/celadonprizeroom.blk" + +CeladonDiner_h: ; 0x49145 to 0x49151 (12 bytes) (bank=12) (id=138) + db $12 ; tileset + db $04, $05 ; dimensions (y, x) + dw CeladonDinerBlocks, CeladonDinerTexts, CeladonDinerScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonDinerObject ; objects + +CeladonDinerScript: ; 0x49151 + call $3c3c + ret +; 0x49155 + +CeladonDinerTexts: ; 0x49155 + dw CeladonDinerText1, CeladonDinerText2, CeladonDinerText3, CeladonDinerText4, CeladonDinerText5 + +CeladonDinerText1: ; 0x4915f + TX_FAR _CeladonDinerText1 + db $50 + +CeladonDinerText2: ; 0x49164 + TX_FAR _CeladonDinerText2 + db $50 + +CeladonDinerText3: ; 0x49169 + TX_FAR _CeladonDinerText3 + db $50 + +CeladonDinerText4: ; 0x4916e + TX_FAR _CeladonDinerText4 + db $50 + +CeladonDinerText5: ; 0x49173 + db $08 ; asm + ld a, [$d783] + bit 0, a + jr nz, .asm_eb14d ; 0x49179 + ld hl, $51a7 + call PrintText + ld bc,(COIN_CASE << 8) | 1 + call $3e2e + jr nc, .asm_78e93 ; 0x49187 + ld hl, $d783 + set 0, [hl] + ld hl, $51ac + call PrintText + jr .asm_68b61 ; 0x49194 +.asm_78e93 ; 0x49196 + ld hl, $51b2 + call PrintText + jr .asm_68b61 ; 0x4919c +.asm_eb14d ; 0x4919e + ld hl, $51b7 + call PrintText +.asm_68b61 ; 0x491a4 + jp $24d7 + +INCBIN "baserom.gbc",$491a7,$15 + +CeladonDinerObject: ; 0x491bc (size=50) + db $f ; border tile + + db $2 ; warps + db $7, $3, $a, $ff + db $7, $4, $a, $ff + + db $0 ; signs + + db $5 ; people + db SPRITE_COOK, $5 + 4, $8 + 4, $fe, $2, $1 ; person + db SPRITE_MOM_GEISHA, $2 + 4, $7 + 4, $ff, $ff, $2 ; person + db SPRITE_FAT_BALD_GUY, $4 + 4, $1 + 4, $ff, $d0, $3 ; person + db SPRITE_FISHER2, $3 + 4, $5 + 4, $ff, $d3, $4 ; person + db SPRITE_GYM_HELPER, $1 + 4, $0 + 4, $ff, $d0, $5 ; person + + ; warp-to + EVENT_DISP $5, $7, $3 + EVENT_DISP $5, $7, $4 + +CeladonDinerBlocks: ; 20 + INCBIN "maps/celadondiner.blk" + +CeladonHouse_h: ; 0x49202 to 0x4920e (12 bytes) (bank=12) (id=139) + db $13 ; tileset + db $04, $04 ; dimensions (y, x) + dw CeladonHouseBlocks, CeladonHouseTexts, CeladonHouseScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonHouseObject ; objects + +CeladonHouseScript: ; 0x4920e + call $3c3c + ret +; 0x49212 + +CeladonHouseTexts: ; 0x49212 + dw CeladonHouseText1, CeladonHouseText2, CeladonHouseText3 + +CeladonHouseText1: ; 0x49218 + TX_FAR _CeladonHouseText1 + db $50 + +CeladonHouseText2: ; 0x4921d + TX_FAR _CeladonHouseText2 + db $50 + +CeladonHouseText3: ; 0x49222 + TX_FAR _CeladonHouseText3 + db $50 + +CeladonHouseObject: ; 0x49227 (size=38) + db $f ; border tile + + db $2 ; warps + db $7, $2, $b, $ff + db $7, $3, $b, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_OLD_PERSON, $2 + 4, $4 + 4, $ff, $d0, $1 ; person + db SPRITE_ROCKET, $4 + 4, $1 + 4, $fe, $0, $2 ; person + db SPRITE_SAILOR, $6 + 4, $5 + 4, $ff, $d2, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +CeladonHouseBlocks: ; 16 + INCBIN "maps/celadonhouse2.blk" + +CeladonHotel_h: ; 0x4925d to 0x49269 (12 bytes) (bank=12) (id=140) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw CeladonHotelBlocks, CeladonHotelTexts, CeladonHotelScript ; blocks, texts, scripts + db $00 ; connections + + dw CeladonHotelObject ; objects + +CeladonHotelScript: ; 0x49269 + jp $3c3c +; 0x4926c + +CeladonHotelTexts: ; 0x4926c + dw CeladonHotelText1, CeladonHotelText2, CeladonHotelText3 + +CeladonHotelText1: ; 0x49272 + TX_FAR _CeladonHotelText1 + db $50 + +CeladonHotelText2: ; 0x49277 + TX_FAR _CeladonHotelText2 + db $50 + +CeladonHotelText3: ; 0x4927c + TX_FAR _CeladonHotelText3 + db $50 + +CeladonHotelObject: ; 0x49281 (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $c, $ff + db $7, $4, $c, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_OLD_MEDIUM_WOMAN, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_FOULARD_WOMAN, $4 + 4, $2 + 4, $ff, $ff, $2 ; person + db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $8 + 4, $fe, $2, $3 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +CeladonHotelBlocks: ; 28 + INCBIN "maps/celadonhotel.blk" + +MtMoonPokecenter_h: ; 0x492c3 to 0x492cf (12 bytes) (bank=12) (id=68) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw MtMoonPokecenterBlocks, $52d5, MtMoonPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw MtMoonPokecenterObject ; objects + +MtMoonPokecenterScript: ; 0x492cf + call $22fa + jp $3c3c +; 0x492d5 + +INCBIN "baserom.gbc",$492d5,$d + +MtMoonPokecenterText2: +MtMoonPokecenterText1: ; 0x492e2 + TX_FAR _MtMoonPokecenterText1 + db $50 + +MtMoonPokecenterText3: ; 0x492e7 + TX_FAR _MtMoonPokecenterText3 + db $50 + +MtMoonPokecenterText4: ; 0x492ec + db $08 ; asm + ld a, [$d7c6] + add a + jp c, $5353 + ld hl, $535c + call PrintText + ld a, $13 + ld [$d125], a + call $30e8 + call $35ec + ld a, [$cc26] + and a + jp nz, $534e + ldh [$9f], a + ldh [$a1], a + ld a, $5 + ldh [$a0], a + call $35a6 + jr nc, .asm_faa09 ; 0x49317 + ld hl, $5366 + jr .asm_ae354 ; 0x4931c +.asm_faa09 ; 0x4931e + ld bc,(MAGIKARP << 8) | 5 + call GivePokemon + jr nc, .asm_38361 ; 0x49324 + xor a + ld [W_WHICHTRADE], a + ld [$cd3f], a + ld a, $5 + ld [$cd3e], a + ld hl, $cd3f + ld de, $d349 + ld c, $3 + ld a, $c + call Predef + ld a, $13 + ld [$d125], a + call $30e8 + ld hl, $d7c6 + set 7, [hl] + jr .asm_38361 ; 0x4934c + ld hl, $5361 + jr .asm_ae354 ; 0x49351 + ld hl, $536b +.asm_ae354 ; 0x49356 + call PrintText +.asm_38361 ; 0x49359 + jp $24d7 + +INCBIN "baserom.gbc",$4935c,$14 + +MtMoonPokecenterText5: ; 0x49370 + TX_FAR _MtMoonPokecenterText5 + db $50 + +MtMoonPokecenterText6: + db $f6 + +MtMoonPokecenterObject: ; 0x49376 (size=56) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $0, $ff + db $7, $4, $0, $ff + + db $0 ; signs + + db $6 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_BUG_CATCHER, $3 + 4, $4 + 4, $ff, $d1, $2 ; person + db SPRITE_GENTLEMAN, $3 + 4, $7 + 4, $ff, $d1, $3 ; person + db SPRITE_FAT_BALD_GUY, $6 + 4, $a + 4, $fe, $2, $4 ; person + db SPRITE_CLIPBOARD, $2 + 4, $7 + 4, $ff, $ff, $5 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $6 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +RockTunnelPokecenter_h: ; 0x493ae to 0x493ba (12 bytes) (id=81) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw $40ab, $53c0, RockTunnelPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw RockTunnelPokecenterObject ; objects + +RockTunnelPokecenterScript: ; 0x493ba + call $22fa + jp $3c3c +; 0x493c0 + +INCBIN "baserom.gbc",$493c0,$9 + +RockTunnelPokecenterText2: +RockTunnelPokecenterText1: ; 0x493c9 + TX_FAR _RockTunnelPokecenterText1 + +INCBIN "baserom.gbc",$493cd,$493ce - $493cd + +RockTunnelPokecenterText3: ; 0x493ce + TX_FAR _RockTunnelPokecenterText3 + db $50 + +RockTunnelPokecenterText4: ; 0x493d3 + db $f6 + +RockTunnelPokecenterObject: ; 0x493d4 (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $0, $ff + db $7, $4, $0, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_GENTLEMAN, $3 + 4, $7 + 4, $fe, $2, $2 ; person + db SPRITE_FISHER2, $5 + 4, $2 + 4, $ff, $ff, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +Route11Gate_h: ; 0x49400 to 0x4940c (12 bytes) (id=84) + db $0c ; tileset + db $05, $04 ; dimensions (y, x) + dw Route11GateBlocks, Route11GateTexts, Route11GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route11GateObject ; objects + +Route11GateScript: ; 0x4940c + jp $3c3c +; 0x4940f + +Route11GateTexts: ; 0x4940f + dw Route11GateText1 + +Route11GateText1: ; 0x49411 + TX_FAR _Route11GateText1 + db $50 + +Route11GateObject: ; 0x49416 (size=50) + db $a ; border tile + + db $5 ; warps + db $4, $0, $0, $ff + db $5, $0, $1, $ff + db $4, $7, $2, $ff + db $5, $7, $3, $ff + db $8, $6, $0, ROUTE_11_GATE_2F + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $1 + 4, $4 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $4, $0 + EVENT_DISP $4, $5, $0 + EVENT_DISP $4, $4, $7 + EVENT_DISP $4, $5, $7 + EVENT_DISP $4, $8, $6 ; ROUTE_11_GATE_2F + +Route11GateUpstairs_h: ; 0x49448 to 0x49454 (12 bytes) (id=86) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw Route11GateUpstairsBlocks, $5457, Route11GateUpstairsScript ; blocks, texts, scripts + db $00 ; connections + + dw Route11GateUpstairsObject ; objects + +Route11GateUpstairsScript: ; 0x49454 + jp $3c3f +; 0x49457 + +INCBIN "baserom.gbc",$49457,$8 + +Route11GateUpstairsText1: ; 0x4945f + db $08 ; asm + xor a + ld [W_WHICHTRADE], a + ld a, $54 + call Predef +asm_49469: + jp $24d7 + +Route11GateUpstairsText2: ; 0x4946c + db $8 + ld a, [$d7d6] + add a + jr c, .asm_4949b ; 0x49471 $28 + ld a, $1e + ld [$ff00+$db], a + ld a, $47 + ld [$ff00+$dc], a + ld [$d11e], a + call $2fcf + ld h, d + ld l, e + ld de, $cc5b + ld bc, $000d + call CopyData + ld a, $62 + call Predef + ld a, [$ff00+$db] + dec a + jr nz, .asm_494a1 ; 0x49494 $b + ld hl, $d7d6 + set 7, [hl] +.asm_4949b + ld hl, $54a3 + call PrintText +.asm_494a1 + jr asm_49469 ; 0x494a1 $c6 +; 0x494a3 + +INCBIN "baserom.gbc",$494a3,$5 + +Route11GateUpstairsText3: ; 0x494a8 + db $08 ; asm + ld a, [$c109] + cp $4 + jp nz, $55c9 + ld a, [$d7d8] + bit 7, a + ld hl, $54c4 + jr z, .asm_5ac80 ; 0x494b9 + ld hl, $54c9 +.asm_5ac80 ; 0x494be + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$494c4,$494ce - $494c4 + +Route11GateUpstairsText4: ; 0x494ce + db $8 + ld hl, $54d5 + jp $55c9 +; 0x494d5 + +INCBIN "baserom.gbc",$494d5,$5 + +Route11GateUpstairsObject: ; 0x494da (size=30) + db $a ; border tile + + db $1 ; warps + db $7, $7, $4, ROUTE_11_GATE_1F + + db $2 ; signs + db $2, $1, $3 ; Route11GateUpstairsText3 + db $2, $6, $4 ; Route11GateUpstairsText4 + + db $2 ; people + db SPRITE_BUG_CATCHER, $2 + 4, $4 + 4, $fe, $2, $1 ; person + db SPRITE_OAK_AIDE, $6 + 4, $2 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $7 ; ROUTE_11_GATE_1F + +Route12Gate_h: ; 0x494f8 to 0x49504 (12 bytes) (id=87) + db $0c ; tileset + db $04, $05 ; dimensions (y, x) + dw Route12GateBlocks, Route12GateTexts, Route12GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route12GateObject ; objects + +Route12GateScript: ; 0x49504 + jp $3c3c +; 0x49507 + +Route12GateTexts: ; 0x49507 + dw Route12GateText1 + +Route12GateText1: ; 0x49509 + TX_FAR _Route12GateText1 + db $50 + +Route12GateObject: ; 0x4950e (size=50) + db $a ; border tile + + db $5 ; warps + db $0, $4, $0, $ff + db $0, $5, $1, $ff + db $7, $4, $2, $ff + db $7, $5, $2, $ff + db $6, $8, $0, ROUTE_12_GATE_2F + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $3 + 4, $1 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $5, $0, $4 + EVENT_DISP $5, $0, $5 + EVENT_DISP $5, $7, $4 + EVENT_DISP $5, $7, $5 + EVENT_DISP $5, $6, $8 ; ROUTE_12_GATE_2F + +Route12GateBlocks: ; 20 + INCBIN "maps/route12gate.blk" + +Route12GateUpstairs_h: ; 0x49554 to 0x49560 (12 bytes) (id=195) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $40db, Route12GateUpstairsTexts, Route12GateUpstairsScript ; blocks, texts, scripts + db $00 ; connections + + dw Route12GateUpstairsObject ; objects + +Route12GateUpstairsScript: ; 0x49560 + jp $3c3f +; 0x49563 + +Route12GateUpstairsTexts: ; 0x49563 + dw Route12GateUpstairsText1, Route12GateUpstairsText2, Route12GateUpstairsText3 + +Route12GateUpstairsText1: ; 0x49569 + db $08 ; asm + ld a, [$d7d7] + rrca + jr c, .asm_0ad3c ; 0x4956e + ld hl, $559c + call PrintText + ld bc,(TM_39 << 8) | 1 + call $3e2e + jr nc, .asm_4c2be ; 0x4957c + ld hl, $55a1 + call PrintText + ld hl, $d7d7 + set 0, [hl] + jr .asm_4ba56 ; 0x49589 +.asm_4c2be ; 0x4958b + ld hl, $55ac + call PrintText + jr .asm_4ba56 ; 0x49591 +.asm_0ad3c ; 0x49593 + ld hl, $55a7 + call PrintText +.asm_4ba56 ; 0x49599 + jp $24d7 + +INCBIN "baserom.gbc",$4959c,$495b1 - $4959c + +Route12GateUpstairsText2: ; 0x495b1 + db $08 ; asm + ld hl, $55b8 + jp $55c9 + +;TX_FAR at 0x495b8 +db $17, $5a, $49, $23, $50 + +Route12GateUpstairsText3: ; 0x495bd + db $8 + ld hl, $55c4 + jp $55c9 +; 0x495c4 + +INCBIN "baserom.gbc",$495c4,$495de-$495c4 + +Route12GateUpstairsObject: ; 0x495de (size=24) + db $a ; border tile + + db $1 ; warps + db $7, $7, $4, ROUTE_12_GATE + + db $2 ; signs + db $2, $1, $2 ; Route12GateUpstairsText2 + db $2, $6, $3 ; Route12GateUpstairsText3 + + db $1 ; people + db SPRITE_BRUNETTE_GIRL, $4 + 4, $3 + 4, $fe, $1, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $7 ; ROUTE_12_GATE + +Route15Gate_h: ; 0x495f6 to 0x49602 (12 bytes) (id=184) + db $0c ; tileset + db $05, $04 ; dimensions (y, x) + dw $40c7, Route15GateTexts, Route15GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route15GateObject ; objects + +Route15GateScript: ; 0x49602 + jp $3c3c +; 0x49605 + +Route15GateTexts: ; 0x49605 + dw Route15GateText1 + +Route15GateText1: ; 0x49607 + TX_FAR _Route15GateText1 + db $50 + +Route15GateObject: ; 0x4960c (size=50) + db $a ; border tile + + db $5 ; warps + db $4, $0, $0, $ff + db $5, $0, $1, $ff + db $4, $7, $2, $ff + db $5, $7, $3, $ff + db $8, $6, $0, $b9 + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $1 + 4, $4 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $4, $0 + EVENT_DISP $4, $5, $0 + EVENT_DISP $4, $4, $7 + EVENT_DISP $4, $5, $7 + EVENT_DISP $4, $8, $6 + +INCBIN "baserom.gbc",$4963e,$74 + +Route16GateMap_h: ; 0x496b2 to 0x496be (12 bytes) (id=186) + db $0c ; tileset + db $07, $04 ; dimensions (y, x) + dw Route16GateMapBlocks, Route16GateMapTexts, Route16GateMapScript ; blocks, texts, scripts + db $00 ; connections + + dw Route16GateMapObject ; objects + +Route16GateMapScript: ; 0x496be + ld hl, $d732 + res 5, [hl] + call $3c3c + ld a, [$d660] + ld hl, $56cf + jp $3d97 +; 0x496cf + +Route16GateMapScripts: ; 0x496cf + dw Route16GateMapScript0 + +INCBIN "baserom.gbc",$496d1,$6 + +Route16GateMapScript0: ; 0x496d7 + call $5755 + ret nz + ld hl, $5714 + call $34bf + ret nc + ld a, $3 + ld [$ff00+$8c], a + call $2920 + xor a + ld [$ff00+$b4], a + ld a, [$cd3d] + cp $1 + jr z, .asm_4970e ; 0x496f1 $1b + ld a, [$cd3d] + dec a + ld [$cd38], a + ld b, $0 + ld c, a + ld a, $40 + ld hl, $ccd3 + call $36e0 + call $3486 + ld a, $1 + ld [$d660], a + ret +.asm_4970e + ld a, $2 + ld [$d660], a + ret +; 0x49714 + +INCBIN "baserom.gbc",$49714,$46 + +Route16GateMapTexts: ; 0x4975a + dw Route16GateMapText1, Route16GateMapText2, Route16GateMapText3 + +Route16GateMapText1: ; 0x49760 + db $08 ; asm + call $5755 + jr z, .asm_0bdf3 ; 0x49764 + ld hl, $577c + call PrintText + jr .asm_56c9d ; 0x4976c +.asm_0bdf3 ; 0x4976e + ld hl, $5777 + call PrintText +.asm_56c9d ; 0x49774 + jp $24d7 + +INCBIN "baserom.gbc",$49777,$49781 - $49777 + +Route16GateMapText3: ; 0x49781 +INCBIN "baserom.gbc",$49781,5 + +Route16GateMapText2: ; 0x49786 + TX_FAR _Route16GateMapText2 + db $50 + +Route16GateMapObject: ; 0x4978b (size=88) + db $a ; border tile + + db $9 ; warps + db $8, $0, $0, $ff + db $9, $0, $1, $ff + db $8, $7, $2, $ff + db $9, $7, $2, $ff + db $2, $0, $4, $ff + db $3, $0, $5, $ff + db $2, $7, $6, $ff + db $3, $7, $7, $ff + db $c, $6, $0, ROUTE_16_GATE_2F + + db $0 ; signs + + db $2 ; people + db SPRITE_GUARD, $5 + 4, $4 + 4, $ff, $d0, $1 ; person + db SPRITE_GAMBLER, $3 + 4, $4 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $4, $8, $0 + EVENT_DISP $4, $9, $0 + EVENT_DISP $4, $8, $7 + EVENT_DISP $4, $9, $7 + EVENT_DISP $4, $2, $0 + EVENT_DISP $4, $3, $0 + EVENT_DISP $4, $2, $7 + EVENT_DISP $4, $3, $7 + EVENT_DISP $4, $c, $6 ; ROUTE_16_GATE_2F + +Route16GateMapBlocks: ; 28 + INCBIN "maps/route16gatemap.blk" + +Route16GateUpstairs_h: ; 0x497ff to 0x4980b (12 bytes) (id=187) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $40db, Route16GateUpstairsTexts, Route16GateUpstairsScript ; blocks, texts, scripts + db $00 ; connections + + dw Route16GateUpstairsObject ; objects + +Route16GateUpstairsScript: ; 0x4980b + jp $3c3f +; 0x4980e + +Route16GateUpstairsTexts: ; 0x4980e + dw Route16GateUpstairsText1, Route16GateUpstairsText2, Route16GateUpstairsText3, Route16GateUpstairsText4 + +Route16GateUpstairsText1: ; 0x49816 + db $08 ; asm + ld hl, $5820 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$49820,$49825 - $49820 + +Route16GateUpstairsText2: ; 0x49825 + db $08 ; asm + ld hl, $582f + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$4982f,$49834 - $4982f + +Route16GateUpstairsText3: ; 0x49834 + db $8 + ld hl, $583b + jp $55c9 +; 0x4983b + +INCBIN "baserom.gbc",$4983b,$5 + +Route16GateUpstairsText4: ; 0x49840 + db $8 + ld hl, $5847 + jp $55c9 +; 0x49847 + +INCBIN "baserom.gbc",$49847,$5 + +Route16GateUpstairsObject: ; 0x4984c (size=30) + db $a ; border tile + + db $1 ; warps + db $7, $7, $8, ROUTE_16_GATE_1F + + db $2 ; signs + db $2, $1, $3 ; Route16GateUpstairsText3 + db $2, $6, $4 ; Route16GateUpstairsText4 + + db $2 ; people + db SPRITE_YOUNG_BOY, $2 + 4, $4 + 4, $ff, $ff, $1 ; person + db SPRITE_LITTLE_GIRL, $5 + 4, $2 + 4, $fe, $2, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $7 ; ROUTE_16_GATE_1F + +Route18Gate_h: ; 0x4986a to 0x49876 (12 bytes) (id=190) + db $0c ; tileset + db $05, $04 ; dimensions (y, x) + dw $40c7, Route18GateTexts, Route18GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route18GateObject ; objects + +Route18GateScript: ; 0x49876 + ld hl, $d732 + res 5, [hl] + call $3c3c + ld a, [$d669] + ld hl, $5887 + jp $3d97 +; 0x49887 + +Route18GateScripts: ; 0x49887 + dw Route18GateScript0 + +INCBIN "baserom.gbc",$49889,$6 + +Route18GateScript0: ; 0x4988f + call $5755 + ret nz + ld hl, $58cc + call $34bf + ret nc + ld a, $2 + ld [$ff00+$8c], a + call $2920 + xor a + ld [$ff00+$b4], a + ld a, [$cd3d] + cp $1 + jr z, .asm_498c6 ; 0x498a9 $1b + ld a, [$cd3d] + dec a + ld [$cd38], a + ld b, $0 + ld c, a + ld a, $40 + ld hl, $ccd3 + call $36e0 + call $3486 + ld a, $1 + ld [$d669], a + ret +.asm_498c6 + ld a, $2 + ld [$d669], a + ret +; 0x498cc + +INCBIN "baserom.gbc",$498cc,$41 + +Route18GateTexts: ; 0x4990d + dw Route18GateText1, Route18GateText2 + +Route18GateText1: ; 0x49911 + db $08 ; asm + call $5755 + jr z, .asm_3c84d ; 0x49915 + ld hl, $592d + call PrintText + jr .asm_a8410 ; 0x4991d +.asm_3c84d ; 0x4991f + ld hl, $5928 + call PrintText +.asm_a8410 ; 0x49925 + jp $24d7 + +INCBIN "baserom.gbc",$49928,$49932 - $49928 + +Route18GateText2: ; 0x49932 +INCBIN "baserom.gbc",$49932,5 + +Route18GateObject: ; 0x49937 (size=50) + db $a ; border tile + + db $5 ; warps + db $4, $0, $0, $ff + db $5, $0, $1, $ff + db $4, $7, $2, $ff + db $5, $7, $3, $ff + db $8, $6, $0, ROUTE_18_GATE_2F + + db $0 ; signs + + db $1 ; people + db SPRITE_GUARD, $1 + 4, $4 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $4, $4, $0 + EVENT_DISP $4, $5, $0 + EVENT_DISP $4, $4, $7 + EVENT_DISP $4, $5, $7 + EVENT_DISP $4, $8, $6 ; ROUTE_18_GATE_2F + +Route18GateHeader_h: ; 0x49969 to 0x49975 (12 bytes) (id=191) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $40db, Route18GateHeaderTexts, Route18GateHeaderScript ; blocks, texts, scripts + db $00 ; connections + + dw Route18GateHeaderObject ; objects + +Route18GateHeaderScript: ; 0x49975 + jp $3c3f +; 0x49978 + +Route18GateHeaderTexts: ; 0x49978 + dw Route18GateHeaderText1, Route18GateHeaderText2, Route18GateHeaderText3 + +Route18GateHeaderText1: ; 0x4997e + db $08 ; asm + ld a, $5 + ld [W_WHICHTRADE], a + ld a, $54 + call Predef + jp $24d7 + +Route18GateHeaderText2: ; 0x4998c + db $8 + ld hl, $5993 + jp $55c9 +; 0x49993 + +INCBIN "baserom.gbc",$49993,$5 + +Route18GateHeaderText3: ; 0x49998 + db $8 + ld hl, $599f + jp $55c9 +; 0x4999f + +INCBIN "baserom.gbc",$4999f,$5 + +Route18GateHeaderObject: ; 0x499a4 (size=24) + db $a ; border tile + + db $1 ; warps + db $7, $7, $4, ROUTE_18_GATE_1F + + db $2 ; signs + db $2, $1, $2 ; Route18GateHeaderText2 + db $2, $6, $3 ; Route18GateHeaderText3 + + db $1 ; people + db SPRITE_BUG_CATCHER, $2 + 4, $4 + 4, $fe, $2, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $7 ; ROUTE_18_GATE_1F + +MtMoon1_h: ; 0x499bc to 0x499c8 (12 bytes) (id=59) + db $11 ; tileset + db $12, $14 ; dimensions (y, x) + dw MtMoon1Blocks, MtMoon1Texts, MtMoon1Script ; blocks, texts, scripts + db $00 ; connections + + dw MtMoon1Object ; objects + +MtMoon1Script: ; 0x499c8 + call $3c3c + ld hl, $59fd + ld de, $59db + ld a, [$d606] + call $3160 + ld [$d606], a + ret +; 0x499db + +INCBIN "baserom.gbc",$499db,$6 + +MtMoon1Texts: ; 0x499e1 + dw MtMoon1Text1, MtMoon1Text2, MtMoon1Text3, MtMoon1Text4, MtMoon1Text5, MtMoon1Text6, MtMoon1Text7, MtMoon1Text8, MtMoon1Text9, MtMoon1Text10, MtMoon1Text11, MtMoon1Text12, MtMoon1Text13, MtMoon1Text14 + +INCBIN "baserom.gbc",$499fd,$55 + +MtMoon1Text1: ; 0x49a52 + db $08 ; asm + ld hl, $59fd + call LoadTrainerHeader + jp $24d7 + +MtMoon1Text2: ; 0x49a5c + db $08 ; asm + ld hl, $5a09 + call LoadTrainerHeader + jp $24d7 + +MtMoon1Text3: ; 0x49a66 + db $08 ; asm + ld hl, $5a15 + call LoadTrainerHeader + jp $24d7 + +MtMoon1Text4: ; 0x49a70 + db $08 ; asm + ld hl, $5a21 + call LoadTrainerHeader + jp $24d7 + +MtMoon1Text5: ; 0x49a7a + db $08 ; asm + ld hl, $5a2d + call LoadTrainerHeader + jp $24d7 + +MtMoon1Text6: ; 0x49a84 + db $08 ; asm + ld hl, $5a39 + call LoadTrainerHeader + jp $24d7 + +MtMoon1Text7: ; 0x49a8e + db $08 ; asm + ld hl, $5a45 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$49a98,$69 + +MtMoon1Text14: ; 0x49b01 + TX_FAR _MtMoon1Text14 + db $50 + +MtMoon1Object: ; 0x49b06 (size=145) + db $3 ; border tile + + db $5 ; warps + db $23, $e, $1, $ff + db $23, $f, $1, $ff + db $5, $5, $0, MT_MOON_2 + db $b, $11, $2, MT_MOON_2 + db $f, $19, $3, MT_MOON_2 + + db $1 ; signs + db $17, $f, $e ; MtMoon1Text14 + + db $d ; people + db SPRITE_HIKER, $6 + 4, $5 + 4, $ff, $d0, $41, HIKER + $C8, $1 ; trainer + db SPRITE_BUG_CATCHER, $10 + 4, $c + 4, $ff, $d3, $42, YOUNGSTER + $C8, $3 ; trainer + db SPRITE_LASS, $4 + 4, $1e + 4, $ff, $d0, $43, LASS + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $1f + 4, $18 + 4, $ff, $d1, $44, SUPER_NERD + $C8, $1 ; trainer + db SPRITE_LASS, $17 + 4, $10 + 4, $ff, $d0, $45, LASS + $C8, $6 ; trainer + db SPRITE_BUG_CATCHER, $16 + 4, $7 + 4, $ff, $d0, $46, BUG_CATCHER + $C8, $7 ; trainer + db SPRITE_BUG_CATCHER, $1b + 4, $1e + 4, $ff, $d3, $47, BUG_CATCHER + $C8, $8 ; trainer + db SPRITE_BALL, $14 + 4, $2 + 4, $ff, $ff, $88, POTION ; item + db SPRITE_BALL, $2 + 4, $2 + 4, $ff, $ff, $89, MOON_STONE ; item + db SPRITE_BALL, $1f + 4, $23 + 4, $ff, $ff, $8a, RARE_CANDY ; item + db SPRITE_BALL, $17 + 4, $24 + 4, $ff, $ff, $8b, ESCAPE_ROPE ; item + db SPRITE_BALL, $21 + 4, $14 + 4, $ff, $ff, $8c, POTION ; item + db SPRITE_BALL, $20 + 4, $5 + 4, $ff, $ff, $8d, TM_12 ; item + + ; warp-to + EVENT_DISP $14, $23, $e + EVENT_DISP $14, $23, $f + EVENT_DISP $14, $5, $5 ; MT_MOON_2 + EVENT_DISP $14, $b, $11 ; MT_MOON_2 + EVENT_DISP $14, $f, $19 ; MT_MOON_2 + +MtMoon1Blocks: ; 360 + INCBIN "maps/mtmoon1.blk" + +MtMoon3_h: ; 0x49cff to 0x49d0b (12 bytes) (id=61) + db $11 ; tileset + db $12, $14 ; dimensions (y, x) + dw MtMoon3Blocks, MtMoon3Texts, MtMoon3Script ; blocks, texts, scripts + db $00 ; connections + + dw MtMoon3Object ; objects + +MtMoon3Script: ; 0x49d0b + call $3c3c + ld hl, $5e48 + ld de, $5d63 + ld a, [$d607] + call $3160 + ld [$d607], a + ld a, [$d7f6] + bit 1, a + ret z + ld hl, $5d37 + call $34bf + jr nc, .asm_49d31 ; 0x49d29 $6 + ld hl, $d72e + set 4, [hl] + ret +.asm_49d31 + ld hl, $d72e + res 4, [hl] + ret +; 0x49d37 + +INCBIN "baserom.gbc",$49d37,$fd + +MtMoon3Texts: ; 0x49e34 + dw MtMoon3Text1, MtMoon3Text2, MtMoon3Text3, MtMoon3Text4, MtMoon3Text5, MtMoon3Text6, MtMoon3Text7, MtMoon3Text8, MtMoon3Text9 + +INCBIN "baserom.gbc",$49e46,$33 + +MtMoon3Text1: ; 0x49e79 + db $08 ; asm + ld a, [$d7f6] + bit 1, a + jr z, .asm_be1e0 ; 0x49e7f + and $c0 + jr nz, .asm_f8cd4 ; 0x49e83 + ld hl, $5f8f + call PrintText + jr .asm_f1fba ; 0x49e8b +.asm_be1e0 ; 0x49e8d + ld hl, $5f85 + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $5f8a + ld de, $5f8a + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $3 + ld [$d607], a + ld [$da39], a + jr .asm_f1fba ; 0x49eb6 +.asm_f8cd4 ; 0x49eb8 + ld hl, $5f94 + call PrintText +.asm_f1fba ; 0x49ebe + jp $24d7 + +MtMoon3Text2: ; 0x49ec1 + db $08 ; asm + ld hl, $5e48 + call LoadTrainerHeader + jp $24d7 + +MtMoon3Text3: ; 0x49ecb + db $08 ; asm + ld hl, $5e54 + call LoadTrainerHeader + jp $24d7 + +MtMoon3Text4: ; 0x49ed5 + db $08 ; asm + ld hl, $5e60 + call LoadTrainerHeader + jp $24d7 + +MtMoon3Text5: ; 0x49edf + db $08 ; asm + ld hl, $5e6c + call LoadTrainerHeader + jp $24d7 + +MtMoon3Text6: ; 0x49ee9 + db $08 ; asm + ld a, $1 + ld [$cc3c], a + ld hl, $5f24 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_1fa5e ; 0x49efc + ld bc,(DOME_FOSSIL << 8) | 1 + call $3e2e + jp nc, $5f76 + call $5f69 + ld a, $6d + ld [$cc4d], a + ld a, $11 + call Predef + ld hl, $d7f6 + set 6, [hl] + ld a, $4 + ld [$d607], a + ld [$da39], a +.asm_1fa5e ; 0x49f21 + jp $24d7 + +INCBIN "baserom.gbc",$49f24,$49f29 - $49f24 + +MtMoon3Text7: ; 0x49f29 + db $08 ; asm + ld a, $1 + ld [$cc3c], a + ld hl, $5f64 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_8e988 ; 0x49f3c + ld bc,(HELIX_FOSSIL << 8) | 1 + call $3e2e + jp nc, $5f76 + call $5f69 + ld a, $6e + ld [$cc4d], a + ld a, $11 + call Predef + ld hl, $d7f6 + set 7, [hl] + ld a, $4 + ld [$d607], a + ld [$da39], a +.asm_8e988 ; 0x49f61 + jp $24d7 + +INCBIN "baserom.gbc",$49f64,$77 + +MtMoon3Object: ; 0x49fdb (size=102) + db $3 ; border tile + + db $4 ; warps + db $9, $19, $1, MT_MOON_2 + db $11, $15, $4, MT_MOON_2 + db $1b, $f, $5, MT_MOON_2 + db $7, $5, $6, MT_MOON_2 + + db $0 ; signs + + db $9 ; people + db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $c + 4, $ff, $d3, $41, SUPER_NERD + $C8, $2 ; trainer + db SPRITE_ROCKET, $10 + 4, $b + 4, $ff, $d0, $42, ROCKET + $C8, $1 ; trainer + db SPRITE_ROCKET, $16 + 4, $f + 4, $ff, $d0, $43, ROCKET + $C8, $2 ; trainer + db SPRITE_ROCKET, $b + 4, $1d + 4, $ff, $d1, $44, ROCKET + $C8, $3 ; trainer + db SPRITE_ROCKET, $11 + 4, $1d + 4, $ff, $d2, $45, ROCKET + $C8, $4 ; trainer + db SPRITE_OMANYTE, $6 + 4, $c + 4, $ff, $ff, $6 ; person + db SPRITE_OMANYTE, $6 + 4, $d + 4, $ff, $ff, $7 ; person + db SPRITE_BALL, $15 + 4, $19 + 4, $ff, $ff, $88, HP_UP ; item + db SPRITE_BALL, $5 + 4, $1d + 4, $ff, $ff, $89, TM_01 ; item + + ; warp-to + EVENT_DISP $14, $9, $19 ; MT_MOON_2 + EVENT_DISP $14, $11, $15 ; MT_MOON_2 + EVENT_DISP $14, $1b, $f ; MT_MOON_2 + EVENT_DISP $14, $7, $5 ; MT_MOON_2 + +MtMoon3Blocks: ; 360 + INCBIN "maps/mtmoon3.blk" + +SafariZoneWest_h: ; 0x4a1a9 to 0x4a1b5 (12 bytes) (id=219) + db $03 ; tileset + db $0d, $0f ; dimensions (y, x) + dw SafariZoneWestBlocks, SafariZoneWestTexts, SafariZoneWestScript ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneWestObject ; objects + +SafariZoneWestScript: ; 0x4a1b5 + jp $3c3c +; 0x4a1b8 + +SafariZoneWestTexts: ; 0x4a1b8 + dw SafariZoneWestText1, SafariZoneWestText2, SafariZoneWestText3, SafariZoneWestText4, SafariZoneWestText5, SafariZoneWestText6, SafariZoneWestText7, SafariZoneWestText8 + +SafariZoneWestText5: ; 0x4a1c8 + TX_FAR _SafariZoneWestText5 + db $50 + +SafariZoneWestText6: ; 0x4a1cd + TX_FAR _SafariZoneWestText6 + db $50 + +SafariZoneWestText7: ; 0x4a1d2 + TX_FAR _SafariZoneWestText7 + db $50 + +SafariZoneWestText8: ; 0x4a1d7 + TX_FAR _SafariZoneWestText8 + db $50 + +SafariZoneWestObject: ; 0x4a1dc (size=108) + db $0 ; border tile + + db $8 ; warps + db $0, $14, $0, SAFARI_ZONE_NORTH + db $0, $15, $1, SAFARI_ZONE_NORTH + db $0, $1a, $2, SAFARI_ZONE_NORTH + db $0, $1b, $3, SAFARI_ZONE_NORTH + db $16, $1d, $2, SAFARI_ZONE_CENTER + db $17, $1d, $3, SAFARI_ZONE_CENTER + db $3, $3, $0, SAFARI_ZONE_SECRET_HOUSE + db $b, $b, $0, SAFARI_ZONE_REST_HOUSE_2 + + db $4 ; signs + db $c, $c, $5 ; SafariZoneWestText5 + db $3, $11, $6 ; SafariZoneWestText6 + db $4, $1a, $7 ; SafariZoneWestText7 + db $16, $18, $8 ; SafariZoneWestText8 + + db $4 ; people + db SPRITE_BALL, $14 + 4, $8 + 4, $ff, $ff, $81, MAX_POTION ; item + db SPRITE_BALL, $7 + 4, $9 + 4, $ff, $ff, $82, TM_32 ; item + db SPRITE_BALL, $12 + 4, $12 + 4, $ff, $ff, $83, MAX_REVIVE ; item + db SPRITE_BALL, $7 + 4, $13 + 4, $ff, $ff, $84, GOLD_TEETH ; item + + ; warp-to + EVENT_DISP $f, $0, $14 ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $0, $15 ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $0, $1a ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $0, $1b ; SAFARI_ZONE_NORTH + EVENT_DISP $f, $16, $1d ; SAFARI_ZONE_CENTER + EVENT_DISP $f, $17, $1d ; SAFARI_ZONE_CENTER + EVENT_DISP $f, $3, $3 ; SAFARI_ZONE_SECRET_HOUSE + EVENT_DISP $f, $b, $b ; SAFARI_ZONE_REST_HOUSE_2 + +SafariZoneWestBlocks: ; 195 + INCBIN "maps/safarizonewest.blk" + +SafariZoneSecretHouse_h: ; 0x4a30b to 0x4a317 (12 bytes) (id=222) + db $14 ; tileset + db $04, $04 ; dimensions (y, x) + dw SafariZoneSecretHouseBlocks, SafariZoneSecretHouseTexts, SafariZoneSecretHouseScript ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneSecretHouseObject ; objects + +SafariZoneSecretHouseScript: ; 0x4a317 + jp $3c3c +; 0x4a31a + +SafariZoneSecretHouseTexts: ; 0x4a31a + dw SafariZoneSecretHouseText1 + +SafariZoneSecretHouseText1: ; 0x4a31c + db $08 ; asm + ld a, [$d857] + bit 0, a + jr nz, .asm_20a9b ; 0x4a322 + ld hl, $6350 + call PrintText + ld bc,(HM_03 << 8) | 1 + call $3e2e + jr nc, .asm_a21d2 ; 0x4a330 + ld hl, $6355 + call PrintText + ld hl, $d857 + set 0, [hl] + jr .asm_8f1fc ; 0x4a33d +.asm_a21d2 ; 0x4a33f + ld hl, $6360 + call PrintText + jr .asm_8f1fc ; 0x4a345 +.asm_20a9b ; 0x4a347 + ld hl, $635b + call PrintText +.asm_8f1fc ; 0x4a34d + jp $24d7 + +INCBIN "baserom.gbc",$4a350,$15 + +SafariZoneSecretHouseObject: ; 0x4a365 (size=26) + db $17 ; border tile + + db $2 ; warps + db $7, $2, $6, SAFARI_ZONE_WEST + db $7, $3, $6, SAFARI_ZONE_WEST + + db $0 ; signs + + db $1 ; people + db SPRITE_FISHER, $3 + 4, $3 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_WEST + EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_WEST + +SafariZoneSecretHouseBlocks: ; 16 + INCBIN "maps/safarizonesecrethouse.blk" + +INCBIN "baserom.gbc",$4a38f,$1c71 + +SECTION "bank13",DATA,BANK[$13] + +YoungsterPic: + INCBIN "pic/trainer/youngster.pic" +BugCatcherPic: + INCBIN "pic/trainer/bugcatcher.pic" +LassPic: + INCBIN "pic/trainer/lass.pic" +SailorPic: + INCBIN "pic/trainer/sailor.pic" +JrTrainerMPic: + INCBIN "pic/trainer/jr.trainerm.pic" +JrTrainerFPic: + INCBIN "pic/trainer/jr.trainerf.pic" +PokemaniacPic: + INCBIN "pic/trainer/pokemaniac.pic" +SuperNerdPic: + INCBIN "pic/trainer/supernerd.pic" +HikerPic: + INCBIN "pic/trainer/hiker.pic" +BikerPic: + INCBIN "pic/trainer/biker.pic" +BurglarPic: + INCBIN "pic/trainer/burglar.pic" +EngineerPic: + INCBIN "pic/trainer/engineer.pic" +FisherPic: + INCBIN "pic/trainer/fisher.pic" +SwimmerPic: + INCBIN "pic/trainer/swimmer.pic" +CueBallPic: + INCBIN "pic/trainer/cueball.pic" +GamblerPic: + INCBIN "pic/trainer/gambler.pic" +BeautyPic: + INCBIN "pic/trainer/beauty.pic" +PsychicPic: + INCBIN "pic/trainer/psychic.pic" +RockerPic: + INCBIN "pic/trainer/rocker.pic" +JugglerPic: + INCBIN "pic/trainer/juggler.pic" +TamerPic: + INCBIN "pic/trainer/tamer.pic" +BirdKeeperPic: + INCBIN "pic/trainer/birdkeeper.pic" +BlackbeltPic: + INCBIN "pic/trainer/blackbelt.pic" +Rival1Pic: + INCBIN "pic/trainer/rival1.pic" +ProfOakPic: + INCBIN "pic/trainer/prof.oak.pic" +ChiefPic: +ScientistPic: + INCBIN "pic/trainer/scientist.pic" +GiovanniPic: + INCBIN "pic/trainer/giovanni.pic" +RocketPic: + INCBIN "pic/trainer/rocket.pic" +CooltrainerMPic: + INCBIN "pic/trainer/cooltrainerm.pic" +CooltrainerFPic: + INCBIN "pic/trainer/cooltrainerf.pic" +BrunoPic: + INCBIN "pic/trainer/bruno.pic" +BrockPic: + INCBIN "pic/trainer/brock.pic" +MistyPic: + INCBIN "pic/trainer/misty.pic" +LtSurgePic: + INCBIN "pic/trainer/lt.surge.pic" +ErikaPic: + INCBIN "pic/trainer/erika.pic" +KogaPic: + INCBIN "pic/trainer/koga.pic" +BlainePic: + INCBIN "pic/trainer/blaine.pic" +SabrinaPic: + INCBIN "pic/trainer/sabrina.pic" +GentlemanPic: + INCBIN "pic/trainer/gentleman.pic" +Rival2Pic: + INCBIN "pic/trainer/rival2.pic" +Rival3Pic: + INCBIN "pic/trainer/rival3.pic" +LoreleiPic: + INCBIN "pic/trainer/lorelei.pic" +ChannelerPic: + INCBIN "pic/trainer/channeler.pic" +AgathaPic: + INCBIN "pic/trainer/agatha.pic" +LancePic: + INCBIN "pic/trainer/lance.pic" + +BattleCenterM_h: ; 0x4fd04 to 0x4fd10 (12 bytes) (id=239) + db $15 ; tileset + db $04, $05 ; dimensions (y, x) + dw BattleCenterMBlocks, BattleCenterMTexts, BattleCenterMScript ; blocks, texts, scripts + db $00 ; connections + + dw BattleCenterMObject ; objects + +BattleCenterMScript: ; 0x4fd10 + call $3c3c + ld a, [$ff00+$aa] + cp $2 + ld a, $8 + jr z, .asm_4fd1d ; 0x4fd19 $2 + ld a, $c +.asm_4fd1d + ld [$ff00+$8d], a + ld a, $1 + ld [$ff00+$8c], a + call $34ae + ld hl, $d72d + bit 0, [hl] + set 0, [hl] + ret nz + ld hl, $c214 + ld a, $8 + ld [hli], a + ld a, $a + ld [hl], a + ld a, $8 + ld [$c119], a + ld a, [$ff00+$aa] + cp $2 + ret z + ld a, $7 + ld [$c215], a + ld a, $c + ld [$c119], a + ret +; 0x4fd4c + +BattleCenterMTexts: ; 0x4fd4c + dw BattleCenterMText1 + +BattleCenterMText1: ; 0x4fd4e + TX_FAR _BattleCenterMText1 + db $50 + +BattleCenterMObject: ; 0x4fd53 (size=10) + db $e ; border tile + + db $0 ; warps + + db $0 ; signs + + db $1 ; people + db SPRITE_RED, $2 + 4, $2 + 4, $ff, $0, $1 ; person + +BattleCenterMBlocks: ; 20 + INCBIN "maps/battlecenterm.blk" + +TradeCenterM_h: ; 0x4fd71 to 0x4fd7d (12 bytes) (id=240) + db $15 ; tileset + db $04, $05 ; dimensions (y, x) + dw TradeCenterMBlocks, TradeCenterMTexts, TradeCenterMScript ; blocks, texts, scripts + db $00 ; connections + + dw TradeCenterMObject ; objects + +TradeCenterMScript: ; 0x4fd7d + jp $7d10 +; 0x4fd80 + +TradeCenterMTexts: ; 0x4fd80 + dw TradeCenterMText1 + +TradeCenterMText1: ; 0x4fd82 + TX_FAR _TradeCenterMText1 + db $50 + +TradeCenterMObject: ; 0x4fd87 (size=10) + db $e ; border tile + + db $0 ; warps + + db $0 ; signs + + db $1 ; people + db SPRITE_RED, $2 + 4, $2 + 4, $ff, $0, $1 ; person + +TradeCenterMBlocks: ; 20 + INCBIN "maps/tradecenterm.blk" + +INCBIN "baserom.gbc",$4fda5,$a4 + +GetPredefPointer: ; 7E49 +; stores hl in $CC4F,$CC50 +; stores de in $CC51,$CC52 +; stores bc in $CC53,$CC54 +; grabs a byte "n" from $CC4E, +; and gets the nth (3-byte) pointer in PredefPointers +; stores the bank of said pointer in [$D0B7] +; stores the pointer in hl and returns + ; ld $CC4F,hl + ld a,h + ld [$CC4F],a + ld a,l + ld [$CC50],a + + ; ld $CC51,de + ld hl,$CC51 + ld a,d + ld [hli],a + ld a,e + ld [hli],a + + ; ld $CC53,bc + ld a,b + ld [hli],a + ld [hl],c + + ld hl,PredefPointers + ld de,0 + + ; de = 3 * [$CC4E] + ld a,[$CC4E] + ld e,a + add a,a + add a,e + ld e,a + jr nc,.next\@ + inc d + +.next\@ + add hl,de + ld d,h + ld e,l + + ; get bank of predef routine + ld a,[de] + ld [$D0B7],a + + ; get pointer + inc de + ld a,[de] + ld l,a + inc de + ld a,[de] + ld h,a + + ret + +PredefPointers: ; 7E79 +; these are pointers to ASM routines. +; they appear to be used in overworld map scripts. + dbw $0F,$4D60 + dbw $0F,$70C6 + dbw $0F,$7073 + dbw $0B,$7E40 + dbw $0F,$7103 + dbw $1E,$5ABA + dbw $03,$7132 + dbw $03,$76A5 + dbw BANK(AttackAnimation),AttackAnimation; 08 play attack animation + dbw $03,$771E + dbw $03,$771E + dbw $03,$781D + dbw $03,$7836 + dbw $03,$771E + dbw $03,$771E + dbw $03,$7850 + dbw $03,$7666 + dbw $03,$71D7 + dbw $03,$71A6 + dbw $03,$469C + dbw $0F,$4A83 + dbw $03,$71C8 + dbw $03,$71C8 + dbw $03,$6E9E + dbw $03,$7850 + dbw $03,$4754 + dbw $0E,$6F5B + dbw $01,$6E43 + dbw $03,$78A5; 1C, used in Pokémon Tower + dbw $03,$3EB5 + dbw $03,$3E2E + dbw $12,$40EB + dbw $03,$78BA + dbw $12,$40FF + dbw $03,$7929 + dbw $03,$79A0 + dbw $12,$4125 + dbw $03,$7A1D + dbw $03,$79DC + dbw $01,$5AB0 + dbw $0F,$6D02 + dbw $10,$4000 + dbw $0E,$6D1C + dbw $1C,$778C + dbw $0F,$6F18 + dbw $01,$5A5F + dbw $03,$6A03 + dbw $10,$50F3 + dbw $1C,$496D + dbw $1E,$5DDA + dbw $10,$5682 + dbw $1E,$5869 + dbw $1C,$4B5D + dbw $03,$4586 + dbw $04,$6953 + dbw $04,$6B57 + dbw $10,$50E2 + dbw $15,$690F + dbw $10,$5010 + dbw BANK(Predef3B),Predef3B; 3B display pic? + dbw $03,$6F54 + dbw $10,$42D1 + dbw $0E,$6FB8 + dbw $1C,$770A + dbw $1C,$602B + dbw $03,$7113 + dbw $17,$5B5E + dbw $04,$773E + dbw $04,$7763 + dbw $1C,$5DDF + dbw $17,$40DC; 46 load dex screen + dbw $03,$72E5 + dbw $03,$7A1D + dbw $0F,$4DEC + dbw $1C,$4F60 + dbw $09,$7D6B + dbw $05,$7C47; 4C player exclamation + dbw $01,$5AAF + dbw $01,$64EB + dbw $0D,$7CA1 + dbw $1C,$780F + dbw $1C,$76BD + dbw $1C,$75E8 + dbw $1C,$77E2 + dbw BANK(Predef54),Predef54 ; 54 initiate trade + dbw $1D,$405C + dbw $11,$4169 + dbw $1E,$45BA + dbw $1E,$4510 + dbw $03,$45BE + dbw $03,$460B + dbw $03,$4D99 + dbw $01,$4DE1 + dbw $09,$7D98 + dbw $03,$7473 + dbw $04,$68EF + dbw $04,$68F6 + dbw $07,$49C6 + dbw $16,$5035 + +SECTION "bank14",DATA,BANK[$14] + +Route22_h: ; 0x50000 to 0x50022 (34 bytes) (id=33) + db $00 ; tileset + db $09, $14 ; dimensions (y, x) + dw Route22Blocks, Route22Texts, Route22Script ; blocks, texts, scripts + db NORTH | EAST ; connections + + ; connections data + + db ROUTE_23 + dw $4664, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $8f, $00 ; alignments (y, x) + dw $cb69 ; window + + db VIRIDIAN_CITY + dw $4400, $c6ff ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $00 ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route22Object ; objects + +Route22Object: ; 0x50022 (size=27) + db $2c ; border tile + + db $1 ; warps + db $5, $8, $0, ROUTE_22_GATE + + db $1 ; signs + db $b, $7, $3 ; Route22Text3 + + db $2 ; people + db SPRITE_BLUE, $5 + 4, $19 + 4, $ff, $ff, $1 ; person + db SPRITE_BLUE, $5 + 4, $19 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $14, $5, $8 ; ROUTE_22_GATE + +Route22Blocks: ; 180 + INCBIN "maps/route22.blk" + +Route20_h: ; 0x500f1 to 0x50113 (34 bytes) (id=31) + db $00 ; tileset + db $09, $32 ; dimensions (y, x) + dw Route20Blocks, Route20Texts, Route20Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db CINNABAR_ISLAND + dw $4070, $c790 ; pointers (connected, current) (strip) + db $09, $0a ; bigness, width + db $00, $13 ; alignments (y, x) + dw $c702 ; window + + db ROUTE_19 + dw $4f87, $c71d ; pointers (connected, current) (strip) + db $0c, $0a ; bigness, width + db $24, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route20Object ; objects + +Route20Object: ; 0x50113 (size=106) + db $43 ; border tile + + db $2 ; warps + db $5, $30, $0, SEAFOAM_ISLANDS_1 + db $9, $3a, $2, SEAFOAM_ISLANDS_1 + + db $2 ; signs + db $7, $33, $b ; Route20Text11 + db $b, $39, $c ; Route20Text12 + + db $a ; people + db SPRITE_SWIMMER, $8 + 4, $57 + 4, $ff, $d1, $41, SWIMMER + $C8, $9 ; trainer + db SPRITE_SWIMMER, $b + 4, $44 + 4, $ff, $d1, $42, BEAUTY + $C8, $f ; trainer + db SPRITE_SWIMMER, $a + 4, $2d + 4, $ff, $d0, $43, BEAUTY + $C8, $6 ; trainer + db SPRITE_SWIMMER, $e + 4, $37 + 4, $ff, $d3, $44, JR__TRAINER_F + $C8, $18 ; trainer + db SPRITE_SWIMMER, $d + 4, $26 + 4, $ff, $d0, $45, SWIMMER + $C8, $a ; trainer + db SPRITE_SWIMMER, $d + 4, $57 + 4, $ff, $d1, $46, SWIMMER + $C8, $b ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $9 + 4, $22 + 4, $ff, $d1, $47, BIRD_KEEPER + $C8, $b ; trainer + db SPRITE_SWIMMER, $7 + 4, $19 + 4, $ff, $d1, $48, BEAUTY + $C8, $7 ; trainer + db SPRITE_SWIMMER, $c + 4, $18 + 4, $ff, $d0, $49, JR__TRAINER_F + $C8, $10 ; trainer + db SPRITE_SWIMMER, $8 + 4, $f + 4, $ff, $d1, $4a, BEAUTY + $C8, $8 ; trainer + + ; warp-to + EVENT_DISP $32, $5, $30 ; SEAFOAM_ISLANDS_1 + EVENT_DISP $32, $9, $3a ; SEAFOAM_ISLANDS_1 + +Route20Blocks: ; 450 + INCBIN "maps/route20.blk" + +Route23_h: ; 0x5033f to 0x50361 (34 bytes) (id=34) + db $17 ; tileset + db $48, $0a ; dimensions (y, x) + dw Route23Blocks, Route23Texts, Route23Script ; blocks, texts, scripts + db NORTH | SOUTH ; connections + + ; connections data + + db INDIGO_PLATEAU + dw $4986, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $11, $00 ; alignments (y, x) + dw $c779 ; window + + db ROUTE_22 + dw $403d, $cb9b ; pointers (connected, current) (strip) + db $0d, $14 ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route23Object ; objects + +Route23Object: ; 0x50361 (size=81) + db $f ; border tile + + db $4 ; warps + db $8b, $7, $2, ROUTE_22_GATE + db $8b, $8, $3, ROUTE_22_GATE + db $1f, $4, $0, VICTORY_ROAD_1 + db $1f, $e, $1, VICTORY_ROAD_2 + + db $1 ; signs + db $21, $3, $8 ; Route23Text8 + + db $7 ; people + db SPRITE_GUARD, $23 + 4, $4 + 4, $ff, $d0, $1 ; person + db SPRITE_GUARD, $38 + 4, $a + 4, $ff, $d0, $2 ; person + db SPRITE_SWIMMER, $55 + 4, $8 + 4, $ff, $d0, $3 ; person + db SPRITE_SWIMMER, $60 + 4, $b + 4, $ff, $d0, $4 ; person + db SPRITE_GUARD, $69 + 4, $c + 4, $ff, $d0, $5 ; person + db SPRITE_GUARD, $77 + 4, $8 + 4, $ff, $d0, $6 ; person + db SPRITE_GUARD, $88 + 4, $8 + 4, $ff, $d0, $7 ; person + + ; warp-to + EVENT_DISP $a, $8b, $7 ; ROUTE_22_GATE + EVENT_DISP $a, $8b, $8 ; ROUTE_22_GATE + EVENT_DISP $a, $1f, $4 ; VICTORY_ROAD_1 + EVENT_DISP $a, $1f, $e ; VICTORY_ROAD_2 + +Route23Blocks: ; 720 + INCBIN "maps/route23.blk" + +Route24_h: ; 0x50682 to 0x506a4 (34 bytes) (id=35) + db $00 ; tileset + db $12, $0a ; dimensions (y, x) + dw Route24Blocks, Route24Texts, Route24Script ; blocks, texts, scripts + db SOUTH | EAST ; connections + + ; connections data + + db CERULEAN_CITY + dw $4832, $c838 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $00, $0a ; alignments (y, x) + dw $c703 ; window + + db ROUTE_25 + dw $4810, $c725 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c70d ; window + + ; end connection data + + dw Route24Object ; objects + +Route24Object: ; 0x506a4 (size=67) + db $2c ; border tile + + db $0 ; warps + + db $0 ; signs + + db $8 ; people + db SPRITE_BLACK_HAIR_BOY_1, $f + 4, $b + 4, $ff, $d2, $41, ROCKET + $C8, $6 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $14 + 4, $5 + 4, $ff, $d1, $42, JR__TRAINER_M + $C8, $2 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $13 + 4, $b + 4, $ff, $d2, $43, JR__TRAINER_M + $C8, $3 ; trainer + db SPRITE_LASS, $16 + 4, $a + 4, $ff, $d3, $44, LASS + $C8, $7 ; trainer + db SPRITE_BUG_CATCHER, $19 + 4, $b + 4, $ff, $d2, $45, YOUNGSTER + $C8, $4 ; trainer + db SPRITE_LASS, $1c + 4, $a + 4, $ff, $d3, $46, LASS + $C8, $8 ; trainer + db SPRITE_BUG_CATCHER, $1f + 4, $b + 4, $ff, $d2, $47, BUG_CATCHER + $C8, $9 ; trainer + db SPRITE_BALL, $5 + 4, $a + 4, $ff, $ff, $88, TM_45 ; item + +Route24Blocks: ; 180 + INCBIN "maps/route24.blk" + +Route25_h: ; 0x5079b to 0x507b2 (23 bytes) (id=36) + db $00 ; tileset + db $09, $1e ; dimensions (y, x) + dw Route25Blocks, Route25Texts, Route25Script ; blocks, texts, scripts + db WEST ; connections + + ; connections data + + db ROUTE_24 + dw $46ee, $c754 ; pointers (connected, current) (strip) + db $0c, $0a ; bigness, width + db $00, $13 ; alignments (y, x) + dw $c702 ; window + + ; end connection data + + dw Route25Object ; objects + +Route25Object: ; 0x507b2 (size=94) + db $2c ; border tile + + db $1 ; warps + db $3, $2d, $0, BILLS_HOUSE + + db $1 ; signs + db $3, $2b, $b ; Route25Text11 + + db $a ; people + db SPRITE_BUG_CATCHER, $2 + 4, $e + 4, $ff, $d0, $41, YOUNGSTER + $C8, $5 ; trainer + db SPRITE_BUG_CATCHER, $5 + 4, $12 + 4, $ff, $d1, $42, YOUNGSTER + $C8, $6 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $18 + 4, $ff, $d0, $43, JR__TRAINER_M + $C8, $2 ; trainer + db SPRITE_LASS, $8 + 4, $12 + 4, $ff, $d3, $44, LASS + $C8, $9 ; trainer + db SPRITE_BUG_CATCHER, $3 + 4, $20 + 4, $ff, $d2, $45, YOUNGSTER + $C8, $7 ; trainer + db SPRITE_LASS, $4 + 4, $25 + 4, $ff, $d0, $46, LASS + $C8, $a ; trainer + db SPRITE_HIKER, $4 + 4, $8 + 4, $ff, $d3, $47, HIKER + $C8, $2 ; trainer + db SPRITE_HIKER, $9 + 4, $17 + 4, $ff, $d1, $48, HIKER + $C8, $3 ; trainer + db SPRITE_HIKER, $7 + 4, $d + 4, $ff, $d3, $49, HIKER + $C8, $4 ; trainer + db SPRITE_BALL, $2 + 4, $16 + 4, $ff, $ff, $8a, TM_19 ; item + + ; warp-to + EVENT_DISP $1e, $3, $2d ; BILLS_HOUSE + +Route25Blocks: ; 270 + INCBIN "maps/route25.blk" + +IndigoPlateau_h: ; 0x5091e to 0x50935 (23 bytes) (id=9) + db $17 ; tileset + db $09, $0a ; dimensions (y, x) + dw IndigoPlateauBlocks, $4936, IndigoPlateauScript ; blocks, texts, scripts + db SOUTH ; connections + + ; connections data + + db ROUTE_23 + dw $43b2, $c7ab ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw IndigoPlateauObject ; objects + +IndigoPlateauScript: ; 0x50935 + ret +; 0x50936 + +IndigoPlateauObject: ; 0x50936 (size=20) + db $e ; border tile + + db $2 ; warps + db $5, $9, $0, INDIGO_PLATEAU_LOBBY + db $5, $a, $0, INDIGO_PLATEAU_LOBBY + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $a, $5, $9 ; INDIGO_PLATEAU_LOBBY + EVENT_DISP $a, $5, $a ; INDIGO_PLATEAU_LOBBY + +IndigoPlateauBlocks: ; 90 + INCBIN "maps/indigoplateau.blk" + +SaffronCity_h: ; 0x509a4 to 0x509dc (56 bytes) (id=10) + db $00 ; tileset + db $12, $14 ; dimensions (y, x) + dw SaffronCityBlocks, SaffronCityTexts, SaffronCityScript ; blocks, texts, scripts + db NORTH | SOUTH | WEST | EAST ; connections + + ; connections data + + db ROUTE_5 + dw $4668, $c6f0 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $23, $f6 ; alignments (y, x) + dw $c809 ; window + + db ROUTE_6 + dw $4079, $c912 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $f6 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_7 + dw $4058, $c79e ; pointers (connected, current) (strip) + db $09, $0a ; bigness, width + db $f8, $13 ; alignments (y, x) + dw $c702 ; window + + db ROUTE_8 + dw $41c6, $c7b5 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $f8, $00 ; alignments (y, x) + dw $c70d ; window + + ; end connection data + + dw SaffronCityObject ; objects + +SaffronCityObject: ; 0x509dc (size=188) + db $f ; border tile + + db $8 ; warps + db $5, $7, $0, COPYCATS_HOUSE_1F + db $3, $1a, $0, FIGHTINGDOJO + db $3, $22, $0, SAFFRON_GYM + db $b, $d, $0, SAFFRON_HOUSE_1 + db $b, $19, $0, SAFFRON_MART + db $15, $12, $0, SILPH_CO_1F + db $1d, $9, $0, SAFFRON_POKECENTER + db $1d, $1d, $0, SAFFRON_HOUSE_2 + + db $a ; signs + db $5, $11, $10 ; SaffronCityText16 + db $5, $1b, $11 ; SaffronCityText17 + db $5, $23, $12 ; SaffronCityText18 + db $b, $1a, $13 ; SaffronCityText19 + db $13, $27, $14 ; SaffronCityText20 + db $15, $5, $15 ; SaffronCityText21 + db $15, $f, $16 ; SaffronCityText22 + db $1d, $a, $17 ; SaffronCityText23 + db $1d, $1b, $18 ; SaffronCityText24 + db $13, $1, $19 ; SaffronCityText25 + + db $f ; people + db SPRITE_ROCKET, $6 + 4, $7 + 4, $ff, $ff, $1 ; person + db SPRITE_ROCKET, $8 + 4, $14 + 4, $fe, $2, $2 ; person + db SPRITE_ROCKET, $4 + 4, $22 + 4, $ff, $ff, $3 ; person + db SPRITE_ROCKET, $c + 4, $d + 4, $ff, $ff, $4 ; person + db SPRITE_ROCKET, $19 + 4, $b + 4, $fe, $2, $5 ; person + db SPRITE_ROCKET, $d + 4, $20 + 4, $fe, $2, $6 ; person + db SPRITE_ROCKET, $1e + 4, $12 + 4, $fe, $2, $7 ; person + db SPRITE_OAK_AIDE, $e + 4, $8 + 4, $fe, $0, $8 ; person + db SPRITE_LAPRAS_GIVER, $17 + 4, $17 + 4, $ff, $ff, $9 ; person + db SPRITE_ERIKA, $1e + 4, $11 + 4, $fe, $2, $a ; person + db SPRITE_GENTLEMAN, $c + 4, $1e + 4, $ff, $d0, $b ; person + db SPRITE_BIRD, $c + 4, $1f + 4, $ff, $d0, $c ; person + db SPRITE_ROCKER, $8 + 4, $12 + 4, $ff, $d1, $d ; person + db SPRITE_ROCKET, $16 + 4, $12 + 4, $ff, $d0, $e ; person + db SPRITE_ROCKET, $16 + 4, $13 + 4, $ff, $d0, $f ; person + + ; warp-to + EVENT_DISP $14, $5, $7 ; COPYCATS_HOUSE_1F + EVENT_DISP $14, $3, $1a ; FIGHTINGDOJO + EVENT_DISP $14, $3, $22 ; SAFFRON_GYM + EVENT_DISP $14, $b, $d ; SAFFRON_HOUSE_1 + EVENT_DISP $14, $b, $19 ; SAFFRON_MART + EVENT_DISP $14, $15, $12 ; SILPH_CO_1F + EVENT_DISP $14, $1d, $9 ; SAFFRON_POKECENTER + EVENT_DISP $14, $1d, $1d ; SAFFRON_HOUSE_2 + +SaffronCityBlocks: ; 360 + INCBIN "maps/saffroncity.blk" + +SaffronCityScript: ; 0x50c00 + jp $3c3c +; 0x50c03 + +SaffronCityTexts: ; 0x50c03 + dw SaffronCityText1, SaffronCityText2, SaffronCityText3, SaffronCityText4, SaffronCityText5, SaffronCityText6, SaffronCityText7, SaffronCityText8, SaffronCityText9, SaffronCityText10, SaffronCityText11, SaffronCityText12, SaffronCityText13, SaffronCityText14, SaffronCityText15, SaffronCityText16, SaffronCityText17, SaffronCityText18, SaffronCityText19, SaffronCityText20, SaffronCityText21, SaffronCityText22, SaffronCityText23, SaffronCityText24, SaffronCityText25 + +SaffronCityText1: ; 0x50c35 + TX_FAR _SaffronCityText1 + db $50 + +SaffronCityText2: ; 0x50c3a + TX_FAR _SaffronCityText2 + db $50 + +SaffronCityText3: ; 0x50c3f + TX_FAR _SaffronCityText3 + db $50 + +SaffronCityText4: ; 0x50c44 + TX_FAR _SaffronCityText4 + db $50 + +SaffronCityText5: ; 0x50c49 + TX_FAR _SaffronCityText5 + db $50 + +SaffronCityText6: ; 0x50c4e + TX_FAR _SaffronCityText6 + db $50 + +SaffronCityText7: ; 0x50c53 + TX_FAR _SaffronCityText7 + db $50 + +SaffronCityText8: ; 0x50c58 + TX_FAR _SaffronCityText8 + db $50 + +SaffronCityText9: ; 0x50c5d + TX_FAR _SaffronCityText9 + db $50 + +SaffronCityText10: ; 0x50c62 + TX_FAR _SaffronCityText10 + db $50 + +SaffronCityText11: ; 0x50c67 + TX_FAR _SaffronCityText11 + db $50 + +SaffronCityText12: ; 0x50c6c + TX_FAR _SaffronCityText12 + +INCBIN "baserom.gbc",$50c70,$50c72 - $50c70 + +SaffronCityText13: ; 0x50c72 + TX_FAR _SaffronCityText13 + db $50 + +SaffronCityText14: ; 0x50c77 + TX_FAR _SaffronCityText14 + db $50 + +SaffronCityText15: ; 0x50c7c + TX_FAR _SaffronCityText15 + db $50 + +SaffronCityText16: ; 0x50c81 + TX_FAR _SaffronCityText16 + db $50 + +SaffronCityText17: ; 0x50c86 + TX_FAR _SaffronCityText17 + db $50 + +SaffronCityText18: ; 0x50c8b + TX_FAR _SaffronCityText18 + db $50 + +SaffronCityText20: ; 0x50c90 + TX_FAR _SaffronCityText20 + db $50 + +SaffronCityText21: ; 0x50c95 + TX_FAR _SaffronCityText21 + db $50 + +SaffronCityText22: ; 0x50c9a + TX_FAR _SaffronCityText22 + db $50 + +SaffronCityText24: ; 0x50c9f + TX_FAR _SaffronCityText24 + db $50 + +SaffronCityText25: ; 0x50ca4 + TX_FAR _SaffronCityText25 + db $50 + +Route20Script: ; 0x50ca9 + ld hl, $d7e7 + bit 0, [hl] + res 0, [hl] + call nz, $4cc6 + call $3c3c + ld hl, $4d3a + ld de, $4d1c + ld a, [$d628] + call $3160 + ld [$d628], a + ret +; 0x50cc6 + +INCBIN "baserom.gbc",$50cc6,$5c + +Route20Texts: ; 0x50d22 + dw Route20Text1, Route20Text2, Route20Text3, Route20Text4, Route20Text5, Route20Text6, Route20Text7, Route20Text8, Route20Text9, Route20Text10, Route20Text11, Route20Text12 + +INCBIN "baserom.gbc",$50d3a,$79 + +Route20Text1: ; 0x50db3 + db $08 ; asm + ld hl, $4d3a + call LoadTrainerHeader + jp $24d7 + +Route20Text2: ; 0x50dbd + db $08 ; asm + ld hl, $4d46 + call LoadTrainerHeader + jp $24d7 + +Route20Text3: ; 0x50dc7 + db $08 ; asm + ld hl, $4d52 + call LoadTrainerHeader + jp $24d7 + +Route20Text4: ; 0x50dd1 + db $08 ; asm + ld hl, $4d5e + call LoadTrainerHeader + jp $24d7 + +Route20Text5: ; 0x50ddb + db $08 ; asm + ld hl, $4d6a + call LoadTrainerHeader + jp $24d7 + +Route20Text6: ; 0x50de5 + db $08 ; asm + ld hl, $4d76 + call LoadTrainerHeader + jp $24d7 + +Route20Text7: ; 0x50def + db $08 ; asm + ld hl, $4d82 + call LoadTrainerHeader + jp $24d7 + +Route20Text8: ; 0x50df9 + db $08 ; asm + ld hl, $4d8e + call LoadTrainerHeader + jp $24d7 + +Route20Text9: ; 0x50e03 + db $08 ; asm + ld hl, $4d9a + call LoadTrainerHeader + jp $24d7 + +Route20Text10: ; 0x50e0d + db $08 ; asm + ld hl, $4da6 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$50e17,$96 + +Route20Text12: +Route20Text11: ; 0x50ead + TX_FAR _Route20Text11 + db $50 + +Route22Script: ; 0x50eb2 + call $3c3c + ld hl, $4ebe + ld a, [$d60a] + jp $3d97 +; 0x50ebe + +Route22Scripts: ; 0x50ebe + dw Route22Script0, Route22Script1, Route22Script2, Route22Script3 + +INCBIN "baserom.gbc",$50ec6,$3a + +Route22Script0: ; 0x50f00 + ld a, [$d7eb] + bit 7, a + ret z + ld hl, $4f2d + call $34bf + ret nc + ld a, [$cd3d] + ld [$cf0d], a + xor a + ld [$ff00+$b4], a + ld a, $f0 + ld [$cd6b], a + ld a, $2 + ld [$d528], a + ld a, [$d7eb] + bit 0, a + jr nz, .asm_50f32 ; 0x50f25 $b + bit 1, a + jp nz, $504e + ret + inc b + dec e + dec b + dec e + rst $38 +.asm_50f32 + ld a, $1 + ld [$cd4f], a + xor a + ld [$cd50], a + ld a, $4c + call Predef + ld a, [$d700] + and a + jr z, .asm_50f4e ; 0x50f44 $8 + ld a, $ff + ld [$c0ee], a + call $23b1 +.asm_50f4e + ld c, $2 + ld a, $de + call $23a1 + ld a, $1 + ld [$ff00+$8c], a + call $4ee6 + ld a, $1 + ld [$d60a], a + ret +; 0x50f62 + +Route22Script1: ; 0x50f62 + ld a, [$d730] + bit 0, a + ret nz + ld a, [$cf0d] + cp $1 + jr nz, .asm_50f78 ; 0x50f6d $9 + ld a, $4 + ld [$d528], a + ld a, $4 + jr .asm_50f7a ; 0x50f76 $2 +.asm_50f78 + ld a, $c +.asm_50f7a + ld [$ff00+$8d], a + ld a, $1 + ld [$ff00+$8c], a + call $34a6 + xor a + ld [$cd6b], a + ld a, $1 + ld [$ff00+$8c], a + call $2920 + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $51b7 + ld de, $51bc + call $3354 + ld a, $e1 + ld [$d059], a + ld hl, $4faf + call $4ed6 + ld a, $2 + ld [$d60a], a + ret +; 0x50faf + +INCBIN "baserom.gbc",$50faf,$50fb5 - $50faf + +Route22Script2: ; 0x50fb5 + ld a, [$d057] + cp $ff + jp z, $4ece + ld a, [$c109] + and a + jr nz, .asm_50fc7 ; 0x50fc1 $4 + ld a, $4 + jr .asm_50fc9 ; 0x50fc5 $2 +.asm_50fc7 + ld a, $c +.asm_50fc9 + ld [$ff00+$8d], a + ld a, $1 + ld [$ff00+$8c], a + call $34a6 + ld a, $f0 + ld [$cd6b], a + ld hl, $d7eb + set 5, [hl] + ld a, $1 + ld [$ff00+$8c], a + call $2920 + ld a, $ff + ld [$c0ee], a + call $23b1 + ld b, $2 + ld hl, $5b47 + call Bankswitch + ld a, [$cf0d] + cp $1 + jr nz, .asm_50fff ; 0x50ff8 $5 + call $5008 + jr .asm_51002 ; 0x50ffd $3 +.asm_50fff + call $500d +.asm_51002 + ld a, $3 + ld [$d60a], a + ret +; 0x51008 + +INCBIN "baserom.gbc",$51008,$5102a - $51008 + +Route22Script3: ; 0x5102a + ld a, [$d730] + bit 0, a + ret nz + xor a + ld [$cd6b], a + ld a, $22 + ld [$cc4d], a + ld a, $11 + call Predef + call $2307 + ld hl, $d7eb + res 0, [hl] + res 7, [hl] + ld a, $0 + ld [$d60a], a + ret +; 0x5104e + +INCBIN "baserom.gbc",$5104e,$127 + +Route22Texts: ; 0x51175 + dw Route22Text1, Route22Text2, Route22Text3 + +Route22Text1: ; 0x5117b + db $08 ; asm + ld a, [$d7eb] + bit 5, a + jr z, .asm_a88cf ; 0x51181 + ld hl, $51b2 + call PrintText + jr .asm_48088 ; 0x51189 +.asm_a88cf ; 0x5118b + ld hl, $51ad + call PrintText +.asm_48088 ; 0x51191 + jp $24d7 + +Route22Text2: ; 0x51194 + db $08 ; asm + ld a, [$d7eb] + bit 6, a + jr z, .asm_58c0a ; 0x5119a + ld hl, $51c6 + call PrintText + jr .asm_673ee ; 0x511a2 +.asm_58c0a ; 0x511a4 + ld hl, $51c1 + call PrintText +.asm_673ee ; 0x511aa + jp $24d7 + +INCBIN "baserom.gbc",$511ad,$28 + +Route22Text3: ; 0x511d5 + TX_FAR _Route22Text3 + db $50 + +Route23Script: ; 0x511da + call $51e9 + call $3c3c + ld hl, $5213 + ld a, [$d667] + jp $3d97 +; 0x511e9 + +INCBIN "baserom.gbc",$511e9,$51213 - $511e9 + +Route23Scripts: ; 0x51213 + dw Route23Script0 + +INCBIN "baserom.gbc",$51215,$4 + +Route23Script0: ; 0x51219 + ld hl, $5255 + ld a, [$d361] + ld b, a + ld e, $0 + ld c, $7 +.asm_51224 + ld a, [hli] + cp $ff + ret z + inc e + dec c + cp b + jr nz, .asm_51224 ; 0x5122b $f7 + cp $23 + jr nz, .asm_51237 ; 0x5122f $6 + ld a, [$d362] + cp $e + ret nc +.asm_51237 + ld a, e + ld [$ff00+$8c], a + ld a, c + ld [$cd3d], a + ld b, $2 + ld hl, $d7ed + ld a, $10 + call Predef + ld a, c + and a + ret nz + call $525d + call $2920 + xor a + ld [$ff00+$b4], a + ret +; 0x51255 + +INCBIN "baserom.gbc",$51255,$a2 + +Route23Texts: ; 0x512f7 + dw Route23Text1, Route23Text2, Route23Text3, Route23Text4, Route23Text5, Route23Text6, Route23Text7, Route23Text8 + +Route23Text1: ; 0x51307 + db $08 ; asm + ld a, $6 + call $5346 + jp $24d7 + +Route23Text2: ; 0x51310 + db $08 ; asm + ld a, $5 + call $5346 + jp $24d7 + +Route23Text3: ; 0x51319 + db $08 ; asm + ld a, $4 + call $5346 + jp $24d7 + +Route23Text4: ; 0x51322 + db $08 ; asm + ld a, $3 + call $5346 + jp $24d7 + +Route23Text5: ; 0x5132b + db $08 ; asm + ld a, $2 + call $5346 + jp $24d7 + +Route23Text6: ; 0x51334 + db $08 ; asm + ld a, $1 + call $5346 + jp $24d7 + +Route23Text7: ; 0x5133d + db $8 + ld a, $0 + call $5346 + jp $24d7 +; 0x51346 + +INCBIN "baserom.gbc",$51346,$62 + +Route23Text8: ; 0x513a8 + TX_FAR _Route23Text8 + db $50 + +Route24Script: ; 0x513ad + call $3c3c + ld hl, $545b + ld de, $53cb + ld a, [$d602] + call $3160 + ld [$d602], a + ret +; 0x513c0 + +INCBIN "baserom.gbc",$513c0,$8b + +Route24Texts: ; 0x5144b + dw Route24Text1, Route24Text2, Route24Text3, Route24Text4, Route24Text5, Route24Text6, Route24Text7, Route24Text8 + +INCBIN "baserom.gbc",$5145b,$49 + +Route24Text1: ; 0x514a4 + db $8 + ld hl, $d7f0 + res 1, [hl] + ld a, [$d7ef] + bit 0, a + jr nz, .asm_a03f5 ; 0x514af $48 + ld hl, $5510 + call PrintText + ld bc, $3101 + call GiveItem + jr nc, .asm_3a23d ; 0x514bd $43 + ld hl, $d7ef + set 0, [hl] + ld hl, $551a + call PrintText + ld hl, $5526 + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $552b + ld de, $552b + call $3354 + ld a, [$ff00+$8c] + ld [$cf13], a + call $336a + call $32d7 + xor a + ld [$ff00+$b4], a + ld a, $3 + ld [$d602], a + ld [$da39], a + jp $24d7 +.asm_a03f5 ; 0x514f9 + ld hl, $5530 + call PrintText + jp $24d7 +.asm_3a23d ; 0x51502 + ld hl, $5521 + call PrintText + ld hl, $d7f0 + set 1, [hl] + jp $24d7 +; 0x51510 + +INCBIN "baserom.gbc",$51510,$25 + +Route24Text2: ; 0x51535 + db $08 ; asm + ld hl, $545b + call LoadTrainerHeader + jp $24d7 + +Route24Text3: ; 0x5153f + db $08 ; asm + ld hl, $5467 + call LoadTrainerHeader + jp $24d7 + +Route24Text4: ; 0x51549 + db $08 ; asm + ld hl, $5473 + call LoadTrainerHeader + jp $24d7 + +Route24Text5: ; 0x51553 + db $08 ; asm + ld hl, $547f + call LoadTrainerHeader + jp $24d7 + +Route24Text6: ; 0x5155d + db $08 ; asm + ld hl, $548b + call LoadTrainerHeader + jp $24d7 + +Route24Text7: ; 0x51567 + db $08 ; asm + ld hl, $5497 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$51571,$515cb - $51571 + +Route25Script: ; 0x515cb + call $55e1 + call $3c3c + ld hl, $563e + ld de, $5622 + ld a, [$d603] + call $3160 + ld [$d603], a + ret +; 0x515e1 + +INCBIN "baserom.gbc",$515e1,$47 + +Route25Texts: ; 0x51628 + dw Route25Text1, Route25Text2, Route25Text3, Route25Text4, Route25Text5, Route25Text6, Route25Text7, Route25Text8, Route25Text9, Route25Text10, Route25Text11 + +INCBIN "baserom.gbc",$5163e,$6d + +Route25Text1: ; 0x516ab + db $08 ; asm + ld hl, $563e + call LoadTrainerHeader + jp $24d7 + +Route25Text2: ; 0x516b5 + db $08 ; asm + ld hl, $564a + call LoadTrainerHeader + jp $24d7 + +Route25Text3: ; 0x516bf + db $08 ; asm + ld hl, $5656 + call LoadTrainerHeader + jp $24d7 + +Route25Text4: ; 0x516c9 + db $08 ; asm + ld hl, $5662 + call LoadTrainerHeader + jp $24d7 + +Route25Text5: ; 0x516d3 + db $08 ; asm + ld hl, $566e + call LoadTrainerHeader + jp $24d7 + +Route25Text6: ; 0x516dd + db $08 ; asm + ld hl, $567a + call LoadTrainerHeader + jp $24d7 + +Route25Text7: ; 0x516e7 + db $08 ; asm + ld hl, $5686 + call LoadTrainerHeader + jp $24d7 + +Route25Text8: ; 0x516f1 + db $08 ; asm + ld hl, $5692 + call LoadTrainerHeader + jp $24d7 + +Route25Text9: ; 0x516fb + db $08 ; asm + ld hl, $569e + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$51705,$87 + +Route25Text11: ; 0x5178c + TX_FAR _Route25Text11 + db $50 + +VictoryRoad2_h: ; 0x51791 to 0x5179d (12 bytes) (id=194) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw VictoryRoad2Blocks, VictoryRoad2Texts, VictoryRoad2Script ; blocks, texts, scripts + db $00 ; connections + + dw VictoryRoad2Object ; objects + +VictoryRoad2Script: ; 0x5179d + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + call nz, $57c4 + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + call nz, $57c9 + call $3c3c + ld hl, $5835 + ld de, $57eb + ld a, [$d63f] + call $3160 + ld [$d63f], a + ret +; 0x517c4 + +INCBIN "baserom.gbc",$517c4,$57 + +VictoryRoad2Texts: ; 0x5181b + dw VictoryRoad2Text1, VictoryRoad2Text2, VictoryRoad2Text3, VictoryRoad2Text4, VictoryRoad2Text5, VictoryRoad2Text6, VictoryRoad2Text7, VictoryRoad2Text8, VictoryRoad2Text9, VictoryRoad2Text10, VictoryRoad2Text11, VictoryRoad2Text12, VictoryRoad2Text13 + +INCBIN "baserom.gbc",$51835,$49 + +VictoryRoad2Text1: ; 0x5187e + db $08 ; asm + ld hl, $5835 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad2Text2: ; 0x51888 + db $08 ; asm + ld hl, $5841 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad2Text3: ; 0x51892 + db $08 ; asm + ld hl, $584d + call LoadTrainerHeader + jp $24d7 + +VictoryRoad2Text4: ; 0x5189c + db $08 ; asm + ld hl, $5859 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad2Text5: ; 0x518a6 + db $08 ; asm + ld hl, $5865 + call LoadTrainerHeader + jp $24d7 + +VictoryRoad2Text6: ; 0x518b0 + db $08 ; asm + ld hl, $5871 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$518ba,$5b + +VictoryRoad2Object: ; 0x51915 (size=154) + db $7d ; border tile + + db $7 ; warps + db $8, $0, $2, VICTORY_ROAD_1 + db $7, $1d, $3, $ff + db $8, $1d, $3, $ff + db $7, $17, $0, VICTORY_ROAD_3 + db $e, $19, $2, VICTORY_ROAD_3 + db $7, $1b, $1, VICTORY_ROAD_3 + db $1, $1, $3, VICTORY_ROAD_3 + + db $0 ; signs + + db $d ; people + db SPRITE_HIKER, $9 + 4, $c + 4, $ff, $d2, $41, BLACKBELT + $C8, $9 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $d + 4, $15 + 4, $ff, $d2, $42, JUGGLER + $C8, $2 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $8 + 4, $13 + 4, $ff, $d0, $43, TAMER + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $4 + 4, $ff, $d0, $44, POKEMANIAC + $C8, $6 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $3 + 4, $1a + 4, $ff, $d2, $45, JUGGLER + $C8, $5 ; trainer + db SPRITE_BIRD, $5 + 4, $b + 4, $ff, $d1, $46, MOLTRES, $32 ; trainer + db SPRITE_BALL, $5 + 4, $1b + 4, $ff, $ff, $87, TM_17 ; item + db SPRITE_BALL, $9 + 4, $12 + 4, $ff, $ff, $88, FULL_HEAL ; item + db SPRITE_BALL, $b + 4, $9 + 4, $ff, $ff, $89, TM_05 ; item + db SPRITE_BALL, $0 + 4, $b + 4, $ff, $ff, $8a, GUARD_SPEC_ ; item + db SPRITE_BOULDER, $e + 4, $4 + 4, $ff, $10, $b ; person + db SPRITE_BOULDER, $5 + 4, $5 + 4, $ff, $10, $c ; person + db SPRITE_BOULDER, $10 + 4, $17 + 4, $ff, $10, $d ; person + + ; warp-to + EVENT_DISP $f, $8, $0 ; VICTORY_ROAD_1 + EVENT_DISP $f, $7, $1d + EVENT_DISP $f, $8, $1d + EVENT_DISP $f, $7, $17 ; VICTORY_ROAD_3 + EVENT_DISP $f, $e, $19 ; VICTORY_ROAD_3 + EVENT_DISP $f, $7, $1b ; VICTORY_ROAD_3 + EVENT_DISP $f, $1, $1 ; VICTORY_ROAD_3 + +VictoryRoad2Blocks: ; 135 + INCBIN "maps/victoryroad2.blk" + +MtMoon2_h: ; 0x51a36 to 0x51a42 (12 bytes) (id=60) + db $11 ; tileset + db $0e, $0e ; dimensions (y, x) + dw MtMoon2Blocks, $5a46, MtMoon2Script ; blocks, texts, scripts + db $00 ; connections + + dw MtMoon2Object ; objects + +MtMoon2Script: ; 0x51a42 + call $3c3c + ret +; 0x51a46 + +INCBIN "baserom.gbc",$51a46,$7 + +MtMoon2Object: ; 0x51a4d (size=68) + db $3 ; border tile + + db $8 ; warps + db $5, $5, $2, MT_MOON_1 + db $b, $11, $0, MT_MOON_3 + db $9, $19, $3, MT_MOON_1 + db $f, $19, $4, MT_MOON_1 + db $11, $15, $1, MT_MOON_3 + db $1b, $d, $2, MT_MOON_3 + db $3, $17, $3, MT_MOON_3 + db $3, $1b, $2, $ff + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $e, $5, $5 ; MT_MOON_1 + EVENT_DISP $e, $b, $11 ; MT_MOON_3 + EVENT_DISP $e, $9, $19 ; MT_MOON_1 + EVENT_DISP $e, $f, $19 ; MT_MOON_1 + EVENT_DISP $e, $11, $15 ; MT_MOON_3 + EVENT_DISP $e, $1b, $d ; MT_MOON_3 + EVENT_DISP $e, $3, $17 ; MT_MOON_3 + EVENT_DISP $e, $3, $1b + +MtMoon2Blocks: ; 196 + INCBIN "maps/mtmoon2.blk" + +SilphCo7_h: ; 0x51b55 to 0x51b61 (12 bytes) (id=212) + db $16 ; tileset + db $09, $0d ; dimensions (y, x) + dw SilphCo7Blocks, SilphCo7Texts, SilphCo7Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo7Object ; objects + +SilphCo7Script: ; 0x51b61 + call $5b77 + call $3c3c + ld hl, $5d5d + ld de, $5c17 + ld a, [$d648] + call $3160 + ld [$d648], a + ret +; 0x51b77 + +INCBIN "baserom.gbc",$51b77,$1c8 + +SilphCo7Texts: ; 0x51d3f + dw SilphCo7Text1, SilphCo7Text2, SilphCo7Text3, SilphCo7Text4, SilphCo7Text5, SilphCo7Text6, SilphCo7Text7, SilphCo7Text8, SilphCo7Text9, SilphCo7Text10, SilphCo7Text11, SilphCo7Text12, SilphCo7Text13, SilphCo7Text14, SilphCo7Text15 + +INCBIN "baserom.gbc",$51d55 + 8,$39 - 8 + +SilphCo7Text1: ; 0x51d8e + db $08 ; asm + ld a, [$d72e] + bit 0, a + jr z, .asm_d7e17 ; 0x51d94 + ld a, [$d838] + bit 7, a + jr nz, .asm_688b4 ; 0x51d9b + ld hl, $5ddd + call PrintText + jr .asm_b3069 ; 0x51da3 +.asm_d7e17 ; 0x51da5 + ld hl, $5dd3 + call PrintText + ld bc,(LAPRAS << 8) | 15 + call GivePokemon + jr nc, .asm_b3069 ; 0x51db1 + ld a, [$ccd3] + and a + call z, $3865 + call $3c3c + ld hl, $5dd8 + call PrintText + ld hl, $d72e + set 0, [hl] + jr .asm_b3069 ; 0x51dc8 +.asm_688b4 ; 0x51dca + ld hl, $5de2 + call PrintText +.asm_b3069 ; 0x51dd0 + jp $24d7 + +INCBIN "baserom.gbc",$51dd3,$51de7 - $51dd3 + +SilphCo7Text2: ; 0x51de7 + db $8 + ld a, [$d838] + bit 7, a + jr nz, .asm_892ce ; 0x51ded $8 + ld hl, $5e00 + call PrintText + jr .asm_e4d89 ; 0x51df5 $6 +.asm_892ce ; 0x51df7 + ld hl, $5e05 + call PrintText +.asm_e4d89 ; 0x51dfd + jp $24d7 +; 0x51e00 +INCBIN "baserom.gbc",$51e00,$a + +SilphCo7Text3: ; 0x51e0a + db $08 ; asm + ld a, [$d838] + bit 7, a + jr nz, .asm_254aa ; 0x51e10 + ld hl, $5e23 + call PrintText + jr .asm_6472b ; 0x51e18 +.asm_254aa ; 0x51e1a + ld hl, $5e28 + call PrintText +.asm_6472b ; 0x51e20 + jp $24d7 + +INCBIN "baserom.gbc",$51e23,$51e2d - $51e23 + +SilphCo7Text4: ; 0x51e2d + db $08 ; asm + ld a, [$d838] + bit 7, a + jr nz, .asm_0f7ee ; 0x51e33 + ld hl, $5e46 + call PrintText + jr .asm_27a32 ; 0x51e3b +.asm_0f7ee ; 0x51e3d + ld hl, $5e4b + call PrintText +.asm_27a32 ; 0x51e43 + jp $24d7 + +INCBIN "baserom.gbc",$51e46,$51e50 - $51e46 + +SilphCo7Text5: ; 0x51e50 + db $08 ; asm + ld hl, $5d5d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$51e5a,$51e69 - $51e5a + +SilphCo7Text6: ; 0x51e69 + db $08 ; asm + ld hl, $5d69 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$51e73,$51e82 - $51e73 + +SilphCo7Text7: ; 0x51e82 + db $08 ; asm + ld hl, $5d75 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$51e8c,$51e9b - $51e8c + +SilphCo7Text8: ; 0x51e9b + db $08 ; asm + ld hl, $5d81 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$51ea5,$51eb4 - $51ea5 + +SilphCo7Text9: ; 0x51eb4 + db $08 ; asm + ld hl, $5ebe + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$51ebe,$51ec3 - $51ebe + +SilphCo7Text13: ; 0x51ec3 +INCBIN "baserom.gbc",$51ec3,5 + +SilphCo7Text14: ; 0x51ec8 +INCBIN "baserom.gbc",$51ec8,5 + +INCBIN "baserom.gbc",$51ecd,$51ed2 - $51ecd + +SilphCo7Text15: ; 0x51ed2 +INCBIN "baserom.gbc",$51ed2,5 + +SilphCo7Object: ; 0x51ed7 (size=128) + db $2e ; border tile + + db $6 ; warps + db $0, $10, $1, SILPH_CO_8F + db $0, $16, $0, SILPH_CO_6F + db $0, $12, $0, SILPH_CO_ELEVATOR + db $7, $5, $3, SILPH_CO_11F + db $3, $5, $8, SILPH_CO_3F + db $f, $15, $3, SILPH_CO_5F + + db $0 ; signs + + db $b ; people + db SPRITE_LAPRAS_GIVER, $5 + 4, $1 + 4, $ff, $ff, $1 ; person + db SPRITE_LAPRAS_GIVER, $d + 4, $d + 4, $ff, $d1, $2 ; person + db SPRITE_LAPRAS_GIVER, $a + 4, $7 + 4, $ff, $ff, $3 ; person + db SPRITE_ERIKA, $8 + 4, $a + 4, $ff, $ff, $4 ; person + db SPRITE_ROCKET, $1 + 4, $d + 4, $ff, $d0, $45, ROCKET + $C8, $20 ; trainer + db SPRITE_OAK_AIDE, $d + 4, $2 + 4, $ff, $d0, $46, SCIENTIST + $C8, $8 ; trainer + db SPRITE_ROCKET, $2 + 4, $14 + 4, $ff, $d2, $47, ROCKET + $C8, $21 ; trainer + db SPRITE_ROCKET, $e + 4, $13 + 4, $ff, $d3, $48, ROCKET + $C8, $22 ; trainer + db SPRITE_BLUE, $7 + 4, $3 + 4, $ff, $d1, $9 ; person + db SPRITE_BALL, $9 + 4, $1 + 4, $ff, $ff, $8a, CALCIUM ; item + db SPRITE_BALL, $b + 4, $18 + 4, $ff, $ff, $8b, TM_03 ; item + + ; warp-to + EVENT_DISP $d, $0, $10 ; SILPH_CO_8F + EVENT_DISP $d, $0, $16 ; SILPH_CO_6F + EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR + EVENT_DISP $d, $7, $5 ; SILPH_CO_11F + EVENT_DISP $d, $3, $5 ; SILPH_CO_3F + EVENT_DISP $d, $f, $15 ; SILPH_CO_5F + +SilphCo7Blocks: ; 117 + INCBIN "maps/silphco7.blk" + +Mansion2_h: ; 0x51fcc to 0x51fd8 (12 bytes) (id=214) + db $16 ; tileset + db $0e, $0f ; dimensions (y, x) + dw $6110, $604d, $5fd8 ; blocks, texts, scripts + db $00 ; connections + + dw Mansion2Object ; objects + +INCBIN "baserom.gbc",$51fd8,$52064 - $51fd8 + +Mansion2Text1: ; 0x52064 + db $08 ; asm + ld hl, $6057 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5206e,$f + +Mansion2Text3: ; 0x5207d + TX_FAR _Mansion2Text3 + db $50 + +Mansion2Text4: ; 0x52082 + TX_FAR _Mansion2Text4 + db $50 + +INCBIN "baserom.gbc",$52087,$4a + +Mansion2Object: ; 0x520d1 (size=63) + db $1 ; border tile + + db $4 ; warps + db $a, $5, $4, MANSION_1 + db $a, $7, $0, MANSION_3 + db $e, $19, $2, MANSION_3 + db $1, $6, $1, MANSION_3 + + db $0 ; signs + + db $4 ; people + db SPRITE_BLACK_HAIR_BOY_2, $11 + 4, $3 + 4, $fe, $2, $41, BURGLAR + $C8, $7 ; trainer + db SPRITE_BALL, $7 + 4, $1c + 4, $ff, $ff, $82, CALCIUM ; item + db SPRITE_BOOK_MAP_DEX, $2 + 4, $12 + 4, $ff, $ff, $3 ; person + db SPRITE_BOOK_MAP_DEX, $16 + 4, $3 + 4, $ff, $ff, $4 ; person + + ; warp-to + EVENT_DISP $f, $a, $5 ; MANSION_1 + EVENT_DISP $f, $a, $7 ; MANSION_3 + EVENT_DISP $f, $e, $19 ; MANSION_3 + EVENT_DISP $f, $1, $6 ; MANSION_3 + +INCBIN "baserom.gbc",$52110,$d2 + +Mansion3_h: ; 0x521e2 to 0x521ee (12 bytes) (id=215) + db $16 ; tileset + db $09, $0f ; dimensions (y, x) + dw $6326, $628a, $61ee ; blocks, texts, scripts + db $00 ; connections + + dw Mansion3Object ; objects + +INCBIN "baserom.gbc",$521ee,$522af - $521ee + +Mansion3Text1: ; 0x522af + db $08 ; asm + ld hl, $6296 + call LoadTrainerHeader + jp $24d7 + +Mansion3Text2: ; 0x522b9 + db $08 ; asm + ld hl, $62a2 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$522c3,$522e1 - $522c3 + +Mansion3Text5: ; 0x522e1 + TX_FAR _Mansion3Text5 + db $50 + +Mansion3Object: ; 0x522e6 (size=64) + db $1 ; border tile + + db $3 ; warps + db $a, $7, $1, MANSION_2 + db $1, $6, $3, MANSION_2 + db $e, $19, $2, MANSION_2 + + db $0 ; signs + + db $5 ; people + db SPRITE_BLACK_HAIR_BOY_2, $b + 4, $5 + 4, $fe, $2, $41, BURGLAR + $C8, $8 ; trainer + db SPRITE_OAK_AIDE, $b + 4, $14 + 4, $ff, $d2, $42, SCIENTIST + $C8, $c ; trainer + db SPRITE_BALL, $10 + 4, $1 + 4, $ff, $ff, $83, MAX_POTION ; item + db SPRITE_BALL, $5 + 4, $19 + 4, $ff, $ff, $84, IRON ; item + db SPRITE_BOOK_MAP_DEX, $c + 4, $6 + 4, $ff, $ff, $5 ; person + + ; warp-to + EVENT_DISP $f, $a, $7 ; MANSION_2 + EVENT_DISP $f, $1, $6 ; MANSION_2 + EVENT_DISP $f, $e, $19 ; MANSION_2 + +INCBIN "baserom.gbc",$52326,$87 + +Mansion4_h: ; 0x523ad to 0x523b9 (12 bytes) (id=216) + db $16 ; tileset + db $0e, $0f ; dimensions (y, x) + dw $64dd, $6436, $63b9 ; blocks, texts, scripts + db $00 ; connections + + dw Mansion4Object ; objects + +INCBIN "baserom.gbc",$523b9,$52461 - $523b9 + +Mansion4Text1: ; 0x52461 + db $08 ; asm + ld hl, $6448 + call LoadTrainerHeader + jp $24d7 + +Mansion4Text2: ; 0x5246b + db $08 ; asm + ld hl, $6454 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$52475,$1e + +Mansion4Text7: ; 0x52493 + TX_FAR _Mansion4Text7 + db $50 + +Mansion4Object: ; 0x52498 (size=69) + db $1 ; border tile + + db $1 ; warps + db $16, $17, $5, MANSION_1 + + db $0 ; signs + + db $8 ; people + db SPRITE_BLACK_HAIR_BOY_2, $17 + 4, $10 + 4, $ff, $ff, $41, BURGLAR + $C8, $9 ; trainer + db SPRITE_OAK_AIDE, $b + 4, $1b + 4, $ff, $d0, $42, SCIENTIST + $C8, $d ; trainer + db SPRITE_BALL, $2 + 4, $a + 4, $ff, $ff, $83, RARE_CANDY ; item + db SPRITE_BALL, $16 + 4, $1 + 4, $ff, $ff, $84, FULL_RESTORE ; item + db SPRITE_BALL, $19 + 4, $13 + 4, $ff, $ff, $85, TM_14 ; item + db SPRITE_BALL, $4 + 4, $5 + 4, $ff, $ff, $86, TM_22 ; item + db SPRITE_BOOK_MAP_DEX, $14 + 4, $10 + 4, $ff, $ff, $7 ; person + db SPRITE_BALL, $d + 4, $5 + 4, $ff, $ff, $88, SECRET_KEY ; item + + ; warp-to + EVENT_DISP $f, $16, $17 ; MANSION_1 + +INCBIN "baserom.gbc",$524DD,$5271B - $524DD + +CeladonPrizeMenu: ; 14:671B + ld b,COIN_CASE + call IsItemInBag + jr nz,.havingCoinCase\@ + ld hl,RequireCoinCaseTextPtr + jp PrintText +.havingCoinCase\@ + ld hl,$D730 + set 6,[hl] + ld hl,ExchangeCoinsForPrizesTextPtr + call PrintText +; the following are the menu settings + xor a + ld [$CC26],a + ld [$CC2A],a + ld a,$03 + ld [$CC29],a + ld a,$03 + ld [$CC28],a + ld a,$04 + ld [$CC24],a + ld a,$01 + ld [$CC25],a + call PrintPrizePrice ; 687A + FuncCoord 0,2 + ld hl,Coord + ld b,$08 + ld c,$10 + call TextBoxBorder + call GetPrizeMenuId ;678E + call $2429 + ld hl,WhichPrizeTextPtr + call PrintText + call $3ABE ; menu choice handler + bit 1,a ; keypress = B (Cancel) + jr nz,.NoChoice\@ + ld a,[$CC26] + cp a,$03 ; "NO,THANKS" choice + jr z,.NoChoice\@ + call HandlePrizeChoice ; 14:68C6 +.NoChoice\@ + ld hl,$D730 + res 6,[hl] + ret + +RequireCoinCaseTextPtr: ; 14:677E + TX_FAR _RequireCoinCaseText ; 22:628E + db $0D + db "@" + +ExchangeCoinsForPrizesTextPtr: ; 14:6784 + TX_FAR _ExchangeCoinsForPrizesText ; 22:62A9 + db "@" + +WhichPrizeTextPtr: ; 14:6789 + TX_FAR _WhichPrizeText ; 22:62CD + db "@" + +GetPrizeMenuId: ; 14:678E +; determine which one among the three +; prize-texts has been selected +; using the text ID (stored in [$FF8C]) +; load the three prizes at $D13D-$D13F +; load the three prices ar $D141-$D146 +; display the three prizes' names +; (distinguishing between Pokemon names +; and Items (specifically TMs) names) + ld a,[$FF8C] + sub a,$03 ; prize-texts' id are 3, 4 and 5 + ld [$D12F],a ; prize-texts' id (relative, i.e. 0, 1 or 2) + add a + add a + ld d,$00 + ld e,a + ld hl,PrizeDifferentMenuPtrs + add hl,de + ld a,[hli] + ld d,[hl] + ld e,a + inc hl + push hl + ld hl,W_PRIZE1 + call $3829 ; XXX what does this do + pop hl + ld a,[hli] + ld h,[hl] + ld l,a + ld de,$D141 + ld bc,$0006 + call CopyData + ld a,[$D12F] + cp a,$02 ;is TM_menu? + jr nz,.putMonName\@ + ld a,[W_PRIZE1] + ld [$D11E],a + call GetItemName + FuncCoord 2,4 + ld hl,Coord + call PlaceString + ld a,[W_PRIZE2] + ld [$D11E],a + call GetItemName + FuncCoord 2,6 + ld hl,Coord + call PlaceString + ld a,[W_PRIZE3] + ld [$D11E],a + call GetItemName + FuncCoord 2,8 + ld hl,Coord + call PlaceString + jr .putNoThanksText\@ +.putMonName\@ ; 14:67EC + ld a,[W_PRIZE1] + ld [$D11E],a + call GetMonName + FuncCoord 2,4 + ld hl,Coord + call PlaceString + ld a,[W_PRIZE2] + ld [$D11E],a + call GetMonName + FuncCoord 2,6 + ld hl,Coord + call PlaceString + ld a,[W_PRIZE3] + ld [$D11E],a + call GetMonName + FuncCoord 2,8 + ld hl,Coord + call PlaceString +.putNoThanksText\@ ; 14:6819 + FuncCoord 2,10 + ld hl,Coord + ld de,NoThanksText + call PlaceString +; put prices on the right side of the textbox + ld de,$D141 + FuncCoord 13,5 + ld hl,Coord +; reg. c: +; [low nybble] number of bytes +; [bit 765 = %100] space-padding (not zero-padding) + ld c,(1 << 7 | 2) +; Function $15CD displays BCD value (same routine +; used by text-command $02) + call $15CD ; Print_BCD + ld de,$D143 + FuncCoord 13,7 + ld hl,Coord + ld c,(%1 << 7 | 2) + call $15CD + ld de,$D145 + FuncCoord 13,9 + ld hl,Coord + ld c,(1 << 7 | 2) + jp $15CD + +PrizeDifferentMenuPtrs: ; 14:6843 + dw PrizeMenuMon1Entries + dw PrizeMenuMon1Cost + + dw PrizeMenuMon2Entries + dw PrizeMenuMon2Cost + + dw PrizeMenuTMsEntries + dw PrizeMenuTMsCost + +NoThanksText: ; 14:684F + db "NO THANKS@" + +PrizeMenuMon1Entries: ; 14:6859 + db ABRA + db CLEFAIRY + db NIDORINA + db "@" +PrizeMenuMon1Cost: ; 14:685D + db $01,$80 + db $05,$00 + db $12,$00 + db "@" + +PrizeMenuMon2Entries: ; 14:6864 + db DRATINI + db SCYTHER + db PORYGON + db "@" +PrizeMenuMon2Cost: ; 14:6868 + db $28,$00 ; 2800 Coins + db $55,$00 ; 5500 Coins + db $99,$99 ; 9999 Coins + db "@" + +PrizeMenuTMsEntries: ; 14:686F + db TM_23 + db TM_15 + db TM_50 + db "@" +PrizeMenuTMsCost: ; 14:6873 + db $33,$00 ; 3300 Coins + db $55,$00 ; 5500 Coins + db $77,$00 ; 7700 Coins + db "@" + +PrintPrizePrice: ; 14:687A + FuncCoord 11,0 + ld hl,Coord + ld b,$01 + ld c,$07 + call TextBoxBorder + call $2429 ; XXX save OAM? + FuncCoord 12,0 + ld hl,Coord + ld de,.CoinText\@ + call PlaceString + FuncCoord 13,1 + ld hl,Coord + ld de,.SixSpacesText\@ + call PlaceString + FuncCoord 13,1 + ld hl,Coord + ld de,W_PLAYERCOINS1 + ld c,%10000010 + call $15CD + ret + +.CoinText\@ ; 14:68A5 + db "COIN@" + +.SixSpacesText\@ ; 14:68AA + db " @" + +LoadCoinsToSubtract: ; 14:68B1 + ld a,[$D139] ; backup of selected menu_entry + add a + ld d,$00 + ld e,a + ld hl,$D141 ; first prize's price + add hl,de ; get selected prize's price + xor a + ld [$FF9F],a + ld a,[hli] + ld [$FFA0],a + ld a,[hl] + ld [$FFA1],a + ret + +HandlePrizeChoice: ; 14:68C6 + ld a,[$CC26] ; selected menu_entry + ld [$D139],a + ld d,$00 + ld e,a + ld hl,W_PRIZE1 + add hl,de + ld a,[hl] + ld [$D11E],a + ld a,[$D12F] + cp a,$02 ; is prize a TM? + jr nz,.GetMonName\@ + call GetItemName + jr .GivePrize\@ +.GetMonName\@ ; 14:68E3 + call GetMonName +.GivePrize\@ ; 14:68E6 + ld hl,SoYouWantPrizeTextPtr + call PrintText + call $35EC ; yes/no textbox + ld a,[$CC26] ; yes/no answer (Y=0, N=1) + and a + jr nz,.PrintOhFineThen\@ + call LoadCoinsToSubtract + call $35B1 ; subtract COINs from COIN_CASE + jr c,.NotEnoughCoins\@ + ld a,[$D12F] + cp a,$02 + jr nz,.GiveMon\@ + ld a,[$D11E] + ld b,a + ld a,$01 + ld c,a + call $3E2E ; GiveItem + jr nc,.BagIsFull\@ + jr .SubtractCoins\@ +.GiveMon\@ ; 14:6912 + ld a,[$D11E] + ld [$CF91],a + push af + call GetPrizeMonLevel ; 14:6977 + ld c,a + pop af + ld b,a + call $3E48 ; GivePokemon + push af + ld a,[$CCD3] ; XXX is there room? + and a + call z,$3865 + pop af + ret nc +.SubtractCoins\@ ; 14:692C + call LoadCoinsToSubtract + ld hl,$FFA1 + ld de,W_PLAYERCOINS2 + ld c,$02 ; how many bytes + ld a,$0C + call Predef ; subtract coins (BCD daa operations) + jp PrintPrizePrice +.BagIsFull\@ ; 14:693F + ld hl,PrizeRoomBagIsFullTextPtr + jp PrintText +.NotEnoughCoins\@ ; 14:6945 + ld hl,SorryNeedMoreCoinsTextPtr + jp PrintText +.PrintOhFineThen\@ ; 14:694B + ld hl,OhFineThenTextPtr + jp PrintText + +UnknownData52951: ; 14:6951 +; XXX what's this? + db $00,$01,$00,$01,$00,$01,$00,$00,$01 + +HereYouGoTextPtr: + TX_FAR _HereYouGoText ; 22:62E7 + db $0D + db "@" + +SoYouWantPrizeTextPtr: ; 14:6960 + TX_FAR _SoYouWantPrizeText ; 22:62F6 + db "@" + +SorryNeedMoreCoinsTextPtr: ; 14:6965 + TX_FAR _SorryNeedMoreCoins ; 22:630B + db $0D + db "@" + +PrizeRoomBagIsFullTextPtr: ; 14:696B + TX_FAR _OopsYouDontHaveEnoughRoomText ; 22:6329 + db $0D + db "@" + +OhFineThenTextPtr: ; 14:6971 + TX_FAR _OhFineThenText; 22:634C + db $0D ; wait keypress (A/B) without blink + db "@" + +GetPrizeMonLevel: ; 14:6977 + ld a,[$CF91] + ld b,a + ld hl,PrizeMonLevelDictionary +.loop\@ ; 14:697E + ld a,[hli] + cp b + jr z,.matchFound\@ + inc hl + jr .loop\@ +.matchFound\@ ; 14:6985 + ld a,[hl] + ld [$D127],a + ret + +PrizeMonLevelDictionary: ; 14:698A + db ABRA,9 + db CLEFAIRY,8 + db NIDORINA,17 + + db DRATINI,18 + db SCYTHER,25 + db PORYGON,26 + +INCBIN "baserom.gbc",$52996,$54000 - $52996 + +SECTION "bank15",DATA,BANK[$15] + +INCBIN "baserom.gbc",$54000,$54022 - $54000 + +Route2Object: ; 0x54022 (size=72) + db $f ; border tile + + db $6 ; warps + db $9, $c, $0, DIGLETTS_CAVE_EXIT + db $b, $3, $1, VIRIDIAN_FOREST_EXIT + db $13, $f, $0, ROUTE_2_HOUSE + db $23, $10, $1, ROUTE_2_GATE + db $27, $f, $2, ROUTE_2_GATE + db $2b, $3, $2, VIRIDIAN_FOREST_ENTRANCE + + db $2 ; signs + db $41, $5, $3 ; Route2Text3 + db $b, $b, $4 ; Route2Text4 + + db $2 ; people + db SPRITE_BALL, $36 + 4, $d + 4, $ff, $ff, $81, MOON_STONE ; item + db SPRITE_BALL, $2d + 4, $d + 4, $ff, $ff, $82, HP_UP ; item + + ; warp-to + EVENT_DISP $a, $9, $c ; DIGLETTS_CAVE_EXIT + EVENT_DISP $a, $b, $3 ; VIRIDIAN_FOREST_EXIT + EVENT_DISP $a, $13, $f ; ROUTE_2_HOUSE + EVENT_DISP $a, $23, $10 ; ROUTE_2_GATE + EVENT_DISP $a, $27, $f ; ROUTE_2_GATE + EVENT_DISP $a, $2b, $3 ; VIRIDIAN_FOREST_ENTRANCE + +INCBIN "baserom.gbc",$5406a,$14 + +Route2Blocks: ; 360 + INCBIN "maps/route2.blk" + +Route3_h: ; 0x541e6 to 0x54208 (34 bytes) (id=14) + db $00 ; tileset + db $09, $23 ; dimensions (y, x) + dw Route3Blocks, Route3Texts, Route3Script ; blocks, texts, scripts + db NORTH | WEST ; connections + + ; connections data + + db ROUTE_4 + dw $44fa, $c704 ; pointers (connected, current) (strip) + db $0d, $2d ; bigness, width + db $11, $ce ; alignments (y, x) + dw $c8b4 ; window + + db PEWTER_CITY + dw $460b, $c6e8 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $27 ; alignments (y, x) + dw $c716 ; window + + ; end connection data + + dw Route3Object ; objects + +Route3Object: ; 0x54208 (size=77) + db $2c ; border tile + + db $0 ; warps + + db $1 ; signs + db $9, $3b, $a ; Route3Text10 + + db $9 ; people + db SPRITE_BLACK_HAIR_BOY_2, $b + 4, $39 + 4, $ff, $ff, $1 ; person + db SPRITE_BUG_CATCHER, $6 + 4, $a + 4, $ff, $d3, $42, BUG_CATCHER + $C8, $4 ; trainer + db SPRITE_BUG_CATCHER, $4 + 4, $e + 4, $ff, $d0, $43, YOUNGSTER + $C8, $1 ; trainer + db SPRITE_LASS, $9 + 4, $10 + 4, $ff, $d2, $44, LASS + $C8, $1 ; trainer + db SPRITE_BUG_CATCHER, $5 + 4, $13 + 4, $ff, $d0, $45, BUG_CATCHER + $C8, $5 ; trainer + db SPRITE_LASS, $4 + 4, $17 + 4, $ff, $d2, $46, LASS + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $9 + 4, $16 + 4, $ff, $d2, $47, YOUNGSTER + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $6 + 4, $18 + 4, $ff, $d3, $48, BUG_CATCHER + $C8, $6 ; trainer + db SPRITE_LASS, $a + 4, $21 + 4, $ff, $d1, $49, LASS + $C8, $3 ; trainer + +Route3Blocks: ; 315 + INCBIN "maps/route3.blk" + +Route4_h: ; 0x54390 to 0x543b2 (34 bytes) (id=15) + db $00 ; tileset + db $09, $2d ; dimensions (y, x) + dw Route4Blocks, Route4Texts, Route4Script; blocks, texts, scripts + db SOUTH | EAST ; connections + + ; connections data + + db ROUTE_3 + dw $426b, $c94c ; pointers (connected, current) (strip) + db $0d, $23 ; bigness, width + db $00, $32 ; alignments (y, x) + dw $c712 ; window + + db CERULEAN_CITY + dw $4844, $c718 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $00 ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route4Object ; objects + +Route4Object: ; 0x543b2 (size=58) + db $2c ; border tile + + db $3 ; warps + db $5, $b, $0, MT_MOON_POKECENTER + db $5, $12, $0, MT_MOON_1 + db $5, $18, $7, MT_MOON_2 + + db $3 ; signs + db $5, $c, $4 ; Route4Text4 + db $7, $11, $5 ; Route4Text5 + db $7, $1b, $6 ; Route4Text6 + + db $3 ; people + db SPRITE_LASS, $8 + 4, $9 + 4, $fe, $0, $1 ; person + db SPRITE_LASS, $3 + 4, $3f + 4, $ff, $d3, $42, LASS + $C8, $4 ; trainer + db SPRITE_BALL, $3 + 4, $39 + 4, $ff, $ff, $83, TM_04 ; item + + ; warp-to + EVENT_DISP $2d, $5, $b ; MT_MOON_POKECENTER + EVENT_DISP $2d, $5, $12 ; MT_MOON_1 + EVENT_DISP $2d, $5, $18 ; MT_MOON_2 + +Route4Blocks: ; 405 + INCBIN "maps/route4.blk" + +Route5_h: ; 0x54581 to 0x545a3 (34 bytes) (id=16) + db $00 ; tileset + db $12, $0a ; dimensions (y, x) + dw Route5Blocks, Route5Texts, Route5Script ; blocks, texts, scripts + db NORTH | SOUTH ; connections + + ; connections data + + db CERULEAN_CITY + dw $495e, $c6e8 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $23, $0a ; alignments (y, x) + dw $c8bd ; window + + db SAFFRON_CITY + dw $4a9a, $c838 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $00, $0a ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route5Object ; objects + +Route5Object: ; 0x545a3 (size=47) + db $a ; border tile + + db $5 ; warps + db $1d, $a, $3, ROUTE_5_GATE + db $1d, $9, $2, ROUTE_5_GATE + db $21, $a, $0, ROUTE_5_GATE + db $1b, $11, $0, PATH_ENTRANCE_ROUTE_5 + db $15, $a, $0, DAYCAREM + + db $1 ; signs + db $1d, $11, $1 ; Route5Text1 + + db $0 ; people + + ; warp-to + EVENT_DISP $a, $1d, $a ; ROUTE_5_GATE + EVENT_DISP $a, $1d, $9 ; ROUTE_5_GATE + EVENT_DISP $a, $21, $a ; ROUTE_5_GATE + EVENT_DISP $a, $1b, $11 ; PATH_ENTRANCE_ROUTE_5 + EVENT_DISP $a, $15, $a ; DAYCAREM + +Route5Blocks: ; 180 + INCBIN "maps/route5.blk" + +Route9_h: ; 0x54686 to 0x546a8 (34 bytes) (id=20) + db $00 ; tileset + db $09, $1e ; dimensions (y, x) + dw Route9Blocks, Route9Texts, Route9Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db CERULEAN_CITY + dw $4855, $c6e8 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $27 ; alignments (y, x) + dw $c716 ; window + + db ROUTE_10 + dw $4356, $c775 ; pointers (connected, current) (strip) + db $0c, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route9Object ; objects + +Route9Object: ; 0x546a8 (size=86) + db $2c ; border tile + + db $0 ; warps + + db $1 ; signs + db $7, $19, $b ; Route9Text11 + + db $a ; people + db SPRITE_LASS, $a + 4, $d + 4, $ff, $d2, $41, JR__TRAINER_F + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $18 + 4, $ff, $d2, $42, JR__TRAINER_M + $C8, $7 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $1f + 4, $ff, $d3, $43, JR__TRAINER_M + $C8, $8 ; trainer + db SPRITE_LASS, $8 + 4, $30 + 4, $ff, $d3, $44, JR__TRAINER_F + $C8, $6 ; trainer + db SPRITE_HIKER, $f + 4, $10 + 4, $ff, $d2, $45, HIKER + $C8, $b ; trainer + db SPRITE_HIKER, $3 + 4, $2b + 4, $ff, $d2, $46, HIKER + $C8, $6 ; trainer + db SPRITE_BUG_CATCHER, $2 + 4, $16 + 4, $ff, $d0, $47, BUG_CATCHER + $C8, $d ; trainer + db SPRITE_HIKER, $f + 4, $2d + 4, $ff, $d3, $48, HIKER + $C8, $5 ; trainer + db SPRITE_BUG_CATCHER, $8 + 4, $28 + 4, $ff, $d3, $49, BUG_CATCHER + $C8, $e ; trainer + db SPRITE_BALL, $f + 4, $a + 4, $ff, $ff, $8a, TM_30 ; item + +Route9Blocks: ; 270 + INCBIN "maps/route9.blk" + +Route13_h: ; 0x5480c to 0x5482e (34 bytes) (id=24) + db $00 ; tileset + db $09, $1e ; dimensions (y, x) + dw Route13Blocks, Route13Texts, Route13Script ; blocks, texts, scripts + db NORTH | WEST ; connections + + ; connections data + + db ROUTE_12 + dw $490e, $c6ff ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $6b, $d8 ; alignments (y, x) + dw $ca49 ; window + + db ROUTE_14 + dw $4a19, $c754 ; pointers (connected, current) (strip) + db $0c, $0a ; bigness, width + db $00, $13 ; alignments (y, x) + dw $c702 ; window + + ; end connection data + + dw Route13Object ; objects + +Route13Object: ; 0x5482e (size=93) + db $43 ; border tile + + db $0 ; warps + + db $3 ; signs + db $d, $f, $b ; Route13Text11 + db $5, $21, $c ; Route13Text12 + db $b, $1f, $d ; Route13Text13 + + db $a ; people + db SPRITE_BLACK_HAIR_BOY_1, $a + 4, $31 + 4, $ff, $d3, $41, BIRD_KEEPER + $C8, $1 ; trainer + db SPRITE_LASS, $a + 4, $30 + 4, $ff, $d0, $42, JR__TRAINER_F + $C8, $c ; trainer + db SPRITE_LASS, $9 + 4, $1b + 4, $ff, $d0, $43, JR__TRAINER_F + $C8, $d ; trainer + db SPRITE_LASS, $a + 4, $17 + 4, $ff, $d2, $44, JR__TRAINER_F + $C8, $e ; trainer + db SPRITE_LASS, $5 + 4, $32 + 4, $ff, $d0, $45, JR__TRAINER_F + $C8, $f ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $c + 4, $ff, $d3, $46, BIRD_KEEPER + $C8, $2 ; trainer + db SPRITE_FOULARD_WOMAN, $6 + 4, $21 + 4, $ff, $d0, $47, BEAUTY + $C8, $4 ; trainer + db SPRITE_FOULARD_WOMAN, $6 + 4, $20 + 4, $ff, $d0, $48, BEAUTY + $C8, $5 ; trainer + db SPRITE_BIKER, $7 + 4, $a + 4, $ff, $d1, $49, BIKER + $C8, $1 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $7 + 4, $ff, $d1, $4a, BIRD_KEEPER + $C8, $3 ; trainer + +Route13Blocks: ; 270 + INCBIN "maps/route13.blk" + +Route14_h: ; 0x54999 to 0x549bb (34 bytes) (id=25) + db $00 ; tileset + db $1b, $0a ; dimensions (y, x) + dw Route14Blocks, Route14Texts, Route14Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db ROUTE_15 + dw $49e7, $c838 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $dc, $3b ; alignments (y, x) + dw $c72a ; window + + db ROUTE_13 + dw $488b, $c725 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c70d ; window + + ; end connection data + + dw Route14Object ; objects + +Route14Object: ; 0x549bb (size=87) + db $43 ; border tile + + db $0 ; warps + + db $1 ; signs + db $d, $11, $b ; Route14Text11 + + db $a ; people + db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $4 + 4, $ff, $d0, $41, BIRD_KEEPER + $C8, $e ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $6 + 4, $f + 4, $ff, $d0, $42, BIRD_KEEPER + $C8, $f ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $b + 4, $c + 4, $ff, $d0, $43, BIRD_KEEPER + $C8, $10 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $f + 4, $e + 4, $ff, $d1, $44, BIRD_KEEPER + $C8, $11 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $1f + 4, $f + 4, $ff, $d2, $45, BIRD_KEEPER + $C8, $4 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $31 + 4, $6 + 4, $ff, $d1, $46, BIRD_KEEPER + $C8, $5 ; trainer + db SPRITE_BIKER, $27 + 4, $5 + 4, $ff, $d0, $47, BIKER + $C8, $d ; trainer + db SPRITE_BIKER, $1e + 4, $4 + 4, $ff, $d3, $48, BIKER + $C8, $e ; trainer + db SPRITE_BIKER, $1e + 4, $f + 4, $ff, $d2, $49, BIKER + $C8, $f ; trainer + db SPRITE_BIKER, $1f + 4, $4 + 4, $ff, $d3, $4a, BIKER + $C8, $2 ; trainer + +Route14Blocks: ; 270 + INCBIN "maps/route14.blk" + +Route17_h: ; 0x54b20 to 0x54b42 (34 bytes) (id=28) + db $00 ; tileset + db $48, $0a ; dimensions (y, x) + dw Route17Blocks, Route17Texts, Route17Script ; blocks, texts, scripts + db NORTH | SOUTH ; connections + + ; connections data + + db ROUTE_16 + dw $4bfc, $c6eb ; pointers (connected, current) (strip) + db $0d, $14 ; bigness, width + db $11, $00 ; alignments (y, x) + dw $c7d3 ; window + + db ROUTE_18 + dw $4c9c, $cb9b ; pointers (connected, current) (strip) + db $0d, $19 ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c708 ; window + + ; end connection data + + dw Route17Object ; objects + +Route17Object: ; 0x54b42 (size=102) + db $43 ; border tile + + db $0 ; warps + + db $6 ; signs + db $33, $9, $b ; Route17Text11 + db $3f, $9, $c ; Route17Text12 + db $4b, $9, $d ; Route17Text13 + db $57, $9, $e ; Route17Text14 + db $6f, $9, $f ; Route17Text15 + db $8d, $9, $10 ; Route17Text16 + + db $a ; people + db SPRITE_BIKER, $13 + 4, $c + 4, $ff, $d2, $41, CUE_BALL + $C8, $4 ; trainer + db SPRITE_BIKER, $10 + 4, $b + 4, $ff, $d3, $42, CUE_BALL + $C8, $5 ; trainer + db SPRITE_BIKER, $12 + 4, $4 + 4, $ff, $d1, $43, BIKER + $C8, $8 ; trainer + db SPRITE_BIKER, $20 + 4, $7 + 4, $ff, $d2, $44, BIKER + $C8, $9 ; trainer + db SPRITE_BIKER, $22 + 4, $e + 4, $ff, $d3, $45, BIKER + $C8, $a ; trainer + db SPRITE_BIKER, $3a + 4, $11 + 4, $ff, $d2, $46, CUE_BALL + $C8, $6 ; trainer + db SPRITE_BIKER, $44 + 4, $2 + 4, $ff, $d3, $47, CUE_BALL + $C8, $7 ; trainer + db SPRITE_BIKER, $62 + 4, $e + 4, $ff, $d3, $48, CUE_BALL + $C8, $8 ; trainer + db SPRITE_BIKER, $62 + 4, $5 + 4, $ff, $d2, $49, BIKER + $C8, $b ; trainer + db SPRITE_BIKER, $76 + 4, $a + 4, $ff, $d0, $4a, BIKER + $C8, $c ; trainer + +Route17Blocks: ; 720 + INCBIN "maps/route17.blk" + +Route19_h: ; 0x54e78 to 0x54e9a (34 bytes) (id=30) + db $00 ; tileset + db $1b, $0a ; dimensions (y, x) + dw Route19Blocks, Route19Texts, Route19Script ; blocks, texts, scripts + db NORTH | WEST ; connections + + ; connections data + + db FUCHSIA_CITY + dw $4db4, $c6e8 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $23, $0a ; alignments (y, x) + dw $c8bd ; window + + db ROUTE_20 + dw $41ac, $c838 ; pointers (connected, current) (strip) + db $09, $32 ; bigness, width + db $dc, $63 ; alignments (y, x) + dw $c752 ; window + + ; end connection data + + dw Route19Object ; objects + +Route19Object: ; 0x54e9a (size=87) + db $43 ; border tile + + db $0 ; warps + + db $1 ; signs + db $9, $b, $b ; Route19Text11 + + db $a ; people + db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $8 + 4, $ff, $d2, $41, SWIMMER + $C8, $2 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $d + 4, $ff, $d2, $42, SWIMMER + $C8, $3 ; trainer + db SPRITE_SWIMMER, $19 + 4, $d + 4, $ff, $d2, $43, SWIMMER + $C8, $4 ; trainer + db SPRITE_SWIMMER, $1b + 4, $4 + 4, $ff, $d3, $44, SWIMMER + $C8, $5 ; trainer + db SPRITE_SWIMMER, $1f + 4, $10 + 4, $ff, $d1, $45, SWIMMER + $C8, $6 ; trainer + db SPRITE_SWIMMER, $b + 4, $9 + 4, $ff, $d0, $46, SWIMMER + $C8, $7 ; trainer + db SPRITE_SWIMMER, $2b + 4, $8 + 4, $ff, $d2, $47, BEAUTY + $C8, $c ; trainer + db SPRITE_SWIMMER, $2b + 4, $b + 4, $ff, $d3, $48, BEAUTY + $C8, $d ; trainer + db SPRITE_SWIMMER, $2a + 4, $9 + 4, $ff, $d1, $49, SWIMMER + $C8, $8 ; trainer + db SPRITE_SWIMMER, $2c + 4, $a + 4, $ff, $d0, $4a, BEAUTY + $C8, $e ; trainer + +Route19Blocks: ; 270 + INCBIN "maps/route19.blk" + +Route21_h: ; 0x54fff to 0x55021 (34 bytes) (id=32) + db $00 ; tileset + db $2d, $0a ; dimensions (y, x) + dw Route21Blocks, Route21Texts, Route21Script ; blocks, texts, scripts + db NORTH | SOUTH ; connections + + ; connections data + + db PALLET_TOWN + dw $4339, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $11, $00 ; alignments (y, x) + dw $c779 ; window + + db CINNABAR_ISLAND + dw $4069, $c9eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route21Object ; objects + +Route21Object: ; 0x55021 (size=76) + db $43 ; border tile + + db $0 ; warps + + db $0 ; signs + + db $9 ; people + db SPRITE_FISHER2, $18 + 4, $4 + 4, $ff, $d2, $41, FISHER + $C8, $7 ; trainer + db SPRITE_FISHER2, $19 + 4, $6 + 4, $ff, $d0, $42, FISHER + $C8, $9 ; trainer + db SPRITE_SWIMMER, $1f + 4, $a + 4, $ff, $d1, $43, SWIMMER + $C8, $c ; trainer + db SPRITE_SWIMMER, $1e + 4, $c + 4, $ff, $d3, $44, CUE_BALL + $C8, $9 ; trainer + db SPRITE_SWIMMER, $3f + 4, $10 + 4, $ff, $d0, $45, SWIMMER + $C8, $d ; trainer + db SPRITE_SWIMMER, $47 + 4, $5 + 4, $ff, $d3, $46, SWIMMER + $C8, $e ; trainer + db SPRITE_SWIMMER, $47 + 4, $f + 4, $ff, $d2, $47, SWIMMER + $C8, $f ; trainer + db SPRITE_FISHER2, $38 + 4, $e + 4, $ff, $d2, $48, FISHER + $C8, $8 ; trainer + db SPRITE_FISHER2, $39 + 4, $11 + 4, $ff, $d3, $49, FISHER + $C8, $a ; trainer + +Route21Blocks: ; 450 + INCBIN "maps/route21.blk" + +DayCareMBlocks: ; 16 + INCBIN "maps/daycarem.blk" + +FuchsiaHouse3Blocks: ; 16 + INCBIN "maps/fuchsiahouse3.blk" + +INCBIN "baserom.gbc",$5524f,$554e3 - $5524f + +Route2Script: ; 0x554e3 + jp $3c3c +; 0x554e6 + +INCBIN "baserom.gbc",$554e6,$8 + +Route2Text3: ; 0x554ee + TX_FAR _Route2Text3 + db $50 + +Route2Text4: ; 0x554f3 + TX_FAR _Route2Text4 + db $50 + +Route3Script: ; 0x554f8 + call $3c3c + ld hl, $5525 + ld de, $550b + ld a, [$d5f8] + call $3160 + ld [$d5f8], a + ret +; 0x5550b + +INCBIN "baserom.gbc",$5550b,$6 + +Route3Texts: ; 0x55511 + dw Route3Text1, Route3Text2, Route3Text3, Route3Text4, Route3Text5, Route3Text6, Route3Text7, Route3Text8, Route3Text9, Route3Text10 + +INCBIN "baserom.gbc",$55525,$61 + +Route3Text1: ; 0x55586 + TX_FAR _Route3Text1 + db $50 + +Route3Text2: ; 0x5558b + db $08 ; asm + ld hl, $5525 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55595,$555a4 - $55595 + +Route3Text3: ; 0x555a4 + db $08 ; asm + ld hl, $5531 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$555ae,$555bd - $555ae + +Route3Text4: ; 0x555bd + db $08 ; asm + ld hl, $553d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$555c7,$555d6 - $555c7 + +Route3Text5: ; 0x555d6 + db $08 ; asm + ld hl, $5549 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$555e0,$555ef - $555e0 + +Route3Text6: ; 0x555ef + db $08 ; asm + ld hl, $5555 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$555f9,$55608 - $555f9 + +Route3Text7: ; 0x55608 + db $08 ; asm + ld hl, $5561 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55612,$55621 - $55612 + +Route3Text8: ; 0x55621 + db $08 ; asm + ld hl, $556d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5562b,$5563a - $5562b + +Route3Text9: ; 0x5563a + db $08 ; asm + ld hl, $5579 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55644,$f + +Route3Text10: ; 0x55653 + TX_FAR _Route3Text10 + db $50 + +Route4Script: ; 0x55658 + call $3c3c + ld hl, $567d + ld de, $566b + ld a, [$d5f9] + call $3160 + ld [$d5f9], a + ret +; 0x5566b + +INCBIN "baserom.gbc",$5566b,$6 + +Route4Texts: ; 0x55671 + dw Route4Text1, Route4Text2, Route4Text3, Route4Text4, Route4Text5, Route4Text6 + +INCBIN "baserom.gbc",$5567d,$d + +Route4Text1: ; 0x5568a + TX_FAR _Route4Text1 + db $50 + +Route4Text2: ; 0x5568f + db $08 ; asm + ld hl, $567d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55699,$f + +Route4Text5: ; 0x556a8 + TX_FAR _Route4Text5 + db $50 + +Route4Text6: ; 0x556ad + TX_FAR _Route4Text6 + db $50 + +Route5Script: ; 0x556b2 + jp $3c3c +; 0x556b5 + +Route5Texts: ; 0x556b5 + dw Route5Text1 + +Route5Text1: ; 0x556b7 + TX_FAR _Route5Text1 + db $50 + +Route9Script: ; 0x556bc + call $3c3c + ld hl, $56eb + ld de, $56cf + ld a, [$d604] + call $3160 + ld [$d604], a + ret +; 0x556cf + +INCBIN "baserom.gbc",$556cf,$6 + +Route9Texts: ; 0x556d5 + dw Route9Text1, Route9Text2, Route9Text3, Route9Text4, Route9Text5, Route9Text6, Route9Text7, Route9Text8, Route9Text9, Route9Text10, Route9Text11 + +Route12Text13: ; 0x556eb +INCBIN "baserom.gbc",$556eb,$556f0 - $556eb + +Route12Text14: ; 0x556f0 +INCBIN "baserom.gbc",$556f0,$55758 - $556f0 + +Route9Text1: ; 0x55758 + db $8 ; asm + ld hl, $56eb + jr asm_8be3d ; 0x5575c $2e + +Route9Text2: + db $8 ; asm + ld hl, $56f7 + jr asm_8be3d ; 0x55762 $28 + +Route9Text3: + db $8 ; asm + ld hl, $5703 + jr asm_8be3d ; 0x55768 $22 + +Route9Text4: + db $8 ; asm + ld hl, $570f + jr asm_8be3d ; 0x5576e $1c + +Route9Text5: + db $8 ; asm + ld hl, $571b + jr asm_8be3d ; 0x55774 $16 + +Route9Text6: + db $8 ; asm + ld hl, $5727 + jr asm_8be3d ; 0x5577a $10 + +Route9Text7: + db $8 ; asm + ld hl, $5733 + jr asm_8be3d ; 0x55780 $a + +Route9Text8: + db $8 ; asm + ld hl, $573f + jr asm_8be3d ; 0x55786 $4 + +Route9Text9: + db $8 ; asm + ld hl, $574b +asm_8be3d: ; 0x5578c + call $31cc + jp $24d7 +; 0x55792 + +INCBIN "baserom.gbc",$55792,$87 + +Route9Text11: ; 0x55819 + TX_FAR _Route9Text11 + db $50 + +Route13Script: ; 0x5581e + call $3c3c + ld hl, $5851 + ld de, $5831 + ld a, [$d61a] + call $3160 + ld [$d61a], a + ret +; 0x55831 + +INCBIN "baserom.gbc",$55831,$6 + +Route13Texts: ; 0x55837 + dw Route13Text1, Route13Text2, Route13Text3, Route13Text4, Route13Text5, Route13Text6, Route13Text7, Route13Text8, Route13Text9, Route13Text10, Route13Text11, Route13Text12, Route13Text13 + +INCBIN "baserom.gbc",$55851,$79 + +Route13Text1: ; 0x558ca + db $08 ; asm + ld hl, $5851 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$558d4,$558e3 - $558d4 + +Route13Text2: ; 0x558e3 + db $08 ; asm + ld hl, $585d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$558ed,$558fc - $558ed + +Route13Text3: ; 0x558fc + db $08 ; asm + ld hl, $5869 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55906,$55915 - $55906 + +Route13Text4: ; 0x55915 + db $08 ; asm + ld hl, $5875 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5591f,$5592e - $5591f + +Route13Text5: ; 0x5592e + db $08 ; asm + ld hl, $5881 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55938,$55947 - $55938 + +Route13Text6: ; 0x55947 + db $08 ; asm + ld hl, $588d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55951,$55960 - $55951 + +Route13Text7: ; 0x55960 + db $08 ; asm + ld hl, $5899 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5596a,$55979 - $5596a + +Route13Text8: ; 0x55979 + db $08 ; asm + ld hl, $58a5 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55983,$55992 - $55983 + +Route13Text9: ; 0x55992 + db $08 ; asm + ld hl, $58b1 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5599c,$559ab - $5599c + +Route13Text10: ; 0x559ab + db $08 ; asm + ld hl, $58bd + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$559b5,$f + +Route13Text11: ; 0x559c4 + TX_FAR _Route13Text11 + db $50 + +Route13Text12: ; 0x559c9 + TX_FAR _Route13Text12 + db $50 + +Route13Text13: ; 0x559ce + TX_FAR _Route13Text13 + db $50 + +Route14Script: ; 0x559d3 + call $3c3c + ld hl, $5a02 + ld de, $59e6 + ld a, [$d61b] + call $3160 + ld [$d61b], a + ret +; 0x559e6 + +INCBIN "baserom.gbc",$559e6,$6 + +Route14Texts: ; 0x559ec + dw Route14Text1, Route14Text2, Route14Text3, Route14Text4, Route14Text5, Route14Text6, Route14Text7, Route14Text8, Route14Text9, Route14Text10, Route14Text11 + +INCBIN "baserom.gbc",$55a02,$79 + +Route14Text1: ; 0x55a7b + db $08 ; asm + ld hl, $5a02 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55a85,$55a94 - $55a85 + +Route14Text2: ; 0x55a94 + db $08 ; asm + ld hl, $5a0e + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55a9e,$55aad - $55a9e + +Route14Text3: ; 0x55aad + db $08 ; asm + ld hl, $5a1a + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55ab7,$55ac6 - $55ab7 + +Route14Text4: ; 0x55ac6 + db $08 ; asm + ld hl, $5a26 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55ad0,$55adf - $55ad0 + +Route14Text5: ; 0x55adf + db $08 ; asm + ld hl, $5a32 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55ae9,$55af8 - $55ae9 + +Route14Text6: ; 0x55af8 + db $08 ; asm + ld hl, $5a3e + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55b02,$55b11 - $55b02 + +Route14Text7: ; 0x55b11 + db $08 ; asm + ld hl, $5a4a + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55b1b,$55b2a - $55b1b + +Route14Text8: ; 0x55b2a + db $08 ; asm + ld hl, $5a56 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55b34,$55b43 - $55b34 + +Route14Text9: ; 0x55b43 + db $08 ; asm + ld hl, $5a62 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55b4d,$55b5c - $55b4d + +Route14Text10: ; 0x55b5c + db $08 ; asm + ld hl, $5a6e + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55b66,$f + +Route14Text11: ; 0x55b75 + TX_FAR _Route14Text11 + db $50 + +Route17Script: ; 0x55b7a + call $3c3c + ld hl, $5bb3 + ld de, $5b8d + ld a, [$d61c] + call $3160 + ld [$d61c], a + ret +; 0x55b8d + +INCBIN "baserom.gbc",$55b8d,$6 + +Route17Texts: ; 0x55b93 + dw Route17Text1, Route17Text2, Route17Text3, Route17Text4, Route17Text5, Route17Text6, Route17Text7, Route17Text8, Route17Text9, Route17Text10, Route17Text11, Route17Text12, Route17Text13, Route17Text14, Route17Text15, Route17Text16 + +INCBIN "baserom.gbc",$55bb3,$79 + +Route17Text1: ; 0x55c2c + db $08 ; asm + ld hl, $5bb3 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55c36,$55c45 - $55c36 + +Route17Text2: ; 0x55c45 + db $08 ; asm + ld hl, $5bbf + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55c4f,$55c5e - $55c4f + +Route17Text3: ; 0x55c5e + db $08 ; asm + ld hl, $5bcb + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55c68,$55c77 - $55c68 + +Route17Text4: ; 0x55c77 + db $08 ; asm + ld hl, $5bd7 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55c81,$55c90 - $55c81 + +Route17Text5: ; 0x55c90 + db $08 ; asm + ld hl, $5be3 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55c9a,$55ca9 - $55c9a + +Route17Text6: ; 0x55ca9 + db $08 ; asm + ld hl, $5bef + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55cb3,$55cc2 - $55cb3 + +Route17Text7: ; 0x55cc2 + db $08 ; asm + ld hl, $5bfb + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55ccc,$55cdb - $55ccc + +Route17Text8: ; 0x55cdb + db $08 ; asm + ld hl, $5c07 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55ce5,$55cf4 - $55ce5 + +Route17Text9: ; 0x55cf4 + db $08 ; asm + ld hl, $5c13 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55cfe,$55d0d - $55cfe + +Route17Text10: ; 0x55d0d + db $08 ; asm + ld hl, $5c1f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55d17,$f + +Route17Text11: ; 0x55d26 + TX_FAR _Route17Text11 + db $50 + +Route17Text12: ; 0x55d2b + TX_FAR _Route17Text12 + db $50 + +Route17Text13: ; 0x55d30 + TX_FAR _Route17Text13 + db $50 + +Route17Text14: ; 0x55d35 + TX_FAR _Route17Text14 + db $50 + +Route17Text15: ; 0x55d3a + TX_FAR _Route17Text15 + db $50 + +Route17Text16: ; 0x55d3f + TX_FAR _Route17Text16 + db $50 + +Route19Script: ; 0x55d44 + call $3c3c + ld hl, $5d73 + ld de, $5d57 + ld a, [$d61d] + call $3160 + ld [$d61d], a + ret +; 0x55d57 + +INCBIN "baserom.gbc",$55d57,$6 + +Route19Texts: ; 0x55d5d + dw Route19Text1, Route19Text2, Route19Text3, Route19Text4, Route19Text5, Route19Text6, Route19Text7, Route19Text8, Route19Text9, Route19Text10, Route19Text11 + +INCBIN "baserom.gbc",$55d73,$79 + +Route19Text1: ; 0x55dec + db $08 ; asm + ld hl, $5d73 + call LoadTrainerHeader + jp $24d7 + +Route19Text2: ; 0x55df6 + db $08 ; asm + ld hl, $5d7f + call LoadTrainerHeader + jp $24d7 + +Route19Text3: ; 0x55e00 + db $08 ; asm + ld hl, $5d8b + call LoadTrainerHeader + jp $24d7 + +Route19Text4: ; 0x55e0a + db $08 ; asm + ld hl, $5d97 + call LoadTrainerHeader + jp $24d7 + +Route19Text5: ; 0x55e14 + db $08 ; asm + ld hl, $5da3 + call LoadTrainerHeader + jp $24d7 + +Route19Text6: ; 0x55e1e + db $08 ; asm + ld hl, $5daf + call LoadTrainerHeader + jp $24d7 + +Route19Text7: ; 0x55e28 + db $08 ; asm + ld hl, $5dbb + call LoadTrainerHeader + jp $24d7 + +Route19Text8: ; 0x55e32 + db $08 ; asm + ld hl, $5dc7 + call LoadTrainerHeader + jp $24d7 + +Route19Text9: ; 0x55e3c + db $08 ; asm + ld hl, $5dd3 + call LoadTrainerHeader + jp $24d7 + +Route19Text10: ; 0x55e46 + db $08 ; asm + ld hl, $5ddf + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55e50,$96 + +Route19Text11: ; 0x55ee6 + TX_FAR _Route19Text11 + db $50 + +Route21Script: ; 0x55eeb + call $3c3c + ld hl, $5f16 + ld de, $5efe + ld a, [$d61e] + call $3160 + ld [$d61e], a + ret +; 0x55efe + +INCBIN "baserom.gbc",$55efe,$6 + +Route21Texts: ; 0x55f04 + dw Route21Text1, Route21Text2, Route21Text3, Route21Text4, Route21Text5, Route21Text6, Route21Text7, Route21Text8, Route21Text9 + +INCBIN "baserom.gbc",$55f16,$6d + +Route21Text1: ; 0x55f83 + db $08 ; asm + ld hl, $5f16 + call LoadTrainerHeader + jp $24d7 + +Route21Text2: ; 0x55f8d + db $08 ; asm + ld hl, $5f22 + call LoadTrainerHeader + jp $24d7 + +Route21Text3: ; 0x55f97 + db $08 ; asm + ld hl, $5f2e + call LoadTrainerHeader + jp $24d7 + +Route21Text4: ; 0x55fa1 + db $08 ; asm + ld hl, $5f3a + call LoadTrainerHeader + jp $24d7 + +Route21Text5: ; 0x55fab + db $08 ; asm + ld hl, $5f46 + call LoadTrainerHeader + jp $24d7 + +Route21Text6: ; 0x55fb5 + db $08 ; asm + ld hl, $5f52 + call LoadTrainerHeader + jp $24d7 + +Route21Text7: ; 0x55fbf + db $08 ; asm + ld hl, $5f5e + call LoadTrainerHeader + jp $24d7 + +Route21Text8: ; 0x55fc9 + db $08 ; asm + ld hl, $5f6a + call LoadTrainerHeader + jp $24d7 + +Route21Text9: ; 0x55fd3 + db $08 ; asm + ld hl, $5f76 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$55fdd,$87 + +VermilionHouse2_h: ; 0x56064 to 0x56070 (12 bytes) (id=163) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw $522f, VermilionHouse2Texts, VermilionHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw VermilionHouse2Object ; objects + +VermilionHouse2Script: ; 0x56070 + jp $3c3c +; 0x56073 + +VermilionHouse2Texts: ; 0x56073 + dw VermilionHouse2Text1 + +VermilionHouse2Text1: ; 0x56075 + db $08 ; asm + ld a, [$d728] + bit 3, a + jr nz, asm_03ef5 ; 0x5607b + ld hl, $60b1 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, asm_eb1b7 ; 0x5608a + ld bc,(OLD_ROD << 8) | 1 + call $3e2e + jr nc, asm_fd67b ; 0x56092 + ld hl, $d728 + set 3, [hl] + ld hl, $60b6 + jr asm_5dd95 ; 0x5609c +asm_fd67b ; 0x5609e + ld hl, $60ca + jr asm_5dd95 ; 0x560a1 +asm_eb1b7 ; 0x560a3 + ld hl, $60c0 + jr asm_5dd95 ; 0x560a6 +asm_03ef5 ; 0x560a8 + ld hl, $60c5 +asm_5dd95 ; 0x560ab + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$560b1,$1e + +VermilionHouse2Object: ; 0x560cf (size=26) + db $a ; border tile + + db $2 ; warps + db $7, $2, $8, $ff + db $7, $3, $8, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_FISHER, $4 + 4, $2 + 4, $ff, $d3, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +CeladonMart2_h: ; 0x560e9 to 0x560f5 (12 bytes) (id=123) + db $12 ; tileset + db $04, $0a ; dimensions (y, x) + dw CeladonMart2Blocks, CeladonMart2Texts, CeladonMart2Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMart2Object ; objects + +CeladonMart2Script: ; 0x560f5 + jp $3c3c +; 0x560f8 + +CeladonMart2Texts: ; 0x560f8 + dw CeladonMart2Text1, CeladonMart2Text2, CeladonMart2Text3, CeladonMart2Text4, CeladonMart2Text5 + +CeladonMart2Text3: ; 0x56102 + TX_FAR _CeladonMart2Text3 + db $50 + +CeladonMart2Text4: ; 0x56107 + TX_FAR _CeladonMart2Text4 + db $50 + +CeladonMart2Text5: ; 0x5610c + TX_FAR _CeladonMart2Text5 + db $50 + +CeladonMart2Object: ; 0x56111 (size=55) + db $f ; border tile + + db $3 ; warps + db $1, $c, $4, CELADON_MART_1 + db $1, $10, $1, CELADON_MART_3 + db $1, $1, $0, CELADON_MART_ELEVATOR + + db $1 ; signs + db $1, $e, $5 ; CeladonMart2Text5 + + db $4 ; people + db SPRITE_MART_GUY, $3 + 4, $5 + 4, $ff, $d0, $1 ; person + db SPRITE_MART_GUY, $3 + 4, $6 + 4, $ff, $d0, $2 ; person + db SPRITE_FAT_BALD_GUY, $5 + 4, $13 + 4, $ff, $ff, $3 ; person + db SPRITE_GIRL, $4 + 4, $e + 4, $fe, $1, $4 ; person + + ; warp-to + EVENT_DISP $a, $1, $c ; CELADON_MART_1 + EVENT_DISP $a, $1, $10 ; CELADON_MART_3 + EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR + +CeladonMart2Blocks: ; 40 + INCBIN "maps/celadonmart2.blk" + +FuchsiaHouse3_h: ; 0x56170 to 0x5617c (12 bytes) (id=164) + db $0d ; tileset + db $04, $04 ; dimensions (y, x) + dw FuchsiaHouse3Blocks, FuchsiaHouse3Texts, FuchsiaHouse3Script ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaHouse3Object ; objects + +FuchsiaHouse3Script: ; 0x5617c + jp $3c3c +; 0x5617f + +FuchsiaHouse3Texts: ; 0x5617f + dw FuchsiaHouse3Text1 + +FuchsiaHouse3Text1: ; 0x56181 + db $08 ; asm + ld a, [$d728] + bit 4, a + jr nz, asm_6084e ; 0x56187 + ld hl, $61bd + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, asm_3ace4 ; 0x56196 + ld bc,(GOOD_ROD << 8) | 1 + call $3e2e + jr nc, asm_628ee ; 0x5619e + ld hl, $d728 + set 4, [hl] + ld hl, $61c2 + jr asm_1b09c ; 0x561a8 +asm_628ee ; 0x561aa + ld hl, $621c + jr asm_1b09c ; 0x561ad +asm_3ace4 ; 0x561af + ld hl, $6212 + jr asm_1b09c ; 0x561b2 +asm_6084e ; 0x561b4 + ld hl, $6217 +asm_1b09c ; 0x561b7 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$561bd,$64 + +FuchsiaHouse3Object: ; 0x56221 (size=34) + db $c ; border tile + + db $3 ; warps + db $0, $2, $8, $ff + db $7, $2, $7, $ff + db $7, $3, $7, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_FISHER, $3 + 4, $5 + 4, $ff, $d3, $1 ; person + + ; warp-to + EVENT_DISP $4, $0, $2 + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +DayCareM_h: ; 0x56243 to 0x5624f (12 bytes) (id=72) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw DayCareMBlocks, DayCareMTexts, DayCareMScript ; blocks, texts, scripts + db $00 ; connections + + dw DayCareMObject ; objects + +DayCareMScript: ; 0x5624f + jp $3c3c +; 0x56252 + +DayCareMTexts: ; 0x56252 + dw DayCareMText1 + +DayCareMText1: ; 0x56254 + db $8 + call $36f4 + ld a, [$da48] + and a + jp nz, $62e1 + ld hl, $640f + call PrintText + call $35ec + ld a, [$cc26] + and a + ld hl, $643b + jp nz, $6409 + ld a, [$d163] + dec a + ld hl, $6445 + jp z, $6409 + ld hl, $6414 + call PrintText + xor a + ld [$cfcb], a + ld [$d07d], a + ld [$cc35], a + call $13fc + push af + call $3dd4 + call $3dbe + call $20ba + pop af + ld hl, $6437 + jp c, $6409 + ld hl, $571b + ld b, $8 + call Bankswitch + ld hl, $644a + jp c, $6409 + xor a + ld [$cc2b], a + ld a, [$cf92] + ld hl, $d2b5 + call $15ba + ld hl, $6419 + call PrintText + ld a, $1 + ld [$da48], a + ld a, $3 + ld [$cf95], a + call $3a68 + xor a + ld [$cf95], a + call $391f + ld a, [$cf91] + call $13d0 + ld hl, $641e + jp $6409 +; 0x562e1 +INCBIN "baserom.gbc",$562e1,$178 + +DayCareMObject: ; 0x56459 (size=26) + db $a ; border tile + + db $2 ; warps + db $7, $2, $4, $ff + db $7, $3, $4, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_GENTLEMAN, $3 + 4, $2 + 4, $ff, $d3, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +Route12House_h: ; 0x56473 to 0x5647f (12 bytes) (id=189) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw $522f, Route12HouseTexts, Route12HouseScript ; blocks, texts, scripts + db $00 ; connections + + dw Route12HouseObject ; objects + +Route12HouseScript: ; 0x5647f + jp $3c3c +; 0x56482 + +Route12HouseTexts: ; 0x56482 + dw Route12HouseText1 + +Route12HouseText1: ; 0x56484 + db $08 ; asm + ld a, [$d728] + bit 5, a + jr nz, asm_b4cad ; 0x5648a + ld hl, $64c0 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, asm_a2d76 ; 0x56499 + ld bc,(SUPER_ROD << 8) | 1 + call $3e2e + jr nc, asm_e3b89 ; 0x564a1 + ld hl, $d728 + set 5, [hl] + ld hl, $64c5 + jr asm_df984 ; 0x564ab +asm_e3b89 ; 0x564ad + ld hl, $64d9 + jr asm_df984 ; 0x564b0 +asm_a2d76 ; 0x564b2 + ld hl, $64cf + jr asm_df984 ; 0x564b5 +asm_b4cad ; 0x564b7 + ld hl, $64d4 +asm_df984 ; 0x564ba + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$564c0,$1e + +Route12HouseObject: ; 0x564de (size=26) + db $a ; border tile + + db $2 ; warps + db $7, $2, $3, $ff + db $7, $3, $3, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_FISHER, $4 + 4, $2 + 4, $ff, $d3, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +SilphCo8_h: ; 0x564f8 to 0x56504 (12 bytes) (id=213) + db $16 ; tileset + db $09, $0d ; dimensions (y, x) + dw SilphCo8Blocks, SilphCo8Texts, SilphCo8Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo8Object ; objects + +SilphCo8Script: ; 0x56504 + call $651a + call $3c3c + ld hl, $6585 + ld de, $6577 + ld a, [$d649] + call $3160 + ld [$d649], a + ret +; 0x5651a + +INCBIN "baserom.gbc",$5651a,$63 + +SilphCo8Texts: ; 0x5657d + dw SilphCo8Text1, SilphCo8Text2, SilphCo8Text3, SilphCo8Text4 + +INCBIN "baserom.gbc",$56585,$25 + +SilphCo8Text1: ; 0x565aa + db $08 ; asm + ld a, [$d838] + bit 7, a + ld hl, $65c3 + jr nz, asm_a468f ; 0x565b3 + ld hl, $65be +asm_a468f ; 0x565b8 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$565be,$565c8 - $565be + +SilphCo8Text2: ; 0x565c8 + db $08 ; asm + ld hl, $6585 + call LoadTrainerHeader + jp $24d7 + +SilphCo8Text3: ; 0x565d2 + db $08 ; asm + ld hl, $6591 + call LoadTrainerHeader + jp $24d7 + +SilphCo8Text4: ; 0x565dc + db $08 ; asm + ld hl, $659d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$565e6,$2d + +SilphCo8Object: ; 0x56613 (size=90) + db $2e ; border tile + + db $7 ; warps + db $0, $10, $1, SILPH_CO_9F + db $0, $e, $0, SILPH_CO_7F + db $0, $12, $0, SILPH_CO_ELEVATOR + db $b, $3, $6, SILPH_CO_8F + db $f, $3, $4, SILPH_CO_2F + db $5, $b, $5, SILPH_CO_2F + db $9, $b, $3, SILPH_CO_8F + + db $0 ; signs + + db $4 ; people + db SPRITE_LAPRAS_GIVER, $2 + 4, $4 + 4, $ff, $ff, $1 ; person + db SPRITE_ROCKET, $2 + 4, $13 + 4, $ff, $d2, $42, ROCKET + $C8, $23 ; trainer + db SPRITE_OAK_AIDE, $2 + 4, $a + 4, $ff, $d0, $43, SCIENTIST + $C8, $9 ; trainer + db SPRITE_ROCKET, $f + 4, $c + 4, $ff, $d3, $44, ROCKET + $C8, $24 ; trainer + + ; warp-to + EVENT_DISP $d, $0, $10 ; SILPH_CO_9F + EVENT_DISP $d, $0, $e ; SILPH_CO_7F + EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR + EVENT_DISP $d, $b, $3 ; SILPH_CO_8F + EVENT_DISP $d, $f, $3 ; SILPH_CO_2F + EVENT_DISP $d, $5, $b ; SILPH_CO_2F + EVENT_DISP $d, $9, $b ; SILPH_CO_8F + +SilphCo8Blocks: ; 117 + INCBIN "maps/silphco8.blk" + +INCBIN "baserom.gbc",$566e2,$191e + +SECTION "bank16",DATA,BANK[$16] + +Route6_h: ; 0x58000 to 0x58022 (34 bytes) (id=17) + db $00 ; tileset + db $12, $0a ; dimensions (y, x) + dw Route6Blocks, $50c9, Route6Script ; blocks, texts, scripts + db NORTH | SOUTH ; connections + + ; connections data + + db SAFFRON_CITY + dw $4bc6, $c6e8 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $23, $0a ; alignments (y, x) + dw $c8bd ; window + + db VERMILION_CITY + dw $4a41, $c838 ; pointers (connected, current) (strip) + db $10, $14 ; bigness, width + db $00, $0a ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route6Object ; objects + +Route6Object: ; 0x58022 (size=87) + db $f ; border tile + + db $4 ; warps + db $1, $9, $2, ROUTE_6_GATE + db $1, $a, $2, ROUTE_6_GATE + db $7, $a, $0, ROUTE_6_GATE + db $d, $11, $0, PATH_ENTRANCE_ROUTE_6 + + db $1 ; signs + db $f, $13, $7 ; Route6Text7 + + db $6 ; people + db SPRITE_BLACK_HAIR_BOY_1, $15 + 4, $a + 4, $ff, $d3, $41, JR__TRAINER_M + $C8, $4 ; trainer + db SPRITE_LASS, $15 + 4, $b + 4, $ff, $d2, $42, JR__TRAINER_F + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $f + 4, $0 + 4, $ff, $d3, $43, BUG_CATCHER + $C8, $a ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $1f + 4, $b + 4, $ff, $d2, $44, JR__TRAINER_M + $C8, $5 ; trainer + db SPRITE_LASS, $1e + 4, $b + 4, $ff, $d2, $45, JR__TRAINER_F + $C8, $3 ; trainer + db SPRITE_BUG_CATCHER, $1a + 4, $13 + 4, $ff, $d2, $46, BUG_CATCHER + $C8, $b ; trainer + + ; warp-to + EVENT_DISP $a, $1, $9 ; ROUTE_6_GATE + EVENT_DISP $a, $1, $a ; ROUTE_6_GATE + EVENT_DISP $a, $7, $a ; ROUTE_6_GATE + EVENT_DISP $a, $d, $11 ; PATH_ENTRANCE_ROUTE_6 + +Route6Blocks: ; 180 + INCBIN "maps/route6.blk" + +Route8_h: ; 0x5812d to 0x5814f (34 bytes) (id=19) + db $00 ; tileset + db $09, $1e ; dimensions (y, x) + dw Route8Blocks, $51cf, Route8Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db SAFFRON_CITY + dw $4abd, $c6e8 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $27 ; alignments (y, x) + dw $c716 ; window + + db LAVENDER_TOWN + dw $4085, $c775 ; pointers (connected, current) (strip) + db $09, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route8Object ; objects + +Route8Object: ; 0x5814f (size=119) + db $2c ; border tile + + db $5 ; warps + db $9, $1, $0, ROUTE_8_GATE + db $a, $1, $1, ROUTE_8_GATE + db $9, $8, $2, ROUTE_8_GATE + db $a, $8, $3, ROUTE_8_GATE + db $3, $d, $0, PATH_ENTRANCE_ROUTE_8 + + db $1 ; signs + db $3, $11, $a ; Route8Text10 + + db $9 ; people + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $8 + 4, $ff, $d3, $41, SUPER_NERD + $C8, $3 ; trainer + db SPRITE_GAMBLER, $9 + 4, $d + 4, $ff, $d1, $42, GAMBLER + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $6 + 4, $2a + 4, $ff, $d1, $43, SUPER_NERD + $C8, $4 ; trainer + db SPRITE_LASS, $3 + 4, $1a + 4, $ff, $d2, $44, LASS + $C8, $d ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $1a + 4, $ff, $d3, $45, SUPER_NERD + $C8, $5 ; trainer + db SPRITE_LASS, $5 + 4, $1a + 4, $ff, $d2, $46, LASS + $C8, $e ; trainer + db SPRITE_LASS, $6 + 4, $1a + 4, $ff, $d3, $47, LASS + $C8, $f ; trainer + db SPRITE_GAMBLER, $d + 4, $2e + 4, $ff, $d0, $48, GAMBLER + $C8, $7 ; trainer + db SPRITE_LASS, $c + 4, $33 + 4, $ff, $d2, $49, LASS + $C8, $10 ; trainer + + ; warp-to + EVENT_DISP $1e, $9, $1 ; ROUTE_8_GATE + EVENT_DISP $1e, $a, $1 ; ROUTE_8_GATE + EVENT_DISP $1e, $9, $8 ; ROUTE_8_GATE + EVENT_DISP $1e, $a, $8 ; ROUTE_8_GATE + EVENT_DISP $1e, $3, $d ; PATH_ENTRANCE_ROUTE_8 + +Route8Blocks: ; 270 + INCBIN "maps/route8.blk" + +Route10_h: ; 0x582d4 to 0x582f6 (34 bytes) (id=21) + db $00 ; tileset + db $24, $0a ; dimensions (y, x) + dw Route10Blocks, Route10Texts, Route10Script ; blocks, texts, scripts + db SOUTH | WEST ; connections + + ; connections data + + db LAVENDER_TOWN + dw $4085, $c95b ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + db ROUTE_9 + dw $4719, $c718 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $00, $3b ; alignments (y, x) + dw $c72a ; window + + ; end connection data + + dw Route10Object ; objects + +Route10Object: ; 0x582f6 (size=96) + db $2c ; border tile + + db $4 ; warps + db $13, $b, $0, ROCK_TUNNEL_POKECENTER + db $11, $8, $0, ROCK_TUNNEL_1 + db $35, $8, $2, ROCK_TUNNEL_1 + db $27, $6, $0, POWER_PLANT + + db $4 ; signs + db $13, $7, $7 ; Route10Text7 + db $13, $c, $8 ; Route10Text8 + db $37, $9, $9 ; Route10Text9 + db $29, $5, $a ; Route10Text10 + + db $6 ; people + db SPRITE_BLACK_HAIR_BOY_2, $2c + 4, $a + 4, $ff, $d2, $41, POKEMANIAC + $C8, $1 ; trainer + db SPRITE_HIKER, $39 + 4, $3 + 4, $ff, $d1, $42, HIKER + $C8, $7 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $40 + 4, $e + 4, $ff, $d2, $43, POKEMANIAC + $C8, $2 ; trainer + db SPRITE_LASS, $19 + 4, $7 + 4, $ff, $d2, $44, JR__TRAINER_F + $C8, $7 ; trainer + db SPRITE_HIKER, $3d + 4, $3 + 4, $ff, $d0, $45, HIKER + $C8, $8 ; trainer + db SPRITE_LASS, $36 + 4, $7 + 4, $ff, $d0, $46, JR__TRAINER_F + $C8, $8 ; trainer + + ; warp-to + EVENT_DISP $a, $13, $b ; ROCK_TUNNEL_POKECENTER + EVENT_DISP $a, $11, $8 ; ROCK_TUNNEL_1 + EVENT_DISP $a, $35, $8 ; ROCK_TUNNEL_1 + EVENT_DISP $a, $27, $6 ; POWER_PLANT + +Route10Blocks: ; 360 + INCBIN "maps/route10.blk" + +Route11_h: ; 0x584be to 0x584e0 (34 bytes) (id=22) + db $00 ; tileset + db $09, $1e ; dimensions (y, x) + dw Route11Blocks, $5465, Route11Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db VERMILION_CITY + dw $4a64, $c6e8 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $27 ; alignments (y, x) + dw $c716 ; window + + db ROUTE_12 + dw $4800, $c709 ; pointers (connected, current) (strip) + db $0f, $0a ; bigness, width + db $36, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route11Object ; objects + +Route11Object: ; 0x584e0 (size=127) + db $f ; border tile + + db $5 ; warps + db $8, $31, $0, ROUTE_11_GATE_1F + db $9, $31, $1, ROUTE_11_GATE_1F + db $8, $3a, $2, ROUTE_11_GATE_1F + db $9, $3a, $3, ROUTE_11_GATE_1F + db $5, $4, $0, DIGLETTS_CAVE_ENTRANCE + + db $1 ; signs + db $5, $1, $b ; Route11Text11 + + db $a ; people + db SPRITE_GAMBLER, $e + 4, $a + 4, $ff, $d0, $41, GAMBLER + $C8, $1 ; trainer + db SPRITE_GAMBLER, $9 + 4, $1a + 4, $ff, $d0, $42, GAMBLER + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $5 + 4, $d + 4, $ff, $d2, $43, YOUNGSTER + $C8, $9 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $b + 4, $24 + 4, $ff, $d0, $44, ENGINEER + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $4 + 4, $16 + 4, $ff, $d1, $45, YOUNGSTER + $C8, $a ; trainer + db SPRITE_GAMBLER, $7 + 4, $2d + 4, $ff, $d0, $46, GAMBLER + $C8, $3 ; trainer + db SPRITE_GAMBLER, $3 + 4, $21 + 4, $ff, $d1, $47, GAMBLER + $C8, $4 ; trainer + db SPRITE_BUG_CATCHER, $5 + 4, $2b + 4, $ff, $d3, $48, YOUNGSTER + $C8, $b ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $10 + 4, $2d + 4, $ff, $d2, $49, ENGINEER + $C8, $3 ; trainer + db SPRITE_BUG_CATCHER, $c + 4, $16 + 4, $ff, $d1, $4a, YOUNGSTER + $C8, $c ; trainer + + ; warp-to + EVENT_DISP $1e, $8, $31 ; ROUTE_11_GATE_1F + EVENT_DISP $1e, $9, $31 ; ROUTE_11_GATE_1F + EVENT_DISP $1e, $8, $3a ; ROUTE_11_GATE_1F + EVENT_DISP $1e, $9, $3a ; ROUTE_11_GATE_1F + EVENT_DISP $1e, $5, $4 ; DIGLETTS_CAVE_ENTRANCE + +Route11Blocks: ; 270 + INCBIN "maps/route11.blk" + +Route12_h: ; 0x5866d to 0x5869a (45 bytes) (id=23) + db $00 ; tileset + db $36, $0a ; dimensions (y, x) + dw Route12Blocks, Route12Texts, Route12Script ; blocks, texts, scripts + db NORTH | SOUTH | WEST ; connections + + ; connections data + + db LAVENDER_TOWN + dw $40c1, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $11, $00 ; alignments (y, x) + dw $c779 ; window + + db ROUTE_13 + dw $489c, $ca78 ; pointers (connected, current) (strip) + db $0d, $1e ; bigness, width + db $00, $28 ; alignments (y, x) + dw $c70d ; window + + db ROUTE_11 + dw $457a, $c8c8 ; pointers (connected, current) (strip) + db $09, $1e ; bigness, width + db $ca, $3b ; alignments (y, x) + dw $c72a ; window + + ; end connection data + + dw Route12Object ; objects + +Route12Object: ; 0x5869a (size=118) + db $43 ; border tile + + db $4 ; warps + db $f, $a, $0, ROUTE_12_GATE + db $f, $b, $1, ROUTE_12_GATE + db $15, $a, $2, ROUTE_12_GATE + db $4d, $b, $0, ROUTE_12_HOUSE + + db $2 ; signs + db $d, $d, $b ; Route12Text11 + db $3f, $b, $c ; Route12Text12 + + db $a ; people + db SPRITE_SNORLAX, $3e + 4, $a + 4, $ff, $d0, $1 ; person + db SPRITE_FISHER2, $1f + 4, $e + 4, $ff, $d2, $42, FISHER + $C8, $3 ; trainer + db SPRITE_FISHER2, $27 + 4, $5 + 4, $ff, $d1, $43, FISHER + $C8, $4 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $5c + 4, $b + 4, $ff, $d2, $44, JR__TRAINER_M + $C8, $9 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $4c + 4, $e + 4, $ff, $d1, $45, ROCKER + $C8, $2 ; trainer + db SPRITE_FISHER2, $28 + 4, $c + 4, $ff, $d2, $46, FISHER + $C8, $5 ; trainer + db SPRITE_FISHER2, $34 + 4, $9 + 4, $ff, $d3, $47, FISHER + $C8, $6 ; trainer + db SPRITE_FISHER2, $57 + 4, $6 + 4, $ff, $d0, $48, FISHER + $C8, $b ; trainer + db SPRITE_BALL, $23 + 4, $e + 4, $ff, $ff, $89, TM_16 ; item + db SPRITE_BALL, $59 + 4, $5 + 4, $ff, $ff, $8a, IRON ; item + + ; warp-to + EVENT_DISP $a, $f, $a ; ROUTE_12_GATE + EVENT_DISP $a, $f, $b ; ROUTE_12_GATE + EVENT_DISP $a, $15, $a ; ROUTE_12_GATE + EVENT_DISP $a, $4d, $b ; ROUTE_12_HOUSE + +Route12Blocks: ; 540 + INCBIN "maps/route12.blk" + +Route15_h: ; 0x5892c to 0x5894e (34 bytes) (id=26) + db $00 ; tileset + db $09, $1e ; dimensions (y, x) + dw Route15Blocks, Route15Texts, Route15Script ; blocks, texts, scripts + db WEST | EAST ; connections + + ; connections data + + db FUCHSIA_CITY + dw $4cab, $c6e8 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $27 ; alignments (y, x) + dw $c716 ; window + + db ROUTE_14 + dw $4aa8, $c709 ; pointers (connected, current) (strip) + db $0c, $0a ; bigness, width + db $24, $00 ; alignments (y, x) + dw $c6f9 ; window + + ; end connection data + + dw Route15Object ; objects + +Route15Object: ; 0x5894e (size=126) + db $43 ; border tile + + db $4 ; warps + db $8, $7, $0, ROUTE_15_GATE + db $9, $7, $1, ROUTE_15_GATE + db $8, $e, $2, ROUTE_15_GATE + db $9, $e, $3, ROUTE_15_GATE + + db $1 ; signs + db $9, $27, $c ; Route15Text12 + + db $b ; people + db SPRITE_LASS, $b + 4, $29 + 4, $ff, $d0, $41, JR__TRAINER_F + $C8, $14 ; trainer + db SPRITE_LASS, $a + 4, $35 + 4, $ff, $d2, $42, JR__TRAINER_F + $C8, $15 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $1f + 4, $ff, $d1, $43, BIRD_KEEPER + $C8, $6 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $23 + 4, $ff, $d1, $44, BIRD_KEEPER + $C8, $7 ; trainer + db SPRITE_FOULARD_WOMAN, $b + 4, $35 + 4, $ff, $d0, $45, BEAUTY + $C8, $9 ; trainer + db SPRITE_FOULARD_WOMAN, $a + 4, $29 + 4, $ff, $d3, $46, BEAUTY + $C8, $a ; trainer + db SPRITE_BIKER, $a + 4, $30 + 4, $ff, $d0, $47, BIKER + $C8, $3 ; trainer + db SPRITE_BIKER, $a + 4, $2e + 4, $ff, $d0, $48, BIKER + $C8, $4 ; trainer + db SPRITE_LASS, $5 + 4, $25 + 4, $ff, $d3, $49, JR__TRAINER_F + $C8, $16 ; trainer + db SPRITE_LASS, $d + 4, $12 + 4, $ff, $d1, $4a, JR__TRAINER_F + $C8, $17 ; trainer + db SPRITE_BALL, $5 + 4, $12 + 4, $ff, $ff, $8b, TM_20 ; item + + ; warp-to + EVENT_DISP $1e, $8, $7 ; ROUTE_15_GATE + EVENT_DISP $1e, $9, $7 ; ROUTE_15_GATE + EVENT_DISP $1e, $8, $e ; ROUTE_15_GATE + EVENT_DISP $1e, $9, $e ; ROUTE_15_GATE + +Route15Blocks: ; 270 + INCBIN "maps/route15.blk" + +Route16_h: ; 0x58ada to 0x58afc (34 bytes) (id=27) + db $00 ; tileset + db $09, $14 ; dimensions (y, x) + dw Route16Blocks, Route16Texts, Route16Script ; blocks, texts, scripts + db SOUTH | EAST ; connections + + ; connections data + + db ROUTE_17 + dw $4ba8, $c823 ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $00, $00 ; alignments (y, x) + dw $c6f9 ; window + + db CELADON_CITY + dw $40f8, $c6ff ; pointers (connected, current) (strip) + db $0f, $19 ; bigness, width + db $08, $00 ; alignments (y, x) + dw $c708 ; window + + ; end connection data + + dw Route16Object ; objects + +Route16Object: ; 0x58afc (size=136) + db $f ; border tile + + db $9 ; warps + db $a, $11, $0, ROUTE_16_GATE_1F + db $b, $11, $1, ROUTE_16_GATE_1F + db $a, $18, $2, ROUTE_16_GATE_1F + db $b, $18, $3, ROUTE_16_GATE_1F + db $4, $11, $4, ROUTE_16_GATE_1F + db $5, $11, $5, ROUTE_16_GATE_1F + db $4, $18, $6, ROUTE_16_GATE_1F + db $5, $18, $7, ROUTE_16_GATE_1F + db $5, $7, $0, ROUTE_16_HOUSE + + db $2 ; signs + db $b, $1b, $8 ; Route16Text8 + db $11, $5, $9 ; Route16Text9 + + db $7 ; people + db SPRITE_BIKER, $c + 4, $11 + 4, $ff, $d2, $41, BIKER + $C8, $5 ; trainer + db SPRITE_BIKER, $d + 4, $e + 4, $ff, $d3, $42, CUE_BALL + $C8, $1 ; trainer + db SPRITE_BIKER, $c + 4, $b + 4, $ff, $d1, $43, CUE_BALL + $C8, $2 ; trainer + db SPRITE_BIKER, $b + 4, $9 + 4, $ff, $d2, $44, BIKER + $C8, $6 ; trainer + db SPRITE_BIKER, $a + 4, $6 + 4, $ff, $d3, $45, CUE_BALL + $C8, $3 ; trainer + db SPRITE_BIKER, $c + 4, $3 + 4, $ff, $d3, $46, BIKER + $C8, $7 ; trainer + db SPRITE_SNORLAX, $a + 4, $1a + 4, $ff, $d0, $7 ; person + + ; warp-to + EVENT_DISP $14, $a, $11 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $b, $11 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $a, $18 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $b, $18 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $4, $11 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $5, $11 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $4, $18 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $5, $18 ; ROUTE_16_GATE_1F + EVENT_DISP $14, $5, $7 ; ROUTE_16_HOUSE + +Route16Blocks: ; 180 + INCBIN "maps/route16.blk" + +Route18_h: ; 0x58c38 to 0x58c5a (34 bytes) (id=29) + db $00 ; tileset + db $09, $19 ; dimensions (y, x) + dw Route18Blocks, Route18Texts, Route18Script ; blocks, texts, scripts + db NORTH | EAST ; connections + + ; connections data + + db ROUTE_17 + dw $4e5a, $c6eb ; pointers (connected, current) (strip) + db $0a, $0a ; bigness, width + db $8f, $00 ; alignments (y, x) + dw $cb69 ; window + + db FUCHSIA_CITY + dw $4c9a, $c704 ; pointers (connected, current) (strip) + db $0f, $14 ; bigness, width + db $08, $00 ; alignments (y, x) + dw $c703 ; window + + ; end connection data + + dw Route18Object ; objects + +Route18Object: ; 0x58c5a (size=66) + db $43 ; border tile + + db $4 ; warps + db $8, $21, $0, ROUTE_18_GATE_1F + db $9, $21, $1, ROUTE_18_GATE_1F + db $8, $28, $2, ROUTE_18_GATE_1F + db $9, $28, $3, ROUTE_18_GATE_1F + + db $2 ; signs + db $7, $2b, $4 ; Route18Text4 + db $5, $21, $5 ; Route18Text5 + + db $3 ; people + db SPRITE_BLACK_HAIR_BOY_1, $b + 4, $24 + 4, $ff, $d3, $41, BIRD_KEEPER + $C8, $8 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $f + 4, $28 + 4, $ff, $d2, $42, BIRD_KEEPER + $C8, $9 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $2a + 4, $ff, $d2, $43, BIRD_KEEPER + $C8, $a ; trainer + + ; warp-to + EVENT_DISP $19, $8, $21 ; ROUTE_18_GATE_1F + EVENT_DISP $19, $9, $21 ; ROUTE_18_GATE_1F + EVENT_DISP $19, $8, $28 ; ROUTE_18_GATE_1F + EVENT_DISP $19, $9, $28 ; ROUTE_18_GATE_1F + +Route18Blocks: ; 225 + INCBIN "maps/route18.blk" + +INCBIN "baserom.gbc",$58d7d,$590b0 - $58d7d + +Route6Script: ; 0x590b0 + call $3c3c + ld hl, $50d7 + ld de, $50c3 + ld a, [$d600] + call $3160 + ld [$d600], a + ret +; 0x590c3 + +INCBIN "baserom.gbc",$590c3,$5d + +Route6Text1: ; 0x59120 + db $8 + ld hl, $50d7 + call $31cc + jp $24d7 +; 0x5912a + +INCBIN "baserom.gbc",$5912a,$f + +Route6Text2: ; 0x59139 + db $08 ; asm + ld hl, $50e3 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59143,$5914d - $59143 + +Route6Text3: ; 0x5914d + db $08 ; asm + ld hl, $50ef + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59157,$59166 - $59157 + +Route6Text4: ; 0x59166 + db $08 ; asm + ld hl, $50fb + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59170,$5917f - $59170 + +Route6Text5: ; 0x5917f + db $08 ; asm + ld hl, $5107 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59189,$59198 - $59189 + +Route6Text6: ; 0x59198 + db $08 ; asm + ld hl, $5113 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$591a2,$f + +Route6Text7: ; 0x591b1 + TX_FAR _Route6Text7 + db $50 + +Route8Script: ; 0x591b6 + call $3c3c + ld hl, $51e3 + ld de, $51c9 + ld a, [$d601] + call $3160 + ld [$d601], a + ret +; 0x591c9 + +INCBIN "baserom.gbc",$591c9,$a0 + +Route8Text2: ; 0x59269 + db $08 ; asm + ld hl, $51ef + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59273,$59282 - $59273 + +Route8Text3: ; 0x59282 + db $08 ; asm + ld hl, $51fb + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5928c,$5929b - $5928c + +Route8Text4: ; 0x5929b + db $08 ; asm + ld hl, $5207 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$592a5,$592b4 - $592a5 + +Route8Text5: ; 0x592b4 + db $08 ; asm + ld hl, $5213 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$592be,$592cd - $592be + +Route8Text6: ; 0x592cd + db $08 ; asm + ld hl, $521f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$592d7,$592e6 - $592d7 + +Route8Text7: ; 0x592e6 + db $08 ; asm + ld hl, $522b + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$592f0,$592ff - $592f0 + +Route8Text8: ; 0x592ff + db $08 ; asm + ld hl, $5237 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59309,$59318 - $59309 + +Route8Text9: ; 0x59318 + db $08 ; asm + ld hl, $5243 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59322,$f + +Route8Text10: ; 0x59331 + TX_FAR _Route8Text10 + db $50 + +Route10Script: ; 0x59336 + call $3c3c + ld hl, $5363 + ld de, $5349 + ld a, [$d605] + call $3160 + ld [$d605], a + ret +; 0x59349 + +INCBIN "baserom.gbc",$59349,$6 + +Route10Texts: ; 0x5934f + dw Route10Text1, Route10Text2, Route10Text3, Route10Text4, Route10Text5, Route10Text6, Route10Text7, Route10Text8, Route10Text9, Route10Text10 + +INCBIN "baserom.gbc",$59363,$49 + +Route10Text1: ; 0x593ac + db $08 ; asm + ld hl, $5363 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$593b6,$593c5 - $593b6 + +Route10Text2: ; 0x593c5 + db $08 ; asm + ld hl, $536f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$593cf,$593de - $593cf + +Route10Text3: ; 0x593de + db $08 ; asm + ld hl, $537b + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$593e8,$593f7 - $593e8 + +Route10Text4: ; 0x593f7 + db $08 ; asm + ld hl, $5387 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59401,$59410 - $59401 + +Route10Text5: ; 0x59410 + db $08 ; asm + ld hl, $5393 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5941a,$59429 - $5941a + +Route10Text6: ; 0x59429 + db $08 ; asm + ld hl, $539f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59433,$f + +Route10Text9: ; 0x59442 +Route10Text7: ; 0x59442 + TX_FAR _Route10Text7 ; _Route10Text9 + db $50 + +Route10Text10: ; 0x59447 + TX_FAR _Route10Text10 + db $50 + +Route11Script: ; 0x5944c + call $3c3c + ld hl, $547b + ld de, $545f + ld a, [$d623] + call $3160 + ld [$d623], a + ret +; 0x5945f + +INCBIN "baserom.gbc",$5945f,$ae + +Route11Text2: ; 0x5950d + db $08 ; asm + ld hl, $5487 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59517,$59526 - $59517 + +Route11Text3: ; 0x59526 + db $08 ; asm + ld hl, $5493 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59530,$5953f - $59530 + +Route11Text4: ; 0x5953f + db $08 ; asm + ld hl, $549f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59549,$59558 - $59549 + +Route11Text5: ; 0x59558 + db $08 ; asm + ld hl, $54ab + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59562,$59571 - $59562 + +Route11Text6: ; 0x59571 + db $08 ; asm + ld hl, $54b7 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5957b,$5958a - $5957b + +Route11Text7: ; 0x5958a + db $08 ; asm + ld hl, $54c3 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59594,$595a3 - $59594 + +Route11Text8: ; 0x595a3 + db $08 ; asm + ld hl, $54cf + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$595ad,$595bc - $595ad + +Route11Text9: ; 0x595bc + db $08 ; asm + ld hl, $54db + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$595c6,$595d5 - $595c6 + +Route11Text10: ; 0x595d5 + db $08 ; asm + ld hl, $54e7 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$595df,$f + +Route11Text11: ; 0x595ee + TX_FAR _Route11Text11 + db $50 + +Route12Script: ; 0x595f3 + call $3c3c + ld hl, $5691 + ld de, $5611 + ld a, [$d624] + call $3160 + ld [$d624], a + ret +; 0x59606 + +INCBIN "baserom.gbc",$59606,$6f + +Route12Texts: ; 0x59675 + dw Route12Text1, Route12Text2, Route12Text3, Route12Text4, Route12Text5, Route12Text6, Route12Text7, Route12Text8, Route12Text9, Route12Text10, Route12Text11, Route12Text12, Route12Text13, Route12Text14 + +INCBIN "baserom.gbc",$59691,$55 + +Route12Text1: ; 0x596e6 + TX_FAR _Route12Text1 + db $50 + +INCBIN "baserom.gbc",$596eb,$596f5 - $596eb + +Route12Text2: ; 0x596f5 + db $08 ; asm + ld hl, $5691 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$596ff,$5970e - $596ff + +Route12Text3: ; 0x5970e + db $08 ; asm + ld hl, $569d + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59718,$59727 - $59718 + +Route12Text4: ; 0x59727 + db $08 ; asm + ld hl, $56a9 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59731,$59740 - $59731 + +Route12Text5: ; 0x59740 + db $08 ; asm + ld hl, $56b5 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5974a,$59759 - $5974a + +Route12Text6: ; 0x59759 + db $08 ; asm + ld hl, $56c1 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59763,$59772 - $59763 + +Route12Text7: ; 0x59772 + db $08 ; asm + ld hl, $56cd + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5977c,$5978b - $5977c + +Route12Text8: ; 0x5978b + db $08 ; asm + ld hl, $56d9 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59795,$f + +Route12Text11: ; 0x597a4 + TX_FAR _Route12Text11 + db $50 + +Route12Text12: ; 0x597a9 + TX_FAR _Route12Text12 + db $50 + +Route15Script: ; 0x597ae + call $3c3c + ld hl, $57df + ld de, $57c1 + ld a, [$d625] + call $3160 + ld [$d625], a + ret +; 0x597c1 + +INCBIN "baserom.gbc",$597c1,$6 + +Route15Texts: ; 0x597c7 + dw Route15Text1, Route15Text2, Route15Text3, Route15Text4, Route15Text5, Route15Text6, Route15Text7, Route15Text8, Route15Text9, Route15Text10, Route15Text11, Route15Text12 + +INCBIN "baserom.gbc",$597df,$79 + +Route15Text1: ; 0x59858 + db $8 ; asm + ld hl, $57df + jr asm_33cb7 ; 0x5985c $34 + +Route15Text2: + db $8 ; asm + ld hl, $57eb + jr asm_33cb7 ; 0x59862 $2e + +Route15Text3: + db $8 ; asm + ld hl, $57f7 + jr asm_33cb7 ; 0x59868 $28 + +Route15Text4: + db $8 ; asm + ld hl, $5803 + jr asm_33cb7 ; 0x5986e $22 + +Route15Text5: + db $8 ; asm + ld hl, $580f + jr asm_33cb7 ; 0x59874 $1c + +Route15Text6: + db $8 ; asm + ld hl, $581b + jr asm_33cb7 ; 0x5987a $16 + +Route15Text7: + db $8 ; asm + ld hl, $5827 + jr asm_33cb7 ; 0x59880 $10 + +Route15Text8: + db $8 ; asm + ld hl, $5833 + jr asm_33cb7 ; 0x59886 $a + +Route15Text9: + db $8 ; asm + ld hl, $583f + jr asm_33cb7 ; 0x5988c $4 + +Route15Text10: + db $8 ; asm + ld hl, $584b +asm_33cb7: ; 0x59892 + call $31cc + jp $24d7 +; 0x59898 + +INCBIN "baserom.gbc",$59898,$96 + +Route15Text12: ; 0x5992e + TX_FAR _Route15Text12 + db $50 + +Route16Script: ; 0x59933 + call $3c3c + ld hl, $59cf + ld de, $5951 + ld a, [$d626] + call $3160 + ld [$d626], a + ret +; 0x59946 + +INCBIN "baserom.gbc",$59946,$73 + +Route16Texts: ; 0x599b9 + dw Route16Text1, Route16Text2, Route16Text3, Route16Text4, Route16Text5, Route16Text6, Route16Text7, Route16Text8, Route16Text9, Route16Text10, Route16Text11 + +INCBIN "baserom.gbc",$599cb + 4,$4d - 4 + +Route16Text1: ; 0x59a18 + db $08 ; asm + ld hl, $59cf + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59a22,$59a31 - $59a22 + +Route16Text2: ; 0x59a31 + db $08 ; asm + ld hl, $59db + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59a3b,$59a4a - $59a3b + +Route16Text3: ; 0x59a4a + db $08 ; asm + ld hl, $59e7 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59a54,$59a63 - $59a54 + +Route16Text4: ; 0x59a63 + db $08 ; asm + ld hl, $59f3 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59a6d,$59a7c - $59a6d + +Route16Text5: ; 0x59a7c + db $08 ; asm + ld hl, $59ff + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59a86,$59a95 - $59a86 + +Route16Text6: ; 0x59a95 + db $08 ; asm + ld hl, $5a0b + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59a9f,$f + +Route16Text7: ; 0x59aae + TX_FAR _Route16Text7 + db $50 + +Route16Text10: ; 0x59ab3 +INCBIN "baserom.gbc",$59ab3,5 + +Route16Text11: ; 0x59ab8 +INCBIN "baserom.gbc",$59ab8,5 + +Route16Text8: ; 0x59abd + TX_FAR _Route16Text8 + db $50 + +Route16Text9: ; 0x59ac2 + TX_FAR _Route16Text9 + db $50 + +Route18Script: ; 0x59ac7 + call $3c3c + ld hl, $5aea + ld de, $5ada + ld a, [$d627] + call $3160 + ld [$d627], a + ret +; 0x59ada + +INCBIN "baserom.gbc",$59ada,$6 + +Route18Texts: ; 0x59ae0 + dw Route18Text1, Route18Text2, Route18Text3, Route18Text4, Route18Text5 + +INCBIN "baserom.gbc",$59aea,$25 + +Route18Text1: ; 0x59b0f + db $08 ; asm + ld hl, $5aea + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59b19,$59b28 - $59b19 + +Route18Text2: ; 0x59b28 + db $08 ; asm + ld hl, $5af6 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59b32,$59b41 - $59b32 + +Route18Text3: ; 0x59b41 + db $08 ; asm + ld hl, $5b02 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59b4b,$f + +Route18Text4: ; 0x59b5a + TX_FAR _Route18Text4 + db $50 + +Route18Text5: ; 0x59b5f + TX_FAR _Route18Text5 + db $50 + +FanClub_h: ; 0x59b64 to 0x59b70 (12 bytes) (id=90) + db $10 ; tileset + db $04, $04 ; dimensions (y, x) + dw FanClubBlocks, FanClubTexts, FanClubScript ; blocks, texts, scripts + db $00 ; connections + + dw FanClubObject ; objects + +FanClubScript: ; 0x59b70 + jp $3c3c +; 0x59b73 + +INCBIN "baserom.gbc",$59b73,$11 + +FanClubTexts: ; 0x59b84 + dw FanClubText1, FanClubText2, FanClubText3, FanClubText4, FanClubText5, FanClubText6, FanClubText7, FanClubText8 + +FanClubText1: ; 0x59b94 + db $08 ; asm + ld a, [$d771] + bit 7, a + jr nz, asm_67b22 ; 0x59b9a + ld hl, $5bb7 + call PrintText + ld hl, $d771 + set 6, [hl] + jr asm_64f01 ; 0x59ba7 +asm_67b22 ; 0x59ba9 + ld hl, $5bbc + call PrintText + ld hl, $d771 + res 7, [hl] +asm_64f01 ; 0x59bb4 + jp $24d7 + +INCBIN "baserom.gbc",$59bb7,$59bc1 - $59bb7 + +FanClubText2: ; 0x59bc1 + db $08 ; asm + ld a, [$d771] + bit 6, a + jr nz, asm_5cd59 ; 0x59bc7 + ld hl, $5be4 + call PrintText + ld hl, $d771 + set 7, [hl] + jr asm_59625 ; 0x59bd4 +asm_5cd59 ; 0x59bd6 + ld hl, $5be9 + call PrintText + ld hl, $d771 + res 6, [hl] +asm_59625 ; 0x59be1 + jp $24d7 + +INCBIN "baserom.gbc",$59be4,$59bee - $59be4 + +FanClubText3: ; 0x59bee + db $8 + ld hl, $5c00 + call PrintText + ld a, $54 + call $13d0 + call $3748 + jp $24d7 +; 0x59c00 + +INCBIN "baserom.gbc",$59c00,$5 + +FanClubText4: ; 0x59c05 + db $08 ; asm + ld hl, $5c17 + call PrintText + ld a,SEEL + call $13d0 + call $3748 + jp $24d7 + +INCBIN "baserom.gbc",$59c17,$59c1c - $59c17 + +FanClubText5: ; 0x59c1c + db $08 ; asm + call $5b73 + jr nz, asm_38bb3 ; 0x59c20 + ld hl, $5c65 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, asm_2c8d7 ; 0x59c2f + ld hl, $5c6a + call PrintText + ld bc,(BIKE_VOUCHER << 8) | 1 + call $3e2e + jr nc, asm_867d4 ; 0x59c3d + ld hl, $5c6f + call PrintText + ld hl, $d771 + set 1, [hl] + jr asm_d3c26 ; 0x59c4a +asm_867d4 ; 0x59c4c + ld hl, $5c83 + call PrintText + jr asm_d3c26 ; 0x59c52 +asm_2c8d7 ; 0x59c54 + ld hl, $5c79 + call PrintText + jr asm_d3c26 ; 0x59c5a +asm_38bb3 ; 0x59c5c + ld hl, $5c7e + call PrintText +asm_d3c26 ; 0x59c62 + jp $24d7 + +INCBIN "baserom.gbc",$59c65,$59c88 - $59c65 + +FanClubText6: + TX_FAR _FanClubText6 + db $50 + +FanClubText7: + TX_FAR _FanClubText7 + db $50 + +FanClubText8: ; 0x59c92 + TX_FAR _FanClubText8 + db $50 + +FanClubObject: ; 0x59c97 (size=62) + db $d ; border tile + + db $2 ; warps + db $7, $2, $1, $ff + db $7, $3, $1, $ff + + db $2 ; signs + db $0, $1, $7 ; FanClubText7 + db $0, $6, $8 ; FanClubText8 + + db $6 ; people + db SPRITE_FISHER2, $3 + 4, $6 + 4, $ff, $d2, $1 ; person + db SPRITE_GIRL, $3 + 4, $1 + 4, $ff, $d3, $2 ; person + db SPRITE_CLEFAIRY, $4 + 4, $6 + 4, $ff, $d2, $3 ; person + db SPRITE_SEEL, $4 + 4, $1 + 4, $ff, $d3, $4 ; person + db SPRITE_GENTLEMAN, $1 + 4, $3 + 4, $ff, $d0, $5 ; person + db SPRITE_CABLE_CLUB_WOMAN, $1 + 4, $5 + 4, $ff, $d0, $6 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +FanClubBlocks: ; 16 + INCBIN "maps/fanclub.blk" + +SilphCo2_h: ; 0x59ce5 to 0x59cf1 (12 bytes) (id=207) + db $16 ; tileset + db $09, $0f ; dimensions (y, x) + dw SilphCo2Blocks, SilphCo2Texts, SilphCo2Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo2Object ; objects + +SilphCo2Script: ; 0x59cf1 + call $5d07 + call $3c3c + ld hl, $5d90 + ld de, $5d80 + ld a, [$d643] + call $3160 + ld [$d643], a + ret +; 0x59d07 + +INCBIN "baserom.gbc",$59d07,$7f + +SilphCo2Texts: ; 0x59d86 + dw SilphCo2Text1, SilphCo2Text2, SilphCo2Text3, SilphCo2Text4, SilphCo2Text5 + +INCBIN "baserom.gbc",$59d90,$31 + +SilphCo2Text1: ; 0x59dc1 + db $08 ; asm + ld a, [$d826] + bit 7, a + jr nz, asm_b8a0d ; 0x59dc7 + ld hl, $5ded + call PrintText + ld bc,(TM_36 << 8) | 1 + call $3e2e + ld hl, $5dfd + jr nc, asm_2c1e0 ; 0x59dd8 + ld hl, $d826 + set 7, [hl] + ld hl, $5df2 + jr asm_2c1e0 ; 0x59de2 +asm_b8a0d ; 0x59de4 + ld hl, $5df8 +asm_2c1e0 ; 0x59de7 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$59ded,$59e02 - $59ded + +SilphCo2Text2: ; 0x59e02 + db $08 ; asm + ld hl, $5d90 + call LoadTrainerHeader + jp $24d7 + +SilphCo2Text3: ; 0x59e0c + db $08 ; asm + ld hl, $5d9c + call LoadTrainerHeader + jp $24d7 + +SilphCo2Text4: ; 0x59e16 + db $08 ; asm + ld hl, $5da8 + call LoadTrainerHeader + jp $24d7 + +SilphCo2Text5: ; 0x59e20 + db $08 ; asm + ld hl, $5db4 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$59e2a,$3c + +SilphCo2Object: ; 0x59e66 (size=98) + db $2e ; border tile + + db $7 ; warps + db $0, $18, $2, SILPH_CO_1F + db $0, $1a, $0, SILPH_CO_3F + db $0, $14, $0, SILPH_CO_ELEVATOR + db $3, $3, $6, SILPH_CO_3F + db $3, $d, $4, SILPH_CO_8F + db $f, $1b, $5, SILPH_CO_8F + db $f, $9, $4, SILPH_CO_6F + + db $0 ; signs + + db $5 ; people + db SPRITE_ERIKA, $1 + 4, $a + 4, $ff, $d1, $1 ; person + db SPRITE_OAK_AIDE, $c + 4, $5 + 4, $ff, $d0, $42, SCIENTIST + $C8, $2 ; trainer + db SPRITE_OAK_AIDE, $d + 4, $18 + 4, $ff, $d2, $43, SCIENTIST + $C8, $3 ; trainer + db SPRITE_ROCKET, $b + 4, $10 + 4, $ff, $d1, $44, ROCKET + $C8, $17 ; trainer + db SPRITE_ROCKET, $7 + 4, $18 + 4, $ff, $d1, $45, ROCKET + $C8, $18 ; trainer + + ; warp-to + EVENT_DISP $f, $0, $18 ; SILPH_CO_1F + EVENT_DISP $f, $0, $1a ; SILPH_CO_3F + EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR + EVENT_DISP $f, $3, $3 ; SILPH_CO_3F + EVENT_DISP $f, $3, $d ; SILPH_CO_8F + EVENT_DISP $f, $f, $1b ; SILPH_CO_8F + EVENT_DISP $f, $f, $9 ; SILPH_CO_6F + +SilphCo2Blocks: ; 135 + INCBIN "maps/silphco2.blk" + +SilphCo3_h: ; 0x59f4f to 0x59f5b (12 bytes) (id=208) + db $16 ; tileset + db $09, $0f ; dimensions (y, x) + dw SilphCo3Blocks, SilphCo3Texts, SilphCo3Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo3Object ; objects + +SilphCo3Script: ; 0x59f5b + call $5f71 + call $3c3c + ld hl, $5fcc + ld de, $5fbe + ld a, [$d644] + call $3160 + ld [$d644], a + ret +; 0x59f71 + +INCBIN "baserom.gbc",$59f71,$53 + +SilphCo3Texts: ; 0x59fc4 + dw SilphCo3Text1, SilphCo3Text2, SilphCo3Text3, SilphCo3Text4 + +INCBIN "baserom.gbc",$59fcc,$19 + +SilphCo3Text1: ; 0x59fe5 + db $08 ; asm + ld a, [$d838] + bit 7, a + ld hl, $5ffe + jr nz, asm_8c56f ; 0x59fee + ld hl, $5ff9 +asm_8c56f ; 0x59ff3 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$59ff9,$5a003 - $59ff9 + +SilphCo3Text2: ; 0x5a003 + db $08 ; asm + ld hl, $5fcc + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5a00d,$5a01c - $5a00d + +SilphCo3Text3: ; 0x5a01c + db $08 ; asm + ld hl, $5fd8 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5a026,$f + +SilphCo3Object: ; 0x5a035 (size=113) + db $2e ; border tile + + db $a ; warps + db $0, $1a, $1, SILPH_CO_2F + db $0, $18, $0, SILPH_CO_4F + db $0, $14, $0, SILPH_CO_ELEVATOR + db $b, $17, $9, SILPH_CO_3F + db $3, $3, $5, SILPH_CO_5F + db $f, $3, $6, SILPH_CO_5F + db $3, $1b, $3, SILPH_CO_2F + db $b, $3, $3, SILPH_CO_9F + db $b, $b, $4, SILPH_CO_7F + db $f, $1b, $3, SILPH_CO_3F + + db $0 ; signs + + db $4 ; people + db SPRITE_LAPRAS_GIVER, $8 + 4, $18 + 4, $ff, $ff, $1 ; person + db SPRITE_ROCKET, $7 + 4, $14 + 4, $ff, $d2, $42, ROCKET + $C8, $19 ; trainer + db SPRITE_OAK_AIDE, $9 + 4, $7 + 4, $ff, $d0, $43, SCIENTIST + $C8, $4 ; trainer + db SPRITE_BALL, $5 + 4, $8 + 4, $ff, $ff, $84, HYPER_POTION ; item + + ; warp-to + EVENT_DISP $f, $0, $1a ; SILPH_CO_2F + EVENT_DISP $f, $0, $18 ; SILPH_CO_4F + EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR + EVENT_DISP $f, $b, $17 ; SILPH_CO_3F + EVENT_DISP $f, $3, $3 ; SILPH_CO_5F + EVENT_DISP $f, $f, $3 ; SILPH_CO_5F + EVENT_DISP $f, $3, $1b ; SILPH_CO_2F + EVENT_DISP $f, $b, $3 ; SILPH_CO_9F + EVENT_DISP $f, $b, $b ; SILPH_CO_7F + EVENT_DISP $f, $f, $1b ; SILPH_CO_3F + +SilphCo3Blocks: ; 135 + INCBIN "maps/silphco3.blk" + +SilphCo10_h: ; 0x5a12d to 0x5a139 (12 bytes) (id=234) + db $16 ; tileset + db $09, $08 ; dimensions (y, x) + dw SilphCo10Blocks, SilphCo10Texts, SilphCo10Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo10Object ; objects + +SilphCo10Script: ; 0x5a139 + call $614f + call $3c3c + ld hl, $6192 + ld de, $6180 + ld a, [$d658] + call $3160 + ld [$d658], a + ret +; 0x5a14f + +INCBIN "baserom.gbc",$5a14f,$37 + +SilphCo10Texts: ; 0x5a186 + dw SilphCo10Text1, SilphCo10Text2, SilphCo10Text3, SilphCo10Text4, SilphCo10Text5, SilphCo10Text6 + +INCBIN "baserom.gbc",$5a192,$19 + +SilphCo10Text1: ; 0x5a1ab + db $08 ; asm + ld hl, $6192 + call LoadTrainerHeader + jp $24d7 + +SilphCo10Text2: ; 0x5a1b5 + db $08 ; asm + ld hl, $619e + call LoadTrainerHeader + jp $24d7 + +SilphCo10Text3: ; 0x5a1bf + db $08 ; asm + ld a, [$d838] + bit 7, a + ld hl, $61d8 + jr nz, asm_cf85f ; 0x5a1c8 + ld hl, $61d3 +asm_cf85f ; 0x5a1cd + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$5a1d3,$28 + +SilphCo10Object: ; 0x5a1fb (size=95) + db $2e ; border tile + + db $6 ; warps + db $0, $8, $0, SILPH_CO_9F + db $0, $a, $0, SILPH_CO_11F + db $0, $c, $0, SILPH_CO_ELEVATOR + db $b, $9, $3, SILPH_CO_4F + db $f, $d, $5, SILPH_CO_4F + db $7, $d, $6, SILPH_CO_4F + + db $0 ; signs + + db $6 ; people + db SPRITE_ROCKET, $9 + 4, $1 + 4, $ff, $d3, $41, ROCKET + $C8, $27 ; trainer + db SPRITE_OAK_AIDE, $2 + 4, $a + 4, $ff, $d2, $42, SCIENTIST + $C8, $b ; trainer + db SPRITE_ERIKA, $f + 4, $9 + 4, $fe, $0, $3 ; person + db SPRITE_BALL, $c + 4, $2 + 4, $ff, $ff, $84, TM_26 ; item + db SPRITE_BALL, $e + 4, $4 + 4, $ff, $ff, $85, RARE_CANDY ; item + db SPRITE_BALL, $b + 4, $5 + 4, $ff, $ff, $86, CARBOS ; item + + ; warp-to + EVENT_DISP $8, $0, $8 ; SILPH_CO_9F + EVENT_DISP $8, $0, $a ; SILPH_CO_11F + EVENT_DISP $8, $0, $c ; SILPH_CO_ELEVATOR + EVENT_DISP $8, $b, $9 ; SILPH_CO_4F + EVENT_DISP $8, $f, $d ; SILPH_CO_4F + EVENT_DISP $8, $7, $d ; SILPH_CO_4F + +SilphCo10Blocks: ; 72 + INCBIN "maps/silphco10.blk" + +Lance_h: ; 0x5a2a2 to 0x5a2ae (12 bytes) (id=113) + db $05 ; tileset + db $0d, $0d ; dimensions (y, x) + dw LanceBlocks, LanceTexts, LanceScript ; blocks, texts, scripts + db $00 ; connections + + dw LanceObject ; objects + +LanceScript: ; 0x5a2ae + call $62c4 + call $3c3c + ld hl, $6397 + ld de, $62fa + ld a, [$d653] + call $3160 + ld [$d653], a + ret +; 0x5a2c4 + +INCBIN "baserom.gbc",$5a2c4,$d1 + +LanceTexts: ; 0x5a395 + dw LanceText1 + +INCBIN "baserom.gbc",$5a397,$d + +LanceText1: ; 0x5a3a4 + db $08 ; asm + ld hl, $6397 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5a3ae,$17 + +LanceObject: ; 0x5a3c5 (size=36) + db $3 ; border tile + + db $3 ; warps + db $10, $18, $2, AGATHAS_ROOM + db $0, $5, $0, CHAMPIONS_ROOM + db $0, $6, $0, CHAMPIONS_ROOM + + db $0 ; signs + + db $1 ; people + db SPRITE_LANCE, $1 + 4, $6 + 4, $ff, $d0, $41, LANCE + $C8, $1 ; trainer + + ; warp-to + EVENT_DISP $d, $10, $18 ; AGATHAS_ROOM + EVENT_DISP $d, $0, $5 ; CHAMPIONS_ROOM + EVENT_DISP $d, $0, $6 ; CHAMPIONS_ROOM + +LanceBlocks: ; 169 + INCBIN "maps/lance.blk" + +HallofFameRoom_h: ; 0x5a492 to 0x5a49e (12 bytes) (id=118) + db $07 ; tileset + db $04, $05 ; dimensions (y, x) + dw HallofFameRoomBlocks, HallofFameRoomTexts, HallofFameRoomScript ; blocks, texts, scripts + db $00 ; connections + + dw HallofFameRoomObject ; objects + +HallofFameRoomScript: ; 0x5a49e + call $3c3c + ld hl, $64b2 + ld a, [$d64b] + jp $3d97 +; 0x5a4aa + +INCBIN "baserom.gbc",$5a4aa,$5a4b2 - $5a4aa + +HallofFameRoomScripts: ; 0x5a4b2 + dw HallofFameRoomScript0, HallofFameRoomScript1, HallofFameRoomScript2 + +INCBIN "baserom.gbc",$5a4b8,$3 + +HallofFameRoomScript2: ; 0x5a4bb + call Delay3 + ld a, [$d358] + push af + xor a + ld [$cd6b], a + ld a, $55 + call Predef + pop af + ld [$d358], a + ld hl, $d733 + res 1, [hl] + inc hl + set 0, [hl] + xor a + ld hl, $d64d + ld [hli], a + ld [hli], a + ld [hl], a + ld [$d653], a + ld [$d64b], a + ld hl, $d863 + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hl], a + xor a + ld [$d64b], a + ld a, $0 + ld [$d719], a + ld b, $1c + ld hl, $7848 + call Bankswitch + ld b, $5 +.asm_5a4ff + ld c, $78 + call $3739 + dec b + jr nz, .asm_5a4ff ; 0x5a505 $f8 + call $3865 + jp $1f54 +; 0x5a50d + +HallofFameRoomScript0: ; 0x5a50d + ld a, $ff + ld [$cd6b], a + ld hl, $ccd3 + ld de, $6528 + call $350c + dec a + ld [$cd38], a + call $3486 + ld a, $1 + ld [$d64b], a + ret +; 0x5a528 + +INCBIN "baserom.gbc",$5a528,$5a52b - $5a528 + +HallofFameRoomScript1: ; 0x5a52b + ld a, [$cd38] + and a + ret nz + ld a, $1 + ld [$d528], a + ld a, $1 + ld [$ff00+$8c], a + call $3541 + ld a, $8 + ld [$ff00+$8d], a + call $34a6 + call Delay3 + xor a + ld [$cd6b], a + inc a + ld [$d528], a + ld a, $1 + ld [$ff00+$8c], a + call $2920 + ld a, $ff + ld [$cd6b], a + ld a, $8 + ld [$cc4d], a + ld a, $11 + call Predef + ld a, $2 + ld [$d64b], a + ret +; 0x5a56a + +HallofFameRoomTexts: ; 0x5a56a + dw HallofFameRoomText1 + +HallofFameRoomText1: ; 0x5a56c + TX_FAR _HallofFameRoomText1 + db $50 + +HallofFameRoomObject: ; 0x5a571 (size=26) + db $3 ; border tile + + db $2 ; warps + db $7, $4, $2, CHAMPIONS_ROOM + db $7, $5, $3, CHAMPIONS_ROOM + + db $0 ; signs + + db $1 ; people + db SPRITE_OAK, $2 + 4, $5 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $5, $7, $4 ; CHAMPIONS_ROOM + EVENT_DISP $5, $7, $5 ; CHAMPIONS_ROOM + +HallofFameRoomBlocks: ; 20 + INCBIN "maps/halloffameroom.blk" + +INCBIN "baserom.gbc",$5a59f,$1a61 + +SECTION "bank17",DATA,BANK[$17] + +VermilionMartBlocks: ; 16 + INCBIN "maps/vermilionmart.blk" + +RedsHouse2FBlocks: + INCBIN "maps/redshouse2f.blk" + +MuseumF1Blocks: ; 40 + INCBIN "maps/museumf1.blk" + +MuseumF2Blocks: ; 28 + INCBIN "maps/museumf2.blk" + +PewterPokecenterBlocks: ; 28 + INCBIN "maps/pewterpokecenter.blk" + +UndergroundTunnelEntranceRoute5Blocks: ; 16 + INCBIN "maps/undergroundtunnelentranceroute5.blk" + +ViridianForestexitBlocks: ; 20 + INCBIN "maps/viridianforestexit.blk" + +RedsHouse2F_h: + db $04 ; tileset + db $04,$04 ; dimensions + dw RedsHouse2FBlocks, RedsHouse2FTexts, RedsHouse2FScript + db 0 ; no connections + dw RedsHouse2FObject + +RedsHouse2FScript: + call $3C3C + ld hl,RedsHouse2FScriptPointers + ld a,[$D60C] + jp $3D97 + +RedsHouse2FScriptPointers: + dw RedsHouse2FScript1,RedsHouse2FScript2 + +RedsHouse2FScript1: + xor a + ld [$FFB4],a + ld a,8 + ld [$D528],a + ld a,1 + ld [$D60C],a + ret + +RedsHouse2FScript2: + ret + +RedsHouse2FTexts: + db "@" + +RedsHouse2FObject: + db $0A ; border tile + + db 1 ; warps + db 1,7,2,$25 + + db 0 ; signs + + db 0 ; people + + dw $C6EF + 4 + (4 + 6) * 0 + 3 + db 1,7 + +INCBIN "baserom.gbc",$5c0dc,$5c0eb - $5c0dc + +MuseumF1_h: ; 0x5c0eb to 0x5c0f7 (12 bytes) (id=52) + db $0a ; tileset + db $04, $0a ; dimensions (y, x) + dw MuseumF1Blocks, MuseumF1Texts, MuseumF1Script ; blocks, texts, scripts + db $00 ; connections + + dw MuseumF1Object ; objects + +MuseumF1Script: ; 0x5c0f7 + ld a, $1 + ld [$cf0c], a + xor a + ld [$cc3c], a + ld hl, $4109 + ld a, [$d619] + jp $3d97 +; 0x5c109 + +MuseumF1Scripts: ; 0x5c109 + dw MuseumF1Script0, MuseumF1Script1 + +MuseumF1Script0: ; 0x5c10d + ld a, [$d361] + cp $4 + ret nz + ld a, [$d362] + cp $9 + jr z, .asm_5c120 ; 0x5c118 $6 + ld a, [$d362] + cp $a + ret nz +.asm_5c120 + xor a + ld [$ff00+$b4], a + ld a, $1 + ld [$ff00+$8c], a + jp $2920 +; 0x5c12a + +MuseumF1Script1: ; 0x5c12a + ret +; 0x5c12b + +MuseumF1Texts: ; 0x5c12b + dw MuseumF1Text1, MuseumF1Text2, MuseumF1Text3, MuseumF1Text4, MuseumF1Text5 + +MuseumF1Text1: ; 0x5c135 + db $8 + ld a, [$d361] + cp $4 + jr nz, asm_8774b ; 0x5c13b $a + ld a, [$d362] + cp $d + jp z, $41f9 + jr asm_b8709 ; 0x5c145 $1c +asm_8774b: ; 0x5c147 + cp $3 + jr nz, asm_d49e7 ; 0x5c149 $8 + ld a, [$d362] + cp $c + jp z, $41f9 +asm_d49e7: ; 0x5c153 + ld a, [$d754] + bit 0, a + jr nz, asm_31a16 ; 0x5c158 $10 + ld hl, $423d + call PrintText + jp $4217 +asm_b8709: ; 0x5c163 + ld a, [$d754] + bit 0, a + jr z, asm_3ded4 ; 0x5c168 $9 +asm_31a16: ; 0x5c16a + ld hl, $4242 + call PrintText + jp $4217 +asm_3ded4: ; 0x5c173 + ld a, $13 + ld [$d125], a + call $30e8 + xor a + ld [$ff00+$b4], a + ld hl, $421f + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, asm_de133 ; 0x5c18b $4d + xor a + ld [$ff00+$9f], a + ld [$ff00+$a0], a + ld a, $50 + ld [$ff00+$a1], a + call $35a6 + jr nc, asm_0f3e3 ; 0x5c199 $9 + ld hl, $4229 + call PrintText + jp $41da +asm_0f3e3: ; 0x5c1a4 + ld hl, $4224 + call PrintText + ld hl, $d754 + set 0, [hl] + xor a + ld [$cd3d], a + ld [$cd3e], a + ld a, $50 + ld [$cd3f], a + ld hl, $cd3f + ld de, $d349 + ld c, $3 + ld a, $c + call Predef + ld a, $13 + ld [$d125], a + call $30e8 + ld a, $b2 + call $3740 + call $3748 + jr asm_0b094 ; 0x5c1d8 $18 +asm_de133: ; 0x5c1da + ld hl, $421a + call PrintText + ld a, $1 + ld [$cd38], a + ld a, $80 + ld [$ccd3], a + call $3486 + call $2429 + jr asm_d1145 ; 0x5c1f0 $25 +asm_0b094: ; 0x5c1f2 + ld a, $1 + ld [$d619], a + jr asm_d1145 ; 0x5c1f7 $1e +;XXX what calls this? + ld hl, $422e + call PrintText + call $35ec + ld a, [$cc26] + cp $0 + jr nz, asm_d1144 + ld hl, $4233 + call PrintText + jr asm_d1145 ; 0x5c20f $6 +asm_d1144: + ld hl, $4238 + call PrintText +asm_d1145: ; 0x5c217 + jp $24d7 +; 0x5c21a + +INCBIN "baserom.gbc",$5c21a,$2d + +MuseumF1Text2: ; 0x5c247 + db $08 ; asm + ld hl, $4251 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$5c251,$5c256 - $5c251 + +MuseumF1Text3: ; 0x5c256 + db $08 ; asm + ld a, [$d754] + bit 1, a + jr nz, .asm_16599 ; 0x5c25c + ld hl, $428e + call PrintText + ld bc,(OLD_AMBER << 8) | 1 + call $3e2e + jr nc, .asm_91ebf ; 0x5c26a + ld hl, $d754 + set 1, [hl] + ld a, $34 + ld [$cc4d], a + ld a, $11 + call Predef + ld hl, $4293 + jr .asm_52e0f ; 0x5c27e +.asm_91ebf ; 0x5c280 + ld hl, $429e + jr .asm_52e0f ; 0x5c283 +.asm_16599 ; 0x5c285 + ld hl, $4299 +.asm_52e0f ; 0x5c288 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$5c28e,$5c2a3 - $5c28e + +MuseumF1Text4: ; 0x5c2a3 + db $08 ; asm + ld hl, $42ad + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$5c2ad,$5c2b2 - $5c2ad + +MuseumF1Text5: ; 0x5c2b2 + db $08 ; asm + ld hl, $42bc + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$5c2bc,$5 + +MuseumF1Object: ; 0x5c2c1 (size=74) + db $a ; border tile + + db $5 ; warps + db $7, $a, $0, $ff + db $7, $b, $0, $ff + db $7, $10, $1, $ff + db $7, $11, $1, $ff + db $7, $7, $0, MUSEUM_2F + + db $0 ; signs + + db $5 ; people + db SPRITE_OAK_AIDE, $4 + 4, $c + 4, $ff, $d2, $1 ; person + db SPRITE_GAMBLER, $4 + 4, $1 + 4, $ff, $ff, $2 ; person + db SPRITE_OAK_AIDE, $2 + 4, $f + 4, $ff, $d0, $3 ; person + db SPRITE_OAK_AIDE, $4 + 4, $11 + 4, $ff, $ff, $4 ; person + db SPRITE_OLD_AMBER, $2 + 4, $10 + 4, $ff, $ff, $5 ; person + + ; warp-to + EVENT_DISP $a, $7, $a + EVENT_DISP $a, $7, $b + EVENT_DISP $a, $7, $10 + EVENT_DISP $a, $7, $11 + EVENT_DISP $a, $7, $7 ; MUSEUM_2F + +MuseumF2_h: ; 0x5c30b to 0x5c317 (12 bytes) (id=53) + db $0a ; tileset + db $04, $07 ; dimensions (y, x) + dw MuseumF2Blocks, MuseumF2Texts, MuseumF2Script ; blocks, texts, scripts + db $00 ; connections + + dw MuseumF2Object ; objects + +MuseumF2Script: ; 0x5c317 + jp $3c3c +; 0x5c31a + +MuseumF2Texts: ; 0x5c31a + dw MuseumF2Text1, MuseumF2Text2, MuseumF2Text3, MuseumF2Text4, MuseumF2Text5, MuseumF2Text6, MuseumF2Text7 + +MuseumF2Text1: ; 0x5c328 + TX_FAR _MuseumF2Text1 + db $50 + +MuseumF2Text2: ; 0x5c32d + TX_FAR _MuseumF2Text2 + db $50 + +MuseumF2Text3: ; 0x5c332 + TX_FAR _MuseumF2Text3 + db $50 + +MuseumF2Text4: ; 0x5c337 + TX_FAR _MuseumF2Text4 + db $50 + +MuseumF2Text5: ; 0x5c33c + TX_FAR _MuseumF2Text5 + db $50 + +MuseumF2Text6: ; 0x5c341 + TX_FAR _MuseumF2Text6 + db $50 + +MuseumF2Text7: ; 0x5c346 + TX_FAR _MuseumF2Text7 + db $50 + +MuseumF2Object: ; 0x5c34b (size=48) + db $a ; border tile + + db $1 ; warps + db $7, $7, $4, MUSEUM_1F + + db $2 ; signs + db $2, $b, $6 ; MuseumF2Text6 + db $5, $2, $7 ; MuseumF2Text7 + + db $5 ; people + db SPRITE_BUG_CATCHER, $7 + 4, $1 + 4, $fe, $2, $1 ; person + db SPRITE_OLD_PERSON, $5 + 4, $0 + 4, $ff, $d0, $2 ; person + db SPRITE_OAK_AIDE, $5 + 4, $7 + 4, $ff, $d0, $3 ; person + db SPRITE_BRUNETTE_GIRL, $5 + 4, $b + 4, $ff, $ff, $4 ; person + db SPRITE_HIKER, $5 + 4, $c + 4, $ff, $d0, $5 ; person + + ; warp-to + EVENT_DISP $7, $7, $7 ; MUSEUM_1F + +PewterGym_h: ; 0x5c37b to 0x5c387 (12 bytes) (id=54) + db $07 ; tileset + db $07, $05 ; dimensions (y, x) + dw PewterGymBlocks, PewterGymTexts, PewterGymScript ; blocks, texts, scripts + db $00 ; connections + + dw PewterGymObject ; objects + +PewterGymScript: ; 0x5c387 + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + call nz, $43a4 + call $3c3c + ld hl, $4441 + ld de, $43ca + ld a, [$d5fc] + call $3160 + ld [$d5fc], a + ret +; 0x5c3a4 + +INCBIN "baserom.gbc",$5c3a4,$91 + +PewterGymTexts: ; 0x5c435 + dw PewterGymText1, PewterGymText2, PewterGymText3, PewterGymText4, PewterGymText5, PewterGymText6 + +INCBIN "baserom.gbc",$5c43b + 6,$13 - 6 + +PewterGymText1: ; 0x5c44e + db $08 ; asm + ld a, [$d755] + bit 7, a + jr z, .asm_4a735 ; 0x5c454 + bit 6, a + jr nz, .asm_ff7d0 ; 0x5c458 + call z, $43df + call $30b6 + jr .asm_e0ffb ; 0x5c460 +.asm_ff7d0 ; 0x5c462 + ld hl, $44a3 + call PrintText + jr .asm_e0ffb ; 0x5c468 +.asm_4a735 ; 0x5c46a + ld hl, $449e + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $44bc + ld de, $44bc + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $1 + ld [$d05c], a + xor a + ldh [$b4], a + ld a, $3 + ld [$d5fc], a + ld [$da39], a +.asm_e0ffb ; 0x5c49b + jp $24d7 + +INCBIN "baserom.gbc",$5c49e,$5c4a8 - $5c49e + +PewterGymText4: ; 0x5c4a8 +INCBIN "baserom.gbc",$5c4a8,5 + +PewterGymText5: ; 0x5c4ad +INCBIN "baserom.gbc",$5c4ad,6 + +INCBIN "baserom.gbc",$5c4b3,$5c4b7 - $5c4b3 + +PewterGymText6: ; 0x5c4b7 +INCBIN "baserom.gbc",$5c4b7,5 + +INCBIN "baserom.gbc",$5c4bc,$5c4c6 - $5c4bc + +PewterGymText2: ; 0x5c4c6 + db $08 ; asm + ld hl, $4441 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5c4d0,$5c4df - $5c4d0 + +PewterGymText3: ; 0x5c4df + db $08 ; asm + ld a, [$d72a] + bit 0, a + jr nz, .asm_71369 ; 0x5c4e5 + ld hl, $4515 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_6123a ; 0x5c4f4 + ld hl, $451a + call PrintText + jr .asm_d1578 ; 0x5c4fc +.asm_6123a ; 0x5c4fe + ld hl, $4524 + call PrintText +.asm_d1578 ; 0x5c504 + ld hl, $451f + call PrintText + jr .asm_07013 ; 0x5c50a +.asm_71369 ; 0x5c50c + ld hl, $4529 + call PrintText +.asm_07013 ; 0x5c512 + jp $24d7 + +INCBIN "baserom.gbc",$5c515,$19 + +PewterGymObject: ; 0x5c52e (size=42) + db $3 ; border tile + + db $2 ; warps + db $d, $4, $2, $ff + db $d, $5, $2, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_BLACK_HAIR_BOY_2, $1 + 4, $4 + 4, $ff, $d0, $41, BROCK + $C8, $1 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $6 + 4, $3 + 4, $ff, $d3, $42, JR__TRAINER_M + $C8, $1 ; trainer + db SPRITE_GYM_HELPER, $a + 4, $7 + 4, $ff, $d0, $3 ; person + + ; warp-to + EVENT_DISP $5, $d, $4 + EVENT_DISP $5, $d, $5 + +PewterGymBlocks: ; 35 + INCBIN "maps/pewtergym.blk" + +PewterPokecenter_h: ; 0x5c57b to 0x5c587 (12 bytes) (id=58) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw PewterPokecenterBlocks, $458d, PewterPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw PewterPokecenterObject ; objects + +PewterPokecenterScript: ; 0x5c587 + call $22fa + jp $3c3c +; 0x5c58d + +INCBIN "baserom.gbc",$5c58d,$9 + +PewterPokecenterText2: +PewterPokecenterText1: ; 0x5c596 + TX_FAR _PewterPokecenterText1 + db $50 + +PewterPokecenterText3: ; 0x5c59b + db $8 + ld a, $1 + ld [$cc3c], a + ld hl, $4603 + call PrintText + ld a, $ff + call $23b1 + ld c, $20 + call $3739 + ld hl, $4608 + ld de, $cd3f + ld bc, $0004 + call CopyData + ld a, [$c132] + ld hl, $cd3f +.asm_5c5c3 + cp [hl] + inc hl + jr nz, .asm_5c5c3 ; 0x5c5c5 $fc + dec hl + push hl + ld c, $1f + ld a, $d0 + call $23a1 + pop hl +.asm_5c5d1 + ld a, [hl] + ld [$c132], a + push hl + ld hl, $cd3f + ld de, $cd3e + ld bc, $0004 + call CopyData + ld a, [$cd3e] + ld [$cd42], a + pop hl + ld c, $18 + call $3739 + ld a, [$c026] + ld b, a + ld a, [$c027] + or b + jr nz, .asm_5c5d1 ; 0x5c5f6 $d9 + ld c, $30 + call $3739 + call $2307 + jp $24d7 +; 0x5c603 + +PewterPokecenterText4: ; broken TX_FAR to _PewterPokecenterText4 + db $17, $44, $47, $26 + db $50 + +;XXX wtf? +db $30, $38, $34, $3c + +PewterPokecenterText5: ; XXX confirm text_id number + db $f6 + +PewterPokecenterObject: ; 0x5c60d (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $6, $ff + db $7, $4, $6, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_GENTLEMAN, $7 + 4, $b + 4, $ff, $d2, $2 ; person + db SPRITE_CLEFAIRY, $3 + 4, $1 + 4, $ff, $d0, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +CeruleanPokecenter_h: ; 0x5c639 to 0x5c645 (12 bytes) (id=64) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw CeruleanPokecenterBlocks, $464b, CeruleanPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw CeruleanPokecenterObject ; objects + +CeruleanPokecenterScript: ; 0x5c645 + call $22fa + jp $3c3c +; 0x5c64b + +INCBIN "baserom.gbc",$5c64b,$8 + +CeruleanPokecenterText4: + db $f6, $ff + +CeruleanPokecenterText2: +CeruleanPokecenterText1: ; 0x5c655 + TX_FAR _CeruleanPokecenterText1 + db $50 + +CeruleanPokecenterText3: + TX_FAR _CeruleanPokecenterText3 + db $50 + +CeruleanPokecenterObject: ; 0x5c65f (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $2, $ff + db $7, $4, $2, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $a + 4, $fe, $0, $2 ; person + db SPRITE_GENTLEMAN, $3 + 4, $4 + 4, $ff, $d0, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +CeruleanPokecenterBlocks: ; 28 + INCBIN "maps/ceruleanpokecenter.blk" + +CeruleanGym_h: ; 0x5c6a7 to 0x5c6b3 (12 bytes) (id=65) + db $07 ; tileset + db $07, $05 ; dimensions (y, x) + dw CeruleanGymBlocks, CeruleanGymTexts, CeruleanGymScript ; blocks, texts, scripts + db $00 ; connections + + dw CeruleanGymObject ; objects + +CeruleanGymScript: ; 0x5c6b3 + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + call nz, $46d0 + call $3c3c + ld hl, $4758 + ld de, $46f8 + ld a, [$d5fd] + call $3160 + ld [$d5fd], a + ret +; 0x5c6d0 + +INCBIN "baserom.gbc",$5c6d0,$7a + +CeruleanGymTexts: ; 0x5c74a + dw CeruleanGymText1, CeruleanGymText2, CeruleanGymText3, CeruleanGymText4, CeruleanGymText5, CeruleanGymText6, CeruleanGymText7 + +INCBIN "baserom.gbc",$5c752 + 6,$1f - 6 + +CeruleanGymText1: ; 0x5c771 + db $08 ; asm + ld a, [$d75e] + bit 7, a + jr z, .asm_10854 ; 0x5c777 + bit 6, a + jr nz, .asm_37a1b ; 0x5c77b + call z, $470d + call $30b6 + jr .asm_95b04 ; 0x5c783 +.asm_37a1b ; 0x5c785 + ld hl, $47c3 + call PrintText + jr .asm_95b04 ; 0x5c78b +.asm_10854 ; 0x5c78d + ld hl, $47be + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $47d8 + ld de, $47d8 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $2 + ld [$d05c], a + xor a + ldh [$b4], a + ld a, $3 + ld [$d5fd], a +.asm_95b04 ; 0x5c7bb + jp $24d7 + +INCBIN "baserom.gbc",$5c7be,$5c7c8 - $5c7be + +CeruleanGymText5: ; 0x5c7c8 +INCBIN "baserom.gbc",$5c7c8,5 + +CeruleanGymText6: ; 0x5c7cd +INCBIN "baserom.gbc",$5c7cd,4 +db $0b +db $50 + +CeruleanGymText7: ; 0x5c7d3 +INCBIN "baserom.gbc",$5c7d3,5 + +INCBIN "baserom.gbc",$5c7d8,$5c7df - $5c7d8 + +CeruleanGymText2: ; 0x5c7df + db $08 ; asm + ld hl, $4758 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5c7e9,$5c7f8 - $5c7e9 + +CeruleanGymText3: ; 0x5c7f8 + db $08 ; asm + ld hl, $4764 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5c802,$5c811 - $5c802 + +CeruleanGymText4: ; 0x5c811 + db $08 ; asm + ld a, [$d75e] + bit 7, a + jr nz, .asm_f80ce ; 0x5c817 + ld hl, $482a + call PrintText + jr .asm_18a31 ; 0x5c81f +.asm_f80ce ; 0x5c821 + ld hl, $482f + call PrintText +.asm_18a31 ; 0x5c827 + jp $24d7 + +INCBIN "baserom.gbc",$5c82a,$a + +CeruleanGymObject: ; 0x5c834 (size=50) + db $3 ; border tile + + db $2 ; warps + db $d, $4, $3, $ff + db $d, $5, $3, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_BRUNETTE_GIRL, $2 + 4, $4 + 4, $ff, $d0, $41, MISTY + $C8, $1 ; trainer + db SPRITE_LASS, $3 + 4, $2 + 4, $ff, $d3, $42, JR__TRAINER_F + $C8, $1 ; trainer + db SPRITE_SWIMMER, $7 + 4, $8 + 4, $ff, $d2, $43, SWIMMER + $C8, $1 ; trainer + db SPRITE_GYM_HELPER, $a + 4, $7 + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $5, $d, $4 + EVENT_DISP $5, $d, $5 + +CeruleanGymBlocks: ; 35 + INCBIN "maps/ceruleangym.blk" + +CeruleanMart_h: ; 0x5c889 to 0x5c895 (12 bytes) (id=67) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw $4000, CeruleanMartTexts, CeruleanMartScript ; blocks, texts, scripts + db $00 ; connections + + dw CeruleanMartObject ; objects + +CeruleanMartScript: ; 0x5c895 + jp $3c3c +; 0x5c898 + +CeruleanMartTexts: ; 0x5c898 + dw CeruleanMartText1, CeruleanMartText2, CeruleanMartText3 + +CeruleanMartText2: ; 0x5c89e + TX_FAR _CeruleanMartText2 + db $50 + +CeruleanMartText3: ; 0x5c8a3 + TX_FAR _CeruleanMartText3 + db $50 + +CeruleanMartObject: ; 0x5c8a8 (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $5, $ff + db $7, $4, $5, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $3 + 4, $fe, $1, $2 ; person + db SPRITE_LASS, $2 + 4, $6 + 4, $fe, $2, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +LavenderPokecenter_h: ; 0x5c8ce to 0x5c8da (12 bytes) (id=141) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw $4064, $48e0, LavenderPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw LavenderPokecenterObject ; objects + +LavenderPokecenterScript: ; 0x5c8da + call $22fa + jp $3c3c +; 0x5c8e0 + +INCBIN "baserom.gbc",$5c8e0,$8 + +LavenderPokecenterText4: + db $f6, $ff + +LavenderPokecenterText2: +LavenderPokecenterText1: ; 0x5c8ea + TX_FAR _LavenderPokecenterText1 + +INCBIN "baserom.gbc",$5c8ee,$5c8ef - $5c8ee + +LavenderPokecenterText3: ; 0x5c8ef + TX_FAR _LavenderPokecenterText3 + db $50 + +LavenderPokecenterObject: ; 0x5c8f4 (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $0, $ff + db $7, $4, $0, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_GENTLEMAN, $3 + 4, $5 + 4, $ff, $ff, $2 ; person + db SPRITE_LITTLE_GIRL, $6 + 4, $2 + 4, $fe, $1, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +LavenderMart_h: ; 0x5c920 to 0x5c92c (12 bytes) (id=150) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw $4000, $492f, LavenderMartScript ; blocks, texts, scripts + db $00 ; connections + + dw LavenderMartObject ; objects + +LavenderMartScript: ; 0x5c92c + jp $3c3c +; 0x5c92f + +LavenderMartTexts: ; 0x5c92f + dw LavenderMartText1, LavenderMartText2, LavenderMartText3 + +LavenderMartText2: ; 0x5c935 + TX_FAR _LavenderMartText2 + db $50 + +LavenderMartText3: ; 0x5c93a + db $08 ; asm + ld a, [$d7e0] + bit 7, a + jr nz, .asm_c88d4 ; 0x5c940 + ld hl, $4953 + call PrintText + jr .asm_6d225 ; 0x5c948 +.asm_c88d4 ; 0x5c94a + ld hl, $4958 + call PrintText +.asm_6d225 ; 0x5c950 + jp $24d7 + +INCBIN "baserom.gbc",$5c953,$a + +LavenderMartObject: ; 0x5c95d (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $3, $ff + db $7, $4, $3, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_BALDING_GUY, $4 + 4, $3 + 4, $ff, $ff, $2 ; person + db SPRITE_BLACK_HAIR_BOY_1, $2 + 4, $7 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +VermilionPokecenter_h: ; 0x5c983 to 0x5c98f (12 bytes) (id=89) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw $4064, $4995, VermilionPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw VermilionPokecenterObject ; objects + +VermilionPokecenterScript: ; 0x5c98f + call $22fa + jp $3c3c +; 0x5c995 + +INCBIN "baserom.gbc",$5c995,$9 + +VermilionPokecenterText2: +VermilionPokecenterText1: ; 0x5c99e + TX_FAR _VermilionPokecenterText1 + db $50 + +VermilionPokecenterText3: ; 0x5c9a3 + TX_FAR _VermilionPokecenterText3 + db $50 + +VermilionPokecenterText4: ; 0x5c9a8 + db $f6 + +VermilionPokecenterObject: ; 0x5c9a9 (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $0, $ff + db $7, $4, $0, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_FISHER, $5 + 4, $a + 4, $ff, $ff, $2 ; person + db SPRITE_SAILOR, $4 + 4, $5 + 4, $ff, $ff, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +VermilionMart_h: ; 0x5c9d5 to 0x5c9e1 (12 bytes) (id=91) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw VermilionMartBlocks, VermilionMartTexts, VermilionMartScript ; blocks, texts, scripts + db $00 ; connections + + dw VermilionMartObject ; objects + +VermilionMartScript: ; 0x5c9e1 + jp $3c3c +; 0x5c9e4 + +VermilionMartTexts: ; 0x5c9e4 + dw VermilionMartText1, VermilionMartText2, VermilionMartText3 + +VermilionMartText2: ; 0x5c9ea + TX_FAR _VermilionMartText2 + db $50 + +VermilionMartText3: ; 0x5c9ef + TX_FAR _VermilionMartText3 + db $50 + +VermilionMartObject: ; 0x5c9f4 (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $2, $ff + db $7, $4, $2, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_BLACK_HAIR_BOY_1, $6 + 4, $5 + 4, $ff, $ff, $2 ; person + db SPRITE_LASS, $3 + 4, $3 + 4, $fe, $2, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +VermilionGym_h: ; 0x5ca1a to 0x5ca26 (12 bytes) (id=92) + db $07 ; tileset + db $09, $05 ; dimensions (y, x) + dw VermilionGymBlocks, VermilionGymTexts, VermilionGymScript ; blocks, texts, scripts + db $00 ; connections + + dw VermilionGymObject ; objects + +VermilionGymScript: ; 0x5ca26 + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + push hl + call nz, $4a4c + pop hl + bit 6, [hl] + res 6, [hl] + call nz, $4a6d + call $3c3c + ld hl, $4af8 + ld de, $4a95 + ld a, [$d5fe] + call $3160 + ld [$d5fe], a + ret +; 0x5ca4c + +INCBIN "baserom.gbc",$5ca4c,$9c + +VermilionGymTexts: ; 0x5cae8 + dw VermilionGymText1, VermilionGymText2, VermilionGymText3, VermilionGymText4, VermilionGymText5, VermilionGymText6, VermilionGymText7, VermilionGymText8 + +INCBIN "baserom.gbc",$5caf8,37 + +VermilionGymText1: ; 0x5cb1d + db $08 ; asm + ld a, [$d773] + bit 7, a + jr z, .asm_7cc29 ; 0x5cb23 + bit 6, a + jr nz, .asm_41203 ; 0x5cb27 + call z, $4aaa + call $30b6 + jr .asm_23621 ; 0x5cb2f +.asm_41203 ; 0x5cb31 + ld hl, $4b72 + call PrintText + jr .asm_23621 ; 0x5cb37 +.asm_7cc29 ; 0x5cb39 + ld hl, $4b6d + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $4b8b + ld de, $4b8b + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $3 + ld [$d05c], a + xor a + ldh [$b4], a + ld a, $3 + ld [$d5fe], a + ld [$da39], a +.asm_23621 ; 0x5cb6a + jp $24d7 + +INCBIN "baserom.gbc",$5cb6d,$5cb77 - $5cb6d + +VermilionGymText6: ; 0x5cb77 +INCBIN "baserom.gbc",$5cb77,5 + +VermilionGymText7: ; 0x5cb7c +INCBIN "baserom.gbc",$5cb7c,5 + +INCBIN "baserom.gbc",$5cb81,5 + +VermilionGymText8: ; 0x5cb86 +INCBIN "baserom.gbc",$5cb86,5 + +INCBIN "baserom.gbc",$5cb8b,5 + +VermilionGymText2: ; 0x5cb90 + db $08 ; asm + ld hl, $4af8 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5cb9a,$5cba9 - $5cb9a + +VermilionGymText3: ; 0x5cba9 + db $08 ; asm + ld hl, $4b04 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5cbb3,$5cbc2 - $5cbb3 + +VermilionGymText4: ; 0x5cbc2 + db $08 ; asm + ld hl, $4b10 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5cbcc,$5cbdb - $5cbcc + +VermilionGymText5: ; 0x5cbdb + db $08 ; asm + ld a, [$d72a] + bit 2, a + jr nz, .asm_13b67 ; 0x5cbe1 + ld hl, $4bf4 + call PrintText + jr .asm_c2b38 ; 0x5cbe9 +.asm_13b67 ; 0x5cbeb + ld hl, $4bf9 + call PrintText +.asm_c2b38 ; 0x5cbf1 + jp $24d7 + +INCBIN "baserom.gbc",$5cbf4,$a + +VermilionGymObject: ; 0x5cbfe (size=58) + db $3 ; border tile + + db $2 ; warps + db $11, $4, $3, $ff + db $11, $5, $3, $ff + + db $0 ; signs + + db $5 ; people + db SPRITE_ROCKER, $1 + 4, $5 + 4, $ff, $d0, $41, LT__SURGE + $C8, $1 ; trainer + db SPRITE_GENTLEMAN, $6 + 4, $9 + 4, $ff, $d2, $42, GENTLEMAN + $C8, $3 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $3 + 4, $ff, $d2, $43, ROCKER + $C8, $1 ; trainer + db SPRITE_SAILOR, $a + 4, $0 + 4, $ff, $d3, $44, SAILOR + $C8, $8 ; trainer + db SPRITE_GYM_HELPER, $e + 4, $4 + 4, $ff, $d0, $5 ; person + + ; warp-to + EVENT_DISP $5, $11, $4 + EVENT_DISP $5, $11, $5 + +VermilionGymBlocks: ; 45 + INCBIN "maps/vermiliongym.blk" + +CopycatsHouseF2_h: ; 0x5cc65 to 0x5cc71 (12 bytes) (id=176) + db $04 ; tileset + db $04, $04 ; dimensions (y, x) + dw $4010, CopycatsHouseF2Texts, CopycatsHouseF2Script ; blocks, texts, scripts + db $00 ; connections + + dw CopycatsHouseF2Object ; objects + +CopycatsHouseF2Script: ; 0x5cc71 + jp $3c3c +; 0x5cc74 + +CopycatsHouseF2Texts: ; 0x5cc74 + dw CopycatsHouseF2Text1, CopycatsHouseF2Text2, CopycatsHouseF2Text3, CopycatsHouseF2Text4, CopycatsHouseF2Text5, CopycatsHouseF2Text6, CopycatsHouseF2Text7 + +CopycatsHouseF2Text1: ; 0x5cc82 + db $08 ; asm + ld a, [$d7af] + bit 0, a + jr nz, .asm_7ccf3 ; 0x5cc88 + ld a, $1 + ld [$cc3c], a + ld hl, $4cd4 + call PrintText + ld b,POKE_DOLL + call $3493 + jr z, .asm_62ecd ; 0x5cc9a + ld hl, $4cd9 + call PrintText + ld bc,(TM_31 << 8) | 1 + call $3e2e + jr nc, .asm_16690 ; 0x5cca8 + ld hl, $4cde + call PrintText + ld a, $33 + ldh [$db], a + ld b, $5 ; BANK(MyFunction) + ld hl, $7f37 ; MyFunction + call Bankswitch + ld hl, $d7af + set 0, [hl] + jr .asm_62ecd ; 0x5ccc1 +.asm_16690 ; 0x5ccc3 + ld hl, $4cee + call PrintText + jr .asm_62ecd ; 0x5ccc9 +.asm_7ccf3 ; 0x5cccb + ld hl, $4ce9 + call PrintText +.asm_62ecd ; 0x5ccd1 + jp $24d7 + +INCBIN "baserom.gbc",$5ccd4,$20 + +CopycatsHouseF2Text2: ; 0x5ccf4 + TX_FAR _CopycatsHouseF2Text2 + db $50 + +CopycatsHouseF2Text5: +CopycatsHouseF2Text4: +CopycatsHouseF2Text3: ; 0x5ccf9 + TX_FAR _CopycatsHouseF2Text3 + db $50 + +CopycatsHouseF2Text6: ; 0x5ccfe + TX_FAR _CopycatsHouseF2Text6 + db $50 + +CopycatsHouseF2Text7: ; 0x5cd03 + db $08 ; asm + ld a, [$c109] + cp $4 + ld hl, $4d1c + jr nz, .asm_399a4 ; 0x5cd0c + ld hl, $4d17 +.asm_399a4 ; 0x5cd11 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$5cd17,$a + +CopycatsHouseF2Object: ; 0x5cd21 (size=48) + db $a ; border tile + + db $1 ; warps + db $1, $7, $2, COPYCATS_HOUSE_1F + + db $2 ; signs + db $5, $3, $6 ; CopycatsHouseF2Text6 + db $1, $0, $7 ; CopycatsHouseF2Text7 + + db $5 ; people + db SPRITE_BRUNETTE_GIRL, $3 + 4, $4 + 4, $fe, $0, $1 ; person + db SPRITE_BIRD, $6 + 4, $4 + 4, $fe, $2, $2 ; person + db SPRITE_SLOWBRO, $1 + 4, $5 + 4, $ff, $d0, $3 ; person + db SPRITE_BIRD, $0 + 4, $2 + 4, $ff, $d0, $4 ; person + db SPRITE_CLEFAIRY, $6 + 4, $1 + 4, $ff, $d3, $5 ; person + + ; warp-to + EVENT_DISP $4, $1, $7 ; COPYCATS_HOUSE_1F + +FightingDojo_h: ; 0x5cd51 to 0x5cd5d (12 bytes) (id=177) + db $05 ; tileset + db $06, $05 ; dimensions (y, x) + dw FightingDojoBlocks, FightingDojoTexts, FightingDojoScript ; blocks, texts, scripts + db $00 ; connections + + dw FightingDojoObject ; objects + +FightingDojoScript: ; 0x5cd5d + call $3c3c + ld hl, $4e13 + ld de, $4d7b + ld a, [$d642] + call $3160 + ld [$d642], a + ret +; 0x5cd70 + +INCBIN "baserom.gbc",$5cd70,$93 + +FightingDojoTexts: ; 0x5ce03 + dw FightingDojoText1, FightingDojoText2, FightingDojoText3, FightingDojoText4, FightingDojoText5, FightingDojoText6, FightingDojoText7, FightingDojoText8 + +INCBIN "baserom.gbc",$5ce13,$31 + +FightingDojoText1: ; 0x5ce44 + db $08 ; asm + ld a, [$d7b1] + bit 0, a + jp nz, $4e7d + bit 1, a + jp nz, $4e85 + ld hl, $4e8e + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $4e93 + ld de, $4e93 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $3 + ld [$d642], a + ld [$da39], a + jr .asm_9dba4 ; 0x5ce7b + ld hl, $4e9d + call PrintText + jr .asm_9dba4 ; 0x5ce83 + ld hl, $4e98 + call PrintText +.asm_9dba4 ; 0x5ce8b + jp $24d7 + +INCBIN "baserom.gbc",$5ce8e,$5ce98 - $5ce8e + +FightingDojoText8: ; 0x5ce98 +INCBIN "baserom.gbc",$5ce98,5 + +INCBIN "baserom.gbc",$5ce9d,5 + +FightingDojoText2: ; 0x5cea2 + db $08 ; asm + ld hl, $4e13 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5ceac,$5cebb - $5ceac + +FightingDojoText3: ; 0x5cebb + db $08 ; asm + ld hl, $4e1f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5cec5,$5ced4 - $5cec5 + +FightingDojoText4: ; 0x5ced4 + db $08 ; asm + ld hl, $4e2b + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5cede,$5ceed - $5cede + +FightingDojoText5: ; 0x5ceed + db $08 ; asm + ld hl, $4e37 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5cef7,$5cf06 - $5cef7 + +FightingDojoText6: ; 0x5cf06 + db $08 ; asm + ld a, [$d7b1] + and $c0 + jr z, .asm_f8e28 ; 0x5cf0c + ld hl, $4f96 + call PrintText + jr .asm_3a2c8 ; 0x5cf14 +.asm_f8e28 ; 0x5cf16 + ld a, $2b + call $349b + ld hl, $4f49 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_3a2c8 ; 0x5cf28 + ld a, [$cf91] + ld b, a + ld c,30 + call GivePokemon + jr nc, .asm_3a2c8 ; 0x5cf33 + ld a, $4a + ld [$cc4d], a + ld a, $11 + call Predef + ld hl, $d7b1 + set 6, [hl] + set 0, [hl] +.asm_3a2c8 ; 0x5cf46 + jp $24d7 + +INCBIN "baserom.gbc",$5cf49,$5cf4e - $5cf49 + +FightingDojoText7: ; 0x5cf4e + db $08 ; asm + ld a, [$d7b1] + and $c0 + jr z, .asm_170a9 ; 0x5cf54 + ld hl, $4f96 + call PrintText + jr .asm_f1f47 ; 0x5cf5c +.asm_170a9 ; 0x5cf5e + ld a, $2c + call $349b + ld hl, $4f91 + call PrintText + call $35ec + ld a, [$cc26] + and a + jr nz, .asm_f1f47 ; 0x5cf70 + ld a, [$cf91] + ld b, a + ld c,30 + call GivePokemon + jr nc, .asm_f1f47 ; 0x5cf7b + ld hl, $d7b1 + set 7, [hl] + set 0, [hl] + ld a, $4b + ld [$cc4d], a + ld a, $11 + call Predef +.asm_f1f47 ; 0x5cf8e + jp $24d7 + +INCBIN "baserom.gbc",$5cf91,$a + +FightingDojoObject: ; 0x5cf9b (size=72) + db $3 ; border tile + + db $2 ; warps + db $b, $4, $1, $ff + db $b, $5, $1, $ff + + db $0 ; signs + + db $7 ; people + db SPRITE_HIKER, $3 + 4, $5 + 4, $ff, $d0, $41, BLACKBELT + $C8, $1 ; trainer + db SPRITE_HIKER, $4 + 4, $3 + 4, $ff, $d3, $42, BLACKBELT + $C8, $2 ; trainer + db SPRITE_HIKER, $6 + 4, $3 + 4, $ff, $d3, $43, BLACKBELT + $C8, $3 ; trainer + db SPRITE_HIKER, $5 + 4, $5 + 4, $ff, $d2, $44, BLACKBELT + $C8, $4 ; trainer + db SPRITE_HIKER, $7 + 4, $5 + 4, $ff, $d2, $45, BLACKBELT + $C8, $5 ; trainer + db SPRITE_BALL, $1 + 4, $4 + 4, $ff, $ff, $6 ; person + db SPRITE_BALL, $1 + 4, $5 + 4, $ff, $ff, $7 ; person + + ; warp-to + EVENT_DISP $5, $b, $4 + EVENT_DISP $5, $b, $5 + +FightingDojoBlocks: ; 30 + INCBIN "maps/fightingdojo.blk" + +SaffronGym_h: ; 0x5d001 to 0x5d00d (12 bytes) (id=178) + db $16 ; tileset + db $09, $0a ; dimensions (y, x) + dw SaffronGymBlocks, SaffronGymTexts, SaffronGymScript ; blocks, texts, scripts + db $00 ; connections + + dw SaffronGymObject ; objects + +SaffronGymScript: ; 0x5d00d + ld hl, $d126 + bit 6, [hl] + res 6, [hl] + call nz, $502a + call $3c3c + ld hl, $50c3 + ld de, $5053 + ld a, [$d65c] + call $3160 + ld [$d65c], a + ret +; 0x5d02a + +INCBIN "baserom.gbc",$5d02a,$81 + +SaffronGymTexts: ; 0x5d0ab + dw SaffronGymText1, SaffronGymText2, SaffronGymText3, SaffronGymText4, SaffronGymText5, SaffronGymText6, SaffronGymText7, SaffronGymText8, SaffronGymText9, SaffronGymText10, SaffronGymText11, SaffronGymText12 + +INCBIN "baserom.gbc",$5d0bd + 6,$5b - 6 + +SaffronGymText1: ; 0x5d118 + db $08 ; asm + ld a, [$d7b3] + bit 1, a + jr z, .asm_e3544 ; 0x5d11e + bit 0, a + jr nz, .asm_8d2f6 ; 0x5d122 + call z, $5068 + call $30b6 + jr .asm_34c2c ; 0x5d12a +.asm_8d2f6 ; 0x5d12c + ld hl, $516e + call PrintText + jr .asm_34c2c ; 0x5d132 +.asm_e3544 ; 0x5d134 + ld hl, $5162 + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $5167 + ld de, $5167 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $6 + ld [$d05c], a + ld a, $3 + ld [$d65c], a +.asm_34c2c ; 0x5d15f + jp $24d7 + +INCBIN "baserom.gbc",$5d162,$5d173 - $5d162 + +SaffronGymText10: ; 0x5d173 +INCBIN "baserom.gbc",$5d173,5 + +SaffronGymText11: ; 0x5d178 +INCBIN "baserom.gbc",$5d178,5 + +INCBIN "baserom.gbc",$5d17d,$5d182 - $5d17d + +SaffronGymText12: ; 0x5d182 +INCBIN "baserom.gbc",$5d182,5 + +SaffronGymText2: ; 0x5d187 + db $08 ; asm + ld hl, $50c3 + call LoadTrainerHeader + jp $24d7 + +SaffronGymText3: ; 0x5d191 + db $08 ; asm + ld hl, $50cf + call LoadTrainerHeader + jp $24d7 + +SaffronGymText4: ; 0x5d19b + db $08 ; asm + ld hl, $50db + call LoadTrainerHeader + jp $24d7 + +SaffronGymText5: ; 0x5d1a5 + db $08 ; asm + ld hl, $50e7 + call LoadTrainerHeader + jp $24d7 + +SaffronGymText6: ; 0x5d1af + db $08 ; asm + ld hl, $50f3 + call LoadTrainerHeader + jp $24d7 + +SaffronGymText7: ; 0x5d1b9 + db $08 ; asm + ld hl, $50ff + call LoadTrainerHeader + jp $24d7 + +SaffronGymText8: ; 0x5d1c3 + db $08 ; asm + ld hl, $510b + call LoadTrainerHeader + jp $24d7 + +SaffronGymText9: ; 0x5d1cd + db $08 ; asm + ld a, [$d7b3] + bit 1, a + jr nz, .asm_13f3c ; 0x5d1d3 + ld hl, $51e6 + call PrintText + jr .asm_e9907 ; 0x5d1db +.asm_13f3c ; 0x5d1dd + ld hl, $51eb + call PrintText +.asm_e9907 ; 0x5d1e3 + jp $24d7 + +INCBIN "baserom.gbc",$5d1e6,$73 + +SaffronGymObject: ; 0x5d259 (size=330) + db $2e ; border tile + + db $20 ; warps + db $11, $8, $2, $ff + db $11, $9, $2, $ff + db $3, $1, $16, SAFFRON_GYM + db $3, $5, $f, SAFFRON_GYM + db $5, $1, $12, SAFFRON_GYM + db $5, $5, $8, SAFFRON_GYM + db $9, $1, $1b, SAFFRON_GYM + db $9, $5, $10, SAFFRON_GYM + db $b, $1, $5, SAFFRON_GYM + db $b, $5, $d, SAFFRON_GYM + db $f, $1, $17, SAFFRON_GYM + db $f, $5, $1e, SAFFRON_GYM + db $11, $1, $11, SAFFRON_GYM + db $11, $5, $9, SAFFRON_GYM + db $3, $9, $1a, SAFFRON_GYM + db $3, $b, $3, SAFFRON_GYM + db $5, $9, $7, SAFFRON_GYM + db $5, $b, $c, SAFFRON_GYM + db $b, $b, $4, SAFFRON_GYM + db $f, $b, $1f, SAFFRON_GYM + db $3, $f, $18, SAFFRON_GYM + db $3, $13, $1c, SAFFRON_GYM + db $5, $f, $2, SAFFRON_GYM + db $5, $13, $a, SAFFRON_GYM + db $9, $f, $14, SAFFRON_GYM + db $9, $13, $1d, SAFFRON_GYM + db $b, $f, $e, SAFFRON_GYM + db $b, $13, $6, SAFFRON_GYM + db $f, $f, $15, SAFFRON_GYM + db $f, $13, $19, SAFFRON_GYM + db $11, $f, $b, SAFFRON_GYM + db $11, $13, $13, SAFFRON_GYM + + db $0 ; signs + + db $9 ; people + db SPRITE_GIRL, $8 + 4, $9 + 4, $ff, $d0, $41, SABRINA + $C8, $1 ; trainer + db SPRITE_MEDIUM, $1 + 4, $a + 4, $ff, $d0, $42, CHANNELER + $C8, $16 ; trainer + db SPRITE_BUG_CATCHER, $1 + 4, $11 + 4, $ff, $d0, $43, PSYCHIC_TR + $C8, $1 ; trainer + db SPRITE_MEDIUM, $7 + 4, $3 + 4, $ff, $d0, $44, CHANNELER + $C8, $17 ; trainer + db SPRITE_BUG_CATCHER, $7 + 4, $11 + 4, $ff, $d0, $45, PSYCHIC_TR + $C8, $2 ; trainer + db SPRITE_MEDIUM, $d + 4, $3 + 4, $ff, $d0, $46, CHANNELER + $C8, $18 ; trainer + db SPRITE_BUG_CATCHER, $d + 4, $11 + 4, $ff, $d0, $47, PSYCHIC_TR + $C8, $3 ; trainer + db SPRITE_BUG_CATCHER, $1 + 4, $3 + 4, $ff, $d0, $48, PSYCHIC_TR + $C8, $4 ; trainer + db SPRITE_GYM_HELPER, $f + 4, $a + 4, $ff, $d0, $9 ; person + + ; warp-to + EVENT_DISP $a, $11, $8 + EVENT_DISP $a, $11, $9 + EVENT_DISP $a, $3, $1 ; SAFFRON_GYM + EVENT_DISP $a, $3, $5 ; SAFFRON_GYM + EVENT_DISP $a, $5, $1 ; SAFFRON_GYM + EVENT_DISP $a, $5, $5 ; SAFFRON_GYM + EVENT_DISP $a, $9, $1 ; SAFFRON_GYM + EVENT_DISP $a, $9, $5 ; SAFFRON_GYM + EVENT_DISP $a, $b, $1 ; SAFFRON_GYM + EVENT_DISP $a, $b, $5 ; SAFFRON_GYM + EVENT_DISP $a, $f, $1 ; SAFFRON_GYM + EVENT_DISP $a, $f, $5 ; SAFFRON_GYM + EVENT_DISP $a, $11, $1 ; SAFFRON_GYM + EVENT_DISP $a, $11, $5 ; SAFFRON_GYM + EVENT_DISP $a, $3, $9 ; SAFFRON_GYM + EVENT_DISP $a, $3, $b ; SAFFRON_GYM + EVENT_DISP $a, $5, $9 ; SAFFRON_GYM + EVENT_DISP $a, $5, $b ; SAFFRON_GYM + EVENT_DISP $a, $b, $b ; SAFFRON_GYM + EVENT_DISP $a, $f, $b ; SAFFRON_GYM + EVENT_DISP $a, $3, $f ; SAFFRON_GYM + EVENT_DISP $a, $3, $13 ; SAFFRON_GYM + EVENT_DISP $a, $5, $f ; SAFFRON_GYM + EVENT_DISP $a, $5, $13 ; SAFFRON_GYM + EVENT_DISP $a, $9, $f ; SAFFRON_GYM + EVENT_DISP $a, $9, $13 ; SAFFRON_GYM + EVENT_DISP $a, $b, $f ; SAFFRON_GYM + EVENT_DISP $a, $b, $13 ; SAFFRON_GYM + EVENT_DISP $a, $f, $f ; SAFFRON_GYM + EVENT_DISP $a, $f, $13 ; SAFFRON_GYM + EVENT_DISP $a, $11, $f ; SAFFRON_GYM + EVENT_DISP $a, $11, $13 ; SAFFRON_GYM + +SaffronGymBlocks: ; 90 + INCBIN "maps/saffrongym.blk" + +SaffronMart_h: ; 0x5d3fd to 0x5d409 (12 bytes) (id=180) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw $4000, SaffronMartTexts, SaffronMartScript ; blocks, texts, scripts + db $00 ; connections + + dw SaffronMartObject ; objects + +SaffronMartScript: ; 0x5d409 + jp $3c3c +; 0x5d40c + +SaffronMartTexts: ; 0x5d40c + dw SaffronMartText1, SaffronMartText2, SaffronMartText3 + +SaffronMartText2: ; 0x5d412 + TX_FAR _SaffronMartText2 + db $50 + +SaffronMartText3: ; 0x5d417 + TX_FAR _SaffronMartText3 + db $50 + +SaffronMartObject: ; 0x5d41c (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $4, $ff + db $7, $4, $4, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $4 + 4, $ff, $ff, $2 ; person + db SPRITE_LASS, $5 + 4, $6 + 4, $fe, $0, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +SilphCo1_h: ; 0x5d442 to 0x5d44e (12 bytes) (id=181) + db $16 ; tileset + db $09, $0f ; dimensions (y, x) + dw SilphCo1Blocks, SilphCo1Texts, SilphCo1Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo1Object ; objects + +SilphCo1Script: ; 0x5d44e + call $3c3c + ld a, [$d838] + bit 7, a + ret z + ld hl, $d7b9 + bit 7, [hl] + set 7, [hl] + ret nz + ld a, $4c + ld [$cc4d], a + ld a, $15 + jp $3e6d +; 0x5d469 + +SilphCo1Texts: ; 0x5d469 + dw SilphCo1Text1 + +SilphCo1Text1: ; 0x5d46b + TX_FAR _SilphCo1Text1 + db $50 + +SilphCo1Object: ; 0x5d470 (size=50) + db $2e ; border tile + + db $5 ; warps + db $11, $a, $5, $ff + db $11, $b, $5, $ff + db $0, $1a, $0, SILPH_CO_2F + db $0, $14, $0, SILPH_CO_ELEVATOR + db $a, $10, $6, SILPH_CO_3F + + db $0 ; signs + + db $1 ; people + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $4 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $f, $11, $a + EVENT_DISP $f, $11, $b + EVENT_DISP $f, $0, $1a ; SILPH_CO_2F + EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR + EVENT_DISP $f, $a, $10 ; SILPH_CO_3F + +SilphCo1Blocks: ; 135 + INCBIN "maps/silphco1.blk" + +SaffronPokecenter_h: ; 0x5d529 to 0x5d535 (12 bytes) (id=182) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw $4064, $553b, SaffronPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw SaffronPokecenterObject ; objects + +SaffronPokecenterScript: ; 0x5d535 + call $22fa + jp $3c3c +; 0x5d53b + +INCBIN "baserom.gbc",$5d53b,$9 + +SaffronPokecenterText2: ; maybe +SaffronPokecenterText1: ; 0x5d543 + TX_FAR _SaffronPokecenterText1 + +INCBIN "baserom.gbc",$5d548,$5d549 - $5d548 + +SaffronPokecenterText3: ; 0x5d549 + TX_FAR _SaffronPokecenterText3 + db $50 + +SaffronPokecenterText4: + db $f6 + +SaffronPokecenterObject: ; 0x5d54f (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $6, $ff + db $7, $4, $6, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_FOULARD_WOMAN, $5 + 4, $5 + 4, $ff, $ff, $2 ; person + db SPRITE_GENTLEMAN, $3 + 4, $8 + 4, $ff, $d0, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +ViridianForestexit_h: ; 0x5d57b to 0x5d587 (12 bytes) (id=47) + db $09 ; tileset + db $04, $05 ; dimensions (y, x) + dw ViridianForestexitBlocks, ViridianForestexitTexts, ViridianForestexitScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianForestexitObject ; objects + +ViridianForestexitScript: ; 0x5d587 + jp $3c3c +; 0x5d58a + +ViridianForestexitTexts: ; 0x5d58a + dw ViridianForestexitText1, ViridianForestexitText2 + +ViridianForestexitText1: ; 0x5d58e + TX_FAR _ViridianForestexitText1 + db $50 + +ViridianForestexitText2: ; 0x5d593 + TX_FAR _ViridianForestexitText2 + db $50 + +ViridianForestexitObject: ; 0x5d598 (size=48) + db $a ; border tile + + db $4 ; warps + db $0, $4, $1, $ff + db $0, $5, $1, $ff + db $7, $4, $0, VIRIDIAN_FOREST + db $7, $5, $0, VIRIDIAN_FOREST + + db $0 ; signs + + db $2 ; people + db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $3 + 4, $ff, $ff, $1 ; person + db SPRITE_OLD_PERSON, $5 + 4, $2 + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $5, $0, $4 + EVENT_DISP $5, $0, $5 + EVENT_DISP $5, $7, $4 ; VIRIDIAN_FOREST + EVENT_DISP $5, $7, $5 ; VIRIDIAN_FOREST + +Route2Gate_h: ; 0x5d5c8 to 0x5d5d4 (12 bytes) (id=49) + db $0c ; tileset + db $04, $05 ; dimensions (y, x) + dw $4090, Route2GateTexts, Route2GateScript ; blocks, texts, scripts + db $00 ; connections + + dw Route2GateObject ; objects + +Route2GateScript: ; 0x5d5d4 + jp $3c3c +; 0x5d5d7 + +Route2GateTexts: ; 0x5d5d7 + dw Route2GateText1, Route2GateText2 + +Route2GateText1: ; 0x5d5db + db $08 ; asm + ld a, [$d7c2] + bit 0, a + jr nz, .asm_6592c ; 0x5d5e1 + ld a, $a + ldh [$db], a + ld a, $c8 + ldh [$dc], a + ld [$d11e], a + call GetItemName ; $2fcf + ld hl, $cd6d + ld de, $cc5b + ld bc, $000d + call CopyData + ld a, $62 + call Predef + ldh a, [$db] + cp $1 + jr nz, .asm_ad646 ; 0x5d606 + ld hl, $d7c2 + set 0, [hl] +.asm_6592c ; 0x5d60d + ld hl, $5616 + call PrintText +.asm_ad646 ; 0x5d613 + jp $24d7 + +INCBIN "baserom.gbc",$5d616,$5 + +Route2GateText2: ; 0x5d61b + TX_FAR _Route2GateText2 + db $50 + +Route2GateObject: ; 0x5d620 (size=48) + db $a ; border tile + + db $4 ; warps + db $0, $4, $3, $ff + db $0, $5, $3, $ff + db $7, $4, $4, $ff + db $7, $5, $4, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_OAK_AIDE, $4 + 4, $1 + 4, $ff, $d2, $1 ; person + db SPRITE_BUG_CATCHER, $4 + 4, $5 + 4, $fe, $2, $2 ; person + + ; warp-to + EVENT_DISP $5, $0, $4 + EVENT_DISP $5, $0, $5 + EVENT_DISP $5, $7, $4 + EVENT_DISP $5, $7, $5 + +ViridianForestEntrance_h: ; 0x5d650 to 0x5d65c (12 bytes) (id=50) + db $09 ; tileset + db $04, $05 ; dimensions (y, x) + dw $4090, ViridianForestEntranceTexts, ViridianForestEntranceScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianForestEntranceObject ; objects + +ViridianForestEntranceScript: ; 0x5d65c + jp $3c3c +; 0x5d65f + +ViridianForestEntranceTexts: ; 0x5d65f + dw ViridianForestEntranceText1, ViridianForestEntranceText2 + +ViridianForestEntranceText1: ; 0x5d663 + TX_FAR _ViridianForestEntranceText1 + db $50 + +ViridianForestEntranceText2: ; 0x5d668 + TX_FAR _ViridianForestEntranceText2 + db $50 + +ViridianForestEntranceObject: ; 0x5d66d (size=48) + db $a ; border tile + + db $4 ; warps + db $0, $4, $3, VIRIDIAN_FOREST + db $0, $5, $4, VIRIDIAN_FOREST + db $7, $4, $5, $ff + db $7, $5, $5, $ff + + db $0 ; signs + + db $2 ; people + db SPRITE_GIRL, $4 + 4, $8 + 4, $ff, $d2, $1 ; person + db SPRITE_LITTLE_GIRL, $4 + 4, $2 + 4, $fe, $1, $2 ; person + + ; warp-to + EVENT_DISP $5, $0, $4 ; VIRIDIAN_FOREST + EVENT_DISP $5, $0, $5 ; VIRIDIAN_FOREST + EVENT_DISP $5, $7, $4 + EVENT_DISP $5, $7, $5 + +UndergroundTunnelEntranceRoute5_h: ; 0x5d69d to 0x5d6a9 (12 bytes) (id=71) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw UndergroundTunnelEntranceRoute5Blocks, UndergroundTunnelEntranceRoute5Texts, UndergroundTunnelEntranceRoute5Script ; blocks, texts, scripts + db $00 ; connections + + dw UndergroundTunnelEntranceRoute5Object ; objects + +UndergroundTunnelEntranceRoute5Script: ; 0x5d6a9 + ld a, $10 + ld [$d365], a + ret +; 0x5d6af + +INCBIN "baserom.gbc",$5d6af,$1 + +UndergroundTunnelEntranceRoute5Texts: ; 0x5d6b0 + dw UndergroundTunnelEntranceRoute5Text1 + +UndergroundTunnelEntranceRoute5Text1: ; 0x5d6b2 + db $08 ; asm + ld a, $9 + ld [W_WHICHTRADE], a + ld a, $54 + call Predef + ld hl, $56af + ret + +UndergroundTunnelEntranceRoute5Object: ; 0x5d6c1 (size=34) + db $a ; border tile + + db $3 ; warps + db $7, $3, $3, $ff + db $7, $4, $3, $ff + db $4, $4, $0, UNDERGROUND_PATH_NS + + db $0 ; signs + + db $1 ; people + db SPRITE_LITTLE_GIRL, $3 + 4, $2 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_NS + +UndergroundTunnelEntranceRoute6_h: ; 0x5d6e3 to 0x5d6ef (12 bytes) (id=74) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $4080, UndergroundTunnelEntranceRoute6Texts, UndergroundTunnelEntranceRoute6Script ; blocks, texts, scripts + db $00 ; connections + + dw UndergroundTunnelEntranceRoute6Object ; objects + +UndergroundTunnelEntranceRoute6Script: ; 0x5d6ef + ld a, $11 + ld [$d365], a + jp $3c3c +; 0x5d6f7 + +UndergroundTunnelEntranceRoute6Texts: ; 0x5d6f7 + dw UndergroundTunnelEntranceRoute6Text1 + +;XXX wtf? syntax error on TX_FAR? +UndergroundTunnelEntranceRoute6Text1: ; 0x5d6f9 + db $17, $cb, $40, $23 + ;TX_FAR _UndergroundTunnelEntranceRoute6Text1 ; $cb, $40, $23 + db $50 + +UndergroundTunnelEntranceRoute6Object: ; 0x5d6fe (size=34) + db $a ; border tile + + db $3 ; warps + db $7, $3, $3, $ff + db $7, $4, $3, $ff + db $4, $4, $1, UNDERGROUND_PATH_NS + + db $0 ; signs + + db $1 ; people + db SPRITE_GIRL, $3 + 4, $2 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_NS + +UndergroundPathEntranceRoute7_h: ; 0x5d720 to 0x5d72c (12 bytes) (id=77) + db $0c ; tileset + db $04, $04 ; dimensions (y, x) + dw $4080, UndergroundPathEntranceRoute7Texts, UndergroundPathEntranceRoute7Script ; blocks, texts, scripts + db $00 ; connections + + dw UndergroundPathEntranceRoute7Object ; objects + +UndergroundPathEntranceRoute7Script: ; 0x5d72c + ld a, $12 + ld [$d365], a + jp $3c3c +; 0x5d734 + +UndergroundPathEntranceRoute7Texts: ; 0x5d734 + dw UndergroundPathEntranceRoute7Text1 + +UndergroundPathEntranceRoute7Text1: ; 0x5d736 + db $17, $ff, $40, $23 + ;TX_FAR _UndergroundPathEntranceRoute7Text1 + db $50 + +UndergroundPathEntranceRoute7Object: ; 0x5d73b (size=34) + db $a ; border tile + + db $3 ; warps + db $7, $3, $4, $ff + db $7, $4, $4, $ff + db $4, $4, $0, UNDERGROUND_PATH_WE + + db $0 ; signs + + db $1 ; people + db SPRITE_FAT_BALD_GUY, $4 + 4, $2 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_WE + +INCBIN "baserom.gbc",$5d75d,$52 + +SilphCo9_h: ; 0x5d7af to 0x5d7bb (12 bytes) (id=233) + db $16 ; tileset + db $09, $0d ; dimensions (y, x) + dw SilphCo9Blocks, SilphCo9Texts, SilphCo9Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo9Object ; objects + +SilphCo9Script: ; 0x5d7bb + call $57d1 + call $3c3c + ld hl, $5893 + ld de, $5885 + ld a, [$d64a] + call $3160 + ld [$d64a], a + ret +; 0x5d7d1 + +INCBIN "baserom.gbc",$5d7d1,$ba + +SilphCo9Texts: ; 0x5d88b + dw SilphCo9Text1, SilphCo9Text2, SilphCo9Text3, SilphCo9Text4 + +INCBIN "baserom.gbc",$5d893,$25 + +SilphCo9Text1: ; 0x5d8b8 + db $08 ; asm + ld a, [$d838] + bit 7, a + jr nz, .asm_a14c3 ; 0x5d8be + ld hl, $58e5 + call PrintText + ld a, $7 + call Predef + call $20d8 + call Delay3 + call $20f6 + ld hl, $58ea + call PrintText + jr .asm_b6e28 ; 0x5d8da +.asm_a14c3 ; 0x5d8dc + ld hl, $58ef + call PrintText +.asm_b6e28 ; 0x5d8e2 + jp $24d7 + +INCBIN "baserom.gbc",$5d8e5,$5d8f4 - $5d8e5 + +SilphCo9Text2: ; 0x5d8f4 + db $08 ; asm + ld hl, $5893 + call LoadTrainerHeader + jp $24d7 + +SilphCo9Text3: ; 0x5d8fe + db $08 ; asm + ld hl, $589f + call LoadTrainerHeader + jp $24d7 + +SilphCo9Text4: ; 0x5d908 + db $08 ; asm + ld hl, $58ab + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5d912,$2d + +SilphCo9Object: ; 0x5d93f (size=74) + db $2e ; border tile + + db $5 ; warps + db $0, $e, $0, SILPH_CO_10F + db $0, $10, $0, SILPH_CO_8F + db $0, $12, $0, SILPH_CO_ELEVATOR + db $3, $9, $7, SILPH_CO_3F + db $f, $11, $4, SILPH_CO_5F + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $e + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_ROCKET, $4 + 4, $2 + 4, $ff, $d1, $42, ROCKET + $C8, $25 ; trainer + db SPRITE_OAK_AIDE, $d + 4, $15 + 4, $ff, $d0, $43, SCIENTIST + $C8, $a ; trainer + db SPRITE_ROCKET, $10 + 4, $d + 4, $ff, $d1, $44, ROCKET + $C8, $26 ; trainer + + ; warp-to + EVENT_DISP $d, $0, $e ; SILPH_CO_10F + EVENT_DISP $d, $0, $10 ; SILPH_CO_8F + EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR + EVENT_DISP $d, $3, $9 ; SILPH_CO_3F + EVENT_DISP $d, $f, $11 ; SILPH_CO_5F + +SilphCo9Blocks: ; 117 + INCBIN "maps/silphco9.blk" + +VictoryRoad1_h: ; 0x5d9fe to 0x5da0a (12 bytes) (id=108) + db $11 ; tileset + db $09, $0a ; dimensions (y, x) + dw VictoryRoad1Blocks, VictoryRoad1Texts, VictoryRoad1Script ; blocks, texts, scripts + db $00 ; connections + + dw VictoryRoad1Object ; objects + +VictoryRoad1Script: ; 0x5da0a + ld hl, $d126 + bit 5, [hl] + res 5, [hl] + call nz, $5a27 + call $3c3c + ld hl, $5a6d + ld de, $5a3a + ld a, [$d651] + call $3160 + ld [$d651], a + ret +; 0x5da27 + +INCBIN "baserom.gbc",$5da27,$38 + +VictoryRoad1Texts: ; 0x5da5f + dw VictoryRoad1Text1, VictoryRoad1Text2, VictoryRoad1Text3, VictoryRoad1Text4, VictoryRoad1Text5, VictoryRoad1Text6, VictoryRoad1Text7 + +INCBIN "baserom.gbc",$5da6d,$19 + +VictoryRoad1Text1: ; 0x5da86 + db $08 ; asm + ld hl, $5a6d + call LoadTrainerHeader + jp $24d7 + +VictoryRoad1Text2: ; 0x5da90 + db $08 ; asm + ld hl, $5a79 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$5da9a,$1e + +VictoryRoad1Object: ; 0x5dab8 (size=76) + db $7d ; border tile + + db $3 ; warps + db $11, $8, $2, $ff + db $11, $9, $2, $ff + db $1, $1, $0, VICTORY_ROAD_2 + + db $0 ; signs + + db $7 ; people + db SPRITE_LASS, $5 + 4, $7 + 4, $ff, $d3, $41, COOLTRAINER_F + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $2 + 4, $3 + 4, $ff, $d0, $42, COOLTRAINER_M + $C8, $5 ; trainer + db SPRITE_BALL, $0 + 4, $b + 4, $ff, $ff, $83, TM_43 ; item + db SPRITE_BALL, $2 + 4, $9 + 4, $ff, $ff, $84, RARE_CANDY ; item + db SPRITE_BOULDER, $f + 4, $5 + 4, $ff, $10, $5 ; person + db SPRITE_BOULDER, $2 + 4, $e + 4, $ff, $10, $6 ; person + db SPRITE_BOULDER, $a + 4, $2 + 4, $ff, $10, $7 ; person + + ; warp-to + EVENT_DISP $a, $11, $8 + EVENT_DISP $a, $11, $9 + EVENT_DISP $a, $1, $1 ; VICTORY_ROAD_2 + +VictoryRoad1Blocks: ; 90 + INCBIN "maps/victoryroad1.blk" + +INCBIN "baserom.gbc",$5db5e,$24a2 + +SECTION "bank18",DATA,BANK[$18] + +INCBIN "baserom.gbc",$60000,$60198 - $60000 + +UndergroundPathNSBlocks: ; 96 + INCBIN "maps/undergroundpathns.blk" + +INCBIN "baserom.gbc",$601f8,$1c8 + +SSAnne9Blocks: ; 96 + INCBIN "maps/ssanne9.blk" + +PokemonTower1_h: ; 0x60420 to 0x6042c (12 bytes) (id=142) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower1Blocks, PokemonTower1Texts, PokemonTower1Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower1Object ; objects + +PokemonTower1Script: ; 0x6042c + jp $3c3c +; 0x6042f + +PokemonTower1Texts: ; 0x6042f + dw PokemonTower1Text1, PokemonTower1Text2, PokemonTower1Text3, PokemonTower1Text4, PokemonTower1Text5 + +PokemonTower1Text1: ; 0x60439 + TX_FAR _PokemonTower1Text1 + db $50 + +PokemonTower1Text2: ; 0x6043e + TX_FAR _PokemonTower1Text2 + db $50 + +PokemonTower1Text3: ; 0x60443 + TX_FAR _PokemonTower1Text3 + db $50 + +PokemonTower1Text4: ; 0x60448 + TX_FAR _PokemonTower1Text4 + db $50 + +PokemonTower1Text5: ; 0x6044d + TX_FAR _PokemonTower1Text5 + db $50 + +PokemonTower1Object: ; 0x60452 (size=58) + db $1 ; border tile + + db $3 ; warps + db $11, $a, $1, $ff + db $11, $b, $1, $ff + db $9, $12, $1, POKEMONTOWER_2 + + db $0 ; signs + + db $5 ; people + db SPRITE_CABLE_CLUB_WOMAN, $d + 4, $f + 4, $ff, $d1, $1 ; person + db SPRITE_MOM_GEISHA, $8 + 4, $6 + 4, $ff, $ff, $2 ; person + db SPRITE_BALDING_GUY, $c + 4, $8 + 4, $ff, $ff, $3 ; person + db SPRITE_GIRL, $7 + 4, $d + 4, $ff, $ff, $4 ; person + db SPRITE_MEDIUM, $7 + 4, $11 + 4, $ff, $d2, $5 ; person + + ; warp-to + EVENT_DISP $a, $11, $a + EVENT_DISP $a, $11, $b + EVENT_DISP $a, $9, $12 ; POKEMONTOWER_2 + +PokemonTower1Blocks: ; 90 + INCBIN "maps/pokemontower1.blk" + +PokemonTower2_h: ; 0x604e6 to 0x604f2 (12 bytes) (id=143) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower2Blocks, PokemonTower2Texts, PokemonTower2Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower2Object ; objects + +PokemonTower2Script: ; 0x604f2 + call $3c3c + ld hl, $4509 + ld a, [$d62b] + jp $3d97 +; 0x604fe + +INCBIN "baserom.gbc",$604fe,$60509 - $604fe + +PokemonTower2Scripts: ; 0x60509 + dw PokemonTower2Script0, PokemonTower2Script1, PokemonTower2Script2 + +PokemonTower2Script0: ; 0x6050f + ld a, [$d764] + bit 7, a + ret nz + ld hl, $455e + call $34bf + ret nc + ld a, $ff + ld [$c0ee], a + call $23b1 + ld c, $2 + ld a, $de + call $23a1 + ld hl, $d764 + res 6, [hl] + ld a, [$cd3d] + cp $1 + ld a, $8 + ld b, $0 + jr nz, .asm_60544 ; 0x60539 $9 + ld hl, $d764 + set 6, [hl] + ld a, $2 + ld b, $c +.asm_60544 + ld [$d528], a + ld a, $1 + ld [$ff00+$8c], a + ld a, b + ld [$ff00+$8d], a + call $34a6 + ld a, $1 + ld [$ff00+$8c], a + call $2920 + xor a + ld [$ff00+$b4], a + ld [$ff00+$b3], a + ret +; 0x6055e + +INCBIN "baserom.gbc",$6055e,$60563 - $6055e + +PokemonTower2Script1: ; 0x60563 + ld a, [$d057] + cp $ff + jp z, $44fe + ld a, $f0 + ld [$cd6b], a + ld hl, $d764 + set 7, [hl] + ld a, $1 + ld [$ff00+$8c], a + call $2920 + ld de, $45b2 + ld a, [$d764] + bit 6, a + jr nz, .asm_60589 ; 0x60584 $3 + ld de, $45a9 +.asm_60589 + ld a, $1 + ld [$ff00+$8c], a + call $363a + ld a, $ff + ld [$c0ee], a + call $23b1 + ld b, $2 + ld hl, $5b47 + call Bankswitch + ld a, $2 + ld [$d62b], a + ld [$da39], a + ret +; 0x605a9 + +INCBIN "baserom.gbc",$605a9,$605bb - $605a9 + +PokemonTower2Script2: ; 0x605bb + ld a, [$d730] + bit 0, a + ret nz + ld a, $38 + ld [$cc4d], a + ld a, $11 + call Predef + xor a + ld [$cd6b], a + call $2307 + ld a, $0 + ld [$d62b], a + ld [$da39], a + ret +; 0x605db + +PokemonTower2Texts: ; 0x605db + dw PokemonTower2Text1, PokemonTower2Text2 + +PokemonTower2Text1: ; 0x605df + db $08 ; asm + ld a, [$d764] + bit 7, a + jr z, .asm_16f24 ; 0x605e5 + ld hl, $463c + call PrintText + jr .asm_41852 ; 0x605ed +.asm_16f24 ; 0x605ef + ld hl, $462d + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $4632 + ld de, $4637 + call $3354 + ld a, $f2 + ld [$d059], a + ld a, [$d715] + cp $b1 + jr nz, .asm_0860c ; 0x6060f + ld a, $4 + jr .asm_99cea ; 0x60613 +.asm_0860c ; 0x60615 + cp $99 + jr nz, .asm_b3e6e ; 0x60617 + ld a, $5 + jr .asm_99cea ; 0x6061b +.asm_b3e6e ; 0x6061d + ld a, $6 +.asm_99cea ; 0x6061f + ld [$d05d], a + ld a, $1 + ld [$d62b], a + ld [$da39], a +.asm_41852 ; 0x6062a + jp $24d7 + +INCBIN "baserom.gbc",$6062d,$14 + +PokemonTower2Text2: ; 0x60641 + TX_FAR _PokemonTower2Text2 + db $50 + +PokemonTower2Object: ; 0x60646 (size=32) + db $1 ; border tile + + db $2 ; warps + db $9, $3, $0, POKEMONTOWER_3 + db $9, $12, $2, POKEMONTOWER_1 + + db $0 ; signs + + db $2 ; people + db SPRITE_BLUE, $5 + 4, $e + 4, $ff, $ff, $1 ; person + db SPRITE_MEDIUM, $7 + 4, $3 + 4, $ff, $d3, $2 ; person + + ; warp-to + EVENT_DISP $a, $9, $3 ; POKEMONTOWER_3 + EVENT_DISP $a, $9, $12 ; POKEMONTOWER_1 + +PokemonTower2Blocks: ; 90 + INCBIN "maps/pokemontower2.blk" + +PokemonTower3_h: ; 0x606c0 to 0x606cc (12 bytes) (id=144) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower3Blocks, PokemonTower3Texts, PokemonTower3Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower3Object ; objects + +PokemonTower3Script: ; 0x606cc + call $3c3c + ld hl, $46ed + ld de, $46df + ld a, [$d62c] + call $3160 + ld [$d62c], a + ret +; 0x606df + +INCBIN "baserom.gbc",$606df,$6 + +PokemonTower3Texts: ; 0x606e5 + dw PokemonTower3Text1, PokemonTower3Text2, PokemonTower3Text3, PokemonTower3Text4 + +INCBIN "baserom.gbc",$606ed,$25 + +PokemonTower3Text1: ; 0x60712 + db $08 ; asm + ld hl, $46ed + call LoadTrainerHeader + jp $24d7 + +PokemonTower3Text2: ; 0x6071c + db $08 ; asm + ld hl, $46f9 + call LoadTrainerHeader + jp $24d7 + +PokemonTower3Text3: ; 0x60726 + db $08 ; asm + ld hl, $4705 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$60730,$2d + +PokemonTower3Object: ; 0x6075d (size=51) + db $1 ; border tile + + db $2 ; warps + db $9, $3, $0, POKEMONTOWER_2 + db $9, $12, $1, POKEMONTOWER_4 + + db $0 ; signs + + db $4 ; people + db SPRITE_MEDIUM, $3 + 4, $c + 4, $ff, $d2, $41, CHANNELER + $C8, $5 ; trainer + db SPRITE_MEDIUM, $8 + 4, $9 + 4, $ff, $d0, $42, CHANNELER + $C8, $6 ; trainer + db SPRITE_MEDIUM, $d + 4, $a + 4, $ff, $d0, $43, CHANNELER + $C8, $8 ; trainer + db SPRITE_BALL, $1 + 4, $c + 4, $ff, $ff, $84, ESCAPE_ROPE ; item + + ; warp-to + EVENT_DISP $a, $9, $3 ; POKEMONTOWER_2 + EVENT_DISP $a, $9, $12 ; POKEMONTOWER_4 + +PokemonTower3Blocks: ; 90 + INCBIN "maps/pokemontower3.blk" + +PokemonTower4_h: ; 0x607ea to 0x607f6 (12 bytes) (id=145) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower4Blocks, PokemonTower4Texts, PokemonTower4Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower4Object ; objects + +PokemonTower4Script: ; 0x607f6 + call $3c3c + ld hl, $481b + ld de, $4809 + ld a, [$d62d] + call $3160 + ld [$d62d], a + ret +; 0x60809 + +INCBIN "baserom.gbc",$60809,$6 + +PokemonTower4Texts: ; 0x6080f + dw PokemonTower4Text1, PokemonTower4Text2, PokemonTower4Text3, PokemonTower4Text4, PokemonTower4Text5, PokemonTower4Text6 + +INCBIN "baserom.gbc",$6081b,$25 + +PokemonTower4Text1: ; 0x60840 + db $08 ; asm + ld hl, $481b + call LoadTrainerHeader + jp $24d7 + +PokemonTower4Text2: ; 0x6084a + db $08 ; asm + ld hl, $4827 + call LoadTrainerHeader + jp $24d7 + +PokemonTower4Text3: ; 0x60854 + db $08 ; asm + ld hl, $4833 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$6085e,$2d + +PokemonTower4Object: ; 0x6088b (size=65) + db $1 ; border tile + + db $2 ; warps + db $9, $3, $0, POKEMONTOWER_5 + db $9, $12, $1, POKEMONTOWER_3 + + db $0 ; signs + + db $6 ; people + db SPRITE_MEDIUM, $a + 4, $5 + 4, $ff, $d3, $41, CHANNELER + $C8, $9 ; trainer + db SPRITE_MEDIUM, $7 + 4, $f + 4, $ff, $d0, $42, CHANNELER + $C8, $a ; trainer + db SPRITE_MEDIUM, $c + 4, $e + 4, $ff, $d2, $43, CHANNELER + $C8, $c ; trainer + db SPRITE_BALL, $a + 4, $c + 4, $ff, $ff, $84, ELIXER ; item + db SPRITE_BALL, $a + 4, $9 + 4, $ff, $ff, $85, AWAKENING ; item + db SPRITE_BALL, $10 + 4, $c + 4, $ff, $ff, $86, HP_UP ; item + + ; warp-to + EVENT_DISP $a, $9, $3 ; POKEMONTOWER_5 + EVENT_DISP $a, $9, $12 ; POKEMONTOWER_3 + +PokemonTower4Blocks: ; 90 + INCBIN "maps/pokemontower4.blk" + +PokemonTower5_h: ; 0x60926 to 0x60932 (12 bytes) (id=146) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower5Blocks, PokemonTower5Texts, PokemonTower5Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower5Object ; objects + +PokemonTower5Script: ; 0x60932 + call $3c3c + ld hl, $49a9 + ld de, $4945 + ld a, [$d62e] + call $3160 + ld [$d62e], a + ret +; 0x60945 + +INCBIN "baserom.gbc",$60945,$56 + +PokemonTower5Texts: ; 0x6099b + dw PokemonTower5Text1, PokemonTower5Text2, PokemonTower5Text3, PokemonTower5Text4, PokemonTower5Text5, PokemonTower5Text6, PokemonTower5Text7 + +INCBIN "baserom.gbc",$609a9,$31 + +PokemonTower5Text1: ; 0x609da + TX_FAR _PokemonTower5Text1 + db $50 + +PokemonTower5Text2: ; 0x609df + db $08 ; asm + ld hl, $49a9 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$609e9,$609f8 - $609e9 + +PokemonTower5Text3: ; 0x609f8 + db $08 ; asm + ld hl, $49b5 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$60a02,$60a11 - $60a02 + +PokemonTower5Text4: ; 0x60a11 + db $08 ; asm + ld hl, $49c1 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$60a1b,$60a2a - $60a1b + +PokemonTower5Text5: ; 0x60a2a + db $08 ; asm + ld hl, $49cd + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$60a34,$f + +PokemonTower5Text7: ; 0x60a43 +INCBIN "baserom.gbc",$60a43,5 + +PokemonTower5Object: ; 0x60a48 (size=65) + db $1 ; border tile + + db $2 ; warps + db $9, $3, $0, POKEMONTOWER_4 + db $9, $12, $0, POKEMONTOWER_6 + + db $0 ; signs + + db $6 ; people + db SPRITE_MEDIUM, $8 + 4, $c + 4, $ff, $ff, $1 ; person + db SPRITE_MEDIUM, $7 + 4, $11 + 4, $ff, $d2, $42, CHANNELER + $C8, $e ; trainer + db SPRITE_MEDIUM, $3 + 4, $e + 4, $ff, $d2, $43, CHANNELER + $C8, $10 ; trainer + db SPRITE_MEDIUM, $a + 4, $6 + 4, $ff, $d3, $44, CHANNELER + $C8, $11 ; trainer + db SPRITE_MEDIUM, $10 + 4, $9 + 4, $ff, $d3, $45, CHANNELER + $C8, $12 ; trainer + db SPRITE_BALL, $e + 4, $6 + 4, $ff, $ff, $86, NUGGET ; item + + ; warp-to + EVENT_DISP $a, $9, $3 ; POKEMONTOWER_4 + EVENT_DISP $a, $9, $12 ; POKEMONTOWER_6 + +PokemonTower5Blocks: ; 90 + INCBIN "maps/pokemontower5.blk" + +PokemonTower6_h: ; 0x60ae3 to 0x60aef (12 bytes) (id=147) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower6Blocks, PokemonTower6Texts, PokemonTower6Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower6Object ; objects + +PokemonTower6Script: ; 0x60aef + call $3c3c + ld hl, $4bbf + ld de, $4b0d + ld a, [$d62f] + call $3160 + ld [$d62f], a + ret +; 0x60b02 + +INCBIN "baserom.gbc",$60b02,$af + +PokemonTower6Texts: ; 0x60bb1 + dw PokemonTower6Text1, PokemonTower6Text2, PokemonTower6Text3, PokemonTower6Text4, PokemonTower6Text5, PokemonTower6Text6, PokemonTower6Text7 + +INCBIN "baserom.gbc",$60bbb + 4,$29 - 4 + +PokemonTower6Text1: ; 0x60be4 + db $08 ; asm + ld hl, $4bbf + call LoadTrainerHeader + jp $24d7 + +PokemonTower6Text2: ; 0x60bee + db $08 ; asm + ld hl, $4bcb + call LoadTrainerHeader + jp $24d7 + +PokemonTower6Text3: ; 0x60bf8 + db $08 ; asm + ld hl, $4bd7 + call LoadTrainerHeader + jp $24d7 + +PokemonTower6Text7: ; 0x60c02 +INCBIN "baserom.gbc",$60c02,$60c56 - $60c02 + +PokemonTower6Text6: ; 0x60c56 +INCBIN "baserom.gbc",$60c56,$60c5b - $60c56 + +PokemonTower6Object: ; 0x60c5b (size=58) + db $1 ; border tile + + db $2 ; warps + db $9, $12, $1, POKEMONTOWER_5 + db $10, $9, $0, POKEMONTOWER_7 + + db $0 ; signs + + db $5 ; people + db SPRITE_MEDIUM, $a + 4, $c + 4, $ff, $d3, $41, CHANNELER + $C8, $13 ; trainer + db SPRITE_MEDIUM, $5 + 4, $9 + 4, $ff, $d0, $42, CHANNELER + $C8, $14 ; trainer + db SPRITE_MEDIUM, $5 + 4, $10 + 4, $ff, $d2, $43, CHANNELER + $C8, $15 ; trainer + db SPRITE_BALL, $8 + 4, $6 + 4, $ff, $ff, $84, RARE_CANDY ; item + db SPRITE_BALL, $e + 4, $e + 4, $ff, $ff, $85, X_ACCURACY ; item + + ; warp-to + EVENT_DISP $a, $9, $12 ; POKEMONTOWER_5 + EVENT_DISP $a, $10, $9 ; POKEMONTOWER_7 + +PokemonTower6Blocks: ; 90 + INCBIN "maps/pokemontower6.blk" + +INCBIN "baserom.gbc",$60cef,$a + +PokemonTower7_h: ; 0x60cf9 to 0x60d05 (12 bytes) (id=148) + db $0f ; tileset + db $09, $0a ; dimensions (y, x) + dw PokemonTower7Blocks, PokemonTower7Texts, PokemonTower7Script ; blocks, texts, scripts + db $00 ; connections + + dw PokemonTower7Object ; objects + +PokemonTower7Script: ; 0x60d05 + call $3c3c + ld hl, $4e47 + ld de, $4d23 + ld a, [$d630] + call $3160 + ld [$d630], a + ret +; 0x60d18 + +INCBIN "baserom.gbc",$60d18,$127 + +PokemonTower7Texts: ; 0x60e3f + dw PokemonTower7Text1, PokemonTower7Text2, PokemonTower7Text3, PokemonTower7Text4 + +INCBIN "baserom.gbc",$60e47,$25 + +PokemonTower7Text1: ; 0x60e6c + db $08 ; asm + ld hl, $4e47 + call LoadTrainerHeader + jp $24d7 + +PokemonTower7Text2: ; 0x60e76 + db $08 ; asm + ld hl, $4e53 + call LoadTrainerHeader + jp $24d7 + +PokemonTower7Text3: ; 0x60e80 + db $08 ; asm + ld hl, $4e5f + call LoadTrainerHeader + jp $24d7 + +PokemonTower7Text4: ; 0x60e8a + db $08 ; asm + ld hl, $4ec4 + call PrintText + ld hl, $d7e0 + set 7, [hl] + ld hl, $d769 + set 7, [hl] + ld a, $44 + ld [$cc4d], a + ld a, $15 + call Predef + ld a, $17 + ld [$cc4d], a + ld a, $11 + call Predef + ld a, $18 + ld [$cc4d], a + ld a, $15 + call Predef + ld a, $4 + ld [$d630], a + ld [$da39], a + jp $24d7 + +INCBIN "baserom.gbc",$60ec4,$32 + +PokemonTower7Object: ; 0x60ef6 (size=42) + db $1 ; border tile + + db $1 ; warps + db $10, $9, $1, POKEMONTOWER_6 + + db $0 ; signs + + db $4 ; people + db SPRITE_ROCKET, $b + 4, $9 + 4, $ff, $d3, $41, ROCKET + $C8, $13 ; trainer + db SPRITE_ROCKET, $9 + 4, $c + 4, $ff, $d2, $42, ROCKET + $C8, $14 ; trainer + db SPRITE_ROCKET, $7 + 4, $9 + 4, $ff, $d3, $43, ROCKET + $C8, $15 ; trainer + db SPRITE_MR_FUJI, $3 + 4, $a + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $a, $10, $9 ; POKEMONTOWER_6 + +PokemonTower7Blocks: ; 90 + INCBIN "maps/pokemontower7.blk" + +CeladonMart1_h: ; 0x60f7a to 0x60f86 (12 bytes) (id=122) + db $12 ; tileset + db $04, $0a ; dimensions (y, x) + dw CeladonMart1Blocks, CeladonMart1Texts, CeladonMart1Script ; blocks, texts, scripts + db $00 ; connections + + dw CeladonMart1Object ; objects + +CeladonMart1Script: ; 0x60f86 + jp $3c3c +; 0x60f89 + +CeladonMart1Texts: ; 0x60f89 + dw CeladonMart1Text1, CeladonMart1Text2, CeladonMart1Text3 + +CeladonMart1Text1: ; 0x60f8f + TX_FAR _CeladonMart1Text1 + db $50 + +CeladonMart1Text2: ; 0x60f94 + TX_FAR _CeladonMart1Text2 + db $50 + +CeladonMart1Text3: ; 0x60f99 + TX_FAR _CeladonMart1Text3 + db $50 + +CeladonMart1Object: ; 0x60f9e (size=64) + db $f ; border tile + + db $6 ; warps + db $7, $2, $0, $ff + db $7, $3, $0, $ff + db $7, $10, $1, $ff + db $7, $11, $1, $ff + db $1, $c, $0, CELADON_MART_2 + db $1, $1, $0, CELADON_MART_ELEVATOR + + db $2 ; signs + db $4, $b, $2 ; CeladonMart1Text2 + db $1, $e, $3 ; CeladonMart1Text3 + + db $1 ; people + db SPRITE_CABLE_CLUB_WOMAN, $3 + 4, $8 + 4, $ff, $d0, $1 ; person + + ; warp-to + EVENT_DISP $a, $7, $2 + EVENT_DISP $a, $7, $3 + EVENT_DISP $a, $7, $10 + EVENT_DISP $a, $7, $11 + EVENT_DISP $a, $1, $c ; CELADON_MART_2 + EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR + +CeladonMart1Blocks: ; 40 + INCBIN "maps/celadonmart1.blk" + +INCBIN "baserom.gbc",$61006,$fb + +ViridianForest_h: ; 0x61101 to 0x6110d (12 bytes) (id=51) + db $03 ; tileset + db $18, $11 ; dimensions (y, x) + dw $4000, ViridianForestTexts, ViridianForestScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianForestObject ; objects + +ViridianForestScript: ; 0x6110d + call $3c3c + ld hl, $5142 + ld de, $5120 + ld a, [$d618] + call $3160 + ld [$d618], a + ret +; 0x61120 + +INCBIN "baserom.gbc",$61120,$6 + +ViridianForestTexts: ; 0x61126 + dw ViridianForestText1, ViridianForestText2, ViridianForestText3, ViridianForestText4, ViridianForestText5, ViridianForestText6, ViridianForestText7, ViridianForestText8, ViridianForestText9, ViridianForestText10, ViridianForestText11, ViridianForestText12, ViridianForestText13, ViridianForestText14 + +INCBIN "baserom.gbc",$61142,$25 + +ViridianForestText1: ; 0x61167 + TX_FAR _ViridianForestText1 + db $50 + +ViridianForestText2: ; 0x6116c + db $08 ; asm + ld hl, $5142 + call LoadTrainerHeader + jp $24d7 + +ViridianForestText3: ; 0x61176 + db $08 ; asm + ld hl, $514e + call LoadTrainerHeader + jp $24d7 + +ViridianForestText4: ; 0x61180 + db $08 ; asm + ld hl, $515a + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$6118a,$2d + +ViridianForestText8: ; 0x611b7 + TX_FAR _ViridianForestText8 + db $50 + +ViridianForestText9: ; 0x611bc + TX_FAR _ViridianForestText9 + db $50 + +ViridianForestText10: ; 0x611c1 + TX_FAR _ViridianForestText10 + db $50 + +ViridianForestText11: ; 0x611c6 + TX_FAR _ViridianForestText11 + db $50 + +ViridianForestText12: ; 0x611cb + TX_FAR _ViridianForestText12 + db $50 + +ViridianForestText13: ; 0x611d0 + TX_FAR _ViridianForestText13 + db $50 + +ViridianForestText14: ; 0x611d5 + TX_FAR _ViridianForestText14 + db $50 + +ViridianForestObject: ; 0x611da (size=127) + db $3 ; border tile + + db $6 ; warps + db $0, $1, $2, VIRIDIAN_FOREST_EXIT + db $0, $2, $3, VIRIDIAN_FOREST_EXIT + db $2f, $f, $1, VIRIDIAN_FOREST_ENTRANCE + db $2f, $10, $1, VIRIDIAN_FOREST_ENTRANCE + db $2f, $11, $1, VIRIDIAN_FOREST_ENTRANCE + db $2f, $12, $1, VIRIDIAN_FOREST_ENTRANCE + + db $6 ; signs + db $28, $18, $9 ; ViridianForestText9 + db $20, $10, $a ; ViridianForestText10 + db $11, $1a, $b ; ViridianForestText11 + db $18, $4, $c ; ViridianForestText12 + db $2d, $12, $d ; ViridianForestText13 + db $1, $2, $e ; ViridianForestText14 + + db $8 ; people + db SPRITE_BUG_CATCHER, $2b + 4, $10 + 4, $ff, $ff, $1 ; person + db SPRITE_BUG_CATCHER, $21 + 4, $1e + 4, $ff, $d2, $42, BUG_CATCHER + $C8, $1 ; trainer + db SPRITE_BUG_CATCHER, $13 + 4, $1e + 4, $ff, $d2, $43, BUG_CATCHER + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $12 + 4, $2 + 4, $ff, $d2, $44, BUG_CATCHER + $C8, $3 ; trainer + db SPRITE_BALL, $b + 4, $19 + 4, $ff, $ff, $85, ANTIDOTE ; item + db SPRITE_BALL, $1d + 4, $c + 4, $ff, $ff, $86, POTION ; item + db SPRITE_BALL, $1f + 4, $1 + 4, $ff, $ff, $87, POKE_BALL ; item + db SPRITE_BUG_CATCHER, $28 + 4, $1b + 4, $ff, $ff, $8 ; person + + ; warp-to + EVENT_DISP $11, $0, $1 ; VIRIDIAN_FOREST_EXIT + EVENT_DISP $11, $0, $2 ; VIRIDIAN_FOREST_EXIT + EVENT_DISP $11, $2f, $f ; VIRIDIAN_FOREST_ENTRANCE + EVENT_DISP $11, $2f, $10 ; VIRIDIAN_FOREST_ENTRANCE + EVENT_DISP $11, $2f, $11 ; VIRIDIAN_FOREST_ENTRANCE + EVENT_DISP $11, $2f, $12 ; VIRIDIAN_FOREST_ENTRANCE + +SSAnne1_h: ; 0x61259 to 0x61265 (12 bytes) (id=95) + db $0d ; tileset + db $09, $14 ; dimensions (y, x) + dw SSAnne1Blocks, SSAnne1Texts, SSAnne1Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne1Object ; objects + +SSAnne1Script: ; 0x61265 + call $3c3c + ret +; 0x61269 + +SSAnne1Texts: ; 0x61269 + dw SSAnne1Text1, SSAnne1Text2 + +SSAnne1Text1: ; 0x6126d + TX_FAR _SSAnne1Text1 + db $50 + +SSAnne1Text2: ; 0x61272 + TX_FAR _SSAnne1Text2 + db $50 + +SSAnne1Object: ; 0x61277 (size=104) + db $c ; border tile + + db $b ; warps + db $0, $1a, $1, VERMILION_DOCK + db $0, $1b, $1, VERMILION_DOCK + db $8, $1f, $0, SS_ANNE_8 + db $8, $17, $1, SS_ANNE_8 + db $8, $13, $2, SS_ANNE_8 + db $8, $f, $3, SS_ANNE_8 + db $8, $b, $4, SS_ANNE_8 + db $8, $7, $5, SS_ANNE_8 + db $6, $2, $6, SS_ANNE_2 + db $f, $25, $5, SS_ANNE_4 + db $10, $3, $0, SS_ANNE_6 + + db $0 ; signs + + db $2 ; people + db SPRITE_WAITER, $6 + 4, $c + 4, $fe, $2, $1 ; person + db SPRITE_SAILOR, $5 + 4, $1b + 4, $ff, $ff, $2 ; person + + ; warp-to + EVENT_DISP $14, $0, $1a ; VERMILION_DOCK + EVENT_DISP $14, $0, $1b ; VERMILION_DOCK + EVENT_DISP $14, $8, $1f ; SS_ANNE_8 + EVENT_DISP $14, $8, $17 ; SS_ANNE_8 + EVENT_DISP $14, $8, $13 ; SS_ANNE_8 + EVENT_DISP $14, $8, $f ; SS_ANNE_8 + EVENT_DISP $14, $8, $b ; SS_ANNE_8 + EVENT_DISP $14, $8, $7 ; SS_ANNE_8 + EVENT_DISP $14, $6, $2 ; SS_ANNE_2 + EVENT_DISP $14, $f, $25 ; SS_ANNE_4 + EVENT_DISP $14, $10, $3 ; SS_ANNE_6 + +SSAnne1Blocks: ; 180 + INCBIN "maps/ssanne1.blk" + +SSAnne2_h: ; 0x61393 to 0x6139f (12 bytes) (id=96) + db $0d ; tileset + db $09, $14 ; dimensions (y, x) + dw SSAnne2Blocks, SSAnne2Texts, SSAnne2Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne2Object ; objects + +SSAnne2Script: ; 0x6139f + call $3c3c + ld hl, $53b3 + ld a, [$d665] + jp $3d97 +; 0x613ab + +INCBIN "baserom.gbc",$613ab,$613b3 - $613ab + +SSAnne2Scripts: ; 0x613b3 + dw SSAnne2Script0, SSAnne2Script1, SSAnne2Script2, SSAnne2Script3, SSAnne2Script4 + +SSAnne2Script4: ; 0x613bd + ret +; 0x613be + +SSAnne2Script0: ; 0x613be + ld hl, $5411 + call $34bf + ret nc + ld a, $ff + ld [$c0ee], a + call $23b1 + ld c, $2 + ld a, $de + call $23a1 + ld a, [$cd3d] + ld [$ff00+$db], a + ld a, $71 + ld [$cc4d], a + ld a, $15 + call Predef + call Delay3 + ld a, $2 + ld [$ff00+$8c], a + call $3541 + xor a + ld [$ff00+$b4], a + ld a, $f0 + ld [$cd6b], a + ld a, [$ff00+$db] + cp $2 + jr nz, .asm_61400 ; 0x613f9 $5 + ld de, $540c + jr .asm_61403 ; 0x613fe $3 +.asm_61400 + ld de, $540d +.asm_61403 + call $363a + ld a, $1 + ld [$d665], a + ret +; 0x6140c + +INCBIN "baserom.gbc",$6140c,$61430 - $6140c + +SSAnne2Script1: ; 0x61430 + ld a, [$d730] + bit 0, a + ret nz + call $5416 + xor a + ld [$cd6b], a + ld a, $2 + ld [$ff00+$8c], a + call $2920 + call Delay3 + ld a, $f2 + ld [$d059], a + ld a, [$d715] + cp $b1 + jr nz, .asm_61457 ; 0x61451 $4 + ld a, $1 + jr .asm_61461 ; 0x61455 $a +.asm_61457 + cp $99 + jr nz, .asm_6145f ; 0x61459 $4 + ld a, $2 + jr .asm_61461 ; 0x6145d $2 +.asm_6145f + ld a, $3 +.asm_61461 + ld [$d05d], a + call $5416 + ld a, $2 + ld [$d665], a + ret +; 0x6146d + +SSAnne2Script2: ; 0x6146d + ld a, [$d057] + cp $ff + jp z, $53ab + call $5416 + ld a, $f0 + ld [$cd6b], a + ld a, $3 + ld [$ff00+$8c], a + call $2920 + ld a, $2 + ld [$ff00+$8c], a + call $3541 + ld a, [$d362] + cp $25 + jr nz, .asm_61497 ; 0x61490 $5 + ld de, $54b9 + jr .asm_6149a ; 0x61495 $3 +.asm_61497 + ld de, $54b7 +.asm_6149a + ld a, $2 + ld [$ff00+$8c], a + call $363a + ld a, $ff + ld [$c0ee], a + call $23b1 + ld b, $2 + ld hl, $5b47 + call Bankswitch + ld a, $3 + ld [$d665], a + ret +; 0x614b7 + +INCBIN "baserom.gbc",$614b7,$614be - $614b7 + +SSAnne2Script3: ; 0x614be + ld a, [$d730] + bit 0, a + ret nz + xor a + ld [$cd6b], a + ld a, $71 + ld [$cc4d], a + ld a, $11 + call Predef + call $2307 + ld a, $4 + ld [$d665], a + ret +; 0x614db + +SSAnne2Texts: ; 0x614db + dw SSAnne2Text1, SSAnne2Text2, SSAnne2Text3 + +SSAnne2Text1: ; 0x614e1 + TX_FAR _SSAnne2Text1 + db $50 + +SSAnne2Text2: ; 0x614e6 + db $8 + ld hl, $5500 + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $5505 + ld de, $550a + call $3354 + jp $24d7 +; 0x61500 + +INCBIN "baserom.gbc",$61500,$f + +SSAnne2Text3: ; 0x6150f +INCBIN "baserom.gbc",$6150f,5 + +SSAnne2Object: ; 0x61514 (size=90) + db $c ; border tile + + db $9 ; warps + db $b, $9, $0, SS_ANNE_9 + db $b, $d, $2, SS_ANNE_9 + db $b, $11, $4, SS_ANNE_9 + db $b, $15, $6, SS_ANNE_9 + db $b, $19, $8, SS_ANNE_9 + db $b, $1d, $a, SS_ANNE_9 + db $4, $2, $8, SS_ANNE_1 + db $c, $2, $1, SS_ANNE_3 + db $4, $24, $0, SS_ANNE_7 + + db $0 ; signs + + db $2 ; people + db SPRITE_WAITER, $7 + 4, $3 + 4, $fe, $1, $1 ; person + db SPRITE_BLUE, $4 + 4, $24 + 4, $ff, $d0, $42, SONY1 + $C8, $1 ; trainer + + ; warp-to + EVENT_DISP $14, $b, $9 ; SS_ANNE_9 + EVENT_DISP $14, $b, $d ; SS_ANNE_9 + EVENT_DISP $14, $b, $11 ; SS_ANNE_9 + EVENT_DISP $14, $b, $15 ; SS_ANNE_9 + EVENT_DISP $14, $b, $19 ; SS_ANNE_9 + EVENT_DISP $14, $b, $1d ; SS_ANNE_9 + EVENT_DISP $14, $4, $2 ; SS_ANNE_1 + EVENT_DISP $14, $c, $2 ; SS_ANNE_3 + EVENT_DISP $14, $4, $24 ; SS_ANNE_7 + +SSAnne2Blocks: ; 180 + INCBIN "maps/ssanne2.blk" + +SSAnne4_h: ; 0x61622 to 0x6162e (12 bytes) (id=98) + db $0d ; tileset + db $04, $0f ; dimensions (y, x) + dw SSAnne4Blocks, SSAnne4Texts, SSAnne4Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne4Object ; objects + +SSAnne4Script: ; 0x6162e + jp $3c3c +; 0x61631 + +SSAnne4Texts: +INCBIN "baserom.gbc",$61631,$1 + +SSAnne4Object: ; 0x61632 (size=52) + db $c ; border tile + + db $6 ; warps + db $3, $17, $8, SS_ANNE_10 + db $3, $13, $6, SS_ANNE_10 + db $3, $f, $4, SS_ANNE_10 + db $3, $b, $2, SS_ANNE_10 + db $3, $7, $0, SS_ANNE_10 + db $5, $1b, $9, SS_ANNE_1 + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $f, $3, $17 ; SS_ANNE_10 + EVENT_DISP $f, $3, $13 ; SS_ANNE_10 + EVENT_DISP $f, $3, $f ; SS_ANNE_10 + EVENT_DISP $f, $3, $b ; SS_ANNE_10 + EVENT_DISP $f, $3, $7 ; SS_ANNE_10 + EVENT_DISP $f, $5, $1b ; SS_ANNE_1 + +SSAnne4Blocks: ; 60 + INCBIN "maps/ssanne4.blk" + +SSAnne5_h: ; 0x616a2 to 0x616ae (12 bytes) (id=99) + db $0d ; tileset + db $07, $0a ; dimensions (y, x) + dw SSAnne5Blocks, SSAnne5Texts, SSAnne5Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne5Object ; objects + +SSAnne5Script: ; 0x616ae + call $3c3c + ld hl, $56d1 + ld de, $56c1 + ld a, [$d617] + call $3160 + ld [$d617], a + ret +; 0x616c1 + +INCBIN "baserom.gbc",$616c1,$6 + +SSAnne5Texts: ; 0x616c7 + dw SSAnne5Text1, SSAnne5Text2, SSAnne5Text3, SSAnne5Text4, SSAnne5Text5 + +INCBIN "baserom.gbc",$616d1,$19 + +SSAnne5Text1: ; 0x616ea + TX_FAR _SSAnne5Text1 + db $50 + +SSAnne5Text2: ; 0x616ef + TX_FAR _SSAnne5Text2 + db $50 + +SSAnne5Text3: ; 0x616f4 + TX_FAR _SSAnne5Text3 + db $50 + +SSAnne5Text4: ; 0x616f9 + db $08 ; asm + ld hl, $56d1 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$61703,$61712 - $61703 + +SSAnne5Text5: ; 0x61712 + db $08 ; asm + ld hl, $56dd + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$6171c,$f + +SSAnne5Object: ; 0x6172b (size=54) + db $23 ; border tile + + db $2 ; warps + db $6, $d, $0, SS_ANNE_3 + db $7, $d, $0, SS_ANNE_3 + + db $0 ; signs + + db $5 ; people + db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $5 + 4, $ff, $d1, $1 ; person + db SPRITE_SAILOR, $9 + 4, $4 + 4, $ff, $ff, $2 ; person + db SPRITE_BLACK_HAIR_BOY_1, $b + 4, $7 + 4, $ff, $ff, $3 ; person + db SPRITE_SAILOR, $4 + 4, $4 + 4, $ff, $d0, $44, SAILOR + $C8, $1 ; trainer + db SPRITE_SAILOR, $8 + 4, $a + 4, $ff, $d1, $45, SAILOR + $C8, $2 ; trainer + + ; warp-to + EVENT_DISP $a, $6, $d ; SS_ANNE_3 + EVENT_DISP $a, $7, $d ; SS_ANNE_3 + +SSAnne5Blocks: ; 70 + INCBIN "maps/ssanne5.blk" + +SSAnne6_h: ; 0x617a7 to 0x617b3 (12 bytes) (id=100) + db $0d ; tileset + db $08, $07 ; dimensions (y, x) + dw SSAnne6Blocks, SSAnne6Texts, SSAnne6Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne6Object ; objects + +SSAnne6Script: ; 0x617b3 + call $3c3c + ret +; 0x617b7 + +SSAnne6Texts: ; 0x617b7 + dw SSAnne6Text1, SSAnne6Text2, SSAnne6Text3, SSAnne6Text4, SSAnne6Text5, SSAnne6Text6, SSAnne6Text7 + +SSAnne6Text1: ; 0x617c5 + TX_FAR _SSAnne6Text1 + db $50 + +SSAnne6Text2: ; 0x617ca + TX_FAR _SSAnne6Text2 + db $50 + +SSAnne6Text3: ; 0x617cf + TX_FAR _SSAnne6Text3 + db $50 + +SSAnne6Text4: ; 0x617d4 + TX_FAR _SSAnne6Text4 + db $50 + +SSAnne6Text5: ; 0x617d9 + TX_FAR _SSAnne6Text5 + db $50 + +SSAnne6Text6: ; 0x617de + TX_FAR _SSAnne6Text6 + db $50 + +SSAnne6Text7: ; 0x617e3 + db $08 ; asm + ld hl, $5807 + call PrintText + ldh a, [$d3] + bit 7, a + jr z, .asm_93eb1 ; 0x617ee + ld hl, $580c + jr .asm_63292 ; 0x617f3 +.asm_93eb1 ; 0x617f5 + bit 4, a + jr z, .asm_7436c ; 0x617f7 + ld hl, $5811 + jr .asm_63292 ; 0x617fc +.asm_7436c ; 0x617fe + ld hl, $5816 +.asm_63292 ; 0x61801 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61807,$14 + +SSAnne6Object: ; 0x6181b (size=54) + db $c ; border tile + + db $1 ; warps + db $0, $6, $a, SS_ANNE_1 + + db $0 ; signs + + db $7 ; people + db SPRITE_COOK, $8 + 4, $1 + 4, $fe, $1, $1 ; person + db SPRITE_COOK, $8 + 4, $5 + 4, $fe, $1, $2 ; person + db SPRITE_COOK, $7 + 4, $9 + 4, $fe, $1, $3 ; person + db SPRITE_COOK, $6 + 4, $d + 4, $ff, $ff, $4 ; person + db SPRITE_COOK, $8 + 4, $d + 4, $ff, $ff, $5 ; person + db SPRITE_COOK, $a + 4, $d + 4, $ff, $ff, $6 ; person + db SPRITE_COOK, $d + 4, $b + 4, $ff, $d1, $7 ; person + + ; warp-to + EVENT_DISP $7, $0, $6 ; SS_ANNE_1 + +SSAnne6Blocks: ; 56 + INCBIN "maps/ssanne6.blk" + +SSAnne7_h: ; 0x61889 to 0x61895 (12 bytes) (id=101) + db $0d ; tileset + db $04, $03 ; dimensions (y, x) + dw SSAnne7Blocks, SSAnne7Texts, SSAnne7Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne7Object ; objects + +SSAnne7Script: ; 0x61895 + call $589b + jp $3c3c +; 0x6189b + +INCBIN "baserom.gbc",$6189b,$c + +SSAnne7Texts: ; 0x618a7 + dw SSAnne7Text1, SSAnne7Text2, SSAnne7Text3 + +SSAnne7Text1: ; 0x618ad + db $08 ; asm + ld a, [$d803] + bit 0, a + jr nz, .asm_797c4 ; 0x618b3 + ld hl, $58ec + call PrintText + ld hl, $5927 + call PrintText + ld bc,(HM_01 << 8) | 1 + call $3e2e + jr nc, .asm_ccdcd ; 0x618c7 + ld hl, $592c + call PrintText + ld hl, $d803 + set 0, [hl] + jr .asm_0faf5 ; 0x618d4 +.asm_ccdcd ; 0x618d6 + ld hl, $5937 + call PrintText + ld hl, $d72d + set 5, [hl] + jr .asm_0faf5 ; 0x618e1 +.asm_797c4 ; 0x618e3 + ld hl, $5932 + call PrintText +.asm_0faf5 ; 0x618e9 + jp $24d7 + +INCBIN "baserom.gbc",$618ec,$50 + +SSAnne7Text2: ; 0x6193c + TX_FAR _SSAnne7Text2 + db $50 + +SSAnne7Text3: ; 0x61941 + TX_FAR _SSAnne7Text3 + db $50 + +SSAnne7Object: ; 0x61946 (size=24) + db $c ; border tile + + db $1 ; warps + db $7, $0, $8, SS_ANNE_2 + + db $2 ; signs + db $1, $4, $2 ; SSAnne7Text2 + db $2, $1, $3 ; SSAnne7Text3 + + db $1 ; people + db SPRITE_SS_CAPTAIN, $2 + 4, $4 + 4, $ff, $d1, $1 ; person + + ; warp-to + EVENT_DISP $3, $7, $0 ; SS_ANNE_2 + +SSAnne7Blocks: ; 12 + INCBIN "maps/ssanne7.blk" + +SSAnne8_h: ; 0x6196a to 0x61976 (12 bytes) (id=102) + db $0d ; tileset + db $08, $0c ; dimensions (y, x) + dw SSAnne8Blocks, SSAnne8Texts, SSAnne8Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne8Object ; objects + +SSAnne8Script: ; 0x61976 + call $3c3c + ld hl, $59a5 + ld de, $5989 + ld a, [$d608] + call $3160 + ld [$d608], a + ret +; 0x61989 + +INCBIN "baserom.gbc",$61989,$6 + +SSAnne8Texts: ; 0x6198f + dw SSAnne8Text1, SSAnne8Text2, SSAnne8Text3, SSAnne8Text4, SSAnne8Text5, SSAnne8Text6, SSAnne8Text7, SSAnne8Text8, SSAnne8Text9, SSAnne8Text10, SSAnne8Text11 + +INCBIN "baserom.gbc",$619a5,$31 + +SSAnne8Text1: ; 0x619d6 + db $08 ; asm + ld hl, $59a5 + call LoadTrainerHeader + jp $24d7 + +SSAnne8Text2: ; 0x619e0 + db $08 ; asm + ld hl, $59b1 + call LoadTrainerHeader + jp $24d7 + +SSAnne8Text3: ; 0x619ea + db $08 ; asm + ld hl, $59bd + call LoadTrainerHeader + jp $24d7 + +SSAnne8Text4: ; 0x619f4 + db $08 ; asm + ld hl, $59c9 + call LoadTrainerHeader + jp $24d7 + +SSAnne8Text8: ; 0x619fe + TX_FAR _SSAnne8Text8 + db $08 ; asm + ld a, $65 + call $13d0 + jp $24d7 + +INCBIN "baserom.gbc",$61a0b,60 + +SSAnne8Text5: ; 0x61a47 + TX_FAR _SSAnne8Text5 + db $50 + +SSAnne8Text6: ; 0x61a4c + TX_FAR _SSAnne8Text6 + db $50 + +SSAnne8Text7: ; 0x61a51 + TX_FAR _SSAnne8Text7 + db $50 + +SSAnne8Text9: ; 0x61a56 + TX_FAR _SSAnne8Text9 + db $50 + +SSAnne8Text11: ; 0x61a5b + TX_FAR _SSAnne8Text11 + db $50 + +SSAnne8Object: ; 0x61a60 (size=127) + db $c ; border tile + + db $6 ; warps + db $0, $0, $2, SS_ANNE_1 + db $0, $a, $3, SS_ANNE_1 + db $0, $14, $4, SS_ANNE_1 + db $a, $0, $5, SS_ANNE_1 + db $a, $a, $6, SS_ANNE_1 + db $a, $14, $7, SS_ANNE_1 + + db $0 ; signs + + db $b ; people + db SPRITE_GENTLEMAN, $3 + 4, $2 + 4, $ff, $d2, $41, GENTLEMAN + $C8, $1 ; trainer + db SPRITE_GENTLEMAN, $4 + 4, $b + 4, $ff, $d1, $42, GENTLEMAN + $C8, $2 ; trainer + db SPRITE_BUG_CATCHER, $e + 4, $b + 4, $ff, $d1, $43, YOUNGSTER + $C8, $8 ; trainer + db SPRITE_LASS, $b + 4, $d + 4, $ff, $d2, $44, LASS + $C8, $b ; trainer + db SPRITE_GIRL, $3 + 4, $16 + 4, $fe, $1, $5 ; person + db SPRITE_FAT_BALD_GUY, $e + 4, $0 + 4, $ff, $ff, $6 ; person + db SPRITE_LITTLE_GIRL, $b + 4, $2 + 4, $ff, $d0, $7 ; person + db SPRITE_CLEFAIRY, $b + 4, $3 + 4, $ff, $d0, $8 ; person + db SPRITE_GIRL, $d + 4, $a + 4, $ff, $d3, $9 ; person + db SPRITE_BALL, $f + 4, $c + 4, $ff, $ff, $8a, TM_08 ; item + db SPRITE_GENTLEMAN, $d + 4, $15 + 4, $fe, $2, $b ; person + + ; warp-to + EVENT_DISP $c, $0, $0 ; SS_ANNE_1 + EVENT_DISP $c, $0, $a ; SS_ANNE_1 + EVENT_DISP $c, $0, $14 ; SS_ANNE_1 + EVENT_DISP $c, $a, $0 ; SS_ANNE_1 + EVENT_DISP $c, $a, $a ; SS_ANNE_1 + EVENT_DISP $c, $a, $14 ; SS_ANNE_1 + +SSAnne8Blocks: ; 96 + INCBIN "maps/ssanne8.blk" + +SSAnne9_h: ; 0x61b3f to 0x61b4b (12 bytes) (id=103) + db $0d ; tileset + db $08, $0c ; dimensions (y, x) + dw SSAnne9Blocks, SSAnne9Texts, SSAnne9Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne9Object ; objects + +SSAnne9Script: ; 0x61b4b + ld a, $1 + ld [$cf0c], a + xor a + ld [$cc3c], a + ld hl, $5b84 + ld de, $5b64 + ld a, [$d609] + call $3160 + ld [$d609], a + ret +; 0x61b64 + +INCBIN "baserom.gbc",$61b64,$6 + +SSAnne9Texts: ; 0x61b6a + dw SSAnne9Text1, SSAnne9Text2, SSAnne9Text3, SSAnne9Text4, SSAnne9Text5, SSAnne9Text6, SSAnne9Text7, SSAnne9Text8, SSAnne9Text9, SSAnne9Text10, SSAnne9Text11, SSAnne9Text12, SSAnne9Text13 + +INCBIN "baserom.gbc",$61b84,$31 + +SSAnne9Text1: ; 0x61bb5 + db $08 ; asm + ld hl, $5b84 + call LoadTrainerHeader + jp $24d7 + +SSAnne9Text2: ; 0x61bbf + db $08 ; asm + ld hl, $5b90 + call LoadTrainerHeader + jp $24d7 + +SSAnne9Text3: ; 0x61bc9 + db $08 ; asm + ld hl, $5b9c + call LoadTrainerHeader + jp $24d7 + +SSAnne9Text4: ; 0x61bd3 + db $08 ; asm + ld hl, $5ba8 + call LoadTrainerHeader + jp $24d7 + +SSAnne9Text5: ; 0x61bdd + db $08 ; asm + call $3719 + ld hl, $5bf2 + call PrintText + call $3725 + ld a, $84 + call $349b + jp $24d7 + +INCBIN "baserom.gbc",$61bf2,$61bf7 - $61bf2 + +SSAnne9Text7: ; 0x61bf7 + db $08 ; asm + ld hl, $5c01 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61c01,$61c06 - $61c01 + +SSAnne9Text8: ; 0x61c06 + db $08 ; asm + ld hl, $5c10 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61c10,$61c15 - $61c10 + +SSAnne9Text10: ; 0x61c15 + db $08 ; asm + ld hl, $5c1f + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61c1f,$61c24 - $61c1f + +SSAnne9Text11: ; 0x61c24 + db $08 ; asm + ld hl, $5c2e + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61c2e,$61c33 - $61c2e + +SSAnne9Text12: ; 0x61c33 + db $08 ; asm + ld hl, $5c3d + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61c3d,$61c42 - $61c3d + +SSAnne9Text13: ; 0x61c42 + db $08 ; asm + ld hl, $5c4c + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$61c4c,$41 + +SSAnne9Object: ; 0x61c8d (size=188) + db $c ; border tile + + db $c ; warps + db $5, $2, $0, SS_ANNE_2 + db $5, $3, $0, SS_ANNE_2 + db $5, $c, $1, SS_ANNE_2 + db $5, $d, $1, SS_ANNE_2 + db $5, $16, $2, SS_ANNE_2 + db $5, $17, $2, SS_ANNE_2 + db $f, $2, $3, SS_ANNE_2 + db $f, $3, $3, SS_ANNE_2 + db $f, $c, $4, SS_ANNE_2 + db $f, $d, $4, SS_ANNE_2 + db $f, $16, $5, SS_ANNE_2 + db $f, $17, $5, SS_ANNE_2 + + db $0 ; signs + + db $d ; people + db SPRITE_GENTLEMAN, $2 + 4, $a + 4, $ff, $d3, $41, GENTLEMAN + $C8, $3 ; trainer + db SPRITE_FISHER2, $4 + 4, $d + 4, $ff, $d2, $42, FISHER + $C8, $1 ; trainer + db SPRITE_GENTLEMAN, $e + 4, $0 + 4, $ff, $d3, $43, GENTLEMAN + $C8, $5 ; trainer + db SPRITE_LASS, $b + 4, $2 + 4, $ff, $d0, $44, LASS + $C8, $c ; trainer + db SPRITE_GENTLEMAN, $2 + 4, $1 + 4, $ff, $d0, $5 ; person + db SPRITE_BALL, $1 + 4, $c + 4, $ff, $ff, $86, MAX_ETHER ; item + db SPRITE_GENTLEMAN, $2 + 4, $15 + 4, $ff, $d0, $7 ; person + db SPRITE_OLD_PERSON, $1 + 4, $16 + 4, $ff, $d0, $8 ; person + db SPRITE_BALL, $c + 4, $0 + 4, $ff, $ff, $89, RARE_CANDY ; item + db SPRITE_GENTLEMAN, $c + 4, $c + 4, $ff, $d0, $a ; person + db SPRITE_YOUNG_BOY, $e + 4, $b + 4, $ff, $ff, $b ; person + db SPRITE_BRUNETTE_GIRL, $c + 4, $16 + 4, $ff, $d2, $c ; person + db SPRITE_FOULARD_WOMAN, $c + 4, $14 + 4, $ff, $d3, $d ; person + + ; warp-to + EVENT_DISP $c, $5, $2 ; SS_ANNE_2 + EVENT_DISP $c, $5, $3 ; SS_ANNE_2 + EVENT_DISP $c, $5, $c ; SS_ANNE_2 + EVENT_DISP $c, $5, $d ; SS_ANNE_2 + EVENT_DISP $c, $5, $16 ; SS_ANNE_2 + EVENT_DISP $c, $5, $17 ; SS_ANNE_2 + EVENT_DISP $c, $f, $2 ; SS_ANNE_2 + EVENT_DISP $c, $f, $3 ; SS_ANNE_2 + EVENT_DISP $c, $f, $c ; SS_ANNE_2 + EVENT_DISP $c, $f, $d ; SS_ANNE_2 + EVENT_DISP $c, $f, $16 ; SS_ANNE_2 + EVENT_DISP $c, $f, $17 ; SS_ANNE_2 + +SSAnne10_h: ; 0x61d49 to 0x61d55 (12 bytes) (id=104) + db $0d ; tileset + db $08, $0c ; dimensions (y, x) + dw $43c0, SSAnne10Texts, SSAnne10Script ; blocks, texts, scripts + db $00 ; connections + + dw SSAnne10Object ; objects + +SSAnne10Script: ; 0x61d55 + call $3c3c + ld hl, $5d84 + ld de, $5d68 + ld a, [$d629] + call $3160 + ld [$d629], a + ret +; 0x61d68 + +INCBIN "baserom.gbc",$61d68,$6 + +SSAnne10Texts: ; 0x61d6e + dw SSAnne10Text1, SSAnne10Text2, SSAnne10Text3, SSAnne10Text4, SSAnne10Text5, SSAnne10Text6, SSAnne10Text7, SSAnne10Text8, SSAnne10Text9, SSAnne10Text10, SSAnne10Text11 + +INCBIN "baserom.gbc",$61d84,$49 + +SSAnne10Text1: ; 0x61dcd + db $08 ; asm + ld hl, $5d84 + call LoadTrainerHeader + jp $24d7 + +SSAnne10Text2: ; 0x61dd7 + db $08 ; asm + ld hl, $5d90 + call LoadTrainerHeader + jp $24d7 + +SSAnne10Text3: ; 0x61de1 + db $08 ; asm + ld hl, $5d9c + call LoadTrainerHeader + jp $24d7 + +SSAnne10Text4: ; 0x61deb + db $08 ; asm + ld hl, $5da8 + call LoadTrainerHeader + jp $24d7 + +SSAnne10Text5: ; 0x61df5 + db $08 ; asm + ld hl, $5db4 + call LoadTrainerHeader + jp $24d7 + +SSAnne10Text6: ; 0x61dff + db $08 ; asm + ld hl, $5dc0 + call LoadTrainerHeader + jp $24d7 + +SSAnne10Text8: ; 0x61e09 + TX_FAR _SSAnne10Text8 + db $8 ; 0x61e0d + ld a, $29 + call $13d0 + jp $24d7 + +INCBIN "baserom.gbc",$61e16,$61e70 - $61e16 + +SSAnne10Text7: ; 0x61e70 + TX_FAR _SSAnne10Text7 + db $50 + +SSAnne10Object: ; 0x61e75 (size=165) + db $c ; border tile + + db $a ; warps + db $5, $2, $4, SS_ANNE_4 + db $5, $3, $4, SS_ANNE_4 + db $5, $c, $3, SS_ANNE_4 + db $5, $d, $3, SS_ANNE_4 + db $5, $16, $2, SS_ANNE_4 + db $5, $17, $2, SS_ANNE_4 + db $f, $2, $1, SS_ANNE_4 + db $f, $3, $1, SS_ANNE_4 + db $f, $c, $0, SS_ANNE_4 + db $f, $d, $0, SS_ANNE_4 + + db $0 ; signs + + db $b ; people + db SPRITE_SAILOR, $d + 4, $0 + 4, $ff, $d0, $41, SAILOR + $C8, $3 ; trainer + db SPRITE_SAILOR, $b + 4, $2 + 4, $ff, $d0, $42, SAILOR + $C8, $4 ; trainer + db SPRITE_SAILOR, $3 + 4, $c + 4, $ff, $d2, $43, SAILOR + $C8, $5 ; trainer + db SPRITE_SAILOR, $2 + 4, $16 + 4, $ff, $d0, $44, SAILOR + $C8, $6 ; trainer + db SPRITE_SAILOR, $2 + 4, $0 + 4, $ff, $d3, $45, SAILOR + $C8, $7 ; trainer + db SPRITE_FISHER2, $4 + 4, $0 + 4, $ff, $d3, $46, FISHER + $C8, $2 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $d + 4, $a + 4, $ff, $d3, $7 ; person + db SPRITE_SLOWBRO, $c + 4, $b + 4, $ff, $ff, $8 ; person + db SPRITE_BALL, $2 + 4, $14 + 4, $ff, $ff, $89, ETHER ; item + db SPRITE_BALL, $2 + 4, $a + 4, $ff, $ff, $8a, TM_44 ; item + db SPRITE_BALL, $b + 4, $c + 4, $ff, $ff, $8b, MAX_POTION ; item + + ; warp-to + EVENT_DISP $c, $5, $2 ; SS_ANNE_4 + EVENT_DISP $c, $5, $3 ; SS_ANNE_4 + EVENT_DISP $c, $5, $c ; SS_ANNE_4 + EVENT_DISP $c, $5, $d ; SS_ANNE_4 + EVENT_DISP $c, $5, $16 ; SS_ANNE_4 + EVENT_DISP $c, $5, $17 ; SS_ANNE_4 + EVENT_DISP $c, $f, $2 ; SS_ANNE_4 + EVENT_DISP $c, $f, $3 ; SS_ANNE_4 + EVENT_DISP $c, $f, $c ; SS_ANNE_4 + EVENT_DISP $c, $f, $d ; SS_ANNE_4 + +UndergroundPathNS_h: ; 0x61f1a to 0x61f26 (12 bytes) (id=119) + db $0b ; tileset + db $18, $04 ; dimensions (y, x) + dw UndergroundPathNSBlocks, UndergroundPathNSTexts, UndergroundPathNSScript ; blocks, texts, scripts + db $00 ; connections + + dw UndergroundPathNSObject ; objects + +UndergroundPathNSScript: ; 0x61f26 + jp $3c3c +; 0x61f29 + +UndergroundPathNSTexts: +INCBIN "baserom.gbc",$61f29,$1 + +UndergroundPathNSObject: ; 0x61f2a (size=20) + db $1 ; border tile + + db $2 ; warps + db $4, $5, $2, PATH_ENTRANCE_ROUTE_5 + db $29, $2, $2, PATH_ENTRANCE_ROUTE_6 + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $4, $4, $5 ; PATH_ENTRANCE_ROUTE_5 + EVENT_DISP $4, $29, $2 ; PATH_ENTRANCE_ROUTE_6 + +UndergroundPathWE_h: ; 0x61f3e to 0x61f4a (12 bytes) (id=121) + db $0b ; tileset + db $04, $19 ; dimensions (y, x) + dw $41f4, $5f4d, UndergroundPathWEScript ; blocks, texts, scripts + db $00 ; connections + + dw UndergroundPathWEObject ; objects + +UndergroundPathWEScript: ; 0x61f4a + jp $3c3c +; 0x61f4d + +INCBIN "baserom.gbc",$61f4d,$1 + +UndergroundPathWEObject: ; 0x61f4e (size=20) + db $1 ; border tile + + db $2 ; warps + db $5, $2, $2, PATH_ENTRANCE_ROUTE_7 + db $2, $2f, $2, PATH_ENTRANCE_ROUTE_8 + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $19, $5, $2 ; PATH_ENTRANCE_ROUTE_7 + EVENT_DISP $19, $2, $2f ; PATH_ENTRANCE_ROUTE_8 + +DiglettsCave_h: ; 0x61f62 to 0x61f6e (12 bytes) (id=197) + db $11 ; tileset + db $12, $14 ; dimensions (y, x) + dw DiglettsCaveBlocks, $5f71, DiglettsCaveScript ; blocks, texts, scripts + db $00 ; connections + + dw DiglettsCaveObject ; objects + +DiglettsCaveScript: ; 0x61f6e + jp $3c3c +; 0x61f71 + +INCBIN "baserom.gbc",$61f71,$1 + +DiglettsCaveObject: ; 0x61f72 (size=20) + db $19 ; border tile + + db $2 ; warps + db $5, $5, $2, DIGLETTS_CAVE_EXIT + db $1f, $25, $2, DIGLETTS_CAVE_ENTRANCE + + db $0 ; signs + + db $0 ; people + + ; warp-to + EVENT_DISP $14, $5, $5 ; DIGLETTS_CAVE_EXIT + EVENT_DISP $14, $1f, $25 ; DIGLETTS_CAVE_ENTRANCE + +DiglettsCaveBlocks: ; 360 + INCBIN "maps/diglettscave.blk" + +SilphCo11_h: ; 0x620ee to 0x620fa (12 bytes) (id=235) + db $10 ; tileset + db $09, $09 ; dimensions (y, x) + dw SilphCo11Blocks, SilphCo11Texts, SilphCo11Script ; blocks, texts, scripts + db $00 ; connections + + dw SilphCo11Object ; objects + +SilphCo11Script: ; 0x620fa + call $6110 + call $3c3c + ld hl, $62c3 + ld de, $61cf + ld a, [$d659] + call $3160 + ld [$d659], a + ret +; 0x62110 + +INCBIN "baserom.gbc",$62110,$1a7 + +SilphCo11Texts: ; 0x622b7 + dw SilphCo11Text1, SilphCo11Text2, SilphCo11Text3, SilphCo11Text4, SilphCo11Text5, SilphCo11Text6 + +INCBIN "baserom.gbc",$622c3,$19 + +SilphCo11Text1: ; 0x622dc + db $08 ; asm + ld a, [$d838] + bit 5, a + jp nz, $6308 + ld hl, $6311 + call PrintText + ld bc,(MASTER_BALL << 8) | 1 + call $3e2e + jr nc, .asm_36088 ; 0x622f1 + ld hl, $6316 + call PrintText + ld hl, $d838 + set 5, [hl] + jr .asm_fd405 ; 0x622fe +.asm_36088 ; 0x62300 + ld hl, $6321 + call PrintText + jr .asm_fd405 ; 0x62306 + ld hl, $631c + call PrintText +.asm_fd405 ; 0x6230e + jp $24d7 + +INCBIN "baserom.gbc",$62311,$15 + +SilphCo11Text2: ; 0x62326 + TX_FAR _SilphCo11Text2 + db $50 + +SilphCo11Text3: ; 0x6232b + TX_FAR _SilphCo11Text3 + db $50 + +INCBIN "baserom.gbc",$62330,5 + +SilphCo11Text6: ; 0x62335 +INCBIN "baserom.gbc",$62335,5 + +SilphCo11Text4: ; 0x6233a + db $08 ; asm + ld hl, $62c3 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$62344,$62353 - $62344 + +SilphCo11Text5: ; 0x62353 + db $08 ; asm + ld hl, $62cf + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$6235d,$23 + +SilphCo11Object: ; 0x62380 (size=72) + db $d ; border tile + + db $4 ; warps + db $0, $9, $1, SILPH_CO_10F + db $0, $d, $0, SILPH_CO_ELEVATOR + db $5, $5, $9, $ff + db $2, $3, $3, SILPH_CO_7F + + db $0 ; signs + + db $5 ; people + db SPRITE_MR_MASTERBALL, $5 + 4, $7 + 4, $ff, $d0, $1 ; person + db SPRITE_FOULARD_WOMAN, $5 + 4, $a + 4, $ff, $d0, $2 ; person + db SPRITE_GIOVANNI, $9 + 4, $6 + 4, $ff, $d0, $43, GIOVANNI + $C8, $2 ; trainer + db SPRITE_ROCKET, $10 + 4, $3 + 4, $ff, $d1, $44, ROCKET + $C8, $29 ; trainer + db SPRITE_ROCKET, $9 + 4, $f + 4, $ff, $d1, $45, ROCKET + $C8, $28 ; trainer + + ; warp-to + EVENT_DISP $9, $0, $9 ; SILPH_CO_10F + EVENT_DISP $9, $0, $d ; SILPH_CO_ELEVATOR + EVENT_DISP $9, $5, $5 + EVENT_DISP $9, $2, $3 ; SILPH_CO_7F + +SilphCo11Blocks: ; 81 + INCBIN "maps/silphco11.blk" + +INCBIN "baserom.gbc",$62419,$1be7 + +SECTION "bank19",DATA,BANK[$19] + +Tset00_GFX: + INCBIN "gfx/tilesets/00.2bpp" +Tset00_Block: + INCBIN "baserom.gbc",$645E0,$64DE0-$645E0 +Tset01_GFX: + INCBIN "gfx/tilesets/01.2bpp" +Tset01_Block: + INCBIN "baserom.gbc",$65270,$653A0-$65270 +Tset08_GFX: + INCBIN "gfx/tilesets/08.2bpp" +Tset08_Block: + INCBIN "baserom.gbc",$65980,$65BB0-$65980 +Tset13_GFX: + INCBIN "gfx/tilesets/13.2bpp" +Tset13_Block: + INCBIN "baserom.gbc",$66190,$66610-$66190 +Tset0E_GFX: + INCBIN "gfx/tilesets/0e.2bpp" +Tset0E_Block: + INCBIN "baserom.gbc",$66BF0,$66D60-$66BF0 +Tset10_GFX: + INCBIN "gfx/tilesets/10.2bpp" +Tset10_Block: + INCBIN "baserom.gbc",$67350,$676F0-$67350 +Tset17_GFX: + INCBIN "gfx/tilesets/17.2bpp" +Tset17_Block: + INCBIN "baserom.gbc",$67B50,$68000-$67B50 + +SECTION "bank1A",DATA,BANK[$1A] + +DecrementPP: +; after using a move, decrement pp in battle and (if not transformed?) in party + ld a,[de] + cp a,STRUGGLE + ret z + ld hl,$D062 + ld a,[hli] + and a,7 + ret nz + bit 6,[hl] + ret nz + ld hl,$D02D ; PP of first move (in battle) + call .DecrementPP\@ + + ld a,[$D064] + bit 3,a ; XXX transform status? + ret nz + + ld hl,$D188 ; PP of first move (in party) + ld a,[$CC2F] ; which mon in party is active + ld bc,$2C + call AddNTimes +.DecrementPP\@ + ld a,[$CC2E] ; which move (0, 1, 2, 3) did we use? + ld c,a + ld b,0 + add hl,bc + dec [hl] ; Decrement PP + ret + +IF _RED + INCBIN "gfx/red/redgreenversion.1bpp" +ENDC +IF _BLUE + INCBIN "gfx/blue/blueversion.1bpp" +ENDC + +Tset05_GFX: + INCBIN "gfx/tilesets/05.2bpp" +Tset05_Block: + INCBIN "baserom.gbc",$6867F,$68DBF-$6867F +Tset02_GFX: + INCBIN "gfx/tilesets/02.2bpp" +Tset02_Block: + INCBIN "baserom.gbc",$693BF,$6960F-$693BF +Tset09_GFX: + INCBIN "gfx/tilesets/09.2bpp" +Tset09_Block: + INCBIN "baserom.gbc",$69BFF,$6A3FF-$69BFF +Tset03_GFX: + INCBIN "gfx/tilesets/03.2bpp" +Tset03_Block: + INCBIN "baserom.gbc",$6A9FF,$6B1FF-$6A9FF +Tset16_GFX: + INCBIN "gfx/tilesets/16.2bpp" +Tset16_Block: + INCBIN "baserom.gbc",$6B7FF,$6C000-$6B7FF + +SECTION "bank1B",DATA,BANK[$1B] + +Tset0F_GFX: + INCBIN "gfx/tilesets/0f.2bpp" +Tset0F_Block: + INCBIN "baserom.gbc",$6C5C0,$6CCA0-$6C5C0 +Tset11_GFX: + INCBIN "gfx/tilesets/11.2bpp" +Tset11_Block: + INCBIN "baserom.gbc",$6D0C0,$6D8C0-$6D0C0 +Tset12_GFX: + INCBIN "gfx/tilesets/12.2bpp" +Tset12_Block: + INCBIN "baserom.gbc",$6DEA0,$6E390-$6DEA0 +Tset0D_GFX: + INCBIN "gfx/tilesets/0d.2bpp" +Tset0D_Block: + INCBIN "baserom.gbc",$6E930,$6ED10-$6E930 +Tset14_GFX: + INCBIN "gfx/tilesets/14.2bpp" +Tset14_Block: + INCBIN "baserom.gbc",$6F2D0,$6F670-$6F2D0 +Tset15_GFX: + INCBIN "gfx/tilesets/15.2bpp" +Tset15_Block: + INCBIN "baserom.gbc",$6FB20,$6FD60-$6FB20 +Tset0B_GFX: + INCBIN "gfx/tilesets/0b.2bpp" +Tset0B_Block: + INCBIN "baserom.gbc",$6FEF0,$70000-$6FEF0 + +SECTION "bank1C",DATA,BANK[$1C] + +INCBIN "baserom.gbc",$70000,$1100 + +CompressedMap: ; 5100 +; you can decompress this file with the redrle program in the extras/ dir + INCBIN "baserom.gbc",$71100,$711AB-$71100 + +INCBIN "baserom.gbc",$711AB,$71313-$711AB + +ExternalMapEntries: ; 5313 + EMAP $2,$B,PalletTownName + EMAP $2,$8,ViridianCityName + EMAP $2,$3,PewterCityName + EMAP $A,$2,CeruleanCityName + EMAP $E,$5,LavenderTownName + EMAP $A,$9,VermilionCityName + EMAP $7,$5,CeladonCityName + EMAP $8,$D,FuchsiaCityName + EMAP $2,$F,CinnabarIslandName + EMAP $0,$2,IndigoPlateauName + EMAP $A,$5,SaffronCityName + EMAP $0,$0,PalletTownName ; unused + EMAP $2,$A,Route1Name + EMAP $2,$6,Route2Name + EMAP $4,$3,Route3Name + EMAP $8,$2,Route4Name + EMAP $A,$3,Route5Name + EMAP $A,$8,Route6Name + EMAP $8,$5,Route7Name + EMAP $D,$5,Route8Name + EMAP $D,$2,Route9Name + EMAP $E,$4,Route10Name + EMAP $C,$9,Route11Name + EMAP $E,$9,Route12Name + EMAP $D,$B,Route13Name + EMAP $B,$C,Route14Name + EMAP $A,$D,Route15Name + EMAP $5,$5,Route16Name + EMAP $4,$8,Route17Name + EMAP $6,$D,Route18Name + EMAP $6,$F,Route19Name + EMAP $4,$F,Route20Name + EMAP $2,$D,Route21Name + EMAP $0,$8,Route22Name + EMAP $0,$6,Route23Name + EMAP $A,$1,Route24Name + EMAP $B,$0,Route25Name + +InternalMapEntries: ; 5382 + IMAP $29,$2,$B,PalletTownName + IMAP $2E,$2,$8,ViridianCityName + IMAP $33,$2,$6,Route2Name + IMAP $34,$2,$4,ViridianForestName + IMAP $3B,$2,$3,PewterCityName + IMAP $3E,$6,$2,MountMoonName + IMAP $44,$A,$2,CeruleanCityName + IMAP $45,$5,$2,Route4Name + IMAP $46,$A,$2,CeruleanCityName + IMAP $49,$A,$4,Route5Name + IMAP $4C,$A,$6,Route6Name + IMAP $4F,$9,$5,Route7Name + IMAP $51,$B,$5,Route8Name + IMAP $53,$E,$3,RockTunnelName + IMAP $54,$F,$4,PowerPlantName + IMAP $57,$D,$9,Route11Name + IMAP $58,$E,$7,Route12Name + IMAP $59,$C,$0,SeaCottageName + IMAP $5F,$A,$9,VermilionCityName + IMAP $69,$9,$A,SSAnneName + IMAP $6D,$0,$4,VictoryRoadName + IMAP $77,$0,$2,PokemonLeagueName + IMAP $78,$A,$5,UndergroundPathName + IMAP $79,$0,$2,PokemonLeagueName + IMAP $7A,$A,$5,UndergroundPathName + IMAP $8D,$7,$5,CeladonCityName + IMAP $8E,$E,$5,LavenderTownName + IMAP $95,$F,$5,PokemonTowerName + IMAP $98,$E,$5,LavenderTownName + IMAP $9C,$8,$D,FuchsiaCityName + IMAP $9D,$8,$C,SafariZoneName + IMAP $9F,$8,$D,FuchsiaCityName + IMAP $A3,$5,$F,SeafoamIslandsName + IMAP $A4,$A,$9,VermilionCityName + IMAP $A5,$8,$D,FuchsiaCityName + IMAP $A6,$2,$F,PokemonMansionName + IMAP $AE,$2,$F,CinnabarIslandName + IMAP $AF,$0,$2,IndigoPlateauName + IMAP $B8,$A,$5,SaffronCityName + IMAP $BA,$9,$D,Route15Name + IMAP $BD,$4,$5,Route16Name + IMAP $BE,$E,$A,Route12Name + IMAP $C0,$7,$D,Route18Name + IMAP $C1,$5,$F,SeafoamIslandsName + IMAP $C2,$0,$7,Route22Name + IMAP $C3,$0,$4,VictoryRoadName + IMAP $C4,$E,$7,Route12Name + IMAP $C5,$A,$9,VermilionCityName + IMAP $C6,$3,$4,DiglettsCaveName + IMAP $C7,$0,$4,VictoryRoadName + IMAP $CF,$7,$5,RocketHQName + IMAP $D6,$A,$5,SilphCoName + IMAP $D9,$2,$F,PokemonMansionName + IMAP $E2,$8,$C,SafariZoneName + IMAP $E5,$9,$1,CeruleanCaveName + IMAP $E6,$E,$5,LavenderTownName + IMAP $E7,$A,$2,CeruleanCityName + IMAP $E9,$E,$3,RockTunnelName + IMAP $ED,$A,$5,SilphCoName + IMAP $F8,$0,$2,PokemonLeagueName + db $FF + +MapNames: ; 5473 +PalletTownName: + db "PALLET TOWN@" +ViridianCityName: + db "VIRIDIAN CITY@" +PewterCityName: + db "PEWTER CITY@" +CeruleanCityName: + db "CERULEAN CITY@" +LavenderTownName: + db "LAVENDER TOWN@" +VermilionCityName: + db "VERMILION CITY@" +CeladonCityName: + db "CELADON CITY@" +FuchsiaCityName: + db "FUCHSIA CITY@" +CinnabarIslandName: + db "CINNABAR ISLAND@" +IndigoPlateauName: + db "INDIGO PLATEAU@" +SaffronCityName: + db "SAFFRON CITY@" +Route1Name: + db "ROUTE 1@" +Route2Name: + db "ROUTE 2@" +Route3Name: + db "ROUTE 3@" +Route4Name: + db "ROUTE 4@" +Route5Name: + db "ROUTE 5@" +Route6Name: + db "ROUTE 6@" +Route7Name: + db "ROUTE 7@" +Route8Name: + db "ROUTE 8@" +Route9Name: + db "ROUTE 9@" +Route10Name: + db "ROUTE 10@" +Route11Name: + db "ROUTE 11@" +Route12Name: + db "ROUTE 12@" +Route13Name: + db "ROUTE 13@" +Route14Name: + db "ROUTE 14@" +Route15Name: + db "ROUTE 15@" +Route16Name: + db "ROUTE 16@" +Route17Name: + db "ROUTE 17@" +Route18Name: + db "ROUTE 18@" +Route19Name: + db "SEA ROUTE 19@" +Route20Name: + db "SEA ROUTE 20@" +Route21Name: + db "SEA ROUTE 21@" +Route22Name: + db "ROUTE 22@" +Route23Name: + db "ROUTE 23@" +Route24Name: + db "ROUTE 24@" +Route25Name: + db "ROUTE 25@" +ViridianForestName: + db "VIRIDIAN FOREST@" +MountMoonName: + db "MT.MOON@" +RockTunnelName: + db "ROCK TUNNEL@" +SeaCottageName: + db "SEA COTTAGE@" +SSAnneName: + db "S.S.ANNE@" +PokemonLeagueName: + db "#MON LEAGUE@" +UndergroundPathName: + db "UNDERGROUND PATH@" +PokemonTowerName: + db "#MON TOWER@" +SeafoamIslandsName: + db "SEAFOAM ISLANDS@" +VictoryRoadName: + db "VICTORY ROAD@" +DiglettsCaveName: + db "DIGLETT's CAVE@" +RocketHQName: + db "ROCKET HQ@" +SilphCoName: + db "SILPH CO.@" +PokemonMansionName: + db $4a," MANSION@" +SafariZoneName: + db "SAFARI ZONE@" +CeruleanCaveName: + db "CERULEAN CAVE@" +PowerPlantName: + db "POWER PLANT@" + +INCBIN "baserom.gbc",$716BE,$71AD9-$716BE + +Predef54: ; 0x71ad9 +; trigger the trade offer/action specified by W_WHICHTRADE + call $36f4 + ld hl,TradeMons + ld a,[W_WHICHTRADE] + ld b,a + swap a + sub b + sub b + ld c,a + ld b,$0 + add hl,bc + ld a,[hli] + ld [$cd0f],a + ld a,[hli] + ld [$cd34],a + ld a,[hli] + push af + ld de,$cd29 + ld bc,$000b + call CopyData + pop af + ld l,a + ld h,$0 + ld de,$5d64 + add hl,hl + add hl,de + ld a,[hli] + ld [$cd10],a + ld a,[hl] + ld [$cd11],a + ld a,[$cd0f] + ld de,$cd13 + call Function71b6a + ld a,[$cd34] + ld de,$cd1e + call Function71b6a + ld hl,$d737 + ld a,[W_WHICHTRADE] + ld c,a + ld b,$2 + ld a,$10 + call Predef + ld a,c + and a + ld a,$4 + ld [$cd12],a + jr nz,.asm_99bca ; 0x71b36 $20 + xor a + ld [$cd12],a + call .asm_99bca + ld a,$1 + ld [$cd12],a + call $35ec + ld a,[$cc26] + and a + jr nz,.asm_99bca ; 0x71b4b $b + call Function71c07 + jr c,.asm_99bca ; 0x71b50 $6 + ld hl,$5d8d + call PrintText +.asm_99bca ; 0x71b58 + ld hl,$cd12 + ld a,[hld] + ld e,a + ld d,$0 + ld a,[hld] + ld l,[hl] + ld h,a + add hl,de + add hl,de + ld a,[hli] + ld h,[hl] + ld l,a + jp PrintText + +Function71b6a: ; 0x71b6a + push de + ld [$d11e],a + call GetMonName + ld hl,$cd6d + pop de + ld bc,$b + jp CopyData + +TradeMons: ; 5B7B +; givemonster, getmonster, textstring, nickname (11 bytes), 14 bytes total + db NIDORINO, NIDORINA, 0,"TERRY@@@@@@" + db ABRA, MR_MIME, 0,"MARCEL@@@@@" + db BUTTERFREE,BEEDRILL, 2,"CHIKUCHIKU@" + db PONYTA, SEEL, 0,"SAILOR@@@@@" + db SPEAROW, FARFETCH_D,2,"DUX@@@@@@@@" + db SLOWBRO, LICKITUNG, 0,"MARC@@@@@@@" + db POLIWHIRL, JYNX, 1,"LOLA@@@@@@@" + db RAICHU, ELECTRODE, 1,"DORIS@@@@@@" + db VENONAT, TANGELA, 2,"CRINKLES@@@" + db NIDORAN_M, NIDORAN_F, 2,"SPOT@@@@@@@" + +Function71c07: ; 0x71c07 + xor a + ld [$d07d],a + dec a + ld [$cfcb],a + call $13fc + push af + call $5ca2 + pop af + ld a,$1 + jp c,.asm_c4bc2 + ld a,[$cd0f] + ld b,a + ld a,[$cf91] + cp b + ld a,$2 + jr nz,.asm_c4bc2 ; 0x71c26 $75 + ld a,[$cf92] + ld hl,$d18c + ld bc,$002c + call AddNTimes + ld a,[hl] + ld [$d127],a + ld hl,$d737 + ld a,[W_WHICHTRADE] + ld c,a + ld b,$1 + ld a,$10 + call Predef + ld hl,$5d88 + call PrintText + ld a,[$cf92] + push af + ld a,[$d127] + push af + call $36c0 + call $5cc1 + ld a,$38 + call Predef + pop af + ld [$d127],a + pop af + ld [$cf92],a + ld a,[$cd34] + ld [$cf91],a + xor a + ld [$cc49],a + ld [$cf95],a + call $391f + ld a,$80 + ld [$cc49],a + call AddPokemonToParty + call $5d19 + ld hl,$7d7d + ld b,$5 + call Bankswitch + call ClearScreen + call $5ca2 + ld b,$3 + ld hl,$6edc + call Bankswitch + and a + ld a,$3 + jr .asm_ee803 ; 0x71c9b $1 +.asm_c4bc2 ; 0x71c9d + scf +.asm_ee803 ; 0x71c9e + ld [$cd12],a + ret + +INCBIN "baserom.gbc",$71CA2,$725C8-$71CA2 + +MonsterPalettes: ; 65C8 + db PAL_MEWMON ; MISSINGNO + db PAL_GREENMON ; BULBASAUR + db PAL_GREENMON ; IVYSAUR + db PAL_GREENMON ; VENUSAUR + db PAL_REDMON ; CHARMANDER + db PAL_REDMON ; CHARMELEON + db PAL_REDMON ; CHARIZARD + db PAL_CYANMON ; SQUIRTLE + db PAL_CYANMON ; WARTORTLE + db PAL_CYANMON ; BLASTOISE + db PAL_GREENMON ; CATERPIE + db PAL_GREENMON ; METAPOD + db PAL_CYANMON ; BUTTERFREE + db PAL_YELLOWMON ; WEEDLE + db PAL_YELLOWMON ; KAKUNA + db PAL_YELLOWMON ; BEEDRILL + db PAL_BROWNMON ; PIDGEY + db PAL_BROWNMON ; PIDGEOTTO + db PAL_BROWNMON ; PIDGEOT + db PAL_GREYMON ; RATTATA + db PAL_GREYMON ; RATICATE + db PAL_BROWNMON ; SPEAROW + db PAL_BROWNMON ; FEAROW + db PAL_PURPLEMON ; EKANS + db PAL_PURPLEMON ; ARBOK + db PAL_YELLOWMON ; PIKACHU + db PAL_YELLOWMON ; RAICHU + db PAL_BROWNMON ; SANDSHREW + db PAL_BROWNMON ; SANDSLASH + db PAL_BLUEMON ; NIDORAN_F + db PAL_BLUEMON ; NIDORINA + db PAL_BLUEMON ; NIDOQUEEN + db PAL_PURPLEMON ; NIDORAN_M + db PAL_PURPLEMON ; NIDORINO + db PAL_PURPLEMON ; NIDOKING + db PAL_PINKMON ; CLEFAIRY + db PAL_PINKMON ; CLEFABLE + db PAL_REDMON ; VULPIX + db PAL_YELLOWMON ; NINETALES + db PAL_PINKMON ; JIGGLYPUFF + db PAL_PINKMON ; WIGGLYTUFF + db PAL_BLUEMON ; ZUBAT + db PAL_BLUEMON ; GOLBAT + db PAL_GREENMON ; ODDISH + db PAL_REDMON ; GLOOM + db PAL_REDMON ; VILEPLUME + db PAL_REDMON ; PARAS + db PAL_REDMON ; PARASECT + db PAL_PURPLEMON ; VENONAT + db PAL_PURPLEMON ; VENOMOTH + db PAL_BROWNMON ; DIGLETT + db PAL_BROWNMON ; DUGTRIO + db PAL_YELLOWMON ; MEOWTH + db PAL_YELLOWMON ; PERSIAN + db PAL_YELLOWMON ; PSYDUCK + db PAL_CYANMON ; GOLDUCK + db PAL_BROWNMON ; MANKEY + db PAL_BROWNMON ; PRIMEAPE + db PAL_BROWNMON ; GROWLITHE + db PAL_REDMON ; ARCANINE + db PAL_BLUEMON ; POLIWAG + db PAL_BLUEMON ; POLIWHIRL + db PAL_BLUEMON ; POLIWRATH + db PAL_YELLOWMON ; ABRA + db PAL_YELLOWMON ; KADABRA + db PAL_YELLOWMON ; ALAKAZAM + db PAL_GREYMON ; MACHOP + db PAL_GREYMON ; MACHOKE + db PAL_GREYMON ; MACHAMP + db PAL_GREENMON ; BELLSPROUT + db PAL_GREENMON ; WEEPINBELL + db PAL_GREENMON ; VICTREEBEL + db PAL_CYANMON ; TENTACOOL + db PAL_CYANMON ; TENTACRUEL + db PAL_GREYMON ; GEODUDE + db PAL_GREYMON ; GRAVELER + db PAL_GREYMON ; GOLEM + db PAL_REDMON ; PONYTA + db PAL_REDMON ; RAPIDASH + db PAL_PINKMON ; SLOWPOKE + db PAL_PINKMON ; SLOWBRO + db PAL_GREYMON ; MAGNEMITE + db PAL_GREYMON ; MAGNETON + db PAL_BROWNMON ; FARFETCH_D + db PAL_BROWNMON ; DODUO + db PAL_BROWNMON ; DODRIO + db PAL_BLUEMON ; SEEL + db PAL_BLUEMON ; DEWGONG + db PAL_PURPLEMON ; GRIMER + db PAL_PURPLEMON ; MUK + db PAL_GREYMON ; SHELLDER + db PAL_GREYMON ; CLOYSTER + db PAL_PURPLEMON ; GASTLY + db PAL_PURPLEMON ; HAUNTER + db PAL_PURPLEMON ; GENGAR + db PAL_GREYMON ; ONIX + db PAL_YELLOWMON ; DROWZEE + db PAL_YELLOWMON ; HYPNO + db PAL_REDMON ; KRABBY + db PAL_REDMON ; KINGLER + db PAL_YELLOWMON ; VOLTORB + db PAL_YELLOWMON ; ELECTRODE + db PAL_PINKMON ; EXEGGCUTE + db PAL_GREENMON ; EXEGGUTOR + db PAL_GREYMON ; CUBONE + db PAL_GREYMON ; MAROWAK + db PAL_BROWNMON ; HITMONLEE + db PAL_BROWNMON ; HITMONCHAN + db PAL_PINKMON ; LICKITUNG + db PAL_PURPLEMON ; KOFFING + db PAL_PURPLEMON ; WEEZING + db PAL_GREYMON ; RHYHORN + db PAL_GREYMON ; RHYDON + db PAL_PINKMON ; CHANSEY + db PAL_BLUEMON ; TANGELA + db PAL_BROWNMON ; KANGASKHAN + db PAL_CYANMON ; HORSEA + db PAL_CYANMON ; SEADRA + db PAL_REDMON ; GOLDEEN + db PAL_REDMON ; SEAKING + db PAL_REDMON ; STARYU + db PAL_GREYMON ; STARMIE + db PAL_PINKMON ; MR_MIME + db PAL_GREENMON ; SCYTHER + db PAL_MEWMON ; JYNX + db PAL_YELLOWMON ; ELECTABUZZ + db PAL_REDMON ; MAGMAR + db PAL_BROWNMON ; PINSIR + db PAL_GREYMON ; TAUROS + db PAL_REDMON ; MAGIKARP + db PAL_BLUEMON ; GYARADOS + db PAL_CYANMON ; LAPRAS + db PAL_GREYMON ; DITTO + db PAL_GREYMON ; EEVEE + db PAL_CYANMON ; VAPOREON + db PAL_YELLOWMON ; JOLTEON + db PAL_REDMON ; FLAREON + db PAL_GREYMON ; PORYGON + db PAL_BLUEMON ; OMANYTE + db PAL_BLUEMON ; OMASTAR + db PAL_BROWNMON ; KABUTO + db PAL_BROWNMON ; KABUTOPS + db PAL_GREYMON ; AERODACTYL + db PAL_PINKMON ; SNORLAX + db PAL_BLUEMON ; ARTICUNO + db PAL_YELLOWMON ; ZAPDOS + db PAL_REDMON ; MOLTRES + db PAL_GREYMON ; DRATINI + db PAL_BLUEMON ; DRAGONAIR + db PAL_BROWNMON ; DRAGONITE + db PAL_MEWMON ; MEWTWO + db PAL_MEWMON ; MEW + +; palettes for overworlds, title screen, monsters +SuperPalettes: ; 6660 + RGB 31,29,31 ; PAL_ROUTE + RGB 21,28,11 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_PALLET + RGB 25,28,27 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_VIRIDIAN + RGB 17,26,3 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_PEWTER + RGB 23,25,16 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_CERULEAN + RGB 17,20,30 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_LAVENDER + RGB 27,20,27 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_VERMILION + RGB 30,18,0 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_CELADON + RGB 16,30,22 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_FUCHSIA + RGB 31,15,22 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_CINNABAR + RGB 26,10,6 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_INDIGO + RGB 22,14,24 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; PAL_SAFFRON + RGB 27,27,3 + RGB 20,26,31 + RGB 3,2,2 + RGB 31,29,31 ; XXX + RGB 20,26,31 + RGB 17,23,10 + RGB 3,2,2 + RGB 31,29,31 ; PAL_LOGO1 + RGB 30,30,17 + RGB 17,23,10 + RGB 21,0,4 + RGB 31,29,31 ; XXX + RGB 30,30,17 + RGB 18,18,24 + RGB 7,7,16 + RGB 31,29,31 ; PAL_LOGO2 + RGB 24,20,30 + RGB 11,20,30 + RGB 3,2,2 + RGB 31,29,31 ; PAL_MEWMON + RGB 30,22,17 + RGB 16,14,19 + RGB 3,2,2 + RGB 31,29,31 ; PAL_BLUEMON + RGB 18,20,27 + RGB 11,15,23 + RGB 3,2,2 + RGB 31,29,31 ; PAL_REDMON + RGB 31,20,10 + RGB 26,10,6 + RGB 3,2,2 + RGB 31,29,31 ; PAL_CYANMON + RGB 21,25,29 + RGB 14,19,25 + RGB 3,2,2 + RGB 31,29,31 ; PAL_PURPLEMON + RGB 27,22,24 + RGB 21,15,23 + RGB 3,2,2 + RGB 31,29,31 ; PAL_BROWNMON + RGB 28,20,15 + RGB 21,14,9 + RGB 3,2,2 + RGB 31,29,31 ; PAL_GREENMON + RGB 20,26,16 + RGB 9,20,11 + RGB 3,2,2 + RGB 31,29,31 ; PAL_PINKMON + RGB 30,22,24 + RGB 28,15,21 + RGB 3,2,2 + RGB 31,29,31 ; PAL_YELLOWMON + RGB 31,28,14 + RGB 26,20,0 + RGB 3,2,2 + RGB 31,29,31 ; PAL_GREYMON + RGB 26,21,22 + RGB 15,15,18 + RGB 3,2,2 + RGB 31,29,31 ; PAL_SLOTS1 + RGB 26,21,22 + RGB 27,20,6 + RGB 3,2,2 + RGB 31,29,31 ; PAL_SLOTS2 + RGB 31,31,17 + RGB 25,17,21 + RGB 3,2,2 + RGB 31,29,31 ; PAL_SLOTS3 + RGB 22,31,16 + RGB 25,17,21 + RGB 3,2,2 + RGB 31,29,31 ; PAL_SLOTS4 + RGB 16,19,29 + RGB 25,17,21 + RGB 3,2,2 + RGB 31,29,31 ; PAL_BLACK + RGB 7,7,7 + RGB 2,3,3 + RGB 3,2,2 + RGB 31,29,31 ; PAL_GREENBAR + RGB 30,26,15 + RGB 9,20,11 + RGB 3,2,2 + RGB 31,29,31 ; PAL_YELLOWBAR + RGB 30,26,15 + RGB 26,20,0 + RGB 3,2,2 + RGB 31,29,31 ; PAL_REDBAR + RGB 30,26,15 + RGB 26,10,6 + RGB 3,2,2 + RGB 31,29,31 ; PAL_BADGE + RGB 30,22,17 + RGB 11,15,23 + RGB 3,2,2 + RGB 31,29,31 ; PAL_CAVE + RGB 21,14,9 + RGB 18,24,22 + RGB 3,2,2 + RGB 31,29,31 ; XXX + RGB 31,28,14 + RGB 24,20,10 + RGB 3,2,2 +BorderPalettes: ; 6788 + +INCBIN "baserom.gbc",$72788,$4000 - $2788 + +SECTION "bank1D",DATA,BANK[$1D] + +INCBIN "baserom.gbc",$74000,$74010 - $74000 + +PewterMartBlocks: ; 16 + INCBIN "maps/pewtermart.blk" + +FuchsiaHouse1Blocks: ; 16 + INCBIN "maps/fuchsiahouse1.blk" + +FuchsiaPokecenterBlocks: ; 28 + INCBIN "maps/fuchsiapokecenter.blk" + +CeruleanHouse3Blocks: ; 16 + INCBIN "maps/ceruleanhouse3.blk" + +INCBIN "baserom.gbc",$7405c,$6f + +Func40CB: ; 40CB + xor a + ld [$FFBA],a + call $3719 + call $4183 + + ; display the next monster from CreditsMons + ld hl,$CD3E + ld c,[hl] ; how many monsters have we displayed so far? + inc [hl] + ld b,0 + ld hl,CreditsMons + add hl,bc ; go that far in the list of monsters and get the next one + ld a,[hl] + ld [$CF91],a + ld [$D0B5],a + ld hl,$C420 + call $1537 + call $1389 + ld hl,$980C + call $4164 + xor a + ld [$FFBA],a + call $3725 + ld hl,$9800 + call $4164 + ld a,$A7 + ld [$FF4B],a + ld hl,$9C00 + call $4164 + call $4183 + ld a,$FC + ld [$FF47],a + ld bc,7 +.next\@ + call $4140 + dec c + jr nz,.next\@ + ld c,$14 +.next2\@ + call $4140 + ld a,[$FF4B] + sub 8 + ld [$FF4B],a + dec c + jr nz,.next2\@ + xor a + ld [$FFB0],a + ld a,$C0 + ld [$FF47],a + ret + +CreditsMons: ; 4131 + db VENUSAUR + db ARBOK + db RHYHORN + db FEAROW + db ABRA + db GRAVELER + db HITMONLEE + db TANGELA + db STARMIE + db GYARADOS + db DITTO + db OMASTAR + db VILEPLUME + db NIDOKING + db PARASECT + +INCBIN "baserom.gbc",$74140,$2C3 - $140 + +CreditsTextPointers: ; 42C3 + + dw CredVersion + dw CredTajiri + dw CredTaOota + dw CredMorimoto + dw CredWatanabe + dw CredMasuda + dw CredNisino + dw CredSugimori + dw CredNishida + dw CredMiyamoto + dw CredKawaguchi + dw CredIshihara + dw CredYamauchi + dw CredZinnai + dw CredHishida + dw CredSakai + dw CredYamaguchi + dw CredYamamoto + dw CredTaniguchi + dw CredNonomura + dw CredFuziwara + dw CredMatsusima + dw CredTomisawa + dw CredKawamoto + dw CredKakei + dw CredTsuchiya + dw CredTaNakamura + dw CredYuda + dw CredMon + dw CredDirector + dw CredProgrammers + dw CredCharDesign + dw CredMusic + dw CredSoundEffects + dw CredGameDesign + dw CredMonsterDesign + dw CredGameScene + dw CredParam + dw CredMap + dw CredTest + dw CredSpecial + dw CredProducers + dw CredProducer + dw CredExecutive + dw CredTamada + dw CredSaOota + dw CredYoshikawa + dw CredToOota + dw CredUSStaff + dw CredUSCoord + dw CredTilden + dw CredKawakami + dw CredHiNakamura + dw CredGiese + dw CredOsborne + dw CredTrans + dw CredOgasawara + dw CredIwata + dw CredIzushi + dw CredHarada + dw CredMurakawa + dw CredFukui + dw CredClub + dw CredPAAD + +CredVersion: +IF _RED + db "2RED VERSION STAFF@" +ENDC +IF _BLUE + db "2BLUE VERSION STAFF@" +ENDC +CredTajiri: + db "4SATOSHI TAJIRI@" +CredTaOota: + db "4TAKENORI OOTA@" +CredMorimoto: + db "3SHIGEKI MORIMOTO@" +CredWatanabe: + db "3TETSUYA WATANABE@" +CredMasuda: + db "4JUNICHI MASUDA@" +CredNisino: + db "5KOHJI NISINO@" +CredSugimori: + db "5KEN SUGIMORI@" +CredNishida: + db "4ATSUKO NISHIDA@" +CredMiyamoto: + db "3SHIGERU MIYAMOTO@" +CredKawaguchi: + db "2TAKASHI KAWAGUCHI@" +CredIshihara: + db "2TSUNEKAZU ISHIHARA@" +CredYamauchi: + db "3HIROSHI YAMAUCHI@" +CredZinnai: + db "3HIROYUKI ZINNAI@" +CredHishida: + db "3TATSUYA HISHIDA@" +CredSakai: + db "4YASUHIRO SAKAI@" +CredYamaguchi: + db "3WATARU YAMAGUCHI@" +CredYamamoto: + db "2KAZUYUKI YAMAMOTO@" +CredTaniguchi: + db "2RYOHSUKE TANIGUCHI@" +CredNonomura: + db "2FUMIHIRO NONOMURA@" +CredFuziwara: + db "3MOTOFUMI FUZIWARA@" +CredMatsusima: + db "3KENJI MATSUSIMA@" +CredTomisawa: + db "3AKIHITO TOMISAWA@" +CredKawamoto: + db "3HIROSHI KAWAMOTO@" +CredKakei: + db "4AKIYOSHI KAKEI@" +CredTsuchiya: + db "3KAZUKI TSUCHIYA@" +CredTaNakamura: + db "4TAKEO NAKAMURA@" +CredYuda: + db "4MASAMITSU YUDA@" +CredMon: + db "7#MON@" +CredDirector: + db "7DIRECTOR@" +CredProgrammers: + db "5PROGRAMMERS@" +CredCharDesign: + db "3CHARACTER DESIGN@" +CredMusic: + db "8MUSIC@" +CredSoundEffects: + db "4SOUND EFFECTS@" +CredGameDesign: + db "5GAME DESIGN@" +CredMonsterDesign: + db "4MONSTER DESIGN@" +CredGameScene: + db "4GAME SCENARIO@" +CredParam: + db "2PARAMETRIC DESIGN@" +CredMap: + db "6MAP DESIGN@" +CredTest: + db "3PRODUCT TESTING@" +CredSpecial: + db "4SPECIAL THANKS@" +CredProducers: + db "6PRODUCERS@" +CredProducer: + db "6PRODUCER@" +CredExecutive: + db "2EXECUTIVE PRODUCER@" +CredTamada: + db "4SOUSUKE TAMADA@" +CredSaOota: + db "5SATOSHI OOTA@" +CredYoshikawa: + db "4RENA YOSHIKAWA@" +CredToOota: + db "4TOMOMICHI OOTA@" +CredUSStaff: + db "3US VERSION STAFF@" +CredUSCoord: + db "3US COORDINATION@" +CredTilden: + db "5GAIL TILDEN@" +CredKawakami: + db "4NAOKO KAWAKAMI@" +CredHiNakamura: + db "4HIRO NAKAMURA@" +CredGiese: + db "4WILLIAM GIESE@" +CredOsborne: + db "5SARA OSBORNE@" +CredTrans: + db "3TEXT TRANSLATION@" +CredOgasawara: + db "4NOB OGASAWARA@" +CredIwata: + db "5SATORU IWATA@" +CredIzushi: + db "3TAKEHIRO IZUSHI@" +CredHarada: + db "3TAKAHIRO HARADA@" +CredMurakawa: + db "3TERUKI MURAKAWA@" +CredFukui: + db "5KOHTA FUKUI@" +CredClub: + db "1NCL SUPER MARIO CLUB@" +CredPAAD: + db "5PAAD TESTING@" + +TheEndGfx: ; 473E + INCBIN "gfx/theend.2bpp" + +INCBIN "baserom.gbc",$747de,$74897 - $747de + +ViridianGym_h: ; 0x74897 to 0x748a3 (12 bytes) (id=45) + db $07 ; tileset + db $09, $0a ; dimensions (y, x) + dw ViridianGymBlocks, ViridianGymTexts, ViridianGymScript ; blocks, texts, scripts + db $00 ; connections + + dw ViridianGymObject ; objects + +ViridianGymScript: ; 0x748a3 + ld hl, $48bf + ld de, $48cd + call $317f + call $3c3c + ld hl, $4a08 + ld de, $48e1 + ld a, [$d5fb] + call $3160 + ld [$d5fb], a + ret +; 0x748bf + +INCBIN "baserom.gbc",$748bf,$12d + +ViridianGymTexts: ; 0x749ec + dw ViridianGymText1, ViridianGymText2, ViridianGymText3, ViridianGymText4, ViridianGymText5, ViridianGymText6, ViridianGymText7, ViridianGymText8, ViridianGymText9, ViridianGymText10, ViridianGymText11, ViridianGymText12, ViridianGymText13, ViridianGymText14 + +INCBIN "baserom.gbc",$74a02 + 6,$67 - 6 + +ViridianGymText1: ; 0x74a69 + db $08 ; asm + ld a, [$d751] + bit 1, a + jr z, .asm_6de66 ; 0x74a6f + bit 0, a + jr nz, .asm_9fc95 ; 0x74a73 + call z, $4995 + call $30b6 + jr .asm_6dff7 ; 0x74a7b +.asm_9fc95 ; 0x74a7d + ld a, $1 + ld [$cc3c], a + ld hl, $4ad9 + call PrintText + call $20ef + ld a, $32 + ld [$cc4d], a + ld a, $11 + call Predef + call $2429 + call Delay3 + call $20d1 + jr .asm_6dff7 ; 0x74a9e +.asm_6de66 ; 0x74aa0 + ld hl, $4ace + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $4ad3 + ld de, $4ad3 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $8 + ld [$d05c], a + ld a, $3 + ld [$d5fb], a +.asm_6dff7 ; 0x74acb + jp $24d7 + +INCBIN "baserom.gbc",$74ace,$74adf - $74ace + +ViridianGymText12: ; 0x74adf +INCBIN "baserom.gbc",$74adf,5 + +ViridianGymText13: ; 0x74ae4 +INCBIN "baserom.gbc",$74ae4, 5 + +INCBIN "baserom.gbc",$74ae9,$74aee - $74ae9 + +ViridianGymText14: ; 0x74aee +INCBIN "baserom.gbc",$74aee,5 + +ViridianGymText2: ; 0x74af3 + db $08 ; asm + ld hl, $4a08 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74afd,$74b0c - $74afd + +ViridianGymText3: ; 0x74b0c + db $08 ; asm + ld hl, $4a14 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74b16,$74b25 - $74b16 + +ViridianGymText4: ; 0x74b25 + db $08 ; asm + ld hl, $4a20 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74b2f,$74b3e - $74b2f + +ViridianGymText5: ; 0x74b3e + db $08 ; asm + ld hl, $4a2c + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74b48,$74b57 - $74b48 + +ViridianGymText6: ; 0x74b57 + db $08 ; asm + ld hl, $4a38 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74b61,$74b70 - $74b61 + +ViridianGymText7: ; 0x74b70 + db $08 ; asm + ld hl, $4a44 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74b7a,$74b89 - $74b7a + +ViridianGymText8: ; 0x74b89 + db $08 ; asm + ld hl, $4a50 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74b93,$74ba2 - $74b93 + +ViridianGymText9: ; 0x74ba2 + db $08 ; asm + ld hl, $4a5c + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$74bac,$74bbb - $74bac + +ViridianGymText10: ; 0x74bbb + db $08 ; asm + ld a, [$d751] + bit 1, a + jr nz, .asm_1abd1 ; 0x74bc1 + ld hl, $4bd4 + call PrintText + jr .asm_6064d ; 0x74bc9 +.asm_1abd1 ; 0x74bcb + ld hl, $4bd9 + call PrintText +.asm_6064d ; 0x74bd1 + jp $24d7 + +INCBIN "baserom.gbc",$74bd4,$a + +ViridianGymObject: ; 0x74bde (size=105) + db $3 ; border tile + + db $2 ; warps + db $11, $10, $4, $ff + db $11, $11, $4, $ff + + db $0 ; signs + + db $b ; people + db SPRITE_GIOVANNI, $1 + 4, $2 + 4, $ff, $d0, $41, GIOVANNI + $C8, $3 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $c + 4, $ff, $d0, $42, COOLTRAINER_M + $C8, $9 ; trainer + db SPRITE_HIKER, $b + 4, $b + 4, $ff, $d1, $43, BLACKBELT + $C8, $6 ; trainer + db SPRITE_ROCKER, $7 + 4, $a + 4, $ff, $d0, $44, TAMER + $C8, $3 ; trainer + db SPRITE_HIKER, $7 + 4, $3 + 4, $ff, $d2, $45, BLACKBELT + $C8, $7 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $5 + 4, $d + 4, $ff, $d3, $46, COOLTRAINER_M + $C8, $a ; trainer + db SPRITE_HIKER, $1 + 4, $a + 4, $ff, $d0, $47, BLACKBELT + $C8, $8 ; trainer + db SPRITE_ROCKER, $10 + 4, $2 + 4, $ff, $d3, $48, TAMER + $C8, $4 ; trainer + db SPRITE_BLACK_HAIR_BOY_1, $5 + 4, $6 + 4, $ff, $d0, $49, COOLTRAINER_M + $C8, $1 ; trainer + db SPRITE_GYM_HELPER, $f + 4, $10 + 4, $ff, $d0, $a ; person + db SPRITE_BALL, $9 + 4, $10 + 4, $ff, $ff, $8b, REVIVE ; item + + ; warp-to + EVENT_DISP $a, $11, $10 + EVENT_DISP $a, $11, $11 + +ViridianGymBlocks: ; 90 + INCBIN "maps/viridiangym.blk" + +PewterMart_h: ; 0x74ca1 to 0x74cad (12 bytes) (id=56) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw PewterMartBlocks, PewterMartTexts, PewterMartScript ; blocks, texts, scripts + db $00 ; connections + + dw PewterMartObject ; objects + +PewterMartScript: ; 0x74cad + call $3c3c + ld a, $1 + ld [$cf0c], a + ret +; 0x74cb6 + +PewterMartTexts: ; 0x74cb6 + dw PewterMartText1, PewterMartText2, PewterMartText3 + +PewterMartText2: ; 0x74cbc + db $08 ; asm + ld hl, $4cc6 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$74cc6,$74ccb - $74cc6 + +PewterMartText3: ; 0x74ccb + db $08 ; asm + ld hl, $4cd5 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$74cd5,$5 + +PewterMartObject: ; 0x74cda (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $4, $ff + db $7, $4, $4, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_BUG_CATCHER, $3 + 4, $3 + 4, $fe, $1, $2 ; person + db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $5 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +UnknownDungeon1_h: ; 0x74d00 to 0x74d0c (12 bytes) (id=228) + db $11 ; tileset + db $09, $0f ; dimensions (y, x) + dw UnknownDungeon1Blocks, UnknownDungeon1Texts, UnknownDungeon1Script ; blocks, texts, scripts + db $00 ; connections + + dw UnknownDungeon1Object ; objects + +UnknownDungeon1Script: ; 0x74d0c + jp $3c3c +; 0x74d0f + +UnknownDungeon1Texts: ; 0x74d0f + dw UnknownDungeon1Text1, UnknownDungeon1Text2, UnknownDungeon1Text3 + +UnknownDungeon1Object: ; 0x74d15 (size=97) + db $7d ; border tile + + db $9 ; warps + db $11, $18, $6, $ff + db $11, $19, $6, $ff + db $1, $1b, $0, UNKNOWN_DUNGEON_2 + db $7, $17, $1, UNKNOWN_DUNGEON_2 + db $9, $12, $2, UNKNOWN_DUNGEON_2 + db $1, $7, $3, UNKNOWN_DUNGEON_2 + db $3, $1, $4, UNKNOWN_DUNGEON_2 + db $b, $3, $5, UNKNOWN_DUNGEON_2 + db $6, $0, $0, UNKNOWN_DUNGEON_3 + + db $0 ; signs + + db $3 ; people + db SPRITE_BALL, $d + 4, $7 + 4, $ff, $ff, $81, FULL_RESTORE ; item + db SPRITE_BALL, $3 + 4, $13 + 4, $ff, $ff, $82, MAX_ELIXER ; item + db SPRITE_BALL, $0 + 4, $5 + 4, $ff, $ff, $83, NUGGET ; item + + ; warp-to + EVENT_DISP $f, $11, $18 + EVENT_DISP $f, $11, $19 + EVENT_DISP $f, $1, $1b ; UNKNOWN_DUNGEON_2 + EVENT_DISP $f, $7, $17 ; UNKNOWN_DUNGEON_2 + EVENT_DISP $f, $9, $12 ; UNKNOWN_DUNGEON_2 + EVENT_DISP $f, $1, $7 ; UNKNOWN_DUNGEON_2 + EVENT_DISP $f, $3, $1 ; UNKNOWN_DUNGEON_2 + EVENT_DISP $f, $b, $3 ; UNKNOWN_DUNGEON_2 + EVENT_DISP $f, $6, $0 ; UNKNOWN_DUNGEON_3 + +UnknownDungeon1Blocks: ; 135 + INCBIN "maps/unknowndungeon1.blk" + +CeruleanHouse3_h: ; 0x74dfd to 0x74e09 (12 bytes) (id=230) + db $0d ; tileset + db $04, $04 ; dimensions (y, x) + dw CeruleanHouse3Blocks, $4e13, CeruleanHouse3Script ; blocks, texts, scripts + db $00 ; connections + + dw CeruleanHouse3Object ; objects + +CeruleanHouse3Script: ; 0x74e09 + ld a, $1 + ld [$cf0c], a + dec a + ld [$cc3c], a + ret +; 0x74e13 + +INCBIN "baserom.gbc",$74e13,$2 + +CeruleanHouse3Text1: ; 0x74e15 + db $8 + ld hl, $4e77 + call PrintText + xor a + ld [$cc26], a + ld [$cc36], a +.asm_74e23 + ld hl, $4e7c + call PrintText + ld hl, $4e6d + call $2a5a + ld hl, $cf7b + ld a, l + ld [$cf8b], a + ld a, h + ld [$cf8c], a + xor a + ld [$cf93], a + ld [$cc35], a + ld a, $4 + ld [$cf94], a + call $2be6 + jr c, .asm_74e60 ; 0x74e49 $15 + ld hl, $4e86 + ld a, [$cf91] + sub $15 + add a + ld d, $0 + ld e, a + add hl, de + ld a, [hli] + ld h, [hl] + ld l, a + call PrintText + jr .asm_74e23 ; 0x74e5e $c3 +.asm_74e60 + xor a + ld [$cc36], a + ld hl, $4e81 + call PrintText + jp $24d7 +; 0x74e6d + +INCBIN "baserom.gbc",$74e6d,$51 + +CeruleanHouse3Object: ; 0x74ebe (size=34) + db $c ; border tile + + db $3 ; warps + db $0, $2, $9, $ff + db $7, $2, $8, $ff + db $7, $3, $8, $ff + + db $0 ; signs + + db $1 ; people + db SPRITE_FAT_BALD_GUY, $3 + 4, $5 + 4, $ff, $d3, $1 ; person + + ; warp-to + EVENT_DISP $4, $0, $2 + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +INCBIN "baserom.gbc",$74ee0,$12c + +FuchsiaHouse1_h: ; 0x7500c to 0x75018 (12 bytes) (id=153) + db $08 ; tileset + db $04, $04 ; dimensions (y, x) + dw FuchsiaHouse1Blocks, FuchsiaHouse1Texts, FuchsiaHouse1Script ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaHouse1Object ; objects + +FuchsiaHouse1Script: ; 0x75018 + call $3c3c + ret +; 0x7501c + +FuchsiaHouse1Texts: ; 0x7501c + dw FuchsiaHouse1Text1, FuchsiaHouse1Text2, FuchsiaHouse1Text3 + +FuchsiaHouse1Text1: ; 0x75022 + TX_FAR _FuchsiaHouse1Text1 + db $50 + +FuchsiaHouse1Text2: ; 0x75027 + TX_FAR _FuchsiaHouse1Text2 + db $50 + +FuchsiaHouse1Text3: ; 0x7502c + TX_FAR _FuchsiaHouse1Text3 + db $50 + +FuchsiaHouse1Object: ; 0x75031 (size=38) + db $a ; border tile + + db $2 ; warps + db $7, $2, $1, $ff + db $7, $3, $1, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MOM_GEISHA, $3 + 4, $2 + 4, $ff, $d3, $1 ; person + db SPRITE_GAMBLER, $2 + 4, $7 + 4, $ff, $d1, $2 ; person + db SPRITE_BUG_CATCHER, $5 + 4, $5 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + +FuchsiaPokecenter_h: ; 0x75057 to 0x75063 (12 bytes) (id=154) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw FuchsiaPokecenterBlocks, $5069, FuchsiaPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaPokecenterObject ; objects + +FuchsiaPokecenterScript: ; 0x75063 + call $22fa + jp $3c3c +; 0x75069 + +INCBIN "baserom.gbc",$75069,$9 + +FuchsiaPokecenterText2: +FuchsiaPokecenterText1: ; 0x75071 or 0x75072 + TX_FAR _FuchsiaPokecenterText1 + db $50 + +FuchsiaPokecenterText3: ; 0x75077 + TX_FAR _FuchsiaPokecenterText3 + db $50 + +FuchsiaPokecenterText4: ; 0x7507c + db $f6 + +FuchsiaPokecenterObject: ; 0x7507d (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $2, $ff + db $7, $4, $2, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_ROCKER, $3 + 4, $2 + 4, $ff, $ff, $2 ; person + db SPRITE_LASS, $5 + 4, $6 + 4, $fe, $2, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +FuchsiaHouse2_h: ; 0x750a9 to 0x750b5 (12 bytes) (id=155) + db $14 ; tileset + db $04, $05 ; dimensions (y, x) + dw FuchsiaHouse2Blocks, FuchsiaHouse2Texts, FuchsiaHouse2Script ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaHouse2Object ; objects + +FuchsiaHouse2Script: ; 0x750b5 + jp $3c3c +; 0x750b8 + +FuchsiaHouse2Texts: ; 0x750b8 + dw FuchsiaHouse2Text1, FuchsiaHouse2Text2, FuchsiaHouse2Text3, FuchsiaHouse2Text4, FuchsiaHouse2Text5 + +FuchsiaHouse2Text1: ; 0x750c2 + db $08 ; asm + ld a, [$d78e] + bit 0, a + jr nz, .asm_58feb ; 0x750c8 + ld b,GOLD_TEETH + call $3493 + jr nz, .asm_3f30f ; 0x750cf + ld a, [$d78e] + bit 1, a + jr nz, .asm_60cba ; 0x750d6 + ld hl, $5135 + call PrintText + call $35ec + ld a, [$cc26] + and a + ld hl, $513f + jr nz, .asm_61238 ; 0x750e8 + ld hl, $513a +.asm_61238 ; 0x750ed + call PrintText + jr .asm_52039 ; 0x750f0 +.asm_3f30f ; 0x750f2 + ld hl, $5144 + call PrintText + ld a, $40 + ldh [$db], a + ld b, $5 ; BANK(MyFunction) + ld hl, $7f37 ; MyFunction + call Bankswitch + ld hl, $d78e + set 1, [hl] +.asm_60cba ; 0x75109 + ld hl, $514e + call PrintText + ld bc,(HM_04 << 8) | 1 + call $3e2e + jr nc, .asm_53b90 ; 0x75115 + ld hl, $5153 + call PrintText + ld hl, $d78e + set 0, [hl] + jr .asm_52039 ; 0x75122 +.asm_58feb ; 0x75124 + ld hl, $5159 + call PrintText + jr .asm_52039 ; 0x7512a +.asm_53b90 ; 0x7512c + ld hl, $515e + call PrintText +.asm_52039 ; 0x75132 + jp $24d7 + +INCBIN "baserom.gbc",$75135,$75163 - $75135 + +FuchsiaHouse2Text5: +FuchsiaHouse2Text4: ; 0x75163 + db $08 ; asm + ldh a, [$8c] + cp $4 + ld hl, $517b + jr nz, .asm_4c9a2 ; 0x7516b + ld hl, $5176 +.asm_4c9a2 ; 0x75170 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$75176,$a + +FuchsiaHouse2Object: ; 0x75180 (size=45) + db $17 ; border tile + + db $2 ; warps + db $7, $4, $3, $ff + db $7, $5, $3, $ff + + db $2 ; signs + db $3, $4, $4 ; FuchsiaHouse2Text4 + db $3, $5, $5 ; FuchsiaHouse2Text5 + + db $3 ; people + db SPRITE_WARDEN, $3 + 4, $2 + 4, $ff, $ff, $1 ; person + db SPRITE_BALL, $3 + 4, $8 + 4, $ff, $ff, $82, RARE_CANDY ; item + db SPRITE_BOULDER, $4 + 4, $8 + 4, $ff, $10, $3 ; person + + ; warp-to + EVENT_DISP $5, $7, $4 + EVENT_DISP $5, $7, $5 + +FuchsiaHouse2Blocks: ; 20 + INCBIN "maps/fuchsiahouse2.blk" + +SafariZoneEntrance_h: ; 0x751c1 to 0x751cd (12 bytes) (id=156) + db $0c ; tileset + db $03, $04 ; dimensions (y, x) + dw SafariZoneEntranceBlocks, SafariZoneEntranceTexts, SafariZoneEntranceScript ; blocks, texts, scripts + db $00 ; connections + + dw SafariZoneEntranceObject ; objects + +SafariZoneEntranceScript: ; 0x751cd + call $3c3c + ld hl, $51d9 + ld a, [$d61f] + jp $3d97 +; 0x751d9 + +SafariZoneEntranceScripts: ; 0x751d9 + dw SafariZoneEntranceScript0, SafariZoneEntranceScript1 + +INCBIN "baserom.gbc",$751dd,$a + +SafariZoneEntranceScript0: ; 0x751e7 + ld hl, $5221 + call $34bf + ret nc + ld a, $3 + ld [$ff00+$8c], a + call $2920 + ld a, $ff + ld [$cd6b], a + xor a + ld [$ff00+$b4], a + ld a, $c + ld [$c109], a + ld a, [$cd3d] + cp $1 + jr z, .asm_7520f ; 0x75207 $6 + ld a, $2 + ld [$d61f], a + ret +.asm_7520f + ld a, $10 + ld c, $1 + call $52a3 + ld a, $f0 + ld [$cd6b], a + ld a, $1 + ld [$d61f], a + ret +; 0x75221 + +INCBIN "baserom.gbc",$75221,$75226 - $75221 + +SafariZoneEntranceScript1: ; 0x75226 + call $52b4 + ret nz + xor a + ld [$ff00+$b4], a + ld [$cd6b], a + call $2429 + ld a, $4 + ld [$ff00+$8c], a + call $2920 + ld a, $ff + ld [$cd6b], a + ret +; 0x75240 + +INCBIN "baserom.gbc",$75240,$79 + +SafariZoneEntranceTexts: ; 0x752b9 + dw SafariZoneEntranceText1, SafariZoneEntranceText2, SafariZoneEntranceText3, SafariZoneEntranceText4, SafariZoneEntranceText5, SafariZoneEntranceText6 + +SafariZoneEntranceText3: +SafariZoneEntranceText1: ; 0x752c5 + TX_FAR _SafariZoneEntranceText1 + db $50 + +SafariZoneEntranceText4: +INCBIN "baserom.gbc",$752ca,$7536f - $752ca + +SafariZoneEntranceText5: ; 0x7536f +INCBIN "baserom.gbc",$7536f,6 + +INCBIN "baserom.gbc",$75375,$753c5 - $75375 + +SafariZoneEntranceText6: ; 0x753c5 +INCBIN "baserom.gbc",$753c5,5 + +SafariZoneEntranceText2: ; 0x753ca + db $08 ; asm + ld hl, $53e6 + call PrintText + call $35ec + ld a, [$cc26] + and a + ld hl, $53f0 + jr nz, .asm_278a6 ; 0x753db + ld hl, $53eb +.asm_278a6 ; 0x753e0 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$753e6,$f + +SafariZoneEntranceObject: ; 0x753f5 (size=48) + db $a ; border tile + + db $4 ; warps + db $5, $3, $4, $ff + db $5, $4, $4, $ff + db $0, $3, $0, SAFARI_ZONE_CENTER + db $0, $4, $1, SAFARI_ZONE_CENTER + + db $0 ; signs + + db $2 ; people + db SPRITE_WHITE_PLAYER, $2 + 4, $6 + 4, $ff, $d2, $1 ; person + db SPRITE_WHITE_PLAYER, $4 + 4, $1 + 4, $ff, $d3, $2 ; person + + ; warp-to + EVENT_DISP $4, $5, $3 + EVENT_DISP $4, $5, $4 + EVENT_DISP $4, $0, $3 ; SAFARI_ZONE_CENTER + EVENT_DISP $4, $0, $4 ; SAFARI_ZONE_CENTER + +SafariZoneEntranceBlocks: ; 12 + INCBIN "maps/safarizoneentrance.blk" + +FuchsiaGym_h: ; 0x75431 to 0x7543d (12 bytes) (id=157) + db $07 ; tileset + db $09, $05 ; dimensions (y, x) + dw FuchsiaGymBlocks, FuchsiaGymTexts, FuchsiaGymScript ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaGymObject ; objects + +FuchsiaGymScript: ; 0x7543d + call $5453 + call $3c3c + ld hl, $54eb + ld de, $5482 + ld a, [$d65b] + call $3160 + ld [$d65b], a + ret +; 0x75453 + +INCBIN "baserom.gbc",$75453,$82 + +FuchsiaGymTexts: ; 0x754d5 + dw FuchsiaGymText1, FuchsiaGymText2, FuchsiaGymText3, FuchsiaGymText4, FuchsiaGymText5, FuchsiaGymText6, FuchsiaGymText7, FuchsiaGymText8, FuchsiaGymText9, FuchsiaGymText10, FuchsiaGymText11 + +INCBIN "baserom.gbc",$754eb,$49 + +FuchsiaGymText1: ; 0x75534 + db $08 ; asm + ld a, [$d792] + bit 1, a + jr z, .asm_181b6 ; 0x7553a + bit 0, a + jr nz, .asm_adc3b ; 0x7553e + call z, $5497 + call $30b6 + jr .asm_e84c6 ; 0x75546 +.asm_adc3b ; 0x75548 + ld hl, $558b + call PrintText + jr .asm_e84c6 ; 0x7554e +.asm_181b6 ; 0x75550 + ld hl, $5581 + call PrintText + ld hl, $d72d + set 6, [hl] + set 7, [hl] + ld hl, $5586 + ld de, $5586 + call $3354 + ldh a, [$8c] + ld [$cf13], a + call $336a + call $32d7 + ld a, $5 + ld [$d05c], a + xor a + ldh [$b4], a + ld a, $3 + ld [$d65b], a +.asm_e84c6 ; 0x7557e + jp $24d7 + +INCBIN "baserom.gbc",$75581,$75590 - $75581 + +FuchsiaGymText9: ; 0x75590 +INCBIN "baserom.gbc",$75590,5 + +FuchsiaGymText10: ; 0x75595 +INCBIN "baserom.gbc",$75595,$7559f - $75595 + +FuchsiaGymText11: ; 0x7559f +INCBIN "baserom.gbc",$7559f,5 + +FuchsiaGymText2: ; 0x755a4 + db $08 ; asm + ld hl, $54eb + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$755ae,$755bd - $755ae + +FuchsiaGymText3: ; 0x755bd + db $08 ; asm + ld hl, $54f7 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$755c7,$755d6 - $755c7 + +FuchsiaGymText4: ; 0x755d6 + db $08 ; asm + ld hl, $5503 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$755e0,$755ef - $755e0 + +FuchsiaGymText5: ; 0x755ef + db $08 ; asm + ld hl, $550f + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$755f9,$75608 - $755f9 + +FuchsiaGymText6: ; 0x75608 + db $08 ; asm + ld hl, $551b + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$75612,$75621 - $75612 + +FuchsiaGymText7: ; 0x75621 + db $08 ; asm + ld hl, $5527 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$7562b,$7563a - $7562b + +FuchsiaGymText8: ; 0x7563a + db $08 ; asm + ld a, [$d792] + bit 1, a + ld hl, $5653 + jr nz, .asm_50671 ; 0x75643 + ld hl, $564e +.asm_50671 ; 0x75648 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$7564e,$a + +FuchsiaGymObject: ; 0x75658 (size=82) + db $3 ; border tile + + db $2 ; warps + db $11, $4, $5, $ff + db $11, $5, $5, $ff + + db $0 ; signs + + db $8 ; people + db SPRITE_BLACKBELT, $a + 4, $4 + 4, $ff, $d0, $41, KOGA + $C8, $1 ; trainer + db SPRITE_ROCKER, $d + 4, $8 + 4, $ff, $d0, $42, JUGGLER + $C8, $7 ; trainer + db SPRITE_ROCKER, $8 + 4, $7 + 4, $ff, $d3, $43, JUGGLER + $C8, $3 ; trainer + db SPRITE_ROCKER, $c + 4, $1 + 4, $ff, $d0, $44, JUGGLER + $C8, $8 ; trainer + db SPRITE_ROCKER, $5 + 4, $3 + 4, $ff, $d1, $45, TAMER + $C8, $1 ; trainer + db SPRITE_ROCKER, $2 + 4, $8 + 4, $ff, $d0, $46, TAMER + $C8, $2 ; trainer + db SPRITE_ROCKER, $7 + 4, $2 + 4, $ff, $d2, $47, JUGGLER + $C8, $4 ; trainer + db SPRITE_GYM_HELPER, $f + 4, $7 + 4, $ff, $d0, $8 ; person + + ; warp-to + EVENT_DISP $5, $11, $4 + EVENT_DISP $5, $11, $5 + +FuchsiaGymBlocks: ; 45 + INCBIN "maps/fuchsiagym.blk" + +FuchsiaMeetingRoom_h: ; 0x756d7 to 0x756e3 (12 bytes) (id=158) + db $14 ; tileset + db $04, $07 ; dimensions (y, x) + dw FuchsiaMeetingRoomBlocks, FuchsiaMeetingRoomTexts, FuchsiaMeetingRoomScript ; blocks, texts, scripts + db $00 ; connections + + dw FuchsiaMeetingRoomObject ; objects + +FuchsiaMeetingRoomScript: ; 0x756e3 + call $3c3c + ret +; 0x756e7 + +FuchsiaMeetingRoomTexts: ; 0x756e7 + dw FuchsiaMeetingRoomText1, FuchsiaMeetingRoomText2, FuchsiaMeetingRoomText3 + +FuchsiaMeetingRoomText1: ; 0x756ed + TX_FAR _FuchsiaMeetingRoomText1 + db $50 + +FuchsiaMeetingRoomText2: ; 0x756f2 + TX_FAR _FuchsiaMeetingRoomText2 + db $50 + +FuchsiaMeetingRoomText3: ; 0x756f7 + TX_FAR _FuchsiaMeetingRoomText3 + db $50 + +FuchsiaMeetingRoomObject: ; 0x756fc (size=38) + db $17 ; border tile + + db $2 ; warps + db $7, $4, $6, $ff + db $7, $5, $6, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_WHITE_PLAYER, $1 + 4, $4 + 4, $ff, $d0, $1 ; person + db SPRITE_WHITE_PLAYER, $2 + 4, $0 + 4, $ff, $d1, $2 ; person + db SPRITE_WHITE_PLAYER, $1 + 4, $a + 4, $ff, $d0, $3 ; person + + ; warp-to + EVENT_DISP $7, $7, $4 + EVENT_DISP $7, $7, $5 + +FuchsiaMeetingRoomBlocks: ; 28 + INCBIN "maps/fuchsiameetingroom.blk" + +CinnabarGym_h: ; 0x7573e to 0x7574a (12 bytes) (id=166) + db $16 ; tileset + db $09, $0a ; dimensions (y, x) + dw $5b26, CinnabarGymTexts, CinnabarGymScript ; blocks, texts, scripts + db $00 ; connections + + dw CinnabarGymObject ; objects + +CinnabarGymScript: ; 0x7574a + call $5759 + call $3c3c + ld hl, $57a6 + ld a, [$d65e] + jp $3d97 +; 0x75759 + +INCBIN "baserom.gbc",$75759,$757a6 - $75759 + +CinnabarGymScripts: ; 0x757a6 + dw CinnabarGymScript0, CinnabarGymScript1 + +INCBIN "baserom.gbc",$757aa,$4 + +CinnabarGymScript0: ; 0x757ae + ld a, [$da38] + and a + ret z + ld [$ff00+$8c], a + cp $4 + jr nz, .asm_757c3 ; 0x757b7 $a + ld a, $4 + ld [$d528], a + ld de, $57d7 + jr .asm_757cb ; 0x757c1 $8 +.asm_757c3 + ld de, $57da + ld a, $1 + ld [$d528], a +.asm_757cb + call $363a + ld a, $1 + ld [$d65e], a + ld [$da39], a + ret +; 0x757d7 + +INCBIN "baserom.gbc",$757d7,$757dc - $757d7 + +CinnabarGymScript1: ; 0x757dc + ld a, [$d730] + bit 0, a + ret nz + xor a + ld [$cd6b], a + ld a, [$da38] + ld [$cc55], a + ld [$ff00+$8c], a + jp $2920 +; 0x757f1 + +INCBIN "baserom.gbc",$757f1,$ae + +CinnabarGymTexts: ; 0x7589f + dw CinnabarGymText1, CinnabarGymText2, CinnabarGymText3, CinnabarGymText4, CinnabarGymText5, CinnabarGymText6, CinnabarGymText7, CinnabarGymText8, CinnabarGymText9 +;CinnabarGymText 10: ; 0x75925 +;CinnabarGymText 11: ; 0x7592a +;CinnabarGymText 12: ; 0x75934 + +INCBIN "baserom.gbc",$758b1,$2e + +CinnabarGymText1: ; 0x758df + db $8 + ld a, [$d79a] + bit 1, a + jr z, .asm_d9332 ; 0x758e5 $16 + bit 0, a + jr nz, .asm_3012f ; 0x758e9 $9 + call z, $5857 + call $30b6 + jp $24d7 +.asm_3012f ; 0x758f4 + ld hl, $5920 + call PrintText + jp $24d7 +.asm_d9332 ; 0x758fd + ld hl, $5914 + call PrintText + ld hl, $5919 + ld de, $5919 + call $3354 + ld a, $7 + ld [$d05c], a + jp $58b7 +; 0x75914 + +INCBIN "baserom.gbc",$75914,$25 + +CinnabarGymText2: ; 0x75939 + db $08 ; asm + call $57a0 + ld a, [$d79a] + bit 2, a + jr nz, .asm_46bb4 ; 0x75942 + ld hl, $595f + call PrintText + ld hl, $5964 + ld de, $5964 + call $3354 + jp $58b7 +.asm_46bb4 ; 0x75956 + ld hl, $5969 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$7595f,$7596e - $7595f + +CinnabarGymText3: ; 0x7596e + db $08 ; asm + call $57a0 + ld a, [$d79a] + bit 3, a + jr nz, .asm_4b406 ; 0x75977 + ld hl, $5994 + call PrintText + ld hl, $5999 + ld de, $5999 + call $3354 + jp $58b7 +.asm_4b406 ; 0x7598b + ld hl, $599e + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$75994,$759a3 - $75994 + +CinnabarGymText4: ; 0x759a3 + db $08 ; asm + call $57a0 + ld a, [$d79a] + bit 4, a + jr nz, .asm_c0673 ; 0x759ac + ld hl, $59c9 + call PrintText + ld hl, $59ce + ld de, $59ce + call $3354 + jp $58b7 +.asm_c0673 ; 0x759c0 + ld hl, $59d3 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$759c9,$759d8 - $759c9 + +CinnabarGymText5: ; 0x759d8 + db $08 ; asm + call $57a0 + ld a, [$d79a] + bit 5, a + jr nz, .asm_5cfd7 ; 0x759e1 + ld hl, $59fe + call PrintText + ld hl, $5a03 + ld de, $5a03 + call $3354 + jp $58b7 +.asm_5cfd7 ; 0x759f5 + ld hl, $5a08 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$759fe,$75a0d - $759fe + +CinnabarGymText6: ; 0x75a0d + db $08 ; asm + call $57a0 + ld a, [$d79a] + bit 6, a + jr nz, .asm_776b4 ; 0x75a16 + ld hl, $5a33 + call PrintText + ld hl, $5a38 + ld de, $5a38 + call $3354 + jp $58b7 +.asm_776b4 ; 0x75a2a + ld hl, $5a3d + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$75a33,$75a42 - $75a33 + +CinnabarGymText7: ; 0x75a42 + db $08 ; asm + call $57a0 + ld a, [$d79a] + bit 7, a + jr nz, .asm_2f755 ; 0x75a4b + ld hl, $5a68 + call PrintText + ld hl, $5a6d + ld de, $5a6d + call $3354 + jp $58b7 +.asm_2f755 ; 0x75a5f + ld hl, $5a72 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$75a68,$75a77 - $75a68 + +CinnabarGymText8: ; 0x75a77 + db $08 ; asm + call $57a0 + ld a, [$d79b] + bit 0, a + jr nz, .asm_d87be ; 0x75a80 + ld hl, $5a9d + call PrintText + ld hl, $5aa2 + ld de, $5aa2 + call $3354 + jp $58b7 +.asm_d87be ; 0x75a94 + ld hl, $5aa7 + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$75a9d,$75aac - $75a9d + +CinnabarGymText9: ; 0x75aac + db $08 ; asm + ld a, [$d79a] + bit 1, a + jr nz, .asm_627d9 ; 0x75ab2 + ld hl, $5ac2 + jr .asm_0b11d ; 0x75ab7 +.asm_627d9 ; 0x75ab9 + ld hl, $5ac7 +.asm_0b11d ; 0x75abc + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$75ac2,$a + +CinnabarGymObject: ; 0x75acc (size=90) + db $2e ; border tile + + db $2 ; warps + db $11, $10, $1, $ff + db $11, $11, $1, $ff + + db $0 ; signs + + db $9 ; people + db SPRITE_FAT_BALD_GUY, $3 + 4, $3 + 4, $ff, $d0, $41, BLAINE + $C8, $1 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $11 + 4, $ff, $d0, $42, SUPER_NERD + $C8, $9 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $11 + 4, $ff, $d0, $43, BURGLAR + $C8, $4 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $b + 4, $ff, $d0, $44, SUPER_NERD + $C8, $a ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $b + 4, $ff, $d0, $45, BURGLAR + $C8, $5 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $e + 4, $b + 4, $ff, $d0, $46, SUPER_NERD + $C8, $b ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $e + 4, $3 + 4, $ff, $d0, $47, BURGLAR + $C8, $6 ; trainer + db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $3 + 4, $ff, $d0, $48, SUPER_NERD + $C8, $c ; trainer + db SPRITE_GYM_HELPER, $d + 4, $10 + 4, $ff, $d0, $9 ; person + + ; warp-to + EVENT_DISP $a, $11, $10 + EVENT_DISP $a, $11, $11 + +CinnabarGymBlocks: ; 90 + INCBIN "maps/cinnabargym.blk" + +Lab1_h: ; 0x75b80 to 0x75b8c (12 bytes) (id=167) + db $14 ; tileset + db $04, $09 ; dimensions (y, x) + dw Lab1Blocks, Lab1Texts, Lab1Script ; blocks, texts, scripts + db $00 ; connections + + dw Lab1Object ; objects + +Lab1Script: ; 0x75b8c + call $3c3c + ret +; 0x75b90 + +Lab1Texts: ; 0x75b90 + dw Lab1Text1, Lab1Text2, Lab1Text3, Lab1Text4, Lab1Text5 + +Lab1Text1: ; 0x75b9a + TX_FAR _Lab1Text1 + db $50 + +Lab1Text2: ; 0x75b9f + TX_FAR _Lab1Text2 + db $50 + +Lab1Text3: ; 0x75ba4 + TX_FAR _Lab1Text3 + db $50 + +Lab1Text4: ; 0x75ba9 + TX_FAR _Lab1Text4 + db $50 + +Lab1Text5: ; 0x75bae + TX_FAR _Lab1Text5 + db $50 + +Lab1Object: ; 0x75bb3 (size=62) + db $17 ; border tile + + db $5 ; warps + db $7, $2, $2, $ff + db $7, $3, $2, $ff + db $4, $8, $0, CINNABAR_LAB_2 + db $4, $c, $0, CINNABAR_LAB_3 + db $4, $10, $0, CINNABAR_LAB_4 + + db $4 ; signs + db $2, $3, $2 ; Lab1Text2 + db $4, $9, $3 ; Lab1Text3 + db $4, $d, $4 ; Lab1Text4 + db $4, $11, $5 ; Lab1Text5 + + db $1 ; people + db SPRITE_FISHER, $3 + 4, $1 + 4, $ff, $ff, $1 ; person + + ; warp-to + EVENT_DISP $9, $7, $2 + EVENT_DISP $9, $7, $3 + EVENT_DISP $9, $4, $8 ; CINNABAR_LAB_2 + EVENT_DISP $9, $4, $c ; CINNABAR_LAB_3 + EVENT_DISP $9, $4, $10 ; CINNABAR_LAB_4 + +Lab1Blocks: ; 36 + INCBIN "maps/lab1.blk" + +Lab2_h: ; 0x75c15 to 0x75c21 (12 bytes) (id=168) + db $14 ; tileset + db $04, $04 ; dimensions (y, x) + dw Lab2Blocks, Lab2Texts, Lab2Script ; blocks, texts, scripts + db $00 ; connections + + dw Lab2Object ; objects + +Lab2Script: ; 0x75c21 + jp $3c3c +; 0x75c24 + +Lab2Texts: ; 0x75c24 + dw Lab2Text1, Lab2Text2, Lab2Text3 + +Lab2Text1: ; 0x75c2a + TX_FAR _Lab2Text1 + db $50 + +Lab2Text2: ; 0x75c2f + db $8 + ld a, $7 + ld [W_WHICHTRADE], a + jr asm_78552 ; 0x75c35 $6 + +Lab2Text3: + db $8 + ld a, $8 + ld [W_WHICHTRADE], a +asm_78552: ; 0x75c3d + ld a, $54 + call Predef + jp $24d7 + +Lab2Object: ; 0x75c45 (size=38) + db $17 ; border tile + + db $2 ; warps + db $7, $2, $2, CINNABAR_LAB_1 + db $7, $3, $2, CINNABAR_LAB_1 + + db $0 ; signs + + db $3 ; people + db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_OLD_PERSON, $4 + 4, $1 + 4, $ff, $ff, $2 ; person + db SPRITE_FOULARD_WOMAN, $5 + 4, $5 + 4, $ff, $d1, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; CINNABAR_LAB_1 + EVENT_DISP $4, $7, $3 ; CINNABAR_LAB_1 + +Lab2Blocks: ; 16 + INCBIN "maps/lab2.blk" + +Lab3_h: ; 0x75c7b to 0x75c87 (12 bytes) (id=169) + db $14 ; tileset + db $04, $04 ; dimensions (y, x) + dw Lab3Blocks, Lab3Texts, Lab3Script ; blocks, texts, scripts + db $00 ; connections + + dw Lab3Object ; objects + +Lab3Script: ; 0x75c87 + jp $3c3c +; 0x75c8a + +Lab3Texts: ; 0x75c8a + dw Lab3Text1, Lab3Text2, Lab3Text3, Lab3Text4, Lab3Text5 + +Lab3Text1: ; 0x75c94 + db $08 ; asm + ld a, [$d7a1] + bit 7, a + jr nz, .asm_e551a ; 0x75c9a + ld hl, $5cc8 + call PrintText + ld bc,(TM_35 << 8) | 1 + call $3e2e + jr nc, .asm_6c187 ; 0x75ca8 + ld hl, $5ccd + call PrintText + ld hl, $d7a1 + set 7, [hl] + jr .asm_eb896 ; 0x75cb5 +.asm_6c187 ; 0x75cb7 + ld hl, $5cd8 + call PrintText + jr .asm_eb896 ; 0x75cbd +.asm_e551a ; 0x75cbf + ld hl, $5cd3 + call PrintText +.asm_eb896 ; 0x75cc5 + jp $24d7 + +INCBIN "baserom.gbc",$75cc8,$15 + +Lab3Text2: ; 0x75cdd + TX_FAR _Lab3Text2 + db $50 + +Lab3Text4: +Lab3Text3: ; 0x75ce2 + TX_FAR _Lab3Text3 + db $50 + +Lab3Text5: ; 0x75ce7 + TX_FAR _Lab3Text5 + db $50 + +Lab3Object: ; 0x75cec (size=41) + db $17 ; border tile + + db $2 ; warps + db $7, $2, $3, CINNABAR_LAB_1 + db $7, $3, $3, CINNABAR_LAB_1 + + db $3 ; signs + db $4, $0, $3 ; Lab3Text3 + db $4, $1, $4 ; Lab3Text4 + db $1, $2, $5 ; Lab3Text5 + + db $2 ; people + db SPRITE_OAK_AIDE, $2 + 4, $7 + 4, $ff, $d0, $1 ; person + db SPRITE_OAK_AIDE, $3 + 4, $2 + 4, $fe, $2, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; CINNABAR_LAB_1 + EVENT_DISP $4, $7, $3 ; CINNABAR_LAB_1 + +Lab3Blocks: ; 16 + INCBIN "maps/lab3.blk" + +Lab4_h: ; 0x75d25 to 0x75d31 (12 bytes) (id=170) + db $14 ; tileset + db $04, $04 ; dimensions (y, x) + dw Lab4Blocks, $5d34, $5d31 ; blocks, texts, scripts + db $00 ; connections + + dw Lab4Object ; objects + +Lab4Script: ; 0x75d31 + jp $3c3c +; 0x75d34 + +INCBIN "baserom.gbc",$75d34,$38 + +Lab4Text1: ; 0x75d6c + db $8 + ld a, [$d7a3] + bit 0, a + jr nz, .asm_75d96 ; 0x75d72 $22 + ld hl, $5dc6 + call PrintText + call $5d38 + ld a, [$cd37] + and a + jr z, .asm_75d8d ; 0x75d81 $a + ld b, $18 + ld hl, $5006 + call Bankswitch + jr .asm_75d93 ; 0x75d8b $6 +.asm_75d8d + ld hl, $5dcb + call PrintText +.asm_75d93 + jp $24d7 +.asm_75d96 + bit 1, a + jr z, .asm_75da2 ; 0x75d98 $8 + ld hl, $5dd0 + call PrintText + jr .asm_75d93 ; 0x75da0 $f1 +.asm_75da2 + call $5de8 + ld hl, $5dd5 + call PrintText + ld hl, $d7a3 + set 2, [hl] + ld a, [$d710] + ld b, a + ld c, $1e + call GivePokemon + jr nc, .asm_75d93 ; 0x75db9 $d8 + ld hl, $d7a3 + res 0, [hl] + res 1, [hl] + res 2, [hl] + jr .asm_75d93 ; 0x75dc4 $cd +; 0x75dc6 + +INCBIN "baserom.gbc",$75dc6,$14 + +Lab4Text2: ; 0x75dda + db $08 ; asm + ld a, $3 + ld [W_WHICHTRADE], a + ld a, $54 + call Predef + jp $24d7 + +INCBIN "baserom.gbc",$75de8,$8 + +Lab4Object: ; 0x75df0 (size=32) + db $17 ; border tile + + db $2 ; warps + db $7, $2, $4, CINNABAR_LAB_1 + db $7, $3, $4, CINNABAR_LAB_1 + + db $0 ; signs + + db $2 ; people + db SPRITE_OAK_AIDE, $2 + 4, $5 + 4, $fe, $2, $1 ; person + db SPRITE_OAK_AIDE, $6 + 4, $7 + 4, $ff, $d1, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 ; CINNABAR_LAB_1 + EVENT_DISP $4, $7, $3 ; CINNABAR_LAB_1 + +Lab4Blocks: ; 16 + INCBIN "maps/lab4.blk" + +CinnabarPokecenter_h: ; 0x75e20 to 0x75e2c (12 bytes) (id=171) + db $06 ; tileset + db $04, $07 ; dimensions (y, x) + dw $4030, CinnabarPokecenterTexts, CinnabarPokecenterScript ; blocks, texts, scripts + db $00 ; connections + + dw CinnabarPokecenterObject ; objects + +CinnabarPokecenterScript: ; 0x75e2c + call $22fa + jp $3c3c +; 0x75e32 + +CinnabarPokecenterTexts: +INCBIN "baserom.gbc",$75e32,$9 + +CinnabarPokecenterText2: +CinnabarPokecenterText1: ; 0x75e3b + TX_FAR _CinnabarPokecenterText1 + db $50 + +CinnabarPokecenterText3: ; 0x75e40 + TX_FAR _CinnabarPokecenterText3 + db $50 + +CinnabarPokecenterText4: + db $f6 + +CinnabarPokecenterObject: ; 0x75e46 (size=44) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $3, $ff + db $7, $4, $3, $ff + + db $0 ; signs + + db $4 ; people + db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person + db SPRITE_LASS, $4 + 4, $9 + 4, $fe, $0, $2 ; person + db SPRITE_GENTLEMAN, $6 + 4, $2 + 4, $ff, $ff, $3 ; person + db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person + + ; warp-to + EVENT_DISP $7, $7, $3 + EVENT_DISP $7, $7, $4 + +CinnabarMart_h: ; 0x75e72 to 0x75e7e (12 bytes) (id=172) + db $02 ; tileset + db $04, $04 ; dimensions (y, x) + dw $4010, CinnabarMartTexts, CinnabarMartScript ; blocks, texts, scripts + db $00 ; connections + + dw CinnabarMartObject ; objects + +CinnabarMartScript: ; 0x75e7e + jp $3c3c +; 0x75e81 + +CinnabarMartTexts: ; 0x75e81 + dw CinnabarMartText1, CinnabarMartText2, CinnabarMartText3 + +CinnabarMartText2: ; 0x75e87 + TX_FAR _CinnabarMartText2 + db $50 + +CinnabarMartText3: ; 0x75e8c + TX_FAR _CinnabarMartText3 + db $50 + +CinnabarMartObject: ; 0x75e91 (size=38) + db $0 ; border tile + + db $2 ; warps + db $7, $3, $4, $ff + db $7, $4, $4, $ff + + db $0 ; signs + + db $3 ; people + db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person + db SPRITE_ERIKA, $2 + 4, $6 + 4, $ff, $ff, $2 ; person + db SPRITE_OAK_AIDE, $4 + 4, $3 + 4, $ff, $ff, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $7, $4 + +CopycatsHouseF1_h: ; 0x75eb7 to 0x75ec3 (12 bytes) (id=175) + db $01 ; tileset + db $04, $04 ; dimensions (y, x) + dw $4000, CopycatsHouseF1Texts, CopycatsHouseF1Script ; blocks, texts, scripts + db $00 ; connections + + dw CopycatsHouseF1Object ; objects + +CopycatsHouseF1Script: ; 0x75ec3 + jp $3c3c +; 0x75ec6 + +CopycatsHouseF1Texts: ; 0x75ec6 + dw CopycatsHouseF1Text1, CopycatsHouseF1Text2, CopycatsHouseF1Text3 + +CopycatsHouseF1Text1: ; 0x75ecc + TX_FAR _CopycatsHouseF1Text1 + db $50 + +CopycatsHouseF1Text2: ; 0x75ed1 + TX_FAR _CopycatsHouseF1Text2 + db $50 + +CopycatsHouseF1Text3: ; 0x75ed6 + TX_FAR _CopycatsHouseF1Text3 + db $8 + ld a, $28 + call $13d0 + jp $24d7 + +CopycatsHouseF1Object: ; 0x75ee3 (size=46) + db $a ; border tile + + db $3 ; warps + db $7, $2, $0, $ff + db $7, $3, $0, $ff + db $1, $7, $0, COPYCATS_HOUSE_2F + + db $0 ; signs + + db $3 ; people + db SPRITE_MOM_GEISHA, $2 + 4, $2 + 4, $ff, $d0, $1 ; person + db SPRITE_FAT_BALD_GUY, $4 + 4, $5 + 4, $ff, $d2, $2 ; person + db SPRITE_CLEFAIRY, $4 + 4, $1 + 4, $fe, $1, $3 ; person + + ; warp-to + EVENT_DISP $4, $7, $2 + EVENT_DISP $4, $7, $3 + EVENT_DISP $4, $1, $7 ; COPYCATS_HOUSE_2F + +INCBIN "baserom.gbc",$75f11,$75f1d - $75f11 + +GaryScript: ; 0x75f1d + call $3c3c + ld hl, $5f31 + ld a, [$d64c] + jp $3d97 +; 0x75f29 + +INCBIN "baserom.gbc",$75f29,$75f31 - $75f29 + +GaryScripts: ; 0x75f31 + dw GaryScript0 + +INCBIN "baserom.gbc",$75f33,$14 + +GaryScript0: ; 0x75f47 + ret +; 0x75f48 + +INCBIN "baserom.gbc",$75f48,$18e + +GaryTexts: ; 0x760d6 + dw GaryText1, GaryText2, GaryText3, GaryText4, GaryText5 + +GaryText1: ; 0x760e0 + db $08 ; asm + ld a, [$d867] + bit 1, a + ld hl, $60f4 + jr z, .asm_17e9f ; 0x760e9 + ld hl, $6103 +.asm_17e9f ; 0x760ee + call PrintText + jp $24d7 + +INCBIN "baserom.gbc",$760f4,$14 + +GaryText2: ; 0x76108 + TX_FAR _GaryText2 + db $50 + +GaryText3: ; 0x7610d +INCBIN "baserom.gbc",$7610d,$76125 - $7610d + +GaryText4: ; 0x76125 +INCBIN "baserom.gbc",$76125,$7612a - $76125 + +GaryText5: ; 0x7612a +INCBIN "baserom.gbc",$7612a,$7612f - $7612a + +GaryObject: ; 0x7612f (size=48) + db $3 ; border tile + + db $4 ; warps + db $7, $3, $1, LANCES_ROOM + db $7, $4, $2, LANCES_ROOM + db $0, $3, $0, HALL_OF_FAME + db $0, $4, $0, HALL_OF_FAME + + db $0 ; signs + + db $2 ; people + db SPRITE_BLUE, $2 + 4, $4 + 4, $ff, $d0, $1 ; person + db SPRITE_OAK, $7 + 4, $3 + 4, $ff, $d1, $2 ; person + + ; warp-to + EVENT_DISP $4, $7, $3 ; LANCES_ROOM + EVENT_DISP $4, $7, $4 ; LANCES_ROOM + EVENT_DISP $4, $0, $3 ; HALL_OF_FAME + EVENT_DISP $4, $0, $4 ; HALL_OF_FAME + +GaryBlocks: ; 16 + INCBIN "maps/gary.blk" + +Lorelei_h: ; 0x7616f to 0x7617b (12 bytes) (id=245) + db $07 ; tileset + db $06, $05 ; dimensions (y, x) + dw LoreleiBlocks, LoreleiTexts, LoreleiScript ; blocks, texts, scripts + db $00 ; connections + + dw LoreleiObject ; objects + +LoreleiScript: ; 0x7617b + call $6191 + call $3c3c + ld hl, $6255 + ld de, $61bb + ld a, [$d64d] + call $3160 + ld [$d64d], a + ret +; 0x76191 + +INCBIN "baserom.gbc",$76191,$c0 + +LoreleiTexts: ; 0x76251 + dw LoreleiText1, LoreleiText2 + +INCBIN "baserom.gbc",$76255,$d + +LoreleiText1: ; 0x76262 + db $08 ; asm + ld hl, $6255 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$7626c,$7627b - $7626c + +LoreleiText2: ; 0x7627b +INCBIN "baserom.gbc",$7627b,$76280 - $7627b + +LoreleiObject: ; 0x76280 (size=44) + db $3 ; border tile + + db $4 ; warps + db $b, $4, $2, INDIGO_PLATEAU_LOBBY + db $b, $5, $2, INDIGO_PLATEAU_LOBBY + db $0, $4, $0, BRUNOS_ROOM + db $0, $5, $1, BRUNOS_ROOM + + db $0 ; signs + + db $1 ; people + db SPRITE_LORELEI, $2 + 4, $5 + 4, $ff, $d0, $41, LORELEI + $C8, $1 ; trainer + + ; warp-to + EVENT_DISP $5, $b, $4 ; INDIGO_PLATEAU_LOBBY + EVENT_DISP $5, $b, $5 ; INDIGO_PLATEAU_LOBBY + EVENT_DISP $5, $0, $4 ; BRUNOS_ROOM + EVENT_DISP $5, $0, $5 ; BRUNOS_ROOM + +LoreleiBlocks: ; 30 + INCBIN "maps/loreli.blk" + +Bruno_h: ; 0x762ca to 0x762d6 (12 bytes) (id=246) + db $07 ; tileset + db $06, $05 ; dimensions (y, x) + dw BrunoBlocks, BrunoTexts, BrunoScript ; blocks, texts, scripts + db $00 ; connections + + dw BrunoObject ; objects + +BrunoScript: ; 0x762d6 + call $62ec + call $3c3c + ld hl, $63ac + ld de, $6312 + ld a, [$d64e] + call $3160 + ld [$d64e], a + ret +; 0x762ec + +INCBIN "baserom.gbc",$762ec,$bc + +BrunoTexts: ; 0x763a8 + dw BrunoText1, BrunoText2 + +INCBIN "baserom.gbc",$763ac,$d + +BrunoText1: ; 0x763b9 + db $08 ; asm + ld hl, $63ac + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$763c3,$763d2 - $763c3 + +BrunoText2: ; 0x763d2 +INCBIN "baserom.gbc",$763d2,5 + +BrunoObject: ; 0x763d7 (size=44) + db $3 ; border tile + + db $4 ; warps + db $b, $4, $2, LORELEIS_ROOM + db $b, $5, $3, LORELEIS_ROOM + db $0, $4, $0, AGATHAS_ROOM + db $0, $5, $1, AGATHAS_ROOM + + db $0 ; signs + + db $1 ; people + db SPRITE_BRUNO, $2 + 4, $5 + 4, $ff, $d0, $41, BRUNO + $C8, $1 ; trainer + + ; warp-to + EVENT_DISP $5, $b, $4 ; LORELEIS_ROOM + EVENT_DISP $5, $b, $5 ; LORELEIS_ROOM + EVENT_DISP $5, $0, $4 ; AGATHAS_ROOM + EVENT_DISP $5, $0, $5 ; AGATHAS_ROOM + +BrunoBlocks: ; 30 + INCBIN "maps/bruno.blk" + +Agatha_h: ; 0x76421 to 0x7642d (12 bytes) (id=247) + db $0f ; tileset + db $06, $05 ; dimensions (y, x) + dw AgathaBlocks, AgathaTexts, AgathaScript ; blocks, texts, scripts + db $00 ; connections + + dw AgathaObject ; objects + +AgathaScript: ; 0x7642d + call $6443 + call $3c3c + ld hl, $6509 + ld de, $6469 + ld a, [$d64f] + call $3160 + ld [$d64f], a + ret +; 0x76443 + +INCBIN "baserom.gbc",$76443,$c2 + +AgathaTexts: ; 0x76505 + dw AgathaText1, AgathaText2 + +INCBIN "baserom.gbc",$76509,$d + +AgathaText1: ; 0x76516 + db $08 ; asm + ld hl, $6509 + call LoadTrainerHeader + jp $24d7 + +INCBIN "baserom.gbc",$76520,$f + +AgathaText2: ; 0x7652f +INCBIN "baserom.gbc",$7652f,5 + +AgathaObject: ; 0x76534 (size=44) + db $0 ; border tile + + db $4 ; warps + db $b, $4, $2, BRUNOS_ROOM + db $b, $5, $3, BRUNOS_ROOM + db $0, $4, $0, LANCES_ROOM + db $0, $5, $0, LANCES_ROOM + + db $0 ; signs + + db $1 ; people + db SPRITE_AGATHA, $2 + 4, $5 + 4, $ff, $d0, $41, AGATHA + $C8, $1 ; trainer + + ; warp-to + EVENT_DISP $5, $b, $4 ; BRUNOS_ROOM + EVENT_DISP $5, $b, $5 ; BRUNOS_ROOM + EVENT_DISP $5, $0, $4 ; LANCES_ROOM + EVENT_DISP $5, $0, $5 ; LANCES_ROOM + +AgathaBlocks: ; 30 + INCBIN "maps/agatha.blk" + +INCBIN "baserom.gbc",$7657e,$1a82 + +SECTION "bank1E",DATA,BANK[$1E] + +INCBIN "baserom.gbc",$78000,$F1 + +PlayAnimation: ; 40F1 + xor a + ld [$FF8B],a + ld [$D08B],a + ld a,[$D07C] ; get animation number + dec a + ld l,a + ld h,0 + add hl,hl + ld de,$607D + add hl,de + ld a,[hli] + ld h,[hl] + ld l,a +.next7\@ + ld a,[hli] + cp a,$FF + jr z,.AnimationOver\@ + cp a,$C0 ; is this animation for a monster onscreen? + jr c,.next2\@ + ld c,a + ld de,$50DA +.next4\@ + ld a,[de] + cp c + jr z,.next3\@ + inc de + inc de + inc de + jr .next4\@ +.next3\@ + ld a,[hli] + cp a,$FF + jr z,.next5\@ + ld [$CF07],a + push hl + push de + call $586F + call $23B1 + pop de + pop hl +.next5\@ + push hl + inc de + ld a,[de] + ld l,a + inc de + ld a,[de] + ld h,a + ld de,.next6\@ + push de + jp [hl] +.next2\@ + ld c,a + and a,$3F + ld [$D086],a + xor a + sla c + rla + sla c + rla + ld [$D09F],a + ld a,[hli] + ld [$CF07],a + ld a,[hli] + ld c,l + ld b,h + ld l,a + ld h,0 + add hl,hl + ld de,$676D + add hl,de + ld a,l + ld [$D094],a + ld a,h + ld [$D095],a + ld l,c + ld h,b + push hl + ld a,[rOBP0] + push af + ld a,[$CC79] + ld [rOBP0],a + call $41D2 + call $417C + call RealPlayAnimation + pop af + ld [rOBP0],a +.next6\@ + pop hl + jr .next7\@ +.AnimationOver\@ ; 417B + ret + +INCBIN "baserom.gbc",$7817C,$78D5E - $7817C + +AttackAnimation: ; 4D5E + push hl + push de + push bc + push af + call $3748 + call $4E23 + ld a,[$D07C] + and a + jr z,.AnimationFinished\@ + + ; if throwing a Poké Ball, skip the regular animation code + cp a,TOSS_ANIM + jr nz,.AttackAnimation\@ + ld de,.AnimationFinished\@ + push de + jp TossBallAnimation + +.AttackAnimation\@ + ; check if battle animations are disabled in the options + ld a,[$D355] + bit 7,a + jr nz,.AnimationsDisabled\@ + call ShareAttackAnimations + call PlayAnimation + jr .next4\@ +.AnimationsDisabled\@ + ld c,30 + call DelayFrames +.next4\@ + call $4DBD ; reload pic and flash the pic in and out (to show damage) +.AnimationFinished\@ + call $3748 + xor a + ld [$D096],a + ld [$D09B],a + ld [$D08B],a + dec a + ld [$CF07],a + pop af + pop bc + pop de + pop hl + ret + +ShareAttackAnimations: ; 4DA6 +; some moves just reuse animations from status conditions + ld a,[H_WHOSETURN] + and a + ret z + + ; opponent’s turn + + ld a,[$D07C] + + cp a,AMNESIA + ld b,CONF_ANIM + jr z,.Replace\@ + + cp a,REST + ld b,SLP_ANIM + ret nz + +.Replace\@ + ld a,b + ld [$D07C],a + ret + +Function4DBD: ; 4DBD + ld a,[$CC5B] + and a + ret z + dec a + add a + ld c,a + ld b,0 + ld hl,Pointer4DCF + add hl,bc + ld a,[hli] + ld h,[hl] + ld l,a + jp [hl] + +Pointer4DCF: ; 4DCF + dw $4DDB,$4DE3,$4DEB,$4DF0,$4DF6,$4DFE + +INCBIN "baserom.gbc",$78DDB,$78E53-$78DDB + +RealPlayAnimation: ; 4E53 + ld a,[$CF07] ; get animation # − 1 + cp a,$FF + jr z,.Next4E60 + call $586F + call $23B1 ; play sound effect +.Next4E60 + ld hl,$C300 + ld a,l + ld [$D09D],a + ld a,h + ld [$D09C],a + ld a,[$D097] + ld h,a + ld a,[$D096] + ld l,a + push hl + ld c,[hl] + ld b,0 + ld hl,PointerTable6F74 + add hl,bc + add hl,bc + ld a,[hli] + ld c,a + ld a,[hli] + ld b,a + pop hl + inc hl + push hl + ld e,[hl] + ld d,0 + ld hl,$7C85 + add hl,de + add hl,de + ld a,[hli] + ld [$D082],a + ld a,[hl] + ld [$D081],a + pop hl + inc hl + ld a,[hl] + ld [$D09E],a + call $4000 + call $4ED7 + ld a,[$D087] + dec a + ld [$D087],a + ret z + ld a,[$D097] + ld h,a + ld a,[$D096] + ld l,a + ld a,[$D08B] + cp a,4 + ld bc,3 + jr nz,.Next4EBC + ld bc,$FFFD +.Next4EBC + add hl,bc + ld a,h + ld [$D097],a + ld a,l + ld [$D096],a + jp $4E73 + +INCBIN "baserom.gbc",$78EC8,$7986F - $78EC8 + +Func586F: ; 586F + ld hl,MoveSoundTable + ld e,a + ld d,0 + add hl,de + add hl,de + add hl,de + ld a,[hli] + ld b,a + call IsCryMove + jr nc,.NotCryMove + ld a,[H_WHOSETURN] + and a + jr nz,.next\@ + ld a,[$D014] ; get number of current monster + jr .Continue\@ +.next\@ + ld a,[$CFE5] +.Continue\@ + push hl + call $13D9 + ld b,a + pop hl + ld a,[$C0F1] + add [hl] + ld [$C0F1],a + inc hl + ld a,[$C0F2] + add [hl] + ld [$C0F2],a + jr .done\@ +.NotCryMove + ld a,[hli] + ld [$C0F1],a + ld a,[hli] + ld [$C0F2],a +.done\@ + ld a,b + ret +IsCryMove: +; set carry if the attack animation involves playing a monster cry + ld a,[$D07C] + cp a,GROWL + jr z,.CryMove + cp a,ROAR + jr z,.CryMove + and a ; clear carry + ret +.CryMove + scf + ret + +MoveSoundTable: + db $a0,$00,$80 + db $a2,$10,$80 + db $b3,$00,$80 + db $a1,$01,$80 + db $a3,$00,$40 + db $e9,$00,$ff + db $a3,$10,$60 + db $a3,$20,$80 + db $a3,$00,$a0 + db $a6,$00,$80 + db $a5,$20,$40 + db $a5,$00,$80 + db $a4,$00,$a0 + db $a7,$10,$c0 + db $a7,$00,$a0 + db $a8,$00,$c0 + db $a8,$10,$a0 + db $a9,$00,$e0 + db $a7,$20,$c0 + db $aa,$00,$80 + db $b9,$00,$80 + db $ab,$01,$80 + db $b7,$00,$80 + db $ad,$f0,$40 + db $b0,$00,$80 + db $ad,$00,$80 + db $b8,$10,$80 + db $b1,$01,$a0 + db $ae,$00,$80 + db $b4,$00,$60 + db $b4,$01,$40 + db $b6,$00,$a0 + db $b0,$10,$a0 + db $b7,$00,$c0 + db $aa,$10,$60 + db $b0,$00,$a0 + db $b9,$11,$c0 + db $b0,$20,$c0 + db $b8,$00,$80 + db $b1,$00,$80 + db $b1,$20,$c0 + db $af,$00,$80 + db $db,$ff,$40 + db $b4,$00,$80 + db $a1,$00,$c0 + db $a1,$00,$40 + db $e4,$00,$80 + db $bf,$40,$60 + db $bf,$00,$80 + db $bf,$ff,$40 + db $c7,$80,$c0 + db $af,$10,$a0 + db $af,$21,$e0 + db $c5,$00,$80 + db $bb,$20,$60 + db $c7,$00,$80 + db $cc,$00,$80 + db $c2,$40,$80 + db $c5,$f0,$e0 + db $cf,$00,$80 + db $c7,$f0,$60 + db $c2,$00,$80 + db $e6,$00,$80 + db $9d,$01,$a0 + db $a9,$f0,$20 + db $ba,$01,$c0 + db $ba,$00,$80 + db $b0,$00,$e0 + db $be,$01,$60 + db $be,$20,$40 + db $bb,$00,$80 + db $bb,$40,$c0 + db $b1,$03,$60 + db $bd,$11,$e0 + db $a8,$20,$e0 + db $d2,$00,$80 + db $b2,$00,$80 + db $b2,$11,$a0 + db $b2,$01,$c0 + db $a9,$14,$c0 + db $b1,$02,$a0 + db $c5,$f0,$80 + db $c5,$20,$c0 + db $d5,$00,$20 + db $d5,$20,$80 + db $d2,$12,$60 + db $be,$00,$80 + db $aa,$01,$e0 + db $c5,$0f,$e0 + db $c5,$11,$20 + db $a6,$10,$40 + db $a5,$10,$c0 + db $aa,$00,$20 + db $d8,$00,$80 + db $e4,$11,$18 + db $9f,$20,$c0 + db $9e,$20,$c0 + db $bd,$00,$10 + db $be,$f0,$20 + db $df,$f0,$c0 + db $a7,$f0,$e0 + db $9f,$f0,$40 + db $db,$00,$80 + db $df,$80,$40 + db $df,$00,$80 + db $aa,$11,$20 + db $aa,$22,$10 + db $b1,$f1,$ff + db $a9,$f1,$ff + db $aa,$33,$30 + db $dd,$40,$c0 + db $a4,$20,$20 + db $a4,$f0,$10 + db $a5,$f8,$10 + db $a7,$f0,$10 + db $bd,$00,$80 + db $ae,$00,$c0 + db $dd,$c0,$ff + db $9f,$f2,$20 + db $e1,$00,$80 + db $e1,$00,$40 + db $9f,$00,$40 + db $a7,$10,$ff + db $c7,$20,$20 + db $dd,$00,$80 + db $c5,$1f,$20 + db $bd,$2f,$80 + db $a5,$1f,$ff + db $ca,$1f,$60 + db $be,$1e,$20 + db $be,$1f,$18 + db $aa,$0f,$80 + db $9f,$f8,$10 + db $9e,$18,$20 + db $dd,$08,$40 + db $ad,$01,$e0 + db $a7,$09,$ff + db $e4,$42,$01 + db $b2,$00,$ff + db $dd,$08,$e0 + db $bb,$00,$80 + db $9f,$88,$10 + db $bd,$48,$ff + db $9e,$ff,$ff + db $bb,$ff,$10 + db $9e,$ff,$04 + db $b2,$01,$ff + db $a9,$f8,$ff + db $a2,$f0,$f0 + db $a5,$08,$10 + db $a3,$f0,$ff + db $b0,$f0,$ff + db $e1,$10,$ff + db $a4,$f0,$20 + db $ca,$f0,$60 + db $b8,$12,$10 + db $e6,$f0,$20 + db $b4,$12,$ff + db $db,$80,$04 + db $df,$f0,$10 + db $c5,$f8,$ff + db $be,$f0,$ff + db $a7,$01,$ff + db $cc,$d8,$04 + db $a1,$00,$80 + db $a1,$00,$80 + +INCBIN "baserom.gbc",$79AAE,$79E16 - $79AAE + +TossBallAnimation: ; 5E16 + ld a,[W_ISINBATTLE] + cp a,2 + jr z,.BlockBall\@ ; if in trainer battle, play different animation + ld a,[$D11E] + ld b,a + + ; upper nybble: how many animations (from PokeBallAnimations) to play + ; this will be 4 for successful capture, 6 for breakout + and a,$F0 + swap a + ld c,a + + ; lower nybble: number of shakes + ; store these for later + ld a,b + and a,$F + ld [$CD3D],a + + ld hl,.PokeBallAnimations + ; choose which toss animation to use + ld a,[$CF91] + cp a,POKE_BALL + ld b,TOSS_ANIM + jr z,.done\@ + cp a,GREAT_BALL + ld b,GREATTOSS_ANIM + jr z,.done\@ + ld b,ULTRATOSS_ANIM +.done\@ + ld a,b +.PlayNextAnimation\@ + ld [$D07C],a + push bc + push hl + call PlayAnimation + pop hl + ld a,[hli] + pop bc + dec c + jr nz,.PlayNextAnimation\@ + ret + +.PokeBallAnimations: ; 5E50 +; sequence of animations that make up the Poké Ball toss + db POOF_ANIM,HIDEPIC_ANIM,$C2,POOF_ANIM,SHOWPIC_ANIM + +.BlockBall\@ ; 5E55 + ld a,$C1 + ld [$D07C],a + call PlayAnimation + ld a,$95 + call $23B1 ; play sound effect + ld a,BLOCKBALL_ANIM + ld [$D07C],a + jp PlayAnimation + +INCBIN "baserom.gbc",$79E6A,$7AF74 - $79E6A + +PointerTable6F74: ; 6F74 + dw $7de7 + dw $7068 + dw $708d + dw $70ce + dw $70df + dw $70f0 + dw $7101 + dw $7132 + dw $7173 + dw $71b4 + dw $71e5 + dw $7216 + dw $7227 + dw $7238 + dw $7259 + dw $726a + dw $727b + dw $729c + dw $72bd + dw $72ca + dw $72db + dw $72fc + dw $732d + dw $734e + dw $735f + dw $7364 + dw $736d + dw $7376 + dw $737f + dw $7388 + dw $7391 + dw $73ab + dw $73b4 + dw $73cd + dw $73fe + dw $744b + dw $745c + dw $7465 + dw $7496 + dw $74a7 + dw $74bc + dw $74d5 + dw $74e6 + dw $74f7 + dw $7500 + dw $7505 + dw $7526 + dw $7547 + dw $7558 + dw $7569 + dw $756e + dw $758b + dw $75a8 + dw $75ad + dw $75c6 + dw $75d7 + dw $75e8 + dw $75f9 + dw $760a + dw $761b + dw $7630 + dw $7649 + dw $7666 + dw $7687 + dw $76a8 + dw $76b5 + dw $76c6 + dw $76f3 + dw $7720 + dw $7731 + dw $7742 + dw $7753 + dw $7764 + dw $7775 + dw $785a + dw $786b + dw $787c + dw $788d + dw $789e + dw $78bf + dw $78f0 + dw $7911 + dw $7932 + dw $7943 + dw $7950 + dw $7961 + dw $796e + dw $7987 + dw $79ac + dw $79c9 + dw $79ce + dw $79ff + dw $7a10 + dw $7a31 + dw $7a5e + dw $7a9b + dw $7aac + dw $7acd + dw $7afe + dw $7b3f + dw $7b58 + dw $7b71 + dw $7b8a + dw $7b93 + dw $7b98 + dw $7ba9 + dw $7bae + dw $7bcf + dw $7bf0 + dw $7c11 + dw $7c1a + dw $7c2b + dw $7c3c + dw $77b6 + dw $77f7 + dw $7828 + dw $7849 + dw $739a + dw $7c4d + dw $7c6a + dw $7c7b + dw $7c80 + +INCBIN "baserom.gbc",$7B068,$7C000 - $7B068 + +SECTION "bank1F",DATA,BANK[$1F] + +INCBIN "baserom.gbc",$7C000,$4000 + +SECTION "bank20",DATA,BANK[$20] + +INCBIN "baserom.gbc",$80000,$800b1 - $80000 + +_VictoryRoad3Text10: +_VictoryRoad3Text9: +_VictoryRoad3Text8: +_VictoryRoad3Text7: +_VictoryRoad2Text13: +_VictoryRoad2Text12: +_VictoryRoad2Text11: +_SeafoamIslands1Text2: +_SeafoamIslands1Text1: +_SeafoamIslands5Text2: +_SeafoamIslands5Text1: +_SeafoamIslands4Text6: +_SeafoamIslands4Text5: +_SeafoamIslands4Text4: +_SeafoamIslands4Text3: +_SeafoamIslands4Text2: +_SeafoamIslands4Text1: +_SeafoamIslands3Text2: +_SeafoamIslands3Text1: +_SeafoamIslands2Text2: +_SeafoamIslands2Text1: +_FuchsiaHouse2Text3: +_VictoryRoad1Text7: +_VictoryRoad1Text6: +_VictoryRoad1Text5: ; 0x800b1 + db $0, "This requires", $4f + db "STRENGTH to move!", $57 + +_SaffronCityText19: +_CinnabarIslandText4: +_FuchsiaCityText14: +_VermilionCityText9: +_LavenderTownText6: +_CeruleanCityText14: +_PewterCityText8: +_ViridianCityText11: ; 0x800d2 + db $0, "All your item", $4f + db "needs fulfilled!", $55 + db "#MON MART", $57 + +_ViridianCityText12: ; 0x800fc + db $0, "Heal Your #MON!", $4f + db "#MON CENTER", $57 + +INCBIN "baserom.gbc",$80119,$8031d - $80119 + +_ViridianForestText1: ; 0x8031d + db $0, "I came here with", $4f + db "some friends!", $51 + db "They're out for", $4f + db "#MON fights!", $57 + +INCBIN "baserom.gbc",$80359,$804c7 - $80359 + +_ViridianForestText8: ; 0x804c7 + db $0, "I ran out of #", $4f + db "BALLs to catch", $55 + db "#MON with!", $51 + db "You should carry", $4f + db "extras!", $57 + +_ViridianForestText9: ; 0x8050a + db $0, "TRAINER TIPS", $51 + db "If you want to", $4f + db "avoid battles,", $55 + db "stay away from", $55 + db "grassy areas!", $57 + +_ViridianForestText10: ; 0x80553 + db $0, "For poison, use", $4f + db "ANTIDOTE! Get it", $55 + db "at #MON MARTs!", $57 + +_ViridianForestText11: ; 0x80584 + db $0, "TRAINER TIPS", $51 + db "Contact PROF.OAK", $4f + db "via PC to get", $55 + db "your #DEX", $55 + db "evaluated!", $57 + +_ViridianForestText12: ; 0x805c6 + db $0, "TRAINER TIPS", $51 + db "No stealing of", $4f + db "#MON from", $55 + db "other trainers!", $55 + db "Catch only wild", $55 + db "#MON!", $57 + +_ViridianForestText13: ; 0x80613 + db $0, "TRAINER TIPS", $51 + db "Weaken #MON", $4f + db "before attempting", $55 + db "capture!", $51 + db "When healthy,", $4f + db "they may escape!", $57 + +_ViridianForestText14: ; 0x80667 + db $0, "LEAVING", $4f + db "VIRIDIAN FOREST", $55 + db "PEWTER CITY AHEAD", $57 + +INCBIN "baserom.gbc",$80692,$8093a - $80692 + +_MtMoon1Text14: ; 0x8093a + db $0, "Beware! ZUBAT is", $4f + db "a blood sucker!", $57 + +INCBIN "baserom.gbc",$8095c,$80c70 - $8095c + +_SSAnne1Text1: ; 0x80c70 + db $0, "Bonjour!", $4f + db "I am le waiter on", $55 + db "this ship!", $51 + db "I will be happy", $4f + db "to serve you any-", $55 + db "thing you please!", $51 + db "Ah! Le strong", $4f + db "silent type!", $57 + +_SSAnne1Text2: ; 0x80ce6 + db $0, "The passengers", $4f + db "are restless!", $51 + db "You might be", $4f + db "challenged by the", $55 + db "more bored ones!", $57 + +_SSAnne2Text1: ; 0x80d34 + db $0, "This ship, she is", $4f + db "a luxury liner", $55 + db "for trainers!", $51 + db "At every port, we", $4f + db "hold parties with", $55 + db "invited trainers!", $57 + +INCBIN "baserom.gbc",$80d9a,$80f4b - $80d9a + +_SSAnne3Text1: ; 0x80f4b + db $0, "Our CAPTAIN is a", $4f + db "sword master!", $51 + db "He even teaches", $4f + db "CUT to #MON!", $57 + +_SSAnne5Text1: ; 0x80f88 + db $0, "The party's over.", $4f + db "The ship will be", $55 + db "departing soon.", $57 + +_SSAnne5Text2: ; 0x80fbb + db $0, "Scrubbing decks", $4f + db "is hard work!", $57 + +_SSAnne5Text3: ; 0x80fda + db $0, "Urf. I feel ill.", $51 + db "I stepped out to", $4f + db "get some air.", $57 + +INCBIN "baserom.gbc",$8100b,$810e5 - $8100b + +_SSAnne6Text1: ; 0x810e5 + db $0, "You, mon petit!", $4f + db "We're busy here!", $55 + db "Out of the way!", $57 + +_SSAnne6Text2: ; 0x81116 + db $0, "I saw an odd ball", $4f + db "in the trash.", $57 + +_SSAnne6Text3: ; 0x81137 + db $0, "I'm so busy I'm", $4f + db "getting dizzy!", $57 + +_SSAnne6Text4: ; 0x81155 + db $0, "Hum-de-hum-de-", $4f + db "ho...", $51 + db "I peel spuds", $4f + db "every day!", $55 + db "Hum-hum...", $57 + +_SSAnne6Text5: ; 0x8118e + db $0, "Did you hear about", $4f + db "SNORLAX?", $51 + db "All it does is", $4f + db "eat and sleep!", $57 + +_SSAnne6Text6: ; 0x811c9 + db $0, "Snivel...Sniff...", $51 + db "I only get to", $4f + db "peel onions...", $55 + db "Snivel...", $57 + +INCBIN "baserom.gbc",$81203,$81480 - $81203 + +_SSAnne7Text2: ; 0x81480 + db $0, "Yuck! Shouldn't", $4f + db "have looked!", $57 + +_SSAnne7Text3: ; 0x8149d + db $0, "How to Conquer", $4f + db "Seasickness...", $55 + db "The CAPTAIN's", $55 + db "reading this!", $57 + +_SSAnne8Text8: ; 0x814d7 + db $0, "WIGGLYTUFF: Puup", $4f + db "pupuu!@@" + +INCBIN "baserom.gbc",$814f1,$1d6 + +_SSAnne8Text5: ; 0x816c7 + db $0, "Waiter, I would", $4f + db "like a cherry pie", $55 + db "please!", $57 + +_SSAnne8Text6: ; 0x816f2 + db $0, "A cruise is so", $4f + db "elegant yet cozy!", $57 + +_SSAnne8Text7: ; 0x81714 + db $0, "I always travel", $4f + db "with WIGGLYTUFF!", $57 + +_SSAnne8Text9: ; 0x81736 + db $0, "We are cruising", $4f + db "around the world.", $57 + +_SSAnne8Text11: ; 0x81759 + db $0, "Ssh! I'm a GLOBAL", $4f + db "POLICE agent!", $51 + db "I'm on the trail", $4f + db "of TEAM ROCKET!", $57 + +INCBIN "baserom.gbc",$81799,$81aaa - $81799 + +_SSAnne10Text8: ; 0x81aaa + db $0, "MACHOKE: Gwoh!", $4f + db "Goggoh!@@" + +INCBIN "baserom.gbc",$81ac3,$289 + +_SSAnne10Text7: ; 0x81d4c + db $0, "My buddy, MACHOKE,", $4f + db "is super strong!", $51 + db "He has enough", $4f + db "STRENGTH to move", $55 + db "big rocks!", $57 + +INCBIN "baserom.gbc",$81d9b,$2265 + +SECTION "bank21",DATA,BANK[$21] + +INCBIN "baserom.gbc",$84000,$840a4 - $84000 + +_SilphCo5Text9: ; 0x840a4 + db $0, "It's a #MON", $4f + db "REPORT!", $51 + db "#MON LAB", $4f + db "created PORYGON,", $55 + db "the first virtual", $55 + db "reality #MON.", $57 + +_SilphCo5Text10: ; 0x840f2 + db $0, "It's a #MON", $4f + db "REPORT!", $51 + db "Over 160 #MON", $4f + db "techniques have", $55 + db "been confirmed.", $57 + +_SilphCo5Text11: ; 0x84134 + db $0, "It's a #MON", $4f + db "REPORT!", $51 + db "4 #MON evolve", $4f + db "only when traded", $55 + db "by link-cable.", $57 + +INCBIN "baserom.gbc",$84176,$8502f - $84176 + +_SilphCo11Text2: ; 0x8502f + db $0, "SECRETARY: Thank", $4f + db "you for rescuing", $55 + db "all of us!", $51 + db "We admire your", $4f + db "courage.", $57 + +_SilphCo11Text3: ; 0x85075 + db $0, "Ah ", $52, "!", $4f + db "So we meet again!", $51 + db "The PRESIDENT and", $4f + db "I are discussing", $55 + db "a vital business", $55 + db "proposition.", $51 + db "Keep your nose", $4f + db "out of grown-up", $55 + db "matters...", $51 + db "Or, experience a", $4f + db "world of pain!", $57 + +INCBIN "baserom.gbc",$85119,$21d + +_Mansion2Text3: ; 0x85336 + db $0, "Diary: July 5", $4f + db "Guyana,", $55 + db "South America", $51 + db "A new #MON was", $4f + db "discovered deep", $55 + db "in the jungle.", $57 + +_Mansion2Text4: ; 0x85389 + db $0, "Diary: July 10", $4f + db "We christened the", $55 + db "newly discovered", $55 + db "#MON, MEW.", $57 + +INCBIN "baserom.gbc",$853c7,$854a3 - $853c7 + +_Mansion3Text5: ; 0x854a3 + db $0, "Diary: Feb. 6", $4f + db "MEW gave birth.", $51 + db "We named the", $4f + db "newborn MEWTWO.", $57 + +INCBIN "baserom.gbc",$854df,$85583 - $854df + +_Mansion4Text7: ; 0x85583 + db $0, "Diary; Sept. 1", $4f + db "MEWTWO is far too", $55 + db "powerful.", $51 + db "We have failed to", $4f + db "curb its vicious", $55 + db "tendencies...", $57 + +_SafariZoneEastText5: ; 0x855e0 + db $0, "REST HOUSE", $57 + +_SafariZoneEastText6: ; 0x855ec + db $0, "TRAINER TIPS", $51 + db "The remaining time", $4f + db "declines only", $55 + db "while you walk!", $57 + +_SafariZoneEastText7: ; 0x8562b + db $0, "CENTER AREA", $4f + db "NORTH: AREA 2", $57 + +_SafariZoneNorthText3: ; 0x85646 + db $0, "REST HOUSE", $57 + +_SafariZoneNorthText4: ; 0x85652 + db $0, "TRAINER TIPS", $51 + db "The SECRET HOUSE", $4f + db "is still ahead!", $57 + +_SafariZoneNorthText5: ; 0x85681 + db $0, "AREA 2", $57 + +_SafariZoneNorthText6: ; 0x85689 + db $0, "TRAINER TIPS", $51 + db "#MON hide in", $4f + db "tall grass!", $51 + db "Zigzag through", $4f + db "grassy areas to", $55 + db "flush them out.", $57 + +_SafariZoneNorthText7: ; 0x856df + db $0, "TRAINER TIPS", $51 + db "Win a free HM for", $4f + db "finding the", $55 + db "SECRET HOUSE!", $57 + +_SafariZoneWestText5: ; 0x85719 + db $0, "REST HOUSE", $57 + +_SafariZoneWestText6: ; 0x85725 + db $0, "REQUEST NOTICE", $51 + db "Please find the", $4f + db "SAFARI WARDEN's", $55 + db "lost GOLD TEETH.", $55 + db "They're around", $55 + db "here somewhere.", $51 + db "Reward offered!", $4f + db "Contact: WARDEN", $57 + +_SafariZoneWestText7: ; 0x857a3 + db $0, "TRAINER TIPS", $51 + db "Zone Exploration", $4f + db "Campaign!", $51 + db "The Search for", $4f + db "the SECRET HOUSE!", $57 + +_SafariZoneWestText8: ; 0x857ed + db $0, "AREA 3", $4f + db "EAST: CENTER AREA", $57 + +_SafariZoneCenterText2: ; 0x85807 + db $0, "REST HOUSE", $57 + +_SafariZoneCenterText3: ; 0x85813 + db $0, "TRAINER TIPS", $51 + db "Press the START", $4f + db "Button to check", $55 + db "remaining time!", $57 + +_SafariZoneRestHouse1Text1: ; 0x85851 + db $0, "SARA: Where did", $4f + db "my boy friend,", $55 + db "ERIK, go?", $57 + +_SafariZoneRestHouse1Text2: ; 0x8587b + db $0, "I'm catching", $4f + db "#MON to take", $55 + db "home as gifts!", $57 + +INCBIN "baserom.gbc",$858a4,$85a2f - $858a4 + +_SafariZoneRestHouse2Text1: ; 0x85a2f + db $0, "Tossing ROCKs at", $4f + db "#MON might", $55 + db "make them run,", $55 + db "but they'll be", $55 + db "easier to catch.", $57 + +_SafariZoneRestHouse2Text2: ; 0x85a7a + db $0, "Using BAIT will", $4f + db "make #MON", $55 + db "easier to catch.", $57 + +_SafariZoneRestHouse2Text3: ; 0x85aa6 + db $0, "I hiked a lot, but", $4f + db "I didn't see any", $55 + db "#MON I wanted.", $57 + +_SafariZoneRestHouse3Text1: ; 0x85ad9 + db $0, "How many did you", $4f + db "catch? I'm bushed", $55 + db "from the work!", $57 + +_SafariZoneRestHouse3Text2: ; 0x85b0b + db $0, "I caught a", $4f + db "CHANSEY!", $51 + db "That makes this", $4f + db "all worthwhile!", $57 + +_SafariZoneRestHouse3Text3: ; 0x85b40 + db $0, "Whew! I'm tired", $4f + db "from all the fun!", $57 + +_SafariZoneRestHouse4Text1: ; 0x85b62 + db $0, "You can keep any", $4f + db "item you find on", $55 + db "the ground here.", $51 + db "But, you'll run", $4f + db "out of time if", $55 + db "you try for all", $55 + db "of them at once!", $57 + +_SafariZoneRestHouse4Text2: ; 0x85bd5 + db $0, "Go to the deepest", $4f + db "part of the", $55 + db "SAFARI ZONE. You", $55 + db "will win a prize!", $57 + +_SafariZoneRestHouse4Text3: ; 0x85c17 + db $0, "My EEVEE evolved", $4f + db "into FLAREON!", $51 + db "But, a friend's", $4f + db "EEVEE turned into", $55 + db "a VAPOREON!", $55 + db "I wonder why?", $57 + +INCBIN "baserom.gbc",$85c72,$343 + +_HallofFameRoomText1: ; 0x85fb5 + db $0, "OAK: Er-hem!", $4f + db "Congratulations", $55 + db $52, "!", $51 + db "This floor is the", $4f + db "#MON HALL OF", $55 + db "FAME!", $51 + db "#MON LEAGUE", $4f + db "champions are", $55 + db "honored for their", $55 + db "exploits here!", $51 + db "Their #MON are", $4f + db "also recorded in", $55 + db "the HALL OF FAME!", $51 + db $52, "! You have", $4f + db "endeavored hard", $55 + db "to become the new", $55 + db "LEAGUE champion!", $51 + db "Congratulations,", $4f + db $52, ", you and", $55 + db "your #MON are", $55 + db "HALL OF FAMERs!", $57 + +INCBIN "baserom.gbc",$860e1,$863c1 - $860e1 + +_GaryText2: ; 0x863c1 + db $0, "OAK: ", $52, "!", $57 + +INCBIN "baserom.gbc",$863ca,$1c36 + +SECTION "bank22",DATA,BANK[$22] + +INCBIN "baserom.gbc",$88000,$8807e - $88000 + +_SeafoamIslands5Text4: ; 0x8807e + db $0, "Boulders might", $4f + db "change the flow", $55 + db "of water!", $57 + +_SeafoamIslands5Text5: ; 0x880a8 + db $0, "DANGER", $4f + db "Fast current!", $57 + +_AIBattleWithdrawText: + db 1 + dw $D04A + db 0," with-",$4F,"drew @",1 + dw $CFDA + db 0,"!",$58 +_AIBattleUseItemText: + db 1 + dw $D04A + db 0,$4F,"used @",1 + dw $CD6D + db 0,$55,"on @",1 + dw $CFDA + db 0,"!",$58 + +INCBIN "baserom.gbc",$880EF,$89784 - $880EF + +_TrainerAboutToUseText: + db 1 + dw $D04A + db 0," is",$4F + db "about to use",$55,"@",1 + dw $CFDA + db 0,"!",$51 + db "Will ",$52,$4F + db "change #MON?",$57 + +_TrainerSentOutText: + db 1 + dw $D04A + db 0," sent",$4F + db "out @",1 + dw $CFDA + db 0,"!",$57 + +INCBIN "baserom.gbc",$897C9,$898AA - $897C9 + +_MultiHitText: + db 0,"Hit the enemy",$4F,"@" + TX_NUM W_NUMHITS,1,1 + db 0," times!",$58 + +_ScaredText: + db 1 + dw $D009 + db 0," is too",$4F + db "scared to move!",$58 + +_GetOutText: + db 0,"GHOST: Get out...",$4F + db "Get out...",$58 + +_FastAsleepText: + db 0,$5A,$4F + db "is fast asleep!",$58 + +_WokeUpText: + db 0,$5A,$4F + db "woke up!",$58 + +_FrozenText: + db 0,$5A,$4F + db "is frozen solid!",$58 + +_FullyParalyzedText: + db 0,$5A,"'s",$4F + db "fully paralyzed!",$58 + +_FlinchedText: + db 0,$5A,$4F + db "flinched!",$58 + +_MustRechargeText: + db 0,$5A,$4F + db "must recharge!",$58 + +_DisabledNoMoreText: + db 0,$5A,"'s",$4F + db "disabled no more!",$58 + +_IsConfusedText: + db 0,$5A,$4F + db "is confused!",$58 + +_HurtItselfText: + db 0,"It hurt itself in",$4F + db "its confusion!",$58 + +_ConfusedNoMoreText: + db 0,$5A,"'s",$4F + db "confused no more!",$58 + +_SavingEnergyText: + db 0,$5A,$4F + db "is saving energy!",$58 + +_UnleashedEnergyText: + db 0,$5A,$4F + db "unleashed energy!",$58 + +_ThrashingAboutText: + db 0,$5A,"'s",$4F + db "thrashing about!",$57 + +_AttackContinuesText: + db 0,$5A,"'s",$4F + db "attack continues!",$57 + +_CantMoveText: + db 0,$5A,$4F + db "can't move!",$58 + +INCBIN "baserom.gbc",$89A29,$8A28E - $89A29 + +_RequireCoinCaseText: ; 22:628E + db 0,"A COIN CASE is",$4F + db "required!@@" + +_ExchangeCoinsForPrizesText: ; 22:62A9 + db 0,"We exchange your",$4F + db "coins for prizes.",$58 + +_WhichPrizeText: ; 22:62CD + db 0,"Which prize do",$4F + db "you want?",$57 + +_HereYouGoText: ; 22:62E7 + db 0,"Here you go!@@" + +_SoYouWantPrizeText: ; 22:62F6 + db 0,"So, you want",$4F + db "@" + db 1 + dw $CD6D + db 0,"?",$57 + +_SorryNeedMoreCoins: ; 22:630B + db 0,"Sorry, you need",$4F + db "more coins.@@" + +_OopsYouDontHaveEnoughRoomText: ; 22:6329 + db 0,"Oops! You don't",$4F + db "have enough room.@@" + +_OhFineThenText: ; 22:634C + db 0,"Oh, fine then.@@" +;635d + +INCBIN "baserom.gbc",$8A35D,$8A425 - $8A35D + +INCLUDE "text/oakspeech.tx" + +INCBIN "baserom.gbc",$8A605,$6696 - $6605 + +_Char00Text: + TX_NUM $FF8C,1,2 + db 0," ERROR.",$57 + +_Char55Text: + db 0,$4B,"@@" + +_DiglettsCaveRoute2Text1: ; 0x8a6a7 + db $0, "I went to ROCK", $4f + db "TUNNEL, but it's", $55 + db "dark and scary.", $51 + db "If a #MON's", $4f + db "FLASH could light", $55 + db "it up...", $57 + +_ViridianForestexitText1: ; 0x8a6fd + db $0, "Many #MON live", $4f + db "only in forests ", $55 + db "and caves.", $51 + db "You need to look", $4f + db "everywhere to get", $55 + db "different kinds!", $57 + +_ViridianForestexitText2: ; 0x8a75d + db $0, "Have you noticed", $4f + db "the bushes on the", $55 + db "roadside?", $51 + db "They can be cut", $4f + db "down by a special", $55 + db "#MON move.", $57 + +_Route2HouseText1: ; 0x8a7b8 + db $0, "A fainted #MON", $4f + db "can't fight. But, ", $55 + db "it can still use ", $55 + db "moves like CUT!", $57 + +INCBIN "baserom.gbc",$8a7fc,$8a82c - $8a7fc + +_Route2GateText2: ; 0x8a82c + db $0, "Once a #MON", $4f + db "learns FLASH, you", $55 + db "can get through", $55 + db "ROCK TUNNEL.", $57 + +_ViridianForestEntranceText1: ; 0x8a868 + db $0, "Are you going to", $4f + db "VIRIDIAN FOREST?", $55 + db "Be careful, it's", $55 + db "a natural maze!", $57 + +_ViridianForestEntranceText2: ; 0x8a8ab + db $0, "RATTATA may be", $4f + db "small, but its", $55 + db "bite is wicked!", $55 + db "Did you get one?", $57 + +_MtMoonPokecenterText1: ; 0x8a8eb + db $0, "I've 6 # BALLs", $4f + db "set in my belt.", $51 + db "At most, you can", $4f + db "carry 6 #MON.", $57 + +_MtMoonPokecenterText3: ; 0x8a929 + db $0, "TEAM ROCKET", $4f + db "attacks CERULEAN", $55 + db "citizens...", $51 + db "TEAM ROCKET is", $4f + db "always in the", $55 + db "news!", $57 + +INCBIN "baserom.gbc",$8a976,$8aa5a - $8a976 + +_MtMoonPokecenterText5: ; 0x8aa5a + db $0, $57 + +INCBIN "baserom.gbc",$8aa5c,$15a4 + +SECTION "bank23",DATA,BANK[$23] + +INCBIN "baserom.gbc",$8c000,$8c0cb - $8c000 + +_UndergroundTunnelEntranceRoute6Text1: ; 0x8c0cb + db $0, "People often lose", $4f + db "things in that", $55 + db "UNDERGROUND PATH.", $57 + +_UndergroundPathEntranceRoute7Text1: ; 0x8c0ff + db $0, "I heard a sleepy", $4f + db "#MON appeared", $55 + db "near CELADON CITY.", $57 + +INCBIN "baserom.gbc",$8c132,$8c28d - $8c132 + +_UndergroundPathEntranceRoute8Text1: ; 0x8c28d + db $0, "The dept. store", $4f + db "in CELADON has a", $55 + db "great selection!", $57 + +_RockTunnelPokecenterText1: ; 0x8c2c0 + db $0, "The element types", $4f + db "of #MON make", $55 + db "them stronger", $55 + db "than some types", $55 + db "and weaker than", $55 + db "others!", $57 + +_RockTunnelPokecenterText3: ; 0x8c316 + db $0, "I sold a useless", $4f + db "NUGGET for ", $f0, "5000!", $57 + +INCBIN "baserom.gbc",$8c33a,$8c5b7 - $8c33a + +_RockTunnel1Text8: ; 0x8c5b7 + db $0, "ROCK TUNNEL", $4f + db "CERULEAN CITY -", $55 + db "LAVENDER TOWN", $57 + +INCBIN "baserom.gbc",$8c5e2,$8c5f3 - $8c5e2 + +_Route11GateText1: ; 0x8c5f3 + db $0, "When you catch", $4f + db "lots of #MON,", $55 + db "isn't it hard to", $55 + db "think up names?", $51 + db "In LAVENDER TOWN,", $4f + db "there's a man who", $55 + db "rates #MON", $55 + db "nicknames.", $51 + db "He'll help you", $4f + db "rename them too!", $57 + +INCBIN "baserom.gbc",$8c689,$8c7f9 - $8c689 + +_DiglettsCaveEntranceRoute11Text1: ; 0x8c7f9 + db $0, "What a surprise!", $4f + db "DIGLETTs dug this", $55 + db "long tunnel!", $51 + db "It goes right to", $4f + db "VIRIDIAN CITY!", $57 + +_Route12GateText1: ; 0x8c84a + db $0, "There's a lookout", $4f + db "spot upstairs.", $57 + +INCBIN "baserom.gbc",$8c86b,$8cb73 - $8c86b + +_Route15GateText1: ; 0x8cb73 + db $0, "Are you working", $4f + db "on a #DEX?", $51 + db "PROF.OAK's AIDE", $4f + db "came by here.", $57 + +INCBIN "baserom.gbc",$8cbac,$8cd2a - $8cbac + +_Route16GateMapText2: ; 0x8cd2a + db $0, "How'd you get in?", $4f + db "Good effort!", $57 + +INCBIN "baserom.gbc",$8cd49,$956 + +_Route1Text2: ; 0x8d69f + db $0, "See those ledges", $4f + db "along the road?", $51 + db "It's a bit scary,", $4f + db "but you can jump", $55 + db "from them.", $51 + db "You can get back", $4f + db "to PALLET TOWN", $55 + db "quicker that way.", $57 + +_Route1Text3: ; 0x8d720 + db $0, "ROUTE 1", $4f + db "PALLET TOWN -", $55 + db "VIRIDIAN CITY", $57 + +_Route2Text3: ; 0x8d745 + db $0, "ROUTE 2", $4f + db "VIRIDIAN CITY -", $55 + db "PEWTER CITY", $57 + +_Route2Text4: ; 0x8d76a + db $0, "DIGLETT's CAVE", $57 + +_Route3Text1: ; 0x8d779 + db $0, "Whew... I better", $4f + db "take a rest...", $55 + db "Groan...", $51 + db "That tunnel from", $4f + db "CERULEAN takes a", $55 + db "lot out of you!", $57 + +INCBIN "baserom.gbc",$8d7d5,$8db07 - $8d7d5 + +_Route3Text10: ; 0x8db07 + db $0, "ROUTE 3", $4f + db "MT.MOON AHEAD", $57 + +_Route4Text1: ; 0x8db1e + db $0, "Ouch! I tripped", $4f + db "over a rocky", $55 + db "#MON, GEODUDE!", $57 + +INCBIN "baserom.gbc",$8db4b,$8dbcd - $8db4b + +_Route4Text5: ; 0x8dbcd + db $0, "MT.MOON", $4f + db "Tunnel Entrance", $57 + +_Route4Text6: ; 0x8dbe6 + db $0, "ROUTE 4", $4f + db "MT.MOON -", $55 + db "CERULEAN CITY", $57 + +_Route5Text1: ; 0x8dc07 + db $0, "UNDERGROUND PATH", $4f + db "CERULEAN CITY -", $55 + db "VERMILION CITY", $57 + +INCBIN "baserom.gbc",$8dc38,$8de49 - $8dc38 + +_Route6Text7: ; 0x8de49 + db $0, "UNDERGROUND PATH", $4f + db "CERULEAN CITY -", $55 + db "VERMILION CITY", $57 + +_Route7Text1: ; 0x8de7a + db $0, "UNDERGROUND PATH", $4f + db "CELADON CITY -", $55 + db "LAVENDER TOWN", $57 + +INCBIN "baserom.gbc",$8dea9,$8e262 - $8dea9 + +_Route8Text10: ; 0x8e262 + db $0, "UNDERGROUND PATH", $4f + db "CELADON CITY -", $55 + db "LAVENDER TOWN", $57 + +INCBIN "baserom.gbc",$8e291,$8e61e - $8e291 + +_Route9Text11: ; 0x8e61e + db $0, "ROUTE 9", $4f + db "CERULEAN CITY-", $55 + db "ROCK TUNNEL", $57 + +INCBIN "baserom.gbc",$8e642,$8e8d4 - $8e642 + +_Route10Text9: ; 0x8e8d4 +_Route10Text7: ; 0x8e8d4 + db $0, "ROCK TUNNEL", $57 + +_Route10Text10: ; 0x8e8e1 + db $0, "POWER PLANT", $57 + +INCBIN "baserom.gbc",$8e8ee,$1712 + +SECTION "bank24",DATA,BANK[$24] + +INCBIN "baserom.gbc",$90000,$9008f - $90000 + +_Route11Text11: ; 0x9008f + db $0, "DIGLETT's CAVE", $57 + +_Route12Text1: ; 0x9009e + db $0, "A sleeping #MON", $4f + db "blocks the way!", $57 + +INCBIN "baserom.gbc",$900bf,$903bc - $900bf + +_Route12Text11: ; 0x903bc + db $0, "ROUTE 12 ", $4f + db "North to LAVENDER", $57 + +_Route12Text12: ; 0x903d9 + db $0, "SPORT FISHING AREA", $57 + +INCBIN "baserom.gbc",$903ed,$90781 - $903ed + +_Route13Text11: ; 0x90781 + db $0, "TRAINER TIPS", $51 + db "Look to the left", $4f + db "of that post!", $57 + +_Route13Text12: ; 0x907ae + db $0, "TRAINER TIPS", $51 + db "Use SELECT to", $4f + db "switch items in", $55 + db "the ITEM window!", $57 + +_Route13Text13: ; 0x907eb + db $0, "ROUTE 13", $4f + db "North to SILENCE", $55 + db "BRIDGE", $57 + +INCBIN "baserom.gbc",$9080d,$90c1f - $9080d + +_Route14Text11: ; 0x90c1f + db $0, "ROUTE 14", $4f + db "West to FUCHSIA", $55 + db "CITY", $57 + +INCBIN "baserom.gbc",$90c3e,$91062 - $90c3e + +_Route15Text12: ; 0x91062 + db $0, "ROUTE 15", $4f + db "West to FUCHSIA", $55 + db "CITY", $57 + +INCBIN "baserom.gbc",$91081,$91287 - $91081 + +_Route16Text7: ; 0x91287 + db $0, "A sleeping #MON", $4f + db "blocks the way!", $57 + +INCBIN "baserom.gbc",$912a8,$9130d - $912a8 + +_Route16Text8: ; 0x9130d + db $0, "Enjoy the slope!", $4f + db "CYCLING ROAD", $57 + +_Route16Text9: ; 0x9132c + db $0, "ROUTE 16", $4f + db "CELADON CITY -", $55 + db "FUCHSIA CITY", $57 + +INCBIN "baserom.gbc",$91352,$91649 - $91352 + +_Route17Text11: ; 0x91649 + db $0, "It's a notice!", $51 + db "Watch out for", $4f + db "discarded items!", $57 + +_Route17Text12: ; 0x91677 + db $0, "TRAINER TIPS", $51 + db "All #MON are", $4f + db "unique.", $51 + db "Even #MON of", $4f + db "the same type and", $55 + db "level grow at", $55 + db "different rates.", $57 + +_Route17Text13: ; 0x916d8 + db $0, "TRAINER TIPS", $51 + db "Press the A or B", $4f + db "Button to stay in", $55 + db "place while on a", $55 + db "slope.", $57 + +_Route17Text14: ; 0x91721 + db $0, "ROUTE 17", $4f + db "CELADON CITY -", $55 + db "FUCHSIA CITY", $57 + +_Route17Text15: ; 0x91747 + db $0, "It's a notice!", $51 + db "Don't throw the", $4f + db "game, throw #", $55 + db "BALLs instead!", $57 + +_Route17Text16: ; 0x91782 + db $0, "CYCLING ROAD", $4f + db "Slope ends here!", $57 + +INCBIN "baserom.gbc",$917a1,$9189d - $917a1 + +_Route18Text4: ; 0x9189d + db $0, "ROUTE 18", $4f + db "CELADON CITY -", $55 + db "FUCHSIA CITY", $57 + +_Route18Text5: ; 0x918c3 + db $0, "CYCLING ROAD", $4f + db "No pedestrians", $55 + db "permitted!", $57 + +INCBIN "baserom.gbc",$918eb,$91c3c - $918eb + +_Route19Text11: ; 0x91c3c + db $0, "SEA ROUTE 19", $4f + db "FUCHSIA CITY -", $55 + db "SEAFOAM ISLANDS", $57 + +INCBIN "baserom.gbc",$91c69,$91fa7 - $91c69 + +_Route20Text12: ; 0x91fa7 +_Route20Text11: ; 0x91fa7 + db $0, "SEAFOAM ISLANDS", $57 + +INCBIN "baserom.gbc",$91fb8,$92606 - $91fb8 + +_Route22Text3: ; 0x92606 + db $0, "#MON LEAGUE", $4f + db "Front Gate", $57 + +INCBIN "baserom.gbc",$9261e,$92700 - $9261e + +_Route23Text8: ; 0x92700 + db $0, "VICTORY ROAD GATE", $4f + db "- #MON LEAGUE", $57 + +INCBIN "baserom.gbc",$92721,$18df + +SECTION "bank25",DATA,BANK[$25] + +INCBIN "baserom.gbc",$94000,$945d3 - $94000 + +_Route25Text11: ; 0x945d3 + db $0, "SEA COTTAGE", $4f + db "BILL lives here!", $57 + +INCBIN "baserom.gbc",$945f1,$94b01 - $945f1 + +_BattleCenterMText1: ; 0x94b01 + db $0, "!", $57 + +_TradeCenterMText1: ; 0x94b04 + db $0, "!", $57 + +INCLUDE "text/mapRedsHouse1F.tx" +INCLUDE "text/mapBluesHouse.tx" + +INCBIN "baserom.gbc",$94d5b,$95268 - $94d5b + +_OaksLabText8: ; 0x95268 + db $0, "?", $57 + +INCBIN "baserom.gbc",$9526b,$95ba1 - $9526b + +_ViridianPokeCenterText2: ; 0x95ba1 +_ViridianPokeCenterText1: ; 0x95ba1 + db $0, "You can use that", $4f + db "PC in the corner.", $51 + db "The receptionist", $4f + db "told me. So kind!", $57 + +_ViridianPokeCenterText3: ; 0x95be8 + db $0, "There's a #MON", $4f + db "CENTER in every", $55 + db "town ahead.", $51 + db "They don't charge", $4f + db "any money either!", $57 + +_ViridianMartText1: ; 0x95c36 + db $0, "Okay! Say hi to", $4f + db "PROF.OAK for me!", $57 + +INCBIN "baserom.gbc",$95c58,$95cd5 - $95c58 + +_ViridianMartText2: ; 0x95cd5 + db $0, "This shop sells", $4f + db "many ANTIDOTEs.", $57 + +_ViridianMartText3: ; 0x95cf6 + db $0, "No! POTIONs are", $4f + db "all sold out.", $57 + +_SchoolText1: ; 0x95d15 + db $0, "Whew! I'm trying", $4f + db "to memorize all", $55 + db "my notes.", $57 + +_SchoolText2: ; 0x95d40 + db $0, "Okay!", $51 + db "Be sure to read", $4f + db "the blackboard", $55 + db "carefully!", $57 + +_ViridianHouseText1: ; 0x95d71 + db $0, "Coming up with", $4f + db "nicknames is fun,", $55 + db "but hard.", $51 + db "Simple names are", $4f + db "the easiest to", $55 + db "remember.", $57 + +_ViridianHouseText2: ; 0x95dc7 + db $0, "My Daddy loves", $4f + db "#MON too.", $57 + +INCBIN "baserom.gbc",$95de1,$95df3 - $95de1 + +_ViridianHouseText4: ; 0x95df3 + db $0, "SPEAROW", $4f + db "Name: SPEARY", $57 + +INCBIN "baserom.gbc",$95e09,$96841 - $95e09 + +_MuseumF2Text1: ; 0x96841 + db $0, "MOON STONE?", $51 + db "What's so special", $4f + db "about it?", $57 + +_MuseumF2Text2: ; 0x96869 + db $0, "July 20, 1969!", $51 + db "The 1st lunar", $4f + db "landing!", $51 + db "I bought a color", $4f + db "TV to watch it!", $57 + +_MuseumF2Text3: ; 0x968b1 + db $0, "We have a space", $4f + db "exhibit now.", $57 + +_MuseumF2Text4: ; 0x968cf + db $0, "I want a PIKACHU!", $4f + db "It's so cute!", $51 + db "I asked my Daddy", $4f + db "to catch me one!", $57 + +_MuseumF2Text5: ; 0x96911 + db $0, "Yeah, a PIKACHU", $4f + db "soon, I promise!", $57 + +_MuseumF2Text6: ; 0x96933 + db $0, "SPACE SHUTTLE", $4f + db "COLUMBIA", $57 + +_MuseumF2Text7: ; 0x9694b + db $0, "Meteorite that", $4f + db "fell on MT.MOON.", $55 + db "(MOON STONE?)", $57 + +INCBIN "baserom.gbc",$9697a,$1686 + +SECTION "bank26",DATA,BANK[$26] + +INCBIN "baserom.gbc",$98000,$984ce - $98000 + +_PewterHouse1Text1: ; 0x984ce + db $0, "NIDORAN: Bowbow!@@" + +_PewterHouse1Text2: ; 0x984e1 + db $0, "NIDORAN sit!", $57 + +_PewterHouse1Text3: ; 0x984ef + db $0, "Our #MON's an", $4f + db "outsider, so it's", $55 + db "hard to handle.", $51 + db "An outsider is a", $4f + db "#MON that you", $55 + db "get in a trade.", $51 + db "It grows fast, but", $4f + db "it may ignore an", $55 + db "unskilled trainer", $55 + db "in battle!", $51 + db "If only we had", $4f + db "some BADGEs...", $57 + +INCBIN "baserom.gbc",$985ac,$98656 - $985ac + +_PewterHouse2Text1: ; 0x98656 + db $0, "#MON learn new", $4f + db "techniques as", $55 + db "they grow!", $51 + db "But, some moves", $4f + db "must be taught by", $55 + db "the trainer!", $57 + +_PewterHouse2Text2: ; 0x986ae + db $0, "#MON become", $4f + db "easier to catch", $55 + db "when they are", $55 + db "hurt or asleep!", $51 + db "But, it's not a", $4f + db "sure thing!", $57 + +_PewterPokecenterText1: ; 0x98704 + db $0, "What!?", $51 + db "TEAM ROCKET is", $4f + db "at MT.MOON? Huh?", $55 + db "I'm on the phone!", $51 + db "Scram!", $57 + +INCBIN "baserom.gbc",$98744,$98834 - $98744 + +_CeruleanHouseTrashedText2: ; 0x98834 + db $0, "TEAM ROCKET must", $4f + db "be trying to DIG", $55 + db "their way into no", $55 + db "good!", $57 + +_CeruleanHouseTrashedText3: ; 0x9886f + db $0, "TEAM ROCKET left", $4f + db "a way out!", $57 + +_CeruleanHouse2Text1: ; 0x9888c + db $0, "My husband likes", $4f + db "trading #MON.", $51 + db "If you are a", $4f + db "collector, would", $55 + db "you please trade", $55 + db "with him?", $57 + +_CeruleanPokecenterText1: ; 0x988e5 + db $0, "That BILL!", $51 + db "I heard that", $4f + db "he'll do whatever", $55 + db "it takes to get", $55 + db "rare #MON!", $57 + +_CeruleanPokecenterText3: ; 0x9892a + db $0, "Have you heard", $4f + db "about BILL?", $51 + db "Everyone calls", $4f + db "him a #MANIAC!", $51 + db "I think people", $4f + db "are just jealous", $55 + db "of BILL, though.", $51 + db "Who wouldn't want", $4f + db "to boast about", $55 + db "their #MON?", $57 + +INCBIN "baserom.gbc",$989c1,$99012 - $989c1 + +_CeruleanMartText2: ; 0x99012 + db $0, "Use REPEL to keep", $4f + db "bugs and weak", $55 + db "#MON away.", $51 + db "Put your strongest", $4f + db "#MON at the", $55 + db "top of the list", $55 + db "for best results!", $57 + +_CeruleanMartText3: ; 0x9907f + db $0, "Have you seen any", $4f + db "RARE CANDY?", $51 + db "It's supposed to", $4f + db "make #MON go", $55 + db "up one level!", $57 + +INCBIN "baserom.gbc",$990c9,$9940e - $990c9 + +_LavenderPokecenterText4: +_LavenderPokecenterText2: +_LavenderPokecenterText1: ; 0x9940e + db $0, "TEAM ROCKET will", $4f + db "do anything for", $55 + db "the sake of gold!", $57 + +_LavenderPokecenterText3: ; 0x99442 + db $0, "I saw CUBONE's", $4f + db "mother die trying", $55 + db "to escape from", $55 + db "TEAM ROCKET!", $57 + +_PokemonTower1Text1: ; 0x9947f + db $0, "#MON TOWER was", $4f + db "erected in the", $55 + db "memory of #MON", $55 + db "that had died.", $57 + +_PokemonTower1Text2: ; 0x994bc + db $0, "Did you come to", $4f + db "pay respects?", $55 + db "Bless you!", $57 + +_PokemonTower1Text3: ; 0x994e6 + db $0, "I came to pray", $4f + db "for my CLEFAIRY.", $51 + db "Sniff! I can't", $4f + db "stop crying...", $57 + +_PokemonTower1Text4: ; 0x99524 + db $0, "My GROWLITHE...", $4f + db "Why did you die?", $57 + +_PokemonTower1Text5: ; 0x99546 + db $0, "I am a CHANNELER!", $4f + db "There are spirits", $55 + db "up to mischief!", $57 + +INCBIN "baserom.gbc",$9957b,$9971a - $9957b + +_PokemonTower2Text2: ; 0x9971a + db $0, "Even we could not", $4f + db "identify the", $55 + db "wayward GHOSTs!", $51 + db "A SILPH SCOPE", $4f + db "might be able to", $55 + db "unmask them.", $57 + +INCBIN "baserom.gbc",$99776,$99958 - $99776 + +_PokemonTower5Text1: ; 0x99958 + db $0, "Come, child! I", $4f + db "sealed this space", $55 + db "with white magic!", $51 + db "You can rest here!", $57 + +INCBIN "baserom.gbc",$9999f,$99f72 - $9999f + +_LavenderHouse1Text3: ; 0x99f72 + db $0, "PSYDUCK: Gwappa!@@" + +_LavenderHouse1Text4: ; 0x99f85 + db $0, "NIDORINO: Gaoo!@@" + +INCBIN "baserom.gbc",$99f97,$9a0aa - $99f97 + +_LavenderHouse1Text6: ; 0x9a0aa + db $0, "#MON Monthly", $4f + db "Grand Prize", $55 + db "Drawing!", $51 + db "The application", $4f + db "form is...", $51 + db "Gone! It's been", $4f + db "clipped out!", $57 + +_LavenderMartText2: ; 0x9a104 + db $0, "I'm searching for", $4f + db "items that raise", $55 + db "the abilities of", $55 + db "#MON during a", $55 + db "single battle.", $51 + db "X ATTACK, X", $4f + db "DEFEND, X SPEED", $55 + db "and X SPECIAL are", $55 + db "what I'm after.", $51 + db "Do you know where", $4f + db "I can get them?", $57 + +INCBIN "baserom.gbc",$9a1b4,$9a238 - $9a1b4 + +_LavenderHouse2Text1: ; 0x9a238 + db $0, "CUBONE: Kyarugoo!@@" + +INCBIN "baserom.gbc",$9a24c,$266 + +_VermilionPokecenterText2: ; 0x9a4b2 +_VermilionPokecenterText1: ; 0x9a4b2 + db $0, "Even if they are", $4f + db "the same level,", $55 + db "#MON can have", $55 + db "very different", $55 + db "abilities.", $51 + db "A #MON raised", $4f + db "by a trainer is", $55 + db "stronger than one", $55 + db "in the wild.", $57 + +_VermilionPokecenterText3: ; 0x9a539 + db $0, "My #MON was", $4f + db "poisoned! It", $55 + db "fainted while we", $55 + db "were walking!", $57 + +INCBIN "baserom.gbc",$9a572,$9a948 - $9a572 + +_FanClubText6: ; 0x9a948 + db $0, "Our Chairman is", $4f + db "very vocal about", $55 + db "#MON.", $57 + +_FanClubText7: ; 0x9a970 + db $0, "Let's all listen", $4f + db "politely to other", $55 + db "trainers!", $57 + +_FanClubText8: ; 0x9a99d + db $0, "If someone brags,", $4f + db "brag right back!", $57 + +_VermilionMartText2: ; 0x9a9c1 + db $0, "There are evil", $4f + db "people who will", $55 + db "use #MON for", $55 + db "criminal acts.", $51 + db "TEAM ROCKET", $4f + db "traffics in rare", $55 + db "#MON.", $51 + db "They also abandon", $4f + db "#MON that they", $55 + db "consider not to", $55 + db "be popular or", $55 + db "useful.", $57 + +_VermilionMartText3: ; 0x9aa67 + db $0, "I think #MON", $4f + db "can be good or", $55 + db "evil. It depends", $55 + db "on the trainer.", $57 + +INCBIN "baserom.gbc",$9aaa5,$155b + +SECTION "bank27",DATA,BANK[$27] +INCBIN "baserom.gbc",$9c000,$9c449 - $9c000 + +_VermilionHouse1Text1: ; 0x9c449 + db $0, "I'm getting my", $4f + db "PIDGEY to fly a", $55 + db "letter to SAFFRON", $55 + db "in the north!", $57 + +_VermilionHouse1Text2: ; 0x9c488 + db $0, "PIDGEY: Kurukkoo!@@" + +_VermilionHouse1Text3: ; 0x9c49c + db $0, "Dear PIPPI, I hope", $4f + db "to see you soon.", $51 + db "I heard SAFFRON", $4f + db "has problems with", $55 + db "TEAM ROCKET.", $51 + db "VERMILION appears", $4f + db "to be safe.", $57 + +INCBIN "baserom.gbc",$9c50e,$9c672 - $9c50e + +_CeladonMart1Text1: ; 0x9c672 + db $0, "Hello! Welcome to", $4f + db "CELADON DEPT.", $55 + db "STORE.", $51 + db "The board on the", $4f + db "right describes", $55 + db "the store layout.", $57 + +_CeladonMart1Text2: ; 0x9c6cd + db $0, "1F: SERVICE", $4f + db " COUNTER", $51 + db "2F: TRAINER'S", $4f + db " MARKET", $51 + db "3F: TV GAME SHOP", $51 + db "4F: WISEMAN GIFTS", $51 + db "5F: DRUG STORE", $51 + db "ROOFTOP SQUARE:", $4f + db "VENDING MACHINES", $57 + +_CeladonMart1Text3: ; 0x9c752 + db $0, "1F: SERVICE", $4f + db " COUNTER", $57 + +_CeladonMart2Text3: ; 0x9c76b + db $0, "SUPER REPEL keeps", $4f + db "weak #MON at", $55 + db "bay...", $51 + db "Hmm, it's a more", $4f + db "powerful REPEL!", $57 + +_CeladonMart2Text4: ; 0x9c7b2 + db $0, "For long outings,", $4f + db "you should buy", $55 + db "REVIVE.", $57 + +_CeladonMart2Text5: ; 0x9c7dc + db $0, "Top Grade Items", $4f + db "for Trainers!", $51 + db "2F: TRAINER'S", $4f + db " MARKET", $57 + +INCBIN "baserom.gbc",$9c814,$9c8c7 - $9c814 + +_CeladonMart3Text2: ; 0x9c8c7 + db $0, "Captured #MON", $4f + db "are registered", $55 + db "with an ID No.", $55 + db "and OT, the name", $55 + db "of the Original", $55 + db "Trainer that", $55 + db "caught it!", $57 + +_CeladonMart3Text3: ; 0x9c92d + db $0, "All right!", $51 + db "My buddy's going", $4f + db "to trade me his", $55 + db "KANGASKHAN for my", $55 + db "GRAVELER!", $57 + +_CeladonMart3Text4: ; 0x9c975 + db $0, "Come on GRAVELER!", $51 + db "I love GRAVELER!", $4f + db "I collect them!", $51 + db "Huh?", $51 + db "GRAVELER turned", $4f + db "into a different", $55 + db "#MON!", $57 + +_CeladonMart3Text5: ; 0x9c9d5 + db $0, "You can identify", $4f + db "#MON you got", $55 + db "in trades by", $55 + db "their ID Numbers!", $57 + +_CeladonMart3Text6: ; 0x9ca13 + db $0, "It's an SNES!", $57 + +_CeladonMart3Text7: ; 0x9ca21 + db $0, "An RPG! There's", $4f + db "no time for that!", $57 + +_CeladonMart3Text9: ; 0x9ca43 + db $0, "A sports game!", $4f + db "Dad'll like that!", $57 + +_CeladonMart3Text11: ; 0x9ca64 + db $0, "A puzzle game!", $4f + db "Looks addictive!", $57 + +_CeladonMart3Text13: ; 0x9ca85 + db $0, "A fighting game!", $4f + db "Looks tough!", $57 + +_CeladonMart3Text14: ; 0x9caa4 + db $0, "3F: TV GAME SHOP", $57 + +_CeladonMart3Text15: ; 0x9cab6 + db $0, "Red and Blue!", $4f + db "Both are #MON!", $57 + +_CeladonMart4Text2: ; 0x9cad4 + db $0, "I'm getting a", $4f + db "# DOLL for my", $55 + db "girl friend!", $57 + +_CeladonMart4Text3: ; 0x9cafd + db $0, "I heard something", $4f + db "useful.", $51 + db "You can run from", $4f + db "wild #MON by", $55 + db "distracting them", $55 + db "with a # DOLL!", $57 + +_CeladonMart4Text4: ; 0x9cb56 + db $0, "Express yourself", $4f + db "with gifts!", $51 + db "4F: WISEMAN GIFTS", $51 + db "Evolution Special!", $4f + db "Element STONEs on", $55 + db "sale now!", $57 + +INCBIN "baserom.gbc",$9cbb5,$9cd97 - $9cbb5 + +_CeladonMartRoofText1: ; 0x9cd97 + db $0, "My sister is a", $4f + db "trainer, believe", $55 + db "it or not.", $51 + db "But, she's so", $4f + db "immature, she", $55 + db "drives me nuts!", $57 + +INCBIN "baserom.gbc",$9cdee,$9ce50 - $9cdee + +_CeladonMartRoofText6: ; 0x9ce50 + db $0, "ROOFTOP SQUARE:", $4f + db "VENDING MACHINES", $57 + +INCBIN "baserom.gbc",$9ce72,$9ceee - $9ce72 + +_CeladonMansion1Text1: ; 0x9ceee + db $0, "MEOWTH: Meow!@@" + +_CeladonMansion1Text2: ; 0x9cefe + db $0, "My dear #MON", $4f + db "keep me company.", $51 + db "MEOWTH even brings", $4f + db "money home!", $57 + +_CeladonMansion1Text3: ; 0x9cf3c + db $0, "CLEFAIRY: Pi", $4f + db "pippippi!@@" + +_CeladonMansion1Text4: ; 0x9cf55 + db $0, "NIDORAN: Kya", $4f + db "kyaoo!@@" + +_CeladonMansion1Text5: ; 0x9cf6b + db $0, "CELADON MANSION", $4f + db "Manager's Suite", $57 + +_CeladonMansion2Text1: ; 0x9cf8b + db $0, "GAME FREAK", $4f + db "Meeting Room", $57 + +_CeladonMansion3Text1: ; 0x9cfa4 + db $0, "Me? I'm the", $4f + db "programmer!", $57 + +_CeladonMansion3Text2: ; 0x9cfbc + db $0, "I'm the graphic", $4f + db "artist!", $55 + db "I drew you!", $57 + +_CeladonMansion3Text3: ; 0x9cfe0 + db $0, "I wrote the story!", $4f + db "Isn't ERIKA cute?", $51 + db "I like MISTY a", $4f + db "lot too!", $51 + db "Oh, and SABRINA,", $4f + db "I like her!", $57 + +INCBIN "baserom.gbc",$9d03a,$9d0ed - $9d03a + +_CeladonMansion3Text5: ; 0x9d0ed + db $0, "It's the game", $4f + db "program! Messing", $55 + db "with it could bug", $55 + db "out the game!", $57 + +_CeladonMansion3Text6: ; 0x9d12c + db $0, "Someone's playing", $4f + db "a game instead of", $55 + db "working!", $57 + +_CeladonMansion3Text7: ; 0x9d159 + db $0, "It's the script!", $4f + db "Better not look", $55 + db "at the ending!", $57 + +_CeladonMansion3Text8: ; 0x9d189 + db $0, "GAME FREAK", $4f + db "Development Room", $57 + +_CeladonMansion4Text1: ; 0x9d1a6 + db $0, "I KNOW EVERYTHING!", $57 + +_CeladonMansion5Text1: ; 0x9d1ba + db $0, "I know everything", $4f + db "about the world", $55 + db "of #MON in", $55 + db "your GAME BOY!", $51 + db "Get together with", $4f + db "your friends and", $55 + db "trade #MON!", $57 + +_CeladonPokecenterText1: ; 0x9d226 + db $0, "# FLUTE awakens", $4f + db "#MON with a", $55 + db "sound that only", $55 + db "they can hear!", $57 + +_CeladonPokecenterText3: ; 0x9d262 + db $0, "I rode uphill on", $4f + db "CYCLING ROAD from", $55 + db "FUCHSIA!", $57 + +INCBIN "baserom.gbc",$9d28f,$9d8d5 - $9d28f + +_CeladonGameCornerText1: ; 0x9d8d5 + db $0, "Welcome!", $51 + db "You can exchange", $4f + db "your coins for", $55 + db "fabulous prizes", $55 + db "next door.", $57 + +INCBIN "baserom.gbc",$9d91a,$9da1c - $9d91a + +_CeladonGameCornerText3: ; 0x9da1c + db $0, "Keep this quiet.", $51 + db "It's rumored that", $4f + db "this place is run", $55 + db "by TEAM ROCKET.", $57 + +_CeladonGameCornerText4: ; 0x9da61 + db $0, "I think these", $4f + db "machines have", $55 + db "different odds.", $57 + +INCBIN "baserom.gbc",$9da8e,$9daf4 - $9da8e + +_CeladonGameCornerText6: ; 0x9daf4 + db $0, "I'm having a", $4f + db "wonderful time!", $57 + +INCBIN "baserom.gbc",$9db11,$9dc06 - $9db11 + +_CeladonGameCornerText8: ; 0x9dc06 + db $0, "Games are scary!", $4f + db "It's so easy to", $55 + db "get hooked!", $57 + +INCBIN "baserom.gbc",$9dc33,$9ddff - $9dc33 + +_CeladonMart5Text1: ; 0x9ddff + db $0, "#MON ability", $4f + db "enhancers can be", $55 + db "bought only here.", $51 + db "Use CALCIUM to", $4f + db "increase SPECIAL", $55 + db "abilities.", $51 + db "Use CARBOS to", $4f + db "increase SPEED.", $57 + +_CeladonMart5Text2: ; 0x9de79 + db $0, "I'm here for", $4f + db "#MON ability", $55 + db "enhancers.", $51 + db "PROTEIN increases", $4f + db "ATTACK power.", $51 + db "IRON increases", $4f + db "DEFENSE!", $57 + +_CeladonMart5Text5: ; 0x9ded6 + db $0, "5F: DRUG STORE", $57 + +_CeladonPrizeRoomText1: ; 0x9dee6 + db $0, "I sure do fancy", $4f + db "that PORYGON!", $51 + db "But, it's hard to", $4f + db "win at slots!", $57 + +_CeladonPrizeRoomText2: ; 0x9df24 + db $0, "I had a major", $4f + db "haul today!", $57 + +_CeladonDinerText1: ; 0x9df3f + db $0, "Hi!", $51 + db "We're taking a", $4f + db "break now.", $57 + +_CeladonDinerText2: ; 0x9df5d + db $0, "My #MON are", $4f + db "weak, so I often", $55 + db "have to go to the", $55 + db "DRUG STORE.", $57 + +_CeladonDinerText3: ; 0x9df99 + db $0, "Psst! There's a", $4f + db "basement under", $55 + db "the GAME CORNER.", $57 + +_CeladonDinerText4: ; 0x9dfc9 + db $0, "Munch...", $51 + db "The man at that", $4f + db "table lost it all", $55 + db "at the slots.", $57 + +INCBIN "baserom.gbc",$9e003,$9e0d5 - $9e003 + +_CeladonHouseText1: ; 0x9e0d5 + db $0, "Hehehe! The slots", $4f + db "just reel in the", $55 + db "dough, big time!", $57 + +_CeladonHouseText2: ; 0x9e10a + db $0, "CHIEF!", $51 + db "We just shipped", $4f + db "2000 #MON as", $55 + db "slot prizes!", $57 + +_CeladonHouseText3: ; 0x9e13c + db $0, "Don't touch the", $4f + db "poster at the", $55 + db "GAME CORNER!", $51 + db "There's no secret", $4f + db "switch behind it!", $57 + +_CeladonHotelText1: ; 0x9e18a + db $0, "#MON? No, this", $4f + db "is a hotel for", $55 + db "people.", $51 + db "We're full up.", $57 + +_CeladonHotelText2: ; 0x9e1bf + db $0, "I'm on vacation", $4f + db "with my brother", $55 + db "and boy friend.", $51 + db "CELADON is such a", $4f + db "pretty city!", $57 + +_CeladonHotelText3: ; 0x9e20e + db $0, "Why did she bring", $4f + db "her brother?", $57 + +_FuchsiaMartText2: ; 0x9e22e + db $0, "Do you have a", $4f + db "SAFARI ZONE flag?", $51 + db "What about cards", $4f + db "or calendars?", $57 + +_FuchsiaMartText3: ; 0x9e26e + db $0, "Did you try X", $4f + db "SPEED? It speeds", $55 + db "up a #MON in", $55 + db "battle!", $57 + +_FuchsiaHouse1Text1: ; 0x9e2a3 + db $0, "SAFARI ZONE's", $4f + db "WARDEN is old,", $55 + db "but still active!", $51 + db "All his teeth are", $4f + db "false, though.", $57 + +_FuchsiaHouse1Text2: ; 0x9e2f3 + db $0, "Hmm? You've met", $4f + db "BILL?", $51 + db "He's my grandson!", $51 + db "He always liked", $4f + db "collecting things", $55 + db "even as a child!", $57 + +_FuchsiaHouse1Text3: ; 0x9e34d + db $0, "BILL files his", $4f + db "own #MON data", $55 + db "on his PC!", $51 + db "Did he show you?", $57 + +_FuchsiaPokecenterText1: ; 0x9e387 + db $0, "You can't win", $4f + db "with just one", $55 + db "strong #MON.", $51 + db "It's tough, but", $4f + db "you have to raise", $55 + db "them evenly.", $57 + +_FuchsiaPokecenterText3: ; 0x9e3de + db $0, "There's a narrow", $4f + db "trail west of", $55 + db "VIRIDIAN CITY.", $51 + db "It goes to #MON", $4f + db "LEAGUE HQ.", $55 + db "The HQ governs", $55 + db "all trainers.", $57 + +INCBIN "baserom.gbc",$9e444,$9e6c7 - $9e444 + +_SafariZoneEntranceText1: ; 0x9e6c7 + db $0, "Welcome to the", $4f + db "SAFARI ZONE!", $57 + +INCBIN "baserom.gbc",$9e6e4,$191c + +SECTION "bank28",DATA,BANK[$28] + +INCBIN "baserom.gbc",$a0000,$a05a1 - $a0000 + +_FuchsiaMeetingRoomText1: ; 0xa05a1 + db $0, "We nicknamed the", $4f + db "WARDEN SLOWPOKE.", $51 + db "He and SLOWPOKE", $4f + db "both look vacant!", $57 + +_FuchsiaMeetingRoomText2: ; 0xa05e6 + db $0, "SLOWPOKE is very", $4f + db "knowledgeable", $55 + db "about #MON!", $51 + db "He even has some", $4f + db "fossils of rare,", $55 + db "extinct #MON!", $57 + +_FuchsiaMeetingRoomText3: ; 0xa0642 + db $0, "SLOWPOKE came in,", $4f + db "but I couldn't", $55 + db "understand him.", $51 + db "I think he's got", $4f + db "a speech problem!", $57 + +INCBIN "baserom.gbc",$a0695,$a0df7 - $a0695 + +_Lab1Text1: ; 0xa0df7 + db $0, "We study #MON", $4f + db "extensively here.", $51 + db "People often bring", $4f + db "us rare #MON", $55 + db "for examination.", $57 + +_Lab1Text2: ; 0xa0e49 + db $0, "A photo of the", $4f + db "LAB's founder,", $55 + db "DR.FUJI!", $57 + +_Lab1Text3: ; 0xa0e70 + db $0, "#MON LAB", $4f + db "Meeting Room", $57 + +_Lab1Text4: ; 0xa0e87 + db $0, "#MON LAB", $4f + db "R-and-D Room", $57 + +_Lab1Text5: ; 0xa0e9e + db $0, "#MON LAB", $4f + db "Testing Room", $57 + +_Lab2Text1: ; 0xa0eb5 + db $0, "I found this very", $4f + db "strange fossil in", $55 + db "MT.MOON!", $51 + db "I think it's a", $4f + db "rare, prehistoric", $55 + db "#MON!", $57 + +INCBIN "baserom.gbc",$a0f09,$a0fe3 - $a0f09 + +_Lab3Text2: ; 0xa0fe3 + db $0, "EEVEE can evolve", $4f + db "into 1 of 3 kinds", $55 + db "of #MON.", $57 + +_Lab3Text3: ; 0xa1010 + db $0, "There's an e-mail", $4f + db "message!", $51 + db "...", $51 + db "The 3 legendary", $4f + db "bird #MON are", $55 + db "ARTICUNO, ZAPDOS", $55 + db "and MOLTRES.", $51 + db "Their whereabouts", $4f + db "are unknown.", $51 + db "We plan to explore", $4f + db "the cavern close", $55 + db "to CERULEAN.", $51 + db "From: #MON", $4f + db "RESEARCH TEAM", $51 + db "...", $57 + +_Lab3Text5: ; 0xa10d8 + db $0, "An amber pipe!", $57 + +INCBIN "baserom.gbc",$a10e8,$a12de - $a10e8 + +_CinnabarPokecenterText2: +_CinnabarPokecenterText1: ; 0xa12de + db $0, "You can cancel", $4f + db "evolution.", $51 + db "When a #MON is", $4f + db "evolving, you can", $55 + db "stop it and leave", $55 + db "it the way it is.", $57 + +_CinnabarPokecenterText3: ; 0xa133e + db $0, "Do you have any", $4f + db "friends?", $51 + db "#MON you get", $4f + db "in trades grow", $55 + db "very quickly.", $51 + db "I think it's", $4f + db "worth a try!", $57 + +_CinnabarMartText2: ; 0xa139b + db $0, "Don't they have X", $4f + db "ATTACK? It's good", $55 + db "for battles!", $57 + +_CinnabarMartText3: ; 0xa13cb + db $0, "It never hurts to", $4f + db "have extra items!", $57 + +_IndigoPlateauLobbyText1: ; 0xa13f0 + db $0, "Yo! Champ in", $4f + db "making!", $51 + db "At #MON LEAGUE,", $4f + db "you have to face", $55 + db "the ELITE FOUR in", $55 + db "succession.", $51 + db "If you lose, you", $4f + db "have to start all", $55 + db "over again! This", $55 + db "is it! Go for it!", $57 + +_IndigoPlateauLobbyText3: ; 0xa148b + db $0, "From here on, you", $4f + db "face the ELITE", $55 + db "FOUR one by one!", $51 + db "If you win, a", $4f + db "door opens to the", $55 + db "next trainer!", $55 + db "Good luck!", $57 + +_CopycatsHouseF1Text1: ; 0xa14f7 + db $0, "My daughter is so", $4f + db "self-centered.", $55 + db "She only has a", $55 + db "few friends.", $57 + +_CopycatsHouseF1Text2: ; 0xa1535 + db $0, "My daughter likes", $4f + db "to mimic people.", $51 + db "Her mimicry has", $4f + db "earned her the", $55 + db "nickname COPYCAT", $55 + db "around here!", $57 + +_CopycatsHouseF1Text3: ; 0xa1596 + db $0, "CHANSEY: Chaan!", $4f + db "Sii!@@" + +INCBIN "baserom.gbc",$a15ad,$a1749 - $a15ad + +_CopycatsHouseF2Text2: ; 0xa1749 + db $0, "DODUO: Giiih!", $51 + db "MIRROR MIRROR ON", $4f + db "THE WALL, WHO IS", $55 + db "THE FAIREST ONE", $55 + db "OF ALL?", $57 + +_CopycatsHouseF2Text3: ; 0xa1792 + db $0, "This is a rare", $4f + db "#MON! Huh?", $55 + db "It's only a doll!", $57 + +_CopycatsHouseF2Text6: ; 0xa17be + db $0, "A game with MARIO", $4f + db "wearing a bucket", $55 + db "on his head!", $57 + +INCBIN "baserom.gbc",$a17ef,$a2305 - $a17ef + +_SaffronHouse1Text1: ; 0xa2305 + db $0, "Thank you for", $4f + db "writing. I hope", $55 + db "to see you soon!", $51 + db "Hey! Don't look", $4f + db "at my letter!", $57 + +_SaffronHouse1Text2: ; 0xa2352 + db $0, "PIDGEY: Kurukkoo!@@" + +_SaffronHouse1Text3: ; 0xa2366 + db $0, "The COPYCAT is", $4f + db "cute! I'm getting", $55 + db "her a # DOLL!", $57 + +_SaffronHouse1Text4: ; 0xa2395 + db $0, "I was given a PP", $4f + db "UP as a gift.", $51 + db "It's used for", $4f + db "increasing the PP", $55 + db "of techniques!", $57 + +_SaffronMartText2: ; 0xa23e3 + db $0, "MAX REPEL lasts", $4f + db "longer than SUPER", $55 + db "REPEL for keeping", $55 + db "weaker #MON", $55 + db "away!", $57 + +_SaffronMartText3: ; 0xa242a + db $0, "REVIVE is costly,", $4f + db "but it revives", $55 + db "fainted #MON!", $57 + +_SilphCo1Text1: ; 0xa245a + db $0, "Welcome!", $51 + db "The PRESIDENT is", $4f + db "in the boardroom", $55 + db "on 11F!", $57 + +_SaffronPokecenterText1: ; 0xa248e + db $0, "#MON growth", $4f + db "rates differ from", $55 + db "specie to specie.", $57 + +_SaffronPokecenterText3: ; 0xa24bf + db $0, "SILPH CO. is very", $4f + db "famous. That's", $55 + db "why it attracted", $55 + db "TEAM ROCKET!", $57 + +INCBIN "baserom.gbc",$a24fe,$1b02 + +SECTION "bank29",DATA,BANK[$29] + +INCBIN "baserom.gbc",$A4000,$245 + +INCLUDE "text/mapPalletTown.tx" + +_ViridianCityText1: + db $0, "Those # BALLs", $4f + db "at your waist!", $55 + db "You have #MON!", $51 + db "It's great that", $4f + db "you can carry and", $55 + db "use #MON any", $55 + db "time, anywhere!", $57 + +INCBIN "baserom.gbc",$a4437,$a4833 - $a4437 + +_ViridianCityText8: ; 0xa4833 + db $0, "VIRIDIAN CITY ", $4f + db "The Eternally", $55 + db "Green Paradise", $57 + +_ViridianCityText9: ; 0xa4860 + db $0, "TRAINER TIPS", $51 + db "Catch #MON", $4f + db "and expand your", $55 + db "collection!", $51 + db "The more you have,", $4f + db "the easier it is", $55 + db "to fight!", $57 + +_ViridianCityText10: ; 0xa48c3 + db $0, "TRAINER TIPS", $51 + db "The battle moves", $4f + db "of #MON are", $55 + db "limited by their", $55 + db "POWER POINTs, PP.", $51 + db "To replenish PP,", $4f + db "rest your tired", $55 + db "#MON at a", $55 + db "#MON CENTER!", $57 + +_ViridianCityText13: ; 0xa4949 + db $0, "VIRIDIAN CITY", $4f + db "#MON GYM", $57 + +INCBIN "baserom.gbc",$a4961,$a497f - $a4961 + +_PewterCityText1: ; 0xa497f + db $0, "It's rumored that", $4f + db "CLEFAIRYs came", $55 + db "from the moon!", $51 + db "They appeared ", $4f + db "after MOON STONE", $55 + db "fell on MT.MOON.", $57 + +_PewterCityText2: ; 0xa49e0 + db $0, "There aren't many", $4f + db "serious #MON", $55 + db "trainers here!", $51 + db "They're all like", $4f + db "BUG CATCHERs,", $55 + db "but PEWTER GYM's", $55 + db "BROCK is totally", $55 + db "into it!", $57 + +INCBIN "baserom.gbc",$a4a56,$a4bfe - $a4a56 + +_PewterCityText6: ; 0xa4bfe + db $0, "TRAINER TIPS", $51 + db "Any #MON that", $4f + db "takes part in", $55 + db "battle, however", $55 + db "short, earns EXP!", $57 + +_PewterCityText7: ; 0xa4c4a + db $0, "NOTICE!", $51 + db "Thieves have been", $4f + db "stealing #MON", $55 + db "fossils at MT.", $55 + db "MOON! Please call", $55 + db "PEWTER POLICE", $55 + db "with any info!", $57 + +_PewterCityText10: ; 0xa4cb1 + db $0, "PEWTER MUSEUM", $4f + db "OF SCIENCE", $57 + +_PewterCityText11: ; 0xa4ccb + db $0, "PEWTER CITY", $4f + db "#MON GYM", $55 + db "LEADER: BROCK", $51 + db "The Rock Solid", $4f + db "#MON Trainer!", $57 + +_PewterCityText12: ; 0xa4d0c + db $0, "PEWTER CITY", $4f + db "A Stone Gray", $55 + db "City", $57 + +INCBIN "baserom.gbc",$a4d2b,$a5030 - $a4d2b + +_CeruleanCityText3: ; 0xa5030 + db $0, "You're a trainer", $4f + db "too? Collecting,", $55 + db "fighting, it's a", $55 + db "tough life.", $57 + +_CeruleanCityText4: ; 0xa506e + db $0, "That bush in", $4f + db "front of the shop", $55 + db "is in the way.", $51 + db "There might be a", $4f + db "way around.", $57 + +_CeruleanCityText5: ; 0xa50ba + db $0, "You're making an", $4f + db "encyclopedia on", $55 + db "#MON? That", $55 + db "sounds amusing.", $57 + +_CeruleanCityText6: ; 0xa50f6 + db $0, "The people here", $4f + db "were robbed.", $51 + db "It's obvious that", $4f + db "TEAM ROCKET is", $55 + db "behind this most", $55 + db "heinous crime!", $51 + db "Even our POLICE", $4f + db "force has trouble", $55 + db "with the ROCKETs!", $57 + +INCBIN "baserom.gbc",$a5188,$a52d6 - $a5188 + +_CeruleanCityText9: ; 0xa52d6 + db $0, "I want a bright", $4f + db "red BICYCLE!", $51 + db "I'll keep it at", $4f + db "home, so it won't", $55 + db "get dirty!", $57 + +_CeruleanCityText10: ; 0xa531f + db $0, "This is CERULEAN", $4f + db "CAVE! Horribly", $55 + db "strong #MON", $55 + db "live in there!", $51 + db "The #MON LEAGUE", $4f + db "champion is the", $55 + db "only person who", $55 + db "is allowed in!", $57 + +_CeruleanCityText12: ; 0xa539a + db $0, "CERULEAN CITY", $4f + db "A Mysterious,", $55 + db "Blue Aura", $55 + db "Surrounds It", $57 + +_CeruleanCityText13: ; 0xa53ce + db $0, "TRAINER TIPS", $51 + db "Pressing B Button", $4f + db "during evolution", $55 + db "cancels the whole", $55 + db "process.", $57 + +_CeruleanCityText16: ; 0xa541a + db $0, "Grass and caves", $4f + db "handled easily!", $55 + db "BIKE SHOP", $57 + +_CeruleanCityText17: ; 0xa5445 + db $0, "CERULEAN CITY", $4f + db "#MON GYM", $55 + db "LEADER: MISTY", $51 + db "The Tomboyish", $4f + db "Mermaid!", $57 + +INCBIN "baserom.gbc",$a5482,$a5506 - $a5482 + +_LavenderTownText2: ; 0xa5506 + db $0, "This town is known", $4f + db "as the grave site", $55 + db "of #MON.", $51 + db "Memorial services", $4f + db "are held in", $55 + db "#MON TOWER.", $57 + +_LavenderTownText3: ; 0xa555f + db $0, "GHOSTs appeared", $4f + db "in #MON TOWER.", $51 + db "I think they're", $4f + db "the spirits of", $55 + db "#MON that the", $55 + db "ROCKETs killed.", $57 + +_LavenderTownText4: ; 0xa55bb + db $0, "LAVENDER TOWN", $4f + db "The Noble Purple", $55 + db "Town", $57 + +_LavenderTownText5: ; 0xa55e0 + db $0, "New SILPH SCOPE!", $51 + db "Make the Invisible", $4f + db "Plain to See!", $51 + db "SILPH CO.", $57 + +_LavenderTownText8: ; 0xa561d + db $0, "LAVENDER VOLUNTEER", $4f + db "#MON HOUSE", $57 + +_LavenderTownText9: ; 0xa563c + db $0, "May the Souls of", $4f + db "#MON Rest Easy", $55 + db "#MON TOWER", $57 + +_VermilionCityText1: ; 0xa5668 + db $0, "We're careful", $4f + db "about pollution!", $51 + db "We've heard GRIMER", $4f + db "multiplies in", $55 + db "toxic sludge!", $57 + +INCBIN "baserom.gbc",$a56b5,$a5805 - $a56b5 + +_VermilionCityText4: ; 0xa5805 + db $0, "I'm putting up a", $4f + db "building on this", $55 + db "plot of land.", $51 + db "My #MON is", $4f + db "tamping the land.", $57 + +_VermilionCityText5: ; 0xa5852 + db $0, "MACHOP: Guoh!", $4f + db "Gogogoh!@@" + +INCBIN "baserom.gbc",$a586b,$a5891 - $a586b + +_VermilionCityText6: ; 0xa5891 + db $0, "S.S.ANNE is a", $4f + db "famous luxury", $55 + db "cruise ship.", $51 + db "We visit VERMILION", $4f + db "once a year.", $57 + +_VermilionCityText7: ; 0xa58db + db $0, "VERMILION CITY", $4f + db "The Port of", $55 + db "Exquisite Sunsets", $57 + +_VermilionCityText8: ; 0xa5909 + db $0, "NOTICE!", $51 + db "ROUTE 12 may be", $4f + db "blocked off by a", $55 + db "sleeping #MON.", $51 + db "Detour through", $4f + db "ROCK TUNNEL to", $55 + db "LAVENDER TOWN.", $51 + db "VERMILION POLICE", $57 + +_VermilionCityText11: ; 0xa5980 + db $0, "#MON FAN CLUB", $4f + db "All #MON fans", $55 + db "welcome!", $57 + +_VermilionCityText12: ; 0xa59a6 + db $0, "VERMILION CITY", $4f + db "#MON GYM", $55 + db "LEADER: LT.SURGE", $51 + db "The Lightning ", $4f + db "American!", $57 + +_VermilionCityText13: ; 0xa59e9 + db $0, "VERMILION HARBOR", $57 + +_CeladonCityText1: ; 0xa59fb + db $0, "I got my KOFFING", $4f + db "in CINNABAR!", $51 + db "It's nice, but it", $4f + db "breathes poison", $55 + db "when it's angry!", $57 + +_CeladonCityText2: ; 0xa5a4b + db $0, "Heheh! This GYM", $4f + db "is great! It's", $55 + db "full of women!", $57 + +_CeladonCityText3: ; 0xa5a79 + db $0, "The GAME CORNER", $4f + db "is bad for our", $55 + db "city's image!", $57 + +_CeladonCityText4: ; 0xa5aa6 + db $0, "Moan! I blew it", $4f + db "all at the slots!", $51 + db "I knew I should", $4f + db "have cashed in my", $55 + db "coins for prizes!", $57 + +INCBIN "baserom.gbc",$a5afd,$a5bd9 - $a5afd + +_CeladonCityText6: ; 0xa5bd9 + db $0, "This is my trusted", $4f + db "pal, POLIWRATH!", $51 + db "It evolved from", $4f + db "POLIWHIRL when I", $55 + db "used WATER STONE!", $57 + +_CeladonCityText7: ; 0xa5c30 + db $0, "POLIWRATH: Ribi", $4f + db "ribit!@@" + +_CeladonCityText8: ; 0xa5c49 + db $0, "What are you", $4f + db "staring at?", $57 + +_CeladonCityText9: ; 0xa5c63 + db $0, "Keep out of TEAM", $4f + db "ROCKET's way!", $57 + +_CeladonCityText10: ; 0xa5c82 + db $0, "TRAINER TIPS", $51 + db "X ACCURACY boosts", $4f + db "the accuracy of", $55 + db "techniques!", $51 + db "DIRE HIT jacks up", $4f + db "the likelihood of", $55 + db "critical hits!", $51 + db "Get your items at", $4f + db "CELADON DEPT.", $55 + db "STORE!", $57 + +_CeladonCityText11: ; 0xa5d18 + db $0, "CELADON CITY", $4f + db "The City of", $55 + db "Rainbow Dreams", $57 + +_CeladonCityText13: ; 0xa5d41 + db $0, "CELADON CITY", $4f + db "#MON GYM", $55 + db "LEADER: ERIKA", $51 + db "The Nature Loving", $4f + db "Princess!", $57 + +_CeladonCityText14: ; 0xa5d82 + db $0, "CELADON MANSION", $57 + +_CeladonCityText15: ; 0xa5d93 + db $0, "Find what you", $4f + db "need at CELADON", $55 + db "DEPT. STORE!", $57 + +_CeladonCityText16: ; 0xa5dbf + db $0, "TRAINER TIPS", $51 + db "GUARD SPEC.", $4f + db "protects #MON", $55 + db "against SPECIAL", $55 + db "attacks such as", $55 + db "fire and water!", $51 + db "Get your items at", $4f + db "CELADON DEPT.", $55 + db "STORE!", $57 + +_CeladonCityText17: ; 0xa5e3e + db $0, "Coins exchanged", $4f + db "for prizes!", $55 + db "PRIZE EXCHANGE", $57 + +_CeladonCityText18: ; 0xa5e6a + db $0, "ROCKET GAME CORNER", $4f + db "The playground", $55 + db "for grown-ups!", $57 + +_FuchsiaCityText1: ; 0xa5e9c + db $0, "Did you try the", $4f + db "SAFARI GAME? Some", $55 + db "#MON can only", $55 + db "be caught there.", $57 + +_FuchsiaCityText2: ; 0xa5ede + db $0, "SAFARI ZONE has a", $4f + db "zoo in front of", $55 + db "the entrance.", $51 + db "Out back is the", $4f + db "SAFARI GAME for", $55 + db "catching #MON.", $57 + +_FuchsiaCityText3: ; 0xa5f3e + db $0, "ERIK: Where's", $4f + db "SARA? I said I'd", $55 + db "meet her here.", $57 + +_FuchsiaCityText4: ; 0xa5f6b + db $0, "That item ball in", $4f + db "there is really a", $55 + db "#MON.", $57 + +_FuchsiaCityText5: ; 0xa5f96 + db $0, "!", $57 + +_FuchsiaCityText11: ; 0xa5f99 + db $0, "FUCHSIA CITY", $4f + db "Behold! It's", $55 + db "Passion Pink!", $57 + +_FuchsiaCityText13: ; 0xa5fc1 + db $0, "SAFARI GAME", $4f + db "#MON-U-CATCH!", $57 + +_FuchsiaCityText16: ; 0xa5fdc + db $0, "SAFARI ZONE", $4f + db "WARDEN's HOME", $57 + +_FuchsiaCityText17: ; 0xa5ff6 + db $0, "#MON PARADISE", $4f + db "SAFARI ZONE", $57 + +_FuchsiaCityText18: ; 0xa6011 + db $0, "FUCHSIA CITY", $4f + db "#MON GYM", $55 + db "LEADER: KOGA", $51 + db "The Poisonous", $4f + db "Ninja Master", $57 + +INCBIN "baserom.gbc",$a6050,$a61e6 - $a6050 + +_CinnabarIslandText1: ; 0xa61e6 + db $0, "CINNABAR GYM's", $4f + db "BLAINE is an odd", $55 + db "man who has lived", $55 + db "here for decades.", $57 + +_CinnabarIslandText2: ; 0xa622a + db $0, "Scientists conduct", $4f + db "experiments in", $55 + db "the burned out", $55 + db "building.", $57 + +_CinnabarIslandText3: ; 0xa6266 + db $0, "CINNABAR ISLAND", $4f + db "The Fiery Town of", $55 + db "Burning Desire", $57 + +_CinnabarIslandText6: ; 0xa6298 + db $0, "#MON LAB", $57 + +_CinnabarIslandText7: ; 0xa62a2 + db $0, "CINNABAR ISLAND", $4f + db "#MON GYM", $55 + db "LEADER: BLAINE", $51 + db "The Hot-Headed", $4f + db "Quiz Master!", $57 + +_SaffronCityText1: ; 0xa62e7 + db $0, "What do you want?", $4f + db "Get lost!", $57 + +_SaffronCityText2: ; 0xa6304 + db $0, "BOSS said he'll", $4f + db "take this town!", $57 + +_SaffronCityText3: ; 0xa6324 + db $0, "Get out of the", $4f + db "way!", $57 + +_SaffronCityText4: ; 0xa6339 + db $0, "SAFFRON belongs", $4f + db "to TEAM ROCKET!", $57 + +_SaffronCityText5: ; 0xa635a + db $0, "Being evil makes", $4f + db "me feel so alive!", $57 + +_SaffronCityText6: ; 0xa637e + db $0, "Ow! Watch where", $4f + db "you're walking!", $57 + +_SaffronCityText7: ; 0xa639e + db $0, "With SILPH under", $4f + db "control, we can", $55 + db "exploit #MON", $55 + db "around the world!", $57 + +_SaffronCityText8: ; 0xa63df + db $0, "You beat TEAM", $4f + db "ROCKET all alone?", $55 + db "That's amazing!", $57 + +_SaffronCityText9: ; 0xa640f + db $0, "Yeah! TEAM ROCKET", $4f + db "is gone!", $55 + db "It's safe to go", $55 + db "out again!", $57 + +_SaffronCityText10: ; 0xa6445 + db $0, "People should be", $4f + db "flocking back to", $55 + db "SAFFRON now.", $57 + +_SaffronCityText11: ; 0xa6475 + db $0, "I flew here on my", $4f + db "PIDGEOT when I", $55 + db "read about SILPH.", $51 + db "It's already over?", $4f + db "I missed the", $55 + db "media action.", $57 + +_SaffronCityText12: ; 0xa64d6 + db $0, "PIDGEOT: Bi bibii!@@" + +_SaffronCityText13: ; 0xa64eb + db $0, "I saw ROCKET", $4f + db "BOSS escaping", $55 + db "SILPH's building.", $57 + +_SaffronCityText14: ; 0xa6518 + db $0, "I'm a security", $4f + db "guard.", $51 + db "Suspicious kids I", $4f + db "don't allow in!", $57 + +_SaffronCityText15: ; 0xa654f + db $0, "...", $4f + db "Snore...", $51 + db "Hah! He's taking", $4f + db "a snooze!", $57 + +_SaffronCityText16: ; 0xa6577 + db $0, "SAFFRON CITY", $4f + db "Shining, Golden", $55 + db "Land of Commerce", $57 + +_SaffronCityText17: ; 0xa65a6 + db $0, "FIGHTING DOJO", $57 + +_SaffronCityText18: ; 0xa65b5 + db $0, "SAFFRON CITY", $4f + db "#MON GYM", $55 + db "LEADER: SABRINA", $51 + db "The Master of", $4f + db "Psychic #MON!", $57 + +_SaffronCityText20: ; 0xa65f8 + db $0, "TRAINER TIPS", $51 + db "FULL HEAL cures", $4f + db "all ailments like", $55 + db "sleep and burns.", $51 + db "It costs a bit", $4f + db "more, but it's", $55 + db "more convenient.", $57 + +_SaffronCityText21: ; 0xa6667 + db $0, "TRAINER TIPS", $51 + db "New GREAT BALL", $4f + db "offers improved", $55 + db "capture rates.", $51 + db "Try it on those", $4f + db "hard-to-catch", $55 + db "#MON.", $57 + +_SaffronCityText22: ; 0xa66c7 + db $0, "SILPH CO.", $4f + db "OFFICE BUILDING", $57 + +_SaffronCityText24: ; 0xa66e2 + db $0, "MR.PSYCHIC's", $4f + db "HOUSE", $57 + +_SaffronCityText25: ; 0xa66f5 + db $0, "SILPH's latest", $4f + db "product!", $51 + db "Release to be", $4f + db "determined...", $57 + +_ItemUseBallText00: + db 0,"It dodged the",$4F + db "thrown BALL!",$51 + db "This #MON",$4F + db "can't be caught!",$58 + +_ItemUseBallText01: + db 0,"You missed the",$4F + db "#MON!",$58 + +_ItemUseBallText02: + db 0,"Darn! The #MON",$4F + db "broke free!",$58 + +_ItemUseBallText03: + db 0,"Aww! It appeared",$4F + db "to be caught! ",$58 + +_ItemUseBallText04: + db 0,"Shoot! It was so",$4F + db "close too!",$58 + +_ItemUseBallText05: + db 0,"All right!",$4F,"@",1 + dw $CFDA + db 0," was",$55 + db "caught!@@" + +_ItemUseBallText07: + db 1 + dw $DE06 + db 0," was",$4F + db "transferred to",$55 + db "BILL's PC!",$58 + +_ItemUseBallText08: + db 1 + dw $DE06 + db 0," was",$4F + db "transferred to",$55 + db "someone's PC!",$58 + +_ItemUseBallText06: + db 0,"New #DEX data",$4F + db "will be added for",$55,"@",1 + dw $CFDA + db 0,"!@@" + +INCBIN "baserom.gbc",$A685E,$4000 - $285E + +SECTION "bank2A",DATA,BANK[$2A] + +_ItemUseText001: + db 0,$52," used@@" + +_ItemUseText002: + db 1 + dw $CF4B + db 0,"!",$57 + +INCBIN "baserom.gbc",$A800F,$4000-$F + +SECTION "bank2B",DATA,BANK[$2B] +INCLUDE "text/pokedex.tx" + +SECTION "bank2C",DATA,BANK[$2C] + +MoveNames: ; 4000 + db "POUND@" + db "KARATE CHOP@" + db "DOUBLESLAP@" + db "COMET PUNCH@" + db "MEGA PUNCH@" + db "PAY DAY@" + db "FIRE PUNCH@" + db "ICE PUNCH@" + db "THUNDERPUNCH@" + db "SCRATCH@" + db "VICEGRIP@" + db "GUILLOTINE@" + db "RAZOR WIND@" + db "SWORDS DANCE@" + db "CUT@" + db "GUST@" + db "WING ATTACK@" + db "WHIRLWIND@" + db "FLY@" + db "BIND@" + db "SLAM@" + db "VINE WHIP@" + db "STOMP@" + db "DOUBLE KICK@" + db "MEGA KICK@" + db "JUMP KICK@" + db "ROLLING KICK@" + db "SAND-ATTACK@" + db "HEADBUTT@" + db "HORN ATTACK@" + db "FURY ATTACK@" + db "HORN DRILL@" + db "TACKLE@" + db "BODY SLAM@" + db "WRAP@" + db "TAKE DOWN@" + db "THRASH@" + db "DOUBLE-EDGE@" + db "TAIL WHIP@" + db "POISON STING@" + db "TWINEEDLE@" + db "PIN MISSILE@" + db "LEER@" + db "BITE@" + db "GROWL@" + db "ROAR@" + db "SING@" + db "SUPERSONIC@" + db "SONICBOOM@" + db "DISABLE@" + db "ACID@" + db "EMBER@" + db "FLAMETHROWER@" + db "MIST@" + db "WATER GUN@" + db "HYDRO PUMP@" + db "SURF@" + db "ICE BEAM@" + db "BLIZZARD@" + db "PSYBEAM@" + db "BUBBLEBEAM@" + db "AURORA BEAM@" + db "HYPER BEAM@" + db "PECK@" + db "DRILL PECK@" + db "SUBMISSION@" + db "LOW KICK@" + db "COUNTER@" + db "SEISMIC TOSS@" + db "STRENGTH@" + db "ABSORB@" + db "MEGA DRAIN@" + db "LEECH SEED@" + db "GROWTH@" + db "RAZOR LEAF@" + db "SOLARBEAM@" + db "POISONPOWDER@" + db "STUN SPORE@" + db "SLEEP POWDER@" + db "PETAL DANCE@" + db "STRING SHOT@" + db "DRAGON RAGE@" + db "FIRE SPIN@" + db "THUNDERSHOCK@" + db "THUNDERBOLT@" + db "THUNDER WAVE@" + db "THUNDER@" + db "ROCK THROW@" + db "EARTHQUAKE@" + db "FISSURE@" + db "DIG@" + db "TOXIC@" + db "CONFUSION@" + db "PSYCHIC@" + db "HYPNOSIS@" + db "MEDITATE@" + db "AGILITY@" + db "QUICK ATTACK@" + db "RAGE@" + db "TELEPORT@" + db "NIGHT SHADE@" + db "MIMIC@" + db "SCREECH@" + db "DOUBLE TEAM@" + db "RECOVER@" + db "HARDEN@" + db "MINIMIZE@" + db "SMOKESCREEN@" + db "CONFUSE RAY@" + db "WITHDRAW@" + db "DEFENSE CURL@" + db "BARRIER@" + db "LIGHT SCREEN@" + db "HAZE@" + db "REFLECT@" + db "FOCUS ENERGY@" + db "BIDE@" + db "METRONOME@" + db "MIRROR MOVE@" + db "SELFDESTRUCT@" + db "EGG BOMB@" + db "LICK@" + db "SMOG@" + db "SLUDGE@" + db "BONE CLUB@" + db "FIRE BLAST@" + db "WATERFALL@" + db "CLAMP@" + db "SWIFT@" + db "SKULL BASH@" + db "SPIKE CANNON@" + db "CONSTRICT@" + db "AMNESIA@" + db "KINESIS@" + db "SOFTBOILED@" + db "HI JUMP KICK@" + db "GLARE@" + db "DREAM EATER@" + db "POISON GAS@" + db "BARRAGE@" + db "LEECH LIFE@" + db "LOVELY KISS@" + db "SKY ATTACK@" + db "TRANSFORM@" + db "BUBBLE@" + db "DIZZY PUNCH@" + db "SPORE@" + db "FLASH@" + db "PSYWAVE@" + db "SPLASH@" + db "ACID ARMOR@" + db "CRABHAMMER@" + db "EXPLOSION@" + db "FURY SWIPES@" + db "BONEMERANG@" + db "REST@" + db "ROCK SLIDE@" + db "HYPER FANG@" + db "SHARPEN@" + db "CONVERSION@" + db "TRI ATTACK@" + db "SUPER FANG@" + db "SLASH@" + db "SUBSTITUTE@" + db "STRUGGLE@" diff --git a/gfx/blue/blueversion.1bpp b/gfx/blue/blueversion.1bpp Binary files differnew file mode 100644 index 00000000..12f0531f --- /dev/null +++ b/gfx/blue/blueversion.1bpp diff --git a/gfx/blue/introfight.2bpp b/gfx/blue/introfight.2bpp Binary files differnew file mode 100644 index 00000000..76d7070a --- /dev/null +++ b/gfx/blue/introfight.2bpp diff --git a/gfx/blue/slotmachine1.2bpp b/gfx/blue/slotmachine1.2bpp Binary files differnew file mode 100644 index 00000000..c83ef184 --- /dev/null +++ b/gfx/blue/slotmachine1.2bpp diff --git a/gfx/blue/slotmachine2.2bpp b/gfx/blue/slotmachine2.2bpp Binary files differnew file mode 100644 index 00000000..ae018bb6 --- /dev/null +++ b/gfx/blue/slotmachine2.2bpp diff --git a/gfx/blue/supergameboyborder.2bpp b/gfx/blue/supergameboyborder.2bpp Binary files differnew file mode 100644 index 00000000..a7261b18 --- /dev/null +++ b/gfx/blue/supergameboyborder.2bpp diff --git a/gfx/red/introfight.2bpp b/gfx/red/introfight.2bpp Binary files differnew file mode 100644 index 00000000..62c20894 --- /dev/null +++ b/gfx/red/introfight.2bpp diff --git a/gfx/redgreenversion.1bpp b/gfx/red/redgreenversion.1bpp Binary files differindex 2d99e99d..2d99e99d 100644 --- a/gfx/redgreenversion.1bpp +++ b/gfx/red/redgreenversion.1bpp diff --git a/gfx/red/slotmachine1.2bpp b/gfx/red/slotmachine1.2bpp Binary files differnew file mode 100644 index 00000000..32d4daa5 --- /dev/null +++ b/gfx/red/slotmachine1.2bpp diff --git a/gfx/red/slotmachine2.2bpp b/gfx/red/slotmachine2.2bpp Binary files differnew file mode 100644 index 00000000..13e1dd30 --- /dev/null +++ b/gfx/red/slotmachine2.2bpp diff --git a/gfx/red/supergameboyborder.2bpp b/gfx/red/supergameboyborder.2bpp Binary files differnew file mode 100644 index 00000000..17266d99 --- /dev/null +++ b/gfx/red/supergameboyborder.2bpp diff --git a/pokeblue.asm b/pokeblue.asm new file mode 100644 index 00000000..75489ac5 --- /dev/null +++ b/pokeblue.asm @@ -0,0 +1,3 @@ +_RED EQU 0
+_BLUE EQU 1
+INCLUDE "common.tx"
\ No newline at end of file diff --git a/pokered.asm b/pokered.asm index 14a58e8e..5f6d90b0 100644 --- a/pokered.asm +++ b/pokered.asm @@ -1,41467 +1,3 @@ -INCLUDE "constants.asm" - -; the rst vectors are unused -SECTION "rst00",HOME[0] - db $FF -SECTION "rst08",HOME[8] - db $FF -SECTION "rst10",HOME[$10] - db $FF -SECTION "rst18",HOME[$18] - db $FF -SECTION "rst20",HOME[$20] - db $FF -SECTION "rst28",HOME[$28] - db $FF -SECTION "rst30",HOME[$30] - db $FF -SECTION "rst38",HOME[$38] - db $FF - -; interrupts -SECTION "vblank",HOME[$40] - jp $2024 -SECTION "lcdc",HOME[$48] - db $FF -SECTION "timer",HOME[$50] - jp $2306 -SECTION "serial",HOME[$58] - jp $2125 -SECTION "joypad",HOME[$60] - reti - -SECTION "bank0",HOME[$61] -DisableLCD: -;$0061 - xor a - ld [$ff0f],a - ld a,[$ffff] - ld b,a - res 0,a - ld [$ffff],a -.jr0\@ - ld a,[$ff44] - cp a,$91 - jr nz,.jr0\@ - ld a,[$ff40] - and a,$7f ; res 7,a - ld [$ff40],a - ld a,b - ld [$ffff],a - ret - -EnableLCD: -;$007b - ld a,[$ff40] - set 7,a - ld [$ff40],a - ret - -CleanLCD_OAM: -;$0082 - xor a - ld hl,$c300 - ld b,$a0 -.jr0\@ - ld [hli],a - dec b - jr nz,.jr0\@ - ret - -ResetLCD_OAM: -;$008d - ld a,$a0 - ld hl,$c300 - ld de,$0004 - ld b,$28 -.jr0\@ - ld [hl],a - add hl,de - dec b - jr nz,.jr0\@ - ret - -FarCopyData: ; 009D -; copy bc bytes of data from a:hl to de - ld [$CEE9],a ; save future bank # for later - ld a,[$FFB8] ; get current bank # - push af - ld a,[$CEE9] ; get future bank #, switch - ld [$FFB8],a - ld [$2000],a - call CopyData - pop af ; okay, done, time to switch back - ld [$FFB8],a - ld [$2000],a - ret -CopyData: ; 00B5 -; copy bc bytes of data from hl to de - ld a,[hli] - ld [de],a - inc de - dec bc - ld a,c - or b - jr nz,CopyData - ret - -SECTION "romheader",HOME[$100] -nop -jp Start - -Section "start",HOME[$150] -Start: -INCBIN "baserom.gbc",$150,$1AE - $150 -; see also MapHeaderBanks -MapHeaderPointers: ; $01AE - dw PalletTown_h ; PALLET_TOWN - dw ViridianCity_h ; VIRIDIAN_CITY - dw PewterCity_h ; PEWTER_CITY - dw CeruleanCity_h ; CERULEAN_CITY - dw LavenderTown_h ; LAVENDER_TOWN - dw VermilionCity_h ; VERMILION_CITY - dw CeladonCity_h ; CELADON_CITY - dw FuchsiaCity_h ; FUCHSIA_CITY - dw CinnabarIsland_h ; CINNABAR_ISLAND - dw IndigoPlateau_h ; INDIGO_PLATEAU - dw SaffronCity_h ; SAFFRON_CITY - dw SaffronCity_h ; unused - dw Route1_h ; ROUTE_1 - dw $4000 ; ROUTE_2 - dw Route3_h ; ROUTE_3 - dw Route4_h ; ROUTE_4 - dw Route5_h ; ROUTE_5 - dw Route6_h ; ROUTE_6 - dw Route7_h ; ROUTE_7 - dw Route8_h ; ROUTE_8 - dw Route9_h ; ROUTE_9 - dw Route10_h ; ROUTE_10 - dw Route11_h ; ROUTE_11 - dw Route12_h ; ROUTE_12 - dw Route13_h ; ROUTE_13 - dw Route14_h ; ROUTE_14 - dw Route15_h ; ROUTE_15 - dw Route16_h ; ROUTE_16 - dw Route17_h ; ROUTE_17 - dw Route18_h ; ROUTE_18 - dw Route19_h ; ROUTE_19 - dw Route20_h ; ROUTE_20 - dw Route21_h ; ROUTE_21 - dw Route22_h ; ROUTE_22 - dw Route23_h ; ROUTE_23 - dw Route24_h ; ROUTE_24 - dw Route25_h ; ROUTE_25 - dw RedsHouse1F_h - dw RedsHouse2F_h - dw BluesHouse_h - dw OaksLab_h - dw ViridianPokecenter_h - dw ViridianMart_h - dw School_h - dw ViridianHouse_h - dw ViridianGym_h - dw DiglettsCaveRoute2_h - dw ViridianForestexit_h - dw Route2House_h - dw Route2Gate_h - dw ViridianForestEntrance_h - dw ViridianForest_h - dw MuseumF1_h - dw MuseumF2_h - dw PewterGym_h - dw PewterHouse1_h - dw PewterMart_h - dw PewterHouse2_h - dw PewterPokecenter_h - dw MtMoon1_h - dw MtMoon2_h - dw MtMoon3_h - dw CeruleanHouseTrashed_h - dw CeruleanHouse2_h - dw CeruleanPokecenter_h - dw CeruleanGym_h - dw BikeShop_h - dw CeruleanMart_h - dw MtMoonPokecenter_h - dw CeruleanHouseTrashed_h ; copy of map 62 - dw Route5Gate_h - dw UndergroundTunnelEntranceRoute5_h - dw DayCareM_h - dw Route6Gate_h - dw UndergroundTunnelEntranceRoute6_h - dw $56e3 ; id=75 - dw Route7Gate_h - dw UndergroundPathEntranceRoute7_h - dw $575d - dw Route8Gate_h - dw UndergroundPathEntranceRoute8_h - dw RockTunnelPokecenter_h - dw RockTunnel1_h - dw PowerPlant_h - dw Route11Gate_h - dw DiglettsCaveEntranceRoute11_h - dw Route11GateUpstairs_h - dw Route12Gate_h - dw BillsHouse_h - dw VermilionPokecenter_h - dw FanClub_h - dw VermilionMart_h - dw VermilionGym_h - dw VermilionHouse1_h - dw VermilionDock_h - dw SSAnne1_h - dw SSAnne2_h - dw SSAnne3_h - dw SSAnne4_h - dw SSAnne5_h - dw SSAnne6_h - dw SSAnne7_h - dw SSAnne8_h - dw SSAnne9_h - dw SSAnne10_h ; id=104 - dw Lance_h ; unused - dw Lance_h ; unused - dw Lance_h ; unused - dw VictoryRoad1_h ; id=108 - dw Lance_h ; unused - dw Lance_h ; unused - dw Lance_h ; unused - dw Lance_h ; unused - dw Lance_h - dw Lance_h ; unused - dw Lance_h ; unused - dw Lance_h ; unused - dw Lance_h ; unused - dw $6492 - dw UndergroundPathNS_h - dw $5f11 - dw UndergroundPathWE_h - dw CeladonMart1_h - dw CeladonMart2_h - dw CeladonMart3_h - dw CeladonMart4_h - dw CeladonMartRoof_h - dw CeladonMartElevator_h - dw CeladonMansion1_h - dw CeladonMansion2_h - dw CeladonMansion3_h - dw CeladonMansion4_h - dw CeladonMansion5_h - dw CeladonPokecenter_h - dw CeladonGym_h - dw CeladonGameCorner_h - dw CeladonMart5_h - dw CeladonPrizeRoom_h - dw CeladonDiner_h - dw CeladonHouse_h - dw CeladonHotel_h - dw LavenderPokecenter_h - dw PokemonTower1_h - dw PokemonTower2_h - dw PokemonTower3_h - dw PokemonTower4_h - dw PokemonTower5_h - dw PokemonTower6_h - dw PokemonTower7_h - dw LavenderHouse1_h - dw LavenderMart_h - dw LavenderHouse2_h - dw FuchsiaMart_h - dw FuchsiaHouse1_h - dw FuchsiaPokecenter_h - dw FuchsiaHouse2_h - dw SafariZoneEntrance_h - dw FuchsiaGym_h - dw FuchsiaMeetingRoom_h - dw SeafoamIslands2_h - dw SeafoamIslands3_h - dw SeafoamIslands4_h - dw SeafoamIslands5_h - dw VermilionHouse2_h - dw FuchsiaHouse3_h - dw Mansion1_h - dw CinnabarGym_h - dw Lab1_h - dw Lab2_h - dw Lab3_h - dw Lab4_h - dw CinnabarPokecenter_h - dw CinnabarMart_h - dw $5e72 - dw IndigoPlateauLobby_h - dw CopycatsHouseF1_h - dw CopycatsHouseF2_h - dw FightingDojo_h - dw SaffronGym_h - dw SaffronHouse1_h - dw SaffronMart_h - dw SilphCo1_h - dw SaffronPokecenter_h - dw SaffronHouse2_h - dw Route15Gate_h - dw $563e - dw Route16GateMap_h - dw Route16GateUpstairs_h - dw Route16House_h - dw Route12House_h - dw Route18Gate_h - dw Route18GateHeader_h - dw SeafoamIslands1_h - dw Route22Gate_h - dw VictoryRoad2_h - dw Route12GateUpstairs_h - dw VermilionHouse3_h - dw DiglettsCave_h - dw VictoryRoad3_h - dw RocketHideout1_h - dw RocketHideout2_h - dw RocketHideout3_h - dw RocketHideout4_h - dw RocketHideoutElevator_h - dw $5704 - dw $5704 - dw $5704 - dw SilphCo2_h - dw SilphCo3_h ; id=208 - dw SilphCo4_h - dw SilphCo5_h - dw SilphCo6_h - dw SilphCo7_h - dw SilphCo8_h - dw Mansion2_h - dw Mansion3_h - dw Mansion4_h - dw SafariZoneEast_h - dw SafariZoneNorth_h - dw SafariZoneWest_h - dw SafariZoneCenter_h - dw SafariZoneRestHouse1_h - dw SafariZoneSecretHouse_h - dw SafariZoneRestHouse2_h - dw SafariZoneRestHouse3_h - dw SafariZoneRestHouse4_h - dw UnknownDungeon2_h - dw UnknownDungeon3_h - dw UnknownDungeon1_h - dw NameRater_h - dw CeruleanHouse3_h - dw $56b2 - dw RockTunnel2_h - dw SilphCo9_h - dw SilphCo10_h - dw SilphCo11_h - dw SilphCoElevator_h - dw $5ce5 - dw $5ce5 - dw BattleCenterM_h - dw TradeCenterM_h - dw $5CE5 - dw $5CE5 - dw $5CE5 - dw $5CE5 - dw Lorelei_h - dw Bruno_h - dw Agatha_h - -INCBIN "baserom.gbc",$39E,$1627 - $39E - -;XXX what does this do -;XXX what points to this -; offset 1627 - ld bc,$D0B8 - add hl,bc - ld a,[hli] - ld [$D0AB],a - ld a,[hl] - ld [$D0AC],a - -; offset 1633 -; define (by index number) the bank that a pokemon's image is in -; index = Mew, bank 1 -; index = Kabutops fossil, bank $B -; index < $1F, bank 9 -; $1F ≤ index < $4A, bank $A -; $4A ≤ index < $74, bank $B -; $74 ≤ index < $99, bank $C -; $99 ≤ index, bank $D - ld a,[$CF91] ; XXX name for this ram location - ld b,a - cp $15 - ld a,$01 - jr z,.GotBank\@ - ld a,b - cp $B6 - ld a,$0B - jr z,.GotBank\@ - ld a,b - cp $1F - ld a,$09 - jr c,.GotBank\@ - ld a,b - cp $4A - ld a,$0A - jr c,.GotBank\@ - ld a,b - cp $74 - ld a,$0B - jr c,.GotBank\@ - ld a,b - cp $99 - ld a,$0C - jr c,.GotBank\@ - ld a,$0D -.GotBank\@ - jp $24FD - -INCBIN "baserom.gbc",$1665,$172F - $1665 - -Tset0B_Coll: - INCBIN "baserom.gbc",$172F,$1735-$172F -Tset00_Coll: - INCBIN "baserom.gbc",$1735,$1749-$1735 -Tset01_Coll: - INCBIN "baserom.gbc",$1749,$1753-$1749 -Tset02_Coll: - INCBIN "baserom.gbc",$1753,$1759-$1753 -Tset05_Coll: - INCBIN "baserom.gbc",$1759,$1765-$1759 -Tset03_Coll: - INCBIN "baserom.gbc",$1765,$1775-$1765 -Tset08_Coll: - INCBIN "baserom.gbc",$1775,$177F-$1775 -Tset09_Coll: - INCBIN "baserom.gbc",$177F,$178A-$177F -Tset0D_Coll: - INCBIN "baserom.gbc",$178A,$1795-$178A -Tset0E_Coll: - INCBIN "baserom.gbc",$1795,$179A-$1795 -Tset0F_Coll: - INCBIN "baserom.gbc",$179A,$17A2-$179A -Tset10_Coll: - INCBIN "baserom.gbc",$17A2,$17AC-$17A2 -Tset11_Coll: - INCBIN "baserom.gbc",$17AC,$17B8-$17AC -Tset12_Coll: - INCBIN "baserom.gbc",$17B8,$17C0-$17B8 -Tset13_Coll: - INCBIN "baserom.gbc",$17C0,$17CA-$17C0 -Tset14_Coll: - INCBIN "baserom.gbc",$17CA,$17D1-$17CA -Tset15_Coll: - INCBIN "baserom.gbc",$17D1,$17DD-$17D1 -Tset16_Coll: - INCBIN "baserom.gbc",$17DD,$17F0-$17DD -Tset17_Coll: - INCBIN "baserom.gbc",$17F0,$190F-$17F0 - -ClearScreen: ; 190F -; clears all tiles in the tilemap, -; then wait three frames - ld bc,$0168 ; tilemap size - inc b - ld hl,$C3A0 ; TILEMAP_START - ld a,$7F ; $7F is blank tile -.loop\@ - ld [hli],a - dec c - jr nz,.loop\@ - dec b - jr nz,.loop\@ - jp Delay3 - -TextBoxBorder: ; 1922 -; draw a text box -; upper-left corner at coordinates hl -; height b -; width c - - ; first row - push hl - ld a,"┌" - ld [hli],a - inc a ; horizontal border ─ - call NPlaceChar - inc a ; upper-right border ┐ - ld [hl],a - - ; middle rows - pop hl - ld de,20 - add hl,de ; skip the top row - -.PlaceRow\@ - push hl - ld a,"│" - ld [hli],a - ld a," " - call NPlaceChar - ld [hl],"│" - - pop hl - ld de,20 - add hl,de ; move to next row - dec b - jr nz,.PlaceRow\@ - - ; bottom row - ld a,"└" - ld [hli],a - ld a,"─" - call NPlaceChar - ld [hl],"┘" - ret -; -NPlaceChar: -; place a row of width c of identical characters - ld d,c -.loop\@ - ld [hli],a - dec d - jr nz,.loop\@ - ret - -PlaceString: ; 1955 - push hl -PlaceNextChar: ; 1956 - ld a,[de] - - cp "@" - jr nz,.PlaceText\@ - ld b,h - ld c,l - pop hl - ret - -.PlaceText\@ - cp $4E - jr nz,.next\@ - ld bc,$0028 - ld a,[$FFF6] - bit 2,a - jr z,.next2\@ - ld bc,$14 -.next2\@ - pop hl - add hl,bc - push hl - jp Next19E8 - -.next\@ - cp $4F - jr nz,.next3\@ - pop hl - ld hl,$C4E1 - push hl - jp Next19E8 - -.next3\@ ; Check against a dictionary - and a - jp z,Char00 - cp $4C - jp z,$1B0A - cp $4B - jp z,Char4B - cp $51 - jp z,Char51 - cp $49 - jp z,Char49 - cp $52 - jp z,Char52 - cp $53 - jp z,Char53 - cp $54 - jp z,Char54 - cp $5B - jp z,Char5B - cp $5E - jp z,Char5E - cp $5C - jp z,Char5C - cp $5D - jp z,Char5D - cp $55 - jp z,$1A7C - cp $56 - jp z,Char56 - cp $57 - jp z,$1AAD - cp $58 - jp z,Char58 - cp $4A - jp z,Char4A - cp $5F - jp z,Char5F - cp $59 - jp z,Char59 - cp $5A - jp z,Char5A - ld [hli],a - call $38D3 -Next19E8: - inc de - jp PlaceNextChar - -Char00: - ld b,h - ld c,l - pop hl - ld de,Char00Text - dec de - ret - -Char00Text: ; “%d ERROR.” - TX_FAR _Char00Text - db "@" - -Char52: ; player’s name - push de - ld de,W_PLAYERNAME - jr FinishDTE - -Char53: ; rival’s name - push de - ld de,W_RIVALNAME - jr FinishDTE - -Char5D: ; TRAINER - push de - ld de,Char5DText - jr FinishDTE - -Char5C: ; TM - push de - ld de,Char5CText - jr FinishDTE - -Char5B: ; PC - push de - ld de,Char5BText - jr FinishDTE - -Char5E: ; ROCKET - push de - ld de,Char5EText - jr FinishDTE - -Char54: ; POKé - push de - ld de,Char54Text - jr FinishDTE - -Char56: ; …… - push de - ld de,Char56Text - jr FinishDTE - -Char4A: ; PKMN - push de - ld de,Char4AText - jr FinishDTE - -Char59: -; depending on whose turn it is, print -; enemy active monster’s name, prefixed with “Enemy ” -; or -; player active monster’s name -; (like Char5A but flipped) - ld a,[H_WHOSETURN] - xor 1 - jr MonsterNameCharsCommon - -Char5A: -; depending on whose turn it is, print -; player active monster’s name -; or -; enemy active monster’s name, prefixed with “Enemy ” - ld a,[H_WHOSETURN] -MonsterNameCharsCommon: - push de - and a - jr nz,.Enemy\@ - ld de,$D009 ; player active monster name - jr FinishDTE - -.Enemy\@ ; 1A40 - ; print “Enemy ” - ld de,Char5AText - call PlaceString - - ld h,b - ld l,c - ld de,$CFDA ; enemy active monster name - -FinishDTE: - call PlaceString - ld h,b - ld l,c - pop de - inc de - jp PlaceNextChar - -Char5CText: - db "TM@" -Char5DText: - db "TRAINER@" -Char5BText: - db "PC@" -Char5EText: - db "ROCKET@" -Char54Text: - db "POKé@" -Char56Text: - db "……@" -Char5AText: - db "Enemy @" -Char4AText: - db $E1,$E2,"@" ; PKMN - -Char55: - push de - ld b,h - ld c,l - ld hl,Char55Text - call $1B40 - ld h,b - ld l,c - pop de - inc de - jp PlaceNextChar - -Char55Text: -; equivalent to Char4B - TX_FAR _Char55Text - db "@" - -Char5F: -; ends a Pokédex entry - ld [hl],"." - pop hl - ret - -Char58: - ld a,[$D12B] - cp 4 - jp z,Next1AA2 - ld a,$EE - ld [$C4F2],a -Next1AA2: - call ProtectedDelay3 - call $3898 - ld a,$7F - ld [$C4F2],a - pop hl - ld de,Char58Text - dec de - ret - -Char58Text: - db "@" - -Char51: - push de - ld a,$EE - ld [$C4F2],a - call ProtectedDelay3 - call $3898 - ld hl,$C4A5 - ld bc,$0412 - call $18C4 - ld c,$14 - call DelayFrames - pop de - ld hl,$C4B9 - jp Next19E8 - -Char49: - push de - ld a,$EE - ld [$C4F2],a - call ProtectedDelay3 - call $3898 - ld hl,$C469 - ld bc,$0712 - call $18C4 - ld c,$14 - call DelayFrames - pop de - pop hl - ld hl,$C47D - push hl - jp Next19E8 - -Char4B: - ld a,$EE - ld [$C4F2],a - call ProtectedDelay3 - push de - call $3898 - pop de - ld a,$7F - ld [$C4F2],a - push de - call Next1B18 - call Next1B18 - ld hl,$C4E1 - pop de - jp Next19E8 - -Next1B18: - ld hl,$C4B8 - ld de,$C4A4 - ld b,$3C -.next\@ - ld a,[hli] - ld [de],a - inc de - dec b - jr nz,.next\@ - ld hl,$C4E1 - ld a,$7F - ld b,$12 -.next2\@ - ld [hli],a - dec b - jr nz,.next2\@ - - ; wait five frames - ld b,5 -.WaitFrame\@ - call DelayFrame - dec b - jr nz,.WaitFrame\@ - - ret - -ProtectedDelay3: - push bc - call Delay3 - pop bc - ret - -INCBIN "baserom.gbc",$1B40,$20AF - $1B40 - -DelayFrame: ; 20AF -; delay for one frame - ld a,1 - ld [$FFD6],a - -; wait for the next Vblank, halting to conserve battery -.halt\@ - db $76 ; XXX this is a hack--rgbasm adds a nop after this instr - ; even when ints are enabled - ld a,[$FFD6] - and a - jr nz,.halt\@ - - ret - -; These routines manage gradual fading -; (e.g., entering a doorway) -LoadGBPal: ; 20BA - ld a,[$d35d] ;tells if cur.map is dark - ld b,a ;(requires HM5_FLASH?) - ld hl,GBPalTable_00 ;16 - ld a,l - sub b - ld l,a - jr nc,.jr0\@ - dec h -.jr0\@ - ld a,[hli] - ld [rBGP],a - ld a,[hli] - ld [rOBP0],a - ld a,[hli] - ld [rOBP1],a - ret - -GBFadeOut1: ; 20D1 - ld hl,IncGradGBPalTable_01 ;0d - ld b,$04 - jr GBFadeOutCommon - -GBFadeOut2: ; 20D8 - ld hl,IncGradGBPalTable_02 ;1c - ld b,$03 - -GBFadeOutCommon: - ld a,[hli] - ld [rBGP],a - ld a,[hli] - ld [rOBP0],a - ld a,[hli] - ld [rOBP1],a - ld c,8 - call DelayFrames - dec b - jr nz,GBFadeOutCommon - ret - -GBFadeIn1: ; 20EF - ld hl,DecGradGBPalTable_01 ;18 - ld b,$04 - jr GBFadeInCommon - -GBFadeIn2: ; 20F6 - ld hl,DecGradGBPalTable_02 ;21 - ld b,$03 - -GBFadeInCommon: - ld a,[hld] - ld [rOBP1],a - ld a,[hld] - ld [rOBP0],a - ld a,[hld] - ld [rBGP],a - ld c,8 - call DelayFrames - dec b - jr nz,GBFadeInCommon - ret - -IncGradGBPalTable_01: ; 210D - db %11111111 ;BG Pal - db %11111111 ;OBJ Pal 1 - db %11111111 ;OBJ Pal 2 - ;and so on... - db %11111110 - db %11111110 - db %11111000 - - db %11111001 - db %11100100 - db %11100100 -GBPalTable_00: ;16 - db %11100100 - db %11010000 -DecGradGBPalTable_01: ;18 - db %11100000 - ;19 - db %11100100 - db %11010000 - db %11100000 -IncGradGBPalTable_02: ;1c - db %10010000 - db %10000000 - db %10010000 - - db %01000000 - db %01000000 -DecGradGBPalTable_02: ;21 - db %01000000 - - db %00000000 - db %00000000 - db %00000000 - -INCBIN "baserom.gbc",$2125,$2442 - $2125 - -; XXX where is the pointer to this data? -MartInventories: ; 2442 - ; first byte $FE, next byte # of items, last byte $FF - -; Viridian -ViridianMartText4: ; XXX confirm - db $FE,4,POKE_BALL,ANTIDOTE,PARLYZ_HEAL,BURN_HEAL,$FF - -; Pewter -PewterMartText1: - db $FE,7,POKE_BALL,POTION,ESCAPE_ROPE,ANTIDOTE,BURN_HEAL,AWAKENING - db PARLYZ_HEAL,$FF - -; Cerulean -CeruleanMartText1: - db $FE,7,POKE_BALL,POTION,REPEL,ANTIDOTE,BURN_HEAL,AWAKENING - db PARLYZ_HEAL,$FF - -; Bike shop - db $FE,1,BICYCLE,$FF - -; Vermilion -VermilionMartText1: - db $FE,6,POKE_BALL,SUPER_POTION,ICE_HEAL,AWAKENING,PARLYZ_HEAL - db REPEL,$FF - -; Lavender -LavenderMartText1: - db $FE,9,GREAT_BALL,SUPER_POTION,REVIVE,ESCAPE_ROPE,SUPER_REPEL - db ANTIDOTE,BURN_HEAL,ICE_HEAL,PARLYZ_HEAL,$FF - -; Celadon Dept. Store 2F (1) -CeladonMart2Text1: - db $FE,9,GREAT_BALL,SUPER_POTION,REVIVE,SUPER_REPEL,ANTIDOTE - db BURN_HEAL,ICE_HEAL,AWAKENING,PARLYZ_HEAL,$FF - -; Celadon Dept. Store 2F (2) -CeladonMart2Text2: - db $FE,9,TM_32,TM_33,TM_02,TM_07,TM_37,TM_01,TM_05,TM_09,TM_17,$FF - -; Celadon Dept. Store 4F -CeladonMart4Text1: - db $FE,5,POKE_DOLL,FIRE_STONE,THUNDER_STONE,WATER_STONE,LEAF_STONE,$FF - -; Celadon Dept. Store 5F (1) -CeladonMart5Text3: - db $FE,7,X_ACCURACY,GUARD_SPEC_,DIRE_HIT,X_ATTACK,X_DEFEND,X_SPEED - db X_SPECIAL,$FF - -; Celadon Dept. Store 5F (2) -CeladonMart5Text4: - db $FE,5,HP_UP,PROTEIN,IRON,CARBOS,CALCIUM,$FF - -; Fuchsia -FuchsiaMartText1: - db $FE,6,ULTRA_BALL,GREAT_BALL,SUPER_POTION,REVIVE,FULL_HEAL - db SUPER_REPEL,$FF - -; unused? - db $FE,5,GREAT_BALL,HYPER_POTION,SUPER_POTION,FULL_HEAL,REVIVE,$FF - -; Cinnabar -CinnabarMartText1: - db $FE,7,ULTRA_BALL,GREAT_BALL,HYPER_POTION,MAX_REPEL,ESCAPE_ROPE - db FULL_HEAL,REVIVE,$FF - -; Saffron -SaffronMartText1: - db $FE,6,GREAT_BALL,HYPER_POTION,MAX_REPEL,ESCAPE_ROPE,FULL_HEAL - db REVIVE,$FF - -; Indigo -IndigoPlateauLobbyText4: - db $FE,7,ULTRA_BALL,GREAT_BALL,FULL_RESTORE,MAX_POTION,FULL_HEAL - db REVIVE,MAX_REPEL,$FF - -TextScriptEndingChar: - db "@" -TextScriptEnd: ; 24D7 24d7 - ld hl,TextScriptEndingChar - ret - -INCBIN "baserom.gbc",$24DB,$24E5 - $24DB - -VictoryRoad3Text10: -VictoryRoad3Text9: -VictoryRoad3Text8: -VictoryRoad3Text7: -VictoryRoad2Text13: -VictoryRoad2Text12: -VictoryRoad2Text11: -SeafoamIslands1Text2: -SeafoamIslands1Text1: -SeafoamIslands5Text2: -SeafoamIslands5Text1: -SeafoamIslands4Text6: -SeafoamIslands4Text5: -SeafoamIslands4Text4: -SeafoamIslands4Text3: -SeafoamIslands4Text2: -SeafoamIslands4Text1: -SeafoamIslands3Text2: -SeafoamIslands3Text1: -SeafoamIslands2Text2: -SeafoamIslands2Text1: -FuchsiaHouse2Text3: -VictoryRoad1Text7: -VictoryRoad1Text6: ; _VictoryRoad1Text6 -VictoryRoad1Text5: ; 0x24e5 - TX_FAR _VictoryRoad1Text5 - db $50 - -SaffronCityText19: -CinnabarIslandText4: -FuchsiaCityText14: -VermilionCityText9: -LavenderTownText6: -CeruleanCityText14: -PewterCityText8: -ViridianCityText11: ; 0x24ea - TX_FAR _ViridianCityText11 - db $50 - -PewterCityText9: -CeruleanCityText15: -LavenderTownText7: -VermilionCityText10: -CeladonCityText12: -FuchsiaCityText15: -CinnabarIslandText5: -SaffronCityText23: -Route4Text4: -Route10Text8: -ViridianCityText12: ; 0x24ef - TX_FAR _ViridianCityText12 - db $50 - -Route2Text1: -Route4Text3: -Route9Text10: -Route12Text9: -Route12Text10: -Route15Text11: -Route24Text8: -Route25Text10: -ViridianGymText11: -ViridianForestText5: -ViridianForestText6: -ViridianForestText7: -MtMoon1Text8: -MtMoon1Text9: -MtMoon1Text10: -MtMoon1Text11: -MtMoon1Text12: -MtMoon1Text13: -MtMoon3Text8: -MtMoon3Text9: -PowerPlantText10: -PowerPlantText11: -PowerPlantText12: -PowerPlantText13: -PowerPlantText14: -SSAnne8Text10: -SSAnne9Text6: -SSAnne9Text9: -SSAnne10Text9: -SSAnne10Text10: -SSAnne10Text11: -VictoryRoad1Text3: -VictoryRoad1Text4: -PokemonTower3Text4: -PokemonTower4Text4: -PokemonTower4Text5: -PokemonTower4Text6: -PokemonTower5Text6: -PokemonTower6Text4: -PokemonTower6Text5: -FuchsiaHouse2Text2: -VictoryRoad2Text7: -VictoryRoad2Text8: -VictoryRoad2Text9: -VictoryRoad2Text10: -VictoryRoad3Text5: -VictoryRoad3Text6: -RocketHideout1Text6: -RocketHideout1Text7: -RocketHideout2Text2: -RocketHideout2Text3: -RocketHideout2Text4: -RocketHideout2Text5: -RocketHideout3Text3: -RocketHideout3Text4: -RocketHideout4Text5: -RocketHideout4Text6: -RocketHideout4Text7: -RocketHideout4Text8: -RocketHideout4Text9: -SilphCo3Text4: -SilphCo4Text5: -SilphCo4Text6: -SilphCo4Text7: -SilphCo5Text6: -SilphCo5Text7: -SilphCo5Text8: -SilphCo6Text9: -SilphCo6Text10: -SilphCo7Text10: -SilphCo7Text11: -SilphCo7Text12: -Mansion1Text2: -Mansion1Text3: -Mansion2Text2: -Mansion3Text3: -Mansion3Text4: -Mansion4Text3: -Mansion4Text4: -Mansion4Text5: -Mansion4Text6: -Mansion4Text8: -SafariZoneEastText1: -SafariZoneEastText2: -SafariZoneEastText3: -SafariZoneEastText4: -SafariZoneNorthText1: -SafariZoneNorthText2: -SafariZoneWestText1: -SafariZoneWestText2: -SafariZoneWestText3: -SafariZoneWestText4: -SafariZoneCenterText1: -UnknownDungeon2Text1: -UnknownDungeon2Text2: -UnknownDungeon2Text3: -UnknownDungeon3Text2: -UnknownDungeon3Text3: -UnknownDungeon1Text1: -UnknownDungeon1Text2: -UnknownDungeon1Text3: -SilphCo10Text4: -SilphCo10Text5: -SilphCo10Text6: -Route2Text2: ; 24f4 0x424f4 - db $08 ; asm - ld a, $5c - call Predef - jp $24d7 - -INCBIN "baserom.gbc",$24fd,$2f9e - $24fd - -GetMonName: ; 2F9E - push hl - ld a,[$ffb8] - push af - ld a,BANK(MonsterNames) ; 07 - ld [$ffb8],a - ld [$2000],a - ld a,[$d11e] - dec a - ld hl,MonsterNames ; 421E - ld c,10 - ld b,0 - call AddNTimes - ld de,$cd6d - push de - ld bc,10 - call CopyData - ld hl,$cd77 - ld [hl],$50 - pop de - pop af - ld [$ffb8],a - ld [$2000],a - pop hl - ret - -GetItemName: ; 2FCF -; given an item ID at [$D11E], store the name of the item into a string -; starting at $CD6D - push hl - push bc - ld a,[$D11E] - cp HM_01 ; is this a TM/HM? - jr nc,.Machine\@ - - ld [$D0B5],a - ld a,ITEM_NAME - ld [$D0B6],a - ld a,BANK(ItemNames) - ld [$D0B7],a - call GetName - jr .Finish\@ - -.Machine\@ - call GetMachineName -.Finish\@ - ld de,$CD6D ; pointer to where item name is stored in RAM - pop bc - pop hl - ret - -GetMachineName: -; copies the name of the TM/HM in [$D11E] to $CD6D - push hl - push de - push bc - ld a,[$D11E] - push af - cp TM_01 ; is this a TM? [not HM] - jr nc,.WriteTM\@ -; if HM, then write "HM" and add 5 to the item ID, so we can reuse the -; TM printing code - add 5 - ld [$D11E],a - ld hl,HiddenPrefix ; points to "HM" - ld bc,2 - jr .WriteMachinePrefix\@ -.WriteTM\@ - ld hl,TechnicalPrefix ; points to "TM" - ld bc,2 -.WriteMachinePrefix\@ - ld de,$CD6D - call CopyData - -; now get the machine number and convert it to text - ld a,[$D11E] - sub TM_01 - 1 - ld b,$F6 ; "0" -.FirstDigit\@ - sub 10 - jr c,.SecondDigit\@ - inc b - jr .FirstDigit\@ -.SecondDigit\@ - add 10 - push af - ld a,b - ld [de],a - inc de - pop af - ld b,$F6 ; "0" - add b - ld [de],a - inc de - ld a,"@" - ld [de],a - - pop af - ld [$D11E],a - pop bc - pop de - pop hl - ret - -TechnicalPrefix: - db "TM" -HiddenPrefix: - db "HM" - -INCBIN "baserom.gbc",$3040,$31cc - $3040 - -LoadTrainerHeader: ; 0x31cc - call $3157 - xor a - call $3193 - ld a, $2 - call $3193 - ld a, [$cc55] - ld c, a - ld b, $2 - call $31c7 - ld a, c - and a - jr z, .asm_c2964 ; 0x31e3 $8 - ld a, $6 - call $3193 - jp PrintText -.asm_c2964 ; 0x31ed - ld a, $4 - call $3193 - call PrintText - ld a, $a - call $3193 - push de - ld a, $8 - call $3193 - pop de - call $3354 - ld hl, $d733 - set 4, [hl] - ld hl, $cd60 - bit 0, [hl] - ret nz - call $336a - ld hl, $da39 - inc [hl] - jp $325d - call $3306 - ld a, [$cf13] - cp $ff - jr nz, .asm_76c22 ; 0x3221 $8 - xor a - ld [$cf13], a - ld [$cc55], a - ret -.asm_76c22 ; 0x322b - ld hl, $d733 - set 3, [hl] - ld [$cd4f], a - xor a - ld [$cd50], a - ld a, $4c - call Predef - ld a, $f0 - ld [$cd6b], a - xor a - ldh [$b4], a - call $32cf - ld hl, $da39 - inc [hl] - ret - -INCBIN "baserom.gbc",$324c,$3474 - $324c - -FuncTX_F7: ; 3474 -; XXX find a better name for this function -; special_F7 - ld b,BANK(CeladonPrizeMenu) - ld hl,CeladonPrizeMenu - call Bankswitch - jp $29DF ; continue to main text-engine function - -INCBIN "baserom.gbc",$347F,$3493 - $347F - -IsItemInBag: ; 3493 -; given an item_id in b -; set zero flag if item isn't in player's bag -; else reset zero flag -; related to Pokémon Tower and ghosts - ld a,$1C - call Predef - ld a,b - and a - ret - -INCBIN "baserom.gbc",$349B,$3541 - $349B - -Function3541: ; 3541 -; XXX what do these three functions do - push hl - call Function354E - ld [hl],$FF - call Function3558 - ld [hl],$FF - pop hl - ret - -Function354E: ; 354E - ld h,$C2 - ld a,[$FF8C] ; the sprite to move - swap a - add a,6 - ld l,a - ret - -Function3558: ; 3558 - push de - ld hl,$D4E4 - ld a,[$FF8C] ; the sprite to move - dec a - add a - ld d,0 - ld e,a - add hl,de - pop de - ret - -INCBIN "baserom.gbc",$3566,$35BC - $3566 - -BankswitchHome: ; 35BC -; switches to bank # in a -; Only use this when in the home bank! - ld [$CF09],a - ld a,[$FFB8] - ld [$CF08],a - ld a,[$CF09] - ld [$FFB8],a - ld [$2000],a - ret - -BankswitchBack: ; 35CD -; returns from BankswitchHome - ld a,[$CF08] - ld [$FFB8],a - ld [$2000],a - ret - -Bankswitch: ; 35D6 -; self-contained bankswitch, use this when not in the home bank -; switches to the bank in b - ld a,[$FFB8] - push af - ld a,b - ld [$FFB8],a - ld [$2000],a - ld bc,.Return\@ - push bc - jp [hl] -.Return\@ - pop bc - ld a,b - ld [$FFB8],a - ld [$2000],a - ret - -INCBIN "baserom.gbc",$35EC,$363A - $35EC - -MoveSprite: ; 363A -; move the sprite [$FF8C] with the movement pointed to by de -; actually only copies the movement data to $CC5B for later - call Function3541 - push hl - push bc - call Function354E - xor a - ld [hl],a - ld hl,$CC5B - ld c,0 - -.loop\@ - ld a,[de] - ldi [hl],a - inc de - inc c - cp a,$FF ; have we reached the end of the movement data? - jr nz,.loop\@ - - ld a,c - ld [$CF0F],a ; number of steps taken - - pop bc - ld hl,$D730 - set 0,[hl] - pop hl - xor a - ld [$CD3B],a - ld [$CCD3],a - dec a - ld [$CD6B],a - ld [$CD3A],a - ret - -INCBIN "baserom.gbc",$366B,$3739 - $366B - -DelayFrames: ; 3739 -; wait n frames, where n is the value in c - call DelayFrame - dec c - jr nz,DelayFrames - ret - -INCBIN "baserom.gbc",$3740,$375D - $3740 - -NamePointers: ; 375D - dw MonsterNames - dw MoveNames - dw UnusedNames - dw ItemNames - dw $D273 ; player's OT names list - dw $D9AC ; enemy's OT names list - dw TrainerNames - -GetName: ; 376B -; arguments: -; [$D0B5] = which name -; [$D0B6] = which list -; [$D0B7] = bank of list -; -; returns pointer to name in de - ld a,[$d0b5] - ld [$d11e],a - cp a,$C4 ;it's TM/HM - jp nc,GetMachineName - ld a,[$ffb8] - push af - push hl - push bc - push de - ld a,[$d0b6] ;List3759_entrySelector - dec a - jr nz,.otherEntries\@ - ;1 = MON_NAMES - call GetMonName - ld hl,11 - add hl,de - ld e,l - ld d,h - jr .gotPtr\@ -.otherEntries\@ ;$378d - ;2-7 = OTHER ENTRIES - ld a,[$d0b7] - ld [$ffb8],a - ld [$2000],a - ld a,[$d0b6] ;VariousNames' entryID - dec a - add a - ld d,0 - ld e,a - jr nc,.skip\@ - inc d -.skip\@ ;$37a0 - ld hl,NamePointers - add hl,de - ld a,[hli] - ld [$ff96],a - ld a,[hl] - ld [$ff95],a - ld a,[$ff95] - ld h,a - ld a,[$ff96] - ld l,a - ld a,[$d0b5] - ld b,a - ld c,0 -.nextName\@ - ld d,h - ld e,l -.nextChar\@ - ld a,[hli] - cp a,$50 - jr nz,.nextChar\@ - inc c ;entry counter - ld a,b ;wanted entry - cp c - jr nz,.nextName\@ - ld h,d - ld l,e - ld de,$cd6d - ld bc,$0014 - call CopyData -.gotPtr\@ ;$37cd - ld a,e - ld [$cf8d],a - ld a,d - ld [$cf8e],a - pop de - pop bc - pop hl - pop af - ld [$ffb8],a - ld [$2000],a - ret - -INCBIN "baserom.gbc",$37df,$3927 - $37df - -AddPokemonToParty: ; 0x3927 - push hl - push de - push bc - ld b, $3 ; BANK(MyFunction) - ld hl, $72e5 ; MyFunction - call Bankswitch - pop bc - pop de - pop hl - ret - -INCBIN "baserom.gbc",$3936,$3A87 - $3936 - -AddNTimes: ; 3A87 -; add bc to hl a times - and a - ret z -.loop\@ - add hl,bc - dec a - jr nz,.loop\@ - ret - -INCBIN "baserom.gbc",$3A8E,$3C49 - $3A8E - -PrintText: ; 3C49 -; given a pointer in hl, print the text there - push hl - ld a,1 - ld [$D125],a - call $30E8 - call $2429 - call Delay3 - pop hl - FuncCoord 1,14 - ld bc,Coord ;$C4B9 - jp $1B40 - -Func3C5F: ; 3C5F - push bc - xor a - ld [$FF95],a - ld [$FF96],a - ld [$FF97],a - ld a,b - and $F - cp 1 - jr z,.next\@ - cp 2 - jr z,.next2\@ - ld a,[de] - ld [$FF96],a - inc de - ld a,[de] - ld [$FF97],a - inc de - ld a,[de] - ld [$FF98],a - jr .next3\@ - -.next2\@ - ld a,[de] - ld [$FF97],a - inc de - ld a,[de] - ld [$FF98],a - jr .next3\@ - -.next\@ - ld a,[de] - ld [$FF98],a - -.next3\@ - push de - ld d,b - ld a,c - ld b,a - xor a - ld c,a - ld a,b - cp 2 - jr z,.next4\@ - cp 3 - jr z,.next5\@ - cp 4 - jr z,.next6\@ - cp 5 - jr z,.next7\@ - cp 6 - jr z,.next8\@ - ld a,$F - ld [$FF99],a - ld a,$42 - ld [$FF9A],a - ld a,$40 - ld [$FF9B],a - call $3D25 - call $3D89 -.next8\@ - ld a,1 - ld [$FF99],a - ld a,$86 - ld [$FF9A],a - ld a,$A0 - ld [$FF9B],a - call $3D25 - call $3D89 -.next7\@ - xor a - ld [$FF99],a - ld a,$27 - ld [$FF9A],a - ld a,$10 - ld [$FF9B],a - call $3D25 - call $3D89 -.next6\@ - xor a - ld [$FF99],a - ld a,3 - ld [$FF9A],a - ld a,$E8 - ld [$FF9B],a - call $3D25 - call $3D89 -.next5\@ - xor a - ld [$FF99],a - xor a - ld [$FF9A],a - ld a,$64 - ld [$FF9B],a - call $3D25 - call $3D89 -.next4\@ - ld c,0 - ld a,[$FF98] -.next10\@ - cp $A - jr c,.next9\@ - sub $A - inc c - jr .next10\@ -.next9\@ - ld b,a - ld a,[$FF95] - or c - ld [$FF95],a - jr nz,.next11\@ - call $3D83 - jr .next12\@ -.next11\@ - ld a,$F6 - add a,c - ld [hl],a -.next12\@ - call $3D89 - ld a,$F6 - add a,b - ld [hli],a - pop de - dec de - pop bc - ret - -INCBIN "baserom.gbc",$3D25,$3DAB - $3D25 - -IsInArray: ; 3DAB -; searches an array at hl for the value in a. -; skips (de − 1) bytes between reads, so to check every byte, de should be 1. -; if found, returns count in b and sets carry. - ld b,0 - ld c,a -.loop\@ - ld a,[hl] - cp a,$FF - jr z,.NotInArray\@ - cp c - jr z,.InArray\@ - inc b - add hl,de - jr .loop\@ -.NotInArray\@ - and a - ret -.InArray\@ - scf - ret - -INCBIN "baserom.gbc",$3DBE,$3DD7 - $3DBE - -Delay3: ; 3DD7 -; call Delay with a parameter of 3 - ld c,3 - jp DelayFrames - -INCBIN "baserom.gbc",$3DDC,$3DED - $3DDC - -GoPAL_SET_CF1C: ; 3ded - ld b,$ff -GoPAL_SET: ; 3def - ld a,[$cf1b] - and a - ret z - ld a,$45 - jp Predef - -INCBIN "baserom.gbc",$3df9,$3e2e - $3df9 - -GiveItem: ; 0x3e2e - ld a, b - ld [$d11e], a - ld [$cf91], a - ld a, c - ld [$cf96], a - ld hl,W_NUMBAGITEMS - call $2bcf - ret nc - call GetItemName ; $2fcf - call $3826 - scf - ret - -GivePokemon: ; 0x3e48 - ld a, b - ld [$cf91], a - ld a, c - ld [$d127], a - xor a - ld [$cc49], a - ld b, $13 - ld hl, $7da5 - jp Bankswitch - -GenRandom: ; 3E5C -; store a random 8-bit value in a - push hl - push de - push bc - ld b,BANK(GenRandom_) - ld hl,GenRandom_ - call Bankswitch - ld a,[H_RAND1] - pop bc - pop de - pop hl - ret - -Predef: ; 3E6D -; runs a predefined ASM command, where the command ID is read from $D0B7 -; $3E6D grabs the ath pointer from PredefPointers and executes it - - ld [$CC4E],a ; save the predef routine's ID for later - - ld a,[$FFB8] - ld [$CF12],a - - ; save bank and call 13:7E49 - push af - ld a,BANK(GetPredefPointer) - ld [$FFB8],a - ld [$2000],a - call GetPredefPointer - - ; call the predef function - ; ($D0B7 has the bank of the predef routine) - ld a,[$D0B7] - ld [$FFB8],a - ld [$2000],a - ld de,.Return\@ - push de - jp [hl] - ; after the predefined function finishes it returns here -.Return\@ - pop af - ld [$FFB8],a - ld [$2000],a - ret - -INCBIN "baserom.gbc",$3E94,$4000 - $3E94 - -SECTION "bank1",DATA,BANK[$1] - -INCBIN "baserom.gbc",$4000,$112 - -MewPicFront: - INCBIN "pic/bmon/mew.pic" -MewPicBack: - INCBIN "pic/monback/mewb.pic" - -INCBIN "baserom.gbc",$425B,$4588-$425B - -TitleMons: ; 4588 -; mons on the title screen are randomly chosen from here -IF _RED - db CHARMANDER - db SQUIRTLE - db BULBASAUR - db WEEDLE - db NIDORAN_M - db SCYTHER - db PIKACHU - db CLEFAIRY - db RHYDON - db ABRA - db GASTLY - db DITTO - db PIDGEOTTO - db ONIX - db PONYTA - db MAGIKARP -ENDC -IF _GREEN - db BULBASAUR - db CHARMANDER - db SQUIRTLE - db CATERPIE - db NIDORAN_F - db PINSIR - db PIKACHU - db CLEFAIRY - db RHYDON - db ABRA - db GASTLY - db DITTO - db PIDGEOTTO - db ONIX - db PONYTA - db MAGIKARP -ENDC -IF _BLUE - db SQUIRTLE - db CHARMANDER - db BULBASAUR - db MANKEY - db HITMONLEE - db VULPIX - db CHANSEY - db AERODACTYL - db JOLTEON - db SNORLAX - db GLOOM - db POLIWAG - db DODUO - db PORYGON - db GENGAR - db RAICHU -ENDC - -INCBIN "baserom.gbc",$4598,$472B-$4598 - -ItemNames: ; 472B - db "MASTER BALL@" - db "ULTRA BALL@" - db "GREAT BALL@" - db "POKé BALL@" - db "TOWN MAP@" - db "BICYCLE@" - db "?????@" - db "SAFARI BALL@" - db "POKéDEX@" - db "MOON STONE@" - db "ANTIDOTE@" - db "BURN HEAL@" - db "ICE HEAL@" - db "AWAKENING@" - db "PARLYZ HEAL@" - db "FULL RESTORE@" - db "MAX POTION@" - db "HYPER POTION@" - db "SUPER POTION@" - db "POTION@" - db "BOULDERBADGE@" - db "CASCADEBADGE@" - db "THUNDERBADGE@" - db "RAINBOWBADGE@" - db "SOULBADGE@" - db "MARSHBADGE@" - db "VOLCANOBADGE@" - db "EARTHBADGE@" - db "ESCAPE ROPE@" - db "REPEL@" - db "OLD AMBER@" - db "FIRE STONE@" - db "THUNDERSTONE@" - db "WATER STONE@" - db "HP UP@" - db "PROTEIN@" - db "IRON@" - db "CARBOS@" - db "CALCIUM@" - db "RARE CANDY@" - db "DOME FOSSIL@" - db "HELIX FOSSIL@" - db "SECRET KEY@" - db "?????@" - db "BIKE VOUCHER@" - db "X ACCURACY@" - db "LEAF STONE@" - db "CARD KEY@" - db "NUGGET@" - db "PP UP@" - db "POKé DOLL@" - db "FULL HEAL@" - db "REVIVE@" - db "MAX REVIVE@" - db "GUARD SPEC.@" - db "SUPER REPEL@" - db "MAX REPEL@" - db "DIRE HIT@" - db "COIN@" - db "FRESH WATER@" - db "SODA POP@" - db "LEMONADE@" - db "S.S.TICKET@" - db "GOLD TEETH@" - db "X ATTACK@" - db "X DEFEND@" - db "X SPEED@" - db "X SPECIAL@" - db "COIN CASE@" - db "OAK's PARCEL@" - db "ITEMFINDER@" - db "SILPH SCOPE@" - db "POKé FLUTE@" - db "LIFT KEY@" - db "EXP.ALL@" - db "OLD ROD@" - db "GOOD ROD@" - db "SUPER ROD@" - db "PP UP@" - db "ETHER@" - db "MAX ETHER@" - db "ELIXER@" - db "MAX ELIXER@" - db "B2F@" - db "B1F@" - db "1F@" - db "2F@" - db "3F@" - db "4F@" - db "5F@" - db "6F@" - db "7F@" - db "8F@" - db "9F@" - db "10F@" - db "11F@" - db "B4F@" - -UnusedNames: ; 4A92 - db "かみなりバッヂ@" - db "かいがらバッヂ@" - db "おじぞうバッヂ@" - db "はやぶさバッヂ@" - db "ひんやりバッヂ@" - db "なかよしバッヂ@" - db "バラバッヂ@" - db "ひのたまバッヂ@" - db "ゴールドバッヂ@" - db "たまご@" - db "ひよこ@" - db "ブロンズ@" - db "シルバー@" - db "ゴールド@" - db "プチキャプテン@" - db "キャプテン@" - db "プチマスター@" - db "マスター@" - -INCBIN "baserom.gbc",$4B09,$5AF2-$4B09 - -MainMenu: -; Check save file - call Func_5bff - xor a - ld [$D08A],a - inc a - ld [$D088],a - call $609E - jr nc,.next0\@ - - ; Predef 52 loads the save from SRAM to RAM - ld a,$52 - call Predef - -.next0\@ - ld c,20 - call DelayFrames - xor a - ld [$D12B],a - ld hl,$CC2B - ld [hli],a - ld [hli],a - ld [hli],a - ld [hl],a - ld [$D07C],a - ld hl,$D72E - res 6,[hl] - call ClearScreen - call $3DED - call $36A0 ; load some graphics in VRAM - call $3680 ; load fonts in VRAM - ld hl,$D730 - set 6,[hl] - ld a,[$D088] - cp a,1 - jr z,.next1\@ - FuncCoord 0,0 - ld hl,Coord - ld b,6 - ld c,13 - call TextBoxBorder - FuncCoord 2,2 - ld hl,Coord - ld de,$5D7E - call PlaceString - jr .next2\@ -.next1\@ - FuncCoord 0,0 - ld hl,Coord - ld b,4 - ld c,13 - call TextBoxBorder - FuncCoord 2,2 - ld hl,Coord - ld de,$5D87 - call PlaceString -.next2\@ - ld hl,$D730 - res 6,[hl] - call $2429 ; OAM? - xor a - ld [$CC26],a - ld [$CC2A],a - ld [$CC34],a - inc a - ld [$CC25],a - inc a - ld [$CC24],a - ld a,$B - ld [$CC29],a - ld a,[$D088] - ld [$CC28],a - call $3ABE - bit 1,a - jp nz,$42DD ; load title screen (gfx and arrangement) - ld c,20 - call DelayFrames - ld a,[$CC26] - ld b,a - ld a,[$D088] - cp a,2 - jp z,.next3\@ - inc b ; adjust MenuArrow_Counter -.next3\@ - ld a,b - and a - jr z,.next4\@ ; if press_A on Continue - cp a,1 - jp z,$5D52 ; if press_A on NewGame - call $5E8A ; if press_a on Options - ld a,1 - ld [$D08A],a - jp .next0\@ -.next4\@ - call $5DB5 - ld hl,$D126 - set 5,[hl] -.next6\@ - xor a - ld [$FFB3],a - ld [$FFB2],a - ld [$FFB4],a - call $19A - ld a,[$FFB4] - bit 0,a - jr nz,.next5\@ - bit 1,a - jp nz,.next0\@ - jr .next6\@ -.next5\@ - call $3DD4 - call ClearScreen - ld a,4 - ld [$D52A],a - ld c,10 - call DelayFrames - ld a,[$D5A2] - and a - jp z,$5D5F - ld a,[W_CURMAP] ; map ID - cp a,$76 ; Hall of Fame - jp nz,$5D5F - xor a - ld [$D71A],a - ld hl,$D732 - set 2,[hl] - call $62CE - jp $5D5F -Func_5bff: - ld a,1 - ld [$D358],a - ld a,3 - ld [$D355],a - ret - -INCBIN "baserom.gbc",$5C0A,$6115 - $5C0A - -OakSpeech: ; 6115 - ld a,$FF - call $23B1 ; stop music - ld a,2 ; bank of song - ld c,a - ld a,$EF ; song # - call $23A1 ; plays music - call ClearScreen - call $36A0 - call $60CA - ld a,$18 - call Predef - ld hl,$D53A - ld a,$14 - ld [$CF91],a - ld a,1 - ld [$CF96],a - call $2BCF - ld a,[$D07C] - ld [$D71A],a - call Function62CE - xor a - ld [$FFD7],a - ld a,[$D732] - bit 1,a ; XXX when is bit 1 set? - jp nz,Function61BC ; easter egg: skip the intro - ld de,$615F - ld bc,$1300 - call IntroPredef3B ; displays Oak pic? - call FadeInIntroPic - ld hl,OakSpeechText1 - call PrintText ; prints text box - call GBFadeOut2 - call ClearScreen - ld a,NIDORINO - ld [$D0B5],a ; pic displayed is stored at this location - ld [$CF91],a - call $1537 ; this is also related to the pic - ld hl,$C3F6 ; position on tilemap the pic is displayed - call $1384 ; displays pic? - call MovePicLeft - ld hl,OakSpeechText2 - call PrintText ; Prints text box - call GBFadeOut2 - call ClearScreen - ld de,$6EDE - ld bc,$0400 ; affects the position of the player pic - call IntroPredef3B ; displays player pic? - call MovePicLeft - ld hl,IntroducePlayerText - call PrintText - call $695D ; brings up NewName/Red/etc menu - call GBFadeOut2 - call ClearScreen - ld de,$6049 - ld bc,$1300 - call IntroPredef3B ; displays rival pic - call FadeInIntroPic - ld hl,IntroduceRivalText - call PrintText - call $69A4 -Function61BC: - call GBFadeOut2 - call ClearScreen - ld de,$6EDE - ld bc,$0400 - call IntroPredef3B - call GBFadeIn2 - ld a,[$D72D] - and a - jr nz,.next\@ - ld hl,OakSpeechText3 - call PrintText -.next\@ ld a,[$FFB8] - push af - ld a,$9C - call $23B1 - pop af - ld [$FFB8],a - ld [$2000],a - ld c,4 - call DelayFrames - ld de,$4180 - ld hl,$8000 - ld bc,$050C - call $1848 - ld de,$6FE8 - ld bc,$0400 - call IntroPredef3B - ld c,4 - call DelayFrames - ld de,$7042 - ld bc,$0400 - call IntroPredef3B - call $28A6 - ld a,[$FFB8] - push af - ld a,2 - ld [$C0EF],a - ld [$C0F0],a - ld a,$A - ld [$CFC7],a - ld a,$FF - ld [$C0EE],a - call $23B1 ; stop music - pop af - ld [$FFB8],a - ld [$2000],a - ld c,$14 - call DelayFrames - ld hl,$C40A - ld b,7 - ld c,7 - call $18C4 - call $36A0 - ld a,1 - ld [$CFCB],a - ld c,$32 - call DelayFrames - call GBFadeOut2 - jp ClearScreen -OakSpeechText1: - TX_FAR _OakSpeechText1 - db "@" -OakSpeechText2: - TX_FAR _OakSpeechText2A - db $14 - TX_FAR _OakSpeechText2B - db "@" -IntroducePlayerText: - TX_FAR _IntroducePlayerText - db "@" -IntroduceRivalText: - TX_FAR _IntroduceRivalText - db "@" -OakSpeechText3: - TX_FAR _OakSpeechText3 - db "@" - -FadeInIntroPic: - ld hl,IntroFadePalettes - ld b,6 -.next\@ - ld a,[hli] - ld [rBGP],a - ld c,10 - call DelayFrames - dec b - jr nz,.next\@ - ret - -IntroFadePalettes: - db %01010100 - db %10101000 - db %11111100 - db %11111000 - db %11110100 - db %11100100 - -MovePicLeft: - ld a,119 - ld [$FF4B],a - call DelayFrame - - ld a,$E4 - ld [rBGP],a -.next\@ - call DelayFrame - ld a,[$FF4B] - sub 8 - cp $FF - ret z - ld [$FF4B],a - jr .next\@ - -Predef3B: ; 62A1 - call $3E94 -IntroPredef3B: ; 62A4 - push bc - ld a,b - call $36EB - ld hl,$A188 - ld de,$A000 - ld bc,$0310 - call CopyData - ld de,$9000 - call $16EA - pop bc - ld a,c - and a - ld hl,$C3C3 - jr nz,.next\@ - ld hl,$C3F6 -.next\@ - xor a - ld [$FFE1],a - ld a,1 - jp $3E6D - -Function62CE: ; 62CE, XXX called by 4B2 948 989 5BF9 5D15 - call $62FF - ld a,$19 - call $3E6D - ld hl,$D732 - bit 2,[hl] - res 2,[hl] - jr z,.next\@ - ld a,[$D71A] - jr .next2\@ -.next\@ - bit 1,[hl] - jr z,.next3\@ - call $64EA -.next3\@ - ld a,0 -.next2\@ - ld b,a - ld a,[$D72D] - and a - jr nz,.next4\@ - ld a,b -.next4\@ - ld hl,$D732 - bit 4,[hl] - ret nz - ld [$D365],a - ret - -INCBIN "baserom.gbc",$62FF,$6420-$62FF - -FirstMapSpec: - db $26 ; RedHouse1F -; Original Format: -; [Event Displacement][Y-block][X-block][Y-sub_block][X-sub_block] -; Macro Format: -; FLYWARP_DATA [Map Width][Y-pos][X-pos] - FLYWARP_DATA 4,6,3 - db $04 ;Tileset_id - -INCBIN "baserom.gbc",$6428,$6448-$6428 - -FlyWarpDataPtr: - db $00,0 - dw Map00FlyWarp - db $01,0 - dw Map01FlyWarp - db $02,0 - dw Map02FlyWarp - db $03,0 - dw Map03FlyWarp - db $04,0 - dw Map04FlyWarp - db $05,0 - dw Map05FlyWarp - db $06,0 - dw Map06FlyWarp - db $07,0 - dw Map07FlyWarp - db $08,0 - dw Map08FlyWarp - db $09,0 - dw Map09FlyWarp - db $0A,0 - dw Map0aFlyWarp - db $0F,0 - dw Map0fFlyWarp - db $15,0 - dw Map15FlyWarp - -; Original Format: -; [Event Displacement][Y-block][X-block][Y-sub_block][X-sub_block] -; Macro Format: -; FLYWARP_DATA [Map Width][Y-pos][X-pos] -Map00FlyWarp: - FLYWARP_DATA 10,6,5 -Map01FlyWarp: - FLYWARP_DATA 20,26,23 -Map02FlyWarp: - FLYWARP_DATA 20,26,13 -Map03FlyWarp: - FLYWARP_DATA 20,18,19 -Map04FlyWarp: - FLYWARP_DATA 10,6,3 -Map05FlyWarp: - FLYWARP_DATA 20,4,11 -Map06FlyWarp: - FLYWARP_DATA 25,10,41 -Map07FlyWarp: - FLYWARP_DATA 20,28,19 -Map08FlyWarp: - FLYWARP_DATA 10,12,11 -Map09FlyWarp: - FLYWARP_DATA 10,6,9 -Map0aFlyWarp: - FLYWARP_DATA 20,30,9 -Map0fFlyWarp: - FLYWARP_DATA 45,6,11 -Map15FlyWarp: - FLYWARP_DATA 10,20,11 - -INCBIN "baserom.gbc",$64CA,$778D - $64CA - -FieldMoveNames: ; 778D - db "CUT@" - db "FLY@" - db "@" - db "SURF@" - db "STRENGTH@" - db "FLASH@" - db "DIG@" - db "TELEPORT@" - db "SOFTBOILED@" - -PokemonMenuEntries: ; 77C2 - db "STATS",$4E - db "SWITCH",$4E - db "CANCEL@" - -INCBIN "baserom.gbc",$77D6,$7AF5 - $77D6 - -PlayersPCMenuEntries: ; 7AF5 - db "WITHDRAW ITEM",$4E - db "DEPOSIT ITEM",$4E - db "TOSS ITEM",$4E - db "LOG OFF@" - -INCBIN "baserom.gbc",$7B22,$7C49 - $7B22 - -SECTION "bank2",DATA,BANK[$2] - -INCBIN "baserom.gbc",$8000,$4000 - -SECTION "bank3",DATA,BANK[$3] - -INCBIN "baserom.gbc",$C000,$C23D - $C000 - -; see also MapHeaderPointers -MapHeaderBanks: ; 423D - db BANK(PalletTown_h) - db BANK(ViridianCity_h) ; VIRIDIAN_CITY - db BANK(PewterCity_h) ; PEWTER_CITY - db BANK(CeruleanCity_h) ; CERULEAN_CITY - db BANK(LavenderTown_h) ; LAVENDER_TOWN - db BANK(VermilionCity_h) ; VERMILION_CITY - db BANK(CeladonCity_h) ; CELADON_CITY - db BANK(FuchsiaCity_h) ; FUCHSIA_CITY - db BANK(CinnabarIsland_h) ; CINNABAR_ISLAND - db BANK(IndigoPlateau_h) ; INDIGO_PLATEAU - db BANK(SaffronCity_h) ; SAFFRON_CITY - db $01 ; unused - db BANK(Route1_h) ; ROUTE_1 - db $15 ; ROUTE_2 - db BANK(Route3_h) ; ROUTE_3 - db BANK(Route4_h) ; ROUTE_4 - db BANK(Route5_h) ; ROUTE_5 - db BANK(Route6_h) ; ROUTE_6 - db BANK(Route7_h) ; ROUTE_7 - db BANK(Route8_h) ; ROUTE_8 - db BANK(Route9_h) ; ROUTE_9 - db BANK(Route10_h) ; ROUTE_10 - db BANK(Route11_h) ; ROUTE_11 - db BANK(Route12_h) ; ROUTE_12 - db BANK(Route13_h) ; ROUTE_13 - db BANK(Route14_h) ; ROUTE_14 - db BANK(Route15_h) ; ROUTE_15 - db BANK(Route16_h) ; ROUTE_16 - db BANK(Route17_h) ; ROUTE_17 - db BANK(Route18_h) ; ROUTE_18 - db BANK(Route19_h) ; ROUTE_19 - db BANK(Route20_h) ; ROUTE_20 - db BANK(Route21_h) ; ROUTE_21 - db BANK(Route22_h) ; ROUTE_22 - db BANK(Route23_h) ; ROUTE_23 - db BANK(Route24_h) ; ROUTE_24 - db BANK(Route25_h) ; ROUTE_25 - db BANK(RedsHouse1F_h) - db BANK(RedsHouse2F_h) - db BANK(BluesHouse_h) - db BANK(OaksLab_h) - db BANK(ViridianPokecenter_h) - db BANK(ViridianMart_h) - db BANK(School_h) - db BANK(ViridianHouse_h) - db BANK(ViridianGym_h) - db BANK(DiglettsCaveRoute2_h) - db BANK(ViridianForestexit_h) - db BANK(Route2House_h) - db BANK(Route2Gate_h) - db BANK(ViridianForestEntrance_h) - db BANK(ViridianForest_h) - db BANK(MuseumF1_h) - db BANK(MuseumF2_h) - db BANK(PewterGym_h) - db BANK(PewterHouse1_h) - db BANK(PewterMart_h) - db BANK(PewterHouse2_h) - db BANK(PewterPokecenter_h) - db BANK(MtMoon1_h) - db BANK(MtMoon2_h) - db BANK(MtMoon3_h) - db BANK(CeruleanHouseTrashed_h) - db BANK(CeruleanHouse2_h) - db BANK(CeruleanPokecenter_h) - db BANK(CeruleanGym_h) - db BANK(BikeShop_h) - db BANK(CeruleanMart_h) - db BANK(MtMoonPokecenter_h) - db BANK(CeruleanHouseTrashed_h) - db BANK(Route5Gate_h) - db BANK(UndergroundTunnelEntranceRoute5_h) - db BANK(DayCareM_h) - db BANK(Route6Gate_h) - db BANK(UndergroundTunnelEntranceRoute6_h) - db $17 - db BANK(Route7Gate_h) - db BANK(UndergroundPathEntranceRoute7_h) - db $17 - db BANK(Route8Gate_h) - db BANK(UndergroundPathEntranceRoute8_h) - db BANK(RockTunnelPokecenter_h) - db BANK(RockTunnel1_h) - db BANK(PowerPlant_h) - db BANK(Route11Gate_h) - db BANK(DiglettsCaveEntranceRoute11_h) - db BANK(Route11GateUpstairs_h) - db BANK(Route12Gate_h) - db BANK(BillsHouse_h) - db BANK(VermilionPokecenter_h) - db BANK(FanClub_h) - db BANK(VermilionMart_h) - db BANK(VermilionGym_h) - db BANK(VermilionHouse1_h) - db BANK(VermilionDock_h) - db BANK(SSAnne1_h) - db BANK(SSAnne2_h) - db BANK(SSAnne3_h) - db BANK(SSAnne4_h) - db BANK(SSAnne5_h) - db BANK(SSAnne6_h) - db BANK(SSAnne7_h) - db BANK(SSAnne8_h) - db BANK(SSAnne9_h) - db BANK(SSAnne10_h) - db $1D - db $1D - db $1D - db BANK(VictoryRoad1_h) - db $1D - db $1D - db $1D - db $1D - db BANK(Lance_h) - db $1D - db $1D - db $1D - db $1D - db $16 - db BANK(UndergroundPathNS_h) - db $1D - db BANK(UndergroundPathWE_h) - db BANK(CeladonMart1_h) - db BANK(CeladonMart2_h) - db BANK(CeladonMart3_h) - db BANK(CeladonMart4_h) - db BANK(CeladonMartRoof_h) - db BANK(CeladonMartElevator_h) - db BANK(CeladonMansion1_h) - db BANK(CeladonMansion2_h) - db BANK(CeladonMansion3_h) - db BANK(CeladonMansion4_h) - db BANK(CeladonMansion5_h) - db BANK(CeladonPokecenter_h) - db BANK(CeladonGym_h) - db BANK(CeladonGameCorner_h) - db BANK(CeladonMart5_h) - db BANK(CeladonPrizeRoom_h) - db BANK(CeladonDiner_h) - db BANK(CeladonHouse_h) - db BANK(CeladonHotel_h) - db BANK(LavenderPokecenter_h) - db BANK(PokemonTower1_h) - db BANK(PokemonTower2_h) - db BANK(PokemonTower3_h) - db BANK(PokemonTower4_h) - db BANK(PokemonTower5_h) - db BANK(PokemonTower6_h) - db BANK(PokemonTower7_h) - db BANK(LavenderHouse1_h) - db BANK(LavenderMart_h) - db BANK(LavenderHouse2_h) - db BANK(FuchsiaMart_h) - db BANK(FuchsiaHouse1_h) - db BANK(FuchsiaPokecenter_h) - db BANK(FuchsiaHouse2_h) - db BANK(SafariZoneEntrance_h) - db BANK(FuchsiaGym_h) - db BANK(FuchsiaMeetingRoom_h) - db BANK(SeafoamIslands2_h) - db BANK(SeafoamIslands3_h) - db BANK(SeafoamIslands4_h) - db BANK(SeafoamIslands5_h) - db BANK(VermilionHouse2_h) - db BANK(FuchsiaHouse3_h) - db BANK(Mansion1_h) - db BANK(CinnabarGym_h) - db BANK(Lab1_h) - db BANK(Lab2_h) - db BANK(Lab3_h) - db BANK(Lab4_h) - db BANK(CinnabarPokecenter_h) - db BANK(CinnabarMart_h) - db $1D - db BANK(IndigoPlateauLobby_h) - db BANK(CopycatsHouseF1_h) - db BANK(CopycatsHouseF2_h) - db BANK(FightingDojo_h) - db BANK(SaffronGym_h) - db BANK(SaffronHouse1_h) - db BANK(SaffronMart_h) - db BANK(SilphCo1_h) - db BANK(SaffronPokecenter_h) - db BANK(SaffronHouse2_h) - db BANK(Route15Gate_h) - db $12 - db BANK(Route16GateMap_h) - db BANK(Route16GateUpstairs_h) - db BANK(Route16House_h) - db BANK(Route12House_h) - db BANK(Route18Gate_h) - db BANK(Route18GateHeader_h) - db BANK(SeafoamIslands1_h) - db BANK(Route22Gate_h) - db BANK(VictoryRoad2_h) - db BANK(Route12GateUpstairs_h) - db BANK(VermilionHouse3_h) - db BANK(DiglettsCave_h) - db BANK(VictoryRoad3_h) - db BANK(RocketHideout1_h) - db BANK(RocketHideout2_h) - db BANK(RocketHideout3_h) - db BANK(RocketHideout4_h) - db BANK(RocketHideoutElevator_h) - db $01 - db $01 - db $01 - db BANK(SilphCo2_h) - db BANK(SilphCo3_h) - db BANK(SilphCo4_h) - db BANK(SilphCo5_h) - db BANK(SilphCo6_h) - db BANK(SilphCo7_h) - db BANK(SilphCo8_h) - db BANK(Mansion2_h) - db BANK(Mansion3_h) - db BANK(Mansion4_h) - db BANK(SafariZoneEast_h) - db BANK(SafariZoneNorth_h) - db BANK(SafariZoneWest_h) - db BANK(SafariZoneCenter_h) - db BANK(SafariZoneRestHouse1_h) - db BANK(SafariZoneSecretHouse_h) - db BANK(SafariZoneRestHouse2_h) - db BANK(SafariZoneRestHouse3_h) - db BANK(SafariZoneRestHouse4_h) - db BANK(UnknownDungeon2_h) - db BANK(UnknownDungeon3_h) - db BANK(UnknownDungeon1_h) - db BANK(NameRater_h) - db BANK(CeruleanHouse3_h) - db $01 - db BANK(RockTunnel2_h) - db BANK(SilphCo9_h) - db BANK(SilphCo10_h) - db BANK(SilphCo11_h) - db BANK(SilphCoElevator_h) - db $11 - db $11 - db BANK(BattleCenterM_h) - db BANK(TradeCenterM_h) - db $11 - db $11 - db $11 - db $11 - db BANK(Lorelei_h) - db BANK(Bruno_h) - db BANK(Agatha_h) - -INCBIN "baserom.gbc",$C335,$C766-$C335 - ld hl,TilesetsHeadPtr -INCBIN "baserom.gbc",$C769,$C7BE-$C769 - -TilesetsHeadPtr: - TSETHEAD Tset00_Block,Tset00_GFX,Tset00_Coll,$FF,$FF,$FF,$52,2 - TSETHEAD Tset01_Block,Tset01_GFX,Tset01_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset02_Block,Tset02_GFX,Tset02_Coll,$18,$19,$1E,$FF,0 - TSETHEAD Tset03_Block,Tset03_GFX,Tset03_Coll,$FF,$FF,$FF,$20,1 - TSETHEAD Tset01_Block,Tset01_GFX,Tset01_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset05_Block,Tset05_GFX,Tset05_Coll,$3A,$FF,$FF,$FF,2 - TSETHEAD Tset02_Block,Tset02_GFX,Tset02_Coll,$18,$19,$1E,$FF,0 - TSETHEAD Tset05_Block,Tset05_GFX,Tset05_Coll,$3A,$FF,$FF,$FF,2 - TSETHEAD Tset08_Block,Tset08_GFX,Tset08_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset09_Block,Tset09_GFX,Tset09_Coll,$17,$32,$FF,$FF,0 - TSETHEAD Tset09_Block,Tset09_GFX,Tset09_Coll,$17,$32,$FF,$FF,0 - TSETHEAD Tset0B_Block,Tset0B_GFX,Tset0B_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset09_Block,Tset09_GFX,Tset09_Coll,$17,$32,$FF,$FF,0 - TSETHEAD Tset0D_Block,Tset0D_GFX,Tset0D_Coll,$FF,$FF,$FF,$FF,1 - TSETHEAD Tset0E_Block,Tset0E_GFX,Tset0E_Coll,$FF,$FF,$FF,$FF,1 - TSETHEAD Tset0F_Block,Tset0F_GFX,Tset0F_Coll,$12,$FF,$FF,$FF,0 - TSETHEAD Tset10_Block,Tset10_GFX,Tset10_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset11_Block,Tset11_GFX,Tset11_Coll,$FF,$FF,$FF,$FF,1 - TSETHEAD Tset12_Block,Tset12_GFX,Tset12_Coll,$15,$36,$FF,$FF,0 - TSETHEAD Tset13_Block,Tset13_GFX,Tset13_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset14_Block,Tset14_GFX,Tset14_Coll,$FF,$FF,$FF,$FF,0 - TSETHEAD Tset15_Block,Tset15_GFX,Tset15_Coll,$07,$17,$FF,$FF,0 - TSETHEAD Tset16_Block,Tset16_GFX,Tset16_Coll,$12,$FF,$FF,$FF,1 - TSETHEAD Tset17_Block,Tset17_GFX,Tset17_Coll,$FF,$FF,$FF,$45,1 - -INCBIN "baserom.gbc",$C8DE,$C8F5-$C8DE - -; data for default hidden/shown -; objects for each map ($00-$F8) - -; Table of 2-Byte pointers, one pointer per map, -; goes up to Map_F7, ends with $FFFF. -MapHSPointers: ; 48F5 - dw MapHS00 - dw MapHS01 - dw MapHS02 - dw MapHS03 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS0A - dw MapHSXX - dw MapHSXX - dw MapHS0D - dw MapHSXX - dw MapHS0F - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS14 - dw MapHSXX - dw MapHSXX - dw MapHS17 - dw MapHSXX - dw MapHSXX - dw MapHS1A - dw MapHS1B - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS21 - dw MapHSXX - dw MapHS23 - dw MapHS24 - dw MapHSXX - dw MapHSXX - dw MapHS27 - dw MapHS28 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS2D - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS33 - dw MapHS34 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS3B - dw MapHSXX - dw MapHS3D - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS53 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS58 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS60 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS66 - dw MapHS67 - dw MapHS68 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS6C - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS78 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS84 - dw MapHSXX - dw MapHSXX - dw MapHS87 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS8F - dw MapHS90 - dw MapHS91 - dw MapHS92 - dw MapHS93 - dw MapHS94 - dw MapHS95 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS9B - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHS9F - dw MapHSA0 - dw MapHSA1 - dw MapHSA2 - dw MapHSXX - dw MapHSXX - dw MapHSA5 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSB1 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSB5 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSC0 - dw MapHSXX - dw MapHSC2 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSC6 - dw MapHSC7 - dw MapHSC8 - dw MapHSC9 - dw MapHSCA - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSCF - dw MapHSD0 - dw MapHSD1 - dw MapHSD2 - dw MapHSD3 - dw MapHSD4 - dw MapHSD5 - dw MapHSD6 - dw MapHSD7 - dw MapHSD8 - dw MapHSD9 - dw MapHSDA - dw MapHSDB - dw MapHSDC - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSE2 - dw MapHSE3 - dw MapHSE4 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSE9 - dw MapHSEA - dw MapHSEB - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw MapHSF4 - dw MapHSXX - dw MapHSXX - dw MapHSXX - dw $FFFF - -; Structure: -; 3 bytes per object -; [Map_ID][Object_ID][H/S] -; -; Program stops reading when either: -; a) Map_ID = $FF -; b) Map_ID ≠ currentMapID -; -; This Data is loaded into RAM at $D5CE-$D5F?. - -; These constants come from the bytes for Predef functions: -Hide equ $11 -Show equ $15 - -MapHSXX: - db $FF,$FF,$FF -MapHS00: - db $00,$01,Hide -MapHS01: - db $01,$05,Show - db $01,$07,Hide -MapHS02: - db $02,$03,Show - db $02,$05,Show -MapHS03: - db $03,$01,Hide - db $03,$02,Show - db $03,$06,Hide - db $03,$0A,Show - db $03,$0B,Show -MapHS0A: - db $0A,$01,Show - db $0A,$02,Show - db $0A,$03,Show - db $0A,$04,Show - db $0A,$05,Show - db $0A,$06,Show - db $0A,$07,Show - db $0A,$08,Hide - db $0A,$09,Hide - db $0A,$0A,Hide - db $0A,$0B,Hide - db $0A,$0C,Hide - db $0A,$0D,Hide - db $0A,$0E,Show - db $0A,$0F,Hide -MapHS0D: - db $0D,$01,Show - db $0D,$02,Show -MapHS0F: - db $0F,$03,Show -MapHS14: - db $14,$0A,Show -MapHS17: - db $17,$01,Show - db $17,$09,Show - db $17,$0A,Show -MapHS1A: - db $1A,$0B,Show -MapHS1B: - db $1B,$07,Show -MapHS21: - db $21,$01,Hide - db $21,$02,Hide -MapHS23: - db $23,$01,Show - db $23,$08,Show -MapHS24: - db $24,$0A,Show -MapHS27: - db $27,$01,Show - db $27,$02,Hide - db $27,$03,Show -MapHS28: - db $28,$01,Show - db $28,$02,Show - db $28,$03,Show - db $28,$04,Show - db $28,$05,Hide - db $28,$06,Show - db $28,$07,Show - db $28,$08,Hide -MapHS2D: - db $2D,$01,Show - db $2D,$0B,Show -MapHS34: - db $34,$05,Show -MapHSE4: - db $E4,$01,Show - db $E4,$02,Show - db $E4,$03,Show -MapHS8F: - db $8F,$01,Show -MapHS90: - db $90,$04,Show -MapHS91: - db $91,$04,Show - db $91,$05,Show - db $91,$06,Show -MapHS92: - db $92,$06,Show -MapHS93: - db $93,$04,Show - db $93,$05,Show -MapHS94: - db $94,$01,Show - db $94,$02,Show - db $94,$03,Show - db $94,$04,Show -MapHS95: - db $95,$05,Hide -MapHS84: - db $84,$02,Show -MapHS87: - db $87,$0B,Show -MapHS9B: - db $9B,$02,Show -MapHSA5: - db $A5,$02,Show - db $A5,$03,Show -MapHSB1: - db $B1,$06,Show - db $B1,$07,Show -MapHSB5: - db $B5,$01,Hide -MapHS53: - db $53,$01,Show - db $53,$02,Show - db $53,$03,Show - db $53,$04,Show - db $53,$05,Show - db $53,$06,Show - db $53,$07,Show - db $53,$08,Show - db $53,$09,Show - db $53,$0A,Show - db $53,$0B,Show - db $53,$0C,Show - db $53,$0D,Show - db $53,$0E,Show -MapHSC2: - db $C2,$06,Show - db $C2,$07,Show - db $C2,$08,Show - db $C2,$09,Show - db $C2,$0A,Show - db $C2,$0D,Show -MapHS58: - db $58,$01,Show - db $58,$02,Hide - db $58,$03,Hide -MapHS33: - db $33,$05,Show - db $33,$06,Show - db $33,$07,Show -MapHS3B: - db $3B,$08,Show - db $3B,$09,Show - db $3B,$0A,Show - db $3B,$0B,Show - db $3B,$0C,Show - db $3B,$0D,Show -MapHS3D: - db $3D,$06,Show - db $3D,$07,Show - db $3D,$08,Show - db $3D,$09,Show -MapHS60: - db $60,$02,Hide -MapHS66: - db $66,$0A,Show -MapHS67: - db $67,$06,Show - db $67,$09,Show -MapHS68: - db $68,$09,Show - db $68,$0A,Show - db $68,$0B,Show -MapHSC6: - db $C6,$05,Show - db $C6,$06,Show - db $C6,$0A,Show -MapHSC7: - db $C7,$06,Show - db $C7,$07,Show -MapHSC8: - db $C8,$02,Show - db $C8,$03,Show - db $C8,$04,Show - db $C8,$05,Show -MapHSC9: - db $C9,$03,Show - db $C9,$04,Show -MapHSCA: - db $CA,$01,Show - db $CA,$05,Show - db $CA,$06,Show - db $CA,$07,Show - db $CA,$08,Hide - db $CA,$09,Hide -MapHSCF: - db $CF,$01,Show - db $CF,$02,Show - db $CF,$03,Show - db $CF,$04,Show - db $CF,$05,Show -MapHSD0: - db $D0,$02,Show - db $D0,$03,Show - db $D0,$04,Show -MapHSD1: - db $D1,$02,Show - db $D1,$03,Show - db $D1,$04,Show - db $D1,$05,Show - db $D1,$06,Show - db $D1,$07,Show -MapHSD2: - db $D2,$02,Show - db $D2,$03,Show - db $D2,$04,Show - db $D2,$05,Show - db $D2,$06,Show - db $D2,$07,Show - db $D2,$08,Show -MapHSD3: - db $D3,$06,Show - db $D3,$07,Show - db $D3,$08,Show - db $D3,$09,Show - db $D3,$0A,Show -MapHSD4: - db $D4,$05,Show - db $D4,$06,Show - db $D4,$07,Show - db $D4,$08,Show - db $D4,$09,Show - db $D4,$0A,Show - db $D4,$0B,Show - db $D4,$0C,Show -MapHSD5: - db $D5,$02,Show - db $D5,$03,Show - db $D5,$04,Show -MapHSE9: - db $E9,$02,Show - db $E9,$03,Show - db $E9,$04,Show -MapHSEA: - db $EA,$01,Show - db $EA,$02,Show - db $EA,$03,Show - db $EA,$04,Show - db $EA,$05,Show - db $EA,$06,Show -MapHSEB: - db $EB,$03,Show - db $EB,$04,Show - db $EB,$05,Show -MapHSF4: - db $F4,$02,Show -MapHSD6: - db $D6,$02,Show -MapHSD7: - db $D7,$03,Show - db $D7,$04,Show -MapHSD8: - db $D8,$03,Show - db $D8,$04,Show - db $D8,$05,Show - db $D8,$06,Show - db $D8,$08,Show -MapHSD9: - db $D9,$01,Show - db $D9,$02,Show - db $D9,$03,Show - db $D9,$04,Show -MapHSDA: - db $DA,$01,Show - db $DA,$02,Show -MapHSDB: - db $DB,$01,Show - db $DB,$02,Show - db $DB,$03,Show - db $DB,$04,Show -MapHSDC: - db $DC,$01,Show -MapHSE2: - db $E2,$01,Show - db $E2,$02,Show - db $E2,$03,Show -MapHSE3: - db $E3,$01,Show - db $E3,$02,Show - db $E3,$03,Show -MapHS6C: - db $6C,$03,Show - db $6C,$04,Show -MapHS78: - db $78,$02,Hide -MapHSC0: - db $C0,$01,Show - db $C0,$02,Show -MapHS9F: - db $9F,$01,Hide - db $9F,$02,Hide -MapHSA0: - db $A0,$01,Hide - db $A0,$02,Hide -MapHSA1: - db $A1,$02,Show - db $A1,$03,Show - db $A1,$05,Hide - db $A1,$06,Hide -MapHSA2: - db $A2,$01,Hide - db $A2,$02,Hide - db $A2,$03,Show - - db $FF - -INCBIN "baserom.gbc",$CD97,$CEB8-$CD97 - -; wild pokemon data: from 4EB8 to 55C7 - -LoadWildData: ; 4EB8 - ld hl,WildDataPointers - ld a,[W_CURMAP] - - ; get wild data for current map - ld c,a - ld b,0 - add hl,bc - add hl,bc - ld a,[hli] - ld h,[hl] - ld l,a ; hl now points to wild data for current map - ld a,[hli] - ld [W_GRASSRATE],a - and a - jr z,.NoGrassData\@ ; if no grass data, skip to surfing data - push hl - ld de,W_GRASSMONS ; otherwise, load grass data - ld bc,$0014 - call CopyData - pop hl - ld bc,$0014 - add hl,bc -.NoGrassData\@ - ld a,[hli] - ld [W_WATERRATE],a - and a - ret z ; if no water data, we're done - ld de,W_WATERMONS ; otherwise, load surfing data - ld bc,$0014 - jp CopyData - -WildDataPointers: ; 4EEB - dw NoMons ; PALLET_TOWN - dw NoMons ; VIRIDIAN_CITY - dw NoMons ; PEWTER_CITY - dw NoMons ; CERULEAN_CITY - dw NoMons ; LAVENDER_TOWN - dw NoMons ; VERMILION_CITY - dw NoMons ; CELADON_CITY - dw NoMons ; FUCHSIA_CITY - dw NoMons ; CINNABAR_ISLAND - dw NoMons ; INDIGO_PLATEAU - dw NoMons ; SAFFRON_CITY - dw NoMons ; unused - dw Route1Mons ; ROUTE_1 - dw Route2Mons ; ROUTE_2 - dw Route3Mons ; ROUTE_3 - dw Route4Mons ; ROUTE_4 - dw Route5Mons ; ROUTE_5 - dw Route6Mons ; ROUTE_6 - dw Route7Mons ; ROUTE_7 - dw Route8Mons ; ROUTE_8 - dw Route9Mons ; ROUTE_9 - dw Route10Mons ; ROUTE_10 - dw Route11Mons ; ROUTE_11 - dw Route12Mons ; ROUTE_12 - dw Route13Mons ; ROUTE_13 - dw Route14Mons ; ROUTE_14 - dw Route15Mons ; ROUTE_15 - dw Route16Mons ; ROUTE_16 - dw Route17Mons ; ROUTE_17 - dw Route18Mons ; ROUTE_18 - dw WaterMons ; ROUTE_19 - dw WaterMons ; ROUTE_20 - dw Route21Mons ; ROUTE_21 - dw Route22Mons ; ROUTE_22 - dw Route23Mons ; ROUTE_23 - dw Route24Mons ; ROUTE_24 - dw Route25Mons ; ROUTE_25 - dw NoMons ; REDS_HOUSE_1F - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw ForestMons ; ViridianForest - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw MoonMons1 - dw MoonMonsB1 - dw MoonMonsB2 - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw TunnelMonsB1 - dw PowerPlantMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw PlateauMons1 - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw TowerMons1 - dw TowerMons2 - dw TowerMons3 - dw TowerMons4 - dw TowerMons5 - dw TowerMons6 - dw TowerMons7 - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw IslandMonsB1 - dw IslandMonsB2 - dw IslandMonsB3 - dw IslandMonsB4 - dw NoMons - dw NoMons - dw MansionMons1 - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw IslandMons1 - dw NoMons - dw PlateauMons2 - dw NoMons - dw NoMons - dw CaveMons - dw PlateauMons3 - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw MansionMons2 - dw MansionMons3 - dw MansionMonsB1 - dw ZoneMons1 - dw ZoneMons2 - dw ZoneMons3 - dw ZoneMonsCenter - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw DungeonMons2 - dw DungeonMonsB1 - dw DungeonMons1 - dw NoMons - dw NoMons - dw NoMons - dw TunnelMonsB2 - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw NoMons - dw $FFFF - -; wild pokemon data is divided into two parts. -; first part: pokemon found in grass -; second part: pokemon found while surfing -; each part goes as follows: - ; if first byte == 00, then - ; no wild pokemon on this map - ; if first byte != 00, then - ; first byte is encounter rate - ; followed by 20 bytes: - ; level, species (ten times) - -IF _RED -NoMons: - db $00 - - db $00 - -Route1Mons: - db $19 - db 3,PIDGEY - db 3,RATTATA - db 3,RATTATA - db 2,RATTATA - db 2,PIDGEY - db 3,PIDGEY - db 3,PIDGEY - db 4,RATTATA - db 4,PIDGEY - db 5,PIDGEY - - db $00 - -Route2Mons: - db $19 - db 3,RATTATA - db 3,PIDGEY - db 4,PIDGEY - db 4,RATTATA - db 5,PIDGEY - db 3,WEEDLE - db 2,RATTATA - db 5,RATTATA - db 4,WEEDLE - db 5,WEEDLE - - db $00 - -Route22Mons: - db $19 - db 3,RATTATA - db 3,NIDORAN_M - db 4,RATTATA - db 4,NIDORAN_M - db 2,RATTATA - db 2,NIDORAN_M - db 3,SPEAROW - db 5,SPEAROW - db 3,NIDORAN_F - db 4,NIDORAN_F - - db $00 - -ForestMons: - db $08 - db 4,WEEDLE - db 5,KAKUNA - db 3,WEEDLE - db 5,WEEDLE - db 4,KAKUNA - db 6,KAKUNA - db 4,METAPOD - db 3,CATERPIE - db 3,PIKACHU - db 5,PIKACHU - - db $00 - -Route3Mons: - db $14 - db 6,PIDGEY - db 5,SPEAROW - db 7,PIDGEY - db 6,SPEAROW - db 7,SPEAROW - db 8,PIDGEY - db 8,SPEAROW - db 3,JIGGLYPUFF - db 5,JIGGLYPUFF - db 7,JIGGLYPUFF - - db $00 - -MoonMons1: - db $0A - db 8,ZUBAT - db 7,ZUBAT - db 9,ZUBAT - db 8,GEODUDE - db 6,ZUBAT - db 10,ZUBAT - db 10,GEODUDE - db 8,PARAS - db 11,ZUBAT - db 8,CLEFAIRY - - db $00 - -MoonMonsB1: - db $0A - db 8,ZUBAT - db 7,ZUBAT - db 7,GEODUDE - db 8,GEODUDE - db 9,ZUBAT - db 10,PARAS - db 10,ZUBAT - db 11,ZUBAT - db 9,CLEFAIRY - db 9,GEODUDE - - db $00 - -MoonMonsB2: - db $0A - db 9,ZUBAT - db 9,GEODUDE - db 10,ZUBAT - db 10,GEODUDE - db 11,ZUBAT - db 10,PARAS - db 12,PARAS - db 10,CLEFAIRY - db 12,ZUBAT - db 12,CLEFAIRY - - db $00 - -Route4Mons: - db $14 - db 10,RATTATA - db 10,SPEAROW - db 8,RATTATA - db 6,EKANS - db 8,SPEAROW - db 10,EKANS - db 12,RATTATA - db 12,SPEAROW - db 8,EKANS - db 12,EKANS - - db $00 - -Route24Mons: - db $19 - db 7,WEEDLE - db 8,KAKUNA - db 12,PIDGEY - db 12,ODDISH - db 13,ODDISH - db 10,ABRA - db 14,ODDISH - db 13,PIDGEY - db 8,ABRA - db 12,ABRA - - db $00 - -Route25Mons: - db $0F - db 8,WEEDLE - db 9,KAKUNA - db 13,PIDGEY - db 12,ODDISH - db 13,ODDISH - db 12,ABRA - db 14,ODDISH - db 10,ABRA - db 7,METAPOD - db 8,CATERPIE - - db $00 - -Route9Mons: - db $0F - db 16,RATTATA - db 16,SPEAROW - db 14,RATTATA - db 11,EKANS - db 13,SPEAROW - db 15,EKANS - db 17,RATTATA - db 17,SPEAROW - db 13,EKANS - db 17,EKANS - - db $00 - -Route5Mons: - db $0F - db 13,ODDISH - db 13,PIDGEY - db 15,PIDGEY - db 10,MANKEY - db 12,MANKEY - db 15,ODDISH - db 16,ODDISH - db 16,PIDGEY - db 14,MANKEY - db 16,MANKEY - - db $00 - -Route6Mons: - db $0F - db 13,ODDISH - db 13,PIDGEY - db 15,PIDGEY - db 10,MANKEY - db 12,MANKEY - db 15,ODDISH - db 16,ODDISH - db 16,PIDGEY - db 14,MANKEY - db 16,MANKEY - - db $00 - -Route11Mons: - db $0F - db 14,EKANS - db 15,SPEAROW - db 12,EKANS - db 9,DROWZEE - db 13,SPEAROW - db 13,DROWZEE - db 15,EKANS - db 17,SPEAROW - db 11,DROWZEE - db 15,DROWZEE - - db $00 - -TunnelMonsB1: - db $0F - db 16,ZUBAT - db 17,ZUBAT - db 17,GEODUDE - db 15,MACHOP - db 16,GEODUDE - db 18,ZUBAT - db 15,ZUBAT - db 17,MACHOP - db 13,ONIX - db 15,ONIX - - db $00 - -TunnelMonsB2: - db $0F - db 16,ZUBAT - db 17,ZUBAT - db 17,GEODUDE - db 15,MACHOP - db 16,GEODUDE - db 18,ZUBAT - db 17,MACHOP - db 17,ONIX - db 13,ONIX - db 18,GEODUDE - - db $00 - -Route10Mons: - db $0F - db 16,VOLTORB - db 16,SPEAROW - db 14,VOLTORB - db 11,EKANS - db 13,SPEAROW - db 15,EKANS - db 17,VOLTORB - db 17,SPEAROW - db 13,EKANS - db 17,EKANS - - db $00 - -Route12Mons: - db $0F - db 24,ODDISH - db 25,PIDGEY - db 23,PIDGEY - db 24,VENONAT - db 22,ODDISH - db 26,VENONAT - db 26,ODDISH - db 27,PIDGEY - db 28,GLOOM - db 30,GLOOM - - db $00 - -Route8Mons: - db $0F - db 18,PIDGEY - db 18,MANKEY - db 17,EKANS - db 16,GROWLITHE - db 20,PIDGEY - db 20,MANKEY - db 19,EKANS - db 17,GROWLITHE - db 15,GROWLITHE - db 18,GROWLITHE - - db $00 - -Route7Mons: - db $0F - db 19,PIDGEY - db 19,ODDISH - db 17,MANKEY - db 22,ODDISH - db 22,PIDGEY - db 18,MANKEY - db 18,GROWLITHE - db 20,GROWLITHE - db 19,MANKEY - db 20,MANKEY - - db $00 - -TowerMons1: - db $00 - - db $00 - -TowerMons2: - db $00 - - db $00 - -TowerMons3: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 24,GASTLY - db 20,CUBONE - db 22,CUBONE - db 25,HAUNTER - - db $00 - -TowerMons4: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,HAUNTER - db 20,CUBONE - db 22,CUBONE - db 24,GASTLY - - db $00 - -TowerMons5: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,HAUNTER - db 20,CUBONE - db 22,CUBONE - db 24,GASTLY - - db $00 - -TowerMons6: - db $0F - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 20,GASTLY - db 19,GASTLY - db 26,HAUNTER - db 22,CUBONE - db 24,CUBONE - db 28,HAUNTER - - db $00 - -TowerMons7: - db $0F - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 20,GASTLY - db 28,HAUNTER - db 22,CUBONE - db 24,CUBONE - db 28,HAUNTER - db 30,HAUNTER - - db $00 - -Route13Mons: - db $14 - db 24,ODDISH - db 25,PIDGEY - db 27,PIDGEY - db 24,VENONAT - db 22,ODDISH - db 26,VENONAT - db 26,ODDISH - db 25,DITTO - db 28,GLOOM - db 30,GLOOM - - db $00 - -Route14Mons: - db $0F - db 24,ODDISH - db 26,PIDGEY - db 23,DITTO - db 24,VENONAT - db 22,ODDISH - db 26,VENONAT - db 26,ODDISH - db 30,GLOOM - db 28,PIDGEOTTO - db 30,PIDGEOTTO - - db $00 - -Route15Mons: - db $0F - db 24,ODDISH - db 26,DITTO - db 23,PIDGEY - db 26,VENONAT - db 22,ODDISH - db 28,VENONAT - db 26,ODDISH - db 30,GLOOM - db 28,PIDGEOTTO - db 30,PIDGEOTTO - - db $00 - -Route16Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 18,RATTATA - db 20,DODUO - db 20,RATTATA - db 18,DODUO - db 22,DODUO - db 22,RATTATA - db 23,RATICATE - db 25,RATICATE - - db $00 - -Route17Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 25,RATICATE - db 24,DODUO - db 27,RATICATE - db 26,DODUO - db 28,DODUO - db 29,RATICATE - db 25,FEAROW - db 27,FEAROW - - db $00 - -Route18Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 25,RATICATE - db 24,DODUO - db 25,FEAROW - db 26,DODUO - db 28,DODUO - db 29,RATICATE - db 27,FEAROW - db 29,FEAROW - - db $00 - -ZoneMonsCenter: - db $1E - db 22,NIDORAN_M - db 25,RHYHORN - db 22,VENONAT - db 24,EXEGGCUTE - db 31,NIDORINO - db 25,EXEGGCUTE - db 31,NIDORINA - db 30,PARASECT - db 23,SCYTHER - db 23,CHANSEY - - db $00 - -ZoneMons1: - db $1E - db 24,NIDORAN_M - db 26,DODUO - db 22,PARAS - db 25,EXEGGCUTE - db 33,NIDORINO - db 23,EXEGGCUTE - db 24,NIDORAN_F - db 25,PARASECT - db 25,KANGASKHAN - db 28,SCYTHER - - db $00 - -ZoneMons2: - db $1E - db 22,NIDORAN_M - db 26,RHYHORN - db 23,PARAS - db 25,EXEGGCUTE - db 30,NIDORINO - db 27,EXEGGCUTE - db 30,NIDORINA - db 32,VENOMOTH - db 26,CHANSEY - db 28,TAUROS - - db $00 - -ZoneMons3: - db $1E - db 25,NIDORAN_M - db 26,DODUO - db 23,VENONAT - db 24,EXEGGCUTE - db 33,NIDORINO - db 26,EXEGGCUTE - db 25,NIDORAN_F - db 31,VENOMOTH - db 26,TAUROS - db 28,KANGASKHAN - - db $00 - -WaterMons: - db $00 - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -IslandMons1: - db $0F - db 30,SEEL - db 30,SLOWPOKE - db 30,SHELLDER - db 30,HORSEA - db 28,HORSEA - db 21,ZUBAT - db 29,GOLBAT - db 28,PSYDUCK - db 28,SHELLDER - db 38,GOLDUCK - - db $00 - -IslandMonsB1: - db $0A - db 30,STARYU - db 30,HORSEA - db 32,SHELLDER - db 32,HORSEA - db 28,SLOWPOKE - db 30,SEEL - db 30,SLOWPOKE - db 28,SEEL - db 38,DEWGONG - db 37,SEADRA - - db $00 - -IslandMonsB2: - db $0A - db 30,SEEL - db 30,SLOWPOKE - db 32,SEEL - db 32,SLOWPOKE - db 28,HORSEA - db 30,STARYU - db 30,HORSEA - db 28,SHELLDER - db 30,GOLBAT - db 37,SLOWBRO - - db $00 - -IslandMonsB3: - db $0A - db 31,SLOWPOKE - db 31,SEEL - db 33,SLOWPOKE - db 33,SEEL - db 29,HORSEA - db 31,SHELLDER - db 31,HORSEA - db 29,SHELLDER - db 39,SEADRA - db 37,DEWGONG - - db $00 - -IslandMonsB4: - db $0A - db 31,HORSEA - db 31,SHELLDER - db 33,HORSEA - db 33,SHELLDER - db 29,SLOWPOKE - db 31,SEEL - db 31,SLOWPOKE - db 29,SEEL - db 39,SLOWBRO - db 32,GOLBAT - - db $00 - -MansionMons1: - db $0A - db 32,KOFFING - db 30,KOFFING - db 34,PONYTA - db 30,PONYTA - db 34,GROWLITHE - db 32,PONYTA - db 30,GRIMER - db 28,PONYTA - db 37,WEEZING - db 39,MUK - - db $00 - -MansionMons2: - db $0A - db 32,GROWLITHE - db 34,KOFFING - db 34,KOFFING - db 30,PONYTA - db 30,KOFFING - db 32,PONYTA - db 30,GRIMER - db 28,PONYTA - db 39,WEEZING - db 37,MUK - - db $00 - -MansionMons3: - db $0A - db 31,KOFFING - db 33,GROWLITHE - db 35,KOFFING - db 32,PONYTA - db 34,PONYTA - db 40,WEEZING - db 34,GRIMER - db 38,WEEZING - db 36,PONYTA - db 42,MUK - - db $00 - -MansionMonsB1: - db $0A - db 33,KOFFING - db 31,KOFFING - db 35,GROWLITHE - db 32,PONYTA - db 31,KOFFING - db 40,WEEZING - db 34,PONYTA - db 35,GRIMER - db 42,WEEZING - db 42,MUK - - db $00 - -Route21Mons: - db $19 - db 21,RATTATA - db 23,PIDGEY - db 30,RATICATE - db 23,RATTATA - db 21,PIDGEY - db 30,PIDGEOTTO - db 32,PIDGEOTTO - db 28,TANGELA - db 30,TANGELA - db 32,TANGELA - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -DungeonMons1: - db $0A - db 46,GOLBAT - db 46,HYPNO - db 46,MAGNETON - db 49,DODRIO - db 49,VENOMOTH - db 52,ARBOK - db 49,KADABRA - db 52,PARASECT - db 53,RAICHU - db 53,DITTO - - db $00 - -DungeonMons2: - db $0F - db 51,DODRIO - db 51,VENOMOTH - db 51,KADABRA - db 52,RHYDON - db 52,MAROWAK - db 52,ELECTRODE - db 56,CHANSEY - db 54,WIGGLYTUFF - db 55,DITTO - db 60,DITTO - - db $00 - -DungeonMonsB1: - db $19 - db 55,RHYDON - db 55,MAROWAK - db 55,ELECTRODE - db 64,CHANSEY - db 64,PARASECT - db 64,RAICHU - db 57,ARBOK - db 65,DITTO - db 63,DITTO - db 67,DITTO - - db $00 - -PowerPlantMons: - db $0A - db 21,VOLTORB - db 21,MAGNEMITE - db 20,PIKACHU - db 24,PIKACHU - db 23,MAGNEMITE - db 23,VOLTORB - db 32,MAGNETON - db 35,MAGNETON - db 33,ELECTABUZZ - db 36,ELECTABUZZ - - db $00 - -Route23Mons: - db $0A - db 26,EKANS - db 33,DITTO - db 26,SPEAROW - db 38,FEAROW - db 38,DITTO - db 38,FEAROW - db 41,ARBOK - db 43,DITTO - db 41,FEAROW - db 43,FEAROW - - db $00 - -PlateauMons2: - db $0A - db 22,MACHOP - db 24,GEODUDE - db 26,ZUBAT - db 36,ONIX - db 39,ONIX - db 42,ONIX - db 41,MACHOKE - db 40,GOLBAT - db 40,MAROWAK - db 43,GRAVELER - - db $00 - -PlateauMons3: - db $0F - db 24,MACHOP - db 26,GEODUDE - db 22,ZUBAT - db 42,ONIX - db 40,VENOMOTH - db 45,ONIX - db 43,GRAVELER - db 41,GOLBAT - db 42,MACHOKE - db 45,MACHOKE - - db $00 - -PlateauMons1: - db $0F - db 24,MACHOP - db 26,GEODUDE - db 22,ZUBAT - db 36,ONIX - db 39,ONIX - db 42,ONIX - db 41,GRAVELER - db 41,GOLBAT - db 42,MACHOKE - db 43,MAROWAK - - db $00 - -CaveMons: - db $14 - db 18,DIGLETT - db 19,DIGLETT - db 17,DIGLETT - db 20,DIGLETT - db 16,DIGLETT - db 15,DIGLETT - db 21,DIGLETT - db 22,DIGLETT - db 29,DUGTRIO - db 31,DUGTRIO - - db $00 - -ENDC -IF _GREEN || !_JAPAN && _BLUE -NoMons: - db $00 - - db $00 - -Route1Mons: - db $19 - db 3,PIDGEY - db 3,RATTATA - db 3,RATTATA - db 2,RATTATA - db 2,PIDGEY - db 3,PIDGEY - db 3,PIDGEY - db 4,RATTATA - db 4,PIDGEY - db 5,PIDGEY - - db $00 - -Route2Mons: - db $19 - db 3,RATTATA - db 3,PIDGEY - db 4,PIDGEY - db 4,RATTATA - db 5,PIDGEY - db 3,CATERPIE - db 2,RATTATA - db 5,RATTATA - db 4,CATERPIE - db 5,CATERPIE - - db $00 - -Route22Mons: - db $19 - db 3,RATTATA - db 3,NIDORAN_F - db 4,RATTATA - db 4,NIDORAN_F - db 2,RATTATA - db 2,NIDORAN_F - db 3,SPEAROW - db 5,SPEAROW - db 3,NIDORAN_M - db 4,NIDORAN_M - - db $00 - -ForestMons: - db $08 - db 4,CATERPIE - db 5,METAPOD - db 3,CATERPIE - db 5,CATERPIE - db 4,METAPOD - db 6,METAPOD - db 4,KAKUNA - db 3,WEEDLE - db 3,PIKACHU - db 5,PIKACHU - - db $00 - -Route3Mons: - db $14 - db 6,PIDGEY - db 5,SPEAROW - db 7,PIDGEY - db 6,SPEAROW - db 7,SPEAROW - db 8,PIDGEY - db 8,SPEAROW - db 3,JIGGLYPUFF - db 5,JIGGLYPUFF - db 7,JIGGLYPUFF - - db $00 - -MoonMons1: - db $0A - db 8,ZUBAT - db 7,ZUBAT - db 9,ZUBAT - db 8,GEODUDE - db 6,ZUBAT - db 10,ZUBAT - db 10,GEODUDE - db 8,PARAS - db 11,ZUBAT - db 8,CLEFAIRY - - db $00 - -MoonMonsB1: - db $0A - db 8,ZUBAT - db 7,ZUBAT - db 7,GEODUDE - db 8,GEODUDE - db 9,ZUBAT - db 10,PARAS - db 10,ZUBAT - db 11,ZUBAT - db 9,CLEFAIRY - db 9,GEODUDE - - db $00 - -MoonMonsB2: - db $0A - db 9,ZUBAT - db 9,GEODUDE - db 10,ZUBAT - db 10,GEODUDE - db 11,ZUBAT - db 10,PARAS - db 12,PARAS - db 10,CLEFAIRY - db 12,ZUBAT - db 12,CLEFAIRY - - db $00 - -Route4Mons: - db $14 - db 10,RATTATA - db 10,SPEAROW - db 8,RATTATA - db 6,SANDSHREW - db 8,SPEAROW - db 10,SANDSHREW - db 12,RATTATA - db 12,SPEAROW - db 8,SANDSHREW - db 12,SANDSHREW - - db $00 - -Route24Mons: - db $19 - db 7,CATERPIE - db 8,METAPOD - db 12,PIDGEY - db 12,BELLSPROUT - db 13,BELLSPROUT - db 10,ABRA - db 14,BELLSPROUT - db 13,PIDGEY - db 8,ABRA - db 12,ABRA - - db $00 - -Route25Mons: - db $0F - db 8,CATERPIE - db 9,METAPOD - db 13,PIDGEY - db 12,BELLSPROUT - db 13,BELLSPROUT - db 12,ABRA - db 14,BELLSPROUT - db 10,ABRA - db 7,KAKUNA - db 8,WEEDLE - - db $00 - -Route9Mons: - db $0F - db 16,RATTATA - db 16,SPEAROW - db 14,RATTATA - db 11,SANDSHREW - db 13,SPEAROW - db 15,SANDSHREW - db 17,RATTATA - db 17,SPEAROW - db 13,SANDSHREW - db 17,SANDSHREW - - db $00 - -Route5Mons: - db $0F - db 13,BELLSPROUT - db 13,PIDGEY - db 15,PIDGEY - db 10,MEOWTH - db 12,MEOWTH - db 15,BELLSPROUT - db 16,BELLSPROUT - db 16,PIDGEY - db 14,MEOWTH - db 16,MEOWTH - - db $00 - -Route6Mons: - db $0F - db 13,BELLSPROUT - db 13,PIDGEY - db 15,PIDGEY - db 10,MEOWTH - db 12,MEOWTH - db 15,BELLSPROUT - db 16,BELLSPROUT - db 16,PIDGEY - db 14,MEOWTH - db 16,MEOWTH - - db $00 - -Route11Mons: - db $0F - db 14,SANDSHREW - db 15,SPEAROW - db 12,SANDSHREW - db 9,DROWZEE - db 13,SPEAROW - db 13,DROWZEE - db 15,SANDSHREW - db 17,SPEAROW - db 11,DROWZEE - db 15,DROWZEE - - db $00 - -TunnelMonsB1: - db $0F - db 16,ZUBAT - db 17,ZUBAT - db 17,GEODUDE - db 15,MACHOP - db 16,GEODUDE - db 18,ZUBAT - db 15,ZUBAT - db 17,MACHOP - db 13,ONIX - db 15,ONIX - - db $00 - -TunnelMonsB2: - db $0F - db 16,ZUBAT - db 17,ZUBAT - db 17,GEODUDE - db 15,MACHOP - db 16,GEODUDE - db 18,ZUBAT - db 17,MACHOP - db 17,ONIX - db 13,ONIX - db 18,GEODUDE - - db $00 - -Route10Mons: - db $0F - db 16,VOLTORB - db 16,SPEAROW - db 14,VOLTORB - db 11,SANDSHREW - db 13,SPEAROW - db 15,SANDSHREW - db 17,VOLTORB - db 17,SPEAROW - db 13,SANDSHREW - db 17,SANDSHREW - - db $00 - -Route12Mons: - db $0F - db 24,BELLSPROUT - db 25,PIDGEY - db 23,PIDGEY - db 24,VENONAT - db 22,BELLSPROUT - db 26,VENONAT - db 26,BELLSPROUT - db 27,PIDGEY - db 28,WEEPINBELL - db 30,WEEPINBELL - - db $00 - -Route8Mons: - db $0F - db 18,PIDGEY - db 18,MEOWTH - db 17,SANDSHREW - db 16,VULPIX - db 20,PIDGEY - db 20,MEOWTH - db 19,SANDSHREW - db 17,VULPIX - db 15,VULPIX - db 18,VULPIX - - db $00 - -Route7Mons: - db $0F - db 19,PIDGEY - db 19,BELLSPROUT - db 17,MEOWTH - db 22,BELLSPROUT - db 22,PIDGEY - db 18,MEOWTH - db 18,VULPIX - db 20,VULPIX - db 19,MEOWTH - db 20,MEOWTH - - db $00 - -TowerMons1: - db $00 - - db $00 - -TowerMons2: - db $00 - - db $00 - -TowerMons3: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 24,GASTLY - db 20,CUBONE - db 22,CUBONE - db 25,HAUNTER - - db $00 - -TowerMons4: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,HAUNTER - db 20,CUBONE - db 22,CUBONE - db 24,GASTLY - - db $00 - -TowerMons5: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,HAUNTER - db 20,CUBONE - db 22,CUBONE - db 24,GASTLY - - db $00 - -TowerMons6: - db $0F - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 20,GASTLY - db 19,GASTLY - db 26,HAUNTER - db 22,CUBONE - db 24,CUBONE - db 28,HAUNTER - - db $00 - -TowerMons7: - db $0F - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 20,GASTLY - db 28,HAUNTER - db 22,CUBONE - db 24,CUBONE - db 28,HAUNTER - db 30,HAUNTER - - db $00 - -Route13Mons: - db $14 - db 24,BELLSPROUT - db 25,PIDGEY - db 27,PIDGEY - db 24,VENONAT - db 22,BELLSPROUT - db 26,VENONAT - db 26,BELLSPROUT - db 25,DITTO - db 28,WEEPINBELL - db 30,WEEPINBELL - - db $00 - -Route14Mons: - db $0F - db 24,BELLSPROUT - db 26,PIDGEY - db 23,DITTO - db 24,VENONAT - db 22,BELLSPROUT - db 26,VENONAT - db 26,BELLSPROUT - db 30,WEEPINBELL - db 28,PIDGEOTTO - db 30,PIDGEOTTO - - db $00 - -Route15Mons: - db $0F - db 24,BELLSPROUT - db 26,DITTO - db 23,PIDGEY - db 26,VENONAT - db 22,BELLSPROUT - db 28,VENONAT - db 26,BELLSPROUT - db 30,WEEPINBELL - db 28,PIDGEOTTO - db 30,PIDGEOTTO - - db $00 - -Route16Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 18,RATTATA - db 20,DODUO - db 20,RATTATA - db 18,DODUO - db 22,DODUO - db 22,RATTATA - db 23,RATICATE - db 25,RATICATE - - db $00 - -Route17Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 25,RATICATE - db 24,DODUO - db 27,RATICATE - db 26,DODUO - db 28,DODUO - db 29,RATICATE - db 25,FEAROW - db 27,FEAROW - - db $00 - -Route18Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 25,RATICATE - db 24,DODUO - db 25,FEAROW - db 26,DODUO - db 28,DODUO - db 29,RATICATE - db 27,FEAROW - db 29,FEAROW - - db $00 - -ZoneMonsCenter: - db $1E - db 22,NIDORAN_F - db 25,RHYHORN - db 22,VENONAT - db 24,EXEGGCUTE - db 31,NIDORINA - db 25,EXEGGCUTE - db 31,NIDORINO - db 30,PARASECT - db 23,PINSIR - db 23,CHANSEY - - db $00 - -ZoneMons1: - db $1E - db 24,NIDORAN_F - db 26,DODUO - db 22,PARAS - db 25,EXEGGCUTE - db 33,NIDORINA - db 23,EXEGGCUTE - db 24,NIDORAN_M - db 25,PARASECT - db 25,KANGASKHAN - db 28,PINSIR - - db $00 - -ZoneMons2: - db $1E - db 22,NIDORAN_F - db 26,RHYHORN - db 23,PARAS - db 25,EXEGGCUTE - db 30,NIDORINA - db 27,EXEGGCUTE - db 30,NIDORINO - db 32,VENOMOTH - db 26,CHANSEY - db 28,TAUROS - - db $00 - -ZoneMons3: - db $1E - db 25,NIDORAN_F - db 26,DODUO - db 23,VENONAT - db 24,EXEGGCUTE - db 33,NIDORINA - db 26,EXEGGCUTE - db 25,NIDORAN_M - db 31,VENOMOTH - db 26,TAUROS - db 28,KANGASKHAN - - db $00 - -WaterMons: - db $00 - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -IslandMons1: - db $0F - db 30,SEEL - db 30,PSYDUCK - db 30,STARYU - db 30,KRABBY - db 28,KRABBY - db 21,ZUBAT - db 29,GOLBAT - db 28,SLOWPOKE - db 28,STARYU - db 38,SLOWBRO - - db $00 - -IslandMonsB1: - db $0A - db 30,SHELLDER - db 30,KRABBY - db 32,STARYU - db 32,KRABBY - db 28,PSYDUCK - db 30,SEEL - db 30,PSYDUCK - db 28,SEEL - db 38,DEWGONG - db 37,KINGLER - - db $00 - -IslandMonsB2: - db $0A - db 30,SEEL - db 30,PSYDUCK - db 32,SEEL - db 32,PSYDUCK - db 28,KRABBY - db 30,SHELLDER - db 30,KRABBY - db 28,STARYU - db 30,GOLBAT - db 37,GOLDUCK - - db $00 - -IslandMonsB3: - db $0A - db 31,PSYDUCK - db 31,SEEL - db 33,PSYDUCK - db 33,SEEL - db 29,KRABBY - db 31,STARYU - db 31,KRABBY - db 29,STARYU - db 39,KINGLER - db 37,DEWGONG - - db $00 - -IslandMonsB4: - db $0A - db 31,KRABBY - db 31,STARYU - db 33,KRABBY - db 33,STARYU - db 29,PSYDUCK - db 31,SEEL - db 31,PSYDUCK - db 29,SEEL - db 39,GOLDUCK - db 32,GOLBAT - - db $00 - -MansionMons1: - db $0A - db 32,GRIMER - db 30,GRIMER - db 34,PONYTA - db 30,PONYTA - db 34,VULPIX - db 32,PONYTA - db 30,KOFFING - db 28,PONYTA - db 37,MUK - db 39,WEEZING - - db $00 - -MansionMons2: - db $0A - db 32,VULPIX - db 34,GRIMER - db 34,GRIMER - db 30,PONYTA - db 30,GRIMER - db 32,PONYTA - db 30,KOFFING - db 28,PONYTA - db 39,MUK - db 37,WEEZING - - db $00 - -MansionMons3: - db $0A - db 31,GRIMER - db 33,VULPIX - db 35,GRIMER - db 32,PONYTA - db 34,MAGMAR - db 40,MUK - db 34,KOFFING - db 38,MUK - db 36,PONYTA - db 42,WEEZING - - db $00 - -MansionMonsB1: - db $0A - db 33,GRIMER - db 31,GRIMER - db 35,VULPIX - db 32,PONYTA - db 31,GRIMER - db 40,MUK - db 34,PONYTA - db 35,KOFFING - db 38,MAGMAR - db 42,WEEZING - - db $00 - -Route21Mons: - db $19 - db 21,RATTATA - db 23,PIDGEY - db 30,RATICATE - db 23,RATTATA - db 21,PIDGEY - db 30,PIDGEOTTO - db 32,PIDGEOTTO - db 28,TANGELA - db 30,TANGELA - db 32,TANGELA - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -DungeonMons1: - db $0A - db 46,GOLBAT - db 46,HYPNO - db 46,MAGNETON - db 49,DODRIO - db 49,VENOMOTH - db 52,SANDSLASH - db 49,KADABRA - db 52,PARASECT - db 53,RAICHU - db 53,DITTO - - db $00 - -DungeonMons2: - db $0F - db 51,DODRIO - db 51,VENOMOTH - db 51,KADABRA - db 52,RHYDON - db 52,MAROWAK - db 52,ELECTRODE - db 56,CHANSEY - db 54,WIGGLYTUFF - db 55,DITTO - db 60,DITTO - - db $00 - -DungeonMonsB1: - db $19 - db 55,RHYDON - db 55,MAROWAK - db 55,ELECTRODE - db 64,CHANSEY - db 64,PARASECT - db 64,RAICHU - db 57,SANDSLASH - db 65,DITTO - db 63,DITTO - db 67,DITTO - - db $00 - -PowerPlantMons: - db $0A - db 21,VOLTORB - db 21,MAGNEMITE - db 20,PIKACHU - db 24,PIKACHU - db 23,MAGNEMITE - db 23,VOLTORB - db 32,MAGNETON - db 35,MAGNETON - db 33,RAICHU - db 36,RAICHU - - db $00 - -Route23Mons: - db $0A - db 26,SANDSHREW - db 33,DITTO - db 26,SPEAROW - db 38,FEAROW - db 38,DITTO - db 38,FEAROW - db 41,SANDSLASH - db 43,DITTO - db 41,FEAROW - db 43,FEAROW - - db $00 - -PlateauMons2: - db $0A - db 22,MACHOP - db 24,GEODUDE - db 26,ZUBAT - db 36,ONIX - db 39,ONIX - db 42,ONIX - db 41,MACHOKE - db 40,GOLBAT - db 40,MAROWAK - db 43,GRAVELER - - db $00 - -PlateauMons3: - db $0F - db 24,MACHOP - db 26,GEODUDE - db 22,ZUBAT - db 42,ONIX - db 40,VENOMOTH - db 45,ONIX - db 43,GRAVELER - db 41,GOLBAT - db 42,MACHOKE - db 45,MACHOKE - - db $00 - -PlateauMons1: - db $0F - db 24,MACHOP - db 26,GEODUDE - db 22,ZUBAT - db 36,ONIX - db 39,ONIX - db 42,ONIX - db 41,GRAVELER - db 41,GOLBAT - db 42,MACHOKE - db 43,MAROWAK - - db $00 - -CaveMons: - db $14 - db 18,DIGLETT - db 19,DIGLETT - db 17,DIGLETT - db 20,DIGLETT - db 16,DIGLETT - db 15,DIGLETT - db 21,DIGLETT - db 22,DIGLETT - db 29,DUGTRIO - db 31,DUGTRIO - - db $00 - -ENDC -IF _JAPAN && _BLUE -NoMons: - db $00 - - db $00 - -Route1Mons: - db $19 - db 3,PIDGEY - db 3,RATTATA - db 3,RATTATA - db 2,RATTATA - db 2,PIDGEY - db 3,PIDGEY - db 3,PIDGEY - db 4,RATTATA - db 4,PIDGEY - db 5,PIDGEY - - db $00 - -Route2Mons: - db $19 - db 3,RATTATA - db 3,PIDGEY - db 4,PIDGEY - db 4,RATTATA - db 5,PIDGEY - db 3,CATERPIE - db 2,RATTATA - db 5,RATTATA - db 4,CATERPIE - db 5,CATERPIE - - db $00 - -Route22Mons: - db $19 - db 3,RATTATA - db 3,NIDORAN_M - db 4,RATTATA - db 4,NIDORAN_M - db 2,RATTATA - db 2,NIDORAN_M - db 3,SPEAROW - db 5,SPEAROW - db 3,NIDORAN_F - db 4,NIDORAN_F - - db $00 - -ForestMons: - db $08 - db 4,CATERPIE - db 5,METAPOD - db 3,CATERPIE - db 5,CATERPIE - db 4,METAPOD - db 6,METAPOD - db 4,KAKUNA - db 3,WEEDLE - db 3,PIKACHU - db 5,PIKACHU - - db $00 - -Route3Mons: - db $14 - db 6,PIDGEY - db 5,SPEAROW - db 7,PIDGEY - db 6,SPEAROW - db 7,SPEAROW - db 8,PIDGEY - db 8,SPEAROW - db 3,JIGGLYPUFF - db 5,JIGGLYPUFF - db 7,JIGGLYPUFF - - db $00 - -MoonMons1: - db $0A - db 8,ZUBAT - db 7,ZUBAT - db 9,ZUBAT - db 8,GEODUDE - db 6,ZUBAT - db 10,ZUBAT - db 10,GEODUDE - db 8,PARAS - db 11,ZUBAT - db 8,CLEFAIRY - - db $00 - -MoonMonsB1: - db $0A - db 8,ZUBAT - db 7,ZUBAT - db 7,GEODUDE - db 8,GEODUDE - db 9,ZUBAT - db 10,PARAS - db 10,ZUBAT - db 11,ZUBAT - db 9,CLEFAIRY - db 9,GEODUDE - - db $00 - -MoonMonsB2: - db $0A - db 9,ZUBAT - db 9,GEODUDE - db 10,ZUBAT - db 10,GEODUDE - db 11,ZUBAT - db 10,PARAS - db 12,PARAS - db 10,CLEFAIRY - db 12,ZUBAT - db 12,CLEFAIRY - - db $00 - -Route4Mons: - db $14 - db 10,RATTATA - db 10,SPEAROW - db 8,RATTATA - db 6,SANDSHREW - db 8,SPEAROW - db 10,SANDSHREW - db 12,RATTATA - db 12,SPEAROW - db 8,SANDSHREW - db 12,SANDSHREW - - db $00 - -Route24Mons: - db $19 - db 7,CATERPIE - db 8,METAPOD - db 12,PIDGEY - db 12,ODDISH - db 13,ODDISH - db 10,ABRA - db 14,ODDISH - db 13,PIDGEY - db 8,ABRA - db 12,ABRA - - db $00 - -Route25Mons: - db $0F - db 8,CATERPIE - db 9,METAPOD - db 13,PIDGEY - db 12,ODDISH - db 13,ODDISH - db 12,ABRA - db 14,ODDISH - db 10,ABRA - db 7,KAKUNA - db 8,WEEDLE - - db $00 - -Route9Mons: - db $0F - db 16,RATTATA - db 16,SPEAROW - db 14,RATTATA - db 11,SANDSHREW - db 13,SPEAROW - db 15,SANDSHREW - db 17,RATTATA - db 17,SPEAROW - db 13,SANDSHREW - db 17,SANDSHREW - - db $00 - -Route5Mons: - db $0F - db 13,ODDISH - db 13,PIDGEY - db 15,PIDGEY - db 10,MEOWTH - db 12,MEOWTH - db 15,ODDISH - db 16,ODDISH - db 16,PIDGEY - db 14,MEOWTH - db 16,MEOWTH - - db $00 - -Route6Mons: - db $0F - db 13,ODDISH - db 13,PIDGEY - db 15,PIDGEY - db 10,MEOWTH - db 12,MEOWTH - db 15,ODDISH - db 16,ODDISH - db 16,PIDGEY - db 14,MEOWTH - db 16,MEOWTH - - db $00 - -Route11Mons: - db $0F - db 14,SANDSHREW - db 15,SPEAROW - db 12,SANDSHREW - db 9,DROWZEE - db 13,SPEAROW - db 13,DROWZEE - db 15,SANDSHREW - db 17,SPEAROW - db 11,DROWZEE - db 15,DROWZEE - - db $00 - -TunnelMonsB1: - db $0F - db 16,ZUBAT - db 17,ZUBAT - db 17,GEODUDE - db 15,MACHOP - db 16,GEODUDE - db 18,DITTO - db 15,ZUBAT - db 17,MACHOP - db 13,ONIX - db 15,ONIX - - db $00 - -TunnelMonsB2: - db $0F - db 16,ZUBAT - db 17,ZUBAT - db 17,GEODUDE - db 15,MACHOP - db 16,GEODUDE - db 18,DITTO - db 17,MACHOP - db 17,ONIX - db 13,ONIX - db 18,GEODUDE - - db $00 - -Route10Mons: - db $0F - db 16,VOLTORB - db 16,SPEAROW - db 14,VOLTORB - db 11,SANDSHREW - db 13,SPEAROW - db 15,SANDSHREW - db 17,VOLTORB - db 17,SPEAROW - db 13,SANDSHREW - db 17,SANDSHREW - - db $00 - -Route12Mons: - db $0F - db 24,ODDISH - db 25,PIDGEY - db 23,PIDGEY - db 24,VENONAT - db 22,ODDISH - db 26,VENONAT - db 26,ODDISH - db 27,PIDGEY - db 28,GLOOM - db 30,GLOOM - - db $00 - -Route8Mons: - db $0F - db 18,PIDGEY - db 18,MEOWTH - db 17,SANDSHREW - db 16,GROWLITHE - db 20,PIDGEY - db 20,MEOWTH - db 19,SANDSHREW - db 17,GROWLITHE - db 15,GROWLITHE - db 18,GROWLITHE - - db $00 - -Route7Mons: - db $0F - db 19,PIDGEY - db 19,ODDISH - db 17,MEOWTH - db 22,ODDISH - db 22,PIDGEY - db 18,MEOWTH - db 18,GROWLITHE - db 20,GROWLITHE - db 19,MEOWTH - db 20,MEOWTH - - db $00 - -TowerMons1: - db $00 - - db $00 - -TowerMons2: - db $00 - - db $00 - -TowerMons3: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 24,GASTLY - db 20,CUBONE - db 22,CUBONE - db 25,HAUNTER - - db $00 - -TowerMons4: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,HAUNTER - db 20,CUBONE - db 22,CUBONE - db 24,GASTLY - - db $00 - -TowerMons5: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,HAUNTER - db 20,CUBONE - db 22,CUBONE - db 24,GASTLY - - db $00 - -TowerMons6: - db $0F - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 20,GASTLY - db 19,GASTLY - db 26,HAUNTER - db 22,CUBONE - db 24,CUBONE - db 28,HAUNTER - - db $00 - -TowerMons7: - db $0F - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 20,GASTLY - db 28,HAUNTER - db 22,CUBONE - db 24,CUBONE - db 28,HAUNTER - db 30,HAUNTER - - db $00 - -Route13Mons: - db $14 - db 24,ODDISH - db 25,PIDGEY - db 27,PIDGEY - db 24,VENONAT - db 22,ODDISH - db 26,VENONAT - db 26,ODDISH - db 25,DITTO - db 28,GLOOM - db 30,GLOOM - - db $00 - -Route14Mons: - db $0F - db 24,ODDISH - db 26,PIDGEY - db 23,DITTO - db 24,VENONAT - db 22,ODDISH - db 26,VENONAT - db 26,ODDISH - db 30,GLOOM - db 28,PIDGEOTTO - db 30,PIDGEOTTO - - db $00 - -Route15Mons: - db $0F - db 24,ODDISH - db 26,DITTO - db 23,PIDGEY - db 26,VENONAT - db 22,ODDISH - db 28,VENONAT - db 26,ODDISH - db 30,GLOOM - db 28,PIDGEOTTO - db 30,PIDGEOTTO - - db $00 - -Route16Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 18,RATTATA - db 20,DODUO - db 20,RATTATA - db 18,DODUO - db 22,DODUO - db 22,RATTATA - db 23,RATICATE - db 25,RATICATE - - db $00 - -Route17Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 25,RATICATE - db 24,DODUO - db 27,RATICATE - db 26,DODUO - db 28,DODUO - db 29,RATICATE - db 25,FEAROW - db 27,FEAROW - - db $00 - -Route18Mons: - db $19 - db 20,SPEAROW - db 22,SPEAROW - db 25,RATICATE - db 24,DODUO - db 25,FEAROW - db 26,DODUO - db 28,DODUO - db 29,RATICATE - db 27,FEAROW - db 29,FEAROW - - db $00 - -ZoneMonsCenter: - db $1E - db 22,NIDORAN_M - db 25,RHYHORN - db 22,VENONAT - db 24,EXEGGCUTE - db 31,NIDORINO - db 25,EXEGGCUTE - db 31,NIDORINA - db 30,PARASECT - db 23,SCYTHER - db 23,CHANSEY - - db $00 - -ZoneMons1: - db $1E - db 24,NIDORAN_M - db 26,DODUO - db 22,PARAS - db 25,EXEGGCUTE - db 33,NIDORINO - db 23,EXEGGCUTE - db 24,NIDORAN_F - db 25,PARASECT - db 25,LICKITUNG - db 28,SCYTHER - - db $00 - -ZoneMons2: - db $1E - db 22,NIDORAN_M - db 26,RHYHORN - db 23,PARAS - db 25,EXEGGCUTE - db 30,NIDORINO - db 27,EXEGGCUTE - db 30,NIDORINA - db 32,VENOMOTH - db 26,CHANSEY - db 28,PINSIR - - db $00 - -ZoneMons3: - db $1E - db 25,NIDORAN_M - db 26,DODUO - db 23,VENONAT - db 24,EXEGGCUTE - db 33,NIDORINO - db 26,EXEGGCUTE - db 25,NIDORAN_F - db 31,VENOMOTH - db 26,PINSIR - db 28,LICKITUNG - - db $00 - -WaterMons: - db $00 - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -WaterMons: - db $00 - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -IslandMons1: - db $0F - db 30,SEEL - db 30,HORSEA - db 30,STARYU - db 30,KRABBY - db 28,KRABBY - db 21,ZUBAT - db 29,GOLBAT - db 28,SLOWPOKE - db 28,STARYU - db 38,SLOWBRO - - db $00 - -IslandMonsB1: - db $0A - db 30,SHELLDER - db 30,KRABBY - db 32,STARYU - db 32,KRABBY - db 28,HORSEA - db 30,SEEL - db 30,HORSEA - db 28,SEEL - db 38,DEWGONG - db 37,KINGLER - - db $00 - -IslandMonsB2: - db $0A - db 30,SEEL - db 30,HORSEA - db 32,SEEL - db 32,HORSEA - db 28,KRABBY - db 30,SHELLDER - db 30,KRABBY - db 28,STARYU - db 30,GOLBAT - db 37,JYNX - - db $00 - -IslandMonsB3: - db $0A - db 31,HORSEA - db 31,SEEL - db 33,HORSEA - db 33,SEEL - db 29,KRABBY - db 31,STARYU - db 31,KRABBY - db 29,STARYU - db 39,KINGLER - db 37,DEWGONG - - db $00 - -IslandMonsB4: - db $0A - db 31,KRABBY - db 31,STARYU - db 33,KRABBY - db 33,STARYU - db 29,HORSEA - db 31,SEEL - db 31,HORSEA - db 29,SEEL - db 39,JYNX - db 32,GOLBAT - - db $00 - -MansionMons1: - db $0A - db 32,GRIMER - db 30,GRIMER - db 34,PONYTA - db 30,PONYTA - db 34,GROWLITHE - db 32,PONYTA - db 30,KOFFING - db 28,PONYTA - db 37,MUK - db 39,WEEZING - - db $00 - -MansionMons2: - db $0A - db 32,GROWLITHE - db 34,GRIMER - db 34,GRIMER - db 30,PONYTA - db 30,GRIMER - db 32,PONYTA - db 30,KOFFING - db 28,PONYTA - db 39,MUK - db 37,WEEZING - - db $00 - -MansionMons3: - db $0A - db 31,GRIMER - db 33,GROWLITHE - db 35,GRIMER - db 32,PONYTA - db 34,PONYTA - db 40,MUK - db 34,KOFFING - db 38,MUK - db 36,PONYTA - db 42,WEEZING - - db $00 - -MansionMonsB1: - db $0A - db 33,GRIMER - db 31,GRIMER - db 35,GROWLITHE - db 32,PONYTA - db 31,GRIMER - db 40,MUK - db 34,PONYTA - db 35,KOFFING - db 38,MUK - db 42,WEEZING - - db $00 - -Route21Mons: - db $19 - db 21,RATTATA - db 23,PIDGEY - db 30,RATICATE - db 23,RATTATA - db 21,PIDGEY - db 30,PIDGEOTTO - db 32,PIDGEOTTO - db 28,TANGELA - db 30,TANGELA - db 32,TANGELA - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -DungeonMons1: - db $0A - db 46,GOLBAT - db 46,HYPNO - db 46,MAGNETON - db 49,RAPIDASH - db 49,VENOMOTH - db 52,SANDSLASH - db 49,KADABRA - db 52,PARASECT - db 53,RAICHU - db 53,DITTO - - db $00 - -DungeonMons2: - db $0F - db 51,DODRIO - db 51,VENOMOTH - db 51,KADABRA - db 52,RHYDON - db 52,RATICATE - db 52,ELECTRODE - db 56,CHANSEY - db 54,WIGGLYTUFF - db 55,DITTO - db 60,DITTO - - db $00 - -DungeonMonsB1: - db $19 - db 55,RHYDON - db 55,MAROWAK - db 55,ELECTRODE - db 64,CLEFAIRY - db 64,PARASECT - db 64,RAICHU - db 57,SANDSLASH - db 65,DITTO - db 63,DITTO - db 67,DITTO - - db $00 - -PowerPlantMons: - db $0A - db 21,VOLTORB - db 21,MAGNEMITE - db 20,PIKACHU - db 24,PIKACHU - db 23,MAGNEMITE - db 23,VOLTORB - db 32,MAGNETON - db 35,MAGNETON - db 33,RAICHU - db 36,RAICHU - - db $00 - -Route23Mons: - db $0A - db 26,SANDSHREW - db 33,DITTO - db 26,SPEAROW - db 38,FEAROW - db 38,DITTO - db 38,FEAROW - db 41,SANDSLASH - db 43,DITTO - db 41,FEAROW - db 43,FEAROW - - db $00 - -PlateauMons2: - db $0A - db 22,MACHOP - db 24,GEODUDE - db 26,ZUBAT - db 36,ONIX - db 39,ONIX - db 42,ONIX - db 41,MACHOKE - db 40,GOLBAT - db 40,MAROWAK - db 43,GRAVELER - - db $00 - -PlateauMons3: - db $0F - db 24,MACHOP - db 26,GEODUDE - db 22,ZUBAT - db 42,ONIX - db 40,VENOMOTH - db 45,ONIX - db 43,GRAVELER - db 41,GOLBAT - db 42,MACHOKE - db 45,MACHOKE - - db $00 - -PlateauMons1: - db $0F - db 24,MACHOP - db 26,GEODUDE - db 22,ZUBAT - db 36,ONIX - db 39,ONIX - db 42,ONIX - db 41,GRAVELER - db 41,GOLBAT - db 42,MACHOKE - db 43,MAROWAK - - db $00 - -CaveMons: - db $14 - db 18,DIGLETT - db 19,DIGLETT - db 17,DIGLETT - db 20,DIGLETT - db 16,DIGLETT - db 15,DIGLETT - db 21,DIGLETT - db 22,DIGLETT - db 29,DUGTRIO - db 31,DUGTRIO - - db $00 - -ENDC -IF _YELLOW -NoMons: - db $00 - - db $00 - -Route1Mons: - db $19 - db 3,PIDGEY - db 4,PIDGEY - db 2,RATTATA - db 3,RATTATA - db 2,PIDGEY - db 3,PIDGEY - db 5,PIDGEY - db 4,RATTATA - db 6,PIDGEY - db 7,PIDGEY - - db $00 - -Route2Mons: - db $19 - db 3,RATTATA - db 3,PIDGEY - db 4,RATTATA - db 4,NIDORAN_M - db 4,NIDORAN_F - db 5,PIDGEY - db 6,NIDORAN_M - db 6,NIDORAN_F - db 7,PIDGEY - db 7,PIDGEY - - db $00 - -Route22Mons: - db $19 - db 2,NIDORAN_M - db 2,NIDORAN_F - db 3,MANKEY - db 3,RATTATA - db 4,NIDORAN_M - db 4,NIDORAN_F - db 5,MANKEY - db 2,SPEAROW - db 4,SPEAROW - db 6,SPEAROW - - db $00 - -ForestMons: - db $19 - db 3,CATERPIE - db 4,METAPOD - db 4,CATERPIE - db 5,CATERPIE - db 4,PIDGEY - db 6,PIDGEY - db 6,CATERPIE - db 6,METAPOD - db 8,PIDGEY - db 9,PIDGEOTTO - - db $00 - -Route3Mons: - db $14 - db 8,SPEAROW - db 9,SPEAROW - db 9,MANKEY - db 10,SPEAROW - db 8,SANDSHREW - db 10,RATTATA - db 10,SANDSHREW - db 12,RATTATA - db 11,SPEAROW - db 12,SPEAROW - - db $00 - -MoonMons1: - db $0A - db 8,ZUBAT - db 9,ZUBAT - db 10,GEODUDE - db 6,ZUBAT - db 7,ZUBAT - db 10,ZUBAT - db 10,GEODUDE - db 11,ZUBAT - db 12,SANDSHREW - db 11,CLEFAIRY - - db $00 - -MoonMonsB1: - db $0A - db 8,ZUBAT - db 9,ZUBAT - db 10,ZUBAT - db 10,GEODUDE - db 11,GEODUDE - db 11,ZUBAT - db 9,PARAS - db 11,PARAS - db 10,CLEFAIRY - db 12,CLEFAIRY - - db $00 - -MoonMonsB2: - db $0A - db 10,ZUBAT - db 11,GEODUDE - db 13,PARAS - db 11,ZUBAT - db 11,ZUBAT - db 12,ZUBAT - db 13,ZUBAT - db 9,CLEFAIRY - db 11,CLEFAIRY - db 13,CLEFAIRY - - db $00 - -Route4Mons: - db $14 - db 8,SPEAROW - db 9,SPEAROW - db 9,MANKEY - db 10,SPEAROW - db 8,SANDSHREW - db 10,RATTATA - db 10,SANDSHREW - db 12,RATTATA - db 11,SPEAROW - db 12,SPEAROW - - db $00 - -Route24Mons: - db $19 - db 12,ODDISH - db 12,BELLSPROUT - db 13,PIDGEY - db 14,ODDISH - db 14,BELLSPROUT - db 15,PIDGEY - db 13,VENONAT - db 16,VENONAT - db 17,PIDGEY - db 17,PIDGEOTTO - - db $00 - -Route25Mons: - db $0F - db 12,ODDISH - db 12,BELLSPROUT - db 13,PIDGEY - db 14,ODDISH - db 14,BELLSPROUT - db 15,PIDGEY - db 13,VENONAT - db 16,VENONAT - db 17,PIDGEY - db 17,PIDGEOTTO - - db $00 - -Route9Mons: - db $0F - db 16,NIDORAN_M - db 16,NIDORAN_F - db 18,RATTATA - db 18,NIDORAN_M - db 18,NIDORAN_F - db 17,SPEAROW - db 18,NIDORINO - db 18,NIDORINA - db 20,RATICATE - db 19,FEAROW - - db $00 - -Route5Mons: - db $0F - db 15,PIDGEY - db 14,RATTATA - db 7,ABRA - db 16,PIDGEY - db 16,RATTATA - db 17,PIDGEY - db 17,PIDGEOTTO - db 3,JIGGLYPUFF - db 5,JIGGLYPUFF - db 7,JIGGLYPUFF - - db $00 - -Route6Mons: - db $0F - db 15,PIDGEY - db 14,RATTATA - db 7,ABRA - db 16,PIDGEY - db 16,RATTATA - db 17,PIDGEY - db 17,PIDGEOTTO - db 3,JIGGLYPUFF - db 5,JIGGLYPUFF - db 7,JIGGLYPUFF - - db $03 - db 15,PSYDUCK - db 15,PSYDUCK - db 15,PSYDUCK - db 15,PSYDUCK - db 15,PSYDUCK - db 15,PSYDUCK - db 15,PSYDUCK - db 15,PSYDUCK - db 15,GOLDUCK - db 20,GOLDUCK - -Route11Mons: - db $0F - db 16,PIDGEY - db 15,RATTATA - db 18,PIDGEY - db 15,DROWZEE - db 17,RATTATA - db 17,DROWZEE - db 18,PIDGEOTTO - db 20,PIDGEOTTO - db 19,DROWZEE - db 17,RATICATE - - db $00 - -TunnelMonsB1: - db $0F - db 15,ZUBAT - db 16,GEODUDE - db 17,ZUBAT - db 19,ZUBAT - db 18,GEODUDE - db 20,GEODUDE - db 21,ZUBAT - db 17,MACHOP - db 19,MACHOP - db 21,MACHOP - - db $00 - -TunnelMonsB2: - db $0F - db 20,ZUBAT - db 17,GEODUDE - db 18,MACHOP - db 21,ZUBAT - db 22,ZUBAT - db 21,GEODUDE - db 20,MACHOP - db 14,ONIX - db 18,ONIX - db 22,ONIX - - db $00 - -Route10Mons: - db $0F - db 16,MAGNEMITE - db 18,RATTATA - db 18,MAGNEMITE - db 20,MAGNEMITE - db 17,NIDORAN_M - db 17,NIDORAN_F - db 22,MAGNEMITE - db 20,RATICATE - db 16,MACHOP - db 18,MACHOP - - db $00 - -Route12Mons: - db $0F - db 25,ODDISH - db 25,BELLSPROUT - db 28,PIDGEY - db 28,PIDGEOTTO - db 27,ODDISH - db 27,BELLSPROUT - db 29,GLOOM - db 29,WEEPINBELL - db 26,FARFETCH_D - db 31,FARFETCH_D - - db $03 - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWBRO - db 20,SLOWBRO - -Route8Mons: - db $0F - db 20,PIDGEY - db 22,PIDGEY - db 20,RATTATA - db 15,ABRA - db 19,ABRA - db 24,PIDGEOTTO - db 19,JIGGLYPUFF - db 24,JIGGLYPUFF - db 20,KADABRA - db 27,KADABRA - - db $00 - -Route7Mons: - db $0F - db 20,PIDGEY - db 22,PIDGEY - db 20,RATTATA - db 15,ABRA - db 19,ABRA - db 24,PIDGEOTTO - db 26,ABRA - db 19,JIGGLYPUFF - db 24,JIGGLYPUFF - db 24,JIGGLYPUFF - - db $00 - -TowerMons1: - db $00 - - db $00 - -TowerMons2: - db $00 - - db $00 - -TowerMons3: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,GASTLY - db 20,HAUNTER - db 25,HAUNTER - - db $00 - -TowerMons4: - db $0A - db 20,GASTLY - db 21,GASTLY - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 19,GASTLY - db 18,GASTLY - db 25,GASTLY - db 20,HAUNTER - db 25,HAUNTER - - db $00 - -TowerMons5: - db $0F - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 25,GASTLY - db 26,GASTLY - db 21,GASTLY - db 20,CUBONE - db 27,GASTLY - db 22,HAUNTER - db 27,HAUNTER - - db $00 - -TowerMons6: - db $0F - db 22,GASTLY - db 23,GASTLY - db 24,GASTLY - db 25,GASTLY - db 26,GASTLY - db 21,GASTLY - db 22,CUBONE - db 27,GASTLY - db 22,HAUNTER - db 27,HAUNTER - - db $00 - -TowerMons7: - db $14 - db 24,GASTLY - db 25,GASTLY - db 26,GASTLY - db 27,GASTLY - db 28,GASTLY - db 23,GASTLY - db 24,CUBONE - db 29,GASTLY - db 24,HAUNTER - db 29,HAUNTER - - db $00 - -Route13Mons: - db $0F - db 25,ODDISH - db 25,BELLSPROUT - db 28,PIDGEOTTO - db 28,PIDGEY - db 27,ODDISH - db 27,BELLSPROUT - db 29,GLOOM - db 29,WEEPINBELL - db 26,FARFETCH_D - db 31,FARFETCH_D - - db $03 - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWPOKE - db 15,SLOWBRO - db 20,SLOWBRO - -Route14Mons: - db $0F - db 26,ODDISH - db 26,BELLSPROUT - db 24,VENONAT - db 30,PIDGEOTTO - db 28,ODDISH - db 28,BELLSPROUT - db 30,GLOOM - db 30,WEEPINBELL - db 27,VENONAT - db 30,VENOMOTH - - db $00 - -Route15Mons: - db $0F - db 26,ODDISH - db 26,BELLSPROUT - db 24,VENONAT - db 32,PIDGEOTTO - db 28,ODDISH - db 28,BELLSPROUT - db 30,GLOOM - db 30,WEEPINBELL - db 27,VENONAT - db 30,VENOMOTH - - db $00 - -Route16Mons: - db $19 - db 22,SPEAROW - db 22,DODUO - db 23,RATTATA - db 24,DODUO - db 24,RATTATA - db 26,DODUO - db 23,SPEAROW - db 24,FEAROW - db 25,RATICATE - db 26,RATICATE - - db $00 - -Route17Mons: - db $19 - db 26,DODUO - db 27,FEAROW - db 27,DODUO - db 28,DODUO - db 28,PONYTA - db 30,PONYTA - db 29,FEAROW - db 28,DODUO - db 32,PONYTA - db 29,DODRIO - - db $00 - -Route18Mons: - db $19 - db 22,SPEAROW - db 22,DODUO - db 23,RATTATA - db 24,DODUO - db 24,RATTATA - db 26,DODUO - db 23,SPEAROW - db 24,FEAROW - db 25,RATICATE - db 26,RATICATE - - db $00 - -ZoneMonsCenter: - db $1E - db 14,NIDORAN_M - db 36,NIDORAN_F - db 24,EXEGGCUTE - db 20,RHYHORN - db 23,NIDORINO - db 27,PARASECT - db 27,PARAS - db 32,PARASECT - db 22,TANGELA - db 7,CHANSEY - - db $00 - -ZoneMons1: - db $1E - db 21,NIDORAN_M - db 29,NIDORAN_F - db 22,EXEGGCUTE - db 21,TAUROS - db 32,NIDORINA - db 19,CUBONE - db 26,EXEGGCUTE - db 24,MAROWAK - db 21,CHANSEY - db 15,SCYTHER - - db $00 - -ZoneMons2: - db $1E - db 36,NIDORAN_M - db 14,NIDORAN_F - db 20,EXEGGCUTE - db 25,RHYHORN - db 23,NIDORINA - db 28,KANGASKHAN - db 16,CUBONE - db 33,KANGASKHAN - db 25,SCYTHER - db 15,PINSIR - - db $00 - -ZoneMons3: - db $1E - db 29,NIDORAN_M - db 21,NIDORAN_F - db 22,EXEGGCUTE - db 21,TAUROS - db 32,NIDORINO - db 19,CUBONE - db 26,EXEGGCUTE - db 24,MAROWAK - db 25,PINSIR - db 27,TANGELA - - db $00 - -WaterMons: - db $00 - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -WaterMons: - db $00 - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -IslandMons1: - db $0F - db 18,ZUBAT - db 25,KRABBY - db 27,KRABBY - db 27,ZUBAT - db 36,ZUBAT - db 28,SLOWPOKE - db 30,SLOWPOKE - db 9,ZUBAT - db 27,GOLBAT - db 36,GOLBAT - - db $00 - -IslandMonsB1: - db $0A - db 27,ZUBAT - db 26,KRABBY - db 36,ZUBAT - db 28,KRABBY - db 27,GOLBAT - db 29,SLOWPOKE - db 18,ZUBAT - db 28,KINGLER - db 22,SEEL - db 26,SEEL - - db $00 - -IslandMonsB2: - db $0A - db 27,ZUBAT - db 27,KRABBY - db 36,ZUBAT - db 27,GOLBAT - db 28,KINGLER - db 24,SEEL - db 29,KRABBY - db 36,GOLBAT - db 31,SLOWPOKE - db 31,SLOWBRO - - db $00 - -IslandMonsB3: - db $0A - db 27,GOLBAT - db 36,ZUBAT - db 29,KRABBY - db 27,ZUBAT - db 30,KINGLER - db 26,SEEL - db 31,KRABBY - db 30,SEEL - db 28,DEWGONG - db 32,DEWGONG - - db $05 - db 25,TENTACOOL - db 30,TENTACOOL - db 20,TENTACOOL - db 30,STARYU - db 35,TENTACOOL - db 30,STARYU - db 40,TENTACOOL - db 30,STARYU - db 30,STARYU - db 30,STARYU - -IslandMonsB4: - db $0A - db 36,GOLBAT - db 36,ZUBAT - db 30,KRABBY - db 32,KINGLER - db 28,SEEL - db 32,SEEL - db 27,GOLBAT - db 45,ZUBAT - db 30,DEWGONG - db 34,DEWGONG - - db $05 - db 25,TENTACOOL - db 30,TENTACOOL - db 20,TENTACOOL - db 30,STARYU - db 35,TENTACOOL - db 30,STARYU - db 40,TENTACOOL - db 30,STARYU - db 30,STARYU - db 30,STARYU - -MansionMons1: - db $0A - db 34,RATTATA - db 34,RATICATE - db 23,GRIMER - db 26,GROWLITHE - db 37,RATTATA - db 37,RATICATE - db 30,GROWLITHE - db 26,GRIMER - db 34,GROWLITHE - db 38,GROWLITHE - - db $00 - -MansionMons2: - db $0A - db 37,RATTATA - db 37,RATICATE - db 26,GRIMER - db 29,GRIMER - db 40,RATTATA - db 40,RATICATE - db 32,GRIMER - db 35,GRIMER - db 35,MUK - db 38,MUK - - db $00 - -MansionMons3: - db $0A - db 40,RATTATA - db 40,RATICATE - db 32,GRIMER - db 35,GRIMER - db 43,RATTATA - db 43,RATICATE - db 38,GRIMER - db 38,GRIMER - db 38,MUK - db 41,MUK - - db $00 - -MansionMonsB1: - db $0A - db 35,GRIMER - db 38,GRIMER - db 37,RATICATE - db 40,RATICATE - db 41,MUK - db 43,RATICATE - db 24,DITTO - db 46,RATICATE - db 18,DITTO - db 12,DITTO - - db $00 - -Route21Mons: - db $19 - db 15,PIDGEY - db 13,RATTATA - db 13,PIDGEY - db 11,PIDGEY - db 17,PIDGEY - db 15,RATTATA - db 15,RATICATE - db 17,PIDGEOTTO - db 19,PIDGEOTTO - db 15,PIDGEOTTO - - db $05 - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 5,TENTACOOL - db 10,TENTACOOL - db 15,TENTACOOL - db 20,TENTACOOL - db 30,TENTACOOL - db 35,TENTACOOL - db 40,TENTACOOL - -DungeonMons1: - db $0A - db 50,GOLBAT - db 55,GOLBAT - db 45,GRAVELER - db 55,GLOOM - db 55,WEEPINBELL - db 52,SANDSLASH - db 54,VENOMOTH - db 54,PARASECT - db 55,DITTO - db 60,DITTO - - db $00 - -DungeonMons2: - db $0F - db 52,GOLBAT - db 57,GOLBAT - db 50,GRAVELER - db 56,SANDSLASH - db 50,RHYHORN - db 60,DITTO - db 58,GLOOM - db 58,WEEPINBELL - db 60,RHYDON - db 58,RHYDON - - db $00 - -DungeonMonsB1: - db $19 - db 54,GOLBAT - db 59,GOLBAT - db 55,GRAVELER - db 52,RHYHORN - db 62,RHYDON - db 60,DITTO - db 56,CHANSEY - db 65,DITTO - db 55,LICKITUNG - db 50,LICKITUNG - - db $00 - -PowerPlantMons: - db $0A - db 30,MAGNEMITE - db 35,MAGNEMITE - db 33,MAGNETON - db 33,VOLTORB - db 37,VOLTORB - db 33,GRIMER - db 37,GRIMER - db 38,MAGNETON - db 33,MUK - db 37,MUK - - db $00 - -Route23Mons: - db $0A - db 41,NIDORINO - db 41,NIDORINA - db 36,MANKEY - db 44,NIDORINO - db 44,NIDORINA - db 40,FEAROW - db 41,MANKEY - db 45,FEAROW - db 41,PRIMEAPE - db 46,PRIMEAPE - - db $00 - -PlateauMons2: - db $0A - db 31,GEODUDE - db 36,GEODUDE - db 41,GEODUDE - db 44,ZUBAT - db 39,GOLBAT - db 44,GRAVELER - db 45,ONIX - db 47,ONIX - db 39,MACHOKE - db 42,MACHOKE - - db $00 - -PlateauMons3: - db $0F - db 36,GEODUDE - db 44,GOLBAT - db 41,GEODUDE - db 49,ONIX - db 46,GEODUDE - db 41,GRAVELER - db 42,MACHOKE - db 45,MACHOKE - db 47,GRAVELER - db 47,GRAVELER - - db $00 - -PlateauMons1: - db $0F - db 26,GEODUDE - db 31,GEODUDE - db 36,GEODUDE - db 39,ZUBAT - db 44,ZUBAT - db 41,GEODUDE - db 43,ONIX - db 45,ONIX - db 41,GRAVELER - db 47,GRAVELER - - db $00 - -CaveMons: - db $14 - db 18,DIGLETT - db 19,DIGLETT - db 17,DIGLETT - db 20,DIGLETT - db 16,DIGLETT - db 15,DIGLETT - db 21,DIGLETT - db 22,DIGLETT - db 29,DUGTRIO - db 31,DUGTRIO - - db $00 - -ENDC - -GetItemUse: ;$D5C7 - ld a,1 - ld [$cd6a],a - ld a,[$cf91] ;contains item_ID - cp a,HM_01 - jp nc,ItemUseTMHM - ld hl,ItemUsePtrTable - dec a - add a - ld c,a - ld b,0 - add hl,bc - ld a,[hli] - ld h,[hl] - ld l,a - jp [hl] - -ItemUsePtrTable: ;$D5E1 - dw ItemUseBall ;$5687 masterball - dw ItemUseBall ;$5687 ultraball - dw ItemUseBall ;$5687 greatball - dw ItemUseBall ;$5687 pokeball - dw ItemUseTownMap ;$5968 TownMap - dw $5977 ;ItemUseBicycle - dw $59B4 ;ItemUseSurfBoard (UNUSED, glitchy!) - dw ItemUseBall ;$5687 Safariball - dw $5A56 - dw $5A5B - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5ABB - dw $5F52 - dw $5F67 - dw $6476 - dw $6476 - dw $6476 - dw $6476 - dw $6476 - dw $6476 - dw $5FAF - dw $6003 - dw $6476 - dw $5A5B - dw $5A5B - dw $5A5B - dw $5AB4 - dw $5AB4 - dw $5AB4 - dw $5AB4 - dw $5AB4 - dw $5AB4 - dw $6476 - dw $6476 - dw $6476 - dw $6476 - dw $6476 - dw $6013 - dw $5A5B - dw $6022 - dw $6476 - dw $6476 - dw $60CD - dw $5ABB - dw $5ABB - dw $5ABB - dw $60DC - dw $60EB - dw $60F0 - dw $60F5 - dw $6476 - dw $5ABB - dw $5ABB - dw $5ABB - dw $6476 - dw $6476 - dw $6104 - dw $6104 - dw $6104 - dw $6104 - dw $623A - dw $62DE - dw $62E1 - dw $6476 - dw $6140 - dw $6476 - dw $6476 - dw $624C - dw GoodRodCode ;$6259 - dw $6283 - dw $6317 - dw $631E - dw $631E - dw $631E - dw $631E - -ItemUseBall: ;03:5687 - ld a,[W_ISINBATTLE] - and a - jp z,ItemUseNotTime ; not in battle - dec a - jp nz,$658b ; in trainer battle - ld a,[W_BATTLETYPE] - dec a - jr z,.UseBall\@ - ld a,[W_NUMINPARTY] ;is Party full? - cp a,6 - jr nz,.UseBall\@ - ld a,[W_NUMINBOX] ;is Box full? - cp a,20 - jp z,$65b1 -.UseBall\@ ;$56a7 -;ok, you can use a ball - xor a - ld [$d11c],a - ld a,[W_BATTLETYPE] - cp a,2 ;SafariBattle - jr nz,.next2\@ - ; remove a Safari Ball from inventory - ld hl,W_NUMSAFARIBALLS - dec [hl] -.next2\@ ;$56b6 - call GoPAL_SET_CF1C - ld a,$43 - ld [$d11e],a - call $3725 ;restore screenBuffer from Backup - ld hl,ItemUseText00 - call PrintText - ld hl,$583a - ld b,$0f - call Bankswitch - ld b,$10 - jp z,$5801 - ld a,[W_BATTLETYPE] - dec a - jr nz,.next3\@ - ld hl,W_GRASSRATE ;backups wildMon data - ld de,W_PLAYERNAME - ld bc,11 - call CopyData - jp .BallSuccess\@ ;$578b -.next3\@ ;$56e9 - ld a,[W_CURMAP] - cp a,$93 ;MonTower 6F - jr nz,.next4\@ - ld a,[$cfd8] - cp a,MAROWAK - ld b,$10 - jp z,$5801 -.next4\@ ;$56fa - call $3e5c ;GetRandom - ld b,a - ld hl,$cf91 - ld a,[hl] - cp a,MASTER_BALL;1 - jp z,.BallSuccess\@ ;$578b - cp a,POKE_BALL ;4 - jr z,.next5\@ - ld a,200 - cp b - jr c,.next4\@ ;get only numbers < 200 - ld a,[hl] - cp a,GREAT_BALL ;3 - jr z,.next5\@ - ld a,150 ;get only numbers < 150 - cp b - jr c,.next4\@ -.next5\@ ;$571a - ld a,[$cfe9] ;status ailments - and a - jr z,.next6\@ - and a,(FRZ + SLP) ;is frozen and/or asleep? - ld c,12 - jr z,.noAilments\@ - ld c,25 -.noAilments\@ ;$5728 - ld a,b - sub c - jp c,.BallSuccess\@ ;$578b - ld b,a -.next6\@ ;$572e - push bc ;save RANDOM number - xor a - ld [$ff96],a - ld hl,$cff4 ;enemy: Max HP - ld a,[hli] - ld [$ff97],a - ld a,[hl] - ld [$ff98],a - ld a,255 - ld [$ff99],a - call $38ac ;Multiply: MaxHP * 255 - ld a,[$cf91] - cp a,GREAT_BALL - ld a,12 ;any other BallFactor - jr nz,.next7\@ - ld a,8 -.next7\@ ;$574d - ld [$ff99],a - ld b,4 ;GreatBall's BallFactor - call $38b9 ;Divide - ld hl,$cfe6 ;currentHP - ld a,[hli] - ld b,a - ld a,[hl] - srl b ;explanation: - rr a ;we have a 16 bit value - srl b ;equal to [b << 8 | a]. - rr a ;This number is divided - and a ;by 4. The result is - jr nz,.next8\@ ;8 bit (reg. a). Always - inc a ;bigger than zero. -.next8\@ ;$5766 - ld [$ff99],a - ld b,4 - call $38b9 ;Divide - ld a,[$ff97] - and a - jr z,.next9\@ - ld a,255 - ld [$ff98],a -.next9\@ ;$5776 - pop bc - ld a,[$d007] ;enemy: Catch Rate - cp b - jr c,.next10\@ - ld a,[$ff97] - and a - jr nz,.BallSuccess\@ - call $3e5c ;get random number - ld b,a - ld a,[$ff98] - cp b - jr c,.next10\@ -.BallSuccess\@ ;$578b - jr .BallSuccess2\@ -.next10\@ ;$578d - ld a,[$ff98] - ld [$d11e],a - xor a - ld [$ff96],a - ld [$ff97],a - ld a,[$d007] ;enemy: Catch Rate - ld [$ff98],a - ld a,100 - ld [$ff99],a - call $38ac ;Multiply: CatchRate * 100 - ld a,[$cf91] - ld b,255 - cp a,POKE_BALL - jr z,.next11\@ - ld b,200 - cp a,GREAT_BALL - jr z,.next11\@ - ld b,150 - cp a,ULTRA_BALL - jr z,.next11\@ -.next11\@ ;$57b8 - ld a,b - ld [$ff99],a - ld b,4 - call $38b9 ;Divide - ld a,[$ff97] - and a - ld b,$63 - jr nz,.next12\@ - ld a,[$d11e] - ld [$ff99],a - call $38ac - ld a,255 - ld [$ff99],a - ld b,4 - call $38b9 - ld a,[$cfe9] ;status ailments - and a - jr z,.next13\@ - and a,(FRZ + SLP) - ld b,5 - jr z,.next14\@ - ld b,10 -.next14\@ ;$57e6 - ld a,[$ff98] - add b - ld [$ff98],a -.next13\@ ;$57eb - ld a,[$ff98] - cp a,10 - ld b,$20 - jr c,.next12\@ - cp a,30 - ld b,$61 - jr c,.next12\@ - cp a,70 - ld b,$62 - jr c,.next12\@ - ld b,$63 -.next12\@ ;$5801 - ld a,b - ld [$d11e],a -.BallSuccess2\@ ;$5805 - ld c,20 - call DelayFrames - ld a,$c1 - ld [$d07c],a - xor a - ld [$fff3],a - ld [$cc5b],a - ld [$d05b],a - ld a,[$cf92] - push af - ld a,[$cf91] - push af - ld a,$08 ;probably animations - call Predef - pop af - ld [$cf91],a - pop af - ld [$cf92],a - ld a,[$d11e] - cp a,$10 - ld hl,ItemUseBallText00 - jp z,.printText0\@ - cp a,$20 - ld hl,ItemUseBallText01 - jp z,.printText0\@ - cp a,$61 - ld hl,ItemUseBallText02 - jp z,.printText0\@ - cp a,$62 - ld hl,ItemUseBallText03 - jp z,.printText0\@ - cp a,$63 - ld hl,ItemUseBallText04 - jp z,.printText0\@ - ld hl,$cfe6 ;current HP - ld a,[hli] - push af - ld a,[hli] - push af ;backup currentHP... - inc hl - ld a,[hl] - push af ;...and status ailments - push hl - ld hl,$d069 - bit 3,[hl] - jr z,.next15\@ - ld a,$4c - ld [$cfd8],a - jr .next16\@ -.next15\@ ;$5871 - set 3,[hl] - ld hl,$cceb - ld a,[$cff1] - ld [hli],a - ld a,[$cff2] - ld [hl],a -.next16\@ ;$587e - ld a,[$cf91] - push af - ld a,[$cfd8] - ld [$cf91],a - ld a,[$cff3] - ld [$d127],a - ld hl,$6b01 - ld b,$0f - call Bankswitch - pop af - ld [$cf91],a - pop hl - pop af - ld [hld],a - dec hl - pop af - ld [hld],a - pop af - ld [hl],a - ld a,[$cfe5] ;enemy - ld [$d11c],a - ld [$cf91],a - ld [$d11e],a - ld a,[W_BATTLETYPE] - dec a - jr z,.printText1\@ - ld hl,ItemUseBallText05 - call PrintText - ld a,$3a ;convert order: Internal->Dex - call Predef - ld a,[$d11e] - dec a - ld c,a - ld b,2 - ld hl,$d2f7 ;Dex_own_flags (pokemon) - ld a,$10 - call Predef ;check Dex flag (own already or not) - ld a,c - push af - ld a,[$d11e] - dec a - ld c,a - ld b,1 - ld a,$10 ;set Dex_own_flag? - call Predef - pop af - and a - jr nz,.checkParty\@ - ld hl,ItemUseBallText06 - call PrintText - call CleanLCD_OAM - ld a,[$cfe5] ;caught mon_ID - ld [$d11e],a - ld a,$3d - call Predef -.checkParty\@ ;$58f4 - ld a,[W_NUMINPARTY] - cp a,6 ;is party full? - jr z,.sendToBox\@ - xor a - ld [$cc49],a - call CleanLCD_OAM - call AddPokemonToParty ;add mon to Party - jr .End\@ -.sendToBox\@ ;$5907 - call CleanLCD_OAM - call $67a4 - ld hl,ItemUseBallText07 - ld a,[$d7f1] - bit 0,a ;already met Bill? - jr nz,.sendToBox2\@ - ld hl,ItemUseBallText08 -.sendToBox2\@ ;$591a - call PrintText - jr .End\@ -.printText1\@ ;$591f - ld hl,ItemUseBallText05 -.printText0\@ ;$5922 - call PrintText - call CleanLCD_OAM -.End\@ ;$5928 - ld a,[W_BATTLETYPE] - and a - ret nz - ld hl,$d31d - inc a - ld [$cf96],a - jp $2bbb ;remove ITEM (XXX) -ItemUseBallText00: -;"It dodged the thrown ball!" -;"This pokemon can't be caught" - TX_FAR _ItemUseBallText00 - db "@" -ItemUseBallText01: -;"You missed the pokemon!" - TX_FAR _ItemUseBallText01 - db "@" -ItemUseBallText02: -;"Darn! The pokemon broke free!" - TX_FAR _ItemUseBallText02 - db "@" -ItemUseBallText03: -;"Aww! It appeared to be caught!" - TX_FAR _ItemUseBallText03 - db "@" -ItemUseBallText04: -;"Shoot! It was so close too!" - TX_FAR _ItemUseBallText04 - db "@" -ItemUseBallText05: -;"All right! {MonName} was caught!" -;play sound - TX_FAR _ItemUseBallText05 - db $12,$06 - db "@" -ItemUseBallText07: -;"X was transferred to Bill's PC" - TX_FAR _ItemUseBallText07 - db "@" -ItemUseBallText08: -;"X was transferred to someone's PC" - TX_FAR _ItemUseBallText08 - db "@" - -ItemUseBallText06: -;"New DEX data will be added..." -;play sound - TX_FAR _ItemUseBallText06 - db $13,$06 - db "@" - -ItemUseTownMap: ;03:5968 - ld a,[W_ISINBATTLE] ;in-battle or outside - and a - jp nz,ItemUseNotTime ;OAK: "this isn't the time..." - -INCBIN "baserom.gbc",$D96F,$E259 - $D96F - -GoodRodCode: ; 6259 - call $62B4 - jp c,ItemUseNotTime -Next625F: - call GenRandom - srl a - jr c,Next6278 - and 3 - cp 2 - jr nc,Next625F - ; choose which monster appears - ld hl,GoodRodMons - add a,a - ld c,a - ld b,0 - add hl,bc - ld b,[hl] - inc hl - ld c,[hl] - and a -Next6278: - ld a,0 - rla - xor 1 - jr Next628E - -GoodRodMons: - db 10,GOLDEEN - db 10,POLIWAG - -Next6283: - call $62B4 - jp c,ItemUseNotTime -Next6289: - call $68EA - ld a,e -Next628E: - ld [$CD3D],a - dec a - jr nz,.next\@ - ld a,1 - ld [$D05F],a - ld a,b - ld [$D127],a - ld a,c - ld [$D059],a -.next\@ - ld hl,$D700 - ld a,[hl] - push af - push hl - ld [hl],0 - ld b,$1C - ld hl,$47B6 - call Bankswitch - pop hl - pop af - ld [hl],a - ret - -INCBIN "baserom.gbc",$E2B4,$E479 - $E2B4 - -ItemUseTMHM: ;03:6479 - INCBIN "baserom.gbc",$E479,$E581 - $E479 -ItemUseNotTime: ;03:6581 - INCBIN "baserom.gbc",$E581,$E5E8 - $E581 -;ItemUseTexts: ;03:65e8 -ItemUseText00: ;03:65e8 - TX_FAR _ItemUseText001 - db $05 - TX_FAR _ItemUseText002 - db "@" -INCBIN "baserom.gbc",$E5F2,$E919 - $E5F2 - -; super rod data -; map, pointer to fishing group -SuperRodData: ; 6919 - dbw $00,FishingGroup1 - dbw $01,FishingGroup1 - dbw $03,FishingGroup3 - dbw $05,FishingGroup4 - dbw $06,FishingGroup5 - dbw $07,FishingGroup10 - dbw $08,FishingGroup8 - dbw $0F,FishingGroup3 - dbw $11,FishingGroup4 - dbw $15,FishingGroup5 - dbw $16,FishingGroup4 - dbw $17,FishingGroup7 - dbw $18,FishingGroup7 - dbw $1C,FishingGroup7 - dbw $1D,FishingGroup7 - dbw $1E,FishingGroup8 - dbw $1F,FishingGroup8 - dbw $20,FishingGroup8 - dbw $21,FishingGroup2 - dbw $22,FishingGroup9 - dbw $23,FishingGroup3 - dbw $24,FishingGroup3 - dbw $41,FishingGroup3 - dbw $5E,FishingGroup4 - dbw $A1,FishingGroup8 - dbw $A2,FishingGroup8 - dbw $D9,FishingGroup6 - dbw $DA,FishingGroup6 - dbw $DB,FishingGroup6 - dbw $DC,FishingGroup6 - dbw $E2,FishingGroup9 - dbw $E3,FishingGroup9 - dbw $E4,FishingGroup9 - db $FF - -; fishing groups -; number of monsters, followed by level/monster pairs -FishingGroup1: - db 2 - db 15,TENTACOOL - db 15,POLIWAG - -FishingGroup2: - db 2 - db 15,GOLDEEN - db 15,POLIWAG - -FishingGroup3: - db 3 - db 15,PSYDUCK - db 15,GOLDEEN - db 15,KRABBY - -FishingGroup4: - db 2 - db 15,KRABBY - db 15,SHELLDER - -FishingGroup5: - db 2 - db 23,POLIWHIRL - db 15,SLOWPOKE - -FishingGroup6: - db 4 - db 15,DRATINI - db 15,KRABBY - db 15,PSYDUCK - db 15,SLOWPOKE - -FishingGroup7: - db 4 - db 5,TENTACOOL - db 15,KRABBY - db 15,GOLDEEN - db 15,MAGIKARP - -FishingGroup8: - db 4 - db 15,STARYU - db 15,HORSEA - db 15,SHELLDER - db 15,GOLDEEN - -FishingGroup9: - db 4 - db 23,SLOWBRO - db 23,SEAKING - db 23,KINGLER - db 23,SEADRA - -FishingGroup10: - db 4 - db 23,SEAKING - db 15,KRABBY - db 15,GOLDEEN - db 15,MAGIKARP - -INCBIN "baserom.gbc",$E9C5,$10000 - $E9C5 - -SECTION "bank4",DATA,BANK[$4] - -INCBIN "baserom.gbc",$10000,$2EDE - -RedPicFront: - INCBIN "pic/trainer/red.pic" -ShrinkPic1: - INCBIN "pic/trainer/shrink1.pic" -ShrinkPic2: - INCBIN "pic/trainer/shrink2.pic" - -INCBIN "baserom.gbc",$13074,$13A8F-$13074 - -GenRandom_: ; 7A8F -; generate a random 16-bit integer and store it at $FFD3,$FFD4 - ld a,[rDIV] - ld b,a - ld a,[H_RAND1] - adc b - ld [H_RAND1],a - ld a,[rDIV] - ld b,a - ld a,[H_RAND2] - sbc b - ld [H_RAND2],a - ret - -SECTION "bank5",DATA,BANK[$5] - -INCBIN "baserom.gbc",$14000,$4000 - -SECTION "bank6",DATA,BANK[$6] - -CeladonCity_h: ; 0x18000 - db $00 ; tileset - db $12,$19 ; dimensions - dw CeladonCityBlocks, CeladonCityTexts, CeladonCityScript ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connection data - - db ROUTE_16 - dw $4B95, $C7C1 ; pointers (connected, current) (strip) - db $09, $14 ; bigness, width - db $F8, $27 ; alignments (y, x) - dw $C716 ; window - - db ROUTE_7 - dw $4051, $C7DD ; pointers (connected, current) (strip) - db $09, $0A ; bigness, width - db $F8, $00 ; alignments (y, x) - dw $C6F9 ; window - - ; end connection data - - dw CeladonCityObject ; objects - -CeladonCityObject: ; 0x18022 (size=189) - db $f ; border tile - - db $d ; warps - db $d, $8, $0, CELADON_MART_1 - db $d, $a, $2, CELADON_MART_1 - db $9, $18, $0, CELADON_MANSION_1 - db $3, $18, $2, CELADON_MANSION_1 - db $3, $19, $2, CELADON_MANSION_1 - db $9, $29, $0, CELADON_POKECENTER - db $1b, $c, $0, CELADON_GYM - db $13, $1c, $0, GAME_CORNER - db $13, $27, $0, CELADON_MART_5 - db $13, $21, $0, CELADONPRIZE_ROOM - db $1b, $1f, $0, CELADON_DINER - db $1b, $23, $0, CELADON_HOUSE - db $1b, $2b, $0, CELADON_HOTEL - - db $9 ; signs - db $f, $1b, $a ; CeladonCityText10 - db $f, $13, $b ; CeladonCityText11 - db $9, $2a, $c ; CeladonCityText12 - db $1d, $d, $d ; CeladonCityText13 - db $9, $15, $e ; CeladonCityText14 - db $d, $c, $f ; CeladonCityText15 - db $15, $27, $10 ; CeladonCityText16 - db $15, $21, $11 ; CeladonCityText17 - db $15, $1b, $12 ; CeladonCityText18 - - db $9 ; people - db SPRITE_LITTLE_GIRL, $11 + 4, $8 + 4, $fe, $0, $1 ; person - db SPRITE_OLD_PERSON, $1c + 4, $b + 4, $ff, $d1, $2 ; person - db SPRITE_GIRL, $13 + 4, $e + 4, $fe, $1, $3 ; person - db SPRITE_OLD_PERSON, $16 + 4, $19 + 4, $ff, $d0, $4 ; person - db SPRITE_OLD_PERSON, $10 + 4, $16 + 4, $ff, $d0, $5 ; person - db SPRITE_FISHER2, $c + 4, $20 + 4, $ff, $d2, $6 ; person - db SPRITE_SLOWBRO, $c + 4, $1e + 4, $ff, $d3, $7 ; person - db SPRITE_ROCKET, $1d + 4, $20 + 4, $fe, $2, $8 ; person - db SPRITE_ROCKET, $e + 4, $2a + 4, $fe, $2, $9 ; person - - ; warp-to - EVENT_DISP $19, $d, $8 ; CELADON_MART_1 - EVENT_DISP $19, $d, $a ; CELADON_MART_1 - EVENT_DISP $19, $9, $18 ; CELADON_MANSION_1 - EVENT_DISP $19, $3, $18 ; CELADON_MANSION_1 - EVENT_DISP $19, $3, $19 ; CELADON_MANSION_1 - EVENT_DISP $19, $9, $29 ; CELADON_POKECENTER - EVENT_DISP $19, $1b, $c ; CELADON_GYM - EVENT_DISP $19, $13, $1c ; GAME_CORNER - EVENT_DISP $19, $13, $27 ; CELADON_MART_5 - EVENT_DISP $19, $13, $21 ; CELADONPRIZE_ROOM - EVENT_DISP $19, $1b, $1f ; CELADON_DINER - EVENT_DISP $19, $1b, $23 ; CELADON_HOUSE - EVENT_DISP $19, $1b, $2b ; CELADON_HOTEL - -CeladonCityBlocks: ; 450 - INCBIN "maps/celadoncity.blk" - -PalletTown_h: - db $00 ; tileset - db $09,$0A ; dimensions - dw PalletTownBlocks, PalletTownTexts, PalletTownScript - db NORTH | SOUTH ; connections - - db $0C ; Route 1 - dw $4192,$C6EB ; pointers - db $0A,$0A ; bigness, width - db $23,$00 ; alignments - dw $C809 ; window - - db $20 ; Route 21 - dw $506D,$C7AB ; pointers - db $0A,$0A ; bigness, width - db $00,$00 ; alignments - dw $C6F9 ; window - - dw PalletTownObject - -PalletTownObject: ; 0x182c3 (size=58) - db $b ; border tile - - db $3 ; warps - db $5, $5, $0, REDS_HOUSE_1F - db $5, $d, $0, BLUES_HOUSE - db $b, $c, $1, OAKS_LAB - - db $4 ; signs - db $d, $d, $4 ; PalletTownText4 - db $9, $7, $5 ; PalletTownText5 - db $5, $3, $6 ; PalletTownText6 - db $5, $b, $7 ; PalletTownText7 - - db $3 ; people - db SPRITE_OAK, $5 + 4, $8 + 4, $ff, $ff, $1 ; person - db SPRITE_GIRL, $8 + 4, $3 + 4, $fe, $0, $2 ; person - db SPRITE_FISHER2, $e + 4, $b + 4, $fe, $0, $3 ; person - - ; warp-to - EVENT_DISP $a, $5, $5 ; REDS_HOUSE_1F - EVENT_DISP $a, $5, $d ; BLUES_HOUSE - EVENT_DISP $a, $b, $c ; OAKS_LAB - -PalletTownBlocks: ; 0x182fd - INCBIN "maps/pallettown.blk" - -ViridianCity_h: ; 0x18357 to 0x18384 (45 bytes) (bank=6) (id=1) - db $00 ; tileset - db $12, $14 ; dimensions (y, x) - dw ViridianCityBlocks, ViridianCityTexts, ViridianCityScript ; blocks, texts, scripts - db NORTH | SOUTH | WEST ; connections - - ; connections data - - db ROUTE_2 - dw $41C8, $C6F0 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $47, $f6 ; alignments (y, x) - dw $c929 ; window - - db ROUTE_1 - dw $40fc, $c912 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $f6 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_22 - dw $404e, $c79e ; pointers (connected, current) (strip) - db $09, $14 ; bigness, width - db $f8, $27 ; alignments (y, x) - dw $c716 ; window - - ; end connection data - - dw ViridianCityObject ; objects - -ViridianCityObject: ; 0x18384 (size=104) - db $f ; border tile - - db $5 ; warps - db $19, $17, $0, VIRIDIAN_POKECENTER - db $13, $1d, $0, VIRIDIAN_MART - db $f, $15, $0, VIRIDIAN_SCHOOL - db $9, $15, $0, VIRIDIAN_HOUSE - db $7, $20, $0, VIRIDIAN_GYM - - db $6 ; signs - db $11, $11, $8 ; ViridianCityText8 - db $1, $13, $9 ; ViridianCityText9 - db $1d, $15, $a ; ViridianCityText10 - db $13, $1e, $b ; ViridianCityText11 - db $19, $18, $c ; ViridianCityText12 - db $7, $1b, $d ; ViridianCityText13 - - db $7 ; people - db SPRITE_BUG_CATCHER, $14 + 4, $d + 4, $fe, $0, $1 ; person - db SPRITE_GAMBLER, $8 + 4, $1e + 4, $ff, $ff, $2 ; person - db SPRITE_BUG_CATCHER, $19 + 4, $1e + 4, $fe, $0, $3 ; person - db SPRITE_GIRL, $9 + 4, $11 + 4, $ff, $d3, $4 ; person - db SPRITE_LYING_OLD_MAN, $9 + 4, $12 + 4, $ff, $ff, $5 ; person - db SPRITE_FISHER2, $17 + 4, $6 + 4, $ff, $d0, $6 ; person - db SPRITE_GAMBLER, $5 + 4, $11 + 4, $fe, $2, $7 ; person - - ; warp-to - EVENT_DISP $14, $19, $17 ; VIRIDIAN_POKECENTER - EVENT_DISP $14, $13, $1d ; VIRIDIAN_MART - EVENT_DISP $14, $f, $15 ; VIRIDIAN_SCHOOL - EVENT_DISP $14, $9, $15 ; VIRIDIAN_HOUSE - EVENT_DISP $14, $7, $20 ; VIRIDIAN_GYM - -ViridianCityBlocks: ; 360 - INCBIN "maps/viridiancity.blk" - -PewterCity_h: ; 0x18554 to 0x18576 (34 bytes) (bank=6) (id=2) - db $00 ; tileset - db $12, $14 ; dimensions (y, x) - dw PewterCityBlocks, PewterCityTexts, PewterCityScript ; blocks, texts, scripts - db SOUTH | EAST ; connections - - ; connections data - - db ROUTE_2 - dw $407e, $c912 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $f6 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_3 - dw $4255, $c7b5 ; pointers (connected, current) (strip) - db $09, $23 ; bigness, width - db $f8, $00 ; alignments (y, x) - dw $c712 ; window - - ; end connection data - - dw PewterCityObject ; objects - -INCBIN "baserom.gbc",$18576,$18577 - $18576 - -PewterCityObject: ; 0x18577 (size=111) - db $a ; border tile - - db $7 ; warps - db $7, $e, $0, MUSEUM_1F - db $5, $13, $2, MUSEUM_1F - db $11, $10, $0, PEWTER_GYM - db $d, $1d, $0, PEWTER_HOUSE_1 - db $11, $17, $0, PEWTER_MART - db $1d, $7, $0, PEWTER_HOUSE_2 - db $19, $d, $0, PEWTER_POKECENTER - - db $7 ; signs - db $1d, $13, $6 ; PewterCityText6 - db $13, $21, $7 ; PewterCityText7 - db $11, $18, $8 ; PewterCityText8 - db $19, $e, $9 ; PewterCityText9 - db $9, $f, $a ; PewterCityText10 - db $11, $b, $b ; PewterCityText11 - db $17, $19, $c ; PewterCityText12 - - db $5 ; people - db SPRITE_LASS, $f + 4, $8 + 4, $ff, $ff, $1 ; person - db SPRITE_BLACK_HAIR_BOY_1, $19 + 4, $11 + 4, $ff, $ff, $2 ; person - db SPRITE_BLACK_HAIR_BOY_2, $11 + 4, $1b + 4, $ff, $ff, $3 ; person - db SPRITE_BLACK_HAIR_BOY_2, $19 + 4, $1a + 4, $fe, $2, $4 ; person - db SPRITE_BUG_CATCHER, $10 + 4, $23 + 4, $ff, $d0, $5 ; person - - ; warp-to - EVENT_DISP $14, $7, $e ; MUSEUM_1F - EVENT_DISP $14, $5, $13 ; MUSEUM_1F - EVENT_DISP $14, $11, $10 ; PEWTER_GYM - EVENT_DISP $14, $d, $1d ; PEWTER_HOUSE_1 - EVENT_DISP $14, $11, $17 ; PEWTER_MART - EVENT_DISP $14, $1d, $7 ; PEWTER_HOUSE_2 - EVENT_DISP $14, $19, $d ; PEWTER_POKECENTER - -PewterCityBlocks: ; 360 - INCBIN "maps/pewtercity.blk" - -CeruleanCity_h: ; 0x1874e to 0x18786 (56 bytes) (bank=6) (id=3) - db $00 ; tileset - db $12, $14 ; dimensions (y, x) - dw CeruleanCityBlocks, CeruleanCityTexts, CeruleanCityScript ; blocks, texts, scripts - db NORTH | SOUTH | WEST | EAST ; connections - - ; connections data - - db ROUTE_24 - dw $477d, $c6f0 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $23, $f6 ; alignments (y, x) - dw $c809 ; window - - db ROUTE_5 - dw $45d2, $c912 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $f6 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_4 - dw $4416, $c79e ; pointers (connected, current) (strip) - db $09, $2d ; bigness, width - db $f8, $59 ; alignments (y, x) - dw $c748 ; window - - db ROUTE_9 - dw $46fe, $c7b5 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $f8, $00 ; alignments (y, x) - dw $c70d ; window - - ; end connection data - - dw CeruleanCityObject ; objects - -CeruleanCityObject: ; 0x18786 (size=170) - db $f ; border tile - - db $a ; warps - db $b, $1b, $0, TRASHED_HOUSE - db $f, $d, $0, CERULEAN_HOUSE - db $11, $13, $0, CERULEAN_POKECENTER - db $13, $1e, $0, CERULEAN_GYM - db $19, $d, $0, BIKE_SHOP - db $19, $19, $0, CERULEAN_MART - db $b, $4, $0, UNKNOWN_DUNGEON_1 - db $9, $1b, $2, TRASHED_HOUSE - db $b, $9, $1, CERULEAN_HOUSE_3 - db $9, $9, $0, CERULEAN_HOUSE_3 - - db $6 ; signs - db $13, $17, $c ; CeruleanCityText12 - db $1d, $11, $d ; CeruleanCityText13 - db $19, $1a, $e ; CeruleanCityText14 - db $11, $14, $f ; CeruleanCityText15 - db $19, $b, $10 ; CeruleanCityText16 - db $15, $1b, $11 ; CeruleanCityText17 - - db $b ; people - db SPRITE_BLUE, $2 + 4, $14 + 4, $ff, $d0, $1 ; person - db SPRITE_ROCKET, $8 + 4, $1e + 4, $ff, $ff, $42, ROCKET + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $14 + 4, $1f + 4, $ff, $d0, $3 ; person - db SPRITE_BLACK_HAIR_BOY_2, $12 + 4, $f + 4, $fe, $1, $4 ; person - db SPRITE_BLACK_HAIR_BOY_2, $15 + 4, $9 + 4, $fe, $2, $5 ; person - db SPRITE_GUARD, $c + 4, $1c + 4, $ff, $d0, $6 ; person - db SPRITE_LASS, $1a + 4, $1d + 4, $ff, $d2, $7 ; person - db SPRITE_SLOWBRO, $1a + 4, $1c + 4, $ff, $d0, $8 ; person - db SPRITE_LASS, $1b + 4, $9 + 4, $fe, $2, $9 ; person - db SPRITE_BLACK_HAIR_BOY_2, $c + 4, $4 + 4, $ff, $d0, $a ; person - db SPRITE_GUARD, $c + 4, $1b + 4, $ff, $d0, $b ; person - - ; warp-to - EVENT_DISP $14, $b, $1b ; TRASHED_HOUSE - EVENT_DISP $14, $f, $d ; CERULEAN_HOUSE - EVENT_DISP $14, $11, $13 ; CERULEAN_POKECENTER - EVENT_DISP $14, $13, $1e ; CERULEAN_GYM - EVENT_DISP $14, $19, $d ; BIKE_SHOP - EVENT_DISP $14, $19, $19 ; CERULEAN_MART - EVENT_DISP $14, $b, $4 ; UNKNOWN_DUNGEON_1 - EVENT_DISP $14, $9, $1b ; TRASHED_HOUSE - EVENT_DISP $14, $b, $9 ; CERULEAN_HOUSE_3 - EVENT_DISP $14, $9, $9 ; CERULEAN_HOUSE_3 - -CeruleanCityBlocks: ; 360 - INCBIN "maps/ceruleancity.blk" - -VermilionCity_h: ; 0x18998 to 0x189ba (34 bytes) (bank=6) (id=5) - db $00 ; tileset - db $12, $14 ; dimensions (y, x) - dw VermilionCityBlocks, VermilionCityTexts, VermilionCityScript ; blocks, texts, scripts - db NORTH | EAST ; connections - - ; connections data - - db ROUTE_6 - dw $410f, $c6f0 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $23, $f6 ; alignments (y, x) - dw $c809 ; window - - db ROUTE_11 - dw $455f, $c7b5 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $f8, $00 ; alignments (y, x) - dw $c70d ; window - - ; end connection data - - dw VermilionCityObject ; objects - -VermilionCityObject: ; 0x189ba (size=133) - db $43 ; border tile - - db $9 ; warps - db $3, $b, $0, VERMILION_POKECENTER - db $d, $9, $0, POKEMON_FAN_CLUB - db $d, $17, $0, VERMILION_MART - db $13, $c, $0, VERMILION_GYM - db $13, $17, $0, VERMILION_HOUSE_1 - db $1f, $12, $0, VERMILION_DOCK - db $1f, $13, $0, VERMILION_DOCK - db $d, $f, $0, VERMILION_HOUSE_3 - db $3, $7, $0, VERMILION_HOUSE_2 - - db $7 ; signs - db $3, $1b, $7 ; VermilionCityText7 - db $d, $25, $8 ; VermilionCityText8 - db $d, $18, $9 ; VermilionCityText9 - db $3, $c, $a ; VermilionCityText10 - db $d, $7, $b ; VermilionCityText11 - db $13, $7, $c ; VermilionCityText12 - db $f, $1d, $d ; VermilionCityText13 - - db $6 ; people - db SPRITE_FOULARD_WOMAN, $7 + 4, $13 + 4, $fe, $2, $1 ; person - db SPRITE_GAMBLER, $6 + 4, $e + 4, $ff, $ff, $2 ; person - db SPRITE_SAILOR, $1e + 4, $13 + 4, $ff, $d1, $3 ; person - db SPRITE_GAMBLER, $7 + 4, $1e + 4, $ff, $ff, $4 ; person - db SPRITE_SLOWBRO, $9 + 4, $1d + 4, $fe, $1, $5 ; person - db SPRITE_SAILOR, $1b + 4, $19 + 4, $fe, $2, $6 ; person - - ; warp-to - EVENT_DISP $14, $3, $b ; VERMILION_POKECENTER - EVENT_DISP $14, $d, $9 ; POKEMON_FAN_CLUB - EVENT_DISP $14, $d, $17 ; VERMILION_MART - EVENT_DISP $14, $13, $c ; VERMILION_GYM - EVENT_DISP $14, $13, $17 ; VERMILION_HOUSE_1 - EVENT_DISP $14, $1f, $12 ; VERMILION_DOCK - EVENT_DISP $14, $1f, $13 ; VERMILION_DOCK - EVENT_DISP $14, $d, $f ; VERMILION_HOUSE_3 - EVENT_DISP $14, $3, $7 ; VERMILION_HOUSE_2 - -VermilionCityBlocks: ; 360 - INCBIN "maps/vermilioncity.blk" - -FuchsiaCity_h: ; 0x18ba7 to 0x18bd4 (45 bytes) (bank=6) (id=7) - db $00 ; tileset - db $12, $14 ; dimensions (y, x) - dw FuchsiaCityBlocks, FuchsiaCityTexts, FuchsiaCityScript ; blocks, texts, scripts - db SOUTH | WEST | EAST ; connections - - ; connections data - - db ROUTE_19 - dw $4ef1, $c912 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $f6 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_18 - dw $4cb2, $c79e ; pointers (connected, current) (strip) - db $09, $19 ; bigness, width - db $f8, $31 ; alignments (y, x) - dw $c720 ; window - - db ROUTE_15 - dw $49cc, $c7b5 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $f8, $00 ; alignments (y, x) - dw $c70d ; window - - ; end connection data - - dw FuchsiaCityObject ; objects - -FuchsiaCityObject: ; 0x18bd4 (size=178) - db $f ; border tile - - db $9 ; warps - db $d, $5, $0, FUCHSIA_MART - db $1b, $b, $0, FUCHSIA_HOUSE_1 - db $1b, $13, $0, FUCHSIA_POKECENTER - db $1b, $1b, $0, FUCHSIA_HOUSE_2 - db $3, $12, $0, SAFARIZONEENTRANCE - db $1b, $5, $0, FUCHSIA_GYM - db $d, $16, $0, FUCHSIAMEETINGROOM - db $1b, $1f, $1, FUCHSIA_HOUSE_3 - db $18, $1f, $0, FUCHSIA_HOUSE_3 - - db $e ; signs - db $17, $f, $b ; FuchsiaCityText11 - db $f, $19, $c ; FuchsiaCityText12 - db $5, $11, $d ; FuchsiaCityText13 - db $d, $6, $e ; FuchsiaCityText14 - db $1b, $14, $f ; FuchsiaCityText15 - db $1d, $1b, $10 ; FuchsiaCityText16 - db $f, $15, $11 ; FuchsiaCityText17 - db $1d, $5, $12 ; FuchsiaCityText18 - db $7, $21, $13 ; FuchsiaCityText19 - db $7, $1b, $14 ; FuchsiaCityText20 - db $7, $d, $15 ; FuchsiaCityText21 - db $d, $1f, $16 ; FuchsiaCityText22 - db $f, $d, $17 ; FuchsiaCityText23 - db $7, $7, $18 ; FuchsiaCityText24 - - db $a ; people - db SPRITE_BUG_CATCHER, $c + 4, $a + 4, $fe, $2, $1 ; person - db SPRITE_GAMBLER, $11 + 4, $1c + 4, $fe, $2, $2 ; person - db SPRITE_FISHER2, $e + 4, $1e + 4, $ff, $d0, $3 ; person - db SPRITE_BUG_CATCHER, $8 + 4, $18 + 4, $ff, $d1, $4 ; person - db SPRITE_CLEFAIRY, $5 + 4, $1f + 4, $fe, $0, $5 ; person - db SPRITE_BALL, $6 + 4, $19 + 4, $ff, $ff, $6 ; person - db SPRITE_SLOWBRO, $6 + 4, $c + 4, $fe, $2, $7 ; person - db SPRITE_SLOWBRO, $c + 4, $1e + 4, $fe, $2, $8 ; person - db SPRITE_SEEL, $11 + 4, $8 + 4, $fe, $0, $9 ; person - db SPRITE_OMANYTE, $5 + 4, $6 + 4, $ff, $ff, $a ; person - - ; warp-to - EVENT_DISP $14, $d, $5 ; FUCHSIA_MART - EVENT_DISP $14, $1b, $b ; FUCHSIA_HOUSE_1 - EVENT_DISP $14, $1b, $13 ; FUCHSIA_POKECENTER - EVENT_DISP $14, $1b, $1b ; FUCHSIA_HOUSE_2 - EVENT_DISP $14, $3, $12 ; SAFARIZONEENTRANCE - EVENT_DISP $14, $1b, $5 ; FUCHSIA_GYM - EVENT_DISP $14, $d, $16 ; FUCHSIAMEETINGROOM - EVENT_DISP $14, $1b, $1f ; FUCHSIA_HOUSE_3 - EVENT_DISP $14, $18, $1f ; FUCHSIA_HOUSE_3 - -FuchsiaCityBlocks: ; 360 - INCBIN "maps/fuchsiacity.blk" - -INCBIN "baserom.gbc",$18dee,$6d - -PalletTownScript: - ld a,[$D74B] - bit 4,a - jr z,.next\@ - ld hl,$D747 - set 6,[hl] -.next\@ - call $3C3C - ld hl,PalletTownScriptPointers - ld a,[$D5F1] - jp $3D97 -; 0x18e73 - -PalletTownScriptPointers: - dw PalletTownScript1,PalletTownScript2,PalletTownScript3,PalletTownScript4,PalletTownScript5,PalletTownScript6,PalletTownScript7 - -PalletTownScript1: - ld a,[$D747] - bit 0,a - ret nz - ld a,[W_YCOORD] - cp 1 ; is player near north exit? - ret nz - xor a - ld [$FFB4],a - ld a,4 - ld [$D528],a - ld a,$FF - call $23B1 ; stop music - ld a,2 - ld c,a ; song bank - ld a,$DB ; “oak appears” music - call $23A1 ; plays music - ld a,$FC - ld [$CD6B],a - ld hl,$D74B - set 7,[hl] - - ; trigger the next script - ld a,1 - ld [$D5F1],a - ret - -PalletTownScript2: - xor a - ld [$CF0D],a - ld a,1 - ld [$FF8C],a - call $2920 - ld a,$FF - ld [$CD6B],a - ld a,0 - ld [$CC4D],a - ld a,$15 - call Predef - - ; trigger the next script - ld a,2 - ld [$D5F1],a - ret - -PalletTownScript3: - ld a,1 - ld [$FF8C],a - ld a,4 - ld [$FF8D],a - call $34A6 - call Delay3 - ld a,1 - ld [W_YCOORD],a - ld a,1 - ld [$FF9B],a - ld a,1 - swap a - ld [$FF95],a - ld a,$22 - call Predef - ld hl,$FF95 - dec [hl] - ld a,$20 - call Predef ; load Oak’s movement into $CC97 - ld de,$CC97 - ld a,1 ; oak - ld [$FF8C],a - call MoveSprite - ld a,$FF - ld [$CD6B],a - - ; trigger the next script - ld a,3 - ld [$D5F1],a - ret - -PalletTownScript4: - ld a,[$D730] - bit 0,a - ret nz - xor a - ld [$C109],a - ld a,1 - ld [$CF0D],a - ld a,$FC - ld [$CD6B],a - ld a,1 - ld [$FF8C],a - call $2920 - ld a,$FF - ld [$CD6B],a - ld a,1 - ld [$CF13],a - xor a - ld [$CF10],a - ld a,1 - ld [$CC57],a - ld a,[$FFB8] - ld [$CC58],a - - ; trigger the next script - ld a,4 - ld [$D5F1],a - ret - -PalletTownScript5: - ld a,[$CC57] - and a - ret nz - - ; trigger the next script - ld a,5 - ld [$D5F1],a - ret - -PalletTownScript6: - ld a,[$D74A] - bit 2,a - jr nz,.next\@ - and 3 - cp 3 - jr nz,.next\@ - ld hl,$D74A - set 2,[hl] - ld a,$27 - ld [$CC4D],a - ld a,$11 - call Predef - ld a,$28 - ld [$CC4D],a - ld a,$15 - jp Predef -.next\@ - ld a,[$D74B] - bit 4,a - ret z - ld hl,$D74B - set 6,[hl] -PalletTownScript7: - ret - -PalletTownTexts: ; 0x18f88 - dw PalletTownText1,PalletTownText2,PalletTownText3,PalletTownText4,PalletTownText5,PalletTownText6,PalletTownText7 - -PalletTownText1: ; 4F96 0x18f96 - db 8 - ld a,[$CF0D] - and a - jr nz,.next\@ - ld a,1 - ld [$CC3C],a - ld hl,OakAppearsText - jr .done\@ -.next\@ - ld hl,OakWalksUpText -.done\@ - call PrintText - jp $24D7 - -OakAppearsText: - TX_FAR _OakAppearsText - db 8 - ld c,10 - call DelayFrames - xor a - ld [$CD4F],a - ld [$CD50],a - ld a,$4C - call Predef ; display ! over head - ld a,4 - ld [$D528],a - jp $24D7 - -OakWalksUpText: - TX_FAR _OakWalksUpText - db "@" - -PalletTownText2: ; girl 0x18fd3 - TX_FAR _PalletTownText2 ; dc 42 29 pointing to 0xa42dc - db "@" - -PalletTownText3: ; fat man - TX_FAR _PalletTownText3 - db "@" - -PalletTownText4: ; sign by lab - TX_FAR _PalletTownText4 - db "@" - -PalletTownText5: ; sign by fence - TX_FAR _PalletTownText5 - db "@" - -PalletTownText6: ; sign by Red’s house - TX_FAR _PalletTownText6 - db "@" - -PalletTownText7: ; sign by Blue’s house - TX_FAR _PalletTownText7 - db "@" - -ViridianCityScript: ; 0x18ff1 - call $3c3c - ld hl, $4ffd - ld a, [$d5f4] - jp $3d97 -; 0x18ffd - -ViridianCityScripts: ; 0x18ffd - dw ViridianCityScript0 - -INCBIN "baserom.gbc",$18fff,$6 - -ViridianCityScript0: ; 0x19005 - call $500b - jp $503d -; 0x1900b - -INCBIN "baserom.gbc",$1900b,$d9 - -ViridianCityTexts: ; 0x190e4 - dw ViridianCityText1, ViridianCityText2, ViridianCityText3, ViridianCityText4, ViridianCityText5, ViridianCityText6, ViridianCityText7, ViridianCityText8, ViridianCityText9, ViridianCityText10, ViridianCityText11, ViridianCityText12, ViridianCityText13, ViridianCityText14, ViridianCityText15 - -ViridianCityText1: ; 0x19102 - TX_FAR _ViridianCityText1 - db $50 - -ViridianCityText2: ; 0x19107 - db $08 ; asm - ld a, [$d356] - cp $7f - ld hl, $5127 - jr z, .asm_ae9fe ; 0x19110 - ld a, [$d751] - bit 1, a - jr nz, .asm_ae9fe ; 0x19117 - ld hl, $5122 -.asm_ae9fe ; 0x1911c - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$19122,$1912c - $19122 - -ViridianCityText3: ; 0x1912c - db $08 ; asm - ld hl, $514d - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_6dfea ; 0x1913a - ld hl, $5157 - call PrintText - jr .asm_d611f ; 0x19142 -.asm_6dfea ; 0x19144 - ld hl, $5152 - call PrintText -.asm_d611f ; 0x1914a - jp $24d7 - -INCBIN "baserom.gbc",$1914d,$1915c - $1914d - -ViridianCityText4: ; 0x1915c - db $08 ; asm - ld a, [$d74b] - bit 5, a - jr nz, .asm_83894 ; 0x19162 - ld hl, $5175 - call PrintText - jr .asm_700a6 ; 0x1916a -.asm_83894 ; 0x1916c - ld hl, $517a - call PrintText -.asm_700a6 ; 0x19172 - jp $24d7 - -INCBIN "baserom.gbc",$19175,$1917f - $19175 - -ViridianCityText5: ; 0x1917f - db $08 ; asm - ld hl, $5191 - call PrintText - call $50cf - ld a, $3 - ld [$d5f4], a - jp $24d7 - -INCBIN "baserom.gbc",$19191,$19196 - $19191 - -ViridianCityText6: ; 0x19196 - db $08 ; asm - ld a, [$d74c] - bit 1, a - jr nz, .asm_4e5a0 ; 0x1919c - ld hl, $51ca - call PrintText - ld bc,(TM_42 << 8) | 1 - call $3e2e - jr nc, .asm_b655e ; 0x191aa - ld hl, $51cf - call PrintText - ld hl, $d74c - set 1, [hl] - jr .asm_3c73c ; 0x191b7 -.asm_b655e ; 0x191b9 - ld hl, $51da - call PrintText - jr .asm_3c73c ; 0x191bf -.asm_4e5a0 ; 0x191c1 - ld hl, $51d5 - call PrintText -.asm_3c73c ; 0x191c7 - jp $24d7 - -INCBIN "baserom.gbc",$191ca,$191df - $191ca - -ViridianCityText7: ; 0x191df - db $08 ; asm - ld hl, $520a - call PrintText - ld c, $2 - call $3739 - call $35ec - ld a, [$cc26] - and a - jr z, .asm_42f68 ; 0x191f2 - ld hl, $520f - call PrintText - ld a, $1 - ld [$d5f4], a - jr .asm_2413a ; 0x191ff -.asm_42f68 ; 0x19201 - ld hl, $5214 - call PrintText -.asm_2413a ; 0x19207 - jp $24d7 - -INCBIN "baserom.gbc",$1920a,$19219 - $1920a - -ViridianCityText15: ; 0x19219 -INCBIN "baserom.gbc",$19219,$1921e - $19219 - -ViridianCityText8: ; 0x1921e - TX_FAR _ViridianCityText8 - db $50 - -ViridianCityText9: ; 0x19223 - TX_FAR _ViridianCityText9 - db $50 - -ViridianCityText10: ; 0x19228 - TX_FAR _ViridianCityText10 - db $50 - -ViridianCityText13: ; 0x1922d - TX_FAR _ViridianCityText13 - db $50 - -ViridianCityText14: -INCBIN "baserom.gbc",$19232,$19237 - $19232 - -PewterCityScript: ; 0x19237 - call $3c3c - ld hl, $5243 - ld a, [$d5f7] - jp $3d97 -; 0x19243 - -PewterCityScripts: ; 0x19243 - dw PewterCityScript0 - -INCBIN "baserom.gbc",$19245,$c - -PewterCityScript0: ; 0x19251 - xor a - ld [$d619], a - ld hl, $d754 - res 0, [hl] - call $525e - ret -; 0x1925e - -INCBIN "baserom.gbc",$1925e,$12d - -PewterCityTexts: ; 0x1938b - dw PewterCityText1, PewterCityText2, PewterCityText3, PewterCityText4, PewterCityText5, PewterCityText6, PewterCityText7, PewterCityText8, PewterCityText9, PewterCityText10, PewterCityText11, PewterCityText12, PewterCityText13, PewterCityText14 - -PewterCityText1: ; 0x193a7 - TX_FAR _PewterCityText1 - db $50 - -PewterCityText2: ; 0x193ac - TX_FAR _PewterCityText2 - db $50 - -PewterCityText3: ; 0x193b1 - db $08 ; asm - ld hl, $53f1 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_f46a9 ; 0x193bf - ld hl, $53f6 - call PrintText - jr .asm_ac429 ; 0x193c7 -.asm_f46a9 ; 0x193c9 - ld hl, $53fb - call PrintText - xor a - ldh [$b3], a - ldh [$b4], a - ld [$cf10], a - ld a, $2 - ld [$cc57], a - ldh a, [$b8] - ld [$cc58], a - ld a, $3 - ld [$cf13], a - call $32f4 - ld a, $1 - ld [$d5f7], a -.asm_ac429 ; 0x193ee - jp $24d7 - -INCBIN "baserom.gbc",$193f1,$19400 - $193f1 - -PewterCityText13: -INCBIN "baserom.gbc",$19400,$5 - -PewterCityText4: ; 0x19405 - db $8 - ld hl, $5427 - call PrintText - call $35ec - ld a, [$cc26] - cp $0 - jr nz, .asm_e4603 - ld hl, $542c - call PrintText - jr .asm_e4604 ; 0x1941c $6 -.asm_e4603 - ld hl, $5431 - call PrintText -.asm_e4604 ; 0x19424 - jp $24d7 -; 0x19427 - -INCBIN "baserom.gbc",$19427,$f - -PewterCityText5: ; 0x19436 - db $08 ; asm - ld hl, $545d - call PrintText - xor a - ldh [$b4], a - ld [$cf10], a - ld a, $3 - ld [$cc57], a - ldh a, [$b8] - ld [$cc58], a - ld a, $5 - ld [$cf13], a - call $32f4 - ld a, $4 - ld [$d5f7], a - jp $24d7 - -INCBIN "baserom.gbc",$1945d,$19462 - $1945d - -PewterCityText14: ; 0x19462 -INCBIN "baserom.gbc",$19462,$5 - -PewterCityText6: ; 0x19467 - TX_FAR _PewterCityText6 - db $50 - -PewterCityText7: ; 0x1946c - TX_FAR _PewterCityText7 - db $50 - -PewterCityText10: ; 0x19471 - TX_FAR _PewterCityText10 - db $50 - -PewterCityText11: ; 0x19476 - TX_FAR _PewterCityText11 - db $50 - -PewterCityText12: ; 0x1947b - TX_FAR _PewterCityText12 - db $50 - -CeruleanCityScript: ; 0x19480 - call $3c3c - ld hl, $549d - ld a, [$d60f] - jp $3d97 -; 0x1948c - -INCBIN "baserom.gbc",$1948c,$1949d - $1948c - -CeruleanCityScripts: ; 0x1949d - dw CeruleanCityScript0, CeruleanCityScript1, CeruleanCityScript2, CeruleanCityScript3 - -INCBIN "baserom.gbc",$194a5,$23 - -CeruleanCityScript0: ; 0x194c8 - ld a, [$d75b] - bit 7, a - jr nz, .asm_194f7 ; 0x194cd $28 - ld hl, $554f - call $34bf - jr nc, .asm_194f7 ; 0x194d5 $20 - ld a, [$cd3d] - cp $1 - ld a, $8 - ld b, $0 - jr nz, .asm_194e6 ; 0x194e0 $4 - ld a, $4 - ld b, $4 -.asm_194e6 - ld [$d528], a - ld a, b - ld [$c129], a - call Delay3 - ld a, $2 - ld [$ff00+$8c], a - jp $2920 -.asm_194f7 - ld a, [$d75a] - bit 0, a - ret nz - ld hl, $5554 - call $34bf - ret nc - ld a, [$d700] - and a - jr z, .asm_19512 ; 0x19508 $8 - ld a, $ff - ld [$c0ee], a - call $23b1 -.asm_19512 - ld c, $2 - ld a, $de - call $23a1 - xor a - ld [$ff00+$b4], a - ld a, $f0 - ld [$cd6b], a - ld a, [$d362] - cp $14 - jr z, .asm_19535 ; 0x19526 $d - ld a, $1 - ld [$ff00+$8c], a - ld a, $5 - ld [$ff00+$8b], a - call $3500 - ld [hl], $19 -.asm_19535 - ld a, $5 - ld [$cc4d], a - ld a, $15 - call Predef - ld de, $5559 - ld a, $1 - ld [$ff00+$8c], a - call $363a - ld a, $1 - ld [$d60f], a - ret -; 0x1954f - -INCBIN "baserom.gbc",$1954f,$19567 - $1954f - -CeruleanCityScript1: ; 0x19567 - ld a, [$d730] - bit 0, a - ret nz - xor a - ld [$cd6b], a - ld a, $1 - ld [$ff00+$8c], a - call $2920 - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $566d - ld de, $5672 - call $3354 - ld a, $e1 - ld [$d059], a - ld a, [$d715] - cp $b1 - jr nz, .asm_19598 ; 0x19592 $4 - ld a, $7 - jr .asm_195a2 ; 0x19596 $a -.asm_19598 - cp $99 - jr nz, .asm_195a0 ; 0x1959a $4 - ld a, $8 - jr .asm_195a2 ; 0x1959e $2 -.asm_195a0 - ld a, $9 -.asm_195a2 - ld [$d05d], a - xor a - ld [$ff00+$b4], a - call $555d - ld a, $2 - ld [$d60f], a - ret -; 0x195b1 - -CeruleanCityScript2: ; 0x195b1 - ld a, [$d057] - cp $ff - jp z, $548c - call $555d - ld a, $f0 - ld [$cd6b], a - ld hl, $d75a - set 0, [hl] - ld a, $1 - ld [$ff00+$8c], a - call $2920 - ld a, $ff - ld [$c0ee], a - call $23b1 - ld b, $2 - ld hl, $5b47 - call Bankswitch - ld a, $1 - ld [$ff00+$8c], a - call $3541 - ld a, [$d362] - cp $14 - jr nz, .asm_195f0 ; 0x195e9 $5 - ld de, $5608 - jr .asm_195f3 ; 0x195ee $3 -.asm_195f0 - ld de, $5600 -.asm_195f3 - ld a, $1 - ld [$ff00+$8c], a - call $363a - ld a, $3 - ld [$d60f], a - ret -; 0x19600 - -INCBIN "baserom.gbc",$19600,$19610 - $19600 - -CeruleanCityScript3: ; 0x19610 - ld a, [$d730] - bit 0, a - ret nz - ld a, $5 - ld [$cc4d], a - ld a, $11 - call Predef - xor a - ld [$cd6b], a - call $2307 - ld a, $0 - ld [$d60f], a - ret -; 0x1962d - -CeruleanCityTexts: ; 0x1962d - dw CeruleanCityText1, CeruleanCityText2, CeruleanCityText3, CeruleanCityText4, CeruleanCityText5, CeruleanCityText6, CeruleanCityText7, CeruleanCityText8, CeruleanCityText9, CeruleanCityText10, CeruleanCityText11, CeruleanCityText12, CeruleanCityText13, CeruleanCityText14, CeruleanCityText15, CeruleanCityText16, CeruleanCityText17 - -CeruleanCityText1: ; 0x1964f - db $08 ; asm - ld a, [$d75a] - bit 0, a - jr z, .asm_a89f9 ; 0x19655 - ld hl, $5677 - call PrintText - jr .asm_815c6 ; 0x1965d -.asm_a89f9 ; 0x1965f - ld hl, $5668 - call PrintText -.asm_815c6 ; 0x19665 - jp $24d7 - -INCBIN "baserom.gbc",$19668,$1967c - $19668 - -CeruleanCityText2: ; 0x1967c - db $8 - ld a, [$d75b] - bit 7, a - jr nz, .asm_4ca20 ; 0x19682 $29 - ld hl, $56d9 - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $56ee - ld de, $56ee - call $3354 - ld a, [$ff00+$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $4 - ld [$d60f], a - jp $24d7 -.asm_4ca20 ; 0x196ad - ld hl, $56f3 - call PrintText - ld bc, $e401 - call GiveItem - jr c, .asm_8bbbd ; 0x196b9 $8 - ld hl, $56e9 - call PrintText - jr .asm_e4e6f ; 0x196c1 $13 -.asm_8bbbd ; 0x196c3 - ld a, $1 - ld [$cc3c], a - ld hl, $56de - call PrintText - ld b, $1d - ld hl, $4872 - call Bankswitch -.asm_e4e6f ; 0x196d6 - jp $24d7 -; 0x196d9 - -INCBIN "baserom.gbc",$196d9,$1f - -CeruleanCityText3: ; 0x196f8 - TX_FAR _CeruleanCityText3 - db $50 - -CeruleanCityText4: ; 0x196fd - TX_FAR _CeruleanCityText4 - db $50 - -CeruleanCityText5: ; 0x19702 - TX_FAR _CeruleanCityText5 - db $50 - -CeruleanCityText11: -CeruleanCityText6: ; 0x19707 - TX_FAR _CeruleanCityText6 - db $50 - -CeruleanCityText7: ; 0x1970c - db $08 ; asm - ldh a, [$d3] - cp $b4 - jr c, .asm_e9fc9 ; 0x19711 - ld hl, $5730 - call PrintText - jr .asm_d486e ; 0x19719 -.asm_e9fc9 ; 0x1971b - cp $64 - jr c, .asm_df99b ; 0x1971d - ld hl, $5735 - call PrintText - jr .asm_d486e ; 0x19725 -.asm_df99b ; 0x19727 - ld hl, $573a - call PrintText -.asm_d486e ; 0x1972d - jp $24d7 - -INCBIN "baserom.gbc",$19730,$1973f - $19730 - -CeruleanCityText8: ; 0x1973f - db $08 ; asm - ldh a, [$d3] - cp $b4 - jr c, .asm_e28da ; 0x19744 - ld hl, $576f - call PrintText - jr .asm_f2f38 ; 0x1974c -.asm_e28da ; 0x1974e - cp $78 - jr c, .asm_15d08 ; 0x19750 - ld hl, $5774 - call PrintText - jr .asm_f2f38 ; 0x19758 -.asm_15d08 ; 0x1975a - cp $3c - jr c, .asm_d7fea ; 0x1975c - ld hl, $5779 - call PrintText - jr .asm_f2f38 ; 0x19764 -.asm_d7fea ; 0x19766 - ld hl, $577e - call PrintText -.asm_f2f38 ; 0x1976c - jp $24d7 - -INCBIN "baserom.gbc",$1976f,$14 - -CeruleanCityText9: ; 0x19783 - TX_FAR _CeruleanCityText9 - db $50 - -CeruleanCityText10: ; 0x19788 - TX_FAR _CeruleanCityText10 - db $50 - -CeruleanCityText12: ; 0x1978d - TX_FAR _CeruleanCityText12 - db $50 - -CeruleanCityText13: ; 0x19792 - TX_FAR _CeruleanCityText13 - db $50 - -CeruleanCityText16: ; 0x19797 - TX_FAR _CeruleanCityText16 - db $50 - -CeruleanCityText17: ; 0x1979c - TX_FAR _CeruleanCityText17 - db $50 - -VermilionCityScript: ; 0x197a1 - call $3c3c - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - push hl - call nz, $57cb - pop hl - bit 5, [hl] - res 5, [hl] - call nz, $57c0 - ld hl, $57dc - ld a, [$d62a] - jp $3d97 -; 0x197c0 - -INCBIN "baserom.gbc",$197c0,$197dc - $197c0 - -VermilionCityScripts: ; 0x197dc - dw VermilionCityScript0, VermilionCityScript1 - -INCBIN "baserom.gbc",$197e0,$6 - -VermilionCityScript0: ; 0x197e6 - ld a, [$c109] - and a - ret nz - ld hl, $5823 - call $34bf - ret nc - xor a - ld [$ff00+$b4], a - ld [$cf0d], a - ld a, $3 - ld [$ff00+$8c], a - call $2920 - ld a, [$d803] - bit 2, a - jr nz, .asm_19810 ; 0x19804 $a - ld b, $3f - ld a, $1c - call Predef - ld a, b - and a - ret nz -.asm_19810 - ld a, $40 - ld [$ccd3], a - ld a, $1 - ld [$cd38], a - call $3486 - ld a, $1 - ld [$d62a], a - ret -; 0x19823 - -INCBIN "baserom.gbc",$19823,$1985f - $19823 - -VermilionCityScript1: ; 0x1985f - ld a, [$cd38] - and a - ret nz - ld c, $a - call $3739 - ld a, $0 - ld [$d62a], a - ret -; 0x1986f - -VermilionCityTexts: ; 0x1986f - dw VermilionCityText1, VermilionCityText2, VermilionCityText3, VermilionCityText4, VermilionCityText5, VermilionCityText6, VermilionCityText7, VermilionCityText8, VermilionCityText9, VermilionCityText10, VermilionCityText11, VermilionCityText12, VermilionCityText13 - -VermilionCityText1: ; 0x19889 - TX_FAR _VermilionCityText1 - db $50 - -VermilionCityText2: ; 0x1988e - db $08 ; asm - ld a, [$d803] - bit 2, a - jr nz, .asm_359bd ; 0x19894 - ld hl, $58a7 - call PrintText - jr .asm_735d9 ; 0x1989c -.asm_359bd ; 0x1989e - ld hl, $58ac - call PrintText -.asm_735d9 ; 0x198a4 - jp $24d7 - -INCBIN "baserom.gbc",$198a7,$198b1 - $198a7 - -VermilionCityText3: ; 0x198b1 - db $08 ; asm - ld a, [$d803] - bit 2, a - jr nz, .asm_3e0e9 ; 0x198b7 - ld a, [$c109] - cp $c - jr z, .asm_07af3 ; 0x198be - ld hl, $58ff - call $34bf - jr nc, .asm_57b73 ; 0x198c6 -.asm_07af3 ; 0x198c8 - ld hl, $5904 - call PrintText - jr .asm_79bd1 ; 0x198ce -.asm_57b73 ; 0x198d0 - ld hl, $5909 - call PrintText - ld b, $3f - ld a, $1c - call Predef - ld a, b - and a - jr nz, .asm_0419b ; 0x198df - ld hl, $5913 - call PrintText - jr .asm_79bd1 ; 0x198e7 -.asm_0419b ; 0x198e9 - ld hl, $590e - call PrintText - ld a, $4 - ld [$d62a], a - jr .asm_79bd1 ; 0x198f4 -.asm_3e0e9 ; 0x198f6 - ld hl, $5918 - call PrintText -.asm_79bd1 ; 0x198fc - jp $24d7 - -INCBIN "baserom.gbc",$198ff,$1e - -VermilionCityText4: ; 0x1991d - TX_FAR _VermilionCityText4 - db $50 - -VermilionCityText5: ; 0x19922 - TX_FAR _VermilionCityText5 - db $08 ; asm - ld a, $6a - call $13d0 - call $3748 - ld hl, $5933 - ret - -;db $17, $6b, $58, $29, $50 -INCBIN "baserom.gbc",$19933,$5 - -VermilionCityText6: ; 0x19938 - TX_FAR _VermilionCityText6 - db $50 - -VermilionCityText7: ; 0x1993d - TX_FAR _VermilionCityText7 - db $50 - -VermilionCityText8: ; 0x19942 - TX_FAR _VermilionCityText8 - db $50 - -VermilionCityText11: ; 0x19947 - TX_FAR _VermilionCityText11 - db $50 - -VermilionCityText12: ; 0x1994c - TX_FAR _VermilionCityText12 - db $50 - -VermilionCityText13: ; 0x19951 - TX_FAR _VermilionCityText13 - db $50 - -CeladonCityScript: ; 0x19956 - call $3c3c - ld hl, $d77e - res 0, [hl] - res 7, [hl] - ld hl, $d816 - res 7, [hl] - ret -; 0x19966 - -CeladonCityTexts: ; 0x19966 - dw CeladonCityText1, CeladonCityText2, CeladonCityText3, CeladonCityText4, CeladonCityText5, CeladonCityText6, CeladonCityText7, CeladonCityText8, CeladonCityText9, CeladonCityText10, CeladonCityText11, CeladonCityText12, CeladonCityText13, CeladonCityText14, CeladonCityText15, CeladonCityText16, CeladonCityText17, CeladonCityText18 - -CeladonCityText1: ; 0x1998a - TX_FAR _CeladonCityText1 - db $50 - -CeladonCityText2: ; 0x1998f - TX_FAR _CeladonCityText2 - db $50 - -CeladonCityText3: ; 0x19994 - TX_FAR _CeladonCityText3 - db $50 - -CeladonCityText4: ; 0x19999 - TX_FAR _CeladonCityText4 - db $50 - -CeladonCityText5: ; 0x1999e - db $08 ; asm - ld a, [$d777] - bit 0, a - jr nz, .asm_7053f ; 0x199a4 - ld hl, $59d2 - call PrintText - ld bc,(TM_41 << 8) | 1 - call $3e2e - jr c, .asm_890ec ; 0x199b2 - ld hl, $59e2 - call PrintText - jr .asm_c765a ; 0x199ba -.asm_890ec ; 0x199bc - ld hl, $59d7 - call PrintText - ld hl, $d777 - set 0, [hl] - jr .asm_c765a ; 0x199c7 -.asm_7053f ; 0x199c9 - ld hl, $59dd - call PrintText -.asm_c765a ; 0x199cf - jp $24d7 - -INCBIN "baserom.gbc",$199d2,$15 - -CeladonCityText6: ; 0x199e7 - TX_FAR _CeladonCityText6 - db $50 - -CeladonCityText7: ; 0x199ec - TX_FAR _CeladonCityText7 - db $08 ; asm - ld a, $6f - call $13d0 - jp $24d7 - -CeladonCityText8: ; 0x199f9 - TX_FAR _CeladonCityText8 - db $50 - -CeladonCityText9: ; 0x199fe - TX_FAR _CeladonCityText9 - db $50 - -CeladonCityText10: ; 0x19a03 - TX_FAR _CeladonCityText10 - db $50 - -CeladonCityText11: ; 0x19a08 - TX_FAR _CeladonCityText11 - db $50 - -CeladonCityText13: ; 0x19a0d - TX_FAR _CeladonCityText13 - db $50 - -CeladonCityText14: ; 0x19a12 - TX_FAR _CeladonCityText14 - db $50 - -CeladonCityText15: ; 0x19a17 - TX_FAR _CeladonCityText15 - db $50 - -CeladonCityText16: ; 0x19a1c - TX_FAR _CeladonCityText16 - db $50 - -CeladonCityText17: ; 0x19a21 - TX_FAR _CeladonCityText17 - db $50 - -CeladonCityText18: ; 0x19a26 - TX_FAR _CeladonCityText18 - db $50 - -FuchsiaCityScript: ; 0x19a2b - jp $3c3c -; 0x19a2e - -FuchsiaCityTexts: ; 0x19a2e - dw FuchsiaCityText1, FuchsiaCityText2, FuchsiaCityText3, FuchsiaCityText4, FuchsiaCityText5, FuchsiaCityText6, FuchsiaCityText7, FuchsiaCityText8, FuchsiaCityText9, FuchsiaCityText10, FuchsiaCityText11, FuchsiaCityText12, FuchsiaCityText13, FuchsiaCityText14, FuchsiaCityText15, FuchsiaCityText16, FuchsiaCityText17, FuchsiaCityText18, FuchsiaCityText19, FuchsiaCityText20, FuchsiaCityText21, FuchsiaCityText22, FuchsiaCityText23, FuchsiaCityText24 - -FuchsiaCityText1: ; 0x19a5e - TX_FAR _FuchsiaCityText1 - db $50 - -FuchsiaCityText2: ; 0x19a63 - TX_FAR _FuchsiaCityText2 - db $50 - -FuchsiaCityText3: ; 0x19a68 - TX_FAR _FuchsiaCityText3 - db $50 - -FuchsiaCityText4: ; 0x19a6d - TX_FAR _FuchsiaCityText4 - db $50 - -FuchsiaCityText5: ; 0x19a72 -FuchsiaCityText6: -FuchsiaCityText7: -FuchsiaCityText8: -FuchsiaCityText9: -FuchsiaCityText10: ; 0x19a72 - TX_FAR _FuchsiaCityText5 - db $50 - -FuchsiaCityText12: -FuchsiaCityText11: ; 0x19a77 - TX_FAR _FuchsiaCityText11 - db $50 - -FuchsiaCityText13: ; 0x19a7c - TX_FAR _FuchsiaCityText13 - db $50 - -FuchsiaCityText16: ; 0x19a81 - TX_FAR _FuchsiaCityText16 - db $50 - -FuchsiaCityText17: ; 0x19a86 - TX_FAR _FuchsiaCityText17 - db $50 - -FuchsiaCityText18: ; 0x19a8b - TX_FAR _FuchsiaCityText18 - db $50 - -FuchsiaCityText19: ; 0x19a90 - db $08 ; asm - ld hl, $5a9f - call PrintText - ld a, $28 - call $349b - jp $24d7 - -INCBIN "baserom.gbc",$19a9f,$19aa4 - $19a9f - -FuchsiaCityText20: ; 0x19aa4 - db $08 ; asm - ld hl, $5ab3 - call PrintText - ld a, $6 - call $349b - jp $24d7 - -INCBIN "baserom.gbc",$19ab3,$19ab8 - $19ab3 - -FuchsiaCityText21: ; 0x19ab8 - db $08 ; asm - ld hl, $5ac7 - call PrintText - ld a, $2 - call $349b - jp $24d7 - -INCBIN "baserom.gbc",$19ac7,$19acc - $19ac7 - -FuchsiaCityText22: ; 0x19acc - db $08 ; asm - ld hl, $5adb - call PrintText - ld a, $25 - call $349b - jp $24d7 - -INCBIN "baserom.gbc",$19adb,$19ae0 - $19adb - -FuchsiaCityText23: ; 0x19ae0 - db $08 ; asm - ld hl, $5aef - call PrintText - ld a, $13 - call $349b - jp $24d7 - -INCBIN "baserom.gbc",$19aef,$19af4 - $19aef - -FuchsiaCityText24: ; 0x19af4 - db $08 ; asm - ld a, [$d7f6] - bit 6, a - jr nz, .asm_3b4e8 ; 0x19afa - bit 7, a - jr nz, .asm_667d5 ; 0x19afe - ld hl, $5b2a - call PrintText - jr .asm_4343f ; 0x19b06 -.asm_3b4e8 ; 0x19b08 - ld hl, $5b20 - call PrintText - ld a, $62 - jr .asm_81556 ; 0x19b10 -.asm_667d5 ; 0x19b12 - ld hl, $5b25 - call PrintText - ld a, $5a -.asm_81556 ; 0x19b1a - call $349b -.asm_4343f ; 0x19b1d - jp $24d7 - -INCBIN "baserom.gbc",$19b20,$f - -BluesHouse_h: ; 0x19b2f - db $08 ; tileset - db $04,$04 ; dimensions - dw BluesHouseBlocks, BluesHouseTexts, BluesHouseScript - db 0 - dw BluesHouseObject - -BluesHouseScript: - call $3C3C - ld hl,BluesHouseScriptPointers - ld a,[$D5F3] - jp $3D97 - -BluesHouseScriptPointers: - dw BluesHouseScript1,BluesHouseScript2 - -BluesHouseScript1: - ld hl,$D74A - set 1,[hl] - - ; trigger the next script - ld a,1 - ld [$D5F3],a - ret - -BluesHouseScript2: - ret - -BluesHouseTexts: ; 0x19B57 - dw BluesHouseText1,BluesHouseText2,BluesHouseText3 - -BluesHouseText1: ; 5B5D 0x19B5D - db 8 - ld a,[$D74A] - bit 0,a - jr nz,.GotMap\@ - ld a,[$D74B] - bit 5,a - jr nz,.GiveMap\@ - ld hl,DaisyInitialText - call PrintText - jr .done\@ -.GiveMap\@ - ld hl,DaisyOfferMapText - call PrintText - ld bc,(TOWN_MAP << 8) | 1 - call $3E2E - jr nc,.BagFull\@ - ld a,$29 - ld [$CC4D],a - ld a,$11 - call Predef ; hide table map object - ld hl,GotMapText - call PrintText - ld hl,$D74A - set 0,[hl] - jr .done\@ -.GotMap\@ - ld hl,DaisyUseMapText - call PrintText - jr .done\@ -.BagFull\@ - ld hl,DaisyBagFullText - call PrintText -.done\@ - jp $24D7 - -DaisyInitialText: - TX_FAR _DaisyInitialText - db "@" -DaisyOfferMapText: - TX_FAR _DaisyOfferMapText - db "@" -GotMapText: - TX_FAR _GotMapText - db $11,"@" -DaisyBagFullText: - TX_FAR _DaisyBagFullText - db "@" -DaisyUseMapText: - TX_FAR _DaisyUseMapText - db "@" -BluesHouseText2: ; Daisy, walking around - TX_FAR _BluesHouseText2 - db "@" -BluesHouseText3: ; map on table - TX_FAR _BluesHouseText3 - db "@" - -BluesHouseObject: - db $0A ; border tile - - db 2 ; warps - db 7,2,1,$FF - db 7,3,1,$FF - - db 0 ; signs - - db 3 ; people - db $11,4+3,4+2,$FF,$D3,1 ; Daisy, sitting by map - db $11,4+4,4+6,$FE,1,ITEM|2,0 ; map on table - db $41,4+3,4+3,$FF,$FF,ITEM|3,0 ; Daisy, walking around - - ; warp-to - dw $C712 - db 7,2 - - dw $C712 - db 7,3 - -BluesHouseBlocks: - INCBIN "maps/blueshouse.blk" - -VermilionHouse3_h: ; 0x19c06 to 0x19c12 (12 bytes) (bank=6) (id=196) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw VermilionHouse3Blocks, VermilionHouse3Texts, VermilionHouse3Script ; blocks, texts, scripts - db $00 ; connections - - dw VermilionHouse3Object ; objects - -VermilionHouse3Script: ; 0x19c12 - jp $3c3c -; 0x19c15 - -VermilionHouse3Texts: ; 0x19c15 - dw VermilionHouse3Text1 - -VermilionHouse3Text1: ; 0x19c17 - db $08 ; asm - ld a, $4 - ld [W_WHICHTRADE], a - ld a, $54 - call Predef - jp $24d7 - -VermilionHouse3Object: ; 0x19c25 (size=26) - db $a ; border tile - - db $2 ; warps - db $7, $2, $7, $ff - db $7, $3, $7, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_LITTLE_GIRL, $5 + 4, $3 + 4, $ff, $d1, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -VermilionHouse3Blocks: ; 16 - INCBIN "maps/vermilionhouse3.blk" - -IndigoPlateauLobby_h: ; 0x19c4f to 0x19c5b (12 bytes) (bank=6) (id=174) - db $02 ; tileset - db $06, $08 ; dimensions (y, x) - dw IndigoPlateauLobbyBlocks, IndigoPlateauLobbyTexts, IndigoPlateauLobbyScript ; blocks, texts, scripts - db $00 ; connections - - dw IndigoPlateauLobbyObject ; objects - -IndigoPlateauLobbyScript: ; 0x19c5b - call $22fa - call $3c3c - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - ret z - ld hl, $d869 - res 7, [hl] - ld hl, $d734 - bit 1, [hl] - res 1, [hl] - ret z - ld hl, $d863 - xor a - ld [hli], a - ld [hli], a - ld [hli], a - ld [hl], a - ret -; 0x19c7f - -IndigoPlateauLobbyTexts: -INCBIN "baserom.gbc",$19c7f,$b - -IndigoPlateauLobbyText2: -IndigoPlateauLobbyText1: ; 0x19c8a - TX_FAR _IndigoPlateauLobbyText1 - db $50 - -INCBIN "baserom.gbc",$19c8f,$19c8f - $19c8f - -IndigoPlateauLobbyText3: ; 0x19c8f - TX_FAR _IndigoPlateauLobbyText3 - db $50 - -IndigoPlateauLobbyText5: - db $f6 - -IndigoPlateauLobbyObject: ; 0x19c95 (size=58) - db $0 ; border tile - - db $3 ; warps - db $b, $7, $0, $ff - db $b, $8, $1, $ff - db $0, $8, $0, LORELEIS_ROOM - - db $0 ; signs - - db $5 ; people - db SPRITE_NURSE, $5 + 4, $7 + 4, $ff, $d0, $1 ; person - db SPRITE_GYM_HELPER, $9 + 4, $4 + 4, $ff, $d3, $2 ; person - db SPRITE_LASS, $1 + 4, $5 + 4, $ff, $d0, $3 ; person - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $4 ; person - db SPRITE_CABLE_CLUB_WOMAN, $6 + 4, $d + 4, $ff, $d0, $5 ; person - - ; warp-to - EVENT_DISP $8, $b, $7 - EVENT_DISP $8, $b, $8 - EVENT_DISP $8, $0, $8 ; LORELEIS_ROOM - -IndigoPlateauLobbyBlocks: ; 48 - INCBIN "maps/indigoplateaulobby.blk" - -SilphCo4_h: ; 0x19cff to 0x19d0b (12 bytes) (bank=6) (id=209) - db $16 ; tileset - db $09, $0f ; dimensions (y, x) - dw SilphCo4Blocks, SilphCo4Texts, SilphCo4Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo4Object ; objects - -SilphCo4Script: ; 0x19d0b - call $5d21 - call $3c3c - ld hl, $5dae - ld de, $5d9a - ld a, [$d645] - call $3160 - ld [$d645], a - ret -; 0x19d21 - -INCBIN "baserom.gbc",$19d21,$7f - -SilphCo4Texts: ; 0x19da0 - dw SilphCo4Text1, SilphCo4Text2, SilphCo4Text3, SilphCo4Text4, SilphCo4Text5, SilphCo4Text6, SilphCo4Text7 - -INCBIN "baserom.gbc",$19dae,$25 - -SilphCo4Text1: ; 0x19dd3 - db $08 ; asm - ld hl, $5de0 - ld de, $5de5 - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$19de0,$19dea - $19de0 - -SilphCo4Text2: ; 0x19dea - db $08 ; asm - ld hl, $5dae - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$19df4,$19e03 - $19df4 - -SilphCo4Text3: ; 0x19e03 - db $08 ; asm - ld hl, $5dba - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$19e0d,$19e1c - $19e0d - -SilphCo4Text4: ; 0x19e1c - db $08 ; asm - ld hl, $5dc6 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$19e26,$f - -SilphCo4Object: ; 0x19e35 (size=111) - db $2e ; border tile - - db $7 ; warps - db $0, $18, $1, SILPH_CO_3F - db $0, $1a, $1, SILPH_CO_5F - db $0, $14, $0, SILPH_CO_ELEVATOR - db $7, $b, $3, SILPH_CO_10F - db $3, $11, $3, SILPH_CO_6F - db $f, $3, $4, SILPH_CO_10F - db $b, $11, $5, SILPH_CO_10F - - db $0 ; signs - - db $7 ; people - db SPRITE_LAPRAS_GIVER, $2 + 4, $6 + 4, $ff, $ff, $1 ; person - db SPRITE_ROCKET, $e + 4, $9 + 4, $ff, $d3, $42, ROCKET + $C8, $1a ; trainer - db SPRITE_OAK_AIDE, $6 + 4, $e + 4, $ff, $d2, $43, SCIENTIST + $C8, $5 ; trainer - db SPRITE_ROCKET, $a + 4, $1a + 4, $ff, $d1, $44, ROCKET + $C8, $1b ; trainer - db SPRITE_BALL, $9 + 4, $3 + 4, $ff, $ff, $85, FULL_HEAL ; item - db SPRITE_BALL, $7 + 4, $4 + 4, $ff, $ff, $86, MAX_REVIVE ; item - db SPRITE_BALL, $8 + 4, $5 + 4, $ff, $ff, $87, ESCAPE_ROPE ; item - - ; warp-to - EVENT_DISP $f, $0, $18 ; SILPH_CO_3F - EVENT_DISP $f, $0, $1a ; SILPH_CO_5F - EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR - EVENT_DISP $f, $7, $b ; SILPH_CO_10F - EVENT_DISP $f, $3, $11 ; SILPH_CO_6F - EVENT_DISP $f, $f, $3 ; SILPH_CO_10F - EVENT_DISP $f, $b, $11 ; SILPH_CO_10F - -SilphCo4Blocks: ; 135 - INCBIN "maps/silphco4.blk" - -SilphCo5_h: ; 0x19f2b to 0x19f37 (12 bytes) (bank=6) (id=210) - db $16 ; tileset - db $09, $0f ; dimensions (y, x) - dw SilphCo5Blocks, SilphCo5Texts, SilphCo5Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo5Object ; objects - -SilphCo5Script: ; 0x19f37 - call $5f4d - call $3c3c - ld hl, $5fd2 - ld de, $5fb6 - ld a, [$d646] - call $3160 - ld [$d646], a - ret -; 0x19f4d - -INCBIN "baserom.gbc",$19f4d,$6f - -SilphCo5Texts: ; 0x19fbc - dw SilphCo5Text1, SilphCo5Text2, SilphCo5Text3, SilphCo5Text4, SilphCo5Text5, SilphCo5Text6, SilphCo5Text7, SilphCo5Text8, SilphCo5Text9, SilphCo5Text10, SilphCo5Text11 - -INCBIN "baserom.gbc",$19fd2,$31 - -SilphCo5Text1: ; 0x1a003 - db $08 ; asm - ld hl, $6010 - ld de, $6015 - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$1a010,$1a01a - $1a010 - -SilphCo5Text2: ; 0x1a01a - db $08 ; asm - ld hl, $5fd2 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a024,$1a033 - $1a024 - -SilphCo5Text3: ; 0x1a033 - db $08 ; asm - ld hl, $5fde - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a03d,$1a04c - $1a03d - -SilphCo5Text4: ; 0x1a04c - db $08 ; asm - ld hl, $5fea - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a056,$1a065 - $1a056 - -SilphCo5Text5: ; 0x1a065 - db $08 ; asm - ld hl, $5ff6 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a06f,$f - -SilphCo5Text9: ; 0x1a07e - TX_FAR _SilphCo5Text9 - db $50 - -SilphCo5Text10: ; 0x1a083 - TX_FAR _SilphCo5Text10 - db $50 - -SilphCo5Text11: ; 0x1a088 - TX_FAR _SilphCo5Text11 - db $50 - -SilphCo5Object: ; 0x1a08d (size=137) - db $2e ; border tile - - db $7 ; warps - db $0, $18, $1, SILPH_CO_6F - db $0, $1a, $1, SILPH_CO_4F - db $0, $14, $0, SILPH_CO_ELEVATOR - db $3, $1b, $5, SILPH_CO_7F - db $f, $9, $4, SILPH_CO_9F - db $5, $b, $4, SILPH_CO_3F - db $f, $3, $5, SILPH_CO_3F - - db $0 ; signs - - db $b ; people - db SPRITE_LAPRAS_GIVER, $9 + 4, $d + 4, $ff, $ff, $1 ; person - db SPRITE_ROCKET, $10 + 4, $8 + 4, $ff, $d3, $42, ROCKET + $C8, $1c ; trainer - db SPRITE_OAK_AIDE, $3 + 4, $8 + 4, $ff, $d3, $43, SCIENTIST + $C8, $6 ; trainer - db SPRITE_ROCKER, $a + 4, $12 + 4, $ff, $d1, $44, JUGGLER + $C8, $1 ; trainer - db SPRITE_ROCKET, $4 + 4, $1c + 4, $ff, $d1, $45, ROCKET + $C8, $1d ; trainer - db SPRITE_BALL, $d + 4, $2 + 4, $ff, $ff, $86, TM_09 ; item - db SPRITE_BALL, $6 + 4, $4 + 4, $ff, $ff, $87, PROTEIN ; item - db SPRITE_BALL, $10 + 4, $15 + 4, $ff, $ff, $88, CARD_KEY ; item - db SPRITE_CLIPBOARD, $c + 4, $16 + 4, $ff, $ff, $9 ; person - db SPRITE_CLIPBOARD, $a + 4, $19 + 4, $ff, $ff, $a ; person - db SPRITE_CLIPBOARD, $6 + 4, $18 + 4, $ff, $ff, $b ; person - - ; warp-to - EVENT_DISP $f, $0, $18 ; SILPH_CO_6F - EVENT_DISP $f, $0, $1a ; SILPH_CO_4F - EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR - EVENT_DISP $f, $3, $1b ; SILPH_CO_7F - EVENT_DISP $f, $f, $9 ; SILPH_CO_9F - EVENT_DISP $f, $5, $b ; SILPH_CO_3F - EVENT_DISP $f, $f, $3 ; SILPH_CO_3F - -SilphCo5Blocks: ; 135 - INCBIN "maps/silphco5.blk" - -SilphCo6_h: ; 0x1a19d to 0x1a1a9 (12 bytes) (bank=6) (id=211) - db $16 ; tileset - db $09, $0d ; dimensions (y, x) - dw SilphCo6Blocks, SilphCo6Texts, SilphCo6Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo6Object ; objects - -SilphCo6Script: ; 0x1a1a9 - call $61bf - call $3c3c - ld hl, $620a - ld de, $61f0 - ld a, [$d647] - call $3160 - ld [$d647], a - ret -; 0x1a1bf - -INCBIN "baserom.gbc",$1a1bf,$37 - -SilphCo6Texts: ; 0x1a1f6 - dw SilphCo6Text1, SilphCo6Text2, SilphCo6Text3, SilphCo6Text4, SilphCo6Text5, SilphCo6Text6, SilphCo6Text7, SilphCo6Text8, SilphCo6Text9, SilphCo6Text10 - -INCBIN "baserom.gbc",$1a20a,$33 - -SilphCo6Text1: ; 0x1a23d - db $08 ; asm - ld hl, $624a - ld de, $624f - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$1a24a,$1a254 - $1a24a - -SilphCo6Text2: ; 0x1a254 - db $08 ; asm - ld hl, $6261 - ld de, $6266 - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$1a261,$1a26b - $1a261 - -SilphCo6Text3: ; 0x1a26b - db $08 ; asm - ld hl, $6278 - ld de, $627d - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$1a278,$1a282 - $1a278 - -SilphCo6Text4: ; 0x1a282 - db $08 ; asm - ld hl, $628f - ld de, $6294 - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$1a28f,$1a299 - $1a28f - -SilphCo6Text5: ; 0x1a299 - db $08 ; asm - ld hl, $62a6 - ld de, $62ab - call $622f - jp $24d7 - -INCBIN "baserom.gbc",$1a2a6,$1a2b0 - $1a2a6 - -SilphCo6Text6: ; 0x1a2b0 - db $08 ; asm - ld hl, $620a - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a2ba,$1a2c9 - $1a2ba - -SilphCo6Text7: ; 0x1a2c9 - db $08 ; asm - ld hl, $6216 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a2d3,$1a2e2 - $1a2d3 - -SilphCo6Text8: ; 0x1a2e2 - db $08 ; asm - ld hl, $6222 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$1a2ec,$f - -SilphCo6Object: ; 0x1a2fb (size=112) - db $2e ; border tile - - db $5 ; warps - db $0, $10, $1, SILPH_CO_7F - db $0, $e, $0, SILPH_CO_5F - db $0, $12, $0, SILPH_CO_ELEVATOR - db $3, $3, $4, SILPH_CO_4F - db $3, $17, $6, SILPH_CO_2F - - db $0 ; signs - - db $a ; people - db SPRITE_LAPRAS_GIVER, $6 + 4, $a + 4, $ff, $ff, $1 ; person - db SPRITE_LAPRAS_GIVER, $6 + 4, $14 + 4, $ff, $ff, $2 ; person - db SPRITE_ERIKA, $6 + 4, $15 + 4, $ff, $d0, $3 ; person - db SPRITE_ERIKA, $a + 4, $b + 4, $ff, $d3, $4 ; person - db SPRITE_LAPRAS_GIVER, $d + 4, $12 + 4, $ff, $d1, $5 ; person - db SPRITE_ROCKET, $3 + 4, $11 + 4, $ff, $d3, $46, ROCKET + $C8, $1e ; trainer - db SPRITE_OAK_AIDE, $8 + 4, $7 + 4, $ff, $d0, $47, SCIENTIST + $C8, $7 ; trainer - db SPRITE_ROCKET, $f + 4, $e + 4, $ff, $d2, $48, ROCKET + $C8, $1f ; trainer - db SPRITE_BALL, $c + 4, $3 + 4, $ff, $ff, $89, HP_UP ; item - db SPRITE_BALL, $f + 4, $2 + 4, $ff, $ff, $8a, X_ACCURACY ; item - - ; warp-to - EVENT_DISP $d, $0, $10 ; SILPH_CO_7F - EVENT_DISP $d, $0, $e ; SILPH_CO_5F - EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR - EVENT_DISP $d, $3, $3 ; SILPH_CO_4F - EVENT_DISP $d, $3, $17 ; SILPH_CO_2F - -SilphCo6Blocks: ; 117 - INCBIN "maps/silphco6.blk" - -INCBIN "baserom.gbc",$1a3e0,$1c20 - -SECTION "bank7",DATA,BANK[$7] - -CinnabarIsland_h: ; 0x1c000 to 0x1c022 (34 bytes) (bank=7) (id=8) - db $00 ; tileset - db $09, $0a ; dimensions (y, x) - dw CinnabarIslandBlocks, CinnabarIslandTexts, CinnabarIslandScript ; blocks, texts, scripts - db NORTH | EAST ; connections - - ; connections data - - db ROUTE_21 - dw $5211, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $59, $00 ; alignments (y, x) - dw $c9b9 ; window - - db ROUTE_20 - dw $417d, $c725 ; pointers (connected, current) (strip) - db $09, $32 ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c721 ; window - - ; end connection data - - dw CinnabarIslandObject ; objects - -CinnabarIslandObject: ; 0x1c022 (size=71) - db $43 ; border tile - - db $5 ; warps - db $3, $6, $1, MANSION_1 - db $3, $12, $0, CINNABAR_GYM - db $9, $6, $0, CINNABAR_LAB_1 - db $b, $b, $0, CINNABAR_POKECENTER - db $b, $f, $0, CINNABAR_MART - - db $5 ; signs - db $5, $9, $3 ; CinnabarIslandText3 - db $b, $10, $4 ; CinnabarIslandText4 - db $b, $c, $5 ; CinnabarIslandText5 - db $b, $9, $6 ; CinnabarIslandText6 - db $3, $d, $7 ; CinnabarIslandText7 - - db $2 ; people - db SPRITE_GIRL, $5 + 4, $c + 4, $fe, $2, $1 ; person - db SPRITE_GAMBLER, $6 + 4, $e + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $a, $3, $6 ; MANSION_1 - EVENT_DISP $a, $3, $12 ; CINNABAR_GYM - EVENT_DISP $a, $9, $6 ; CINNABAR_LAB_1 - EVENT_DISP $a, $b, $b ; CINNABAR_POKECENTER - EVENT_DISP $a, $b, $f ; CINNABAR_MART - -CinnabarIslandBlocks: ; 90 - INCBIN "maps/cinnabarisland.blk" - -Route1_h: ; 0x1c0c3 to 0x1c0e5 (34 bytes) (bank=7) (id=12) - db $00 ; tileset - db $12, $0a ; dimensions (y, x) - dw Route1Blocks, Route1Texts, Route1Script ; blocks, texts, scripts - db NORTH | SOUTH ; connections - - ; connections data - - db VIRIDIAN_CITY - dw $451a, $c6e8 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $23, $0a ; alignments (y, x) - dw $c8bd ; window - - db PALLET_TOWN - dw $42fd, $c83b ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route1Object ; objects - -Route1Object: ; 0x1c0e5 (size=19) - db $b ; border tile - - db $0 ; warps - - db $1 ; signs - db $1b, $9, $3 ; Route1Text3 - - db $2 ; people - db SPRITE_BUG_CATCHER, $18 + 4, $5 + 4, $fe, $1, $1 ; person - db SPRITE_BUG_CATCHER, $d + 4, $f + 4, $fe, $2, $2 ; person - -INCBIN "baserom.gbc",$1c0f8,$4 - -Route1Blocks: ; 180 - INCBIN "maps/route1.blk" - -UndergroundPathEntranceRoute8Blocks: ; 16 - INCBIN "maps/undergroundpathentranceroute8.blk" - -OaksLabBlocks: ; 30 - INCBIN "maps/oakslab.blk" - -Route16HouseBlocks: -Route2HouseBlocks: -SaffronHouse1Blocks: -SaffronHouse2Blocks: -VermilionHouse1Blocks: -NameRaterBlocks: -LavenderHouse1Blocks: -LavenderHouse2Blocks: -CeruleanHouse2Blocks: -PewterHouse1Blocks: -PewterHouse2Blocks: -ViridianHouseBlocks: ; 16 0x1c1de 41DE - INCBIN "maps/viridianhouse.blk" - -CeladonMansion5Blocks: -SchoolBlocks: ; 16 0x1c1ee 41EE - INCBIN "maps/school.blk" - -CeruleanHouseTrashedBlocks: ; 16 - INCBIN "maps/ceruleanhousetrashed.blk" - -DiglettsCaveEntranceRoute11Blocks: -DiglettsCaveRoute2Blocks: ; 16 - INCBIN "maps/diglettscaveroute2.blk" - -MonsterNames: ; 421E - db "RHYDON@@@@" - db "KANGASKHAN" - db "NIDORAN♂@@" - db "CLEFAIRY@@" - db "SPEAROW@@@" - db "VOLTORB@@@" - db "NIDOKING@@" - db "SLOWBRO@@@" - db "IVYSAUR@@@" - db "EXEGGUTOR@" - db "LICKITUNG@" - db "EXEGGCUTE@" - db "GRIMER@@@@" - db "GENGAR@@@@" - db "NIDORAN♀@@" - db "NIDOQUEEN@" - db "CUBONE@@@@" - db "RHYHORN@@@" - db "LAPRAS@@@@" - db "ARCANINE@@" - db "MEW@@@@@@@" - db "GYARADOS@@" - db "SHELLDER@@" - db "TENTACOOL@" - db "GASTLY@@@@" - db "SCYTHER@@@" - db "STARYU@@@@" - db "BLASTOISE@" - db "PINSIR@@@@" - db "TANGELA@@@" - db "MISSINGNO." - db "MISSINGNO." - db "GROWLITHE@" - db "ONIX@@@@@@" - db "FEAROW@@@@" - db "PIDGEY@@@@" - db "SLOWPOKE@@" - db "KADABRA@@@" - db "GRAVELER@@" - db "CHANSEY@@@" - db "MACHOKE@@@" - db "MR.MIME@@@" - db "HITMONLEE@" - db "HITMONCHAN" - db "ARBOK@@@@@" - db "PARASECT@@" - db "PSYDUCK@@@" - db "DROWZEE@@@" - db "GOLEM@@@@@" - db "MISSINGNO." - db "MAGMAR@@@@" - db "MISSINGNO." - db "ELECTABUZZ" - db "MAGNETON@@" - db "KOFFING@@@" - db "MISSINGNO." - db "MANKEY@@@@" - db "SEEL@@@@@@" - db "DIGLETT@@@" - db "TAUROS@@@@" - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "FARFETCH'D" - db "VENONAT@@@" - db "DRAGONITE@" - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "DODUO@@@@@" - db "POLIWAG@@@" - db "JYNX@@@@@@" - db "MOLTRES@@@" - db "ARTICUNO@@" - db "ZAPDOS@@@@" - db "DITTO@@@@@" - db "MEOWTH@@@@" - db "KRABBY@@@@" - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "VULPIX@@@@" - db "NINETALES@" - db "PIKACHU@@@" - db "RAICHU@@@@" - db "MISSINGNO." - db "MISSINGNO." - db "DRATINI@@@" - db "DRAGONAIR@" - db "KABUTO@@@@" - db "KABUTOPS@@" - db "HORSEA@@@@" - db "SEADRA@@@@" - db "MISSINGNO." - db "MISSINGNO." - db "SANDSHREW@" - db "SANDSLASH@" - db "OMANYTE@@@" - db "OMASTAR@@@" - db "JIGGLYPUFF" - db "WIGGLYTUFF" - db "EEVEE@@@@@" - db "FLAREON@@@" - db "JOLTEON@@@" - db "VAPOREON@@" - db "MACHOP@@@@" - db "ZUBAT@@@@@" - db "EKANS@@@@@" - db "PARAS@@@@@" - db "POLIWHIRL@" - db "POLIWRATH@" - db "WEEDLE@@@@" - db "KAKUNA@@@@" - db "BEEDRILL@@" - db "MISSINGNO." - db "DODRIO@@@@" - db "PRIMEAPE@@" - db "DUGTRIO@@@" - db "VENOMOTH@@" - db "DEWGONG@@@" - db "MISSINGNO." - db "MISSINGNO." - db "CATERPIE@@" - db "METAPOD@@@" - db "BUTTERFREE" - db "MACHAMP@@@" - db "MISSINGNO." - db "GOLDUCK@@@" - db "HYPNO@@@@@" - db "GOLBAT@@@@" - db "MEWTWO@@@@" - db "SNORLAX@@@" - db "MAGIKARP@@" - db "MISSINGNO." - db "MISSINGNO." - db "MUK@@@@@@@" - db "MISSINGNO." - db "KINGLER@@@" - db "CLOYSTER@@" - db "MISSINGNO." - db "ELECTRODE@" - db "CLEFABLE@@" - db "WEEZING@@@" - db "PERSIAN@@@" - db "MAROWAK@@@" - db "MISSINGNO." - db "HAUNTER@@@" - db "ABRA@@@@@@" - db "ALAKAZAM@@" - db "PIDGEOTTO@" - db "PIDGEOT@@@" - db "STARMIE@@@" - db "BULBASAUR@" - db "VENUSAUR@@" - db "TENTACRUEL" - db "MISSINGNO." - db "GOLDEEN@@@" - db "SEAKING@@@" - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "PONYTA@@@@" - db "RAPIDASH@@" - db "RATTATA@@@" - db "RATICATE@@" - db "NIDORINO@@" - db "NIDORINA@@" - db "GEODUDE@@@" - db "PORYGON@@@" - db "AERODACTYL" - db "MISSINGNO." - db "MAGNEMITE@" - db "MISSINGNO." - db "MISSINGNO." - db "CHARMANDER" - db "SQUIRTLE@@" - db "CHARMELEON" - db "WARTORTLE@" - db "CHARIZARD@" - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "MISSINGNO." - db "ODDISH@@@@" - db "GLOOM@@@@@" - db "VILEPLUME@" - db "BELLSPROUT" - db "WEEPINBELL" - db "VICTREEBEL" - -INCBIN "baserom.gbc",$1c98a,$1ca19 - $1c98a - -CinnabarIslandScript: ; 0x1ca19 - call $3c3c - ld hl, $d126 - set 5, [hl] - ld hl, $d796 - res 0, [hl] - ld hl, $d7a3 - res 1, [hl] - ld hl, $4a34 - ld a, [$d639] - jp $3d97 -; 0x1ca34 - -CinnabarIslandScripts: ; 0x1ca34 - dw CinnabarIslandScript0, CinnabarIslandScript1 - -CinnabarIslandScript0: ; 0x1ca38 - ld b, $2b - call $3493 - ret nz - ld a, [$d361] - cp $4 - ret nz - ld a, [$d362] - cp $12 - ret nz - ld a, $8 - ld [$d528], a - ld a, $8 - ld [$ff00+$8c], a - call $2920 - xor a - ld [$ff00+$b4], a - ld a, $1 - ld [$cd38], a - ld a, $80 - ld [$ccd3], a - call $3486 - xor a - ld [$c109], a - ld [$cd6b], a - ld a, $1 - ld [$d639], a - ret -; 0x1ca73 - -CinnabarIslandScript1: ; 0x1ca73 - ld a, [$cd38] - and a - ret nz - call Delay3 - ld a, $0 - ld [$d639], a - ret -; 0x1ca81 - -CinnabarIslandTexts: ; 0x1ca81 - dw CinnabarIslandText1, CinnabarIslandText2, CinnabarIslandText3, CinnabarIslandText4, CinnabarIslandText5, CinnabarIslandText6, CinnabarIslandText7, CinnabarIslandText8 - -CinnabarIslandText8: -INCBIN "baserom.gbc",$1ca91,$5 - -CinnabarIslandText1: ; 0x1ca96 - TX_FAR _CinnabarIslandText1 - db $50 - -CinnabarIslandText2: ; 0x1ca9b - TX_FAR _CinnabarIslandText2 - db $50 - -CinnabarIslandText3: ; 0x1caa0 - TX_FAR _CinnabarIslandText3 - db $50 - -CinnabarIslandText6: ; 0x1caa5 - TX_FAR _CinnabarIslandText6 - db $50 - -CinnabarIslandText7: ; 0x1caaa - TX_FAR _CinnabarIslandText7 - db $50 - -Route1Script: ; 0x1caaf - jp $3c3c -; 0x1cab2 - -Route1Texts: ; 0x1cab2 - dw Route1Text1, Route1Text2, Route1Text3 - -Route1Text1: ; 0x1cab8 - db $08 ; asm - ld hl, $d7bf - bit 0, [hl] - set 0, [hl] - jr nz, .asm_02840 ; 0x1cac0 - ld hl, $4ae3 - call PrintText - ld bc, (POTION << 8) | 1 - call $3e2e - jr nc, .asm_a630e ; 0x1cace - ld hl, $4ae8 - jr .asm_46d43 ; 0x1cad3 -.asm_a630e ; 0x1cad5 - ld hl, $4af3 - jr .asm_46d43 ; 0x1cad8 -.asm_02840 ; 0x1cada - ld hl, $4aee -.asm_46d43 ; 0x1cadd - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1cae3,$15 - -Route1Text2: ; 0x1caf8 - TX_FAR _Route1Text2 - db $50 - -Route1Text3: ; 0x1cafd - TX_FAR _Route1Text3 - db $50 - -OaksLab_h: ; 0x1cb02 to 0x1cb0e (12 bytes) (bank=7) (id=40) - db $05 ; tileset - db $06, $05 ; dimensions (y, x) - dw OaksLabBlocks, OaksLabTexts, OaksLabScript ; blocks, texts, scripts - db $00 ; connections - - dw OaksLabObject ; objects - -OaksLabScript: ; 0x1cb0e - ld a, [$d74b] - bit 6, a - call nz, $5076 - ld a, $1 - ld [$cf0c], a - xor a - ld [$cc3c], a - ld hl, $4b28 - ld a, [$d5f0] - jp $3d97 -; 0x1cb28 - -OaksLabScripts: ; 0x1cb28 - dw OaksLabScript0, OaksLabScript1, OaksLabScript2, OaksLabScript3, OaksLabScript4, OaksLabScript5, OaksLabScript6, OaksLabScript7 - -INCBIN "baserom.gbc",$1cb38,$16 - -OaksLabScript0: ; 0x1cb4e - ld a, [$d74b] - bit 7, a - ret z - ld a, [$cf10] - and a - ret nz - ld a, $31 - ld [$cc4d], a - ld a, $15 - call Predef - ld hl, $d72e - res 4, [hl] - ld a, $1 - ld [$d5f0], a - ret -; 0x1cb6e - -OaksLabScript1: ; 0x1cb6e - ld a, $8 - ld [$ff00+$8c], a - ld de, $4b7e - call $363a - ld a, $2 - ld [$d5f0], a - ret -; 0x1cb7e - -INCBIN "baserom.gbc",$1cb7e,$1cb82 - $1cb7e - -OaksLabScript2: ; 0x1cb82 - ld a, [$d730] - bit 0, a - ret nz - ld a, $31 - ld [$cc4d], a - ld a, $11 - call Predef - ld a, $2e - ld [$cc4d], a - ld a, $15 - call Predef - ld a, $3 - ld [$d5f0], a - ret -; 0x1cba2 - -OaksLabScript3: ; 0x1cba2 - call Delay3 - ld hl, $ccd3 - ld de, $4bcf - call $350c - dec a - ld [$cd38], a - call $3486 - ld a, $1 - ld [$ff00+$8c], a - xor a - ld [$ff00+$8d], a - call $34a6 - ld a, $5 - ld [$ff00+$8c], a - xor a - ld [$ff00+$8d], a - call $34a6 - ld a, $4 - ld [$d5f0], a - ret -; 0x1cbcf - -INCBIN "baserom.gbc",$1cbcf,$1cbd2 - $1cbcf - -OaksLabScript4: ; 0x1cbd2 - ld a, [$cd38] - and a - ret nz - ld hl, $d747 - set 0, [hl] - ld hl, $d74b - set 0, [hl] - ld a, $1 - ld [$ff00+$8c], a - ld a, $4 - ld [$ff00+$8d], a - call $34a6 - call $2429 - ld hl, $d733 - res 1, [hl] - call $2307 - ld a, $5 - ld [$d5f0], a - ret -; 0x1cbfd - -OaksLabScript5: ; 0x1cbfd - ld a, $fc - ld [$cd6b], a - ld a, $11 - ld [$ff00+$8c], a - call $2920 - call Delay3 - ld a, $12 - ld [$ff00+$8c], a - call $2920 - call Delay3 - ld a, $13 - ld [$ff00+$8c], a - call $2920 - call Delay3 - ld a, $14 - ld [$ff00+$8c], a - call $2920 - ld hl, $d74b - set 1, [hl] - xor a - ld [$cd6b], a - ld a, $6 - ld [$d5f0], a - ret -; 0x1cc36 - -OaksLabScript6: ; 0x1cc36 - ld a, [$d361] - cp $6 - ret nz - ld a, $5 - ld [$ff00+$8c], a - xor a - ld [$ff00+$8d], a - call $34a6 - ld a, $1 - ld [$ff00+$8c], a - xor a - ld [$ff00+$8d], a - call $34a6 - call $2429 - ld a, $c - ld [$ff00+$8c], a - call $2920 - ld a, $1 - ld [$cd38], a - ld a, $40 - ld [$ccd3], a - call $3486 - ld a, $8 - ld [$d528], a - ld a, $7 - ld [$d5f0], a - ret -; 0x1cc72 - -OaksLabScript7: ; 0x1cc72 - ld a, [$cd38] - and a - ret nz - call Delay3 - ld a, $6 - ld [$d5f0], a - ret -; 0x1cc80 - -INCBIN "baserom.gbc",$1cc80,$402 - -OaksLabTexts: ; 0x1d082 - dw OaksLabText1, OaksLabText2, OaksLabText3, OaksLabText4, OaksLabText5, OaksLabText6, OaksLabText7, OaksLabText8, OaksLabText9, OaksLabText10, OaksLabText11, OaksLabText12, OaksLabText13, OaksLabText14, OaksLabText15, OaksLabText16, OaksLabText17, OaksLabText18, OaksLabText19, OaksLabText20, OaksLabText21, OaksLabText22, OaksLabText23, OaksLabText24, OaksLabText25, OaksLabText26, OaksLabText27 - -INCBIN "baserom.gbc",$1d0b8,22 - -OaksLabText1: ; 0x1d0ce - db $08 ; asm - ld a, [$d74b] - bit 0, a - jr nz, .asm_6a7a2 ; 0x1d0d4 - ld hl, $50f3 - call PrintText - jr .asm_ff2ed ; 0x1d0dc -.asm_6a7a2 ; 0x1d0de - bit 2, a - jr nz, .asm_56780 ; 0x1d0e0 - ld hl, $50f8 - call PrintText - jr .asm_ff2ed ; 0x1d0e8 -.asm_56780 ; 0x1d0ea - ld hl, $50fd - call PrintText -.asm_ff2ed ; 0x1d0f0 - jp $24d7 - -INCBIN "baserom.gbc",$1d0f3,$1d102 - $1d0f3 - -OaksLabText2: ; 0x1d102 - db $8 - ld a, $b1 - ld [$cd3d], a - ld a, $3 - ld [$cd3e], a - ld a, $b0 - ld b, $2 - jr asm_5e6bb ; 0x1d111 $20 - -OaksLabText3: ; 0x1d113 - db $8 - ld a, $99 - ld [$cd3d], a - ld a, $4 - ld [$cd3e], a - ld a, $b1 - ld b, $3 - jr asm_5e6bb ; 0x1d122 $f - -OaksLabText4: ; 0x1d124 - db $8 - ld a, $b0 - ld [$cd3d], a - ld a, $2 - ld [$cd3e], a - ld a, $99 - ld b, $4 - -asm_5e6bb: ; 0x1d133 - ld [$cf91], a - ld [$d11e], a - ld a, b - ld [$cf13], a - ld a, [$d74b] - bit 2, a - jp nz, $522d - bit 1, a - jr nz, asm_9eaa4 ; 0x1d147 $e - ld hl, $5152 - call PrintText - jp $24d7 -; 0x1d152 - -;XXX which text is this? -db $17, $df, $4d, $25, $50 - -asm_9eaa4: ; 0x1d157 - ld a, $5 - ld [$ff00+$8c], a - ld a, $9 - ld [$ff00+$8b], a - call $34fc - ld [hl], $0 - ; manually fixed some disassembler issues around here - ld a, $1 - ld [$FF8c], a - ld a, $9 - ld [$ff00+$8b], a - call $34fc - ld [hl], $c - ld hl, $d730 - set 6, [hl] - ld a, $46 - call Predef - ld hl, $d730 - res 6, [hl] - call $3071 - ld c, $a - call $3739 - ld a, [$cf13] - cp $2 - jr z, asm_f6e3a ; 0x1d18d $6 - cp $3 - jr z, asm_2391d ; 0x1d191 $c - jr asm_ddec1 ; 0x1d193 $14 -asm_f6e3a: ; 0x1d195 - ld hl, $519a - jr asm_b5ddf ; 0x1d198 $19 - rla ; probably a TX_FAR - ld b, $4e - dec h - ld d, b -asm_2391d: ; 0x1d19f - ld hl, $51a4 - jr asm_b5ddf ; 0x1d1a2 $f - rla ; probably a TX_FAR - cpl - ld c, [hl] - dec h - ld d, b -asm_ddec1: ; 0x1d1a9 - ld hl, $51ae - jr asm_b5ddf ; 0x1d1ac $5 - rla ; probably a TX_FAR - ld d, a - ld c, [hl] - dec h - ld d, b -asm_b5ddf: ; 0x1d1b3 - call PrintText - ld a, $1 - ld [$cc3c], a - call $35ec - ld a, [$cc26] - and a - jr nz, asm_6ccd7 ; 0x1d1c2 $5b - ld a, [$cf91] - ld [$d717], a - ld [$d11e], a - call GetMonName - ld a, [$cf13] - cp $2 - jr nz, asm_5b538 ; 0x1d1d5 $4 - ld a, $2b - jr asm_03e85 ; 0x1d1d9 $a -asm_5b538: ; 0x1d1db - cp $3 - jr nz, asm_f8b3f ; 0x1d1dd $4 - ld a, $2c - jr asm_03e85 ; 0x1d1e1 $2 -asm_f8b3f: ; 0x1d1e3 - ld a, $2d -asm_03e85: ; 0x1d1e5 - ld [$cc4d], a - ld a, $11 - call Predef - ld a, $1 - ld [$cc3c], a - ld hl, $5222 - call PrintText - ld hl, $5227 - call PrintText - xor a - ld [$cc49], a - ld a, $5 - ld [$d127], a - ld a, [$cf91] - ld [$d11e], a - call AddPokemonToParty - ld hl, $d72e - set 3, [hl] - ld a, $fc - ld [$cd6b], a - ld a, $8 - ld [$d5f0], a -asm_6ccd7: ; 0x1d21f - jp $24d7 -; 0x1d222 - -INCBIN "baserom.gbc",$1d222,$26 - -OaksLabText5: ; 0x1d248 - db $08 ; asm - ld a, [$d747] - bit 6, a - jr nz, .asm_50e81 ; 0x1d24e - ld hl, $d2f7 - ld b, $13 - call $2b7f - ld a, [$d11e] - cp $2 - jr c, .asm_b28b0 ; 0x1d25d - ld a, [$d74b] - bit 5, a - jr z, .asm_b28b0 ; 0x1d264 -.asm_50e81 ; 0x1d266 - ld hl, $531d - call PrintText - ld a, $1 - ld [$cc3c], a - ld a, $56 - call Predef - jp $52ed -.asm_b28b0 ; 0x1d279 - ld b,POKE_BALL - call $3493 - jr nz, .asm_17c30 ; 0x1d27e - ld a, [$d7eb] - bit 5, a - jr nz, .asm_f1adc ; 0x1d285 - ld a, [$d74b] - bit 5, a - jr nz, .asm_333a2 ; 0x1d28c - bit 3, a - jr nz, .asm_76269 ; 0x1d290 - ld a, [$d72e] - bit 3, a - jr nz, .asm_4a5e0 ; 0x1d297 - ld hl, $52f0 - call PrintText - jr .asm_0f042 ; 0x1d29f -.asm_4a5e0 ; 0x1d2a1 - ld hl, $52f5 - call PrintText - jr .asm_0f042 ; 0x1d2a7 -.asm_76269 ; 0x1d2a9 - ld b,OAKS_PARCEL - call $3493 - jr nz, .asm_a8fcf ; 0x1d2ae - ld hl, $52fa - call PrintText - jr .asm_0f042 ; 0x1d2b6 -.asm_a8fcf ; 0x1d2b8 - ld hl, $52ff - call PrintText - call $500a - ld a, $f - ld [$d5f0], a - jr .asm_0f042 ; 0x1d2c6 -.asm_333a2 ; 0x1d2c8 - ld hl, $5309 - call PrintText - jr .asm_0f042 ; 0x1d2ce -.asm_f1adc ; 0x1d2d0 - ld hl, $d74b - bit 4, [hl] - set 4, [hl] - jr nz, .asm_17c30 ; 0x1d2d7 - ld bc, (POKE_BALL << 8) | 5 - call $3e2e - ld hl, $530e - call PrintText - jr .asm_0f042 ; 0x1d2e5 -.asm_17c30 ; 0x1d2e7 - ld hl, $5318 - call PrintText -.asm_0f042 ; 0x1d2ed - jp $24d7 -; 0x1d2f0 - -INCBIN "baserom.gbc",$1d2f0,$32 - -OaksLabText7: ; 0x1d322 -OaksLabText6: ; 0x1d322 - db $08 ; asm - ld hl, $532c - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1d32c,$5 - -OaksLabText8: ; 0x1d331 - TX_FAR _OaksLabText8 - db $50 - -OaksLabText9: ; 0x1d336 - db $08 ; asm - ld hl, $5340 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1d340,$1d345 - $1d340 - -OaksLabText17: ; 0x1d345 - db $8 - ld hl, $534f - call PrintText - jp $24d7 -; 0x1d34f - -INCBIN "baserom.gbc",$1d34f,$1d354 - $1d34f - -OaksLabText18: ; 0x1d354 - db $8 - ld hl, $535e - call PrintText - jp $24d7 -; 0x1d35e - -INCBIN "baserom.gbc",$1d35e,$1d363 - $1d35e - -OaksLabText19: ; 0x1d363 - db $8 - ld hl, $536d - call PrintText - jp $24d7 -; 0x1d36d - -INCBIN "baserom.gbc",$1d36d,$1d372 - $1d36d - -OaksLabText20: ; 0x1d372 - db $8 - ld hl, $537c - call PrintText - jp $24d7 -; 0x1d37c - -INCBIN "baserom.gbc",$1d37c,$1d381 - $1d37c - -OaksLabText12: ; 0x1d381 -INCBIN "baserom.gbc",$1d381,$5 - -INCBIN "baserom.gbc",$1d386,$1d390 - $1d386 - -OaksLabText13: ; 0x1d390 -INCBIN "baserom.gbc",$1d390,$5 - -INCBIN "baserom.gbc",$1d395,$1d39f - $1d395 - -OaksLabText14: ; 0x1d39f - db $8 - ld hl, $53a9 - call PrintText - jp $24d7 -; 0x1d3a9 - -INCBIN "baserom.gbc",$1d3a9,$1d3af - $1d3a9 - -OaksLabText15: ; 0x1d3af to 0x1d3b9 - db $8 - ld hl, $53b9 - call PrintText - jp $24d7 -; 0x1d3b9 - -INCBIN "baserom.gbc",$1d3b9,$1d3c8 - $1d3b9 - -OaksLabText16: ; 0x1d3c8 - db $8 - ld hl, $53d2 - call PrintText - jp $24d7 -; 0x1d3d2 - -INCBIN "baserom.gbc",$1d3d2,$1d3d7 - $1d3d2 - -OaksLabText21: ; 0x1d3d7 -INCBIN "baserom.gbc",$1d3d7,$5 - -OaksLabText22: ; 0x1d3dc -INCBIN "baserom.gbc",$1d3dc,$5 - -OaksLabText23: ; 0x1d3e1 -INCBIN "baserom.gbc",$1d3e1,$5 - -OaksLabText24: ; 0x1d3e6 -INCBIN "baserom.gbc",$1d3e6,$5 - -OaksLabText25: ; 0x1d3eb -INCBIN "baserom.gbc",$1d3eb,$4 - db $11 - db $50 - -OaksLabText26: ; 0x1d3f1 -INCBIN "baserom.gbc",$1d3f1,$1d3f6 - $1d3f1 - -OaksLabText27: ; 0x1d3f6 -INCBIN "baserom.gbc",$1d3f6,5 - -OaksLabText11: -OaksLabText10: ; 0x1d3fb - db $08 ; asm - ld hl, $5405 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1d405,$5 - -OaksLabObject: ; 0x1d40a (size=88) - db $3 ; border tile - - db $2 ; warps - db $b, $4, $2, $ff - db $b, $5, $2, $ff - - db $0 ; signs - - db $b ; people - db SPRITE_BLUE, $3 + 4, $4 + 4, $ff, $ff, $41, SONY1 + $C8, $1 ; trainer - db SPRITE_BALL, $3 + 4, $6 + 4, $ff, $ff, $2 ; person - db SPRITE_BALL, $3 + 4, $7 + 4, $ff, $ff, $3 ; person - db SPRITE_BALL, $3 + 4, $8 + 4, $ff, $ff, $4 ; person - db SPRITE_OAK, $2 + 4, $5 + 4, $ff, $d0, $5 ; person - db SPRITE_BOOK_MAP_DEX, $1 + 4, $2 + 4, $ff, $ff, $6 ; person - db SPRITE_BOOK_MAP_DEX, $1 + 4, $3 + 4, $ff, $ff, $7 ; person - db SPRITE_OAK, $a + 4, $5 + 4, $ff, $d1, $8 ; person - db SPRITE_GIRL, $9 + 4, $1 + 4, $fe, $1, $9 ; person - db SPRITE_OAK_AIDE, $a + 4, $2 + 4, $ff, $ff, $a ; person - db SPRITE_OAK_AIDE, $a + 4, $8 + 4, $ff, $ff, $b ; person - - ; warp-to - EVENT_DISP $5, $b, $4 - EVENT_DISP $5, $b, $5 - -ViridianMart_h: ; 0x1d462 to 0x1d46e (12 bytes) (bank=7) (id=42) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw ViridianMartBlocks, ViridianMartTexts, ViridianMartScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianMartObject ; objects - -ViridianMartScript: ; 0x1d46e - call $547d - call $3c3c - ld hl, $5495 - ld a, [$d60d] - jp $3d97 -; 0x1d47d - -INCBIN "baserom.gbc",$1d47d,$1e - -ViridianMartScript0: ; 0x1d49b - call $2429 - ld a, $4 - ld [$ff00+$8c], a - call $2920 - ld hl, $ccd3 - ld de, $54bb - call $350c - dec a - ld [$cd38], a - call $3486 - ld a, $1 - ld [$d60d], a - ret -; 0x1d4bb - -INCBIN "baserom.gbc",$1d4bb,$1d4c0 - $1d4bb - -ViridianMartScript1: ; 0x1d4c0 - ld a, [$cd38] - and a - ret nz - call Delay3 - ld a, $5 - ld [$ff00+$8c], a - call $2920 - ld bc, $4601 - call GiveItem - ld hl, $d74e - set 1, [hl] - ld a, $2 - ld [$d60d], a - ret -; 0x1d4e0 - -ViridianMartTexts: ; 0x1d4e0 - dw ViridianMartText1, ViridianMartText2, ViridianMartText3 ;, ViridianMartText4 - -INCBIN "baserom.gbc",$1d4e6,$a - -ViridianMartText1: ; 0x1d4f0 - TX_FAR _ViridianMartText1 - db $50 - -INCBIN "baserom.gbc",$1d4f5,$1d500 - $1d4f5 - -ViridianMartText2: ; 0x1d500 - TX_FAR _ViridianMartText2 - db $50 - -ViridianMartText3: ; 0x1d505 - TX_FAR _ViridianMartText3 - db $50 - -ViridianMartObject: ; 0x1d50a (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $1, $ff - db $7, $4, $1, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_BUG_CATCHER, $5 + 4, $5 + 4, $fe, $1, $2 ; person - db SPRITE_BLACK_HAIR_BOY_1, $3 + 4, $3 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -ViridianMartBlocks: ; 16 - INCBIN "maps/viridianmart.blk" - -School_h: ; 0x1d540 to 0x1d54c (12 bytes) (bank=7) (id=43) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw SchoolBlocks, SchoolTexts, SchoolScript ; blocks, texts, scripts - db $00 ; connections - - dw SchoolObject ; objects - -SchoolScript: ; 0x1d54c - jp $3c3c -; 0x1d54f - -SchoolTexts: ; 0x1d54f - dw SchoolText1, SchoolText2 - -SchoolText1: ; 0x1d553 - TX_FAR _SchoolText1 - db $50 - -SchoolText2: ; 0x1d558 - TX_FAR _SchoolText2 - db $50 - -SchoolObject: ; 0x1d55d (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $2, $ff - db $7, $3, $2, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_BRUNETTE_GIRL, $5 + 4, $3 + 4, $ff, $d1, $1 ; person - db SPRITE_LASS, $1 + 4, $4 + 4, $ff, $d0, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -ViridianHouse_h: ; 0x1d57d to 0x1d589 (12 bytes) (bank=7) (id=44) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw ViridianHouseBlocks, ViridianHouseTexts, ViridianHouseScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianHouseObject ; objects - -INCBIN "baserom.gbc",$1d589,$1d58a - $1d589 - -ViridianHouseScript: ; 0x1d58a - jp $3c3c -; 0x1d58d - -ViridianHouseTexts: ; 0x1d58d - dw ViridianHouseText1, ViridianHouseText2, ViridianHouseText3, ViridianHouseText4 - -ViridianHouseText1: ; 0x1d595 - TX_FAR _ViridianHouseText1 - db $50 - -ViridianHouseText2: ; 0x1d59a - TX_FAR _ViridianHouseText2 - db $50 - -ViridianHouseText3: ; 0x1d59f - db $08 ; asm - ld hl, $55b1 - call PrintText - ld a,SPEAROW - call $13d0 - call $3748 - jp $24d7 - -INCBIN "baserom.gbc",$1d5b1,$5 - -ViridianHouseText4: ; 0x1d5b6 - TX_FAR _ViridianHouseText4 - db $50 - -ViridianHouseObject: ; 0x1d5bb (size=44) - db $a ; border tile - - db $2 ; warps - db $7, $2, $3, $ff - db $7, $3, $3, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_BALDING_GUY, $3 + 4, $5 + 4, $ff, $ff, $1 ; person - db SPRITE_LITTLE_GIRL, $4 + 4, $1 + 4, $fe, $1, $2 ; person - db SPRITE_BIRD, $5 + 4, $5 + 4, $fe, $2, $3 ; person - db SPRITE_CLIPBOARD, $0 + 4, $4 + 4, $ff, $ff, $4 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -PewterHouse1_h: ; 0x1d5e7 to 0x1d5f3 (12 bytes) (bank=7) (id=55) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw PewterHouse1Blocks, PewterHouse1Texts, PewterHouse1Script ; blocks, texts, scripts - db $00 ; connections - - dw PewterHouse1Object ; objects - -PewterHouse1Script: ; 0x1d5f3 - jp $3c3c -; 0x1d5f6 - -PewterHouse1Texts: ; 0x1d5f6 - dw PewterHouse1Text1, PewterHouse1Text2, PewterHouse1Text3 - -PewterHouse1Text1: ; 0x1d5fc - TX_FAR _PewterHouse1Text1 - db $08 ; asm - ld a, $3 - call $13d0 - call $3748 - jp $24d7 - -PewterHouse1Text2: ; 0x1d60c - TX_FAR _PewterHouse1Text2 - db $50 - -PewterHouse1Text3: ; 0x1d611 - TX_FAR _PewterHouse1Text3 - db $50 - -PewterHouse1Object: ; 0x1d616 (size=38) - db $a ; border tile - - db $2 ; warps - db $7, $2, $3, $ff - db $7, $3, $3, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_SLOWBRO, $5 + 4, $4 + 4, $ff, $d2, $1 ; person - db SPRITE_YOUNG_BOY, $5 + 4, $3 + 4, $ff, $d3, $2 ; person - db SPRITE_FAT_BALD_GUY, $2 + 4, $1 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -PewterHouse2_h: ; 0x1d63c to 0x1d648 (12 bytes) (bank=7) (id=57) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw PewterHouse2Blocks, PewterHouse2Texts, PewterHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw PewterHouse2Object ; objects - -PewterHouse2Script: ; 0x1d648 - jp $3c3c -; 0x1d64b - -PewterHouse2Texts: ; 0x1d64b - dw PewterHouse2Text1, PewterHouse2Text2 - -PewterHouse2Text1: ; 0x1d64f - TX_FAR _PewterHouse2Text1 - db $50 - -PewterHouse2Text2: ; 0x1d654 - TX_FAR _PewterHouse2Text2 - db $50 - -PewterHouse2Object: ; 0x1d659 (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $5, $ff - db $7, $3, $5, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_GAMBLER, $3 + 4, $2 + 4, $ff, $d3, $1 ; person - db SPRITE_BUG_CATCHER, $5 + 4, $4 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -CeruleanHouseTrashed_h: ; 0x1d679 to 0x1d685 (12 bytes) (bank=7) (id=62) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw CeruleanHouseTrashedBlocks, CeruleanHouseTrashedTexts, CeruleanHouseTrashedScript ; blocks, texts, scripts - db $00 ; connections - - dw CeruleanHouseTrashedObject ; objects - -CeruleanHouseTrashedScript: ; 0x1d685 - call $3c3c - ret -; 0x1d689 - -CeruleanHouseTrashedTexts: ; 0x1d689 - dw CeruleanHouseTrashedText1, CeruleanHouseTrashedText2, CeruleanHouseTrashedText3 - -CeruleanHouseTrashedText1: ; 0x1d68f - db $08 ; asm - ld b, $e4 - ld a, $1c - call Predef - and b - jr z, .asm_f8734 ; 0x1d698 - ld hl, $56b0 - call PrintText - jr .asm_8dfe9 ; 0x1d6a0 -.asm_f8734 ; 0x1d6a2 - ld hl, $56ab - call PrintText -.asm_8dfe9 ; 0x1d6a8 - jp $24d7 - -INCBIN "baserom.gbc",$1d6ab,$a - -CeruleanHouseTrashedText2: ; 0x1d6b5 - TX_FAR _CeruleanHouseTrashedText2 - db $50 - -CeruleanHouseTrashedText3: ; 0x1d6ba - TX_FAR _CeruleanHouseTrashedText3 - db $50 - -CeruleanHouseTrashedObject: ; 0x1d6bf (size=43) - db $a ; border tile - - db $3 ; warps - db $7, $2, $0, $ff - db $7, $3, $0, $ff - db $0, $3, $7, $ff - - db $1 ; signs - db $0, $3, $3 ; CeruleanHouseTrashedText3 - - db $2 ; people - db SPRITE_FISHER, $1 + 4, $2 + 4, $ff, $d0, $1 ; person - db SPRITE_GIRL, $6 + 4, $5 + 4, $fe, $2, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $0, $3 - -CeruleanHouse2_h: ; 0x1d6ea to 0x1d6f6 (12 bytes) (bank=7) (id=63) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw CeruleanHouse2Blocks, CeruleanHouse2Texts, CeruleanHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw CeruleanHouse2Object ; objects - -CeruleanHouse2Script: ; 0x1d6f6 - jp $3c3c -; 0x1d6f9 - -CeruleanHouse2Texts: ; 0x1d6f9 - dw CeruleanHouse2Text1, CeruleanHouse2Text2 - -CeruleanHouse2Text1: ; 0x1d6fd - TX_FAR _CeruleanHouse2Text1 - db $50 - -CeruleanHouse2Text2: ; 0x1d702 - db $08 ; asm - ld a, $6 - ld [W_WHICHTRADE], a - ld a, $54 - call Predef - jp $24d7 - -CeruleanHouse2Object: ; 0x1d710 (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $1, $ff - db $7, $3, $1, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_OLD_MEDIUM_WOMAN, $4 + 4, $5 + 4, $ff, $d2, $1 ; person - db SPRITE_GAMBLER, $2 + 4, $1 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -BikeShop_h: ; 0x1d730 to 0x1d73c (12 bytes) (bank=7) (id=66) - db $15 ; tileset - db $04, $04 ; dimensions (y, x) - dw BikeShopBlocks, BikeShopTexts, BikeShopScript ; blocks, texts, scripts - db $00 ; connections - - dw BikeShopObject ; objects - -BikeShopScript: ; 0x1d73c - jp $3c3c -; 0x1d73f - -BikeShopTexts: ; 0x1d73f - dw BikeShopText1, BikeShopText2, BikeShopText3 - -BikeShopText1: ; 0x1d745 - db $08 ; asm - ld a, [$d75f] - bit 0, a - jr z, .asm_260d4 ; 0x1d74b - ld hl, $582f - call PrintText - jp $57f5 -.asm_260d4 ; 0x1d756 - ld b,BIKE_VOUCHER - call $3493 - jr z, .asm_41190 ; 0x1d75b - ld hl, $581f - call PrintText - ld bc,(BICYCLE << 8) | 1 - call $3e2e - jr nc, .asm_d0d90 ; 0x1d769 - ld a, $2d - ldh [$db], a - ld b, $5 ; BANK(MyFunction) - ld hl, $7f37 ; MyFunction - call Bankswitch - ld hl, $d75f - set 0, [hl] - ld hl, $5824 - call PrintText - jr .asm_99ef2 ; 0x1d782 -.asm_d0d90 ; 0x1d784 - ld hl, $5834 - call PrintText - jr .asm_99ef2 ; 0x1d78a -.asm_41190 ; 0x1d78c - ld hl, $5810 - call PrintText - xor a - ld [$cc26], a - ld [$cc2a], a - ld a, $3 - ld [$cc29], a - ld a, $1 - ld [$cc28], a - ld a, $2 - ld [$cc24], a - ld a, $1 - ld [$cc25], a - ld hl, $d730 - set 6, [hl] - ld hl, $c3a0 - ld b, $4 - ld c, $f - call $1922 - call $2429 - ld hl, $c3ca - ld de, $57f8 - call $1955 - ld hl, $c3e4 - ld de, $5807 - call $1955 - ld hl, $5815 - call PrintText - call $3abe - bit 1, a - jr nz, .asm_b7579 ; 0x1d7dc - ld hl, $d730 - res 6, [hl] - ld a, [$cc26] - and a - jr nz, .asm_b7579 ; 0x1d7e7 - ld hl, $581a - call PrintText -.asm_b7579 ; 0x1d7ef - ld hl, $582a - call PrintText -.asm_99ef2 ; 0x1d7f5 - jp $24d7 - -INCBIN "baserom.gbc",$1d7f8,$1d839 - $1d7f8 - -BikeShopText2: ; 0x1d839 - db $08 ; asm - ld hl, $5843 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1d843,$1d848 - $1d843 - -BikeShopText3: ; 0x1d848 - db $08 ; asm - ld a, [$d75f] - bit 0, a - ld hl, $5861 - jr nz, .asm_34d2d ; 0x1d851 - ld hl, $585c -.asm_34d2d ; 0x1d856 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1d85c,$a - -BikeShopObject: ; 0x1d866 (size=38) - db $e ; border tile - - db $2 ; warps - db $7, $2, $4, $ff - db $7, $3, $4, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_BIKE_SHOP_GUY, $2 + 4, $6 + 4, $ff, $ff, $1 ; person - db SPRITE_MOM_GEISHA, $6 + 4, $5 + 4, $fe, $1, $2 ; person - db SPRITE_BUG_CATCHER, $3 + 4, $1 + 4, $ff, $d1, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -BikeShopBlocks: ; 16 - INCBIN "maps/bikeshop.blk" - -LavenderHouse1_h: ; 0x1d89c to 0x1d8a8 (12 bytes) (bank=7) (id=149) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw LavenderHouse1Blocks, LavenderHouse1Texts, LavenderHouse1Script ; blocks, texts, scripts - db $00 ; connections - - dw LavenderHouse1Object ; objects - -LavenderHouse1Script: ; 0x1d8a8 - call $3c3c - ret -; 0x1d8ac - -LavenderHouse1Texts: ; 0x1d8ac - dw LavenderHouse1Text1, LavenderHouse1Text2, LavenderHouse1Text3, LavenderHouse1Text4, LavenderHouse1Text5, LavenderHouse1Text6 - -LavenderHouse1Text1: ; 0x1d8b8 - db $08 ; asm - ld a, [$d7e0] - bit 7, a - jr nz, .asm_72e5d ; 0x1d8be - ld hl, $58d1 - call PrintText - jr .asm_6957f ; 0x1d8c6 -.asm_72e5d ; 0x1d8c8 - ld hl, $58d6 - call PrintText -.asm_6957f ; 0x1d8ce - jp $24d7 - -INCBIN "baserom.gbc",$1d8d1,$1d8db - $1d8d1 - -LavenderHouse1Text2: ; 0x1d8db - db $08 ; asm - ld a, [$d7e0] - bit 7, a - jr nz, .asm_06470 ; 0x1d8e1 - ld hl, $58f4 - call PrintText - jr .asm_3d208 ; 0x1d8e9 -.asm_06470 ; 0x1d8eb - ld hl, $58f9 - call PrintText -.asm_3d208 ; 0x1d8f1 - jp $24d7 - -INCBIN "baserom.gbc",$1d8f4,$a - -LavenderHouse1Text3: ; 0x1d8fe - TX_FAR _LavenderHouse1Text3 - db $8 - ld a, $2f - call $13d0 - jp $24d7 - -LavenderHouse1Text4: ; 0x1d90b - TX_FAR _LavenderHouse1Text4 - db $8 - ld a, $a7 - call $13d0 - jp $24d7 -; 0x1d918 - -LavenderHouse1Text5: ; 0x1d918 - db $08 ; asm - ld a, [$d76c] - bit 0, a - jr nz, .asm_15ac2 ; 0x1d91e - ld hl, $594c - call PrintText - ld bc, (POKE_FLUTE << 8) | 1 - call $3e2e - jr nc, .asm_5ce36 ; 0x1d92c - ld hl, $5951 - call PrintText - ld hl, $d76c - set 0, [hl] - jr .asm_da749 ; 0x1d939 -.asm_5ce36 ; 0x1d93b - ld hl, $595b - call PrintText - jr .asm_da749 ; 0x1d941 -.asm_15ac2 ; 0x1d943 - ld hl, $5960 - call PrintText -.asm_da749 ; 0x1d949 - jp $24d7 - -INCBIN "baserom.gbc",$1d94c,$19 - -LavenderHouse1Text6: ; 0x1d965 - TX_FAR _LavenderHouse1Text6 - db $50 - -LavenderHouse1Object: ; 0x1d96a (size=56) - db $a ; border tile - - db $2 ; warps - db $7, $2, $2, $ff - db $7, $3, $2, $ff - - db $0 ; signs - - db $6 ; people - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $3 + 4, $ff, $ff, $1 ; person - db SPRITE_LITTLE_GIRL, $3 + 4, $6 + 4, $ff, $d0, $2 ; person - db SPRITE_SLOWBRO, $4 + 4, $6 + 4, $ff, $d1, $3 ; person - db SPRITE_SLOWBRO, $3 + 4, $1 + 4, $ff, $ff, $4 ; person - db SPRITE_MR_FUJI, $1 + 4, $3 + 4, $ff, $ff, $5 ; person - db SPRITE_BOOK_MAP_DEX, $3 + 4, $3 + 4, $ff, $ff, $6 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -LavenderHouse2_h: ; 0x1d9a2 to 0x1d9ae (12 bytes) (bank=7) (id=151) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw LavenderHouse2Blocks, LavenderHouse2Texts, LavenderHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw LavenderHouse2Object ; objects - -LavenderHouse2Script: ; 0x1d9ae - call $3c3c - ret -; 0x1d9b2 - -LavenderHouse2Texts: ; 0x1d9b2 - dw LavenderHouse2Text1, LavenderHouse2Text2 - -LavenderHouse2Text1: ; 0x1d9b6 - TX_FAR _LavenderHouse2Text1 - db $8 - ld a, $11 - call $13d0 - jp $24d7 -; 0x1d9c3 - -LavenderHouse2Text2: ; 0x1d9c3 - db $08 ; asm - ld a, [$d7e0] - bit 7, a - jr nz, .asm_65711 ; 0x1d9c9 - ld hl, $59dc - call PrintText - jr .asm_64be1 ; 0x1d9d1 -.asm_65711 ; 0x1d9d3 - ld hl, $59e1 - call PrintText -.asm_64be1 ; 0x1d9d9 - jp $24d7 - -INCBIN "baserom.gbc",$1d9dc,$a - -LavenderHouse2Object: ; 0x1d9e6 (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $4, $ff - db $7, $3, $4, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_SLOWBRO, $5 + 4, $3 + 4, $ff, $d1, $1 ; person - db SPRITE_BRUNETTE_GIRL, $4 + 4, $2 + 4, $ff, $d3, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -NameRater_h: ; 0x1da06 to 0x1da12 (12 bytes) (bank=7) (id=229) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw NameRaterBlocks, $5a54, NameRaterScript ; blocks, texts, scripts - db $00 ; connections - - dw NameRaterObject ; objects - -NameRaterScript: ; 0x1da12 - jp $3c3c -; 0x1da15 - -INCBIN "baserom.gbc",$1da15,$41 - -NameRaterText1: ; 0x1da56 - db $8 - call $36f4 - ld hl, $5ab3 - call $5a15 - jr nz, .asm_1daae ; 0x1da60 $4c - ld hl, $5ab8 - call PrintText - xor a - ld [$d07d], a - ld [$cfcb], a - ld [$cc35], a - call $13fc - push af - call $3dd4 - call $3dbe - call $20ba - pop af - jr c, .asm_1daae ; 0x1da80 $2c - call $15b4 - call $5a20 - ld hl, $5ad1 - jr c, .asm_1daa8 ; 0x1da8b $1b - ld hl, $5abd - call $5a15 - jr nz, .asm_1daae ; 0x1da93 $19 - ld hl, $5ac2 - call PrintText - ld b, $1 - ld hl, $655c - call Bankswitch - jr c, .asm_1daae ; 0x1daa3 $9 - ld hl, $5ac7 -.asm_1daa8 - call PrintText - jp $24d7 -.asm_1daae - ld hl, $5acc - jr .asm_1daa8 ; 0x1dab1 $f5 -; 0x1dab3 - -INCBIN "baserom.gbc",$1dab3,$23 - -NameRaterObject: ; 0x1dad6 (size=26) - db $a ; border tile - - db $2 ; warps - db $7, $2, $5, $ff - db $7, $3, $5, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_MR_MASTERBALL, $3 + 4, $5 + 4, $ff, $d2, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -VermilionHouse1_h: ; 0x1daf0 to 0x1dafc (12 bytes) (bank=7) (id=93) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw VermilionHouse1Blocks, VermilionHouse1Texts, VermilionHouse1Script ; blocks, texts, scripts - db $00 ; connections - - dw VermilionHouse1Object ; objects - -VermilionHouse1Script: ; 0x1dafc - call $3c3c - ret -; 0x1db00 - -VermilionHouse1Texts: ; 0x1db00 - dw VermilionHouse1Text1, VermilionHouse1Text2, VermilionHouse1Text3 - -VermilionHouse1Text1: ; 0x1db06 - TX_FAR _VermilionHouse1Text1 - db $50 - -VermilionHouse1Text2: ; 0x1db0b - TX_FAR _VermilionHouse1Text2 - db $08 ; asm - ld a, $24 - call $13d0 - call $3748 - jp $24d7 - -VermilionHouse1Text3: ; 0x1db1b - TX_FAR _VermilionHouse1Text3 - db $50 - -INCBIN "baserom.gbc", $1db1b + 5, $1db20 - ($1db1b + 5) - -VermilionHouse1Object: ; 0x1db20 (size=38) - db $a ; border tile - - db $2 ; warps - db $7, $2, $4, $ff - db $7, $3, $4, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_BUG_CATCHER, $3 + 4, $5 + 4, $ff, $d2, $1 ; person - db SPRITE_BIRD, $5 + 4, $3 + 4, $fe, $2, $2 ; person - db SPRITE_PAPER_SHEET, $3 + 4, $4 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -VermilionDock_h: ; 0x1db46 to 0x1db52 (12 bytes) (bank=7) (id=94) - db $0e ; tileset - db $06, $0e ; dimensions (y, x) - dw VermilionDockBlocks, $5cbf, VermilionDockScript ; blocks, texts, scripts - db $00 ; connections - - dw VermilionDockObject ; objects - -VermilionDockScript: ; 0x1db52 - call $3c3c - ld hl, $d803 - bit 4, [hl] - jr nz, .asm_1db8d ; 0x1db5a $31 - bit 0, [hl] - ret z - ld a, [$d42f] - cp $1 - ret nz - bit 2, [hl] - jp z, $5b9b - set 4, [hl] - call Delay3 - ld hl, $d730 - set 7, [hl] - ld hl, $ccd3 - ld a, $40 - ld [hli], a - ld [hli], a - ld [hl], a - ld a, $3 - ld [$cd38], a - xor a - ld [$c206], a - ld [$cd3b], a - dec a - ld [$cd6b], a - ret -.asm_1db8d - bit 5, [hl] - ret nz - ld a, [$cd38] - and a - ret nz - ld [$cd6b], a - set 5, [hl] - ret -; 0x1db9b - -INCBIN "baserom.gbc",$1db9b,$12b - -VermilionDockObject: ; 0x1dcc6 (size=20) - db $f ; border tile - - db $2 ; warps - db $0, $e, $5, $ff - db $2, $e, $1, SS_ANNE_1 - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $e, $0, $e - EVENT_DISP $e, $2, $e ; SS_ANNE_1 - -VermilionDockBlocks: ; 84 - INCBIN "maps/vermiliondock.blk" - -CeladonMansion5_h: ; 0x1dd2e to 0x1dd3a (12 bytes) (bank=7) (id=132) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw CeladonMansion5Blocks, CeladonMansion5Texts, CeladonMansion5Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMansion5Object ; objects - -CeladonMansion5Script: ; 0x1dd3a - jp $3c3c -; 0x1dd3d - -CeladonMansion5Texts: ; 0x1dd3d - dw CeladonMansion5Text1, CeladonMansion5Text2 - -CeladonMansion5Text1: ; 0x1dd41 - TX_FAR _CeladonMansion5Text1 - db $50 - -CeladonMansion5Text2: ; 0x1dd46 - db $08 ; asm - ld bc,(EEVEE << 8) | 25 - call GivePokemon - jr nc, .asm_24365 ; 0x1dd4d - ld a, $45 - ld [$cc4d], a - ld a, $11 - call Predef -.asm_24365 ; 0x1dd59 - jp $24d7 - -CeladonMansion5Object: ; 0x1dd5c (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $2, CELADON_MANSION_4 - db $7, $3, $2, CELADON_MANSION_4 - - db $0 ; signs - - db $2 ; people - db SPRITE_HIKER, $2 + 4, $2 + 4, $ff, $d0, $1 ; person - db SPRITE_BALL, $3 + 4, $4 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; CELADON_MANSION_4 - EVENT_DISP $4, $7, $3 ; CELADON_MANSION_4 - -FuchsiaMart_h: ; 0x1dd7c to 0x1dd88 (12 bytes) (bank=7) (id=152) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw FuchsiaMartBlocks, FuchsiaMartTexts, FuchsiaMartScript ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaMartObject ; objects - -FuchsiaMartScript: ; 0x1dd88 - jp $3c3c -; 0x1dd8b - -FuchsiaMartTexts: ; 0x1dd8b - dw FuchsiaMartText1, FuchsiaMartText2, FuchsiaMartText3 - -FuchsiaMartText2: ; 0x1dd91 - TX_FAR _FuchsiaMartText2 - db $50 - -FuchsiaMartText3: ; 0x1dd96 - TX_FAR _FuchsiaMartText3 - db $50 - -FuchsiaMartObject: ; 0x1dd9b (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $0, $ff - db $7, $4, $0, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_FAT_BALD_GUY, $2 + 4, $4 + 4, $ff, $ff, $2 ; person - db SPRITE_LASS, $5 + 4, $6 + 4, $fe, $1, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -FuchsiaMartBlocks: ; 16 - INCBIN "maps/fuchsiamart.blk" - -SaffronHouse1_h: ; 0x1ddd1 to 0x1dddd (12 bytes) (bank=7) (id=179) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw SaffronHouse1Blocks, SaffronHouse1Texts, SaffronHouse1Script ; blocks, texts, scripts - db $00 ; connections - - dw SaffronHouse1Object ; objects - -SaffronHouse1Script: ; 0x1dddd - jp $3c3c -; 0x1dde0 - -SaffronHouse1Texts: ; 0x1dde0 - dw SaffronHouse1Text1, SaffronHouse1Text2, SaffronHouse1Text3, SaffronHouse1Text4 - -SaffronHouse1Text1: ; 0x1dde8 - TX_FAR _SaffronHouse1Text1 - db $50 - -SaffronHouse1Text2: ; 0x1dded - TX_FAR _SaffronHouse1Text2 - db $8 - ld a, $24 - call $13d0 - jp $24d7 -; 0x1ddfa - -SaffronHouse1Text3: ; 0x1ddfa - TX_FAR _SaffronHouse1Text3 - db $50 - -SaffronHouse1Text4: ; 0x1ddff - TX_FAR _SaffronHouse1Text4 - db $50 - -SaffronHouse1Object: ; 0x1de04 (size=44) - db $a ; border tile - - db $2 ; warps - db $7, $2, $3, $ff - db $7, $3, $3, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_BRUNETTE_GIRL, $3 + 4, $2 + 4, $ff, $d3, $1 ; person - db SPRITE_BIRD, $4 + 4, $0 + 4, $fe, $1, $2 ; person - db SPRITE_BUG_CATCHER, $1 + 4, $4 + 4, $ff, $d0, $3 ; person - db SPRITE_PAPER_SHEET, $3 + 4, $3 + 4, $ff, $ff, $4 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -SaffronHouse2_h: ; 0x1de30 to 0x1de3c (12 bytes) (bank=7) (id=183) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw SaffronHouse2Blocks, SaffronHouse2Texts, SaffronHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw SaffronHouse2Object ; objects - -SaffronHouse2Script: ; 0x1de3c - jp $3c3c -; 0x1de3f - -SaffronHouse2Texts: ; 0x1de3f - dw SaffronHouse2Text1 - -SaffronHouse2Text1: ; 0x1de41 - db $08 ; asm - ld a, [$d7bd] - bit 0, a - jr nz, .asm_9e72b ; 0x1de47 - ld hl, $5e75 - call PrintText - ld bc,(TM_29 << 8) | 1 - call $3e2e - jr nc, .asm_4b1da ; 0x1de55 - ld hl, $5e7a - call PrintText - ld hl, $d7bd - set 0, [hl] - jr .asm_fe4e1 ; 0x1de62 -.asm_4b1da ; 0x1de64 - ld hl, $5e85 - call PrintText - jr .asm_fe4e1 ; 0x1de6a -.asm_9e72b ; 0x1de6c - ld hl, $5e80 - call PrintText -.asm_fe4e1 ; 0x1de72 - jp $24d7 - -INCBIN "baserom.gbc",$1de75,$15 - -SaffronHouse2Object: ; 0x1de8a (size=26) - db $a ; border tile - - db $2 ; warps - db $7, $2, $7, $ff - db $7, $3, $7, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_FISHER, $3 + 4, $5 + 4, $ff, $d2, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -DiglettsCaveRoute2_h: ; 0x1dea4 to 0x1deb0 (12 bytes) (bank=7) (id=46) - db $11 ; tileset - db $04, $04 ; dimensions (y, x) - dw DiglettsCaveRoute2Blocks, DiglettsCaveRoute2Texts, DiglettsCaveRoute2Script ; blocks, texts, scripts - db $00 ; connections - - dw DiglettsCaveRoute2Object ; objects - -DiglettsCaveRoute2Script: ; 0x1deb0 - ld a, $d - ld [$d365], a - jp $3c3c -; 0x1deb8 - -DiglettsCaveRoute2Texts: ; 0x1deb8 - dw DiglettsCaveRoute2Text1 - -DiglettsCaveRoute2Text1: ; 0x1deba - TX_FAR _DiglettsCaveRoute2Text1 - db $50 - -DiglettsCaveRoute2Object: ; 0x1debf (size=34) - db $7d ; border tile - - db $3 ; warps - db $7, $2, $0, $ff - db $7, $3, $0, $ff - db $4, $4, $0, DIGLETTS_CAVE - - db $0 ; signs - - db $1 ; people - db SPRITE_FISHER, $3 + 4, $3 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $4, $4 ; DIGLETTS_CAVE - -Route2House_h: ; 0x1dee1 to 0x1deed (12 bytes) (bank=7) (id=48) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw Route2HouseBlocks, Route2HouseTexts, Route2HouseScript ; blocks, texts, scripts - db $00 ; connections - - dw Route2HouseObject ; objects - -Route2HouseScript: ; 0x1deed - jp $3c3c -; 0x1def0 - -Route2HouseTexts: ; 0x1def0 - dw Route2HouseText1, Route2HouseText2 - -Route2HouseText1: ; 0x1def4 - TX_FAR _Route2HouseText1 - db $50 - -Route2HouseText2: ; 0x1def9 - db $08 ; asm - ld a, $1 - ld [W_WHICHTRADE], a - ld a, $54 - call Predef - jp $24d7 - -Route2HouseObject: ; 0x1df07 (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $2, $ff - db $7, $3, $2, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_OAK_AIDE, $4 + 4, $2 + 4, $ff, $d3, $1 ; person - db SPRITE_GAMEBOY_KID_COPY, $1 + 4, $4 + 4, $ff, $d0, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -Route5Gate_h: ; 0x1df27 to 0x1df33 (12 bytes) (bank=7) (id=70) - db $0c ; tileset - db $03, $04 ; dimensions (y, x) - dw Route5GateBlocks, Route5GateTexts, Route5GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route5GateObject ; objects - -Route5GateScript: ; 0x1df33 - call $3c3c - ld a, [$d662] - ld hl, $5f3f - jp $3d97 -; 0x1df3f - -Route5GateScripts: ; 0x1df3f - dw Route5GateScript0 - -INCBIN "baserom.gbc",$1df41,$f - -Route5GateScript0: ; 0x1df50 - ld a, [$d728] - bit 6, a - ret nz - ld hl, $5f8f - call $34bf - ret nc - ld a, $2 - ld [$d528], a - xor a - ld [$ff00+$b4], a - ld b, $16 - ld hl, $659f - call Bankswitch - ld a, [$ff00+$db] - and a - jr nz, .asm_1df82 ; 0x1df70 $10 - ld a, $2 - ld [$ff00+$8c], a - call $2920 - call $5f43 - ld a, $1 - ld [$d662], a - ret -.asm_1df82 - ld a, $3 - ld [$ff00+$8c], a - call $2920 - ld hl, $d728 - set 6, [hl] - ret -; 0x1df8f - -INCBIN "baserom.gbc",$1df8f,$15 - -Route5GateTexts: ; 0x1dfa4 - dw Route5GateText1, Route5GateText2, Route5GateText3 - -Route8GateText1: -Route7GateText1: -Route6GateText1: -Route5GateText1: ; 0x1dfaa - db $8 - ld a, [$d728] - bit 6, a - jr nz, .asm_88856 ; 0x1dfb0 $2c - ld b, $16 - ld hl, $659f - call Bankswitch - ld a, [$ff00+$db] - and a - jr nz, .asm_768a2 ; 0x1dfbd $11 - ld hl, $5fe7 - call PrintText - call $5f43 - ld a, $1 - ld [$d662], a - jp $24d7 -.asm_768a2 ; 0x1dfd0 - ld hl, $5fec - call PrintText - ld hl, $d728 - set 6, [hl] - jp $24d7 -.asm_88856 ; 0x1dfde - ld hl, $5ff6 - call PrintText - jp $24d7 -; 0x1dfe7 - -Route8GateText2: -Route7GateText2: -Route6GateText2: -Route5GateText2: ; 0x1dfe7 -INCBIN "baserom.gbc",$1dfe7,$5 - -Route8GateText3: -Route7GateText3: -Route6GateText3: -Route5GateText3: ; 0x1dfec -INCBIN "baserom.gbc",$1dfec,$5 - -INCBIN "baserom.gbc",$1dff1,$1dffb - $1dff1 - -Route5GateObject: ; 0x1dffb (size=42) - db $a ; border tile - - db $4 ; warps - db $5, $3, $2, $ff - db $5, $4, $2, $ff - db $0, $3, $1, $ff - db $0, $4, $0, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $3 + 4, $1 + 4, $ff, $d3, $1 ; person - - ; warp-to - EVENT_DISP $4, $5, $3 - EVENT_DISP $4, $5, $4 - EVENT_DISP $4, $0, $3 - EVENT_DISP $4, $0, $4 - -Route5GateBlocks: ; 12 - INCBIN "maps/route5gate.blk" - -Route6Gate_h: ; 0x1e031 to 0x1e03d (12 bytes) (bank=7) (id=73) - db $0c ; tileset - db $03, $04 ; dimensions (y, x) - dw Route6GateBlocks, Route6GateTexts, Route6GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route6GateObject ; objects - -Route6GateScript: ; 0x1e03d - call $3c3c - ld hl, $604a - ld a, [$d636] - call $3d97 - ret -; 0x1e04a - -Route6GateScripts: ; 0x1e04a - dw Route6GateScript0 - -INCBIN "baserom.gbc",$1e04c,$2 - -Route6GateScript0: ; 0x1e04e - ld a, [$d728] - bit 6, a - ret nz - ld hl, $608c - call $34bf - ret nc - ld a, $1 - ld [$d528], a - xor a - ld [$ff00+$b4], a - ld b, $16 - ld hl, $659f - call Bankswitch - ld a, [$ff00+$db] - and a - jr nz, .asm_1e080 ; 0x1e06e $10 - ld a, $2 - ld [$ff00+$8c], a - call $2920 - call $60a1 - ld a, $1 - ld [$d636], a - ret -.asm_1e080 - ld hl, $d728 - set 6, [hl] - ld a, $3 - ld [$ff00+$8c], a - jp $2920 -; 0x1e08c - -INCBIN "baserom.gbc",$1e08c,$2c - -Route6GateTexts: ; 0x1e0b8 - dw Route6GateText1, Route6GateText2, Route6GateText3 - -Route6GateObject: ; 0x1e0be (size=42) - db $a ; border tile - - db $4 ; warps - db $5, $3, $2, $ff - db $5, $4, $2, $ff - db $0, $3, $1, $ff - db $0, $4, $1, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $2 + 4, $6 + 4, $ff, $d2, $1 ; person - - ; warp-to - EVENT_DISP $4, $5, $3 - EVENT_DISP $4, $5, $4 - EVENT_DISP $4, $0, $3 - EVENT_DISP $4, $0, $4 - -Route6GateBlocks: ; 12 - INCBIN "maps/route6gate.blk" - -Route7Gate_h: ; 0x1e0f4 to 0x1e100 (12 bytes) (bank=7) (id=76) - db $0c ; tileset - db $04, $03 ; dimensions (y, x) - dw Route7GateBlocks, Route7GateTexts, Route7GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route7GateObject ; objects - -Route7GateScript: ; 0x1e100 - call $3c3c - ld a, [$d663] - ld hl, $610d - call $3d97 - ret -; 0x1e10d - -Route7GateScripts: ; 0x1e10d - dw Route7GateScript0 - -INCBIN "baserom.gbc",$1e10f,$19 - -Route7GateScript0: ; 0x1e128 - ld a, [$d728] - bit 6, a - ret nz - ld hl, $6167 - call $34bf - ret nc - ld a, $8 - ld [$d528], a - xor a - ld [$ff00+$b4], a - ld b, $16 - ld hl, $659f - call Bankswitch - ld a, [$ff00+$db] - and a - jr nz, .asm_1e15a ; 0x1e148 $10 - ld a, $2 - ld [$ff00+$8c], a - call $2920 - call $6111 - ld a, $1 - ld [$d663], a - ret -.asm_1e15a - ld a, $3 - ld [$ff00+$8c], a - call $2920 - ld hl, $d728 - set 6, [hl] - ret -; 0x1e167 - -INCBIN "baserom.gbc",$1e167,$18 - -Route7GateTexts: ; 0x1e17f - dw Route7GateText1, Route7GateText2, Route7GateText3 - -Route7GateObject: ; 0x1e185 (size=42) - db $a ; border tile - - db $4 ; warps - db $3, $0, $3, $ff - db $4, $0, $3, $ff - db $3, $5, $0, $ff - db $4, $5, $1, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $3, $3, $0 - EVENT_DISP $3, $4, $0 - EVENT_DISP $3, $3, $5 - EVENT_DISP $3, $4, $5 - -Route7GateBlocks: ; 12 - INCBIN "maps/route7gate.blk" - -Route8Gate_h: ; 0x1e1bb to 0x1e1c7 (12 bytes) (bank=7) (id=79) - db $0c ; tileset - db $04, $03 ; dimensions (y, x) - dw Route8GateBlocks, Route8GateTexts, Route8GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route8GateObject ; objects - -Route8GateScript: ; 0x1e1c7 - call $3c3c - ld hl, $61d3 - ld a, [$d637] - jp $3d97 -; 0x1e1d3 - -Route8GateScripts: ; 0x1e1d3 - dw Route8GateScript0 - -INCBIN "baserom.gbc",$1e1d5,$19 - -Route8GateScript0: ; 0x1e1ee - ld a, [$d728] - bit 6, a - ret nz - ld hl, $622c - call $34bf - ret nc - ld a, $2 - ld [$d528], a - xor a - ld [$ff00+$b4], a - ld b, $16 - ld hl, $659f - call Bankswitch - ld a, [$ff00+$db] - and a - jr nz, .asm_1e220 ; 0x1e20e $10 - ld a, $2 - ld [$ff00+$8c], a - call $2920 - call $61d7 - ld a, $1 - ld [$d637], a - ret -.asm_1e220 - ld hl, $d728 - set 6, [hl] - ld a, $3 - ld [$ff00+$8c], a - jp $2920 -; 0x1e22c -INCBIN "baserom.gbc",$1e22c,$15 - -Route8GateTexts: ; 0x1e241 - dw Route8GateText1, Route8GateText2, Route8GateText3 - -Route8GateObject: ; 0x1e247 (size=42) - db $a ; border tile - - db $4 ; warps - db $3, $0, $0, $ff - db $4, $0, $1, $ff - db $3, $5, $2, $ff - db $4, $5, $3, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $1 + 4, $2 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $3, $3, $0 - EVENT_DISP $3, $4, $0 - EVENT_DISP $3, $3, $5 - EVENT_DISP $3, $4, $5 - -Route8GateBlocks: ; 12 - INCBIN "maps/route8gate.blk" - -UndergroundPathEntranceRoute8_h: ; 0x1e27d to 0x1e289 (12 bytes) (bank=7) (id=80) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw UndergroundPathEntranceRoute8Blocks, UndergroundPathEntranceRoute8Texts, UndergroundPathEntranceRoute8Script ; blocks, texts, scripts - db $00 ; connections - - dw UndergroundPathEntranceRoute8Object ; objects - -UndergroundPathEntranceRoute8Script: ; 0x1e289 - ld a, $13 - ld [$d365], a - jp $3c3c -; 0x1e291 - -UndergroundPathEntranceRoute8Texts: ; 0x1e291 - dw UndergroundPathEntranceRoute8Text1 - -;XXX wtf? syntax error -UndergroundPathEntranceRoute8Text1: ; 0x1e293 - db $17, $8d, $42, $23 - ;TX_FAR _UndergroundPathEntranceRoute8Text1 - db $50 - -UndergroundPathEntranceRoute8Object: ; 0x1e298 (size=34) - db $a ; border tile - - db $3 ; warps - db $7, $3, $4, $ff - db $7, $4, $4, $ff - db $4, $4, $1, UNDERGROUND_PATH_WE - - db $0 ; signs - - db $1 ; people - db SPRITE_GIRL, $4 + 4, $3 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_WE - -PowerPlant_h: ; 0x1e2ba to 0x1e2c6 (12 bytes) (bank=7) (id=83) - db $16 ; tileset - db $12, $14 ; dimensions (y, x) - dw PowerPlantBlocks, PowerPlantTexts, PowerPlantScript ; blocks, texts, scripts - db $00 ; connections - - dw PowerPlantObject ; objects - -PowerPlantScript: ; 0x1e2c6 - call $3c3c - ld hl, $62fb - ld de, $62d9 - ld a, [$d663] - call $3160 - ld [$d663], a - ret -; 0x1e2d9 - -INCBIN "baserom.gbc",$1e2d9,$6 - -PowerPlantTexts: ; 0x1e2df - dw PowerPlantText1, PowerPlantText2, PowerPlantText3, PowerPlantText4, PowerPlantText5, PowerPlantText6, PowerPlantText7, PowerPlantText8, PowerPlantText9, PowerPlantText10, PowerPlantText11, PowerPlantText12, PowerPlantText13, PowerPlantText14 - -INCBIN "baserom.gbc",$1e2fb,$6d - -asm_234cc: - call $31cc - ld a, [$da39] - ld [$d663], a - jp $24d7 -; 0x1e374 - -PowerPlantText1: ; maybe - db $8 ; asm - ld hl, $62fb - jr asm_234cc ; 0x1e378 $ee - -PowerPlantText2: - db $8 ; asm - ld hl, $6307 - jr asm_234cc ; 0x1e37e $e8 - -PowerPlantText3: - db $8 ; asm - ld hl, $6313 - jr asm_234cc ; 0x1e384 $e2 - -PowerPlantText4: - db $8 ; asm - ld hl, $631f - jr asm_234cc ; 0x1e38a $dc - -PowerPlantText5: - db $8 ; asm - ld hl, $632b - jr asm_234cc ; 0x1e390 $d6 - -PowerPlantText6: - db $8 ; asm - ld hl, $6337 - jr asm_234cc ; 0x1e396 $d0 - -PowerPlantText7: - db $8 ; asm - ld hl, $6343 - jr asm_234cc ; 0x1e39c $ca - -PowerPlantText8: - db $8 ; asm - ld hl, $634f - jr asm_234cc ; 0x1e3a2 $c4 - -PowerPlantText9: - db $8 ; asm - ld hl, $635b - jr asm_234cc ; 0x1e3a8 $be - rla ; probably a TX_FAR - ld [$ff00+c], a - ld b, l - inc hl - ld d, b - rla - ld [$2345], a - db $8 - ld a, $4b - call $13d0 - call $3748 - jp $24d7 -; 0x1e3bf - -PowerPlantObject: ; 0x1e3bf (size=135) - db $2e ; border tile - - db $3 ; warps - db $23, $4, $3, $ff - db $23, $5, $3, $ff - db $b, $0, $3, $ff - - db $0 ; signs - - db $e ; people - db SPRITE_BALL, $14 + 4, $9 + 4, $ff, $ff, $41, VOLTORB, $28 ; trainer - db SPRITE_BALL, $12 + 4, $20 + 4, $ff, $ff, $42, VOLTORB, $28 ; trainer - db SPRITE_BALL, $19 + 4, $15 + 4, $ff, $ff, $43, VOLTORB, $28 ; trainer - db SPRITE_BALL, $12 + 4, $19 + 4, $ff, $ff, $44, ELECTRODE, $2b ; trainer - db SPRITE_BALL, $22 + 4, $17 + 4, $ff, $ff, $45, VOLTORB, $28 ; trainer - db SPRITE_BALL, $1c + 4, $1a + 4, $ff, $ff, $46, VOLTORB, $28 ; trainer - db SPRITE_BALL, $e + 4, $15 + 4, $ff, $ff, $47, ELECTRODE, $2b ; trainer - db SPRITE_BALL, $20 + 4, $25 + 4, $ff, $ff, $48, VOLTORB, $28 ; trainer - db SPRITE_BIRD, $9 + 4, $4 + 4, $ff, $d1, $49, ZAPDOS, $32 ; trainer - db SPRITE_BALL, $19 + 4, $7 + 4, $ff, $ff, $8a, CARBOS ; item - db SPRITE_BALL, $3 + 4, $1c + 4, $ff, $ff, $8b, HP_UP ; item - db SPRITE_BALL, $3 + 4, $22 + 4, $ff, $ff, $8c, RARE_CANDY ; item - db SPRITE_BALL, $20 + 4, $1a + 4, $ff, $ff, $8d, TM_25 ; item - db SPRITE_BALL, $20 + 4, $14 + 4, $ff, $ff, $8e, TM_33 ; item - - ; warp-to - EVENT_DISP $14, $23, $4 - EVENT_DISP $14, $23, $5 - EVENT_DISP $14, $b, $0 - -PowerPlantBlocks: ; 360 - INCBIN "maps/powerplant.blk" - -DiglettsCaveEntranceRoute11_h: ; 0x1e5ae to 0x1e5ba (12 bytes) (bank=7) (id=85) - db $11 ; tileset - db $04, $04 ; dimensions (y, x) - dw DiglettsCaveEntranceRoute11Blocks, DiglettsCaveEntranceRoute11Texts, DiglettsCaveEntranceRoute11Script ; blocks, texts, scripts - db $00 ; connections - - dw DiglettsCaveEntranceRoute11Object ; objects - -DiglettsCaveEntranceRoute11Script: ; 0x1e5ba - call $3c3c - ld a, $16 - ld [$d365], a - ret -; 0x1e5c3 - -DiglettsCaveEntranceRoute11Texts: ; 0x1e5c3 - dw DiglettsCaveEntranceRoute11Text1 - -; XXX wtf? syntax error -DiglettsCaveEntranceRoute11Text1: ; 0x1e5c5 - db $17, $f9, $47, $23 - ;TX_FAR _DiglettsCaveEntranceRoute11Text1 - db $50 - -DiglettsCaveEntranceRoute11Object: ; 0x1e5ca (size=34) - db $7d ; border tile - - db $3 ; warps - db $7, $2, $4, $ff - db $7, $3, $4, $ff - db $4, $4, $1, DIGLETTS_CAVE - - db $0 ; signs - - db $1 ; people - db SPRITE_GAMBLER, $3 + 4, $2 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $4, $4 ; DIGLETTS_CAVE - -Route16House_h: ; 0x1e5ec to 0x1e5f8 (12 bytes) (bank=7) (id=188) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw Route16HouseBlocks, Route16HouseTexts, Route16HouseScript ; blocks, texts, scripts - db $00 ; connections - - dw Route16HouseObject ; objects - -Route16HouseScript: ; 0x1e5f8 - jp $3c3c -; 0x1e5fb - -Route16HouseTexts: ; 0x1e5fb - dw Route16HouseText1, Route16HouseText2 - -Route16HouseText1: ; 0x1e5ff - db $08 ; asm - ld a, [$d7e0] - bit 6, a - ld hl, $6636 - jr nz, .asm_13616 ; 0x1e608 - ld hl, $662b - call PrintText - ld bc,(HM_02 << 8) | 1 - call $3e2e - jr nc, .asm_d3ee3 ; 0x1e616 - ld hl, $d7e0 - set 6, [hl] - ld hl, $6630 - jr .asm_13616 ; 0x1e620 -.asm_d3ee3 ; 0x1e622 - ld hl, $663b -.asm_13616 ; 0x1e625 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$1e62b,$1e640 - $1e62b - -Route16HouseText2: ; 0x1e640 - db $08 ; asm - ld hl, $6652 - call PrintText - ld a,FEAROW - call $13d0 - call $3748 - jp $24d7 - -INCBIN "baserom.gbc",$1e652,$5 - -Route16HouseObject: ; 0x1e657 (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $8, $ff - db $7, $3, $8, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_BRUNETTE_GIRL, $3 + 4, $2 + 4, $ff, $d3, $1 ; person - db SPRITE_BIRD, $4 + 4, $6 + 4, $fe, $0, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -Route22Gate_h: ; 0x1e677 to 0x1e683 (12 bytes) (bank=7) (id=193) - db $0c ; tileset - db $04, $05 ; dimensions (y, x) - dw Route22GateBlocks, Route22GateTexts, Route22GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route22GateObject ; objects - -Route22GateScript: ; 0x1e683 - call $3c3c - ld hl, $669e - ld a, [$d60e] - call $3d97 - ld a, [$d361] - cp $4 - ld a, $22 - jr c, .asm_1e69a ; 0x1e696 $2 - ld a, $21 -.asm_1e69a - ld [$d365], a - ret -; 0x1e69e - -Route22GateScripts: ; 0x1e69e - dw Route22GateScript0, Route22GateScript1 - -INCBIN "baserom.gbc",$1e6a2,$2 - -Route22GateScript0: ; 0x1e6a4 - ld hl, $66b5 - call $34bf - ret nc - xor a - ld [$ff00+$b4], a - ld a, $1 - ld [$ff00+$8c], a - jp $2920 -; 0x1e6b5 - -INCBIN "baserom.gbc",$1e6b5,$1e6cd - $1e6b5 - -Route22GateScript1: ; 0x1e6cd - ld a, [$cd38] - and a - ret nz - xor a - ld [$cd6b], a - call Delay3 - ld a, $0 - ld [$d60e], a - ret -; 0x1e6df - -Route22GateTexts: ; 0x1e6df - dw Route22GateText1 - -Route22GateText1: ; 0x1e6e1 - db $8 - ld a, [$d356] - bit 0, a - jr nz, .asm_8a809 ; 0x1e6e7 $d - ld hl, $6704 - call PrintText - call $66ba - ld a, $1 - jr .asm_20f7e ; 0x1e6f4 $8 -.asm_8a809 ; 0x1e6f6 - ld hl, $671a - call PrintText - ld a, $2 -.asm_20f7e ; 0x1e6fe - ld [$d60e], a - jp $24d7 -; 0x1e704 - -INCBIN "baserom.gbc",$1e704,$1c - -Route22GateObject: ; 0x1e720 (size=42) - db $a ; border tile - - db $4 ; warps - db $7, $4, $0, $ff - db $7, $5, $0, $ff - db $0, $4, $0, $ff - db $0, $5, $1, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $2 + 4, $6 + 4, $ff, $d2, $1 ; person - - ; warp-to - EVENT_DISP $5, $7, $4 - EVENT_DISP $5, $7, $5 - EVENT_DISP $5, $0, $4 - EVENT_DISP $5, $0, $5 - -Route22GateBlocks: ; 20 - INCBIN "maps/route22gate.blk" - -BillsHouse_h: ; 0x1e75e to 0x1e76a (12 bytes) (bank=7) (id=88) - db $10 ; tileset - db $04, $04 ; dimensions (y, x) - dw BillsHouseBlocks, BillsHouseTexts, BillsHouseScript ; blocks, texts, scripts - db $00 ; connections - - dw BillsHouseObject ; objects - -BillsHouseScript: ; 0x1e76a - call $3c3c - ld a, [$d661] - ld hl, $6776 - jp $3d97 -; 0x1e776 - -BillsHouseScripts: ; 0x1e776 - dw BillsHouseScript0 - -INCBIN "baserom.gbc",$1e778,$a - -BillsHouseScript0: ; 0x1e782 - ret -; 0x1e783 - -INCBIN "baserom.gbc",$1e783,$b1 - -BillsHouseTexts: ; 0x1e834 - dw BillsHouseText1, BillsHouseText2, BillsHouseText3, BillsHouseText4 - -BillsHouseText4: - db $fd - -BillsHouseText1: ; 0x1e83d - db $8 - ld hl, $6865 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, asm_6b196 ; 0x1e84b $d -asm_4d03c: - ld hl, $686a - call PrintText - ld a, $1 - ld [$d661], a - jr asm_fd4e2 ; 0x1e858 $8 -asm_6b196: ; 0x1e85a - ld hl, $686f - call PrintText - jr asm_4d03c ; 0x1e860 $eb -asm_fd4e2 ; 0x1e862 - jp $24d7 - -; dunno what this is (rla indicates $17 or TX_FAR) - rla - ld h, a - ld d, d - inc hl - ld d, b - rla - ld b, l - ld d, e - inc hl - ld d, b - rla - sub c - ld d, e - inc hl - ld d, b - -BillsHouseText2: ; 0x1e874 - db $08 ; asm - ld a, [$d7f2] - bit 4, a - jr nz, .asm_5491f ; 0x1e87a - ld hl, $68ba - call PrintText - ld bc,(S_S__TICKET << 8) | 1 - call $3e2e - jr nc, .asm_18a67 ; 0x1e888 - ld hl, $68bf - call PrintText - ld hl, $d7f2 - set 4, [hl] - ld a, $7 - ld [$cc4d], a - ld a, $15 - call Predef - ld a, $9 - ld [$cc4d], a - ld a, $11 - call Predef -.asm_5491f ; 0x1e8a9 - ld hl, $68cb - call PrintText - jr .asm_bd408 ; 0x1e8af -.asm_18a67 ; 0x1e8b1 - ld hl, $68c6 - call PrintText -.asm_bd408 ; 0x1e8b7 - jp $24d7 - -INCBIN "baserom.gbc",$1e8ba,$1e8d0 - $1e8ba - -BillsHouseText3: ; 0x1e8d0 - db $08 ; asm - ld hl, $68da - call PrintText - jp $24d7 -; 0x1e8da - -INCBIN "baserom.gbc",$1e8da,$5 - -BillsHouseObject: ; 0x1e8df (size=38) - db $d ; border tile - - db $2 ; warps - db $7, $2, $0, $ff - db $7, $3, $0, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_SLOWBRO, $5 + 4, $6 + 4, $ff, $ff, $1 ; person - db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $4 + 4, $ff, $ff, $2 ; person - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $6 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -BillsHouseBlocks: - INCBIN "maps/billshouse.blk" - -INCBIN "baserom.gbc",$1e905 + 16,$16fb - 16 - -SECTION "bank8",DATA,BANK[$8] - -INCBIN "baserom.gbc",$20000,$4000 - -SECTION "bank9",DATA,BANK[$9] - -RhydonPicFront: - INCBIN "pic/bmon/rhydon.pic" -RhydonPicBack: - INCBIN "pic/monback/rhydonb.pic" -KangaskhanPicFront: - INCBIN "pic/bmon/kangaskhan.pic" -KangaskhanPicBack: - INCBIN "pic/monback/kangaskhanb.pic" -NidoranMPicFront: - INCBIN "pic/bmon/nidoranm.pic" -NidoranMPicBack: - INCBIN "pic/monback/nidoranmb.pic" -ClefairyPicFront: - INCBIN "pic/bmon/clefairy.pic" -ClefairyPicBack: - INCBIN "pic/monback/clefairyb.pic" -SpearowPicFront: - INCBIN "pic/bmon/spearow.pic" -SpearowPicBack: - INCBIN "pic/monback/spearowb.pic" -VoltorbPicFront: - INCBIN "pic/bmon/voltorb.pic" -VoltorbPicBack: - INCBIN "pic/monback/voltorbb.pic" -NidokingPicFront: - INCBIN "pic/bmon/nidoking.pic" -NidokingPicBack: - INCBIN "pic/monback/nidokingb.pic" -SlowbroPicFront: - INCBIN "pic/bmon/slowbro.pic" -SlowbroPicBack: - INCBIN "pic/monback/slowbrob.pic" -IvysaurPicFront: - INCBIN "pic/bmon/ivysaur.pic" -IvysaurPicBack: - INCBIN "pic/monback/ivysaurb.pic" -ExeggutorPicFront: - INCBIN "pic/bmon/exeggutor.pic" -ExeggutorPicBack: - INCBIN "pic/monback/exeggutorb.pic" -LickitungPicFront: - INCBIN "pic/bmon/lickitung.pic" -LickitungPicBack: - INCBIN "pic/monback/lickitungb.pic" -ExeggcutePicFront: - INCBIN "pic/bmon/exeggcute.pic" -ExeggcutePicBack: - INCBIN "pic/monback/exeggcuteb.pic" -GrimerPicFront: - INCBIN "pic/bmon/grimer.pic" -GrimerPicBack: - INCBIN "pic/monback/grimerb.pic" -GengarPicFront: - INCBIN "pic/bmon/gengar.pic" -GengarPicBack: - INCBIN "pic/monback/gengarb.pic" -NidoranFPicFront: - INCBIN "pic/bmon/nidoranf.pic" -NidoranFPicBack: - INCBIN "pic/monback/nidoranfb.pic" -NidoqueenPicFront: - INCBIN "pic/bmon/nidoqueen.pic" -NidoqueenPicBack: - INCBIN "pic/monback/nidoqueenb.pic" -CubonePicFront: - INCBIN "pic/bmon/cubone.pic" -CubonePicBack: - INCBIN "pic/monback/cuboneb.pic" -RhyhornPicFront: - INCBIN "pic/bmon/rhyhorn.pic" -RhyhornPicBack: - INCBIN "pic/monback/rhyhornb.pic" -LaprasPicFront: - INCBIN "pic/bmon/lapras.pic" -LaprasPicBack: - INCBIN "pic/monback/laprasb.pic" -ArcaninePicFront: - INCBIN "pic/bmon/arcanine.pic" -ArcaninePicBack: - INCBIN "pic/monback/arcanineb.pic" -GyaradosPicFront: - INCBIN "pic/bmon/gyarados.pic" -GyaradosPicBack: - INCBIN "pic/monback/gyaradosb.pic" -ShellderPicFront: - INCBIN "pic/bmon/shellder.pic" -ShellderPicBack: - INCBIN "pic/monback/shellderb.pic" -TentacoolPicFront: - INCBIN "pic/bmon/tentacool.pic" -TentacoolPicBack: - INCBIN "pic/monback/tentacoolb.pic" -GastlyPicFront: - INCBIN "pic/bmon/gastly.pic" -GastlyPicBack: - INCBIN "pic/monback/gastlyb.pic" -ScytherPicFront: - INCBIN "pic/bmon/scyther.pic" -ScytherPicBack: - INCBIN "pic/monback/scytherb.pic" -StaryuPicFront: - INCBIN "pic/bmon/staryu.pic" -StaryuPicBack: - INCBIN "pic/monback/staryub.pic" -BlastoisePicFront: - INCBIN "pic/bmon/blastoise.pic" -BlastoisePicBack: - INCBIN "pic/monback/blastoiseb.pic" -PinsirPicFront: - INCBIN "pic/bmon/pinsir.pic" -PinsirPicBack: - INCBIN "pic/monback/pinsirb.pic" -TangelaPicFront: - INCBIN "pic/bmon/tangela.pic" -TangelaPicBack: - INCBIN "pic/monback/tangelab.pic" - -INCBIN "baserom.gbc",$27d6b,$27DAE - $27d6b - -TypeNamePointers: ; 7DAE - dw Type00Name - dw Type01Name - dw Type02Name - dw Type03Name - dw Type04Name - dw Type05Name - dw Type06Name - dw Type07Name - dw Type08Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type00Name - dw Type14Name - dw Type15Name - dw Type16Name - dw Type17Name - dw Type18Name - dw Type19Name - dw Type1AName - -Type00Name: - db "NORMAL@" -Type01Name: - db "FIGHTING@" -Type02Name: - db "FLYING@" -Type03Name: - db "POISON@" -Type14Name: - db "FIRE@" -Type15Name: - db "WATER@" -Type16Name: - db "GRASS@" -Type17Name: - db "ELECTRIC@" -Type18Name: - db "PSYCHIC@" -Type19Name: - db "ICE@" -Type04Name: - db "GROUND@" -Type05Name: - db "ROCK@" -Type06Name: - db "BIRD@" -Type07Name: - db "BUG@" -Type08Name: - db "GHOST@" -Type1AName: - db "DRAGON@" - -SaveTrainerName: ; 7E4A - ld hl,TrainerNamePointers - ld a,[W_TRAINERCLASS] - dec a - ld c,a - ld b,0 - add hl,bc - add hl,bc - ld a,[hli] - ld h,[hl] - ld l,a - ld de,$CD6D -.CopyCharacter\@ - ld a,[hli] - ld [de],a - inc de - cp "@" - jr nz,.CopyCharacter\@ - ret - -TrainerNamePointers: -; what is the point of these? - dw YoungsterName - dw BugCatcherName - dw LassName - dw $D04A - dw JrTrainerMName - dw JrTrainerFName - dw PokemaniacName - dw SuperNerdName - dw $D04A - dw $D04A - dw BurglarName - dw EngineerName - dw JugglerXName - dw $D04A - dw SwimmerName - dw $D04A - dw $D04A - dw BeautyName - dw $D04A - dw RockerName - dw JugglerName - dw $D04A - dw $D04A - dw BlackbeltName - dw $D04A - dw ProfOakName - dw ChiefName - dw ScientistName - dw $D04A - dw RocketName - dw CooltrainerMName - dw CooltrainerFName - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - dw $D04A - -YoungsterName: - db "YOUNGSTER@" -BugCatcherName: - db "BUG CATCHER@" -LassName: - db "LASS@" -JrTrainerMName: - db "JR.TRAINER♂@" -JrTrainerFName: - db "JR.TRAINER♀@" -PokemaniacName: - db "POKéMANIAC@" -SuperNerdName: - db "SUPER NERD@" -BurglarName: - db "BURGLAR@" -EngineerName: - db "ENGINEER@" -JugglerXName: - db "JUGGLER@" -SwimmerName: - db "SWIMMER@" -BeautyName: - db "BEAUTY@" -RockerName: - db "ROCKER@" -JugglerName: - db "JUGGLER@" -BlackbeltName: - db "BLACKBELT@" -ProfOakName: - db "PROF.OAK@" -ChiefName: - db "CHIEF@" -ScientistName: - db "SCIENTIST@" -RocketName: - db "ROCKET@" -CooltrainerMName: - db "COOLTRAINER♂@" -CooltrainerFName: - db "COOLTRAINER♀@" - -INCBIN "baserom.gbc",$27f86,$27fb8-$27f86 - -SECTION "bankA",DATA,BANK[$A] -GrowlithePicFront: - INCBIN "pic/bmon/growlithe.pic" -GrowlithePicBack: - INCBIN "pic/monback/growlitheb.pic" -OnixPicFront: - INCBIN "pic/bmon/onix.pic" -OnixPicBack: - INCBIN "pic/monback/onixb.pic" -FearowPicFront: - INCBIN "pic/bmon/fearow.pic" -FearowPicBack: - INCBIN "pic/monback/fearowb.pic" -PidgeyPicFront: - INCBIN "pic/bmon/pidgey.pic" -PidgeyPicBack: - INCBIN "pic/monback/pidgeyb.pic" -SlowpokePicFront: - INCBIN "pic/bmon/slowpoke.pic" -SlowpokePicBack: - INCBIN "pic/monback/slowpokeb.pic" -KadabraPicFront: - INCBIN "pic/bmon/kadabra.pic" -KadabraPicBack: - INCBIN "pic/monback/kadabrab.pic" -GravelerPicFront: - INCBIN "pic/bmon/graveler.pic" -GravelerPicBack: - INCBIN "pic/monback/gravelerb.pic" -ChanseyPicFront: - INCBIN "pic/bmon/chansey.pic" -ChanseyPicBack: - INCBIN "pic/monback/chanseyb.pic" -MachokePicFront: - INCBIN "pic/bmon/machoke.pic" -MachokePicBack: - INCBIN "pic/monback/machokeb.pic" -MrMimePicFront: - INCBIN "pic/bmon/mr.mime.pic" -MrMimePicBack: - INCBIN "pic/monback/mr.mimeb.pic" -HitmonleePicFront: - INCBIN "pic/bmon/hitmonlee.pic" -HitmonleePicBack: - INCBIN "pic/monback/hitmonleeb.pic" -HitmonchanPicFront: - INCBIN "pic/bmon/hitmonchan.pic" -HitmonchanPicBack: - INCBIN "pic/monback/hitmonchanb.pic" -ArbokPicFront: - INCBIN "pic/bmon/arbok.pic" -ArbokPicBack: - INCBIN "pic/monback/arbokb.pic" -ParasectPicFront: - INCBIN "pic/bmon/parasect.pic" -ParasectPicBack: - INCBIN "pic/monback/parasectb.pic" -PsyduckPicFront: - INCBIN "pic/bmon/psyduck.pic" -PsyduckPicBack: - INCBIN "pic/monback/psyduckb.pic" -DrowzeePicFront: - INCBIN "pic/bmon/drowzee.pic" -DrowzeePicBack: - INCBIN "pic/monback/drowzeeb.pic" -GolemPicFront: - INCBIN "pic/bmon/golem.pic" -GolemPicBack: - INCBIN "pic/monback/golemb.pic" -MagmarPicFront: - INCBIN "pic/bmon/magmar.pic" -MagmarPicBack: - INCBIN "pic/monback/magmarb.pic" -ElectabuzzPicFront: - INCBIN "pic/bmon/electabuzz.pic" -ElectabuzzPicBack: - INCBIN "pic/monback/electabuzzb.pic" -MagnetonPicFront: - INCBIN "pic/bmon/magneton.pic" -MagnetonPicBack: - INCBIN "pic/monback/magnetonb.pic" -KoffingPicFront: - INCBIN "pic/bmon/koffing.pic" -KoffingPicBack: - INCBIN "pic/monback/koffingb.pic" -MankeyPicFront: - INCBIN "pic/bmon/mankey.pic" -MankeyPicBack: - INCBIN "pic/monback/mankeyb.pic" -SeelPicFront: - INCBIN "pic/bmon/seel.pic" -SeelPicBack: - INCBIN "pic/monback/seelb.pic" -DiglettPicFront: - INCBIN "pic/bmon/diglett.pic" -DiglettPicBack: - INCBIN "pic/monback/diglettb.pic" -TaurosPicFront: - INCBIN "pic/bmon/tauros.pic" -TaurosPicBack: - INCBIN "pic/monback/taurosb.pic" -FarfetchdPicFront: - INCBIN "pic/bmon/farfetchd.pic" -FarfetchdPicBack: - INCBIN "pic/monback/farfetchdb.pic" -VenonatPicFront: - INCBIN "pic/bmon/venonat.pic" -VenonatPicBack: - INCBIN "pic/monback/venonatb.pic" -DragonitePicFront: - INCBIN "pic/bmon/dragonite.pic" -DragonitePicBack: - INCBIN "pic/monback/dragoniteb.pic" -DoduoPicFront: - INCBIN "pic/bmon/doduo.pic" -DoduoPicBack: - INCBIN "pic/monback/doduob.pic" -PoliwagPicFront: - INCBIN "pic/bmon/poliwag.pic" -PoliwagPicBack: - INCBIN "pic/monback/poliwagb.pic" -JynxPicFront: - INCBIN "pic/bmon/jynx.pic" -JynxPicBack: - INCBIN "pic/monback/jynxb.pic" -MoltresPicFront: - INCBIN "pic/bmon/moltres.pic" -MoltresPicBack: - INCBIN "pic/monback/moltresb.pic" - -INCBIN "baserom.gbc",$2bea9,$3efc-$3ea9 - -SECTION "bankB",DATA,BANK[$B] -ArticunoPicFront: - INCBIN "pic/bmon/articuno.pic" -ArticunoPicBack: - INCBIN "pic/monback/articunob.pic" -ZapdosPicFront: - INCBIN "pic/bmon/zapdos.pic" -ZapdosPicBack: - INCBIN "pic/monback/zapdosb.pic" -DittoPicFront: - INCBIN "pic/bmon/ditto.pic" -DittoPicBack: - INCBIN "pic/monback/dittob.pic" -MeowthPicFront: - INCBIN "pic/bmon/meowth.pic" -MeowthPicBack: - INCBIN "pic/monback/meowthb.pic" -KrabbyPicFront: - INCBIN "pic/bmon/krabby.pic" -KrabbyPicBack: - INCBIN "pic/monback/krabbyb.pic" -VulpixPicFront: - INCBIN "pic/bmon/vulpix.pic" -VulpixPicBack: - INCBIN "pic/monback/vulpixb.pic" -NinetalesPicFront: - INCBIN "pic/bmon/ninetales.pic" -NinetalesPicBack: - INCBIN "pic/monback/ninetalesb.pic" -PikachuPicFront: - INCBIN "pic/bmon/pikachu.pic" -PikachuPicBack: - INCBIN "pic/monback/pikachub.pic" -RaichuPicFront: - INCBIN "pic/bmon/raichu.pic" -RaichuPicBack: - INCBIN "pic/monback/raichub.pic" -DratiniPicFront: - INCBIN "pic/bmon/dratini.pic" -DratiniPicBack: - INCBIN "pic/monback/dratinib.pic" -DragonairPicFront: - INCBIN "pic/bmon/dragonair.pic" -DragonairPicBack: - INCBIN "pic/monback/dragonairb.pic" -KabutoPicFront: - INCBIN "pic/bmon/kabuto.pic" -KabutoPicBack: - INCBIN "pic/monback/kabutob.pic" -KabutopsPicFront: - INCBIN "pic/bmon/kabutops.pic" -KabutopsPicBack: - INCBIN "pic/monback/kabutopsb.pic" -HorseaPicFront: - INCBIN "pic/bmon/horsea.pic" -HorseaPicBack: - INCBIN "pic/monback/horseab.pic" -SeadraPicFront: - INCBIN "pic/bmon/seadra.pic" -SeadraPicBack: - INCBIN "pic/monback/seadrab.pic" -SandshrewPicFront: - INCBIN "pic/bmon/sandshrew.pic" -SandshrewPicBack: - INCBIN "pic/monback/sandshrewb.pic" -SandslashPicFront: - INCBIN "pic/bmon/sandslash.pic" -SandslashPicBack: - INCBIN "pic/monback/sandslashb.pic" -OmanytePicFront: - INCBIN "pic/bmon/omanyte.pic" -OmanytePicBack: - INCBIN "pic/monback/omanyteb.pic" -OmastarPicFront: - INCBIN "pic/bmon/omastar.pic" -OmastarPicBack: - INCBIN "pic/monback/omastarb.pic" -JigglypuffPicFront: - INCBIN "pic/bmon/jigglypuff.pic" -JigglypuffPicBack: - INCBIN "pic/monback/jigglypuffb.pic" -WigglytuffPicFront: - INCBIN "pic/bmon/wigglytuff.pic" -WigglytuffPicBack: - INCBIN "pic/monback/wigglytuffb.pic" -EeveePicFront: - INCBIN "pic/bmon/eevee.pic" -EeveePicBack: - INCBIN "pic/monback/eeveeb.pic" -FlareonPicFront: - INCBIN "pic/bmon/flareon.pic" -FlareonPicBack: - INCBIN "pic/monback/flareonb.pic" -JolteonPicFront: - INCBIN "pic/bmon/jolteon.pic" -JolteonPicBack: - INCBIN "pic/monback/jolteonb.pic" -VaporeonPicFront: - INCBIN "pic/bmon/vaporeon.pic" -VaporeonPicBack: - INCBIN "pic/monback/vaporeonb.pic" -MachopPicFront: - INCBIN "pic/bmon/machop.pic" -MachopPicBack: - INCBIN "pic/monback/machopb.pic" -ZubatPicFront: - INCBIN "pic/bmon/zubat.pic" -ZubatPicBack: - INCBIN "pic/monback/zubatb.pic" -EkansPicFront: - INCBIN "pic/bmon/ekans.pic" -EkansPicBack: - INCBIN "pic/monback/ekansb.pic" -ParasPicFront: - INCBIN "pic/bmon/paras.pic" -ParasPicBack: - INCBIN "pic/monback/parasb.pic" -PoliwhirlPicFront: - INCBIN "pic/bmon/poliwhirl.pic" -PoliwhirlPicBack: - INCBIN "pic/monback/poliwhirlb.pic" -PoliwrathPicFront: - INCBIN "pic/bmon/poliwrath.pic" -PoliwrathPicBack: - INCBIN "pic/monback/poliwrathb.pic" -WeedlePicFront: - INCBIN "pic/bmon/weedle.pic" -WeedlePicBack: - INCBIN "pic/monback/weedleb.pic" -KakunaPicFront: - INCBIN "pic/bmon/kakuna.pic" -KakunaPicBack: - INCBIN "pic/monback/kakunab.pic" -BeedrillPicFront: - INCBIN "pic/bmon/beedrill.pic" -BeedrillPicBack: - INCBIN "pic/monback/beedrillb.pic" -FossilKabutopsPic: - INCBIN "pic/bmon/fossilkabutops.pic" - -INCBIN "baserom.gbc",$2fb7b,$2ff3c-$2fb7b - -SECTION "bankC",DATA,BANK[$C] -DodrioPicFront: - INCBIN "pic/bmon/dodrio.pic" -DodrioPicBack: - INCBIN "pic/monback/dodriob.pic" -PrimeapePicFront: - INCBIN "pic/bmon/primeape.pic" -PrimeapePicBack: - INCBIN "pic/monback/primeapeb.pic" -DugtrioPicFront: - INCBIN "pic/bmon/dugtrio.pic" -DugtrioPicBack: - INCBIN "pic/monback/dugtriob.pic" -VenomothPicFront: - INCBIN "pic/bmon/venomoth.pic" -VenomothPicBack: - INCBIN "pic/monback/venomothb.pic" -DewgongPicFront: - INCBIN "pic/bmon/dewgong.pic" -DewgongPicBack: - INCBIN "pic/monback/dewgongb.pic" -CaterpiePicFront: - INCBIN "pic/bmon/caterpie.pic" -CaterpiePicBack: - INCBIN "pic/monback/caterpieb.pic" -MetapodPicFront: - INCBIN "pic/bmon/metapod.pic" -MetapodPicBack: - INCBIN "pic/monback/metapodb.pic" -ButterfreePicFront: - INCBIN "pic/bmon/butterfree.pic" -ButterfreePicBack: - INCBIN "pic/monback/butterfreeb.pic" -MachampPicFront: - INCBIN "pic/bmon/machamp.pic" -MachampPicBack: - INCBIN "pic/monback/machampb.pic" -GolduckPicFront: - INCBIN "pic/bmon/golduck.pic" -GolduckPicBack: - INCBIN "pic/monback/golduckb.pic" -HypnoPicFront: - INCBIN "pic/bmon/hypno.pic" -HypnoPicBack: - INCBIN "pic/monback/hypnob.pic" -GolbatPicFront: - INCBIN "pic/bmon/golbat.pic" -GolbatPicBack: - INCBIN "pic/monback/golbatb.pic" -MewtwoPicFront: - INCBIN "pic/bmon/mewtwo.pic" -MewtwoPicBack: - INCBIN "pic/monback/mewtwob.pic" -SnorlaxPicFront: - INCBIN "pic/bmon/snorlax.pic" -SnorlaxPicBack: - INCBIN "pic/monback/snorlaxb.pic" -MagikarpPicFront: - INCBIN "pic/bmon/magikarp.pic" -MagikarpPicBack: - INCBIN "pic/monback/magikarpb.pic" -MukPicFront: - INCBIN "pic/bmon/muk.pic" -MukPicBack: - INCBIN "pic/monback/mukb.pic" -KinglerPicFront: - INCBIN "pic/bmon/kingler.pic" -KinglerPicBack: - INCBIN "pic/monback/kinglerb.pic" -CloysterPicFront: - INCBIN "pic/bmon/cloyster.pic" -CloysterPicBack: - INCBIN "pic/monback/cloysterb.pic" -ElectrodePicFront: - INCBIN "pic/bmon/electrode.pic" -ElectrodePicBack: - INCBIN "pic/monback/electrodeb.pic" -ClefablePicFront: - INCBIN "pic/bmon/clefable.pic" -ClefablePicBack: - INCBIN "pic/monback/clefableb.pic" -WeezingPicFront: - INCBIN "pic/bmon/weezing.pic" -WeezingPicBack: - INCBIN "pic/monback/weezingb.pic" -PersianPicFront: - INCBIN "pic/bmon/persian.pic" -PersianPicBack: - INCBIN "pic/monback/persianb.pic" -MarowakPicFront: - INCBIN "pic/bmon/marowak.pic" -MarowakPicBack: - INCBIN "pic/monback/marowakb.pic" -HaunterPicFront: - INCBIN "pic/bmon/haunter.pic" -HaunterPicBack: - INCBIN "pic/monback/haunterb.pic" -AbraPicFront: - INCBIN "pic/bmon/abra.pic" -AbraPicBack: - INCBIN "pic/monback/abrab.pic" -AlakazamPicFront: - INCBIN "pic/bmon/alakazam.pic" -AlakazamPicBack: - INCBIN "pic/monback/alakazamb.pic" -PidgeottoPicFront: - INCBIN "pic/bmon/pidgeotto.pic" -PidgeottoPicBack: - INCBIN "pic/monback/pidgeottob.pic" -PidgeotPicFront: - INCBIN "pic/bmon/pidgeot.pic" -PidgeotPicBack: - INCBIN "pic/monback/pidgeotb.pic" -StarmiePicFront: - INCBIN "pic/bmon/starmie.pic" -StarmiePicBack: - INCBIN "pic/monback/starmieb.pic" -RedPicBack: - INCBIN "pic/trainer/redb.pic" -OldManPic: - INCBIN "pic/trainer/oldman.pic" - -INCBIN "baserom.gbc",$33f2b,$3f90-$3f2b - -SECTION "bankD",DATA,BANK[$D] -BulbasaurPicFront: - INCBIN "pic/bmon/bulbasaur.pic" -BulbasaurPicBack: - INCBIN "pic/monback/bulbasaurb.pic" -VenusaurPicFront: - INCBIN "pic/bmon/venusaur.pic" -VenusaurPicBack: - INCBIN "pic/monback/venusaurb.pic" -TentacruelPicFront: - INCBIN "pic/bmon/tentacruel.pic" -TentacruelPicBack: - INCBIN "pic/monback/tentacruelb.pic" -GoldeenPicFront: - INCBIN "pic/bmon/goldeen.pic" -GoldeenPicBack: - INCBIN "pic/monback/goldeenb.pic" -SeakingPicFront: - INCBIN "pic/bmon/seaking.pic" -SeakingPicBack: - INCBIN "pic/monback/seakingb.pic" -PonytaPicFront: - INCBIN "pic/bmon/ponyta.pic" -RapidashPicFront: - INCBIN "pic/bmon/rapidash.pic" -PonytaPicBack: - INCBIN "pic/monback/ponytab.pic" -RapidashPicBack: - INCBIN "pic/monback/rapidashb.pic" -RattataPicFront: - INCBIN "pic/bmon/rattata.pic" -RattataPicBack: - INCBIN "pic/monback/rattatab.pic" -RaticatePicFront: - INCBIN "pic/bmon/raticate.pic" -RaticatePicBack: - INCBIN "pic/monback/raticateb.pic" -NidorinoPicFront: - INCBIN "pic/bmon/nidorino.pic" -NidorinoPicBack: - INCBIN "pic/monback/nidorinob.pic" -NidorinaPicFront: - INCBIN "pic/bmon/nidorina.pic" -NidorinaPicBack: - INCBIN "pic/monback/nidorinab.pic" -GeodudePicFront: - INCBIN "pic/bmon/geodude.pic" -GeodudePicBack: - INCBIN "pic/monback/geodudeb.pic" -PorygonPicFront: - INCBIN "pic/bmon/porygon.pic" -PorygonPicBack: - INCBIN "pic/monback/porygonb.pic" -AerodactylPicFront: - INCBIN "pic/bmon/aerodactyl.pic" -AerodactylPicBack: - INCBIN "pic/monback/aerodactylb.pic" -MagnemitePicFront: - INCBIN "pic/bmon/magnemite.pic" -MagnemitePicBack: - INCBIN "pic/monback/magnemiteb.pic" -CharmanderPicFront: - INCBIN "pic/bmon/charmander.pic" -CharmanderPicBack: - INCBIN "pic/monback/charmanderb.pic" -SquirtlePicFront: - INCBIN "pic/bmon/squirtle.pic" -SquirtlePicBack: - INCBIN "pic/monback/squirtleb.pic" -CharmeleonPicFront: - INCBIN "pic/bmon/charmeleon.pic" -CharmeleonPicBack: - INCBIN "pic/monback/charmeleonb.pic" -WartortlePicFront: - INCBIN "pic/bmon/wartortle.pic" -WartortlePicBack: - INCBIN "pic/monback/wartortleb.pic" -CharizardPicFront: - INCBIN "pic/bmon/charizard.pic" -CharizardPicBack: - INCBIN "pic/monback/charizardb.pic" -FossilAerodactylPic: - INCBIN "pic/bmon/fossilaerodactyl.pic" -GhostPic: - INCBIN "pic/other/ghost.pic" -OddishPicFront: - INCBIN "pic/bmon/oddish.pic" -OddishPicBack: - INCBIN "pic/monback/oddishb.pic" -GloomPicFront: - INCBIN "pic/bmon/gloom.pic" -GloomPicBack: - INCBIN "pic/monback/gloomb.pic" -VileplumePicFront: - INCBIN "pic/bmon/vileplume.pic" -VileplumePicBack: - INCBIN "pic/monback/vileplumeb.pic" -BellsproutPicFront: - INCBIN "pic/bmon/bellsprout.pic" -BellsproutPicBack: - INCBIN "pic/monback/bellsproutb.pic" -WeepinbellPicFront: - INCBIN "pic/bmon/weepinbell.pic" -WeepinbellPicBack: - INCBIN "pic/monback/weepinbellb.pic" -VictreebelPicFront: - INCBIN "pic/bmon/victreebel.pic" -VictreebelPicBack: - INCBIN "pic/monback/victreebelb.pic" - -INCBIN "baserom.gbc",$37244,$3e88-$3244 - -SECTION "bankE",DATA,BANK[$E] - -Attacks: ; 4000 -; characteristics of each attack -; animation, effect, power, type, accuracy, PP -db POUND ,$00,$28,NORMAL,$FF,35 -db KARATE_CHOP ,$00,$32,NORMAL,$FF,25 -db DOUBLESLAP ,$1D,$0F,NORMAL,$D8,10 -db COMET_PUNCH ,$1D,$12,NORMAL,$D8,15 -db MEGA_PUNCH ,$00,$50,NORMAL,$D8,20 -db PAY_DAY ,$10,$28,NORMAL,$FF,20 -db FIRE_PUNCH ,$04,$4B,FIRE,$FF,15 -db ICE_PUNCH ,$05,$4B,ICE,$FF,15 -db THUNDERPUNCH,$06,$4B,ELECTRIC,$FF,15 -db SCRATCH ,$00,$28,NORMAL,$FF,35 -db VICEGRIP ,$00,$37,NORMAL,$FF,30 -db GUILLOTINE ,$26,$01,NORMAL,$4C,5 -db RAZOR_WIND ,$27,$50,NORMAL,$BF,10 -db SWORDS_DANCE,$32,$00,NORMAL,$FF,30 -db CUT ,$00,$32,NORMAL,$F2,30 -db GUST ,$00,$28,NORMAL,$FF,35 -db WING_ATTACK ,$00,$23,FLYING,$FF,35 -db WHIRLWIND ,$1C,$00,NORMAL,$D8,20 -db FLY ,$2B,$46,FLYING,$F2,15 -db BIND ,$2A,$0F,NORMAL,$BF,20 -db SLAM ,$00,$50,NORMAL,$BF,20 -db VINE_WHIP ,$00,$23,GRASS,$FF,10 -db STOMP ,$25,$41,NORMAL,$FF,20 -db DOUBLE_KICK ,$2C,$1E,FIGHTING,$FF,30 -db MEGA_KICK ,$00,$78,NORMAL,$BF,5 -db JUMP_KICK ,$2D,$46,FIGHTING,$F2,25 -db ROLLING_KICK,$25,$3C,FIGHTING,$D8,15 -db SAND_ATTACK ,$16,$00,NORMAL,$FF,15 -db HEADBUTT ,$25,$46,NORMAL,$FF,15 -db HORN_ATTACK ,$00,$41,NORMAL,$FF,25 -db FURY_ATTACK ,$1D,$0F,NORMAL,$D8,20 -db HORN_DRILL ,$26,$01,NORMAL,$4C,5 -db TACKLE ,$00,$23,NORMAL,$F2,35 -db BODY_SLAM ,$24,$55,NORMAL,$FF,15 -db WRAP ,$2A,$0F,NORMAL,$D8,20 -db TAKE_DOWN ,$30,$5A,NORMAL,$D8,20 -db THRASH ,$1B,$5A,NORMAL,$FF,20 -db DOUBLE_EDGE ,$30,$64,NORMAL,$FF,15 -db TAIL_WHIP ,$13,$00,NORMAL,$FF,30 -db POISON_STING,$02,$0F,POISON,$FF,35 -db TWINEEDLE ,$4D,$19,BUG,$FF,20 -db PIN_MISSILE ,$1D,$0E,BUG,$D8,20 -db LEER ,$13,$00,NORMAL,$FF,30 -db BITE ,$1F,$3C,NORMAL,$FF,25 -db GROWL ,$12,$00,NORMAL,$FF,40 -db ROAR ,$1C,$00,NORMAL,$FF,20 -db SING ,$20,$00,NORMAL,$8C,15 -db SUPERSONIC ,$31,$00,NORMAL,$8C,20 -db SONICBOOM ,$29,$01,NORMAL,$E5,20 -db DISABLE ,$56,$00,NORMAL,$8C,20 -db ACID ,$45,$28,POISON,$FF,30 -db EMBER ,$04,$28,FIRE,$FF,25 -db FLAMETHROWER,$04,$5F,FIRE,$FF,15 -db MIST ,$2E,$00,ICE,$FF,30 -db WATER_GUN ,$00,$28,WATER,$FF,25 -db HYDRO_PUMP ,$00,$78,WATER,$CC,5 -db SURF ,$00,$5F,WATER,$FF,15 -db ICE_BEAM ,$05,$5F,ICE,$FF,10 -db BLIZZARD ,$05,$78,ICE,$E5,5 -db PSYBEAM ,$4C,$41,PSYCHIC,$FF,20 -db BUBBLEBEAM ,$46,$41,WATER,$FF,20 -db AURORA_BEAM ,$44,$41,ICE,$FF,20 -db HYPER_BEAM ,$50,$96,NORMAL,$E5,5 -db PECK ,$00,$23,FLYING,$FF,35 -db DRILL_PECK ,$00,$50,FLYING,$FF,20 -db SUBMISSION ,$30,$50,FIGHTING,$CC,25 -db LOW_KICK ,$25,$32,FIGHTING,$E5,20 -db COUNTER ,$00,$01,FIGHTING,$FF,20 -db SEISMIC_TOSS,$29,$01,FIGHTING,$FF,20 -db STRENGTH ,$00,$50,NORMAL,$FF,15 -db ABSORB ,$03,$14,GRASS,$FF,20 -db MEGA_DRAIN ,$03,$28,GRASS,$FF,10 -db LEECH_SEED ,$54,$00,GRASS,$E5,10 -db GROWTH ,$0D,$00,NORMAL,$FF,40 -db RAZOR_LEAF ,$00,$37,GRASS,$F2,25 -db SOLARBEAM ,$27,$78,GRASS,$FF,10 -db POISONPOWDER,$42,$00,POISON,$BF,35 -db STUN_SPORE ,$43,$00,GRASS,$BF,30 -db SLEEP_POWDER,$20,$00,GRASS,$BF,15 -db PETAL_DANCE ,$1B,$46,GRASS,$FF,20 -db STRING_SHOT ,$14,$00,BUG,$F2,40 -db DRAGON_RAGE ,$29,$01,DRAGON,$FF,10 -db FIRE_SPIN ,$2A,$0F,FIRE,$B2,15 -db THUNDERSHOCK,$06,$28,ELECTRIC,$FF,30 -db THUNDERBOLT ,$06,$5F,ELECTRIC,$FF,15 -db THUNDER_WAVE,$43,$00,ELECTRIC,$FF,20 -db THUNDER ,$06,$78,ELECTRIC,$B2,10 -db ROCK_THROW ,$00,$32,ROCK,$A5,15 -db EARTHQUAKE ,$00,$64,GROUND,$FF,10 -db FISSURE ,$26,$01,GROUND,$4C,5 -db DIG ,$27,$64,GROUND,$FF,10 -db TOXIC ,$42,$00,POISON,$D8,10 -db CONFUSION ,$4C,$32,PSYCHIC,$FF,25 -db PSYCHIC_M ,$47,$5A,PSYCHIC,$FF,10 -db HYPNOSIS ,$20,$00,PSYCHIC,$99,20 -db MEDITATE ,$0A,$00,PSYCHIC,$FF,40 -db AGILITY ,$34,$00,PSYCHIC,$FF,30 -db QUICK_ATTACK,$00,$28,NORMAL,$FF,30 -db RAGE ,$51,$14,NORMAL,$FF,20 -db TELEPORT ,$1C,$00,PSYCHIC,$FF,20 -db NIGHT_SHADE ,$29,$00,GHOST,$FF,15 -db MIMIC ,$52,$00,NORMAL,$FF,10 -db SCREECH ,$3B,$00,NORMAL,$D8,40 -db DOUBLE_TEAM ,$0F,$00,NORMAL,$FF,15 -db RECOVER ,$38,$00,NORMAL,$FF,20 -db HARDEN ,$0B,$00,NORMAL,$FF,30 -db MINIMIZE ,$0F,$00,NORMAL,$FF,20 -db SMOKESCREEN ,$16,$00,NORMAL,$FF,20 -db CONFUSE_RAY ,$31,$00,GHOST,$FF,10 -db WITHDRAW ,$0B,$00,WATER,$FF,40 -db DEFENSE_CURL,$0B,$00,NORMAL,$FF,40 -db BARRIER ,$33,$00,PSYCHIC,$FF,30 -db LIGHT_SCREEN,$40,$00,PSYCHIC,$FF,30 -db HAZE ,$19,$00,ICE,$FF,30 -db REFLECT ,$41,$00,PSYCHIC,$FF,20 -db FOCUS_ENERGY,$2F,$00,NORMAL,$FF,30 -db BIDE ,$1A,$00,NORMAL,$FF,10 -db METRONOME ,$53,$00,NORMAL,$FF,10 -db MIRROR_MOVE ,$09,$00,FLYING,$FF,20 -db SELFDESTRUCT,$07,$82,NORMAL,$FF,5 -db EGG_BOMB ,$00,$64,NORMAL,$BF,10 -db LICK ,$24,$14,GHOST,$FF,30 -db SMOG ,$21,$14,POISON,$B2,20 -db SLUDGE ,$21,$41,POISON,$FF,20 -db BONE_CLUB ,$1F,$41,GROUND,$D8,20 -db FIRE_BLAST ,$22,$78,FIRE,$D8,5 -db WATERFALL ,$00,$50,WATER,$FF,15 -db CLAMP ,$2A,$23,WATER,$BF,10 -db SWIFT ,$11,$3C,NORMAL,$FF,20 -db SKULL_BASH ,$27,$64,NORMAL,$FF,15 -db SPIKE_CANNON,$1D,$14,NORMAL,$FF,15 -db CONSTRICT ,$46,$0A,NORMAL,$FF,35 -db AMNESIA ,$35,$00,PSYCHIC,$FF,20 -db KINESIS ,$16,$00,PSYCHIC,$CC,15 -db SOFTBOILED ,$38,$00,NORMAL,$FF,10 -db HI_JUMP_KICK,$2D,$55,FIGHTING,$E5,20 -db GLARE ,$43,$00,NORMAL,$BF,30 -db DREAM_EATER ,$08,$64,PSYCHIC,$FF,15 -db POISON_GAS ,$42,$00,POISON,$8C,40 -db BARRAGE ,$1D,$0F,NORMAL,$D8,20 -db LEECH_LIFE ,$03,$14,BUG,$FF,15 -db LOVELY_KISS ,$20,$00,NORMAL,$BF,10 -db SKY_ATTACK ,$27,$8C,FLYING,$E5,5 -db TRANSFORM ,$39,$00,NORMAL,$FF,10 -db BUBBLE ,$46,$14,WATER,$FF,30 -db DIZZY_PUNCH ,$00,$46,NORMAL,$FF,10 -db SPORE ,$20,$00,GRASS,$FF,15 -db FLASH ,$16,$00,NORMAL,$B2,20 -db PSYWAVE ,$29,$01,PSYCHIC,$CC,15 -db SPLASH ,$55,$00,NORMAL,$FF,40 -db ACID_ARMOR ,$33,$00,POISON,$FF,40 -db CRABHAMMER ,$00,$5A,WATER,$D8,10 -db EXPLOSION ,$07,$AA,NORMAL,$FF,5 -db FURY_SWIPES ,$1D,$12,NORMAL,$CC,15 -db BONEMERANG ,$2C,$32,GROUND,$E5,10 -db REST ,$38,$00,PSYCHIC,$FF,10 -db ROCK_SLIDE ,$00,$4B,ROCK,$E5,10 -db HYPER_FANG ,$1F,$50,NORMAL,$E5,15 -db SHARPEN ,$0A,$00,NORMAL,$FF,30 -db CONVERSION ,$18,$00,NORMAL,$FF,30 -db TRI_ATTACK ,$00,$50,NORMAL,$FF,10 -db SUPER_FANG ,$28,$01,NORMAL,$E5,10 -db SLASH ,$00,$46,NORMAL,$FF,20 -db SUBSTITUTE ,$4F,$00,NORMAL,$FF,10 -db STRUGGLE ,$30,$32,NORMAL,$FF,10 - -INCBIN "baserom.gbc",$383DE,$39884 - $383DE - -ReadAttack: ; 5884 - push hl - push de - push bc - dec a - ld hl,Attacks - ld bc,6 - call AddNTimes - ld de,$CFCC - call CopyData - pop bc - pop de - pop hl - ret - -; trainer data: from 5C53 to 652E -INCBIN "baserom.gbc",$3989B,$39914 - $3989B - -; trainer pic pointers and base money. -dw YoungsterPic -db 0,$15,0 - -dw BugCatcherPic -db 0,$10,0 - -dw LassPic -db 0,$15,0 - -dw SailorPic -db 0,$30,0 - -dw JrTrainerMPic -db 0,$20,0 - -dw JrTrainerFPic -db 0,$20,0 - -dw PokemaniacPic -db 0,$50,0 - -dw SuperNerdPic -db 0,$25,0 - -dw HikerPic -db 0,$35,0 - -dw BikerPic -db 0,$20,0 - -dw BurglarPic -db 0,$90,0 - -dw EngineerPic -db 0,$50,0 - -dw JugglerPic -db 0,$35,0 - -dw FisherPic -db 0,$35,0 - -dw SwimmerPic -db 0,$05,0 - -dw CueBallPic -db 0,$25,0 - -dw GamblerPic -db 0,$70,0 - -dw BeautyPic -db 0,$70,0 - -dw PsychicPic -db 0,$10,0 - -dw RockerPic -db 0,$25,0 - -dw JugglerPic -db 0,$35,0 - -dw TamerPic -db 0,$40,0 - -dw BirdKeeperPic -db 0,$25,0 - -dw BlackbeltPic -db 0,$25,0 - -dw Rival1Pic -db 0,$35,0 - -dw ProfOakPic -db 0,$99,0 - -dw ChiefPic -db 0,$30,0 - -dw ScientistPic -db 0,$50,0 - -dw GiovanniPic -db 0,$99,0 - -dw RocketPic -db 0,$30,0 - -dw CooltrainerMPic -db 0,$35,0 - -dw CooltrainerFPic -db 0,$35,0 - -dw BrunoPic -db 0,$99,0 - -dw BrockPic -db 0,$99,0 - -dw MistyPic -db 0,$99,0 - -dw LtSurgePic -db 0,$99,0 - -dw ErikaPic -db 0,$99,0 - -dw KogaPic -db 0,$99,0 - -dw BlainePic -db 0,$99,0 - -dw SabrinaPic -db 0,$99,0 - -dw GentlemanPic -db 0,$70,0 - -dw Rival2Pic -db 0,$65,0 - -dw Rival3Pic -db 0,$99,0 - -dw LoreleiPic -db 0,$99,0 - -dw ChannelerPic -db 0,$30,0 - -dw AgathaPic -db 0,$99,0 - -dw LancePic -db 0,$99,0 - -TrainerNames: ; 59FF - db "YOUNGSTER@" - db "BUG CATCHER@" - db "LASS@" - db "SAILOR@" - db "JR.TRAINER♂@" - db "JR.TRAINER♀@" - db "POKéMANIAC@" - db "SUPER NERD@" - db "HIKER@" - db "BIKER@" - db "BURGLAR@" - db "ENGINEER@" - db "JUGGLER@" - db "FISHERMAN@" - db "SWIMMER@" - db "CUE BALL@" - db "GAMBLER@" - db "BEAUTY@" - db "PSYCHIC@" - db "ROCKER@" - db "JUGGLER@" - db "TAMER@" - db "BIRD KEEPER@" - db "BLACKBELT@" - db "RIVAL1@" - db "PROF.OAK@" - db "CHIEF@" - db "SCIENTIST@" - db "GIOVANNI@" - db "ROCKET@" - db "COOLTRAINER♂@" - db "COOLTRAINER♀@" - db "BRUNO@" - db "BROCK@" - db "MISTY@" - db "LT.SURGE@" - db "ERIKA@" - db "KOGA@" - db "BLAINE@" - db "SABRINA@" - db "GENTLEMAN@" - db "RIVAL2@" - db "RIVAL3@" - db "LORELEI@" - db "CHANNELER@" - db "AGATHA@" - db "LANCE@" - -INCBIN "baserom.gbc",$39B87,$39C53 - $39B87 - -ReadTrainer: ; 5C53 - -; don't change any moves in a link battle - ld a,[W_ISLINKBATTLE] - and a - ret nz - -; set [W_ENEMYMONCOUNT] to 0, [$D89D] to FF -; XXX first is total enemy pokemon? -; XXX second is species of first pokemon? - ld hl,W_ENEMYMONCOUNT - xor a - ld [hli],a - dec a - ld [hl],a - -; get the pointer to trainer data for this class - ld a,[W_CUROPPONENT] - sub $C9 ; convert value from pokemon to trainer - add a,a - ld hl,TrainerDataPointers - ld c,a - ld b,0 - add hl,bc ; hl points to trainer class - ld a,[hli] - ld h,[hl] - ld l,a - ld a,[W_TRAINERNO] - ld b,a -; At this point b contains the trainer number, -; and hl points to the trainer class. -; Our next task is to iterate through the trainers, -; decrementing b each time, until we get to the right one. -.outer\@ - dec b - jr z,.IterateTrainer -.inner\@ - ld a,[hli] - and a - jr nz,.inner\@ - jr .outer\@ - -; if the first byte of trainer data is FF, -; - each pokemon has a specific level -; (as opposed to the whole team being of the same level) -; - if [W_LONEATTACKNO] != 0, one pokemon on the team has a special move -; else the first byte is the level of every pokemon on the team -.IterateTrainer - ld a,[hli] - cp $FF ; is the trainer special? - jr z,.SpecialTrainer\@ ; if so, check for special attacks - ld [W_CURENEMYLVL],a -.LoopTrainerData\@ - ld a,[hli] - and a ; have we reached the end of the trainer data? - jr z,.FinishUp\@ - ld [$CF91],a ; write species somewhere (XXX why?) - ld a,1 - ld [$CC49],a - push hl - call AddPokemonToParty - pop hl - jr .LoopTrainerData\@ -.SpecialTrainer\@ -; if this code is being run: -; - each pokemon has a specific level -; (as opposed to the whole team being of the same level) -; - if [W_LONEATTACKNO] != 0, one pokemon on the team has a special move - ld a,[hli] - and a ; have we reached the end of the trainer data? - jr z,.AddLoneAttack\@ - ld [W_CURENEMYLVL],a - ld a,[hli] - ld [$CF91],a - ld a,1 - ld [$CC49],a - push hl - call AddPokemonToParty - pop hl - jr .SpecialTrainer\@ -.AddLoneAttack\@ -; does the trainer have a single monster with a different move - ld a,[W_LONEATTACKNO] ; Brock is 01, Misty is 02, Erika is 04, etc - and a - jr z,.AddTeamAttack\@ - dec a - add a,a - ld c,a - ld b,0 - ld hl,LoneAttacks - add hl,bc - ld a,[hli] - ld d,[hl] - ld hl,W_ENEMYMON1MOVE3 - ld bc,W_ENEMYMON2MOVE3 - W_ENEMYMON1MOVE3 - call AddNTimes - ld [hl],d - jr .FinishUp\@ -.AddTeamAttack\@ -; check if our trainer's team has special moves - -; get trainer class number - ld a,[$D059] - sub $C8 - ld b,a - ld hl,TeamAttacks - -; iterate through entries in TeamAttacks, checking each for our trainer class -.IterateTeamAttacks\@ - ld a,[hli] - cp b - jr z,.GiveTeamAttacks\@ ; is there a match? - inc hl ; if not, go to the next entry - inc a - jr nz,.IterateTeamAttacks\@ - - ; no matches found. is this trainer champion rival? - ld a,b - cp SONY3 - jr z,.ChampionRival\@ - jr .FinishUp\@ ; nope -.GiveTeamAttacks\@ - ld a,[hl] - ld [$D95E],a - jr .FinishUp\@ -.ChampionRival\@ ; give attacks to his team - -; pidgeot - ld a,SKY_ATTACK - ld [W_ENEMYMON1MOVE3],a - -; starter - ld a,[W_RIVALSTARTER] - cp BULBASAUR - ld b,MEGA_DRAIN - jr z,.GiveStarterMove\@ - cp CHARMANDER - ld b,FIRE_BLAST - jr z,.GiveStarterMove\@ - ld b,BLIZZARD ; must be squirtle -.GiveStarterMove\@ - ld a,b - ld [W_ENEMYMON6MOVE3],a -.FinishUp\@ ; XXX this needs documenting - xor a ; clear D079-D07B - ld de,$D079 - ld [de],a - inc de - ld [de],a - inc de - ld [de],a - ld a,[W_CURENEMYLVL] - ld b,a -.LastLoop\@ - ld hl,$D047 - ld c,2 - push bc - ld a,$B - call Predef - pop bc - inc de - inc de - dec b - jr nz,.LastLoop\@ - ret - -LoneAttacks: ; 5D22 -; these are used for gym leaders. -; this is not automatic! you have to write the number you want to W_LONEATTACKNO -; first. e.g., erika's script writes 4 to W_LONEATTACKNO to get mega drain, -; the fourth entry in the list. - -; first byte: pokemon in the trainer's party that gets the move -; second byte: move -; unterminated - db 1,BIDE - db 1,BUBBLEBEAM - db 2,THUNDERBOLT - db 2,MEGA_DRAIN - db 3,TOXIC - db 3,PSYWAVE - db 3,FIRE_BLAST - db 4,FISSURE - -TeamAttacks: ; 5D32 -; these are used for elite four. -; this is automatic, based on trainer class. -; don't be confused by LoneAttacks above, the two data structures are - ; _completely_ unrelated. - -; first byte: trainer (all trainers in this class have this move) -; second byte: move -; ff-terminated - db LORELEI,BLIZZARD - db BRUNO,FISSURE - db AGATHA,TOXIC - db LANCE,BARRIER - db $FF - -TrainerDataPointers: ; 5D3B - dw YoungsterData,BugCatcherData,LassData,SailorData,JrTrainerMData - dw JrTrainerFData,PokemaniacData,SuperNerdData,HikerData,BikerData - dw BurglarData,EngineerData,Juggler1Data,FisherData,SwimmerData - dw CueBallData,GamblerData,BeautyData,PsychicData,RockerData - dw JugglerData,TamerData,BirdKeeperData,BlackbeltData,Green1Data - dw ProfOakData,ChiefData,ScientistData,GiovanniData,RocketData - dw CooltrainerMData,CooltrainerFData,BrunoData,BrockData,MistyData - dw LtSurgeData,ErikaData,KogaData,BlaineData,SabrinaData - dw GentlemanData,Green2Data,Green3Data,LoreleiData,ChannelerData - dw AgathaData,LanceData - -; if first byte != FF, then - ; first byte is level (of all pokemon on this team) - ; all the next bytes are pokemon species - ; null-terminated -; if first byte == FF, then - ; first byte is FF (obviously) - ; every next two bytes are a level and species - ; null-terminated - -YoungsterData: - db 11,RATTATA,EKANS,0 - db 14,SPEAROW,0 - db 10,RATTATA,RATTATA,ZUBAT,0 - db 14,RATTATA,EKANS,ZUBAT,0 - db 15,RATTATA,SPEAROW,0 - db 17,SLOWPOKE,0 - db 14,EKANS,SANDSHREW,0 - db 21,NIDORAN_M,0 - db 21,EKANS,0 - db 19,SANDSHREW,ZUBAT,0 - db 17,RATTATA,RATTATA,RATICATE,0 - db 18,NIDORAN_M,NIDORINO,0 - db 17,SPEAROW,RATTATA,RATTATA,SPEAROW,0 -BugCatcherData: - db 6,WEEDLE,CATERPIE,0 - db 7,WEEDLE,KAKUNA,WEEDLE,0 - db 9,WEEDLE,0 - db 10,CATERPIE,WEEDLE,CATERPIE,0 - db 9,WEEDLE,KAKUNA,CATERPIE,METAPOD,0 - db 11,CATERPIE,METAPOD,0 - db 11,WEEDLE,KAKUNA,0 - db 10,CATERPIE,METAPOD,CATERPIE,0 - db 14,CATERPIE,WEEDLE,0 - db 16,WEEDLE,CATERPIE,WEEDLE,0 - db 20,BUTTERFREE,0 - db 18,METAPOD,CATERPIE,VENONAT,0 - db 19,BEEDRILL,BEEDRILL,0 - db 20,CATERPIE,WEEDLE,VENONAT,0 -LassData: - db 9,PIDGEY,PIDGEY,0 - db 10,RATTATA,NIDORAN_M,0 - db 14,JIGGLYPUFF,0 - db 31,PARAS,PARAS,PARASECT,0 - db 11,ODDISH,BELLSPROUT,0 - db 14,CLEFAIRY,0 - db 16,PIDGEY,NIDORAN_F,0 - db 14,PIDGEY,NIDORAN_F,0 - db 15,NIDORAN_M,NIDORAN_F,0 - db 13,ODDISH,PIDGEY,ODDISH,0 - db 18,PIDGEY,NIDORAN_F,0 - db 18,RATTATA,PIKACHU,0 - db 23,NIDORAN_F,NIDORINA,0 - db 24,MEOWTH,MEOWTH,MEOWTH,0 - db 19,PIDGEY,RATTATA,NIDORAN_M,MEOWTH,PIKACHU,0 - db 22,CLEFAIRY,CLEFAIRY,0 - db 23,BELLSPROUT,WEEPINBELL,0 - db 23,ODDISH,GLOOM,0 -SailorData: - db 18,MACHOP,SHELLDER,0 - db 17,MACHOP,TENTACOOL,0 - db 21,SHELLDER,0 - db 17,HORSEA,SHELLDER,TENTACOOL,0 - db 18,TENTACOOL,STARYU,0 - db 17,HORSEA,HORSEA,HORSEA,0 - db 20,MACHOP,0 - db 21,PIKACHU,PIKACHU,0 -JrTrainerMData: - db 11,DIGLETT,SANDSHREW,0 - db 14,RATTATA,EKANS,0 - db 18,MANKEY,0 - db 20,SQUIRTLE,0 - db 16,SPEAROW,RATICATE,0 - db 18,DIGLETT,DIGLETT,SANDSHREW,0 - db 21,GROWLITHE,CHARMANDER,0 - db 19,RATTATA,DIGLETT,EKANS,SANDSHREW,0 - db 29,NIDORAN_M,NIDORINO,0 -JrTrainerFData: - db 19,GOLDEEN,0 - db 16,RATTATA,PIKACHU,0 - db 16,PIDGEY,PIDGEY,PIDGEY,0 - db 22,BULBASAUR,0 - db 18,ODDISH,BELLSPROUT,ODDISH,BELLSPROUT,0 - db 23,MEOWTH,0 - db 20,PIKACHU,CLEFAIRY,0 - db 21,PIDGEY,PIDGEOTTO,0 - db 21,JIGGLYPUFF,PIDGEY,MEOWTH,0 - db 22,ODDISH,BULBASAUR,0 - db 24,BULBASAUR,IVYSAUR,0 - db 24,PIDGEY,MEOWTH,RATTATA,PIKACHU,MEOWTH,0 - db 30,POLIWAG,POLIWAG,0 - db 27,PIDGEY,MEOWTH,PIDGEY,PIDGEOTTO,0 - db 28,GOLDEEN,POLIWAG,HORSEA,0 - db 31,GOLDEEN,SEAKING,0 - db 22,BELLSPROUT,CLEFAIRY,0 - db 20,MEOWTH,ODDISH,PIDGEY,0 - db 19,PIDGEY,RATTATA,RATTATA,BELLSPROUT,0 - db 28,GLOOM,ODDISH,ODDISH,0 - db 29,PIKACHU,RAICHU,0 - db 33,CLEFAIRY,0 - db 29,BELLSPROUT,ODDISH,TANGELA,0 - db 30,TENTACOOL,HORSEA,SEEL,0 -PokemaniacData: - db 30,RHYHORN,LICKITUNG,0 - db 20,CUBONE,SLOWPOKE,0 - db 20,SLOWPOKE,SLOWPOKE,SLOWPOKE,0 - db 22,CHARMANDER,CUBONE,0 - db 25,SLOWPOKE,0 - db 40,CHARMELEON,LAPRAS,LICKITUNG,0 - db 23,CUBONE,SLOWPOKE,0 -SuperNerdData: - db 11,MAGNEMITE,VOLTORB,0 - db 12,GRIMER,VOLTORB,KOFFING,0 - db 20,VOLTORB,KOFFING,VOLTORB,MAGNEMITE,0 - db 22,GRIMER,MUK,GRIMER,0 - db 26,KOFFING,0 - db 22,KOFFING,MAGNEMITE,WEEZING,0 - db 20,MAGNEMITE,MAGNEMITE,KOFFING,MAGNEMITE,0 - db 24,MAGNEMITE,VOLTORB,0 - db 36,VULPIX,VULPIX,NINETALES,0 - db 34,PONYTA,CHARMANDER,VULPIX,GROWLITHE,0 - db 41,RAPIDASH,0 - db 37,GROWLITHE,VULPIX,0 -HikerData: - db 10,GEODUDE,GEODUDE,ONIX,0 - db 15,MACHOP,GEODUDE,0 - db 13,GEODUDE,GEODUDE,MACHOP,GEODUDE,0 - db 17,ONIX,0 - db 21,GEODUDE,ONIX,0 - db 20,GEODUDE,MACHOP,GEODUDE,0 - db 21,GEODUDE,ONIX,0 - db 19,ONIX,GRAVELER,0 - db 21,GEODUDE,GEODUDE,GRAVELER,0 - db 25,GEODUDE,0 - db 20,MACHOP,ONIX,0 - db 19,GEODUDE,MACHOP,GEODUDE,GEODUDE,0 - db 20,ONIX,ONIX,GEODUDE,0 - db 21,GEODUDE,GRAVELER,0 -BikerData: - db 28,KOFFING,KOFFING,KOFFING,0 - db 29,KOFFING,GRIMER,0 - db 25,KOFFING,KOFFING,WEEZING,KOFFING,GRIMER,0 - db 28,KOFFING,GRIMER,WEEZING,0 - db 29,GRIMER,KOFFING,0 - db 33,WEEZING,0 - db 26,GRIMER,GRIMER,GRIMER,GRIMER,0 - db 28,WEEZING,KOFFING,WEEZING,0 - db 33,MUK,0 - db 29,VOLTORB,VOLTORB,0 - db 29,WEEZING,MUK,0 - db 25,KOFFING,WEEZING,KOFFING,KOFFING,WEEZING,0 - db 26,KOFFING,KOFFING,GRIMER,KOFFING,0 - db 28,GRIMER,GRIMER,KOFFING,0 - db 29,KOFFING,MUK,0 -BurglarData: - db 29,GROWLITHE,VULPIX,0 - db 33,GROWLITHE,0 - db 28,VULPIX,CHARMANDER,PONYTA,0 - db 36,GROWLITHE,VULPIX,NINETALES,0 - db 41,PONYTA,0 - db 37,VULPIX,GROWLITHE,0 - db 34,CHARMANDER,CHARMELEON,0 - db 38,NINETALES,0 - db 34,GROWLITHE,PONYTA,0 -EngineerData: - db 21,VOLTORB,MAGNEMITE,0 - db 21,MAGNEMITE,0 - db 18,MAGNEMITE,MAGNEMITE,MAGNETON,0 -Juggler1Data: -; none -FisherData: - db 17,GOLDEEN,TENTACOOL,GOLDEEN,0 - db 17,TENTACOOL,STARYU,SHELLDER,0 - db 22,GOLDEEN,POLIWAG,GOLDEEN,0 - db 24,TENTACOOL,GOLDEEN,0 - db 27,GOLDEEN,0 - db 21,POLIWAG,SHELLDER,GOLDEEN,HORSEA,0 - db 28,SEAKING,GOLDEEN,SEAKING,SEAKING,0 - db 31,SHELLDER,CLOYSTER,0 - db 27,MAGIKARP,MAGIKARP,MAGIKARP,MAGIKARP,MAGIKARP,MAGIKARP,0 - db 33,SEAKING,GOLDEEN,0 - db 24,MAGIKARP,MAGIKARP,0 -SwimmerData: - db 16,HORSEA,SHELLDER,0 - db 30,TENTACOOL,SHELLDER,0 - db 29,GOLDEEN,HORSEA,STARYU,0 - db 30,POLIWAG,POLIWHIRL,0 - db 27,HORSEA,TENTACOOL,TENTACOOL,GOLDEEN,0 - db 29,GOLDEEN,SHELLDER,SEAKING,0 - db 30,HORSEA,HORSEA,0 - db 27,TENTACOOL,TENTACOOL,STARYU,HORSEA,TENTACRUEL,0 - db 31,SHELLDER,CLOYSTER,0 - db 35,STARYU,0 - db 28,HORSEA,HORSEA,SEADRA,HORSEA,0 - db 33,SEADRA,TENTACRUEL,0 - db 37,STARMIE,0 - db 33,STARYU,WARTORTLE,0 - db 32,POLIWHIRL,TENTACOOL,SEADRA,0 -CueBallData: - db 28,MACHOP,MANKEY,MACHOP,0 - db 29,MANKEY,MACHOP,0 - db 33,MACHOP,0 - db 29,MANKEY,PRIMEAPE,0 - db 29,MACHOP,MACHOKE,0 - db 33,MACHOKE,0 - db 26,MANKEY,MANKEY,MACHOKE,MACHOP,0 - db 29,PRIMEAPE,MACHOKE,0 - db 31,TENTACOOL,TENTACOOL,TENTACRUEL,0 -GamblerData: - db 18,POLIWAG,HORSEA,0 - db 18,BELLSPROUT,ODDISH,0 - db 18,VOLTORB,MAGNEMITE,0 - db 18,GROWLITHE,VULPIX,0 - db 22,POLIWAG,POLIWAG,POLIWHIRL,0 - db 22,ONIX,GEODUDE,GRAVELER,0 - db 24,GROWLITHE,VULPIX,0 -BeautyData: - db 21,ODDISH,BELLSPROUT,ODDISH,BELLSPROUT,0 - db 24,BELLSPROUT,BELLSPROUT,0 - db 26,EXEGGCUTE,0 - db 27,RATTATA,PIKACHU,RATTATA,0 - db 29,CLEFAIRY,MEOWTH,0 - db 35,SEAKING,0 - db 30,SHELLDER,SHELLDER,CLOYSTER,0 - db 31,POLIWAG,SEAKING,0 - db 29,PIDGEOTTO,WIGGLYTUFF,0 - db 29,BULBASAUR,IVYSAUR,0 - db 33,WEEPINBELL,BELLSPROUT,WEEPINBELL,0 - db 27,POLIWAG,GOLDEEN,SEAKING,GOLDEEN,POLIWAG,0 - db 30,GOLDEEN,SEAKING,0 - db 29,STARYU,STARYU,STARYU,0 - db 30,SEADRA,HORSEA,SEADRA,0 -PsychicData: - db 31,KADABRA,SLOWPOKE,MR_MIME,KADABRA,0 - db 34,MR_MIME,KADABRA,0 - db 33,SLOWPOKE,SLOWPOKE,SLOWBRO,0 - db 38,SLOWBRO,0 -RockerData: - db 20,VOLTORB,MAGNEMITE,VOLTORB,0 - db 29,VOLTORB,ELECTRODE,0 -JugglerData: - db 29,KADABRA,MR_MIME,0 - db 41,DROWZEE,HYPNO,KADABRA,KADABRA,0 - db 31,DROWZEE,DROWZEE,KADABRA,DROWZEE,0 - db 34,DROWZEE,HYPNO,0 - db 48,MR_MIME,0 - db 33,HYPNO,0 - db 38,HYPNO,0 - db 34,DROWZEE,KADABRA,0 -TamerData: - db 34,SANDSLASH,ARBOK,0 - db 33,ARBOK,SANDSLASH,ARBOK,0 - db 43,RHYHORN,0 - db 39,ARBOK,TAUROS,0 - db 44,PERSIAN,GOLDUCK,0 - db 42,RHYHORN,PRIMEAPE,ARBOK,TAUROS,0 -BirdKeeperData: - db 29,PIDGEY,PIDGEOTTO,0 - db 25,SPEAROW,PIDGEY,PIDGEY,SPEAROW,SPEAROW,0 - db 26,PIDGEY,PIDGEOTTO,SPEAROW,FEAROW,0 - db 33,FARFETCH_D,0 - db 29,SPEAROW,FEAROW,0 - db 26,PIDGEOTTO,FARFETCH_D,DODUO,PIDGEY,0 - db 28,DODRIO,DODUO,DODUO,0 - db 29,SPEAROW,FEAROW,0 - db 34,DODRIO,0 - db 26,SPEAROW,SPEAROW,FEAROW,SPEAROW,0 - db 30,FEAROW,FEAROW,PIDGEOTTO,0 - db 39,PIDGEOTTO,PIDGEOTTO,PIDGEY,PIDGEOTTO,0 - db 42,FARFETCH_D,FEAROW,0 - db 28,PIDGEY,DODUO,PIDGEOTTO,0 - db 26,PIDGEY,SPEAROW,PIDGEY,FEAROW,0 - db 29,PIDGEOTTO,FEAROW,0 - db 28,SPEAROW,DODUO,FEAROW,0 -BlackbeltData: - db 37,HITMONLEE,HITMONCHAN,0 - db 31,MANKEY,MANKEY,PRIMEAPE,0 - db 32,MACHOP,MACHOKE,0 - db 36,PRIMEAPE,0 - db 31,MACHOP,MANKEY,PRIMEAPE,0 - db 40,MACHOP,MACHOKE,0 - db 43,MACHOKE,0 - db 38,MACHOKE,MACHOP,MACHOKE,0 - db 43,MACHOKE,MACHOP,MACHOKE,0 -Green1Data: - db 5,SQUIRTLE,0 - db 5,BULBASAUR,0 - db 5,CHARMANDER,0 - db $FF,9,PIDGEY,8,SQUIRTLE,0 - db $FF,9,PIDGEY,8,BULBASAUR,0 - db $FF,9,PIDGEY,8,CHARMANDER,0 - db $FF,18,PIDGEOTTO,15,ABRA,15,RATTATA,17,SQUIRTLE,0 - db $FF,18,PIDGEOTTO,15,ABRA,15,RATTATA,17,BULBASAUR,0 - db $FF,18,PIDGEOTTO,15,ABRA,15,RATTATA,17,CHARMANDER,0 -ProfOakData: - db $FF,66,TAUROS,67,EXEGGUTOR,68,ARCANINE,69,BLASTOISE,70,GYARADOS,0 - db $FF,66,TAUROS,67,EXEGGUTOR,68,ARCANINE,69,VENUSAUR,70,GYARADOS,0 - db $FF,66,TAUROS,67,EXEGGUTOR,68,ARCANINE,69,CHARIZARD,70,GYARADOS,0 -ChiefData: -; none -ScientistData: - db 34,KOFFING,VOLTORB,0 - db 26,GRIMER,WEEZING,KOFFING,WEEZING,0 - db 28,MAGNEMITE,VOLTORB,MAGNETON,0 - db 29,ELECTRODE,WEEZING,0 - db 33,ELECTRODE,0 - db 26,MAGNETON,KOFFING,WEEZING,MAGNEMITE,0 - db 25,VOLTORB,KOFFING,MAGNETON,MAGNEMITE,KOFFING,0 - db 29,ELECTRODE,MUK,0 - db 29,GRIMER,ELECTRODE,0 - db 28,VOLTORB,KOFFING,MAGNETON,0 - db 29,MAGNEMITE,KOFFING,0 - db 33,MAGNEMITE,MAGNETON,VOLTORB,0 - db 34,MAGNEMITE,ELECTRODE,0 -GiovanniData: - db $FF,25,ONIX,24,RHYHORN,29,KANGASKHAN,0 - db $FF,37,NIDORINO,35,KANGASKHAN,37,RHYHORN,41,NIDOQUEEN,0 - db $FF,45,RHYHORN,42,DUGTRIO,44,NIDOQUEEN,45,NIDOKING,50,RHYDON,0 -RocketData: - db 13,RATTATA,ZUBAT,0 - db 11,SANDSHREW,RATTATA,ZUBAT,0 - db 12,ZUBAT,EKANS,0 - db 16,RATICATE,0 - db 17,MACHOP,DROWZEE,0 - db 15,EKANS,ZUBAT,0 - db 20,RATICATE,ZUBAT,0 - db 21,DROWZEE,MACHOP,0 - db 21,RATICATE,RATICATE,0 - db 20,GRIMER,KOFFING,KOFFING,0 - db 19,RATTATA,RATICATE,RATICATE,RATTATA,0 - db 22,GRIMER,KOFFING,0 - db 17,ZUBAT,KOFFING,GRIMER,ZUBAT,RATICATE,0 - db 20,RATTATA,RATICATE,DROWZEE,0 - db 21,MACHOP,MACHOP,0 - db 23,SANDSHREW,EKANS,SANDSLASH,0 - db 23,EKANS,SANDSHREW,ARBOK,0 - db 21,KOFFING,ZUBAT,0 - db 25,ZUBAT,ZUBAT,GOLBAT,0 - db 26,KOFFING,DROWZEE,0 - db 23,ZUBAT,RATTATA,RATICATE,ZUBAT,0 - db 26,DROWZEE,KOFFING,0 - db 29,CUBONE,ZUBAT,0 - db 25,GOLBAT,ZUBAT,ZUBAT,RATICATE,ZUBAT,0 - db 28,RATICATE,HYPNO,RATICATE,0 - db 29,MACHOP,DROWZEE,0 - db 28,EKANS,ZUBAT,CUBONE,0 - db 33,ARBOK,0 - db 33,HYPNO,0 - db 29,MACHOP,MACHOKE,0 - db 28,ZUBAT,ZUBAT,GOLBAT,0 - db 26,RATICATE,ARBOK,KOFFING,GOLBAT,0 - db 29,CUBONE,CUBONE,0 - db 29,SANDSHREW,SANDSLASH,0 - db 26,RATICATE,ZUBAT,GOLBAT,RATTATA,0 - db 28,WEEZING,GOLBAT,KOFFING,0 - db 28,DROWZEE,GRIMER,MACHOP,0 - db 28,GOLBAT,DROWZEE,HYPNO,0 - db 33,MACHOKE,0 - db 25,RATTATA,RATTATA,ZUBAT,RATTATA,EKANS,0 - db 32,CUBONE,DROWZEE,MAROWAK,0 -CooltrainerMData: - db 39,NIDORINO,NIDOKING,0 - db 43,EXEGGUTOR,CLOYSTER,ARCANINE,0 - db 43,KINGLER,TENTACRUEL,BLASTOISE,0 - db 45,KINGLER,STARMIE,0 - db 42,IVYSAUR,WARTORTLE,CHARMELEON,CHARIZARD,0 - db 44,IVYSAUR,WARTORTLE,CHARMELEON,0 - db 49,NIDOKING,0 - db 44,KINGLER,CLOYSTER,0 - db 39,SANDSLASH,DUGTRIO,0 - db 43,RHYHORN,0 -CooltrainerFData: - db 24,WEEPINBELL,GLOOM,IVYSAUR,0 - db 43,BELLSPROUT,WEEPINBELL,VICTREEBEL,0 - db 43,PARASECT,DEWGONG,CHANSEY,0 - db 46,VILEPLUME,BUTTERFREE,0 - db 44,PERSIAN,NINETALES,0 - db 45,IVYSAUR,VENUSAUR,0 - db 45,NIDORINA,NIDOQUEEN,0 - db 43,PERSIAN,NINETALES,RAICHU,0 -BrunoData: - db $FF,53,ONIX,55,HITMONCHAN,55,HITMONLEE,56,ONIX,58,MACHAMP,0 -BrockData: - db $FF,12,GEODUDE,14,ONIX,0 -MistyData: - db $FF,18,STARYU,21,STARMIE,0 -LtSurgeData: - db $FF,21,VOLTORB,18,PIKACHU,24,RAICHU,0 -ErikaData: - db $FF,29,VICTREEBEL,24,TANGELA,29,VILEPLUME,0 -KogaData: - db $FF,37,KOFFING,39,MUK,37,KOFFING,43,WEEZING,0 -BlaineData: - db $FF,42,GROWLITHE,40,PONYTA,42,RAPIDASH,47,ARCANINE,0 -SabrinaData: - db $FF,38,KADABRA,37,MR_MIME,38,VENOMOTH,43,ALAKAZAM,0 -GentlemanData: - db 18,GROWLITHE,GROWLITHE,0 - db 19,NIDORAN_M,NIDORAN_F,0 - db 23,PIKACHU,0 - db 48,PRIMEAPE,0 - db 17,GROWLITHE,PONYTA,0 -Green2Data: - db $FF,19,PIDGEOTTO,16,RATICATE,18,KADABRA,20,WARTORTLE,0 - db $FF,19,PIDGEOTTO,16,RATICATE,18,KADABRA,20,IVYSAUR,0 - db $FF,19,PIDGEOTTO,16,RATICATE,18,KADABRA,20,CHARMELEON,0 - db $FF,25,PIDGEOTTO,23,GROWLITHE,22,EXEGGCUTE,20,KADABRA,25,WARTORTLE,0 - db $FF,25,PIDGEOTTO,23,GYARADOS,22,GROWLITHE,20,KADABRA,25,IVYSAUR,0 - db $FF,25,PIDGEOTTO,23,EXEGGCUTE,22,GYARADOS,20,KADABRA,25,CHARMELEON,0 - db $FF,37,PIDGEOT,38,GROWLITHE,35,EXEGGCUTE,35,ALAKAZAM,40,BLASTOISE,0 - db $FF,37,PIDGEOT,38,GYARADOS,35,GROWLITHE,35,ALAKAZAM,40,VENUSAUR,0 - db $FF,37,PIDGEOT,38,EXEGGCUTE,35,GYARADOS,35,ALAKAZAM,40,CHARIZARD,0 - db $FF,47,PIDGEOT,45,RHYHORN,45,GROWLITHE,47,EXEGGCUTE,50,ALAKAZAM ;\ - db 53,BLASTOISE,0 - db $FF,47,PIDGEOT,45,RHYHORN,45,GYARADOS,47,GROWLITHE,50,ALAKAZAM ;\ - db 53,VENUSAUR,0 - db $FF,47,PIDGEOT,45,RHYHORN,45,EXEGGCUTE,47,GYARADOS,50,ALAKAZAM ;\ - db 53,CHARIZARD,0 -Green3Data: - db $FF,61,PIDGEOT,59,ALAKAZAM,61,RHYDON,61,ARCANINE,63,EXEGGUTOR ;\ - db 65,BLASTOISE,0 - db $FF,61,PIDGEOT,59,ALAKAZAM,61,RHYDON,61,GYARADOS,63,ARCANINE ;\ - db 65,VENUSAUR,0 - db $FF,61,PIDGEOT,59,ALAKAZAM,61,RHYDON,61,EXEGGUTOR,63,GYARADOS ;\ - db 65,CHARIZARD,0 -LoreleiData: - db $FF,54,DEWGONG,53,CLOYSTER,54,SLOWBRO,56,JYNX,56,LAPRAS,0 -ChannelerData: - db 22,GASTLY,0 - db 24,GASTLY,0 - db 23,GASTLY,GASTLY,0 - db 24,GASTLY,0 - db 23,GASTLY,0 - db 24,GASTLY,0 - db 24,HAUNTER,0 - db 22,GASTLY,0 - db 24,GASTLY,0 - db 23,GASTLY,GASTLY,0 - db 24,GASTLY,0 - db 22,GASTLY,0 - db 24,GASTLY,0 - db 23,HAUNTER,0 - db 24,GASTLY,0 - db 22,GASTLY,0 - db 24,GASTLY,0 - db 22,HAUNTER,0 - db 22,GASTLY,GASTLY,GASTLY,0 - db 24,GASTLY,0 - db 24,GASTLY,0 - db 34,GASTLY,HAUNTER,0 - db 38,HAUNTER,0 - db 33,GASTLY,GASTLY,HAUNTER,0 -AgathaData: - db $FF,56,GENGAR,56,GOLBAT,55,HAUNTER,58,ARBOK,60,GENGAR,0 -LanceData: - db $FF,58,GYARADOS,56,DRAGONAIR,56,DRAGONAIR,60,AERODACTYL ;\ - db 62,DRAGONITE,0 - -TrainerAI: ; 652E -;XXX called at 34964, 3c342, 3c398 - and a - ld a,[W_ISINBATTLE] - dec a - ret z ; if not a trainer, we're done here - ld a,[W_ISLINKBATTLE] - cp 4 - ret z - ld a,[W_TRAINERCLASS] ; what trainer class is this? - dec a - ld c,a - ld b,0 - ld hl,TrainerAIPointers - add hl,bc - add hl,bc - add hl,bc - ld a,[W_AICOUNT] - and a - ret z ; if no AI uses left, we're done here - inc hl - inc a - jr nz,.getpointer\@ - dec hl - ld a,[hli] - ld [W_AICOUNT],a -.getpointer\@ - ld a,[hli] - ld h,[hl] - ld l,a - call GenRandom - jp [hl] - -TrainerAIPointers: ; 655C -; one entry per trainer class -; first byte, number of times (per Pokémon) it can occur -; next two bytes, pointer to AI subroutine for trainer class - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,JugglerAI ; juggler_x - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,GenericAI - dbw 3,JugglerAI ; juggler - dbw 3,GenericAI - dbw 3,GenericAI - dbw 2,BlackbeltAI ; blackbelt - dbw 3,GenericAI - dbw 3,GenericAI - dbw 1,GenericAI ; chief - dbw 3,GenericAI - dbw 1,GiovanniAI ; giovanni - dbw 3,GenericAI - dbw 2,CooltrainerMAI ; cooltrainerm - dbw 1,CooltrainerFAI ; cooltrainerf - dbw 2,BrunoAI ; bruno - dbw 5,BrockAI ; brock - dbw 1,MistyAI ; misty - dbw 1,LtSurgeAI ; surge - dbw 1,ErikaAI ; erika - dbw 2,KogaAI ; koga - dbw 2,BlaineAI ; blaine - dbw 1,SabrinaAI ; sabrina - dbw 3,GenericAI - dbw 1,Sony2AI ; sony2 - dbw 1,Sony3AI ; sony3 - dbw 2,LoreleiAI ; lorelei - dbw 3,GenericAI - dbw 2,AgathaAI ; agatha - dbw 1,LanceAI ; lance - -JugglerAI: - cp $40 - ret nc - jp $672A - -BlackbeltAI: - cp $20 - ret nc - jp AIUseXAttack - -GiovanniAI: - cp $40 - ret nc - jp AIUseGuardSpec - -CooltrainerMAI: - cp $40 - ret nc - jp AIUseXAttack - -CooltrainerFAI: - cp $40 - ld a,$A - call $67CF - jp c,AIUseHyperPotion - ld a,5 - call $67CF - ret nc - jp $672A - -BrockAI: -; if his active monster has a status condition, use a full heal - ld a,[W_OPPONENTSTATUS] - and a - ret z - jp AIUseFullHeal - -MistyAI: - cp $40 - ret nc - jp AIUseXDefend - -LtSurgeAI: - cp $40 - ret nc - jp AIUseXSpeed - -ErikaAI: - cp $80 - ret nc - ld a,$A - call $67CF - ret nc - jp AIUseSuperPotion - -KogaAI: - cp $40 - ret nc - jp AIUseXAttack - -BlaineAI: - cp $40 - ret nc - jp AIUseSuperPotion - -SabrinaAI: - cp $40 - ret nc - ld a,$A - call $67CF - ret nc - jp AIUseHyperPotion - -Sony2AI: - cp $20 - ret nc - ld a,5 - call $67CF - ret nc - jp AIUsePotion - -Sony3AI: - cp $20 - ret nc - ld a,5 - call $67CF - ret nc - jp AIUseFullRestore - -LoreleiAI: - cp $80 - ret nc - ld a,5 - call $67CF - ret nc - jp AIUseSuperPotion - -BrunoAI: - cp $40 - ret nc - jp AIUseXDefend - -AgathaAI: - cp $14 - jp c,$672A - cp $80 - ret nc - ld a,4 - call $67CF - ret nc - jp AIUseSuperPotion - -LanceAI: - cp $80 - ret nc - ld a,5 - call $67CF - ret nc - jp AIUseHyperPotion - -GenericAI: - and a ; clear carry - ret - -; end of individual trainer AI routines - -DecrementAICount: ; 6695 - ld hl,W_AICOUNT - dec [hl] - scf - ret - -Function669B: ; 669B -; XXX what does this do - ld a,$8E - jp $3740 - -AIUseFullRestore: - call AICureStatus - ld a,FULL_RESTORE - ld [$CF05],a - ld de,$CEEB - ld hl,$CFE7 - ld a,[hld] - ld [de],a - inc de - ld a,[hl] - ld [de],a - inc de - ld hl,$CFF5 - ld a,[hld] - ld [de],a - inc de - ld [$CEE9],a - ld [$CFE7],a - ld a,[hl] - ld [de],a - ld [$CEEA],a - ld [W_OPPONENTHP],a - jr Function6718 - -AIUsePotion: -; enemy trainer heals his monster with a potion - ld a,POTION - ld b,20 - jr AIRecoverHP - -AIUseSuperPotion: -; enemy trainer heals his monster with a super potion - ld a,SUPER_POTION - ld b,50 - jr AIRecoverHP - -AIUseHyperPotion: -; enemy trainer heals his monster with a hyper potion - ld a,HYPER_POTION - ld b,200 - ; fallthrough - -AIRecoverHP: ; 66DA -; heal b HP and print "trainer used $(a) on pokemon!" - ld [$CF05],a - ld hl,$CFE7 - ld a,[hl] - ld [$CEEB],a - add b - ld [hld],a - ld [$CEED],a - ld a,[hl] - ld [$CEEC],a - ld [$CEEE],a - jr nc,.next\@ - inc a - ld [hl],a - ld [$CEEE],a -.next\@ - inc hl - ld a,[hld] - ld b,a - ld de,$CFF5 - ld a,[de] - dec de - ld [$CEE9],a - sub b - ld a,[hli] - ld b,a - ld a,[de] - ld [$CEEA],a - sbc b - jr nc,Function6718 - inc de - ld a,[de] - dec de - ld [hld],a - ld [$CEED],a - ld a,[de] - ld [hl],a - ld [$CEEE],a - ; fallthrough - -Function6718: ; 6718 - call AIPrintItemUse_ - ld hl,$C3CA - xor a - ld [$CF94],a - ld a,$48 - call Predef - jp DecrementAICount - -Function672A: ; 672A - ld a,[W_ENEMYMONCOUNT] - ld c,a - ld hl,W_ENEMYMON1HP - - ld d,0 ; keep count of unfainted monsters - - ; count how many monsters haven't fainted yet -.loop\@ - ld a,[hli] - ld b,a - ld a,[hld] - or b - jr z,.Fainted\@ ; has monster fainted? - inc d -.Fainted\@ - push bc - ld bc,$2C - add hl,bc - pop bc - dec c - jr nz,.loop\@ - - ld a,d ; how many available monsters are there? - cp 2 ; don't bother if only 1 or 2 - jp nc,Function674B ; XXX check, does this jump when a = 2? - and a - ret - -Function674B: ; 674B - -; prepare to withdraw the active monster: copy hp, number, and status to roster - - ld a,[W_OPPONENTNUMBER] - ld hl,W_ENEMYMON1HP - ld bc,$2C - call AddNTimes - ld d,h - ld e,l - ld hl,W_OPPONENTHP - ld bc,4 - call CopyData - - ld hl,AIBattleWithdrawText - call PrintText - - ld a,1 - ld [$D11D],a - ld hl,EnemySendOut - ld b,BANK(EnemySendOut) - call Bankswitch - xor a - ld [$D11D],a - - ld a,[W_ISLINKBATTLE] - cp 4 - ret z - scf - ret - -AIBattleWithdrawText: - TX_FAR _AIBattleWithdrawText - db "@" - -AIUseFullHeal: - call $669B - call AICureStatus - ld a,FULL_HEAL - jp AIPrintItemUse - -AICureStatus: -; cures the status of enemy's active pokemon - ld a,[W_OPPONENTNUMBER] - ld hl,$D8A8 - ld bc,$2C - call AddNTimes - xor a - ld [hl],a ; clear status in enemy team roster - ld [W_OPPONENTSTATUS],a ; clear status of active enemy - ld hl,$D069 - res 0,[hl] - ret - -AIUseXAccuracy: ; unused - call $669B - ld hl,$D068 - set 0,[hl] - ld a,X_ACCURACY - jp AIPrintItemUse - -AIUseGuardSpec: - call $669B - ld hl,$D068 - set 1,[hl] - ld a,GUARD_SPEC_ - jp AIPrintItemUse - -AIUseDireHit: ; unused - call $669B - ld hl,$D068 - set 2,[hl] - ld a,DIRE_HIT - jp AIPrintItemUse - -Function67CF: ; 67CF - ld [$FF99],a - ld hl,$CFF4 - ld a,[hli] - ld [$FF95],a - ld a,[hl] - ld [$FF96],a - ld b,2 - call $38B9 - ld a,[$FF98] - ld c,a - ld a,[$FF97] - ld b,a - ld hl,$CFE7 - ld a,[hld] - ld e,a - ld a,[hl] - ld d,a - ld a,d - sub b - ret nz - ld a,e - sub c - ret - -AIUseXAttack: - ld b,$A - ld a,X_ATTACK - jr AIIncreaseStat - -AIUseXDefend: - ld b,$B - ld a,X_DEFEND - jr AIIncreaseStat - -AIUseXSpeed: - ld b,$C - ld a,X_SPEED - jr AIIncreaseStat - -AIUseXSpecial: - ld b,$D - ld a,X_SPECIAL - ; fallthrough - -AIIncreaseStat: - ld [$CF05],a - push bc - call AIPrintItemUse_ - pop bc - ld hl,$CFCD - ld a,[hld] - push af - ld a,[hl] - push af - push hl - ld a,$AF - ld [hli],a - ld [hl],b - ld hl,$7428 - ld b,$F - call Bankswitch - pop hl - pop af - ld [hli],a - pop af - ld [hl],a - jp DecrementAICount - -AIPrintItemUse: - ld [$CF05],a - call AIPrintItemUse_ - jp DecrementAICount - -AIPrintItemUse_: -; print "x used [$CF05] on z!" - ld a,[$CF05] - ld [$D11E],a - call GetItemName - ld hl,AIBattleUseItemText - jp PrintText - -AIBattleUseItemText: - TX_FAR _AIBattleUseItemText - db "@" - -INCBIN "baserom.gbc",$3A849,$3B05C - $3A849 - -EvosAttacksPointerTable: ; 705C - dw Mon112_EvosAttacks - dw Mon115_EvosAttacks - dw Mon032_EvosAttacks - dw Mon035_EvosAttacks - dw Mon021_EvosAttacks - dw Mon100_EvosAttacks - dw Mon034_EvosAttacks - dw Mon080_EvosAttacks - dw Mon002_EvosAttacks - dw Mon103_EvosAttacks - dw Mon108_EvosAttacks - dw Mon102_EvosAttacks - dw Mon088_EvosAttacks - dw Mon094_EvosAttacks - dw Mon029_EvosAttacks - dw Mon031_EvosAttacks - dw Mon104_EvosAttacks - dw Mon111_EvosAttacks - dw Mon131_EvosAttacks - dw Mon059_EvosAttacks - dw Mon151_EvosAttacks - dw Mon130_EvosAttacks - dw Mon090_EvosAttacks - dw Mon072_EvosAttacks - dw Mon092_EvosAttacks - dw Mon123_EvosAttacks - dw Mon120_EvosAttacks - dw Mon009_EvosAttacks - dw Mon127_EvosAttacks - dw Mon114_EvosAttacks - dw Mon152_EvosAttacks ;MissingNo - dw Mon153_EvosAttacks ;MissingNo - dw Mon058_EvosAttacks - dw Mon095_EvosAttacks - dw Mon022_EvosAttacks - dw Mon016_EvosAttacks - dw Mon079_EvosAttacks - dw Mon064_EvosAttacks - dw Mon075_EvosAttacks - dw Mon113_EvosAttacks - dw Mon067_EvosAttacks - dw Mon122_EvosAttacks - dw Mon106_EvosAttacks - dw Mon107_EvosAttacks - dw Mon024_EvosAttacks - dw Mon047_EvosAttacks - dw Mon054_EvosAttacks - dw Mon096_EvosAttacks - dw Mon076_EvosAttacks - dw Mon154_EvosAttacks ;MissingNo - dw Mon126_EvosAttacks - dw Mon155_EvosAttacks ;MissingNo - dw Mon125_EvosAttacks - dw Mon082_EvosAttacks - dw Mon109_EvosAttacks - dw Mon156_EvosAttacks ;MissingNo - dw Mon056_EvosAttacks - dw Mon086_EvosAttacks - dw Mon050_EvosAttacks - dw Mon128_EvosAttacks - dw Mon157_EvosAttacks ;MissingNo - dw Mon158_EvosAttacks ;MissingNo - dw Mon159_EvosAttacks ;MissingNo - dw Mon083_EvosAttacks - dw Mon048_EvosAttacks - dw Mon149_EvosAttacks - dw Mon160_EvosAttacks ;MissingNo - dw Mon161_EvosAttacks ;MissingNo - dw Mon162_EvosAttacks ;MissingNo - dw Mon084_EvosAttacks - dw Mon060_EvosAttacks - dw Mon124_EvosAttacks - dw Mon146_EvosAttacks - dw Mon144_EvosAttacks - dw Mon145_EvosAttacks - dw Mon132_EvosAttacks - dw Mon052_EvosAttacks - dw Mon098_EvosAttacks - dw Mon163_EvosAttacks ;MissingNo - dw Mon164_EvosAttacks ;MissingNo - dw Mon165_EvosAttacks ;MissingNo - dw Mon037_EvosAttacks - dw Mon038_EvosAttacks - dw Mon025_EvosAttacks - dw Mon026_EvosAttacks - dw Mon166_EvosAttacks ;MissingNo - dw Mon167_EvosAttacks ;MissingNo - dw Mon147_EvosAttacks - dw Mon148_EvosAttacks - dw Mon140_EvosAttacks - dw Mon141_EvosAttacks - dw Mon116_EvosAttacks - dw Mon117_EvosAttacks - dw Mon168_EvosAttacks ;MissingNo - dw Mon169_EvosAttacks ;MissingNo - dw Mon027_EvosAttacks - dw Mon028_EvosAttacks - dw Mon138_EvosAttacks - dw Mon139_EvosAttacks - dw Mon039_EvosAttacks - dw Mon040_EvosAttacks - dw Mon133_EvosAttacks - dw Mon136_EvosAttacks - dw Mon135_EvosAttacks - dw Mon134_EvosAttacks - dw Mon066_EvosAttacks - dw Mon041_EvosAttacks - dw Mon023_EvosAttacks - dw Mon046_EvosAttacks - dw Mon061_EvosAttacks - dw Mon062_EvosAttacks - dw Mon013_EvosAttacks - dw Mon014_EvosAttacks - dw Mon015_EvosAttacks - dw Mon170_EvosAttacks ;MissingNo - dw Mon085_EvosAttacks - dw Mon057_EvosAttacks - dw Mon051_EvosAttacks - dw Mon049_EvosAttacks - dw Mon087_EvosAttacks - dw Mon171_EvosAttacks ;MissingNo - dw Mon172_EvosAttacks ;MissingNo - dw Mon010_EvosAttacks - dw Mon011_EvosAttacks - dw Mon012_EvosAttacks - dw Mon068_EvosAttacks - dw Mon173_EvosAttacks ;MissingNo - dw Mon055_EvosAttacks - dw Mon097_EvosAttacks - dw Mon042_EvosAttacks - dw Mon150_EvosAttacks - dw Mon143_EvosAttacks - dw Mon129_EvosAttacks - dw Mon174_EvosAttacks ;MissingNo - dw Mon175_EvosAttacks ;MissingNo - dw Mon089_EvosAttacks - dw Mon176_EvosAttacks ;MissingNo - dw Mon099_EvosAttacks - dw Mon091_EvosAttacks - dw Mon177_EvosAttacks ;MissingNo - dw Mon101_EvosAttacks - dw Mon036_EvosAttacks - dw Mon110_EvosAttacks - dw Mon053_EvosAttacks - dw Mon105_EvosAttacks - dw Mon178_EvosAttacks ;MissingNo - dw Mon093_EvosAttacks - dw Mon063_EvosAttacks - dw Mon065_EvosAttacks - dw Mon017_EvosAttacks - dw Mon018_EvosAttacks - dw Mon121_EvosAttacks - dw Mon001_EvosAttacks - dw Mon003_EvosAttacks - dw Mon073_EvosAttacks - dw Mon179_EvosAttacks ;MissingNo - dw Mon118_EvosAttacks - dw Mon119_EvosAttacks - dw Mon180_EvosAttacks ;MissingNo - dw Mon181_EvosAttacks ;MissingNo - dw Mon182_EvosAttacks ;MissingNo - dw Mon183_EvosAttacks ;MissingNo - dw Mon077_EvosAttacks - dw Mon078_EvosAttacks - dw Mon019_EvosAttacks - dw Mon020_EvosAttacks - dw Mon033_EvosAttacks - dw Mon030_EvosAttacks - dw Mon074_EvosAttacks - dw Mon137_EvosAttacks - dw Mon142_EvosAttacks - dw Mon184_EvosAttacks ;MissingNo - dw Mon081_EvosAttacks - dw Mon185_EvosAttacks ;MissingNo - dw Mon186_EvosAttacks ;MissingNo - dw Mon004_EvosAttacks - dw Mon007_EvosAttacks - dw Mon005_EvosAttacks - dw Mon008_EvosAttacks - dw Mon006_EvosAttacks - dw Mon187_EvosAttacks ;MissingNo - dw Mon188_EvosAttacks ;MissingNo - dw Mon189_EvosAttacks ;MissingNo - dw Mon190_EvosAttacks ;MissingNo - dw Mon043_EvosAttacks - dw Mon044_EvosAttacks - dw Mon045_EvosAttacks - dw Mon069_EvosAttacks - dw Mon070_EvosAttacks - dw Mon071_EvosAttacks - -Mon112_EvosAttacks: -;RHYDON -;Evolutions - db 0 -;Learnset - db 30,STOMP - db 35,TAIL_WHIP - db 40,FURY_ATTACK - db 48,HORN_DRILL - db 55,LEER - db 64,TAKE_DOWN - db 0 -Mon115_EvosAttacks: -;KANGASKHAN -;Evolutions - db 0 -;Learnset - db 26,BITE - db 31,TAIL_WHIP - db 36,MEGA_PUNCH - db 41,LEER - db 46,DIZZY_PUNCH - db 0 -Mon032_EvosAttacks: -;NIDORAN_M -;Evolutions - db EV_LEVEL,16,NIDORINO - db 0 -;Learnset - db 8,HORN_ATTACK - db 14,POISON_STING - db 21,FOCUS_ENERGY - db 29,FURY_ATTACK - db 36,HORN_DRILL - db 43,DOUBLE_KICK - db 0 -Mon035_EvosAttacks: -;CLEFAIRY -;Evolutions - db EV_ITEM,MOON_STONE,1,CLEFABLE - db 0 -;Learnset - db 13,SING - db 18,DOUBLESLAP - db 24,MINIMIZE - db 31,METRONOME - db 39,DEFENSE_CURL - db 48,LIGHT_SCREEN - db 0 -Mon021_EvosAttacks: -;SPEAROW -;Evolutions - db EV_LEVEL,20,FEAROW - db 0 -;Learnset - db 9,LEER - db 15,FURY_ATTACK - db 22,MIRROR_MOVE - db 29,DRILL_PECK - db 36,AGILITY - db 0 -Mon100_EvosAttacks: -;VOLTORB -;Evolutions - db EV_LEVEL,30,ELECTRODE - db 0 -;Learnset - db 17,SONICBOOM - db 22,SELFDESTRUCT - db 29,LIGHT_SCREEN - db 36,SWIFT - db 43,EXPLOSION - db 0 -Mon034_EvosAttacks: -;NIDOKING -;Evolutions - db 0 -;Learnset - db 8,HORN_ATTACK - db 14,POISON_STING - db 23,THRASH - db 0 -Mon080_EvosAttacks: -;SLOWBRO -;Evolutions - db 0 -;Learnset - db 18,DISABLE - db 22,HEADBUTT - db 27,GROWL - db 33,WATER_GUN - db 37,WITHDRAW - db 44,AMNESIA - db 55,PSYCHIC_M - db 0 -Mon002_EvosAttacks: -;IVYSAUR -;Evolutions - db EV_LEVEL,32,VENUSAUR - db 0 -;Learnset - db 7,LEECH_SEED - db 13,VINE_WHIP - db 22,POISONPOWDER - db 30,RAZOR_LEAF - db 38,GROWTH - db 46,SLEEP_POWDER - db 54,SOLARBEAM - db 0 -Mon103_EvosAttacks: -;EXEGGUTOR -;Evolutions - db 0 -;Learnset - db 28,STOMP - db 0 -Mon108_EvosAttacks: -;LICKITUNG -;Evolutions - db 0 -;Learnset - db 7,STOMP - db 15,DISABLE - db 23,DEFENSE_CURL - db 31,SLAM - db 39,SCREECH - db 0 -Mon102_EvosAttacks: -;EXEGGCUTE -;Evolutions - db EV_ITEM,LEAF_STONE ,1,EXEGGUTOR - db 0 -;Learnset - db 25,REFLECT - db 28,LEECH_SEED - db 32,STUN_SPORE - db 37,POISONPOWDER - db 42,SOLARBEAM - db 48,SLEEP_POWDER - db 0 -Mon088_EvosAttacks: -;GRIMER -;Evolutions - db EV_LEVEL,38,MUK - db 0 -;Learnset - db 30,POISON_GAS - db 33,MINIMIZE - db 37,SLUDGE - db 42,HARDEN - db 48,SCREECH - db 55,ACID_ARMOR - db 0 -Mon094_EvosAttacks: -;GENGAR -;Evolutions - db 0 -;Learnset - db 29,HYPNOSIS - db 38,DREAM_EATER - db 0 -Mon029_EvosAttacks: -;NIDORAN_F -;Evolutions - db EV_LEVEL,16,NIDORINA - db 0 -;Learnset - db 8,SCRATCH - db 14,POISON_STING - db 21,TAIL_WHIP - db 29,BITE - db 36,FURY_SWIPES - db 43,DOUBLE_KICK - db 0 -Mon031_EvosAttacks: -;NIDOQUEEN -;Evolutions - db 0 -;Learnset - db 8,SCRATCH - db 14,POISON_STING - db 23,BODY_SLAM - db 0 -Mon104_EvosAttacks: -;CUBONE -;Evolutions - db EV_LEVEL,28,MAROWAK - db 0 -;Learnset - db 25,LEER - db 31,FOCUS_ENERGY - db 38,THRASH - db 43,BONEMERANG - db 46,RAGE - db 0 -Mon111_EvosAttacks: -;RHYHORN -;Evolutions - db EV_LEVEL,42,RHYDON - db 0 -;Learnset - db 30,STOMP - db 35,TAIL_WHIP - db 40,FURY_ATTACK - db 45,HORN_DRILL - db 50,LEER - db 55,TAKE_DOWN - db 0 -Mon131_EvosAttacks: -;LAPRAS -;Evolutions - db 0 -;Learnset - db 16,SING - db 20,MIST - db 25,BODY_SLAM - db 31,CONFUSE_RAY - db 38,ICE_BEAM - db 46,HYDRO_PUMP - db 0 -Mon059_EvosAttacks: -;ARCANINE -;Evolutions - db 0 -;Learnset - db 0 -Mon151_EvosAttacks: -;MEW -;Evolutions - db 0 -;Learnset - db 10,TRANSFORM - db 20,MEGA_PUNCH - db 30,METRONOME - db 40,PSYCHIC_M - db 0 -Mon130_EvosAttacks: -;GYARADOS -;Evolutions - db 0 -;Learnset - db 20,BITE - db 25,DRAGON_RAGE - db 32,LEER - db 41,HYDRO_PUMP - db 52,HYPER_BEAM - db 0 -Mon090_EvosAttacks: -;SHELLDER -;Evolutions - db EV_ITEM,WATER_STONE ,1,CLOYSTER - db 0 -;Learnset - db 18,SUPERSONIC - db 23,CLAMP - db 30,AURORA_BEAM - db 39,LEER - db 50,ICE_BEAM - db 0 -Mon072_EvosAttacks: -;TENTACOOL -;Evolutions - db EV_LEVEL,30,TENTACRUEL - db 0 -;Learnset - db 7,SUPERSONIC - db 13,WRAP - db 18,POISON_STING - db 22,WATER_GUN - db 27,CONSTRICT - db 33,BARRIER - db 40,SCREECH - db 48,HYDRO_PUMP - db 0 -Mon092_EvosAttacks: -;GASTLY -;Evolutions - db EV_LEVEL,25,HAUNTER - db 0 -;Learnset - db 27,HYPNOSIS - db 35,DREAM_EATER - db 0 -Mon123_EvosAttacks: -;SCYTHER -;Evolutions - db 0 -;Learnset - db 17,LEER - db 20,FOCUS_ENERGY - db 24,DOUBLE_TEAM - db 29,SLASH - db 35,SWORDS_DANCE - db 42,AGILITY - db 0 -Mon120_EvosAttacks: -;STARYU -;Evolutions - db EV_ITEM,WATER_STONE ,1,STARMIE - db 0 -;Learnset - db 17,WATER_GUN - db 22,HARDEN - db 27,RECOVER - db 32,SWIFT - db 37,MINIMIZE - db 42,LIGHT_SCREEN - db 47,HYDRO_PUMP - db 0 -Mon009_EvosAttacks: -;BLASTOISE -;Evolutions - db 0 -;Learnset - db 8,BUBBLE - db 15,WATER_GUN - db 24,BITE - db 31,WITHDRAW - db 42,SKULL_BASH - db 52,HYDRO_PUMP - db 0 -Mon127_EvosAttacks: -;PINSIR -;Evolutions - db 0 -;Learnset - db 25,SEISMIC_TOSS - db 30,GUILLOTINE - db 36,FOCUS_ENERGY - db 43,HARDEN - db 49,SLASH - db 54,SWORDS_DANCE - db 0 -Mon114_EvosAttacks: -;TANGELA -;Evolutions - db 0 -;Learnset - db 29,ABSORB - db 32,POISONPOWDER - db 36,STUN_SPORE - db 39,SLEEP_POWDER - db 45,SLAM - db 49,GROWTH - db 0 - -Mon152_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon153_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon058_EvosAttacks: -;GROWLITHE -;Evolutions - db EV_ITEM,FIRE_STONE,1,ARCANINE - db 0 -;Learnset - db 18,EMBER - db 23,LEER - db 30,TAKE_DOWN - db 39,AGILITY - db 50,FLAMETHROWER - db 0 -Mon095_EvosAttacks: -;ONIX -;Evolutions - db 0 -;Learnset - db 15,BIND - db 19,ROCK_THROW - db 25,RAGE - db 33,SLAM - db 43,HARDEN - db 0 -Mon022_EvosAttacks: -;FEAROW -;Evolutions - db 0 -;Learnset - db 9,LEER - db 15,FURY_ATTACK - db 25,MIRROR_MOVE - db 34,DRILL_PECK - db 43,AGILITY - db 0 -Mon016_EvosAttacks: -;PIDGEY -;Evolutions - db EV_LEVEL,18,PIDGEOTTO - db 0 -;Learnset - db 5,SAND_ATTACK - db 12,QUICK_ATTACK - db 19,WHIRLWIND - db 28,WING_ATTACK - db 36,AGILITY - db 44,MIRROR_MOVE - db 0 -Mon079_EvosAttacks: -;SLOWPOKE -;Evolutions - db EV_LEVEL,37,SLOWBRO - db 0 -;Learnset - db 18,DISABLE - db 22,HEADBUTT - db 27,GROWL - db 33,WATER_GUN - db 40,AMNESIA - db 48,PSYCHIC_M - db 0 -Mon064_EvosAttacks: -;KADABRA -;Evolutions - db EV_TRADE,1,ALAKAZAM - db 0 -;Learnset - db 16,CONFUSION - db 20,DISABLE - db 27,PSYBEAM - db 31,RECOVER - db 38,PSYCHIC_M - db 42,REFLECT - db 0 -Mon075_EvosAttacks: -;GRAVELER -;Evolutions - db EV_TRADE,1,GOLEM - db 0 -;Learnset - db 11,DEFENSE_CURL - db 16,ROCK_THROW - db 21,SELFDESTRUCT - db 29,HARDEN - db 36,EARTHQUAKE - db 43,EXPLOSION - db 0 -Mon113_EvosAttacks: -;CHANSEY -;Evolutions - db 0 -;Learnset - db 24,SING - db 30,GROWL - db 38,MINIMIZE - db 44,DEFENSE_CURL - db 48,LIGHT_SCREEN - db 54,DOUBLE_EDGE - db 0 -Mon067_EvosAttacks: -;MACHOKE -;Evolutions - db EV_TRADE,1,MACHAMP - db 0 -;Learnset - db 20,LOW_KICK - db 25,LEER - db 36,FOCUS_ENERGY - db 44,SEISMIC_TOSS - db 52,SUBMISSION - db 0 -Mon122_EvosAttacks: -;MR_MIME -;Evolutions - db 0 -;Learnset - db 15,CONFUSION - db 23,LIGHT_SCREEN - db 31,DOUBLESLAP - db 39,MEDITATE - db 47,SUBSTITUTE - db 0 -Mon106_EvosAttacks: -;HITMONLEE -;Evolutions - db 0 -;Learnset - db 33,ROLLING_KICK - db 38,JUMP_KICK - db 43,FOCUS_ENERGY - db 48,HI_JUMP_KICK - db 53,MEGA_KICK - db 0 -Mon107_EvosAttacks: -;HITMONCHAN -;Evolutions - db 0 -;Learnset - db 33,FIRE_PUNCH - db 38,ICE_PUNCH - db 43,THUNDERPUNCH - db 48,MEGA_PUNCH - db 53,COUNTER - db 0 -Mon024_EvosAttacks: -;ARBOK -;Evolutions - db 0 -;Learnset - db 10,POISON_STING - db 17,BITE - db 27,GLARE - db 36,SCREECH - db 47,ACID - db 0 -Mon047_EvosAttacks: -;PARASECT -;Evolutions - db 0 -;Learnset - db 13,STUN_SPORE - db 20,LEECH_LIFE - db 30,SPORE - db 39,SLASH - db 48,GROWTH - db 0 -Mon054_EvosAttacks: -;PSYDUCK -;Evolutions - db EV_LEVEL,33,GOLDUCK - db 0 -;Learnset - db 28,TAIL_WHIP - db 31,DISABLE - db 36,CONFUSION - db 43,FURY_SWIPES - db 52,HYDRO_PUMP - db 0 -Mon096_EvosAttacks: -;DROWZEE -;Evolutions - db EV_LEVEL,26,HYPNO - db 0 -;Learnset - db 12,DISABLE - db 17,CONFUSION - db 24,HEADBUTT - db 29,POISON_GAS - db 32,PSYCHIC_M - db 37,MEDITATE - db 0 -Mon076_EvosAttacks: -;GOLEM -;Evolutions - db 0 -;Learnset - db 11,DEFENSE_CURL - db 16,ROCK_THROW - db 21,SELFDESTRUCT - db 29,HARDEN - db 36,EARTHQUAKE - db 43,EXPLOSION - db 0 - -Mon154_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon126_EvosAttacks: -;MAGMAR -;Evolutions - db 0 -;Learnset - db 36,LEER - db 39,CONFUSE_RAY - db 43,FIRE_PUNCH - db 48,SMOKESCREEN - db 52,SMOG - db 55,FLAMETHROWER - db 0 - -Mon155_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon125_EvosAttacks: -;ELECTABUZZ -;Evolutions - db 0 -;Learnset - db 34,THUNDERSHOCK - db 37,SCREECH - db 42,THUNDERPUNCH - db 49,LIGHT_SCREEN - db 54,THUNDER - db 0 -Mon082_EvosAttacks: -;MAGNETON -;Evolutions - db 0 -;Learnset - db 21,SONICBOOM - db 25,THUNDERSHOCK - db 29,SUPERSONIC - db 38,THUNDER_WAVE - db 46,SWIFT - db 54,SCREECH - db 0 -Mon109_EvosAttacks: -;KOFFING -;Evolutions - db EV_LEVEL,35,WEEZING - db 0 -;Learnset - db 32,SLUDGE - db 37,SMOKESCREEN - db 40,SELFDESTRUCT - db 45,HAZE - db 48,EXPLOSION - db 0 - -Mon156_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon056_EvosAttacks: -;MANKEY -;Evolutions - db EV_LEVEL,28,PRIMEAPE - db 0 -;Learnset - db 15,KARATE_CHOP - db 21,FURY_SWIPES - db 27,FOCUS_ENERGY - db 33,SEISMIC_TOSS - db 39,THRASH - db 0 -Mon086_EvosAttacks: -;SEEL -;Evolutions - db EV_LEVEL,34,DEWGONG - db 0 -;Learnset - db 30,GROWL - db 35,AURORA_BEAM - db 40,REST - db 45,TAKE_DOWN - db 50,ICE_BEAM - db 0 -Mon050_EvosAttacks: -;DIGLETT -;Evolutions - db EV_LEVEL,26,DUGTRIO - db 0 -;Learnset - db 15,GROWL - db 19,DIG - db 24,SAND_ATTACK - db 31,SLASH - db 40,EARTHQUAKE - db 0 -Mon128_EvosAttacks: -;TAUROS -;Evolutions - db 0 -;Learnset - db 21,STOMP - db 28,TAIL_WHIP - db 35,LEER - db 44,RAGE - db 51,TAKE_DOWN - db 0 - -Mon157_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon158_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon159_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon083_EvosAttacks: -;FARFETCH_D -;Evolutions - db 0 -;Learnset - db 7,LEER - db 15,FURY_ATTACK - db 23,SWORDS_DANCE - db 31,AGILITY - db 39,SLASH - db 0 -Mon048_EvosAttacks: -;VENONAT -;Evolutions - db EV_LEVEL,31,VENOMOTH - db 0 -;Learnset - db 24,POISONPOWDER - db 27,LEECH_LIFE - db 30,STUN_SPORE - db 35,PSYBEAM - db 38,SLEEP_POWDER - db 43,PSYCHIC_M - db 0 -Mon149_EvosAttacks: -;DRAGONITE -;Evolutions - db 0 -;Learnset - db 10,THUNDER_WAVE - db 20,AGILITY - db 35,SLAM - db 45,DRAGON_RAGE - db 60,HYPER_BEAM - db 0 - -Mon160_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon161_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon162_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon084_EvosAttacks: -;DODUO -;Evolutions - db EV_LEVEL,31,DODRIO - db 0 -;Learnset - db 20,GROWL - db 24,FURY_ATTACK - db 30,DRILL_PECK - db 36,RAGE - db 40,TRI_ATTACK - db 44,AGILITY - db 0 -Mon060_EvosAttacks: -;POLIWAG -;Evolutions - db EV_LEVEL,25,POLIWHIRL - db 0 -;Learnset - db 16,HYPNOSIS - db 19,WATER_GUN - db 25,DOUBLESLAP - db 31,BODY_SLAM - db 38,AMNESIA - db 45,HYDRO_PUMP - db 0 -Mon124_EvosAttacks: -;JYNX -;Evolutions - db 0 -;Learnset - db 18,LICK - db 23,DOUBLESLAP - db 31,ICE_PUNCH - db 39,BODY_SLAM - db 47,THRASH - db 58,BLIZZARD - db 0 -Mon146_EvosAttacks: -;MOLTRES -;Evolutions - db 0 -;Learnset - db 51,LEER - db 55,AGILITY - db 60,SKY_ATTACK - db 0 -Mon144_EvosAttacks: -;ARTICUNO -;Evolutions - db 0 -;Learnset - db 51,BLIZZARD - db 55,AGILITY - db 60,MIST - db 0 -Mon145_EvosAttacks: -;ZAPDOS -;Evolutions - db 0 -;Learnset - db 51,THUNDER - db 55,AGILITY - db 60,LIGHT_SCREEN - db 0 -Mon132_EvosAttacks: -;DITTO -;Evolutions - db 0 -;Learnset - db 0 -Mon052_EvosAttacks: -;MEOWTH -;Evolutions - db EV_LEVEL,28,PERSIAN - db 0 -;Learnset - db 12,BITE - db 17,PAY_DAY - db 24,SCREECH - db 33,FURY_SWIPES - db 44,SLASH - db 0 -Mon098_EvosAttacks: -;KRABBY -;Evolutions - db EV_LEVEL,28,KINGLER - db 0 -;Learnset - db 20,VICEGRIP - db 25,GUILLOTINE - db 30,STOMP - db 35,CRABHAMMER - db 40,HARDEN - db 0 - -Mon163_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon164_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon165_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon037_EvosAttacks: -;VULPIX -;Evolutions - db EV_ITEM,FIRE_STONE,1,NINETALES - db 0 -;Learnset - db 16,QUICK_ATTACK - db 21,ROAR - db 28,CONFUSE_RAY - db 35,FLAMETHROWER - db 42,FIRE_SPIN - db 0 -Mon038_EvosAttacks: -;NINETALES -;Evolutions - db 0 -;Learnset - db 0 -Mon025_EvosAttacks: -;PIKACHU -;Evolutions - db EV_ITEM,THUNDER_STONE ,1,RAICHU - db 0 -;Learnset - db 9,THUNDER_WAVE - db 16,QUICK_ATTACK - db 26,SWIFT - db 33,AGILITY - db 43,THUNDER - db 0 -Mon026_EvosAttacks: -;RAICHU -;Evolutions - db 0 -;Learnset - db 0 - -Mon166_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon167_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon147_EvosAttacks: -;DRATINI -;Evolutions - db EV_LEVEL,30,DRAGONAIR - db 0 -;Learnset - db 10,THUNDER_WAVE - db 20,AGILITY - db 30,SLAM - db 40,DRAGON_RAGE - db 50,HYPER_BEAM - db 0 -Mon148_EvosAttacks: -;DRAGONAIR -;Evolutions - db EV_LEVEL,55,DRAGONITE - db 0 -;Learnset - db 10,THUNDER_WAVE - db 20,AGILITY - db 35,SLAM - db 45,DRAGON_RAGE - db 55,HYPER_BEAM - db 0 -Mon140_EvosAttacks: -;KABUTO -;Evolutions - db EV_LEVEL,40,KABUTOPS - db 0 -;Learnset - db 34,ABSORB - db 39,SLASH - db 44,LEER - db 49,HYDRO_PUMP - db 0 -Mon141_EvosAttacks: -;KABUTOPS -;Evolutions - db 0 -;Learnset - db 34,ABSORB - db 39,SLASH - db 46,LEER - db 53,HYDRO_PUMP - db 0 -Mon116_EvosAttacks: -;HORSEA -;Evolutions - db EV_LEVEL,32,SEADRA - db 0 -;Learnset - db 19,SMOKESCREEN - db 24,LEER - db 30,WATER_GUN - db 37,AGILITY - db 45,HYDRO_PUMP - db 0 -Mon117_EvosAttacks: -;SEADRA -;Evolutions - db 0 -;Learnset - db 19,SMOKESCREEN - db 24,LEER - db 30,WATER_GUN - db 41,AGILITY - db 52,HYDRO_PUMP - db 0 - -Mon168_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon169_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon027_EvosAttacks: -;SANDSHREW -;Evolutions - db EV_LEVEL,22,SANDSLASH - db 0 -;Learnset - db 10,SAND_ATTACK - db 17,SLASH - db 24,POISON_STING - db 31,SWIFT - db 38,FURY_SWIPES - db 0 -Mon028_EvosAttacks: -;SANDSLASH -;Evolutions - db 0 -;Learnset - db 10,SAND_ATTACK - db 17,SLASH - db 27,POISON_STING - db 36,SWIFT - db 47,FURY_SWIPES - db 0 -Mon138_EvosAttacks: -;OMANYTE -;Evolutions - db EV_LEVEL,40,OMASTAR - db 0 -;Learnset - db 34,HORN_ATTACK - db 39,LEER - db 46,SPIKE_CANNON - db 53,HYDRO_PUMP - db 0 -Mon139_EvosAttacks: -;OMASTAR -;Evolutions - db 0 -;Learnset - db 34,HORN_ATTACK - db 39,LEER - db 44,SPIKE_CANNON - db 49,HYDRO_PUMP - db 0 -Mon039_EvosAttacks: -;JIGGLYPUFF -;Evolutions - db EV_ITEM,MOON_STONE,1,WIGGLYTUFF - db 0 -;Learnset - db 9,POUND - db 14,DISABLE - db 19,DEFENSE_CURL - db 24,DOUBLESLAP - db 29,REST - db 34,BODY_SLAM - db 39,DOUBLE_EDGE - db 0 -Mon040_EvosAttacks: -;WIGGLYTUFF -;Evolutions - db 0 -;Learnset - db 0 -Mon133_EvosAttacks: -;EEVEE -;Evolutions - db EV_ITEM,FIRE_STONE,1,FLAREON - db EV_ITEM,THUNDER_STONE ,1,JOLTEON - db EV_ITEM,WATER_STONE ,1,VAPOREON - db 0 -;Learnset - db 27,QUICK_ATTACK - db 31,TAIL_WHIP - db 37,BITE - db 45,TAKE_DOWN - db 0 -Mon136_EvosAttacks: -;FLAREON -;Evolutions - db 0 -;Learnset - db 27,QUICK_ATTACK - db 31,EMBER - db 37,TAIL_WHIP - db 40,BITE - db 42,LEER - db 44,FIRE_SPIN - db 48,RAGE - db 54,FLAMETHROWER - db 0 -Mon135_EvosAttacks: -;JOLTEON -;Evolutions - db 0 -;Learnset - db 27,QUICK_ATTACK - db 31,THUNDERSHOCK - db 37,TAIL_WHIP - db 40,THUNDER_WAVE - db 42,DOUBLE_KICK - db 44,AGILITY - db 48,PIN_MISSILE - db 54,THUNDER - db 0 -Mon134_EvosAttacks: -;VAPOREON -;Evolutions - db 0 -;Learnset - db 27,QUICK_ATTACK - db 31,WATER_GUN - db 37,TAIL_WHIP - db 40,BITE - db 42,ACID_ARMOR - db 44,HAZE - db 48,MIST - db 54,HYDRO_PUMP - db 0 -Mon066_EvosAttacks: -;MACHOP -;Evolutions - db EV_LEVEL,28,MACHOKE - db 0 -;Learnset - db 20,LOW_KICK - db 25,LEER - db 32,FOCUS_ENERGY - db 39,SEISMIC_TOSS - db 46,SUBMISSION - db 0 -Mon041_EvosAttacks: -;ZUBAT -;Evolutions - db EV_LEVEL,22,GOLBAT - db 0 -;Learnset - db 10,SUPERSONIC - db 15,BITE - db 21,CONFUSE_RAY - db 28,WING_ATTACK - db 36,HAZE - db 0 -Mon023_EvosAttacks: -;EKANS -;Evolutions - db EV_LEVEL,22,ARBOK - db 0 -;Learnset - db 10,POISON_STING - db 17,BITE - db 24,GLARE - db 31,SCREECH - db 38,ACID - db 0 -Mon046_EvosAttacks: -;PARAS -;Evolutions - db EV_LEVEL,24,PARASECT - db 0 -;Learnset - db 13,STUN_SPORE - db 20,LEECH_LIFE - db 27,SPORE - db 34,SLASH - db 41,GROWTH - db 0 -Mon061_EvosAttacks: -;POLIWHIRL -;Evolutions - db EV_ITEM,WATER_STONE ,1,POLIWRATH - db 0 -;Learnset - db 16,HYPNOSIS - db 19,WATER_GUN - db 26,DOUBLESLAP - db 33,BODY_SLAM - db 41,AMNESIA - db 49,HYDRO_PUMP - db 0 -Mon062_EvosAttacks: -;POLIWRATH -;Evolutions - db 0 -;Learnset - db 16,HYPNOSIS - db 19,WATER_GUN - db 0 -Mon013_EvosAttacks: -;WEEDLE -;Evolutions - db EV_LEVEL,7,KAKUNA - db 0 -;Learnset - db 0 -Mon014_EvosAttacks: -;KAKUNA -;Evolutions - db EV_LEVEL,10,BEEDRILL - db 0 -;Learnset - db 0 -Mon015_EvosAttacks: -;BEEDRILL -;Evolutions - db 0 -;Learnset - db 12,FURY_ATTACK - db 16,FOCUS_ENERGY - db 20,TWINEEDLE - db 25,RAGE - db 30,PIN_MISSILE - db 35,AGILITY - db 0 - -Mon170_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon085_EvosAttacks: -;DODRIO -;Evolutions - db 0 -;Learnset - db 20,GROWL - db 24,FURY_ATTACK - db 30,DRILL_PECK - db 39,RAGE - db 45,TRI_ATTACK - db 51,AGILITY - db 0 -Mon057_EvosAttacks: -;PRIMEAPE -;Evolutions - db 0 -;Learnset - db 15,KARATE_CHOP - db 21,FURY_SWIPES - db 27,FOCUS_ENERGY - db 37,SEISMIC_TOSS - db 46,THRASH - db 0 -Mon051_EvosAttacks: -;DUGTRIO -;Evolutions - db 0 -;Learnset - db 15,GROWL - db 19,DIG - db 24,SAND_ATTACK - db 35,SLASH - db 47,EARTHQUAKE - db 0 -Mon049_EvosAttacks: -;VENOMOTH -;Evolutions - db 0 -;Learnset - db 24,POISONPOWDER - db 27,LEECH_LIFE - db 30,STUN_SPORE - db 38,PSYBEAM - db 43,SLEEP_POWDER - db 50,PSYCHIC_M - db 0 -Mon087_EvosAttacks: -;DEWGONG -;Evolutions - db 0 -;Learnset - db 30,GROWL - db 35,AURORA_BEAM - db 44,REST - db 50,TAKE_DOWN - db 56,ICE_BEAM - db 0 - -Mon171_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon172_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon010_EvosAttacks: -;CATERPIE -;Evolutions - db EV_LEVEL,7,METAPOD - db 0 -;Learnset - db 0 -Mon011_EvosAttacks: -;METAPOD -;Evolutions - db EV_LEVEL,10,BUTTERFREE - db 0 -;Learnset - db 0 -Mon012_EvosAttacks: -;BUTTERFREE -;Evolutions - db 0 -;Learnset - db 12,CONFUSION - db 15,POISONPOWDER - db 16,STUN_SPORE - db 17,SLEEP_POWDER - db 21,SUPERSONIC - db 26,WHIRLWIND - db 32,PSYBEAM - db 0 -Mon068_EvosAttacks: -;MACHAMP -;Evolutions - db 0 -;Learnset - db 20,LOW_KICK - db 25,LEER - db 36,FOCUS_ENERGY - db 44,SEISMIC_TOSS - db 52,SUBMISSION - db 0 - -Mon173_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon055_EvosAttacks: -;GOLDUCK -;Evolutions - db 0 -;Learnset - db 28,TAIL_WHIP - db 31,DISABLE - db 39,CONFUSION - db 48,FURY_SWIPES - db 59,HYDRO_PUMP - db 0 -Mon097_EvosAttacks: -;HYPNO -;Evolutions - db 0 -;Learnset - db 12,DISABLE - db 17,CONFUSION - db 24,HEADBUTT - db 33,POISON_GAS - db 37,PSYCHIC_M - db 43,MEDITATE - db 0 -Mon042_EvosAttacks: -;GOLBAT -;Evolutions - db 0 -;Learnset - db 10,SUPERSONIC - db 15,BITE - db 21,CONFUSE_RAY - db 32,WING_ATTACK - db 43,HAZE - db 0 -Mon150_EvosAttacks: -;MEWTWO -;Evolutions - db 0 -;Learnset - db 63,BARRIER - db 66,PSYCHIC_M - db 70,RECOVER - db 75,MIST - db 81,AMNESIA - db 0 -Mon143_EvosAttacks: -;SNORLAX -;Evolutions - db 0 -;Learnset - db 35,BODY_SLAM - db 41,HARDEN - db 48,DOUBLE_EDGE - db 56,HYPER_BEAM - db 0 -Mon129_EvosAttacks: -;MAGIKARP -;Evolutions - db EV_LEVEL,20,GYARADOS - db 0 -;Learnset - db 15,TACKLE - db 0 - -Mon174_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon175_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon089_EvosAttacks: -;MUK -;Evolutions - db 0 -;Learnset - db 30,POISON_GAS - db 33,MINIMIZE - db 37,SLUDGE - db 45,HARDEN - db 53,SCREECH - db 60,ACID_ARMOR - db 0 - -Mon176_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon099_EvosAttacks: -;KINGLER -;Evolutions - db 0 -;Learnset - db 20,VICEGRIP - db 25,GUILLOTINE - db 34,STOMP - db 42,CRABHAMMER - db 49,HARDEN - db 0 -Mon091_EvosAttacks: -;CLOYSTER -;Evolutions - db 0 -;Learnset - db 50,SPIKE_CANNON - db 0 - -Mon177_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon101_EvosAttacks: -;ELECTRODE -;Evolutions - db 0 -;Learnset - db 17,SONICBOOM - db 22,SELFDESTRUCT - db 29,LIGHT_SCREEN - db 40,SWIFT - db 50,EXPLOSION - db 0 -Mon036_EvosAttacks: -;CLEFABLE -;Evolutions - db 0 -;Learnset - db 0 -Mon110_EvosAttacks: -;WEEZING -;Evolutions - db 0 -;Learnset - db 32,SLUDGE - db 39,SMOKESCREEN - db 43,SELFDESTRUCT - db 49,HAZE - db 53,EXPLOSION - db 0 -Mon053_EvosAttacks: -;PERSIAN -;Evolutions - db 0 -;Learnset - db 12,BITE - db 17,PAY_DAY - db 24,SCREECH - db 37,FURY_SWIPES - db 51,SLASH - db 0 -Mon105_EvosAttacks: -;MAROWAK -;Evolutions - db 0 -;Learnset - db 25,LEER - db 33,FOCUS_ENERGY - db 41,THRASH - db 48,BONEMERANG - db 55,RAGE - db 0 - -Mon178_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon093_EvosAttacks: -;HAUNTER -;Evolutions - db EV_TRADE,1,GENGAR - db 0 -;Learnset - db 29,HYPNOSIS - db 38,DREAM_EATER - db 0 -Mon063_EvosAttacks: -;ABRA -;Evolutions - db EV_LEVEL,16,KADABRA - db 0 -;Learnset - db 0 -Mon065_EvosAttacks: -;ALAKAZAM -;Evolutions - db 0 -;Learnset - db 16,CONFUSION - db 20,DISABLE - db 27,PSYBEAM - db 31,RECOVER - db 38,PSYCHIC_M - db 42,REFLECT - db 0 -Mon017_EvosAttacks: -;PIDGEOTTO -;Evolutions - db EV_LEVEL,36,PIDGEOT - db 0 -;Learnset - db 5,SAND_ATTACK - db 12,QUICK_ATTACK - db 21,WHIRLWIND - db 31,WING_ATTACK - db 40,AGILITY - db 49,MIRROR_MOVE - db 0 -Mon018_EvosAttacks: -;PIDGEOT -;Evolutions - db 0 -;Learnset - db 5,SAND_ATTACK - db 12,QUICK_ATTACK - db 21,WHIRLWIND - db 31,WING_ATTACK - db 44,AGILITY - db 54,MIRROR_MOVE - db 0 -Mon121_EvosAttacks: -;STARMIE -;Evolutions - db 0 -;Learnset - db 0 -Mon001_EvosAttacks: -;BULBASAUR -;Evolutions - db EV_LEVEL,16,IVYSAUR - db 0 -;Learnset - db 7,LEECH_SEED - db 13,VINE_WHIP - db 20,POISONPOWDER - db 27,RAZOR_LEAF - db 34,GROWTH - db 41,SLEEP_POWDER - db 48,SOLARBEAM - db 0 -Mon003_EvosAttacks: -;VENUSAUR -;Evolutions - db 0 -;Learnset - db 7,LEECH_SEED - db 13,VINE_WHIP - db 22,POISONPOWDER - db 30,RAZOR_LEAF - db 43,GROWTH - db 55,SLEEP_POWDER - db 65,SOLARBEAM - db 0 -Mon073_EvosAttacks: -;TENTACRUEL -;Evolutions - db 0 -;Learnset - db 7,SUPERSONIC - db 13,WRAP - db 18,POISON_STING - db 22,WATER_GUN - db 27,CONSTRICT - db 35,BARRIER - db 43,SCREECH - db 50,HYDRO_PUMP - db 0 - -Mon179_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon118_EvosAttacks: -;GOLDEEN -;Evolutions - db EV_LEVEL,33,SEAKING - db 0 -;Learnset - db 19,SUPERSONIC - db 24,HORN_ATTACK - db 30,FURY_ATTACK - db 37,WATERFALL - db 45,HORN_DRILL - db 54,AGILITY - db 0 -Mon119_EvosAttacks: -;SEAKING -;Evolutions - db 0 -;Learnset - db 19,SUPERSONIC - db 24,HORN_ATTACK - db 30,FURY_ATTACK - db 39,WATERFALL - db 48,HORN_DRILL - db 54,AGILITY - db 0 - -Mon180_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon181_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon182_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon183_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon077_EvosAttacks: -;PONYTA -;Evolutions - db EV_LEVEL,40,RAPIDASH - db 0 -;Learnset - db 30,TAIL_WHIP - db 32,STOMP - db 35,GROWL - db 39,FIRE_SPIN - db 43,TAKE_DOWN - db 48,AGILITY - db 0 -Mon078_EvosAttacks: -;RAPIDASH -;Evolutions - db 0 -;Learnset - db 30,TAIL_WHIP - db 32,STOMP - db 35,GROWL - db 39,FIRE_SPIN - db 47,TAKE_DOWN - db 55,AGILITY - db 0 -Mon019_EvosAttacks: -;RATTATA -;Evolutions - db EV_LEVEL,20,RATICATE - db 0 -;Learnset - db 7,QUICK_ATTACK - db 14,HYPER_FANG - db 23,FOCUS_ENERGY - db 34,SUPER_FANG - db 0 -Mon020_EvosAttacks: -;RATICATE -;Evolutions - db 0 -;Learnset - db 7,QUICK_ATTACK - db 14,HYPER_FANG - db 27,FOCUS_ENERGY - db 41,SUPER_FANG - db 0 -Mon033_EvosAttacks: -;NIDORINO -;Evolutions - db EV_ITEM,MOON_STONE,1,NIDOKING - db 0 -;Learnset - db 8,HORN_ATTACK - db 14,POISON_STING - db 23,FOCUS_ENERGY - db 32,FURY_ATTACK - db 41,HORN_DRILL - db 50,DOUBLE_KICK - db 0 -Mon030_EvosAttacks: -;NIDORINA -;Evolutions - db EV_ITEM,MOON_STONE,1,NIDOQUEEN - db 0 -;Learnset - db 8,SCRATCH - db 14,POISON_STING - db 23,TAIL_WHIP - db 32,BITE - db 41,FURY_SWIPES - db 50,DOUBLE_KICK - db 0 -Mon074_EvosAttacks: -;GEODUDE -;Evolutions - db EV_LEVEL,25,GRAVELER - db 0 -;Learnset - db 11,DEFENSE_CURL - db 16,ROCK_THROW - db 21,SELFDESTRUCT - db 26,HARDEN - db 31,EARTHQUAKE - db 36,EXPLOSION - db 0 -Mon137_EvosAttacks: -;PORYGON -;Evolutions - db 0 -;Learnset - db 23,PSYBEAM - db 28,RECOVER - db 35,AGILITY - db 42,TRI_ATTACK - db 0 -Mon142_EvosAttacks: -;AERODACTYL -;Evolutions - db 0 -;Learnset - db 33,SUPERSONIC - db 38,BITE - db 45,TAKE_DOWN - db 54,HYPER_BEAM - db 0 - -Mon184_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon081_EvosAttacks: -;MAGNEMITE -;Evolutions - db EV_LEVEL,30,MAGNETON - db 0 -;Learnset - db 21,SONICBOOM - db 25,THUNDERSHOCK - db 29,SUPERSONIC - db 35,THUNDER_WAVE - db 41,SWIFT - db 47,SCREECH - db 0 - -Mon185_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon186_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon004_EvosAttacks: -;CHARMANDER -;Evolutions - db EV_LEVEL,16,CHARMELEON - db 0 -;Learnset - db 9,EMBER - db 15,LEER - db 22,RAGE - db 30,SLASH - db 38,FLAMETHROWER - db 46,FIRE_SPIN - db 0 -Mon007_EvosAttacks: -;SQUIRTLE -;Evolutions - db EV_LEVEL,16,WARTORTLE - db 0 -;Learnset - db 8,BUBBLE - db 15,WATER_GUN - db 22,BITE - db 28,WITHDRAW - db 35,SKULL_BASH - db 42,HYDRO_PUMP - db 0 -Mon005_EvosAttacks: -;CHARMELEON -;Evolutions - db EV_LEVEL,36,CHARIZARD - db 0 -;Learnset - db 9,EMBER - db 15,LEER - db 24,RAGE - db 33,SLASH - db 42,FLAMETHROWER - db 56,FIRE_SPIN - db 0 -Mon008_EvosAttacks: -;WARTORTLE -;Evolutions - db EV_LEVEL,36,BLASTOISE - db 0 -;Learnset - db 8,BUBBLE - db 15,WATER_GUN - db 24,BITE - db 31,WITHDRAW - db 39,SKULL_BASH - db 47,HYDRO_PUMP - db 0 -Mon006_EvosAttacks: -;CHARIZARD -;Evolutions - db 0 -;Learnset - db 9,EMBER - db 15,LEER - db 24,RAGE - db 36,SLASH - db 46,FLAMETHROWER - db 55,FIRE_SPIN - db 0 - -Mon187_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon188_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon189_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 - -Mon190_EvosAttacks: -;MISSINGNO -;Evolutions - db 0 -;Learnset - db 0 -Mon043_EvosAttacks: -;ODDISH -;Evolutions - db EV_LEVEL,21,GLOOM - db 0 -;Learnset - db 15,POISONPOWDER - db 17,STUN_SPORE - db 19,SLEEP_POWDER - db 24,ACID - db 33,PETAL_DANCE - db 46,SOLARBEAM - db 0 -Mon044_EvosAttacks: -;GLOOM -;Evolutions - db EV_ITEM,LEAF_STONE ,1,VILEPLUME - db 0 -;Learnset - db 15,POISONPOWDER - db 17,STUN_SPORE - db 19,SLEEP_POWDER - db 28,ACID - db 38,PETAL_DANCE - db 52,SOLARBEAM - db 0 -Mon045_EvosAttacks: -;VILEPLUME -;Evolutions - db 0 -;Learnset - db 15,POISONPOWDER - db 17,STUN_SPORE - db 19,SLEEP_POWDER - db 0 -Mon069_EvosAttacks: -;BELLSPROUT -;Evolutions - db EV_LEVEL,21,WEEPINBELL - db 0 -;Learnset - db 13,WRAP - db 15,POISONPOWDER - db 18,SLEEP_POWDER - db 21,STUN_SPORE - db 26,ACID - db 33,RAZOR_LEAF - db 42,SLAM - db 0 -Mon070_EvosAttacks: -;WEEPINBELL -;Evolutions - db EV_ITEM,LEAF_STONE ,1,VICTREEBEL - db 0 -;Learnset - db 13,WRAP - db 15,POISONPOWDER - db 18,SLEEP_POWDER - db 23,STUN_SPORE - db 29,ACID - db 38,RAZOR_LEAF - db 49,SLAM - db 0 -Mon071_EvosAttacks: -;VICTREEBEL -;Evolutions - db 0 -;Learnset - db 13,WRAP - db 15,POISONPOWDER - db 18,SLEEP_POWDER - db 0 - -INCBIN "baserom.gbc",$3B9EC, $3C000 - $3B9EC - -SECTION "bankF",DATA,BANK[$F] - -; These are move effects (second value from the Attacks table in bank $E). -EffectsArray1: ; 4000 - db $18,$19,$1C,$2E,$2F,$31,$38,$39,$40,$41,$42,$43,$4F,$52,$54,$55,$FF -EffectsArray2: ; 4011 -; attacks that do damage but not through normal calculations -; e.g., Super Fang, Psywave - db $28,$29,$FF -EffectsArray3: ; 4014 -; non-damaging, stat‐affecting or status‐causing attacks? -; e.g., Meditate, Bide, Hypnosis - db $01,$0A,$0B,$0C,$0D,$0E,$0F,$12,$13,$14,$15,$16,$17,$1A,$20,$32,$33,$34,$35,$36,$37,$3A,$3B,$3C,$3D,$3E,$3F,$FF -EffectsArray4: ; 4030 - db $03,$07,$08,$10,$1D,$1E,$2C,$30,$4D,$51,$FF -EffectsArray5: ; 403B - db $03,$07,$08,$10,$11,$1D,$1E,$27,$28,$29,$2B,$2C,$2D,$30 ; fallthru -EffectsArray5B: ; 4049 -; attacks that prevent the player from switching attacks? - db $1B,$2A,$FF - -INCBIN "baserom.gbc",$3C04C,$90E - $4C - -; XXX this needs cleaning up. it's what runs when a juggler switches pokemon -EnemySendOut: ; 490E - ld hl,$D058 - xor a - ld [hl],a - ld a,[$CC2F] - ld c,a - ld b,1 - push bc - ld a,$10 - call Predef - ld hl,$CCF5 - xor a - ld [hl],a - pop bc - ld a,$10 - call Predef - xor a - ld hl,$D065 - ld [hli],a - ld [hli],a - ld [hli],a - ld [hli],a - ld [hl],a - ld [$D072],a - ld [$CCEF],a - ld [$CCF3],a - ld hl,$CCF1 - ld [hli],a - ld [hl],a - dec a - ld [W_AICOUNT],a - ld hl,$D062 - res 5,[hl] - ld hl,$C3B2 - ld a,8 - call $48DF - call $6E94 - call $3719 - ld a,[$D12B] - cp 4 - jr nz,.next\@ - ld a,[$CC3E] - sub 4 - ld [$CF92],a - jr .next3\@ -.next\@ - ld b,$FF -.next2\@ - inc b - ld a,[$CFE8] - cp b - jr z,.next2\@ - ld hl,$D8A4 - ld a,b - ld [$CF92],a - push bc - ld bc,$2C - call AddNTimes - pop bc - inc hl - ld a,[hli] - ld c,a - ld a,[hl] - or c - jr z,.next2\@ -.next3\@ - ld a,[$CF92] - ld hl,$D8C5 - ld bc,$2C - call AddNTimes - ld a,[hl] - ld [$D127],a - ld a,[$CF92] - inc a - ld hl,$D89C - ld c,a - ld b,0 - add hl,bc - ld a,[hl] - ld [$CFD8],a - ld [$CF91],a - call $6B01 - ld hl,$CFE6 - ld a,[hli] - ld [$CCE3],a - ld a,[hl] - ld [$CCE4],a - ld a,1 - ld [$CC26],a - ld a,[$D11D] - dec a - jr z,.next4\@ - ld a,[W_NUMINPARTY] - dec a - jr z,.next4\@ - ld a,[$D12B] - cp 4 - jr z,.next4\@ - ld a,[$D355] - bit 6,a - jr nz,.next4\@ - ld hl,TrainerAboutToUseText - call PrintText - ld hl,$C42C - ld bc,$0801 - ld a,$14 - ld [$D125],a - call $30E8 - ld a,[$CC26] - and a - jr nz,.next4\@ - ld a,2 - ld [$D07D],a - call $13FC -.next9\@ - ld a,1 - ld [$CC26],a - jr c,.next7\@ - ld hl,$CC2F - ld a,[$CF92] - cp [hl] - jr nz,.next6\@ - ld hl,$51F5 - call PrintText -.next8\@ - call $1411 - jr .next9\@ -.next6\@ - call $4A97 - jr z,.next8\@ - xor a - ld [$CC26],a -.next7\@ - call $3DE5 - call $6E5B - call $3725 -.next4\@ - call $0082 - ld hl,$C3A0 - ld bc,$040B - call $18C4 - ld b,1 - call $3DEF - call $3DDC - ld hl,TrainerSentOutText - call PrintText - ld a,[$CFD8] - ld [$CF91],a - ld [$D0B5],a - call $1537 - ld de,$9000 - call $1665 - ld a,$CF - ld [$FFE1],a - ld hl,$C427 - ld a,2 - call Predef - ld a,[$CFD8] - call $13D0 - call $4DEC - ld a,[$CC26] - and a - ret nz - xor a - ld [$D058],a - ld [$CCF5],a - call $3719 - jp $51BA - -TrainerAboutToUseText: - TX_FAR _TrainerAboutToUseText - db "@" - -TrainerSentOutText: - TX_FAR _TrainerSentOutText - db "@" - -INCBIN "baserom.gbc",$3CA83,$3D6A9 - $3CA83 - -; in-battle stuff - ld hl,$D062 - res 4,[hl] - res 6,[hl] - call $5AF5 - ld hl,DecrementPP - ld de,$CCDC ; pointer to the move just used - ld b,BANK(DecrementPP) - call Bankswitch - ld a,[$CFD3] ; effect of the attack just used - ld hl,EffectsArray1 - ld de,1 - call IsInArray - jp c,$7132 - ld a,[$CFD3] - ld hl,EffectsArray5B - ld de,1 - call IsInArray - call c,$7132 - ld a,[$CFD3] - ld hl,EffectsArray2 - ld de,1 - call IsInArray - jp c,$5702 - call $6023 - call $6093 - jr z,.next11\@ - call $5DCF - call $5F65 - jp z,$574B - call $63A5 - call $6687 - call $656B -.next11\@ - ld a,[$D05F] - and a - jr z,.next\@ - ld a,[$CFD3] - sub a,7 - jr z,.next2\@ - jr .next3\@ ; 574B -.next\@ - ld a,[$CFD3] - and a - ld a,4 - jr z,.next2\@ - ld a,5 -.next2\@ - push af - ld a,[$D063] - bit 4,a - ld hl,$5747 - ld b,$1E - call nz,Bankswitch - pop af - ld [$CC5B],a - ld a,[$CFD2] - call $6F07 - call $6ED3 - call $4D60 - ld a,[$D063] - bit 4,a - ld hl,$5771 - ld b,$1E - call nz,Bankswitch - jr .next4\@ -.next3\@ - ld c,$1E - call $3739 - ld a,[$CFD3] - cp a,$2B - jr z,.next5\@ - cp a,$27 ; XXX SLP | FRZ ? - jr z,.next5\@ - jr .next4\@ -.next5\@ - xor a - ld [$CC5B],a - ld a,$A7 - call $6F07 -.next4\@ - ld a,[$CFD3] - cp a,9 - jr nz,.next6\@ ; 577A - call $62FD - jp z,Function580A - xor a - ld [$CCED],a - jp $569A -.next6\@ - cp a,$53 - jr nz,.next7\@ ; 5784 - call $6348 - jp $569A -.next7\@ - ld a,[$CFD3] - ld hl,EffectsArray3 - ld de,1 - call IsInArray - jp c,$7132 - ld a,[$D05F] - and a - jr z,.next8\@ ; 57A6 - call $5BE2 - ld a,[$CFD3] - cp a,7 - jr z,.next9\@ ; 57B9 - jp Function580A -.next8\@ - call $60DF - call $5C5C - ld hl,$7B7B ; MyFunction - ld b,$B ; BANK(MyFunction) - call Bankswitch - ld a,1 - ld [$CCF4],a -.next9\@ - ld a,[$CFD3] - ld hl,EffectsArray4 - ld de,1 - call IsInArray - call c,$7132 - ld hl,$CFE6 - ld a,[hli] - ld b,[hl] - or b - ret z - call $62B6 - - ld hl,$D062 - bit 2,[hl] - jr z,.next10\@ ; 57EF - ld a,[$D06A] - dec a - ld [$D06A],a - jp nz,$5714 - - res 2,[hl] - ld hl,MultiHitText - call PrintText - xor a - ld [W_NUMHITS],a ; reset -.next10\@ - ld a,[$CFD3] - and a - jp z,Function580A - ld hl,EffectsArray5 - ld de,1 - call IsInArray - call nc,$7132 - jp Function580A - -MultiHitText: - TX_FAR _MultiHitText - db "@" - -Function580A: ; 580A - xor a - ld [$CD6A],a - ld b,1 - ret - -Function5811: ; 5811 -; print the ghost battle messages - call $583A - ret nz - ld a,[H_WHOSETURN] - and a - jr nz,.Ghost\@ - ld a,[W_CURMONSTATUS] ; player’s turn - and a,SLP | FRZ - ret nz - ld hl,ScaredText - call PrintText - xor a - ret -.Ghost\@ ; ghost’s turn - ld hl,GetOutText - call PrintText - xor a - ret - -ScaredText: - TX_FAR _ScaredText - db "@" - -GetOutText: - TX_FAR _GetOutText - db "@" - -Function583A: ; 583A - ld a,[W_ISINBATTLE] - dec a - ret nz - ld a,[W_CURMAP] - cp a,$8E ; Lavender Town - jr c,.next\@ - cp a,$95 ; Pokémon Tower - jr nc,.next\@ - ld b,SILPH_SCOPE - call IsItemInBag ; $3493 - ret z -.next\@ - ld a,1 - and a - ret - -Function5854: ; 5854 - ld hl,W_CURMONSTATUS - ld a,[hl] - and a,SLP - jr z,.FrozenCheck\@ ; to 5884 - - dec a - ld [W_CURMONSTATUS],a ; decrement sleep count - and a - jr z,.WakeUp\@ ; to 5874 - - xor a - ld [$CC5B],a - ld a,SLP_ANIM - 1 - call $6F07 - ld hl,FastAsleepText - call PrintText - jr .sleepDone\@ -.WakeUp\@ - ld hl,WokeUpText - call PrintText -.sleepDone\@ - xor a - ld [$CCF1],a - ld hl,Function580A - jp $5A37 - -.FrozenCheck\@ - bit 5,[hl] ; frozen? - jr z,.HeldInPlaceCheck\@ ; to 5898 - ld hl,FrozenText - call PrintText - xor a - ld [$CCF1],a - ld hl,Function580A - jp $5A37 - -.HeldInPlaceCheck\@ - ld a,[W_CURMONBATTSTATUS] - bit 5,a - jp z,FlinchedCheck - ld hl,CantMoveText - call PrintText - ld hl,Function580A - jp $5A37 - -FlinchedCheck: ; 58AC - ld hl,$D062 - bit 3,[hl] - jp z,HyperBeamCheck - res 3,[hl] - ld hl,FlinchedText - call PrintText - ld hl,Function580A - jp $5A37 - -HyperBeamCheck: ; 58C2 - ld hl,$D063 - bit 5,[hl] - jr z,.next\@ ; 58D7 - res 5,[hl] - ld hl,MustRechargeText - call PrintText - ld hl,$580A - jp $5A37 -.next\@ - ld hl,$D06D - ld a,[hl] - and a - jr z,.next2\@ ; 58EE - dec a - ld [hl],a - and a,$F - jr nz,.next2\@ - ld [hl],a - ld [$CCEE],a - ld hl,DisabledNoMoreText - call PrintText -.next2\@ - ld a,[$D062] - add a - jr nc,.next3\@ ; 5929 - ld hl,$D06B - dec [hl] - jr nz,.next4\@ ; 5907 - ld hl,$D062 - res 7,[hl] - ld hl,ConfusedNoMoreText - call PrintText - jr .next3\@ -.next4\@ - ld hl,IsConfusedText - call PrintText - xor a - ld [$CC5B],a - ld a,CONF_ANIM - 1 - call $6F07 - call $6E9B - cp a,$80 - jr c,.next3\@ - ld hl,$D062 - ld a,[hl] - and a,$80 - ld [hl],a - call $5AAD - jr .next5\@ ; 5952 -.next3\@ - ld a,[$CCEE] - and a - jr z,.ParalysisCheck\@ ; 593E - ld hl,$CCDC - cp [hl] - jr nz,.ParalysisCheck\@ - call $5A88 - ld hl,$580A - jp $5A37 -.ParalysisCheck\@ - ld hl,W_CURMONSTATUS - bit 6,[hl] - jr z,.next7\@ ; 5975 - call $6E9B ; random number? - cp a,$3F - jr nc,.next7\@ - ld hl,FullyParalyzedText - call PrintText -.next5\@ - ld hl,$D062 - ld a,[hl] - and a,$CC - ld [hl],a - ld a,[$CFD3] - cp a,$2B - jr z,.next8\@ ; 5966 - cp a,$27 - jr z,.next8\@ - jr .next9\@ ; 596F -.next8\@ - xor a - ld [$CC5B],a - ld a,$A7 - call $6F07 -.next9\@ - ld hl,$580A - jp $5A37 -.next7\@ - ld hl,$D062 - bit 0,[hl] - jr z,.next10\@ ; 59D0 - xor a - ld [$CFD2],a - ld hl,$D0D7 - ld a,[hli] - ld b,a - ld c,[hl] - ld hl,$D075 - ld a,[hl] - add c - ld [hld],a - ld a,[hl] - adc b - ld [hl],a - ld hl,$D06A - dec [hl] - jr z,.next11\@ ; 599B - ld hl,$580A - jp $5A37 -.next11\@ - ld hl,$D062 - res 0,[hl] - ld hl,UnleashedEnergyText - call PrintText - ld a,1 - ld [$CFD4],a - ld hl,$D075 - ld a,[hld] - add a - ld b,a - ld [$D0D8],a - ld a,[hl] - rl a - ld [$D0D7],a - or b - jr nz,.next12\@ ; 59C2 - ld a,1 - ld [$D05F],a -.next12\@ - xor a - ld [hli],a - ld [hl],a - ld a,$75 - ld [$CFD2],a - ld hl,$5705 - jp $5A37 -.next10\@ - bit 1,[hl] - jr z,.next13\@ ; 59FF - ld a,$25 - ld [$CFD2],a - ld hl,ThrashingAboutText - call PrintText - ld hl,$D06A - dec [hl] - ld hl,$56DC - jp nz,$5A37 - push hl - ld hl,$D062 - res 1,[hl] - set 7,[hl] - call $6E9B ; random number? - and a,3 - inc a - inc a - ld [$D06B],a - pop hl - jp $5A37 -.next13\@ - bit 5,[hl] - jp z,$5A1A - ld hl,AttackContinuesText - call PrintText - ld a,[$D06A] - dec a - ld [$D06A],a - ld hl,$5714 - jp nz,$5A37 - jp $5A37 - -INCBIN "baserom.gbc",$3DA1A,$3DA3D - $3DA1A - -FastAsleepText: - TX_FAR _FastAsleepText - db "@" - -WokeUpText: - TX_FAR _WokeUpText - db "@" - -FrozenText: - TX_FAR _FrozenText - db "@" - -FullyParalyzedText: - TX_FAR _FullyParalyzedText - db "@" - -FlinchedText: - TX_FAR _FlinchedText - db "@" - -MustRechargeText: - TX_FAR _MustRechargeText - db "@" - -DisabledNoMoreText: - TX_FAR _DisabledNoMoreText - db "@" - -IsConfusedText: - TX_FAR _IsConfusedText - db "@" - -HurtItselfText: - TX_FAR _HurtItselfText - db "@" - -ConfusedNoMoreText: - TX_FAR _ConfusedNoMoreText - db "@" - -SavingEnergyText: - TX_FAR _SavingEnergyText - db "@" - -UnleashedEnergyText: - TX_FAR _UnleashedEnergyText - db "@" - -ThrashingAboutText: - TX_FAR _ThrashingAboutText - db "@" - -AttackContinuesText: - TX_FAR _AttackContinuesText - db "@" - -CantMoveText: - TX_FAR _CantMoveText - db "@" - -INCBIN "baserom.gbc",$3DA88,$3E474 - $3DA88 - -TypeEffects: ; 6474 -; format: attacking type, defending type, damage multiplier -; the multiplier is a (decimal) fixed-point number: -; 20 is ×2.0 -; 05 is ×0.5 -; 00 is ×0 - db WATER,FIRE,20 - db FIRE,GRASS,20 - db FIRE,ICE,20 - db GRASS,WATER,20 - db ELECTRIC,WATER,20 - db WATER,ROCK,20 - db GROUND,FLYING,00 - db WATER,WATER,05 - db FIRE,FIRE,05 - db ELECTRIC,ELECTRIC,05 - db ICE,ICE,05 - db GRASS,GRASS,05 - db PSYCHIC,PSYCHIC,05 - db FIRE,WATER,05 - db GRASS,FIRE,05 - db WATER,GRASS,05 - db ELECTRIC,GRASS,05 - db NORMAL,ROCK,05 - db NORMAL,GHOST,00 - db GHOST,GHOST,20 - db FIRE,BUG,20 - db FIRE,ROCK,05 - db WATER,GROUND,20 - db ELECTRIC,GROUND,00 - db ELECTRIC,FLYING,20 - db GRASS,GROUND,20 - db GRASS,BUG,05 - db GRASS,POISON,05 - db GRASS,ROCK,20 - db GRASS,FLYING,05 - db ICE,WATER,05 - db ICE,GRASS,20 - db ICE,GROUND,20 - db ICE,FLYING,20 - db FIGHTING,NORMAL,20 - db FIGHTING,POISON,05 - db FIGHTING,FLYING,05 - db FIGHTING,PSYCHIC,05 - db FIGHTING,BUG,05 - db FIGHTING,ROCK,20 - db FIGHTING,ICE,20 - db FIGHTING,GHOST,00 - db POISON,GRASS,20 - db POISON,POISON,05 - db POISON,GROUND,05 - db POISON,BUG,20 - db POISON,ROCK,05 - db POISON,GHOST,05 - db GROUND,FIRE,20 - db GROUND,ELECTRIC,20 - db GROUND,GRASS,05 - db GROUND,BUG,05 - db GROUND,ROCK,20 - db GROUND,POISON,20 - db FLYING,ELECTRIC,05 - db FLYING,FIGHTING,20 - db FLYING,BUG,20 - db FLYING,GRASS,20 - db FLYING,ROCK,05 - db PSYCHIC,FIGHTING,20 - db PSYCHIC,POISON,20 - db BUG,FIRE,05 - db BUG,GRASS,20 - db BUG,FIGHTING,05 - db BUG,FLYING,05 - db BUG,PSYCHIC,20 - db BUG,GHOST,05 - db BUG,POISON,20 - db ROCK,FIRE,20 - db ROCK,FIGHTING,05 - db ROCK,GROUND,05 - db ROCK,FLYING,20 - db ROCK,BUG,20 - db ROCK,ICE,20 - db GHOST,NORMAL,00 - db GHOST,PSYCHIC,00 - db FIRE,DRAGON,05 - db WATER,DRAGON,05 - db ELECTRIC,DRAGON,05 - db GRASS,DRAGON,05 - db ICE,DRAGON,20 - db DRAGON,DRAGON,20 - db $FF - -INCBIN "baserom.gbc",$3E56B,$3EF07 - $3E56B - -PlayAttackAnimation: ; 6F07 - ld [$D07C],a - call Delay3 - ld a,8 - jp Predef - -INCBIN "baserom.gbc",$3EF12,$40000 - $3EF12 - -SECTION "bank10",DATA,BANK[$10] - -INCBIN "baserom.gbc",$40000,$47E - -PokedexEntryPointers: ; 447E - dw RhydonDexEntry - dw KangaskhanDexEntry - dw NidoranMDexEntry - dw ClefairyDexEntry - dw SpearowDexEntry - dw VoltorbDexEntry - dw NidokingDexEntry - dw SlowbroDexEntry - dw IvysaurDexEntry - dw ExeggutorDexEntry - dw LickitungDexEntry - dw ExeggcuteDexEntry - dw GrimerDexEntry - dw GengarDexEntry - dw NidoranFDexEntry - dw NidoqueenDexEntry - dw CuboneDexEntry - dw RhyhornDexEntry - dw LaprasDexEntry - dw ArcanineDexEntry - dw MewDexEntry - dw GyaradosDexEntry - dw ShellderDexEntry - dw TentacoolDexEntry - dw GastlyDexEntry - dw ScytherDexEntry - dw StaryuDexEntry - dw BlastoiseDexEntry - dw PinsirDexEntry - dw TangelaDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw GrowlitheDexEntry - dw OnixDexEntry - dw FearowDexEntry - dw PidgeyDexEntry - dw SlowpokeDexEntry - dw KadabraDexEntry - dw GravelerDexEntry - dw ChanseyDexEntry - dw MachokeDexEntry - dw MrMimeDexEntry - dw HitmonleeDexEntry - dw HitmonchanDexEntry - dw ArbokDexEntry - dw ParasectDexEntry - dw PsyduckDexEntry - dw DrowzeeDexEntry - dw GolemDexEntry - dw MissingNoDexEntry - dw MagmarDexEntry - dw MissingNoDexEntry - dw ElectabuzzDexEntry - dw MagnetonDexEntry - dw KoffingDexEntry - dw MissingNoDexEntry - dw MankeyDexEntry - dw SeelDexEntry - dw DiglettDexEntry - dw TaurosDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw FarfetchdDexEntry - dw VenonatDexEntry - dw DragoniteDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw DoduoDexEntry - dw PoliwagDexEntry - dw JynxDexEntry - dw MoltresDexEntry - dw ArticunoDexEntry - dw ZapdosDexEntry - dw DittoDexEntry - dw MeowthDexEntry - dw KrabbyDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw VulpixDexEntry - dw NinetalesDexEntry - dw PikachuDexEntry - dw RaichuDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw DratiniDexEntry - dw DragonairDexEntry - dw KabutoDexEntry - dw KabutopsDexEntry - dw HorseaDexEntry - dw SeadraDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw SandshrewDexEntry - dw SandslashDexEntry - dw OmanyteDexEntry - dw OmastarDexEntry - dw JigglypuffDexEntry - dw WigglytuffDexEntry - dw EeveeDexEntry - dw FlareonDexEntry - dw JolteonDexEntry - dw VaporeonDexEntry - dw MachopDexEntry - dw ZubatDexEntry - dw EkansDexEntry - dw ParasDexEntry - dw PoliwhirlDexEntry - dw PoliwrathDexEntry - dw WeedleDexEntry - dw KakunaDexEntry - dw BeedrillDexEntry - dw MissingNoDexEntry - dw DodrioDexEntry - dw PrimeapeDexEntry - dw DugtrioDexEntry - dw VenomothDexEntry - dw DewgongDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw CaterpieDexEntry - dw MetapodDexEntry - dw ButterfreeDexEntry - dw MachampDexEntry - dw MissingNoDexEntry - dw GolduckDexEntry - dw HypnoDexEntry - dw GolbatDexEntry - dw MewtwoDexEntry - dw SnorlaxDexEntry - dw MagikarpDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MukDexEntry - dw MissingNoDexEntry - dw KinglerDexEntry - dw CloysterDexEntry - dw MissingNoDexEntry - dw ElectrodeDexEntry - dw ClefableDexEntry - dw WeezingDexEntry - dw PersianDexEntry - dw MarowakDexEntry - dw MissingNoDexEntry - dw HaunterDexEntry - dw AbraDexEntry - dw AlakazamDexEntry - dw PidgeottoDexEntry - dw PidgeotDexEntry - dw StarmieDexEntry - dw BulbasaurDexEntry - dw VenusaurDexEntry - dw TentacruelDexEntry - dw MissingNoDexEntry - dw GoldeenDexEntry - dw SeakingDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw PonytaDexEntry - dw RapidashDexEntry - dw RattataDexEntry - dw RaticateDexEntry - dw NidorinoDexEntry - dw NidorinaDexEntry - dw GeodudeDexEntry - dw PorygonDexEntry - dw AerodactylDexEntry - dw MissingNoDexEntry - dw MagnemiteDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw CharmanderDexEntry - dw SquirtleDexEntry - dw CharmeleonDexEntry - dw WartortleDexEntry - dw CharizardDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw MissingNoDexEntry - dw OddishDexEntry - dw GloomDexEntry - dw VileplumeDexEntry - dw BellsproutDexEntry - dw WeepinbellDexEntry - dw VictreebelDexEntry - -; string: species name -; height in feet, inches -; weight in pounds -; text entry - -RhydonDexEntry: - db "DRILL@" - db 6,3 - dw 2650 - TX_FAR _RhydonDexEntry - db "@" - -KangaskhanDexEntry: - db "PARENT@" - db 7,3 - dw 1760 - TX_FAR _KangaskhanDexEntry - db "@" - -NidoranMDexEntry: - db "POISON PIN@" - db 1,8 - dw 200 - TX_FAR _NidoranMDexEntry - db "@" - -ClefairyDexEntry: - db "FAIRY@" - db 2,0 - dw 170 - TX_FAR _ClefairyDexEntry - db "@" - -SpearowDexEntry: - db "TINY BIRD@" - db 1,0 - dw 40 - TX_FAR _SpearowDexEntry - db "@" - -VoltorbDexEntry: - db "BALL@" - db 1,8 - dw 230 - TX_FAR _VoltorbDexEntry - db "@" - -NidokingDexEntry: - db "DRILL@" - db 4,7 - dw 1370 - TX_FAR _NidokingDexEntry - db "@" - -SlowbroDexEntry: - db "HERMITCRAB@" - db 5,3 - dw 1730 - TX_FAR _SlowbroDexEntry - db "@" - -IvysaurDexEntry: - db "SEED@" - db 3,3 - dw 290 - TX_FAR _IvysaurDexEntry - db "@" - -ExeggutorDexEntry: - db "COCONUT@" - db 6,7 - dw 2650 - TX_FAR _ExeggutorDexEntry - db "@" - -LickitungDexEntry: - db "LICKING@" - db 3,11 - dw 1440 - TX_FAR _LickitungDexEntry - db "@" - -ExeggcuteDexEntry: - db "EGG@" - db 1,4 - dw 60 - TX_FAR _ExeggcuteDexEntry - db "@" - -GrimerDexEntry: - db "SLUDGE@" - db 2,11 - dw 660 - TX_FAR _GrimerDexEntry - db "@" - -GengarDexEntry: - db "SHADOW@" - db 4,11 - dw 890 - TX_FAR _GengarDexEntry - db "@" - -NidoranFDexEntry: - db "POISON PIN@" - db 1,4 - dw 150 - TX_FAR _NidoranFDexEntry - db "@" - -NidoqueenDexEntry: - db "DRILL@" - db 4,3 - dw 1320 - TX_FAR _NidoqueenDexEntry - db "@" - -CuboneDexEntry: - db "LONELY@" - db 1,4 - dw 140 - TX_FAR _CuboneDexEntry - db "@" - -RhyhornDexEntry: - db "SPIKES@" - db 3,3 - dw 2540 - TX_FAR _RhyhornDexEntry - db "@" - -LaprasDexEntry: - db "TRANSPORT@" - db 8,2 - dw 4850 - TX_FAR _LaprasDexEntry - db "@" - -ArcanineDexEntry: - db "LEGENDARY@" - db 6,3 - dw 3420 - TX_FAR _ArcanineDexEntry - db "@" - -MewDexEntry: - db "NEW SPECIE@" - db 1,4 - dw 90 - TX_FAR _MewDexEntry - db "@" - -GyaradosDexEntry: - db "ATROCIOUS@" - db 21,4 - dw 5180 - TX_FAR _GyaradosDexEntry - db "@" - -ShellderDexEntry: - db "BIVALVE@" - db 1,0 - dw 90 - TX_FAR _ShellderDexEntry - db "@" - -TentacoolDexEntry: - db "JELLYFISH@" - db 2,11 - dw 1000 - TX_FAR _TentacoolDexEntry - db "@" - -GastlyDexEntry: - db "GAS@" - db 4,3 - dw 2 - TX_FAR _GastlyDexEntry - db "@" - -ScytherDexEntry: - db "MANTIS@" - db 4,11 - dw 1230 - TX_FAR _ScytherDexEntry - db "@" - -StaryuDexEntry: - db "STARSHAPE@" - db 2,7 - dw 760 - TX_FAR _StaryuDexEntry - db "@" - -BlastoiseDexEntry: - db "SHELLFISH@" - db 5,3 - dw 1890 - TX_FAR _BlastoiseDexEntry - db "@" - -PinsirDexEntry: - db "STAGBEETLE@" - db 4,11 - dw 1210 - TX_FAR _PinsirDexEntry - db "@" - -TangelaDexEntry: - db "VINE@" - db 3,3 - dw 770 - TX_FAR _TangelaDexEntry - db "@" - -GrowlitheDexEntry: - db "PUPPY@" - db 2,4 - dw 420 - TX_FAR _GrowlitheDexEntry - db "@" - -OnixDexEntry: - db "ROCK SNAKE@" - db 28,10 - dw 4630 - TX_FAR _OnixDexEntry - db "@" - -FearowDexEntry: - db "BEAK@" - db 3,11 - dw 840 - TX_FAR _FearowDexEntry - db "@" - -PidgeyDexEntry: - db "TINY BIRD@" - db 1,0 - dw 40 - TX_FAR _PidgeyDexEntry - db "@" - -SlowpokeDexEntry: - db "DOPEY@" - db 3,11 - dw 790 - TX_FAR _SlowpokeDexEntry - db "@" - -KadabraDexEntry: - db "PSI@" - db 4,3 - dw 1250 - TX_FAR _KadabraDexEntry - db "@" - -GravelerDexEntry: - db "ROCK@" - db 3,3 - dw 2320 - TX_FAR _GravelerDexEntry - db "@" - -ChanseyDexEntry: - db "EGG@" - db 3,7 - dw 760 - TX_FAR _ChanseyDexEntry - db "@" - -MachokeDexEntry: - db "SUPERPOWER@" - db 4,11 - dw 1550 - TX_FAR _MachokeDexEntry - db "@" - -MrMimeDexEntry: - db "BARRIER@" - db 4,3 - dw 1200 - TX_FAR _MrMimeDexEntry - db "@" - -HitmonleeDexEntry: - db "KICKING@" - db 4,11 - dw 1100 - TX_FAR _HitmonleeDexEntry - db "@" - -HitmonchanDexEntry: - db "PUNCHING@" - db 4,7 - dw 1110 - TX_FAR _HitmonchanDexEntry - db "@" - -ArbokDexEntry: - db "COBRA@" - db 11,6 - dw 1430 - TX_FAR _ArbokDexEntry - db "@" - -ParasectDexEntry: - db "MUSHROOM@" - db 3,3 - dw 650 - TX_FAR _ParasectDexEntry - db "@" - -PsyduckDexEntry: - db "DUCK@" - db 2,7 - dw 430 - TX_FAR _PsyduckDexEntry - db "@" - -DrowzeeDexEntry: - db "HYPNOSIS@" - db 3,3 - dw 710 - TX_FAR _DrowzeeDexEntry - db "@" - -GolemDexEntry: - db "MEGATON@" - db 4,7 - dw 6620 - TX_FAR _GolemDexEntry - db "@" - -MagmarDexEntry: - db "SPITFIRE@" - db 4,3 - dw 980 - TX_FAR _MagmarDexEntry - db "@" - -ElectabuzzDexEntry: - db "ELECTRIC@" - db 3,7 - dw 660 - TX_FAR _ElectabuzzDexEntry - db "@" - -MagnetonDexEntry: - db "MAGNET@" - db 3,3 - dw 1320 - TX_FAR _MagnetonDexEntry - db "@" - -KoffingDexEntry: - db "POISON GAS@" - db 2,0 - dw 20 - TX_FAR _KoffingDexEntry - db "@" - -MankeyDexEntry: - db "PIG MONKEY@" - db 1,8 - dw 620 - TX_FAR _MankeyDexEntry - db "@" - -SeelDexEntry: - db "SEA LION@" - db 3,7 - dw 1980 - TX_FAR _SeelDexEntry - db "@" - -DiglettDexEntry: - db "MOLE@" - db 0,8 - dw 20 - TX_FAR _DiglettDexEntry - db "@" - -TaurosDexEntry: - db "WILD BULL@" - db 4,7 - dw 1950 - TX_FAR _TaurosDexEntry - db "@" - -FarfetchdDexEntry: - db "WILD DUCK@" - db 2,7 - dw 330 - TX_FAR _FarfetchdDexEntry - db "@" - -VenonatDexEntry: - db "INSECT@" - db 3,3 - dw 660 - TX_FAR _VenonatDexEntry - db "@" - -DragoniteDexEntry: - db "DRAGON@" - db 7,3 - dw 4630 - TX_FAR _DragoniteDexEntry - db "@" - -DoduoDexEntry: - db "TWIN BIRD@" - db 4,7 - dw 860 - TX_FAR _DoduoDexEntry - db "@" - -PoliwagDexEntry: - db "TADPOLE@" - db 2,0 - dw 270 - TX_FAR _PoliwagDexEntry - db "@" - -JynxDexEntry: - db "HUMANSHAPE@" - db 4,7 - dw 900 - TX_FAR _JynxDexEntry - db "@" - -MoltresDexEntry: - db "FLAME@" - db 6,7 - dw 1320 - TX_FAR _MoltresDexEntry - db "@" - -ArticunoDexEntry: - db "FREEZE@" - db 5,7 - dw 1220 - TX_FAR _ArticunoDexEntry - db "@" - -ZapdosDexEntry: - db "ELECTRIC@" - db 5,3 - dw 1160 - TX_FAR _ZapdosDexEntry - db "@" - -DittoDexEntry: - db "TRANSFORM@" - db 1,0 - dw 90 - TX_FAR _DittoDexEntry - db "@" - -MeowthDexEntry: - db "SCRATCHCAT@" - db 1,4 - dw 90 - TX_FAR _MeowthDexEntry - db "@" - -KrabbyDexEntry: - db "RIVER CRAB@" - db 1,4 - dw 140 - TX_FAR _KrabbyDexEntry - db "@" - -VulpixDexEntry: - db "FOX@" - db 2,0 - dw 220 - TX_FAR _VulpixDexEntry - db "@" - -NinetalesDexEntry: - db "FOX@" - db 3,7 - dw 440 - TX_FAR _NinetalesDexEntry - db "@" - -PikachuDexEntry: - db "MOUSE@" - db 1,4 - dw 130 - TX_FAR _PikachuDexEntry - db "@" - -RaichuDexEntry: - db "MOUSE@" - db 2,7 - dw 660 - TX_FAR _RaichuDexEntry - db "@" - -DratiniDexEntry: - db "DRAGON@" - db 5,11 - dw 70 - TX_FAR _DratiniDexEntry - db "@" - -DragonairDexEntry: - db "DRAGON@" - db 13,1 - dw 360 - TX_FAR _DragonairDexEntry - db "@" - -KabutoDexEntry: - db "SHELLFISH@" - db 1,8 - dw 250 - TX_FAR _KabutoDexEntry - db "@" - -KabutopsDexEntry: - db "SHELLFISH@" - db 4,3 - dw 890 - TX_FAR _KabutopsDexEntry - db "@" - -HorseaDexEntry: - db "DRAGON@" - db 1,4 - dw 180 - TX_FAR _HorseaDexEntry - db "@" - -SeadraDexEntry: - db "DRAGON@" - db 3,11 - dw 550 - TX_FAR _SeadraDexEntry - db "@" - -SandshrewDexEntry: - db "MOUSE@" - db 2,0 - dw 260 - TX_FAR _SandshrewDexEntry - db "@" - -SandslashDexEntry: - db "MOUSE@" - db 3,3 - dw 650 - TX_FAR _SandslashDexEntry - db "@" - -OmanyteDexEntry: - db "SPIRAL@" - db 1,4 - dw 170 - TX_FAR _OmanyteDexEntry - db "@" - -OmastarDexEntry: - db "SPIRAL@" - db 3,3 - dw 770 - TX_FAR _OmastarDexEntry - db "@" - -JigglypuffDexEntry: - db "BALLOON@" - db 1,8 - dw 120 - TX_FAR _JigglypuffDexEntry - db "@" - -WigglytuffDexEntry: - db "BALLOON@" - db 3,3 - dw 260 - TX_FAR _WigglytuffDexEntry - db "@" - -EeveeDexEntry: - db "EVOLUTION@" - db 1,0 - dw 140 - TX_FAR _EeveeDexEntry - db "@" - -FlareonDexEntry: - db "FLAME@" - db 2,11 - dw 550 - TX_FAR _FlareonDexEntry - db "@" - -JolteonDexEntry: - db "LIGHTNING@" - db 2,7 - dw 540 - TX_FAR _JolteonDexEntry - db "@" - -VaporeonDexEntry: - db "BUBBLE JET@" - db 3,3 - dw 640 - TX_FAR _VaporeonDexEntry - db "@" - -MachopDexEntry: - db "SUPERPOWER@" - db 2,7 - dw 430 - TX_FAR _MachopDexEntry - db "@" - -ZubatDexEntry: - db "BAT@" - db 2,7 - dw 170 - TX_FAR _ZubatDexEntry - db "@" - -EkansDexEntry: - db "SNAKE@" - db 6,7 - dw 150 - TX_FAR _EkansDexEntry - db "@" - -ParasDexEntry: - db "MUSHROOM@" - db 1,0 - dw 120 - TX_FAR _ParasDexEntry - db "@" - -PoliwhirlDexEntry: - db "TADPOLE@" - db 3,3 - dw 440 - TX_FAR _PoliwhirlDexEntry - db "@" - -PoliwrathDexEntry: - db "TADPOLE@" - db 4,3 - dw 1190 - TX_FAR _PoliwrathDexEntry - db "@" - -WeedleDexEntry: - db "HAIRY BUG@" - db 1,0 - dw 70 - TX_FAR _WeedleDexEntry - db "@" - -KakunaDexEntry: - db "COCOON@" - db 2,0 - dw 220 - TX_FAR _KakunaDexEntry - db "@" - -BeedrillDexEntry: - db "POISON BEE@" - db 3,3 - dw 650 - TX_FAR _BeedrillDexEntry - db "@" - -DodrioDexEntry: - db "TRIPLEBIRD@" - db 5,11 - dw 1880 - TX_FAR _DodrioDexEntry - db "@" - -PrimeapeDexEntry: - db "PIG MONKEY@" - db 3,3 - dw 710 - TX_FAR _PrimeapeDexEntry - db "@" - -DugtrioDexEntry: - db "MOLE@" - db 2,4 - dw 730 - TX_FAR _DugtrioDexEntry - db "@" - -VenomothDexEntry: - db "POISONMOTH@" - db 4,11 - dw 280 - TX_FAR _VenomothDexEntry - db "@" - -DewgongDexEntry: - db "SEA LION@" - db 5,7 - dw 2650 - TX_FAR _DewgongDexEntry - db "@" - -CaterpieDexEntry: - db "WORM@" - db 1,0 - dw 60 - TX_FAR _CaterpieDexEntry - db "@" - -MetapodDexEntry: - db "COCOON@" - db 2,4 - dw 220 - TX_FAR _MetapodDexEntry - db "@" - -ButterfreeDexEntry: - db "BUTTERFLY@" - db 3,7 - dw 710 - TX_FAR _ButterfreeDexEntry - db "@" - -MachampDexEntry: - db "SUPERPOWER@" - db 5,3 - dw 2870 - TX_FAR _MachampDexEntry - db "@" - -GolduckDexEntry: - db "DUCK@" - db 5,7 - dw 1690 - TX_FAR _GolduckDexEntry - db "@" - -HypnoDexEntry: - db "HYPNOSIS@" - db 5,3 - dw 1670 - TX_FAR _HypnoDexEntry - db "@" - -GolbatDexEntry: - db "BAT@" - db 5,3 - dw 1210 - TX_FAR _GolbatDexEntry - db "@" - -MewtwoDexEntry: - db "GENETIC@" - db 6,7 - dw 2690 - TX_FAR _MewtwoDexEntry - db "@" - -SnorlaxDexEntry: - db "SLEEPING@" - db 6,11 - dw 10140 - TX_FAR _SnorlaxDexEntry - db "@" - -MagikarpDexEntry: - db "FISH@" - db 2,11 - dw 220 - TX_FAR _MagikarpDexEntry - db "@" - -MukDexEntry: - db "SLUDGE@" - db 3,11 - dw 660 - TX_FAR _MukDexEntry - db "@" - -KinglerDexEntry: - db "PINCER@" - db 4,3 - dw 1320 - TX_FAR _KinglerDexEntry - db "@" - -CloysterDexEntry: - db "BIVALVE@" - db 4,11 - dw 2920 - TX_FAR _CloysterDexEntry - db "@" - -ElectrodeDexEntry: - db "BALL@" - db 3,11 - dw 1470 - TX_FAR _ElectrodeDexEntry - db "@" - -ClefableDexEntry: - db "FAIRY@" - db 4,3 - dw 880 - TX_FAR _ClefableDexEntry - db "@" - -WeezingDexEntry: - db "POISON GAS@" - db 3,11 - dw 210 - TX_FAR _WeezingDexEntry - db "@" - -PersianDexEntry: - db "CLASSY CAT@" - db 3,3 - dw 710 - TX_FAR _PersianDexEntry - db "@" - -MarowakDexEntry: - db "BONEKEEPER@" - db 3,3 - dw 990 - TX_FAR _MarowakDexEntry - db "@" - -HaunterDexEntry: - db "GAS@" - db 5,3 - dw 2 - TX_FAR _HaunterDexEntry - db "@" - -AbraDexEntry: - db "PSI@" - db 2,11 - dw 430 - TX_FAR _AbraDexEntry - db "@" - -AlakazamDexEntry: - db "PSI@" - db 4,11 - dw 1060 - TX_FAR _AlakazamDexEntry - db "@" - -PidgeottoDexEntry: - db "BIRD@" - db 3,7 - dw 660 - TX_FAR _PidgeottoDexEntry - db "@" - -PidgeotDexEntry: - db "BIRD@" - db 4,11 - dw 870 - TX_FAR _PidgeotDexEntry - db "@" - -StarmieDexEntry: - db "MYSTERIOUS@" - db 3,7 - dw 1760 - TX_FAR _StarmieDexEntry - db "@" - -BulbasaurDexEntry: - db "SEED@" - db 2,4 - dw 150 - TX_FAR _BulbasaurDexEntry - db "@" - -VenusaurDexEntry: - db "SEED@" - db 6,7 - dw 2210 - TX_FAR _VenusaurDexEntry - db "@" - -TentacruelDexEntry: - db "JELLYFISH@" - db 5,3 - dw 1210 - TX_FAR _TentacruelDexEntry - db "@" - -GoldeenDexEntry: - db "GOLDFISH@" - db 2,0 - dw 330 - TX_FAR _GoldeenDexEntry - db "@" - -SeakingDexEntry: - db "GOLDFISH@" - db 4,3 - dw 860 - TX_FAR _SeakingDexEntry - db "@" - -PonytaDexEntry: - db "FIRE HORSE@" - db 3,3 - dw 660 - TX_FAR _PonytaDexEntry - db "@" - -RapidashDexEntry: - db "FIRE HORSE@" - db 5,7 - dw 2090 - TX_FAR _RapidashDexEntry - db "@" - -RattataDexEntry: - db "RAT@" - db 1,0 - dw 80 - TX_FAR _RattataDexEntry - db "@" - -RaticateDexEntry: - db "RAT@" - db 2,4 - dw 410 - TX_FAR _RaticateDexEntry - db "@" - -NidorinoDexEntry: - db "POISON PIN@" - db 2,11 - dw 430 - TX_FAR _NidorinoDexEntry - db "@" - -NidorinaDexEntry: - db "POISON PIN@" - db 2,7 - dw 440 - TX_FAR _NidorinaDexEntry - db "@" - -GeodudeDexEntry: - db "ROCK@" - db 1,4 - dw 440 - TX_FAR _GeodudeDexEntry - db "@" - -PorygonDexEntry: - db "VIRTUAL@" - db 2,7 - dw 800 - TX_FAR _PorygonDexEntry - db "@" - -AerodactylDexEntry: - db "FOSSIL@" - db 5,11 - dw 1300 - TX_FAR _AerodactylDexEntry - db "@" - -MagnemiteDexEntry: - db "MAGNET@" - db 1,0 - dw 130 - TX_FAR _MagnemiteDexEntry - db "@" - -CharmanderDexEntry: - db "LIZARD@" - db 2,0 - dw 190 - TX_FAR _CharmanderDexEntry - db "@" - -SquirtleDexEntry: - db "TINYTURTLE@" - db 1,8 - dw 200 - TX_FAR _SquirtleDexEntry - db "@" - -CharmeleonDexEntry: - db "FLAME@" - db 3,7 - dw 420 - TX_FAR _CharmeleonDexEntry - db "@" - -WartortleDexEntry: - db "TURTLE@" - db 3,3 - dw 500 - TX_FAR _WartortleDexEntry - db "@" - -CharizardDexEntry: - db "FLAME@" - db 5,7 - dw 2000 - TX_FAR _CharizardDexEntry - db "@" - -OddishDexEntry: - db "WEED@" - db 1,8 - dw 120 - TX_FAR _OddishDexEntry - db "@" - -GloomDexEntry: - db "WEED@" - db 2,7 - dw 190 - TX_FAR _GloomDexEntry - db "@" - -VileplumeDexEntry: - db "FLOWER@" - db 3,11 - dw 410 - TX_FAR _VileplumeDexEntry - db "@" - -BellsproutDexEntry: - db "FLOWER@" - db 2,4 - dw 90 - TX_FAR _BellsproutDexEntry - db "@" - -WeepinbellDexEntry: - db "FLYCATCHER@" - db 3,3 - dw 140 - TX_FAR _WeepinbellDexEntry - db "@" - -VictreebelDexEntry: - db "FLYCATCHER@" - db 5,7 - dw 340 - TX_FAR _VictreebelDexEntry - db "@" - -MissingNoDexEntry: - db "???@" - db 10 ; 1.0 m - db 100 ; 10.0 kg - db 0,"コメント さくせいちゅう@" ; コメント作成中 (Comment to be written) - -PokedexToIndex: - ; converts the Pokédex number at $D11E to an index - push bc - push hl - ld a,[$D11E] - ld b,a - ld c,0 - ld hl,PokedexOrder - -.loop\@ ; go through the list until we find an entry with a matching dex number - inc c - ld a,[hli] - cp b - jr nz,.loop\@ - - ld a,c - ld [$D11E],a - pop hl - pop bc - ret - -IndexToPokedex: - ; converts the indexédex number at $D11E to a Pokédex number - push bc - push hl - ld a,[$D11E] - dec a - ld hl,PokedexOrder - ld b,0 - ld c,a - add hl,bc - ld a,[hl] - ld [$D11E],a - pop hl - pop bc - ret - -PokedexOrder: ; 5024 - db DEX_RHYDON - db DEX_KANGASKHAN - db DEX_NIDORAN_M - db DEX_CLEFAIRY - db DEX_SPEAROW - db DEX_VOLTORB - db DEX_NIDOKING - db DEX_SLOWBRO - db DEX_IVYSAUR - db DEX_EXEGGUTOR - db DEX_LICKITUNG - db DEX_EXEGGCUTE - db DEX_GRIMER - db DEX_GENGAR - db DEX_NIDORAN_F - db DEX_NIDOQUEEN - db DEX_CUBONE - db DEX_RHYHORN - db DEX_LAPRAS - db DEX_ARCANINE - db DEX_MEW - db DEX_GYARADOS - db DEX_SHELLDER - db DEX_TENTACOOL - db DEX_GASTLY - db DEX_SCYTHER - db DEX_STARYU - db DEX_BLASTOISE - db DEX_PINSIR - db DEX_TANGELA - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_GROWLITHE - db DEX_ONIX - db DEX_FEAROW - db DEX_PIDGEY - db DEX_SLOWPOKE - db DEX_KADABRA - db DEX_GRAVELER - db DEX_CHANSEY - db DEX_MACHOKE - db DEX_MR_MIME - db DEX_HITMONLEE - db DEX_HITMONCHAN - db DEX_ARBOK - db DEX_PARASECT - db DEX_PSYDUCK - db DEX_DROWZEE - db DEX_GOLEM - db 0 ; MISSINGNO. - db DEX_MAGMAR - db 0 ; MISSINGNO. - db DEX_ELECTABUZZ - db DEX_MAGNETON - db DEX_KOFFING - db 0 ; MISSINGNO. - db DEX_MANKEY - db DEX_SEEL - db DEX_DIGLETT - db DEX_TAUROS - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_FARFETCH_D - db DEX_VENONAT - db DEX_DRAGONITE - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_DODUO - db DEX_POLIWAG - db DEX_JYNX - db DEX_MOLTRES - db DEX_ARTICUNO - db DEX_ZAPDOS - db DEX_DITTO - db DEX_MEOWTH - db DEX_KRABBY - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_VULPIX - db DEX_NINETALES - db DEX_PIKACHU - db DEX_RAICHU - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_DRATINI - db DEX_DRAGONAIR - db DEX_KABUTO - db DEX_KABUTOPS - db DEX_HORSEA - db DEX_SEADRA - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_SANDSHREW - db DEX_SANDSLASH - db DEX_OMANYTE - db DEX_OMASTAR - db DEX_JIGGLYPUFF - db DEX_WIGGLYTUFF - db DEX_EEVEE - db DEX_FLAREON - db DEX_JOLTEON - db DEX_VAPOREON - db DEX_MACHOP - db DEX_ZUBAT - db DEX_EKANS - db DEX_PARAS - db DEX_POLIWHIRL - db DEX_POLIWRATH - db DEX_WEEDLE - db DEX_KAKUNA - db DEX_BEEDRILL - db 0 ; MISSINGNO. - db DEX_DODRIO - db DEX_PRIMEAPE - db DEX_DUGTRIO - db DEX_VENOMOTH - db DEX_DEWGONG - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_CATERPIE - db DEX_METAPOD - db DEX_BUTTERFREE - db DEX_MACHAMP - db 0 ; MISSINGNO. - db DEX_GOLDUCK - db DEX_HYPNO - db DEX_GOLBAT - db DEX_MEWTWO - db DEX_SNORLAX - db DEX_MAGIKARP - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_MUK - db 0 ; MISSINGNO. - db DEX_KINGLER - db DEX_CLOYSTER - db 0 ; MISSINGNO. - db DEX_ELECTRODE - db DEX_CLEFABLE - db DEX_WEEZING - db DEX_PERSIAN - db DEX_MAROWAK - db 0 ; MISSINGNO. - db DEX_HAUNTER - db DEX_ABRA - db DEX_ALAKAZAM - db DEX_PIDGEOTTO - db DEX_PIDGEOT - db DEX_STARMIE - db DEX_BULBASAUR - db DEX_VENUSAUR - db DEX_TENTACRUEL - db 0 ; MISSINGNO. - db DEX_GOLDEEN - db DEX_SEAKING - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_PONYTA - db DEX_RAPIDASH - db DEX_RATTATA - db DEX_RATICATE - db DEX_NIDORINO - db DEX_NIDORINA - db DEX_GEODUDE - db DEX_PORYGON - db DEX_AERODACTYL - db 0 ; MISSINGNO. - db DEX_MAGNEMITE - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_CHARMANDER - db DEX_SQUIRTLE - db DEX_CHARMELEON - db DEX_WARTORTLE - db DEX_CHARIZARD - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db 0 ; MISSINGNO. - db DEX_ODDISH - db DEX_GLOOM - db DEX_VILEPLUME - db DEX_BELLSPROUT - db DEX_WEEPINBELL - db DEX_VICTREEBEL -INCBIN "baserom.gbc",$410E2,$2769 - $10E2 - -; XXX what do these do - FuncCoord 5,0 - ld hl,Coord - ld de,OTString67E5 - call PlaceString - ld a,[$CD3D] - ld [$D11E],a - ld a,$3A - call Predef - ld hl,$C3A9 - ld de,$D11E - ld bc,$8103 - call $3C5F - FuncCoord 5,2 - ld hl,Coord - ld de,$CF4B - call PlaceString - FuncCoord 8,4 - ld hl,Coord - ld de,$CD41 - call PlaceString - ld hl,$C420 - ld de,$CD4C - ld bc,$8205 - jp $3C5F - - FuncCoord 5,10 - ld hl,Coord - ld de,OTString67E5 - call PlaceString - ld a,[$CD3E] - ld [$D11E],a - ld a,$3A - call Predef - ld hl,$C471 - ld de,$D11E - ld bc,$8103 - call $3C5F - FuncCoord 5,12 - ld hl,Coord - ld de,$CD6D - call PlaceString - FuncCoord 8,14 - ld hl,Coord - ld de,$CD4E - call PlaceString - ld hl,$C4E8 - ld de,$CD59 - ld bc,$8205 - jp $3C5F - -OTString67E5: ; 67E5 - db "──",$74,$F2,$4E - db $4E - db "OT/",$4E - db $73,"№",$F2,"@" - -SECTION "bank11",DATA,BANK[$11] - -LavenderTown_h: ; 0x44000 to 0x4402d (45 bytes) (bank=11) (id=4) - db $00 ; tileset - db $09, $0a ; dimensions (y, x) - dw LavenderTownBlocks, LavenderTownTexts, LavenderTownScript ; blocks, texts, scripts - db NORTH | SOUTH | WEST ; connections - - ; connections data - - db ROUTE_10 - dw $44a0, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $47, $00 ; alignments (y, x) - dw $c929 ; window - - db ROUTE_12 - dw $4710, $c7ab ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_8 - dw $41e1, $c718 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $00, $3b ; alignments (y, x) - dw $c72a ; window - - ; end connection data - - dw LavenderTownObject ; objects - -LavenderTownObject: ; 0x4402d (size=88) - db $2c ; border tile - - db $6 ; warps - db $5, $3, $0, LAVENDER_POKECENTER - db $5, $e, $0, POKEMONTOWER_1 - db $9, $7, $0, LAVENDER_HOUSE_1 - db $d, $f, $0, LAVENDER_MART - db $d, $3, $0, LAVENDER_HOUSE_2 - db $d, $7, $0, NAME_RATERS_HOUSE - - db $6 ; signs - db $9, $b, $4 ; LavenderTownText4 - db $3, $9, $5 ; LavenderTownText5 - db $d, $10, $6 ; LavenderTownText6 - db $5, $4, $7 ; LavenderTownText7 - db $9, $5, $8 ; LavenderTownText8 - db $7, $11, $9 ; LavenderTownText9 - - db $3 ; people - db SPRITE_LITTLE_GIRL, $9 + 4, $f + 4, $fe, $0, $1 ; person - db SPRITE_BLACK_HAIR_BOY_1, $a + 4, $9 + 4, $ff, $ff, $2 ; person - db SPRITE_BLACK_HAIR_BOY_2, $7 + 4, $8 + 4, $fe, $2, $3 ; person - - ; warp-to - EVENT_DISP $a, $5, $3 ; LAVENDER_POKECENTER - EVENT_DISP $a, $5, $e ; POKEMONTOWER_1 - EVENT_DISP $a, $9, $7 ; LAVENDER_HOUSE_1 - EVENT_DISP $a, $d, $f ; LAVENDER_MART - EVENT_DISP $a, $d, $3 ; LAVENDER_HOUSE_2 - EVENT_DISP $a, $d, $7 ; NAME_RATERS_HOUSE - -LavenderTownBlocks: ; 90 - INCBIN "maps/lavendertown.blk" - -ViridianPokecenterBlocks: ; 28 - INCBIN "maps/viridianpokecenter.blk" - -SafariZoneRestHouse1Blocks: ; 16 - INCBIN "maps/safarizoneresthouse1.blk" - -LavenderTownScript: ; 0x4410b - jp $3c3c -; 0x4410e - -LavenderTownTexts: ; 0x4410e - dw LavenderTownText1, LavenderTownText2, LavenderTownText3, LavenderTownText4, LavenderTownText5, LavenderTownText6, LavenderTownText7, LavenderTownText8, LavenderTownText9 - -LavenderTownText1: ; 0x44120 - db $08 ; asm - ld hl, $413c - call PrintText - call $35ec - ld a, [$cc26] - and a - ld hl, $4146 - jr nz, .asm_40831 ; 0x44131 - ld hl, $4141 -.asm_40831 ; 0x44136 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$4413c,$f - -LavenderTownText2: ; 0x4414b - TX_FAR _LavenderTownText2 - db $50 - -LavenderTownText3: ; 0x44150 - TX_FAR _LavenderTownText3 - db $50 - -LavenderTownText4: ; 0x44155 - TX_FAR _LavenderTownText4 - db $50 - -LavenderTownText5: ; 0x4415a - TX_FAR _LavenderTownText5 - db $50 - -LavenderTownText8: ; 0x4415f - TX_FAR _LavenderTownText8 - db $50 - -LavenderTownText9: ; 0x44164 - TX_FAR _LavenderTownText9 - db $50 - -INCBIN "baserom.gbc",$44169,$e8 - -ViridianPokecenter_h: ; 0x44251 to 0x4425d (12 bytes) (bank=11) (id=41) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw ViridianPokecenterBlocks, ViridianPokecenterTexts, ViridianPokeCenterScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianPokecenterObject ; objects - -ViridianPokeCenterScript: ; 0x4425d - call $22fa - jp $3c3c -; 0x44263 - -ViridianPokecenterTexts: ; 0x44263 - dw ViridianPokeCenterText1, ViridianPokeCenterText2, ViridianPokeCenterText3, ViridianPokeCenterText4 - -ViridianPokeCenterText1: ; 0x4426b - db $ff - -ViridianPokeCenterText2: ; 0x4426c - TX_FAR _ViridianPokeCenterText1 - db $50 - -INCBIN "baserom.gbc",$44271,$44271 - $44271 - -ViridianPokeCenterText3: ; 0x44271 - TX_FAR _ViridianPokeCenterText3 - db $50 - -ViridianPokeCenterText4: - db $f6 - -ViridianPokecenterObject: ; 0x44277 (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $0, $ff - db $7, $4, $0, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_GENTLEMAN, $5 + 4, $a + 4, $fe, $1, $2 ; person - db SPRITE_BLACK_HAIR_BOY_1, $3 + 4, $4 + 4, $ff, $ff, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -Mansion1_h: ; 0x442a3 to 0x442af (12 bytes) (bank=11) (id=165) - db $16 ; tileset - db $0e, $0f ; dimensions (y, x) - dw Mansion1Blocks, Mansion1Texts, Mansion1Script ; blocks, texts, scripts - db $00 ; connections - - dw Mansion1Object ; objects - -Mansion1Script: - call Mansion1Subscript1 - call $3c3c - ld hl, $4334 - ld de, $4326 - ld a, [$d63a] - call $3160 - ld [$d63a], a - ret -; 0x442c5 - -Mansion1Subscript1: ; 0x442c5 - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - ret z - ld a, [$d796] - bit 0, a - jr nz, .asm_442ec ; 0x442d2 $18 - ld bc, $060c - call $430b - ld bc, $0308 - call $4304 - ld bc, $080a - call $4304 - ld bc, $0d0d - jp $4304 -.asm_442ec - ld bc, $060c - call $4304 - ld bc, $0308 - call $430b - ld bc, $080a - call $430b - ld bc, $0d0d - jp $430b -; 0x44304 - -INCBIN "baserom.gbc",$44304,$4432c - $44304 - -Mansion1Texts: ; 4432c -INCBIN "baserom.gbc",$4432c,$44341 - $4432c - -Mansion1Text1: ; 0x44341 - db $08 ; asm - ld hl, $4334 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$4434b,$59 - -Mansion1Object: ; 0x443a4 (size=90) - db $2e ; border tile - - db $8 ; warps - db $1b, $4, $0, $ff - db $1b, $5, $0, $ff - db $1b, $6, $0, $ff - db $1b, $7, $0, $ff - db $a, $5, $0, MANSION_2 - db $17, $15, $0, MANSION_4 - db $1b, $1a, $0, $ff - db $1b, $1b, $0, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_OAK_AIDE, $11 + 4, $11 + 4, $ff, $d2, $41, SCIENTIST + $C8, $4 ; trainer - db SPRITE_BALL, $3 + 4, $e + 4, $ff, $ff, $82, ESCAPE_ROPE ; item - db SPRITE_BALL, $15 + 4, $12 + 4, $ff, $ff, $83, CARBOS ; item - - ; warp-to - EVENT_DISP $f, $1b, $4 - EVENT_DISP $f, $1b, $5 - EVENT_DISP $f, $1b, $6 - EVENT_DISP $f, $1b, $7 - EVENT_DISP $f, $a, $5 ; MANSION_2 - EVENT_DISP $f, $17, $15 ; MANSION_4 - EVENT_DISP $f, $1b, $1a - EVENT_DISP $f, $1b, $1b - -Mansion1Blocks: ; 203 - INCBIN "maps/mansion1.blk" - -RockTunnel1_h: ; 0x444d0 to 0x444dc (12 bytes) (bank=11) (id=82) - db $11 ; tileset - db $12, $14 ; dimensions (y, x) - dw RockTunnel1Blocks, RockTunnel1Texts, RockTunnel1Script ; blocks, texts, scripts - db $00 ; connections - - dw RockTunnel1Object ; objects - -RockTunnel1Script: ; 0x444dc - call $3c3c - ld hl, $4505 - ld de, $44ef - ld a, [$d621] - call $3160 - ld [$d621], a - ret -; 0x444ef - -INCBIN "baserom.gbc",$444ef,$6 - -RockTunnel1Texts: ; 0x444f5 - dw RockTunnel1Text1, RockTunnel1Text2, RockTunnel1Text3, RockTunnel1Text4, RockTunnel1Text5, RockTunnel1Text6, RockTunnel1Text7, RockTunnel1Text8 - -INCBIN "baserom.gbc",$44505,$55 - -RockTunnel1Text1: ; 0x4455a - db $8 - ld hl, $4505 - jr asm_0c916 ; 0x4455e $22 - -RockTunnel1Text2: - db $8 - ld hl, $4511 - jr asm_0c916 ; 0x44564 $1c - -RockTunnel1Text3: - db $8 - ld hl, $451d - jr asm_0c916 ; 0x4456a $16 - -RockTunnel1Text4: - db $8 - ld hl, $4529 - jr asm_0c916 ; 0x44570 $10 - -RockTunnel1Text5: - db $8 - ld hl, $4535 - jr asm_0c916 ; 0x44576 $a - -RockTunnel1Text6: - db $8 - ld hl, $4541 - jr asm_0c916 ; 0x4457c $4 - -RockTunnel1Text7: - db $8 - ld hl, $454d -asm_0c916: ; 0x44582 - call $31cc - jp $24d7 - -INCBIN "baserom.gbc",$44588,$69 - -RockTunnel1Text8: ; 0x445f1 - TX_FAR _RockTunnel1Text8 - db $50 - -RockTunnel1Object: ; 0x445f6 (size=127) - db $3 ; border tile - - db $8 ; warps - db $3, $f, $1, $ff - db $0, $f, $1, $ff - db $21, $f, $2, $ff - db $23, $f, $2, $ff - db $3, $25, $0, ROCK_TUNNEL_2 - db $3, $5, $1, ROCK_TUNNEL_2 - db $b, $11, $2, ROCK_TUNNEL_2 - db $11, $25, $3, ROCK_TUNNEL_2 - - db $1 ; signs - db $1d, $b, $8 ; RockTunnel1Text8 - - db $7 ; people - db SPRITE_HIKER, $5 + 4, $7 + 4, $ff, $d0, $41, HIKER + $C8, $c ; trainer - db SPRITE_HIKER, $10 + 4, $5 + 4, $ff, $d0, $42, HIKER + $C8, $d ; trainer - db SPRITE_HIKER, $f + 4, $11 + 4, $ff, $d2, $43, HIKER + $C8, $e ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $17 + 4, $ff, $d2, $44, POKEMANIAC + $C8, $7 ; trainer - db SPRITE_LASS, $15 + 4, $25 + 4, $ff, $d2, $45, JR__TRAINER_F + $C8, $11 ; trainer - db SPRITE_LASS, $18 + 4, $16 + 4, $ff, $d0, $46, JR__TRAINER_F + $C8, $12 ; trainer - db SPRITE_LASS, $18 + 4, $20 + 4, $ff, $d3, $47, JR__TRAINER_F + $C8, $13 ; trainer - - ; warp-to - EVENT_DISP $14, $3, $f - EVENT_DISP $14, $0, $f - EVENT_DISP $14, $21, $f - EVENT_DISP $14, $23, $f - EVENT_DISP $14, $3, $25 ; ROCK_TUNNEL_2 - EVENT_DISP $14, $3, $5 ; ROCK_TUNNEL_2 - EVENT_DISP $14, $b, $11 ; ROCK_TUNNEL_2 - EVENT_DISP $14, $11, $25 ; ROCK_TUNNEL_2 - -RockTunnel1Blocks: ; 360 - INCBIN "maps/rocktunnel1.blk" - -SeafoamIslands1_h: ; 0x447dd to 0x447e9 (12 bytes) (bank=11) (id=192) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw SeafoamIslands1Blocks, SeafoamIslands1Texts, SeafoamIslands1Script ; blocks, texts, scripts - db $00 ; connections - - dw SeafoamIslands1Object ; objects - -SeafoamIslands1Script: ; 0x447e9 - call $3c3c - ld hl, $d7e7 - set 0, [hl] - ld hl, $cd60 - bit 7, [hl] - res 7, [hl] - jr z, .asm_4483b ; 0x447f8 $41 - ld hl, $4846 - call $34e4 - ret nc - ld hl, $d7e8 - ld a, [$cd3d] - cp $1 - jr nz, .asm_44819 ; 0x44809 $e - set 6, [hl] - ld a, $d7 - ld [$d079], a - ld a, $d9 - ld [$d07a], a - jr .asm_44825 ; 0x44817 $c -.asm_44819 - set 7, [hl] - ld a, $d8 - ld [$d079], a - ld a, $da - ld [$d07a], a -.asm_44825 - ld a, [$d079] - ld [$cc4d], a - ld a, $11 - call Predef - ld a, [$d07a] - ld [$cc4d], a - ld a, $15 - jp $3e6d -.asm_4483b - ld a, $9f - ld [$d71d], a - ld hl, $4846 - jp $6981 -; 0x44846 - -INCBIN "baserom.gbc",$44846,$5 - -SeafoamIslands1Texts: ; 0x4484b - dw SeafoamIslands1Text1, SeafoamIslands1Text2 - -SeafoamIslands1Object: ; 0x4484f (size=72) - db $7d ; border tile - - db $7 ; warps - db $11, $4, $0, $ff - db $11, $5, $0, $ff - db $11, $1a, $1, $ff - db $11, $1b, $1, $ff - db $5, $7, $1, SEAFOAM_ISLANDS_2 - db $3, $19, $6, SEAFOAM_ISLANDS_2 - db $f, $17, $4, SEAFOAM_ISLANDS_2 - - db $0 ; signs - - db $2 ; people - db SPRITE_BOULDER, $a + 4, $12 + 4, $ff, $10, $1 ; person - db SPRITE_BOULDER, $7 + 4, $1a + 4, $ff, $10, $2 ; person - - ; warp-to - EVENT_DISP $f, $11, $4 - EVENT_DISP $f, $11, $5 - EVENT_DISP $f, $11, $1a - EVENT_DISP $f, $11, $1b - EVENT_DISP $f, $5, $7 ; SEAFOAM_ISLANDS_2 - EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_2 - EVENT_DISP $f, $f, $17 ; SEAFOAM_ISLANDS_2 - -INCBIN "baserom.gbc",$44897,$8 - -SeafoamIslands1Blocks: ; 135 - INCBIN "maps/seafoamislands1.blk" - -SSAnne3_h: ; 0x44926 to 0x44932 (12 bytes) (bank=11) (id=97) - db $0d ; tileset - db $03, $0a ; dimensions (y, x) - dw SSAnne3Blocks, SSAnne3Texts, SSAnne3Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne3Object ; objects - -SSAnne3Script: ; 0x44932 - jp $3c3c -; 0x44935 - -SSAnne3Texts: ; 0x44935 - dw SSAnne3Text1 - -SSAnne3Text1: ; 0x44937 - TX_FAR _SSAnne3Text1 - db $50 - -SSAnne3Object: ; 0x4493c (size=26) - db $c ; border tile - - db $2 ; warps - db $3, $0, $0, SS_ANNE_5 - db $3, $13, $7, SS_ANNE_2 - - db $0 ; signs - - db $1 ; people - db SPRITE_SAILOR, $3 + 4, $9 + 4, $fe, $2, $1 ; person - - ; warp-to - EVENT_DISP $a, $3, $0 ; SS_ANNE_5 - EVENT_DISP $a, $3, $13 ; SS_ANNE_2 - -SSAnne3Blocks: ; 30 - INCBIN "maps/ssanne3.blk" - -VictoryRoad3_h: ; 0x44974 to 0x44980 (12 bytes) (bank=11) (id=198) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw VictoryRoad3Blocks, VictoryRoad3Texts, VictoryRoad3Script ; blocks, texts, scripts - db $00 ; connections - - dw VictoryRoad3Object ; objects - -VictoryRoad3Script: ; 0x44980 - call $4996 - call $3c3c - ld hl, $4a38 - ld de, $49b1 - ld a, [$d640] - call $3160 - ld [$d640], a - ret -; 0x44996 - -INCBIN "baserom.gbc",$44996,$8e - -VictoryRoad3Texts: ; 0x44a24 - dw VictoryRoad3Text1, VictoryRoad3Text2, VictoryRoad3Text3, VictoryRoad3Text4, VictoryRoad3Text5, VictoryRoad3Text6, VictoryRoad3Text7, VictoryRoad3Text8, VictoryRoad3Text9, VictoryRoad3Text10 - -INCBIN "baserom.gbc",$44a38,$31 - -VictoryRoad3Text1: ; 0x44a69 - db $08 ; asm - ld hl, $4a38 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad3Text2: ; 0x44a73 - db $08 ; asm - ld hl, $4a44 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad3Text3: ; 0x44a7d - db $08 ; asm - ld hl, $4a50 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad3Text4: ; 0x44a87 - db $08 ; asm - ld hl, $4a5c - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$44a91,$3c - -VictoryRoad3Object: ; 0x44acd (size=106) - db $7d ; border tile - - db $4 ; warps - db $7, $17, $3, VICTORY_ROAD_2 - db $8, $1a, $5, VICTORY_ROAD_2 - db $f, $1b, $4, VICTORY_ROAD_2 - db $0, $2, $6, VICTORY_ROAD_2 - - db $0 ; signs - - db $a ; people - db SPRITE_BLACK_HAIR_BOY_1, $5 + 4, $1c + 4, $ff, $d2, $41, COOLTRAINER_M + $C8, $2 ; trainer - db SPRITE_LASS, $d + 4, $7 + 4, $ff, $d3, $42, COOLTRAINER_F + $C8, $2 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $e + 4, $6 + 4, $ff, $d2, $43, COOLTRAINER_M + $C8, $3 ; trainer - db SPRITE_LASS, $3 + 4, $d + 4, $ff, $d3, $44, COOLTRAINER_F + $C8, $3 ; trainer - db SPRITE_BALL, $5 + 4, $1a + 4, $ff, $ff, $85, MAX_REVIVE ; item - db SPRITE_BALL, $7 + 4, $7 + 4, $ff, $ff, $86, TM_47 ; item - db SPRITE_BOULDER, $3 + 4, $16 + 4, $ff, $10, $7 ; person - db SPRITE_BOULDER, $c + 4, $d + 4, $ff, $10, $8 ; person - db SPRITE_BOULDER, $a + 4, $18 + 4, $ff, $10, $9 ; person - db SPRITE_BOULDER, $f + 4, $16 + 4, $ff, $10, $a ; person - - ; warp-to - EVENT_DISP $f, $7, $17 ; VICTORY_ROAD_2 - EVENT_DISP $f, $8, $1a ; VICTORY_ROAD_2 - EVENT_DISP $f, $f, $1b ; VICTORY_ROAD_2 - EVENT_DISP $f, $0, $2 ; VICTORY_ROAD_2 - -VictoryRoad3Blocks: ; 135 - INCBIN "maps/victoryroad3.blk" - -RocketHideout1_h: ; 0x44bbe to 0x44bca (12 bytes) (bank=11) (id=199) - db $16 ; tileset - db $0e, $0f ; dimensions (y, x) - dw RocketHideout1Blocks, RocketHideout1Texts, RocketHideout1Script ; blocks, texts, scripts - db $00 ; connections - - dw RocketHideout1Object ; objects - -RocketHideout1Script: ; 0x44bca - call $4be0 - call $3c3c - ld hl, $4c22 - ld de, $4c0e - ld a, [$d631] - call $3160 - ld [$d631], a - ret -; 0x44be0 - -INCBIN "baserom.gbc",$44be0,$34 - -RocketHideout1Texts: ; 0x44c14 - dw RocketHideout1Text1, RocketHideout1Text2, RocketHideout1Text3, RocketHideout1Text4, RocketHideout1Text5, RocketHideout1Text6, RocketHideout1Text7 - -INCBIN "baserom.gbc",$44c22,$3d - -RocketHideout1Text1: ; 0x44c5f - db $08 ; asm - ld hl, $4c22 - call LoadTrainerHeader - jp $24d7 - -RocketHideout1Text2: ; 0x44c69 - db $08 ; asm - ld hl, $4c2e - call LoadTrainerHeader - jp $24d7 - -RocketHideout1Text3: ; 0x44c73 - db $08 ; asm - ld hl, $4c3a - call LoadTrainerHeader - jp $24d7 - -RocketHideout1Text4: ; 0x44c7d - db $08 ; asm - ld hl, $4c46 - call LoadTrainerHeader - jp $24d7 - -RocketHideout1Text5: ; 0x44c87 - db $08 ; asm - ld hl, $4c52 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$44c91,$56 - -RocketHideout1Object: ; 0x44ce7 (size=98) - db $2e ; border tile - - db $5 ; warps - db $2, $17, $0, ROCKET_HIDEOUT_2 - db $2, $15, $2, GAME_CORNER - db $13, $18, $0, ROCKET_HIDEOUT_ELEVATOR - db $18, $15, $3, ROCKET_HIDEOUT_2 - db $13, $19, $1, ROCKET_HIDEOUT_ELEVATOR - - db $0 ; signs - - db $7 ; people - db SPRITE_ROCKET, $8 + 4, $1a + 4, $ff, $d2, $41, ROCKET + $C8, $8 ; trainer - db SPRITE_ROCKET, $6 + 4, $c + 4, $ff, $d3, $42, ROCKET + $C8, $9 ; trainer - db SPRITE_ROCKET, $11 + 4, $12 + 4, $ff, $d0, $43, ROCKET + $C8, $a ; trainer - db SPRITE_ROCKET, $19 + 4, $f + 4, $ff, $d3, $44, ROCKET + $C8, $b ; trainer - db SPRITE_ROCKET, $12 + 4, $1c + 4, $ff, $d2, $45, ROCKET + $C8, $c ; trainer - db SPRITE_BALL, $e + 4, $b + 4, $ff, $ff, $86, ESCAPE_ROPE ; item - db SPRITE_BALL, $11 + 4, $9 + 4, $ff, $ff, $87, HYPER_POTION ; item - - ; warp-to - EVENT_DISP $f, $2, $17 ; ROCKET_HIDEOUT_2 - EVENT_DISP $f, $2, $15 ; GAME_CORNER - EVENT_DISP $f, $13, $18 ; ROCKET_HIDEOUT_ELEVATOR - EVENT_DISP $f, $18, $15 ; ROCKET_HIDEOUT_2 - EVENT_DISP $f, $13, $19 ; ROCKET_HIDEOUT_ELEVATOR - -RocketHideout1Blocks: ; 210 - INCBIN "maps/rockethideout1.blk" - -RocketHideout2_h: ; 0x44e1b to 0x44e27 (12 bytes) (bank=11) (id=200) - db $16 ; tileset - db $0e, $0f ; dimensions (y, x) - dw RocketHideout2Blocks, RocketHideout2Texts, RocketHideout2Script ; blocks, texts, scripts - db $00 ; connections - - dw RocketHideout2Object ; objects - -RocketHideout2Script: ; 0x44e27 - call $3c3c - ld hl, $50d1 - ld de, $4e3a - ld a, [$d632] - call $3160 - ld [$d632], a - ret -; 0x44e3a - -INCBIN "baserom.gbc",$44e3a,$28d - -RocketHideout2Texts: ; 0x450c7 - dw RocketHideout2Text1, RocketHideout2Text2, RocketHideout2Text3, RocketHideout2Text4, RocketHideout2Text5 - -INCBIN "baserom.gbc",$450d1,$d - -RocketHideout2Text1: ; 0x450de - db $08 ; asm - ld hl, $50d1 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$450e8,$f - -RocketHideout2Object: ; 0x450f7 (size=80) - db $2e ; border tile - - db $5 ; warps - db $8, $1b, $0, ROCKET_HIDEOUT_1 - db $8, $15, $0, ROCKET_HIDEOUT_3 - db $13, $18, $0, ROCKET_HIDEOUT_ELEVATOR - db $16, $15, $3, ROCKET_HIDEOUT_1 - db $13, $19, $1, ROCKET_HIDEOUT_ELEVATOR - - db $0 ; signs - - db $5 ; people - db SPRITE_ROCKET, $c + 4, $14 + 4, $ff, $d0, $41, ROCKET + $C8, $d ; trainer - db SPRITE_BALL, $b + 4, $1 + 4, $ff, $ff, $82, MOON_STONE ; item - db SPRITE_BALL, $8 + 4, $10 + 4, $ff, $ff, $83, NUGGET ; item - db SPRITE_BALL, $c + 4, $6 + 4, $ff, $ff, $84, TM_07 ; item - db SPRITE_BALL, $15 + 4, $3 + 4, $ff, $ff, $85, SUPER_POTION ; item - - ; warp-to - EVENT_DISP $f, $8, $1b ; ROCKET_HIDEOUT_1 - EVENT_DISP $f, $8, $15 ; ROCKET_HIDEOUT_3 - EVENT_DISP $f, $13, $18 ; ROCKET_HIDEOUT_ELEVATOR - EVENT_DISP $f, $16, $15 ; ROCKET_HIDEOUT_1 - EVENT_DISP $f, $13, $19 ; ROCKET_HIDEOUT_ELEVATOR - -RocketHideout2Blocks: ; 210 - INCBIN "maps/rockethideout2.blk" - -RocketHideout3_h: ; 0x45219 to 0x45225 (12 bytes) (bank=11) (id=201) - db $16 ; tileset - db $0e, $0f ; dimensions (y, x) - dw RocketHideout3Blocks, RocketHideout3Texts, RocketHideout3Script ; blocks, texts, scripts - db $00 ; connections - - dw RocketHideout3Object ; objects - -RocketHideout3Script: ; 0x45225 - call $3c3c - ld hl, $5302 - ld de, $5238 - ld a, [$d633] - call $3160 - ld [$d633], a - ret -; 0x45238 - -INCBIN "baserom.gbc",$45238,$c2 - -RocketHideout3Texts: ; 0x452fa - dw RocketHideout3Text1, RocketHideout3Text2, RocketHideout3Text3, RocketHideout3Text4 - -INCBIN "baserom.gbc",$45302,$19 - -RocketHideout3Text1: ; 0x4531b - db $08 ; asm - ld hl, $5302 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$45325,$45334 - $45325 - -RocketHideout3Text2: ; 0x45334 - db $08 ; asm - ld hl, $530e - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$4533e,$f - -RocketHideout3Object: ; 0x4534d (size=50) - db $2e ; border tile - - db $2 ; warps - db $6, $19, $1, ROCKET_HIDEOUT_2 - db $12, $13, $0, ROCKET_HIDEOUT_4 - - db $0 ; signs - - db $4 ; people - db SPRITE_ROCKET, $16 + 4, $a + 4, $ff, $d3, $41, ROCKET + $C8, $e ; trainer - db SPRITE_ROCKET, $c + 4, $1a + 4, $ff, $d1, $42, ROCKET + $C8, $f ; trainer - db SPRITE_BALL, $11 + 4, $1a + 4, $ff, $ff, $83, TM_10 ; item - db SPRITE_BALL, $e + 4, $14 + 4, $ff, $ff, $84, RARE_CANDY ; item - - ; warp-to - EVENT_DISP $f, $6, $19 ; ROCKET_HIDEOUT_2 - EVENT_DISP $f, $12, $13 ; ROCKET_HIDEOUT_4 - -RocketHideout3Blocks: ; 210 - INCBIN "maps/rockethideout3.blk" - -RocketHideout4_h: ; 0x45451 to 0x4545d (12 bytes) (bank=11) (id=202) - db $16 ; tileset - db $0c, $0f ; dimensions (y, x) - dw RocketHideout4Blocks, RocketHideout4Texts, RocketHideout4Script ; blocks, texts, scripts - db $00 ; connections - - dw RocketHideout4Object ; objects - -RocketHideout4Script: ; 0x4545d - call $5473 - call $3c3c - ld hl, $5515 - ld de, $54ae - ld a, [$d634] - call $3160 - ld [$d634], a - ret -; 0x45473 - -INCBIN "baserom.gbc",$45473,$8e - -RocketHideout4Texts: ; 0x45501 - dw RocketHideout4Text1, RocketHideout4Text2, RocketHideout4Text3, RocketHideout4Text4, RocketHideout4Text5, RocketHideout4Text6, RocketHideout4Text7, RocketHideout4Text8, RocketHideout4Text9, RocketHideout4Text10 - -INCBIN "baserom.gbc",$45515,$25 - -RocketHideout4Text1: ; 0x4553a - db $08 ; asm - ld a, [$d81b] - bit 7, a - jp nz, $5571 - ld hl, $557a - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $557f - ld de, $557f - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - xor a - ldh [$b4], a - ld a, $3 - ld [$d634], a - ld [$da39], a - jr .asm_209f0 ; 0x4556f - ld hl, $5584 - call PrintText -.asm_209f0 ; 0x45577 - jp $24d7 - -INCBIN "baserom.gbc",$4557a,$45584 - $4557a - -RocketHideout4Text10: ; 0x45584 -INCBIN "baserom.gbc",$45584,5 - -RocketHideout4Text2: ; 0x45589 - db $08 ; asm - ld hl, $5515 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$45593,$455a2 - $45593 - -RocketHideout4Text3: ; 0x455a2 - db $08 ; asm - ld hl, $5521 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$455ac,$455bb - $455ac - -RocketHideout4Text4: ; 0x455bb - db $08 ; asm - ld hl, $552d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$455c5,$2c - -RocketHideout4Object: ; 0x455f1 (size=95) - db $2e ; border tile - - db $3 ; warps - db $a, $13, $1, ROCKET_HIDEOUT_3 - db $f, $18, $0, ROCKET_HIDEOUT_ELEVATOR - db $f, $19, $1, ROCKET_HIDEOUT_ELEVATOR - - db $0 ; signs - - db $9 ; people - db SPRITE_GIOVANNI, $3 + 4, $19 + 4, $ff, $d0, $41, GIOVANNI + $C8, $1 ; trainer - db SPRITE_ROCKET, $c + 4, $17 + 4, $ff, $d0, $42, ROCKET + $C8, $10 ; trainer - db SPRITE_ROCKET, $c + 4, $1a + 4, $ff, $d0, $43, ROCKET + $C8, $11 ; trainer - db SPRITE_ROCKET, $2 + 4, $b + 4, $ff, $d0, $44, ROCKET + $C8, $12 ; trainer - db SPRITE_BALL, $c + 4, $a + 4, $ff, $ff, $85, HP_UP ; item - db SPRITE_BALL, $4 + 4, $9 + 4, $ff, $ff, $86, TM_02 ; item - db SPRITE_BALL, $14 + 4, $c + 4, $ff, $ff, $87, IRON ; item - db SPRITE_BALL, $2 + 4, $19 + 4, $ff, $ff, $88, SILPH_SCOPE ; item - db SPRITE_BALL, $2 + 4, $a + 4, $ff, $ff, $89, LIFT_KEY ; item - - ; warp-to - EVENT_DISP $f, $a, $13 ; ROCKET_HIDEOUT_3 - EVENT_DISP $f, $f, $18 ; ROCKET_HIDEOUT_ELEVATOR - EVENT_DISP $f, $f, $19 ; ROCKET_HIDEOUT_ELEVATOR - -RocketHideout4Blocks: ; 180 - INCBIN "maps/rockethideout4.blk" - -RocketHideoutElevator_h: ; 0x45704 to 0x45710 (12 bytes) (bank=11) (id=203) - db $12 ; tileset - db $04, $03 ; dimensions (y, x) - dw RocketHideoutElevatorBlocks, RocketHideoutElevatorTexts, RocketHideoutElevatorScript ; blocks, texts, scripts - db $00 ; connections - - dw RocketHideoutElevatorObject ; objects - -RocketHideoutElevatorScript: ; 0x45710 - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - push hl - call nz, $572c - pop hl - bit 7, [hl] - res 7, [hl] - call nz, $575f - xor a - ld [$cf0c], a - inc a - ld [$cc3c], a - ret -; 0x4572c - -INCBIN "baserom.gbc",$4572c,$3f - -RocketHideoutElevatorTexts: ; 0x4576b - dw RocketHideoutElevatorText1 - -RocketHideoutElevatorText1: ; 0x4576d - db $08 ; asm - ld b,LIFT_KEY - call $3493 - jr z, .asm_8d8f0 ; 0x45773 - call $5741 - ld hl, $5759 - ld a, $61 - call Predef - jr .asm_46c43 ; 0x45780 -.asm_8d8f0 ; 0x45782 - ld hl, $578b - call PrintText -.asm_46c43 ; 0x45788 - jp $24d7 - -INCBIN "baserom.gbc",$4578b,$6 - -RocketHideoutElevatorObject: ; 0x45791 (size=23) - db $f ; border tile - - db $2 ; warps - db $1, $2, $2, ROCKET_HIDEOUT_1 - db $1, $3, $4, ROCKET_HIDEOUT_1 - - db $1 ; signs - db $1, $1, $1 ; RocketHideoutElevatorText1 - - db $0 ; people - - ; warp-to - EVENT_DISP $3, $1, $2 ; ROCKET_HIDEOUT_1 - EVENT_DISP $3, $1, $3 ; ROCKET_HIDEOUT_1 - -RocketHideoutElevatorBlocks: ; 12 - INCBIN "maps/rockethideoutelevator.blk" - -SilphCoElevator_h: ; 0x457b4 to 0x457c0 (12 bytes) (bank=11) (id=236) - db $12 ; tileset - db $02, $02 ; dimensions (y, x) - dw SilphCoElevatorBlocks, SilphCoElevatorTexts, SilphCoElevatorScript ; blocks, texts, scripts - db $00 ; connections - - dw SilphCoElevatorObject ; objects - -SilphCoElevatorScript: ; 0x457c0 - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - push hl - call nz, $57dc - pop hl - bit 7, [hl] - res 7, [hl] - call nz, $5827 - xor a - ld [$cf0c], a - inc a - ld [$cc3c], a - ret -; 0x457dc - -INCBIN "baserom.gbc",$457dc,$57 - -SilphCoElevatorTexts: ; 0x45833 - dw SilphCoElevatorText1 - -SilphCoElevatorText1: ; 0x45835 - db $08 ; asm - call $57f1 - ld hl, $5811 - ld a, $61 - call Predef - jp $24d7 - -SilphCoElevatorObject: ; 0x45844 (size=23) - db $f ; border tile - - db $2 ; warps - db $3, $1, $0, $ed - db $3, $2, $0, $ed - - db $1 ; signs - db $0, $3, $1 ; SilphCoElevatorText1 - - db $0 ; people - - ; warp-to - EVENT_DISP $2, $3, $1 - EVENT_DISP $2, $3, $2 - -SilphCoElevatorBlocks: ; 4 - INCBIN "maps/silphcoelevator.blk" - -SafariZoneEast_h: ; 0x4585f to 0x4586b (12 bytes) (bank=11) (id=217) - db $03 ; tileset - db $0d, $0f ; dimensions (y, x) - dw SafariZoneEastBlocks, SafariZoneEastTexts, SafariZoneEastScript ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneEastObject ; objects - -SafariZoneEastScript: ; 0x4586b - jp $3c3c -; 0x4586e - -SafariZoneEastTexts: ; 0x4586e - dw SafariZoneEastText1, SafariZoneEastText2, SafariZoneEastText3, SafariZoneEastText4, SafariZoneEastText5, SafariZoneEastText6, SafariZoneEastText7 - -SafariZoneEastText5: ; 0x4587c - TX_FAR _SafariZoneEastText5 - db $50 - -SafariZoneEastText6: ; 0x45881 - TX_FAR _SafariZoneEastText6 - db $50 - -SafariZoneEastText7: ; 0x45886 - TX_FAR _SafariZoneEastText7 - db $50 - -SafariZoneEastObject: ; 0x4588b (size=81) - db $0 ; border tile - - db $5 ; warps - db $4, $0, $6, SAFARI_ZONE_NORTH - db $5, $0, $7, SAFARI_ZONE_NORTH - db $16, $0, $6, SAFARI_ZONE_CENTER - db $17, $0, $6, SAFARI_ZONE_CENTER - db $9, $19, $0, SAFARI_ZONE_REST_HOUSE_3 - - db $3 ; signs - db $a, $1a, $5 ; SafariZoneEastText5 - db $4, $6, $6 ; SafariZoneEastText6 - db $17, $5, $7 ; SafariZoneEastText7 - - db $4 ; people - db SPRITE_BALL, $a + 4, $15 + 4, $ff, $ff, $81, FULL_RESTORE ; item - db SPRITE_BALL, $7 + 4, $3 + 4, $ff, $ff, $82, MAX_POTION ; item - db SPRITE_BALL, $d + 4, $14 + 4, $ff, $ff, $83, CARBOS ; item - db SPRITE_BALL, $c + 4, $f + 4, $ff, $ff, $84, TM_37 ; item - - ; warp-to - EVENT_DISP $f, $4, $0 ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $5, $0 ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $16, $0 ; SAFARI_ZONE_CENTER - EVENT_DISP $f, $17, $0 ; SAFARI_ZONE_CENTER - EVENT_DISP $f, $9, $19 ; SAFARI_ZONE_REST_HOUSE_3 - -SafariZoneEastBlocks: ; 195 - INCBIN "maps/safarizoneeast.blk" - -SafariZoneNorth_h: ; 0x4599f to 0x459ab (12 bytes) (bank=11) (id=218) - db $03 ; tileset - db $12, $14 ; dimensions (y, x) - dw SafariZoneNorthBlocks, SafariZoneNorthTexts, SafariZoneNorthScript ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneNorthObject ; objects - -SafariZoneNorthScript: ; 0x459ab - jp $3c3c -; 0x459ae - -SafariZoneNorthTexts: ; 0x459ae - dw SafariZoneNorthText1, SafariZoneNorthText2, SafariZoneNorthText3, SafariZoneNorthText4, SafariZoneNorthText5, SafariZoneNorthText6, SafariZoneNorthText7 - -SafariZoneNorthText3: ; 0x459bc - TX_FAR _SafariZoneNorthText3 - db $50 - -SafariZoneNorthText4: ; 0x459c1 - TX_FAR _SafariZoneNorthText4 - db $50 - -SafariZoneNorthText5: ; 0x459c6 - TX_FAR _SafariZoneNorthText5 - db $50 - -SafariZoneNorthText6: ; 0x459cb - TX_FAR _SafariZoneNorthText6 - db $50 - -SafariZoneNorthText7: ; 0x459d0 - TX_FAR _SafariZoneNorthText7 - db $50 - -SafariZoneNorthObject: ; 0x459d5 (size=105) - db $0 ; border tile - - db $9 ; warps - db $23, $2, $0, SAFARI_ZONE_WEST - db $23, $3, $1, SAFARI_ZONE_WEST - db $23, $8, $2, SAFARI_ZONE_WEST - db $23, $9, $3, SAFARI_ZONE_WEST - db $23, $14, $4, SAFARI_ZONE_CENTER - db $23, $15, $5, SAFARI_ZONE_CENTER - db $1e, $27, $0, SAFARI_ZONE_EAST - db $1f, $27, $1, SAFARI_ZONE_EAST - db $3, $23, $0, SAFARI_ZONE_REST_HOUSE_4 - - db $5 ; signs - db $4, $24, $3 ; SafariZoneNorthText3 - db $19, $4, $4 ; SafariZoneNorthText4 - db $1f, $d, $5 ; SafariZoneNorthText5 - db $21, $13, $6 ; SafariZoneNorthText6 - db $1c, $1a, $7 ; SafariZoneNorthText7 - - db $2 ; people - db SPRITE_BALL, $1 + 4, $19 + 4, $ff, $ff, $81, PROTEIN ; item - db SPRITE_BALL, $7 + 4, $13 + 4, $ff, $ff, $82, TM_40 ; item - - ; warp-to - EVENT_DISP $14, $23, $2 ; SAFARI_ZONE_WEST - EVENT_DISP $14, $23, $3 ; SAFARI_ZONE_WEST - EVENT_DISP $14, $23, $8 ; SAFARI_ZONE_WEST - EVENT_DISP $14, $23, $9 ; SAFARI_ZONE_WEST - EVENT_DISP $14, $23, $14 ; SAFARI_ZONE_CENTER - EVENT_DISP $14, $23, $15 ; SAFARI_ZONE_CENTER - EVENT_DISP $14, $1e, $27 ; SAFARI_ZONE_EAST - EVENT_DISP $14, $1f, $27 ; SAFARI_ZONE_EAST - EVENT_DISP $14, $3, $23 ; SAFARI_ZONE_REST_HOUSE_4 - -SafariZoneNorthBlocks: ; 360 - INCBIN "maps/safarizonenorth.blk" - -SafariZoneCenter_h: ; 0x45ba6 to 0x45bb2 (12 bytes) (bank=11) (id=220) - db $03 ; tileset - db $0d, $0f ; dimensions (y, x) - dw SafariZoneCenterBlocks, SafariZoneCenterTexts, SafariZoneCenterScript ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneCenterObject ; objects - -SafariZoneCenterScript: ; 0x45bb2 - jp $3c3c -; 0x45bb5 - -SafariZoneCenterTexts: ; 0x45bb5 - dw SafariZoneCenterText1, SafariZoneCenterText2, SafariZoneCenterText3 - -SafariZoneCenterText2: ; 0x45bbb - TX_FAR _SafariZoneCenterText2 - db $50 - -SafariZoneCenterText3: ; 0x45bc0 - TX_FAR _SafariZoneCenterText3 - db $50 - -SafariZoneCenterObject: ; 0x45bc5 (size=89) - db $0 ; border tile - - db $9 ; warps - db $19, $e, $2, SAFARIZONEENTRANCE - db $19, $f, $3, SAFARIZONEENTRANCE - db $a, $0, $4, SAFARI_ZONE_WEST - db $b, $0, $5, SAFARI_ZONE_WEST - db $0, $e, $4, SAFARI_ZONE_NORTH - db $0, $f, $5, SAFARI_ZONE_NORTH - db $a, $1d, $2, SAFARI_ZONE_EAST - db $b, $1d, $3, SAFARI_ZONE_EAST - db $13, $11, $0, SAFARI_ZONE_REST_HOUSE_1 - - db $2 ; signs - db $14, $12, $2 ; SafariZoneCenterText2 - db $16, $e, $3 ; SafariZoneCenterText3 - - db $1 ; people - db SPRITE_BALL, $a + 4, $e + 4, $ff, $ff, $81, NUGGET ; item - - ; warp-to - EVENT_DISP $f, $19, $e ; SAFARIZONEENTRANCE - EVENT_DISP $f, $19, $f ; SAFARIZONEENTRANCE - EVENT_DISP $f, $a, $0 ; SAFARI_ZONE_WEST - EVENT_DISP $f, $b, $0 ; SAFARI_ZONE_WEST - EVENT_DISP $f, $0, $e ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $0, $f ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $a, $1d ; SAFARI_ZONE_EAST - EVENT_DISP $f, $b, $1d ; SAFARI_ZONE_EAST - EVENT_DISP $f, $13, $11 ; SAFARI_ZONE_REST_HOUSE_1 - -SafariZoneCenterBlocks: ; 195 - INCBIN "maps/safarizonecenter.blk" - -SafariZoneRestHouse1_h: ; 0x45ce1 to 0x45ced (12 bytes) (bank=11) (id=221) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw SafariZoneRestHouse1Blocks, SafariZoneRestHouse1Texts, SafariZoneRestHouse1Script ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneRestHouse1Object ; objects - -SafariZoneRestHouse1Script: ; 0x45ced - jp $3c3c -; 0x45cf0 - -SafariZoneRestHouse1Texts: ; 0x45cf0 - dw SafariZoneRestHouse1Text1, SafariZoneRestHouse1Text2 - -SafariZoneRestHouse1Text1: ; 0x45cf4 - TX_FAR _SafariZoneRestHouse1Text1 - db $50 - -SafariZoneRestHouse1Text2: ; 0x45cf9 - TX_FAR _SafariZoneRestHouse1Text2 - db $50 - -SafariZoneRestHouse1Object: ; 0x45cfe (size=32) - db $a ; border tile - - db $2 ; warps - db $7, $2, $8, SAFARI_ZONE_CENTER - db $7, $3, $8, SAFARI_ZONE_CENTER - - db $0 ; signs - - db $2 ; people - db SPRITE_GIRL, $2 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_OAK_AIDE, $4 + 4, $1 + 4, $fe, $1, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_CENTER - EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_CENTER - -SafariZoneRestHouse2_h: ; 0x45d1e to 0x45d2a (12 bytes) (bank=11) (id=223) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $40fb, SafariZoneRestHouse2Texts, SafariZoneRestHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneRestHouse2Object ; objects - -SafariZoneRestHouse2Script: ; 0x45d2a - call $3c3c - ret -; 0x45d2e - -SafariZoneRestHouse2Texts: ; 0x45d2e - dw SafariZoneRestHouse2Text1, SafariZoneRestHouse2Text2, SafariZoneRestHouse2Text3 - -SafariZoneRestHouse2Text1: ; 0x45d34 - TX_FAR _SafariZoneRestHouse2Text1 - db $50 - -SafariZoneRestHouse2Text2: ; 0x45d39 - TX_FAR _SafariZoneRestHouse2Text2 - db $50 - -SafariZoneRestHouse2Text3: ; 0x45d3e - TX_FAR _SafariZoneRestHouse2Text3 - db $50 - -SafariZoneRestHouse2Object: ; 0x45d43 (size=38) - db $a ; border tile - - db $2 ; warps - db $7, $2, $7, SAFARI_ZONE_WEST - db $7, $3, $7, SAFARI_ZONE_WEST - - db $0 ; signs - - db $3 ; people - db SPRITE_OAK_AIDE, $4 + 4, $4 + 4, $fe, $0, $1 ; person - db SPRITE_BLACK_HAIR_BOY_1, $2 + 4, $0 + 4, $ff, $d3, $2 ; person - db SPRITE_ERIKA, $2 + 4, $6 + 4, $ff, $d0, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_WEST - EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_WEST - -SafariZoneRestHouse3_h: ; 0x45d69 to 0x45d75 (12 bytes) (bank=11) (id=224) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $40fb, SafariZoneRestHouse3Texts, SafariZoneRestHouse3Script ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneRestHouse3Object ; objects - -SafariZoneRestHouse3Script: ; 0x45d75 - call $3c3c - ret -; 0x45d79 - -SafariZoneRestHouse3Texts: ; 0x45d79 - dw SafariZoneRestHouse3Text1, SafariZoneRestHouse3Text2, SafariZoneRestHouse3Text3 - -SafariZoneRestHouse3Text1: ; 0x45d7f - TX_FAR _SafariZoneRestHouse3Text1 - db $50 - -SafariZoneRestHouse3Text2: ; 0x45d84 - TX_FAR _SafariZoneRestHouse3Text2 - db $50 - -SafariZoneRestHouse3Text3: ; 0x45d89 - TX_FAR _SafariZoneRestHouse3Text3 - db $50 - -SafariZoneRestHouse3Object: ; 0x45d8e (size=38) - db $a ; border tile - - db $2 ; warps - db $7, $2, $4, SAFARI_ZONE_EAST - db $7, $3, $4, SAFARI_ZONE_EAST - - db $0 ; signs - - db $3 ; people - db SPRITE_OAK_AIDE, $3 + 4, $1 + 4, $fe, $1, $1 ; person - db SPRITE_ROCKER, $2 + 4, $4 + 4, $ff, $ff, $2 ; person - db SPRITE_LAPRAS_GIVER, $2 + 4, $5 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_EAST - EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_EAST - -SafariZoneRestHouse4_h: ; 0x45db4 to 0x45dc0 (12 bytes) (bank=11) (id=225) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $40fb, SafariZoneRestHouse4Texts, SafariZoneRestHouse4Script ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneRestHouse4Object ; objects - -SafariZoneRestHouse4Script: ; 0x45dc0 - call $3c3c - ret -; 0x45dc4 - -SafariZoneRestHouse4Texts: ; 0x45dc4 - dw SafariZoneRestHouse4Text1, SafariZoneRestHouse4Text2, SafariZoneRestHouse4Text3 - -SafariZoneRestHouse4Text1: ; 0x45dca - TX_FAR _SafariZoneRestHouse4Text1 - db $50 - -SafariZoneRestHouse4Text2: ; 0x45dcf - TX_FAR _SafariZoneRestHouse4Text2 - db $50 - -SafariZoneRestHouse4Text3: ; 0x45dd4 - TX_FAR _SafariZoneRestHouse4Text3 - db $50 - -SafariZoneRestHouse4Object: ; 0x45dd9 (size=38) - db $a ; border tile - - db $2 ; warps - db $7, $2, $8, SAFARI_ZONE_NORTH - db $7, $3, $8, SAFARI_ZONE_NORTH - - db $0 ; signs - - db $3 ; people - db SPRITE_OAK_AIDE, $3 + 4, $6 + 4, $fe, $2, $1 ; person - db SPRITE_WHITE_PLAYER, $4 + 4, $3 + 4, $ff, $ff, $2 ; person - db SPRITE_GENTLEMAN, $5 + 4, $1 + 4, $fe, $1, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_NORTH - EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_NORTH - -UnknownDungeon2_h: ; 0x45dff to 0x45e0b (12 bytes) (bank=11) (id=226) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw UnknownDungeon2Blocks, UnknownDungeon2Texts, UnknownDungeon2Script ; blocks, texts, scripts - db $00 ; connections - - dw UnknownDungeon2Object ; objects - -UnknownDungeon2Script: ; 0x45e0b - jp $3c3c -; 0x45e0e - -UnknownDungeon2Texts: ; 0x45e0e - dw UnknownDungeon2Text1, UnknownDungeon2Text2, UnknownDungeon2Text3 - -UnknownDungeon2Object: ; 0x45e14 (size=73) - db $7d ; border tile - - db $6 ; warps - db $1, $1d, $2, UNKNOWN_DUNGEON_1 - db $6, $16, $3, UNKNOWN_DUNGEON_1 - db $7, $13, $4, UNKNOWN_DUNGEON_1 - db $1, $9, $5, UNKNOWN_DUNGEON_1 - db $3, $1, $6, UNKNOWN_DUNGEON_1 - db $b, $3, $7, UNKNOWN_DUNGEON_1 - - db $0 ; signs - - db $3 ; people - db SPRITE_BALL, $9 + 4, $1d + 4, $ff, $ff, $81, PP_UP ; item - db SPRITE_BALL, $f + 4, $4 + 4, $ff, $ff, $82, ULTRA_BALL ; item - db SPRITE_BALL, $6 + 4, $d + 4, $ff, $ff, $83, FULL_RESTORE ; item - - ; warp-to - EVENT_DISP $f, $1, $1d ; UNKNOWN_DUNGEON_1 - EVENT_DISP $f, $6, $16 ; UNKNOWN_DUNGEON_1 - EVENT_DISP $f, $7, $13 ; UNKNOWN_DUNGEON_1 - EVENT_DISP $f, $1, $9 ; UNKNOWN_DUNGEON_1 - EVENT_DISP $f, $3, $1 ; UNKNOWN_DUNGEON_1 - EVENT_DISP $f, $b, $3 ; UNKNOWN_DUNGEON_1 - -UnknownDungeon2Blocks: ; 135 - INCBIN "maps/unknowndungeon2.blk" - -UnknownDungeon3_h: ; 0x45ee4 to 0x45ef0 (12 bytes) (bank=11) (id=227) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw UnknownDungeon3Blocks, UnknownDungeon3Texts, UnknownDungeon3Script ; blocks, texts, scripts - db $00 ; connections - - dw UnknownDungeon3Object ; objects - -UnknownDungeon3Script: ; 0x45ef0 - call $3c3c - ld hl, $5f0f - ld de, $5f03 - ld a, [$d650] - call $3160 - ld [$d650], a - ret -; 0x45f03 - -INCBIN "baserom.gbc",$45f03,$6 - -UnknownDungeon3Texts: ; 0x45f09 - dw UnknownDungeon3Text1, UnknownDungeon3Text2, UnknownDungeon3Text3 - -INCBIN "baserom.gbc",$45f0f,$d - -UnknownDungeon3Text1: ; 0x45f1c - db $08 ; asm - ld hl, $5f0f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$45f26,$10 - -UnknownDungeon3Object: ; 0x45f36 (size=34) - db $7d ; border tile - - db $1 ; warps - db $6, $3, $8, UNKNOWN_DUNGEON_1 - - db $0 ; signs - - db $3 ; people - db SPRITE_SLOWBRO, $d + 4, $1b + 4, $ff, $d0, $41, MEWTWO, $46 ; trainer - db SPRITE_BALL, $9 + 4, $10 + 4, $ff, $ff, $82, ULTRA_BALL ; item - db SPRITE_BALL, $1 + 4, $12 + 4, $ff, $ff, $83, MAX_REVIVE ; item - - ; warp-to - EVENT_DISP $f, $6, $3 ; UNKNOWN_DUNGEON_1 - -UnknownDungeon3Blocks: ; 135 - INCBIN "maps/unknowndungeon3.blk" - -RockTunnel2_h: ; 0x45fdf to 0x45feb (12 bytes) (bank=11) (id=232) - db $11 ; tileset - db $12, $14 ; dimensions (y, x) - dw RockTunnel2Blocks, RockTunnel2Texts, RockTunnel2Script ; blocks, texts, scripts - db $00 ; connections - - dw RockTunnel2Object ; objects - -RockTunnel2Script: ; 0x45feb - call $3c3c - ld hl, $6014 - ld de, $5ffe - ld a, [$d620] - call $3160 - ld [$d620], a - ret -; 0x45ffe - -INCBIN "baserom.gbc",$45ffe,$6 - -RockTunnel2Texts: ; 0x46004 - dw RockTunnel2Text1, RockTunnel2Text2, RockTunnel2Text3, RockTunnel2Text4, RockTunnel2Text5, RockTunnel2Text6, RockTunnel2Text7, RockTunnel2Text8 - -INCBIN "baserom.gbc",$46014,$61 - -RockTunnel2Text1: ; 0x46075 - db $08 ; asm - ld hl, $6014 - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text2: ; 0x4607f - db $08 ; asm - ld hl, $6020 - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text3: ; 0x46089 - db $08 ; asm - ld hl, $602c - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text4: ; 0x46093 - db $08 ; asm - ld hl, $6038 - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text5: ; 0x4609d - db $08 ; asm - ld hl, $6044 - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text6: ; 0x460a7 - db $08 ; asm - ld hl, $6050 - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text7: ; 0x460b1 - db $08 ; asm - ld hl, $605c - call LoadTrainerHeader - jp $24d7 - -RockTunnel2Text8: ; 0x460bb - db $08 ; asm - ld hl, $6068 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$460c5,$78 - -RockTunnel2Object: ; 0x4613d (size=100) - db $3 ; border tile - - db $4 ; warps - db $19, $21, $4, ROCK_TUNNEL_1 - db $3, $1b, $5, ROCK_TUNNEL_1 - db $b, $17, $6, ROCK_TUNNEL_1 - db $3, $3, $7, ROCK_TUNNEL_1 - - db $0 ; signs - - db $8 ; people - db SPRITE_LASS, $d + 4, $b + 4, $ff, $d0, $41, JR__TRAINER_F + $C8, $9 ; trainer - db SPRITE_HIKER, $a + 4, $6 + 4, $ff, $d0, $42, HIKER + $C8, $9 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $3 + 4, $ff, $d0, $43, POKEMANIAC + $C8, $3 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $15 + 4, $14 + 4, $ff, $d3, $44, POKEMANIAC + $C8, $4 ; trainer - db SPRITE_HIKER, $a + 4, $1e + 4, $ff, $d0, $45, HIKER + $C8, $a ; trainer - db SPRITE_LASS, $1c + 4, $e + 4, $ff, $d3, $46, JR__TRAINER_F + $C8, $a ; trainer - db SPRITE_HIKER, $5 + 4, $21 + 4, $ff, $d3, $47, HIKER + $C8, $b ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $1e + 4, $1a + 4, $ff, $d0, $48, POKEMANIAC + $C8, $5 ; trainer - - ; warp-to - EVENT_DISP $14, $19, $21 ; ROCK_TUNNEL_1 - EVENT_DISP $14, $3, $1b ; ROCK_TUNNEL_1 - EVENT_DISP $14, $b, $17 ; ROCK_TUNNEL_1 - EVENT_DISP $14, $3, $3 ; ROCK_TUNNEL_1 - -RockTunnel2Blocks: ; 360 - INCBIN "maps/rocktunnel2.blk" - -SeafoamIslands2_h: ; 0x46309 to 0x46315 (12 bytes) (bank=11) (id=159) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw SeafoamIslands2Blocks, SeafoamIslands2Texts, SeafoamIslands2Script ; blocks, texts, scripts - db $00 ; connections - - dw SeafoamIslands2Object ; objects - -SeafoamIslands2Script: ; 0x46315 - call $3c3c - ld hl, $cd60 - bit 7, [hl] - res 7, [hl] - jr z, .asm_46362 ; 0x4631f $41 - ld hl, $636d - call $34e4 - ret nc - ld hl, $d87f - ld a, [$cd3d] - cp $1 - jr nz, .asm_46340 ; 0x46330 $e - set 0, [hl] - ld a, $d9 - ld [$d079], a - ld a, $db - ld [$d07a], a - jr .asm_4634c ; 0x4633e $c -.asm_46340 - set 1, [hl] - ld a, $da - ld [$d079], a - ld a, $dc - ld [$d07a], a -.asm_4634c - ld a, [$d079] - ld [$cc4d], a - ld a, $11 - call Predef - ld a, [$d07a] - ld [$cc4d], a - ld a, $15 - jp $3e6d -.asm_46362 - ld a, $a0 - ld [$d71d], a - ld hl, $636d - jp $6981 -; 0x4636d - -INCBIN "baserom.gbc",$4636d,$5 - -SeafoamIslands2Texts: ; 0x46372 - dw SeafoamIslands2Text1, SeafoamIslands2Text2 - -SeafoamIslands2Object: ; 0x46376 (size=72) - db $7d ; border tile - - db $7 ; warps - db $2, $4, $0, SEAFOAM_ISLANDS_3 - db $5, $7, $4, SEAFOAM_ISLANDS_1 - db $7, $d, $2, SEAFOAM_ISLANDS_3 - db $f, $13, $3, SEAFOAM_ISLANDS_3 - db $f, $17, $6, SEAFOAM_ISLANDS_1 - db $b, $19, $5, SEAFOAM_ISLANDS_3 - db $3, $19, $5, SEAFOAM_ISLANDS_1 - - db $0 ; signs - - db $2 ; people - db SPRITE_BOULDER, $6 + 4, $11 + 4, $ff, $10, $1 ; person - db SPRITE_BOULDER, $6 + 4, $16 + 4, $ff, $10, $2 ; person - - ; warp-to - EVENT_DISP $f, $2, $4 ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $5, $7 ; SEAFOAM_ISLANDS_1 - EVENT_DISP $f, $7, $d ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $f, $13 ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $f, $17 ; SEAFOAM_ISLANDS_1 - EVENT_DISP $f, $b, $19 ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_1 - -SeafoamIslands2Blocks: ; 135 - INCBIN "maps/seafoamislands2.blk" - -SeafoamIslands3_h: ; 0x46445 to 0x46451 (12 bytes) (bank=11) (id=160) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw SeafoamIslands3Blocks, SeafoamIslands3Texts, SeafoamIslands3Script ; blocks, texts, scripts - db $00 ; connections - - dw SeafoamIslands3Object ; objects - -SeafoamIslands3Script: ; 0x46451 - call $3c3c - ld hl, $cd60 - bit 7, [hl] - res 7, [hl] - jr z, .asm_4649e ; 0x4645b $41 - ld hl, $64a9 - call $34e4 - ret nc - ld hl, $d880 - ld a, [$cd3d] - cp $1 - jr nz, .asm_4647c ; 0x4646c $e - set 0, [hl] - ld a, $db - ld [$d079], a - ld a, $df - ld [$d07a], a - jr .asm_46488 ; 0x4647a $c -.asm_4647c - set 1, [hl] - ld a, $dc - ld [$d079], a - ld a, $e0 - ld [$d07a], a -.asm_46488 - ld a, [$d079] - ld [$cc4d], a - ld a, $11 - call Predef - ld a, [$d07a] - ld [$cc4d], a - ld a, $15 - jp $3e6d -.asm_4649e - ld a, $a1 - ld [$d71d], a - ld hl, $64a9 - jp $6981 -; 0x464a9 - -INCBIN "baserom.gbc",$464a9,$5 - -SeafoamIslands3Texts: ; 0x464ae - dw SeafoamIslands3Text1, SeafoamIslands3Text2 - -SeafoamIslands3Object: ; 0x464b2 (size=72) - db $7d ; border tile - - db $7 ; warps - db $3, $5, $0, SEAFOAM_ISLANDS_2 - db $d, $5, $0, SEAFOAM_ISLANDS_4 - db $7, $d, $2, SEAFOAM_ISLANDS_2 - db $f, $13, $3, SEAFOAM_ISLANDS_2 - db $3, $19, $3, SEAFOAM_ISLANDS_4 - db $b, $19, $5, SEAFOAM_ISLANDS_2 - db $e, $19, $4, SEAFOAM_ISLANDS_4 - - db $0 ; signs - - db $2 ; people - db SPRITE_BOULDER, $6 + 4, $12 + 4, $ff, $10, $1 ; person - db SPRITE_BOULDER, $6 + 4, $17 + 4, $ff, $10, $2 ; person - - ; warp-to - EVENT_DISP $f, $3, $5 ; SEAFOAM_ISLANDS_2 - EVENT_DISP $f, $d, $5 ; SEAFOAM_ISLANDS_4 - EVENT_DISP $f, $7, $d ; SEAFOAM_ISLANDS_2 - EVENT_DISP $f, $f, $13 ; SEAFOAM_ISLANDS_2 - EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_4 - EVENT_DISP $f, $b, $19 ; SEAFOAM_ISLANDS_2 - EVENT_DISP $f, $e, $19 ; SEAFOAM_ISLANDS_4 - -SeafoamIslands3Blocks: ; 135 - INCBIN "maps/seafoamislands3.blk" - -SeafoamIslands4_h: ; 0x46581 to 0x4658d (12 bytes) (bank=11) (id=161) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw SeafoamIslands4Blocks, SeafoamIslands4Texts, SeafoamIslands4Script ; blocks, texts, scripts - db $00 ; connections - - dw SeafoamIslands4Object ; objects - -SeafoamIslands4Script: ; 0x4658d - call $3c3c - ld hl, $cd60 - bit 7, [hl] - res 7, [hl] - jr z, .asm_465dc ; 0x46597 $43 - ld hl, $65f6 - call $34e4 - ret nc - ld hl, $d881 - ld a, [$cd3d] - cp $1 - jr nz, .asm_465b8 ; 0x465a8 $e - set 0, [hl] - ld a, $dd - ld [$d079], a - ld a, $e1 - ld [$d07a], a - jr .asm_465c4 ; 0x465b6 $c -.asm_465b8 - set 1, [hl] - ld a, $de - ld [$d079], a - ld a, $e2 - ld [$d07a], a -.asm_465c4 - ld a, [$d079] - ld [$cc4d], a - ld a, $11 - call Predef - ld a, [$d07a] - ld [$cc4d], a - ld a, $15 - call Predef - jr .asm_465ed ; 0x465da $11 -.asm_465dc - ld a, $a2 - ld [$d71d], a - ld hl, $65f6 - call $6981 - ld a, [$d732] - bit 4, a - ret nz -.asm_465ed - ld hl, $65fb - ld a, [$d666] - jp $3d97 -; 0x465f6 - -INCBIN "baserom.gbc",$465f6,$465fb - $465f6 - -SeafoamIslands4Scripts: ; 0x465fb - dw SeafoamIslands4Script0, SeafoamIslands4Script1 - -INCBIN "baserom.gbc",$465ff,$4 - -SeafoamIslands4Script0: ; 0x46603 - ld a, [$d880] - and $3 - cp $3 - ret z - ld a, [$d361] - cp $8 - ret nz - ld a, [$d362] - cp $f - ret nz - ld hl, $ccd3 - ld de, $6632 - call $350c - dec a - ld [$cd38], a - call $3486 - ld hl, $d733 - set 2, [hl] - ld a, $1 - ld [$d666], a - ret -; 0x46632 - -INCBIN "baserom.gbc",$46632,$46639 - $46632 - -SeafoamIslands4Script1: ; 0x46639 - ld a, [$cd38] - and a - ret nz - ld a, $0 - ld [$d666], a - ret -; 0x46644 - -INCBIN "baserom.gbc",$46644,$56 - -SeafoamIslands4Texts: ; 0x4669a - dw SeafoamIslands4Text1, SeafoamIslands4Text2, SeafoamIslands4Text3, SeafoamIslands4Text4, SeafoamIslands4Text5, SeafoamIslands4Text6 - -SeafoamIslands4Object: ; 0x466a6 (size=96) - db $7d ; border tile - - db $7 ; warps - db $c, $5, $1, SEAFOAM_ISLANDS_3 - db $6, $8, $2, SEAFOAM_ISLANDS_5 - db $4, $19, $3, SEAFOAM_ISLANDS_5 - db $3, $19, $4, SEAFOAM_ISLANDS_3 - db $e, $19, $6, SEAFOAM_ISLANDS_3 - db $11, $14, $0, SEAFOAM_ISLANDS_5 - db $11, $15, $1, SEAFOAM_ISLANDS_5 - - db $0 ; signs - - db $6 ; people - db SPRITE_BOULDER, $e + 4, $5 + 4, $ff, $10, $1 ; person - db SPRITE_BOULDER, $f + 4, $3 + 4, $ff, $10, $2 ; person - db SPRITE_BOULDER, $e + 4, $8 + 4, $ff, $10, $3 ; person - db SPRITE_BOULDER, $e + 4, $9 + 4, $ff, $10, $4 ; person - db SPRITE_BOULDER, $6 + 4, $12 + 4, $ff, $ff, $5 ; person - db SPRITE_BOULDER, $6 + 4, $13 + 4, $ff, $ff, $6 ; person - - ; warp-to - EVENT_DISP $f, $c, $5 ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $6, $8 ; SEAFOAM_ISLANDS_5 - EVENT_DISP $f, $4, $19 ; SEAFOAM_ISLANDS_5 - EVENT_DISP $f, $3, $19 ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $e, $19 ; SEAFOAM_ISLANDS_3 - EVENT_DISP $f, $11, $14 ; SEAFOAM_ISLANDS_5 - EVENT_DISP $f, $11, $15 ; SEAFOAM_ISLANDS_5 - -SeafoamIslands4Blocks: ; 135 - INCBIN "maps/seafoamislands4.blk" - -SeafoamIslands5_h: ; 0x4678d to 0x46799 (12 bytes) (bank=11) (id=162) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw SeafoamIslands5Blocks, SeafoamIslands5Texts, SeafoamIslands5Script ; blocks, texts, scripts - db $00 ; connections - - dw SeafoamIslands5Object ; objects - -SeafoamIslands5Script: ; 0x46799 - call $3c3c - ld a, [$d668] - ld hl, $67ad - jp $3d97 -; 0x467a5 - -INCBIN "baserom.gbc",$467a5,$467ad - $467a5 - -SeafoamIslands5Scripts: ; 0x467ad - dw SeafoamIslands5Script0, SeafoamIslands5Script1 - -INCBIN "baserom.gbc",$467b1,$16 - -SeafoamIslands5Script0: ; 0x467c7 - ld a, [$d880] - and $3 - cp $3 - ret z - ld hl, $67fe - call $34bf - ret nc - ld a, [$cd3d] - cp $3 - jr nc, .asm_467e6 ; 0x467db $9 - ld a, $40 - ld [$ccd4], a - ld a, $2 - jr .asm_467e8 ; 0x467e4 $2 -.asm_467e6 - ld a, $1 -.asm_467e8 - ld [$cd38], a - ld a, $40 - ld [$ccd3], a - call $3486 - ld hl, $d733 - res 2, [hl] - ld a, $1 - ld [$d668], a - ret -; 0x467fe - -INCBIN "baserom.gbc",$467fe,$46807 - $467fe - -SeafoamIslands5Script1: ; 0x46807 - ld a, [$cd38] - and a - ret nz - xor a - ld [$cd6b], a - ld a, $0 - ld [$d668], a - ret -; 0x46816 - -INCBIN "baserom.gbc",$46816,$66 - -SeafoamIslands5Texts: ; 0x4687c - dw SeafoamIslands5Text1, SeafoamIslands5Text2, SeafoamIslands5Text3, SeafoamIslands5Text4, SeafoamIslands5Text5 - -INCBIN "baserom.gbc",$46886,$d - -SeafoamIslands5Text3: ; 0x46893 - db $08 ; asm - ld hl, $6886 - call LoadTrainerHeader - ld a, $4 - ld [$d668], a - jp $24d7 - -; 0x468a2 TX_FAR -db $17, $75, $40, $22 -; 0x468a6 - db $8 - ld a, $4a - call $13d0 - call $3748 - jp TextScriptEnd -; 0x468b2 - -SeafoamIslands5Text4: ; 0x468b2 - TX_FAR _SeafoamIslands5Text4 - db $50 - -SeafoamIslands5Text5: ; 0x468b7 - TX_FAR _SeafoamIslands5Text5 - db $50 - -SeafoamIslands5Object: ; 0x468bc (size=62) - db $7d ; border tile - - db $4 ; warps - db $11, $14, $5, SEAFOAM_ISLANDS_4 - db $11, $15, $6, SEAFOAM_ISLANDS_4 - db $7, $b, $1, SEAFOAM_ISLANDS_4 - db $4, $19, $2, SEAFOAM_ISLANDS_4 - - db $2 ; signs - db $f, $9, $4 ; SeafoamIslands5Text4 - db $1, $17, $5 ; SeafoamIslands5Text5 - - db $3 ; people - db SPRITE_BOULDER, $f + 4, $4 + 4, $ff, $ff, $1 ; person - db SPRITE_BOULDER, $f + 4, $5 + 4, $ff, $ff, $2 ; person - db SPRITE_BIRD, $1 + 4, $6 + 4, $ff, $d0, $43, ARTICUNO, $32 ; trainer - - ; warp-to - EVENT_DISP $f, $11, $14 ; SEAFOAM_ISLANDS_4 - EVENT_DISP $f, $11, $15 ; SEAFOAM_ISLANDS_4 - EVENT_DISP $f, $7, $b ; SEAFOAM_ISLANDS_4 - EVENT_DISP $f, $4, $19 ; SEAFOAM_ISLANDS_4 - -SeafoamIslands5Blocks: ; 135 - INCBIN "maps/seafoamislands5.blk" - -INCBIN "baserom.gbc",$46981,$167f - -SECTION "bank12",DATA,BANK[$12] - -Route7_h: ; 0x48000 to 0x48022 (34 bytes) (bank=12) (id=18) - db $00 ; tileset - db $09, $0a ; dimensions (y, x) - dw Route7Blocks, $4155, Route7Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db CELADON_CITY - dw $410e, $c6e8 ; pointers (connected, current) (strip) - db $0f, $19 ; bigness, width - db $08, $31 ; alignments (y, x) - dw $c720 ; window - - db SAFFRON_CITY - dw $4aac, $c6f5 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $00 ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route7Object ; objects - -Route7Object: ; 0x48022 (size=47) - db $f ; border tile - - db $5 ; warps - db $9, $12, $2, ROUTE_7_GATE - db $a, $12, $3, ROUTE_7_GATE - db $9, $b, $0, ROUTE_7_GATE - db $a, $b, $1, ROUTE_7_GATE - db $d, $5, $0, PATH_ENTRANCE_ROUTE_7 - - db $1 ; signs - db $d, $3, $1 ; Route7Text1 - - db $0 ; people - - ; warp-to - EVENT_DISP $a, $9, $12 ; ROUTE_7_GATE - EVENT_DISP $a, $a, $12 ; ROUTE_7_GATE - EVENT_DISP $a, $9, $b ; ROUTE_7_GATE - EVENT_DISP $a, $a, $b ; ROUTE_7_GATE - EVENT_DISP $a, $d, $5 ; PATH_ENTRANCE_ROUTE_7 - -Route7Blocks: ; 90 - INCBIN "maps/route7.blk" - -MtMoonPokecenterBlocks: ; 28 - INCBIN "maps/mtmoonpokecenter.blk" - -Route11GateBlocks: ; 20 - INCBIN "maps/route11gate.blk" - -Route11GateUpstairsBlocks: ; 16 - INCBIN "maps/route11gateupstairs.blk" - -INCBIN "baserom.gbc",$480eb,$48152 - $480eb - -Route7Script: ; 0x48152 - jp $3c3c -; 0x48155 - -INCBIN "baserom.gbc",$48155,$2 - -Route7Text1: ; 0x48157 - TX_FAR _Route7Text1 - db $50 - -RedsHouse1F_h: ; 415C - db $01 ; tileset - db $04,$04 ; dimensions - dw RedsHouse1FBlocks, RedsHouse1FTexts, RedsHouse1FScript - db 0 ; no connections - dw RedsHouse1FObject - -RedsHouse1FScript: ; 4168 - jp $3C3C - -RedsHouse1FTexts: ; 416B - dw RedsHouse1FText1,RedsHouse1FText2 - -RedsHouse1FText1: ; Mom - db 8 - ld a,[$D72E] - bit 3,a - jr nz,.heal\@ ; if player has received a Pokémon from Oak, heal team - ld hl,MomWakeUpText - call PrintText - jr .done\@ -.heal\@ - call MomHealPokemon -.done\@ - jp $24D7 - -MomWakeUpText: - TX_FAR _MomWakeUpText - db "@" - -MomHealPokemon: - ld hl,MomHealText1 - call PrintText - call GBFadeOut2 - call $3071 - ld a,7 - call Predef - ld a,$E8 - ld [$C0EE],a - call $23B1 ; play sound? -.next\@ - ld a,[$C026] - cp $E8 - jr z,.next\@ - ld a,[$D35B] - ld [$C0EE],a - call $23B1 - call GBFadeIn2 - ld hl,MomHealText2 - jp PrintText - -MomHealText1: - TX_FAR _MomHealText1 - db "@" -MomHealText2: - TX_FAR _MomHealText2 - db "@" - -RedsHouse1FText2: ; TV - db 8 - ld a,[$C109] - cp 4 - ld hl,TVWrongSideText - jr nz,.done\@ ; if player is not facing up - ld hl,StandByMeText -.done\@ - call PrintText - jp $24D7 - -StandByMeText: - TX_FAR _StandByMeText - db "@" - -TVWrongSideText: - TX_FAR _TVWrongSideText - db "@" - -RedsHouse1FObject: - db $0A ; border tile - - db 3 ; warps - db 7,2,0,$FF ; exit1 - db 7,3,0,$FF ; exit2 - db 1,7,0,$26 ; staircase - - db 1 ; signs - db 1,3,2 ; TV - - db 1 ; people - db $33,4+4,5+4,$FF,$D2,1 ; Mom - - ; warp-to - - dw $C6EF + 4 + (4 + 6) * (3) + 1 - db 7,2 - - dw $C6EF + 4 + (4 + 6) * (3) + 1 - db 7,3 - - dw $C6EF + 4 + (4 + 6) * (0) + 3 - db 1,7 - -RedsHouse1FBlocks: - INCBIN "maps/redshouse1f.blk" - -CeladonMart3_h: ; 0x48219 to 0x48225 (12 bytes) (bank=12) (id=124) - db $12 ; tileset - db $04, $0a ; dimensions (y, x) - dw CeladonMart3Blocks, CeladonMart3Texts, CeladonMart3Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMart3Object ; objects - -CeladonMart3Script: ; 0x48225 - jp $3c3c -; 0x48228 - -CeladonMart3Texts: ; 0x48228 - dw CeladonMart3Text1, CeladonMart3Text2, CeladonMart3Text3, CeladonMart3Text4, CeladonMart3Text5, CeladonMart3Text6, CeladonMart3Text7, CeladonMart3Text8, CeladonMart3Text9, CeladonMart3Text10, CeladonMart3Text11, CeladonMart3Text12, CeladonMart3Text13, CeladonMart3Text14, CeladonMart3Text15, CeladonMart3Text16, CeladonMart3Text17 - -CeladonMart3Text1: ; 0x4824a - db $08 ; asm - ld a, [$d778] - bit 7, a - jr nz, .asm_a5463 ; 0x48250 - ld hl, $4278 - call PrintText - ld bc,(TM_18 << 8) | 1 - call $3e2e - jr nc, .asm_95f37 ; 0x4825e - ld hl, $d778 - set 7, [hl] - ld hl, $427d - jr .asm_81359 ; 0x48268 -.asm_95f37 ; 0x4826a - ld hl, $4288 - jr .asm_81359 ; 0x4826d -.asm_a5463 ; 0x4826f - ld hl, $4283 -.asm_81359 ; 0x48272 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$48278,$15 - -CeladonMart3Text2: ; 0x4828d - TX_FAR _CeladonMart3Text2 - db $50 - -CeladonMart3Text3: ; 0x48292 - TX_FAR _CeladonMart3Text3 - db $50 - -CeladonMart3Text4: ; 0x48297 - TX_FAR _CeladonMart3Text4 - db $50 - -CeladonMart3Text5: ; 0x4829c - TX_FAR _CeladonMart3Text5 - db $50 - -CeladonMart3Text12 -CeladonMart3Text10: -CeladonMart3Text8: -CeladonMart3Text6: ; 0x482a1 - TX_FAR _CeladonMart3Text6 - db $50 - -CeladonMart3Text7: ; 0x482a6 - TX_FAR _CeladonMart3Text7 - db $50 - -CeladonMart3Text9: ; 0x482ab - TX_FAR _CeladonMart3Text9 - db $50 - -CeladonMart3Text11: ; 0x482b0 - TX_FAR _CeladonMart3Text11 - db $50 - -CeladonMart3Text13: ; 0x482b5 - TX_FAR _CeladonMart3Text13 - db $50 - -CeladonMart3Text14: ; 0x482ba - TX_FAR _CeladonMart3Text14 - db $50 - -CeladonMart3Text17: -CeladonMart3Text16: -CeladonMart3Text15: ; 0x482bf - TX_FAR _CeladonMart3Text15 - db $50 - -CeladonMart3Object: ; 0x482c4 (size=94) - db $f ; border tile - - db $3 ; warps - db $1, $c, $0, CELADON_MART_4 - db $1, $10, $1, CELADON_MART_2 - db $1, $1, $0, CELADON_MART_ELEVATOR - - db $c ; signs - db $4, $2, $6 ; CeladonMart3Text6 - db $4, $3, $7 ; CeladonMart3Text7 - db $4, $5, $8 ; CeladonMart3Text8 - db $4, $6, $9 ; CeladonMart3Text9 - db $6, $2, $a ; CeladonMart3Text10 - db $6, $3, $b ; CeladonMart3Text11 - db $6, $5, $c ; CeladonMart3Text12 - db $6, $6, $d ; CeladonMart3Text13 - db $1, $e, $e ; CeladonMart3Text14 - db $1, $4, $f ; CeladonMart3Text15 - db $1, $6, $10 ; CeladonMart3Text16 - db $1, $a, $11 ; CeladonMart3Text17 - - db $5 ; people - db SPRITE_MART_GUY, $5 + 4, $10 + 4, $ff, $ff, $1 ; person - db SPRITE_GAMEBOY_KID_COPY, $6 + 4, $b + 4, $ff, $d3, $2 ; person - db SPRITE_GAMEBOY_KID_COPY, $2 + 4, $7 + 4, $ff, $d0, $3 ; person - db SPRITE_GAMEBOY_KID_COPY, $2 + 4, $8 + 4, $ff, $d0, $4 ; person - db SPRITE_YOUNG_BOY, $5 + 4, $2 + 4, $ff, $d1, $5 ; person - - ; warp-to - EVENT_DISP $a, $1, $c ; CELADON_MART_4 - EVENT_DISP $a, $1, $10 ; CELADON_MART_2 - EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR - -CeladonMart3Blocks: ; 40 - INCBIN "maps/celadonmart3.blk" - -CeladonMart4_h: ; 0x4834a to 0x48356 (12 bytes) (bank=12) (id=125) - db $12 ; tileset - db $04, $0a ; dimensions (y, x) - dw CeladonMart4Blocks, CeladonMart4Texts, CeladonMart4Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMart4Object ; objects - -CeladonMart4Script: ; 0x48356 - jp $3c3c -; 0x48359 - -CeladonMart4Texts: ; 0x48359 - dw CeladonMart4Text1, CeladonMart4Text2, CeladonMart4Text3, CeladonMart4Text4 - -CeladonMart4Text2: ; 0x48361 - TX_FAR _CeladonMart4Text2 - db $50 - -CeladonMart4Text3: ; 0x48366 - TX_FAR _CeladonMart4Text3 - db $50 - -CeladonMart4Text4: ; 0x4836b - TX_FAR _CeladonMart4Text4 - db $50 - -CeladonMart4Object: ; 0x48370 (size=49) - db $f ; border tile - - db $3 ; warps - db $1, $c, $0, CELADON_MART_3 - db $1, $10, $1, CELADON_MART_5 - db $1, $1, $0, CELADON_MART_ELEVATOR - - db $1 ; signs - db $1, $e, $4 ; CeladonMart4Text4 - - db $3 ; people - db SPRITE_MART_GUY, $7 + 4, $5 + 4, $ff, $ff, $1 ; person - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $f + 4, $fe, $2, $2 ; person - db SPRITE_BUG_CATCHER, $2 + 4, $5 + 4, $fe, $2, $3 ; person - - ; warp-to - EVENT_DISP $a, $1, $c ; CELADON_MART_3 - EVENT_DISP $a, $1, $10 ; CELADON_MART_5 - EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR - -CeladonMart4Blocks: ; 40 - INCBIN "maps/celadonmart4.blk" - -CeladonMartRoof_h: ; 0x483c9 to 0x483d5 (12 bytes) (bank=12) (id=126) - db $12 ; tileset - db $04, $0a ; dimensions (y, x) - dw CeladonMartRoofBlocks, $455b, CeladonMartRoofScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMartRoofObject ; objects - -CeladonMartRoofScript: ; 0x483d5 - jp $3c3c -; 0x483d8 - -INCBIN "baserom.gbc",$483d8,$18f - -CeladonMartRoofText1: ; 0x48567 - TX_FAR _CeladonMartRoofText1 - db $50 - -CeladonMartRoofText2: ; 0x4856c - db $08 ; asm - call $43d8 - ld a, [$cd37] - and a - jr z, .asm_914b9 ; 0x48574 - ld a, $1 - ld [$cc3c], a - ld hl, $459d - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_05aa4 ; 0x48588 - call $440c - jr .asm_05aa4 ; 0x4858d -.asm_914b9 ; 0x4858f - ld hl, $4598 - call PrintText -.asm_05aa4 ; 0x48595 - jp $24d7 - -INCBIN "baserom.gbc",$48598,$b - -CeladonMartRoofText6: ; 0x485a3 - TX_FAR _CeladonMartRoofText6 - db $50 - -CeladonMartRoofObject: ; 0x485a8 (size=36) - db $42 ; border tile - - db $1 ; warps - db $2, $f, $0, CELADON_MART_5 - - db $4 ; signs - db $1, $a, $3 ; CeladonMartRoofText3 - db $1, $b, $4 ; CeladonMartRoofText4 - db $2, $c, $5 ; CeladonMartRoofText5 - db $2, $d, $6 ; CeladonMartRoofText6 - - db $2 ; people - db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $a + 4, $ff, $d2, $1 ; person - db SPRITE_LITTLE_GIRL, $5 + 4, $5 + 4, $fe, $0, $2 ; person - - ; warp-to - EVENT_DISP $a, $2, $f ; CELADON_MART_5 - -CeladonMartRoofBlocks: ; 40 - INCBIN "maps/celadonmart5.blk" - -CeladonMartElevator_h: ; 0x485f4 to 0x48600 (12 bytes) (bank=12) (id=127) - db $12 ; tileset - db $02, $02 ; dimensions (y, x) - dw CeladonMartElevatorBlocks, CeladonMartElevatorTexts, CeladonMartElevatorScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMartElevatorObject ; objects - -CeladonMartElevatorScript: ; 0x48600 - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - push hl - call nz, $461c - pop hl - bit 7, [hl] - res 7, [hl] - call nz, $4654 - xor a - ld [$cf0c], a - inc a - ld [$cc3c], a - ret -; 0x4861c - -INCBIN "baserom.gbc",$4861c,$40 - -CeladonMartElevatorTexts: ; 0x4865c - dw CeladonMartElevatorText1 - -CeladonMartElevatorText1: ; 0x4865e - db $08 ; asm - call $4631 - ld hl, $464a - ld a, $61 - call Predef - jp $24d7 - -CeladonMartElevatorObject: ; 0x4866d (size=23) - db $f ; border tile - - db $2 ; warps - db $3, $1, $5, CELADON_MART_1 - db $3, $2, $5, CELADON_MART_1 - - db $1 ; signs - db $0, $3, $1 ; CeladonMartElevatorText1 - - db $0 ; people - - ; warp-to - EVENT_DISP $2, $3, $1 ; CELADON_MART_1 - EVENT_DISP $2, $3, $2 ; CELADON_MART_1 - -CeladonMartElevatorBlocks: ; 4 - INCBIN "maps/celadonmart6.blk" - -CeladonMansion1_h: ; 0x48688 to 0x48694 (12 bytes) (bank=12) (id=128) - db $13 ; tileset - db $06, $04 ; dimensions (y, x) - dw CeladonMansion1Blocks, CeladonMansion1Texts, CeladonMansion1Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMansion1Object ; objects - -CeladonMansion1Script: ; 0x48694 - jp $3c3c -; 0x48697 - -CeladonMansion1Texts: ; 0x48697 - dw CeladonMansion1Text1, CeladonMansion1Text2, CeladonMansion1Text3, CeladonMansion1Text4, CeladonMansion1Text5 - -;0x486a1 - call $13d0 - jp TextScriptEnd -; 0x486a7 - -CeladonMansion1Text1: ; 0x486a7 - TX_FAR _CeladonMansion1Text1 - db $08 ; asm - ld a, $4d - jp $46a1 - -CeladonMansion1Text2: ; 0x486b1 - TX_FAR _CeladonMansion1Text2 - db $50 - -CeladonMansion1Text3: ; 0x486b6 - TX_FAR _CeladonMansion1Text3 - db $8 - ld a, $4 - jp $46a1 -; 0x486c0 - -CeladonMansion1Text4: ; 0x486c0 - TX_FAR _CeladonMansion1Text4 - db $8 - ld a, $f - jp $46a1 -; 0x486ca - -CeladonMansion1Text5: ; 0x486ca - TX_FAR _CeladonMansion1Text5 - db $50 - -CeladonMansion1Object: ; 0x486cf (size=71) - db $f ; border tile - - db $5 ; warps - db $b, $4, $2, $ff - db $b, $5, $2, $ff - db $0, $4, $4, $ff - db $1, $7, $1, CELADON_MANSION_2 - db $1, $2, $2, CELADON_MANSION_2 - - db $1 ; signs - db $9, $4, $5 ; CeladonMansion1Text5 - - db $4 ; people - db SPRITE_SLOWBRO, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_OLD_MEDIUM_WOMAN, $5 + 4, $1 + 4, $ff, $d0, $2 ; person - db SPRITE_CLEFAIRY, $8 + 4, $1 + 4, $fe, $2, $3 ; person - db SPRITE_SLOWBRO, $4 + 4, $4 + 4, $fe, $1, $4 ; person - - ; warp-to - EVENT_DISP $4, $b, $4 - EVENT_DISP $4, $b, $5 - EVENT_DISP $4, $0, $4 - EVENT_DISP $4, $1, $7 ; CELADON_MANSION_2 - EVENT_DISP $4, $1, $2 ; CELADON_MANSION_2 - -CeladonMansion1Blocks: ; 24 - INCBIN "maps/celadonmansion1.blk" - -CeladonMansion2_h: ; 0x4872e to 0x4873a (12 bytes) (bank=12) (id=129) - db $13 ; tileset - db $06, $04 ; dimensions (y, x) - dw CeladonMansion2Blocks, CeladonMansion2Texts, CeladonMansion2Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMansion2Object ; objects - -CeladonMansion2Script: ; 0x4873a - call $3c3c - ret -; 0x4873e - -CeladonMansion2Texts: ; 0x4873e - dw CeladonMansion2Text1 - -CeladonMansion2Text1: ; 0x48740 - TX_FAR _CeladonMansion2Text1 - db $50 - -CeladonMansion2Object: ; 0x48745 (size=39) - db $f ; border tile - - db $4 ; warps - db $1, $6, $0, CELADON_MANSION_3 - db $1, $7, $3, CELADON_MANSION_1 - db $1, $2, $4, CELADON_MANSION_1 - db $1, $4, $3, CELADON_MANSION_3 - - db $1 ; signs - db $9, $4, $1 ; CeladonMansion2Text1 - - db $0 ; people - - ; warp-to - EVENT_DISP $4, $1, $6 ; CELADON_MANSION_3 - EVENT_DISP $4, $1, $7 ; CELADON_MANSION_1 - EVENT_DISP $4, $1, $2 ; CELADON_MANSION_1 - EVENT_DISP $4, $1, $4 ; CELADON_MANSION_3 - -CeladonMansion2Blocks: ; 24 - INCBIN "maps/celadonmansion2.blk" - -CeladonMansion3_h: ; 0x48784 to 0x48790 (12 bytes) (bank=12) (id=130) - db $13 ; tileset - db $06, $04 ; dimensions (y, x) - dw CeladonMansion3Blocks, CeladonMansion3Texts, CeladonMansion3Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMansion3Object ; objects - -CeladonMansion3Script: ; 0x48790 - jp $3c3c -; 0x48793 - -CeladonMansion3Texts: ; 0x48793 - dw CeladonMansion3Text1, CeladonMansion3Text2, CeladonMansion3Text3, CeladonMansion3Text4, CeladonMansion3Text5, CeladonMansion3Text6, CeladonMansion3Text7, CeladonMansion3Text8 - -CeladonMansion3Text1: ; 0x487a3 - TX_FAR _CeladonMansion3Text1 - db $50 - -CeladonMansion3Text2: ; 0x487a8 - TX_FAR _CeladonMansion3Text2 - db $50 - -CeladonMansion3Text3: ; 0x487ad - TX_FAR _CeladonMansion3Text3 - db $50 - -CeladonMansion3Text4: ; 0x487b2 - db $08 ; asm - ld hl, $d2f7 - ld b, $13 - call $2b7f - ld a, [$d11e] - cp $96 - jr nc, .asm_f03d0 ; 0x487c0 - ld hl, $47d0 - jr .asm_c13f0 ; 0x487c5 -.asm_f03d0 ; 0x487c7 - ld hl, $47d5 -.asm_c13f0 ; 0x487ca - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$487d0,$1b - -CeladonMansion3Text5: ; 0x487eb - TX_FAR _CeladonMansion3Text5 - db $50 - -CeladonMansion3Text6: ; 0x487f0 - TX_FAR _CeladonMansion3Text6 - db $50 - -CeladonMansion3Text7: ; 0x487f5 - TX_FAR _CeladonMansion3Text7 - db $50 - -CeladonMansion3Text8: ; 0x487fa - TX_FAR _CeladonMansion3Text8 - db $50 - -CeladonMansion3Object: ; 0x487ff (size=72) - db $f ; border tile - - db $4 ; warps - db $1, $6, $0, CELADON_MANSION_2 - db $1, $7, $0, CELADON_MANSION_4 - db $1, $2, $1, CELADON_MANSION_4 - db $1, $4, $3, CELADON_MANSION_2 - - db $4 ; signs - db $3, $1, $5 ; CeladonMansion3Text5 - db $3, $4, $6 ; CeladonMansion3Text6 - db $6, $1, $7 ; CeladonMansion3Text7 - db $9, $4, $8 ; CeladonMansion3Text8 - - db $4 ; people - db SPRITE_BIKE_SHOP_GUY, $4 + 4, $0 + 4, $ff, $d1, $1 ; person - db SPRITE_MART_GUY, $4 + 4, $3 + 4, $ff, $d1, $2 ; person - db SPRITE_BLACK_HAIR_BOY_2, $7 + 4, $0 + 4, $ff, $d1, $3 ; person - db SPRITE_LAPRAS_GIVER, $3 + 4, $2 + 4, $ff, $ff, $4 ; person - - ; warp-to - EVENT_DISP $4, $1, $6 ; CELADON_MANSION_2 - EVENT_DISP $4, $1, $7 ; CELADON_MANSION_4 - EVENT_DISP $4, $1, $2 ; CELADON_MANSION_4 - EVENT_DISP $4, $1, $4 ; CELADON_MANSION_2 - -CeladonMansion3Blocks: ; 24 - INCBIN "maps/celadonmansion3.blk" - -CeladonMansion4_h: ; 0x4885f to 0x4886b (12 bytes) (bank=12) (id=131) - db $13 ; tileset - db $06, $04 ; dimensions (y, x) - dw CeladonMansion4Blocks, CeladonMansion4Texts, CeladonMansion4Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMansion4Object ; objects - -CeladonMansion4Script: ; 0x4886b - jp $3c3c -; 0x4886e - -CeladonMansion4Texts: ; 0x4886e - dw CeladonMansion4Text1 - -CeladonMansion4Text1: ; 0x48870 - TX_FAR _CeladonMansion4Text1 - db $50 - -CeladonMansion4Object: ; 0x48875 (size=31) - db $9 ; border tile - - db $3 ; warps - db $1, $6, $1, CELADON_MANSION_3 - db $1, $2, $2, CELADON_MANSION_3 - db $7, $2, $0, CELADON_MANSION_5 - - db $1 ; signs - db $7, $3, $1 ; CeladonMansion4Text1 - - db $0 ; people - - ; warp-to - EVENT_DISP $4, $1, $6 ; CELADON_MANSION_3 - EVENT_DISP $4, $1, $2 ; CELADON_MANSION_3 - EVENT_DISP $4, $7, $2 ; CELADON_MANSION_5 - -CeladonMansion4Blocks: ; 24 - INCBIN "maps/celadonmansion4.blk" - -CeladonPokecenter_h: ; 0x488ac to 0x488b8 (12 bytes) (bank=12) (id=133) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw $40ab, $48be, CeladonPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonPokecenterObject ; objects - -CeladonPokecenterScript: ; 0x488b8 - call $22fa - jp $3c3c -; 0x488be - -INCBIN "baserom.gbc",$488be,$8 - -CeladonPokecenterText4: - db $f6, $ff - -CeladonPokecenterText2: ; _CeladonPokecenterText2 -CeladonPokecenterText1: ; 0x488c8 - TX_FAR _CeladonPokecenterText1 - -INCBIN "baserom.gbc",$488cc,$488cd - $488cc - -CeladonPokecenterText3: ; 0x488cd - TX_FAR _CeladonPokecenterText3 - db $50 - -CeladonPokecenterObject: ; 0x488d2 (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $5, $ff - db $7, $4, $5, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_GENTLEMAN, $3 + 4, $7 + 4, $fe, $2, $2 ; person - db SPRITE_FOULARD_WOMAN, $5 + 4, $a + 4, $fe, $0, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -CeladonGym_h: ; 0x488fe to 0x4890a (12 bytes) (bank=12) (id=134) - db $07 ; tileset - db $09, $05 ; dimensions (y, x) - dw CeladonGymBlocks, CeladonGymTexts, CeladonGymScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonGymObject ; objects - -CeladonGymScript: ; 0x4890a - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - call nz, $4927 - call $3c3c - ld hl, $49bc - ld de, $494e - ld a, [$d5ff] - call $3160 - ld [$d5ff], a - ret -; 0x48927 - -INCBIN "baserom.gbc",$48927,$7f - -CeladonGymTexts: ; 0x489a6 - dw CeladonGymText1, CeladonGymText2, CeladonGymText3, CeladonGymText4, CeladonGymText5, CeladonGymText6, CeladonGymText7, CeladonGymText8, CeladonGymText9, CeladonGymText10, CeladonGymText11 - -INCBIN "baserom.gbc",$489bc,$55 - -CeladonGymText1: ; 0x48a11 - db $08 ; asm - ld a, [$d77c] - bit 1, a - jr z, .asm_16064 ; 0x48a17 - bit 0, a - jr nz, .asm_3b22c ; 0x48a1b - call z, $4963 - call $30b6 - jr .asm_96252 ; 0x48a23 -.asm_3b22c ; 0x48a25 - ld hl, $4a68 - call PrintText - jr .asm_96252 ; 0x48a2b -.asm_16064 ; 0x48a2d - ld hl, $4a5e - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $4a63 - ld de, $4a63 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $4 - ld [$d05c], a - ld a, $3 - ld [$d5ff], a - ld [$da39], a -.asm_96252 ; 0x48a5b - jp $24d7 - -INCBIN "baserom.gbc",$48a5e,$48a6d - $48a5e - -CeladonGymText9: ; 0x48a6d -INCBIN "baserom.gbc",$48a6d,$5 - -CeladonGymText10: ; 0x48a72 -INCBIN "baserom.gbc",$48a72,$4 -db $0b - -INCBIN "baserom.gbc",$48a77,$48a7c - $48a77 - -CeladonGymText11: ; 0x48a7c -INCBIN "baserom.gbc",$48a7c,$5 - -CeladonGymText2: ; 0x48a81 - db $08 ; asm - ld hl, $49bc - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48a8b,$48a9a - $48a8b - -CeladonGymText3: ; 0x48a9a - db $08 ; asm - ld hl, $49c8 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48aa4,$48ab3 - $48aa4 - -CeladonGymText4: ; 0x48ab3 - db $08 ; asm - ld hl, $49d4 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48abd,$48acc - $48abd - -CeladonGymText5: ; 0x48acc - db $08 ; asm - ld hl, $49e0 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48ad6,$48ae5 - $48ad6 - -CeladonGymText6: ; 0x48ae5 - db $08 ; asm - ld hl, $49ec - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48aef,$48afe - $48aef - -CeladonGymText7: ; 0x48afe - db $08 ; asm - ld hl, $49f8 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48b08,$48b17 - $48b08 - -CeladonGymText8: ; 0x48b17 - db $08 ; asm - ld hl, $4a04 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$48b21,$f - -CeladonGymObject: ; 0x48b30 (size=84) - db $3 ; border tile - - db $2 ; warps - db $11, $4, $6, $ff - db $11, $5, $6, $ff - - db $0 ; signs - - db $8 ; people - db SPRITE_ERIKA, $3 + 4, $4 + 4, $ff, $d0, $41, ERIKA + $C8, $1 ; trainer - db SPRITE_LASS, $b + 4, $2 + 4, $ff, $d3, $42, LASS + $C8, $11 ; trainer - db SPRITE_FOULARD_WOMAN, $a + 4, $7 + 4, $ff, $d2, $43, BEAUTY + $C8, $1 ; trainer - db SPRITE_LASS, $5 + 4, $9 + 4, $ff, $d0, $44, JR__TRAINER_F + $C8, $b ; trainer - db SPRITE_FOULARD_WOMAN, $5 + 4, $1 + 4, $ff, $d0, $45, BEAUTY + $C8, $2 ; trainer - db SPRITE_LASS, $3 + 4, $6 + 4, $ff, $d0, $46, LASS + $C8, $12 ; trainer - db SPRITE_FOULARD_WOMAN, $3 + 4, $3 + 4, $ff, $d0, $47, BEAUTY + $C8, $3 ; trainer - db SPRITE_LASS, $3 + 4, $5 + 4, $ff, $d0, $48, COOLTRAINER_F + $C8, $1 ; trainer - - ; warp-to - EVENT_DISP $5, $11, $4 - EVENT_DISP $5, $11, $5 - -CeladonGymBlocks: ; 45 - INCBIN "maps/celadongym.blk" - -CeladonGameCorner_h: ; 0x48bb1 to 0x48bbd (12 bytes) (bank=12) (id=135) - db $12 ; tileset - db $09, $0a ; dimensions (y, x) - dw CeladonGameCornerBlocks, CeladonGameCornerTexts, CeladonGameCornerScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonGameCornerObject ; objects - -CeladonGameCornerScript: ; 0x48bbd - call $4bcf - call $4bec - call $3c3c - ld hl, $4c12 - ld a, [$d65f] - jp $3d97 -; 0x48bcf - -INCBIN "baserom.gbc",$48bcf,$48c12 - $48bcf - -CeladonGameCornerScripts: ; 0x48c12 - dw CeladonGameCornerScript0 - -INCBIN "baserom.gbc",$48c14,$4 - -CeladonGameCornerScript0: ; 0x48c18 - ret -; 0x48c19 - -INCBIN "baserom.gbc",$48c19,$71 - -CeladonGameCornerTexts: ; 0x48c8a - dw CeladonGameCornerText1, CeladonGameCornerText2, CeladonGameCornerText3, CeladonGameCornerText4, CeladonGameCornerText5, CeladonGameCornerText6, CeladonGameCornerText7, CeladonGameCornerText8, CeladonGameCornerText9, CeladonGameCornerText10, CeladonGameCornerText11, CeladonGameCornerText12, CeladonGameCornerText13 - -CeladonGameCornerText1: ; 0x48ca4 - TX_FAR _CeladonGameCornerText1 - db $50 - -CeladonGameCornerText2: ; 0x48ca9 - db $08 ; asm - call $4f1e - ld hl, $4d22 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_c650b ; 0x48cba - ld b,COIN_CASE - call $3493 - jr z, .asm_ed086 ; 0x48cc1 - call $4f95 - jr nc, .asm_31338 ; 0x48cc6 - xor a - ldh [$9f], a - ldh [$a1], a - ld a, $10 - ldh [$a0], a - call $35a6 - jr nc, .asm_b6ef0 ; 0x48cd4 - ld hl, $4d31 - jr .asm_e2afd ; 0x48cd9 -.asm_b6ef0 ; 0x48cdb - xor a - ldh [$9f], a - ldh [$a1], a - ld a, $10 - ldh [$a0], a - ld hl, $ffa1 - ld de, $d349 - ld c, $3 - ld a, $c - call Predef - xor a - ldh [$9f], a - ldh [$a0], a - ld a, $50 - ldh [$a1], a - ld de, $d5a5 - ld hl, $ffa1 - ld c, $2 - ld a, $b - call Predef - call $4f1e - ld hl, $4d27 - jr .asm_e2afd ; 0x48d0d -.asm_c650b ; 0x48d0f - ld hl, $4d2c - jr .asm_e2afd ; 0x48d12 -.asm_31338 ; 0x48d14 - ld hl, $4d36 - jr .asm_e2afd ; 0x48d17 -.asm_ed086 ; 0x48d19 - ld hl, $4d3b -.asm_e2afd ; 0x48d1c - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$48d22,$1e - -CeladonGameCornerText3: ; 0x48d40 - TX_FAR _CeladonGameCornerText3 - db $50 - -CeladonGameCornerText4: ; 0x48d45 - TX_FAR _CeladonGameCornerText4 - db $50 - -CeladonGameCornerText5: ; 0x48d4a - db $08 ; asm - ld a, [$d77e] - bit 2, a - jr nz, .asm_d0957 ; 0x48d50 - ld hl, $4d9c - call PrintText - ld b,COIN_CASE - call $3493 - jr z, .asm_5aef9 ; 0x48d5d - call $4f95 - jr nc, .asm_98546 ; 0x48d62 - xor a - ldh [$9f], a - ldh [$a0], a - ld a, $10 - ldh [$a1], a - ld de, $d5a5 - ld hl, $ffa1 - ld c, $2 - ld a, $b - call Predef - ld hl, $d77e - set 2, [hl] - ld a, $1 - ld [$cc3c], a - ld hl, $4da1 - jr .asm_c7d1a ; 0x48d87 -.asm_d0957 ; 0x48d89 - ld hl, $4dac - jr .asm_c7d1a ; 0x48d8c -.asm_98546 ; 0x48d8e - ld hl, $4da7 - jr .asm_c7d1a ; 0x48d91 -.asm_5aef9 ; 0x48d93 - ld hl, $4f19 -.asm_c7d1a ; 0x48d96 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$48d9c,$15 - -CeladonGameCornerText6: ; 0x48db1 - TX_FAR _CeladonGameCornerText6 - db $50 - -CeladonGameCornerText7: ; 0x48db6 - db $08 ; asm - ld a, [$d77c] - bit 1, a - ld hl, $4dca - jr z, .asm_be3fd ; 0x48dbf - ld hl, $4dcf -.asm_be3fd ; 0x48dc4 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$48dca,$a - -CeladonGameCornerText8: ; 0x48dd4 - TX_FAR _CeladonGameCornerText8 - db $50 - -CeladonGameCornerText9: ; 0x48dd9 - db $08 ; asm - ld a, [$d77e] - bit 4, a - jr nz, .asm_ed8bc ; 0x48ddf - ld hl, $4e26 - call PrintText - ld b,COIN_CASE - call $3493 - jr z, .asm_df794 ; 0x48dec - call $4f95 - jr nc, .asm_f17c3 ; 0x48df1 - xor a - ldh [$9f], a - ldh [$a0], a - ld a, $20 - ldh [$a1], a - ld de, $d5a5 - ld hl, $ffa1 - ld c, $2 - ld a, $b - call Predef - ld hl, $d77e - set 4, [hl] - ld hl, $4e2b - jr .asm_0ddc2 ; 0x48e11 -.asm_ed8bc ; 0x48e13 - ld hl, $4e36 - jr .asm_0ddc2 ; 0x48e16 -.asm_f17c3 ; 0x48e18 - ld hl, $4e31 - jr .asm_0ddc2 ; 0x48e1b -.asm_df794 ; 0x48e1d - ld hl, $4f19 -.asm_0ddc2 ; 0x48e20 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$48e26,$48e3b - $48e26 - -CeladonGameCornerText10: ; 0x48e3b - db $08 ; asm - ld a, [$d77e] - bit 3, a - jr nz, .asm_ff080 ; 0x48e41 - ld hl, $4e88 - call PrintText - ld b,COIN_CASE - call $3493 - jr z, .asm_4fb0c ; 0x48e4e - call $4f95 - jr z, .asm_9505a ; 0x48e53 - xor a - ldh [$9f], a - ldh [$a0], a - ld a, $20 - ldh [$a1], a - ld de, $d5a5 - ld hl, $ffa1 - ld c, $2 - ld a, $b - call Predef - ld hl, $d77e - set 3, [hl] - ld hl, $4e8d - jr .asm_78d65 ; 0x48e73 -.asm_ff080 ; 0x48e75 - ld hl, $4e98 - jr .asm_78d65 ; 0x48e78 -.asm_9505a ; 0x48e7a - ld hl, $4e93 - jr .asm_78d65 ; 0x48e7d -.asm_4fb0c ; 0x48e7f - ld hl, $4f19 -.asm_78d65 ; 0x48e82 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$48e88,$48e9d - $48e88 - -CeladonGameCornerText11: ; 0x48e9d - db $08 ; asm - ld hl, $4ece - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $4ed3 - ld de, $4ed3 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - xor a - ldh [$b4], a - ldh [$b3], a - ldh [$b2], a - ld a, $1 - ld [$d65f], a - jp $24d7 - -INCBIN "baserom.gbc",$48ece,$48ed8 - $48ece - -CeladonGameCornerText13: ; 0x48ed8 -INCBIN "baserom.gbc",$48ed8,5 - -CeladonGameCornerText12: ; 0x48edd - db $08 ; asm - ld a, $1 - ld [$cc3c], a - ld hl, $4f09 - call PrintText - call $3748 - ld a, $ad - call $23b1 - call $3748 - ld hl, $d77e - set 1, [hl] - ld a, $43 - ld [$d09f], a - ld bc, $0208 - ld a, $17 - call Predef - jp $24d7 - -INCBIN "baserom.gbc",$48f09,$97 - -CeladonGameCornerObject: ; 0x48fa0 (size=99) - db $f ; border tile - - db $3 ; warps - db $11, $f, $7, $ff - db $11, $10, $7, $ff - db $4, $11, $1, ROCKET_HIDEOUT_1 - - db $1 ; signs - db $4, $9, $c ; CeladonGameCornerText12 - - db $b ; people - db SPRITE_FOULARD_WOMAN, $6 + 4, $2 + 4, $ff, $d0, $1 ; person - db SPRITE_MART_GUY, $6 + 4, $5 + 4, $ff, $d0, $2 ; person - db SPRITE_FAT_BALD_GUY, $a + 4, $2 + 4, $ff, $d2, $3 ; person - db SPRITE_FOULARD_WOMAN, $d + 4, $2 + 4, $ff, $d2, $4 ; person - db SPRITE_FISHER, $b + 4, $5 + 4, $ff, $d3, $5 ; person - db SPRITE_MOM_GEISHA, $b + 4, $8 + 4, $ff, $d2, $6 ; person - db SPRITE_GYM_HELPER, $e + 4, $8 + 4, $ff, $d2, $7 ; person - db SPRITE_GAMBLER, $f + 4, $b + 4, $ff, $d3, $8 ; person - db SPRITE_MART_GUY, $b + 4, $e + 4, $ff, $d2, $9 ; person - db SPRITE_GENTLEMAN, $d + 4, $11 + 4, $ff, $d3, $a ; person - db SPRITE_ROCKET, $5 + 4, $9 + 4, $ff, $d1, $4b, ROCKET + $C8, $7 ; trainer - - ; warp-to - EVENT_DISP $a, $11, $f - EVENT_DISP $a, $11, $10 - EVENT_DISP $a, $4, $11 ; ROCKET_HIDEOUT_1 - -CeladonGameCornerBlocks: ; 90 - INCBIN "maps/celadongamecorner.blk" - -CeladonMart5_h: ; 0x4905d to 0x49069 (12 bytes) (bank=12) (id=136) - db $12 ; tileset - db $04, $0a ; dimensions (y, x) - dw CeladonMart5Blocks, CeladonMart5Texts, CeladonMart5Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMart5Object ; objects - -CeladonMart5Script: ; 0x49069 - jp $3c3c -; 0x4906c - -CeladonMart5Texts: ; 0x4906c - dw CeladonMart5Text1, CeladonMart5Text2, CeladonMart5Text3, CeladonMart5Text4, CeladonMart5Text5 - -CeladonMart5Text1: ; 0x49076 - TX_FAR _CeladonMart5Text1 - db $50 - -CeladonMart5Text2: ; 0x4907b - TX_FAR _CeladonMart5Text2 - db $50 - -CeladonMart5Text5: ; 0x49080 - TX_FAR _CeladonMart5Text5 - db $50 - -CeladonMart5Object: ; 0x49085 (size=55) - db $f ; border tile - - db $3 ; warps - db $1, $c, $0, CELADON_MART_ROOF - db $1, $10, $1, CELADON_MART_4 - db $1, $1, $0, CELADON_MART_ELEVATOR - - db $1 ; signs - db $1, $e, $5 ; CeladonMart5Text5 - - db $4 ; people - db SPRITE_GENTLEMAN, $5 + 4, $e + 4, $fe, $1, $1 ; person - db SPRITE_SAILOR, $6 + 4, $2 + 4, $ff, $ff, $2 ; person - db SPRITE_MART_GUY, $3 + 4, $5 + 4, $ff, $d0, $3 ; person - db SPRITE_MART_GUY, $3 + 4, $6 + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $a, $1, $c ; CELADON_MART_ROOF - EVENT_DISP $a, $1, $10 ; CELADON_MART_4 - EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR - -CeladonMart5Blocks: ; 40 - INCBIN "maps/celadonhouse.blk" - -CeladonPrizeRoom_h: ; 0x490e4 to 0x490f0 (12 bytes) (bank=12) (id=137) - db $12 ; tileset - db $04, $05 ; dimensions (y, x) - dw CeladonPrizeRoomBlocks, $50f3, $50f0 ; blocks, texts, scripts - db $00 ; connections - - dw CeladonPrizeRoomObject ; objects - -CeladonPrizeRoomScript: ; 0x490f0 - jp $3c3c -; 0x490f3 - -INCBIN "baserom.gbc",$490f3,$a - -CeladonPrizeRoomText1: ; 0x490fd - TX_FAR _CeladonPrizeRoomText1 - db $50 - -CeladonPrizeRoomText2: ; 0x49102 - TX_FAR _CeladonPrizeRoomText2 - db $50 - -INCBIN "baserom.gbc",$49107,$1 - -CeladonPrizeRoomObject: ; 0x49108 (size=41) - db $f ; border tile - - db $2 ; warps - db $7, $4, $9, $ff - db $7, $5, $9, $ff - - db $3 ; signs - db $2, $2, $3 ; CeladonPrizeRoomText3 - db $2, $4, $4 ; CeladonPrizeRoomText4 - db $2, $6, $5 ; CeladonPrizeRoomText5 - - db $2 ; people - db SPRITE_BALDING_GUY, $4 + 4, $1 + 4, $ff, $ff, $1 ; person - db SPRITE_GAMBLER, $3 + 4, $7 + 4, $fe, $2, $2 ; person - - ; warp-to - EVENT_DISP $5, $7, $4 - EVENT_DISP $5, $7, $5 - -CeladonPrizeRoomBlocks: ; 20 - INCBIN "maps/celadonprizeroom.blk" - -CeladonDiner_h: ; 0x49145 to 0x49151 (12 bytes) (bank=12) (id=138) - db $12 ; tileset - db $04, $05 ; dimensions (y, x) - dw CeladonDinerBlocks, CeladonDinerTexts, CeladonDinerScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonDinerObject ; objects - -CeladonDinerScript: ; 0x49151 - call $3c3c - ret -; 0x49155 - -CeladonDinerTexts: ; 0x49155 - dw CeladonDinerText1, CeladonDinerText2, CeladonDinerText3, CeladonDinerText4, CeladonDinerText5 - -CeladonDinerText1: ; 0x4915f - TX_FAR _CeladonDinerText1 - db $50 - -CeladonDinerText2: ; 0x49164 - TX_FAR _CeladonDinerText2 - db $50 - -CeladonDinerText3: ; 0x49169 - TX_FAR _CeladonDinerText3 - db $50 - -CeladonDinerText4: ; 0x4916e - TX_FAR _CeladonDinerText4 - db $50 - -CeladonDinerText5: ; 0x49173 - db $08 ; asm - ld a, [$d783] - bit 0, a - jr nz, .asm_eb14d ; 0x49179 - ld hl, $51a7 - call PrintText - ld bc,(COIN_CASE << 8) | 1 - call $3e2e - jr nc, .asm_78e93 ; 0x49187 - ld hl, $d783 - set 0, [hl] - ld hl, $51ac - call PrintText - jr .asm_68b61 ; 0x49194 -.asm_78e93 ; 0x49196 - ld hl, $51b2 - call PrintText - jr .asm_68b61 ; 0x4919c -.asm_eb14d ; 0x4919e - ld hl, $51b7 - call PrintText -.asm_68b61 ; 0x491a4 - jp $24d7 - -INCBIN "baserom.gbc",$491a7,$15 - -CeladonDinerObject: ; 0x491bc (size=50) - db $f ; border tile - - db $2 ; warps - db $7, $3, $a, $ff - db $7, $4, $a, $ff - - db $0 ; signs - - db $5 ; people - db SPRITE_COOK, $5 + 4, $8 + 4, $fe, $2, $1 ; person - db SPRITE_MOM_GEISHA, $2 + 4, $7 + 4, $ff, $ff, $2 ; person - db SPRITE_FAT_BALD_GUY, $4 + 4, $1 + 4, $ff, $d0, $3 ; person - db SPRITE_FISHER2, $3 + 4, $5 + 4, $ff, $d3, $4 ; person - db SPRITE_GYM_HELPER, $1 + 4, $0 + 4, $ff, $d0, $5 ; person - - ; warp-to - EVENT_DISP $5, $7, $3 - EVENT_DISP $5, $7, $4 - -CeladonDinerBlocks: ; 20 - INCBIN "maps/celadondiner.blk" - -CeladonHouse_h: ; 0x49202 to 0x4920e (12 bytes) (bank=12) (id=139) - db $13 ; tileset - db $04, $04 ; dimensions (y, x) - dw CeladonHouseBlocks, CeladonHouseTexts, CeladonHouseScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonHouseObject ; objects - -CeladonHouseScript: ; 0x4920e - call $3c3c - ret -; 0x49212 - -CeladonHouseTexts: ; 0x49212 - dw CeladonHouseText1, CeladonHouseText2, CeladonHouseText3 - -CeladonHouseText1: ; 0x49218 - TX_FAR _CeladonHouseText1 - db $50 - -CeladonHouseText2: ; 0x4921d - TX_FAR _CeladonHouseText2 - db $50 - -CeladonHouseText3: ; 0x49222 - TX_FAR _CeladonHouseText3 - db $50 - -CeladonHouseObject: ; 0x49227 (size=38) - db $f ; border tile - - db $2 ; warps - db $7, $2, $b, $ff - db $7, $3, $b, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_OLD_PERSON, $2 + 4, $4 + 4, $ff, $d0, $1 ; person - db SPRITE_ROCKET, $4 + 4, $1 + 4, $fe, $0, $2 ; person - db SPRITE_SAILOR, $6 + 4, $5 + 4, $ff, $d2, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -CeladonHouseBlocks: ; 16 - INCBIN "maps/celadonhouse2.blk" - -CeladonHotel_h: ; 0x4925d to 0x49269 (12 bytes) (bank=12) (id=140) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw CeladonHotelBlocks, CeladonHotelTexts, CeladonHotelScript ; blocks, texts, scripts - db $00 ; connections - - dw CeladonHotelObject ; objects - -CeladonHotelScript: ; 0x49269 - jp $3c3c -; 0x4926c - -CeladonHotelTexts: ; 0x4926c - dw CeladonHotelText1, CeladonHotelText2, CeladonHotelText3 - -CeladonHotelText1: ; 0x49272 - TX_FAR _CeladonHotelText1 - db $50 - -CeladonHotelText2: ; 0x49277 - TX_FAR _CeladonHotelText2 - db $50 - -CeladonHotelText3: ; 0x4927c - TX_FAR _CeladonHotelText3 - db $50 - -CeladonHotelObject: ; 0x49281 (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $c, $ff - db $7, $4, $c, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_OLD_MEDIUM_WOMAN, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_FOULARD_WOMAN, $4 + 4, $2 + 4, $ff, $ff, $2 ; person - db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $8 + 4, $fe, $2, $3 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -CeladonHotelBlocks: ; 28 - INCBIN "maps/celadonhotel.blk" - -MtMoonPokecenter_h: ; 0x492c3 to 0x492cf (12 bytes) (bank=12) (id=68) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw MtMoonPokecenterBlocks, $52d5, MtMoonPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw MtMoonPokecenterObject ; objects - -MtMoonPokecenterScript: ; 0x492cf - call $22fa - jp $3c3c -; 0x492d5 - -INCBIN "baserom.gbc",$492d5,$d - -MtMoonPokecenterText2: -MtMoonPokecenterText1: ; 0x492e2 - TX_FAR _MtMoonPokecenterText1 - db $50 - -MtMoonPokecenterText3: ; 0x492e7 - TX_FAR _MtMoonPokecenterText3 - db $50 - -MtMoonPokecenterText4: ; 0x492ec - db $08 ; asm - ld a, [$d7c6] - add a - jp c, $5353 - ld hl, $535c - call PrintText - ld a, $13 - ld [$d125], a - call $30e8 - call $35ec - ld a, [$cc26] - and a - jp nz, $534e - ldh [$9f], a - ldh [$a1], a - ld a, $5 - ldh [$a0], a - call $35a6 - jr nc, .asm_faa09 ; 0x49317 - ld hl, $5366 - jr .asm_ae354 ; 0x4931c -.asm_faa09 ; 0x4931e - ld bc,(MAGIKARP << 8) | 5 - call GivePokemon - jr nc, .asm_38361 ; 0x49324 - xor a - ld [W_WHICHTRADE], a - ld [$cd3f], a - ld a, $5 - ld [$cd3e], a - ld hl, $cd3f - ld de, $d349 - ld c, $3 - ld a, $c - call Predef - ld a, $13 - ld [$d125], a - call $30e8 - ld hl, $d7c6 - set 7, [hl] - jr .asm_38361 ; 0x4934c - ld hl, $5361 - jr .asm_ae354 ; 0x49351 - ld hl, $536b -.asm_ae354 ; 0x49356 - call PrintText -.asm_38361 ; 0x49359 - jp $24d7 - -INCBIN "baserom.gbc",$4935c,$14 - -MtMoonPokecenterText5: ; 0x49370 - TX_FAR _MtMoonPokecenterText5 - db $50 - -MtMoonPokecenterText6: - db $f6 - -MtMoonPokecenterObject: ; 0x49376 (size=56) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $0, $ff - db $7, $4, $0, $ff - - db $0 ; signs - - db $6 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_BUG_CATCHER, $3 + 4, $4 + 4, $ff, $d1, $2 ; person - db SPRITE_GENTLEMAN, $3 + 4, $7 + 4, $ff, $d1, $3 ; person - db SPRITE_FAT_BALD_GUY, $6 + 4, $a + 4, $fe, $2, $4 ; person - db SPRITE_CLIPBOARD, $2 + 4, $7 + 4, $ff, $ff, $5 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $6 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -RockTunnelPokecenter_h: ; 0x493ae to 0x493ba (12 bytes) (id=81) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw $40ab, $53c0, RockTunnelPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw RockTunnelPokecenterObject ; objects - -RockTunnelPokecenterScript: ; 0x493ba - call $22fa - jp $3c3c -; 0x493c0 - -INCBIN "baserom.gbc",$493c0,$9 - -RockTunnelPokecenterText2: -RockTunnelPokecenterText1: ; 0x493c9 - TX_FAR _RockTunnelPokecenterText1 - -INCBIN "baserom.gbc",$493cd,$493ce - $493cd - -RockTunnelPokecenterText3: ; 0x493ce - TX_FAR _RockTunnelPokecenterText3 - db $50 - -RockTunnelPokecenterText4: ; 0x493d3 - db $f6 - -RockTunnelPokecenterObject: ; 0x493d4 (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $0, $ff - db $7, $4, $0, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_GENTLEMAN, $3 + 4, $7 + 4, $fe, $2, $2 ; person - db SPRITE_FISHER2, $5 + 4, $2 + 4, $ff, $ff, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -Route11Gate_h: ; 0x49400 to 0x4940c (12 bytes) (id=84) - db $0c ; tileset - db $05, $04 ; dimensions (y, x) - dw Route11GateBlocks, Route11GateTexts, Route11GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route11GateObject ; objects - -Route11GateScript: ; 0x4940c - jp $3c3c -; 0x4940f - -Route11GateTexts: ; 0x4940f - dw Route11GateText1 - -Route11GateText1: ; 0x49411 - TX_FAR _Route11GateText1 - db $50 - -Route11GateObject: ; 0x49416 (size=50) - db $a ; border tile - - db $5 ; warps - db $4, $0, $0, $ff - db $5, $0, $1, $ff - db $4, $7, $2, $ff - db $5, $7, $3, $ff - db $8, $6, $0, ROUTE_11_GATE_2F - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $1 + 4, $4 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $4, $0 - EVENT_DISP $4, $5, $0 - EVENT_DISP $4, $4, $7 - EVENT_DISP $4, $5, $7 - EVENT_DISP $4, $8, $6 ; ROUTE_11_GATE_2F - -Route11GateUpstairs_h: ; 0x49448 to 0x49454 (12 bytes) (id=86) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw Route11GateUpstairsBlocks, $5457, Route11GateUpstairsScript ; blocks, texts, scripts - db $00 ; connections - - dw Route11GateUpstairsObject ; objects - -Route11GateUpstairsScript: ; 0x49454 - jp $3c3f -; 0x49457 - -INCBIN "baserom.gbc",$49457,$8 - -Route11GateUpstairsText1: ; 0x4945f - db $08 ; asm - xor a - ld [W_WHICHTRADE], a - ld a, $54 - call Predef -asm_49469: - jp $24d7 - -Route11GateUpstairsText2: ; 0x4946c - db $8 - ld a, [$d7d6] - add a - jr c, .asm_4949b ; 0x49471 $28 - ld a, $1e - ld [$ff00+$db], a - ld a, $47 - ld [$ff00+$dc], a - ld [$d11e], a - call $2fcf - ld h, d - ld l, e - ld de, $cc5b - ld bc, $000d - call CopyData - ld a, $62 - call Predef - ld a, [$ff00+$db] - dec a - jr nz, .asm_494a1 ; 0x49494 $b - ld hl, $d7d6 - set 7, [hl] -.asm_4949b - ld hl, $54a3 - call PrintText -.asm_494a1 - jr asm_49469 ; 0x494a1 $c6 -; 0x494a3 - -INCBIN "baserom.gbc",$494a3,$5 - -Route11GateUpstairsText3: ; 0x494a8 - db $08 ; asm - ld a, [$c109] - cp $4 - jp nz, $55c9 - ld a, [$d7d8] - bit 7, a - ld hl, $54c4 - jr z, .asm_5ac80 ; 0x494b9 - ld hl, $54c9 -.asm_5ac80 ; 0x494be - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$494c4,$494ce - $494c4 - -Route11GateUpstairsText4: ; 0x494ce - db $8 - ld hl, $54d5 - jp $55c9 -; 0x494d5 - -INCBIN "baserom.gbc",$494d5,$5 - -Route11GateUpstairsObject: ; 0x494da (size=30) - db $a ; border tile - - db $1 ; warps - db $7, $7, $4, ROUTE_11_GATE_1F - - db $2 ; signs - db $2, $1, $3 ; Route11GateUpstairsText3 - db $2, $6, $4 ; Route11GateUpstairsText4 - - db $2 ; people - db SPRITE_BUG_CATCHER, $2 + 4, $4 + 4, $fe, $2, $1 ; person - db SPRITE_OAK_AIDE, $6 + 4, $2 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $7 ; ROUTE_11_GATE_1F - -Route12Gate_h: ; 0x494f8 to 0x49504 (12 bytes) (id=87) - db $0c ; tileset - db $04, $05 ; dimensions (y, x) - dw Route12GateBlocks, Route12GateTexts, Route12GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route12GateObject ; objects - -Route12GateScript: ; 0x49504 - jp $3c3c -; 0x49507 - -Route12GateTexts: ; 0x49507 - dw Route12GateText1 - -Route12GateText1: ; 0x49509 - TX_FAR _Route12GateText1 - db $50 - -Route12GateObject: ; 0x4950e (size=50) - db $a ; border tile - - db $5 ; warps - db $0, $4, $0, $ff - db $0, $5, $1, $ff - db $7, $4, $2, $ff - db $7, $5, $2, $ff - db $6, $8, $0, ROUTE_12_GATE_2F - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $3 + 4, $1 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $5, $0, $4 - EVENT_DISP $5, $0, $5 - EVENT_DISP $5, $7, $4 - EVENT_DISP $5, $7, $5 - EVENT_DISP $5, $6, $8 ; ROUTE_12_GATE_2F - -Route12GateBlocks: ; 20 - INCBIN "maps/route12gate.blk" - -Route12GateUpstairs_h: ; 0x49554 to 0x49560 (12 bytes) (id=195) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $40db, Route12GateUpstairsTexts, Route12GateUpstairsScript ; blocks, texts, scripts - db $00 ; connections - - dw Route12GateUpstairsObject ; objects - -Route12GateUpstairsScript: ; 0x49560 - jp $3c3f -; 0x49563 - -Route12GateUpstairsTexts: ; 0x49563 - dw Route12GateUpstairsText1, Route12GateUpstairsText2, Route12GateUpstairsText3 - -Route12GateUpstairsText1: ; 0x49569 - db $08 ; asm - ld a, [$d7d7] - rrca - jr c, .asm_0ad3c ; 0x4956e - ld hl, $559c - call PrintText - ld bc,(TM_39 << 8) | 1 - call $3e2e - jr nc, .asm_4c2be ; 0x4957c - ld hl, $55a1 - call PrintText - ld hl, $d7d7 - set 0, [hl] - jr .asm_4ba56 ; 0x49589 -.asm_4c2be ; 0x4958b - ld hl, $55ac - call PrintText - jr .asm_4ba56 ; 0x49591 -.asm_0ad3c ; 0x49593 - ld hl, $55a7 - call PrintText -.asm_4ba56 ; 0x49599 - jp $24d7 - -INCBIN "baserom.gbc",$4959c,$495b1 - $4959c - -Route12GateUpstairsText2: ; 0x495b1 - db $08 ; asm - ld hl, $55b8 - jp $55c9 - -;TX_FAR at 0x495b8 -db $17, $5a, $49, $23, $50 - -Route12GateUpstairsText3: ; 0x495bd - db $8 - ld hl, $55c4 - jp $55c9 -; 0x495c4 - -INCBIN "baserom.gbc",$495c4,$495de-$495c4 - -Route12GateUpstairsObject: ; 0x495de (size=24) - db $a ; border tile - - db $1 ; warps - db $7, $7, $4, ROUTE_12_GATE - - db $2 ; signs - db $2, $1, $2 ; Route12GateUpstairsText2 - db $2, $6, $3 ; Route12GateUpstairsText3 - - db $1 ; people - db SPRITE_BRUNETTE_GIRL, $4 + 4, $3 + 4, $fe, $1, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $7 ; ROUTE_12_GATE - -Route15Gate_h: ; 0x495f6 to 0x49602 (12 bytes) (id=184) - db $0c ; tileset - db $05, $04 ; dimensions (y, x) - dw $40c7, Route15GateTexts, Route15GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route15GateObject ; objects - -Route15GateScript: ; 0x49602 - jp $3c3c -; 0x49605 - -Route15GateTexts: ; 0x49605 - dw Route15GateText1 - -Route15GateText1: ; 0x49607 - TX_FAR _Route15GateText1 - db $50 - -Route15GateObject: ; 0x4960c (size=50) - db $a ; border tile - - db $5 ; warps - db $4, $0, $0, $ff - db $5, $0, $1, $ff - db $4, $7, $2, $ff - db $5, $7, $3, $ff - db $8, $6, $0, $b9 - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $1 + 4, $4 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $4, $0 - EVENT_DISP $4, $5, $0 - EVENT_DISP $4, $4, $7 - EVENT_DISP $4, $5, $7 - EVENT_DISP $4, $8, $6 - -INCBIN "baserom.gbc",$4963e,$74 - -Route16GateMap_h: ; 0x496b2 to 0x496be (12 bytes) (id=186) - db $0c ; tileset - db $07, $04 ; dimensions (y, x) - dw Route16GateMapBlocks, Route16GateMapTexts, Route16GateMapScript ; blocks, texts, scripts - db $00 ; connections - - dw Route16GateMapObject ; objects - -Route16GateMapScript: ; 0x496be - ld hl, $d732 - res 5, [hl] - call $3c3c - ld a, [$d660] - ld hl, $56cf - jp $3d97 -; 0x496cf - -Route16GateMapScripts: ; 0x496cf - dw Route16GateMapScript0 - -INCBIN "baserom.gbc",$496d1,$6 - -Route16GateMapScript0: ; 0x496d7 - call $5755 - ret nz - ld hl, $5714 - call $34bf - ret nc - ld a, $3 - ld [$ff00+$8c], a - call $2920 - xor a - ld [$ff00+$b4], a - ld a, [$cd3d] - cp $1 - jr z, .asm_4970e ; 0x496f1 $1b - ld a, [$cd3d] - dec a - ld [$cd38], a - ld b, $0 - ld c, a - ld a, $40 - ld hl, $ccd3 - call $36e0 - call $3486 - ld a, $1 - ld [$d660], a - ret -.asm_4970e - ld a, $2 - ld [$d660], a - ret -; 0x49714 - -INCBIN "baserom.gbc",$49714,$46 - -Route16GateMapTexts: ; 0x4975a - dw Route16GateMapText1, Route16GateMapText2, Route16GateMapText3 - -Route16GateMapText1: ; 0x49760 - db $08 ; asm - call $5755 - jr z, .asm_0bdf3 ; 0x49764 - ld hl, $577c - call PrintText - jr .asm_56c9d ; 0x4976c -.asm_0bdf3 ; 0x4976e - ld hl, $5777 - call PrintText -.asm_56c9d ; 0x49774 - jp $24d7 - -INCBIN "baserom.gbc",$49777,$49781 - $49777 - -Route16GateMapText3: ; 0x49781 -INCBIN "baserom.gbc",$49781,5 - -Route16GateMapText2: ; 0x49786 - TX_FAR _Route16GateMapText2 - db $50 - -Route16GateMapObject: ; 0x4978b (size=88) - db $a ; border tile - - db $9 ; warps - db $8, $0, $0, $ff - db $9, $0, $1, $ff - db $8, $7, $2, $ff - db $9, $7, $2, $ff - db $2, $0, $4, $ff - db $3, $0, $5, $ff - db $2, $7, $6, $ff - db $3, $7, $7, $ff - db $c, $6, $0, ROUTE_16_GATE_2F - - db $0 ; signs - - db $2 ; people - db SPRITE_GUARD, $5 + 4, $4 + 4, $ff, $d0, $1 ; person - db SPRITE_GAMBLER, $3 + 4, $4 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $4, $8, $0 - EVENT_DISP $4, $9, $0 - EVENT_DISP $4, $8, $7 - EVENT_DISP $4, $9, $7 - EVENT_DISP $4, $2, $0 - EVENT_DISP $4, $3, $0 - EVENT_DISP $4, $2, $7 - EVENT_DISP $4, $3, $7 - EVENT_DISP $4, $c, $6 ; ROUTE_16_GATE_2F - -Route16GateMapBlocks: ; 28 - INCBIN "maps/route16gatemap.blk" - -Route16GateUpstairs_h: ; 0x497ff to 0x4980b (12 bytes) (id=187) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $40db, Route16GateUpstairsTexts, Route16GateUpstairsScript ; blocks, texts, scripts - db $00 ; connections - - dw Route16GateUpstairsObject ; objects - -Route16GateUpstairsScript: ; 0x4980b - jp $3c3f -; 0x4980e - -Route16GateUpstairsTexts: ; 0x4980e - dw Route16GateUpstairsText1, Route16GateUpstairsText2, Route16GateUpstairsText3, Route16GateUpstairsText4 - -Route16GateUpstairsText1: ; 0x49816 - db $08 ; asm - ld hl, $5820 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$49820,$49825 - $49820 - -Route16GateUpstairsText2: ; 0x49825 - db $08 ; asm - ld hl, $582f - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$4982f,$49834 - $4982f - -Route16GateUpstairsText3: ; 0x49834 - db $8 - ld hl, $583b - jp $55c9 -; 0x4983b - -INCBIN "baserom.gbc",$4983b,$5 - -Route16GateUpstairsText4: ; 0x49840 - db $8 - ld hl, $5847 - jp $55c9 -; 0x49847 - -INCBIN "baserom.gbc",$49847,$5 - -Route16GateUpstairsObject: ; 0x4984c (size=30) - db $a ; border tile - - db $1 ; warps - db $7, $7, $8, ROUTE_16_GATE_1F - - db $2 ; signs - db $2, $1, $3 ; Route16GateUpstairsText3 - db $2, $6, $4 ; Route16GateUpstairsText4 - - db $2 ; people - db SPRITE_YOUNG_BOY, $2 + 4, $4 + 4, $ff, $ff, $1 ; person - db SPRITE_LITTLE_GIRL, $5 + 4, $2 + 4, $fe, $2, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $7 ; ROUTE_16_GATE_1F - -Route18Gate_h: ; 0x4986a to 0x49876 (12 bytes) (id=190) - db $0c ; tileset - db $05, $04 ; dimensions (y, x) - dw $40c7, Route18GateTexts, Route18GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route18GateObject ; objects - -Route18GateScript: ; 0x49876 - ld hl, $d732 - res 5, [hl] - call $3c3c - ld a, [$d669] - ld hl, $5887 - jp $3d97 -; 0x49887 - -Route18GateScripts: ; 0x49887 - dw Route18GateScript0 - -INCBIN "baserom.gbc",$49889,$6 - -Route18GateScript0: ; 0x4988f - call $5755 - ret nz - ld hl, $58cc - call $34bf - ret nc - ld a, $2 - ld [$ff00+$8c], a - call $2920 - xor a - ld [$ff00+$b4], a - ld a, [$cd3d] - cp $1 - jr z, .asm_498c6 ; 0x498a9 $1b - ld a, [$cd3d] - dec a - ld [$cd38], a - ld b, $0 - ld c, a - ld a, $40 - ld hl, $ccd3 - call $36e0 - call $3486 - ld a, $1 - ld [$d669], a - ret -.asm_498c6 - ld a, $2 - ld [$d669], a - ret -; 0x498cc - -INCBIN "baserom.gbc",$498cc,$41 - -Route18GateTexts: ; 0x4990d - dw Route18GateText1, Route18GateText2 - -Route18GateText1: ; 0x49911 - db $08 ; asm - call $5755 - jr z, .asm_3c84d ; 0x49915 - ld hl, $592d - call PrintText - jr .asm_a8410 ; 0x4991d -.asm_3c84d ; 0x4991f - ld hl, $5928 - call PrintText -.asm_a8410 ; 0x49925 - jp $24d7 - -INCBIN "baserom.gbc",$49928,$49932 - $49928 - -Route18GateText2: ; 0x49932 -INCBIN "baserom.gbc",$49932,5 - -Route18GateObject: ; 0x49937 (size=50) - db $a ; border tile - - db $5 ; warps - db $4, $0, $0, $ff - db $5, $0, $1, $ff - db $4, $7, $2, $ff - db $5, $7, $3, $ff - db $8, $6, $0, ROUTE_18_GATE_2F - - db $0 ; signs - - db $1 ; people - db SPRITE_GUARD, $1 + 4, $4 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $4, $4, $0 - EVENT_DISP $4, $5, $0 - EVENT_DISP $4, $4, $7 - EVENT_DISP $4, $5, $7 - EVENT_DISP $4, $8, $6 ; ROUTE_18_GATE_2F - -Route18GateHeader_h: ; 0x49969 to 0x49975 (12 bytes) (id=191) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $40db, Route18GateHeaderTexts, Route18GateHeaderScript ; blocks, texts, scripts - db $00 ; connections - - dw Route18GateHeaderObject ; objects - -Route18GateHeaderScript: ; 0x49975 - jp $3c3f -; 0x49978 - -Route18GateHeaderTexts: ; 0x49978 - dw Route18GateHeaderText1, Route18GateHeaderText2, Route18GateHeaderText3 - -Route18GateHeaderText1: ; 0x4997e - db $08 ; asm - ld a, $5 - ld [W_WHICHTRADE], a - ld a, $54 - call Predef - jp $24d7 - -Route18GateHeaderText2: ; 0x4998c - db $8 - ld hl, $5993 - jp $55c9 -; 0x49993 - -INCBIN "baserom.gbc",$49993,$5 - -Route18GateHeaderText3: ; 0x49998 - db $8 - ld hl, $599f - jp $55c9 -; 0x4999f - -INCBIN "baserom.gbc",$4999f,$5 - -Route18GateHeaderObject: ; 0x499a4 (size=24) - db $a ; border tile - - db $1 ; warps - db $7, $7, $4, ROUTE_18_GATE_1F - - db $2 ; signs - db $2, $1, $2 ; Route18GateHeaderText2 - db $2, $6, $3 ; Route18GateHeaderText3 - - db $1 ; people - db SPRITE_BUG_CATCHER, $2 + 4, $4 + 4, $fe, $2, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $7 ; ROUTE_18_GATE_1F - -MtMoon1_h: ; 0x499bc to 0x499c8 (12 bytes) (id=59) - db $11 ; tileset - db $12, $14 ; dimensions (y, x) - dw MtMoon1Blocks, MtMoon1Texts, MtMoon1Script ; blocks, texts, scripts - db $00 ; connections - - dw MtMoon1Object ; objects - -MtMoon1Script: ; 0x499c8 - call $3c3c - ld hl, $59fd - ld de, $59db - ld a, [$d606] - call $3160 - ld [$d606], a - ret -; 0x499db - -INCBIN "baserom.gbc",$499db,$6 - -MtMoon1Texts: ; 0x499e1 - dw MtMoon1Text1, MtMoon1Text2, MtMoon1Text3, MtMoon1Text4, MtMoon1Text5, MtMoon1Text6, MtMoon1Text7, MtMoon1Text8, MtMoon1Text9, MtMoon1Text10, MtMoon1Text11, MtMoon1Text12, MtMoon1Text13, MtMoon1Text14 - -INCBIN "baserom.gbc",$499fd,$55 - -MtMoon1Text1: ; 0x49a52 - db $08 ; asm - ld hl, $59fd - call LoadTrainerHeader - jp $24d7 - -MtMoon1Text2: ; 0x49a5c - db $08 ; asm - ld hl, $5a09 - call LoadTrainerHeader - jp $24d7 - -MtMoon1Text3: ; 0x49a66 - db $08 ; asm - ld hl, $5a15 - call LoadTrainerHeader - jp $24d7 - -MtMoon1Text4: ; 0x49a70 - db $08 ; asm - ld hl, $5a21 - call LoadTrainerHeader - jp $24d7 - -MtMoon1Text5: ; 0x49a7a - db $08 ; asm - ld hl, $5a2d - call LoadTrainerHeader - jp $24d7 - -MtMoon1Text6: ; 0x49a84 - db $08 ; asm - ld hl, $5a39 - call LoadTrainerHeader - jp $24d7 - -MtMoon1Text7: ; 0x49a8e - db $08 ; asm - ld hl, $5a45 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$49a98,$69 - -MtMoon1Text14: ; 0x49b01 - TX_FAR _MtMoon1Text14 - db $50 - -MtMoon1Object: ; 0x49b06 (size=145) - db $3 ; border tile - - db $5 ; warps - db $23, $e, $1, $ff - db $23, $f, $1, $ff - db $5, $5, $0, MT_MOON_2 - db $b, $11, $2, MT_MOON_2 - db $f, $19, $3, MT_MOON_2 - - db $1 ; signs - db $17, $f, $e ; MtMoon1Text14 - - db $d ; people - db SPRITE_HIKER, $6 + 4, $5 + 4, $ff, $d0, $41, HIKER + $C8, $1 ; trainer - db SPRITE_BUG_CATCHER, $10 + 4, $c + 4, $ff, $d3, $42, YOUNGSTER + $C8, $3 ; trainer - db SPRITE_LASS, $4 + 4, $1e + 4, $ff, $d0, $43, LASS + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $1f + 4, $18 + 4, $ff, $d1, $44, SUPER_NERD + $C8, $1 ; trainer - db SPRITE_LASS, $17 + 4, $10 + 4, $ff, $d0, $45, LASS + $C8, $6 ; trainer - db SPRITE_BUG_CATCHER, $16 + 4, $7 + 4, $ff, $d0, $46, BUG_CATCHER + $C8, $7 ; trainer - db SPRITE_BUG_CATCHER, $1b + 4, $1e + 4, $ff, $d3, $47, BUG_CATCHER + $C8, $8 ; trainer - db SPRITE_BALL, $14 + 4, $2 + 4, $ff, $ff, $88, POTION ; item - db SPRITE_BALL, $2 + 4, $2 + 4, $ff, $ff, $89, MOON_STONE ; item - db SPRITE_BALL, $1f + 4, $23 + 4, $ff, $ff, $8a, RARE_CANDY ; item - db SPRITE_BALL, $17 + 4, $24 + 4, $ff, $ff, $8b, ESCAPE_ROPE ; item - db SPRITE_BALL, $21 + 4, $14 + 4, $ff, $ff, $8c, POTION ; item - db SPRITE_BALL, $20 + 4, $5 + 4, $ff, $ff, $8d, TM_12 ; item - - ; warp-to - EVENT_DISP $14, $23, $e - EVENT_DISP $14, $23, $f - EVENT_DISP $14, $5, $5 ; MT_MOON_2 - EVENT_DISP $14, $b, $11 ; MT_MOON_2 - EVENT_DISP $14, $f, $19 ; MT_MOON_2 - -MtMoon1Blocks: ; 360 - INCBIN "maps/mtmoon1.blk" - -MtMoon3_h: ; 0x49cff to 0x49d0b (12 bytes) (id=61) - db $11 ; tileset - db $12, $14 ; dimensions (y, x) - dw MtMoon3Blocks, MtMoon3Texts, MtMoon3Script ; blocks, texts, scripts - db $00 ; connections - - dw MtMoon3Object ; objects - -MtMoon3Script: ; 0x49d0b - call $3c3c - ld hl, $5e48 - ld de, $5d63 - ld a, [$d607] - call $3160 - ld [$d607], a - ld a, [$d7f6] - bit 1, a - ret z - ld hl, $5d37 - call $34bf - jr nc, .asm_49d31 ; 0x49d29 $6 - ld hl, $d72e - set 4, [hl] - ret -.asm_49d31 - ld hl, $d72e - res 4, [hl] - ret -; 0x49d37 - -INCBIN "baserom.gbc",$49d37,$fd - -MtMoon3Texts: ; 0x49e34 - dw MtMoon3Text1, MtMoon3Text2, MtMoon3Text3, MtMoon3Text4, MtMoon3Text5, MtMoon3Text6, MtMoon3Text7, MtMoon3Text8, MtMoon3Text9 - -INCBIN "baserom.gbc",$49e46,$33 - -MtMoon3Text1: ; 0x49e79 - db $08 ; asm - ld a, [$d7f6] - bit 1, a - jr z, .asm_be1e0 ; 0x49e7f - and $c0 - jr nz, .asm_f8cd4 ; 0x49e83 - ld hl, $5f8f - call PrintText - jr .asm_f1fba ; 0x49e8b -.asm_be1e0 ; 0x49e8d - ld hl, $5f85 - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $5f8a - ld de, $5f8a - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $3 - ld [$d607], a - ld [$da39], a - jr .asm_f1fba ; 0x49eb6 -.asm_f8cd4 ; 0x49eb8 - ld hl, $5f94 - call PrintText -.asm_f1fba ; 0x49ebe - jp $24d7 - -MtMoon3Text2: ; 0x49ec1 - db $08 ; asm - ld hl, $5e48 - call LoadTrainerHeader - jp $24d7 - -MtMoon3Text3: ; 0x49ecb - db $08 ; asm - ld hl, $5e54 - call LoadTrainerHeader - jp $24d7 - -MtMoon3Text4: ; 0x49ed5 - db $08 ; asm - ld hl, $5e60 - call LoadTrainerHeader - jp $24d7 - -MtMoon3Text5: ; 0x49edf - db $08 ; asm - ld hl, $5e6c - call LoadTrainerHeader - jp $24d7 - -MtMoon3Text6: ; 0x49ee9 - db $08 ; asm - ld a, $1 - ld [$cc3c], a - ld hl, $5f24 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_1fa5e ; 0x49efc - ld bc,(DOME_FOSSIL << 8) | 1 - call $3e2e - jp nc, $5f76 - call $5f69 - ld a, $6d - ld [$cc4d], a - ld a, $11 - call Predef - ld hl, $d7f6 - set 6, [hl] - ld a, $4 - ld [$d607], a - ld [$da39], a -.asm_1fa5e ; 0x49f21 - jp $24d7 - -INCBIN "baserom.gbc",$49f24,$49f29 - $49f24 - -MtMoon3Text7: ; 0x49f29 - db $08 ; asm - ld a, $1 - ld [$cc3c], a - ld hl, $5f64 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_8e988 ; 0x49f3c - ld bc,(HELIX_FOSSIL << 8) | 1 - call $3e2e - jp nc, $5f76 - call $5f69 - ld a, $6e - ld [$cc4d], a - ld a, $11 - call Predef - ld hl, $d7f6 - set 7, [hl] - ld a, $4 - ld [$d607], a - ld [$da39], a -.asm_8e988 ; 0x49f61 - jp $24d7 - -INCBIN "baserom.gbc",$49f64,$77 - -MtMoon3Object: ; 0x49fdb (size=102) - db $3 ; border tile - - db $4 ; warps - db $9, $19, $1, MT_MOON_2 - db $11, $15, $4, MT_MOON_2 - db $1b, $f, $5, MT_MOON_2 - db $7, $5, $6, MT_MOON_2 - - db $0 ; signs - - db $9 ; people - db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $c + 4, $ff, $d3, $41, SUPER_NERD + $C8, $2 ; trainer - db SPRITE_ROCKET, $10 + 4, $b + 4, $ff, $d0, $42, ROCKET + $C8, $1 ; trainer - db SPRITE_ROCKET, $16 + 4, $f + 4, $ff, $d0, $43, ROCKET + $C8, $2 ; trainer - db SPRITE_ROCKET, $b + 4, $1d + 4, $ff, $d1, $44, ROCKET + $C8, $3 ; trainer - db SPRITE_ROCKET, $11 + 4, $1d + 4, $ff, $d2, $45, ROCKET + $C8, $4 ; trainer - db SPRITE_OMANYTE, $6 + 4, $c + 4, $ff, $ff, $6 ; person - db SPRITE_OMANYTE, $6 + 4, $d + 4, $ff, $ff, $7 ; person - db SPRITE_BALL, $15 + 4, $19 + 4, $ff, $ff, $88, HP_UP ; item - db SPRITE_BALL, $5 + 4, $1d + 4, $ff, $ff, $89, TM_01 ; item - - ; warp-to - EVENT_DISP $14, $9, $19 ; MT_MOON_2 - EVENT_DISP $14, $11, $15 ; MT_MOON_2 - EVENT_DISP $14, $1b, $f ; MT_MOON_2 - EVENT_DISP $14, $7, $5 ; MT_MOON_2 - -MtMoon3Blocks: ; 360 - INCBIN "maps/mtmoon3.blk" - -SafariZoneWest_h: ; 0x4a1a9 to 0x4a1b5 (12 bytes) (id=219) - db $03 ; tileset - db $0d, $0f ; dimensions (y, x) - dw SafariZoneWestBlocks, SafariZoneWestTexts, SafariZoneWestScript ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneWestObject ; objects - -SafariZoneWestScript: ; 0x4a1b5 - jp $3c3c -; 0x4a1b8 - -SafariZoneWestTexts: ; 0x4a1b8 - dw SafariZoneWestText1, SafariZoneWestText2, SafariZoneWestText3, SafariZoneWestText4, SafariZoneWestText5, SafariZoneWestText6, SafariZoneWestText7, SafariZoneWestText8 - -SafariZoneWestText5: ; 0x4a1c8 - TX_FAR _SafariZoneWestText5 - db $50 - -SafariZoneWestText6: ; 0x4a1cd - TX_FAR _SafariZoneWestText6 - db $50 - -SafariZoneWestText7: ; 0x4a1d2 - TX_FAR _SafariZoneWestText7 - db $50 - -SafariZoneWestText8: ; 0x4a1d7 - TX_FAR _SafariZoneWestText8 - db $50 - -SafariZoneWestObject: ; 0x4a1dc (size=108) - db $0 ; border tile - - db $8 ; warps - db $0, $14, $0, SAFARI_ZONE_NORTH - db $0, $15, $1, SAFARI_ZONE_NORTH - db $0, $1a, $2, SAFARI_ZONE_NORTH - db $0, $1b, $3, SAFARI_ZONE_NORTH - db $16, $1d, $2, SAFARI_ZONE_CENTER - db $17, $1d, $3, SAFARI_ZONE_CENTER - db $3, $3, $0, SAFARI_ZONE_SECRET_HOUSE - db $b, $b, $0, SAFARI_ZONE_REST_HOUSE_2 - - db $4 ; signs - db $c, $c, $5 ; SafariZoneWestText5 - db $3, $11, $6 ; SafariZoneWestText6 - db $4, $1a, $7 ; SafariZoneWestText7 - db $16, $18, $8 ; SafariZoneWestText8 - - db $4 ; people - db SPRITE_BALL, $14 + 4, $8 + 4, $ff, $ff, $81, MAX_POTION ; item - db SPRITE_BALL, $7 + 4, $9 + 4, $ff, $ff, $82, TM_32 ; item - db SPRITE_BALL, $12 + 4, $12 + 4, $ff, $ff, $83, MAX_REVIVE ; item - db SPRITE_BALL, $7 + 4, $13 + 4, $ff, $ff, $84, GOLD_TEETH ; item - - ; warp-to - EVENT_DISP $f, $0, $14 ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $0, $15 ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $0, $1a ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $0, $1b ; SAFARI_ZONE_NORTH - EVENT_DISP $f, $16, $1d ; SAFARI_ZONE_CENTER - EVENT_DISP $f, $17, $1d ; SAFARI_ZONE_CENTER - EVENT_DISP $f, $3, $3 ; SAFARI_ZONE_SECRET_HOUSE - EVENT_DISP $f, $b, $b ; SAFARI_ZONE_REST_HOUSE_2 - -SafariZoneWestBlocks: ; 195 - INCBIN "maps/safarizonewest.blk" - -SafariZoneSecretHouse_h: ; 0x4a30b to 0x4a317 (12 bytes) (id=222) - db $14 ; tileset - db $04, $04 ; dimensions (y, x) - dw SafariZoneSecretHouseBlocks, SafariZoneSecretHouseTexts, SafariZoneSecretHouseScript ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneSecretHouseObject ; objects - -SafariZoneSecretHouseScript: ; 0x4a317 - jp $3c3c -; 0x4a31a - -SafariZoneSecretHouseTexts: ; 0x4a31a - dw SafariZoneSecretHouseText1 - -SafariZoneSecretHouseText1: ; 0x4a31c - db $08 ; asm - ld a, [$d857] - bit 0, a - jr nz, .asm_20a9b ; 0x4a322 - ld hl, $6350 - call PrintText - ld bc,(HM_03 << 8) | 1 - call $3e2e - jr nc, .asm_a21d2 ; 0x4a330 - ld hl, $6355 - call PrintText - ld hl, $d857 - set 0, [hl] - jr .asm_8f1fc ; 0x4a33d -.asm_a21d2 ; 0x4a33f - ld hl, $6360 - call PrintText - jr .asm_8f1fc ; 0x4a345 -.asm_20a9b ; 0x4a347 - ld hl, $635b - call PrintText -.asm_8f1fc ; 0x4a34d - jp $24d7 - -INCBIN "baserom.gbc",$4a350,$15 - -SafariZoneSecretHouseObject: ; 0x4a365 (size=26) - db $17 ; border tile - - db $2 ; warps - db $7, $2, $6, SAFARI_ZONE_WEST - db $7, $3, $6, SAFARI_ZONE_WEST - - db $0 ; signs - - db $1 ; people - db SPRITE_FISHER, $3 + 4, $3 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; SAFARI_ZONE_WEST - EVENT_DISP $4, $7, $3 ; SAFARI_ZONE_WEST - -SafariZoneSecretHouseBlocks: ; 16 - INCBIN "maps/safarizonesecrethouse.blk" - -INCBIN "baserom.gbc",$4a38f,$1c71 - -SECTION "bank13",DATA,BANK[$13] - -YoungsterPic: - INCBIN "pic/trainer/youngster.pic" -BugCatcherPic: - INCBIN "pic/trainer/bugcatcher.pic" -LassPic: - INCBIN "pic/trainer/lass.pic" -SailorPic: - INCBIN "pic/trainer/sailor.pic" -JrTrainerMPic: - INCBIN "pic/trainer/jr.trainerm.pic" -JrTrainerFPic: - INCBIN "pic/trainer/jr.trainerf.pic" -PokemaniacPic: - INCBIN "pic/trainer/pokemaniac.pic" -SuperNerdPic: - INCBIN "pic/trainer/supernerd.pic" -HikerPic: - INCBIN "pic/trainer/hiker.pic" -BikerPic: - INCBIN "pic/trainer/biker.pic" -BurglarPic: - INCBIN "pic/trainer/burglar.pic" -EngineerPic: - INCBIN "pic/trainer/engineer.pic" -FisherPic: - INCBIN "pic/trainer/fisher.pic" -SwimmerPic: - INCBIN "pic/trainer/swimmer.pic" -CueBallPic: - INCBIN "pic/trainer/cueball.pic" -GamblerPic: - INCBIN "pic/trainer/gambler.pic" -BeautyPic: - INCBIN "pic/trainer/beauty.pic" -PsychicPic: - INCBIN "pic/trainer/psychic.pic" -RockerPic: - INCBIN "pic/trainer/rocker.pic" -JugglerPic: - INCBIN "pic/trainer/juggler.pic" -TamerPic: - INCBIN "pic/trainer/tamer.pic" -BirdKeeperPic: - INCBIN "pic/trainer/birdkeeper.pic" -BlackbeltPic: - INCBIN "pic/trainer/blackbelt.pic" -Rival1Pic: - INCBIN "pic/trainer/rival1.pic" -ProfOakPic: - INCBIN "pic/trainer/prof.oak.pic" -ChiefPic: -ScientistPic: - INCBIN "pic/trainer/scientist.pic" -GiovanniPic: - INCBIN "pic/trainer/giovanni.pic" -RocketPic: - INCBIN "pic/trainer/rocket.pic" -CooltrainerMPic: - INCBIN "pic/trainer/cooltrainerm.pic" -CooltrainerFPic: - INCBIN "pic/trainer/cooltrainerf.pic" -BrunoPic: - INCBIN "pic/trainer/bruno.pic" -BrockPic: - INCBIN "pic/trainer/brock.pic" -MistyPic: - INCBIN "pic/trainer/misty.pic" -LtSurgePic: - INCBIN "pic/trainer/lt.surge.pic" -ErikaPic: - INCBIN "pic/trainer/erika.pic" -KogaPic: - INCBIN "pic/trainer/koga.pic" -BlainePic: - INCBIN "pic/trainer/blaine.pic" -SabrinaPic: - INCBIN "pic/trainer/sabrina.pic" -GentlemanPic: - INCBIN "pic/trainer/gentleman.pic" -Rival2Pic: - INCBIN "pic/trainer/rival2.pic" -Rival3Pic: - INCBIN "pic/trainer/rival3.pic" -LoreleiPic: - INCBIN "pic/trainer/lorelei.pic" -ChannelerPic: - INCBIN "pic/trainer/channeler.pic" -AgathaPic: - INCBIN "pic/trainer/agatha.pic" -LancePic: - INCBIN "pic/trainer/lance.pic" - -BattleCenterM_h: ; 0x4fd04 to 0x4fd10 (12 bytes) (id=239) - db $15 ; tileset - db $04, $05 ; dimensions (y, x) - dw BattleCenterMBlocks, BattleCenterMTexts, BattleCenterMScript ; blocks, texts, scripts - db $00 ; connections - - dw BattleCenterMObject ; objects - -BattleCenterMScript: ; 0x4fd10 - call $3c3c - ld a, [$ff00+$aa] - cp $2 - ld a, $8 - jr z, .asm_4fd1d ; 0x4fd19 $2 - ld a, $c -.asm_4fd1d - ld [$ff00+$8d], a - ld a, $1 - ld [$ff00+$8c], a - call $34ae - ld hl, $d72d - bit 0, [hl] - set 0, [hl] - ret nz - ld hl, $c214 - ld a, $8 - ld [hli], a - ld a, $a - ld [hl], a - ld a, $8 - ld [$c119], a - ld a, [$ff00+$aa] - cp $2 - ret z - ld a, $7 - ld [$c215], a - ld a, $c - ld [$c119], a - ret -; 0x4fd4c - -BattleCenterMTexts: ; 0x4fd4c - dw BattleCenterMText1 - -BattleCenterMText1: ; 0x4fd4e - TX_FAR _BattleCenterMText1 - db $50 - -BattleCenterMObject: ; 0x4fd53 (size=10) - db $e ; border tile - - db $0 ; warps - - db $0 ; signs - - db $1 ; people - db SPRITE_RED, $2 + 4, $2 + 4, $ff, $0, $1 ; person - -BattleCenterMBlocks: ; 20 - INCBIN "maps/battlecenterm.blk" - -TradeCenterM_h: ; 0x4fd71 to 0x4fd7d (12 bytes) (id=240) - db $15 ; tileset - db $04, $05 ; dimensions (y, x) - dw TradeCenterMBlocks, TradeCenterMTexts, TradeCenterMScript ; blocks, texts, scripts - db $00 ; connections - - dw TradeCenterMObject ; objects - -TradeCenterMScript: ; 0x4fd7d - jp $7d10 -; 0x4fd80 - -TradeCenterMTexts: ; 0x4fd80 - dw TradeCenterMText1 - -TradeCenterMText1: ; 0x4fd82 - TX_FAR _TradeCenterMText1 - db $50 - -TradeCenterMObject: ; 0x4fd87 (size=10) - db $e ; border tile - - db $0 ; warps - - db $0 ; signs - - db $1 ; people - db SPRITE_RED, $2 + 4, $2 + 4, $ff, $0, $1 ; person - -TradeCenterMBlocks: ; 20 - INCBIN "maps/tradecenterm.blk" - -INCBIN "baserom.gbc",$4fda5,$a4 - -GetPredefPointer: ; 7E49 -; stores hl in $CC4F,$CC50 -; stores de in $CC51,$CC52 -; stores bc in $CC53,$CC54 -; grabs a byte "n" from $CC4E, -; and gets the nth (3-byte) pointer in PredefPointers -; stores the bank of said pointer in [$D0B7] -; stores the pointer in hl and returns - ; ld $CC4F,hl - ld a,h - ld [$CC4F],a - ld a,l - ld [$CC50],a - - ; ld $CC51,de - ld hl,$CC51 - ld a,d - ld [hli],a - ld a,e - ld [hli],a - - ; ld $CC53,bc - ld a,b - ld [hli],a - ld [hl],c - - ld hl,PredefPointers - ld de,0 - - ; de = 3 * [$CC4E] - ld a,[$CC4E] - ld e,a - add a,a - add a,e - ld e,a - jr nc,.next\@ - inc d - -.next\@ - add hl,de - ld d,h - ld e,l - - ; get bank of predef routine - ld a,[de] - ld [$D0B7],a - - ; get pointer - inc de - ld a,[de] - ld l,a - inc de - ld a,[de] - ld h,a - - ret - -PredefPointers: ; 7E79 -; these are pointers to ASM routines. -; they appear to be used in overworld map scripts. - dbw $0F,$4D60 - dbw $0F,$70C6 - dbw $0F,$7073 - dbw $0B,$7E40 - dbw $0F,$7103 - dbw $1E,$5ABA - dbw $03,$7132 - dbw $03,$76A5 - dbw BANK(AttackAnimation),AttackAnimation; 08 play attack animation - dbw $03,$771E - dbw $03,$771E - dbw $03,$781D - dbw $03,$7836 - dbw $03,$771E - dbw $03,$771E - dbw $03,$7850 - dbw $03,$7666 - dbw $03,$71D7 - dbw $03,$71A6 - dbw $03,$469C - dbw $0F,$4A83 - dbw $03,$71C8 - dbw $03,$71C8 - dbw $03,$6E9E - dbw $03,$7850 - dbw $03,$4754 - dbw $0E,$6F5B - dbw $01,$6E43 - dbw $03,$78A5; 1C, used in Pokémon Tower - dbw $03,$3EB5 - dbw $03,$3E2E - dbw $12,$40EB - dbw $03,$78BA - dbw $12,$40FF - dbw $03,$7929 - dbw $03,$79A0 - dbw $12,$4125 - dbw $03,$7A1D - dbw $03,$79DC - dbw $01,$5AB0 - dbw $0F,$6D02 - dbw $10,$4000 - dbw $0E,$6D1C - dbw $1C,$778C - dbw $0F,$6F18 - dbw $01,$5A5F - dbw $03,$6A03 - dbw $10,$50F3 - dbw $1C,$496D - dbw $1E,$5DDA - dbw $10,$5682 - dbw $1E,$5869 - dbw $1C,$4B5D - dbw $03,$4586 - dbw $04,$6953 - dbw $04,$6B57 - dbw $10,$50E2 - dbw $15,$690F - dbw $10,$5010 - dbw BANK(Predef3B),Predef3B; 3B display pic? - dbw $03,$6F54 - dbw $10,$42D1 - dbw $0E,$6FB8 - dbw $1C,$770A - dbw $1C,$602B - dbw $03,$7113 - dbw $17,$5B5E - dbw $04,$773E - dbw $04,$7763 - dbw $1C,$5DDF - dbw $17,$40DC; 46 load dex screen - dbw $03,$72E5 - dbw $03,$7A1D - dbw $0F,$4DEC - dbw $1C,$4F60 - dbw $09,$7D6B - dbw $05,$7C47; 4C player exclamation - dbw $01,$5AAF - dbw $01,$64EB - dbw $0D,$7CA1 - dbw $1C,$780F - dbw $1C,$76BD - dbw $1C,$75E8 - dbw $1C,$77E2 - dbw BANK(Predef54),Predef54 ; 54 initiate trade - dbw $1D,$405C - dbw $11,$4169 - dbw $1E,$45BA - dbw $1E,$4510 - dbw $03,$45BE - dbw $03,$460B - dbw $03,$4D99 - dbw $01,$4DE1 - dbw $09,$7D98 - dbw $03,$7473 - dbw $04,$68EF - dbw $04,$68F6 - dbw $07,$49C6 - dbw $16,$5035 - -SECTION "bank14",DATA,BANK[$14] - -Route22_h: ; 0x50000 to 0x50022 (34 bytes) (id=33) - db $00 ; tileset - db $09, $14 ; dimensions (y, x) - dw Route22Blocks, Route22Texts, Route22Script ; blocks, texts, scripts - db NORTH | EAST ; connections - - ; connections data - - db ROUTE_23 - dw $4664, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $8f, $00 ; alignments (y, x) - dw $cb69 ; window - - db VIRIDIAN_CITY - dw $4400, $c6ff ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $00 ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route22Object ; objects - -Route22Object: ; 0x50022 (size=27) - db $2c ; border tile - - db $1 ; warps - db $5, $8, $0, ROUTE_22_GATE - - db $1 ; signs - db $b, $7, $3 ; Route22Text3 - - db $2 ; people - db SPRITE_BLUE, $5 + 4, $19 + 4, $ff, $ff, $1 ; person - db SPRITE_BLUE, $5 + 4, $19 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $14, $5, $8 ; ROUTE_22_GATE - -Route22Blocks: ; 180 - INCBIN "maps/route22.blk" - -Route20_h: ; 0x500f1 to 0x50113 (34 bytes) (id=31) - db $00 ; tileset - db $09, $32 ; dimensions (y, x) - dw Route20Blocks, Route20Texts, Route20Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db CINNABAR_ISLAND - dw $4070, $c790 ; pointers (connected, current) (strip) - db $09, $0a ; bigness, width - db $00, $13 ; alignments (y, x) - dw $c702 ; window - - db ROUTE_19 - dw $4f87, $c71d ; pointers (connected, current) (strip) - db $0c, $0a ; bigness, width - db $24, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route20Object ; objects - -Route20Object: ; 0x50113 (size=106) - db $43 ; border tile - - db $2 ; warps - db $5, $30, $0, SEAFOAM_ISLANDS_1 - db $9, $3a, $2, SEAFOAM_ISLANDS_1 - - db $2 ; signs - db $7, $33, $b ; Route20Text11 - db $b, $39, $c ; Route20Text12 - - db $a ; people - db SPRITE_SWIMMER, $8 + 4, $57 + 4, $ff, $d1, $41, SWIMMER + $C8, $9 ; trainer - db SPRITE_SWIMMER, $b + 4, $44 + 4, $ff, $d1, $42, BEAUTY + $C8, $f ; trainer - db SPRITE_SWIMMER, $a + 4, $2d + 4, $ff, $d0, $43, BEAUTY + $C8, $6 ; trainer - db SPRITE_SWIMMER, $e + 4, $37 + 4, $ff, $d3, $44, JR__TRAINER_F + $C8, $18 ; trainer - db SPRITE_SWIMMER, $d + 4, $26 + 4, $ff, $d0, $45, SWIMMER + $C8, $a ; trainer - db SPRITE_SWIMMER, $d + 4, $57 + 4, $ff, $d1, $46, SWIMMER + $C8, $b ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $9 + 4, $22 + 4, $ff, $d1, $47, BIRD_KEEPER + $C8, $b ; trainer - db SPRITE_SWIMMER, $7 + 4, $19 + 4, $ff, $d1, $48, BEAUTY + $C8, $7 ; trainer - db SPRITE_SWIMMER, $c + 4, $18 + 4, $ff, $d0, $49, JR__TRAINER_F + $C8, $10 ; trainer - db SPRITE_SWIMMER, $8 + 4, $f + 4, $ff, $d1, $4a, BEAUTY + $C8, $8 ; trainer - - ; warp-to - EVENT_DISP $32, $5, $30 ; SEAFOAM_ISLANDS_1 - EVENT_DISP $32, $9, $3a ; SEAFOAM_ISLANDS_1 - -Route20Blocks: ; 450 - INCBIN "maps/route20.blk" - -Route23_h: ; 0x5033f to 0x50361 (34 bytes) (id=34) - db $17 ; tileset - db $48, $0a ; dimensions (y, x) - dw Route23Blocks, Route23Texts, Route23Script ; blocks, texts, scripts - db NORTH | SOUTH ; connections - - ; connections data - - db INDIGO_PLATEAU - dw $4986, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $11, $00 ; alignments (y, x) - dw $c779 ; window - - db ROUTE_22 - dw $403d, $cb9b ; pointers (connected, current) (strip) - db $0d, $14 ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route23Object ; objects - -Route23Object: ; 0x50361 (size=81) - db $f ; border tile - - db $4 ; warps - db $8b, $7, $2, ROUTE_22_GATE - db $8b, $8, $3, ROUTE_22_GATE - db $1f, $4, $0, VICTORY_ROAD_1 - db $1f, $e, $1, VICTORY_ROAD_2 - - db $1 ; signs - db $21, $3, $8 ; Route23Text8 - - db $7 ; people - db SPRITE_GUARD, $23 + 4, $4 + 4, $ff, $d0, $1 ; person - db SPRITE_GUARD, $38 + 4, $a + 4, $ff, $d0, $2 ; person - db SPRITE_SWIMMER, $55 + 4, $8 + 4, $ff, $d0, $3 ; person - db SPRITE_SWIMMER, $60 + 4, $b + 4, $ff, $d0, $4 ; person - db SPRITE_GUARD, $69 + 4, $c + 4, $ff, $d0, $5 ; person - db SPRITE_GUARD, $77 + 4, $8 + 4, $ff, $d0, $6 ; person - db SPRITE_GUARD, $88 + 4, $8 + 4, $ff, $d0, $7 ; person - - ; warp-to - EVENT_DISP $a, $8b, $7 ; ROUTE_22_GATE - EVENT_DISP $a, $8b, $8 ; ROUTE_22_GATE - EVENT_DISP $a, $1f, $4 ; VICTORY_ROAD_1 - EVENT_DISP $a, $1f, $e ; VICTORY_ROAD_2 - -Route23Blocks: ; 720 - INCBIN "maps/route23.blk" - -Route24_h: ; 0x50682 to 0x506a4 (34 bytes) (id=35) - db $00 ; tileset - db $12, $0a ; dimensions (y, x) - dw Route24Blocks, Route24Texts, Route24Script ; blocks, texts, scripts - db SOUTH | EAST ; connections - - ; connections data - - db CERULEAN_CITY - dw $4832, $c838 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $00, $0a ; alignments (y, x) - dw $c703 ; window - - db ROUTE_25 - dw $4810, $c725 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c70d ; window - - ; end connection data - - dw Route24Object ; objects - -Route24Object: ; 0x506a4 (size=67) - db $2c ; border tile - - db $0 ; warps - - db $0 ; signs - - db $8 ; people - db SPRITE_BLACK_HAIR_BOY_1, $f + 4, $b + 4, $ff, $d2, $41, ROCKET + $C8, $6 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $14 + 4, $5 + 4, $ff, $d1, $42, JR__TRAINER_M + $C8, $2 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $13 + 4, $b + 4, $ff, $d2, $43, JR__TRAINER_M + $C8, $3 ; trainer - db SPRITE_LASS, $16 + 4, $a + 4, $ff, $d3, $44, LASS + $C8, $7 ; trainer - db SPRITE_BUG_CATCHER, $19 + 4, $b + 4, $ff, $d2, $45, YOUNGSTER + $C8, $4 ; trainer - db SPRITE_LASS, $1c + 4, $a + 4, $ff, $d3, $46, LASS + $C8, $8 ; trainer - db SPRITE_BUG_CATCHER, $1f + 4, $b + 4, $ff, $d2, $47, BUG_CATCHER + $C8, $9 ; trainer - db SPRITE_BALL, $5 + 4, $a + 4, $ff, $ff, $88, TM_45 ; item - -Route24Blocks: ; 180 - INCBIN "maps/route24.blk" - -Route25_h: ; 0x5079b to 0x507b2 (23 bytes) (id=36) - db $00 ; tileset - db $09, $1e ; dimensions (y, x) - dw Route25Blocks, Route25Texts, Route25Script ; blocks, texts, scripts - db WEST ; connections - - ; connections data - - db ROUTE_24 - dw $46ee, $c754 ; pointers (connected, current) (strip) - db $0c, $0a ; bigness, width - db $00, $13 ; alignments (y, x) - dw $c702 ; window - - ; end connection data - - dw Route25Object ; objects - -Route25Object: ; 0x507b2 (size=94) - db $2c ; border tile - - db $1 ; warps - db $3, $2d, $0, BILLS_HOUSE - - db $1 ; signs - db $3, $2b, $b ; Route25Text11 - - db $a ; people - db SPRITE_BUG_CATCHER, $2 + 4, $e + 4, $ff, $d0, $41, YOUNGSTER + $C8, $5 ; trainer - db SPRITE_BUG_CATCHER, $5 + 4, $12 + 4, $ff, $d1, $42, YOUNGSTER + $C8, $6 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $18 + 4, $ff, $d0, $43, JR__TRAINER_M + $C8, $2 ; trainer - db SPRITE_LASS, $8 + 4, $12 + 4, $ff, $d3, $44, LASS + $C8, $9 ; trainer - db SPRITE_BUG_CATCHER, $3 + 4, $20 + 4, $ff, $d2, $45, YOUNGSTER + $C8, $7 ; trainer - db SPRITE_LASS, $4 + 4, $25 + 4, $ff, $d0, $46, LASS + $C8, $a ; trainer - db SPRITE_HIKER, $4 + 4, $8 + 4, $ff, $d3, $47, HIKER + $C8, $2 ; trainer - db SPRITE_HIKER, $9 + 4, $17 + 4, $ff, $d1, $48, HIKER + $C8, $3 ; trainer - db SPRITE_HIKER, $7 + 4, $d + 4, $ff, $d3, $49, HIKER + $C8, $4 ; trainer - db SPRITE_BALL, $2 + 4, $16 + 4, $ff, $ff, $8a, TM_19 ; item - - ; warp-to - EVENT_DISP $1e, $3, $2d ; BILLS_HOUSE - -Route25Blocks: ; 270 - INCBIN "maps/route25.blk" - -IndigoPlateau_h: ; 0x5091e to 0x50935 (23 bytes) (id=9) - db $17 ; tileset - db $09, $0a ; dimensions (y, x) - dw IndigoPlateauBlocks, $4936, IndigoPlateauScript ; blocks, texts, scripts - db SOUTH ; connections - - ; connections data - - db ROUTE_23 - dw $43b2, $c7ab ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw IndigoPlateauObject ; objects - -IndigoPlateauScript: ; 0x50935 - ret -; 0x50936 - -IndigoPlateauObject: ; 0x50936 (size=20) - db $e ; border tile - - db $2 ; warps - db $5, $9, $0, INDIGO_PLATEAU_LOBBY - db $5, $a, $0, INDIGO_PLATEAU_LOBBY - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $a, $5, $9 ; INDIGO_PLATEAU_LOBBY - EVENT_DISP $a, $5, $a ; INDIGO_PLATEAU_LOBBY - -IndigoPlateauBlocks: ; 90 - INCBIN "maps/indigoplateau.blk" - -SaffronCity_h: ; 0x509a4 to 0x509dc (56 bytes) (id=10) - db $00 ; tileset - db $12, $14 ; dimensions (y, x) - dw SaffronCityBlocks, SaffronCityTexts, SaffronCityScript ; blocks, texts, scripts - db NORTH | SOUTH | WEST | EAST ; connections - - ; connections data - - db ROUTE_5 - dw $4668, $c6f0 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $23, $f6 ; alignments (y, x) - dw $c809 ; window - - db ROUTE_6 - dw $4079, $c912 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $f6 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_7 - dw $4058, $c79e ; pointers (connected, current) (strip) - db $09, $0a ; bigness, width - db $f8, $13 ; alignments (y, x) - dw $c702 ; window - - db ROUTE_8 - dw $41c6, $c7b5 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $f8, $00 ; alignments (y, x) - dw $c70d ; window - - ; end connection data - - dw SaffronCityObject ; objects - -SaffronCityObject: ; 0x509dc (size=188) - db $f ; border tile - - db $8 ; warps - db $5, $7, $0, COPYCATS_HOUSE_1F - db $3, $1a, $0, FIGHTINGDOJO - db $3, $22, $0, SAFFRON_GYM - db $b, $d, $0, SAFFRON_HOUSE_1 - db $b, $19, $0, SAFFRON_MART - db $15, $12, $0, SILPH_CO_1F - db $1d, $9, $0, SAFFRON_POKECENTER - db $1d, $1d, $0, SAFFRON_HOUSE_2 - - db $a ; signs - db $5, $11, $10 ; SaffronCityText16 - db $5, $1b, $11 ; SaffronCityText17 - db $5, $23, $12 ; SaffronCityText18 - db $b, $1a, $13 ; SaffronCityText19 - db $13, $27, $14 ; SaffronCityText20 - db $15, $5, $15 ; SaffronCityText21 - db $15, $f, $16 ; SaffronCityText22 - db $1d, $a, $17 ; SaffronCityText23 - db $1d, $1b, $18 ; SaffronCityText24 - db $13, $1, $19 ; SaffronCityText25 - - db $f ; people - db SPRITE_ROCKET, $6 + 4, $7 + 4, $ff, $ff, $1 ; person - db SPRITE_ROCKET, $8 + 4, $14 + 4, $fe, $2, $2 ; person - db SPRITE_ROCKET, $4 + 4, $22 + 4, $ff, $ff, $3 ; person - db SPRITE_ROCKET, $c + 4, $d + 4, $ff, $ff, $4 ; person - db SPRITE_ROCKET, $19 + 4, $b + 4, $fe, $2, $5 ; person - db SPRITE_ROCKET, $d + 4, $20 + 4, $fe, $2, $6 ; person - db SPRITE_ROCKET, $1e + 4, $12 + 4, $fe, $2, $7 ; person - db SPRITE_OAK_AIDE, $e + 4, $8 + 4, $fe, $0, $8 ; person - db SPRITE_LAPRAS_GIVER, $17 + 4, $17 + 4, $ff, $ff, $9 ; person - db SPRITE_ERIKA, $1e + 4, $11 + 4, $fe, $2, $a ; person - db SPRITE_GENTLEMAN, $c + 4, $1e + 4, $ff, $d0, $b ; person - db SPRITE_BIRD, $c + 4, $1f + 4, $ff, $d0, $c ; person - db SPRITE_ROCKER, $8 + 4, $12 + 4, $ff, $d1, $d ; person - db SPRITE_ROCKET, $16 + 4, $12 + 4, $ff, $d0, $e ; person - db SPRITE_ROCKET, $16 + 4, $13 + 4, $ff, $d0, $f ; person - - ; warp-to - EVENT_DISP $14, $5, $7 ; COPYCATS_HOUSE_1F - EVENT_DISP $14, $3, $1a ; FIGHTINGDOJO - EVENT_DISP $14, $3, $22 ; SAFFRON_GYM - EVENT_DISP $14, $b, $d ; SAFFRON_HOUSE_1 - EVENT_DISP $14, $b, $19 ; SAFFRON_MART - EVENT_DISP $14, $15, $12 ; SILPH_CO_1F - EVENT_DISP $14, $1d, $9 ; SAFFRON_POKECENTER - EVENT_DISP $14, $1d, $1d ; SAFFRON_HOUSE_2 - -SaffronCityBlocks: ; 360 - INCBIN "maps/saffroncity.blk" - -SaffronCityScript: ; 0x50c00 - jp $3c3c -; 0x50c03 - -SaffronCityTexts: ; 0x50c03 - dw SaffronCityText1, SaffronCityText2, SaffronCityText3, SaffronCityText4, SaffronCityText5, SaffronCityText6, SaffronCityText7, SaffronCityText8, SaffronCityText9, SaffronCityText10, SaffronCityText11, SaffronCityText12, SaffronCityText13, SaffronCityText14, SaffronCityText15, SaffronCityText16, SaffronCityText17, SaffronCityText18, SaffronCityText19, SaffronCityText20, SaffronCityText21, SaffronCityText22, SaffronCityText23, SaffronCityText24, SaffronCityText25 - -SaffronCityText1: ; 0x50c35 - TX_FAR _SaffronCityText1 - db $50 - -SaffronCityText2: ; 0x50c3a - TX_FAR _SaffronCityText2 - db $50 - -SaffronCityText3: ; 0x50c3f - TX_FAR _SaffronCityText3 - db $50 - -SaffronCityText4: ; 0x50c44 - TX_FAR _SaffronCityText4 - db $50 - -SaffronCityText5: ; 0x50c49 - TX_FAR _SaffronCityText5 - db $50 - -SaffronCityText6: ; 0x50c4e - TX_FAR _SaffronCityText6 - db $50 - -SaffronCityText7: ; 0x50c53 - TX_FAR _SaffronCityText7 - db $50 - -SaffronCityText8: ; 0x50c58 - TX_FAR _SaffronCityText8 - db $50 - -SaffronCityText9: ; 0x50c5d - TX_FAR _SaffronCityText9 - db $50 - -SaffronCityText10: ; 0x50c62 - TX_FAR _SaffronCityText10 - db $50 - -SaffronCityText11: ; 0x50c67 - TX_FAR _SaffronCityText11 - db $50 - -SaffronCityText12: ; 0x50c6c - TX_FAR _SaffronCityText12 - -INCBIN "baserom.gbc",$50c70,$50c72 - $50c70 - -SaffronCityText13: ; 0x50c72 - TX_FAR _SaffronCityText13 - db $50 - -SaffronCityText14: ; 0x50c77 - TX_FAR _SaffronCityText14 - db $50 - -SaffronCityText15: ; 0x50c7c - TX_FAR _SaffronCityText15 - db $50 - -SaffronCityText16: ; 0x50c81 - TX_FAR _SaffronCityText16 - db $50 - -SaffronCityText17: ; 0x50c86 - TX_FAR _SaffronCityText17 - db $50 - -SaffronCityText18: ; 0x50c8b - TX_FAR _SaffronCityText18 - db $50 - -SaffronCityText20: ; 0x50c90 - TX_FAR _SaffronCityText20 - db $50 - -SaffronCityText21: ; 0x50c95 - TX_FAR _SaffronCityText21 - db $50 - -SaffronCityText22: ; 0x50c9a - TX_FAR _SaffronCityText22 - db $50 - -SaffronCityText24: ; 0x50c9f - TX_FAR _SaffronCityText24 - db $50 - -SaffronCityText25: ; 0x50ca4 - TX_FAR _SaffronCityText25 - db $50 - -Route20Script: ; 0x50ca9 - ld hl, $d7e7 - bit 0, [hl] - res 0, [hl] - call nz, $4cc6 - call $3c3c - ld hl, $4d3a - ld de, $4d1c - ld a, [$d628] - call $3160 - ld [$d628], a - ret -; 0x50cc6 - -INCBIN "baserom.gbc",$50cc6,$5c - -Route20Texts: ; 0x50d22 - dw Route20Text1, Route20Text2, Route20Text3, Route20Text4, Route20Text5, Route20Text6, Route20Text7, Route20Text8, Route20Text9, Route20Text10, Route20Text11, Route20Text12 - -INCBIN "baserom.gbc",$50d3a,$79 - -Route20Text1: ; 0x50db3 - db $08 ; asm - ld hl, $4d3a - call LoadTrainerHeader - jp $24d7 - -Route20Text2: ; 0x50dbd - db $08 ; asm - ld hl, $4d46 - call LoadTrainerHeader - jp $24d7 - -Route20Text3: ; 0x50dc7 - db $08 ; asm - ld hl, $4d52 - call LoadTrainerHeader - jp $24d7 - -Route20Text4: ; 0x50dd1 - db $08 ; asm - ld hl, $4d5e - call LoadTrainerHeader - jp $24d7 - -Route20Text5: ; 0x50ddb - db $08 ; asm - ld hl, $4d6a - call LoadTrainerHeader - jp $24d7 - -Route20Text6: ; 0x50de5 - db $08 ; asm - ld hl, $4d76 - call LoadTrainerHeader - jp $24d7 - -Route20Text7: ; 0x50def - db $08 ; asm - ld hl, $4d82 - call LoadTrainerHeader - jp $24d7 - -Route20Text8: ; 0x50df9 - db $08 ; asm - ld hl, $4d8e - call LoadTrainerHeader - jp $24d7 - -Route20Text9: ; 0x50e03 - db $08 ; asm - ld hl, $4d9a - call LoadTrainerHeader - jp $24d7 - -Route20Text10: ; 0x50e0d - db $08 ; asm - ld hl, $4da6 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$50e17,$96 - -Route20Text12: -Route20Text11: ; 0x50ead - TX_FAR _Route20Text11 - db $50 - -Route22Script: ; 0x50eb2 - call $3c3c - ld hl, $4ebe - ld a, [$d60a] - jp $3d97 -; 0x50ebe - -Route22Scripts: ; 0x50ebe - dw Route22Script0, Route22Script1, Route22Script2, Route22Script3 - -INCBIN "baserom.gbc",$50ec6,$3a - -Route22Script0: ; 0x50f00 - ld a, [$d7eb] - bit 7, a - ret z - ld hl, $4f2d - call $34bf - ret nc - ld a, [$cd3d] - ld [$cf0d], a - xor a - ld [$ff00+$b4], a - ld a, $f0 - ld [$cd6b], a - ld a, $2 - ld [$d528], a - ld a, [$d7eb] - bit 0, a - jr nz, .asm_50f32 ; 0x50f25 $b - bit 1, a - jp nz, $504e - ret - inc b - dec e - dec b - dec e - rst $38 -.asm_50f32 - ld a, $1 - ld [$cd4f], a - xor a - ld [$cd50], a - ld a, $4c - call Predef - ld a, [$d700] - and a - jr z, .asm_50f4e ; 0x50f44 $8 - ld a, $ff - ld [$c0ee], a - call $23b1 -.asm_50f4e - ld c, $2 - ld a, $de - call $23a1 - ld a, $1 - ld [$ff00+$8c], a - call $4ee6 - ld a, $1 - ld [$d60a], a - ret -; 0x50f62 - -Route22Script1: ; 0x50f62 - ld a, [$d730] - bit 0, a - ret nz - ld a, [$cf0d] - cp $1 - jr nz, .asm_50f78 ; 0x50f6d $9 - ld a, $4 - ld [$d528], a - ld a, $4 - jr .asm_50f7a ; 0x50f76 $2 -.asm_50f78 - ld a, $c -.asm_50f7a - ld [$ff00+$8d], a - ld a, $1 - ld [$ff00+$8c], a - call $34a6 - xor a - ld [$cd6b], a - ld a, $1 - ld [$ff00+$8c], a - call $2920 - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $51b7 - ld de, $51bc - call $3354 - ld a, $e1 - ld [$d059], a - ld hl, $4faf - call $4ed6 - ld a, $2 - ld [$d60a], a - ret -; 0x50faf - -INCBIN "baserom.gbc",$50faf,$50fb5 - $50faf - -Route22Script2: ; 0x50fb5 - ld a, [$d057] - cp $ff - jp z, $4ece - ld a, [$c109] - and a - jr nz, .asm_50fc7 ; 0x50fc1 $4 - ld a, $4 - jr .asm_50fc9 ; 0x50fc5 $2 -.asm_50fc7 - ld a, $c -.asm_50fc9 - ld [$ff00+$8d], a - ld a, $1 - ld [$ff00+$8c], a - call $34a6 - ld a, $f0 - ld [$cd6b], a - ld hl, $d7eb - set 5, [hl] - ld a, $1 - ld [$ff00+$8c], a - call $2920 - ld a, $ff - ld [$c0ee], a - call $23b1 - ld b, $2 - ld hl, $5b47 - call Bankswitch - ld a, [$cf0d] - cp $1 - jr nz, .asm_50fff ; 0x50ff8 $5 - call $5008 - jr .asm_51002 ; 0x50ffd $3 -.asm_50fff - call $500d -.asm_51002 - ld a, $3 - ld [$d60a], a - ret -; 0x51008 - -INCBIN "baserom.gbc",$51008,$5102a - $51008 - -Route22Script3: ; 0x5102a - ld a, [$d730] - bit 0, a - ret nz - xor a - ld [$cd6b], a - ld a, $22 - ld [$cc4d], a - ld a, $11 - call Predef - call $2307 - ld hl, $d7eb - res 0, [hl] - res 7, [hl] - ld a, $0 - ld [$d60a], a - ret -; 0x5104e - -INCBIN "baserom.gbc",$5104e,$127 - -Route22Texts: ; 0x51175 - dw Route22Text1, Route22Text2, Route22Text3 - -Route22Text1: ; 0x5117b - db $08 ; asm - ld a, [$d7eb] - bit 5, a - jr z, .asm_a88cf ; 0x51181 - ld hl, $51b2 - call PrintText - jr .asm_48088 ; 0x51189 -.asm_a88cf ; 0x5118b - ld hl, $51ad - call PrintText -.asm_48088 ; 0x51191 - jp $24d7 - -Route22Text2: ; 0x51194 - db $08 ; asm - ld a, [$d7eb] - bit 6, a - jr z, .asm_58c0a ; 0x5119a - ld hl, $51c6 - call PrintText - jr .asm_673ee ; 0x511a2 -.asm_58c0a ; 0x511a4 - ld hl, $51c1 - call PrintText -.asm_673ee ; 0x511aa - jp $24d7 - -INCBIN "baserom.gbc",$511ad,$28 - -Route22Text3: ; 0x511d5 - TX_FAR _Route22Text3 - db $50 - -Route23Script: ; 0x511da - call $51e9 - call $3c3c - ld hl, $5213 - ld a, [$d667] - jp $3d97 -; 0x511e9 - -INCBIN "baserom.gbc",$511e9,$51213 - $511e9 - -Route23Scripts: ; 0x51213 - dw Route23Script0 - -INCBIN "baserom.gbc",$51215,$4 - -Route23Script0: ; 0x51219 - ld hl, $5255 - ld a, [$d361] - ld b, a - ld e, $0 - ld c, $7 -.asm_51224 - ld a, [hli] - cp $ff - ret z - inc e - dec c - cp b - jr nz, .asm_51224 ; 0x5122b $f7 - cp $23 - jr nz, .asm_51237 ; 0x5122f $6 - ld a, [$d362] - cp $e - ret nc -.asm_51237 - ld a, e - ld [$ff00+$8c], a - ld a, c - ld [$cd3d], a - ld b, $2 - ld hl, $d7ed - ld a, $10 - call Predef - ld a, c - and a - ret nz - call $525d - call $2920 - xor a - ld [$ff00+$b4], a - ret -; 0x51255 - -INCBIN "baserom.gbc",$51255,$a2 - -Route23Texts: ; 0x512f7 - dw Route23Text1, Route23Text2, Route23Text3, Route23Text4, Route23Text5, Route23Text6, Route23Text7, Route23Text8 - -Route23Text1: ; 0x51307 - db $08 ; asm - ld a, $6 - call $5346 - jp $24d7 - -Route23Text2: ; 0x51310 - db $08 ; asm - ld a, $5 - call $5346 - jp $24d7 - -Route23Text3: ; 0x51319 - db $08 ; asm - ld a, $4 - call $5346 - jp $24d7 - -Route23Text4: ; 0x51322 - db $08 ; asm - ld a, $3 - call $5346 - jp $24d7 - -Route23Text5: ; 0x5132b - db $08 ; asm - ld a, $2 - call $5346 - jp $24d7 - -Route23Text6: ; 0x51334 - db $08 ; asm - ld a, $1 - call $5346 - jp $24d7 - -Route23Text7: ; 0x5133d - db $8 - ld a, $0 - call $5346 - jp $24d7 -; 0x51346 - -INCBIN "baserom.gbc",$51346,$62 - -Route23Text8: ; 0x513a8 - TX_FAR _Route23Text8 - db $50 - -Route24Script: ; 0x513ad - call $3c3c - ld hl, $545b - ld de, $53cb - ld a, [$d602] - call $3160 - ld [$d602], a - ret -; 0x513c0 - -INCBIN "baserom.gbc",$513c0,$8b - -Route24Texts: ; 0x5144b - dw Route24Text1, Route24Text2, Route24Text3, Route24Text4, Route24Text5, Route24Text6, Route24Text7, Route24Text8 - -INCBIN "baserom.gbc",$5145b,$49 - -Route24Text1: ; 0x514a4 - db $8 - ld hl, $d7f0 - res 1, [hl] - ld a, [$d7ef] - bit 0, a - jr nz, .asm_a03f5 ; 0x514af $48 - ld hl, $5510 - call PrintText - ld bc, $3101 - call GiveItem - jr nc, .asm_3a23d ; 0x514bd $43 - ld hl, $d7ef - set 0, [hl] - ld hl, $551a - call PrintText - ld hl, $5526 - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $552b - ld de, $552b - call $3354 - ld a, [$ff00+$8c] - ld [$cf13], a - call $336a - call $32d7 - xor a - ld [$ff00+$b4], a - ld a, $3 - ld [$d602], a - ld [$da39], a - jp $24d7 -.asm_a03f5 ; 0x514f9 - ld hl, $5530 - call PrintText - jp $24d7 -.asm_3a23d ; 0x51502 - ld hl, $5521 - call PrintText - ld hl, $d7f0 - set 1, [hl] - jp $24d7 -; 0x51510 - -INCBIN "baserom.gbc",$51510,$25 - -Route24Text2: ; 0x51535 - db $08 ; asm - ld hl, $545b - call LoadTrainerHeader - jp $24d7 - -Route24Text3: ; 0x5153f - db $08 ; asm - ld hl, $5467 - call LoadTrainerHeader - jp $24d7 - -Route24Text4: ; 0x51549 - db $08 ; asm - ld hl, $5473 - call LoadTrainerHeader - jp $24d7 - -Route24Text5: ; 0x51553 - db $08 ; asm - ld hl, $547f - call LoadTrainerHeader - jp $24d7 - -Route24Text6: ; 0x5155d - db $08 ; asm - ld hl, $548b - call LoadTrainerHeader - jp $24d7 - -Route24Text7: ; 0x51567 - db $08 ; asm - ld hl, $5497 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$51571,$515cb - $51571 - -Route25Script: ; 0x515cb - call $55e1 - call $3c3c - ld hl, $563e - ld de, $5622 - ld a, [$d603] - call $3160 - ld [$d603], a - ret -; 0x515e1 - -INCBIN "baserom.gbc",$515e1,$47 - -Route25Texts: ; 0x51628 - dw Route25Text1, Route25Text2, Route25Text3, Route25Text4, Route25Text5, Route25Text6, Route25Text7, Route25Text8, Route25Text9, Route25Text10, Route25Text11 - -INCBIN "baserom.gbc",$5163e,$6d - -Route25Text1: ; 0x516ab - db $08 ; asm - ld hl, $563e - call LoadTrainerHeader - jp $24d7 - -Route25Text2: ; 0x516b5 - db $08 ; asm - ld hl, $564a - call LoadTrainerHeader - jp $24d7 - -Route25Text3: ; 0x516bf - db $08 ; asm - ld hl, $5656 - call LoadTrainerHeader - jp $24d7 - -Route25Text4: ; 0x516c9 - db $08 ; asm - ld hl, $5662 - call LoadTrainerHeader - jp $24d7 - -Route25Text5: ; 0x516d3 - db $08 ; asm - ld hl, $566e - call LoadTrainerHeader - jp $24d7 - -Route25Text6: ; 0x516dd - db $08 ; asm - ld hl, $567a - call LoadTrainerHeader - jp $24d7 - -Route25Text7: ; 0x516e7 - db $08 ; asm - ld hl, $5686 - call LoadTrainerHeader - jp $24d7 - -Route25Text8: ; 0x516f1 - db $08 ; asm - ld hl, $5692 - call LoadTrainerHeader - jp $24d7 - -Route25Text9: ; 0x516fb - db $08 ; asm - ld hl, $569e - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$51705,$87 - -Route25Text11: ; 0x5178c - TX_FAR _Route25Text11 - db $50 - -VictoryRoad2_h: ; 0x51791 to 0x5179d (12 bytes) (id=194) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw VictoryRoad2Blocks, VictoryRoad2Texts, VictoryRoad2Script ; blocks, texts, scripts - db $00 ; connections - - dw VictoryRoad2Object ; objects - -VictoryRoad2Script: ; 0x5179d - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - call nz, $57c4 - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - call nz, $57c9 - call $3c3c - ld hl, $5835 - ld de, $57eb - ld a, [$d63f] - call $3160 - ld [$d63f], a - ret -; 0x517c4 - -INCBIN "baserom.gbc",$517c4,$57 - -VictoryRoad2Texts: ; 0x5181b - dw VictoryRoad2Text1, VictoryRoad2Text2, VictoryRoad2Text3, VictoryRoad2Text4, VictoryRoad2Text5, VictoryRoad2Text6, VictoryRoad2Text7, VictoryRoad2Text8, VictoryRoad2Text9, VictoryRoad2Text10, VictoryRoad2Text11, VictoryRoad2Text12, VictoryRoad2Text13 - -INCBIN "baserom.gbc",$51835,$49 - -VictoryRoad2Text1: ; 0x5187e - db $08 ; asm - ld hl, $5835 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad2Text2: ; 0x51888 - db $08 ; asm - ld hl, $5841 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad2Text3: ; 0x51892 - db $08 ; asm - ld hl, $584d - call LoadTrainerHeader - jp $24d7 - -VictoryRoad2Text4: ; 0x5189c - db $08 ; asm - ld hl, $5859 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad2Text5: ; 0x518a6 - db $08 ; asm - ld hl, $5865 - call LoadTrainerHeader - jp $24d7 - -VictoryRoad2Text6: ; 0x518b0 - db $08 ; asm - ld hl, $5871 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$518ba,$5b - -VictoryRoad2Object: ; 0x51915 (size=154) - db $7d ; border tile - - db $7 ; warps - db $8, $0, $2, VICTORY_ROAD_1 - db $7, $1d, $3, $ff - db $8, $1d, $3, $ff - db $7, $17, $0, VICTORY_ROAD_3 - db $e, $19, $2, VICTORY_ROAD_3 - db $7, $1b, $1, VICTORY_ROAD_3 - db $1, $1, $3, VICTORY_ROAD_3 - - db $0 ; signs - - db $d ; people - db SPRITE_HIKER, $9 + 4, $c + 4, $ff, $d2, $41, BLACKBELT + $C8, $9 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $d + 4, $15 + 4, $ff, $d2, $42, JUGGLER + $C8, $2 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $8 + 4, $13 + 4, $ff, $d0, $43, TAMER + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $4 + 4, $ff, $d0, $44, POKEMANIAC + $C8, $6 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $3 + 4, $1a + 4, $ff, $d2, $45, JUGGLER + $C8, $5 ; trainer - db SPRITE_BIRD, $5 + 4, $b + 4, $ff, $d1, $46, MOLTRES, $32 ; trainer - db SPRITE_BALL, $5 + 4, $1b + 4, $ff, $ff, $87, TM_17 ; item - db SPRITE_BALL, $9 + 4, $12 + 4, $ff, $ff, $88, FULL_HEAL ; item - db SPRITE_BALL, $b + 4, $9 + 4, $ff, $ff, $89, TM_05 ; item - db SPRITE_BALL, $0 + 4, $b + 4, $ff, $ff, $8a, GUARD_SPEC_ ; item - db SPRITE_BOULDER, $e + 4, $4 + 4, $ff, $10, $b ; person - db SPRITE_BOULDER, $5 + 4, $5 + 4, $ff, $10, $c ; person - db SPRITE_BOULDER, $10 + 4, $17 + 4, $ff, $10, $d ; person - - ; warp-to - EVENT_DISP $f, $8, $0 ; VICTORY_ROAD_1 - EVENT_DISP $f, $7, $1d - EVENT_DISP $f, $8, $1d - EVENT_DISP $f, $7, $17 ; VICTORY_ROAD_3 - EVENT_DISP $f, $e, $19 ; VICTORY_ROAD_3 - EVENT_DISP $f, $7, $1b ; VICTORY_ROAD_3 - EVENT_DISP $f, $1, $1 ; VICTORY_ROAD_3 - -VictoryRoad2Blocks: ; 135 - INCBIN "maps/victoryroad2.blk" - -MtMoon2_h: ; 0x51a36 to 0x51a42 (12 bytes) (id=60) - db $11 ; tileset - db $0e, $0e ; dimensions (y, x) - dw MtMoon2Blocks, $5a46, MtMoon2Script ; blocks, texts, scripts - db $00 ; connections - - dw MtMoon2Object ; objects - -MtMoon2Script: ; 0x51a42 - call $3c3c - ret -; 0x51a46 - -INCBIN "baserom.gbc",$51a46,$7 - -MtMoon2Object: ; 0x51a4d (size=68) - db $3 ; border tile - - db $8 ; warps - db $5, $5, $2, MT_MOON_1 - db $b, $11, $0, MT_MOON_3 - db $9, $19, $3, MT_MOON_1 - db $f, $19, $4, MT_MOON_1 - db $11, $15, $1, MT_MOON_3 - db $1b, $d, $2, MT_MOON_3 - db $3, $17, $3, MT_MOON_3 - db $3, $1b, $2, $ff - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $e, $5, $5 ; MT_MOON_1 - EVENT_DISP $e, $b, $11 ; MT_MOON_3 - EVENT_DISP $e, $9, $19 ; MT_MOON_1 - EVENT_DISP $e, $f, $19 ; MT_MOON_1 - EVENT_DISP $e, $11, $15 ; MT_MOON_3 - EVENT_DISP $e, $1b, $d ; MT_MOON_3 - EVENT_DISP $e, $3, $17 ; MT_MOON_3 - EVENT_DISP $e, $3, $1b - -MtMoon2Blocks: ; 196 - INCBIN "maps/mtmoon2.blk" - -SilphCo7_h: ; 0x51b55 to 0x51b61 (12 bytes) (id=212) - db $16 ; tileset - db $09, $0d ; dimensions (y, x) - dw SilphCo7Blocks, SilphCo7Texts, SilphCo7Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo7Object ; objects - -SilphCo7Script: ; 0x51b61 - call $5b77 - call $3c3c - ld hl, $5d5d - ld de, $5c17 - ld a, [$d648] - call $3160 - ld [$d648], a - ret -; 0x51b77 - -INCBIN "baserom.gbc",$51b77,$1c8 - -SilphCo7Texts: ; 0x51d3f - dw SilphCo7Text1, SilphCo7Text2, SilphCo7Text3, SilphCo7Text4, SilphCo7Text5, SilphCo7Text6, SilphCo7Text7, SilphCo7Text8, SilphCo7Text9, SilphCo7Text10, SilphCo7Text11, SilphCo7Text12, SilphCo7Text13, SilphCo7Text14, SilphCo7Text15 - -INCBIN "baserom.gbc",$51d55 + 8,$39 - 8 - -SilphCo7Text1: ; 0x51d8e - db $08 ; asm - ld a, [$d72e] - bit 0, a - jr z, .asm_d7e17 ; 0x51d94 - ld a, [$d838] - bit 7, a - jr nz, .asm_688b4 ; 0x51d9b - ld hl, $5ddd - call PrintText - jr .asm_b3069 ; 0x51da3 -.asm_d7e17 ; 0x51da5 - ld hl, $5dd3 - call PrintText - ld bc,(LAPRAS << 8) | 15 - call GivePokemon - jr nc, .asm_b3069 ; 0x51db1 - ld a, [$ccd3] - and a - call z, $3865 - call $3c3c - ld hl, $5dd8 - call PrintText - ld hl, $d72e - set 0, [hl] - jr .asm_b3069 ; 0x51dc8 -.asm_688b4 ; 0x51dca - ld hl, $5de2 - call PrintText -.asm_b3069 ; 0x51dd0 - jp $24d7 - -INCBIN "baserom.gbc",$51dd3,$51de7 - $51dd3 - -SilphCo7Text2: ; 0x51de7 - db $8 - ld a, [$d838] - bit 7, a - jr nz, .asm_892ce ; 0x51ded $8 - ld hl, $5e00 - call PrintText - jr .asm_e4d89 ; 0x51df5 $6 -.asm_892ce ; 0x51df7 - ld hl, $5e05 - call PrintText -.asm_e4d89 ; 0x51dfd - jp $24d7 -; 0x51e00 -INCBIN "baserom.gbc",$51e00,$a - -SilphCo7Text3: ; 0x51e0a - db $08 ; asm - ld a, [$d838] - bit 7, a - jr nz, .asm_254aa ; 0x51e10 - ld hl, $5e23 - call PrintText - jr .asm_6472b ; 0x51e18 -.asm_254aa ; 0x51e1a - ld hl, $5e28 - call PrintText -.asm_6472b ; 0x51e20 - jp $24d7 - -INCBIN "baserom.gbc",$51e23,$51e2d - $51e23 - -SilphCo7Text4: ; 0x51e2d - db $08 ; asm - ld a, [$d838] - bit 7, a - jr nz, .asm_0f7ee ; 0x51e33 - ld hl, $5e46 - call PrintText - jr .asm_27a32 ; 0x51e3b -.asm_0f7ee ; 0x51e3d - ld hl, $5e4b - call PrintText -.asm_27a32 ; 0x51e43 - jp $24d7 - -INCBIN "baserom.gbc",$51e46,$51e50 - $51e46 - -SilphCo7Text5: ; 0x51e50 - db $08 ; asm - ld hl, $5d5d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$51e5a,$51e69 - $51e5a - -SilphCo7Text6: ; 0x51e69 - db $08 ; asm - ld hl, $5d69 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$51e73,$51e82 - $51e73 - -SilphCo7Text7: ; 0x51e82 - db $08 ; asm - ld hl, $5d75 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$51e8c,$51e9b - $51e8c - -SilphCo7Text8: ; 0x51e9b - db $08 ; asm - ld hl, $5d81 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$51ea5,$51eb4 - $51ea5 - -SilphCo7Text9: ; 0x51eb4 - db $08 ; asm - ld hl, $5ebe - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$51ebe,$51ec3 - $51ebe - -SilphCo7Text13: ; 0x51ec3 -INCBIN "baserom.gbc",$51ec3,5 - -SilphCo7Text14: ; 0x51ec8 -INCBIN "baserom.gbc",$51ec8,5 - -INCBIN "baserom.gbc",$51ecd,$51ed2 - $51ecd - -SilphCo7Text15: ; 0x51ed2 -INCBIN "baserom.gbc",$51ed2,5 - -SilphCo7Object: ; 0x51ed7 (size=128) - db $2e ; border tile - - db $6 ; warps - db $0, $10, $1, SILPH_CO_8F - db $0, $16, $0, SILPH_CO_6F - db $0, $12, $0, SILPH_CO_ELEVATOR - db $7, $5, $3, SILPH_CO_11F - db $3, $5, $8, SILPH_CO_3F - db $f, $15, $3, SILPH_CO_5F - - db $0 ; signs - - db $b ; people - db SPRITE_LAPRAS_GIVER, $5 + 4, $1 + 4, $ff, $ff, $1 ; person - db SPRITE_LAPRAS_GIVER, $d + 4, $d + 4, $ff, $d1, $2 ; person - db SPRITE_LAPRAS_GIVER, $a + 4, $7 + 4, $ff, $ff, $3 ; person - db SPRITE_ERIKA, $8 + 4, $a + 4, $ff, $ff, $4 ; person - db SPRITE_ROCKET, $1 + 4, $d + 4, $ff, $d0, $45, ROCKET + $C8, $20 ; trainer - db SPRITE_OAK_AIDE, $d + 4, $2 + 4, $ff, $d0, $46, SCIENTIST + $C8, $8 ; trainer - db SPRITE_ROCKET, $2 + 4, $14 + 4, $ff, $d2, $47, ROCKET + $C8, $21 ; trainer - db SPRITE_ROCKET, $e + 4, $13 + 4, $ff, $d3, $48, ROCKET + $C8, $22 ; trainer - db SPRITE_BLUE, $7 + 4, $3 + 4, $ff, $d1, $9 ; person - db SPRITE_BALL, $9 + 4, $1 + 4, $ff, $ff, $8a, CALCIUM ; item - db SPRITE_BALL, $b + 4, $18 + 4, $ff, $ff, $8b, TM_03 ; item - - ; warp-to - EVENT_DISP $d, $0, $10 ; SILPH_CO_8F - EVENT_DISP $d, $0, $16 ; SILPH_CO_6F - EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR - EVENT_DISP $d, $7, $5 ; SILPH_CO_11F - EVENT_DISP $d, $3, $5 ; SILPH_CO_3F - EVENT_DISP $d, $f, $15 ; SILPH_CO_5F - -SilphCo7Blocks: ; 117 - INCBIN "maps/silphco7.blk" - -Mansion2_h: ; 0x51fcc to 0x51fd8 (12 bytes) (id=214) - db $16 ; tileset - db $0e, $0f ; dimensions (y, x) - dw $6110, $604d, $5fd8 ; blocks, texts, scripts - db $00 ; connections - - dw Mansion2Object ; objects - -INCBIN "baserom.gbc",$51fd8,$52064 - $51fd8 - -Mansion2Text1: ; 0x52064 - db $08 ; asm - ld hl, $6057 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5206e,$f - -Mansion2Text3: ; 0x5207d - TX_FAR _Mansion2Text3 - db $50 - -Mansion2Text4: ; 0x52082 - TX_FAR _Mansion2Text4 - db $50 - -INCBIN "baserom.gbc",$52087,$4a - -Mansion2Object: ; 0x520d1 (size=63) - db $1 ; border tile - - db $4 ; warps - db $a, $5, $4, MANSION_1 - db $a, $7, $0, MANSION_3 - db $e, $19, $2, MANSION_3 - db $1, $6, $1, MANSION_3 - - db $0 ; signs - - db $4 ; people - db SPRITE_BLACK_HAIR_BOY_2, $11 + 4, $3 + 4, $fe, $2, $41, BURGLAR + $C8, $7 ; trainer - db SPRITE_BALL, $7 + 4, $1c + 4, $ff, $ff, $82, CALCIUM ; item - db SPRITE_BOOK_MAP_DEX, $2 + 4, $12 + 4, $ff, $ff, $3 ; person - db SPRITE_BOOK_MAP_DEX, $16 + 4, $3 + 4, $ff, $ff, $4 ; person - - ; warp-to - EVENT_DISP $f, $a, $5 ; MANSION_1 - EVENT_DISP $f, $a, $7 ; MANSION_3 - EVENT_DISP $f, $e, $19 ; MANSION_3 - EVENT_DISP $f, $1, $6 ; MANSION_3 - -INCBIN "baserom.gbc",$52110,$d2 - -Mansion3_h: ; 0x521e2 to 0x521ee (12 bytes) (id=215) - db $16 ; tileset - db $09, $0f ; dimensions (y, x) - dw $6326, $628a, $61ee ; blocks, texts, scripts - db $00 ; connections - - dw Mansion3Object ; objects - -INCBIN "baserom.gbc",$521ee,$522af - $521ee - -Mansion3Text1: ; 0x522af - db $08 ; asm - ld hl, $6296 - call LoadTrainerHeader - jp $24d7 - -Mansion3Text2: ; 0x522b9 - db $08 ; asm - ld hl, $62a2 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$522c3,$522e1 - $522c3 - -Mansion3Text5: ; 0x522e1 - TX_FAR _Mansion3Text5 - db $50 - -Mansion3Object: ; 0x522e6 (size=64) - db $1 ; border tile - - db $3 ; warps - db $a, $7, $1, MANSION_2 - db $1, $6, $3, MANSION_2 - db $e, $19, $2, MANSION_2 - - db $0 ; signs - - db $5 ; people - db SPRITE_BLACK_HAIR_BOY_2, $b + 4, $5 + 4, $fe, $2, $41, BURGLAR + $C8, $8 ; trainer - db SPRITE_OAK_AIDE, $b + 4, $14 + 4, $ff, $d2, $42, SCIENTIST + $C8, $c ; trainer - db SPRITE_BALL, $10 + 4, $1 + 4, $ff, $ff, $83, MAX_POTION ; item - db SPRITE_BALL, $5 + 4, $19 + 4, $ff, $ff, $84, IRON ; item - db SPRITE_BOOK_MAP_DEX, $c + 4, $6 + 4, $ff, $ff, $5 ; person - - ; warp-to - EVENT_DISP $f, $a, $7 ; MANSION_2 - EVENT_DISP $f, $1, $6 ; MANSION_2 - EVENT_DISP $f, $e, $19 ; MANSION_2 - -INCBIN "baserom.gbc",$52326,$87 - -Mansion4_h: ; 0x523ad to 0x523b9 (12 bytes) (id=216) - db $16 ; tileset - db $0e, $0f ; dimensions (y, x) - dw $64dd, $6436, $63b9 ; blocks, texts, scripts - db $00 ; connections - - dw Mansion4Object ; objects - -INCBIN "baserom.gbc",$523b9,$52461 - $523b9 - -Mansion4Text1: ; 0x52461 - db $08 ; asm - ld hl, $6448 - call LoadTrainerHeader - jp $24d7 - -Mansion4Text2: ; 0x5246b - db $08 ; asm - ld hl, $6454 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$52475,$1e - -Mansion4Text7: ; 0x52493 - TX_FAR _Mansion4Text7 - db $50 - -Mansion4Object: ; 0x52498 (size=69) - db $1 ; border tile - - db $1 ; warps - db $16, $17, $5, MANSION_1 - - db $0 ; signs - - db $8 ; people - db SPRITE_BLACK_HAIR_BOY_2, $17 + 4, $10 + 4, $ff, $ff, $41, BURGLAR + $C8, $9 ; trainer - db SPRITE_OAK_AIDE, $b + 4, $1b + 4, $ff, $d0, $42, SCIENTIST + $C8, $d ; trainer - db SPRITE_BALL, $2 + 4, $a + 4, $ff, $ff, $83, RARE_CANDY ; item - db SPRITE_BALL, $16 + 4, $1 + 4, $ff, $ff, $84, FULL_RESTORE ; item - db SPRITE_BALL, $19 + 4, $13 + 4, $ff, $ff, $85, TM_14 ; item - db SPRITE_BALL, $4 + 4, $5 + 4, $ff, $ff, $86, TM_22 ; item - db SPRITE_BOOK_MAP_DEX, $14 + 4, $10 + 4, $ff, $ff, $7 ; person - db SPRITE_BALL, $d + 4, $5 + 4, $ff, $ff, $88, SECRET_KEY ; item - - ; warp-to - EVENT_DISP $f, $16, $17 ; MANSION_1 - -INCBIN "baserom.gbc",$524DD,$5271B - $524DD - -CeladonPrizeMenu: ; 14:671B - ld b,COIN_CASE - call IsItemInBag - jr nz,.havingCoinCase\@ - ld hl,RequireCoinCaseTextPtr - jp PrintText -.havingCoinCase\@ - ld hl,$D730 - set 6,[hl] - ld hl,ExchangeCoinsForPrizesTextPtr - call PrintText -; the following are the menu settings - xor a - ld [$CC26],a - ld [$CC2A],a - ld a,$03 - ld [$CC29],a - ld a,$03 - ld [$CC28],a - ld a,$04 - ld [$CC24],a - ld a,$01 - ld [$CC25],a - call PrintPrizePrice ; 687A - FuncCoord 0,2 - ld hl,Coord - ld b,$08 - ld c,$10 - call TextBoxBorder - call GetPrizeMenuId ;678E - call $2429 - ld hl,WhichPrizeTextPtr - call PrintText - call $3ABE ; menu choice handler - bit 1,a ; keypress = B (Cancel) - jr nz,.NoChoice\@ - ld a,[$CC26] - cp a,$03 ; "NO,THANKS" choice - jr z,.NoChoice\@ - call HandlePrizeChoice ; 14:68C6 -.NoChoice\@ - ld hl,$D730 - res 6,[hl] - ret - -RequireCoinCaseTextPtr: ; 14:677E - TX_FAR _RequireCoinCaseText ; 22:628E - db $0D - db "@" - -ExchangeCoinsForPrizesTextPtr: ; 14:6784 - TX_FAR _ExchangeCoinsForPrizesText ; 22:62A9 - db "@" - -WhichPrizeTextPtr: ; 14:6789 - TX_FAR _WhichPrizeText ; 22:62CD - db "@" - -GetPrizeMenuId: ; 14:678E -; determine which one among the three -; prize-texts has been selected -; using the text ID (stored in [$FF8C]) -; load the three prizes at $D13D-$D13F -; load the three prices ar $D141-$D146 -; display the three prizes' names -; (distinguishing between Pokemon names -; and Items (specifically TMs) names) - ld a,[$FF8C] - sub a,$03 ; prize-texts' id are 3, 4 and 5 - ld [$D12F],a ; prize-texts' id (relative, i.e. 0, 1 or 2) - add a - add a - ld d,$00 - ld e,a - ld hl,PrizeDifferentMenuPtrs - add hl,de - ld a,[hli] - ld d,[hl] - ld e,a - inc hl - push hl - ld hl,W_PRIZE1 - call $3829 ; XXX what does this do - pop hl - ld a,[hli] - ld h,[hl] - ld l,a - ld de,$D141 - ld bc,$0006 - call CopyData - ld a,[$D12F] - cp a,$02 ;is TM_menu? - jr nz,.putMonName\@ - ld a,[W_PRIZE1] - ld [$D11E],a - call GetItemName - FuncCoord 2,4 - ld hl,Coord - call PlaceString - ld a,[W_PRIZE2] - ld [$D11E],a - call GetItemName - FuncCoord 2,6 - ld hl,Coord - call PlaceString - ld a,[W_PRIZE3] - ld [$D11E],a - call GetItemName - FuncCoord 2,8 - ld hl,Coord - call PlaceString - jr .putNoThanksText\@ -.putMonName\@ ; 14:67EC - ld a,[W_PRIZE1] - ld [$D11E],a - call GetMonName - FuncCoord 2,4 - ld hl,Coord - call PlaceString - ld a,[W_PRIZE2] - ld [$D11E],a - call GetMonName - FuncCoord 2,6 - ld hl,Coord - call PlaceString - ld a,[W_PRIZE3] - ld [$D11E],a - call GetMonName - FuncCoord 2,8 - ld hl,Coord - call PlaceString -.putNoThanksText\@ ; 14:6819 - FuncCoord 2,10 - ld hl,Coord - ld de,NoThanksText - call PlaceString -; put prices on the right side of the textbox - ld de,$D141 - FuncCoord 13,5 - ld hl,Coord -; reg. c: -; [low nybble] number of bytes -; [bit 765 = %100] space-padding (not zero-padding) - ld c,(1 << 7 | 2) -; Function $15CD displays BCD value (same routine -; used by text-command $02) - call $15CD ; Print_BCD - ld de,$D143 - FuncCoord 13,7 - ld hl,Coord - ld c,(%1 << 7 | 2) - call $15CD - ld de,$D145 - FuncCoord 13,9 - ld hl,Coord - ld c,(1 << 7 | 2) - jp $15CD - -PrizeDifferentMenuPtrs: ; 14:6843 - dw PrizeMenuMon1Entries - dw PrizeMenuMon1Cost - - dw PrizeMenuMon2Entries - dw PrizeMenuMon2Cost - - dw PrizeMenuTMsEntries - dw PrizeMenuTMsCost - -NoThanksText: ; 14:684F - db "NO THANKS@" - -PrizeMenuMon1Entries: ; 14:6859 - db ABRA - db CLEFAIRY - db NIDORINA - db "@" -PrizeMenuMon1Cost: ; 14:685D - db $01,$80 - db $05,$00 - db $12,$00 - db "@" - -PrizeMenuMon2Entries: ; 14:6864 - db DRATINI - db SCYTHER - db PORYGON - db "@" -PrizeMenuMon2Cost: ; 14:6868 - db $28,$00 ; 2800 Coins - db $55,$00 ; 5500 Coins - db $99,$99 ; 9999 Coins - db "@" - -PrizeMenuTMsEntries: ; 14:686F - db TM_23 - db TM_15 - db TM_50 - db "@" -PrizeMenuTMsCost: ; 14:6873 - db $33,$00 ; 3300 Coins - db $55,$00 ; 5500 Coins - db $77,$00 ; 7700 Coins - db "@" - -PrintPrizePrice: ; 14:687A - FuncCoord 11,0 - ld hl,Coord - ld b,$01 - ld c,$07 - call TextBoxBorder - call $2429 ; XXX save OAM? - FuncCoord 12,0 - ld hl,Coord - ld de,.CoinText\@ - call PlaceString - FuncCoord 13,1 - ld hl,Coord - ld de,.SixSpacesText\@ - call PlaceString - FuncCoord 13,1 - ld hl,Coord - ld de,W_PLAYERCOINS1 - ld c,%10000010 - call $15CD - ret - -.CoinText\@ ; 14:68A5 - db "COIN@" - -.SixSpacesText\@ ; 14:68AA - db " @" - -LoadCoinsToSubtract: ; 14:68B1 - ld a,[$D139] ; backup of selected menu_entry - add a - ld d,$00 - ld e,a - ld hl,$D141 ; first prize's price - add hl,de ; get selected prize's price - xor a - ld [$FF9F],a - ld a,[hli] - ld [$FFA0],a - ld a,[hl] - ld [$FFA1],a - ret - -HandlePrizeChoice: ; 14:68C6 - ld a,[$CC26] ; selected menu_entry - ld [$D139],a - ld d,$00 - ld e,a - ld hl,W_PRIZE1 - add hl,de - ld a,[hl] - ld [$D11E],a - ld a,[$D12F] - cp a,$02 ; is prize a TM? - jr nz,.GetMonName\@ - call GetItemName - jr .GivePrize\@ -.GetMonName\@ ; 14:68E3 - call GetMonName -.GivePrize\@ ; 14:68E6 - ld hl,SoYouWantPrizeTextPtr - call PrintText - call $35EC ; yes/no textbox - ld a,[$CC26] ; yes/no answer (Y=0, N=1) - and a - jr nz,.PrintOhFineThen\@ - call LoadCoinsToSubtract - call $35B1 ; subtract COINs from COIN_CASE - jr c,.NotEnoughCoins\@ - ld a,[$D12F] - cp a,$02 - jr nz,.GiveMon\@ - ld a,[$D11E] - ld b,a - ld a,$01 - ld c,a - call $3E2E ; GiveItem - jr nc,.BagIsFull\@ - jr .SubtractCoins\@ -.GiveMon\@ ; 14:6912 - ld a,[$D11E] - ld [$CF91],a - push af - call GetPrizeMonLevel ; 14:6977 - ld c,a - pop af - ld b,a - call $3E48 ; GivePokemon - push af - ld a,[$CCD3] ; XXX is there room? - and a - call z,$3865 - pop af - ret nc -.SubtractCoins\@ ; 14:692C - call LoadCoinsToSubtract - ld hl,$FFA1 - ld de,W_PLAYERCOINS2 - ld c,$02 ; how many bytes - ld a,$0C - call Predef ; subtract coins (BCD daa operations) - jp PrintPrizePrice -.BagIsFull\@ ; 14:693F - ld hl,PrizeRoomBagIsFullTextPtr - jp PrintText -.NotEnoughCoins\@ ; 14:6945 - ld hl,SorryNeedMoreCoinsTextPtr - jp PrintText -.PrintOhFineThen\@ ; 14:694B - ld hl,OhFineThenTextPtr - jp PrintText - -UnknownData52951: ; 14:6951 -; XXX what's this? - db $00,$01,$00,$01,$00,$01,$00,$00,$01 - -HereYouGoTextPtr: - TX_FAR _HereYouGoText ; 22:62E7 - db $0D - db "@" - -SoYouWantPrizeTextPtr: ; 14:6960 - TX_FAR _SoYouWantPrizeText ; 22:62F6 - db "@" - -SorryNeedMoreCoinsTextPtr: ; 14:6965 - TX_FAR _SorryNeedMoreCoins ; 22:630B - db $0D - db "@" - -PrizeRoomBagIsFullTextPtr: ; 14:696B - TX_FAR _OopsYouDontHaveEnoughRoomText ; 22:6329 - db $0D - db "@" - -OhFineThenTextPtr: ; 14:6971 - TX_FAR _OhFineThenText; 22:634C - db $0D ; wait keypress (A/B) without blink - db "@" - -GetPrizeMonLevel: ; 14:6977 - ld a,[$CF91] - ld b,a - ld hl,PrizeMonLevelDictionary -.loop\@ ; 14:697E - ld a,[hli] - cp b - jr z,.matchFound\@ - inc hl - jr .loop\@ -.matchFound\@ ; 14:6985 - ld a,[hl] - ld [$D127],a - ret - -PrizeMonLevelDictionary: ; 14:698A - db ABRA,9 - db CLEFAIRY,8 - db NIDORINA,17 - - db DRATINI,18 - db SCYTHER,25 - db PORYGON,26 - -INCBIN "baserom.gbc",$52996,$54000 - $52996 - -SECTION "bank15",DATA,BANK[$15] - -INCBIN "baserom.gbc",$54000,$54022 - $54000 - -Route2Object: ; 0x54022 (size=72) - db $f ; border tile - - db $6 ; warps - db $9, $c, $0, DIGLETTS_CAVE_EXIT - db $b, $3, $1, VIRIDIAN_FOREST_EXIT - db $13, $f, $0, ROUTE_2_HOUSE - db $23, $10, $1, ROUTE_2_GATE - db $27, $f, $2, ROUTE_2_GATE - db $2b, $3, $2, VIRIDIAN_FOREST_ENTRANCE - - db $2 ; signs - db $41, $5, $3 ; Route2Text3 - db $b, $b, $4 ; Route2Text4 - - db $2 ; people - db SPRITE_BALL, $36 + 4, $d + 4, $ff, $ff, $81, MOON_STONE ; item - db SPRITE_BALL, $2d + 4, $d + 4, $ff, $ff, $82, HP_UP ; item - - ; warp-to - EVENT_DISP $a, $9, $c ; DIGLETTS_CAVE_EXIT - EVENT_DISP $a, $b, $3 ; VIRIDIAN_FOREST_EXIT - EVENT_DISP $a, $13, $f ; ROUTE_2_HOUSE - EVENT_DISP $a, $23, $10 ; ROUTE_2_GATE - EVENT_DISP $a, $27, $f ; ROUTE_2_GATE - EVENT_DISP $a, $2b, $3 ; VIRIDIAN_FOREST_ENTRANCE - -INCBIN "baserom.gbc",$5406a,$14 - -Route2Blocks: ; 360 - INCBIN "maps/route2.blk" - -Route3_h: ; 0x541e6 to 0x54208 (34 bytes) (id=14) - db $00 ; tileset - db $09, $23 ; dimensions (y, x) - dw Route3Blocks, Route3Texts, Route3Script ; blocks, texts, scripts - db NORTH | WEST ; connections - - ; connections data - - db ROUTE_4 - dw $44fa, $c704 ; pointers (connected, current) (strip) - db $0d, $2d ; bigness, width - db $11, $ce ; alignments (y, x) - dw $c8b4 ; window - - db PEWTER_CITY - dw $460b, $c6e8 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $27 ; alignments (y, x) - dw $c716 ; window - - ; end connection data - - dw Route3Object ; objects - -Route3Object: ; 0x54208 (size=77) - db $2c ; border tile - - db $0 ; warps - - db $1 ; signs - db $9, $3b, $a ; Route3Text10 - - db $9 ; people - db SPRITE_BLACK_HAIR_BOY_2, $b + 4, $39 + 4, $ff, $ff, $1 ; person - db SPRITE_BUG_CATCHER, $6 + 4, $a + 4, $ff, $d3, $42, BUG_CATCHER + $C8, $4 ; trainer - db SPRITE_BUG_CATCHER, $4 + 4, $e + 4, $ff, $d0, $43, YOUNGSTER + $C8, $1 ; trainer - db SPRITE_LASS, $9 + 4, $10 + 4, $ff, $d2, $44, LASS + $C8, $1 ; trainer - db SPRITE_BUG_CATCHER, $5 + 4, $13 + 4, $ff, $d0, $45, BUG_CATCHER + $C8, $5 ; trainer - db SPRITE_LASS, $4 + 4, $17 + 4, $ff, $d2, $46, LASS + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $9 + 4, $16 + 4, $ff, $d2, $47, YOUNGSTER + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $6 + 4, $18 + 4, $ff, $d3, $48, BUG_CATCHER + $C8, $6 ; trainer - db SPRITE_LASS, $a + 4, $21 + 4, $ff, $d1, $49, LASS + $C8, $3 ; trainer - -Route3Blocks: ; 315 - INCBIN "maps/route3.blk" - -Route4_h: ; 0x54390 to 0x543b2 (34 bytes) (id=15) - db $00 ; tileset - db $09, $2d ; dimensions (y, x) - dw Route4Blocks, Route4Texts, Route4Script; blocks, texts, scripts - db SOUTH | EAST ; connections - - ; connections data - - db ROUTE_3 - dw $426b, $c94c ; pointers (connected, current) (strip) - db $0d, $23 ; bigness, width - db $00, $32 ; alignments (y, x) - dw $c712 ; window - - db CERULEAN_CITY - dw $4844, $c718 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $00 ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route4Object ; objects - -Route4Object: ; 0x543b2 (size=58) - db $2c ; border tile - - db $3 ; warps - db $5, $b, $0, MT_MOON_POKECENTER - db $5, $12, $0, MT_MOON_1 - db $5, $18, $7, MT_MOON_2 - - db $3 ; signs - db $5, $c, $4 ; Route4Text4 - db $7, $11, $5 ; Route4Text5 - db $7, $1b, $6 ; Route4Text6 - - db $3 ; people - db SPRITE_LASS, $8 + 4, $9 + 4, $fe, $0, $1 ; person - db SPRITE_LASS, $3 + 4, $3f + 4, $ff, $d3, $42, LASS + $C8, $4 ; trainer - db SPRITE_BALL, $3 + 4, $39 + 4, $ff, $ff, $83, TM_04 ; item - - ; warp-to - EVENT_DISP $2d, $5, $b ; MT_MOON_POKECENTER - EVENT_DISP $2d, $5, $12 ; MT_MOON_1 - EVENT_DISP $2d, $5, $18 ; MT_MOON_2 - -Route4Blocks: ; 405 - INCBIN "maps/route4.blk" - -Route5_h: ; 0x54581 to 0x545a3 (34 bytes) (id=16) - db $00 ; tileset - db $12, $0a ; dimensions (y, x) - dw Route5Blocks, Route5Texts, Route5Script ; blocks, texts, scripts - db NORTH | SOUTH ; connections - - ; connections data - - db CERULEAN_CITY - dw $495e, $c6e8 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $23, $0a ; alignments (y, x) - dw $c8bd ; window - - db SAFFRON_CITY - dw $4a9a, $c838 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $00, $0a ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route5Object ; objects - -Route5Object: ; 0x545a3 (size=47) - db $a ; border tile - - db $5 ; warps - db $1d, $a, $3, ROUTE_5_GATE - db $1d, $9, $2, ROUTE_5_GATE - db $21, $a, $0, ROUTE_5_GATE - db $1b, $11, $0, PATH_ENTRANCE_ROUTE_5 - db $15, $a, $0, DAYCAREM - - db $1 ; signs - db $1d, $11, $1 ; Route5Text1 - - db $0 ; people - - ; warp-to - EVENT_DISP $a, $1d, $a ; ROUTE_5_GATE - EVENT_DISP $a, $1d, $9 ; ROUTE_5_GATE - EVENT_DISP $a, $21, $a ; ROUTE_5_GATE - EVENT_DISP $a, $1b, $11 ; PATH_ENTRANCE_ROUTE_5 - EVENT_DISP $a, $15, $a ; DAYCAREM - -Route5Blocks: ; 180 - INCBIN "maps/route5.blk" - -Route9_h: ; 0x54686 to 0x546a8 (34 bytes) (id=20) - db $00 ; tileset - db $09, $1e ; dimensions (y, x) - dw Route9Blocks, Route9Texts, Route9Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db CERULEAN_CITY - dw $4855, $c6e8 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $27 ; alignments (y, x) - dw $c716 ; window - - db ROUTE_10 - dw $4356, $c775 ; pointers (connected, current) (strip) - db $0c, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route9Object ; objects - -Route9Object: ; 0x546a8 (size=86) - db $2c ; border tile - - db $0 ; warps - - db $1 ; signs - db $7, $19, $b ; Route9Text11 - - db $a ; people - db SPRITE_LASS, $a + 4, $d + 4, $ff, $d2, $41, JR__TRAINER_F + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $18 + 4, $ff, $d2, $42, JR__TRAINER_M + $C8, $7 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $1f + 4, $ff, $d3, $43, JR__TRAINER_M + $C8, $8 ; trainer - db SPRITE_LASS, $8 + 4, $30 + 4, $ff, $d3, $44, JR__TRAINER_F + $C8, $6 ; trainer - db SPRITE_HIKER, $f + 4, $10 + 4, $ff, $d2, $45, HIKER + $C8, $b ; trainer - db SPRITE_HIKER, $3 + 4, $2b + 4, $ff, $d2, $46, HIKER + $C8, $6 ; trainer - db SPRITE_BUG_CATCHER, $2 + 4, $16 + 4, $ff, $d0, $47, BUG_CATCHER + $C8, $d ; trainer - db SPRITE_HIKER, $f + 4, $2d + 4, $ff, $d3, $48, HIKER + $C8, $5 ; trainer - db SPRITE_BUG_CATCHER, $8 + 4, $28 + 4, $ff, $d3, $49, BUG_CATCHER + $C8, $e ; trainer - db SPRITE_BALL, $f + 4, $a + 4, $ff, $ff, $8a, TM_30 ; item - -Route9Blocks: ; 270 - INCBIN "maps/route9.blk" - -Route13_h: ; 0x5480c to 0x5482e (34 bytes) (id=24) - db $00 ; tileset - db $09, $1e ; dimensions (y, x) - dw Route13Blocks, Route13Texts, Route13Script ; blocks, texts, scripts - db NORTH | WEST ; connections - - ; connections data - - db ROUTE_12 - dw $490e, $c6ff ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $6b, $d8 ; alignments (y, x) - dw $ca49 ; window - - db ROUTE_14 - dw $4a19, $c754 ; pointers (connected, current) (strip) - db $0c, $0a ; bigness, width - db $00, $13 ; alignments (y, x) - dw $c702 ; window - - ; end connection data - - dw Route13Object ; objects - -Route13Object: ; 0x5482e (size=93) - db $43 ; border tile - - db $0 ; warps - - db $3 ; signs - db $d, $f, $b ; Route13Text11 - db $5, $21, $c ; Route13Text12 - db $b, $1f, $d ; Route13Text13 - - db $a ; people - db SPRITE_BLACK_HAIR_BOY_1, $a + 4, $31 + 4, $ff, $d3, $41, BIRD_KEEPER + $C8, $1 ; trainer - db SPRITE_LASS, $a + 4, $30 + 4, $ff, $d0, $42, JR__TRAINER_F + $C8, $c ; trainer - db SPRITE_LASS, $9 + 4, $1b + 4, $ff, $d0, $43, JR__TRAINER_F + $C8, $d ; trainer - db SPRITE_LASS, $a + 4, $17 + 4, $ff, $d2, $44, JR__TRAINER_F + $C8, $e ; trainer - db SPRITE_LASS, $5 + 4, $32 + 4, $ff, $d0, $45, JR__TRAINER_F + $C8, $f ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $c + 4, $ff, $d3, $46, BIRD_KEEPER + $C8, $2 ; trainer - db SPRITE_FOULARD_WOMAN, $6 + 4, $21 + 4, $ff, $d0, $47, BEAUTY + $C8, $4 ; trainer - db SPRITE_FOULARD_WOMAN, $6 + 4, $20 + 4, $ff, $d0, $48, BEAUTY + $C8, $5 ; trainer - db SPRITE_BIKER, $7 + 4, $a + 4, $ff, $d1, $49, BIKER + $C8, $1 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $7 + 4, $ff, $d1, $4a, BIRD_KEEPER + $C8, $3 ; trainer - -Route13Blocks: ; 270 - INCBIN "maps/route13.blk" - -Route14_h: ; 0x54999 to 0x549bb (34 bytes) (id=25) - db $00 ; tileset - db $1b, $0a ; dimensions (y, x) - dw Route14Blocks, Route14Texts, Route14Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db ROUTE_15 - dw $49e7, $c838 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $dc, $3b ; alignments (y, x) - dw $c72a ; window - - db ROUTE_13 - dw $488b, $c725 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c70d ; window - - ; end connection data - - dw Route14Object ; objects - -Route14Object: ; 0x549bb (size=87) - db $43 ; border tile - - db $0 ; warps - - db $1 ; signs - db $d, $11, $b ; Route14Text11 - - db $a ; people - db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $4 + 4, $ff, $d0, $41, BIRD_KEEPER + $C8, $e ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $6 + 4, $f + 4, $ff, $d0, $42, BIRD_KEEPER + $C8, $f ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $b + 4, $c + 4, $ff, $d0, $43, BIRD_KEEPER + $C8, $10 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $f + 4, $e + 4, $ff, $d1, $44, BIRD_KEEPER + $C8, $11 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $1f + 4, $f + 4, $ff, $d2, $45, BIRD_KEEPER + $C8, $4 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $31 + 4, $6 + 4, $ff, $d1, $46, BIRD_KEEPER + $C8, $5 ; trainer - db SPRITE_BIKER, $27 + 4, $5 + 4, $ff, $d0, $47, BIKER + $C8, $d ; trainer - db SPRITE_BIKER, $1e + 4, $4 + 4, $ff, $d3, $48, BIKER + $C8, $e ; trainer - db SPRITE_BIKER, $1e + 4, $f + 4, $ff, $d2, $49, BIKER + $C8, $f ; trainer - db SPRITE_BIKER, $1f + 4, $4 + 4, $ff, $d3, $4a, BIKER + $C8, $2 ; trainer - -Route14Blocks: ; 270 - INCBIN "maps/route14.blk" - -Route17_h: ; 0x54b20 to 0x54b42 (34 bytes) (id=28) - db $00 ; tileset - db $48, $0a ; dimensions (y, x) - dw Route17Blocks, Route17Texts, Route17Script ; blocks, texts, scripts - db NORTH | SOUTH ; connections - - ; connections data - - db ROUTE_16 - dw $4bfc, $c6eb ; pointers (connected, current) (strip) - db $0d, $14 ; bigness, width - db $11, $00 ; alignments (y, x) - dw $c7d3 ; window - - db ROUTE_18 - dw $4c9c, $cb9b ; pointers (connected, current) (strip) - db $0d, $19 ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c708 ; window - - ; end connection data - - dw Route17Object ; objects - -Route17Object: ; 0x54b42 (size=102) - db $43 ; border tile - - db $0 ; warps - - db $6 ; signs - db $33, $9, $b ; Route17Text11 - db $3f, $9, $c ; Route17Text12 - db $4b, $9, $d ; Route17Text13 - db $57, $9, $e ; Route17Text14 - db $6f, $9, $f ; Route17Text15 - db $8d, $9, $10 ; Route17Text16 - - db $a ; people - db SPRITE_BIKER, $13 + 4, $c + 4, $ff, $d2, $41, CUE_BALL + $C8, $4 ; trainer - db SPRITE_BIKER, $10 + 4, $b + 4, $ff, $d3, $42, CUE_BALL + $C8, $5 ; trainer - db SPRITE_BIKER, $12 + 4, $4 + 4, $ff, $d1, $43, BIKER + $C8, $8 ; trainer - db SPRITE_BIKER, $20 + 4, $7 + 4, $ff, $d2, $44, BIKER + $C8, $9 ; trainer - db SPRITE_BIKER, $22 + 4, $e + 4, $ff, $d3, $45, BIKER + $C8, $a ; trainer - db SPRITE_BIKER, $3a + 4, $11 + 4, $ff, $d2, $46, CUE_BALL + $C8, $6 ; trainer - db SPRITE_BIKER, $44 + 4, $2 + 4, $ff, $d3, $47, CUE_BALL + $C8, $7 ; trainer - db SPRITE_BIKER, $62 + 4, $e + 4, $ff, $d3, $48, CUE_BALL + $C8, $8 ; trainer - db SPRITE_BIKER, $62 + 4, $5 + 4, $ff, $d2, $49, BIKER + $C8, $b ; trainer - db SPRITE_BIKER, $76 + 4, $a + 4, $ff, $d0, $4a, BIKER + $C8, $c ; trainer - -Route17Blocks: ; 720 - INCBIN "maps/route17.blk" - -Route19_h: ; 0x54e78 to 0x54e9a (34 bytes) (id=30) - db $00 ; tileset - db $1b, $0a ; dimensions (y, x) - dw Route19Blocks, Route19Texts, Route19Script ; blocks, texts, scripts - db NORTH | WEST ; connections - - ; connections data - - db FUCHSIA_CITY - dw $4db4, $c6e8 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $23, $0a ; alignments (y, x) - dw $c8bd ; window - - db ROUTE_20 - dw $41ac, $c838 ; pointers (connected, current) (strip) - db $09, $32 ; bigness, width - db $dc, $63 ; alignments (y, x) - dw $c752 ; window - - ; end connection data - - dw Route19Object ; objects - -Route19Object: ; 0x54e9a (size=87) - db $43 ; border tile - - db $0 ; warps - - db $1 ; signs - db $9, $b, $b ; Route19Text11 - - db $a ; people - db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $8 + 4, $ff, $d2, $41, SWIMMER + $C8, $2 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $d + 4, $ff, $d2, $42, SWIMMER + $C8, $3 ; trainer - db SPRITE_SWIMMER, $19 + 4, $d + 4, $ff, $d2, $43, SWIMMER + $C8, $4 ; trainer - db SPRITE_SWIMMER, $1b + 4, $4 + 4, $ff, $d3, $44, SWIMMER + $C8, $5 ; trainer - db SPRITE_SWIMMER, $1f + 4, $10 + 4, $ff, $d1, $45, SWIMMER + $C8, $6 ; trainer - db SPRITE_SWIMMER, $b + 4, $9 + 4, $ff, $d0, $46, SWIMMER + $C8, $7 ; trainer - db SPRITE_SWIMMER, $2b + 4, $8 + 4, $ff, $d2, $47, BEAUTY + $C8, $c ; trainer - db SPRITE_SWIMMER, $2b + 4, $b + 4, $ff, $d3, $48, BEAUTY + $C8, $d ; trainer - db SPRITE_SWIMMER, $2a + 4, $9 + 4, $ff, $d1, $49, SWIMMER + $C8, $8 ; trainer - db SPRITE_SWIMMER, $2c + 4, $a + 4, $ff, $d0, $4a, BEAUTY + $C8, $e ; trainer - -Route19Blocks: ; 270 - INCBIN "maps/route19.blk" - -Route21_h: ; 0x54fff to 0x55021 (34 bytes) (id=32) - db $00 ; tileset - db $2d, $0a ; dimensions (y, x) - dw Route21Blocks, Route21Texts, Route21Script ; blocks, texts, scripts - db NORTH | SOUTH ; connections - - ; connections data - - db PALLET_TOWN - dw $4339, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $11, $00 ; alignments (y, x) - dw $c779 ; window - - db CINNABAR_ISLAND - dw $4069, $c9eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route21Object ; objects - -Route21Object: ; 0x55021 (size=76) - db $43 ; border tile - - db $0 ; warps - - db $0 ; signs - - db $9 ; people - db SPRITE_FISHER2, $18 + 4, $4 + 4, $ff, $d2, $41, FISHER + $C8, $7 ; trainer - db SPRITE_FISHER2, $19 + 4, $6 + 4, $ff, $d0, $42, FISHER + $C8, $9 ; trainer - db SPRITE_SWIMMER, $1f + 4, $a + 4, $ff, $d1, $43, SWIMMER + $C8, $c ; trainer - db SPRITE_SWIMMER, $1e + 4, $c + 4, $ff, $d3, $44, CUE_BALL + $C8, $9 ; trainer - db SPRITE_SWIMMER, $3f + 4, $10 + 4, $ff, $d0, $45, SWIMMER + $C8, $d ; trainer - db SPRITE_SWIMMER, $47 + 4, $5 + 4, $ff, $d3, $46, SWIMMER + $C8, $e ; trainer - db SPRITE_SWIMMER, $47 + 4, $f + 4, $ff, $d2, $47, SWIMMER + $C8, $f ; trainer - db SPRITE_FISHER2, $38 + 4, $e + 4, $ff, $d2, $48, FISHER + $C8, $8 ; trainer - db SPRITE_FISHER2, $39 + 4, $11 + 4, $ff, $d3, $49, FISHER + $C8, $a ; trainer - -Route21Blocks: ; 450 - INCBIN "maps/route21.blk" - -DayCareMBlocks: ; 16 - INCBIN "maps/daycarem.blk" - -FuchsiaHouse3Blocks: ; 16 - INCBIN "maps/fuchsiahouse3.blk" - -INCBIN "baserom.gbc",$5524f,$554e3 - $5524f - -Route2Script: ; 0x554e3 - jp $3c3c -; 0x554e6 - -INCBIN "baserom.gbc",$554e6,$8 - -Route2Text3: ; 0x554ee - TX_FAR _Route2Text3 - db $50 - -Route2Text4: ; 0x554f3 - TX_FAR _Route2Text4 - db $50 - -Route3Script: ; 0x554f8 - call $3c3c - ld hl, $5525 - ld de, $550b - ld a, [$d5f8] - call $3160 - ld [$d5f8], a - ret -; 0x5550b - -INCBIN "baserom.gbc",$5550b,$6 - -Route3Texts: ; 0x55511 - dw Route3Text1, Route3Text2, Route3Text3, Route3Text4, Route3Text5, Route3Text6, Route3Text7, Route3Text8, Route3Text9, Route3Text10 - -INCBIN "baserom.gbc",$55525,$61 - -Route3Text1: ; 0x55586 - TX_FAR _Route3Text1 - db $50 - -Route3Text2: ; 0x5558b - db $08 ; asm - ld hl, $5525 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55595,$555a4 - $55595 - -Route3Text3: ; 0x555a4 - db $08 ; asm - ld hl, $5531 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$555ae,$555bd - $555ae - -Route3Text4: ; 0x555bd - db $08 ; asm - ld hl, $553d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$555c7,$555d6 - $555c7 - -Route3Text5: ; 0x555d6 - db $08 ; asm - ld hl, $5549 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$555e0,$555ef - $555e0 - -Route3Text6: ; 0x555ef - db $08 ; asm - ld hl, $5555 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$555f9,$55608 - $555f9 - -Route3Text7: ; 0x55608 - db $08 ; asm - ld hl, $5561 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55612,$55621 - $55612 - -Route3Text8: ; 0x55621 - db $08 ; asm - ld hl, $556d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5562b,$5563a - $5562b - -Route3Text9: ; 0x5563a - db $08 ; asm - ld hl, $5579 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55644,$f - -Route3Text10: ; 0x55653 - TX_FAR _Route3Text10 - db $50 - -Route4Script: ; 0x55658 - call $3c3c - ld hl, $567d - ld de, $566b - ld a, [$d5f9] - call $3160 - ld [$d5f9], a - ret -; 0x5566b - -INCBIN "baserom.gbc",$5566b,$6 - -Route4Texts: ; 0x55671 - dw Route4Text1, Route4Text2, Route4Text3, Route4Text4, Route4Text5, Route4Text6 - -INCBIN "baserom.gbc",$5567d,$d - -Route4Text1: ; 0x5568a - TX_FAR _Route4Text1 - db $50 - -Route4Text2: ; 0x5568f - db $08 ; asm - ld hl, $567d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55699,$f - -Route4Text5: ; 0x556a8 - TX_FAR _Route4Text5 - db $50 - -Route4Text6: ; 0x556ad - TX_FAR _Route4Text6 - db $50 - -Route5Script: ; 0x556b2 - jp $3c3c -; 0x556b5 - -Route5Texts: ; 0x556b5 - dw Route5Text1 - -Route5Text1: ; 0x556b7 - TX_FAR _Route5Text1 - db $50 - -Route9Script: ; 0x556bc - call $3c3c - ld hl, $56eb - ld de, $56cf - ld a, [$d604] - call $3160 - ld [$d604], a - ret -; 0x556cf - -INCBIN "baserom.gbc",$556cf,$6 - -Route9Texts: ; 0x556d5 - dw Route9Text1, Route9Text2, Route9Text3, Route9Text4, Route9Text5, Route9Text6, Route9Text7, Route9Text8, Route9Text9, Route9Text10, Route9Text11 - -Route12Text13: ; 0x556eb -INCBIN "baserom.gbc",$556eb,$556f0 - $556eb - -Route12Text14: ; 0x556f0 -INCBIN "baserom.gbc",$556f0,$55758 - $556f0 - -Route9Text1: ; 0x55758 - db $8 ; asm - ld hl, $56eb - jr asm_8be3d ; 0x5575c $2e - -Route9Text2: - db $8 ; asm - ld hl, $56f7 - jr asm_8be3d ; 0x55762 $28 - -Route9Text3: - db $8 ; asm - ld hl, $5703 - jr asm_8be3d ; 0x55768 $22 - -Route9Text4: - db $8 ; asm - ld hl, $570f - jr asm_8be3d ; 0x5576e $1c - -Route9Text5: - db $8 ; asm - ld hl, $571b - jr asm_8be3d ; 0x55774 $16 - -Route9Text6: - db $8 ; asm - ld hl, $5727 - jr asm_8be3d ; 0x5577a $10 - -Route9Text7: - db $8 ; asm - ld hl, $5733 - jr asm_8be3d ; 0x55780 $a - -Route9Text8: - db $8 ; asm - ld hl, $573f - jr asm_8be3d ; 0x55786 $4 - -Route9Text9: - db $8 ; asm - ld hl, $574b -asm_8be3d: ; 0x5578c - call $31cc - jp $24d7 -; 0x55792 - -INCBIN "baserom.gbc",$55792,$87 - -Route9Text11: ; 0x55819 - TX_FAR _Route9Text11 - db $50 - -Route13Script: ; 0x5581e - call $3c3c - ld hl, $5851 - ld de, $5831 - ld a, [$d61a] - call $3160 - ld [$d61a], a - ret -; 0x55831 - -INCBIN "baserom.gbc",$55831,$6 - -Route13Texts: ; 0x55837 - dw Route13Text1, Route13Text2, Route13Text3, Route13Text4, Route13Text5, Route13Text6, Route13Text7, Route13Text8, Route13Text9, Route13Text10, Route13Text11, Route13Text12, Route13Text13 - -INCBIN "baserom.gbc",$55851,$79 - -Route13Text1: ; 0x558ca - db $08 ; asm - ld hl, $5851 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$558d4,$558e3 - $558d4 - -Route13Text2: ; 0x558e3 - db $08 ; asm - ld hl, $585d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$558ed,$558fc - $558ed - -Route13Text3: ; 0x558fc - db $08 ; asm - ld hl, $5869 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55906,$55915 - $55906 - -Route13Text4: ; 0x55915 - db $08 ; asm - ld hl, $5875 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5591f,$5592e - $5591f - -Route13Text5: ; 0x5592e - db $08 ; asm - ld hl, $5881 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55938,$55947 - $55938 - -Route13Text6: ; 0x55947 - db $08 ; asm - ld hl, $588d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55951,$55960 - $55951 - -Route13Text7: ; 0x55960 - db $08 ; asm - ld hl, $5899 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5596a,$55979 - $5596a - -Route13Text8: ; 0x55979 - db $08 ; asm - ld hl, $58a5 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55983,$55992 - $55983 - -Route13Text9: ; 0x55992 - db $08 ; asm - ld hl, $58b1 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5599c,$559ab - $5599c - -Route13Text10: ; 0x559ab - db $08 ; asm - ld hl, $58bd - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$559b5,$f - -Route13Text11: ; 0x559c4 - TX_FAR _Route13Text11 - db $50 - -Route13Text12: ; 0x559c9 - TX_FAR _Route13Text12 - db $50 - -Route13Text13: ; 0x559ce - TX_FAR _Route13Text13 - db $50 - -Route14Script: ; 0x559d3 - call $3c3c - ld hl, $5a02 - ld de, $59e6 - ld a, [$d61b] - call $3160 - ld [$d61b], a - ret -; 0x559e6 - -INCBIN "baserom.gbc",$559e6,$6 - -Route14Texts: ; 0x559ec - dw Route14Text1, Route14Text2, Route14Text3, Route14Text4, Route14Text5, Route14Text6, Route14Text7, Route14Text8, Route14Text9, Route14Text10, Route14Text11 - -INCBIN "baserom.gbc",$55a02,$79 - -Route14Text1: ; 0x55a7b - db $08 ; asm - ld hl, $5a02 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55a85,$55a94 - $55a85 - -Route14Text2: ; 0x55a94 - db $08 ; asm - ld hl, $5a0e - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55a9e,$55aad - $55a9e - -Route14Text3: ; 0x55aad - db $08 ; asm - ld hl, $5a1a - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55ab7,$55ac6 - $55ab7 - -Route14Text4: ; 0x55ac6 - db $08 ; asm - ld hl, $5a26 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55ad0,$55adf - $55ad0 - -Route14Text5: ; 0x55adf - db $08 ; asm - ld hl, $5a32 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55ae9,$55af8 - $55ae9 - -Route14Text6: ; 0x55af8 - db $08 ; asm - ld hl, $5a3e - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55b02,$55b11 - $55b02 - -Route14Text7: ; 0x55b11 - db $08 ; asm - ld hl, $5a4a - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55b1b,$55b2a - $55b1b - -Route14Text8: ; 0x55b2a - db $08 ; asm - ld hl, $5a56 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55b34,$55b43 - $55b34 - -Route14Text9: ; 0x55b43 - db $08 ; asm - ld hl, $5a62 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55b4d,$55b5c - $55b4d - -Route14Text10: ; 0x55b5c - db $08 ; asm - ld hl, $5a6e - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55b66,$f - -Route14Text11: ; 0x55b75 - TX_FAR _Route14Text11 - db $50 - -Route17Script: ; 0x55b7a - call $3c3c - ld hl, $5bb3 - ld de, $5b8d - ld a, [$d61c] - call $3160 - ld [$d61c], a - ret -; 0x55b8d - -INCBIN "baserom.gbc",$55b8d,$6 - -Route17Texts: ; 0x55b93 - dw Route17Text1, Route17Text2, Route17Text3, Route17Text4, Route17Text5, Route17Text6, Route17Text7, Route17Text8, Route17Text9, Route17Text10, Route17Text11, Route17Text12, Route17Text13, Route17Text14, Route17Text15, Route17Text16 - -INCBIN "baserom.gbc",$55bb3,$79 - -Route17Text1: ; 0x55c2c - db $08 ; asm - ld hl, $5bb3 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55c36,$55c45 - $55c36 - -Route17Text2: ; 0x55c45 - db $08 ; asm - ld hl, $5bbf - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55c4f,$55c5e - $55c4f - -Route17Text3: ; 0x55c5e - db $08 ; asm - ld hl, $5bcb - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55c68,$55c77 - $55c68 - -Route17Text4: ; 0x55c77 - db $08 ; asm - ld hl, $5bd7 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55c81,$55c90 - $55c81 - -Route17Text5: ; 0x55c90 - db $08 ; asm - ld hl, $5be3 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55c9a,$55ca9 - $55c9a - -Route17Text6: ; 0x55ca9 - db $08 ; asm - ld hl, $5bef - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55cb3,$55cc2 - $55cb3 - -Route17Text7: ; 0x55cc2 - db $08 ; asm - ld hl, $5bfb - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55ccc,$55cdb - $55ccc - -Route17Text8: ; 0x55cdb - db $08 ; asm - ld hl, $5c07 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55ce5,$55cf4 - $55ce5 - -Route17Text9: ; 0x55cf4 - db $08 ; asm - ld hl, $5c13 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55cfe,$55d0d - $55cfe - -Route17Text10: ; 0x55d0d - db $08 ; asm - ld hl, $5c1f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55d17,$f - -Route17Text11: ; 0x55d26 - TX_FAR _Route17Text11 - db $50 - -Route17Text12: ; 0x55d2b - TX_FAR _Route17Text12 - db $50 - -Route17Text13: ; 0x55d30 - TX_FAR _Route17Text13 - db $50 - -Route17Text14: ; 0x55d35 - TX_FAR _Route17Text14 - db $50 - -Route17Text15: ; 0x55d3a - TX_FAR _Route17Text15 - db $50 - -Route17Text16: ; 0x55d3f - TX_FAR _Route17Text16 - db $50 - -Route19Script: ; 0x55d44 - call $3c3c - ld hl, $5d73 - ld de, $5d57 - ld a, [$d61d] - call $3160 - ld [$d61d], a - ret -; 0x55d57 - -INCBIN "baserom.gbc",$55d57,$6 - -Route19Texts: ; 0x55d5d - dw Route19Text1, Route19Text2, Route19Text3, Route19Text4, Route19Text5, Route19Text6, Route19Text7, Route19Text8, Route19Text9, Route19Text10, Route19Text11 - -INCBIN "baserom.gbc",$55d73,$79 - -Route19Text1: ; 0x55dec - db $08 ; asm - ld hl, $5d73 - call LoadTrainerHeader - jp $24d7 - -Route19Text2: ; 0x55df6 - db $08 ; asm - ld hl, $5d7f - call LoadTrainerHeader - jp $24d7 - -Route19Text3: ; 0x55e00 - db $08 ; asm - ld hl, $5d8b - call LoadTrainerHeader - jp $24d7 - -Route19Text4: ; 0x55e0a - db $08 ; asm - ld hl, $5d97 - call LoadTrainerHeader - jp $24d7 - -Route19Text5: ; 0x55e14 - db $08 ; asm - ld hl, $5da3 - call LoadTrainerHeader - jp $24d7 - -Route19Text6: ; 0x55e1e - db $08 ; asm - ld hl, $5daf - call LoadTrainerHeader - jp $24d7 - -Route19Text7: ; 0x55e28 - db $08 ; asm - ld hl, $5dbb - call LoadTrainerHeader - jp $24d7 - -Route19Text8: ; 0x55e32 - db $08 ; asm - ld hl, $5dc7 - call LoadTrainerHeader - jp $24d7 - -Route19Text9: ; 0x55e3c - db $08 ; asm - ld hl, $5dd3 - call LoadTrainerHeader - jp $24d7 - -Route19Text10: ; 0x55e46 - db $08 ; asm - ld hl, $5ddf - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55e50,$96 - -Route19Text11: ; 0x55ee6 - TX_FAR _Route19Text11 - db $50 - -Route21Script: ; 0x55eeb - call $3c3c - ld hl, $5f16 - ld de, $5efe - ld a, [$d61e] - call $3160 - ld [$d61e], a - ret -; 0x55efe - -INCBIN "baserom.gbc",$55efe,$6 - -Route21Texts: ; 0x55f04 - dw Route21Text1, Route21Text2, Route21Text3, Route21Text4, Route21Text5, Route21Text6, Route21Text7, Route21Text8, Route21Text9 - -INCBIN "baserom.gbc",$55f16,$6d - -Route21Text1: ; 0x55f83 - db $08 ; asm - ld hl, $5f16 - call LoadTrainerHeader - jp $24d7 - -Route21Text2: ; 0x55f8d - db $08 ; asm - ld hl, $5f22 - call LoadTrainerHeader - jp $24d7 - -Route21Text3: ; 0x55f97 - db $08 ; asm - ld hl, $5f2e - call LoadTrainerHeader - jp $24d7 - -Route21Text4: ; 0x55fa1 - db $08 ; asm - ld hl, $5f3a - call LoadTrainerHeader - jp $24d7 - -Route21Text5: ; 0x55fab - db $08 ; asm - ld hl, $5f46 - call LoadTrainerHeader - jp $24d7 - -Route21Text6: ; 0x55fb5 - db $08 ; asm - ld hl, $5f52 - call LoadTrainerHeader - jp $24d7 - -Route21Text7: ; 0x55fbf - db $08 ; asm - ld hl, $5f5e - call LoadTrainerHeader - jp $24d7 - -Route21Text8: ; 0x55fc9 - db $08 ; asm - ld hl, $5f6a - call LoadTrainerHeader - jp $24d7 - -Route21Text9: ; 0x55fd3 - db $08 ; asm - ld hl, $5f76 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$55fdd,$87 - -VermilionHouse2_h: ; 0x56064 to 0x56070 (12 bytes) (id=163) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw $522f, VermilionHouse2Texts, VermilionHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw VermilionHouse2Object ; objects - -VermilionHouse2Script: ; 0x56070 - jp $3c3c -; 0x56073 - -VermilionHouse2Texts: ; 0x56073 - dw VermilionHouse2Text1 - -VermilionHouse2Text1: ; 0x56075 - db $08 ; asm - ld a, [$d728] - bit 3, a - jr nz, asm_03ef5 ; 0x5607b - ld hl, $60b1 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, asm_eb1b7 ; 0x5608a - ld bc,(OLD_ROD << 8) | 1 - call $3e2e - jr nc, asm_fd67b ; 0x56092 - ld hl, $d728 - set 3, [hl] - ld hl, $60b6 - jr asm_5dd95 ; 0x5609c -asm_fd67b ; 0x5609e - ld hl, $60ca - jr asm_5dd95 ; 0x560a1 -asm_eb1b7 ; 0x560a3 - ld hl, $60c0 - jr asm_5dd95 ; 0x560a6 -asm_03ef5 ; 0x560a8 - ld hl, $60c5 -asm_5dd95 ; 0x560ab - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$560b1,$1e - -VermilionHouse2Object: ; 0x560cf (size=26) - db $a ; border tile - - db $2 ; warps - db $7, $2, $8, $ff - db $7, $3, $8, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_FISHER, $4 + 4, $2 + 4, $ff, $d3, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -CeladonMart2_h: ; 0x560e9 to 0x560f5 (12 bytes) (id=123) - db $12 ; tileset - db $04, $0a ; dimensions (y, x) - dw CeladonMart2Blocks, CeladonMart2Texts, CeladonMart2Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMart2Object ; objects - -CeladonMart2Script: ; 0x560f5 - jp $3c3c -; 0x560f8 - -CeladonMart2Texts: ; 0x560f8 - dw CeladonMart2Text1, CeladonMart2Text2, CeladonMart2Text3, CeladonMart2Text4, CeladonMart2Text5 - -CeladonMart2Text3: ; 0x56102 - TX_FAR _CeladonMart2Text3 - db $50 - -CeladonMart2Text4: ; 0x56107 - TX_FAR _CeladonMart2Text4 - db $50 - -CeladonMart2Text5: ; 0x5610c - TX_FAR _CeladonMart2Text5 - db $50 - -CeladonMart2Object: ; 0x56111 (size=55) - db $f ; border tile - - db $3 ; warps - db $1, $c, $4, CELADON_MART_1 - db $1, $10, $1, CELADON_MART_3 - db $1, $1, $0, CELADON_MART_ELEVATOR - - db $1 ; signs - db $1, $e, $5 ; CeladonMart2Text5 - - db $4 ; people - db SPRITE_MART_GUY, $3 + 4, $5 + 4, $ff, $d0, $1 ; person - db SPRITE_MART_GUY, $3 + 4, $6 + 4, $ff, $d0, $2 ; person - db SPRITE_FAT_BALD_GUY, $5 + 4, $13 + 4, $ff, $ff, $3 ; person - db SPRITE_GIRL, $4 + 4, $e + 4, $fe, $1, $4 ; person - - ; warp-to - EVENT_DISP $a, $1, $c ; CELADON_MART_1 - EVENT_DISP $a, $1, $10 ; CELADON_MART_3 - EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR - -CeladonMart2Blocks: ; 40 - INCBIN "maps/celadonmart2.blk" - -FuchsiaHouse3_h: ; 0x56170 to 0x5617c (12 bytes) (id=164) - db $0d ; tileset - db $04, $04 ; dimensions (y, x) - dw FuchsiaHouse3Blocks, FuchsiaHouse3Texts, FuchsiaHouse3Script ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaHouse3Object ; objects - -FuchsiaHouse3Script: ; 0x5617c - jp $3c3c -; 0x5617f - -FuchsiaHouse3Texts: ; 0x5617f - dw FuchsiaHouse3Text1 - -FuchsiaHouse3Text1: ; 0x56181 - db $08 ; asm - ld a, [$d728] - bit 4, a - jr nz, asm_6084e ; 0x56187 - ld hl, $61bd - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, asm_3ace4 ; 0x56196 - ld bc,(GOOD_ROD << 8) | 1 - call $3e2e - jr nc, asm_628ee ; 0x5619e - ld hl, $d728 - set 4, [hl] - ld hl, $61c2 - jr asm_1b09c ; 0x561a8 -asm_628ee ; 0x561aa - ld hl, $621c - jr asm_1b09c ; 0x561ad -asm_3ace4 ; 0x561af - ld hl, $6212 - jr asm_1b09c ; 0x561b2 -asm_6084e ; 0x561b4 - ld hl, $6217 -asm_1b09c ; 0x561b7 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$561bd,$64 - -FuchsiaHouse3Object: ; 0x56221 (size=34) - db $c ; border tile - - db $3 ; warps - db $0, $2, $8, $ff - db $7, $2, $7, $ff - db $7, $3, $7, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_FISHER, $3 + 4, $5 + 4, $ff, $d3, $1 ; person - - ; warp-to - EVENT_DISP $4, $0, $2 - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -DayCareM_h: ; 0x56243 to 0x5624f (12 bytes) (id=72) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw DayCareMBlocks, DayCareMTexts, DayCareMScript ; blocks, texts, scripts - db $00 ; connections - - dw DayCareMObject ; objects - -DayCareMScript: ; 0x5624f - jp $3c3c -; 0x56252 - -DayCareMTexts: ; 0x56252 - dw DayCareMText1 - -DayCareMText1: ; 0x56254 - db $8 - call $36f4 - ld a, [$da48] - and a - jp nz, $62e1 - ld hl, $640f - call PrintText - call $35ec - ld a, [$cc26] - and a - ld hl, $643b - jp nz, $6409 - ld a, [$d163] - dec a - ld hl, $6445 - jp z, $6409 - ld hl, $6414 - call PrintText - xor a - ld [$cfcb], a - ld [$d07d], a - ld [$cc35], a - call $13fc - push af - call $3dd4 - call $3dbe - call $20ba - pop af - ld hl, $6437 - jp c, $6409 - ld hl, $571b - ld b, $8 - call Bankswitch - ld hl, $644a - jp c, $6409 - xor a - ld [$cc2b], a - ld a, [$cf92] - ld hl, $d2b5 - call $15ba - ld hl, $6419 - call PrintText - ld a, $1 - ld [$da48], a - ld a, $3 - ld [$cf95], a - call $3a68 - xor a - ld [$cf95], a - call $391f - ld a, [$cf91] - call $13d0 - ld hl, $641e - jp $6409 -; 0x562e1 -INCBIN "baserom.gbc",$562e1,$178 - -DayCareMObject: ; 0x56459 (size=26) - db $a ; border tile - - db $2 ; warps - db $7, $2, $4, $ff - db $7, $3, $4, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_GENTLEMAN, $3 + 4, $2 + 4, $ff, $d3, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -Route12House_h: ; 0x56473 to 0x5647f (12 bytes) (id=189) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw $522f, Route12HouseTexts, Route12HouseScript ; blocks, texts, scripts - db $00 ; connections - - dw Route12HouseObject ; objects - -Route12HouseScript: ; 0x5647f - jp $3c3c -; 0x56482 - -Route12HouseTexts: ; 0x56482 - dw Route12HouseText1 - -Route12HouseText1: ; 0x56484 - db $08 ; asm - ld a, [$d728] - bit 5, a - jr nz, asm_b4cad ; 0x5648a - ld hl, $64c0 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, asm_a2d76 ; 0x56499 - ld bc,(SUPER_ROD << 8) | 1 - call $3e2e - jr nc, asm_e3b89 ; 0x564a1 - ld hl, $d728 - set 5, [hl] - ld hl, $64c5 - jr asm_df984 ; 0x564ab -asm_e3b89 ; 0x564ad - ld hl, $64d9 - jr asm_df984 ; 0x564b0 -asm_a2d76 ; 0x564b2 - ld hl, $64cf - jr asm_df984 ; 0x564b5 -asm_b4cad ; 0x564b7 - ld hl, $64d4 -asm_df984 ; 0x564ba - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$564c0,$1e - -Route12HouseObject: ; 0x564de (size=26) - db $a ; border tile - - db $2 ; warps - db $7, $2, $3, $ff - db $7, $3, $3, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_FISHER, $4 + 4, $2 + 4, $ff, $d3, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -SilphCo8_h: ; 0x564f8 to 0x56504 (12 bytes) (id=213) - db $16 ; tileset - db $09, $0d ; dimensions (y, x) - dw SilphCo8Blocks, SilphCo8Texts, SilphCo8Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo8Object ; objects - -SilphCo8Script: ; 0x56504 - call $651a - call $3c3c - ld hl, $6585 - ld de, $6577 - ld a, [$d649] - call $3160 - ld [$d649], a - ret -; 0x5651a - -INCBIN "baserom.gbc",$5651a,$63 - -SilphCo8Texts: ; 0x5657d - dw SilphCo8Text1, SilphCo8Text2, SilphCo8Text3, SilphCo8Text4 - -INCBIN "baserom.gbc",$56585,$25 - -SilphCo8Text1: ; 0x565aa - db $08 ; asm - ld a, [$d838] - bit 7, a - ld hl, $65c3 - jr nz, asm_a468f ; 0x565b3 - ld hl, $65be -asm_a468f ; 0x565b8 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$565be,$565c8 - $565be - -SilphCo8Text2: ; 0x565c8 - db $08 ; asm - ld hl, $6585 - call LoadTrainerHeader - jp $24d7 - -SilphCo8Text3: ; 0x565d2 - db $08 ; asm - ld hl, $6591 - call LoadTrainerHeader - jp $24d7 - -SilphCo8Text4: ; 0x565dc - db $08 ; asm - ld hl, $659d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$565e6,$2d - -SilphCo8Object: ; 0x56613 (size=90) - db $2e ; border tile - - db $7 ; warps - db $0, $10, $1, SILPH_CO_9F - db $0, $e, $0, SILPH_CO_7F - db $0, $12, $0, SILPH_CO_ELEVATOR - db $b, $3, $6, SILPH_CO_8F - db $f, $3, $4, SILPH_CO_2F - db $5, $b, $5, SILPH_CO_2F - db $9, $b, $3, SILPH_CO_8F - - db $0 ; signs - - db $4 ; people - db SPRITE_LAPRAS_GIVER, $2 + 4, $4 + 4, $ff, $ff, $1 ; person - db SPRITE_ROCKET, $2 + 4, $13 + 4, $ff, $d2, $42, ROCKET + $C8, $23 ; trainer - db SPRITE_OAK_AIDE, $2 + 4, $a + 4, $ff, $d0, $43, SCIENTIST + $C8, $9 ; trainer - db SPRITE_ROCKET, $f + 4, $c + 4, $ff, $d3, $44, ROCKET + $C8, $24 ; trainer - - ; warp-to - EVENT_DISP $d, $0, $10 ; SILPH_CO_9F - EVENT_DISP $d, $0, $e ; SILPH_CO_7F - EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR - EVENT_DISP $d, $b, $3 ; SILPH_CO_8F - EVENT_DISP $d, $f, $3 ; SILPH_CO_2F - EVENT_DISP $d, $5, $b ; SILPH_CO_2F - EVENT_DISP $d, $9, $b ; SILPH_CO_8F - -SilphCo8Blocks: ; 117 - INCBIN "maps/silphco8.blk" - -INCBIN "baserom.gbc",$566e2,$191e - -SECTION "bank16",DATA,BANK[$16] - -Route6_h: ; 0x58000 to 0x58022 (34 bytes) (id=17) - db $00 ; tileset - db $12, $0a ; dimensions (y, x) - dw Route6Blocks, $50c9, Route6Script ; blocks, texts, scripts - db NORTH | SOUTH ; connections - - ; connections data - - db SAFFRON_CITY - dw $4bc6, $c6e8 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $23, $0a ; alignments (y, x) - dw $c8bd ; window - - db VERMILION_CITY - dw $4a41, $c838 ; pointers (connected, current) (strip) - db $10, $14 ; bigness, width - db $00, $0a ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route6Object ; objects - -Route6Object: ; 0x58022 (size=87) - db $f ; border tile - - db $4 ; warps - db $1, $9, $2, ROUTE_6_GATE - db $1, $a, $2, ROUTE_6_GATE - db $7, $a, $0, ROUTE_6_GATE - db $d, $11, $0, PATH_ENTRANCE_ROUTE_6 - - db $1 ; signs - db $f, $13, $7 ; Route6Text7 - - db $6 ; people - db SPRITE_BLACK_HAIR_BOY_1, $15 + 4, $a + 4, $ff, $d3, $41, JR__TRAINER_M + $C8, $4 ; trainer - db SPRITE_LASS, $15 + 4, $b + 4, $ff, $d2, $42, JR__TRAINER_F + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $f + 4, $0 + 4, $ff, $d3, $43, BUG_CATCHER + $C8, $a ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $1f + 4, $b + 4, $ff, $d2, $44, JR__TRAINER_M + $C8, $5 ; trainer - db SPRITE_LASS, $1e + 4, $b + 4, $ff, $d2, $45, JR__TRAINER_F + $C8, $3 ; trainer - db SPRITE_BUG_CATCHER, $1a + 4, $13 + 4, $ff, $d2, $46, BUG_CATCHER + $C8, $b ; trainer - - ; warp-to - EVENT_DISP $a, $1, $9 ; ROUTE_6_GATE - EVENT_DISP $a, $1, $a ; ROUTE_6_GATE - EVENT_DISP $a, $7, $a ; ROUTE_6_GATE - EVENT_DISP $a, $d, $11 ; PATH_ENTRANCE_ROUTE_6 - -Route6Blocks: ; 180 - INCBIN "maps/route6.blk" - -Route8_h: ; 0x5812d to 0x5814f (34 bytes) (id=19) - db $00 ; tileset - db $09, $1e ; dimensions (y, x) - dw Route8Blocks, $51cf, Route8Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db SAFFRON_CITY - dw $4abd, $c6e8 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $27 ; alignments (y, x) - dw $c716 ; window - - db LAVENDER_TOWN - dw $4085, $c775 ; pointers (connected, current) (strip) - db $09, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route8Object ; objects - -Route8Object: ; 0x5814f (size=119) - db $2c ; border tile - - db $5 ; warps - db $9, $1, $0, ROUTE_8_GATE - db $a, $1, $1, ROUTE_8_GATE - db $9, $8, $2, ROUTE_8_GATE - db $a, $8, $3, ROUTE_8_GATE - db $3, $d, $0, PATH_ENTRANCE_ROUTE_8 - - db $1 ; signs - db $3, $11, $a ; Route8Text10 - - db $9 ; people - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $8 + 4, $ff, $d3, $41, SUPER_NERD + $C8, $3 ; trainer - db SPRITE_GAMBLER, $9 + 4, $d + 4, $ff, $d1, $42, GAMBLER + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $6 + 4, $2a + 4, $ff, $d1, $43, SUPER_NERD + $C8, $4 ; trainer - db SPRITE_LASS, $3 + 4, $1a + 4, $ff, $d2, $44, LASS + $C8, $d ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $1a + 4, $ff, $d3, $45, SUPER_NERD + $C8, $5 ; trainer - db SPRITE_LASS, $5 + 4, $1a + 4, $ff, $d2, $46, LASS + $C8, $e ; trainer - db SPRITE_LASS, $6 + 4, $1a + 4, $ff, $d3, $47, LASS + $C8, $f ; trainer - db SPRITE_GAMBLER, $d + 4, $2e + 4, $ff, $d0, $48, GAMBLER + $C8, $7 ; trainer - db SPRITE_LASS, $c + 4, $33 + 4, $ff, $d2, $49, LASS + $C8, $10 ; trainer - - ; warp-to - EVENT_DISP $1e, $9, $1 ; ROUTE_8_GATE - EVENT_DISP $1e, $a, $1 ; ROUTE_8_GATE - EVENT_DISP $1e, $9, $8 ; ROUTE_8_GATE - EVENT_DISP $1e, $a, $8 ; ROUTE_8_GATE - EVENT_DISP $1e, $3, $d ; PATH_ENTRANCE_ROUTE_8 - -Route8Blocks: ; 270 - INCBIN "maps/route8.blk" - -Route10_h: ; 0x582d4 to 0x582f6 (34 bytes) (id=21) - db $00 ; tileset - db $24, $0a ; dimensions (y, x) - dw Route10Blocks, Route10Texts, Route10Script ; blocks, texts, scripts - db SOUTH | WEST ; connections - - ; connections data - - db LAVENDER_TOWN - dw $4085, $c95b ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - db ROUTE_9 - dw $4719, $c718 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $00, $3b ; alignments (y, x) - dw $c72a ; window - - ; end connection data - - dw Route10Object ; objects - -Route10Object: ; 0x582f6 (size=96) - db $2c ; border tile - - db $4 ; warps - db $13, $b, $0, ROCK_TUNNEL_POKECENTER - db $11, $8, $0, ROCK_TUNNEL_1 - db $35, $8, $2, ROCK_TUNNEL_1 - db $27, $6, $0, POWER_PLANT - - db $4 ; signs - db $13, $7, $7 ; Route10Text7 - db $13, $c, $8 ; Route10Text8 - db $37, $9, $9 ; Route10Text9 - db $29, $5, $a ; Route10Text10 - - db $6 ; people - db SPRITE_BLACK_HAIR_BOY_2, $2c + 4, $a + 4, $ff, $d2, $41, POKEMANIAC + $C8, $1 ; trainer - db SPRITE_HIKER, $39 + 4, $3 + 4, $ff, $d1, $42, HIKER + $C8, $7 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $40 + 4, $e + 4, $ff, $d2, $43, POKEMANIAC + $C8, $2 ; trainer - db SPRITE_LASS, $19 + 4, $7 + 4, $ff, $d2, $44, JR__TRAINER_F + $C8, $7 ; trainer - db SPRITE_HIKER, $3d + 4, $3 + 4, $ff, $d0, $45, HIKER + $C8, $8 ; trainer - db SPRITE_LASS, $36 + 4, $7 + 4, $ff, $d0, $46, JR__TRAINER_F + $C8, $8 ; trainer - - ; warp-to - EVENT_DISP $a, $13, $b ; ROCK_TUNNEL_POKECENTER - EVENT_DISP $a, $11, $8 ; ROCK_TUNNEL_1 - EVENT_DISP $a, $35, $8 ; ROCK_TUNNEL_1 - EVENT_DISP $a, $27, $6 ; POWER_PLANT - -Route10Blocks: ; 360 - INCBIN "maps/route10.blk" - -Route11_h: ; 0x584be to 0x584e0 (34 bytes) (id=22) - db $00 ; tileset - db $09, $1e ; dimensions (y, x) - dw Route11Blocks, $5465, Route11Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db VERMILION_CITY - dw $4a64, $c6e8 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $27 ; alignments (y, x) - dw $c716 ; window - - db ROUTE_12 - dw $4800, $c709 ; pointers (connected, current) (strip) - db $0f, $0a ; bigness, width - db $36, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route11Object ; objects - -Route11Object: ; 0x584e0 (size=127) - db $f ; border tile - - db $5 ; warps - db $8, $31, $0, ROUTE_11_GATE_1F - db $9, $31, $1, ROUTE_11_GATE_1F - db $8, $3a, $2, ROUTE_11_GATE_1F - db $9, $3a, $3, ROUTE_11_GATE_1F - db $5, $4, $0, DIGLETTS_CAVE_ENTRANCE - - db $1 ; signs - db $5, $1, $b ; Route11Text11 - - db $a ; people - db SPRITE_GAMBLER, $e + 4, $a + 4, $ff, $d0, $41, GAMBLER + $C8, $1 ; trainer - db SPRITE_GAMBLER, $9 + 4, $1a + 4, $ff, $d0, $42, GAMBLER + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $5 + 4, $d + 4, $ff, $d2, $43, YOUNGSTER + $C8, $9 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $b + 4, $24 + 4, $ff, $d0, $44, ENGINEER + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $4 + 4, $16 + 4, $ff, $d1, $45, YOUNGSTER + $C8, $a ; trainer - db SPRITE_GAMBLER, $7 + 4, $2d + 4, $ff, $d0, $46, GAMBLER + $C8, $3 ; trainer - db SPRITE_GAMBLER, $3 + 4, $21 + 4, $ff, $d1, $47, GAMBLER + $C8, $4 ; trainer - db SPRITE_BUG_CATCHER, $5 + 4, $2b + 4, $ff, $d3, $48, YOUNGSTER + $C8, $b ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $10 + 4, $2d + 4, $ff, $d2, $49, ENGINEER + $C8, $3 ; trainer - db SPRITE_BUG_CATCHER, $c + 4, $16 + 4, $ff, $d1, $4a, YOUNGSTER + $C8, $c ; trainer - - ; warp-to - EVENT_DISP $1e, $8, $31 ; ROUTE_11_GATE_1F - EVENT_DISP $1e, $9, $31 ; ROUTE_11_GATE_1F - EVENT_DISP $1e, $8, $3a ; ROUTE_11_GATE_1F - EVENT_DISP $1e, $9, $3a ; ROUTE_11_GATE_1F - EVENT_DISP $1e, $5, $4 ; DIGLETTS_CAVE_ENTRANCE - -Route11Blocks: ; 270 - INCBIN "maps/route11.blk" - -Route12_h: ; 0x5866d to 0x5869a (45 bytes) (id=23) - db $00 ; tileset - db $36, $0a ; dimensions (y, x) - dw Route12Blocks, Route12Texts, Route12Script ; blocks, texts, scripts - db NORTH | SOUTH | WEST ; connections - - ; connections data - - db LAVENDER_TOWN - dw $40c1, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $11, $00 ; alignments (y, x) - dw $c779 ; window - - db ROUTE_13 - dw $489c, $ca78 ; pointers (connected, current) (strip) - db $0d, $1e ; bigness, width - db $00, $28 ; alignments (y, x) - dw $c70d ; window - - db ROUTE_11 - dw $457a, $c8c8 ; pointers (connected, current) (strip) - db $09, $1e ; bigness, width - db $ca, $3b ; alignments (y, x) - dw $c72a ; window - - ; end connection data - - dw Route12Object ; objects - -Route12Object: ; 0x5869a (size=118) - db $43 ; border tile - - db $4 ; warps - db $f, $a, $0, ROUTE_12_GATE - db $f, $b, $1, ROUTE_12_GATE - db $15, $a, $2, ROUTE_12_GATE - db $4d, $b, $0, ROUTE_12_HOUSE - - db $2 ; signs - db $d, $d, $b ; Route12Text11 - db $3f, $b, $c ; Route12Text12 - - db $a ; people - db SPRITE_SNORLAX, $3e + 4, $a + 4, $ff, $d0, $1 ; person - db SPRITE_FISHER2, $1f + 4, $e + 4, $ff, $d2, $42, FISHER + $C8, $3 ; trainer - db SPRITE_FISHER2, $27 + 4, $5 + 4, $ff, $d1, $43, FISHER + $C8, $4 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $5c + 4, $b + 4, $ff, $d2, $44, JR__TRAINER_M + $C8, $9 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $4c + 4, $e + 4, $ff, $d1, $45, ROCKER + $C8, $2 ; trainer - db SPRITE_FISHER2, $28 + 4, $c + 4, $ff, $d2, $46, FISHER + $C8, $5 ; trainer - db SPRITE_FISHER2, $34 + 4, $9 + 4, $ff, $d3, $47, FISHER + $C8, $6 ; trainer - db SPRITE_FISHER2, $57 + 4, $6 + 4, $ff, $d0, $48, FISHER + $C8, $b ; trainer - db SPRITE_BALL, $23 + 4, $e + 4, $ff, $ff, $89, TM_16 ; item - db SPRITE_BALL, $59 + 4, $5 + 4, $ff, $ff, $8a, IRON ; item - - ; warp-to - EVENT_DISP $a, $f, $a ; ROUTE_12_GATE - EVENT_DISP $a, $f, $b ; ROUTE_12_GATE - EVENT_DISP $a, $15, $a ; ROUTE_12_GATE - EVENT_DISP $a, $4d, $b ; ROUTE_12_HOUSE - -Route12Blocks: ; 540 - INCBIN "maps/route12.blk" - -Route15_h: ; 0x5892c to 0x5894e (34 bytes) (id=26) - db $00 ; tileset - db $09, $1e ; dimensions (y, x) - dw Route15Blocks, Route15Texts, Route15Script ; blocks, texts, scripts - db WEST | EAST ; connections - - ; connections data - - db FUCHSIA_CITY - dw $4cab, $c6e8 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $27 ; alignments (y, x) - dw $c716 ; window - - db ROUTE_14 - dw $4aa8, $c709 ; pointers (connected, current) (strip) - db $0c, $0a ; bigness, width - db $24, $00 ; alignments (y, x) - dw $c6f9 ; window - - ; end connection data - - dw Route15Object ; objects - -Route15Object: ; 0x5894e (size=126) - db $43 ; border tile - - db $4 ; warps - db $8, $7, $0, ROUTE_15_GATE - db $9, $7, $1, ROUTE_15_GATE - db $8, $e, $2, ROUTE_15_GATE - db $9, $e, $3, ROUTE_15_GATE - - db $1 ; signs - db $9, $27, $c ; Route15Text12 - - db $b ; people - db SPRITE_LASS, $b + 4, $29 + 4, $ff, $d0, $41, JR__TRAINER_F + $C8, $14 ; trainer - db SPRITE_LASS, $a + 4, $35 + 4, $ff, $d2, $42, JR__TRAINER_F + $C8, $15 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $1f + 4, $ff, $d1, $43, BIRD_KEEPER + $C8, $6 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $23 + 4, $ff, $d1, $44, BIRD_KEEPER + $C8, $7 ; trainer - db SPRITE_FOULARD_WOMAN, $b + 4, $35 + 4, $ff, $d0, $45, BEAUTY + $C8, $9 ; trainer - db SPRITE_FOULARD_WOMAN, $a + 4, $29 + 4, $ff, $d3, $46, BEAUTY + $C8, $a ; trainer - db SPRITE_BIKER, $a + 4, $30 + 4, $ff, $d0, $47, BIKER + $C8, $3 ; trainer - db SPRITE_BIKER, $a + 4, $2e + 4, $ff, $d0, $48, BIKER + $C8, $4 ; trainer - db SPRITE_LASS, $5 + 4, $25 + 4, $ff, $d3, $49, JR__TRAINER_F + $C8, $16 ; trainer - db SPRITE_LASS, $d + 4, $12 + 4, $ff, $d1, $4a, JR__TRAINER_F + $C8, $17 ; trainer - db SPRITE_BALL, $5 + 4, $12 + 4, $ff, $ff, $8b, TM_20 ; item - - ; warp-to - EVENT_DISP $1e, $8, $7 ; ROUTE_15_GATE - EVENT_DISP $1e, $9, $7 ; ROUTE_15_GATE - EVENT_DISP $1e, $8, $e ; ROUTE_15_GATE - EVENT_DISP $1e, $9, $e ; ROUTE_15_GATE - -Route15Blocks: ; 270 - INCBIN "maps/route15.blk" - -Route16_h: ; 0x58ada to 0x58afc (34 bytes) (id=27) - db $00 ; tileset - db $09, $14 ; dimensions (y, x) - dw Route16Blocks, Route16Texts, Route16Script ; blocks, texts, scripts - db SOUTH | EAST ; connections - - ; connections data - - db ROUTE_17 - dw $4ba8, $c823 ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $00, $00 ; alignments (y, x) - dw $c6f9 ; window - - db CELADON_CITY - dw $40f8, $c6ff ; pointers (connected, current) (strip) - db $0f, $19 ; bigness, width - db $08, $00 ; alignments (y, x) - dw $c708 ; window - - ; end connection data - - dw Route16Object ; objects - -Route16Object: ; 0x58afc (size=136) - db $f ; border tile - - db $9 ; warps - db $a, $11, $0, ROUTE_16_GATE_1F - db $b, $11, $1, ROUTE_16_GATE_1F - db $a, $18, $2, ROUTE_16_GATE_1F - db $b, $18, $3, ROUTE_16_GATE_1F - db $4, $11, $4, ROUTE_16_GATE_1F - db $5, $11, $5, ROUTE_16_GATE_1F - db $4, $18, $6, ROUTE_16_GATE_1F - db $5, $18, $7, ROUTE_16_GATE_1F - db $5, $7, $0, ROUTE_16_HOUSE - - db $2 ; signs - db $b, $1b, $8 ; Route16Text8 - db $11, $5, $9 ; Route16Text9 - - db $7 ; people - db SPRITE_BIKER, $c + 4, $11 + 4, $ff, $d2, $41, BIKER + $C8, $5 ; trainer - db SPRITE_BIKER, $d + 4, $e + 4, $ff, $d3, $42, CUE_BALL + $C8, $1 ; trainer - db SPRITE_BIKER, $c + 4, $b + 4, $ff, $d1, $43, CUE_BALL + $C8, $2 ; trainer - db SPRITE_BIKER, $b + 4, $9 + 4, $ff, $d2, $44, BIKER + $C8, $6 ; trainer - db SPRITE_BIKER, $a + 4, $6 + 4, $ff, $d3, $45, CUE_BALL + $C8, $3 ; trainer - db SPRITE_BIKER, $c + 4, $3 + 4, $ff, $d3, $46, BIKER + $C8, $7 ; trainer - db SPRITE_SNORLAX, $a + 4, $1a + 4, $ff, $d0, $7 ; person - - ; warp-to - EVENT_DISP $14, $a, $11 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $b, $11 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $a, $18 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $b, $18 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $4, $11 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $5, $11 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $4, $18 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $5, $18 ; ROUTE_16_GATE_1F - EVENT_DISP $14, $5, $7 ; ROUTE_16_HOUSE - -Route16Blocks: ; 180 - INCBIN "maps/route16.blk" - -Route18_h: ; 0x58c38 to 0x58c5a (34 bytes) (id=29) - db $00 ; tileset - db $09, $19 ; dimensions (y, x) - dw Route18Blocks, Route18Texts, Route18Script ; blocks, texts, scripts - db NORTH | EAST ; connections - - ; connections data - - db ROUTE_17 - dw $4e5a, $c6eb ; pointers (connected, current) (strip) - db $0a, $0a ; bigness, width - db $8f, $00 ; alignments (y, x) - dw $cb69 ; window - - db FUCHSIA_CITY - dw $4c9a, $c704 ; pointers (connected, current) (strip) - db $0f, $14 ; bigness, width - db $08, $00 ; alignments (y, x) - dw $c703 ; window - - ; end connection data - - dw Route18Object ; objects - -Route18Object: ; 0x58c5a (size=66) - db $43 ; border tile - - db $4 ; warps - db $8, $21, $0, ROUTE_18_GATE_1F - db $9, $21, $1, ROUTE_18_GATE_1F - db $8, $28, $2, ROUTE_18_GATE_1F - db $9, $28, $3, ROUTE_18_GATE_1F - - db $2 ; signs - db $7, $2b, $4 ; Route18Text4 - db $5, $21, $5 ; Route18Text5 - - db $3 ; people - db SPRITE_BLACK_HAIR_BOY_1, $b + 4, $24 + 4, $ff, $d3, $41, BIRD_KEEPER + $C8, $8 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $f + 4, $28 + 4, $ff, $d2, $42, BIRD_KEEPER + $C8, $9 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $d + 4, $2a + 4, $ff, $d2, $43, BIRD_KEEPER + $C8, $a ; trainer - - ; warp-to - EVENT_DISP $19, $8, $21 ; ROUTE_18_GATE_1F - EVENT_DISP $19, $9, $21 ; ROUTE_18_GATE_1F - EVENT_DISP $19, $8, $28 ; ROUTE_18_GATE_1F - EVENT_DISP $19, $9, $28 ; ROUTE_18_GATE_1F - -Route18Blocks: ; 225 - INCBIN "maps/route18.blk" - -INCBIN "baserom.gbc",$58d7d,$590b0 - $58d7d - -Route6Script: ; 0x590b0 - call $3c3c - ld hl, $50d7 - ld de, $50c3 - ld a, [$d600] - call $3160 - ld [$d600], a - ret -; 0x590c3 - -INCBIN "baserom.gbc",$590c3,$5d - -Route6Text1: ; 0x59120 - db $8 - ld hl, $50d7 - call $31cc - jp $24d7 -; 0x5912a - -INCBIN "baserom.gbc",$5912a,$f - -Route6Text2: ; 0x59139 - db $08 ; asm - ld hl, $50e3 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59143,$5914d - $59143 - -Route6Text3: ; 0x5914d - db $08 ; asm - ld hl, $50ef - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59157,$59166 - $59157 - -Route6Text4: ; 0x59166 - db $08 ; asm - ld hl, $50fb - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59170,$5917f - $59170 - -Route6Text5: ; 0x5917f - db $08 ; asm - ld hl, $5107 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59189,$59198 - $59189 - -Route6Text6: ; 0x59198 - db $08 ; asm - ld hl, $5113 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$591a2,$f - -Route6Text7: ; 0x591b1 - TX_FAR _Route6Text7 - db $50 - -Route8Script: ; 0x591b6 - call $3c3c - ld hl, $51e3 - ld de, $51c9 - ld a, [$d601] - call $3160 - ld [$d601], a - ret -; 0x591c9 - -INCBIN "baserom.gbc",$591c9,$a0 - -Route8Text2: ; 0x59269 - db $08 ; asm - ld hl, $51ef - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59273,$59282 - $59273 - -Route8Text3: ; 0x59282 - db $08 ; asm - ld hl, $51fb - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5928c,$5929b - $5928c - -Route8Text4: ; 0x5929b - db $08 ; asm - ld hl, $5207 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$592a5,$592b4 - $592a5 - -Route8Text5: ; 0x592b4 - db $08 ; asm - ld hl, $5213 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$592be,$592cd - $592be - -Route8Text6: ; 0x592cd - db $08 ; asm - ld hl, $521f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$592d7,$592e6 - $592d7 - -Route8Text7: ; 0x592e6 - db $08 ; asm - ld hl, $522b - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$592f0,$592ff - $592f0 - -Route8Text8: ; 0x592ff - db $08 ; asm - ld hl, $5237 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59309,$59318 - $59309 - -Route8Text9: ; 0x59318 - db $08 ; asm - ld hl, $5243 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59322,$f - -Route8Text10: ; 0x59331 - TX_FAR _Route8Text10 - db $50 - -Route10Script: ; 0x59336 - call $3c3c - ld hl, $5363 - ld de, $5349 - ld a, [$d605] - call $3160 - ld [$d605], a - ret -; 0x59349 - -INCBIN "baserom.gbc",$59349,$6 - -Route10Texts: ; 0x5934f - dw Route10Text1, Route10Text2, Route10Text3, Route10Text4, Route10Text5, Route10Text6, Route10Text7, Route10Text8, Route10Text9, Route10Text10 - -INCBIN "baserom.gbc",$59363,$49 - -Route10Text1: ; 0x593ac - db $08 ; asm - ld hl, $5363 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$593b6,$593c5 - $593b6 - -Route10Text2: ; 0x593c5 - db $08 ; asm - ld hl, $536f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$593cf,$593de - $593cf - -Route10Text3: ; 0x593de - db $08 ; asm - ld hl, $537b - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$593e8,$593f7 - $593e8 - -Route10Text4: ; 0x593f7 - db $08 ; asm - ld hl, $5387 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59401,$59410 - $59401 - -Route10Text5: ; 0x59410 - db $08 ; asm - ld hl, $5393 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5941a,$59429 - $5941a - -Route10Text6: ; 0x59429 - db $08 ; asm - ld hl, $539f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59433,$f - -Route10Text9: ; 0x59442 -Route10Text7: ; 0x59442 - TX_FAR _Route10Text7 ; _Route10Text9 - db $50 - -Route10Text10: ; 0x59447 - TX_FAR _Route10Text10 - db $50 - -Route11Script: ; 0x5944c - call $3c3c - ld hl, $547b - ld de, $545f - ld a, [$d623] - call $3160 - ld [$d623], a - ret -; 0x5945f - -INCBIN "baserom.gbc",$5945f,$ae - -Route11Text2: ; 0x5950d - db $08 ; asm - ld hl, $5487 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59517,$59526 - $59517 - -Route11Text3: ; 0x59526 - db $08 ; asm - ld hl, $5493 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59530,$5953f - $59530 - -Route11Text4: ; 0x5953f - db $08 ; asm - ld hl, $549f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59549,$59558 - $59549 - -Route11Text5: ; 0x59558 - db $08 ; asm - ld hl, $54ab - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59562,$59571 - $59562 - -Route11Text6: ; 0x59571 - db $08 ; asm - ld hl, $54b7 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5957b,$5958a - $5957b - -Route11Text7: ; 0x5958a - db $08 ; asm - ld hl, $54c3 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59594,$595a3 - $59594 - -Route11Text8: ; 0x595a3 - db $08 ; asm - ld hl, $54cf - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$595ad,$595bc - $595ad - -Route11Text9: ; 0x595bc - db $08 ; asm - ld hl, $54db - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$595c6,$595d5 - $595c6 - -Route11Text10: ; 0x595d5 - db $08 ; asm - ld hl, $54e7 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$595df,$f - -Route11Text11: ; 0x595ee - TX_FAR _Route11Text11 - db $50 - -Route12Script: ; 0x595f3 - call $3c3c - ld hl, $5691 - ld de, $5611 - ld a, [$d624] - call $3160 - ld [$d624], a - ret -; 0x59606 - -INCBIN "baserom.gbc",$59606,$6f - -Route12Texts: ; 0x59675 - dw Route12Text1, Route12Text2, Route12Text3, Route12Text4, Route12Text5, Route12Text6, Route12Text7, Route12Text8, Route12Text9, Route12Text10, Route12Text11, Route12Text12, Route12Text13, Route12Text14 - -INCBIN "baserom.gbc",$59691,$55 - -Route12Text1: ; 0x596e6 - TX_FAR _Route12Text1 - db $50 - -INCBIN "baserom.gbc",$596eb,$596f5 - $596eb - -Route12Text2: ; 0x596f5 - db $08 ; asm - ld hl, $5691 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$596ff,$5970e - $596ff - -Route12Text3: ; 0x5970e - db $08 ; asm - ld hl, $569d - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59718,$59727 - $59718 - -Route12Text4: ; 0x59727 - db $08 ; asm - ld hl, $56a9 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59731,$59740 - $59731 - -Route12Text5: ; 0x59740 - db $08 ; asm - ld hl, $56b5 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5974a,$59759 - $5974a - -Route12Text6: ; 0x59759 - db $08 ; asm - ld hl, $56c1 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59763,$59772 - $59763 - -Route12Text7: ; 0x59772 - db $08 ; asm - ld hl, $56cd - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5977c,$5978b - $5977c - -Route12Text8: ; 0x5978b - db $08 ; asm - ld hl, $56d9 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59795,$f - -Route12Text11: ; 0x597a4 - TX_FAR _Route12Text11 - db $50 - -Route12Text12: ; 0x597a9 - TX_FAR _Route12Text12 - db $50 - -Route15Script: ; 0x597ae - call $3c3c - ld hl, $57df - ld de, $57c1 - ld a, [$d625] - call $3160 - ld [$d625], a - ret -; 0x597c1 - -INCBIN "baserom.gbc",$597c1,$6 - -Route15Texts: ; 0x597c7 - dw Route15Text1, Route15Text2, Route15Text3, Route15Text4, Route15Text5, Route15Text6, Route15Text7, Route15Text8, Route15Text9, Route15Text10, Route15Text11, Route15Text12 - -INCBIN "baserom.gbc",$597df,$79 - -Route15Text1: ; 0x59858 - db $8 ; asm - ld hl, $57df - jr asm_33cb7 ; 0x5985c $34 - -Route15Text2: - db $8 ; asm - ld hl, $57eb - jr asm_33cb7 ; 0x59862 $2e - -Route15Text3: - db $8 ; asm - ld hl, $57f7 - jr asm_33cb7 ; 0x59868 $28 - -Route15Text4: - db $8 ; asm - ld hl, $5803 - jr asm_33cb7 ; 0x5986e $22 - -Route15Text5: - db $8 ; asm - ld hl, $580f - jr asm_33cb7 ; 0x59874 $1c - -Route15Text6: - db $8 ; asm - ld hl, $581b - jr asm_33cb7 ; 0x5987a $16 - -Route15Text7: - db $8 ; asm - ld hl, $5827 - jr asm_33cb7 ; 0x59880 $10 - -Route15Text8: - db $8 ; asm - ld hl, $5833 - jr asm_33cb7 ; 0x59886 $a - -Route15Text9: - db $8 ; asm - ld hl, $583f - jr asm_33cb7 ; 0x5988c $4 - -Route15Text10: - db $8 ; asm - ld hl, $584b -asm_33cb7: ; 0x59892 - call $31cc - jp $24d7 -; 0x59898 - -INCBIN "baserom.gbc",$59898,$96 - -Route15Text12: ; 0x5992e - TX_FAR _Route15Text12 - db $50 - -Route16Script: ; 0x59933 - call $3c3c - ld hl, $59cf - ld de, $5951 - ld a, [$d626] - call $3160 - ld [$d626], a - ret -; 0x59946 - -INCBIN "baserom.gbc",$59946,$73 - -Route16Texts: ; 0x599b9 - dw Route16Text1, Route16Text2, Route16Text3, Route16Text4, Route16Text5, Route16Text6, Route16Text7, Route16Text8, Route16Text9, Route16Text10, Route16Text11 - -INCBIN "baserom.gbc",$599cb + 4,$4d - 4 - -Route16Text1: ; 0x59a18 - db $08 ; asm - ld hl, $59cf - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59a22,$59a31 - $59a22 - -Route16Text2: ; 0x59a31 - db $08 ; asm - ld hl, $59db - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59a3b,$59a4a - $59a3b - -Route16Text3: ; 0x59a4a - db $08 ; asm - ld hl, $59e7 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59a54,$59a63 - $59a54 - -Route16Text4: ; 0x59a63 - db $08 ; asm - ld hl, $59f3 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59a6d,$59a7c - $59a6d - -Route16Text5: ; 0x59a7c - db $08 ; asm - ld hl, $59ff - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59a86,$59a95 - $59a86 - -Route16Text6: ; 0x59a95 - db $08 ; asm - ld hl, $5a0b - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59a9f,$f - -Route16Text7: ; 0x59aae - TX_FAR _Route16Text7 - db $50 - -Route16Text10: ; 0x59ab3 -INCBIN "baserom.gbc",$59ab3,5 - -Route16Text11: ; 0x59ab8 -INCBIN "baserom.gbc",$59ab8,5 - -Route16Text8: ; 0x59abd - TX_FAR _Route16Text8 - db $50 - -Route16Text9: ; 0x59ac2 - TX_FAR _Route16Text9 - db $50 - -Route18Script: ; 0x59ac7 - call $3c3c - ld hl, $5aea - ld de, $5ada - ld a, [$d627] - call $3160 - ld [$d627], a - ret -; 0x59ada - -INCBIN "baserom.gbc",$59ada,$6 - -Route18Texts: ; 0x59ae0 - dw Route18Text1, Route18Text2, Route18Text3, Route18Text4, Route18Text5 - -INCBIN "baserom.gbc",$59aea,$25 - -Route18Text1: ; 0x59b0f - db $08 ; asm - ld hl, $5aea - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59b19,$59b28 - $59b19 - -Route18Text2: ; 0x59b28 - db $08 ; asm - ld hl, $5af6 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59b32,$59b41 - $59b32 - -Route18Text3: ; 0x59b41 - db $08 ; asm - ld hl, $5b02 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59b4b,$f - -Route18Text4: ; 0x59b5a - TX_FAR _Route18Text4 - db $50 - -Route18Text5: ; 0x59b5f - TX_FAR _Route18Text5 - db $50 - -FanClub_h: ; 0x59b64 to 0x59b70 (12 bytes) (id=90) - db $10 ; tileset - db $04, $04 ; dimensions (y, x) - dw FanClubBlocks, FanClubTexts, FanClubScript ; blocks, texts, scripts - db $00 ; connections - - dw FanClubObject ; objects - -FanClubScript: ; 0x59b70 - jp $3c3c -; 0x59b73 - -INCBIN "baserom.gbc",$59b73,$11 - -FanClubTexts: ; 0x59b84 - dw FanClubText1, FanClubText2, FanClubText3, FanClubText4, FanClubText5, FanClubText6, FanClubText7, FanClubText8 - -FanClubText1: ; 0x59b94 - db $08 ; asm - ld a, [$d771] - bit 7, a - jr nz, asm_67b22 ; 0x59b9a - ld hl, $5bb7 - call PrintText - ld hl, $d771 - set 6, [hl] - jr asm_64f01 ; 0x59ba7 -asm_67b22 ; 0x59ba9 - ld hl, $5bbc - call PrintText - ld hl, $d771 - res 7, [hl] -asm_64f01 ; 0x59bb4 - jp $24d7 - -INCBIN "baserom.gbc",$59bb7,$59bc1 - $59bb7 - -FanClubText2: ; 0x59bc1 - db $08 ; asm - ld a, [$d771] - bit 6, a - jr nz, asm_5cd59 ; 0x59bc7 - ld hl, $5be4 - call PrintText - ld hl, $d771 - set 7, [hl] - jr asm_59625 ; 0x59bd4 -asm_5cd59 ; 0x59bd6 - ld hl, $5be9 - call PrintText - ld hl, $d771 - res 6, [hl] -asm_59625 ; 0x59be1 - jp $24d7 - -INCBIN "baserom.gbc",$59be4,$59bee - $59be4 - -FanClubText3: ; 0x59bee - db $8 - ld hl, $5c00 - call PrintText - ld a, $54 - call $13d0 - call $3748 - jp $24d7 -; 0x59c00 - -INCBIN "baserom.gbc",$59c00,$5 - -FanClubText4: ; 0x59c05 - db $08 ; asm - ld hl, $5c17 - call PrintText - ld a,SEEL - call $13d0 - call $3748 - jp $24d7 - -INCBIN "baserom.gbc",$59c17,$59c1c - $59c17 - -FanClubText5: ; 0x59c1c - db $08 ; asm - call $5b73 - jr nz, asm_38bb3 ; 0x59c20 - ld hl, $5c65 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, asm_2c8d7 ; 0x59c2f - ld hl, $5c6a - call PrintText - ld bc,(BIKE_VOUCHER << 8) | 1 - call $3e2e - jr nc, asm_867d4 ; 0x59c3d - ld hl, $5c6f - call PrintText - ld hl, $d771 - set 1, [hl] - jr asm_d3c26 ; 0x59c4a -asm_867d4 ; 0x59c4c - ld hl, $5c83 - call PrintText - jr asm_d3c26 ; 0x59c52 -asm_2c8d7 ; 0x59c54 - ld hl, $5c79 - call PrintText - jr asm_d3c26 ; 0x59c5a -asm_38bb3 ; 0x59c5c - ld hl, $5c7e - call PrintText -asm_d3c26 ; 0x59c62 - jp $24d7 - -INCBIN "baserom.gbc",$59c65,$59c88 - $59c65 - -FanClubText6: - TX_FAR _FanClubText6 - db $50 - -FanClubText7: - TX_FAR _FanClubText7 - db $50 - -FanClubText8: ; 0x59c92 - TX_FAR _FanClubText8 - db $50 - -FanClubObject: ; 0x59c97 (size=62) - db $d ; border tile - - db $2 ; warps - db $7, $2, $1, $ff - db $7, $3, $1, $ff - - db $2 ; signs - db $0, $1, $7 ; FanClubText7 - db $0, $6, $8 ; FanClubText8 - - db $6 ; people - db SPRITE_FISHER2, $3 + 4, $6 + 4, $ff, $d2, $1 ; person - db SPRITE_GIRL, $3 + 4, $1 + 4, $ff, $d3, $2 ; person - db SPRITE_CLEFAIRY, $4 + 4, $6 + 4, $ff, $d2, $3 ; person - db SPRITE_SEEL, $4 + 4, $1 + 4, $ff, $d3, $4 ; person - db SPRITE_GENTLEMAN, $1 + 4, $3 + 4, $ff, $d0, $5 ; person - db SPRITE_CABLE_CLUB_WOMAN, $1 + 4, $5 + 4, $ff, $d0, $6 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -FanClubBlocks: ; 16 - INCBIN "maps/fanclub.blk" - -SilphCo2_h: ; 0x59ce5 to 0x59cf1 (12 bytes) (id=207) - db $16 ; tileset - db $09, $0f ; dimensions (y, x) - dw SilphCo2Blocks, SilphCo2Texts, SilphCo2Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo2Object ; objects - -SilphCo2Script: ; 0x59cf1 - call $5d07 - call $3c3c - ld hl, $5d90 - ld de, $5d80 - ld a, [$d643] - call $3160 - ld [$d643], a - ret -; 0x59d07 - -INCBIN "baserom.gbc",$59d07,$7f - -SilphCo2Texts: ; 0x59d86 - dw SilphCo2Text1, SilphCo2Text2, SilphCo2Text3, SilphCo2Text4, SilphCo2Text5 - -INCBIN "baserom.gbc",$59d90,$31 - -SilphCo2Text1: ; 0x59dc1 - db $08 ; asm - ld a, [$d826] - bit 7, a - jr nz, asm_b8a0d ; 0x59dc7 - ld hl, $5ded - call PrintText - ld bc,(TM_36 << 8) | 1 - call $3e2e - ld hl, $5dfd - jr nc, asm_2c1e0 ; 0x59dd8 - ld hl, $d826 - set 7, [hl] - ld hl, $5df2 - jr asm_2c1e0 ; 0x59de2 -asm_b8a0d ; 0x59de4 - ld hl, $5df8 -asm_2c1e0 ; 0x59de7 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$59ded,$59e02 - $59ded - -SilphCo2Text2: ; 0x59e02 - db $08 ; asm - ld hl, $5d90 - call LoadTrainerHeader - jp $24d7 - -SilphCo2Text3: ; 0x59e0c - db $08 ; asm - ld hl, $5d9c - call LoadTrainerHeader - jp $24d7 - -SilphCo2Text4: ; 0x59e16 - db $08 ; asm - ld hl, $5da8 - call LoadTrainerHeader - jp $24d7 - -SilphCo2Text5: ; 0x59e20 - db $08 ; asm - ld hl, $5db4 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$59e2a,$3c - -SilphCo2Object: ; 0x59e66 (size=98) - db $2e ; border tile - - db $7 ; warps - db $0, $18, $2, SILPH_CO_1F - db $0, $1a, $0, SILPH_CO_3F - db $0, $14, $0, SILPH_CO_ELEVATOR - db $3, $3, $6, SILPH_CO_3F - db $3, $d, $4, SILPH_CO_8F - db $f, $1b, $5, SILPH_CO_8F - db $f, $9, $4, SILPH_CO_6F - - db $0 ; signs - - db $5 ; people - db SPRITE_ERIKA, $1 + 4, $a + 4, $ff, $d1, $1 ; person - db SPRITE_OAK_AIDE, $c + 4, $5 + 4, $ff, $d0, $42, SCIENTIST + $C8, $2 ; trainer - db SPRITE_OAK_AIDE, $d + 4, $18 + 4, $ff, $d2, $43, SCIENTIST + $C8, $3 ; trainer - db SPRITE_ROCKET, $b + 4, $10 + 4, $ff, $d1, $44, ROCKET + $C8, $17 ; trainer - db SPRITE_ROCKET, $7 + 4, $18 + 4, $ff, $d1, $45, ROCKET + $C8, $18 ; trainer - - ; warp-to - EVENT_DISP $f, $0, $18 ; SILPH_CO_1F - EVENT_DISP $f, $0, $1a ; SILPH_CO_3F - EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR - EVENT_DISP $f, $3, $3 ; SILPH_CO_3F - EVENT_DISP $f, $3, $d ; SILPH_CO_8F - EVENT_DISP $f, $f, $1b ; SILPH_CO_8F - EVENT_DISP $f, $f, $9 ; SILPH_CO_6F - -SilphCo2Blocks: ; 135 - INCBIN "maps/silphco2.blk" - -SilphCo3_h: ; 0x59f4f to 0x59f5b (12 bytes) (id=208) - db $16 ; tileset - db $09, $0f ; dimensions (y, x) - dw SilphCo3Blocks, SilphCo3Texts, SilphCo3Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo3Object ; objects - -SilphCo3Script: ; 0x59f5b - call $5f71 - call $3c3c - ld hl, $5fcc - ld de, $5fbe - ld a, [$d644] - call $3160 - ld [$d644], a - ret -; 0x59f71 - -INCBIN "baserom.gbc",$59f71,$53 - -SilphCo3Texts: ; 0x59fc4 - dw SilphCo3Text1, SilphCo3Text2, SilphCo3Text3, SilphCo3Text4 - -INCBIN "baserom.gbc",$59fcc,$19 - -SilphCo3Text1: ; 0x59fe5 - db $08 ; asm - ld a, [$d838] - bit 7, a - ld hl, $5ffe - jr nz, asm_8c56f ; 0x59fee - ld hl, $5ff9 -asm_8c56f ; 0x59ff3 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$59ff9,$5a003 - $59ff9 - -SilphCo3Text2: ; 0x5a003 - db $08 ; asm - ld hl, $5fcc - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5a00d,$5a01c - $5a00d - -SilphCo3Text3: ; 0x5a01c - db $08 ; asm - ld hl, $5fd8 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5a026,$f - -SilphCo3Object: ; 0x5a035 (size=113) - db $2e ; border tile - - db $a ; warps - db $0, $1a, $1, SILPH_CO_2F - db $0, $18, $0, SILPH_CO_4F - db $0, $14, $0, SILPH_CO_ELEVATOR - db $b, $17, $9, SILPH_CO_3F - db $3, $3, $5, SILPH_CO_5F - db $f, $3, $6, SILPH_CO_5F - db $3, $1b, $3, SILPH_CO_2F - db $b, $3, $3, SILPH_CO_9F - db $b, $b, $4, SILPH_CO_7F - db $f, $1b, $3, SILPH_CO_3F - - db $0 ; signs - - db $4 ; people - db SPRITE_LAPRAS_GIVER, $8 + 4, $18 + 4, $ff, $ff, $1 ; person - db SPRITE_ROCKET, $7 + 4, $14 + 4, $ff, $d2, $42, ROCKET + $C8, $19 ; trainer - db SPRITE_OAK_AIDE, $9 + 4, $7 + 4, $ff, $d0, $43, SCIENTIST + $C8, $4 ; trainer - db SPRITE_BALL, $5 + 4, $8 + 4, $ff, $ff, $84, HYPER_POTION ; item - - ; warp-to - EVENT_DISP $f, $0, $1a ; SILPH_CO_2F - EVENT_DISP $f, $0, $18 ; SILPH_CO_4F - EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR - EVENT_DISP $f, $b, $17 ; SILPH_CO_3F - EVENT_DISP $f, $3, $3 ; SILPH_CO_5F - EVENT_DISP $f, $f, $3 ; SILPH_CO_5F - EVENT_DISP $f, $3, $1b ; SILPH_CO_2F - EVENT_DISP $f, $b, $3 ; SILPH_CO_9F - EVENT_DISP $f, $b, $b ; SILPH_CO_7F - EVENT_DISP $f, $f, $1b ; SILPH_CO_3F - -SilphCo3Blocks: ; 135 - INCBIN "maps/silphco3.blk" - -SilphCo10_h: ; 0x5a12d to 0x5a139 (12 bytes) (id=234) - db $16 ; tileset - db $09, $08 ; dimensions (y, x) - dw SilphCo10Blocks, SilphCo10Texts, SilphCo10Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo10Object ; objects - -SilphCo10Script: ; 0x5a139 - call $614f - call $3c3c - ld hl, $6192 - ld de, $6180 - ld a, [$d658] - call $3160 - ld [$d658], a - ret -; 0x5a14f - -INCBIN "baserom.gbc",$5a14f,$37 - -SilphCo10Texts: ; 0x5a186 - dw SilphCo10Text1, SilphCo10Text2, SilphCo10Text3, SilphCo10Text4, SilphCo10Text5, SilphCo10Text6 - -INCBIN "baserom.gbc",$5a192,$19 - -SilphCo10Text1: ; 0x5a1ab - db $08 ; asm - ld hl, $6192 - call LoadTrainerHeader - jp $24d7 - -SilphCo10Text2: ; 0x5a1b5 - db $08 ; asm - ld hl, $619e - call LoadTrainerHeader - jp $24d7 - -SilphCo10Text3: ; 0x5a1bf - db $08 ; asm - ld a, [$d838] - bit 7, a - ld hl, $61d8 - jr nz, asm_cf85f ; 0x5a1c8 - ld hl, $61d3 -asm_cf85f ; 0x5a1cd - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$5a1d3,$28 - -SilphCo10Object: ; 0x5a1fb (size=95) - db $2e ; border tile - - db $6 ; warps - db $0, $8, $0, SILPH_CO_9F - db $0, $a, $0, SILPH_CO_11F - db $0, $c, $0, SILPH_CO_ELEVATOR - db $b, $9, $3, SILPH_CO_4F - db $f, $d, $5, SILPH_CO_4F - db $7, $d, $6, SILPH_CO_4F - - db $0 ; signs - - db $6 ; people - db SPRITE_ROCKET, $9 + 4, $1 + 4, $ff, $d3, $41, ROCKET + $C8, $27 ; trainer - db SPRITE_OAK_AIDE, $2 + 4, $a + 4, $ff, $d2, $42, SCIENTIST + $C8, $b ; trainer - db SPRITE_ERIKA, $f + 4, $9 + 4, $fe, $0, $3 ; person - db SPRITE_BALL, $c + 4, $2 + 4, $ff, $ff, $84, TM_26 ; item - db SPRITE_BALL, $e + 4, $4 + 4, $ff, $ff, $85, RARE_CANDY ; item - db SPRITE_BALL, $b + 4, $5 + 4, $ff, $ff, $86, CARBOS ; item - - ; warp-to - EVENT_DISP $8, $0, $8 ; SILPH_CO_9F - EVENT_DISP $8, $0, $a ; SILPH_CO_11F - EVENT_DISP $8, $0, $c ; SILPH_CO_ELEVATOR - EVENT_DISP $8, $b, $9 ; SILPH_CO_4F - EVENT_DISP $8, $f, $d ; SILPH_CO_4F - EVENT_DISP $8, $7, $d ; SILPH_CO_4F - -SilphCo10Blocks: ; 72 - INCBIN "maps/silphco10.blk" - -Lance_h: ; 0x5a2a2 to 0x5a2ae (12 bytes) (id=113) - db $05 ; tileset - db $0d, $0d ; dimensions (y, x) - dw LanceBlocks, LanceTexts, LanceScript ; blocks, texts, scripts - db $00 ; connections - - dw LanceObject ; objects - -LanceScript: ; 0x5a2ae - call $62c4 - call $3c3c - ld hl, $6397 - ld de, $62fa - ld a, [$d653] - call $3160 - ld [$d653], a - ret -; 0x5a2c4 - -INCBIN "baserom.gbc",$5a2c4,$d1 - -LanceTexts: ; 0x5a395 - dw LanceText1 - -INCBIN "baserom.gbc",$5a397,$d - -LanceText1: ; 0x5a3a4 - db $08 ; asm - ld hl, $6397 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5a3ae,$17 - -LanceObject: ; 0x5a3c5 (size=36) - db $3 ; border tile - - db $3 ; warps - db $10, $18, $2, AGATHAS_ROOM - db $0, $5, $0, CHAMPIONS_ROOM - db $0, $6, $0, CHAMPIONS_ROOM - - db $0 ; signs - - db $1 ; people - db SPRITE_LANCE, $1 + 4, $6 + 4, $ff, $d0, $41, LANCE + $C8, $1 ; trainer - - ; warp-to - EVENT_DISP $d, $10, $18 ; AGATHAS_ROOM - EVENT_DISP $d, $0, $5 ; CHAMPIONS_ROOM - EVENT_DISP $d, $0, $6 ; CHAMPIONS_ROOM - -LanceBlocks: ; 169 - INCBIN "maps/lance.blk" - -HallofFameRoom_h: ; 0x5a492 to 0x5a49e (12 bytes) (id=118) - db $07 ; tileset - db $04, $05 ; dimensions (y, x) - dw HallofFameRoomBlocks, HallofFameRoomTexts, HallofFameRoomScript ; blocks, texts, scripts - db $00 ; connections - - dw HallofFameRoomObject ; objects - -HallofFameRoomScript: ; 0x5a49e - call $3c3c - ld hl, $64b2 - ld a, [$d64b] - jp $3d97 -; 0x5a4aa - -INCBIN "baserom.gbc",$5a4aa,$5a4b2 - $5a4aa - -HallofFameRoomScripts: ; 0x5a4b2 - dw HallofFameRoomScript0, HallofFameRoomScript1, HallofFameRoomScript2 - -INCBIN "baserom.gbc",$5a4b8,$3 - -HallofFameRoomScript2: ; 0x5a4bb - call Delay3 - ld a, [$d358] - push af - xor a - ld [$cd6b], a - ld a, $55 - call Predef - pop af - ld [$d358], a - ld hl, $d733 - res 1, [hl] - inc hl - set 0, [hl] - xor a - ld hl, $d64d - ld [hli], a - ld [hli], a - ld [hl], a - ld [$d653], a - ld [$d64b], a - ld hl, $d863 - ld [hli], a - ld [hli], a - ld [hli], a - ld [hli], a - ld [hl], a - xor a - ld [$d64b], a - ld a, $0 - ld [$d719], a - ld b, $1c - ld hl, $7848 - call Bankswitch - ld b, $5 -.asm_5a4ff - ld c, $78 - call $3739 - dec b - jr nz, .asm_5a4ff ; 0x5a505 $f8 - call $3865 - jp $1f54 -; 0x5a50d - -HallofFameRoomScript0: ; 0x5a50d - ld a, $ff - ld [$cd6b], a - ld hl, $ccd3 - ld de, $6528 - call $350c - dec a - ld [$cd38], a - call $3486 - ld a, $1 - ld [$d64b], a - ret -; 0x5a528 - -INCBIN "baserom.gbc",$5a528,$5a52b - $5a528 - -HallofFameRoomScript1: ; 0x5a52b - ld a, [$cd38] - and a - ret nz - ld a, $1 - ld [$d528], a - ld a, $1 - ld [$ff00+$8c], a - call $3541 - ld a, $8 - ld [$ff00+$8d], a - call $34a6 - call Delay3 - xor a - ld [$cd6b], a - inc a - ld [$d528], a - ld a, $1 - ld [$ff00+$8c], a - call $2920 - ld a, $ff - ld [$cd6b], a - ld a, $8 - ld [$cc4d], a - ld a, $11 - call Predef - ld a, $2 - ld [$d64b], a - ret -; 0x5a56a - -HallofFameRoomTexts: ; 0x5a56a - dw HallofFameRoomText1 - -HallofFameRoomText1: ; 0x5a56c - TX_FAR _HallofFameRoomText1 - db $50 - -HallofFameRoomObject: ; 0x5a571 (size=26) - db $3 ; border tile - - db $2 ; warps - db $7, $4, $2, CHAMPIONS_ROOM - db $7, $5, $3, CHAMPIONS_ROOM - - db $0 ; signs - - db $1 ; people - db SPRITE_OAK, $2 + 4, $5 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $5, $7, $4 ; CHAMPIONS_ROOM - EVENT_DISP $5, $7, $5 ; CHAMPIONS_ROOM - -HallofFameRoomBlocks: ; 20 - INCBIN "maps/halloffameroom.blk" - -INCBIN "baserom.gbc",$5a59f,$1a61 - -SECTION "bank17",DATA,BANK[$17] - -VermilionMartBlocks: ; 16 - INCBIN "maps/vermilionmart.blk" - -RedsHouse2FBlocks: - INCBIN "maps/redshouse2f.blk" - -MuseumF1Blocks: ; 40 - INCBIN "maps/museumf1.blk" - -MuseumF2Blocks: ; 28 - INCBIN "maps/museumf2.blk" - -PewterPokecenterBlocks: ; 28 - INCBIN "maps/pewterpokecenter.blk" - -UndergroundTunnelEntranceRoute5Blocks: ; 16 - INCBIN "maps/undergroundtunnelentranceroute5.blk" - -ViridianForestexitBlocks: ; 20 - INCBIN "maps/viridianforestexit.blk" - -RedsHouse2F_h: - db $04 ; tileset - db $04,$04 ; dimensions - dw RedsHouse2FBlocks, RedsHouse2FTexts, RedsHouse2FScript - db 0 ; no connections - dw RedsHouse2FObject - -RedsHouse2FScript: - call $3C3C - ld hl,RedsHouse2FScriptPointers - ld a,[$D60C] - jp $3D97 - -RedsHouse2FScriptPointers: - dw RedsHouse2FScript1,RedsHouse2FScript2 - -RedsHouse2FScript1: - xor a - ld [$FFB4],a - ld a,8 - ld [$D528],a - ld a,1 - ld [$D60C],a - ret - -RedsHouse2FScript2: - ret - -RedsHouse2FTexts: - db "@" - -RedsHouse2FObject: - db $0A ; border tile - - db 1 ; warps - db 1,7,2,$25 - - db 0 ; signs - - db 0 ; people - - dw $C6EF + 4 + (4 + 6) * 0 + 3 - db 1,7 - -INCBIN "baserom.gbc",$5c0dc,$5c0eb - $5c0dc - -MuseumF1_h: ; 0x5c0eb to 0x5c0f7 (12 bytes) (id=52) - db $0a ; tileset - db $04, $0a ; dimensions (y, x) - dw MuseumF1Blocks, MuseumF1Texts, MuseumF1Script ; blocks, texts, scripts - db $00 ; connections - - dw MuseumF1Object ; objects - -MuseumF1Script: ; 0x5c0f7 - ld a, $1 - ld [$cf0c], a - xor a - ld [$cc3c], a - ld hl, $4109 - ld a, [$d619] - jp $3d97 -; 0x5c109 - -MuseumF1Scripts: ; 0x5c109 - dw MuseumF1Script0, MuseumF1Script1 - -MuseumF1Script0: ; 0x5c10d - ld a, [$d361] - cp $4 - ret nz - ld a, [$d362] - cp $9 - jr z, .asm_5c120 ; 0x5c118 $6 - ld a, [$d362] - cp $a - ret nz -.asm_5c120 - xor a - ld [$ff00+$b4], a - ld a, $1 - ld [$ff00+$8c], a - jp $2920 -; 0x5c12a - -MuseumF1Script1: ; 0x5c12a - ret -; 0x5c12b - -MuseumF1Texts: ; 0x5c12b - dw MuseumF1Text1, MuseumF1Text2, MuseumF1Text3, MuseumF1Text4, MuseumF1Text5 - -MuseumF1Text1: ; 0x5c135 - db $8 - ld a, [$d361] - cp $4 - jr nz, asm_8774b ; 0x5c13b $a - ld a, [$d362] - cp $d - jp z, $41f9 - jr asm_b8709 ; 0x5c145 $1c -asm_8774b: ; 0x5c147 - cp $3 - jr nz, asm_d49e7 ; 0x5c149 $8 - ld a, [$d362] - cp $c - jp z, $41f9 -asm_d49e7: ; 0x5c153 - ld a, [$d754] - bit 0, a - jr nz, asm_31a16 ; 0x5c158 $10 - ld hl, $423d - call PrintText - jp $4217 -asm_b8709: ; 0x5c163 - ld a, [$d754] - bit 0, a - jr z, asm_3ded4 ; 0x5c168 $9 -asm_31a16: ; 0x5c16a - ld hl, $4242 - call PrintText - jp $4217 -asm_3ded4: ; 0x5c173 - ld a, $13 - ld [$d125], a - call $30e8 - xor a - ld [$ff00+$b4], a - ld hl, $421f - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, asm_de133 ; 0x5c18b $4d - xor a - ld [$ff00+$9f], a - ld [$ff00+$a0], a - ld a, $50 - ld [$ff00+$a1], a - call $35a6 - jr nc, asm_0f3e3 ; 0x5c199 $9 - ld hl, $4229 - call PrintText - jp $41da -asm_0f3e3: ; 0x5c1a4 - ld hl, $4224 - call PrintText - ld hl, $d754 - set 0, [hl] - xor a - ld [$cd3d], a - ld [$cd3e], a - ld a, $50 - ld [$cd3f], a - ld hl, $cd3f - ld de, $d349 - ld c, $3 - ld a, $c - call Predef - ld a, $13 - ld [$d125], a - call $30e8 - ld a, $b2 - call $3740 - call $3748 - jr asm_0b094 ; 0x5c1d8 $18 -asm_de133: ; 0x5c1da - ld hl, $421a - call PrintText - ld a, $1 - ld [$cd38], a - ld a, $80 - ld [$ccd3], a - call $3486 - call $2429 - jr asm_d1145 ; 0x5c1f0 $25 -asm_0b094: ; 0x5c1f2 - ld a, $1 - ld [$d619], a - jr asm_d1145 ; 0x5c1f7 $1e -;XXX what calls this? - ld hl, $422e - call PrintText - call $35ec - ld a, [$cc26] - cp $0 - jr nz, asm_d1144 - ld hl, $4233 - call PrintText - jr asm_d1145 ; 0x5c20f $6 -asm_d1144: - ld hl, $4238 - call PrintText -asm_d1145: ; 0x5c217 - jp $24d7 -; 0x5c21a - -INCBIN "baserom.gbc",$5c21a,$2d - -MuseumF1Text2: ; 0x5c247 - db $08 ; asm - ld hl, $4251 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$5c251,$5c256 - $5c251 - -MuseumF1Text3: ; 0x5c256 - db $08 ; asm - ld a, [$d754] - bit 1, a - jr nz, .asm_16599 ; 0x5c25c - ld hl, $428e - call PrintText - ld bc,(OLD_AMBER << 8) | 1 - call $3e2e - jr nc, .asm_91ebf ; 0x5c26a - ld hl, $d754 - set 1, [hl] - ld a, $34 - ld [$cc4d], a - ld a, $11 - call Predef - ld hl, $4293 - jr .asm_52e0f ; 0x5c27e -.asm_91ebf ; 0x5c280 - ld hl, $429e - jr .asm_52e0f ; 0x5c283 -.asm_16599 ; 0x5c285 - ld hl, $4299 -.asm_52e0f ; 0x5c288 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$5c28e,$5c2a3 - $5c28e - -MuseumF1Text4: ; 0x5c2a3 - db $08 ; asm - ld hl, $42ad - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$5c2ad,$5c2b2 - $5c2ad - -MuseumF1Text5: ; 0x5c2b2 - db $08 ; asm - ld hl, $42bc - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$5c2bc,$5 - -MuseumF1Object: ; 0x5c2c1 (size=74) - db $a ; border tile - - db $5 ; warps - db $7, $a, $0, $ff - db $7, $b, $0, $ff - db $7, $10, $1, $ff - db $7, $11, $1, $ff - db $7, $7, $0, MUSEUM_2F - - db $0 ; signs - - db $5 ; people - db SPRITE_OAK_AIDE, $4 + 4, $c + 4, $ff, $d2, $1 ; person - db SPRITE_GAMBLER, $4 + 4, $1 + 4, $ff, $ff, $2 ; person - db SPRITE_OAK_AIDE, $2 + 4, $f + 4, $ff, $d0, $3 ; person - db SPRITE_OAK_AIDE, $4 + 4, $11 + 4, $ff, $ff, $4 ; person - db SPRITE_OLD_AMBER, $2 + 4, $10 + 4, $ff, $ff, $5 ; person - - ; warp-to - EVENT_DISP $a, $7, $a - EVENT_DISP $a, $7, $b - EVENT_DISP $a, $7, $10 - EVENT_DISP $a, $7, $11 - EVENT_DISP $a, $7, $7 ; MUSEUM_2F - -MuseumF2_h: ; 0x5c30b to 0x5c317 (12 bytes) (id=53) - db $0a ; tileset - db $04, $07 ; dimensions (y, x) - dw MuseumF2Blocks, MuseumF2Texts, MuseumF2Script ; blocks, texts, scripts - db $00 ; connections - - dw MuseumF2Object ; objects - -MuseumF2Script: ; 0x5c317 - jp $3c3c -; 0x5c31a - -MuseumF2Texts: ; 0x5c31a - dw MuseumF2Text1, MuseumF2Text2, MuseumF2Text3, MuseumF2Text4, MuseumF2Text5, MuseumF2Text6, MuseumF2Text7 - -MuseumF2Text1: ; 0x5c328 - TX_FAR _MuseumF2Text1 - db $50 - -MuseumF2Text2: ; 0x5c32d - TX_FAR _MuseumF2Text2 - db $50 - -MuseumF2Text3: ; 0x5c332 - TX_FAR _MuseumF2Text3 - db $50 - -MuseumF2Text4: ; 0x5c337 - TX_FAR _MuseumF2Text4 - db $50 - -MuseumF2Text5: ; 0x5c33c - TX_FAR _MuseumF2Text5 - db $50 - -MuseumF2Text6: ; 0x5c341 - TX_FAR _MuseumF2Text6 - db $50 - -MuseumF2Text7: ; 0x5c346 - TX_FAR _MuseumF2Text7 - db $50 - -MuseumF2Object: ; 0x5c34b (size=48) - db $a ; border tile - - db $1 ; warps - db $7, $7, $4, MUSEUM_1F - - db $2 ; signs - db $2, $b, $6 ; MuseumF2Text6 - db $5, $2, $7 ; MuseumF2Text7 - - db $5 ; people - db SPRITE_BUG_CATCHER, $7 + 4, $1 + 4, $fe, $2, $1 ; person - db SPRITE_OLD_PERSON, $5 + 4, $0 + 4, $ff, $d0, $2 ; person - db SPRITE_OAK_AIDE, $5 + 4, $7 + 4, $ff, $d0, $3 ; person - db SPRITE_BRUNETTE_GIRL, $5 + 4, $b + 4, $ff, $ff, $4 ; person - db SPRITE_HIKER, $5 + 4, $c + 4, $ff, $d0, $5 ; person - - ; warp-to - EVENT_DISP $7, $7, $7 ; MUSEUM_1F - -PewterGym_h: ; 0x5c37b to 0x5c387 (12 bytes) (id=54) - db $07 ; tileset - db $07, $05 ; dimensions (y, x) - dw PewterGymBlocks, PewterGymTexts, PewterGymScript ; blocks, texts, scripts - db $00 ; connections - - dw PewterGymObject ; objects - -PewterGymScript: ; 0x5c387 - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - call nz, $43a4 - call $3c3c - ld hl, $4441 - ld de, $43ca - ld a, [$d5fc] - call $3160 - ld [$d5fc], a - ret -; 0x5c3a4 - -INCBIN "baserom.gbc",$5c3a4,$91 - -PewterGymTexts: ; 0x5c435 - dw PewterGymText1, PewterGymText2, PewterGymText3, PewterGymText4, PewterGymText5, PewterGymText6 - -INCBIN "baserom.gbc",$5c43b + 6,$13 - 6 - -PewterGymText1: ; 0x5c44e - db $08 ; asm - ld a, [$d755] - bit 7, a - jr z, .asm_4a735 ; 0x5c454 - bit 6, a - jr nz, .asm_ff7d0 ; 0x5c458 - call z, $43df - call $30b6 - jr .asm_e0ffb ; 0x5c460 -.asm_ff7d0 ; 0x5c462 - ld hl, $44a3 - call PrintText - jr .asm_e0ffb ; 0x5c468 -.asm_4a735 ; 0x5c46a - ld hl, $449e - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $44bc - ld de, $44bc - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $1 - ld [$d05c], a - xor a - ldh [$b4], a - ld a, $3 - ld [$d5fc], a - ld [$da39], a -.asm_e0ffb ; 0x5c49b - jp $24d7 - -INCBIN "baserom.gbc",$5c49e,$5c4a8 - $5c49e - -PewterGymText4: ; 0x5c4a8 -INCBIN "baserom.gbc",$5c4a8,5 - -PewterGymText5: ; 0x5c4ad -INCBIN "baserom.gbc",$5c4ad,6 - -INCBIN "baserom.gbc",$5c4b3,$5c4b7 - $5c4b3 - -PewterGymText6: ; 0x5c4b7 -INCBIN "baserom.gbc",$5c4b7,5 - -INCBIN "baserom.gbc",$5c4bc,$5c4c6 - $5c4bc - -PewterGymText2: ; 0x5c4c6 - db $08 ; asm - ld hl, $4441 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5c4d0,$5c4df - $5c4d0 - -PewterGymText3: ; 0x5c4df - db $08 ; asm - ld a, [$d72a] - bit 0, a - jr nz, .asm_71369 ; 0x5c4e5 - ld hl, $4515 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_6123a ; 0x5c4f4 - ld hl, $451a - call PrintText - jr .asm_d1578 ; 0x5c4fc -.asm_6123a ; 0x5c4fe - ld hl, $4524 - call PrintText -.asm_d1578 ; 0x5c504 - ld hl, $451f - call PrintText - jr .asm_07013 ; 0x5c50a -.asm_71369 ; 0x5c50c - ld hl, $4529 - call PrintText -.asm_07013 ; 0x5c512 - jp $24d7 - -INCBIN "baserom.gbc",$5c515,$19 - -PewterGymObject: ; 0x5c52e (size=42) - db $3 ; border tile - - db $2 ; warps - db $d, $4, $2, $ff - db $d, $5, $2, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_BLACK_HAIR_BOY_2, $1 + 4, $4 + 4, $ff, $d0, $41, BROCK + $C8, $1 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $6 + 4, $3 + 4, $ff, $d3, $42, JR__TRAINER_M + $C8, $1 ; trainer - db SPRITE_GYM_HELPER, $a + 4, $7 + 4, $ff, $d0, $3 ; person - - ; warp-to - EVENT_DISP $5, $d, $4 - EVENT_DISP $5, $d, $5 - -PewterGymBlocks: ; 35 - INCBIN "maps/pewtergym.blk" - -PewterPokecenter_h: ; 0x5c57b to 0x5c587 (12 bytes) (id=58) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw PewterPokecenterBlocks, $458d, PewterPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw PewterPokecenterObject ; objects - -PewterPokecenterScript: ; 0x5c587 - call $22fa - jp $3c3c -; 0x5c58d - -INCBIN "baserom.gbc",$5c58d,$9 - -PewterPokecenterText2: -PewterPokecenterText1: ; 0x5c596 - TX_FAR _PewterPokecenterText1 - db $50 - -PewterPokecenterText3: ; 0x5c59b - db $8 - ld a, $1 - ld [$cc3c], a - ld hl, $4603 - call PrintText - ld a, $ff - call $23b1 - ld c, $20 - call $3739 - ld hl, $4608 - ld de, $cd3f - ld bc, $0004 - call CopyData - ld a, [$c132] - ld hl, $cd3f -.asm_5c5c3 - cp [hl] - inc hl - jr nz, .asm_5c5c3 ; 0x5c5c5 $fc - dec hl - push hl - ld c, $1f - ld a, $d0 - call $23a1 - pop hl -.asm_5c5d1 - ld a, [hl] - ld [$c132], a - push hl - ld hl, $cd3f - ld de, $cd3e - ld bc, $0004 - call CopyData - ld a, [$cd3e] - ld [$cd42], a - pop hl - ld c, $18 - call $3739 - ld a, [$c026] - ld b, a - ld a, [$c027] - or b - jr nz, .asm_5c5d1 ; 0x5c5f6 $d9 - ld c, $30 - call $3739 - call $2307 - jp $24d7 -; 0x5c603 - -PewterPokecenterText4: ; broken TX_FAR to _PewterPokecenterText4 - db $17, $44, $47, $26 - db $50 - -;XXX wtf? -db $30, $38, $34, $3c - -PewterPokecenterText5: ; XXX confirm text_id number - db $f6 - -PewterPokecenterObject: ; 0x5c60d (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $6, $ff - db $7, $4, $6, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_GENTLEMAN, $7 + 4, $b + 4, $ff, $d2, $2 ; person - db SPRITE_CLEFAIRY, $3 + 4, $1 + 4, $ff, $d0, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -CeruleanPokecenter_h: ; 0x5c639 to 0x5c645 (12 bytes) (id=64) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw CeruleanPokecenterBlocks, $464b, CeruleanPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw CeruleanPokecenterObject ; objects - -CeruleanPokecenterScript: ; 0x5c645 - call $22fa - jp $3c3c -; 0x5c64b - -INCBIN "baserom.gbc",$5c64b,$8 - -CeruleanPokecenterText4: - db $f6, $ff - -CeruleanPokecenterText2: -CeruleanPokecenterText1: ; 0x5c655 - TX_FAR _CeruleanPokecenterText1 - db $50 - -CeruleanPokecenterText3: - TX_FAR _CeruleanPokecenterText3 - db $50 - -CeruleanPokecenterObject: ; 0x5c65f (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $2, $ff - db $7, $4, $2, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $a + 4, $fe, $0, $2 ; person - db SPRITE_GENTLEMAN, $3 + 4, $4 + 4, $ff, $d0, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -CeruleanPokecenterBlocks: ; 28 - INCBIN "maps/ceruleanpokecenter.blk" - -CeruleanGym_h: ; 0x5c6a7 to 0x5c6b3 (12 bytes) (id=65) - db $07 ; tileset - db $07, $05 ; dimensions (y, x) - dw CeruleanGymBlocks, CeruleanGymTexts, CeruleanGymScript ; blocks, texts, scripts - db $00 ; connections - - dw CeruleanGymObject ; objects - -CeruleanGymScript: ; 0x5c6b3 - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - call nz, $46d0 - call $3c3c - ld hl, $4758 - ld de, $46f8 - ld a, [$d5fd] - call $3160 - ld [$d5fd], a - ret -; 0x5c6d0 - -INCBIN "baserom.gbc",$5c6d0,$7a - -CeruleanGymTexts: ; 0x5c74a - dw CeruleanGymText1, CeruleanGymText2, CeruleanGymText3, CeruleanGymText4, CeruleanGymText5, CeruleanGymText6, CeruleanGymText7 - -INCBIN "baserom.gbc",$5c752 + 6,$1f - 6 - -CeruleanGymText1: ; 0x5c771 - db $08 ; asm - ld a, [$d75e] - bit 7, a - jr z, .asm_10854 ; 0x5c777 - bit 6, a - jr nz, .asm_37a1b ; 0x5c77b - call z, $470d - call $30b6 - jr .asm_95b04 ; 0x5c783 -.asm_37a1b ; 0x5c785 - ld hl, $47c3 - call PrintText - jr .asm_95b04 ; 0x5c78b -.asm_10854 ; 0x5c78d - ld hl, $47be - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $47d8 - ld de, $47d8 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $2 - ld [$d05c], a - xor a - ldh [$b4], a - ld a, $3 - ld [$d5fd], a -.asm_95b04 ; 0x5c7bb - jp $24d7 - -INCBIN "baserom.gbc",$5c7be,$5c7c8 - $5c7be - -CeruleanGymText5: ; 0x5c7c8 -INCBIN "baserom.gbc",$5c7c8,5 - -CeruleanGymText6: ; 0x5c7cd -INCBIN "baserom.gbc",$5c7cd,4 -db $0b -db $50 - -CeruleanGymText7: ; 0x5c7d3 -INCBIN "baserom.gbc",$5c7d3,5 - -INCBIN "baserom.gbc",$5c7d8,$5c7df - $5c7d8 - -CeruleanGymText2: ; 0x5c7df - db $08 ; asm - ld hl, $4758 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5c7e9,$5c7f8 - $5c7e9 - -CeruleanGymText3: ; 0x5c7f8 - db $08 ; asm - ld hl, $4764 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5c802,$5c811 - $5c802 - -CeruleanGymText4: ; 0x5c811 - db $08 ; asm - ld a, [$d75e] - bit 7, a - jr nz, .asm_f80ce ; 0x5c817 - ld hl, $482a - call PrintText - jr .asm_18a31 ; 0x5c81f -.asm_f80ce ; 0x5c821 - ld hl, $482f - call PrintText -.asm_18a31 ; 0x5c827 - jp $24d7 - -INCBIN "baserom.gbc",$5c82a,$a - -CeruleanGymObject: ; 0x5c834 (size=50) - db $3 ; border tile - - db $2 ; warps - db $d, $4, $3, $ff - db $d, $5, $3, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_BRUNETTE_GIRL, $2 + 4, $4 + 4, $ff, $d0, $41, MISTY + $C8, $1 ; trainer - db SPRITE_LASS, $3 + 4, $2 + 4, $ff, $d3, $42, JR__TRAINER_F + $C8, $1 ; trainer - db SPRITE_SWIMMER, $7 + 4, $8 + 4, $ff, $d2, $43, SWIMMER + $C8, $1 ; trainer - db SPRITE_GYM_HELPER, $a + 4, $7 + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $5, $d, $4 - EVENT_DISP $5, $d, $5 - -CeruleanGymBlocks: ; 35 - INCBIN "maps/ceruleangym.blk" - -CeruleanMart_h: ; 0x5c889 to 0x5c895 (12 bytes) (id=67) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw $4000, CeruleanMartTexts, CeruleanMartScript ; blocks, texts, scripts - db $00 ; connections - - dw CeruleanMartObject ; objects - -CeruleanMartScript: ; 0x5c895 - jp $3c3c -; 0x5c898 - -CeruleanMartTexts: ; 0x5c898 - dw CeruleanMartText1, CeruleanMartText2, CeruleanMartText3 - -CeruleanMartText2: ; 0x5c89e - TX_FAR _CeruleanMartText2 - db $50 - -CeruleanMartText3: ; 0x5c8a3 - TX_FAR _CeruleanMartText3 - db $50 - -CeruleanMartObject: ; 0x5c8a8 (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $5, $ff - db $7, $4, $5, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_BLACK_HAIR_BOY_1, $4 + 4, $3 + 4, $fe, $1, $2 ; person - db SPRITE_LASS, $2 + 4, $6 + 4, $fe, $2, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -LavenderPokecenter_h: ; 0x5c8ce to 0x5c8da (12 bytes) (id=141) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw $4064, $48e0, LavenderPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw LavenderPokecenterObject ; objects - -LavenderPokecenterScript: ; 0x5c8da - call $22fa - jp $3c3c -; 0x5c8e0 - -INCBIN "baserom.gbc",$5c8e0,$8 - -LavenderPokecenterText4: - db $f6, $ff - -LavenderPokecenterText2: -LavenderPokecenterText1: ; 0x5c8ea - TX_FAR _LavenderPokecenterText1 - -INCBIN "baserom.gbc",$5c8ee,$5c8ef - $5c8ee - -LavenderPokecenterText3: ; 0x5c8ef - TX_FAR _LavenderPokecenterText3 - db $50 - -LavenderPokecenterObject: ; 0x5c8f4 (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $0, $ff - db $7, $4, $0, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_GENTLEMAN, $3 + 4, $5 + 4, $ff, $ff, $2 ; person - db SPRITE_LITTLE_GIRL, $6 + 4, $2 + 4, $fe, $1, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -LavenderMart_h: ; 0x5c920 to 0x5c92c (12 bytes) (id=150) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw $4000, $492f, LavenderMartScript ; blocks, texts, scripts - db $00 ; connections - - dw LavenderMartObject ; objects - -LavenderMartScript: ; 0x5c92c - jp $3c3c -; 0x5c92f - -LavenderMartTexts: ; 0x5c92f - dw LavenderMartText1, LavenderMartText2, LavenderMartText3 - -LavenderMartText2: ; 0x5c935 - TX_FAR _LavenderMartText2 - db $50 - -LavenderMartText3: ; 0x5c93a - db $08 ; asm - ld a, [$d7e0] - bit 7, a - jr nz, .asm_c88d4 ; 0x5c940 - ld hl, $4953 - call PrintText - jr .asm_6d225 ; 0x5c948 -.asm_c88d4 ; 0x5c94a - ld hl, $4958 - call PrintText -.asm_6d225 ; 0x5c950 - jp $24d7 - -INCBIN "baserom.gbc",$5c953,$a - -LavenderMartObject: ; 0x5c95d (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $3, $ff - db $7, $4, $3, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_BALDING_GUY, $4 + 4, $3 + 4, $ff, $ff, $2 ; person - db SPRITE_BLACK_HAIR_BOY_1, $2 + 4, $7 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -VermilionPokecenter_h: ; 0x5c983 to 0x5c98f (12 bytes) (id=89) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw $4064, $4995, VermilionPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw VermilionPokecenterObject ; objects - -VermilionPokecenterScript: ; 0x5c98f - call $22fa - jp $3c3c -; 0x5c995 - -INCBIN "baserom.gbc",$5c995,$9 - -VermilionPokecenterText2: -VermilionPokecenterText1: ; 0x5c99e - TX_FAR _VermilionPokecenterText1 - db $50 - -VermilionPokecenterText3: ; 0x5c9a3 - TX_FAR _VermilionPokecenterText3 - db $50 - -VermilionPokecenterText4: ; 0x5c9a8 - db $f6 - -VermilionPokecenterObject: ; 0x5c9a9 (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $0, $ff - db $7, $4, $0, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_FISHER, $5 + 4, $a + 4, $ff, $ff, $2 ; person - db SPRITE_SAILOR, $4 + 4, $5 + 4, $ff, $ff, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -VermilionMart_h: ; 0x5c9d5 to 0x5c9e1 (12 bytes) (id=91) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw VermilionMartBlocks, VermilionMartTexts, VermilionMartScript ; blocks, texts, scripts - db $00 ; connections - - dw VermilionMartObject ; objects - -VermilionMartScript: ; 0x5c9e1 - jp $3c3c -; 0x5c9e4 - -VermilionMartTexts: ; 0x5c9e4 - dw VermilionMartText1, VermilionMartText2, VermilionMartText3 - -VermilionMartText2: ; 0x5c9ea - TX_FAR _VermilionMartText2 - db $50 - -VermilionMartText3: ; 0x5c9ef - TX_FAR _VermilionMartText3 - db $50 - -VermilionMartObject: ; 0x5c9f4 (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $2, $ff - db $7, $4, $2, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_BLACK_HAIR_BOY_1, $6 + 4, $5 + 4, $ff, $ff, $2 ; person - db SPRITE_LASS, $3 + 4, $3 + 4, $fe, $2, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -VermilionGym_h: ; 0x5ca1a to 0x5ca26 (12 bytes) (id=92) - db $07 ; tileset - db $09, $05 ; dimensions (y, x) - dw VermilionGymBlocks, VermilionGymTexts, VermilionGymScript ; blocks, texts, scripts - db $00 ; connections - - dw VermilionGymObject ; objects - -VermilionGymScript: ; 0x5ca26 - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - push hl - call nz, $4a4c - pop hl - bit 6, [hl] - res 6, [hl] - call nz, $4a6d - call $3c3c - ld hl, $4af8 - ld de, $4a95 - ld a, [$d5fe] - call $3160 - ld [$d5fe], a - ret -; 0x5ca4c - -INCBIN "baserom.gbc",$5ca4c,$9c - -VermilionGymTexts: ; 0x5cae8 - dw VermilionGymText1, VermilionGymText2, VermilionGymText3, VermilionGymText4, VermilionGymText5, VermilionGymText6, VermilionGymText7, VermilionGymText8 - -INCBIN "baserom.gbc",$5caf8,37 - -VermilionGymText1: ; 0x5cb1d - db $08 ; asm - ld a, [$d773] - bit 7, a - jr z, .asm_7cc29 ; 0x5cb23 - bit 6, a - jr nz, .asm_41203 ; 0x5cb27 - call z, $4aaa - call $30b6 - jr .asm_23621 ; 0x5cb2f -.asm_41203 ; 0x5cb31 - ld hl, $4b72 - call PrintText - jr .asm_23621 ; 0x5cb37 -.asm_7cc29 ; 0x5cb39 - ld hl, $4b6d - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $4b8b - ld de, $4b8b - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $3 - ld [$d05c], a - xor a - ldh [$b4], a - ld a, $3 - ld [$d5fe], a - ld [$da39], a -.asm_23621 ; 0x5cb6a - jp $24d7 - -INCBIN "baserom.gbc",$5cb6d,$5cb77 - $5cb6d - -VermilionGymText6: ; 0x5cb77 -INCBIN "baserom.gbc",$5cb77,5 - -VermilionGymText7: ; 0x5cb7c -INCBIN "baserom.gbc",$5cb7c,5 - -INCBIN "baserom.gbc",$5cb81,5 - -VermilionGymText8: ; 0x5cb86 -INCBIN "baserom.gbc",$5cb86,5 - -INCBIN "baserom.gbc",$5cb8b,5 - -VermilionGymText2: ; 0x5cb90 - db $08 ; asm - ld hl, $4af8 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5cb9a,$5cba9 - $5cb9a - -VermilionGymText3: ; 0x5cba9 - db $08 ; asm - ld hl, $4b04 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5cbb3,$5cbc2 - $5cbb3 - -VermilionGymText4: ; 0x5cbc2 - db $08 ; asm - ld hl, $4b10 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5cbcc,$5cbdb - $5cbcc - -VermilionGymText5: ; 0x5cbdb - db $08 ; asm - ld a, [$d72a] - bit 2, a - jr nz, .asm_13b67 ; 0x5cbe1 - ld hl, $4bf4 - call PrintText - jr .asm_c2b38 ; 0x5cbe9 -.asm_13b67 ; 0x5cbeb - ld hl, $4bf9 - call PrintText -.asm_c2b38 ; 0x5cbf1 - jp $24d7 - -INCBIN "baserom.gbc",$5cbf4,$a - -VermilionGymObject: ; 0x5cbfe (size=58) - db $3 ; border tile - - db $2 ; warps - db $11, $4, $3, $ff - db $11, $5, $3, $ff - - db $0 ; signs - - db $5 ; people - db SPRITE_ROCKER, $1 + 4, $5 + 4, $ff, $d0, $41, LT__SURGE + $C8, $1 ; trainer - db SPRITE_GENTLEMAN, $6 + 4, $9 + 4, $ff, $d2, $42, GENTLEMAN + $C8, $3 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $3 + 4, $ff, $d2, $43, ROCKER + $C8, $1 ; trainer - db SPRITE_SAILOR, $a + 4, $0 + 4, $ff, $d3, $44, SAILOR + $C8, $8 ; trainer - db SPRITE_GYM_HELPER, $e + 4, $4 + 4, $ff, $d0, $5 ; person - - ; warp-to - EVENT_DISP $5, $11, $4 - EVENT_DISP $5, $11, $5 - -VermilionGymBlocks: ; 45 - INCBIN "maps/vermiliongym.blk" - -CopycatsHouseF2_h: ; 0x5cc65 to 0x5cc71 (12 bytes) (id=176) - db $04 ; tileset - db $04, $04 ; dimensions (y, x) - dw $4010, CopycatsHouseF2Texts, CopycatsHouseF2Script ; blocks, texts, scripts - db $00 ; connections - - dw CopycatsHouseF2Object ; objects - -CopycatsHouseF2Script: ; 0x5cc71 - jp $3c3c -; 0x5cc74 - -CopycatsHouseF2Texts: ; 0x5cc74 - dw CopycatsHouseF2Text1, CopycatsHouseF2Text2, CopycatsHouseF2Text3, CopycatsHouseF2Text4, CopycatsHouseF2Text5, CopycatsHouseF2Text6, CopycatsHouseF2Text7 - -CopycatsHouseF2Text1: ; 0x5cc82 - db $08 ; asm - ld a, [$d7af] - bit 0, a - jr nz, .asm_7ccf3 ; 0x5cc88 - ld a, $1 - ld [$cc3c], a - ld hl, $4cd4 - call PrintText - ld b,POKE_DOLL - call $3493 - jr z, .asm_62ecd ; 0x5cc9a - ld hl, $4cd9 - call PrintText - ld bc,(TM_31 << 8) | 1 - call $3e2e - jr nc, .asm_16690 ; 0x5cca8 - ld hl, $4cde - call PrintText - ld a, $33 - ldh [$db], a - ld b, $5 ; BANK(MyFunction) - ld hl, $7f37 ; MyFunction - call Bankswitch - ld hl, $d7af - set 0, [hl] - jr .asm_62ecd ; 0x5ccc1 -.asm_16690 ; 0x5ccc3 - ld hl, $4cee - call PrintText - jr .asm_62ecd ; 0x5ccc9 -.asm_7ccf3 ; 0x5cccb - ld hl, $4ce9 - call PrintText -.asm_62ecd ; 0x5ccd1 - jp $24d7 - -INCBIN "baserom.gbc",$5ccd4,$20 - -CopycatsHouseF2Text2: ; 0x5ccf4 - TX_FAR _CopycatsHouseF2Text2 - db $50 - -CopycatsHouseF2Text5: -CopycatsHouseF2Text4: -CopycatsHouseF2Text3: ; 0x5ccf9 - TX_FAR _CopycatsHouseF2Text3 - db $50 - -CopycatsHouseF2Text6: ; 0x5ccfe - TX_FAR _CopycatsHouseF2Text6 - db $50 - -CopycatsHouseF2Text7: ; 0x5cd03 - db $08 ; asm - ld a, [$c109] - cp $4 - ld hl, $4d1c - jr nz, .asm_399a4 ; 0x5cd0c - ld hl, $4d17 -.asm_399a4 ; 0x5cd11 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$5cd17,$a - -CopycatsHouseF2Object: ; 0x5cd21 (size=48) - db $a ; border tile - - db $1 ; warps - db $1, $7, $2, COPYCATS_HOUSE_1F - - db $2 ; signs - db $5, $3, $6 ; CopycatsHouseF2Text6 - db $1, $0, $7 ; CopycatsHouseF2Text7 - - db $5 ; people - db SPRITE_BRUNETTE_GIRL, $3 + 4, $4 + 4, $fe, $0, $1 ; person - db SPRITE_BIRD, $6 + 4, $4 + 4, $fe, $2, $2 ; person - db SPRITE_SLOWBRO, $1 + 4, $5 + 4, $ff, $d0, $3 ; person - db SPRITE_BIRD, $0 + 4, $2 + 4, $ff, $d0, $4 ; person - db SPRITE_CLEFAIRY, $6 + 4, $1 + 4, $ff, $d3, $5 ; person - - ; warp-to - EVENT_DISP $4, $1, $7 ; COPYCATS_HOUSE_1F - -FightingDojo_h: ; 0x5cd51 to 0x5cd5d (12 bytes) (id=177) - db $05 ; tileset - db $06, $05 ; dimensions (y, x) - dw FightingDojoBlocks, FightingDojoTexts, FightingDojoScript ; blocks, texts, scripts - db $00 ; connections - - dw FightingDojoObject ; objects - -FightingDojoScript: ; 0x5cd5d - call $3c3c - ld hl, $4e13 - ld de, $4d7b - ld a, [$d642] - call $3160 - ld [$d642], a - ret -; 0x5cd70 - -INCBIN "baserom.gbc",$5cd70,$93 - -FightingDojoTexts: ; 0x5ce03 - dw FightingDojoText1, FightingDojoText2, FightingDojoText3, FightingDojoText4, FightingDojoText5, FightingDojoText6, FightingDojoText7, FightingDojoText8 - -INCBIN "baserom.gbc",$5ce13,$31 - -FightingDojoText1: ; 0x5ce44 - db $08 ; asm - ld a, [$d7b1] - bit 0, a - jp nz, $4e7d - bit 1, a - jp nz, $4e85 - ld hl, $4e8e - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $4e93 - ld de, $4e93 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $3 - ld [$d642], a - ld [$da39], a - jr .asm_9dba4 ; 0x5ce7b - ld hl, $4e9d - call PrintText - jr .asm_9dba4 ; 0x5ce83 - ld hl, $4e98 - call PrintText -.asm_9dba4 ; 0x5ce8b - jp $24d7 - -INCBIN "baserom.gbc",$5ce8e,$5ce98 - $5ce8e - -FightingDojoText8: ; 0x5ce98 -INCBIN "baserom.gbc",$5ce98,5 - -INCBIN "baserom.gbc",$5ce9d,5 - -FightingDojoText2: ; 0x5cea2 - db $08 ; asm - ld hl, $4e13 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5ceac,$5cebb - $5ceac - -FightingDojoText3: ; 0x5cebb - db $08 ; asm - ld hl, $4e1f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5cec5,$5ced4 - $5cec5 - -FightingDojoText4: ; 0x5ced4 - db $08 ; asm - ld hl, $4e2b - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5cede,$5ceed - $5cede - -FightingDojoText5: ; 0x5ceed - db $08 ; asm - ld hl, $4e37 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5cef7,$5cf06 - $5cef7 - -FightingDojoText6: ; 0x5cf06 - db $08 ; asm - ld a, [$d7b1] - and $c0 - jr z, .asm_f8e28 ; 0x5cf0c - ld hl, $4f96 - call PrintText - jr .asm_3a2c8 ; 0x5cf14 -.asm_f8e28 ; 0x5cf16 - ld a, $2b - call $349b - ld hl, $4f49 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_3a2c8 ; 0x5cf28 - ld a, [$cf91] - ld b, a - ld c,30 - call GivePokemon - jr nc, .asm_3a2c8 ; 0x5cf33 - ld a, $4a - ld [$cc4d], a - ld a, $11 - call Predef - ld hl, $d7b1 - set 6, [hl] - set 0, [hl] -.asm_3a2c8 ; 0x5cf46 - jp $24d7 - -INCBIN "baserom.gbc",$5cf49,$5cf4e - $5cf49 - -FightingDojoText7: ; 0x5cf4e - db $08 ; asm - ld a, [$d7b1] - and $c0 - jr z, .asm_170a9 ; 0x5cf54 - ld hl, $4f96 - call PrintText - jr .asm_f1f47 ; 0x5cf5c -.asm_170a9 ; 0x5cf5e - ld a, $2c - call $349b - ld hl, $4f91 - call PrintText - call $35ec - ld a, [$cc26] - and a - jr nz, .asm_f1f47 ; 0x5cf70 - ld a, [$cf91] - ld b, a - ld c,30 - call GivePokemon - jr nc, .asm_f1f47 ; 0x5cf7b - ld hl, $d7b1 - set 7, [hl] - set 0, [hl] - ld a, $4b - ld [$cc4d], a - ld a, $11 - call Predef -.asm_f1f47 ; 0x5cf8e - jp $24d7 - -INCBIN "baserom.gbc",$5cf91,$a - -FightingDojoObject: ; 0x5cf9b (size=72) - db $3 ; border tile - - db $2 ; warps - db $b, $4, $1, $ff - db $b, $5, $1, $ff - - db $0 ; signs - - db $7 ; people - db SPRITE_HIKER, $3 + 4, $5 + 4, $ff, $d0, $41, BLACKBELT + $C8, $1 ; trainer - db SPRITE_HIKER, $4 + 4, $3 + 4, $ff, $d3, $42, BLACKBELT + $C8, $2 ; trainer - db SPRITE_HIKER, $6 + 4, $3 + 4, $ff, $d3, $43, BLACKBELT + $C8, $3 ; trainer - db SPRITE_HIKER, $5 + 4, $5 + 4, $ff, $d2, $44, BLACKBELT + $C8, $4 ; trainer - db SPRITE_HIKER, $7 + 4, $5 + 4, $ff, $d2, $45, BLACKBELT + $C8, $5 ; trainer - db SPRITE_BALL, $1 + 4, $4 + 4, $ff, $ff, $6 ; person - db SPRITE_BALL, $1 + 4, $5 + 4, $ff, $ff, $7 ; person - - ; warp-to - EVENT_DISP $5, $b, $4 - EVENT_DISP $5, $b, $5 - -FightingDojoBlocks: ; 30 - INCBIN "maps/fightingdojo.blk" - -SaffronGym_h: ; 0x5d001 to 0x5d00d (12 bytes) (id=178) - db $16 ; tileset - db $09, $0a ; dimensions (y, x) - dw SaffronGymBlocks, SaffronGymTexts, SaffronGymScript ; blocks, texts, scripts - db $00 ; connections - - dw SaffronGymObject ; objects - -SaffronGymScript: ; 0x5d00d - ld hl, $d126 - bit 6, [hl] - res 6, [hl] - call nz, $502a - call $3c3c - ld hl, $50c3 - ld de, $5053 - ld a, [$d65c] - call $3160 - ld [$d65c], a - ret -; 0x5d02a - -INCBIN "baserom.gbc",$5d02a,$81 - -SaffronGymTexts: ; 0x5d0ab - dw SaffronGymText1, SaffronGymText2, SaffronGymText3, SaffronGymText4, SaffronGymText5, SaffronGymText6, SaffronGymText7, SaffronGymText8, SaffronGymText9, SaffronGymText10, SaffronGymText11, SaffronGymText12 - -INCBIN "baserom.gbc",$5d0bd + 6,$5b - 6 - -SaffronGymText1: ; 0x5d118 - db $08 ; asm - ld a, [$d7b3] - bit 1, a - jr z, .asm_e3544 ; 0x5d11e - bit 0, a - jr nz, .asm_8d2f6 ; 0x5d122 - call z, $5068 - call $30b6 - jr .asm_34c2c ; 0x5d12a -.asm_8d2f6 ; 0x5d12c - ld hl, $516e - call PrintText - jr .asm_34c2c ; 0x5d132 -.asm_e3544 ; 0x5d134 - ld hl, $5162 - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $5167 - ld de, $5167 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $6 - ld [$d05c], a - ld a, $3 - ld [$d65c], a -.asm_34c2c ; 0x5d15f - jp $24d7 - -INCBIN "baserom.gbc",$5d162,$5d173 - $5d162 - -SaffronGymText10: ; 0x5d173 -INCBIN "baserom.gbc",$5d173,5 - -SaffronGymText11: ; 0x5d178 -INCBIN "baserom.gbc",$5d178,5 - -INCBIN "baserom.gbc",$5d17d,$5d182 - $5d17d - -SaffronGymText12: ; 0x5d182 -INCBIN "baserom.gbc",$5d182,5 - -SaffronGymText2: ; 0x5d187 - db $08 ; asm - ld hl, $50c3 - call LoadTrainerHeader - jp $24d7 - -SaffronGymText3: ; 0x5d191 - db $08 ; asm - ld hl, $50cf - call LoadTrainerHeader - jp $24d7 - -SaffronGymText4: ; 0x5d19b - db $08 ; asm - ld hl, $50db - call LoadTrainerHeader - jp $24d7 - -SaffronGymText5: ; 0x5d1a5 - db $08 ; asm - ld hl, $50e7 - call LoadTrainerHeader - jp $24d7 - -SaffronGymText6: ; 0x5d1af - db $08 ; asm - ld hl, $50f3 - call LoadTrainerHeader - jp $24d7 - -SaffronGymText7: ; 0x5d1b9 - db $08 ; asm - ld hl, $50ff - call LoadTrainerHeader - jp $24d7 - -SaffronGymText8: ; 0x5d1c3 - db $08 ; asm - ld hl, $510b - call LoadTrainerHeader - jp $24d7 - -SaffronGymText9: ; 0x5d1cd - db $08 ; asm - ld a, [$d7b3] - bit 1, a - jr nz, .asm_13f3c ; 0x5d1d3 - ld hl, $51e6 - call PrintText - jr .asm_e9907 ; 0x5d1db -.asm_13f3c ; 0x5d1dd - ld hl, $51eb - call PrintText -.asm_e9907 ; 0x5d1e3 - jp $24d7 - -INCBIN "baserom.gbc",$5d1e6,$73 - -SaffronGymObject: ; 0x5d259 (size=330) - db $2e ; border tile - - db $20 ; warps - db $11, $8, $2, $ff - db $11, $9, $2, $ff - db $3, $1, $16, SAFFRON_GYM - db $3, $5, $f, SAFFRON_GYM - db $5, $1, $12, SAFFRON_GYM - db $5, $5, $8, SAFFRON_GYM - db $9, $1, $1b, SAFFRON_GYM - db $9, $5, $10, SAFFRON_GYM - db $b, $1, $5, SAFFRON_GYM - db $b, $5, $d, SAFFRON_GYM - db $f, $1, $17, SAFFRON_GYM - db $f, $5, $1e, SAFFRON_GYM - db $11, $1, $11, SAFFRON_GYM - db $11, $5, $9, SAFFRON_GYM - db $3, $9, $1a, SAFFRON_GYM - db $3, $b, $3, SAFFRON_GYM - db $5, $9, $7, SAFFRON_GYM - db $5, $b, $c, SAFFRON_GYM - db $b, $b, $4, SAFFRON_GYM - db $f, $b, $1f, SAFFRON_GYM - db $3, $f, $18, SAFFRON_GYM - db $3, $13, $1c, SAFFRON_GYM - db $5, $f, $2, SAFFRON_GYM - db $5, $13, $a, SAFFRON_GYM - db $9, $f, $14, SAFFRON_GYM - db $9, $13, $1d, SAFFRON_GYM - db $b, $f, $e, SAFFRON_GYM - db $b, $13, $6, SAFFRON_GYM - db $f, $f, $15, SAFFRON_GYM - db $f, $13, $19, SAFFRON_GYM - db $11, $f, $b, SAFFRON_GYM - db $11, $13, $13, SAFFRON_GYM - - db $0 ; signs - - db $9 ; people - db SPRITE_GIRL, $8 + 4, $9 + 4, $ff, $d0, $41, SABRINA + $C8, $1 ; trainer - db SPRITE_MEDIUM, $1 + 4, $a + 4, $ff, $d0, $42, CHANNELER + $C8, $16 ; trainer - db SPRITE_BUG_CATCHER, $1 + 4, $11 + 4, $ff, $d0, $43, PSYCHIC_TR + $C8, $1 ; trainer - db SPRITE_MEDIUM, $7 + 4, $3 + 4, $ff, $d0, $44, CHANNELER + $C8, $17 ; trainer - db SPRITE_BUG_CATCHER, $7 + 4, $11 + 4, $ff, $d0, $45, PSYCHIC_TR + $C8, $2 ; trainer - db SPRITE_MEDIUM, $d + 4, $3 + 4, $ff, $d0, $46, CHANNELER + $C8, $18 ; trainer - db SPRITE_BUG_CATCHER, $d + 4, $11 + 4, $ff, $d0, $47, PSYCHIC_TR + $C8, $3 ; trainer - db SPRITE_BUG_CATCHER, $1 + 4, $3 + 4, $ff, $d0, $48, PSYCHIC_TR + $C8, $4 ; trainer - db SPRITE_GYM_HELPER, $f + 4, $a + 4, $ff, $d0, $9 ; person - - ; warp-to - EVENT_DISP $a, $11, $8 - EVENT_DISP $a, $11, $9 - EVENT_DISP $a, $3, $1 ; SAFFRON_GYM - EVENT_DISP $a, $3, $5 ; SAFFRON_GYM - EVENT_DISP $a, $5, $1 ; SAFFRON_GYM - EVENT_DISP $a, $5, $5 ; SAFFRON_GYM - EVENT_DISP $a, $9, $1 ; SAFFRON_GYM - EVENT_DISP $a, $9, $5 ; SAFFRON_GYM - EVENT_DISP $a, $b, $1 ; SAFFRON_GYM - EVENT_DISP $a, $b, $5 ; SAFFRON_GYM - EVENT_DISP $a, $f, $1 ; SAFFRON_GYM - EVENT_DISP $a, $f, $5 ; SAFFRON_GYM - EVENT_DISP $a, $11, $1 ; SAFFRON_GYM - EVENT_DISP $a, $11, $5 ; SAFFRON_GYM - EVENT_DISP $a, $3, $9 ; SAFFRON_GYM - EVENT_DISP $a, $3, $b ; SAFFRON_GYM - EVENT_DISP $a, $5, $9 ; SAFFRON_GYM - EVENT_DISP $a, $5, $b ; SAFFRON_GYM - EVENT_DISP $a, $b, $b ; SAFFRON_GYM - EVENT_DISP $a, $f, $b ; SAFFRON_GYM - EVENT_DISP $a, $3, $f ; SAFFRON_GYM - EVENT_DISP $a, $3, $13 ; SAFFRON_GYM - EVENT_DISP $a, $5, $f ; SAFFRON_GYM - EVENT_DISP $a, $5, $13 ; SAFFRON_GYM - EVENT_DISP $a, $9, $f ; SAFFRON_GYM - EVENT_DISP $a, $9, $13 ; SAFFRON_GYM - EVENT_DISP $a, $b, $f ; SAFFRON_GYM - EVENT_DISP $a, $b, $13 ; SAFFRON_GYM - EVENT_DISP $a, $f, $f ; SAFFRON_GYM - EVENT_DISP $a, $f, $13 ; SAFFRON_GYM - EVENT_DISP $a, $11, $f ; SAFFRON_GYM - EVENT_DISP $a, $11, $13 ; SAFFRON_GYM - -SaffronGymBlocks: ; 90 - INCBIN "maps/saffrongym.blk" - -SaffronMart_h: ; 0x5d3fd to 0x5d409 (12 bytes) (id=180) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw $4000, SaffronMartTexts, SaffronMartScript ; blocks, texts, scripts - db $00 ; connections - - dw SaffronMartObject ; objects - -SaffronMartScript: ; 0x5d409 - jp $3c3c -; 0x5d40c - -SaffronMartTexts: ; 0x5d40c - dw SaffronMartText1, SaffronMartText2, SaffronMartText3 - -SaffronMartText2: ; 0x5d412 - TX_FAR _SaffronMartText2 - db $50 - -SaffronMartText3: ; 0x5d417 - TX_FAR _SaffronMartText3 - db $50 - -SaffronMartObject: ; 0x5d41c (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $4, $ff - db $7, $4, $4, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $4 + 4, $ff, $ff, $2 ; person - db SPRITE_LASS, $5 + 4, $6 + 4, $fe, $0, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -SilphCo1_h: ; 0x5d442 to 0x5d44e (12 bytes) (id=181) - db $16 ; tileset - db $09, $0f ; dimensions (y, x) - dw SilphCo1Blocks, SilphCo1Texts, SilphCo1Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo1Object ; objects - -SilphCo1Script: ; 0x5d44e - call $3c3c - ld a, [$d838] - bit 7, a - ret z - ld hl, $d7b9 - bit 7, [hl] - set 7, [hl] - ret nz - ld a, $4c - ld [$cc4d], a - ld a, $15 - jp $3e6d -; 0x5d469 - -SilphCo1Texts: ; 0x5d469 - dw SilphCo1Text1 - -SilphCo1Text1: ; 0x5d46b - TX_FAR _SilphCo1Text1 - db $50 - -SilphCo1Object: ; 0x5d470 (size=50) - db $2e ; border tile - - db $5 ; warps - db $11, $a, $5, $ff - db $11, $b, $5, $ff - db $0, $1a, $0, SILPH_CO_2F - db $0, $14, $0, SILPH_CO_ELEVATOR - db $a, $10, $6, SILPH_CO_3F - - db $0 ; signs - - db $1 ; people - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $4 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $f, $11, $a - EVENT_DISP $f, $11, $b - EVENT_DISP $f, $0, $1a ; SILPH_CO_2F - EVENT_DISP $f, $0, $14 ; SILPH_CO_ELEVATOR - EVENT_DISP $f, $a, $10 ; SILPH_CO_3F - -SilphCo1Blocks: ; 135 - INCBIN "maps/silphco1.blk" - -SaffronPokecenter_h: ; 0x5d529 to 0x5d535 (12 bytes) (id=182) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw $4064, $553b, SaffronPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw SaffronPokecenterObject ; objects - -SaffronPokecenterScript: ; 0x5d535 - call $22fa - jp $3c3c -; 0x5d53b - -INCBIN "baserom.gbc",$5d53b,$9 - -SaffronPokecenterText2: ; maybe -SaffronPokecenterText1: ; 0x5d543 - TX_FAR _SaffronPokecenterText1 - -INCBIN "baserom.gbc",$5d548,$5d549 - $5d548 - -SaffronPokecenterText3: ; 0x5d549 - TX_FAR _SaffronPokecenterText3 - db $50 - -SaffronPokecenterText4: - db $f6 - -SaffronPokecenterObject: ; 0x5d54f (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $6, $ff - db $7, $4, $6, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_FOULARD_WOMAN, $5 + 4, $5 + 4, $ff, $ff, $2 ; person - db SPRITE_GENTLEMAN, $3 + 4, $8 + 4, $ff, $d0, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -ViridianForestexit_h: ; 0x5d57b to 0x5d587 (12 bytes) (id=47) - db $09 ; tileset - db $04, $05 ; dimensions (y, x) - dw ViridianForestexitBlocks, ViridianForestexitTexts, ViridianForestexitScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianForestexitObject ; objects - -ViridianForestexitScript: ; 0x5d587 - jp $3c3c -; 0x5d58a - -ViridianForestexitTexts: ; 0x5d58a - dw ViridianForestexitText1, ViridianForestexitText2 - -ViridianForestexitText1: ; 0x5d58e - TX_FAR _ViridianForestexitText1 - db $50 - -ViridianForestexitText2: ; 0x5d593 - TX_FAR _ViridianForestexitText2 - db $50 - -ViridianForestexitObject: ; 0x5d598 (size=48) - db $a ; border tile - - db $4 ; warps - db $0, $4, $1, $ff - db $0, $5, $1, $ff - db $7, $4, $0, VIRIDIAN_FOREST - db $7, $5, $0, VIRIDIAN_FOREST - - db $0 ; signs - - db $2 ; people - db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $3 + 4, $ff, $ff, $1 ; person - db SPRITE_OLD_PERSON, $5 + 4, $2 + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $5, $0, $4 - EVENT_DISP $5, $0, $5 - EVENT_DISP $5, $7, $4 ; VIRIDIAN_FOREST - EVENT_DISP $5, $7, $5 ; VIRIDIAN_FOREST - -Route2Gate_h: ; 0x5d5c8 to 0x5d5d4 (12 bytes) (id=49) - db $0c ; tileset - db $04, $05 ; dimensions (y, x) - dw $4090, Route2GateTexts, Route2GateScript ; blocks, texts, scripts - db $00 ; connections - - dw Route2GateObject ; objects - -Route2GateScript: ; 0x5d5d4 - jp $3c3c -; 0x5d5d7 - -Route2GateTexts: ; 0x5d5d7 - dw Route2GateText1, Route2GateText2 - -Route2GateText1: ; 0x5d5db - db $08 ; asm - ld a, [$d7c2] - bit 0, a - jr nz, .asm_6592c ; 0x5d5e1 - ld a, $a - ldh [$db], a - ld a, $c8 - ldh [$dc], a - ld [$d11e], a - call GetItemName ; $2fcf - ld hl, $cd6d - ld de, $cc5b - ld bc, $000d - call CopyData - ld a, $62 - call Predef - ldh a, [$db] - cp $1 - jr nz, .asm_ad646 ; 0x5d606 - ld hl, $d7c2 - set 0, [hl] -.asm_6592c ; 0x5d60d - ld hl, $5616 - call PrintText -.asm_ad646 ; 0x5d613 - jp $24d7 - -INCBIN "baserom.gbc",$5d616,$5 - -Route2GateText2: ; 0x5d61b - TX_FAR _Route2GateText2 - db $50 - -Route2GateObject: ; 0x5d620 (size=48) - db $a ; border tile - - db $4 ; warps - db $0, $4, $3, $ff - db $0, $5, $3, $ff - db $7, $4, $4, $ff - db $7, $5, $4, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_OAK_AIDE, $4 + 4, $1 + 4, $ff, $d2, $1 ; person - db SPRITE_BUG_CATCHER, $4 + 4, $5 + 4, $fe, $2, $2 ; person - - ; warp-to - EVENT_DISP $5, $0, $4 - EVENT_DISP $5, $0, $5 - EVENT_DISP $5, $7, $4 - EVENT_DISP $5, $7, $5 - -ViridianForestEntrance_h: ; 0x5d650 to 0x5d65c (12 bytes) (id=50) - db $09 ; tileset - db $04, $05 ; dimensions (y, x) - dw $4090, ViridianForestEntranceTexts, ViridianForestEntranceScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianForestEntranceObject ; objects - -ViridianForestEntranceScript: ; 0x5d65c - jp $3c3c -; 0x5d65f - -ViridianForestEntranceTexts: ; 0x5d65f - dw ViridianForestEntranceText1, ViridianForestEntranceText2 - -ViridianForestEntranceText1: ; 0x5d663 - TX_FAR _ViridianForestEntranceText1 - db $50 - -ViridianForestEntranceText2: ; 0x5d668 - TX_FAR _ViridianForestEntranceText2 - db $50 - -ViridianForestEntranceObject: ; 0x5d66d (size=48) - db $a ; border tile - - db $4 ; warps - db $0, $4, $3, VIRIDIAN_FOREST - db $0, $5, $4, VIRIDIAN_FOREST - db $7, $4, $5, $ff - db $7, $5, $5, $ff - - db $0 ; signs - - db $2 ; people - db SPRITE_GIRL, $4 + 4, $8 + 4, $ff, $d2, $1 ; person - db SPRITE_LITTLE_GIRL, $4 + 4, $2 + 4, $fe, $1, $2 ; person - - ; warp-to - EVENT_DISP $5, $0, $4 ; VIRIDIAN_FOREST - EVENT_DISP $5, $0, $5 ; VIRIDIAN_FOREST - EVENT_DISP $5, $7, $4 - EVENT_DISP $5, $7, $5 - -UndergroundTunnelEntranceRoute5_h: ; 0x5d69d to 0x5d6a9 (12 bytes) (id=71) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw UndergroundTunnelEntranceRoute5Blocks, UndergroundTunnelEntranceRoute5Texts, UndergroundTunnelEntranceRoute5Script ; blocks, texts, scripts - db $00 ; connections - - dw UndergroundTunnelEntranceRoute5Object ; objects - -UndergroundTunnelEntranceRoute5Script: ; 0x5d6a9 - ld a, $10 - ld [$d365], a - ret -; 0x5d6af - -INCBIN "baserom.gbc",$5d6af,$1 - -UndergroundTunnelEntranceRoute5Texts: ; 0x5d6b0 - dw UndergroundTunnelEntranceRoute5Text1 - -UndergroundTunnelEntranceRoute5Text1: ; 0x5d6b2 - db $08 ; asm - ld a, $9 - ld [W_WHICHTRADE], a - ld a, $54 - call Predef - ld hl, $56af - ret - -UndergroundTunnelEntranceRoute5Object: ; 0x5d6c1 (size=34) - db $a ; border tile - - db $3 ; warps - db $7, $3, $3, $ff - db $7, $4, $3, $ff - db $4, $4, $0, UNDERGROUND_PATH_NS - - db $0 ; signs - - db $1 ; people - db SPRITE_LITTLE_GIRL, $3 + 4, $2 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_NS - -UndergroundTunnelEntranceRoute6_h: ; 0x5d6e3 to 0x5d6ef (12 bytes) (id=74) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $4080, UndergroundTunnelEntranceRoute6Texts, UndergroundTunnelEntranceRoute6Script ; blocks, texts, scripts - db $00 ; connections - - dw UndergroundTunnelEntranceRoute6Object ; objects - -UndergroundTunnelEntranceRoute6Script: ; 0x5d6ef - ld a, $11 - ld [$d365], a - jp $3c3c -; 0x5d6f7 - -UndergroundTunnelEntranceRoute6Texts: ; 0x5d6f7 - dw UndergroundTunnelEntranceRoute6Text1 - -;XXX wtf? syntax error on TX_FAR? -UndergroundTunnelEntranceRoute6Text1: ; 0x5d6f9 - db $17, $cb, $40, $23 - ;TX_FAR _UndergroundTunnelEntranceRoute6Text1 ; $cb, $40, $23 - db $50 - -UndergroundTunnelEntranceRoute6Object: ; 0x5d6fe (size=34) - db $a ; border tile - - db $3 ; warps - db $7, $3, $3, $ff - db $7, $4, $3, $ff - db $4, $4, $1, UNDERGROUND_PATH_NS - - db $0 ; signs - - db $1 ; people - db SPRITE_GIRL, $3 + 4, $2 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_NS - -UndergroundPathEntranceRoute7_h: ; 0x5d720 to 0x5d72c (12 bytes) (id=77) - db $0c ; tileset - db $04, $04 ; dimensions (y, x) - dw $4080, UndergroundPathEntranceRoute7Texts, UndergroundPathEntranceRoute7Script ; blocks, texts, scripts - db $00 ; connections - - dw UndergroundPathEntranceRoute7Object ; objects - -UndergroundPathEntranceRoute7Script: ; 0x5d72c - ld a, $12 - ld [$d365], a - jp $3c3c -; 0x5d734 - -UndergroundPathEntranceRoute7Texts: ; 0x5d734 - dw UndergroundPathEntranceRoute7Text1 - -UndergroundPathEntranceRoute7Text1: ; 0x5d736 - db $17, $ff, $40, $23 - ;TX_FAR _UndergroundPathEntranceRoute7Text1 - db $50 - -UndergroundPathEntranceRoute7Object: ; 0x5d73b (size=34) - db $a ; border tile - - db $3 ; warps - db $7, $3, $4, $ff - db $7, $4, $4, $ff - db $4, $4, $0, UNDERGROUND_PATH_WE - - db $0 ; signs - - db $1 ; people - db SPRITE_FAT_BALD_GUY, $4 + 4, $2 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_WE - -INCBIN "baserom.gbc",$5d75d,$52 - -SilphCo9_h: ; 0x5d7af to 0x5d7bb (12 bytes) (id=233) - db $16 ; tileset - db $09, $0d ; dimensions (y, x) - dw SilphCo9Blocks, SilphCo9Texts, SilphCo9Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo9Object ; objects - -SilphCo9Script: ; 0x5d7bb - call $57d1 - call $3c3c - ld hl, $5893 - ld de, $5885 - ld a, [$d64a] - call $3160 - ld [$d64a], a - ret -; 0x5d7d1 - -INCBIN "baserom.gbc",$5d7d1,$ba - -SilphCo9Texts: ; 0x5d88b - dw SilphCo9Text1, SilphCo9Text2, SilphCo9Text3, SilphCo9Text4 - -INCBIN "baserom.gbc",$5d893,$25 - -SilphCo9Text1: ; 0x5d8b8 - db $08 ; asm - ld a, [$d838] - bit 7, a - jr nz, .asm_a14c3 ; 0x5d8be - ld hl, $58e5 - call PrintText - ld a, $7 - call Predef - call $20d8 - call Delay3 - call $20f6 - ld hl, $58ea - call PrintText - jr .asm_b6e28 ; 0x5d8da -.asm_a14c3 ; 0x5d8dc - ld hl, $58ef - call PrintText -.asm_b6e28 ; 0x5d8e2 - jp $24d7 - -INCBIN "baserom.gbc",$5d8e5,$5d8f4 - $5d8e5 - -SilphCo9Text2: ; 0x5d8f4 - db $08 ; asm - ld hl, $5893 - call LoadTrainerHeader - jp $24d7 - -SilphCo9Text3: ; 0x5d8fe - db $08 ; asm - ld hl, $589f - call LoadTrainerHeader - jp $24d7 - -SilphCo9Text4: ; 0x5d908 - db $08 ; asm - ld hl, $58ab - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5d912,$2d - -SilphCo9Object: ; 0x5d93f (size=74) - db $2e ; border tile - - db $5 ; warps - db $0, $e, $0, SILPH_CO_10F - db $0, $10, $0, SILPH_CO_8F - db $0, $12, $0, SILPH_CO_ELEVATOR - db $3, $9, $7, SILPH_CO_3F - db $f, $11, $4, SILPH_CO_5F - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $e + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_ROCKET, $4 + 4, $2 + 4, $ff, $d1, $42, ROCKET + $C8, $25 ; trainer - db SPRITE_OAK_AIDE, $d + 4, $15 + 4, $ff, $d0, $43, SCIENTIST + $C8, $a ; trainer - db SPRITE_ROCKET, $10 + 4, $d + 4, $ff, $d1, $44, ROCKET + $C8, $26 ; trainer - - ; warp-to - EVENT_DISP $d, $0, $e ; SILPH_CO_10F - EVENT_DISP $d, $0, $10 ; SILPH_CO_8F - EVENT_DISP $d, $0, $12 ; SILPH_CO_ELEVATOR - EVENT_DISP $d, $3, $9 ; SILPH_CO_3F - EVENT_DISP $d, $f, $11 ; SILPH_CO_5F - -SilphCo9Blocks: ; 117 - INCBIN "maps/silphco9.blk" - -VictoryRoad1_h: ; 0x5d9fe to 0x5da0a (12 bytes) (id=108) - db $11 ; tileset - db $09, $0a ; dimensions (y, x) - dw VictoryRoad1Blocks, VictoryRoad1Texts, VictoryRoad1Script ; blocks, texts, scripts - db $00 ; connections - - dw VictoryRoad1Object ; objects - -VictoryRoad1Script: ; 0x5da0a - ld hl, $d126 - bit 5, [hl] - res 5, [hl] - call nz, $5a27 - call $3c3c - ld hl, $5a6d - ld de, $5a3a - ld a, [$d651] - call $3160 - ld [$d651], a - ret -; 0x5da27 - -INCBIN "baserom.gbc",$5da27,$38 - -VictoryRoad1Texts: ; 0x5da5f - dw VictoryRoad1Text1, VictoryRoad1Text2, VictoryRoad1Text3, VictoryRoad1Text4, VictoryRoad1Text5, VictoryRoad1Text6, VictoryRoad1Text7 - -INCBIN "baserom.gbc",$5da6d,$19 - -VictoryRoad1Text1: ; 0x5da86 - db $08 ; asm - ld hl, $5a6d - call LoadTrainerHeader - jp $24d7 - -VictoryRoad1Text2: ; 0x5da90 - db $08 ; asm - ld hl, $5a79 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$5da9a,$1e - -VictoryRoad1Object: ; 0x5dab8 (size=76) - db $7d ; border tile - - db $3 ; warps - db $11, $8, $2, $ff - db $11, $9, $2, $ff - db $1, $1, $0, VICTORY_ROAD_2 - - db $0 ; signs - - db $7 ; people - db SPRITE_LASS, $5 + 4, $7 + 4, $ff, $d3, $41, COOLTRAINER_F + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $2 + 4, $3 + 4, $ff, $d0, $42, COOLTRAINER_M + $C8, $5 ; trainer - db SPRITE_BALL, $0 + 4, $b + 4, $ff, $ff, $83, TM_43 ; item - db SPRITE_BALL, $2 + 4, $9 + 4, $ff, $ff, $84, RARE_CANDY ; item - db SPRITE_BOULDER, $f + 4, $5 + 4, $ff, $10, $5 ; person - db SPRITE_BOULDER, $2 + 4, $e + 4, $ff, $10, $6 ; person - db SPRITE_BOULDER, $a + 4, $2 + 4, $ff, $10, $7 ; person - - ; warp-to - EVENT_DISP $a, $11, $8 - EVENT_DISP $a, $11, $9 - EVENT_DISP $a, $1, $1 ; VICTORY_ROAD_2 - -VictoryRoad1Blocks: ; 90 - INCBIN "maps/victoryroad1.blk" - -INCBIN "baserom.gbc",$5db5e,$24a2 - -SECTION "bank18",DATA,BANK[$18] - -INCBIN "baserom.gbc",$60000,$60198 - $60000 - -UndergroundPathNSBlocks: ; 96 - INCBIN "maps/undergroundpathns.blk" - -INCBIN "baserom.gbc",$601f8,$1c8 - -SSAnne9Blocks: ; 96 - INCBIN "maps/ssanne9.blk" - -PokemonTower1_h: ; 0x60420 to 0x6042c (12 bytes) (id=142) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower1Blocks, PokemonTower1Texts, PokemonTower1Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower1Object ; objects - -PokemonTower1Script: ; 0x6042c - jp $3c3c -; 0x6042f - -PokemonTower1Texts: ; 0x6042f - dw PokemonTower1Text1, PokemonTower1Text2, PokemonTower1Text3, PokemonTower1Text4, PokemonTower1Text5 - -PokemonTower1Text1: ; 0x60439 - TX_FAR _PokemonTower1Text1 - db $50 - -PokemonTower1Text2: ; 0x6043e - TX_FAR _PokemonTower1Text2 - db $50 - -PokemonTower1Text3: ; 0x60443 - TX_FAR _PokemonTower1Text3 - db $50 - -PokemonTower1Text4: ; 0x60448 - TX_FAR _PokemonTower1Text4 - db $50 - -PokemonTower1Text5: ; 0x6044d - TX_FAR _PokemonTower1Text5 - db $50 - -PokemonTower1Object: ; 0x60452 (size=58) - db $1 ; border tile - - db $3 ; warps - db $11, $a, $1, $ff - db $11, $b, $1, $ff - db $9, $12, $1, POKEMONTOWER_2 - - db $0 ; signs - - db $5 ; people - db SPRITE_CABLE_CLUB_WOMAN, $d + 4, $f + 4, $ff, $d1, $1 ; person - db SPRITE_MOM_GEISHA, $8 + 4, $6 + 4, $ff, $ff, $2 ; person - db SPRITE_BALDING_GUY, $c + 4, $8 + 4, $ff, $ff, $3 ; person - db SPRITE_GIRL, $7 + 4, $d + 4, $ff, $ff, $4 ; person - db SPRITE_MEDIUM, $7 + 4, $11 + 4, $ff, $d2, $5 ; person - - ; warp-to - EVENT_DISP $a, $11, $a - EVENT_DISP $a, $11, $b - EVENT_DISP $a, $9, $12 ; POKEMONTOWER_2 - -PokemonTower1Blocks: ; 90 - INCBIN "maps/pokemontower1.blk" - -PokemonTower2_h: ; 0x604e6 to 0x604f2 (12 bytes) (id=143) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower2Blocks, PokemonTower2Texts, PokemonTower2Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower2Object ; objects - -PokemonTower2Script: ; 0x604f2 - call $3c3c - ld hl, $4509 - ld a, [$d62b] - jp $3d97 -; 0x604fe - -INCBIN "baserom.gbc",$604fe,$60509 - $604fe - -PokemonTower2Scripts: ; 0x60509 - dw PokemonTower2Script0, PokemonTower2Script1, PokemonTower2Script2 - -PokemonTower2Script0: ; 0x6050f - ld a, [$d764] - bit 7, a - ret nz - ld hl, $455e - call $34bf - ret nc - ld a, $ff - ld [$c0ee], a - call $23b1 - ld c, $2 - ld a, $de - call $23a1 - ld hl, $d764 - res 6, [hl] - ld a, [$cd3d] - cp $1 - ld a, $8 - ld b, $0 - jr nz, .asm_60544 ; 0x60539 $9 - ld hl, $d764 - set 6, [hl] - ld a, $2 - ld b, $c -.asm_60544 - ld [$d528], a - ld a, $1 - ld [$ff00+$8c], a - ld a, b - ld [$ff00+$8d], a - call $34a6 - ld a, $1 - ld [$ff00+$8c], a - call $2920 - xor a - ld [$ff00+$b4], a - ld [$ff00+$b3], a - ret -; 0x6055e - -INCBIN "baserom.gbc",$6055e,$60563 - $6055e - -PokemonTower2Script1: ; 0x60563 - ld a, [$d057] - cp $ff - jp z, $44fe - ld a, $f0 - ld [$cd6b], a - ld hl, $d764 - set 7, [hl] - ld a, $1 - ld [$ff00+$8c], a - call $2920 - ld de, $45b2 - ld a, [$d764] - bit 6, a - jr nz, .asm_60589 ; 0x60584 $3 - ld de, $45a9 -.asm_60589 - ld a, $1 - ld [$ff00+$8c], a - call $363a - ld a, $ff - ld [$c0ee], a - call $23b1 - ld b, $2 - ld hl, $5b47 - call Bankswitch - ld a, $2 - ld [$d62b], a - ld [$da39], a - ret -; 0x605a9 - -INCBIN "baserom.gbc",$605a9,$605bb - $605a9 - -PokemonTower2Script2: ; 0x605bb - ld a, [$d730] - bit 0, a - ret nz - ld a, $38 - ld [$cc4d], a - ld a, $11 - call Predef - xor a - ld [$cd6b], a - call $2307 - ld a, $0 - ld [$d62b], a - ld [$da39], a - ret -; 0x605db - -PokemonTower2Texts: ; 0x605db - dw PokemonTower2Text1, PokemonTower2Text2 - -PokemonTower2Text1: ; 0x605df - db $08 ; asm - ld a, [$d764] - bit 7, a - jr z, .asm_16f24 ; 0x605e5 - ld hl, $463c - call PrintText - jr .asm_41852 ; 0x605ed -.asm_16f24 ; 0x605ef - ld hl, $462d - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $4632 - ld de, $4637 - call $3354 - ld a, $f2 - ld [$d059], a - ld a, [$d715] - cp $b1 - jr nz, .asm_0860c ; 0x6060f - ld a, $4 - jr .asm_99cea ; 0x60613 -.asm_0860c ; 0x60615 - cp $99 - jr nz, .asm_b3e6e ; 0x60617 - ld a, $5 - jr .asm_99cea ; 0x6061b -.asm_b3e6e ; 0x6061d - ld a, $6 -.asm_99cea ; 0x6061f - ld [$d05d], a - ld a, $1 - ld [$d62b], a - ld [$da39], a -.asm_41852 ; 0x6062a - jp $24d7 - -INCBIN "baserom.gbc",$6062d,$14 - -PokemonTower2Text2: ; 0x60641 - TX_FAR _PokemonTower2Text2 - db $50 - -PokemonTower2Object: ; 0x60646 (size=32) - db $1 ; border tile - - db $2 ; warps - db $9, $3, $0, POKEMONTOWER_3 - db $9, $12, $2, POKEMONTOWER_1 - - db $0 ; signs - - db $2 ; people - db SPRITE_BLUE, $5 + 4, $e + 4, $ff, $ff, $1 ; person - db SPRITE_MEDIUM, $7 + 4, $3 + 4, $ff, $d3, $2 ; person - - ; warp-to - EVENT_DISP $a, $9, $3 ; POKEMONTOWER_3 - EVENT_DISP $a, $9, $12 ; POKEMONTOWER_1 - -PokemonTower2Blocks: ; 90 - INCBIN "maps/pokemontower2.blk" - -PokemonTower3_h: ; 0x606c0 to 0x606cc (12 bytes) (id=144) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower3Blocks, PokemonTower3Texts, PokemonTower3Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower3Object ; objects - -PokemonTower3Script: ; 0x606cc - call $3c3c - ld hl, $46ed - ld de, $46df - ld a, [$d62c] - call $3160 - ld [$d62c], a - ret -; 0x606df - -INCBIN "baserom.gbc",$606df,$6 - -PokemonTower3Texts: ; 0x606e5 - dw PokemonTower3Text1, PokemonTower3Text2, PokemonTower3Text3, PokemonTower3Text4 - -INCBIN "baserom.gbc",$606ed,$25 - -PokemonTower3Text1: ; 0x60712 - db $08 ; asm - ld hl, $46ed - call LoadTrainerHeader - jp $24d7 - -PokemonTower3Text2: ; 0x6071c - db $08 ; asm - ld hl, $46f9 - call LoadTrainerHeader - jp $24d7 - -PokemonTower3Text3: ; 0x60726 - db $08 ; asm - ld hl, $4705 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$60730,$2d - -PokemonTower3Object: ; 0x6075d (size=51) - db $1 ; border tile - - db $2 ; warps - db $9, $3, $0, POKEMONTOWER_2 - db $9, $12, $1, POKEMONTOWER_4 - - db $0 ; signs - - db $4 ; people - db SPRITE_MEDIUM, $3 + 4, $c + 4, $ff, $d2, $41, CHANNELER + $C8, $5 ; trainer - db SPRITE_MEDIUM, $8 + 4, $9 + 4, $ff, $d0, $42, CHANNELER + $C8, $6 ; trainer - db SPRITE_MEDIUM, $d + 4, $a + 4, $ff, $d0, $43, CHANNELER + $C8, $8 ; trainer - db SPRITE_BALL, $1 + 4, $c + 4, $ff, $ff, $84, ESCAPE_ROPE ; item - - ; warp-to - EVENT_DISP $a, $9, $3 ; POKEMONTOWER_2 - EVENT_DISP $a, $9, $12 ; POKEMONTOWER_4 - -PokemonTower3Blocks: ; 90 - INCBIN "maps/pokemontower3.blk" - -PokemonTower4_h: ; 0x607ea to 0x607f6 (12 bytes) (id=145) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower4Blocks, PokemonTower4Texts, PokemonTower4Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower4Object ; objects - -PokemonTower4Script: ; 0x607f6 - call $3c3c - ld hl, $481b - ld de, $4809 - ld a, [$d62d] - call $3160 - ld [$d62d], a - ret -; 0x60809 - -INCBIN "baserom.gbc",$60809,$6 - -PokemonTower4Texts: ; 0x6080f - dw PokemonTower4Text1, PokemonTower4Text2, PokemonTower4Text3, PokemonTower4Text4, PokemonTower4Text5, PokemonTower4Text6 - -INCBIN "baserom.gbc",$6081b,$25 - -PokemonTower4Text1: ; 0x60840 - db $08 ; asm - ld hl, $481b - call LoadTrainerHeader - jp $24d7 - -PokemonTower4Text2: ; 0x6084a - db $08 ; asm - ld hl, $4827 - call LoadTrainerHeader - jp $24d7 - -PokemonTower4Text3: ; 0x60854 - db $08 ; asm - ld hl, $4833 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$6085e,$2d - -PokemonTower4Object: ; 0x6088b (size=65) - db $1 ; border tile - - db $2 ; warps - db $9, $3, $0, POKEMONTOWER_5 - db $9, $12, $1, POKEMONTOWER_3 - - db $0 ; signs - - db $6 ; people - db SPRITE_MEDIUM, $a + 4, $5 + 4, $ff, $d3, $41, CHANNELER + $C8, $9 ; trainer - db SPRITE_MEDIUM, $7 + 4, $f + 4, $ff, $d0, $42, CHANNELER + $C8, $a ; trainer - db SPRITE_MEDIUM, $c + 4, $e + 4, $ff, $d2, $43, CHANNELER + $C8, $c ; trainer - db SPRITE_BALL, $a + 4, $c + 4, $ff, $ff, $84, ELIXER ; item - db SPRITE_BALL, $a + 4, $9 + 4, $ff, $ff, $85, AWAKENING ; item - db SPRITE_BALL, $10 + 4, $c + 4, $ff, $ff, $86, HP_UP ; item - - ; warp-to - EVENT_DISP $a, $9, $3 ; POKEMONTOWER_5 - EVENT_DISP $a, $9, $12 ; POKEMONTOWER_3 - -PokemonTower4Blocks: ; 90 - INCBIN "maps/pokemontower4.blk" - -PokemonTower5_h: ; 0x60926 to 0x60932 (12 bytes) (id=146) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower5Blocks, PokemonTower5Texts, PokemonTower5Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower5Object ; objects - -PokemonTower5Script: ; 0x60932 - call $3c3c - ld hl, $49a9 - ld de, $4945 - ld a, [$d62e] - call $3160 - ld [$d62e], a - ret -; 0x60945 - -INCBIN "baserom.gbc",$60945,$56 - -PokemonTower5Texts: ; 0x6099b - dw PokemonTower5Text1, PokemonTower5Text2, PokemonTower5Text3, PokemonTower5Text4, PokemonTower5Text5, PokemonTower5Text6, PokemonTower5Text7 - -INCBIN "baserom.gbc",$609a9,$31 - -PokemonTower5Text1: ; 0x609da - TX_FAR _PokemonTower5Text1 - db $50 - -PokemonTower5Text2: ; 0x609df - db $08 ; asm - ld hl, $49a9 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$609e9,$609f8 - $609e9 - -PokemonTower5Text3: ; 0x609f8 - db $08 ; asm - ld hl, $49b5 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$60a02,$60a11 - $60a02 - -PokemonTower5Text4: ; 0x60a11 - db $08 ; asm - ld hl, $49c1 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$60a1b,$60a2a - $60a1b - -PokemonTower5Text5: ; 0x60a2a - db $08 ; asm - ld hl, $49cd - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$60a34,$f - -PokemonTower5Text7: ; 0x60a43 -INCBIN "baserom.gbc",$60a43,5 - -PokemonTower5Object: ; 0x60a48 (size=65) - db $1 ; border tile - - db $2 ; warps - db $9, $3, $0, POKEMONTOWER_4 - db $9, $12, $0, POKEMONTOWER_6 - - db $0 ; signs - - db $6 ; people - db SPRITE_MEDIUM, $8 + 4, $c + 4, $ff, $ff, $1 ; person - db SPRITE_MEDIUM, $7 + 4, $11 + 4, $ff, $d2, $42, CHANNELER + $C8, $e ; trainer - db SPRITE_MEDIUM, $3 + 4, $e + 4, $ff, $d2, $43, CHANNELER + $C8, $10 ; trainer - db SPRITE_MEDIUM, $a + 4, $6 + 4, $ff, $d3, $44, CHANNELER + $C8, $11 ; trainer - db SPRITE_MEDIUM, $10 + 4, $9 + 4, $ff, $d3, $45, CHANNELER + $C8, $12 ; trainer - db SPRITE_BALL, $e + 4, $6 + 4, $ff, $ff, $86, NUGGET ; item - - ; warp-to - EVENT_DISP $a, $9, $3 ; POKEMONTOWER_4 - EVENT_DISP $a, $9, $12 ; POKEMONTOWER_6 - -PokemonTower5Blocks: ; 90 - INCBIN "maps/pokemontower5.blk" - -PokemonTower6_h: ; 0x60ae3 to 0x60aef (12 bytes) (id=147) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower6Blocks, PokemonTower6Texts, PokemonTower6Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower6Object ; objects - -PokemonTower6Script: ; 0x60aef - call $3c3c - ld hl, $4bbf - ld de, $4b0d - ld a, [$d62f] - call $3160 - ld [$d62f], a - ret -; 0x60b02 - -INCBIN "baserom.gbc",$60b02,$af - -PokemonTower6Texts: ; 0x60bb1 - dw PokemonTower6Text1, PokemonTower6Text2, PokemonTower6Text3, PokemonTower6Text4, PokemonTower6Text5, PokemonTower6Text6, PokemonTower6Text7 - -INCBIN "baserom.gbc",$60bbb + 4,$29 - 4 - -PokemonTower6Text1: ; 0x60be4 - db $08 ; asm - ld hl, $4bbf - call LoadTrainerHeader - jp $24d7 - -PokemonTower6Text2: ; 0x60bee - db $08 ; asm - ld hl, $4bcb - call LoadTrainerHeader - jp $24d7 - -PokemonTower6Text3: ; 0x60bf8 - db $08 ; asm - ld hl, $4bd7 - call LoadTrainerHeader - jp $24d7 - -PokemonTower6Text7: ; 0x60c02 -INCBIN "baserom.gbc",$60c02,$60c56 - $60c02 - -PokemonTower6Text6: ; 0x60c56 -INCBIN "baserom.gbc",$60c56,$60c5b - $60c56 - -PokemonTower6Object: ; 0x60c5b (size=58) - db $1 ; border tile - - db $2 ; warps - db $9, $12, $1, POKEMONTOWER_5 - db $10, $9, $0, POKEMONTOWER_7 - - db $0 ; signs - - db $5 ; people - db SPRITE_MEDIUM, $a + 4, $c + 4, $ff, $d3, $41, CHANNELER + $C8, $13 ; trainer - db SPRITE_MEDIUM, $5 + 4, $9 + 4, $ff, $d0, $42, CHANNELER + $C8, $14 ; trainer - db SPRITE_MEDIUM, $5 + 4, $10 + 4, $ff, $d2, $43, CHANNELER + $C8, $15 ; trainer - db SPRITE_BALL, $8 + 4, $6 + 4, $ff, $ff, $84, RARE_CANDY ; item - db SPRITE_BALL, $e + 4, $e + 4, $ff, $ff, $85, X_ACCURACY ; item - - ; warp-to - EVENT_DISP $a, $9, $12 ; POKEMONTOWER_5 - EVENT_DISP $a, $10, $9 ; POKEMONTOWER_7 - -PokemonTower6Blocks: ; 90 - INCBIN "maps/pokemontower6.blk" - -INCBIN "baserom.gbc",$60cef,$a - -PokemonTower7_h: ; 0x60cf9 to 0x60d05 (12 bytes) (id=148) - db $0f ; tileset - db $09, $0a ; dimensions (y, x) - dw PokemonTower7Blocks, PokemonTower7Texts, PokemonTower7Script ; blocks, texts, scripts - db $00 ; connections - - dw PokemonTower7Object ; objects - -PokemonTower7Script: ; 0x60d05 - call $3c3c - ld hl, $4e47 - ld de, $4d23 - ld a, [$d630] - call $3160 - ld [$d630], a - ret -; 0x60d18 - -INCBIN "baserom.gbc",$60d18,$127 - -PokemonTower7Texts: ; 0x60e3f - dw PokemonTower7Text1, PokemonTower7Text2, PokemonTower7Text3, PokemonTower7Text4 - -INCBIN "baserom.gbc",$60e47,$25 - -PokemonTower7Text1: ; 0x60e6c - db $08 ; asm - ld hl, $4e47 - call LoadTrainerHeader - jp $24d7 - -PokemonTower7Text2: ; 0x60e76 - db $08 ; asm - ld hl, $4e53 - call LoadTrainerHeader - jp $24d7 - -PokemonTower7Text3: ; 0x60e80 - db $08 ; asm - ld hl, $4e5f - call LoadTrainerHeader - jp $24d7 - -PokemonTower7Text4: ; 0x60e8a - db $08 ; asm - ld hl, $4ec4 - call PrintText - ld hl, $d7e0 - set 7, [hl] - ld hl, $d769 - set 7, [hl] - ld a, $44 - ld [$cc4d], a - ld a, $15 - call Predef - ld a, $17 - ld [$cc4d], a - ld a, $11 - call Predef - ld a, $18 - ld [$cc4d], a - ld a, $15 - call Predef - ld a, $4 - ld [$d630], a - ld [$da39], a - jp $24d7 - -INCBIN "baserom.gbc",$60ec4,$32 - -PokemonTower7Object: ; 0x60ef6 (size=42) - db $1 ; border tile - - db $1 ; warps - db $10, $9, $1, POKEMONTOWER_6 - - db $0 ; signs - - db $4 ; people - db SPRITE_ROCKET, $b + 4, $9 + 4, $ff, $d3, $41, ROCKET + $C8, $13 ; trainer - db SPRITE_ROCKET, $9 + 4, $c + 4, $ff, $d2, $42, ROCKET + $C8, $14 ; trainer - db SPRITE_ROCKET, $7 + 4, $9 + 4, $ff, $d3, $43, ROCKET + $C8, $15 ; trainer - db SPRITE_MR_FUJI, $3 + 4, $a + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $a, $10, $9 ; POKEMONTOWER_6 - -PokemonTower7Blocks: ; 90 - INCBIN "maps/pokemontower7.blk" - -CeladonMart1_h: ; 0x60f7a to 0x60f86 (12 bytes) (id=122) - db $12 ; tileset - db $04, $0a ; dimensions (y, x) - dw CeladonMart1Blocks, CeladonMart1Texts, CeladonMart1Script ; blocks, texts, scripts - db $00 ; connections - - dw CeladonMart1Object ; objects - -CeladonMart1Script: ; 0x60f86 - jp $3c3c -; 0x60f89 - -CeladonMart1Texts: ; 0x60f89 - dw CeladonMart1Text1, CeladonMart1Text2, CeladonMart1Text3 - -CeladonMart1Text1: ; 0x60f8f - TX_FAR _CeladonMart1Text1 - db $50 - -CeladonMart1Text2: ; 0x60f94 - TX_FAR _CeladonMart1Text2 - db $50 - -CeladonMart1Text3: ; 0x60f99 - TX_FAR _CeladonMart1Text3 - db $50 - -CeladonMart1Object: ; 0x60f9e (size=64) - db $f ; border tile - - db $6 ; warps - db $7, $2, $0, $ff - db $7, $3, $0, $ff - db $7, $10, $1, $ff - db $7, $11, $1, $ff - db $1, $c, $0, CELADON_MART_2 - db $1, $1, $0, CELADON_MART_ELEVATOR - - db $2 ; signs - db $4, $b, $2 ; CeladonMart1Text2 - db $1, $e, $3 ; CeladonMart1Text3 - - db $1 ; people - db SPRITE_CABLE_CLUB_WOMAN, $3 + 4, $8 + 4, $ff, $d0, $1 ; person - - ; warp-to - EVENT_DISP $a, $7, $2 - EVENT_DISP $a, $7, $3 - EVENT_DISP $a, $7, $10 - EVENT_DISP $a, $7, $11 - EVENT_DISP $a, $1, $c ; CELADON_MART_2 - EVENT_DISP $a, $1, $1 ; CELADON_MART_ELEVATOR - -CeladonMart1Blocks: ; 40 - INCBIN "maps/celadonmart1.blk" - -INCBIN "baserom.gbc",$61006,$fb - -ViridianForest_h: ; 0x61101 to 0x6110d (12 bytes) (id=51) - db $03 ; tileset - db $18, $11 ; dimensions (y, x) - dw $4000, ViridianForestTexts, ViridianForestScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianForestObject ; objects - -ViridianForestScript: ; 0x6110d - call $3c3c - ld hl, $5142 - ld de, $5120 - ld a, [$d618] - call $3160 - ld [$d618], a - ret -; 0x61120 - -INCBIN "baserom.gbc",$61120,$6 - -ViridianForestTexts: ; 0x61126 - dw ViridianForestText1, ViridianForestText2, ViridianForestText3, ViridianForestText4, ViridianForestText5, ViridianForestText6, ViridianForestText7, ViridianForestText8, ViridianForestText9, ViridianForestText10, ViridianForestText11, ViridianForestText12, ViridianForestText13, ViridianForestText14 - -INCBIN "baserom.gbc",$61142,$25 - -ViridianForestText1: ; 0x61167 - TX_FAR _ViridianForestText1 - db $50 - -ViridianForestText2: ; 0x6116c - db $08 ; asm - ld hl, $5142 - call LoadTrainerHeader - jp $24d7 - -ViridianForestText3: ; 0x61176 - db $08 ; asm - ld hl, $514e - call LoadTrainerHeader - jp $24d7 - -ViridianForestText4: ; 0x61180 - db $08 ; asm - ld hl, $515a - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$6118a,$2d - -ViridianForestText8: ; 0x611b7 - TX_FAR _ViridianForestText8 - db $50 - -ViridianForestText9: ; 0x611bc - TX_FAR _ViridianForestText9 - db $50 - -ViridianForestText10: ; 0x611c1 - TX_FAR _ViridianForestText10 - db $50 - -ViridianForestText11: ; 0x611c6 - TX_FAR _ViridianForestText11 - db $50 - -ViridianForestText12: ; 0x611cb - TX_FAR _ViridianForestText12 - db $50 - -ViridianForestText13: ; 0x611d0 - TX_FAR _ViridianForestText13 - db $50 - -ViridianForestText14: ; 0x611d5 - TX_FAR _ViridianForestText14 - db $50 - -ViridianForestObject: ; 0x611da (size=127) - db $3 ; border tile - - db $6 ; warps - db $0, $1, $2, VIRIDIAN_FOREST_EXIT - db $0, $2, $3, VIRIDIAN_FOREST_EXIT - db $2f, $f, $1, VIRIDIAN_FOREST_ENTRANCE - db $2f, $10, $1, VIRIDIAN_FOREST_ENTRANCE - db $2f, $11, $1, VIRIDIAN_FOREST_ENTRANCE - db $2f, $12, $1, VIRIDIAN_FOREST_ENTRANCE - - db $6 ; signs - db $28, $18, $9 ; ViridianForestText9 - db $20, $10, $a ; ViridianForestText10 - db $11, $1a, $b ; ViridianForestText11 - db $18, $4, $c ; ViridianForestText12 - db $2d, $12, $d ; ViridianForestText13 - db $1, $2, $e ; ViridianForestText14 - - db $8 ; people - db SPRITE_BUG_CATCHER, $2b + 4, $10 + 4, $ff, $ff, $1 ; person - db SPRITE_BUG_CATCHER, $21 + 4, $1e + 4, $ff, $d2, $42, BUG_CATCHER + $C8, $1 ; trainer - db SPRITE_BUG_CATCHER, $13 + 4, $1e + 4, $ff, $d2, $43, BUG_CATCHER + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $12 + 4, $2 + 4, $ff, $d2, $44, BUG_CATCHER + $C8, $3 ; trainer - db SPRITE_BALL, $b + 4, $19 + 4, $ff, $ff, $85, ANTIDOTE ; item - db SPRITE_BALL, $1d + 4, $c + 4, $ff, $ff, $86, POTION ; item - db SPRITE_BALL, $1f + 4, $1 + 4, $ff, $ff, $87, POKE_BALL ; item - db SPRITE_BUG_CATCHER, $28 + 4, $1b + 4, $ff, $ff, $8 ; person - - ; warp-to - EVENT_DISP $11, $0, $1 ; VIRIDIAN_FOREST_EXIT - EVENT_DISP $11, $0, $2 ; VIRIDIAN_FOREST_EXIT - EVENT_DISP $11, $2f, $f ; VIRIDIAN_FOREST_ENTRANCE - EVENT_DISP $11, $2f, $10 ; VIRIDIAN_FOREST_ENTRANCE - EVENT_DISP $11, $2f, $11 ; VIRIDIAN_FOREST_ENTRANCE - EVENT_DISP $11, $2f, $12 ; VIRIDIAN_FOREST_ENTRANCE - -SSAnne1_h: ; 0x61259 to 0x61265 (12 bytes) (id=95) - db $0d ; tileset - db $09, $14 ; dimensions (y, x) - dw SSAnne1Blocks, SSAnne1Texts, SSAnne1Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne1Object ; objects - -SSAnne1Script: ; 0x61265 - call $3c3c - ret -; 0x61269 - -SSAnne1Texts: ; 0x61269 - dw SSAnne1Text1, SSAnne1Text2 - -SSAnne1Text1: ; 0x6126d - TX_FAR _SSAnne1Text1 - db $50 - -SSAnne1Text2: ; 0x61272 - TX_FAR _SSAnne1Text2 - db $50 - -SSAnne1Object: ; 0x61277 (size=104) - db $c ; border tile - - db $b ; warps - db $0, $1a, $1, VERMILION_DOCK - db $0, $1b, $1, VERMILION_DOCK - db $8, $1f, $0, SS_ANNE_8 - db $8, $17, $1, SS_ANNE_8 - db $8, $13, $2, SS_ANNE_8 - db $8, $f, $3, SS_ANNE_8 - db $8, $b, $4, SS_ANNE_8 - db $8, $7, $5, SS_ANNE_8 - db $6, $2, $6, SS_ANNE_2 - db $f, $25, $5, SS_ANNE_4 - db $10, $3, $0, SS_ANNE_6 - - db $0 ; signs - - db $2 ; people - db SPRITE_WAITER, $6 + 4, $c + 4, $fe, $2, $1 ; person - db SPRITE_SAILOR, $5 + 4, $1b + 4, $ff, $ff, $2 ; person - - ; warp-to - EVENT_DISP $14, $0, $1a ; VERMILION_DOCK - EVENT_DISP $14, $0, $1b ; VERMILION_DOCK - EVENT_DISP $14, $8, $1f ; SS_ANNE_8 - EVENT_DISP $14, $8, $17 ; SS_ANNE_8 - EVENT_DISP $14, $8, $13 ; SS_ANNE_8 - EVENT_DISP $14, $8, $f ; SS_ANNE_8 - EVENT_DISP $14, $8, $b ; SS_ANNE_8 - EVENT_DISP $14, $8, $7 ; SS_ANNE_8 - EVENT_DISP $14, $6, $2 ; SS_ANNE_2 - EVENT_DISP $14, $f, $25 ; SS_ANNE_4 - EVENT_DISP $14, $10, $3 ; SS_ANNE_6 - -SSAnne1Blocks: ; 180 - INCBIN "maps/ssanne1.blk" - -SSAnne2_h: ; 0x61393 to 0x6139f (12 bytes) (id=96) - db $0d ; tileset - db $09, $14 ; dimensions (y, x) - dw SSAnne2Blocks, SSAnne2Texts, SSAnne2Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne2Object ; objects - -SSAnne2Script: ; 0x6139f - call $3c3c - ld hl, $53b3 - ld a, [$d665] - jp $3d97 -; 0x613ab - -INCBIN "baserom.gbc",$613ab,$613b3 - $613ab - -SSAnne2Scripts: ; 0x613b3 - dw SSAnne2Script0, SSAnne2Script1, SSAnne2Script2, SSAnne2Script3, SSAnne2Script4 - -SSAnne2Script4: ; 0x613bd - ret -; 0x613be - -SSAnne2Script0: ; 0x613be - ld hl, $5411 - call $34bf - ret nc - ld a, $ff - ld [$c0ee], a - call $23b1 - ld c, $2 - ld a, $de - call $23a1 - ld a, [$cd3d] - ld [$ff00+$db], a - ld a, $71 - ld [$cc4d], a - ld a, $15 - call Predef - call Delay3 - ld a, $2 - ld [$ff00+$8c], a - call $3541 - xor a - ld [$ff00+$b4], a - ld a, $f0 - ld [$cd6b], a - ld a, [$ff00+$db] - cp $2 - jr nz, .asm_61400 ; 0x613f9 $5 - ld de, $540c - jr .asm_61403 ; 0x613fe $3 -.asm_61400 - ld de, $540d -.asm_61403 - call $363a - ld a, $1 - ld [$d665], a - ret -; 0x6140c - -INCBIN "baserom.gbc",$6140c,$61430 - $6140c - -SSAnne2Script1: ; 0x61430 - ld a, [$d730] - bit 0, a - ret nz - call $5416 - xor a - ld [$cd6b], a - ld a, $2 - ld [$ff00+$8c], a - call $2920 - call Delay3 - ld a, $f2 - ld [$d059], a - ld a, [$d715] - cp $b1 - jr nz, .asm_61457 ; 0x61451 $4 - ld a, $1 - jr .asm_61461 ; 0x61455 $a -.asm_61457 - cp $99 - jr nz, .asm_6145f ; 0x61459 $4 - ld a, $2 - jr .asm_61461 ; 0x6145d $2 -.asm_6145f - ld a, $3 -.asm_61461 - ld [$d05d], a - call $5416 - ld a, $2 - ld [$d665], a - ret -; 0x6146d - -SSAnne2Script2: ; 0x6146d - ld a, [$d057] - cp $ff - jp z, $53ab - call $5416 - ld a, $f0 - ld [$cd6b], a - ld a, $3 - ld [$ff00+$8c], a - call $2920 - ld a, $2 - ld [$ff00+$8c], a - call $3541 - ld a, [$d362] - cp $25 - jr nz, .asm_61497 ; 0x61490 $5 - ld de, $54b9 - jr .asm_6149a ; 0x61495 $3 -.asm_61497 - ld de, $54b7 -.asm_6149a - ld a, $2 - ld [$ff00+$8c], a - call $363a - ld a, $ff - ld [$c0ee], a - call $23b1 - ld b, $2 - ld hl, $5b47 - call Bankswitch - ld a, $3 - ld [$d665], a - ret -; 0x614b7 - -INCBIN "baserom.gbc",$614b7,$614be - $614b7 - -SSAnne2Script3: ; 0x614be - ld a, [$d730] - bit 0, a - ret nz - xor a - ld [$cd6b], a - ld a, $71 - ld [$cc4d], a - ld a, $11 - call Predef - call $2307 - ld a, $4 - ld [$d665], a - ret -; 0x614db - -SSAnne2Texts: ; 0x614db - dw SSAnne2Text1, SSAnne2Text2, SSAnne2Text3 - -SSAnne2Text1: ; 0x614e1 - TX_FAR _SSAnne2Text1 - db $50 - -SSAnne2Text2: ; 0x614e6 - db $8 - ld hl, $5500 - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $5505 - ld de, $550a - call $3354 - jp $24d7 -; 0x61500 - -INCBIN "baserom.gbc",$61500,$f - -SSAnne2Text3: ; 0x6150f -INCBIN "baserom.gbc",$6150f,5 - -SSAnne2Object: ; 0x61514 (size=90) - db $c ; border tile - - db $9 ; warps - db $b, $9, $0, SS_ANNE_9 - db $b, $d, $2, SS_ANNE_9 - db $b, $11, $4, SS_ANNE_9 - db $b, $15, $6, SS_ANNE_9 - db $b, $19, $8, SS_ANNE_9 - db $b, $1d, $a, SS_ANNE_9 - db $4, $2, $8, SS_ANNE_1 - db $c, $2, $1, SS_ANNE_3 - db $4, $24, $0, SS_ANNE_7 - - db $0 ; signs - - db $2 ; people - db SPRITE_WAITER, $7 + 4, $3 + 4, $fe, $1, $1 ; person - db SPRITE_BLUE, $4 + 4, $24 + 4, $ff, $d0, $42, SONY1 + $C8, $1 ; trainer - - ; warp-to - EVENT_DISP $14, $b, $9 ; SS_ANNE_9 - EVENT_DISP $14, $b, $d ; SS_ANNE_9 - EVENT_DISP $14, $b, $11 ; SS_ANNE_9 - EVENT_DISP $14, $b, $15 ; SS_ANNE_9 - EVENT_DISP $14, $b, $19 ; SS_ANNE_9 - EVENT_DISP $14, $b, $1d ; SS_ANNE_9 - EVENT_DISP $14, $4, $2 ; SS_ANNE_1 - EVENT_DISP $14, $c, $2 ; SS_ANNE_3 - EVENT_DISP $14, $4, $24 ; SS_ANNE_7 - -SSAnne2Blocks: ; 180 - INCBIN "maps/ssanne2.blk" - -SSAnne4_h: ; 0x61622 to 0x6162e (12 bytes) (id=98) - db $0d ; tileset - db $04, $0f ; dimensions (y, x) - dw SSAnne4Blocks, SSAnne4Texts, SSAnne4Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne4Object ; objects - -SSAnne4Script: ; 0x6162e - jp $3c3c -; 0x61631 - -SSAnne4Texts: -INCBIN "baserom.gbc",$61631,$1 - -SSAnne4Object: ; 0x61632 (size=52) - db $c ; border tile - - db $6 ; warps - db $3, $17, $8, SS_ANNE_10 - db $3, $13, $6, SS_ANNE_10 - db $3, $f, $4, SS_ANNE_10 - db $3, $b, $2, SS_ANNE_10 - db $3, $7, $0, SS_ANNE_10 - db $5, $1b, $9, SS_ANNE_1 - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $f, $3, $17 ; SS_ANNE_10 - EVENT_DISP $f, $3, $13 ; SS_ANNE_10 - EVENT_DISP $f, $3, $f ; SS_ANNE_10 - EVENT_DISP $f, $3, $b ; SS_ANNE_10 - EVENT_DISP $f, $3, $7 ; SS_ANNE_10 - EVENT_DISP $f, $5, $1b ; SS_ANNE_1 - -SSAnne4Blocks: ; 60 - INCBIN "maps/ssanne4.blk" - -SSAnne5_h: ; 0x616a2 to 0x616ae (12 bytes) (id=99) - db $0d ; tileset - db $07, $0a ; dimensions (y, x) - dw SSAnne5Blocks, SSAnne5Texts, SSAnne5Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne5Object ; objects - -SSAnne5Script: ; 0x616ae - call $3c3c - ld hl, $56d1 - ld de, $56c1 - ld a, [$d617] - call $3160 - ld [$d617], a - ret -; 0x616c1 - -INCBIN "baserom.gbc",$616c1,$6 - -SSAnne5Texts: ; 0x616c7 - dw SSAnne5Text1, SSAnne5Text2, SSAnne5Text3, SSAnne5Text4, SSAnne5Text5 - -INCBIN "baserom.gbc",$616d1,$19 - -SSAnne5Text1: ; 0x616ea - TX_FAR _SSAnne5Text1 - db $50 - -SSAnne5Text2: ; 0x616ef - TX_FAR _SSAnne5Text2 - db $50 - -SSAnne5Text3: ; 0x616f4 - TX_FAR _SSAnne5Text3 - db $50 - -SSAnne5Text4: ; 0x616f9 - db $08 ; asm - ld hl, $56d1 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$61703,$61712 - $61703 - -SSAnne5Text5: ; 0x61712 - db $08 ; asm - ld hl, $56dd - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$6171c,$f - -SSAnne5Object: ; 0x6172b (size=54) - db $23 ; border tile - - db $2 ; warps - db $6, $d, $0, SS_ANNE_3 - db $7, $d, $0, SS_ANNE_3 - - db $0 ; signs - - db $5 ; people - db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $5 + 4, $ff, $d1, $1 ; person - db SPRITE_SAILOR, $9 + 4, $4 + 4, $ff, $ff, $2 ; person - db SPRITE_BLACK_HAIR_BOY_1, $b + 4, $7 + 4, $ff, $ff, $3 ; person - db SPRITE_SAILOR, $4 + 4, $4 + 4, $ff, $d0, $44, SAILOR + $C8, $1 ; trainer - db SPRITE_SAILOR, $8 + 4, $a + 4, $ff, $d1, $45, SAILOR + $C8, $2 ; trainer - - ; warp-to - EVENT_DISP $a, $6, $d ; SS_ANNE_3 - EVENT_DISP $a, $7, $d ; SS_ANNE_3 - -SSAnne5Blocks: ; 70 - INCBIN "maps/ssanne5.blk" - -SSAnne6_h: ; 0x617a7 to 0x617b3 (12 bytes) (id=100) - db $0d ; tileset - db $08, $07 ; dimensions (y, x) - dw SSAnne6Blocks, SSAnne6Texts, SSAnne6Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne6Object ; objects - -SSAnne6Script: ; 0x617b3 - call $3c3c - ret -; 0x617b7 - -SSAnne6Texts: ; 0x617b7 - dw SSAnne6Text1, SSAnne6Text2, SSAnne6Text3, SSAnne6Text4, SSAnne6Text5, SSAnne6Text6, SSAnne6Text7 - -SSAnne6Text1: ; 0x617c5 - TX_FAR _SSAnne6Text1 - db $50 - -SSAnne6Text2: ; 0x617ca - TX_FAR _SSAnne6Text2 - db $50 - -SSAnne6Text3: ; 0x617cf - TX_FAR _SSAnne6Text3 - db $50 - -SSAnne6Text4: ; 0x617d4 - TX_FAR _SSAnne6Text4 - db $50 - -SSAnne6Text5: ; 0x617d9 - TX_FAR _SSAnne6Text5 - db $50 - -SSAnne6Text6: ; 0x617de - TX_FAR _SSAnne6Text6 - db $50 - -SSAnne6Text7: ; 0x617e3 - db $08 ; asm - ld hl, $5807 - call PrintText - ldh a, [$d3] - bit 7, a - jr z, .asm_93eb1 ; 0x617ee - ld hl, $580c - jr .asm_63292 ; 0x617f3 -.asm_93eb1 ; 0x617f5 - bit 4, a - jr z, .asm_7436c ; 0x617f7 - ld hl, $5811 - jr .asm_63292 ; 0x617fc -.asm_7436c ; 0x617fe - ld hl, $5816 -.asm_63292 ; 0x61801 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61807,$14 - -SSAnne6Object: ; 0x6181b (size=54) - db $c ; border tile - - db $1 ; warps - db $0, $6, $a, SS_ANNE_1 - - db $0 ; signs - - db $7 ; people - db SPRITE_COOK, $8 + 4, $1 + 4, $fe, $1, $1 ; person - db SPRITE_COOK, $8 + 4, $5 + 4, $fe, $1, $2 ; person - db SPRITE_COOK, $7 + 4, $9 + 4, $fe, $1, $3 ; person - db SPRITE_COOK, $6 + 4, $d + 4, $ff, $ff, $4 ; person - db SPRITE_COOK, $8 + 4, $d + 4, $ff, $ff, $5 ; person - db SPRITE_COOK, $a + 4, $d + 4, $ff, $ff, $6 ; person - db SPRITE_COOK, $d + 4, $b + 4, $ff, $d1, $7 ; person - - ; warp-to - EVENT_DISP $7, $0, $6 ; SS_ANNE_1 - -SSAnne6Blocks: ; 56 - INCBIN "maps/ssanne6.blk" - -SSAnne7_h: ; 0x61889 to 0x61895 (12 bytes) (id=101) - db $0d ; tileset - db $04, $03 ; dimensions (y, x) - dw SSAnne7Blocks, SSAnne7Texts, SSAnne7Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne7Object ; objects - -SSAnne7Script: ; 0x61895 - call $589b - jp $3c3c -; 0x6189b - -INCBIN "baserom.gbc",$6189b,$c - -SSAnne7Texts: ; 0x618a7 - dw SSAnne7Text1, SSAnne7Text2, SSAnne7Text3 - -SSAnne7Text1: ; 0x618ad - db $08 ; asm - ld a, [$d803] - bit 0, a - jr nz, .asm_797c4 ; 0x618b3 - ld hl, $58ec - call PrintText - ld hl, $5927 - call PrintText - ld bc,(HM_01 << 8) | 1 - call $3e2e - jr nc, .asm_ccdcd ; 0x618c7 - ld hl, $592c - call PrintText - ld hl, $d803 - set 0, [hl] - jr .asm_0faf5 ; 0x618d4 -.asm_ccdcd ; 0x618d6 - ld hl, $5937 - call PrintText - ld hl, $d72d - set 5, [hl] - jr .asm_0faf5 ; 0x618e1 -.asm_797c4 ; 0x618e3 - ld hl, $5932 - call PrintText -.asm_0faf5 ; 0x618e9 - jp $24d7 - -INCBIN "baserom.gbc",$618ec,$50 - -SSAnne7Text2: ; 0x6193c - TX_FAR _SSAnne7Text2 - db $50 - -SSAnne7Text3: ; 0x61941 - TX_FAR _SSAnne7Text3 - db $50 - -SSAnne7Object: ; 0x61946 (size=24) - db $c ; border tile - - db $1 ; warps - db $7, $0, $8, SS_ANNE_2 - - db $2 ; signs - db $1, $4, $2 ; SSAnne7Text2 - db $2, $1, $3 ; SSAnne7Text3 - - db $1 ; people - db SPRITE_SS_CAPTAIN, $2 + 4, $4 + 4, $ff, $d1, $1 ; person - - ; warp-to - EVENT_DISP $3, $7, $0 ; SS_ANNE_2 - -SSAnne7Blocks: ; 12 - INCBIN "maps/ssanne7.blk" - -SSAnne8_h: ; 0x6196a to 0x61976 (12 bytes) (id=102) - db $0d ; tileset - db $08, $0c ; dimensions (y, x) - dw SSAnne8Blocks, SSAnne8Texts, SSAnne8Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne8Object ; objects - -SSAnne8Script: ; 0x61976 - call $3c3c - ld hl, $59a5 - ld de, $5989 - ld a, [$d608] - call $3160 - ld [$d608], a - ret -; 0x61989 - -INCBIN "baserom.gbc",$61989,$6 - -SSAnne8Texts: ; 0x6198f - dw SSAnne8Text1, SSAnne8Text2, SSAnne8Text3, SSAnne8Text4, SSAnne8Text5, SSAnne8Text6, SSAnne8Text7, SSAnne8Text8, SSAnne8Text9, SSAnne8Text10, SSAnne8Text11 - -INCBIN "baserom.gbc",$619a5,$31 - -SSAnne8Text1: ; 0x619d6 - db $08 ; asm - ld hl, $59a5 - call LoadTrainerHeader - jp $24d7 - -SSAnne8Text2: ; 0x619e0 - db $08 ; asm - ld hl, $59b1 - call LoadTrainerHeader - jp $24d7 - -SSAnne8Text3: ; 0x619ea - db $08 ; asm - ld hl, $59bd - call LoadTrainerHeader - jp $24d7 - -SSAnne8Text4: ; 0x619f4 - db $08 ; asm - ld hl, $59c9 - call LoadTrainerHeader - jp $24d7 - -SSAnne8Text8: ; 0x619fe - TX_FAR _SSAnne8Text8 - db $08 ; asm - ld a, $65 - call $13d0 - jp $24d7 - -INCBIN "baserom.gbc",$61a0b,60 - -SSAnne8Text5: ; 0x61a47 - TX_FAR _SSAnne8Text5 - db $50 - -SSAnne8Text6: ; 0x61a4c - TX_FAR _SSAnne8Text6 - db $50 - -SSAnne8Text7: ; 0x61a51 - TX_FAR _SSAnne8Text7 - db $50 - -SSAnne8Text9: ; 0x61a56 - TX_FAR _SSAnne8Text9 - db $50 - -SSAnne8Text11: ; 0x61a5b - TX_FAR _SSAnne8Text11 - db $50 - -SSAnne8Object: ; 0x61a60 (size=127) - db $c ; border tile - - db $6 ; warps - db $0, $0, $2, SS_ANNE_1 - db $0, $a, $3, SS_ANNE_1 - db $0, $14, $4, SS_ANNE_1 - db $a, $0, $5, SS_ANNE_1 - db $a, $a, $6, SS_ANNE_1 - db $a, $14, $7, SS_ANNE_1 - - db $0 ; signs - - db $b ; people - db SPRITE_GENTLEMAN, $3 + 4, $2 + 4, $ff, $d2, $41, GENTLEMAN + $C8, $1 ; trainer - db SPRITE_GENTLEMAN, $4 + 4, $b + 4, $ff, $d1, $42, GENTLEMAN + $C8, $2 ; trainer - db SPRITE_BUG_CATCHER, $e + 4, $b + 4, $ff, $d1, $43, YOUNGSTER + $C8, $8 ; trainer - db SPRITE_LASS, $b + 4, $d + 4, $ff, $d2, $44, LASS + $C8, $b ; trainer - db SPRITE_GIRL, $3 + 4, $16 + 4, $fe, $1, $5 ; person - db SPRITE_FAT_BALD_GUY, $e + 4, $0 + 4, $ff, $ff, $6 ; person - db SPRITE_LITTLE_GIRL, $b + 4, $2 + 4, $ff, $d0, $7 ; person - db SPRITE_CLEFAIRY, $b + 4, $3 + 4, $ff, $d0, $8 ; person - db SPRITE_GIRL, $d + 4, $a + 4, $ff, $d3, $9 ; person - db SPRITE_BALL, $f + 4, $c + 4, $ff, $ff, $8a, TM_08 ; item - db SPRITE_GENTLEMAN, $d + 4, $15 + 4, $fe, $2, $b ; person - - ; warp-to - EVENT_DISP $c, $0, $0 ; SS_ANNE_1 - EVENT_DISP $c, $0, $a ; SS_ANNE_1 - EVENT_DISP $c, $0, $14 ; SS_ANNE_1 - EVENT_DISP $c, $a, $0 ; SS_ANNE_1 - EVENT_DISP $c, $a, $a ; SS_ANNE_1 - EVENT_DISP $c, $a, $14 ; SS_ANNE_1 - -SSAnne8Blocks: ; 96 - INCBIN "maps/ssanne8.blk" - -SSAnne9_h: ; 0x61b3f to 0x61b4b (12 bytes) (id=103) - db $0d ; tileset - db $08, $0c ; dimensions (y, x) - dw SSAnne9Blocks, SSAnne9Texts, SSAnne9Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne9Object ; objects - -SSAnne9Script: ; 0x61b4b - ld a, $1 - ld [$cf0c], a - xor a - ld [$cc3c], a - ld hl, $5b84 - ld de, $5b64 - ld a, [$d609] - call $3160 - ld [$d609], a - ret -; 0x61b64 - -INCBIN "baserom.gbc",$61b64,$6 - -SSAnne9Texts: ; 0x61b6a - dw SSAnne9Text1, SSAnne9Text2, SSAnne9Text3, SSAnne9Text4, SSAnne9Text5, SSAnne9Text6, SSAnne9Text7, SSAnne9Text8, SSAnne9Text9, SSAnne9Text10, SSAnne9Text11, SSAnne9Text12, SSAnne9Text13 - -INCBIN "baserom.gbc",$61b84,$31 - -SSAnne9Text1: ; 0x61bb5 - db $08 ; asm - ld hl, $5b84 - call LoadTrainerHeader - jp $24d7 - -SSAnne9Text2: ; 0x61bbf - db $08 ; asm - ld hl, $5b90 - call LoadTrainerHeader - jp $24d7 - -SSAnne9Text3: ; 0x61bc9 - db $08 ; asm - ld hl, $5b9c - call LoadTrainerHeader - jp $24d7 - -SSAnne9Text4: ; 0x61bd3 - db $08 ; asm - ld hl, $5ba8 - call LoadTrainerHeader - jp $24d7 - -SSAnne9Text5: ; 0x61bdd - db $08 ; asm - call $3719 - ld hl, $5bf2 - call PrintText - call $3725 - ld a, $84 - call $349b - jp $24d7 - -INCBIN "baserom.gbc",$61bf2,$61bf7 - $61bf2 - -SSAnne9Text7: ; 0x61bf7 - db $08 ; asm - ld hl, $5c01 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61c01,$61c06 - $61c01 - -SSAnne9Text8: ; 0x61c06 - db $08 ; asm - ld hl, $5c10 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61c10,$61c15 - $61c10 - -SSAnne9Text10: ; 0x61c15 - db $08 ; asm - ld hl, $5c1f - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61c1f,$61c24 - $61c1f - -SSAnne9Text11: ; 0x61c24 - db $08 ; asm - ld hl, $5c2e - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61c2e,$61c33 - $61c2e - -SSAnne9Text12: ; 0x61c33 - db $08 ; asm - ld hl, $5c3d - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61c3d,$61c42 - $61c3d - -SSAnne9Text13: ; 0x61c42 - db $08 ; asm - ld hl, $5c4c - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$61c4c,$41 - -SSAnne9Object: ; 0x61c8d (size=188) - db $c ; border tile - - db $c ; warps - db $5, $2, $0, SS_ANNE_2 - db $5, $3, $0, SS_ANNE_2 - db $5, $c, $1, SS_ANNE_2 - db $5, $d, $1, SS_ANNE_2 - db $5, $16, $2, SS_ANNE_2 - db $5, $17, $2, SS_ANNE_2 - db $f, $2, $3, SS_ANNE_2 - db $f, $3, $3, SS_ANNE_2 - db $f, $c, $4, SS_ANNE_2 - db $f, $d, $4, SS_ANNE_2 - db $f, $16, $5, SS_ANNE_2 - db $f, $17, $5, SS_ANNE_2 - - db $0 ; signs - - db $d ; people - db SPRITE_GENTLEMAN, $2 + 4, $a + 4, $ff, $d3, $41, GENTLEMAN + $C8, $3 ; trainer - db SPRITE_FISHER2, $4 + 4, $d + 4, $ff, $d2, $42, FISHER + $C8, $1 ; trainer - db SPRITE_GENTLEMAN, $e + 4, $0 + 4, $ff, $d3, $43, GENTLEMAN + $C8, $5 ; trainer - db SPRITE_LASS, $b + 4, $2 + 4, $ff, $d0, $44, LASS + $C8, $c ; trainer - db SPRITE_GENTLEMAN, $2 + 4, $1 + 4, $ff, $d0, $5 ; person - db SPRITE_BALL, $1 + 4, $c + 4, $ff, $ff, $86, MAX_ETHER ; item - db SPRITE_GENTLEMAN, $2 + 4, $15 + 4, $ff, $d0, $7 ; person - db SPRITE_OLD_PERSON, $1 + 4, $16 + 4, $ff, $d0, $8 ; person - db SPRITE_BALL, $c + 4, $0 + 4, $ff, $ff, $89, RARE_CANDY ; item - db SPRITE_GENTLEMAN, $c + 4, $c + 4, $ff, $d0, $a ; person - db SPRITE_YOUNG_BOY, $e + 4, $b + 4, $ff, $ff, $b ; person - db SPRITE_BRUNETTE_GIRL, $c + 4, $16 + 4, $ff, $d2, $c ; person - db SPRITE_FOULARD_WOMAN, $c + 4, $14 + 4, $ff, $d3, $d ; person - - ; warp-to - EVENT_DISP $c, $5, $2 ; SS_ANNE_2 - EVENT_DISP $c, $5, $3 ; SS_ANNE_2 - EVENT_DISP $c, $5, $c ; SS_ANNE_2 - EVENT_DISP $c, $5, $d ; SS_ANNE_2 - EVENT_DISP $c, $5, $16 ; SS_ANNE_2 - EVENT_DISP $c, $5, $17 ; SS_ANNE_2 - EVENT_DISP $c, $f, $2 ; SS_ANNE_2 - EVENT_DISP $c, $f, $3 ; SS_ANNE_2 - EVENT_DISP $c, $f, $c ; SS_ANNE_2 - EVENT_DISP $c, $f, $d ; SS_ANNE_2 - EVENT_DISP $c, $f, $16 ; SS_ANNE_2 - EVENT_DISP $c, $f, $17 ; SS_ANNE_2 - -SSAnne10_h: ; 0x61d49 to 0x61d55 (12 bytes) (id=104) - db $0d ; tileset - db $08, $0c ; dimensions (y, x) - dw $43c0, SSAnne10Texts, SSAnne10Script ; blocks, texts, scripts - db $00 ; connections - - dw SSAnne10Object ; objects - -SSAnne10Script: ; 0x61d55 - call $3c3c - ld hl, $5d84 - ld de, $5d68 - ld a, [$d629] - call $3160 - ld [$d629], a - ret -; 0x61d68 - -INCBIN "baserom.gbc",$61d68,$6 - -SSAnne10Texts: ; 0x61d6e - dw SSAnne10Text1, SSAnne10Text2, SSAnne10Text3, SSAnne10Text4, SSAnne10Text5, SSAnne10Text6, SSAnne10Text7, SSAnne10Text8, SSAnne10Text9, SSAnne10Text10, SSAnne10Text11 - -INCBIN "baserom.gbc",$61d84,$49 - -SSAnne10Text1: ; 0x61dcd - db $08 ; asm - ld hl, $5d84 - call LoadTrainerHeader - jp $24d7 - -SSAnne10Text2: ; 0x61dd7 - db $08 ; asm - ld hl, $5d90 - call LoadTrainerHeader - jp $24d7 - -SSAnne10Text3: ; 0x61de1 - db $08 ; asm - ld hl, $5d9c - call LoadTrainerHeader - jp $24d7 - -SSAnne10Text4: ; 0x61deb - db $08 ; asm - ld hl, $5da8 - call LoadTrainerHeader - jp $24d7 - -SSAnne10Text5: ; 0x61df5 - db $08 ; asm - ld hl, $5db4 - call LoadTrainerHeader - jp $24d7 - -SSAnne10Text6: ; 0x61dff - db $08 ; asm - ld hl, $5dc0 - call LoadTrainerHeader - jp $24d7 - -SSAnne10Text8: ; 0x61e09 - TX_FAR _SSAnne10Text8 - db $8 ; 0x61e0d - ld a, $29 - call $13d0 - jp $24d7 - -INCBIN "baserom.gbc",$61e16,$61e70 - $61e16 - -SSAnne10Text7: ; 0x61e70 - TX_FAR _SSAnne10Text7 - db $50 - -SSAnne10Object: ; 0x61e75 (size=165) - db $c ; border tile - - db $a ; warps - db $5, $2, $4, SS_ANNE_4 - db $5, $3, $4, SS_ANNE_4 - db $5, $c, $3, SS_ANNE_4 - db $5, $d, $3, SS_ANNE_4 - db $5, $16, $2, SS_ANNE_4 - db $5, $17, $2, SS_ANNE_4 - db $f, $2, $1, SS_ANNE_4 - db $f, $3, $1, SS_ANNE_4 - db $f, $c, $0, SS_ANNE_4 - db $f, $d, $0, SS_ANNE_4 - - db $0 ; signs - - db $b ; people - db SPRITE_SAILOR, $d + 4, $0 + 4, $ff, $d0, $41, SAILOR + $C8, $3 ; trainer - db SPRITE_SAILOR, $b + 4, $2 + 4, $ff, $d0, $42, SAILOR + $C8, $4 ; trainer - db SPRITE_SAILOR, $3 + 4, $c + 4, $ff, $d2, $43, SAILOR + $C8, $5 ; trainer - db SPRITE_SAILOR, $2 + 4, $16 + 4, $ff, $d0, $44, SAILOR + $C8, $6 ; trainer - db SPRITE_SAILOR, $2 + 4, $0 + 4, $ff, $d3, $45, SAILOR + $C8, $7 ; trainer - db SPRITE_FISHER2, $4 + 4, $0 + 4, $ff, $d3, $46, FISHER + $C8, $2 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $d + 4, $a + 4, $ff, $d3, $7 ; person - db SPRITE_SLOWBRO, $c + 4, $b + 4, $ff, $ff, $8 ; person - db SPRITE_BALL, $2 + 4, $14 + 4, $ff, $ff, $89, ETHER ; item - db SPRITE_BALL, $2 + 4, $a + 4, $ff, $ff, $8a, TM_44 ; item - db SPRITE_BALL, $b + 4, $c + 4, $ff, $ff, $8b, MAX_POTION ; item - - ; warp-to - EVENT_DISP $c, $5, $2 ; SS_ANNE_4 - EVENT_DISP $c, $5, $3 ; SS_ANNE_4 - EVENT_DISP $c, $5, $c ; SS_ANNE_4 - EVENT_DISP $c, $5, $d ; SS_ANNE_4 - EVENT_DISP $c, $5, $16 ; SS_ANNE_4 - EVENT_DISP $c, $5, $17 ; SS_ANNE_4 - EVENT_DISP $c, $f, $2 ; SS_ANNE_4 - EVENT_DISP $c, $f, $3 ; SS_ANNE_4 - EVENT_DISP $c, $f, $c ; SS_ANNE_4 - EVENT_DISP $c, $f, $d ; SS_ANNE_4 - -UndergroundPathNS_h: ; 0x61f1a to 0x61f26 (12 bytes) (id=119) - db $0b ; tileset - db $18, $04 ; dimensions (y, x) - dw UndergroundPathNSBlocks, UndergroundPathNSTexts, UndergroundPathNSScript ; blocks, texts, scripts - db $00 ; connections - - dw UndergroundPathNSObject ; objects - -UndergroundPathNSScript: ; 0x61f26 - jp $3c3c -; 0x61f29 - -UndergroundPathNSTexts: -INCBIN "baserom.gbc",$61f29,$1 - -UndergroundPathNSObject: ; 0x61f2a (size=20) - db $1 ; border tile - - db $2 ; warps - db $4, $5, $2, PATH_ENTRANCE_ROUTE_5 - db $29, $2, $2, PATH_ENTRANCE_ROUTE_6 - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $4, $4, $5 ; PATH_ENTRANCE_ROUTE_5 - EVENT_DISP $4, $29, $2 ; PATH_ENTRANCE_ROUTE_6 - -UndergroundPathWE_h: ; 0x61f3e to 0x61f4a (12 bytes) (id=121) - db $0b ; tileset - db $04, $19 ; dimensions (y, x) - dw $41f4, $5f4d, UndergroundPathWEScript ; blocks, texts, scripts - db $00 ; connections - - dw UndergroundPathWEObject ; objects - -UndergroundPathWEScript: ; 0x61f4a - jp $3c3c -; 0x61f4d - -INCBIN "baserom.gbc",$61f4d,$1 - -UndergroundPathWEObject: ; 0x61f4e (size=20) - db $1 ; border tile - - db $2 ; warps - db $5, $2, $2, PATH_ENTRANCE_ROUTE_7 - db $2, $2f, $2, PATH_ENTRANCE_ROUTE_8 - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $19, $5, $2 ; PATH_ENTRANCE_ROUTE_7 - EVENT_DISP $19, $2, $2f ; PATH_ENTRANCE_ROUTE_8 - -DiglettsCave_h: ; 0x61f62 to 0x61f6e (12 bytes) (id=197) - db $11 ; tileset - db $12, $14 ; dimensions (y, x) - dw DiglettsCaveBlocks, $5f71, DiglettsCaveScript ; blocks, texts, scripts - db $00 ; connections - - dw DiglettsCaveObject ; objects - -DiglettsCaveScript: ; 0x61f6e - jp $3c3c -; 0x61f71 - -INCBIN "baserom.gbc",$61f71,$1 - -DiglettsCaveObject: ; 0x61f72 (size=20) - db $19 ; border tile - - db $2 ; warps - db $5, $5, $2, DIGLETTS_CAVE_EXIT - db $1f, $25, $2, DIGLETTS_CAVE_ENTRANCE - - db $0 ; signs - - db $0 ; people - - ; warp-to - EVENT_DISP $14, $5, $5 ; DIGLETTS_CAVE_EXIT - EVENT_DISP $14, $1f, $25 ; DIGLETTS_CAVE_ENTRANCE - -DiglettsCaveBlocks: ; 360 - INCBIN "maps/diglettscave.blk" - -SilphCo11_h: ; 0x620ee to 0x620fa (12 bytes) (id=235) - db $10 ; tileset - db $09, $09 ; dimensions (y, x) - dw SilphCo11Blocks, SilphCo11Texts, SilphCo11Script ; blocks, texts, scripts - db $00 ; connections - - dw SilphCo11Object ; objects - -SilphCo11Script: ; 0x620fa - call $6110 - call $3c3c - ld hl, $62c3 - ld de, $61cf - ld a, [$d659] - call $3160 - ld [$d659], a - ret -; 0x62110 - -INCBIN "baserom.gbc",$62110,$1a7 - -SilphCo11Texts: ; 0x622b7 - dw SilphCo11Text1, SilphCo11Text2, SilphCo11Text3, SilphCo11Text4, SilphCo11Text5, SilphCo11Text6 - -INCBIN "baserom.gbc",$622c3,$19 - -SilphCo11Text1: ; 0x622dc - db $08 ; asm - ld a, [$d838] - bit 5, a - jp nz, $6308 - ld hl, $6311 - call PrintText - ld bc,(MASTER_BALL << 8) | 1 - call $3e2e - jr nc, .asm_36088 ; 0x622f1 - ld hl, $6316 - call PrintText - ld hl, $d838 - set 5, [hl] - jr .asm_fd405 ; 0x622fe -.asm_36088 ; 0x62300 - ld hl, $6321 - call PrintText - jr .asm_fd405 ; 0x62306 - ld hl, $631c - call PrintText -.asm_fd405 ; 0x6230e - jp $24d7 - -INCBIN "baserom.gbc",$62311,$15 - -SilphCo11Text2: ; 0x62326 - TX_FAR _SilphCo11Text2 - db $50 - -SilphCo11Text3: ; 0x6232b - TX_FAR _SilphCo11Text3 - db $50 - -INCBIN "baserom.gbc",$62330,5 - -SilphCo11Text6: ; 0x62335 -INCBIN "baserom.gbc",$62335,5 - -SilphCo11Text4: ; 0x6233a - db $08 ; asm - ld hl, $62c3 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$62344,$62353 - $62344 - -SilphCo11Text5: ; 0x62353 - db $08 ; asm - ld hl, $62cf - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$6235d,$23 - -SilphCo11Object: ; 0x62380 (size=72) - db $d ; border tile - - db $4 ; warps - db $0, $9, $1, SILPH_CO_10F - db $0, $d, $0, SILPH_CO_ELEVATOR - db $5, $5, $9, $ff - db $2, $3, $3, SILPH_CO_7F - - db $0 ; signs - - db $5 ; people - db SPRITE_MR_MASTERBALL, $5 + 4, $7 + 4, $ff, $d0, $1 ; person - db SPRITE_FOULARD_WOMAN, $5 + 4, $a + 4, $ff, $d0, $2 ; person - db SPRITE_GIOVANNI, $9 + 4, $6 + 4, $ff, $d0, $43, GIOVANNI + $C8, $2 ; trainer - db SPRITE_ROCKET, $10 + 4, $3 + 4, $ff, $d1, $44, ROCKET + $C8, $29 ; trainer - db SPRITE_ROCKET, $9 + 4, $f + 4, $ff, $d1, $45, ROCKET + $C8, $28 ; trainer - - ; warp-to - EVENT_DISP $9, $0, $9 ; SILPH_CO_10F - EVENT_DISP $9, $0, $d ; SILPH_CO_ELEVATOR - EVENT_DISP $9, $5, $5 - EVENT_DISP $9, $2, $3 ; SILPH_CO_7F - -SilphCo11Blocks: ; 81 - INCBIN "maps/silphco11.blk" - -INCBIN "baserom.gbc",$62419,$1be7 - -SECTION "bank19",DATA,BANK[$19] - -Tset00_GFX: - INCBIN "gfx/tilesets/00.2bpp" -Tset00_Block: - INCBIN "baserom.gbc",$645E0,$64DE0-$645E0 -Tset01_GFX: - INCBIN "gfx/tilesets/01.2bpp" -Tset01_Block: - INCBIN "baserom.gbc",$65270,$653A0-$65270 -Tset08_GFX: - INCBIN "gfx/tilesets/08.2bpp" -Tset08_Block: - INCBIN "baserom.gbc",$65980,$65BB0-$65980 -Tset13_GFX: - INCBIN "gfx/tilesets/13.2bpp" -Tset13_Block: - INCBIN "baserom.gbc",$66190,$66610-$66190 -Tset0E_GFX: - INCBIN "gfx/tilesets/0e.2bpp" -Tset0E_Block: - INCBIN "baserom.gbc",$66BF0,$66D60-$66BF0 -Tset10_GFX: - INCBIN "gfx/tilesets/10.2bpp" -Tset10_Block: - INCBIN "baserom.gbc",$67350,$676F0-$67350 -Tset17_GFX: - INCBIN "gfx/tilesets/17.2bpp" -Tset17_Block: - INCBIN "baserom.gbc",$67B50,$68000-$67B50 - -SECTION "bank1A",DATA,BANK[$1A] - -DecrementPP: -; after using a move, decrement pp in battle and (if not transformed?) in party - ld a,[de] - cp a,STRUGGLE - ret z - ld hl,$D062 - ld a,[hli] - and a,7 - ret nz - bit 6,[hl] - ret nz - ld hl,$D02D ; PP of first move (in battle) - call .DecrementPP\@ - - ld a,[$D064] - bit 3,a ; XXX transform status? - ret nz - - ld hl,$D188 ; PP of first move (in party) - ld a,[$CC2F] ; which mon in party is active - ld bc,$2C - call AddNTimes -.DecrementPP\@ - ld a,[$CC2E] ; which move (0, 1, 2, 3) did we use? - ld c,a - ld b,0 - add hl,bc - dec [hl] ; Decrement PP - ret - -INCBIN "gfx/redgreenversion.1bpp" - -Tset05_GFX: - INCBIN "gfx/tilesets/05.2bpp" -Tset05_Block: - INCBIN "baserom.gbc",$6867F,$68DBF-$6867F -Tset02_GFX: - INCBIN "gfx/tilesets/02.2bpp" -Tset02_Block: - INCBIN "baserom.gbc",$693BF,$6960F-$693BF -Tset09_GFX: - INCBIN "gfx/tilesets/09.2bpp" -Tset09_Block: - INCBIN "baserom.gbc",$69BFF,$6A3FF-$69BFF -Tset03_GFX: - INCBIN "gfx/tilesets/03.2bpp" -Tset03_Block: - INCBIN "baserom.gbc",$6A9FF,$6B1FF-$6A9FF -Tset16_GFX: - INCBIN "gfx/tilesets/16.2bpp" -Tset16_Block: - INCBIN "baserom.gbc",$6B7FF,$6C000-$6B7FF - -SECTION "bank1B",DATA,BANK[$1B] - -Tset0F_GFX: - INCBIN "gfx/tilesets/0f.2bpp" -Tset0F_Block: - INCBIN "baserom.gbc",$6C5C0,$6CCA0-$6C5C0 -Tset11_GFX: - INCBIN "gfx/tilesets/11.2bpp" -Tset11_Block: - INCBIN "baserom.gbc",$6D0C0,$6D8C0-$6D0C0 -Tset12_GFX: - INCBIN "gfx/tilesets/12.2bpp" -Tset12_Block: - INCBIN "baserom.gbc",$6DEA0,$6E390-$6DEA0 -Tset0D_GFX: - INCBIN "gfx/tilesets/0d.2bpp" -Tset0D_Block: - INCBIN "baserom.gbc",$6E930,$6ED10-$6E930 -Tset14_GFX: - INCBIN "gfx/tilesets/14.2bpp" -Tset14_Block: - INCBIN "baserom.gbc",$6F2D0,$6F670-$6F2D0 -Tset15_GFX: - INCBIN "gfx/tilesets/15.2bpp" -Tset15_Block: - INCBIN "baserom.gbc",$6FB20,$6FD60-$6FB20 -Tset0B_GFX: - INCBIN "gfx/tilesets/0b.2bpp" -Tset0B_Block: - INCBIN "baserom.gbc",$6FEF0,$70000-$6FEF0 - -SECTION "bank1C",DATA,BANK[$1C] - -INCBIN "baserom.gbc",$70000,$1100 - -CompressedMap: ; 5100 -; you can decompress this file with the redrle program in the extras/ dir - INCBIN "baserom.gbc",$71100,$711AB-$71100 - -INCBIN "baserom.gbc",$711AB,$71313-$711AB - -ExternalMapEntries: ; 5313 - EMAP $2,$B,PalletTownName - EMAP $2,$8,ViridianCityName - EMAP $2,$3,PewterCityName - EMAP $A,$2,CeruleanCityName - EMAP $E,$5,LavenderTownName - EMAP $A,$9,VermilionCityName - EMAP $7,$5,CeladonCityName - EMAP $8,$D,FuchsiaCityName - EMAP $2,$F,CinnabarIslandName - EMAP $0,$2,IndigoPlateauName - EMAP $A,$5,SaffronCityName - EMAP $0,$0,PalletTownName ; unused - EMAP $2,$A,Route1Name - EMAP $2,$6,Route2Name - EMAP $4,$3,Route3Name - EMAP $8,$2,Route4Name - EMAP $A,$3,Route5Name - EMAP $A,$8,Route6Name - EMAP $8,$5,Route7Name - EMAP $D,$5,Route8Name - EMAP $D,$2,Route9Name - EMAP $E,$4,Route10Name - EMAP $C,$9,Route11Name - EMAP $E,$9,Route12Name - EMAP $D,$B,Route13Name - EMAP $B,$C,Route14Name - EMAP $A,$D,Route15Name - EMAP $5,$5,Route16Name - EMAP $4,$8,Route17Name - EMAP $6,$D,Route18Name - EMAP $6,$F,Route19Name - EMAP $4,$F,Route20Name - EMAP $2,$D,Route21Name - EMAP $0,$8,Route22Name - EMAP $0,$6,Route23Name - EMAP $A,$1,Route24Name - EMAP $B,$0,Route25Name - -InternalMapEntries: ; 5382 - IMAP $29,$2,$B,PalletTownName - IMAP $2E,$2,$8,ViridianCityName - IMAP $33,$2,$6,Route2Name - IMAP $34,$2,$4,ViridianForestName - IMAP $3B,$2,$3,PewterCityName - IMAP $3E,$6,$2,MountMoonName - IMAP $44,$A,$2,CeruleanCityName - IMAP $45,$5,$2,Route4Name - IMAP $46,$A,$2,CeruleanCityName - IMAP $49,$A,$4,Route5Name - IMAP $4C,$A,$6,Route6Name - IMAP $4F,$9,$5,Route7Name - IMAP $51,$B,$5,Route8Name - IMAP $53,$E,$3,RockTunnelName - IMAP $54,$F,$4,PowerPlantName - IMAP $57,$D,$9,Route11Name - IMAP $58,$E,$7,Route12Name - IMAP $59,$C,$0,SeaCottageName - IMAP $5F,$A,$9,VermilionCityName - IMAP $69,$9,$A,SSAnneName - IMAP $6D,$0,$4,VictoryRoadName - IMAP $77,$0,$2,PokemonLeagueName - IMAP $78,$A,$5,UndergroundPathName - IMAP $79,$0,$2,PokemonLeagueName - IMAP $7A,$A,$5,UndergroundPathName - IMAP $8D,$7,$5,CeladonCityName - IMAP $8E,$E,$5,LavenderTownName - IMAP $95,$F,$5,PokemonTowerName - IMAP $98,$E,$5,LavenderTownName - IMAP $9C,$8,$D,FuchsiaCityName - IMAP $9D,$8,$C,SafariZoneName - IMAP $9F,$8,$D,FuchsiaCityName - IMAP $A3,$5,$F,SeafoamIslandsName - IMAP $A4,$A,$9,VermilionCityName - IMAP $A5,$8,$D,FuchsiaCityName - IMAP $A6,$2,$F,PokemonMansionName - IMAP $AE,$2,$F,CinnabarIslandName - IMAP $AF,$0,$2,IndigoPlateauName - IMAP $B8,$A,$5,SaffronCityName - IMAP $BA,$9,$D,Route15Name - IMAP $BD,$4,$5,Route16Name - IMAP $BE,$E,$A,Route12Name - IMAP $C0,$7,$D,Route18Name - IMAP $C1,$5,$F,SeafoamIslandsName - IMAP $C2,$0,$7,Route22Name - IMAP $C3,$0,$4,VictoryRoadName - IMAP $C4,$E,$7,Route12Name - IMAP $C5,$A,$9,VermilionCityName - IMAP $C6,$3,$4,DiglettsCaveName - IMAP $C7,$0,$4,VictoryRoadName - IMAP $CF,$7,$5,RocketHQName - IMAP $D6,$A,$5,SilphCoName - IMAP $D9,$2,$F,PokemonMansionName - IMAP $E2,$8,$C,SafariZoneName - IMAP $E5,$9,$1,CeruleanCaveName - IMAP $E6,$E,$5,LavenderTownName - IMAP $E7,$A,$2,CeruleanCityName - IMAP $E9,$E,$3,RockTunnelName - IMAP $ED,$A,$5,SilphCoName - IMAP $F8,$0,$2,PokemonLeagueName - db $FF - -MapNames: ; 5473 -PalletTownName: - db "PALLET TOWN@" -ViridianCityName: - db "VIRIDIAN CITY@" -PewterCityName: - db "PEWTER CITY@" -CeruleanCityName: - db "CERULEAN CITY@" -LavenderTownName: - db "LAVENDER TOWN@" -VermilionCityName: - db "VERMILION CITY@" -CeladonCityName: - db "CELADON CITY@" -FuchsiaCityName: - db "FUCHSIA CITY@" -CinnabarIslandName: - db "CINNABAR ISLAND@" -IndigoPlateauName: - db "INDIGO PLATEAU@" -SaffronCityName: - db "SAFFRON CITY@" -Route1Name: - db "ROUTE 1@" -Route2Name: - db "ROUTE 2@" -Route3Name: - db "ROUTE 3@" -Route4Name: - db "ROUTE 4@" -Route5Name: - db "ROUTE 5@" -Route6Name: - db "ROUTE 6@" -Route7Name: - db "ROUTE 7@" -Route8Name: - db "ROUTE 8@" -Route9Name: - db "ROUTE 9@" -Route10Name: - db "ROUTE 10@" -Route11Name: - db "ROUTE 11@" -Route12Name: - db "ROUTE 12@" -Route13Name: - db "ROUTE 13@" -Route14Name: - db "ROUTE 14@" -Route15Name: - db "ROUTE 15@" -Route16Name: - db "ROUTE 16@" -Route17Name: - db "ROUTE 17@" -Route18Name: - db "ROUTE 18@" -Route19Name: - db "SEA ROUTE 19@" -Route20Name: - db "SEA ROUTE 20@" -Route21Name: - db "SEA ROUTE 21@" -Route22Name: - db "ROUTE 22@" -Route23Name: - db "ROUTE 23@" -Route24Name: - db "ROUTE 24@" -Route25Name: - db "ROUTE 25@" -ViridianForestName: - db "VIRIDIAN FOREST@" -MountMoonName: - db "MT.MOON@" -RockTunnelName: - db "ROCK TUNNEL@" -SeaCottageName: - db "SEA COTTAGE@" -SSAnneName: - db "S.S.ANNE@" -PokemonLeagueName: - db "#MON LEAGUE@" -UndergroundPathName: - db "UNDERGROUND PATH@" -PokemonTowerName: - db "#MON TOWER@" -SeafoamIslandsName: - db "SEAFOAM ISLANDS@" -VictoryRoadName: - db "VICTORY ROAD@" -DiglettsCaveName: - db "DIGLETT's CAVE@" -RocketHQName: - db "ROCKET HQ@" -SilphCoName: - db "SILPH CO.@" -PokemonMansionName: - db $4a," MANSION@" -SafariZoneName: - db "SAFARI ZONE@" -CeruleanCaveName: - db "CERULEAN CAVE@" -PowerPlantName: - db "POWER PLANT@" - -INCBIN "baserom.gbc",$716BE,$71AD9-$716BE - -Predef54: ; 0x71ad9 -; trigger the trade offer/action specified by W_WHICHTRADE - call $36f4 - ld hl,TradeMons - ld a,[W_WHICHTRADE] - ld b,a - swap a - sub b - sub b - ld c,a - ld b,$0 - add hl,bc - ld a,[hli] - ld [$cd0f],a - ld a,[hli] - ld [$cd34],a - ld a,[hli] - push af - ld de,$cd29 - ld bc,$000b - call CopyData - pop af - ld l,a - ld h,$0 - ld de,$5d64 - add hl,hl - add hl,de - ld a,[hli] - ld [$cd10],a - ld a,[hl] - ld [$cd11],a - ld a,[$cd0f] - ld de,$cd13 - call Function71b6a - ld a,[$cd34] - ld de,$cd1e - call Function71b6a - ld hl,$d737 - ld a,[W_WHICHTRADE] - ld c,a - ld b,$2 - ld a,$10 - call Predef - ld a,c - and a - ld a,$4 - ld [$cd12],a - jr nz,.asm_99bca ; 0x71b36 $20 - xor a - ld [$cd12],a - call .asm_99bca - ld a,$1 - ld [$cd12],a - call $35ec - ld a,[$cc26] - and a - jr nz,.asm_99bca ; 0x71b4b $b - call Function71c07 - jr c,.asm_99bca ; 0x71b50 $6 - ld hl,$5d8d - call PrintText -.asm_99bca ; 0x71b58 - ld hl,$cd12 - ld a,[hld] - ld e,a - ld d,$0 - ld a,[hld] - ld l,[hl] - ld h,a - add hl,de - add hl,de - ld a,[hli] - ld h,[hl] - ld l,a - jp PrintText - -Function71b6a: ; 0x71b6a - push de - ld [$d11e],a - call GetMonName - ld hl,$cd6d - pop de - ld bc,$b - jp CopyData - -TradeMons: ; 5B7B -; givemonster, getmonster, textstring, nickname (11 bytes), 14 bytes total - db NIDORINO, NIDORINA, 0,"TERRY@@@@@@" - db ABRA, MR_MIME, 0,"MARCEL@@@@@" - db BUTTERFREE,BEEDRILL, 2,"CHIKUCHIKU@" - db PONYTA, SEEL, 0,"SAILOR@@@@@" - db SPEAROW, FARFETCH_D,2,"DUX@@@@@@@@" - db SLOWBRO, LICKITUNG, 0,"MARC@@@@@@@" - db POLIWHIRL, JYNX, 1,"LOLA@@@@@@@" - db RAICHU, ELECTRODE, 1,"DORIS@@@@@@" - db VENONAT, TANGELA, 2,"CRINKLES@@@" - db NIDORAN_M, NIDORAN_F, 2,"SPOT@@@@@@@" - -Function71c07: ; 0x71c07 - xor a - ld [$d07d],a - dec a - ld [$cfcb],a - call $13fc - push af - call $5ca2 - pop af - ld a,$1 - jp c,.asm_c4bc2 - ld a,[$cd0f] - ld b,a - ld a,[$cf91] - cp b - ld a,$2 - jr nz,.asm_c4bc2 ; 0x71c26 $75 - ld a,[$cf92] - ld hl,$d18c - ld bc,$002c - call AddNTimes - ld a,[hl] - ld [$d127],a - ld hl,$d737 - ld a,[W_WHICHTRADE] - ld c,a - ld b,$1 - ld a,$10 - call Predef - ld hl,$5d88 - call PrintText - ld a,[$cf92] - push af - ld a,[$d127] - push af - call $36c0 - call $5cc1 - ld a,$38 - call Predef - pop af - ld [$d127],a - pop af - ld [$cf92],a - ld a,[$cd34] - ld [$cf91],a - xor a - ld [$cc49],a - ld [$cf95],a - call $391f - ld a,$80 - ld [$cc49],a - call AddPokemonToParty - call $5d19 - ld hl,$7d7d - ld b,$5 - call Bankswitch - call ClearScreen - call $5ca2 - ld b,$3 - ld hl,$6edc - call Bankswitch - and a - ld a,$3 - jr .asm_ee803 ; 0x71c9b $1 -.asm_c4bc2 ; 0x71c9d - scf -.asm_ee803 ; 0x71c9e - ld [$cd12],a - ret - -INCBIN "baserom.gbc",$71CA2,$725C8-$71CA2 - -MonsterPalettes: ; 65C8 - db PAL_MEWMON ; MISSINGNO - db PAL_GREENMON ; BULBASAUR - db PAL_GREENMON ; IVYSAUR - db PAL_GREENMON ; VENUSAUR - db PAL_REDMON ; CHARMANDER - db PAL_REDMON ; CHARMELEON - db PAL_REDMON ; CHARIZARD - db PAL_CYANMON ; SQUIRTLE - db PAL_CYANMON ; WARTORTLE - db PAL_CYANMON ; BLASTOISE - db PAL_GREENMON ; CATERPIE - db PAL_GREENMON ; METAPOD - db PAL_CYANMON ; BUTTERFREE - db PAL_YELLOWMON ; WEEDLE - db PAL_YELLOWMON ; KAKUNA - db PAL_YELLOWMON ; BEEDRILL - db PAL_BROWNMON ; PIDGEY - db PAL_BROWNMON ; PIDGEOTTO - db PAL_BROWNMON ; PIDGEOT - db PAL_GREYMON ; RATTATA - db PAL_GREYMON ; RATICATE - db PAL_BROWNMON ; SPEAROW - db PAL_BROWNMON ; FEAROW - db PAL_PURPLEMON ; EKANS - db PAL_PURPLEMON ; ARBOK - db PAL_YELLOWMON ; PIKACHU - db PAL_YELLOWMON ; RAICHU - db PAL_BROWNMON ; SANDSHREW - db PAL_BROWNMON ; SANDSLASH - db PAL_BLUEMON ; NIDORAN_F - db PAL_BLUEMON ; NIDORINA - db PAL_BLUEMON ; NIDOQUEEN - db PAL_PURPLEMON ; NIDORAN_M - db PAL_PURPLEMON ; NIDORINO - db PAL_PURPLEMON ; NIDOKING - db PAL_PINKMON ; CLEFAIRY - db PAL_PINKMON ; CLEFABLE - db PAL_REDMON ; VULPIX - db PAL_YELLOWMON ; NINETALES - db PAL_PINKMON ; JIGGLYPUFF - db PAL_PINKMON ; WIGGLYTUFF - db PAL_BLUEMON ; ZUBAT - db PAL_BLUEMON ; GOLBAT - db PAL_GREENMON ; ODDISH - db PAL_REDMON ; GLOOM - db PAL_REDMON ; VILEPLUME - db PAL_REDMON ; PARAS - db PAL_REDMON ; PARASECT - db PAL_PURPLEMON ; VENONAT - db PAL_PURPLEMON ; VENOMOTH - db PAL_BROWNMON ; DIGLETT - db PAL_BROWNMON ; DUGTRIO - db PAL_YELLOWMON ; MEOWTH - db PAL_YELLOWMON ; PERSIAN - db PAL_YELLOWMON ; PSYDUCK - db PAL_CYANMON ; GOLDUCK - db PAL_BROWNMON ; MANKEY - db PAL_BROWNMON ; PRIMEAPE - db PAL_BROWNMON ; GROWLITHE - db PAL_REDMON ; ARCANINE - db PAL_BLUEMON ; POLIWAG - db PAL_BLUEMON ; POLIWHIRL - db PAL_BLUEMON ; POLIWRATH - db PAL_YELLOWMON ; ABRA - db PAL_YELLOWMON ; KADABRA - db PAL_YELLOWMON ; ALAKAZAM - db PAL_GREYMON ; MACHOP - db PAL_GREYMON ; MACHOKE - db PAL_GREYMON ; MACHAMP - db PAL_GREENMON ; BELLSPROUT - db PAL_GREENMON ; WEEPINBELL - db PAL_GREENMON ; VICTREEBEL - db PAL_CYANMON ; TENTACOOL - db PAL_CYANMON ; TENTACRUEL - db PAL_GREYMON ; GEODUDE - db PAL_GREYMON ; GRAVELER - db PAL_GREYMON ; GOLEM - db PAL_REDMON ; PONYTA - db PAL_REDMON ; RAPIDASH - db PAL_PINKMON ; SLOWPOKE - db PAL_PINKMON ; SLOWBRO - db PAL_GREYMON ; MAGNEMITE - db PAL_GREYMON ; MAGNETON - db PAL_BROWNMON ; FARFETCH_D - db PAL_BROWNMON ; DODUO - db PAL_BROWNMON ; DODRIO - db PAL_BLUEMON ; SEEL - db PAL_BLUEMON ; DEWGONG - db PAL_PURPLEMON ; GRIMER - db PAL_PURPLEMON ; MUK - db PAL_GREYMON ; SHELLDER - db PAL_GREYMON ; CLOYSTER - db PAL_PURPLEMON ; GASTLY - db PAL_PURPLEMON ; HAUNTER - db PAL_PURPLEMON ; GENGAR - db PAL_GREYMON ; ONIX - db PAL_YELLOWMON ; DROWZEE - db PAL_YELLOWMON ; HYPNO - db PAL_REDMON ; KRABBY - db PAL_REDMON ; KINGLER - db PAL_YELLOWMON ; VOLTORB - db PAL_YELLOWMON ; ELECTRODE - db PAL_PINKMON ; EXEGGCUTE - db PAL_GREENMON ; EXEGGUTOR - db PAL_GREYMON ; CUBONE - db PAL_GREYMON ; MAROWAK - db PAL_BROWNMON ; HITMONLEE - db PAL_BROWNMON ; HITMONCHAN - db PAL_PINKMON ; LICKITUNG - db PAL_PURPLEMON ; KOFFING - db PAL_PURPLEMON ; WEEZING - db PAL_GREYMON ; RHYHORN - db PAL_GREYMON ; RHYDON - db PAL_PINKMON ; CHANSEY - db PAL_BLUEMON ; TANGELA - db PAL_BROWNMON ; KANGASKHAN - db PAL_CYANMON ; HORSEA - db PAL_CYANMON ; SEADRA - db PAL_REDMON ; GOLDEEN - db PAL_REDMON ; SEAKING - db PAL_REDMON ; STARYU - db PAL_GREYMON ; STARMIE - db PAL_PINKMON ; MR_MIME - db PAL_GREENMON ; SCYTHER - db PAL_MEWMON ; JYNX - db PAL_YELLOWMON ; ELECTABUZZ - db PAL_REDMON ; MAGMAR - db PAL_BROWNMON ; PINSIR - db PAL_GREYMON ; TAUROS - db PAL_REDMON ; MAGIKARP - db PAL_BLUEMON ; GYARADOS - db PAL_CYANMON ; LAPRAS - db PAL_GREYMON ; DITTO - db PAL_GREYMON ; EEVEE - db PAL_CYANMON ; VAPOREON - db PAL_YELLOWMON ; JOLTEON - db PAL_REDMON ; FLAREON - db PAL_GREYMON ; PORYGON - db PAL_BLUEMON ; OMANYTE - db PAL_BLUEMON ; OMASTAR - db PAL_BROWNMON ; KABUTO - db PAL_BROWNMON ; KABUTOPS - db PAL_GREYMON ; AERODACTYL - db PAL_PINKMON ; SNORLAX - db PAL_BLUEMON ; ARTICUNO - db PAL_YELLOWMON ; ZAPDOS - db PAL_REDMON ; MOLTRES - db PAL_GREYMON ; DRATINI - db PAL_BLUEMON ; DRAGONAIR - db PAL_BROWNMON ; DRAGONITE - db PAL_MEWMON ; MEWTWO - db PAL_MEWMON ; MEW - -; palettes for overworlds, title screen, monsters -SuperPalettes: ; 6660 - RGB 31,29,31 ; PAL_ROUTE - RGB 21,28,11 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_PALLET - RGB 25,28,27 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_VIRIDIAN - RGB 17,26,3 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_PEWTER - RGB 23,25,16 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_CERULEAN - RGB 17,20,30 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_LAVENDER - RGB 27,20,27 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_VERMILION - RGB 30,18,0 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_CELADON - RGB 16,30,22 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_FUCHSIA - RGB 31,15,22 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_CINNABAR - RGB 26,10,6 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_INDIGO - RGB 22,14,24 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; PAL_SAFFRON - RGB 27,27,3 - RGB 20,26,31 - RGB 3,2,2 - RGB 31,29,31 ; XXX - RGB 20,26,31 - RGB 17,23,10 - RGB 3,2,2 - RGB 31,29,31 ; PAL_LOGO1 - RGB 30,30,17 - RGB 17,23,10 - RGB 21,0,4 - RGB 31,29,31 ; XXX - RGB 30,30,17 - RGB 18,18,24 - RGB 7,7,16 - RGB 31,29,31 ; PAL_LOGO2 - RGB 24,20,30 - RGB 11,20,30 - RGB 3,2,2 - RGB 31,29,31 ; PAL_MEWMON - RGB 30,22,17 - RGB 16,14,19 - RGB 3,2,2 - RGB 31,29,31 ; PAL_BLUEMON - RGB 18,20,27 - RGB 11,15,23 - RGB 3,2,2 - RGB 31,29,31 ; PAL_REDMON - RGB 31,20,10 - RGB 26,10,6 - RGB 3,2,2 - RGB 31,29,31 ; PAL_CYANMON - RGB 21,25,29 - RGB 14,19,25 - RGB 3,2,2 - RGB 31,29,31 ; PAL_PURPLEMON - RGB 27,22,24 - RGB 21,15,23 - RGB 3,2,2 - RGB 31,29,31 ; PAL_BROWNMON - RGB 28,20,15 - RGB 21,14,9 - RGB 3,2,2 - RGB 31,29,31 ; PAL_GREENMON - RGB 20,26,16 - RGB 9,20,11 - RGB 3,2,2 - RGB 31,29,31 ; PAL_PINKMON - RGB 30,22,24 - RGB 28,15,21 - RGB 3,2,2 - RGB 31,29,31 ; PAL_YELLOWMON - RGB 31,28,14 - RGB 26,20,0 - RGB 3,2,2 - RGB 31,29,31 ; PAL_GREYMON - RGB 26,21,22 - RGB 15,15,18 - RGB 3,2,2 - RGB 31,29,31 ; PAL_SLOTS1 - RGB 26,21,22 - RGB 27,20,6 - RGB 3,2,2 - RGB 31,29,31 ; PAL_SLOTS2 - RGB 31,31,17 - RGB 25,17,21 - RGB 3,2,2 - RGB 31,29,31 ; PAL_SLOTS3 - RGB 22,31,16 - RGB 25,17,21 - RGB 3,2,2 - RGB 31,29,31 ; PAL_SLOTS4 - RGB 16,19,29 - RGB 25,17,21 - RGB 3,2,2 - RGB 31,29,31 ; PAL_BLACK - RGB 7,7,7 - RGB 2,3,3 - RGB 3,2,2 - RGB 31,29,31 ; PAL_GREENBAR - RGB 30,26,15 - RGB 9,20,11 - RGB 3,2,2 - RGB 31,29,31 ; PAL_YELLOWBAR - RGB 30,26,15 - RGB 26,20,0 - RGB 3,2,2 - RGB 31,29,31 ; PAL_REDBAR - RGB 30,26,15 - RGB 26,10,6 - RGB 3,2,2 - RGB 31,29,31 ; PAL_BADGE - RGB 30,22,17 - RGB 11,15,23 - RGB 3,2,2 - RGB 31,29,31 ; PAL_CAVE - RGB 21,14,9 - RGB 18,24,22 - RGB 3,2,2 - RGB 31,29,31 ; XXX - RGB 31,28,14 - RGB 24,20,10 - RGB 3,2,2 -BorderPalettes: ; 6788 - -INCBIN "baserom.gbc",$72788,$4000 - $2788 - -SECTION "bank1D",DATA,BANK[$1D] - -INCBIN "baserom.gbc",$74000,$74010 - $74000 - -PewterMartBlocks: ; 16 - INCBIN "maps/pewtermart.blk" - -FuchsiaHouse1Blocks: ; 16 - INCBIN "maps/fuchsiahouse1.blk" - -FuchsiaPokecenterBlocks: ; 28 - INCBIN "maps/fuchsiapokecenter.blk" - -CeruleanHouse3Blocks: ; 16 - INCBIN "maps/ceruleanhouse3.blk" - -INCBIN "baserom.gbc",$7405c,$6f - -Func40CB: ; 40CB - xor a - ld [$FFBA],a - call $3719 - call $4183 - - ; display the next monster from CreditsMons - ld hl,$CD3E - ld c,[hl] ; how many monsters have we displayed so far? - inc [hl] - ld b,0 - ld hl,CreditsMons - add hl,bc ; go that far in the list of monsters and get the next one - ld a,[hl] - ld [$CF91],a - ld [$D0B5],a - ld hl,$C420 - call $1537 - call $1389 - ld hl,$980C - call $4164 - xor a - ld [$FFBA],a - call $3725 - ld hl,$9800 - call $4164 - ld a,$A7 - ld [$FF4B],a - ld hl,$9C00 - call $4164 - call $4183 - ld a,$FC - ld [$FF47],a - ld bc,7 -.next\@ - call $4140 - dec c - jr nz,.next\@ - ld c,$14 -.next2\@ - call $4140 - ld a,[$FF4B] - sub 8 - ld [$FF4B],a - dec c - jr nz,.next2\@ - xor a - ld [$FFB0],a - ld a,$C0 - ld [$FF47],a - ret - -CreditsMons: ; 4131 - db VENUSAUR - db ARBOK - db RHYHORN - db FEAROW - db ABRA - db GRAVELER - db HITMONLEE - db TANGELA - db STARMIE - db GYARADOS - db DITTO - db OMASTAR - db VILEPLUME - db NIDOKING - db PARASECT - -INCBIN "baserom.gbc",$74140,$2C3 - $140 - -CreditsTextPointers: ; 42C3 - - dw CredRed - dw CredTajiri - dw CredTaOota - dw CredMorimoto - dw CredWatanabe - dw CredMasuda - dw CredNisino - dw CredSugimori - dw CredNishida - dw CredMiyamoto - dw CredKawaguchi - dw CredIshihara - dw CredYamauchi - dw CredZinnai - dw CredHishida - dw CredSakai - dw CredYamaguchi - dw CredYamamoto - dw CredTaniguchi - dw CredNonomura - dw CredFuziwara - dw CredMatsusima - dw CredTomisawa - dw CredKawamoto - dw CredKakei - dw CredTsuchiya - dw CredTaNakamura - dw CredYuda - dw CredMon - dw CredDirector - dw CredProgrammers - dw CredCharDesign - dw CredMusic - dw CredSoundEffects - dw CredGameDesign - dw CredMonsterDesign - dw CredGameScene - dw CredParam - dw CredMap - dw CredTest - dw CredSpecial - dw CredProducers - dw CredProducer - dw CredExecutive - dw CredTamada - dw CredSaOota - dw CredYoshikawa - dw CredToOota - dw CredUSStaff - dw CredUSCoord - dw CredTilden - dw CredKawakami - dw CredHiNakamura - dw CredGiese - dw CredOsborne - dw CredTrans - dw CredOgasawara - dw CredIwata - dw CredIzushi - dw CredHarada - dw CredMurakawa - dw CredFukui - dw CredClub - dw CredPAAD - -CredRed: - db "2RED VERSION STAFF@" -CredTajiri: - db "4SATOSHI TAJIRI@" -CredTaOota: - db "4TAKENORI OOTA@" -CredMorimoto: - db "3SHIGEKI MORIMOTO@" -CredWatanabe: - db "3TETSUYA WATANABE@" -CredMasuda: - db "4JUNICHI MASUDA@" -CredNisino: - db "5KOHJI NISINO@" -CredSugimori: - db "5KEN SUGIMORI@" -CredNishida: - db "4ATSUKO NISHIDA@" -CredMiyamoto: - db "3SHIGERU MIYAMOTO@" -CredKawaguchi: - db "2TAKASHI KAWAGUCHI@" -CredIshihara: - db "2TSUNEKAZU ISHIHARA@" -CredYamauchi: - db "3HIROSHI YAMAUCHI@" -CredZinnai: - db "3HIROYUKI ZINNAI@" -CredHishida: - db "3TATSUYA HISHIDA@" -CredSakai: - db "4YASUHIRO SAKAI@" -CredYamaguchi: - db "3WATARU YAMAGUCHI@" -CredYamamoto: - db "2KAZUYUKI YAMAMOTO@" -CredTaniguchi: - db "2RYOHSUKE TANIGUCHI@" -CredNonomura: - db "2FUMIHIRO NONOMURA@" -CredFuziwara: - db "3MOTOFUMI FUZIWARA@" -CredMatsusima: - db "3KENJI MATSUSIMA@" -CredTomisawa: - db "3AKIHITO TOMISAWA@" -CredKawamoto: - db "3HIROSHI KAWAMOTO@" -CredKakei: - db "4AKIYOSHI KAKEI@" -CredTsuchiya: - db "3KAZUKI TSUCHIYA@" -CredTaNakamura: - db "4TAKEO NAKAMURA@" -CredYuda: - db "4MASAMITSU YUDA@" -CredMon: - db "7#MON@" -CredDirector: - db "7DIRECTOR@" -CredProgrammers: - db "5PROGRAMMERS@" -CredCharDesign: - db "3CHARACTER DESIGN@" -CredMusic: - db "8MUSIC@" -CredSoundEffects: - db "4SOUND EFFECTS@" -CredGameDesign: - db "5GAME DESIGN@" -CredMonsterDesign: - db "4MONSTER DESIGN@" -CredGameScene: - db "4GAME SCENARIO@" -CredParam: - db "2PARAMETRIC DESIGN@" -CredMap: - db "6MAP DESIGN@" -CredTest: - db "3PRODUCT TESTING@" -CredSpecial: - db "4SPECIAL THANKS@" -CredProducers: - db "6PRODUCERS@" -CredProducer: - db "6PRODUCER@" -CredExecutive: - db "2EXECUTIVE PRODUCER@" -CredTamada: - db "4SOUSUKE TAMADA@" -CredSaOota: - db "5SATOSHI OOTA@" -CredYoshikawa: - db "4RENA YOSHIKAWA@" -CredToOota: - db "4TOMOMICHI OOTA@" -CredUSStaff: - db "3US VERSION STAFF@" -CredUSCoord: - db "3US COORDINATION@" -CredTilden: - db "5GAIL TILDEN@" -CredKawakami: - db "4NAOKO KAWAKAMI@" -CredHiNakamura: - db "4HIRO NAKAMURA@" -CredGiese: - db "4WILLIAM GIESE@" -CredOsborne: - db "5SARA OSBORNE@" -CredTrans: - db "3TEXT TRANSLATION@" -CredOgasawara: - db "4NOB OGASAWARA@" -CredIwata: - db "5SATORU IWATA@" -CredIzushi: - db "3TAKEHIRO IZUSHI@" -CredHarada: - db "3TAKAHIRO HARADA@" -CredMurakawa: - db "3TERUKI MURAKAWA@" -CredFukui: - db "5KOHTA FUKUI@" -CredClub: - db "1NCL SUPER MARIO CLUB@" -CredPAAD: - db "5PAAD TESTING@" - -TheEndGfx: ; 473E - INCBIN "gfx/theend.2bpp" - -INCBIN "baserom.gbc",$747de,$74897 - $747de - -ViridianGym_h: ; 0x74897 to 0x748a3 (12 bytes) (id=45) - db $07 ; tileset - db $09, $0a ; dimensions (y, x) - dw ViridianGymBlocks, ViridianGymTexts, ViridianGymScript ; blocks, texts, scripts - db $00 ; connections - - dw ViridianGymObject ; objects - -ViridianGymScript: ; 0x748a3 - ld hl, $48bf - ld de, $48cd - call $317f - call $3c3c - ld hl, $4a08 - ld de, $48e1 - ld a, [$d5fb] - call $3160 - ld [$d5fb], a - ret -; 0x748bf - -INCBIN "baserom.gbc",$748bf,$12d - -ViridianGymTexts: ; 0x749ec - dw ViridianGymText1, ViridianGymText2, ViridianGymText3, ViridianGymText4, ViridianGymText5, ViridianGymText6, ViridianGymText7, ViridianGymText8, ViridianGymText9, ViridianGymText10, ViridianGymText11, ViridianGymText12, ViridianGymText13, ViridianGymText14 - -INCBIN "baserom.gbc",$74a02 + 6,$67 - 6 - -ViridianGymText1: ; 0x74a69 - db $08 ; asm - ld a, [$d751] - bit 1, a - jr z, .asm_6de66 ; 0x74a6f - bit 0, a - jr nz, .asm_9fc95 ; 0x74a73 - call z, $4995 - call $30b6 - jr .asm_6dff7 ; 0x74a7b -.asm_9fc95 ; 0x74a7d - ld a, $1 - ld [$cc3c], a - ld hl, $4ad9 - call PrintText - call $20ef - ld a, $32 - ld [$cc4d], a - ld a, $11 - call Predef - call $2429 - call Delay3 - call $20d1 - jr .asm_6dff7 ; 0x74a9e -.asm_6de66 ; 0x74aa0 - ld hl, $4ace - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $4ad3 - ld de, $4ad3 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $8 - ld [$d05c], a - ld a, $3 - ld [$d5fb], a -.asm_6dff7 ; 0x74acb - jp $24d7 - -INCBIN "baserom.gbc",$74ace,$74adf - $74ace - -ViridianGymText12: ; 0x74adf -INCBIN "baserom.gbc",$74adf,5 - -ViridianGymText13: ; 0x74ae4 -INCBIN "baserom.gbc",$74ae4, 5 - -INCBIN "baserom.gbc",$74ae9,$74aee - $74ae9 - -ViridianGymText14: ; 0x74aee -INCBIN "baserom.gbc",$74aee,5 - -ViridianGymText2: ; 0x74af3 - db $08 ; asm - ld hl, $4a08 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74afd,$74b0c - $74afd - -ViridianGymText3: ; 0x74b0c - db $08 ; asm - ld hl, $4a14 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74b16,$74b25 - $74b16 - -ViridianGymText4: ; 0x74b25 - db $08 ; asm - ld hl, $4a20 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74b2f,$74b3e - $74b2f - -ViridianGymText5: ; 0x74b3e - db $08 ; asm - ld hl, $4a2c - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74b48,$74b57 - $74b48 - -ViridianGymText6: ; 0x74b57 - db $08 ; asm - ld hl, $4a38 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74b61,$74b70 - $74b61 - -ViridianGymText7: ; 0x74b70 - db $08 ; asm - ld hl, $4a44 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74b7a,$74b89 - $74b7a - -ViridianGymText8: ; 0x74b89 - db $08 ; asm - ld hl, $4a50 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74b93,$74ba2 - $74b93 - -ViridianGymText9: ; 0x74ba2 - db $08 ; asm - ld hl, $4a5c - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$74bac,$74bbb - $74bac - -ViridianGymText10: ; 0x74bbb - db $08 ; asm - ld a, [$d751] - bit 1, a - jr nz, .asm_1abd1 ; 0x74bc1 - ld hl, $4bd4 - call PrintText - jr .asm_6064d ; 0x74bc9 -.asm_1abd1 ; 0x74bcb - ld hl, $4bd9 - call PrintText -.asm_6064d ; 0x74bd1 - jp $24d7 - -INCBIN "baserom.gbc",$74bd4,$a - -ViridianGymObject: ; 0x74bde (size=105) - db $3 ; border tile - - db $2 ; warps - db $11, $10, $4, $ff - db $11, $11, $4, $ff - - db $0 ; signs - - db $b ; people - db SPRITE_GIOVANNI, $1 + 4, $2 + 4, $ff, $d0, $41, GIOVANNI + $C8, $3 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $7 + 4, $c + 4, $ff, $d0, $42, COOLTRAINER_M + $C8, $9 ; trainer - db SPRITE_HIKER, $b + 4, $b + 4, $ff, $d1, $43, BLACKBELT + $C8, $6 ; trainer - db SPRITE_ROCKER, $7 + 4, $a + 4, $ff, $d0, $44, TAMER + $C8, $3 ; trainer - db SPRITE_HIKER, $7 + 4, $3 + 4, $ff, $d2, $45, BLACKBELT + $C8, $7 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $5 + 4, $d + 4, $ff, $d3, $46, COOLTRAINER_M + $C8, $a ; trainer - db SPRITE_HIKER, $1 + 4, $a + 4, $ff, $d0, $47, BLACKBELT + $C8, $8 ; trainer - db SPRITE_ROCKER, $10 + 4, $2 + 4, $ff, $d3, $48, TAMER + $C8, $4 ; trainer - db SPRITE_BLACK_HAIR_BOY_1, $5 + 4, $6 + 4, $ff, $d0, $49, COOLTRAINER_M + $C8, $1 ; trainer - db SPRITE_GYM_HELPER, $f + 4, $10 + 4, $ff, $d0, $a ; person - db SPRITE_BALL, $9 + 4, $10 + 4, $ff, $ff, $8b, REVIVE ; item - - ; warp-to - EVENT_DISP $a, $11, $10 - EVENT_DISP $a, $11, $11 - -ViridianGymBlocks: ; 90 - INCBIN "maps/viridiangym.blk" - -PewterMart_h: ; 0x74ca1 to 0x74cad (12 bytes) (id=56) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw PewterMartBlocks, PewterMartTexts, PewterMartScript ; blocks, texts, scripts - db $00 ; connections - - dw PewterMartObject ; objects - -PewterMartScript: ; 0x74cad - call $3c3c - ld a, $1 - ld [$cf0c], a - ret -; 0x74cb6 - -PewterMartTexts: ; 0x74cb6 - dw PewterMartText1, PewterMartText2, PewterMartText3 - -PewterMartText2: ; 0x74cbc - db $08 ; asm - ld hl, $4cc6 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$74cc6,$74ccb - $74cc6 - -PewterMartText3: ; 0x74ccb - db $08 ; asm - ld hl, $4cd5 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$74cd5,$5 - -PewterMartObject: ; 0x74cda (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $4, $ff - db $7, $4, $4, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_BUG_CATCHER, $3 + 4, $3 + 4, $fe, $1, $2 ; person - db SPRITE_BLACK_HAIR_BOY_2, $5 + 4, $5 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -UnknownDungeon1_h: ; 0x74d00 to 0x74d0c (12 bytes) (id=228) - db $11 ; tileset - db $09, $0f ; dimensions (y, x) - dw UnknownDungeon1Blocks, UnknownDungeon1Texts, UnknownDungeon1Script ; blocks, texts, scripts - db $00 ; connections - - dw UnknownDungeon1Object ; objects - -UnknownDungeon1Script: ; 0x74d0c - jp $3c3c -; 0x74d0f - -UnknownDungeon1Texts: ; 0x74d0f - dw UnknownDungeon1Text1, UnknownDungeon1Text2, UnknownDungeon1Text3 - -UnknownDungeon1Object: ; 0x74d15 (size=97) - db $7d ; border tile - - db $9 ; warps - db $11, $18, $6, $ff - db $11, $19, $6, $ff - db $1, $1b, $0, UNKNOWN_DUNGEON_2 - db $7, $17, $1, UNKNOWN_DUNGEON_2 - db $9, $12, $2, UNKNOWN_DUNGEON_2 - db $1, $7, $3, UNKNOWN_DUNGEON_2 - db $3, $1, $4, UNKNOWN_DUNGEON_2 - db $b, $3, $5, UNKNOWN_DUNGEON_2 - db $6, $0, $0, UNKNOWN_DUNGEON_3 - - db $0 ; signs - - db $3 ; people - db SPRITE_BALL, $d + 4, $7 + 4, $ff, $ff, $81, FULL_RESTORE ; item - db SPRITE_BALL, $3 + 4, $13 + 4, $ff, $ff, $82, MAX_ELIXER ; item - db SPRITE_BALL, $0 + 4, $5 + 4, $ff, $ff, $83, NUGGET ; item - - ; warp-to - EVENT_DISP $f, $11, $18 - EVENT_DISP $f, $11, $19 - EVENT_DISP $f, $1, $1b ; UNKNOWN_DUNGEON_2 - EVENT_DISP $f, $7, $17 ; UNKNOWN_DUNGEON_2 - EVENT_DISP $f, $9, $12 ; UNKNOWN_DUNGEON_2 - EVENT_DISP $f, $1, $7 ; UNKNOWN_DUNGEON_2 - EVENT_DISP $f, $3, $1 ; UNKNOWN_DUNGEON_2 - EVENT_DISP $f, $b, $3 ; UNKNOWN_DUNGEON_2 - EVENT_DISP $f, $6, $0 ; UNKNOWN_DUNGEON_3 - -UnknownDungeon1Blocks: ; 135 - INCBIN "maps/unknowndungeon1.blk" - -CeruleanHouse3_h: ; 0x74dfd to 0x74e09 (12 bytes) (id=230) - db $0d ; tileset - db $04, $04 ; dimensions (y, x) - dw CeruleanHouse3Blocks, $4e13, CeruleanHouse3Script ; blocks, texts, scripts - db $00 ; connections - - dw CeruleanHouse3Object ; objects - -CeruleanHouse3Script: ; 0x74e09 - ld a, $1 - ld [$cf0c], a - dec a - ld [$cc3c], a - ret -; 0x74e13 - -INCBIN "baserom.gbc",$74e13,$2 - -CeruleanHouse3Text1: ; 0x74e15 - db $8 - ld hl, $4e77 - call PrintText - xor a - ld [$cc26], a - ld [$cc36], a -.asm_74e23 - ld hl, $4e7c - call PrintText - ld hl, $4e6d - call $2a5a - ld hl, $cf7b - ld a, l - ld [$cf8b], a - ld a, h - ld [$cf8c], a - xor a - ld [$cf93], a - ld [$cc35], a - ld a, $4 - ld [$cf94], a - call $2be6 - jr c, .asm_74e60 ; 0x74e49 $15 - ld hl, $4e86 - ld a, [$cf91] - sub $15 - add a - ld d, $0 - ld e, a - add hl, de - ld a, [hli] - ld h, [hl] - ld l, a - call PrintText - jr .asm_74e23 ; 0x74e5e $c3 -.asm_74e60 - xor a - ld [$cc36], a - ld hl, $4e81 - call PrintText - jp $24d7 -; 0x74e6d - -INCBIN "baserom.gbc",$74e6d,$51 - -CeruleanHouse3Object: ; 0x74ebe (size=34) - db $c ; border tile - - db $3 ; warps - db $0, $2, $9, $ff - db $7, $2, $8, $ff - db $7, $3, $8, $ff - - db $0 ; signs - - db $1 ; people - db SPRITE_FAT_BALD_GUY, $3 + 4, $5 + 4, $ff, $d3, $1 ; person - - ; warp-to - EVENT_DISP $4, $0, $2 - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -INCBIN "baserom.gbc",$74ee0,$12c - -FuchsiaHouse1_h: ; 0x7500c to 0x75018 (12 bytes) (id=153) - db $08 ; tileset - db $04, $04 ; dimensions (y, x) - dw FuchsiaHouse1Blocks, FuchsiaHouse1Texts, FuchsiaHouse1Script ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaHouse1Object ; objects - -FuchsiaHouse1Script: ; 0x75018 - call $3c3c - ret -; 0x7501c - -FuchsiaHouse1Texts: ; 0x7501c - dw FuchsiaHouse1Text1, FuchsiaHouse1Text2, FuchsiaHouse1Text3 - -FuchsiaHouse1Text1: ; 0x75022 - TX_FAR _FuchsiaHouse1Text1 - db $50 - -FuchsiaHouse1Text2: ; 0x75027 - TX_FAR _FuchsiaHouse1Text2 - db $50 - -FuchsiaHouse1Text3: ; 0x7502c - TX_FAR _FuchsiaHouse1Text3 - db $50 - -FuchsiaHouse1Object: ; 0x75031 (size=38) - db $a ; border tile - - db $2 ; warps - db $7, $2, $1, $ff - db $7, $3, $1, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MOM_GEISHA, $3 + 4, $2 + 4, $ff, $d3, $1 ; person - db SPRITE_GAMBLER, $2 + 4, $7 + 4, $ff, $d1, $2 ; person - db SPRITE_BUG_CATCHER, $5 + 4, $5 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - -FuchsiaPokecenter_h: ; 0x75057 to 0x75063 (12 bytes) (id=154) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw FuchsiaPokecenterBlocks, $5069, FuchsiaPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaPokecenterObject ; objects - -FuchsiaPokecenterScript: ; 0x75063 - call $22fa - jp $3c3c -; 0x75069 - -INCBIN "baserom.gbc",$75069,$9 - -FuchsiaPokecenterText2: -FuchsiaPokecenterText1: ; 0x75071 or 0x75072 - TX_FAR _FuchsiaPokecenterText1 - db $50 - -FuchsiaPokecenterText3: ; 0x75077 - TX_FAR _FuchsiaPokecenterText3 - db $50 - -FuchsiaPokecenterText4: ; 0x7507c - db $f6 - -FuchsiaPokecenterObject: ; 0x7507d (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $2, $ff - db $7, $4, $2, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_ROCKER, $3 + 4, $2 + 4, $ff, $ff, $2 ; person - db SPRITE_LASS, $5 + 4, $6 + 4, $fe, $2, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -FuchsiaHouse2_h: ; 0x750a9 to 0x750b5 (12 bytes) (id=155) - db $14 ; tileset - db $04, $05 ; dimensions (y, x) - dw FuchsiaHouse2Blocks, FuchsiaHouse2Texts, FuchsiaHouse2Script ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaHouse2Object ; objects - -FuchsiaHouse2Script: ; 0x750b5 - jp $3c3c -; 0x750b8 - -FuchsiaHouse2Texts: ; 0x750b8 - dw FuchsiaHouse2Text1, FuchsiaHouse2Text2, FuchsiaHouse2Text3, FuchsiaHouse2Text4, FuchsiaHouse2Text5 - -FuchsiaHouse2Text1: ; 0x750c2 - db $08 ; asm - ld a, [$d78e] - bit 0, a - jr nz, .asm_58feb ; 0x750c8 - ld b,GOLD_TEETH - call $3493 - jr nz, .asm_3f30f ; 0x750cf - ld a, [$d78e] - bit 1, a - jr nz, .asm_60cba ; 0x750d6 - ld hl, $5135 - call PrintText - call $35ec - ld a, [$cc26] - and a - ld hl, $513f - jr nz, .asm_61238 ; 0x750e8 - ld hl, $513a -.asm_61238 ; 0x750ed - call PrintText - jr .asm_52039 ; 0x750f0 -.asm_3f30f ; 0x750f2 - ld hl, $5144 - call PrintText - ld a, $40 - ldh [$db], a - ld b, $5 ; BANK(MyFunction) - ld hl, $7f37 ; MyFunction - call Bankswitch - ld hl, $d78e - set 1, [hl] -.asm_60cba ; 0x75109 - ld hl, $514e - call PrintText - ld bc,(HM_04 << 8) | 1 - call $3e2e - jr nc, .asm_53b90 ; 0x75115 - ld hl, $5153 - call PrintText - ld hl, $d78e - set 0, [hl] - jr .asm_52039 ; 0x75122 -.asm_58feb ; 0x75124 - ld hl, $5159 - call PrintText - jr .asm_52039 ; 0x7512a -.asm_53b90 ; 0x7512c - ld hl, $515e - call PrintText -.asm_52039 ; 0x75132 - jp $24d7 - -INCBIN "baserom.gbc",$75135,$75163 - $75135 - -FuchsiaHouse2Text5: -FuchsiaHouse2Text4: ; 0x75163 - db $08 ; asm - ldh a, [$8c] - cp $4 - ld hl, $517b - jr nz, .asm_4c9a2 ; 0x7516b - ld hl, $5176 -.asm_4c9a2 ; 0x75170 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$75176,$a - -FuchsiaHouse2Object: ; 0x75180 (size=45) - db $17 ; border tile - - db $2 ; warps - db $7, $4, $3, $ff - db $7, $5, $3, $ff - - db $2 ; signs - db $3, $4, $4 ; FuchsiaHouse2Text4 - db $3, $5, $5 ; FuchsiaHouse2Text5 - - db $3 ; people - db SPRITE_WARDEN, $3 + 4, $2 + 4, $ff, $ff, $1 ; person - db SPRITE_BALL, $3 + 4, $8 + 4, $ff, $ff, $82, RARE_CANDY ; item - db SPRITE_BOULDER, $4 + 4, $8 + 4, $ff, $10, $3 ; person - - ; warp-to - EVENT_DISP $5, $7, $4 - EVENT_DISP $5, $7, $5 - -FuchsiaHouse2Blocks: ; 20 - INCBIN "maps/fuchsiahouse2.blk" - -SafariZoneEntrance_h: ; 0x751c1 to 0x751cd (12 bytes) (id=156) - db $0c ; tileset - db $03, $04 ; dimensions (y, x) - dw SafariZoneEntranceBlocks, SafariZoneEntranceTexts, SafariZoneEntranceScript ; blocks, texts, scripts - db $00 ; connections - - dw SafariZoneEntranceObject ; objects - -SafariZoneEntranceScript: ; 0x751cd - call $3c3c - ld hl, $51d9 - ld a, [$d61f] - jp $3d97 -; 0x751d9 - -SafariZoneEntranceScripts: ; 0x751d9 - dw SafariZoneEntranceScript0, SafariZoneEntranceScript1 - -INCBIN "baserom.gbc",$751dd,$a - -SafariZoneEntranceScript0: ; 0x751e7 - ld hl, $5221 - call $34bf - ret nc - ld a, $3 - ld [$ff00+$8c], a - call $2920 - ld a, $ff - ld [$cd6b], a - xor a - ld [$ff00+$b4], a - ld a, $c - ld [$c109], a - ld a, [$cd3d] - cp $1 - jr z, .asm_7520f ; 0x75207 $6 - ld a, $2 - ld [$d61f], a - ret -.asm_7520f - ld a, $10 - ld c, $1 - call $52a3 - ld a, $f0 - ld [$cd6b], a - ld a, $1 - ld [$d61f], a - ret -; 0x75221 - -INCBIN "baserom.gbc",$75221,$75226 - $75221 - -SafariZoneEntranceScript1: ; 0x75226 - call $52b4 - ret nz - xor a - ld [$ff00+$b4], a - ld [$cd6b], a - call $2429 - ld a, $4 - ld [$ff00+$8c], a - call $2920 - ld a, $ff - ld [$cd6b], a - ret -; 0x75240 - -INCBIN "baserom.gbc",$75240,$79 - -SafariZoneEntranceTexts: ; 0x752b9 - dw SafariZoneEntranceText1, SafariZoneEntranceText2, SafariZoneEntranceText3, SafariZoneEntranceText4, SafariZoneEntranceText5, SafariZoneEntranceText6 - -SafariZoneEntranceText3: -SafariZoneEntranceText1: ; 0x752c5 - TX_FAR _SafariZoneEntranceText1 - db $50 - -SafariZoneEntranceText4: -INCBIN "baserom.gbc",$752ca,$7536f - $752ca - -SafariZoneEntranceText5: ; 0x7536f -INCBIN "baserom.gbc",$7536f,6 - -INCBIN "baserom.gbc",$75375,$753c5 - $75375 - -SafariZoneEntranceText6: ; 0x753c5 -INCBIN "baserom.gbc",$753c5,5 - -SafariZoneEntranceText2: ; 0x753ca - db $08 ; asm - ld hl, $53e6 - call PrintText - call $35ec - ld a, [$cc26] - and a - ld hl, $53f0 - jr nz, .asm_278a6 ; 0x753db - ld hl, $53eb -.asm_278a6 ; 0x753e0 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$753e6,$f - -SafariZoneEntranceObject: ; 0x753f5 (size=48) - db $a ; border tile - - db $4 ; warps - db $5, $3, $4, $ff - db $5, $4, $4, $ff - db $0, $3, $0, SAFARI_ZONE_CENTER - db $0, $4, $1, SAFARI_ZONE_CENTER - - db $0 ; signs - - db $2 ; people - db SPRITE_WHITE_PLAYER, $2 + 4, $6 + 4, $ff, $d2, $1 ; person - db SPRITE_WHITE_PLAYER, $4 + 4, $1 + 4, $ff, $d3, $2 ; person - - ; warp-to - EVENT_DISP $4, $5, $3 - EVENT_DISP $4, $5, $4 - EVENT_DISP $4, $0, $3 ; SAFARI_ZONE_CENTER - EVENT_DISP $4, $0, $4 ; SAFARI_ZONE_CENTER - -SafariZoneEntranceBlocks: ; 12 - INCBIN "maps/safarizoneentrance.blk" - -FuchsiaGym_h: ; 0x75431 to 0x7543d (12 bytes) (id=157) - db $07 ; tileset - db $09, $05 ; dimensions (y, x) - dw FuchsiaGymBlocks, FuchsiaGymTexts, FuchsiaGymScript ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaGymObject ; objects - -FuchsiaGymScript: ; 0x7543d - call $5453 - call $3c3c - ld hl, $54eb - ld de, $5482 - ld a, [$d65b] - call $3160 - ld [$d65b], a - ret -; 0x75453 - -INCBIN "baserom.gbc",$75453,$82 - -FuchsiaGymTexts: ; 0x754d5 - dw FuchsiaGymText1, FuchsiaGymText2, FuchsiaGymText3, FuchsiaGymText4, FuchsiaGymText5, FuchsiaGymText6, FuchsiaGymText7, FuchsiaGymText8, FuchsiaGymText9, FuchsiaGymText10, FuchsiaGymText11 - -INCBIN "baserom.gbc",$754eb,$49 - -FuchsiaGymText1: ; 0x75534 - db $08 ; asm - ld a, [$d792] - bit 1, a - jr z, .asm_181b6 ; 0x7553a - bit 0, a - jr nz, .asm_adc3b ; 0x7553e - call z, $5497 - call $30b6 - jr .asm_e84c6 ; 0x75546 -.asm_adc3b ; 0x75548 - ld hl, $558b - call PrintText - jr .asm_e84c6 ; 0x7554e -.asm_181b6 ; 0x75550 - ld hl, $5581 - call PrintText - ld hl, $d72d - set 6, [hl] - set 7, [hl] - ld hl, $5586 - ld de, $5586 - call $3354 - ldh a, [$8c] - ld [$cf13], a - call $336a - call $32d7 - ld a, $5 - ld [$d05c], a - xor a - ldh [$b4], a - ld a, $3 - ld [$d65b], a -.asm_e84c6 ; 0x7557e - jp $24d7 - -INCBIN "baserom.gbc",$75581,$75590 - $75581 - -FuchsiaGymText9: ; 0x75590 -INCBIN "baserom.gbc",$75590,5 - -FuchsiaGymText10: ; 0x75595 -INCBIN "baserom.gbc",$75595,$7559f - $75595 - -FuchsiaGymText11: ; 0x7559f -INCBIN "baserom.gbc",$7559f,5 - -FuchsiaGymText2: ; 0x755a4 - db $08 ; asm - ld hl, $54eb - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$755ae,$755bd - $755ae - -FuchsiaGymText3: ; 0x755bd - db $08 ; asm - ld hl, $54f7 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$755c7,$755d6 - $755c7 - -FuchsiaGymText4: ; 0x755d6 - db $08 ; asm - ld hl, $5503 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$755e0,$755ef - $755e0 - -FuchsiaGymText5: ; 0x755ef - db $08 ; asm - ld hl, $550f - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$755f9,$75608 - $755f9 - -FuchsiaGymText6: ; 0x75608 - db $08 ; asm - ld hl, $551b - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$75612,$75621 - $75612 - -FuchsiaGymText7: ; 0x75621 - db $08 ; asm - ld hl, $5527 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$7562b,$7563a - $7562b - -FuchsiaGymText8: ; 0x7563a - db $08 ; asm - ld a, [$d792] - bit 1, a - ld hl, $5653 - jr nz, .asm_50671 ; 0x75643 - ld hl, $564e -.asm_50671 ; 0x75648 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$7564e,$a - -FuchsiaGymObject: ; 0x75658 (size=82) - db $3 ; border tile - - db $2 ; warps - db $11, $4, $5, $ff - db $11, $5, $5, $ff - - db $0 ; signs - - db $8 ; people - db SPRITE_BLACKBELT, $a + 4, $4 + 4, $ff, $d0, $41, KOGA + $C8, $1 ; trainer - db SPRITE_ROCKER, $d + 4, $8 + 4, $ff, $d0, $42, JUGGLER + $C8, $7 ; trainer - db SPRITE_ROCKER, $8 + 4, $7 + 4, $ff, $d3, $43, JUGGLER + $C8, $3 ; trainer - db SPRITE_ROCKER, $c + 4, $1 + 4, $ff, $d0, $44, JUGGLER + $C8, $8 ; trainer - db SPRITE_ROCKER, $5 + 4, $3 + 4, $ff, $d1, $45, TAMER + $C8, $1 ; trainer - db SPRITE_ROCKER, $2 + 4, $8 + 4, $ff, $d0, $46, TAMER + $C8, $2 ; trainer - db SPRITE_ROCKER, $7 + 4, $2 + 4, $ff, $d2, $47, JUGGLER + $C8, $4 ; trainer - db SPRITE_GYM_HELPER, $f + 4, $7 + 4, $ff, $d0, $8 ; person - - ; warp-to - EVENT_DISP $5, $11, $4 - EVENT_DISP $5, $11, $5 - -FuchsiaGymBlocks: ; 45 - INCBIN "maps/fuchsiagym.blk" - -FuchsiaMeetingRoom_h: ; 0x756d7 to 0x756e3 (12 bytes) (id=158) - db $14 ; tileset - db $04, $07 ; dimensions (y, x) - dw FuchsiaMeetingRoomBlocks, FuchsiaMeetingRoomTexts, FuchsiaMeetingRoomScript ; blocks, texts, scripts - db $00 ; connections - - dw FuchsiaMeetingRoomObject ; objects - -FuchsiaMeetingRoomScript: ; 0x756e3 - call $3c3c - ret -; 0x756e7 - -FuchsiaMeetingRoomTexts: ; 0x756e7 - dw FuchsiaMeetingRoomText1, FuchsiaMeetingRoomText2, FuchsiaMeetingRoomText3 - -FuchsiaMeetingRoomText1: ; 0x756ed - TX_FAR _FuchsiaMeetingRoomText1 - db $50 - -FuchsiaMeetingRoomText2: ; 0x756f2 - TX_FAR _FuchsiaMeetingRoomText2 - db $50 - -FuchsiaMeetingRoomText3: ; 0x756f7 - TX_FAR _FuchsiaMeetingRoomText3 - db $50 - -FuchsiaMeetingRoomObject: ; 0x756fc (size=38) - db $17 ; border tile - - db $2 ; warps - db $7, $4, $6, $ff - db $7, $5, $6, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_WHITE_PLAYER, $1 + 4, $4 + 4, $ff, $d0, $1 ; person - db SPRITE_WHITE_PLAYER, $2 + 4, $0 + 4, $ff, $d1, $2 ; person - db SPRITE_WHITE_PLAYER, $1 + 4, $a + 4, $ff, $d0, $3 ; person - - ; warp-to - EVENT_DISP $7, $7, $4 - EVENT_DISP $7, $7, $5 - -FuchsiaMeetingRoomBlocks: ; 28 - INCBIN "maps/fuchsiameetingroom.blk" - -CinnabarGym_h: ; 0x7573e to 0x7574a (12 bytes) (id=166) - db $16 ; tileset - db $09, $0a ; dimensions (y, x) - dw $5b26, CinnabarGymTexts, CinnabarGymScript ; blocks, texts, scripts - db $00 ; connections - - dw CinnabarGymObject ; objects - -CinnabarGymScript: ; 0x7574a - call $5759 - call $3c3c - ld hl, $57a6 - ld a, [$d65e] - jp $3d97 -; 0x75759 - -INCBIN "baserom.gbc",$75759,$757a6 - $75759 - -CinnabarGymScripts: ; 0x757a6 - dw CinnabarGymScript0, CinnabarGymScript1 - -INCBIN "baserom.gbc",$757aa,$4 - -CinnabarGymScript0: ; 0x757ae - ld a, [$da38] - and a - ret z - ld [$ff00+$8c], a - cp $4 - jr nz, .asm_757c3 ; 0x757b7 $a - ld a, $4 - ld [$d528], a - ld de, $57d7 - jr .asm_757cb ; 0x757c1 $8 -.asm_757c3 - ld de, $57da - ld a, $1 - ld [$d528], a -.asm_757cb - call $363a - ld a, $1 - ld [$d65e], a - ld [$da39], a - ret -; 0x757d7 - -INCBIN "baserom.gbc",$757d7,$757dc - $757d7 - -CinnabarGymScript1: ; 0x757dc - ld a, [$d730] - bit 0, a - ret nz - xor a - ld [$cd6b], a - ld a, [$da38] - ld [$cc55], a - ld [$ff00+$8c], a - jp $2920 -; 0x757f1 - -INCBIN "baserom.gbc",$757f1,$ae - -CinnabarGymTexts: ; 0x7589f - dw CinnabarGymText1, CinnabarGymText2, CinnabarGymText3, CinnabarGymText4, CinnabarGymText5, CinnabarGymText6, CinnabarGymText7, CinnabarGymText8, CinnabarGymText9 -;CinnabarGymText 10: ; 0x75925 -;CinnabarGymText 11: ; 0x7592a -;CinnabarGymText 12: ; 0x75934 - -INCBIN "baserom.gbc",$758b1,$2e - -CinnabarGymText1: ; 0x758df - db $8 - ld a, [$d79a] - bit 1, a - jr z, .asm_d9332 ; 0x758e5 $16 - bit 0, a - jr nz, .asm_3012f ; 0x758e9 $9 - call z, $5857 - call $30b6 - jp $24d7 -.asm_3012f ; 0x758f4 - ld hl, $5920 - call PrintText - jp $24d7 -.asm_d9332 ; 0x758fd - ld hl, $5914 - call PrintText - ld hl, $5919 - ld de, $5919 - call $3354 - ld a, $7 - ld [$d05c], a - jp $58b7 -; 0x75914 - -INCBIN "baserom.gbc",$75914,$25 - -CinnabarGymText2: ; 0x75939 - db $08 ; asm - call $57a0 - ld a, [$d79a] - bit 2, a - jr nz, .asm_46bb4 ; 0x75942 - ld hl, $595f - call PrintText - ld hl, $5964 - ld de, $5964 - call $3354 - jp $58b7 -.asm_46bb4 ; 0x75956 - ld hl, $5969 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$7595f,$7596e - $7595f - -CinnabarGymText3: ; 0x7596e - db $08 ; asm - call $57a0 - ld a, [$d79a] - bit 3, a - jr nz, .asm_4b406 ; 0x75977 - ld hl, $5994 - call PrintText - ld hl, $5999 - ld de, $5999 - call $3354 - jp $58b7 -.asm_4b406 ; 0x7598b - ld hl, $599e - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$75994,$759a3 - $75994 - -CinnabarGymText4: ; 0x759a3 - db $08 ; asm - call $57a0 - ld a, [$d79a] - bit 4, a - jr nz, .asm_c0673 ; 0x759ac - ld hl, $59c9 - call PrintText - ld hl, $59ce - ld de, $59ce - call $3354 - jp $58b7 -.asm_c0673 ; 0x759c0 - ld hl, $59d3 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$759c9,$759d8 - $759c9 - -CinnabarGymText5: ; 0x759d8 - db $08 ; asm - call $57a0 - ld a, [$d79a] - bit 5, a - jr nz, .asm_5cfd7 ; 0x759e1 - ld hl, $59fe - call PrintText - ld hl, $5a03 - ld de, $5a03 - call $3354 - jp $58b7 -.asm_5cfd7 ; 0x759f5 - ld hl, $5a08 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$759fe,$75a0d - $759fe - -CinnabarGymText6: ; 0x75a0d - db $08 ; asm - call $57a0 - ld a, [$d79a] - bit 6, a - jr nz, .asm_776b4 ; 0x75a16 - ld hl, $5a33 - call PrintText - ld hl, $5a38 - ld de, $5a38 - call $3354 - jp $58b7 -.asm_776b4 ; 0x75a2a - ld hl, $5a3d - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$75a33,$75a42 - $75a33 - -CinnabarGymText7: ; 0x75a42 - db $08 ; asm - call $57a0 - ld a, [$d79a] - bit 7, a - jr nz, .asm_2f755 ; 0x75a4b - ld hl, $5a68 - call PrintText - ld hl, $5a6d - ld de, $5a6d - call $3354 - jp $58b7 -.asm_2f755 ; 0x75a5f - ld hl, $5a72 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$75a68,$75a77 - $75a68 - -CinnabarGymText8: ; 0x75a77 - db $08 ; asm - call $57a0 - ld a, [$d79b] - bit 0, a - jr nz, .asm_d87be ; 0x75a80 - ld hl, $5a9d - call PrintText - ld hl, $5aa2 - ld de, $5aa2 - call $3354 - jp $58b7 -.asm_d87be ; 0x75a94 - ld hl, $5aa7 - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$75a9d,$75aac - $75a9d - -CinnabarGymText9: ; 0x75aac - db $08 ; asm - ld a, [$d79a] - bit 1, a - jr nz, .asm_627d9 ; 0x75ab2 - ld hl, $5ac2 - jr .asm_0b11d ; 0x75ab7 -.asm_627d9 ; 0x75ab9 - ld hl, $5ac7 -.asm_0b11d ; 0x75abc - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$75ac2,$a - -CinnabarGymObject: ; 0x75acc (size=90) - db $2e ; border tile - - db $2 ; warps - db $11, $10, $1, $ff - db $11, $11, $1, $ff - - db $0 ; signs - - db $9 ; people - db SPRITE_FAT_BALD_GUY, $3 + 4, $3 + 4, $ff, $d0, $41, BLAINE + $C8, $1 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $11 + 4, $ff, $d0, $42, SUPER_NERD + $C8, $9 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $11 + 4, $ff, $d0, $43, BURGLAR + $C8, $4 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $4 + 4, $b + 4, $ff, $d0, $44, SUPER_NERD + $C8, $a ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $b + 4, $ff, $d0, $45, BURGLAR + $C8, $5 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $e + 4, $b + 4, $ff, $d0, $46, SUPER_NERD + $C8, $b ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $e + 4, $3 + 4, $ff, $d0, $47, BURGLAR + $C8, $6 ; trainer - db SPRITE_BLACK_HAIR_BOY_2, $8 + 4, $3 + 4, $ff, $d0, $48, SUPER_NERD + $C8, $c ; trainer - db SPRITE_GYM_HELPER, $d + 4, $10 + 4, $ff, $d0, $9 ; person - - ; warp-to - EVENT_DISP $a, $11, $10 - EVENT_DISP $a, $11, $11 - -CinnabarGymBlocks: ; 90 - INCBIN "maps/cinnabargym.blk" - -Lab1_h: ; 0x75b80 to 0x75b8c (12 bytes) (id=167) - db $14 ; tileset - db $04, $09 ; dimensions (y, x) - dw Lab1Blocks, Lab1Texts, Lab1Script ; blocks, texts, scripts - db $00 ; connections - - dw Lab1Object ; objects - -Lab1Script: ; 0x75b8c - call $3c3c - ret -; 0x75b90 - -Lab1Texts: ; 0x75b90 - dw Lab1Text1, Lab1Text2, Lab1Text3, Lab1Text4, Lab1Text5 - -Lab1Text1: ; 0x75b9a - TX_FAR _Lab1Text1 - db $50 - -Lab1Text2: ; 0x75b9f - TX_FAR _Lab1Text2 - db $50 - -Lab1Text3: ; 0x75ba4 - TX_FAR _Lab1Text3 - db $50 - -Lab1Text4: ; 0x75ba9 - TX_FAR _Lab1Text4 - db $50 - -Lab1Text5: ; 0x75bae - TX_FAR _Lab1Text5 - db $50 - -Lab1Object: ; 0x75bb3 (size=62) - db $17 ; border tile - - db $5 ; warps - db $7, $2, $2, $ff - db $7, $3, $2, $ff - db $4, $8, $0, CINNABAR_LAB_2 - db $4, $c, $0, CINNABAR_LAB_3 - db $4, $10, $0, CINNABAR_LAB_4 - - db $4 ; signs - db $2, $3, $2 ; Lab1Text2 - db $4, $9, $3 ; Lab1Text3 - db $4, $d, $4 ; Lab1Text4 - db $4, $11, $5 ; Lab1Text5 - - db $1 ; people - db SPRITE_FISHER, $3 + 4, $1 + 4, $ff, $ff, $1 ; person - - ; warp-to - EVENT_DISP $9, $7, $2 - EVENT_DISP $9, $7, $3 - EVENT_DISP $9, $4, $8 ; CINNABAR_LAB_2 - EVENT_DISP $9, $4, $c ; CINNABAR_LAB_3 - EVENT_DISP $9, $4, $10 ; CINNABAR_LAB_4 - -Lab1Blocks: ; 36 - INCBIN "maps/lab1.blk" - -Lab2_h: ; 0x75c15 to 0x75c21 (12 bytes) (id=168) - db $14 ; tileset - db $04, $04 ; dimensions (y, x) - dw Lab2Blocks, Lab2Texts, Lab2Script ; blocks, texts, scripts - db $00 ; connections - - dw Lab2Object ; objects - -Lab2Script: ; 0x75c21 - jp $3c3c -; 0x75c24 - -Lab2Texts: ; 0x75c24 - dw Lab2Text1, Lab2Text2, Lab2Text3 - -Lab2Text1: ; 0x75c2a - TX_FAR _Lab2Text1 - db $50 - -Lab2Text2: ; 0x75c2f - db $8 - ld a, $7 - ld [W_WHICHTRADE], a - jr asm_78552 ; 0x75c35 $6 - -Lab2Text3: - db $8 - ld a, $8 - ld [W_WHICHTRADE], a -asm_78552: ; 0x75c3d - ld a, $54 - call Predef - jp $24d7 - -Lab2Object: ; 0x75c45 (size=38) - db $17 ; border tile - - db $2 ; warps - db $7, $2, $2, CINNABAR_LAB_1 - db $7, $3, $2, CINNABAR_LAB_1 - - db $0 ; signs - - db $3 ; people - db SPRITE_BLACK_HAIR_BOY_2, $2 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_OLD_PERSON, $4 + 4, $1 + 4, $ff, $ff, $2 ; person - db SPRITE_FOULARD_WOMAN, $5 + 4, $5 + 4, $ff, $d1, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; CINNABAR_LAB_1 - EVENT_DISP $4, $7, $3 ; CINNABAR_LAB_1 - -Lab2Blocks: ; 16 - INCBIN "maps/lab2.blk" - -Lab3_h: ; 0x75c7b to 0x75c87 (12 bytes) (id=169) - db $14 ; tileset - db $04, $04 ; dimensions (y, x) - dw Lab3Blocks, Lab3Texts, Lab3Script ; blocks, texts, scripts - db $00 ; connections - - dw Lab3Object ; objects - -Lab3Script: ; 0x75c87 - jp $3c3c -; 0x75c8a - -Lab3Texts: ; 0x75c8a - dw Lab3Text1, Lab3Text2, Lab3Text3, Lab3Text4, Lab3Text5 - -Lab3Text1: ; 0x75c94 - db $08 ; asm - ld a, [$d7a1] - bit 7, a - jr nz, .asm_e551a ; 0x75c9a - ld hl, $5cc8 - call PrintText - ld bc,(TM_35 << 8) | 1 - call $3e2e - jr nc, .asm_6c187 ; 0x75ca8 - ld hl, $5ccd - call PrintText - ld hl, $d7a1 - set 7, [hl] - jr .asm_eb896 ; 0x75cb5 -.asm_6c187 ; 0x75cb7 - ld hl, $5cd8 - call PrintText - jr .asm_eb896 ; 0x75cbd -.asm_e551a ; 0x75cbf - ld hl, $5cd3 - call PrintText -.asm_eb896 ; 0x75cc5 - jp $24d7 - -INCBIN "baserom.gbc",$75cc8,$15 - -Lab3Text2: ; 0x75cdd - TX_FAR _Lab3Text2 - db $50 - -Lab3Text4: -Lab3Text3: ; 0x75ce2 - TX_FAR _Lab3Text3 - db $50 - -Lab3Text5: ; 0x75ce7 - TX_FAR _Lab3Text5 - db $50 - -Lab3Object: ; 0x75cec (size=41) - db $17 ; border tile - - db $2 ; warps - db $7, $2, $3, CINNABAR_LAB_1 - db $7, $3, $3, CINNABAR_LAB_1 - - db $3 ; signs - db $4, $0, $3 ; Lab3Text3 - db $4, $1, $4 ; Lab3Text4 - db $1, $2, $5 ; Lab3Text5 - - db $2 ; people - db SPRITE_OAK_AIDE, $2 + 4, $7 + 4, $ff, $d0, $1 ; person - db SPRITE_OAK_AIDE, $3 + 4, $2 + 4, $fe, $2, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; CINNABAR_LAB_1 - EVENT_DISP $4, $7, $3 ; CINNABAR_LAB_1 - -Lab3Blocks: ; 16 - INCBIN "maps/lab3.blk" - -Lab4_h: ; 0x75d25 to 0x75d31 (12 bytes) (id=170) - db $14 ; tileset - db $04, $04 ; dimensions (y, x) - dw Lab4Blocks, $5d34, $5d31 ; blocks, texts, scripts - db $00 ; connections - - dw Lab4Object ; objects - -Lab4Script: ; 0x75d31 - jp $3c3c -; 0x75d34 - -INCBIN "baserom.gbc",$75d34,$38 - -Lab4Text1: ; 0x75d6c - db $8 - ld a, [$d7a3] - bit 0, a - jr nz, .asm_75d96 ; 0x75d72 $22 - ld hl, $5dc6 - call PrintText - call $5d38 - ld a, [$cd37] - and a - jr z, .asm_75d8d ; 0x75d81 $a - ld b, $18 - ld hl, $5006 - call Bankswitch - jr .asm_75d93 ; 0x75d8b $6 -.asm_75d8d - ld hl, $5dcb - call PrintText -.asm_75d93 - jp $24d7 -.asm_75d96 - bit 1, a - jr z, .asm_75da2 ; 0x75d98 $8 - ld hl, $5dd0 - call PrintText - jr .asm_75d93 ; 0x75da0 $f1 -.asm_75da2 - call $5de8 - ld hl, $5dd5 - call PrintText - ld hl, $d7a3 - set 2, [hl] - ld a, [$d710] - ld b, a - ld c, $1e - call GivePokemon - jr nc, .asm_75d93 ; 0x75db9 $d8 - ld hl, $d7a3 - res 0, [hl] - res 1, [hl] - res 2, [hl] - jr .asm_75d93 ; 0x75dc4 $cd -; 0x75dc6 - -INCBIN "baserom.gbc",$75dc6,$14 - -Lab4Text2: ; 0x75dda - db $08 ; asm - ld a, $3 - ld [W_WHICHTRADE], a - ld a, $54 - call Predef - jp $24d7 - -INCBIN "baserom.gbc",$75de8,$8 - -Lab4Object: ; 0x75df0 (size=32) - db $17 ; border tile - - db $2 ; warps - db $7, $2, $4, CINNABAR_LAB_1 - db $7, $3, $4, CINNABAR_LAB_1 - - db $0 ; signs - - db $2 ; people - db SPRITE_OAK_AIDE, $2 + 4, $5 + 4, $fe, $2, $1 ; person - db SPRITE_OAK_AIDE, $6 + 4, $7 + 4, $ff, $d1, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 ; CINNABAR_LAB_1 - EVENT_DISP $4, $7, $3 ; CINNABAR_LAB_1 - -Lab4Blocks: ; 16 - INCBIN "maps/lab4.blk" - -CinnabarPokecenter_h: ; 0x75e20 to 0x75e2c (12 bytes) (id=171) - db $06 ; tileset - db $04, $07 ; dimensions (y, x) - dw $4030, CinnabarPokecenterTexts, CinnabarPokecenterScript ; blocks, texts, scripts - db $00 ; connections - - dw CinnabarPokecenterObject ; objects - -CinnabarPokecenterScript: ; 0x75e2c - call $22fa - jp $3c3c -; 0x75e32 - -CinnabarPokecenterTexts: -INCBIN "baserom.gbc",$75e32,$9 - -CinnabarPokecenterText2: -CinnabarPokecenterText1: ; 0x75e3b - TX_FAR _CinnabarPokecenterText1 - db $50 - -CinnabarPokecenterText3: ; 0x75e40 - TX_FAR _CinnabarPokecenterText3 - db $50 - -CinnabarPokecenterText4: - db $f6 - -CinnabarPokecenterObject: ; 0x75e46 (size=44) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $3, $ff - db $7, $4, $3, $ff - - db $0 ; signs - - db $4 ; people - db SPRITE_NURSE, $1 + 4, $3 + 4, $ff, $d0, $1 ; person - db SPRITE_LASS, $4 + 4, $9 + 4, $fe, $0, $2 ; person - db SPRITE_GENTLEMAN, $6 + 4, $2 + 4, $ff, $ff, $3 ; person - db SPRITE_CABLE_CLUB_WOMAN, $2 + 4, $b + 4, $ff, $d0, $4 ; person - - ; warp-to - EVENT_DISP $7, $7, $3 - EVENT_DISP $7, $7, $4 - -CinnabarMart_h: ; 0x75e72 to 0x75e7e (12 bytes) (id=172) - db $02 ; tileset - db $04, $04 ; dimensions (y, x) - dw $4010, CinnabarMartTexts, CinnabarMartScript ; blocks, texts, scripts - db $00 ; connections - - dw CinnabarMartObject ; objects - -CinnabarMartScript: ; 0x75e7e - jp $3c3c -; 0x75e81 - -CinnabarMartTexts: ; 0x75e81 - dw CinnabarMartText1, CinnabarMartText2, CinnabarMartText3 - -CinnabarMartText2: ; 0x75e87 - TX_FAR _CinnabarMartText2 - db $50 - -CinnabarMartText3: ; 0x75e8c - TX_FAR _CinnabarMartText3 - db $50 - -CinnabarMartObject: ; 0x75e91 (size=38) - db $0 ; border tile - - db $2 ; warps - db $7, $3, $4, $ff - db $7, $4, $4, $ff - - db $0 ; signs - - db $3 ; people - db SPRITE_MART_GUY, $5 + 4, $0 + 4, $ff, $d3, $1 ; person - db SPRITE_ERIKA, $2 + 4, $6 + 4, $ff, $ff, $2 ; person - db SPRITE_OAK_AIDE, $4 + 4, $3 + 4, $ff, $ff, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $7, $4 - -CopycatsHouseF1_h: ; 0x75eb7 to 0x75ec3 (12 bytes) (id=175) - db $01 ; tileset - db $04, $04 ; dimensions (y, x) - dw $4000, CopycatsHouseF1Texts, CopycatsHouseF1Script ; blocks, texts, scripts - db $00 ; connections - - dw CopycatsHouseF1Object ; objects - -CopycatsHouseF1Script: ; 0x75ec3 - jp $3c3c -; 0x75ec6 - -CopycatsHouseF1Texts: ; 0x75ec6 - dw CopycatsHouseF1Text1, CopycatsHouseF1Text2, CopycatsHouseF1Text3 - -CopycatsHouseF1Text1: ; 0x75ecc - TX_FAR _CopycatsHouseF1Text1 - db $50 - -CopycatsHouseF1Text2: ; 0x75ed1 - TX_FAR _CopycatsHouseF1Text2 - db $50 - -CopycatsHouseF1Text3: ; 0x75ed6 - TX_FAR _CopycatsHouseF1Text3 - db $8 - ld a, $28 - call $13d0 - jp $24d7 - -CopycatsHouseF1Object: ; 0x75ee3 (size=46) - db $a ; border tile - - db $3 ; warps - db $7, $2, $0, $ff - db $7, $3, $0, $ff - db $1, $7, $0, COPYCATS_HOUSE_2F - - db $0 ; signs - - db $3 ; people - db SPRITE_MOM_GEISHA, $2 + 4, $2 + 4, $ff, $d0, $1 ; person - db SPRITE_FAT_BALD_GUY, $4 + 4, $5 + 4, $ff, $d2, $2 ; person - db SPRITE_CLEFAIRY, $4 + 4, $1 + 4, $fe, $1, $3 ; person - - ; warp-to - EVENT_DISP $4, $7, $2 - EVENT_DISP $4, $7, $3 - EVENT_DISP $4, $1, $7 ; COPYCATS_HOUSE_2F - -INCBIN "baserom.gbc",$75f11,$75f1d - $75f11 - -GaryScript: ; 0x75f1d - call $3c3c - ld hl, $5f31 - ld a, [$d64c] - jp $3d97 -; 0x75f29 - -INCBIN "baserom.gbc",$75f29,$75f31 - $75f29 - -GaryScripts: ; 0x75f31 - dw GaryScript0 - -INCBIN "baserom.gbc",$75f33,$14 - -GaryScript0: ; 0x75f47 - ret -; 0x75f48 - -INCBIN "baserom.gbc",$75f48,$18e - -GaryTexts: ; 0x760d6 - dw GaryText1, GaryText2, GaryText3, GaryText4, GaryText5 - -GaryText1: ; 0x760e0 - db $08 ; asm - ld a, [$d867] - bit 1, a - ld hl, $60f4 - jr z, .asm_17e9f ; 0x760e9 - ld hl, $6103 -.asm_17e9f ; 0x760ee - call PrintText - jp $24d7 - -INCBIN "baserom.gbc",$760f4,$14 - -GaryText2: ; 0x76108 - TX_FAR _GaryText2 - db $50 - -GaryText3: ; 0x7610d -INCBIN "baserom.gbc",$7610d,$76125 - $7610d - -GaryText4: ; 0x76125 -INCBIN "baserom.gbc",$76125,$7612a - $76125 - -GaryText5: ; 0x7612a -INCBIN "baserom.gbc",$7612a,$7612f - $7612a - -GaryObject: ; 0x7612f (size=48) - db $3 ; border tile - - db $4 ; warps - db $7, $3, $1, LANCES_ROOM - db $7, $4, $2, LANCES_ROOM - db $0, $3, $0, HALL_OF_FAME - db $0, $4, $0, HALL_OF_FAME - - db $0 ; signs - - db $2 ; people - db SPRITE_BLUE, $2 + 4, $4 + 4, $ff, $d0, $1 ; person - db SPRITE_OAK, $7 + 4, $3 + 4, $ff, $d1, $2 ; person - - ; warp-to - EVENT_DISP $4, $7, $3 ; LANCES_ROOM - EVENT_DISP $4, $7, $4 ; LANCES_ROOM - EVENT_DISP $4, $0, $3 ; HALL_OF_FAME - EVENT_DISP $4, $0, $4 ; HALL_OF_FAME - -GaryBlocks: ; 16 - INCBIN "maps/gary.blk" - -Lorelei_h: ; 0x7616f to 0x7617b (12 bytes) (id=245) - db $07 ; tileset - db $06, $05 ; dimensions (y, x) - dw LoreleiBlocks, LoreleiTexts, LoreleiScript ; blocks, texts, scripts - db $00 ; connections - - dw LoreleiObject ; objects - -LoreleiScript: ; 0x7617b - call $6191 - call $3c3c - ld hl, $6255 - ld de, $61bb - ld a, [$d64d] - call $3160 - ld [$d64d], a - ret -; 0x76191 - -INCBIN "baserom.gbc",$76191,$c0 - -LoreleiTexts: ; 0x76251 - dw LoreleiText1, LoreleiText2 - -INCBIN "baserom.gbc",$76255,$d - -LoreleiText1: ; 0x76262 - db $08 ; asm - ld hl, $6255 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$7626c,$7627b - $7626c - -LoreleiText2: ; 0x7627b -INCBIN "baserom.gbc",$7627b,$76280 - $7627b - -LoreleiObject: ; 0x76280 (size=44) - db $3 ; border tile - - db $4 ; warps - db $b, $4, $2, INDIGO_PLATEAU_LOBBY - db $b, $5, $2, INDIGO_PLATEAU_LOBBY - db $0, $4, $0, BRUNOS_ROOM - db $0, $5, $1, BRUNOS_ROOM - - db $0 ; signs - - db $1 ; people - db SPRITE_LORELEI, $2 + 4, $5 + 4, $ff, $d0, $41, LORELEI + $C8, $1 ; trainer - - ; warp-to - EVENT_DISP $5, $b, $4 ; INDIGO_PLATEAU_LOBBY - EVENT_DISP $5, $b, $5 ; INDIGO_PLATEAU_LOBBY - EVENT_DISP $5, $0, $4 ; BRUNOS_ROOM - EVENT_DISP $5, $0, $5 ; BRUNOS_ROOM - -LoreleiBlocks: ; 30 - INCBIN "maps/loreli.blk" - -Bruno_h: ; 0x762ca to 0x762d6 (12 bytes) (id=246) - db $07 ; tileset - db $06, $05 ; dimensions (y, x) - dw BrunoBlocks, BrunoTexts, BrunoScript ; blocks, texts, scripts - db $00 ; connections - - dw BrunoObject ; objects - -BrunoScript: ; 0x762d6 - call $62ec - call $3c3c - ld hl, $63ac - ld de, $6312 - ld a, [$d64e] - call $3160 - ld [$d64e], a - ret -; 0x762ec - -INCBIN "baserom.gbc",$762ec,$bc - -BrunoTexts: ; 0x763a8 - dw BrunoText1, BrunoText2 - -INCBIN "baserom.gbc",$763ac,$d - -BrunoText1: ; 0x763b9 - db $08 ; asm - ld hl, $63ac - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$763c3,$763d2 - $763c3 - -BrunoText2: ; 0x763d2 -INCBIN "baserom.gbc",$763d2,5 - -BrunoObject: ; 0x763d7 (size=44) - db $3 ; border tile - - db $4 ; warps - db $b, $4, $2, LORELEIS_ROOM - db $b, $5, $3, LORELEIS_ROOM - db $0, $4, $0, AGATHAS_ROOM - db $0, $5, $1, AGATHAS_ROOM - - db $0 ; signs - - db $1 ; people - db SPRITE_BRUNO, $2 + 4, $5 + 4, $ff, $d0, $41, BRUNO + $C8, $1 ; trainer - - ; warp-to - EVENT_DISP $5, $b, $4 ; LORELEIS_ROOM - EVENT_DISP $5, $b, $5 ; LORELEIS_ROOM - EVENT_DISP $5, $0, $4 ; AGATHAS_ROOM - EVENT_DISP $5, $0, $5 ; AGATHAS_ROOM - -BrunoBlocks: ; 30 - INCBIN "maps/bruno.blk" - -Agatha_h: ; 0x76421 to 0x7642d (12 bytes) (id=247) - db $0f ; tileset - db $06, $05 ; dimensions (y, x) - dw AgathaBlocks, AgathaTexts, AgathaScript ; blocks, texts, scripts - db $00 ; connections - - dw AgathaObject ; objects - -AgathaScript: ; 0x7642d - call $6443 - call $3c3c - ld hl, $6509 - ld de, $6469 - ld a, [$d64f] - call $3160 - ld [$d64f], a - ret -; 0x76443 - -INCBIN "baserom.gbc",$76443,$c2 - -AgathaTexts: ; 0x76505 - dw AgathaText1, AgathaText2 - -INCBIN "baserom.gbc",$76509,$d - -AgathaText1: ; 0x76516 - db $08 ; asm - ld hl, $6509 - call LoadTrainerHeader - jp $24d7 - -INCBIN "baserom.gbc",$76520,$f - -AgathaText2: ; 0x7652f -INCBIN "baserom.gbc",$7652f,5 - -AgathaObject: ; 0x76534 (size=44) - db $0 ; border tile - - db $4 ; warps - db $b, $4, $2, BRUNOS_ROOM - db $b, $5, $3, BRUNOS_ROOM - db $0, $4, $0, LANCES_ROOM - db $0, $5, $0, LANCES_ROOM - - db $0 ; signs - - db $1 ; people - db SPRITE_AGATHA, $2 + 4, $5 + 4, $ff, $d0, $41, AGATHA + $C8, $1 ; trainer - - ; warp-to - EVENT_DISP $5, $b, $4 ; BRUNOS_ROOM - EVENT_DISP $5, $b, $5 ; BRUNOS_ROOM - EVENT_DISP $5, $0, $4 ; LANCES_ROOM - EVENT_DISP $5, $0, $5 ; LANCES_ROOM - -AgathaBlocks: ; 30 - INCBIN "maps/agatha.blk" - -INCBIN "baserom.gbc",$7657e,$1a82 - -SECTION "bank1E",DATA,BANK[$1E] - -INCBIN "baserom.gbc",$78000,$F1 - -PlayAnimation: ; 40F1 - xor a - ld [$FF8B],a - ld [$D08B],a - ld a,[$D07C] ; get animation number - dec a - ld l,a - ld h,0 - add hl,hl - ld de,$607D - add hl,de - ld a,[hli] - ld h,[hl] - ld l,a -.next7\@ - ld a,[hli] - cp a,$FF - jr z,.AnimationOver\@ - cp a,$C0 ; is this animation for a monster onscreen? - jr c,.next2\@ - ld c,a - ld de,$50DA -.next4\@ - ld a,[de] - cp c - jr z,.next3\@ - inc de - inc de - inc de - jr .next4\@ -.next3\@ - ld a,[hli] - cp a,$FF - jr z,.next5\@ - ld [$CF07],a - push hl - push de - call $586F - call $23B1 - pop de - pop hl -.next5\@ - push hl - inc de - ld a,[de] - ld l,a - inc de - ld a,[de] - ld h,a - ld de,.next6\@ - push de - jp [hl] -.next2\@ - ld c,a - and a,$3F - ld [$D086],a - xor a - sla c - rla - sla c - rla - ld [$D09F],a - ld a,[hli] - ld [$CF07],a - ld a,[hli] - ld c,l - ld b,h - ld l,a - ld h,0 - add hl,hl - ld de,$676D - add hl,de - ld a,l - ld [$D094],a - ld a,h - ld [$D095],a - ld l,c - ld h,b - push hl - ld a,[rOBP0] - push af - ld a,[$CC79] - ld [rOBP0],a - call $41D2 - call $417C - call RealPlayAnimation - pop af - ld [rOBP0],a -.next6\@ - pop hl - jr .next7\@ -.AnimationOver\@ ; 417B - ret - -INCBIN "baserom.gbc",$7817C,$78D5E - $7817C - -AttackAnimation: ; 4D5E - push hl - push de - push bc - push af - call $3748 - call $4E23 - ld a,[$D07C] - and a - jr z,.AnimationFinished\@ - - ; if throwing a Poké Ball, skip the regular animation code - cp a,TOSS_ANIM - jr nz,.AttackAnimation\@ - ld de,.AnimationFinished\@ - push de - jp TossBallAnimation - -.AttackAnimation\@ - ; check if battle animations are disabled in the options - ld a,[$D355] - bit 7,a - jr nz,.AnimationsDisabled\@ - call ShareAttackAnimations - call PlayAnimation - jr .next4\@ -.AnimationsDisabled\@ - ld c,30 - call DelayFrames -.next4\@ - call $4DBD ; reload pic and flash the pic in and out (to show damage) -.AnimationFinished\@ - call $3748 - xor a - ld [$D096],a - ld [$D09B],a - ld [$D08B],a - dec a - ld [$CF07],a - pop af - pop bc - pop de - pop hl - ret - -ShareAttackAnimations: ; 4DA6 -; some moves just reuse animations from status conditions - ld a,[H_WHOSETURN] - and a - ret z - - ; opponent’s turn - - ld a,[$D07C] - - cp a,AMNESIA - ld b,CONF_ANIM - jr z,.Replace\@ - - cp a,REST - ld b,SLP_ANIM - ret nz - -.Replace\@ - ld a,b - ld [$D07C],a - ret - -Function4DBD: ; 4DBD - ld a,[$CC5B] - and a - ret z - dec a - add a - ld c,a - ld b,0 - ld hl,Pointer4DCF - add hl,bc - ld a,[hli] - ld h,[hl] - ld l,a - jp [hl] - -Pointer4DCF: ; 4DCF - dw $4DDB,$4DE3,$4DEB,$4DF0,$4DF6,$4DFE - -INCBIN "baserom.gbc",$78DDB,$78E53-$78DDB - -RealPlayAnimation: ; 4E53 - ld a,[$CF07] ; get animation # − 1 - cp a,$FF - jr z,.Next4E60 - call $586F - call $23B1 ; play sound effect -.Next4E60 - ld hl,$C300 - ld a,l - ld [$D09D],a - ld a,h - ld [$D09C],a - ld a,[$D097] - ld h,a - ld a,[$D096] - ld l,a - push hl - ld c,[hl] - ld b,0 - ld hl,PointerTable6F74 - add hl,bc - add hl,bc - ld a,[hli] - ld c,a - ld a,[hli] - ld b,a - pop hl - inc hl - push hl - ld e,[hl] - ld d,0 - ld hl,$7C85 - add hl,de - add hl,de - ld a,[hli] - ld [$D082],a - ld a,[hl] - ld [$D081],a - pop hl - inc hl - ld a,[hl] - ld [$D09E],a - call $4000 - call $4ED7 - ld a,[$D087] - dec a - ld [$D087],a - ret z - ld a,[$D097] - ld h,a - ld a,[$D096] - ld l,a - ld a,[$D08B] - cp a,4 - ld bc,3 - jr nz,.Next4EBC - ld bc,$FFFD -.Next4EBC - add hl,bc - ld a,h - ld [$D097],a - ld a,l - ld [$D096],a - jp $4E73 - -INCBIN "baserom.gbc",$78EC8,$7986F - $78EC8 - -Func586F: ; 586F - ld hl,MoveSoundTable - ld e,a - ld d,0 - add hl,de - add hl,de - add hl,de - ld a,[hli] - ld b,a - call IsCryMove - jr nc,.NotCryMove - ld a,[H_WHOSETURN] - and a - jr nz,.next\@ - ld a,[$D014] ; get number of current monster - jr .Continue\@ -.next\@ - ld a,[$CFE5] -.Continue\@ - push hl - call $13D9 - ld b,a - pop hl - ld a,[$C0F1] - add [hl] - ld [$C0F1],a - inc hl - ld a,[$C0F2] - add [hl] - ld [$C0F2],a - jr .done\@ -.NotCryMove - ld a,[hli] - ld [$C0F1],a - ld a,[hli] - ld [$C0F2],a -.done\@ - ld a,b - ret -IsCryMove: -; set carry if the attack animation involves playing a monster cry - ld a,[$D07C] - cp a,GROWL - jr z,.CryMove - cp a,ROAR - jr z,.CryMove - and a ; clear carry - ret -.CryMove - scf - ret - -MoveSoundTable: - db $a0,$00,$80 - db $a2,$10,$80 - db $b3,$00,$80 - db $a1,$01,$80 - db $a3,$00,$40 - db $e9,$00,$ff - db $a3,$10,$60 - db $a3,$20,$80 - db $a3,$00,$a0 - db $a6,$00,$80 - db $a5,$20,$40 - db $a5,$00,$80 - db $a4,$00,$a0 - db $a7,$10,$c0 - db $a7,$00,$a0 - db $a8,$00,$c0 - db $a8,$10,$a0 - db $a9,$00,$e0 - db $a7,$20,$c0 - db $aa,$00,$80 - db $b9,$00,$80 - db $ab,$01,$80 - db $b7,$00,$80 - db $ad,$f0,$40 - db $b0,$00,$80 - db $ad,$00,$80 - db $b8,$10,$80 - db $b1,$01,$a0 - db $ae,$00,$80 - db $b4,$00,$60 - db $b4,$01,$40 - db $b6,$00,$a0 - db $b0,$10,$a0 - db $b7,$00,$c0 - db $aa,$10,$60 - db $b0,$00,$a0 - db $b9,$11,$c0 - db $b0,$20,$c0 - db $b8,$00,$80 - db $b1,$00,$80 - db $b1,$20,$c0 - db $af,$00,$80 - db $db,$ff,$40 - db $b4,$00,$80 - db $a1,$00,$c0 - db $a1,$00,$40 - db $e4,$00,$80 - db $bf,$40,$60 - db $bf,$00,$80 - db $bf,$ff,$40 - db $c7,$80,$c0 - db $af,$10,$a0 - db $af,$21,$e0 - db $c5,$00,$80 - db $bb,$20,$60 - db $c7,$00,$80 - db $cc,$00,$80 - db $c2,$40,$80 - db $c5,$f0,$e0 - db $cf,$00,$80 - db $c7,$f0,$60 - db $c2,$00,$80 - db $e6,$00,$80 - db $9d,$01,$a0 - db $a9,$f0,$20 - db $ba,$01,$c0 - db $ba,$00,$80 - db $b0,$00,$e0 - db $be,$01,$60 - db $be,$20,$40 - db $bb,$00,$80 - db $bb,$40,$c0 - db $b1,$03,$60 - db $bd,$11,$e0 - db $a8,$20,$e0 - db $d2,$00,$80 - db $b2,$00,$80 - db $b2,$11,$a0 - db $b2,$01,$c0 - db $a9,$14,$c0 - db $b1,$02,$a0 - db $c5,$f0,$80 - db $c5,$20,$c0 - db $d5,$00,$20 - db $d5,$20,$80 - db $d2,$12,$60 - db $be,$00,$80 - db $aa,$01,$e0 - db $c5,$0f,$e0 - db $c5,$11,$20 - db $a6,$10,$40 - db $a5,$10,$c0 - db $aa,$00,$20 - db $d8,$00,$80 - db $e4,$11,$18 - db $9f,$20,$c0 - db $9e,$20,$c0 - db $bd,$00,$10 - db $be,$f0,$20 - db $df,$f0,$c0 - db $a7,$f0,$e0 - db $9f,$f0,$40 - db $db,$00,$80 - db $df,$80,$40 - db $df,$00,$80 - db $aa,$11,$20 - db $aa,$22,$10 - db $b1,$f1,$ff - db $a9,$f1,$ff - db $aa,$33,$30 - db $dd,$40,$c0 - db $a4,$20,$20 - db $a4,$f0,$10 - db $a5,$f8,$10 - db $a7,$f0,$10 - db $bd,$00,$80 - db $ae,$00,$c0 - db $dd,$c0,$ff - db $9f,$f2,$20 - db $e1,$00,$80 - db $e1,$00,$40 - db $9f,$00,$40 - db $a7,$10,$ff - db $c7,$20,$20 - db $dd,$00,$80 - db $c5,$1f,$20 - db $bd,$2f,$80 - db $a5,$1f,$ff - db $ca,$1f,$60 - db $be,$1e,$20 - db $be,$1f,$18 - db $aa,$0f,$80 - db $9f,$f8,$10 - db $9e,$18,$20 - db $dd,$08,$40 - db $ad,$01,$e0 - db $a7,$09,$ff - db $e4,$42,$01 - db $b2,$00,$ff - db $dd,$08,$e0 - db $bb,$00,$80 - db $9f,$88,$10 - db $bd,$48,$ff - db $9e,$ff,$ff - db $bb,$ff,$10 - db $9e,$ff,$04 - db $b2,$01,$ff - db $a9,$f8,$ff - db $a2,$f0,$f0 - db $a5,$08,$10 - db $a3,$f0,$ff - db $b0,$f0,$ff - db $e1,$10,$ff - db $a4,$f0,$20 - db $ca,$f0,$60 - db $b8,$12,$10 - db $e6,$f0,$20 - db $b4,$12,$ff - db $db,$80,$04 - db $df,$f0,$10 - db $c5,$f8,$ff - db $be,$f0,$ff - db $a7,$01,$ff - db $cc,$d8,$04 - db $a1,$00,$80 - db $a1,$00,$80 - -INCBIN "baserom.gbc",$79AAE,$79E16 - $79AAE - -TossBallAnimation: ; 5E16 - ld a,[W_ISINBATTLE] - cp a,2 - jr z,.BlockBall\@ ; if in trainer battle, play different animation - ld a,[$D11E] - ld b,a - - ; upper nybble: how many animations (from PokeBallAnimations) to play - ; this will be 4 for successful capture, 6 for breakout - and a,$F0 - swap a - ld c,a - - ; lower nybble: number of shakes - ; store these for later - ld a,b - and a,$F - ld [$CD3D],a - - ld hl,.PokeBallAnimations - ; choose which toss animation to use - ld a,[$CF91] - cp a,POKE_BALL - ld b,TOSS_ANIM - jr z,.done\@ - cp a,GREAT_BALL - ld b,GREATTOSS_ANIM - jr z,.done\@ - ld b,ULTRATOSS_ANIM -.done\@ - ld a,b -.PlayNextAnimation\@ - ld [$D07C],a - push bc - push hl - call PlayAnimation - pop hl - ld a,[hli] - pop bc - dec c - jr nz,.PlayNextAnimation\@ - ret - -.PokeBallAnimations: ; 5E50 -; sequence of animations that make up the Poké Ball toss - db POOF_ANIM,HIDEPIC_ANIM,$C2,POOF_ANIM,SHOWPIC_ANIM - -.BlockBall\@ ; 5E55 - ld a,$C1 - ld [$D07C],a - call PlayAnimation - ld a,$95 - call $23B1 ; play sound effect - ld a,BLOCKBALL_ANIM - ld [$D07C],a - jp PlayAnimation - -INCBIN "baserom.gbc",$79E6A,$7AF74 - $79E6A - -PointerTable6F74: ; 6F74 - dw $7de7 - dw $7068 - dw $708d - dw $70ce - dw $70df - dw $70f0 - dw $7101 - dw $7132 - dw $7173 - dw $71b4 - dw $71e5 - dw $7216 - dw $7227 - dw $7238 - dw $7259 - dw $726a - dw $727b - dw $729c - dw $72bd - dw $72ca - dw $72db - dw $72fc - dw $732d - dw $734e - dw $735f - dw $7364 - dw $736d - dw $7376 - dw $737f - dw $7388 - dw $7391 - dw $73ab - dw $73b4 - dw $73cd - dw $73fe - dw $744b - dw $745c - dw $7465 - dw $7496 - dw $74a7 - dw $74bc - dw $74d5 - dw $74e6 - dw $74f7 - dw $7500 - dw $7505 - dw $7526 - dw $7547 - dw $7558 - dw $7569 - dw $756e - dw $758b - dw $75a8 - dw $75ad - dw $75c6 - dw $75d7 - dw $75e8 - dw $75f9 - dw $760a - dw $761b - dw $7630 - dw $7649 - dw $7666 - dw $7687 - dw $76a8 - dw $76b5 - dw $76c6 - dw $76f3 - dw $7720 - dw $7731 - dw $7742 - dw $7753 - dw $7764 - dw $7775 - dw $785a - dw $786b - dw $787c - dw $788d - dw $789e - dw $78bf - dw $78f0 - dw $7911 - dw $7932 - dw $7943 - dw $7950 - dw $7961 - dw $796e - dw $7987 - dw $79ac - dw $79c9 - dw $79ce - dw $79ff - dw $7a10 - dw $7a31 - dw $7a5e - dw $7a9b - dw $7aac - dw $7acd - dw $7afe - dw $7b3f - dw $7b58 - dw $7b71 - dw $7b8a - dw $7b93 - dw $7b98 - dw $7ba9 - dw $7bae - dw $7bcf - dw $7bf0 - dw $7c11 - dw $7c1a - dw $7c2b - dw $7c3c - dw $77b6 - dw $77f7 - dw $7828 - dw $7849 - dw $739a - dw $7c4d - dw $7c6a - dw $7c7b - dw $7c80 - -INCBIN "baserom.gbc",$7B068,$7C000 - $7B068 - -SECTION "bank1F",DATA,BANK[$1F] - -INCBIN "baserom.gbc",$7C000,$4000 - -SECTION "bank20",DATA,BANK[$20] - -INCBIN "baserom.gbc",$80000,$800b1 - $80000 - -_VictoryRoad3Text10: -_VictoryRoad3Text9: -_VictoryRoad3Text8: -_VictoryRoad3Text7: -_VictoryRoad2Text13: -_VictoryRoad2Text12: -_VictoryRoad2Text11: -_SeafoamIslands1Text2: -_SeafoamIslands1Text1: -_SeafoamIslands5Text2: -_SeafoamIslands5Text1: -_SeafoamIslands4Text6: -_SeafoamIslands4Text5: -_SeafoamIslands4Text4: -_SeafoamIslands4Text3: -_SeafoamIslands4Text2: -_SeafoamIslands4Text1: -_SeafoamIslands3Text2: -_SeafoamIslands3Text1: -_SeafoamIslands2Text2: -_SeafoamIslands2Text1: -_FuchsiaHouse2Text3: -_VictoryRoad1Text7: -_VictoryRoad1Text6: -_VictoryRoad1Text5: ; 0x800b1 - db $0, "This requires", $4f - db "STRENGTH to move!", $57 - -_SaffronCityText19: -_CinnabarIslandText4: -_FuchsiaCityText14: -_VermilionCityText9: -_LavenderTownText6: -_CeruleanCityText14: -_PewterCityText8: -_ViridianCityText11: ; 0x800d2 - db $0, "All your item", $4f - db "needs fulfilled!", $55 - db "#MON MART", $57 - -_ViridianCityText12: ; 0x800fc - db $0, "Heal Your #MON!", $4f - db "#MON CENTER", $57 - -INCBIN "baserom.gbc",$80119,$8031d - $80119 - -_ViridianForestText1: ; 0x8031d - db $0, "I came here with", $4f - db "some friends!", $51 - db "They're out for", $4f - db "#MON fights!", $57 - -INCBIN "baserom.gbc",$80359,$804c7 - $80359 - -_ViridianForestText8: ; 0x804c7 - db $0, "I ran out of #", $4f - db "BALLs to catch", $55 - db "#MON with!", $51 - db "You should carry", $4f - db "extras!", $57 - -_ViridianForestText9: ; 0x8050a - db $0, "TRAINER TIPS", $51 - db "If you want to", $4f - db "avoid battles,", $55 - db "stay away from", $55 - db "grassy areas!", $57 - -_ViridianForestText10: ; 0x80553 - db $0, "For poison, use", $4f - db "ANTIDOTE! Get it", $55 - db "at #MON MARTs!", $57 - -_ViridianForestText11: ; 0x80584 - db $0, "TRAINER TIPS", $51 - db "Contact PROF.OAK", $4f - db "via PC to get", $55 - db "your #DEX", $55 - db "evaluated!", $57 - -_ViridianForestText12: ; 0x805c6 - db $0, "TRAINER TIPS", $51 - db "No stealing of", $4f - db "#MON from", $55 - db "other trainers!", $55 - db "Catch only wild", $55 - db "#MON!", $57 - -_ViridianForestText13: ; 0x80613 - db $0, "TRAINER TIPS", $51 - db "Weaken #MON", $4f - db "before attempting", $55 - db "capture!", $51 - db "When healthy,", $4f - db "they may escape!", $57 - -_ViridianForestText14: ; 0x80667 - db $0, "LEAVING", $4f - db "VIRIDIAN FOREST", $55 - db "PEWTER CITY AHEAD", $57 - -INCBIN "baserom.gbc",$80692,$8093a - $80692 - -_MtMoon1Text14: ; 0x8093a - db $0, "Beware! ZUBAT is", $4f - db "a blood sucker!", $57 - -INCBIN "baserom.gbc",$8095c,$80c70 - $8095c - -_SSAnne1Text1: ; 0x80c70 - db $0, "Bonjour!", $4f - db "I am le waiter on", $55 - db "this ship!", $51 - db "I will be happy", $4f - db "to serve you any-", $55 - db "thing you please!", $51 - db "Ah! Le strong", $4f - db "silent type!", $57 - -_SSAnne1Text2: ; 0x80ce6 - db $0, "The passengers", $4f - db "are restless!", $51 - db "You might be", $4f - db "challenged by the", $55 - db "more bored ones!", $57 - -_SSAnne2Text1: ; 0x80d34 - db $0, "This ship, she is", $4f - db "a luxury liner", $55 - db "for trainers!", $51 - db "At every port, we", $4f - db "hold parties with", $55 - db "invited trainers!", $57 - -INCBIN "baserom.gbc",$80d9a,$80f4b - $80d9a - -_SSAnne3Text1: ; 0x80f4b - db $0, "Our CAPTAIN is a", $4f - db "sword master!", $51 - db "He even teaches", $4f - db "CUT to #MON!", $57 - -_SSAnne5Text1: ; 0x80f88 - db $0, "The party's over.", $4f - db "The ship will be", $55 - db "departing soon.", $57 - -_SSAnne5Text2: ; 0x80fbb - db $0, "Scrubbing decks", $4f - db "is hard work!", $57 - -_SSAnne5Text3: ; 0x80fda - db $0, "Urf. I feel ill.", $51 - db "I stepped out to", $4f - db "get some air.", $57 - -INCBIN "baserom.gbc",$8100b,$810e5 - $8100b - -_SSAnne6Text1: ; 0x810e5 - db $0, "You, mon petit!", $4f - db "We're busy here!", $55 - db "Out of the way!", $57 - -_SSAnne6Text2: ; 0x81116 - db $0, "I saw an odd ball", $4f - db "in the trash.", $57 - -_SSAnne6Text3: ; 0x81137 - db $0, "I'm so busy I'm", $4f - db "getting dizzy!", $57 - -_SSAnne6Text4: ; 0x81155 - db $0, "Hum-de-hum-de-", $4f - db "ho...", $51 - db "I peel spuds", $4f - db "every day!", $55 - db "Hum-hum...", $57 - -_SSAnne6Text5: ; 0x8118e - db $0, "Did you hear about", $4f - db "SNORLAX?", $51 - db "All it does is", $4f - db "eat and sleep!", $57 - -_SSAnne6Text6: ; 0x811c9 - db $0, "Snivel...Sniff...", $51 - db "I only get to", $4f - db "peel onions...", $55 - db "Snivel...", $57 - -INCBIN "baserom.gbc",$81203,$81480 - $81203 - -_SSAnne7Text2: ; 0x81480 - db $0, "Yuck! Shouldn't", $4f - db "have looked!", $57 - -_SSAnne7Text3: ; 0x8149d - db $0, "How to Conquer", $4f - db "Seasickness...", $55 - db "The CAPTAIN's", $55 - db "reading this!", $57 - -_SSAnne8Text8: ; 0x814d7 - db $0, "WIGGLYTUFF: Puup", $4f - db "pupuu!@@" - -INCBIN "baserom.gbc",$814f1,$1d6 - -_SSAnne8Text5: ; 0x816c7 - db $0, "Waiter, I would", $4f - db "like a cherry pie", $55 - db "please!", $57 - -_SSAnne8Text6: ; 0x816f2 - db $0, "A cruise is so", $4f - db "elegant yet cozy!", $57 - -_SSAnne8Text7: ; 0x81714 - db $0, "I always travel", $4f - db "with WIGGLYTUFF!", $57 - -_SSAnne8Text9: ; 0x81736 - db $0, "We are cruising", $4f - db "around the world.", $57 - -_SSAnne8Text11: ; 0x81759 - db $0, "Ssh! I'm a GLOBAL", $4f - db "POLICE agent!", $51 - db "I'm on the trail", $4f - db "of TEAM ROCKET!", $57 - -INCBIN "baserom.gbc",$81799,$81aaa - $81799 - -_SSAnne10Text8: ; 0x81aaa - db $0, "MACHOKE: Gwoh!", $4f - db "Goggoh!@@" - -INCBIN "baserom.gbc",$81ac3,$289 - -_SSAnne10Text7: ; 0x81d4c - db $0, "My buddy, MACHOKE,", $4f - db "is super strong!", $51 - db "He has enough", $4f - db "STRENGTH to move", $55 - db "big rocks!", $57 - -INCBIN "baserom.gbc",$81d9b,$2265 - -SECTION "bank21",DATA,BANK[$21] - -INCBIN "baserom.gbc",$84000,$840a4 - $84000 - -_SilphCo5Text9: ; 0x840a4 - db $0, "It's a #MON", $4f - db "REPORT!", $51 - db "#MON LAB", $4f - db "created PORYGON,", $55 - db "the first virtual", $55 - db "reality #MON.", $57 - -_SilphCo5Text10: ; 0x840f2 - db $0, "It's a #MON", $4f - db "REPORT!", $51 - db "Over 160 #MON", $4f - db "techniques have", $55 - db "been confirmed.", $57 - -_SilphCo5Text11: ; 0x84134 - db $0, "It's a #MON", $4f - db "REPORT!", $51 - db "4 #MON evolve", $4f - db "only when traded", $55 - db "by link-cable.", $57 - -INCBIN "baserom.gbc",$84176,$8502f - $84176 - -_SilphCo11Text2: ; 0x8502f - db $0, "SECRETARY: Thank", $4f - db "you for rescuing", $55 - db "all of us!", $51 - db "We admire your", $4f - db "courage.", $57 - -_SilphCo11Text3: ; 0x85075 - db $0, "Ah ", $52, "!", $4f - db "So we meet again!", $51 - db "The PRESIDENT and", $4f - db "I are discussing", $55 - db "a vital business", $55 - db "proposition.", $51 - db "Keep your nose", $4f - db "out of grown-up", $55 - db "matters...", $51 - db "Or, experience a", $4f - db "world of pain!", $57 - -INCBIN "baserom.gbc",$85119,$21d - -_Mansion2Text3: ; 0x85336 - db $0, "Diary: July 5", $4f - db "Guyana,", $55 - db "South America", $51 - db "A new #MON was", $4f - db "discovered deep", $55 - db "in the jungle.", $57 - -_Mansion2Text4: ; 0x85389 - db $0, "Diary: July 10", $4f - db "We christened the", $55 - db "newly discovered", $55 - db "#MON, MEW.", $57 - -INCBIN "baserom.gbc",$853c7,$854a3 - $853c7 - -_Mansion3Text5: ; 0x854a3 - db $0, "Diary: Feb. 6", $4f - db "MEW gave birth.", $51 - db "We named the", $4f - db "newborn MEWTWO.", $57 - -INCBIN "baserom.gbc",$854df,$85583 - $854df - -_Mansion4Text7: ; 0x85583 - db $0, "Diary; Sept. 1", $4f - db "MEWTWO is far too", $55 - db "powerful.", $51 - db "We have failed to", $4f - db "curb its vicious", $55 - db "tendencies...", $57 - -_SafariZoneEastText5: ; 0x855e0 - db $0, "REST HOUSE", $57 - -_SafariZoneEastText6: ; 0x855ec - db $0, "TRAINER TIPS", $51 - db "The remaining time", $4f - db "declines only", $55 - db "while you walk!", $57 - -_SafariZoneEastText7: ; 0x8562b - db $0, "CENTER AREA", $4f - db "NORTH: AREA 2", $57 - -_SafariZoneNorthText3: ; 0x85646 - db $0, "REST HOUSE", $57 - -_SafariZoneNorthText4: ; 0x85652 - db $0, "TRAINER TIPS", $51 - db "The SECRET HOUSE", $4f - db "is still ahead!", $57 - -_SafariZoneNorthText5: ; 0x85681 - db $0, "AREA 2", $57 - -_SafariZoneNorthText6: ; 0x85689 - db $0, "TRAINER TIPS", $51 - db "#MON hide in", $4f - db "tall grass!", $51 - db "Zigzag through", $4f - db "grassy areas to", $55 - db "flush them out.", $57 - -_SafariZoneNorthText7: ; 0x856df - db $0, "TRAINER TIPS", $51 - db "Win a free HM for", $4f - db "finding the", $55 - db "SECRET HOUSE!", $57 - -_SafariZoneWestText5: ; 0x85719 - db $0, "REST HOUSE", $57 - -_SafariZoneWestText6: ; 0x85725 - db $0, "REQUEST NOTICE", $51 - db "Please find the", $4f - db "SAFARI WARDEN's", $55 - db "lost GOLD TEETH.", $55 - db "They're around", $55 - db "here somewhere.", $51 - db "Reward offered!", $4f - db "Contact: WARDEN", $57 - -_SafariZoneWestText7: ; 0x857a3 - db $0, "TRAINER TIPS", $51 - db "Zone Exploration", $4f - db "Campaign!", $51 - db "The Search for", $4f - db "the SECRET HOUSE!", $57 - -_SafariZoneWestText8: ; 0x857ed - db $0, "AREA 3", $4f - db "EAST: CENTER AREA", $57 - -_SafariZoneCenterText2: ; 0x85807 - db $0, "REST HOUSE", $57 - -_SafariZoneCenterText3: ; 0x85813 - db $0, "TRAINER TIPS", $51 - db "Press the START", $4f - db "Button to check", $55 - db "remaining time!", $57 - -_SafariZoneRestHouse1Text1: ; 0x85851 - db $0, "SARA: Where did", $4f - db "my boy friend,", $55 - db "ERIK, go?", $57 - -_SafariZoneRestHouse1Text2: ; 0x8587b - db $0, "I'm catching", $4f - db "#MON to take", $55 - db "home as gifts!", $57 - -INCBIN "baserom.gbc",$858a4,$85a2f - $858a4 - -_SafariZoneRestHouse2Text1: ; 0x85a2f - db $0, "Tossing ROCKs at", $4f - db "#MON might", $55 - db "make them run,", $55 - db "but they'll be", $55 - db "easier to catch.", $57 - -_SafariZoneRestHouse2Text2: ; 0x85a7a - db $0, "Using BAIT will", $4f - db "make #MON", $55 - db "easier to catch.", $57 - -_SafariZoneRestHouse2Text3: ; 0x85aa6 - db $0, "I hiked a lot, but", $4f - db "I didn't see any", $55 - db "#MON I wanted.", $57 - -_SafariZoneRestHouse3Text1: ; 0x85ad9 - db $0, "How many did you", $4f - db "catch? I'm bushed", $55 - db "from the work!", $57 - -_SafariZoneRestHouse3Text2: ; 0x85b0b - db $0, "I caught a", $4f - db "CHANSEY!", $51 - db "That makes this", $4f - db "all worthwhile!", $57 - -_SafariZoneRestHouse3Text3: ; 0x85b40 - db $0, "Whew! I'm tired", $4f - db "from all the fun!", $57 - -_SafariZoneRestHouse4Text1: ; 0x85b62 - db $0, "You can keep any", $4f - db "item you find on", $55 - db "the ground here.", $51 - db "But, you'll run", $4f - db "out of time if", $55 - db "you try for all", $55 - db "of them at once!", $57 - -_SafariZoneRestHouse4Text2: ; 0x85bd5 - db $0, "Go to the deepest", $4f - db "part of the", $55 - db "SAFARI ZONE. You", $55 - db "will win a prize!", $57 - -_SafariZoneRestHouse4Text3: ; 0x85c17 - db $0, "My EEVEE evolved", $4f - db "into FLAREON!", $51 - db "But, a friend's", $4f - db "EEVEE turned into", $55 - db "a VAPOREON!", $55 - db "I wonder why?", $57 - -INCBIN "baserom.gbc",$85c72,$343 - -_HallofFameRoomText1: ; 0x85fb5 - db $0, "OAK: Er-hem!", $4f - db "Congratulations", $55 - db $52, "!", $51 - db "This floor is the", $4f - db "#MON HALL OF", $55 - db "FAME!", $51 - db "#MON LEAGUE", $4f - db "champions are", $55 - db "honored for their", $55 - db "exploits here!", $51 - db "Their #MON are", $4f - db "also recorded in", $55 - db "the HALL OF FAME!", $51 - db $52, "! You have", $4f - db "endeavored hard", $55 - db "to become the new", $55 - db "LEAGUE champion!", $51 - db "Congratulations,", $4f - db $52, ", you and", $55 - db "your #MON are", $55 - db "HALL OF FAMERs!", $57 - -INCBIN "baserom.gbc",$860e1,$863c1 - $860e1 - -_GaryText2: ; 0x863c1 - db $0, "OAK: ", $52, "!", $57 - -INCBIN "baserom.gbc",$863ca,$1c36 - -SECTION "bank22",DATA,BANK[$22] - -INCBIN "baserom.gbc",$88000,$8807e - $88000 - -_SeafoamIslands5Text4: ; 0x8807e - db $0, "Boulders might", $4f - db "change the flow", $55 - db "of water!", $57 - -_SeafoamIslands5Text5: ; 0x880a8 - db $0, "DANGER", $4f - db "Fast current!", $57 - -_AIBattleWithdrawText: - db 1 - dw $D04A - db 0," with-",$4F,"drew @",1 - dw $CFDA - db 0,"!",$58 -_AIBattleUseItemText: - db 1 - dw $D04A - db 0,$4F,"used @",1 - dw $CD6D - db 0,$55,"on @",1 - dw $CFDA - db 0,"!",$58 - -INCBIN "baserom.gbc",$880EF,$89784 - $880EF - -_TrainerAboutToUseText: - db 1 - dw $D04A - db 0," is",$4F - db "about to use",$55,"@",1 - dw $CFDA - db 0,"!",$51 - db "Will ",$52,$4F - db "change #MON?",$57 - -_TrainerSentOutText: - db 1 - dw $D04A - db 0," sent",$4F - db "out @",1 - dw $CFDA - db 0,"!",$57 - -INCBIN "baserom.gbc",$897C9,$898AA - $897C9 - -_MultiHitText: - db 0,"Hit the enemy",$4F,"@" - TX_NUM W_NUMHITS,1,1 - db 0," times!",$58 - -_ScaredText: - db 1 - dw $D009 - db 0," is too",$4F - db "scared to move!",$58 - -_GetOutText: - db 0,"GHOST: Get out...",$4F - db "Get out...",$58 - -_FastAsleepText: - db 0,$5A,$4F - db "is fast asleep!",$58 - -_WokeUpText: - db 0,$5A,$4F - db "woke up!",$58 - -_FrozenText: - db 0,$5A,$4F - db "is frozen solid!",$58 - -_FullyParalyzedText: - db 0,$5A,"'s",$4F - db "fully paralyzed!",$58 - -_FlinchedText: - db 0,$5A,$4F - db "flinched!",$58 - -_MustRechargeText: - db 0,$5A,$4F - db "must recharge!",$58 - -_DisabledNoMoreText: - db 0,$5A,"'s",$4F - db "disabled no more!",$58 - -_IsConfusedText: - db 0,$5A,$4F - db "is confused!",$58 - -_HurtItselfText: - db 0,"It hurt itself in",$4F - db "its confusion!",$58 - -_ConfusedNoMoreText: - db 0,$5A,"'s",$4F - db "confused no more!",$58 - -_SavingEnergyText: - db 0,$5A,$4F - db "is saving energy!",$58 - -_UnleashedEnergyText: - db 0,$5A,$4F - db "unleashed energy!",$58 - -_ThrashingAboutText: - db 0,$5A,"'s",$4F - db "thrashing about!",$57 - -_AttackContinuesText: - db 0,$5A,"'s",$4F - db "attack continues!",$57 - -_CantMoveText: - db 0,$5A,$4F - db "can't move!",$58 - -INCBIN "baserom.gbc",$89A29,$8A28E - $89A29 - -_RequireCoinCaseText: ; 22:628E - db 0,"A COIN CASE is",$4F - db "required!@@" - -_ExchangeCoinsForPrizesText: ; 22:62A9 - db 0,"We exchange your",$4F - db "coins for prizes.",$58 - -_WhichPrizeText: ; 22:62CD - db 0,"Which prize do",$4F - db "you want?",$57 - -_HereYouGoText: ; 22:62E7 - db 0,"Here you go!@@" - -_SoYouWantPrizeText: ; 22:62F6 - db 0,"So, you want",$4F - db "@" - db 1 - dw $CD6D - db 0,"?",$57 - -_SorryNeedMoreCoins: ; 22:630B - db 0,"Sorry, you need",$4F - db "more coins.@@" - -_OopsYouDontHaveEnoughRoomText: ; 22:6329 - db 0,"Oops! You don't",$4F - db "have enough room.@@" - -_OhFineThenText: ; 22:634C - db 0,"Oh, fine then.@@" -;635d - -INCBIN "baserom.gbc",$8A35D,$8A425 - $8A35D - -INCLUDE "text/oakspeech.tx" - -INCBIN "baserom.gbc",$8A605,$6696 - $6605 - -_Char00Text: - TX_NUM $FF8C,1,2 - db 0," ERROR.",$57 - -_Char55Text: - db 0,$4B,"@@" - -_DiglettsCaveRoute2Text1: ; 0x8a6a7 - db $0, "I went to ROCK", $4f - db "TUNNEL, but it's", $55 - db "dark and scary.", $51 - db "If a #MON's", $4f - db "FLASH could light", $55 - db "it up...", $57 - -_ViridianForestexitText1: ; 0x8a6fd - db $0, "Many #MON live", $4f - db "only in forests ", $55 - db "and caves.", $51 - db "You need to look", $4f - db "everywhere to get", $55 - db "different kinds!", $57 - -_ViridianForestexitText2: ; 0x8a75d - db $0, "Have you noticed", $4f - db "the bushes on the", $55 - db "roadside?", $51 - db "They can be cut", $4f - db "down by a special", $55 - db "#MON move.", $57 - -_Route2HouseText1: ; 0x8a7b8 - db $0, "A fainted #MON", $4f - db "can't fight. But, ", $55 - db "it can still use ", $55 - db "moves like CUT!", $57 - -INCBIN "baserom.gbc",$8a7fc,$8a82c - $8a7fc - -_Route2GateText2: ; 0x8a82c - db $0, "Once a #MON", $4f - db "learns FLASH, you", $55 - db "can get through", $55 - db "ROCK TUNNEL.", $57 - -_ViridianForestEntranceText1: ; 0x8a868 - db $0, "Are you going to", $4f - db "VIRIDIAN FOREST?", $55 - db "Be careful, it's", $55 - db "a natural maze!", $57 - -_ViridianForestEntranceText2: ; 0x8a8ab - db $0, "RATTATA may be", $4f - db "small, but its", $55 - db "bite is wicked!", $55 - db "Did you get one?", $57 - -_MtMoonPokecenterText1: ; 0x8a8eb - db $0, "I've 6 # BALLs", $4f - db "set in my belt.", $51 - db "At most, you can", $4f - db "carry 6 #MON.", $57 - -_MtMoonPokecenterText3: ; 0x8a929 - db $0, "TEAM ROCKET", $4f - db "attacks CERULEAN", $55 - db "citizens...", $51 - db "TEAM ROCKET is", $4f - db "always in the", $55 - db "news!", $57 - -INCBIN "baserom.gbc",$8a976,$8aa5a - $8a976 - -_MtMoonPokecenterText5: ; 0x8aa5a - db $0, $57 - -INCBIN "baserom.gbc",$8aa5c,$15a4 - -SECTION "bank23",DATA,BANK[$23] - -INCBIN "baserom.gbc",$8c000,$8c0cb - $8c000 - -_UndergroundTunnelEntranceRoute6Text1: ; 0x8c0cb - db $0, "People often lose", $4f - db "things in that", $55 - db "UNDERGROUND PATH.", $57 - -_UndergroundPathEntranceRoute7Text1: ; 0x8c0ff - db $0, "I heard a sleepy", $4f - db "#MON appeared", $55 - db "near CELADON CITY.", $57 - -INCBIN "baserom.gbc",$8c132,$8c28d - $8c132 - -_UndergroundPathEntranceRoute8Text1: ; 0x8c28d - db $0, "The dept. store", $4f - db "in CELADON has a", $55 - db "great selection!", $57 - -_RockTunnelPokecenterText1: ; 0x8c2c0 - db $0, "The element types", $4f - db "of #MON make", $55 - db "them stronger", $55 - db "than some types", $55 - db "and weaker than", $55 - db "others!", $57 - -_RockTunnelPokecenterText3: ; 0x8c316 - db $0, "I sold a useless", $4f - db "NUGGET for ", $f0, "5000!", $57 - -INCBIN "baserom.gbc",$8c33a,$8c5b7 - $8c33a - -_RockTunnel1Text8: ; 0x8c5b7 - db $0, "ROCK TUNNEL", $4f - db "CERULEAN CITY -", $55 - db "LAVENDER TOWN", $57 - -INCBIN "baserom.gbc",$8c5e2,$8c5f3 - $8c5e2 - -_Route11GateText1: ; 0x8c5f3 - db $0, "When you catch", $4f - db "lots of #MON,", $55 - db "isn't it hard to", $55 - db "think up names?", $51 - db "In LAVENDER TOWN,", $4f - db "there's a man who", $55 - db "rates #MON", $55 - db "nicknames.", $51 - db "He'll help you", $4f - db "rename them too!", $57 - -INCBIN "baserom.gbc",$8c689,$8c7f9 - $8c689 - -_DiglettsCaveEntranceRoute11Text1: ; 0x8c7f9 - db $0, "What a surprise!", $4f - db "DIGLETTs dug this", $55 - db "long tunnel!", $51 - db "It goes right to", $4f - db "VIRIDIAN CITY!", $57 - -_Route12GateText1: ; 0x8c84a - db $0, "There's a lookout", $4f - db "spot upstairs.", $57 - -INCBIN "baserom.gbc",$8c86b,$8cb73 - $8c86b - -_Route15GateText1: ; 0x8cb73 - db $0, "Are you working", $4f - db "on a #DEX?", $51 - db "PROF.OAK's AIDE", $4f - db "came by here.", $57 - -INCBIN "baserom.gbc",$8cbac,$8cd2a - $8cbac - -_Route16GateMapText2: ; 0x8cd2a - db $0, "How'd you get in?", $4f - db "Good effort!", $57 - -INCBIN "baserom.gbc",$8cd49,$956 - -_Route1Text2: ; 0x8d69f - db $0, "See those ledges", $4f - db "along the road?", $51 - db "It's a bit scary,", $4f - db "but you can jump", $55 - db "from them.", $51 - db "You can get back", $4f - db "to PALLET TOWN", $55 - db "quicker that way.", $57 - -_Route1Text3: ; 0x8d720 - db $0, "ROUTE 1", $4f - db "PALLET TOWN -", $55 - db "VIRIDIAN CITY", $57 - -_Route2Text3: ; 0x8d745 - db $0, "ROUTE 2", $4f - db "VIRIDIAN CITY -", $55 - db "PEWTER CITY", $57 - -_Route2Text4: ; 0x8d76a - db $0, "DIGLETT's CAVE", $57 - -_Route3Text1: ; 0x8d779 - db $0, "Whew... I better", $4f - db "take a rest...", $55 - db "Groan...", $51 - db "That tunnel from", $4f - db "CERULEAN takes a", $55 - db "lot out of you!", $57 - -INCBIN "baserom.gbc",$8d7d5,$8db07 - $8d7d5 - -_Route3Text10: ; 0x8db07 - db $0, "ROUTE 3", $4f - db "MT.MOON AHEAD", $57 - -_Route4Text1: ; 0x8db1e - db $0, "Ouch! I tripped", $4f - db "over a rocky", $55 - db "#MON, GEODUDE!", $57 - -INCBIN "baserom.gbc",$8db4b,$8dbcd - $8db4b - -_Route4Text5: ; 0x8dbcd - db $0, "MT.MOON", $4f - db "Tunnel Entrance", $57 - -_Route4Text6: ; 0x8dbe6 - db $0, "ROUTE 4", $4f - db "MT.MOON -", $55 - db "CERULEAN CITY", $57 - -_Route5Text1: ; 0x8dc07 - db $0, "UNDERGROUND PATH", $4f - db "CERULEAN CITY -", $55 - db "VERMILION CITY", $57 - -INCBIN "baserom.gbc",$8dc38,$8de49 - $8dc38 - -_Route6Text7: ; 0x8de49 - db $0, "UNDERGROUND PATH", $4f - db "CERULEAN CITY -", $55 - db "VERMILION CITY", $57 - -_Route7Text1: ; 0x8de7a - db $0, "UNDERGROUND PATH", $4f - db "CELADON CITY -", $55 - db "LAVENDER TOWN", $57 - -INCBIN "baserom.gbc",$8dea9,$8e262 - $8dea9 - -_Route8Text10: ; 0x8e262 - db $0, "UNDERGROUND PATH", $4f - db "CELADON CITY -", $55 - db "LAVENDER TOWN", $57 - -INCBIN "baserom.gbc",$8e291,$8e61e - $8e291 - -_Route9Text11: ; 0x8e61e - db $0, "ROUTE 9", $4f - db "CERULEAN CITY-", $55 - db "ROCK TUNNEL", $57 - -INCBIN "baserom.gbc",$8e642,$8e8d4 - $8e642 - -_Route10Text9: ; 0x8e8d4 -_Route10Text7: ; 0x8e8d4 - db $0, "ROCK TUNNEL", $57 - -_Route10Text10: ; 0x8e8e1 - db $0, "POWER PLANT", $57 - -INCBIN "baserom.gbc",$8e8ee,$1712 - -SECTION "bank24",DATA,BANK[$24] - -INCBIN "baserom.gbc",$90000,$9008f - $90000 - -_Route11Text11: ; 0x9008f - db $0, "DIGLETT's CAVE", $57 - -_Route12Text1: ; 0x9009e - db $0, "A sleeping #MON", $4f - db "blocks the way!", $57 - -INCBIN "baserom.gbc",$900bf,$903bc - $900bf - -_Route12Text11: ; 0x903bc - db $0, "ROUTE 12 ", $4f - db "North to LAVENDER", $57 - -_Route12Text12: ; 0x903d9 - db $0, "SPORT FISHING AREA", $57 - -INCBIN "baserom.gbc",$903ed,$90781 - $903ed - -_Route13Text11: ; 0x90781 - db $0, "TRAINER TIPS", $51 - db "Look to the left", $4f - db "of that post!", $57 - -_Route13Text12: ; 0x907ae - db $0, "TRAINER TIPS", $51 - db "Use SELECT to", $4f - db "switch items in", $55 - db "the ITEM window!", $57 - -_Route13Text13: ; 0x907eb - db $0, "ROUTE 13", $4f - db "North to SILENCE", $55 - db "BRIDGE", $57 - -INCBIN "baserom.gbc",$9080d,$90c1f - $9080d - -_Route14Text11: ; 0x90c1f - db $0, "ROUTE 14", $4f - db "West to FUCHSIA", $55 - db "CITY", $57 - -INCBIN "baserom.gbc",$90c3e,$91062 - $90c3e - -_Route15Text12: ; 0x91062 - db $0, "ROUTE 15", $4f - db "West to FUCHSIA", $55 - db "CITY", $57 - -INCBIN "baserom.gbc",$91081,$91287 - $91081 - -_Route16Text7: ; 0x91287 - db $0, "A sleeping #MON", $4f - db "blocks the way!", $57 - -INCBIN "baserom.gbc",$912a8,$9130d - $912a8 - -_Route16Text8: ; 0x9130d - db $0, "Enjoy the slope!", $4f - db "CYCLING ROAD", $57 - -_Route16Text9: ; 0x9132c - db $0, "ROUTE 16", $4f - db "CELADON CITY -", $55 - db "FUCHSIA CITY", $57 - -INCBIN "baserom.gbc",$91352,$91649 - $91352 - -_Route17Text11: ; 0x91649 - db $0, "It's a notice!", $51 - db "Watch out for", $4f - db "discarded items!", $57 - -_Route17Text12: ; 0x91677 - db $0, "TRAINER TIPS", $51 - db "All #MON are", $4f - db "unique.", $51 - db "Even #MON of", $4f - db "the same type and", $55 - db "level grow at", $55 - db "different rates.", $57 - -_Route17Text13: ; 0x916d8 - db $0, "TRAINER TIPS", $51 - db "Press the A or B", $4f - db "Button to stay in", $55 - db "place while on a", $55 - db "slope.", $57 - -_Route17Text14: ; 0x91721 - db $0, "ROUTE 17", $4f - db "CELADON CITY -", $55 - db "FUCHSIA CITY", $57 - -_Route17Text15: ; 0x91747 - db $0, "It's a notice!", $51 - db "Don't throw the", $4f - db "game, throw #", $55 - db "BALLs instead!", $57 - -_Route17Text16: ; 0x91782 - db $0, "CYCLING ROAD", $4f - db "Slope ends here!", $57 - -INCBIN "baserom.gbc",$917a1,$9189d - $917a1 - -_Route18Text4: ; 0x9189d - db $0, "ROUTE 18", $4f - db "CELADON CITY -", $55 - db "FUCHSIA CITY", $57 - -_Route18Text5: ; 0x918c3 - db $0, "CYCLING ROAD", $4f - db "No pedestrians", $55 - db "permitted!", $57 - -INCBIN "baserom.gbc",$918eb,$91c3c - $918eb - -_Route19Text11: ; 0x91c3c - db $0, "SEA ROUTE 19", $4f - db "FUCHSIA CITY -", $55 - db "SEAFOAM ISLANDS", $57 - -INCBIN "baserom.gbc",$91c69,$91fa7 - $91c69 - -_Route20Text12: ; 0x91fa7 -_Route20Text11: ; 0x91fa7 - db $0, "SEAFOAM ISLANDS", $57 - -INCBIN "baserom.gbc",$91fb8,$92606 - $91fb8 - -_Route22Text3: ; 0x92606 - db $0, "#MON LEAGUE", $4f - db "Front Gate", $57 - -INCBIN "baserom.gbc",$9261e,$92700 - $9261e - -_Route23Text8: ; 0x92700 - db $0, "VICTORY ROAD GATE", $4f - db "- #MON LEAGUE", $57 - -INCBIN "baserom.gbc",$92721,$18df - -SECTION "bank25",DATA,BANK[$25] - -INCBIN "baserom.gbc",$94000,$945d3 - $94000 - -_Route25Text11: ; 0x945d3 - db $0, "SEA COTTAGE", $4f - db "BILL lives here!", $57 - -INCBIN "baserom.gbc",$945f1,$94b01 - $945f1 - -_BattleCenterMText1: ; 0x94b01 - db $0, "!", $57 - -_TradeCenterMText1: ; 0x94b04 - db $0, "!", $57 - -INCLUDE "text/mapRedsHouse1F.tx" -INCLUDE "text/mapBluesHouse.tx" - -INCBIN "baserom.gbc",$94d5b,$95268 - $94d5b - -_OaksLabText8: ; 0x95268 - db $0, "?", $57 - -INCBIN "baserom.gbc",$9526b,$95ba1 - $9526b - -_ViridianPokeCenterText2: ; 0x95ba1 -_ViridianPokeCenterText1: ; 0x95ba1 - db $0, "You can use that", $4f - db "PC in the corner.", $51 - db "The receptionist", $4f - db "told me. So kind!", $57 - -_ViridianPokeCenterText3: ; 0x95be8 - db $0, "There's a #MON", $4f - db "CENTER in every", $55 - db "town ahead.", $51 - db "They don't charge", $4f - db "any money either!", $57 - -_ViridianMartText1: ; 0x95c36 - db $0, "Okay! Say hi to", $4f - db "PROF.OAK for me!", $57 - -INCBIN "baserom.gbc",$95c58,$95cd5 - $95c58 - -_ViridianMartText2: ; 0x95cd5 - db $0, "This shop sells", $4f - db "many ANTIDOTEs.", $57 - -_ViridianMartText3: ; 0x95cf6 - db $0, "No! POTIONs are", $4f - db "all sold out.", $57 - -_SchoolText1: ; 0x95d15 - db $0, "Whew! I'm trying", $4f - db "to memorize all", $55 - db "my notes.", $57 - -_SchoolText2: ; 0x95d40 - db $0, "Okay!", $51 - db "Be sure to read", $4f - db "the blackboard", $55 - db "carefully!", $57 - -_ViridianHouseText1: ; 0x95d71 - db $0, "Coming up with", $4f - db "nicknames is fun,", $55 - db "but hard.", $51 - db "Simple names are", $4f - db "the easiest to", $55 - db "remember.", $57 - -_ViridianHouseText2: ; 0x95dc7 - db $0, "My Daddy loves", $4f - db "#MON too.", $57 - -INCBIN "baserom.gbc",$95de1,$95df3 - $95de1 - -_ViridianHouseText4: ; 0x95df3 - db $0, "SPEAROW", $4f - db "Name: SPEARY", $57 - -INCBIN "baserom.gbc",$95e09,$96841 - $95e09 - -_MuseumF2Text1: ; 0x96841 - db $0, "MOON STONE?", $51 - db "What's so special", $4f - db "about it?", $57 - -_MuseumF2Text2: ; 0x96869 - db $0, "July 20, 1969!", $51 - db "The 1st lunar", $4f - db "landing!", $51 - db "I bought a color", $4f - db "TV to watch it!", $57 - -_MuseumF2Text3: ; 0x968b1 - db $0, "We have a space", $4f - db "exhibit now.", $57 - -_MuseumF2Text4: ; 0x968cf - db $0, "I want a PIKACHU!", $4f - db "It's so cute!", $51 - db "I asked my Daddy", $4f - db "to catch me one!", $57 - -_MuseumF2Text5: ; 0x96911 - db $0, "Yeah, a PIKACHU", $4f - db "soon, I promise!", $57 - -_MuseumF2Text6: ; 0x96933 - db $0, "SPACE SHUTTLE", $4f - db "COLUMBIA", $57 - -_MuseumF2Text7: ; 0x9694b - db $0, "Meteorite that", $4f - db "fell on MT.MOON.", $55 - db "(MOON STONE?)", $57 - -INCBIN "baserom.gbc",$9697a,$1686 - -SECTION "bank26",DATA,BANK[$26] - -INCBIN "baserom.gbc",$98000,$984ce - $98000 - -_PewterHouse1Text1: ; 0x984ce - db $0, "NIDORAN: Bowbow!@@" - -_PewterHouse1Text2: ; 0x984e1 - db $0, "NIDORAN sit!", $57 - -_PewterHouse1Text3: ; 0x984ef - db $0, "Our #MON's an", $4f - db "outsider, so it's", $55 - db "hard to handle.", $51 - db "An outsider is a", $4f - db "#MON that you", $55 - db "get in a trade.", $51 - db "It grows fast, but", $4f - db "it may ignore an", $55 - db "unskilled trainer", $55 - db "in battle!", $51 - db "If only we had", $4f - db "some BADGEs...", $57 - -INCBIN "baserom.gbc",$985ac,$98656 - $985ac - -_PewterHouse2Text1: ; 0x98656 - db $0, "#MON learn new", $4f - db "techniques as", $55 - db "they grow!", $51 - db "But, some moves", $4f - db "must be taught by", $55 - db "the trainer!", $57 - -_PewterHouse2Text2: ; 0x986ae - db $0, "#MON become", $4f - db "easier to catch", $55 - db "when they are", $55 - db "hurt or asleep!", $51 - db "But, it's not a", $4f - db "sure thing!", $57 - -_PewterPokecenterText1: ; 0x98704 - db $0, "What!?", $51 - db "TEAM ROCKET is", $4f - db "at MT.MOON? Huh?", $55 - db "I'm on the phone!", $51 - db "Scram!", $57 - -INCBIN "baserom.gbc",$98744,$98834 - $98744 - -_CeruleanHouseTrashedText2: ; 0x98834 - db $0, "TEAM ROCKET must", $4f - db "be trying to DIG", $55 - db "their way into no", $55 - db "good!", $57 - -_CeruleanHouseTrashedText3: ; 0x9886f - db $0, "TEAM ROCKET left", $4f - db "a way out!", $57 - -_CeruleanHouse2Text1: ; 0x9888c - db $0, "My husband likes", $4f - db "trading #MON.", $51 - db "If you are a", $4f - db "collector, would", $55 - db "you please trade", $55 - db "with him?", $57 - -_CeruleanPokecenterText1: ; 0x988e5 - db $0, "That BILL!", $51 - db "I heard that", $4f - db "he'll do whatever", $55 - db "it takes to get", $55 - db "rare #MON!", $57 - -_CeruleanPokecenterText3: ; 0x9892a - db $0, "Have you heard", $4f - db "about BILL?", $51 - db "Everyone calls", $4f - db "him a #MANIAC!", $51 - db "I think people", $4f - db "are just jealous", $55 - db "of BILL, though.", $51 - db "Who wouldn't want", $4f - db "to boast about", $55 - db "their #MON?", $57 - -INCBIN "baserom.gbc",$989c1,$99012 - $989c1 - -_CeruleanMartText2: ; 0x99012 - db $0, "Use REPEL to keep", $4f - db "bugs and weak", $55 - db "#MON away.", $51 - db "Put your strongest", $4f - db "#MON at the", $55 - db "top of the list", $55 - db "for best results!", $57 - -_CeruleanMartText3: ; 0x9907f - db $0, "Have you seen any", $4f - db "RARE CANDY?", $51 - db "It's supposed to", $4f - db "make #MON go", $55 - db "up one level!", $57 - -INCBIN "baserom.gbc",$990c9,$9940e - $990c9 - -_LavenderPokecenterText4: -_LavenderPokecenterText2: -_LavenderPokecenterText1: ; 0x9940e - db $0, "TEAM ROCKET will", $4f - db "do anything for", $55 - db "the sake of gold!", $57 - -_LavenderPokecenterText3: ; 0x99442 - db $0, "I saw CUBONE's", $4f - db "mother die trying", $55 - db "to escape from", $55 - db "TEAM ROCKET!", $57 - -_PokemonTower1Text1: ; 0x9947f - db $0, "#MON TOWER was", $4f - db "erected in the", $55 - db "memory of #MON", $55 - db "that had died.", $57 - -_PokemonTower1Text2: ; 0x994bc - db $0, "Did you come to", $4f - db "pay respects?", $55 - db "Bless you!", $57 - -_PokemonTower1Text3: ; 0x994e6 - db $0, "I came to pray", $4f - db "for my CLEFAIRY.", $51 - db "Sniff! I can't", $4f - db "stop crying...", $57 - -_PokemonTower1Text4: ; 0x99524 - db $0, "My GROWLITHE...", $4f - db "Why did you die?", $57 - -_PokemonTower1Text5: ; 0x99546 - db $0, "I am a CHANNELER!", $4f - db "There are spirits", $55 - db "up to mischief!", $57 - -INCBIN "baserom.gbc",$9957b,$9971a - $9957b - -_PokemonTower2Text2: ; 0x9971a - db $0, "Even we could not", $4f - db "identify the", $55 - db "wayward GHOSTs!", $51 - db "A SILPH SCOPE", $4f - db "might be able to", $55 - db "unmask them.", $57 - -INCBIN "baserom.gbc",$99776,$99958 - $99776 - -_PokemonTower5Text1: ; 0x99958 - db $0, "Come, child! I", $4f - db "sealed this space", $55 - db "with white magic!", $51 - db "You can rest here!", $57 - -INCBIN "baserom.gbc",$9999f,$99f72 - $9999f - -_LavenderHouse1Text3: ; 0x99f72 - db $0, "PSYDUCK: Gwappa!@@" - -_LavenderHouse1Text4: ; 0x99f85 - db $0, "NIDORINO: Gaoo!@@" - -INCBIN "baserom.gbc",$99f97,$9a0aa - $99f97 - -_LavenderHouse1Text6: ; 0x9a0aa - db $0, "#MON Monthly", $4f - db "Grand Prize", $55 - db "Drawing!", $51 - db "The application", $4f - db "form is...", $51 - db "Gone! It's been", $4f - db "clipped out!", $57 - -_LavenderMartText2: ; 0x9a104 - db $0, "I'm searching for", $4f - db "items that raise", $55 - db "the abilities of", $55 - db "#MON during a", $55 - db "single battle.", $51 - db "X ATTACK, X", $4f - db "DEFEND, X SPEED", $55 - db "and X SPECIAL are", $55 - db "what I'm after.", $51 - db "Do you know where", $4f - db "I can get them?", $57 - -INCBIN "baserom.gbc",$9a1b4,$9a238 - $9a1b4 - -_LavenderHouse2Text1: ; 0x9a238 - db $0, "CUBONE: Kyarugoo!@@" - -INCBIN "baserom.gbc",$9a24c,$266 - -_VermilionPokecenterText2: ; 0x9a4b2 -_VermilionPokecenterText1: ; 0x9a4b2 - db $0, "Even if they are", $4f - db "the same level,", $55 - db "#MON can have", $55 - db "very different", $55 - db "abilities.", $51 - db "A #MON raised", $4f - db "by a trainer is", $55 - db "stronger than one", $55 - db "in the wild.", $57 - -_VermilionPokecenterText3: ; 0x9a539 - db $0, "My #MON was", $4f - db "poisoned! It", $55 - db "fainted while we", $55 - db "were walking!", $57 - -INCBIN "baserom.gbc",$9a572,$9a948 - $9a572 - -_FanClubText6: ; 0x9a948 - db $0, "Our Chairman is", $4f - db "very vocal about", $55 - db "#MON.", $57 - -_FanClubText7: ; 0x9a970 - db $0, "Let's all listen", $4f - db "politely to other", $55 - db "trainers!", $57 - -_FanClubText8: ; 0x9a99d - db $0, "If someone brags,", $4f - db "brag right back!", $57 - -_VermilionMartText2: ; 0x9a9c1 - db $0, "There are evil", $4f - db "people who will", $55 - db "use #MON for", $55 - db "criminal acts.", $51 - db "TEAM ROCKET", $4f - db "traffics in rare", $55 - db "#MON.", $51 - db "They also abandon", $4f - db "#MON that they", $55 - db "consider not to", $55 - db "be popular or", $55 - db "useful.", $57 - -_VermilionMartText3: ; 0x9aa67 - db $0, "I think #MON", $4f - db "can be good or", $55 - db "evil. It depends", $55 - db "on the trainer.", $57 - -INCBIN "baserom.gbc",$9aaa5,$155b - -SECTION "bank27",DATA,BANK[$27] -INCBIN "baserom.gbc",$9c000,$9c449 - $9c000 - -_VermilionHouse1Text1: ; 0x9c449 - db $0, "I'm getting my", $4f - db "PIDGEY to fly a", $55 - db "letter to SAFFRON", $55 - db "in the north!", $57 - -_VermilionHouse1Text2: ; 0x9c488 - db $0, "PIDGEY: Kurukkoo!@@" - -_VermilionHouse1Text3: ; 0x9c49c - db $0, "Dear PIPPI, I hope", $4f - db "to see you soon.", $51 - db "I heard SAFFRON", $4f - db "has problems with", $55 - db "TEAM ROCKET.", $51 - db "VERMILION appears", $4f - db "to be safe.", $57 - -INCBIN "baserom.gbc",$9c50e,$9c672 - $9c50e - -_CeladonMart1Text1: ; 0x9c672 - db $0, "Hello! Welcome to", $4f - db "CELADON DEPT.", $55 - db "STORE.", $51 - db "The board on the", $4f - db "right describes", $55 - db "the store layout.", $57 - -_CeladonMart1Text2: ; 0x9c6cd - db $0, "1F: SERVICE", $4f - db " COUNTER", $51 - db "2F: TRAINER'S", $4f - db " MARKET", $51 - db "3F: TV GAME SHOP", $51 - db "4F: WISEMAN GIFTS", $51 - db "5F: DRUG STORE", $51 - db "ROOFTOP SQUARE:", $4f - db "VENDING MACHINES", $57 - -_CeladonMart1Text3: ; 0x9c752 - db $0, "1F: SERVICE", $4f - db " COUNTER", $57 - -_CeladonMart2Text3: ; 0x9c76b - db $0, "SUPER REPEL keeps", $4f - db "weak #MON at", $55 - db "bay...", $51 - db "Hmm, it's a more", $4f - db "powerful REPEL!", $57 - -_CeladonMart2Text4: ; 0x9c7b2 - db $0, "For long outings,", $4f - db "you should buy", $55 - db "REVIVE.", $57 - -_CeladonMart2Text5: ; 0x9c7dc - db $0, "Top Grade Items", $4f - db "for Trainers!", $51 - db "2F: TRAINER'S", $4f - db " MARKET", $57 - -INCBIN "baserom.gbc",$9c814,$9c8c7 - $9c814 - -_CeladonMart3Text2: ; 0x9c8c7 - db $0, "Captured #MON", $4f - db "are registered", $55 - db "with an ID No.", $55 - db "and OT, the name", $55 - db "of the Original", $55 - db "Trainer that", $55 - db "caught it!", $57 - -_CeladonMart3Text3: ; 0x9c92d - db $0, "All right!", $51 - db "My buddy's going", $4f - db "to trade me his", $55 - db "KANGASKHAN for my", $55 - db "GRAVELER!", $57 - -_CeladonMart3Text4: ; 0x9c975 - db $0, "Come on GRAVELER!", $51 - db "I love GRAVELER!", $4f - db "I collect them!", $51 - db "Huh?", $51 - db "GRAVELER turned", $4f - db "into a different", $55 - db "#MON!", $57 - -_CeladonMart3Text5: ; 0x9c9d5 - db $0, "You can identify", $4f - db "#MON you got", $55 - db "in trades by", $55 - db "their ID Numbers!", $57 - -_CeladonMart3Text6: ; 0x9ca13 - db $0, "It's an SNES!", $57 - -_CeladonMart3Text7: ; 0x9ca21 - db $0, "An RPG! There's", $4f - db "no time for that!", $57 - -_CeladonMart3Text9: ; 0x9ca43 - db $0, "A sports game!", $4f - db "Dad'll like that!", $57 - -_CeladonMart3Text11: ; 0x9ca64 - db $0, "A puzzle game!", $4f - db "Looks addictive!", $57 - -_CeladonMart3Text13: ; 0x9ca85 - db $0, "A fighting game!", $4f - db "Looks tough!", $57 - -_CeladonMart3Text14: ; 0x9caa4 - db $0, "3F: TV GAME SHOP", $57 - -_CeladonMart3Text15: ; 0x9cab6 - db $0, "Red and Blue!", $4f - db "Both are #MON!", $57 - -_CeladonMart4Text2: ; 0x9cad4 - db $0, "I'm getting a", $4f - db "# DOLL for my", $55 - db "girl friend!", $57 - -_CeladonMart4Text3: ; 0x9cafd - db $0, "I heard something", $4f - db "useful.", $51 - db "You can run from", $4f - db "wild #MON by", $55 - db "distracting them", $55 - db "with a # DOLL!", $57 - -_CeladonMart4Text4: ; 0x9cb56 - db $0, "Express yourself", $4f - db "with gifts!", $51 - db "4F: WISEMAN GIFTS", $51 - db "Evolution Special!", $4f - db "Element STONEs on", $55 - db "sale now!", $57 - -INCBIN "baserom.gbc",$9cbb5,$9cd97 - $9cbb5 - -_CeladonMartRoofText1: ; 0x9cd97 - db $0, "My sister is a", $4f - db "trainer, believe", $55 - db "it or not.", $51 - db "But, she's so", $4f - db "immature, she", $55 - db "drives me nuts!", $57 - -INCBIN "baserom.gbc",$9cdee,$9ce50 - $9cdee - -_CeladonMartRoofText6: ; 0x9ce50 - db $0, "ROOFTOP SQUARE:", $4f - db "VENDING MACHINES", $57 - -INCBIN "baserom.gbc",$9ce72,$9ceee - $9ce72 - -_CeladonMansion1Text1: ; 0x9ceee - db $0, "MEOWTH: Meow!@@" - -_CeladonMansion1Text2: ; 0x9cefe - db $0, "My dear #MON", $4f - db "keep me company.", $51 - db "MEOWTH even brings", $4f - db "money home!", $57 - -_CeladonMansion1Text3: ; 0x9cf3c - db $0, "CLEFAIRY: Pi", $4f - db "pippippi!@@" - -_CeladonMansion1Text4: ; 0x9cf55 - db $0, "NIDORAN: Kya", $4f - db "kyaoo!@@" - -_CeladonMansion1Text5: ; 0x9cf6b - db $0, "CELADON MANSION", $4f - db "Manager's Suite", $57 - -_CeladonMansion2Text1: ; 0x9cf8b - db $0, "GAME FREAK", $4f - db "Meeting Room", $57 - -_CeladonMansion3Text1: ; 0x9cfa4 - db $0, "Me? I'm the", $4f - db "programmer!", $57 - -_CeladonMansion3Text2: ; 0x9cfbc - db $0, "I'm the graphic", $4f - db "artist!", $55 - db "I drew you!", $57 - -_CeladonMansion3Text3: ; 0x9cfe0 - db $0, "I wrote the story!", $4f - db "Isn't ERIKA cute?", $51 - db "I like MISTY a", $4f - db "lot too!", $51 - db "Oh, and SABRINA,", $4f - db "I like her!", $57 - -INCBIN "baserom.gbc",$9d03a,$9d0ed - $9d03a - -_CeladonMansion3Text5: ; 0x9d0ed - db $0, "It's the game", $4f - db "program! Messing", $55 - db "with it could bug", $55 - db "out the game!", $57 - -_CeladonMansion3Text6: ; 0x9d12c - db $0, "Someone's playing", $4f - db "a game instead of", $55 - db "working!", $57 - -_CeladonMansion3Text7: ; 0x9d159 - db $0, "It's the script!", $4f - db "Better not look", $55 - db "at the ending!", $57 - -_CeladonMansion3Text8: ; 0x9d189 - db $0, "GAME FREAK", $4f - db "Development Room", $57 - -_CeladonMansion4Text1: ; 0x9d1a6 - db $0, "I KNOW EVERYTHING!", $57 - -_CeladonMansion5Text1: ; 0x9d1ba - db $0, "I know everything", $4f - db "about the world", $55 - db "of #MON in", $55 - db "your GAME BOY!", $51 - db "Get together with", $4f - db "your friends and", $55 - db "trade #MON!", $57 - -_CeladonPokecenterText1: ; 0x9d226 - db $0, "# FLUTE awakens", $4f - db "#MON with a", $55 - db "sound that only", $55 - db "they can hear!", $57 - -_CeladonPokecenterText3: ; 0x9d262 - db $0, "I rode uphill on", $4f - db "CYCLING ROAD from", $55 - db "FUCHSIA!", $57 - -INCBIN "baserom.gbc",$9d28f,$9d8d5 - $9d28f - -_CeladonGameCornerText1: ; 0x9d8d5 - db $0, "Welcome!", $51 - db "You can exchange", $4f - db "your coins for", $55 - db "fabulous prizes", $55 - db "next door.", $57 - -INCBIN "baserom.gbc",$9d91a,$9da1c - $9d91a - -_CeladonGameCornerText3: ; 0x9da1c - db $0, "Keep this quiet.", $51 - db "It's rumored that", $4f - db "this place is run", $55 - db "by TEAM ROCKET.", $57 - -_CeladonGameCornerText4: ; 0x9da61 - db $0, "I think these", $4f - db "machines have", $55 - db "different odds.", $57 - -INCBIN "baserom.gbc",$9da8e,$9daf4 - $9da8e - -_CeladonGameCornerText6: ; 0x9daf4 - db $0, "I'm having a", $4f - db "wonderful time!", $57 - -INCBIN "baserom.gbc",$9db11,$9dc06 - $9db11 - -_CeladonGameCornerText8: ; 0x9dc06 - db $0, "Games are scary!", $4f - db "It's so easy to", $55 - db "get hooked!", $57 - -INCBIN "baserom.gbc",$9dc33,$9ddff - $9dc33 - -_CeladonMart5Text1: ; 0x9ddff - db $0, "#MON ability", $4f - db "enhancers can be", $55 - db "bought only here.", $51 - db "Use CALCIUM to", $4f - db "increase SPECIAL", $55 - db "abilities.", $51 - db "Use CARBOS to", $4f - db "increase SPEED.", $57 - -_CeladonMart5Text2: ; 0x9de79 - db $0, "I'm here for", $4f - db "#MON ability", $55 - db "enhancers.", $51 - db "PROTEIN increases", $4f - db "ATTACK power.", $51 - db "IRON increases", $4f - db "DEFENSE!", $57 - -_CeladonMart5Text5: ; 0x9ded6 - db $0, "5F: DRUG STORE", $57 - -_CeladonPrizeRoomText1: ; 0x9dee6 - db $0, "I sure do fancy", $4f - db "that PORYGON!", $51 - db "But, it's hard to", $4f - db "win at slots!", $57 - -_CeladonPrizeRoomText2: ; 0x9df24 - db $0, "I had a major", $4f - db "haul today!", $57 - -_CeladonDinerText1: ; 0x9df3f - db $0, "Hi!", $51 - db "We're taking a", $4f - db "break now.", $57 - -_CeladonDinerText2: ; 0x9df5d - db $0, "My #MON are", $4f - db "weak, so I often", $55 - db "have to go to the", $55 - db "DRUG STORE.", $57 - -_CeladonDinerText3: ; 0x9df99 - db $0, "Psst! There's a", $4f - db "basement under", $55 - db "the GAME CORNER.", $57 - -_CeladonDinerText4: ; 0x9dfc9 - db $0, "Munch...", $51 - db "The man at that", $4f - db "table lost it all", $55 - db "at the slots.", $57 - -INCBIN "baserom.gbc",$9e003,$9e0d5 - $9e003 - -_CeladonHouseText1: ; 0x9e0d5 - db $0, "Hehehe! The slots", $4f - db "just reel in the", $55 - db "dough, big time!", $57 - -_CeladonHouseText2: ; 0x9e10a - db $0, "CHIEF!", $51 - db "We just shipped", $4f - db "2000 #MON as", $55 - db "slot prizes!", $57 - -_CeladonHouseText3: ; 0x9e13c - db $0, "Don't touch the", $4f - db "poster at the", $55 - db "GAME CORNER!", $51 - db "There's no secret", $4f - db "switch behind it!", $57 - -_CeladonHotelText1: ; 0x9e18a - db $0, "#MON? No, this", $4f - db "is a hotel for", $55 - db "people.", $51 - db "We're full up.", $57 - -_CeladonHotelText2: ; 0x9e1bf - db $0, "I'm on vacation", $4f - db "with my brother", $55 - db "and boy friend.", $51 - db "CELADON is such a", $4f - db "pretty city!", $57 - -_CeladonHotelText3: ; 0x9e20e - db $0, "Why did she bring", $4f - db "her brother?", $57 - -_FuchsiaMartText2: ; 0x9e22e - db $0, "Do you have a", $4f - db "SAFARI ZONE flag?", $51 - db "What about cards", $4f - db "or calendars?", $57 - -_FuchsiaMartText3: ; 0x9e26e - db $0, "Did you try X", $4f - db "SPEED? It speeds", $55 - db "up a #MON in", $55 - db "battle!", $57 - -_FuchsiaHouse1Text1: ; 0x9e2a3 - db $0, "SAFARI ZONE's", $4f - db "WARDEN is old,", $55 - db "but still active!", $51 - db "All his teeth are", $4f - db "false, though.", $57 - -_FuchsiaHouse1Text2: ; 0x9e2f3 - db $0, "Hmm? You've met", $4f - db "BILL?", $51 - db "He's my grandson!", $51 - db "He always liked", $4f - db "collecting things", $55 - db "even as a child!", $57 - -_FuchsiaHouse1Text3: ; 0x9e34d - db $0, "BILL files his", $4f - db "own #MON data", $55 - db "on his PC!", $51 - db "Did he show you?", $57 - -_FuchsiaPokecenterText1: ; 0x9e387 - db $0, "You can't win", $4f - db "with just one", $55 - db "strong #MON.", $51 - db "It's tough, but", $4f - db "you have to raise", $55 - db "them evenly.", $57 - -_FuchsiaPokecenterText3: ; 0x9e3de - db $0, "There's a narrow", $4f - db "trail west of", $55 - db "VIRIDIAN CITY.", $51 - db "It goes to #MON", $4f - db "LEAGUE HQ.", $55 - db "The HQ governs", $55 - db "all trainers.", $57 - -INCBIN "baserom.gbc",$9e444,$9e6c7 - $9e444 - -_SafariZoneEntranceText1: ; 0x9e6c7 - db $0, "Welcome to the", $4f - db "SAFARI ZONE!", $57 - -INCBIN "baserom.gbc",$9e6e4,$191c - -SECTION "bank28",DATA,BANK[$28] - -INCBIN "baserom.gbc",$a0000,$a05a1 - $a0000 - -_FuchsiaMeetingRoomText1: ; 0xa05a1 - db $0, "We nicknamed the", $4f - db "WARDEN SLOWPOKE.", $51 - db "He and SLOWPOKE", $4f - db "both look vacant!", $57 - -_FuchsiaMeetingRoomText2: ; 0xa05e6 - db $0, "SLOWPOKE is very", $4f - db "knowledgeable", $55 - db "about #MON!", $51 - db "He even has some", $4f - db "fossils of rare,", $55 - db "extinct #MON!", $57 - -_FuchsiaMeetingRoomText3: ; 0xa0642 - db $0, "SLOWPOKE came in,", $4f - db "but I couldn't", $55 - db "understand him.", $51 - db "I think he's got", $4f - db "a speech problem!", $57 - -INCBIN "baserom.gbc",$a0695,$a0df7 - $a0695 - -_Lab1Text1: ; 0xa0df7 - db $0, "We study #MON", $4f - db "extensively here.", $51 - db "People often bring", $4f - db "us rare #MON", $55 - db "for examination.", $57 - -_Lab1Text2: ; 0xa0e49 - db $0, "A photo of the", $4f - db "LAB's founder,", $55 - db "DR.FUJI!", $57 - -_Lab1Text3: ; 0xa0e70 - db $0, "#MON LAB", $4f - db "Meeting Room", $57 - -_Lab1Text4: ; 0xa0e87 - db $0, "#MON LAB", $4f - db "R-and-D Room", $57 - -_Lab1Text5: ; 0xa0e9e - db $0, "#MON LAB", $4f - db "Testing Room", $57 - -_Lab2Text1: ; 0xa0eb5 - db $0, "I found this very", $4f - db "strange fossil in", $55 - db "MT.MOON!", $51 - db "I think it's a", $4f - db "rare, prehistoric", $55 - db "#MON!", $57 - -INCBIN "baserom.gbc",$a0f09,$a0fe3 - $a0f09 - -_Lab3Text2: ; 0xa0fe3 - db $0, "EEVEE can evolve", $4f - db "into 1 of 3 kinds", $55 - db "of #MON.", $57 - -_Lab3Text3: ; 0xa1010 - db $0, "There's an e-mail", $4f - db "message!", $51 - db "...", $51 - db "The 3 legendary", $4f - db "bird #MON are", $55 - db "ARTICUNO, ZAPDOS", $55 - db "and MOLTRES.", $51 - db "Their whereabouts", $4f - db "are unknown.", $51 - db "We plan to explore", $4f - db "the cavern close", $55 - db "to CERULEAN.", $51 - db "From: #MON", $4f - db "RESEARCH TEAM", $51 - db "...", $57 - -_Lab3Text5: ; 0xa10d8 - db $0, "An amber pipe!", $57 - -INCBIN "baserom.gbc",$a10e8,$a12de - $a10e8 - -_CinnabarPokecenterText2: -_CinnabarPokecenterText1: ; 0xa12de - db $0, "You can cancel", $4f - db "evolution.", $51 - db "When a #MON is", $4f - db "evolving, you can", $55 - db "stop it and leave", $55 - db "it the way it is.", $57 - -_CinnabarPokecenterText3: ; 0xa133e - db $0, "Do you have any", $4f - db "friends?", $51 - db "#MON you get", $4f - db "in trades grow", $55 - db "very quickly.", $51 - db "I think it's", $4f - db "worth a try!", $57 - -_CinnabarMartText2: ; 0xa139b - db $0, "Don't they have X", $4f - db "ATTACK? It's good", $55 - db "for battles!", $57 - -_CinnabarMartText3: ; 0xa13cb - db $0, "It never hurts to", $4f - db "have extra items!", $57 - -_IndigoPlateauLobbyText1: ; 0xa13f0 - db $0, "Yo! Champ in", $4f - db "making!", $51 - db "At #MON LEAGUE,", $4f - db "you have to face", $55 - db "the ELITE FOUR in", $55 - db "succession.", $51 - db "If you lose, you", $4f - db "have to start all", $55 - db "over again! This", $55 - db "is it! Go for it!", $57 - -_IndigoPlateauLobbyText3: ; 0xa148b - db $0, "From here on, you", $4f - db "face the ELITE", $55 - db "FOUR one by one!", $51 - db "If you win, a", $4f - db "door opens to the", $55 - db "next trainer!", $55 - db "Good luck!", $57 - -_CopycatsHouseF1Text1: ; 0xa14f7 - db $0, "My daughter is so", $4f - db "self-centered.", $55 - db "She only has a", $55 - db "few friends.", $57 - -_CopycatsHouseF1Text2: ; 0xa1535 - db $0, "My daughter likes", $4f - db "to mimic people.", $51 - db "Her mimicry has", $4f - db "earned her the", $55 - db "nickname COPYCAT", $55 - db "around here!", $57 - -_CopycatsHouseF1Text3: ; 0xa1596 - db $0, "CHANSEY: Chaan!", $4f - db "Sii!@@" - -INCBIN "baserom.gbc",$a15ad,$a1749 - $a15ad - -_CopycatsHouseF2Text2: ; 0xa1749 - db $0, "DODUO: Giiih!", $51 - db "MIRROR MIRROR ON", $4f - db "THE WALL, WHO IS", $55 - db "THE FAIREST ONE", $55 - db "OF ALL?", $57 - -_CopycatsHouseF2Text3: ; 0xa1792 - db $0, "This is a rare", $4f - db "#MON! Huh?", $55 - db "It's only a doll!", $57 - -_CopycatsHouseF2Text6: ; 0xa17be - db $0, "A game with MARIO", $4f - db "wearing a bucket", $55 - db "on his head!", $57 - -INCBIN "baserom.gbc",$a17ef,$a2305 - $a17ef - -_SaffronHouse1Text1: ; 0xa2305 - db $0, "Thank you for", $4f - db "writing. I hope", $55 - db "to see you soon!", $51 - db "Hey! Don't look", $4f - db "at my letter!", $57 - -_SaffronHouse1Text2: ; 0xa2352 - db $0, "PIDGEY: Kurukkoo!@@" - -_SaffronHouse1Text3: ; 0xa2366 - db $0, "The COPYCAT is", $4f - db "cute! I'm getting", $55 - db "her a # DOLL!", $57 - -_SaffronHouse1Text4: ; 0xa2395 - db $0, "I was given a PP", $4f - db "UP as a gift.", $51 - db "It's used for", $4f - db "increasing the PP", $55 - db "of techniques!", $57 - -_SaffronMartText2: ; 0xa23e3 - db $0, "MAX REPEL lasts", $4f - db "longer than SUPER", $55 - db "REPEL for keeping", $55 - db "weaker #MON", $55 - db "away!", $57 - -_SaffronMartText3: ; 0xa242a - db $0, "REVIVE is costly,", $4f - db "but it revives", $55 - db "fainted #MON!", $57 - -_SilphCo1Text1: ; 0xa245a - db $0, "Welcome!", $51 - db "The PRESIDENT is", $4f - db "in the boardroom", $55 - db "on 11F!", $57 - -_SaffronPokecenterText1: ; 0xa248e - db $0, "#MON growth", $4f - db "rates differ from", $55 - db "specie to specie.", $57 - -_SaffronPokecenterText3: ; 0xa24bf - db $0, "SILPH CO. is very", $4f - db "famous. That's", $55 - db "why it attracted", $55 - db "TEAM ROCKET!", $57 - -INCBIN "baserom.gbc",$a24fe,$1b02 - -SECTION "bank29",DATA,BANK[$29] - -INCBIN "baserom.gbc",$A4000,$245 - -INCLUDE "text/mapPalletTown.tx" - -_ViridianCityText1: - db $0, "Those # BALLs", $4f - db "at your waist!", $55 - db "You have #MON!", $51 - db "It's great that", $4f - db "you can carry and", $55 - db "use #MON any", $55 - db "time, anywhere!", $57 - -INCBIN "baserom.gbc",$a4437,$a4833 - $a4437 - -_ViridianCityText8: ; 0xa4833 - db $0, "VIRIDIAN CITY ", $4f - db "The Eternally", $55 - db "Green Paradise", $57 - -_ViridianCityText9: ; 0xa4860 - db $0, "TRAINER TIPS", $51 - db "Catch #MON", $4f - db "and expand your", $55 - db "collection!", $51 - db "The more you have,", $4f - db "the easier it is", $55 - db "to fight!", $57 - -_ViridianCityText10: ; 0xa48c3 - db $0, "TRAINER TIPS", $51 - db "The battle moves", $4f - db "of #MON are", $55 - db "limited by their", $55 - db "POWER POINTs, PP.", $51 - db "To replenish PP,", $4f - db "rest your tired", $55 - db "#MON at a", $55 - db "#MON CENTER!", $57 - -_ViridianCityText13: ; 0xa4949 - db $0, "VIRIDIAN CITY", $4f - db "#MON GYM", $57 - -INCBIN "baserom.gbc",$a4961,$a497f - $a4961 - -_PewterCityText1: ; 0xa497f - db $0, "It's rumored that", $4f - db "CLEFAIRYs came", $55 - db "from the moon!", $51 - db "They appeared ", $4f - db "after MOON STONE", $55 - db "fell on MT.MOON.", $57 - -_PewterCityText2: ; 0xa49e0 - db $0, "There aren't many", $4f - db "serious #MON", $55 - db "trainers here!", $51 - db "They're all like", $4f - db "BUG CATCHERs,", $55 - db "but PEWTER GYM's", $55 - db "BROCK is totally", $55 - db "into it!", $57 - -INCBIN "baserom.gbc",$a4a56,$a4bfe - $a4a56 - -_PewterCityText6: ; 0xa4bfe - db $0, "TRAINER TIPS", $51 - db "Any #MON that", $4f - db "takes part in", $55 - db "battle, however", $55 - db "short, earns EXP!", $57 - -_PewterCityText7: ; 0xa4c4a - db $0, "NOTICE!", $51 - db "Thieves have been", $4f - db "stealing #MON", $55 - db "fossils at MT.", $55 - db "MOON! Please call", $55 - db "PEWTER POLICE", $55 - db "with any info!", $57 - -_PewterCityText10: ; 0xa4cb1 - db $0, "PEWTER MUSEUM", $4f - db "OF SCIENCE", $57 - -_PewterCityText11: ; 0xa4ccb - db $0, "PEWTER CITY", $4f - db "#MON GYM", $55 - db "LEADER: BROCK", $51 - db "The Rock Solid", $4f - db "#MON Trainer!", $57 - -_PewterCityText12: ; 0xa4d0c - db $0, "PEWTER CITY", $4f - db "A Stone Gray", $55 - db "City", $57 - -INCBIN "baserom.gbc",$a4d2b,$a5030 - $a4d2b - -_CeruleanCityText3: ; 0xa5030 - db $0, "You're a trainer", $4f - db "too? Collecting,", $55 - db "fighting, it's a", $55 - db "tough life.", $57 - -_CeruleanCityText4: ; 0xa506e - db $0, "That bush in", $4f - db "front of the shop", $55 - db "is in the way.", $51 - db "There might be a", $4f - db "way around.", $57 - -_CeruleanCityText5: ; 0xa50ba - db $0, "You're making an", $4f - db "encyclopedia on", $55 - db "#MON? That", $55 - db "sounds amusing.", $57 - -_CeruleanCityText6: ; 0xa50f6 - db $0, "The people here", $4f - db "were robbed.", $51 - db "It's obvious that", $4f - db "TEAM ROCKET is", $55 - db "behind this most", $55 - db "heinous crime!", $51 - db "Even our POLICE", $4f - db "force has trouble", $55 - db "with the ROCKETs!", $57 - -INCBIN "baserom.gbc",$a5188,$a52d6 - $a5188 - -_CeruleanCityText9: ; 0xa52d6 - db $0, "I want a bright", $4f - db "red BICYCLE!", $51 - db "I'll keep it at", $4f - db "home, so it won't", $55 - db "get dirty!", $57 - -_CeruleanCityText10: ; 0xa531f - db $0, "This is CERULEAN", $4f - db "CAVE! Horribly", $55 - db "strong #MON", $55 - db "live in there!", $51 - db "The #MON LEAGUE", $4f - db "champion is the", $55 - db "only person who", $55 - db "is allowed in!", $57 - -_CeruleanCityText12: ; 0xa539a - db $0, "CERULEAN CITY", $4f - db "A Mysterious,", $55 - db "Blue Aura", $55 - db "Surrounds It", $57 - -_CeruleanCityText13: ; 0xa53ce - db $0, "TRAINER TIPS", $51 - db "Pressing B Button", $4f - db "during evolution", $55 - db "cancels the whole", $55 - db "process.", $57 - -_CeruleanCityText16: ; 0xa541a - db $0, "Grass and caves", $4f - db "handled easily!", $55 - db "BIKE SHOP", $57 - -_CeruleanCityText17: ; 0xa5445 - db $0, "CERULEAN CITY", $4f - db "#MON GYM", $55 - db "LEADER: MISTY", $51 - db "The Tomboyish", $4f - db "Mermaid!", $57 - -INCBIN "baserom.gbc",$a5482,$a5506 - $a5482 - -_LavenderTownText2: ; 0xa5506 - db $0, "This town is known", $4f - db "as the grave site", $55 - db "of #MON.", $51 - db "Memorial services", $4f - db "are held in", $55 - db "#MON TOWER.", $57 - -_LavenderTownText3: ; 0xa555f - db $0, "GHOSTs appeared", $4f - db "in #MON TOWER.", $51 - db "I think they're", $4f - db "the spirits of", $55 - db "#MON that the", $55 - db "ROCKETs killed.", $57 - -_LavenderTownText4: ; 0xa55bb - db $0, "LAVENDER TOWN", $4f - db "The Noble Purple", $55 - db "Town", $57 - -_LavenderTownText5: ; 0xa55e0 - db $0, "New SILPH SCOPE!", $51 - db "Make the Invisible", $4f - db "Plain to See!", $51 - db "SILPH CO.", $57 - -_LavenderTownText8: ; 0xa561d - db $0, "LAVENDER VOLUNTEER", $4f - db "#MON HOUSE", $57 - -_LavenderTownText9: ; 0xa563c - db $0, "May the Souls of", $4f - db "#MON Rest Easy", $55 - db "#MON TOWER", $57 - -_VermilionCityText1: ; 0xa5668 - db $0, "We're careful", $4f - db "about pollution!", $51 - db "We've heard GRIMER", $4f - db "multiplies in", $55 - db "toxic sludge!", $57 - -INCBIN "baserom.gbc",$a56b5,$a5805 - $a56b5 - -_VermilionCityText4: ; 0xa5805 - db $0, "I'm putting up a", $4f - db "building on this", $55 - db "plot of land.", $51 - db "My #MON is", $4f - db "tamping the land.", $57 - -_VermilionCityText5: ; 0xa5852 - db $0, "MACHOP: Guoh!", $4f - db "Gogogoh!@@" - -INCBIN "baserom.gbc",$a586b,$a5891 - $a586b - -_VermilionCityText6: ; 0xa5891 - db $0, "S.S.ANNE is a", $4f - db "famous luxury", $55 - db "cruise ship.", $51 - db "We visit VERMILION", $4f - db "once a year.", $57 - -_VermilionCityText7: ; 0xa58db - db $0, "VERMILION CITY", $4f - db "The Port of", $55 - db "Exquisite Sunsets", $57 - -_VermilionCityText8: ; 0xa5909 - db $0, "NOTICE!", $51 - db "ROUTE 12 may be", $4f - db "blocked off by a", $55 - db "sleeping #MON.", $51 - db "Detour through", $4f - db "ROCK TUNNEL to", $55 - db "LAVENDER TOWN.", $51 - db "VERMILION POLICE", $57 - -_VermilionCityText11: ; 0xa5980 - db $0, "#MON FAN CLUB", $4f - db "All #MON fans", $55 - db "welcome!", $57 - -_VermilionCityText12: ; 0xa59a6 - db $0, "VERMILION CITY", $4f - db "#MON GYM", $55 - db "LEADER: LT.SURGE", $51 - db "The Lightning ", $4f - db "American!", $57 - -_VermilionCityText13: ; 0xa59e9 - db $0, "VERMILION HARBOR", $57 - -_CeladonCityText1: ; 0xa59fb - db $0, "I got my KOFFING", $4f - db "in CINNABAR!", $51 - db "It's nice, but it", $4f - db "breathes poison", $55 - db "when it's angry!", $57 - -_CeladonCityText2: ; 0xa5a4b - db $0, "Heheh! This GYM", $4f - db "is great! It's", $55 - db "full of women!", $57 - -_CeladonCityText3: ; 0xa5a79 - db $0, "The GAME CORNER", $4f - db "is bad for our", $55 - db "city's image!", $57 - -_CeladonCityText4: ; 0xa5aa6 - db $0, "Moan! I blew it", $4f - db "all at the slots!", $51 - db "I knew I should", $4f - db "have cashed in my", $55 - db "coins for prizes!", $57 - -INCBIN "baserom.gbc",$a5afd,$a5bd9 - $a5afd - -_CeladonCityText6: ; 0xa5bd9 - db $0, "This is my trusted", $4f - db "pal, POLIWRATH!", $51 - db "It evolved from", $4f - db "POLIWHIRL when I", $55 - db "used WATER STONE!", $57 - -_CeladonCityText7: ; 0xa5c30 - db $0, "POLIWRATH: Ribi", $4f - db "ribit!@@" - -_CeladonCityText8: ; 0xa5c49 - db $0, "What are you", $4f - db "staring at?", $57 - -_CeladonCityText9: ; 0xa5c63 - db $0, "Keep out of TEAM", $4f - db "ROCKET's way!", $57 - -_CeladonCityText10: ; 0xa5c82 - db $0, "TRAINER TIPS", $51 - db "X ACCURACY boosts", $4f - db "the accuracy of", $55 - db "techniques!", $51 - db "DIRE HIT jacks up", $4f - db "the likelihood of", $55 - db "critical hits!", $51 - db "Get your items at", $4f - db "CELADON DEPT.", $55 - db "STORE!", $57 - -_CeladonCityText11: ; 0xa5d18 - db $0, "CELADON CITY", $4f - db "The City of", $55 - db "Rainbow Dreams", $57 - -_CeladonCityText13: ; 0xa5d41 - db $0, "CELADON CITY", $4f - db "#MON GYM", $55 - db "LEADER: ERIKA", $51 - db "The Nature Loving", $4f - db "Princess!", $57 - -_CeladonCityText14: ; 0xa5d82 - db $0, "CELADON MANSION", $57 - -_CeladonCityText15: ; 0xa5d93 - db $0, "Find what you", $4f - db "need at CELADON", $55 - db "DEPT. STORE!", $57 - -_CeladonCityText16: ; 0xa5dbf - db $0, "TRAINER TIPS", $51 - db "GUARD SPEC.", $4f - db "protects #MON", $55 - db "against SPECIAL", $55 - db "attacks such as", $55 - db "fire and water!", $51 - db "Get your items at", $4f - db "CELADON DEPT.", $55 - db "STORE!", $57 - -_CeladonCityText17: ; 0xa5e3e - db $0, "Coins exchanged", $4f - db "for prizes!", $55 - db "PRIZE EXCHANGE", $57 - -_CeladonCityText18: ; 0xa5e6a - db $0, "ROCKET GAME CORNER", $4f - db "The playground", $55 - db "for grown-ups!", $57 - -_FuchsiaCityText1: ; 0xa5e9c - db $0, "Did you try the", $4f - db "SAFARI GAME? Some", $55 - db "#MON can only", $55 - db "be caught there.", $57 - -_FuchsiaCityText2: ; 0xa5ede - db $0, "SAFARI ZONE has a", $4f - db "zoo in front of", $55 - db "the entrance.", $51 - db "Out back is the", $4f - db "SAFARI GAME for", $55 - db "catching #MON.", $57 - -_FuchsiaCityText3: ; 0xa5f3e - db $0, "ERIK: Where's", $4f - db "SARA? I said I'd", $55 - db "meet her here.", $57 - -_FuchsiaCityText4: ; 0xa5f6b - db $0, "That item ball in", $4f - db "there is really a", $55 - db "#MON.", $57 - -_FuchsiaCityText5: ; 0xa5f96 - db $0, "!", $57 - -_FuchsiaCityText11: ; 0xa5f99 - db $0, "FUCHSIA CITY", $4f - db "Behold! It's", $55 - db "Passion Pink!", $57 - -_FuchsiaCityText13: ; 0xa5fc1 - db $0, "SAFARI GAME", $4f - db "#MON-U-CATCH!", $57 - -_FuchsiaCityText16: ; 0xa5fdc - db $0, "SAFARI ZONE", $4f - db "WARDEN's HOME", $57 - -_FuchsiaCityText17: ; 0xa5ff6 - db $0, "#MON PARADISE", $4f - db "SAFARI ZONE", $57 - -_FuchsiaCityText18: ; 0xa6011 - db $0, "FUCHSIA CITY", $4f - db "#MON GYM", $55 - db "LEADER: KOGA", $51 - db "The Poisonous", $4f - db "Ninja Master", $57 - -INCBIN "baserom.gbc",$a6050,$a61e6 - $a6050 - -_CinnabarIslandText1: ; 0xa61e6 - db $0, "CINNABAR GYM's", $4f - db "BLAINE is an odd", $55 - db "man who has lived", $55 - db "here for decades.", $57 - -_CinnabarIslandText2: ; 0xa622a - db $0, "Scientists conduct", $4f - db "experiments in", $55 - db "the burned out", $55 - db "building.", $57 - -_CinnabarIslandText3: ; 0xa6266 - db $0, "CINNABAR ISLAND", $4f - db "The Fiery Town of", $55 - db "Burning Desire", $57 - -_CinnabarIslandText6: ; 0xa6298 - db $0, "#MON LAB", $57 - -_CinnabarIslandText7: ; 0xa62a2 - db $0, "CINNABAR ISLAND", $4f - db "#MON GYM", $55 - db "LEADER: BLAINE", $51 - db "The Hot-Headed", $4f - db "Quiz Master!", $57 - -_SaffronCityText1: ; 0xa62e7 - db $0, "What do you want?", $4f - db "Get lost!", $57 - -_SaffronCityText2: ; 0xa6304 - db $0, "BOSS said he'll", $4f - db "take this town!", $57 - -_SaffronCityText3: ; 0xa6324 - db $0, "Get out of the", $4f - db "way!", $57 - -_SaffronCityText4: ; 0xa6339 - db $0, "SAFFRON belongs", $4f - db "to TEAM ROCKET!", $57 - -_SaffronCityText5: ; 0xa635a - db $0, "Being evil makes", $4f - db "me feel so alive!", $57 - -_SaffronCityText6: ; 0xa637e - db $0, "Ow! Watch where", $4f - db "you're walking!", $57 - -_SaffronCityText7: ; 0xa639e - db $0, "With SILPH under", $4f - db "control, we can", $55 - db "exploit #MON", $55 - db "around the world!", $57 - -_SaffronCityText8: ; 0xa63df - db $0, "You beat TEAM", $4f - db "ROCKET all alone?", $55 - db "That's amazing!", $57 - -_SaffronCityText9: ; 0xa640f - db $0, "Yeah! TEAM ROCKET", $4f - db "is gone!", $55 - db "It's safe to go", $55 - db "out again!", $57 - -_SaffronCityText10: ; 0xa6445 - db $0, "People should be", $4f - db "flocking back to", $55 - db "SAFFRON now.", $57 - -_SaffronCityText11: ; 0xa6475 - db $0, "I flew here on my", $4f - db "PIDGEOT when I", $55 - db "read about SILPH.", $51 - db "It's already over?", $4f - db "I missed the", $55 - db "media action.", $57 - -_SaffronCityText12: ; 0xa64d6 - db $0, "PIDGEOT: Bi bibii!@@" - -_SaffronCityText13: ; 0xa64eb - db $0, "I saw ROCKET", $4f - db "BOSS escaping", $55 - db "SILPH's building.", $57 - -_SaffronCityText14: ; 0xa6518 - db $0, "I'm a security", $4f - db "guard.", $51 - db "Suspicious kids I", $4f - db "don't allow in!", $57 - -_SaffronCityText15: ; 0xa654f - db $0, "...", $4f - db "Snore...", $51 - db "Hah! He's taking", $4f - db "a snooze!", $57 - -_SaffronCityText16: ; 0xa6577 - db $0, "SAFFRON CITY", $4f - db "Shining, Golden", $55 - db "Land of Commerce", $57 - -_SaffronCityText17: ; 0xa65a6 - db $0, "FIGHTING DOJO", $57 - -_SaffronCityText18: ; 0xa65b5 - db $0, "SAFFRON CITY", $4f - db "#MON GYM", $55 - db "LEADER: SABRINA", $51 - db "The Master of", $4f - db "Psychic #MON!", $57 - -_SaffronCityText20: ; 0xa65f8 - db $0, "TRAINER TIPS", $51 - db "FULL HEAL cures", $4f - db "all ailments like", $55 - db "sleep and burns.", $51 - db "It costs a bit", $4f - db "more, but it's", $55 - db "more convenient.", $57 - -_SaffronCityText21: ; 0xa6667 - db $0, "TRAINER TIPS", $51 - db "New GREAT BALL", $4f - db "offers improved", $55 - db "capture rates.", $51 - db "Try it on those", $4f - db "hard-to-catch", $55 - db "#MON.", $57 - -_SaffronCityText22: ; 0xa66c7 - db $0, "SILPH CO.", $4f - db "OFFICE BUILDING", $57 - -_SaffronCityText24: ; 0xa66e2 - db $0, "MR.PSYCHIC's", $4f - db "HOUSE", $57 - -_SaffronCityText25: ; 0xa66f5 - db $0, "SILPH's latest", $4f - db "product!", $51 - db "Release to be", $4f - db "determined...", $57 - -_ItemUseBallText00: - db 0,"It dodged the",$4F - db "thrown BALL!",$51 - db "This #MON",$4F - db "can't be caught!",$58 - -_ItemUseBallText01: - db 0,"You missed the",$4F - db "#MON!",$58 - -_ItemUseBallText02: - db 0,"Darn! The #MON",$4F - db "broke free!",$58 - -_ItemUseBallText03: - db 0,"Aww! It appeared",$4F - db "to be caught! ",$58 - -_ItemUseBallText04: - db 0,"Shoot! It was so",$4F - db "close too!",$58 - -_ItemUseBallText05: - db 0,"All right!",$4F,"@",1 - dw $CFDA - db 0," was",$55 - db "caught!@@" - -_ItemUseBallText07: - db 1 - dw $DE06 - db 0," was",$4F - db "transferred to",$55 - db "BILL's PC!",$58 - -_ItemUseBallText08: - db 1 - dw $DE06 - db 0," was",$4F - db "transferred to",$55 - db "someone's PC!",$58 - -_ItemUseBallText06: - db 0,"New #DEX data",$4F - db "will be added for",$55,"@",1 - dw $CFDA - db 0,"!@@" - -INCBIN "baserom.gbc",$A685E,$4000 - $285E - -SECTION "bank2A",DATA,BANK[$2A] - -_ItemUseText001: - db 0,$52," used@@" - -_ItemUseText002: - db 1 - dw $CF4B - db 0,"!",$57 - -INCBIN "baserom.gbc",$A800F,$4000-$F - -SECTION "bank2B",DATA,BANK[$2B] -INCLUDE "text/pokedex.tx" - -SECTION "bank2C",DATA,BANK[$2C] - -MoveNames: ; 4000 - db "POUND@" - db "KARATE CHOP@" - db "DOUBLESLAP@" - db "COMET PUNCH@" - db "MEGA PUNCH@" - db "PAY DAY@" - db "FIRE PUNCH@" - db "ICE PUNCH@" - db "THUNDERPUNCH@" - db "SCRATCH@" - db "VICEGRIP@" - db "GUILLOTINE@" - db "RAZOR WIND@" - db "SWORDS DANCE@" - db "CUT@" - db "GUST@" - db "WING ATTACK@" - db "WHIRLWIND@" - db "FLY@" - db "BIND@" - db "SLAM@" - db "VINE WHIP@" - db "STOMP@" - db "DOUBLE KICK@" - db "MEGA KICK@" - db "JUMP KICK@" - db "ROLLING KICK@" - db "SAND-ATTACK@" - db "HEADBUTT@" - db "HORN ATTACK@" - db "FURY ATTACK@" - db "HORN DRILL@" - db "TACKLE@" - db "BODY SLAM@" - db "WRAP@" - db "TAKE DOWN@" - db "THRASH@" - db "DOUBLE-EDGE@" - db "TAIL WHIP@" - db "POISON STING@" - db "TWINEEDLE@" - db "PIN MISSILE@" - db "LEER@" - db "BITE@" - db "GROWL@" - db "ROAR@" - db "SING@" - db "SUPERSONIC@" - db "SONICBOOM@" - db "DISABLE@" - db "ACID@" - db "EMBER@" - db "FLAMETHROWER@" - db "MIST@" - db "WATER GUN@" - db "HYDRO PUMP@" - db "SURF@" - db "ICE BEAM@" - db "BLIZZARD@" - db "PSYBEAM@" - db "BUBBLEBEAM@" - db "AURORA BEAM@" - db "HYPER BEAM@" - db "PECK@" - db "DRILL PECK@" - db "SUBMISSION@" - db "LOW KICK@" - db "COUNTER@" - db "SEISMIC TOSS@" - db "STRENGTH@" - db "ABSORB@" - db "MEGA DRAIN@" - db "LEECH SEED@" - db "GROWTH@" - db "RAZOR LEAF@" - db "SOLARBEAM@" - db "POISONPOWDER@" - db "STUN SPORE@" - db "SLEEP POWDER@" - db "PETAL DANCE@" - db "STRING SHOT@" - db "DRAGON RAGE@" - db "FIRE SPIN@" - db "THUNDERSHOCK@" - db "THUNDERBOLT@" - db "THUNDER WAVE@" - db "THUNDER@" - db "ROCK THROW@" - db "EARTHQUAKE@" - db "FISSURE@" - db "DIG@" - db "TOXIC@" - db "CONFUSION@" - db "PSYCHIC@" - db "HYPNOSIS@" - db "MEDITATE@" - db "AGILITY@" - db "QUICK ATTACK@" - db "RAGE@" - db "TELEPORT@" - db "NIGHT SHADE@" - db "MIMIC@" - db "SCREECH@" - db "DOUBLE TEAM@" - db "RECOVER@" - db "HARDEN@" - db "MINIMIZE@" - db "SMOKESCREEN@" - db "CONFUSE RAY@" - db "WITHDRAW@" - db "DEFENSE CURL@" - db "BARRIER@" - db "LIGHT SCREEN@" - db "HAZE@" - db "REFLECT@" - db "FOCUS ENERGY@" - db "BIDE@" - db "METRONOME@" - db "MIRROR MOVE@" - db "SELFDESTRUCT@" - db "EGG BOMB@" - db "LICK@" - db "SMOG@" - db "SLUDGE@" - db "BONE CLUB@" - db "FIRE BLAST@" - db "WATERFALL@" - db "CLAMP@" - db "SWIFT@" - db "SKULL BASH@" - db "SPIKE CANNON@" - db "CONSTRICT@" - db "AMNESIA@" - db "KINESIS@" - db "SOFTBOILED@" - db "HI JUMP KICK@" - db "GLARE@" - db "DREAM EATER@" - db "POISON GAS@" - db "BARRAGE@" - db "LEECH LIFE@" - db "LOVELY KISS@" - db "SKY ATTACK@" - db "TRANSFORM@" - db "BUBBLE@" - db "DIZZY PUNCH@" - db "SPORE@" - db "FLASH@" - db "PSYWAVE@" - db "SPLASH@" - db "ACID ARMOR@" - db "CRABHAMMER@" - db "EXPLOSION@" - db "FURY SWIPES@" - db "BONEMERANG@" - db "REST@" - db "ROCK SLIDE@" - db "HYPER FANG@" - db "SHARPEN@" - db "CONVERSION@" - db "TRI ATTACK@" - db "SUPER FANG@" - db "SLASH@" - db "SUBSTITUTE@" - db "STRUGGLE@" +_RED EQU 1
+_BLUE EQU 0
+INCLUDE "common.tx"
\ No newline at end of file |