ref: 7363545ab24cf905b77ca197536772b2d6904134
dir: /main.asm/
INCLUDE "includes.asm"
SECTION "bank1", ROMX, BANK[$1]
Function4000:: ; 4000
hlcoord 3, 10
ld b, 1
ld c, 11
ld a, [IsInBattle]
and a
jr z, .notinbattle
call TextBox
jr .incave
.notinbattle
predef Function28eef
.incave
hlcoord 4, 11
ld de, .Waiting
call PlaceString
ld c, 50
jp DelayFrames
; 4025
.Waiting ; 4025
db "Waiting...!@"
; 4031
LoadPushOAM:: ; 4031
ld c, hPushOAM - $ff00
ld b, PushOAMEnd - PushOAM
ld hl, PushOAM
.loop
ld a, [hli]
ld [$ff00+c], a
inc c
dec b
jr nz, .loop
ret
; 403f
PushOAM: ; 403f
ld a, Sprites >> 8
ld [rDMA], a
ld a, $28
.loop
dec a
jr nz, .loop
ret
PushOAMEnd
; 4049
INCLUDE "engine/map_objects.asm"
Function5ae8: ; 5ae8
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
ld de, MUSIC_MAIN_MENU
ld a, e
ld [wMapMusic], a
call PlayMusic
callba MainMenu
jp Function6219
; 5b04
Function5b04: ; 5b04
ret
; 5b05
Function5b05: ; 5b05
push de
ld hl, .Days
ld a, b
call GetNthString
ld d, h
ld e, l
pop hl
call PlaceString
ld h, b
ld l, c
ld de, .Day
call PlaceString
ret
; 5b1c
.Days ; 5b1c
db "SUN@"
db "MON@"
db "TUES@"
db "WEDNES@"
db "THURS@"
db "FRI@"
db "SATUR@"
; 5b40
.Day ; 5b40
db "DAY@"
; 5b44
Function5b44: ; 5b44
xor a
ld [$ffde], a
call ClearTileMap
call Functione5f
call Functione51
call Function1fbf
ret
; 5b54
MysteryGift: ; 5b54
call UpdateTime
callba Function11548
callba DoMysteryGift
ret
; 5b64
OptionsMenu: ; 5b64
callba _OptionsMenu
ret
; 5b6b
NewGame: ; 5b6b
xor a
ld [wc2cc], a
call ResetWRAM
call Function5b44
call Function5b8f
call OakSpeech
call InitializeWorld
ld a, 1
ld [wc2d8], a
ld a, 0 ; SPAWN_HOME
ld [wd001], a
ld a, $f1
ld [$ff9f], a
jp Function5e5d
; 5b8f
Function5b8f: ; 5b8f
callba Function10632f
jr c, .ok
callba Function48dcb
ret
.ok
ld c, 0
callba Function4802f
ret
; 5ba7
ResetWRAM: ; 5ba7
xor a
ld [hBGMapMode], a
call _ResetWRAM
ret
; 5bae
_ResetWRAM: ; 5bae
ld hl, Sprites
ld bc, Options - Sprites
xor a
call ByteFill
ld hl, wd000
ld bc, PlayerID - wd000
xor a
call ByteFill
ld hl, PlayerID
ld bc, wdff5 - PlayerID
xor a
call ByteFill
ld a, [rLY]
ld [$ffe3], a
call DelayFrame
ld a, [hRandomSub]
ld [PlayerID], a
ld a, [rLY]
ld [$ffe3], a
call DelayFrame
ld a, [hRandomAdd]
ld [PlayerID + 1], a
call Random
ld [wd84a], a
call DelayFrame
call Random
ld [wd84b], a
ld hl, PartyCount
call Function5ca1
xor a
ld [wCurBox], a
ld [wd4b4], a
call SetDefaultBoxNames
ld a, 1
call GetSRAMBank
ld hl, sBoxCount
call Function5ca1
call CloseSRAM
ld hl, NumItems
call Function5ca1
ld hl, NumKeyItems
call Function5ca1
ld hl, NumBalls
call Function5ca1
ld hl, PCItems
call Function5ca1
xor a
ld [wRoamMon1Species], a
ld [wRoamMon2Species], a
ld [wRoamMon3Species], a
ld a, -1
ld [wRoamMon1MapGroup], a
ld [wRoamMon2MapGroup], a
ld [wRoamMon3MapGroup], a
ld [wRoamMon1MapNumber], a
ld [wRoamMon2MapNumber], a
ld [wRoamMon3MapNumber], a
ld a, 0
call GetSRAMBank
ld hl, $abe2
xor a
ld [hli], a
dec a
ld [hl], a
call CloseSRAM
call Function5d33
call Function5cd3
xor a
ld [MonType], a
ld [JohtoBadges], a
ld [KantoBadges], a
ld [Coins], a
ld [Coins + 1], a
START_MONEY EQU 3000
IF START_MONEY / $10000
ld a, START_MONEY / $10000
ENDC
ld [Money], a
ld a, START_MONEY / $100 % $100
ld [Money + 1], a
ld a, START_MONEY % $100
ld [Money + 2], a
xor a
ld [wdc17], a
ld hl, wdc19
ld [hl], 2300 / $10000
inc hl
ld [hl], 2300 / $100 % $100
inc hl
ld [hl], 2300 % $100
call Function5ce9
callba Function26751
callba Function44765
callba Function1061c0
call ResetGameTime
ret
; 5ca1
Function5ca1: ; 5ca1
xor a
ld [hli], a
dec a
ld [hl], a
ret
; 5ca6
SetDefaultBoxNames: ; 5ca6
ld hl, wBoxNames
ld c, 0
.loop
push hl
ld de, .Box
call CopyName2
dec hl
ld a, c
inc a
cp 10
jr c, .less
sub 10
ld [hl], "1"
inc hl
.less
add "0"
ld [hli], a
ld [hl], "@"
pop hl
ld de, 9
add hl, de
inc c
ld a, c
cp NUM_BOXES
jr c, .loop
ret
.Box
db "BOX@"
; 5cd3
Function5cd3: ; 5cd3
ld hl, wdfe8
ld a, $3
ld [hli], a
ld a, $6
ld [hli], a
ld de, .Ralph
call CopyName2
ret
; 5ce3
.Ralph ; 5ce3
db "RALPH@"
; 5ce9
Function5ce9: ; 5ce9
ld hl, .Rival
ld de, RivalName
call .Copy
ld hl, .Mom
ld de, MomsName
call .Copy
ld hl, .Red
ld de, RedsName
call .Copy
ld hl, .Green
ld de, GreensName
.Copy
ld bc, NAME_LENGTH
call CopyBytes
ret
.Rival db "???@"
.Red db "RED@"
.Green db "GREEN@"
.Mom db "MOM@"
; 5d23
InitializeWorld: ; 5d23
call Function610f
callba GetSpawnCoord
callba Function113d6
ret
; 5d33
Function5d33: ; 5d33
ld a, $0
call GetSRAMBank
ld a, [CurDay]
inc a
ld b, a
ld a, [$ac68]
cp b
ld a, [$ac6a]
ld c, a
ld a, [$ac69]
jr z, .asm_5d55
ld a, b
ld [$ac68], a
call Random
ld c, a
call Random
.asm_5d55
ld [wdc9f], a
ld [$ac69], a
ld a, c
ld [wdca0], a
ld [$ac6a], a
jp CloseSRAM
; 5d65
Continue: ; 5d65
callba TryLoadSaveFile
jr c, .asm_5dd6
callba Function150b9
call Function1d6e
call Function5e85
ld a, $1
ld [hBGMapMode], a
ld c, $14
call DelayFrames
call Function5e34
jr nc, .asm_5d8c
call WriteBackup
jr .asm_5dd6
.asm_5d8c
call Function5e48
jr nc, .asm_5d96
call WriteBackup
jr .asm_5dd6
.asm_5d96
ld a, $8
ld [MusicFade], a
ld a, MUSIC_NONE % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_NONE / $100
ld [MusicFadeIDHi], a
call WhiteBGMap
call Function5df0
call WriteBackup
call ClearTileMap
ld c, $14
call DelayFrames
callba RestoreRoamMons
callba Function105091
callba Function140ae
ld a, [wd4b5]
cp $1
jr z, .asm_5dd7
ld a, $f2
ld [$ff9f], a
jp Function5e5d
.asm_5dd6
ret
.asm_5dd7
ld a, $e ; SPAWN_NEW_BARK
ld [wd001], a
call Function5de7
jp Function5e5d
; 5de2
Function5de2: ; 5de2
ld a, $1a ; SPAWN_MT_SILVER
ld [wd001], a
; 5de7
Function5de7: ; 5de7
xor a
ld [wd4b5], a
ld a, $f1
ld [$ff9f], a
ret
; 5df0
Function5df0: ; 5df0
callba Function10632f
ret nc
ld hl, wd479
bit 1, [hl]
ret nz
ld a, $5
ld [MusicFade], a
ld a, MUSIC_MOBILE_ADAPTER_MENU % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_MOBILE_ADAPTER_MENU / $100
ld [MusicFadeIDHi], a
ld c, 20
call DelayFrames
ld c, $1
callba Function4802f
callba Function1509a
ld a, $8
ld [MusicFade], a
ld a, MUSIC_NONE % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_NONE / $100
ld [MusicFadeIDHi], a
ld c, 35
call DelayFrames
ret
; 5e34
Function5e34: ; 5e34
.asm_5e34
call DelayFrame
call GetJoypad
ld hl, hJoyPressed
bit 0, [hl]
jr nz, .asm_5e47
bit 1, [hl]
jr z, .asm_5e34
scf
ret
.asm_5e47
ret
; 5e48
Function5e48: ; 5e48
call Function6e3
and $80
jr z, .asm_5e5b
callba Function20021
ld a, c
and a
jr z, .asm_5e5b
scf
ret
.asm_5e5b
xor a
ret
; 5e5d
Function5e5d: ; 5e5d
.asm_5e5d
xor a
ld [wc2c1], a
ld [InLinkBattle], a
ld hl, GameTimerPause
set 0, [hl]
res 7, [hl]
ld hl, wd83e
set 1, [hl]
callba OverworldLoop
ld a, [wd4b5]
cp $2
jr z, .asm_5e80
jp Reset
.asm_5e80
call Function5de2
jr .asm_5e5d
; 5e85
Function5e85: ; 5e85
call Function6e3
and $80
jr z, .asm_5e93
ld de, $0408
call Function5eaf
ret
.asm_5e93
ld de, $0408
call Function5e9f
ret
; 5e9a
Function5e9a: ; 5e9a
ld de, $0400
jr Function5e9f
; 5e9f
Function5e9f: ; 5e9f
call Function5ebf
call Function5f1c
call Function5f40
call Functione5f
call DrawOnMap
ret
; 5eaf
Function5eaf: ; 5eaf
call Function5ebf
call Function5f1c
call Function5f48
call Functione5f
call DrawOnMap
ret
; 5ebf
Function5ebf: ; 5ebf
xor a
ld [hBGMapMode], a
ld hl, MenuDataHeader_0x5ed9
ld a, [StatusFlags]
bit 0, a ; pokedex
jr nz, .asm_5ecf
ld hl, MenuDataHeader_0x5efb
.asm_5ecf
call Function1e35
call Function1cbb
call Function1c89
ret
; 5ed9
MenuDataHeader_0x5ed9: ; 5ed9
db $40 ; flags
db 00, 00 ; start coords
db 09, 15 ; end coords
dw MenuData2_0x5ee1
db 1 ; default option
; 5ee1
MenuData2_0x5ee1: ; 5ee1
db $00 ; flags
db 4 ; items
db "PLAYER@"
db "BADGES@"
db "#DEX@"
db "TIME@"
; 5efb
MenuDataHeader_0x5efb: ; 5efb
db $40 ; flags
db 00, 00 ; start coords
db 09, 15 ; end coords
dw MenuData2_0x5f03
db 1 ; default option
; 5f03
MenuData2_0x5f03: ; 5f03
db $00 ; flags
db 4 ; items
db "PLAYER <PLAYER>@"
db "BADGES@"
db " @"
db "TIME@"
; 5f1c
Function5f1c: ; 5f1c
call Function1cfd
push hl
ld de, $005d
add hl, de
call Function5f58
pop hl
push hl
ld de, $0084
add hl, de
call Function5f6b
pop hl
push hl
ld de, $0030
add hl, de
ld de, .Player
call PlaceString
pop hl
ret
.Player
db "<PLAYER>@"
; 5f40
Function5f40: ; 5f40
ld de, $00a9
add hl, de
call Function5f84
ret
; 5f48
Function5f48: ; 5f48
ld de, $00a9
add hl, de
ld de, .text_5f53
call PlaceString
ret
.text_5f53
db " ???@"
; 5f58
Function5f58: ; 5f58
push hl
ld hl, JohtoBadges
ld b, $2
call CountSetBits
pop hl
ld de, wd265
ld bc, $0102
jp PrintNum
; 5f6b
Function5f6b: ; 5f6b
ld a, [StatusFlags]
bit 0, a
ret z
push hl
ld hl, PokedexCaught
ld b, $20
call CountSetBits
pop hl
ld de, wd265
ld bc, $0103
jp PrintNum
; 5f84
Function5f84: ; 5f84
ld de, GameTimeHours
ld bc, $0203
call PrintNum
ld [hl], $6d
inc hl
ld de, GameTimeMinutes
ld bc, $8102
jp PrintNum
; 5f99
OakSpeech: ; 0x5f99
callba Function90672
call Function4dd
call ClearTileMap
ld de, MUSIC_ROUTE_30
call PlayMusic
call Function4a3
call FadeToWhite
xor a
ld [CurPartySpecies], a
ld a, POKEMON_PROF
ld [TrainerClass], a
call Function619c
ld b, $1c
call GetSGBLayout
call Intro_FadeInFrontpic
ld hl, OakText1
call PrintText
call FadeToWhite
call ClearTileMap
ld a, WOOPER
ld [CurSpecies], a
ld [CurPartySpecies], a
call GetBaseData
hlcoord 6, 4
call Function3786
xor a
ld [TempMonDVs], a
ld [TempMonDVs + 1], a
ld b, $1c
call GetSGBLayout
call Intro_WipeInFrontpic
ld hl, OakText2
call PrintText
ld hl, OakText4
call PrintText
call FadeToWhite
call ClearTileMap
xor a
ld [CurPartySpecies], a
ld a, POKEMON_PROF
ld [TrainerClass], a
call Function619c
ld b, $1c
call GetSGBLayout
call Intro_FadeInFrontpic
ld hl, OakText5
call PrintText
call FadeToWhite
call ClearTileMap
xor a
ld [CurPartySpecies], a
callba DrawIntroPlayerPic
ld b, $1c
call GetSGBLayout
call Intro_FadeInFrontpic
ld hl, OakText6
call PrintText
call NamePlayer
ld hl, OakText7
call PrintText
ret
OakText1: ; 0x6045
TX_FAR _OakText1
db "@"
OakText2: ; 0x604a
TX_FAR _OakText2
start_asm
ld a,WOOPER
call PlayCry
call WaitSFX
ld hl,OakText3
ret
OakText3: ; 0x605b
TX_FAR _OakText3
db "@"
OakText4: ; 0x6060
TX_FAR _OakText4
db "@"
OakText5: ; 0x6065
TX_FAR _OakText5
db "@"
OakText6: ; 0x606a
TX_FAR _OakText6
db "@"
OakText7: ; 0x606f
TX_FAR _OakText7
db "@"
NamePlayer: ; 0x6074
callba MovePlayerPicRight
callba ShowPlayerNamingChoices
ld a, [wcfa9]
dec a
jr z, .NewName
call StorePlayerName
callba Function8c1d
callba MovePlayerPicLeft
ret
.NewName
ld b, 1
ld de, PlayerName
callba Function116c1
call FadeToWhite
call ClearTileMap
call Functione5f
call WaitBGMap
xor a
ld [CurPartySpecies], a
callba DrawIntroPlayerPic
ld b, $1c
call GetSGBLayout
call Function4f0
ld hl, PlayerName
ld de, .Chris
ld a, [PlayerGender]
bit 0, a
jr z, .asm_60cf
ld de, .Kris
.asm_60cf
call InitName
ret
.Chris
db "CHRIS@@@@@@"
.Kris
db "KRIS@@@@@@@"
; 60e9
Function60e9: ; 60e9
call LoadMenuDataHeader
call InterpretMenu2
ld a, [wcfa9]
dec a
call Function1db8
call WriteBackup
ret
; 60fa
StorePlayerName: ; 60fa
ld a, "@"
ld bc, NAME_LENGTH
ld hl, PlayerName
call ByteFill
ld hl, PlayerName
ld de, StringBuffer2
call CopyName2
ret
; 610f
Function610f: ; 610f
ld a, [hROMBank]
push af
ld a, 0 << 7 | 32 ; fade out
ld [MusicFade], a
ld de, MUSIC_NONE
ld a, e
ld [MusicFadeIDLo], a
ld a, d
ld [MusicFadeIDHi], a
ld de, SFX_ESCAPE_ROPE
call PlaySFX
pop af
rst Bankswitch
ld c, 8
call DelayFrames
ld hl, Shrink1Pic
ld b, BANK(Shrink1Pic)
call Function61b4
ld c, 8
call DelayFrames
ld hl, Shrink2Pic
ld b, BANK(Shrink2Pic)
call Function61b4
ld c, 8
call DelayFrames
hlcoord 6, 5
ld b, 7
ld c, 7
call ClearBox
ld c, 3
call DelayFrames
call Function61cd
call Functione5f
ld c, 50
call DelayFrames
call FadeToWhite
call ClearTileMap
ret
; 616a
Intro_FadeInFrontpic: ; 616a
ld hl, IntroFadePalettes
ld b, IntroFadePalettesEnd - IntroFadePalettes
.asm_616f
ld a, [hli]
call DmgToCgbBGPals
ld c, 10
call DelayFrames
dec b
jr nz, .asm_616f
ret
; 617c
IntroFadePalettes: ; 0x617c
db %01010100
db %10101000
db %11111100
db %11111000
db %11110100
db %11100100
IntroFadePalettesEnd
; 6182
Intro_WipeInFrontpic: ; 6182
ld a, $77
ld [hWX], a
call DelayFrame
ld a, $e4
call DmgToCgbBGPals
.loop
call DelayFrame
ld a, [hWX]
sub $8
cp $ff
ret z
ld [hWX], a
jr .loop
; 619c
Function619c: ; 619c
ld de, VTiles2
callba GetTrainerPic
xor a
ld [$ffad], a
hlcoord 6, 4
lb bc, 7, 7
predef FillBox
ret
; 61b4
Function61b4: ; 61b4
ld de, VTiles2
ld c, $31
predef DecompressPredef
xor a
ld [$ffad], a
hlcoord 6, 4
lb bc, 7, 7
predef FillBox
ret
; 61cd
Function61cd: ; 61cd
callba GetPlayerIcon
ld c, $c
ld hl, VTiles0
call Request2bpp
ld hl, Sprites
ld de, .data_61fe
ld a, [de]
inc de
ld c, a
.loop
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld b, 0
ld a, [PlayerGender]
bit 0, a
jr z, .male
ld b, 1
.male
ld a, b
ld [hli], a
dec c
jr nz, .loop
ret
; 61fe
.data_61fe ; 61fe
db 4
db $4c, $48, $00
db $4c, $50, $01
db $54, $48, $02
db $54, $50, $03
; 620b
Function620b: ; 620b
callab Functione4579
jr c, Function6219
callba Functione48ac
Function6219: ; 6219
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
call TitleScreen
call DelayFrame
.loop
call Function627b
jr nc, .loop
call ClearSprites
call WhiteBGMap
pop af
ld [rSVBK], a
ld hl, rLCDC
res 2, [hl]
call ClearScreen
call Function3200
xor a
ld [hLCDStatCustom], a
ld [hSCX], a
ld [hSCY], a
ld a, $7
ld [hWX], a
ld a, $90
ld [hWY], a
ld b, $8
call GetSGBLayout
call UpdateTimePals
ld a, [wcf64]
cp $5
jr c, .ok
xor a
.ok
ld e, a
ld d, 0
ld hl, .jumptable_626a
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 626a
.jumptable_626a
dw Function5ae8
dw Function6389
dw Function620b
dw Function620b
dw Function6392
; 6274
TitleScreen: ; 6274
callba _TitleScreen
ret
; 627b
Function627b: ; 627b
ld a, [wcf63]
bit 7, a
jr nz, .true
call TitleScreenScene
callba Function10eea7
call DelayFrame
and a
ret
.true
scf
ret
; 6292
Function6292: ; 6292 ; unreferenced
ld a, [$ff9b]
and $7
ret nz
ld hl, LYOverrides + $5f
ld a, [hl]
dec a
ld bc, $0028
call ByteFill
ret
; 62a3
TitleScreenScene: ; 62a3
ld e, a
ld d, 0
ld hl, .scenes
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 62af
.scenes
dw TitleScreenEntrance
dw TitleScreenTimer
dw TitleScreenMain
dw TitleScreenEnd
; 62b7
Function62b7: ; 62b7
ld hl, wcf63
inc [hl]
ret
; 62bc
TitleScreenEntrance: ; 62bc
; Animate the logo:
; Move each line by 4 pixels until our count hits 0.
ld a, [hSCX]
and a
jr z, .done
sub 4
ld [hSCX], a
; Lay out a base (all lines scrolling together).
ld e, a
ld hl, LYOverrides
ld bc, 8 * 10 ; logo height
call ByteFill
; Reversed signage for every other line's position.
; This is responsible for the interlaced effect.
ld a, e
xor -1
inc a
ld b, 8 * 10 / 2 ; logo height / 2
ld hl, LYOverrides + 1
.loop
ld [hli], a
inc hl
dec b
jr nz, .loop
callba AnimateTitleCrystal
ret
.done
; Next scene
ld hl, wcf63
inc [hl]
xor a
ld [hLCDStatCustom], a
; Play the title screen music.
ld de, MUSIC_TITLE
call PlayMusic
ld a, $88
ld [hWY], a
ret
; 62f6
TitleScreenTimer: ; 62f6
; Next scene
ld hl, wcf63
inc [hl]
; Start a timer
ld hl, wcf65
ld de, $1140 ; 73.6 seconds
ld [hl], e
inc hl
ld [hl], d
ret
; 6304
TitleScreenMain: ; 6304
; Run the timer down.
ld hl, wcf65
ld e, [hl]
inc hl
ld d, [hl]
ld a, e
or d
jr z, .end
dec de
ld [hl], d
dec hl
ld [hl], e
; Save data can be deleted by pressing Up + B + Select.
call GetJoypad
ld hl, hJoyDown
ld a, [hl]
and D_UP + B_BUTTON + SELECT
cp D_UP + B_BUTTON + SELECT
jr z, .delete_save_data
; To bring up the clock reset dialog:
; Hold Down + B + Select to initiate the sequence.
ld a, [$ffeb]
cp $34
jr z, .check_clock_reset
ld a, [hl]
and D_DOWN + B_BUTTON + SELECT
cp D_DOWN + B_BUTTON + SELECT
jr nz, .check_start
ld a, $34
ld [$ffeb], a
jr .check_start
; Keep Select pressed, and hold Left + Up.
; Then let go of Select.
.check_clock_reset
bit 2, [hl] ; SELECT
jr nz, .check_start
xor a
ld [$ffeb], a
ld a, [hl]
and D_LEFT + D_UP
cp D_LEFT + D_UP
jr z, .clock_reset
; Press Start or A to start the game.
.check_start
ld a, [hl]
and START | A_BUTTON
jr nz, .incave
ret
.incave
ld a, 0
jr .done
.delete_save_data
ld a, 1
.done
ld [wcf64], a
; Return to the intro sequence.
ld hl, wcf63
set 7, [hl]
ret
.end
; Next scene
ld hl, wcf63
inc [hl]
; Fade out the title screen music
xor a
ld [MusicFadeIDLo], a
ld [MusicFadeIDHi], a
ld hl, MusicFade
ld [hl], 8 ; 1 second
ld hl, wcf65
inc [hl]
ret
.clock_reset
ld a, 4
ld [wcf64], a
; Return to the intro sequence.
ld hl, wcf63
set 7, [hl]
ret
; 6375
TitleScreenEnd: ; 6375
; Wait until the music is done fading.
ld hl, wcf65
inc [hl]
ld a, [MusicFade]
and a
ret nz
ld a, 2
ld [wcf64], a
; Back to the intro.
ld hl, wcf63
set 7, [hl]
ret
; 6389
Function6389: ; 6389
callba Function4d54c
jp Init
; 6392
Function6392: ; 6392
callba Function4d3b1
jp Init
; 639b
Function639b: ; 639b
ld a, [wcf65]
and $3
ret nz
ld bc, wc3a4
ld hl, $000a
add hl, bc
ld l, [hl]
ld h, 0
rept 2
add hl, hl
endr
ld de, Data63ca
add hl, de
ld a, [wcf65]
and $4
srl a
srl a
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld a, [hli]
and a
ret z
ld e, a
ld d, [hl]
ld a, $1
call Function3b2a
ret
; 63ca
Data63ca: ; 63ca
db $5c, $50, $00, $00
db $5c, $68, $5c, $58
db $5c, $68, $5c, $78
db $5c, $88, $5c, $78
db $00, $00, $5c, $78
db $00, $00, $5c, $58
; 63e2
Copyright: ; 63e2
call ClearTileMap
call Functione5f
ld de, CopyrightGFX
ld hl, VTiles2 + $600 ; tile $60
lb bc, BANK(CopyrightGFX), $1d
call Request2bpp
hlcoord 2, 7
ld de, CopyrightString
jp PlaceString
; 63fd
CopyrightString: ; 63fd
; ©1995-2001 Nintendo
db $60, $61, $62, $63, $64, $65, $66
db $67, $68, $69, $6a, $6b, $6c
db $4e
; ©1995-2001 Creatures inc.
db $60, $61, $62, $63, $64, $65, $66, $6d
db $6e, $6f, $70, $71, $72, $7a, $7b, $7c
db $4e
; ©1995-2001 GAME FREAK inc.
db $60, $61, $62, $63, $64, $65, $66, $73, $74
db $75, $76, $77, $78, $79, $7a, $7b, $7c
db "@"
; 642e
GameInit:: ; 642e
callba Function14f1c
call Function1fbf
call WhiteBGMap
call ClearTileMap
ld a, $98
ld [$ffd7], a
xor a
ld [hBGMapAddress], a
ld [hJoyDown], a
ld [hSCX], a
ld [hSCY], a
ld a, $90
ld [hWY], a
call WaitBGMap
jp Function620b
; 6454
Function6454:: ; 6454
call DelayFrame
ld a, [hOAMUpdate]
push af
ld a, $1
ld [hOAMUpdate], a
ld a, [hBGMapMode]
push af
xor a
ld [hBGMapMode], a
call Function6473
pop af
ld [hBGMapMode], a
pop af
ld [hOAMUpdate], a
ld hl, VramState
set 6, [hl]
ret
; 6473
Function6473: ; 6473
xor a
ld [hLCDStatCustom], a
ld [hBGMapMode], a
ld a, $90
ld [hWY], a
call Function2173
ld a, $9c
call Function64b9
call Function2e20
callba Function49409
callba Function96a4
ld a, $1
ld [hCGBPalUpdate], a
xor a
ld [hBGMapMode], a
ld [hWY], a
callba Function64db
ld a, $98
call Function64b9
xor a
ld [wd152], a
ld a, $98
ld [wd153], a
xor a
ld [hSCX], a
ld [hSCY], a
call Function5958
ret
; 64b9
Function64b9: ; 64b9
ld [$ffd7], a
xor a
ld [hBGMapAddress], a
ret
; 64bf
Function64bf:: ; 64bf
ld a, [hOAMUpdate]
push af
ld a, $1
ld [hOAMUpdate], a
call Function64cd
pop af
ld [hOAMUpdate], a
ret
; 64cd
Function64cd: ; 64cd
call Functione5f
ld a, $90
ld [hWY], a
call Function2e31
call Functione51
ret
; 64db
Function64db: ; 64db
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld a, $60
ld hl, w6_d000
ld bc, $400
call ByteFill
ld a, w6_d000 / $100
ld [rHDMA1], a
ld a, w6_d000 % $100
ld [rHDMA2], a
ld a, ($9800 % $8000) / $100
ld [rHDMA3], a
ld a, ($9800 % $8000) % $100
ld [rHDMA4], a
ld a, $3f
ld [hDMATransfer], a
call DelayFrame
pop af
ld [rSVBK], a
ret
; 6508
LearnMove: ; 6508
call Function309d
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
call GetNick
ld hl, StringBuffer1
ld de, wd050
ld bc, PKMN_NAME_LENGTH
call CopyBytes
.loop
ld hl, PartyMon1Moves
ld bc, PartyMon2 - PartyMon1
ld a, [CurPartyMon]
call AddNTimes
ld d, h
ld e, l
ld b, NUM_MOVES
.next
ld a, [hl]
and a
jr z, .learn
inc hl
dec b
jr nz, .next
push de
call Function65d3
pop de
jp c, .cancel
push hl
push de
ld [wd265], a
ld b, a
ld a, [IsInBattle]
and a
jr z, .not_disabled
ld a, [DisabledMove]
cp b
jr nz, .not_disabled
xor a
ld [DisabledMove], a
ld [PlayerDisableCount], a
.not_disabled
call GetMoveName
ld hl, UnknownText_0x6684
call PrintText
pop de
pop hl
.learn
ld a, [wd262]
ld [hl], a
ld bc, PartyMon1PP - PartyMon1Moves
add hl, bc
push hl
push de
dec a
ld hl, Moves + MOVE_PP
ld bc, MOVE_LENGTH
call AddNTimes
ld a, BANK(Moves)
call GetFarByte
pop de
pop hl
ld [hl], a
ld a, [IsInBattle]
and a
jp z, .learned
ld a, [CurPartyMon]
ld b, a
ld a, [CurBattleMon]
cp b
jp nz, .learned
ld a, [PlayerSubStatus5]
bit SUBSTATUS_TRANSFORMED, a
jp nz, .learned
ld h, d
ld l, e
ld de, BattleMonMoves
ld bc, NUM_MOVES
call CopyBytes
ld bc, PartyMon1PP - (PartyMon1Moves + NUM_MOVES)
add hl, bc
ld de, BattleMonPP
ld bc, NUM_MOVES
call CopyBytes
jp .learned
.cancel
ld hl, UnknownText_0x6675
call PrintText
call YesNoBox
jp c, .loop
ld hl, UnknownText_0x667a
call PrintText
ld b, 0
ret
.learned
ld hl, UnknownText_0x666b
call PrintText
ld b, 1
ret
; 65d3
Function65d3: ; 65d3
push hl
ld hl, UnknownText_0x667f
call PrintText
call YesNoBox
pop hl
ret c
ld bc, -NUM_MOVES
add hl, bc
push hl
ld de, wd25e
ld bc, NUM_MOVES
call CopyBytes
pop hl
.asm_65ee
push hl
ld hl, UnknownText_0x6670
call PrintText
hlcoord 5, 2
ld b, NUM_MOVES * 2
ld c, MOVE_NAME_LENGTH
call TextBox
hlcoord 5 + 2, 2 + 2
ld a, SCREEN_WIDTH * 2
ld [Buffer1], a
predef ListMoves
ld a, $4
ld [wcfa1], a
ld a, $6
ld [wcfa2], a
ld a, [wd0eb]
inc a
ld [wcfa3], a
ld a, $1
ld [wcfa4], a
ld [wcfa9], a
ld [wcfaa], a
ld a, $3
ld [wcfa8], a
ld a, $20
ld [wcfa5], a
xor a
ld [wcfa6], a
ld a, $20
ld [wcfa7], a
call Function1bc9
push af
call Function30b4
pop af
pop hl
bit 1, a
jr nz, .asm_6669
push hl
ld a, [wcfa9]
dec a
ld c, a
ld b, 0
add hl, bc
ld a, [hl]
push af
push bc
call IsHMMove
pop bc
pop de
ld a, d
jr c, .asm_6660
pop hl
add hl, bc
and a
ret
.asm_6660
ld hl, UnknownText_0x669a
call PrintText
pop hl
jr .asm_65ee
.asm_6669
scf
ret
; 666b
UnknownText_0x666b: ; 666b
text_jump UnknownText_0x1c5660
db "@"
; 6670
UnknownText_0x6670: ; 6670
text_jump UnknownText_0x1c5678
db "@"
; 6675
UnknownText_0x6675: ; 6675
text_jump UnknownText_0x1c5699
db "@"
; 667a
UnknownText_0x667a: ; 667a
text_jump UnknownText_0x1c56af
db "@"
; 667f
UnknownText_0x667f: ; 667f
text_jump UnknownText_0x1c56c9
db "@"
; 6684
UnknownText_0x6684: ; 6684
text_jump UnknownText_0x1c5740
start_asm
push de
ld de, SFX_SWITCH_POKEMON
call PlaySFX
pop de
ld hl, UnknownText_0x6695
ret
; 6695
UnknownText_0x6695: ; 6695
text_jump UnknownText_0x1c574e
db "@"
; 669a
UnknownText_0x669a: ; 669a
text_jump UnknownText_0x1c5772
db "@"
; 669f
CheckNickErrors:: ; 669f
; error-check monster nick before use
; must be a peace offering to gamesharkers
; input: de = nick location
push bc
push de
ld b, PKMN_NAME_LENGTH
.checkchar
; end of nick?
ld a, [de]
cp "@" ; terminator
jr z, .end
; check if this char is a text command
ld hl, .textcommands
dec hl
.loop
; next entry
inc hl
; reached end of commands table?
ld a, [hl]
cp a, $ff
jr z, .done
; is the current char between this value (inclusive)...
ld a, [de]
cp [hl]
inc hl
jr c, .loop
; ...and this one?
cp [hl]
jr nc, .loop
; replace it with a "?"
ld a, "?"
ld [de], a
jr .loop
.done
; next char
inc de
; reached end of nick without finding a terminator?
dec b
jr nz, .checkchar
; change nick to "?@"
pop de
push de
ld a, "?"
ld [de], a
inc de
ld a, "@"
ld [de], a
.end
; if the nick has any errors at this point it's out of our hands
pop de
pop bc
ret
; 66cf
.textcommands ; 66cf
; table definining which characters
; are actually text commands
; format:
; >= <
db $00, $05
db $14, $19
db $1d, $26
db $35, $3a
db $3f, $40
db $49, $5d
db $5e, $7f
db $ff ; end
; 66de
_Multiply:: ; 66de
; hMultiplier is one byte.
ld a, 8
ld b, a
xor a
ld [hMultiplicand - 1], a
ld [hMathBuffer + 1], a
ld [hMathBuffer + 2], a
ld [hMathBuffer + 3], a
ld [hMathBuffer + 4], a
.loop
ld a, [hMultiplier]
srl a
ld [hMultiplier], a
jr nc, .next
ld a, [hMathBuffer + 4]
ld c, a
ld a, [hMultiplicand + 2]
add c
ld [hMathBuffer + 4], a
ld a, [hMathBuffer + 3]
ld c, a
ld a, [hMultiplicand + 1]
adc c
ld [hMathBuffer + 3], a
ld a, [hMathBuffer + 2]
ld c, a
ld a, [hMultiplicand + 0]
adc c
ld [hMathBuffer + 2], a
ld a, [hMathBuffer + 1]
ld c, a
ld a, [hMultiplicand - 1]
adc c
ld [hMathBuffer + 1], a
.next
dec b
jr z, .done
; hMultiplicand <<= 1
ld a, [hMultiplicand + 2]
add a
ld [hMultiplicand + 2], a
ld a, [hMultiplicand + 1]
rla
ld [hMultiplicand + 1], a
ld a, [hMultiplicand + 0]
rla
ld [hMultiplicand + 0], a
ld a, [hMultiplicand - 1]
rla
ld [hMultiplicand - 1], a
jr .loop
.done
ld a, [hMathBuffer + 4]
ld [hProduct + 3], a
ld a, [hMathBuffer + 3]
ld [hProduct + 2], a
ld a, [hMathBuffer + 2]
ld [hProduct + 1], a
ld a, [hMathBuffer + 1]
ld [hProduct + 0], a
ret
; 673e
_Divide:: ; 673e
xor a
ld [hMathBuffer + 0], a
ld [hMathBuffer + 1], a
ld [hMathBuffer + 2], a
ld [hMathBuffer + 3], a
ld [hMathBuffer + 4], a
ld a, 9
ld e, a
.loop
ld a, [hMathBuffer + 0]
ld c, a
ld a, [hDividend + 1]
sub c
ld d, a
ld a, [hDivisor]
ld c, a
ld a, [hDividend + 0]
sbc c
jr c, .asm_6767
ld [hDividend + 0], a
ld a, d
ld [hDividend + 1], a
ld a, [hMathBuffer + 4]
inc a
ld [hMathBuffer + 4], a
jr .loop
.asm_6767
ld a, b
cp 1
jr z, .done
ld a, [hMathBuffer + 4]
add a
ld [hMathBuffer + 4], a
ld a, [hMathBuffer + 3]
rla
ld [hMathBuffer + 3], a
ld a, [hMathBuffer + 2]
rla
ld [hMathBuffer + 2], a
ld a, [hMathBuffer + 1]
rla
ld [hMathBuffer + 1], a
dec e
jr nz, .asm_6798
ld e, 8
ld a, [hMathBuffer + 0]
ld [hDivisor], a
xor a
ld [hMathBuffer + 0], a
ld a, [hDividend + 1]
ld [hDividend + 0], a
ld a, [hDividend + 2]
ld [hDividend + 1], a
ld a, [hDividend + 3]
ld [hDividend + 2], a
.asm_6798
ld a, e
cp 1
jr nz, .asm_679e
dec b
.asm_679e
ld a, [hDivisor]
srl a
ld [hDivisor], a
ld a, [hMathBuffer + 0]
rr a
ld [hMathBuffer + 0], a
jr .loop
.done
ld a, [hDividend + 1]
ld [hDivisor], a
ld a, [hMathBuffer + 4]
ld [hDividend + 3], a
ld a, [hMathBuffer + 3]
ld [hDividend + 2], a
ld a, [hMathBuffer + 2]
ld [hDividend + 1], a
ld a, [hMathBuffer + 1]
ld [hDividend + 0], a
ret
; 67c1
ItemAttributes: ; 67c1
INCLUDE "items/item_attributes.asm"
; 6ec1
Function6ec1: ; 6ec1
ld hl, OBJECT_PALETTE
add hl, bc
bit 5, [hl]
jr z, .asm_6ed9
ld hl, OBJECT_04
add hl, bc
bit 4, [hl]
push hl
push bc
call Function6f2c
pop bc
pop hl
ret c
jr .asm_6ee9
.asm_6ed9
ld hl, OBJECT_04
add hl, bc
bit 4, [hl]
jr nz, .asm_6ee9
push hl
push bc
call Function6f07
pop bc
pop hl
ret c
.asm_6ee9
bit 6, [hl]
jr nz, .asm_6ef5
push hl
push bc
call Function7009
pop bc
pop hl
ret c
.asm_6ef5
bit 5, [hl]
jr nz, .asm_6f05
push hl
call Function70a4
pop hl
ret c
push hl
call Function70ed
pop hl
ret c
.asm_6f05
and a
ret
; 6f07
Function6f07: ; 6f07
call Function6f5f
ret c
ld hl, OBJECT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld e, [hl]
ld hl, OBJECT_PALETTE
add hl, bc
bit 7, [hl]
jp nz, Function6fa1
ld hl, OBJECT_STANDING_TILE
add hl, bc
ld a, [hl]
ld d, a
call GetTileCollision
and a
jr z, Function6f3e
scf
ret
; 6f2c
Function6f2c: ; 6f2c
call Function6f5f
ret c
ld hl, OBJECT_STANDING_TILE
add hl, bc
ld a, [hl]
call GetTileCollision
cp $1
jr z, Function6f3e
scf
ret
; 6f3e
Function6f3e: ; 6f3e
ld hl, OBJECT_STANDING_TILE
add hl, bc
ld a, [hl]
call Function6f7f
ret nc
push af
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld a, [hl]
and 3
ld e, a
ld d, 0
ld hl, .data_6f5b
add hl, de
pop af
and [hl]
ret z
scf
ret
; 6f5b
.data_6f5b
db 1 << DOWN, 1 << UP, 1 << RIGHT, 1 << LEFT
; 6f5f
Function6f5f: ; 6f5f
ld hl, OBJECT_NEXT_TILE
add hl, bc
ld a, [hl]
call Function6f7f
ret nc
push af
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
and 3
ld e, a
ld d, 0
ld hl, .data_6f7b
add hl, de
pop af
and [hl]
ret z
scf
ret
; 6f7b
.data_6f7b
db 1 << UP, 1 << DOWN, 1 << LEFT, 1 << RIGHT
; 6f7f
Function6f7f: ; 6f7f
ld d, a
and $f0
cp $b0
jr z, .done
cp $c0
jr z, .done
xor a
ret
.done
ld a, d
and 7
ld e, a
ld d, 0
ld hl, .data_6f99
add hl, de
ld a, [hl]
scf
ret
; 6f99
.data_6f99
db 8, 4, 1, 2
db 10, 6, 9, 5
; 6fa1
Function6fa1: ; 6fa1
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld a, [hl]
and 3
jr z, .asm_6fb2
dec a
jr z, .asm_6fb7
dec a
jr z, .asm_6fbb
jr .asm_6fbf
.asm_6fb2
inc e
push de
inc d
jr .asm_6fc2
.asm_6fb7
push de
inc d
jr .asm_6fc2
.asm_6fbb
push de
inc e
jr .asm_6fc2
.asm_6fbf
inc d
push de
inc e
.asm_6fc2
call Function2a3c
call GetTileCollision
pop de
and a
jr nz, .asm_6fd7
call Function2a3c
call GetTileCollision
and a
jr nz, .asm_6fd7
xor a
ret
.asm_6fd7
scf
ret
; 6fd9
CheckFacingObject:: ; 6fd9
call GetFacingTileCoord
; Double the distance for counter tiles.
call CheckCounterTile
jr nz, .asm_6ff1
ld a, [MapX]
sub d
cpl
inc a
add d
ld d, a
ld a, [MapY]
sub e
cpl
inc a
add e
ld e, a
.asm_6ff1
ld bc, ObjectStructs ; redundant
ld a, 0
ld [$ffaf], a
call Function7041
ret nc
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld a, [hl]
cp STANDING
jr z, .standing
xor a
ret
.standing
scf
ret
; 7009
Function7009: ; 7009
ld hl, OBJECT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld e, [hl]
jr Function7041
; 7015
Function7015: ; 7015
ld a, [$ffaf]
call GetObjectStruct
call Function7021
call Function7041
ret
Function7021: ; 7021
ld hl, OBJECT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld e, [hl]
call GetSpriteDirection
and a
jr z, .down
cp OW_UP
jr z, .up
cp OW_LEFT
jr z, .left
inc d
ret
.down
inc e
ret
.up
dec e
ret
.left
dec d
ret
; 7041
Function7041: ; 7041
ld bc, ObjectStructs
xor a
.loop
ld [$ffb0], a
call GetObjectSprite
jr z, .nope
ld hl, OBJECT_04
add hl, bc
bit 7, [hl]
jr nz, .nope
ld hl, OBJECT_PALETTE
add hl, bc
bit 7, [hl]
jr z, .got
call Function7171
jr nc, .ok
jr .ok2
.got
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .ok
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .ok
.ok2
ld a, [$ffaf]
ld l, a
ld a, [$ffb0]
cp l
jr nz, .setcarry
.ok
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .nope
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .nope
ld a, [$ffaf]
ld l, a
ld a, [$ffb0]
cp l
jr nz, .setcarry
.nope
ld hl, OBJECT_STRUCT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [$ffb0]
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
and a
ret
.setcarry
scf
ret
; 70a4
Function70a4: ; 70a4
ld hl, OBJECT_22
add hl, bc
ld a, [hl]
and a
jr z, .asm_70e9
and $f
jr z, .asm_70c7
ld e, a
ld d, a
ld hl, OBJECT_20
add hl, bc
ld a, [hl]
sub d
ld d, a
ld a, [hl]
add e
ld e, a
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr z, .asm_70eb
cp e
jr z, .asm_70eb
.asm_70c7
ld hl, OBJECT_22
add hl, bc
ld a, [hl]
swap a
and $f
jr z, .asm_70e9
ld e, a
ld d, a
ld hl, OBJECT_21
add hl, bc
ld a, [hl]
sub d
ld d, a
ld a, [hl]
add e
ld e, a
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, [hl]
cp d
jr z, .asm_70eb
cp e
jr z, .asm_70eb
.asm_70e9
xor a
ret
.asm_70eb
scf
ret
; 70ed
Function70ed: ; 70ed
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [XCoord]
cp [hl]
jr z, .asm_70fe
jr nc, .asm_7111
add $9
cp [hl]
jr c, .asm_7111
.asm_70fe
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, [YCoord]
cp [hl]
jr z, .asm_710f
jr nc, .asm_7111
add $8
cp [hl]
jr c, .asm_7111
.asm_710f
and a
ret
.asm_7111
scf
ret
; 7113
Function7113: ; 7113
ld a, [MapX]
ld d, a
ld a, [MapY]
ld e, a
ld bc, ObjectStructs
xor a
.loop
ld [$ffb0], a
call GetObjectSprite
jr z, .asm_7160
ld hl, OBJECT_03
add hl, bc
ld a, [hl]
cp $15
jr nz, .asm_7136
call Function7171
jr c, .asm_716f
jr .asm_7160
.asm_7136
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .asm_714e
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .asm_714e
ld a, [$ffb0]
cp $0
jr z, .asm_7160
jr .asm_716f
.asm_714e
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .asm_7160
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .asm_7160
jr .asm_716f
.asm_7160
ld hl, OBJECT_STRUCT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [$ffb0]
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
xor a
ret
.asm_716f
scf
ret
; 7171
Function7171: ; 7171
ld hl, OBJECT_MAP_X
add hl, bc
ld a, d
sub [hl]
jr c, .asm_718b
cp $2
jr nc, .asm_718b
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, e
sub [hl]
jr c, .asm_718b
cp $2
jr nc, .asm_718b
scf
ret
.asm_718b
and a
ret
; 718d
GetFirstPokemonHappiness: ; 718d
ld hl, PartyMon1Happiness
ld bc, PartyMon2 - PartyMon1
ld de, PartySpecies
.loop
ld a, [de]
cp EGG
jr nz, .done
inc de
add hl, bc
jr .loop
.done
ld [wd265], a
ld a, [hl]
ld [ScriptVar], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
; 71ac
Function71ac: ; 71ac
ld a, [PartySpecies]
ld [wd265], a
cp EGG
ld a, $1
jr z, .egg
xor a
.egg
ld [ScriptVar], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
; 71c2
ChangeHappiness: ; 71c2
; Perform happiness action c on CurPartyMon
ld a, [CurPartyMon]
inc a
ld e, a
ld d, 0
ld hl, PartySpecies - 1
add hl, de
ld a, [hl]
cp EGG
ret z
push bc
ld hl, PartyMon1Happiness
ld bc, PartyMon2 - PartyMon1
ld a, [CurPartyMon]
call AddNTimes
pop bc
ld d, h
ld e, l
push de
ld a, [de]
cp 100
ld e, 0
jr c, .ok
inc e
cp 200
jr c, .ok
inc e
.ok
dec c
ld b, 0
ld hl, .Actions
rept 3
add hl, bc
endr
ld d, 0
add hl, de
ld a, [hl]
cp 100
pop de
ld a, [de]
jr nc, .negative
add [hl]
jr nc, .done
ld a, -1
jr .done
.negative
add [hl]
jr c, .done
xor a
.done
ld [de], a
ld a, [IsInBattle]
and a
ret z
ld a, [CurPartyMon]
ld b, a
ld a, [wd0d8]
cp b
ret nz
ld a, [de]
ld [BattleMonHappiness], a
ret
; 7221
.Actions
db +5, +3, +2 ; Gained a level
db +5, +3, +2 ; Used a stat-boosting item (vitamin or X-item)
db +1, +1, +0
db +3, +2, +1 ; Battled a Gym Leader
db +1, +1, +0 ; Learned a move
db -1, -1, -1 ; Lost to an enemy
db -5, -5, -10
db -5, -5, -10 ; Lost to a much weaker enemy
db +1, +1, +1
db +3, +3, +1
db +5, +5, +2
db +1, +1, +1
db +3, +3, +1
db +10, +10, +4
db -5, -5, -10 ; Used Heal Powder or Energypowder (bitter)
db -10, -10, -15 ; Used Energy Root (bitter)
db -15, -15, -20 ; Used Revival Herb (bitter)
db +3, +3, +1
db +10, +6, +4 ; Gained a level in the place where it was caught
; 725a
StepHappiness:: ; 725a
; Raise the party's happiness by 1 point every other step cycle.
ld hl, wdc77
ld a, [hl]
inc a
and 1
ld [hl], a
ret nz
ld de, PartyCount
ld a, [de]
and a
ret z
ld c, a
ld hl, PartyMon1Happiness
.loop
inc de
ld a, [de]
cp EGG
jr z, .next
inc [hl]
jr nz, .next
ld [hl], $ff
.next
push de
ld de, PartyMon2 - PartyMon1
add hl, de
pop de
dec c
jr nz, .loop
ret
; 7282
DaycareStep:: ; 7282
ld a, [wDaycareMan]
bit 0, a
jr z, .asm_72a4
ld a, [wBreedMon1Level] ; level
cp 100
jr nc, .asm_72a4
ld hl, wBreedMon1Exp + 2 ; exp
inc [hl]
jr nz, .asm_72a4
dec hl
inc [hl]
jr nz, .asm_72a4
dec hl
inc [hl]
ld a, [hl]
cp $50
jr c, .asm_72a4
ld a, $50
ld [hl], a
.asm_72a4
ld a, [wDaycareLady]
bit 0, a
jr z, .asm_72c6
ld a, [wBreedMon2Level] ; level
cp 100
jr nc, .asm_72c6
ld hl, wBreedMon2Exp + 2 ; exp
inc [hl]
jr nz, .asm_72c6
dec hl
inc [hl]
jr nz, .asm_72c6
dec hl
inc [hl]
ld a, [hl]
cp $50
jr c, .asm_72c6
ld a, $50
ld [hl], a
.asm_72c6
ld hl, wDaycareMan
bit 5, [hl] ; egg
ret z
ld hl, wStepsToEgg
dec [hl]
ret nz
call Random
ld [hl], a
callab Function16e1d
ld a, [wd265]
cp $e6
ld b, $50
jr nc, .asm_72f8
ld a, [wd265]
cp $aa
ld b, $28
jr nc, .asm_72f8
ld a, [wd265]
cp $6e
ld b, $1e
jr nc, .asm_72f8
ld b, $a
.asm_72f8
call Random
cp b
ret nc
ld hl, wDaycareMan
res 5, [hl]
set 6, [hl]
ret
; 7305
SpecialGiveShuckle: ; 7305
; Adding to the party.
xor a
ld [MonType], a
; Level 15 Shuckle.
ld a, SHUCKLE
ld [CurPartySpecies], a
ld a, 15
ld [CurPartyLevel], a
predef Functiond88c
jr nc, .NotGiven
; Caught data.
ld b, 0
callba Function4dba3
; Holding a Berry.
ld bc, PartyMon2 - PartyMon1
ld a, [PartyCount]
dec a
push af
push bc
ld hl, PartyMon1Item
call AddNTimes
ld [hl], BERRY
pop bc
pop af
; OT ID.
ld hl, PartyMon1ID
call AddNTimes
ld a, $2
ld [hli], a
ld [hl], $6
; Nickname.
ld a, [PartyCount]
dec a
ld hl, PartyMonNicknames
call SkipNames
ld de, SpecialShuckleNick
call CopyName2
; OT.
ld a, [PartyCount]
dec a
ld hl, PartyMonOT
call SkipNames
ld de, SpecialShuckleOT
call CopyName2
; Engine flag for this event.
ld hl, DailyFlags
set 5, [hl]
ld a, 1
ld [ScriptVar], a
ret
.NotGiven
xor a
ld [ScriptVar], a
ret
SpecialShuckleOT:
db "MANIA@"
SpecialShuckleNick:
db "SHUCKIE@"
; 737e
SpecialReturnShuckle: ; 737e
callba SelectMonFromParty
jr c, .asm_73e6
ld a, [CurPartySpecies]
cp SHUCKLE
jr nz, .DontReturn
ld a, [CurPartyMon]
ld hl, PartyMon1ID
ld bc, PartyMon2 - PartyMon1
call AddNTimes
; OT ID
ld a, [hli]
cp $2
jr nz, .DontReturn
ld a, [hl]
cp $6
jr nz, .DontReturn
; OT
ld a, [CurPartyMon]
ld hl, PartyMonOT
call SkipNames
ld de, SpecialShuckleOT
.CheckOT
ld a, [de]
cp [hl]
jr nz, .DontReturn
cp "@"
jr z, .asm_73bb
inc de
inc hl
jr .CheckOT
.asm_73bb
callba Functione538
jr c, .asm_73f1
ld a, [CurPartyMon]
ld hl, PartyMon1Happiness
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [hl]
cp 150
ld a, $3
jr nc, .asm_73e2
xor a
ld [wd10b], a
callab Functione039
ld a, $2
.asm_73e2
ld [ScriptVar], a
ret
.asm_73e6
ld a, $1
ld [ScriptVar], a
ret
.DontReturn
xor a
ld [ScriptVar], a
ret
.asm_73f1
ld a, $4
ld [ScriptVar], a
ret
; 73f7
Function73f7: ; 73f7
callba SelectMonFromParty
jr c, .asm_740e
ld a, [CurPartySpecies]
ld [ScriptVar], a
ld [wd265], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
.asm_740e
xor a
ld [ScriptVar], a
ret
; 7413
Function7413: ; 7413
ld hl, Data7459
jr Function7420
Function7418: ; 7418
ld hl, Data7462
jr Function7420
Function741d: ; 741d
ld hl, Data746b
Function7420: ; 7420
push hl
callba SelectMonFromParty
pop hl
jr c, .nope
ld a, [CurPartySpecies]
cp EGG
jr z, .egg
push hl
call GetCurNick
call CopyPokemonName_Buffer1_Buffer3
pop hl
call Random
.loop
sub [hl]
jr c, .ok
rept 3
inc hl
endr
jr .loop
.ok
inc hl
ld a, [hli]
ld [ScriptVar], a
ld c, [hl]
call ChangeHappiness
ret
.nope
xor a
ld [ScriptVar], a
ret
.egg
ld a, $1
ld [ScriptVar], a
ret
; 7459
Data7459: ; 7459
db $4c, $02, $09
db $80, $03, $0a
db $ff, $04, $0b
Data7462: ; 7462
db $9a, $02, $0c
db $4c, $03, $0d
db $ff, $04, $0e
Data746b: ; 746b
db $ff, $02, $12
; 746e
CopyPokemonName_Buffer1_Buffer3: ; 746e
ld hl, StringBuffer1
ld de, StringBuffer3
ld bc, PKMN_NAME_LENGTH
jp CopyBytes
; 747a
Predef1: ; 747a
; not used
ret
; 747b
SECTION "bank2", ROMX, BANK[$2]
Function8000: ; 8000
call Function2ed3
xor a
ld [hBGMapMode], a
call WhiteBGMap
call ClearSprites
hlcoord 0, 0
ld bc, TileMapEnd - TileMap
ld a, " "
call ByteFill
hlcoord 0, 0, AttrMap
ld bc, AttrMapEnd - AttrMap
ld a, $7
call ByteFill
call Function3200
call Function32f9
ret
; 8029
GetSpawnCoord: ; 8029
ld a, $ff
ld [wd4cd], a
ld [wd4ce], a
ld a, $0
ld hl, PlayerObjectTemplate
call Function19a6
ld b, $0
call Function808f
ld a, $0
call GetMapObject
ld hl, MAPOBJECT_COLOR
add hl, bc
ld e, $80
ld a, [wd45b]
bit 2, a
jr nz, .ok
ld a, [PlayerGender]
bit 0, a
jr z, .ok
ld e, (PAL_OW_BLUE << 4) | $80
.ok
ld [hl], e
ld a, $0
ld [$ffaf], a
ld bc, MapObjects
ld a, $0
ld [$ffb0], a
ld de, ObjectStructs
call Function8116
ld a, $0
ld [wd4cf], a
ret
; 8071
PlayerObjectTemplate: ; 8071
; A dummy map object used to initialize the player object.
; Shorter than the actual amount copied by two bytes.
; Said bytes seem to be unused.
person_event SPRITE_CHRIS, 0, 0, OW_LEFT | $3, $ff, -1, -1, $0, 0, $0000, -1
; db $01, $00, $00, $0b, $ff, $ff, $ff, $00, $00, $00, $00, $ff, $ff
; 807e
Function807e:: ; 807e
push de
ld a, b
call GetMapObject
pop de
ld hl, MAPOBJECT_X_COORD
add hl, bc
ld [hl], d
ld hl, MAPOBJECT_Y_COORD
add hl, bc
ld [hl], e
ret
; 808f
Function808f: ; 808f
push bc
ld a, [XCoord]
add 4
ld d, a
ld a, [YCoord]
add 4
ld e, a
pop bc
call Function807e
ret
; 80a1
Function80a1:: ; 80a1
ld a, b
call Function18de
ret c
ld hl, OBJECT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld e, [hl]
ld a, [$ffaf]
ld b, a
call Function807e
and a
ret
; 80b8
RefreshPlayerCoords: ; 80b8
ld a, [XCoord]
add 4
ld d, a
ld hl, MapX
sub [hl]
ld [hl], d
ld hl, MapObjects + MAPOBJECT_X_COORD
ld [hl], d
ld hl, MapX2
ld [hl], d
ld d, a
ld a, [YCoord]
add 4
ld e, a
ld hl, MapY
sub [hl]
ld [hl], e
ld hl, MapObjects + MAPOBJECT_Y_COORD
ld [hl], e
ld hl, MapY2
ld [hl], e
ld e, a
ld a, [wd4cd]
cp $0
ret nz
ret
; 80e7
CopyObjectStruct:: ; 80e7
call Function2707
and a
ret nz
ld hl, ObjectStructs + OBJECT_STRUCT_LENGTH * 1
ld a, 1
ld de, OBJECT_STRUCT_LENGTH
.loop
ld [$ffb0], a
ld a, [hl]
and a
jr z, .done
add hl, de
ld a, [$ffb0]
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
scf
ret
.done
ld d, h
ld e, l
call Function8116
ld hl, VramState
bit 7, [hl]
ret z
ld hl, OBJECT_FLAGS
add hl, de
set 5, [hl]
ret
; 8116
Function8116: ; 8116
call Function811d
call Function8286
ret
; 811d
Function811d: ; 811d
ld a, [$ffb0]
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld [hl], a
ld a, [$ffaf]
ld [wc2f0], a
ld hl, MAPOBJECT_SPRITE
add hl, bc
ld a, [hl]
ld [wc2f1], a
call Function180e
ld [wc2f2], a
ld a, [hl]
call GetSpritePalette
ld [wc2f3], a
ld hl, MAPOBJECT_COLOR
add hl, bc
ld a, [hl]
and $f0
jr z, .no_color
swap a
and $7
ld [wc2f3], a
.no_color
ld hl, MAPOBJECT_FACING
add hl, bc
ld a, [hl]
ld [wc2f4], a
ld hl, MAPOBJECT_RANGE
add hl, bc
ld a, [hl]
ld [wc2f5], a
ld hl, MAPOBJECT_X_COORD
add hl, bc
ld a, [hl]
ld [wc2f6], a
ld hl, MAPOBJECT_Y_COORD
add hl, bc
ld a, [hl]
ld [wc2f7], a
ld hl, MAPOBJECT_MOVEMENT
add hl, bc
ld a, [hl]
ld [wc2f8], a
ret
; 8177
Function8177: ; 8177
ld bc, MapObjects + OBJECT_LENGTH
ld a, 1
.loop
ld [$ffaf], a
ld hl, MAPOBJECT_SPRITE
add hl, bc
ld a, [hl]
and a
jr z, .next
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
cp -1
jr nz, .next
ld a, [XCoord]
ld d, a
ld a, [YCoord]
ld e, a
ld hl, MAPOBJECT_X_COORD
add hl, bc
ld a, [hl]
add 1
sub d
jr c, .next
cp MAPOBJECT_SCREEN_WIDTH
jr nc, .next
ld hl, MAPOBJECT_Y_COORD
add hl, bc
ld a, [hl]
add 1
sub e
jr c, .next
cp MAPOBJECT_SCREEN_HEIGHT
jr nc, .next
push bc
call CopyObjectStruct
pop bc
jp c, Function81c9
.next
ld hl, OBJECT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [$ffaf]
inc a
cp NUM_OBJECTS
jr nz, .loop
ret
; 81c9
Function81c9: ; 81c9
ret
; 81ca
Function81ca:: ; 81ca
nop
ld a, [wd151]
cp $ff
ret z
ld hl, Table81d6
rst JumpTable
ret
; 81d6
Table81d6: ; 81d6
dw Function81e5
dw Function81de
dw Function8232
dw Function8239
; 81de
Function81de: ; 81de
ld a, [YCoord]
sub $1
jr Function81ea
Function81e5: ; 81e5
ld a, [YCoord]
add $9
Function81ea: ; 81ea
ld d, a
ld a, [XCoord]
ld e, a
ld bc, MapObjects + OBJECT_LENGTH
ld a, 1
.loop
ld [$ffaf], a
ld hl, MAPOBJECT_SPRITE
add hl, bc
ld a, [hl]
and a
jr z, .next
ld hl, MAPOBJECT_Y_COORD
add hl, bc
ld a, d
cp [hl]
jr nz, .next
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
cp -1
jr nz, .next
ld hl, MAPOBJECT_X_COORD
add hl, bc
ld a, [hl]
add 1
sub e
jr c, .next
cp MAPOBJECT_SCREEN_WIDTH
jr nc, .next
push de
push bc
call CopyObjectStruct
pop bc
pop de
.next
ld hl, OBJECT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [$ffaf]
inc a
cp NUM_OBJECTS
jr nz, .loop
ret
; 8232
Function8232: ; 8232
ld a, [XCoord]
sub 1
jr Function823e
Function8239: ; 8239
ld a, [XCoord]
add $a
Function823e: ; 823e
ld e, a
ld a, [YCoord]
ld d, a
ld bc, MapObjects + OBJECT_LENGTH
ld a, 1
.loop
ld [$ffaf], a
ld hl, MAPOBJECT_SPRITE
add hl, bc
ld a, [hl]
and a
jr z, .next
ld hl, MAPOBJECT_X_COORD
add hl, bc
ld a, e
cp [hl]
jr nz, .next
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
cp -1
jr nz, .next
ld hl, MAPOBJECT_Y_COORD
add hl, bc
ld a, [hl]
add 1
sub d
jr c, .next
cp MAPOBJECT_SCREEN_HEIGHT
jr nc, .next
push de
push bc
call CopyObjectStruct
pop bc
pop de
.next
ld hl, OBJECT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [$ffaf]
inc a
cp NUM_OBJECTS
jr nz, .loop
ret
; 8286
Function8286: ; 8286
ld a, [wc2f0]
ld hl, OBJECT_MAP_OBJECT_INDEX
add hl, de
ld [hl], a
ld a, [wc2f4]
call Function1a61
ld a, [wc2f3]
ld hl, OBJECT_PALETTE
add hl, de
or [hl]
ld [hl], a
ld a, [wc2f7]
call Function82d5
ld a, [wc2f6]
call Function82f1
ld a, [wc2f1]
ld hl, OBJECT_SPRITE
add hl, de
ld [hl], a
ld a, [wc2f2]
ld hl, OBJECT_SPRITE_TILE
add hl, de
ld [hl], a
ld hl, OBJECT_09
add hl, de
ld [hl], $0
ld hl, OBJECT_FACING_STEP
add hl, de
ld [hl], $ff
ld a, [wc2f8]
call Function830d
ld a, [wc2f5]
ld hl, OBJECT_32
add hl, de
ld [hl], a
and a
ret
; 82d5
Function82d5: ; 82d5
ld hl, OBJECT_21
add hl, de
ld [hl], a
ld hl, OBJECT_MAP_Y
add hl, de
ld [hl], a
ld hl, YCoord
sub [hl]
and $f
swap a
ld hl, wd14d
sub [hl]
ld hl, OBJECT_SPRITE_Y
add hl, de
ld [hl], a
ret
; 82f1
Function82f1: ; 82f1
ld hl, OBJECT_20
add hl, de
ld [hl], a
ld hl, OBJECT_MAP_X
add hl, de
ld [hl], a
ld hl, XCoord
sub [hl]
and $f
swap a
ld hl, wd14c
sub [hl]
ld hl, OBJECT_SPRITE_X
add hl, de
ld [hl], a
ret
; 830d
Function830d: ; 830d
ld h, a
inc a
and $f
ld l, a
ld a, h
add $10
and $f0
or l
ld hl, OBJECT_22
add hl, de
ld [hl], a
ret
; 831e
Function831e: ; 831e
ld a, [$ffe0]
call Function1b1e
ld a, $3e
call Function1b3f
ld a, [wd03f]
dec a
jr z, Function833b
ld a, [$ffe0]
ld b, a
ld c, 0
ld d, 1
call Function8341
call Function1b35
Function833b
ld a, $47
call Function1b3f
ret
; 8341
Function8341: ; 8341
push de
push bc
ld a, c
call GetMapObject
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
call GetObjectStruct
ld d, b
ld e, c
pop bc
ld a, b
call GetMapObject
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
call GetObjectStruct
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld c, [hl]
ld b, a
ld hl, OBJECT_MAP_X
add hl, de
ld a, [hl]
ld hl, OBJECT_MAP_Y
add hl, de
ld e, [hl]
ld d, a
pop af
call Function1b5f
ret
; 8379
Function8379: ; 8379
call Function1b1e
call Function8388
call Function1b3f
ld a, $47
call Function1b3f
ret
; 8388
Function8388: ; 8388
ld a, [PlayerDirection]
srl a
srl a
and 3
ld e, a
ld d, 0
ld hl, .data_839a
add hl, de
ld a, [hl]
ret
; 839a
.data_839a
db 8, 9, 10, 11
; 839e
Function839e:: ; 839e
push bc
ld a, c
call Function18de
ld d, b
ld e, c
pop bc
ret c
ld a, b
call Function18de
ret c
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld c, [hl]
ld b, a
ld hl, OBJECT_MAP_X
add hl, de
ld a, [hl]
cp b
jr z, .asm_83c7
jr c, .asm_83c4
inc b
jr .asm_83d5
.asm_83c4
dec b
jr .asm_83d5
.asm_83c7
ld hl, OBJECT_MAP_Y
add hl, de
ld a, [hl]
cp c
jr z, .asm_83d5
jr c, .asm_83d4
inc c
jr .asm_83d5
.asm_83d4
dec c
.asm_83d5
ld hl, OBJECT_MAP_X
add hl, de
ld [hl], b
ld a, b
ld hl, XCoord
sub [hl]
and $f
swap a
ld hl, wd14c
sub [hl]
ld hl, OBJECT_SPRITE_X
add hl, de
ld [hl], a
ld hl, OBJECT_MAP_Y
add hl, de
ld [hl], c
ld a, c
ld hl, YCoord
sub [hl]
and $f
swap a
ld hl, wd14d
sub [hl]
ld hl, OBJECT_SPRITE_Y
add hl, de
ld [hl], a
ld a, [$ffb0]
ld hl, OBJECT_32
add hl, de
ld [hl], a
ld hl, OBJECT_03
add hl, de
ld [hl], $1a
ld hl, OBJECT_09
add hl, de
ld [hl], $0
ret
; 8417
GetRelativeFacing:: ; 8417
; Determines which way map object e would have to turn to face map object d. Returns carry if it's impossible for whatever reason.
ld a, d
call GetMapObject
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
cp NUM_OBJECT_STRUCTS
jr nc, .carry
ld d, a
ld a, e
call GetMapObject
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
add hl, bc
ld a, [hl]
cp NUM_OBJECT_STRUCTS
jr nc, .carry
ld e, a
call .GetFacing_e_relativeto_d
ret
.carry
scf
ret
; 8439
.GetFacing_e_relativeto_d: ; 8439
; Determines which way object e would have to turn to face object d. Returns carry if it's impossible.
; load the coordinates of object d into bc
ld a, d
call GetObjectStruct
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld c, [hl]
ld b, a
push bc
; load the coordinates of object e into de
ld a, e
call GetObjectStruct
ld hl, OBJECT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld e, [hl]
pop bc
; |x1 - x2|
ld a, b
sub d
jr z, .same_x_1
jr nc, .b_right_of_d_1
cpl
inc a
.b_right_of_d_1
; |y1 - y2|
ld h, a
ld a, c
sub e
jr z, .same_y_1
jr nc, .c_below_e_1
cpl
inc a
.c_below_e_1
; |y1 - y2| - |x1 - x2|
sub h
jr c, .same_y_1
.same_x_1
; compare the y coordinates
ld a, c
cp e
jr z, .same_x_and_y
jr c, .c_directly_below_e
; c directly above e
ld d, DOWN
and a
ret
.c_directly_below_e
ld d, UP
and a
ret
.same_y_1
ld a, b
cp d
jr z, .same_x_and_y
jr c, .b_directly_right_of_d
; b directly left of d
ld d, RIGHT
and a
ret
.b_directly_right_of_d
ld d, LEFT
and a
ret
.same_x_and_y
scf
ret
; 848a
Function848a: ; 848a
call Function849d
jr c, .same
ld [wd4d1], a
xor a
ld [wd4d0], a
ret
.same
ld a, -1
ld [wd4d0], a
ret
; 849d
Function849d: ; 849d
ld a, [wd4cd]
call GetObjectStruct
ld hl, OBJECT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_MAP_Y
add hl, bc
ld e, [hl]
ld a, [wd4ce]
call GetObjectStruct
ld hl, OBJECT_MAP_X
add hl, bc
ld a, d
cp [hl]
jr z, .check_y
jr c, .left
and a
ld a, $c + RIGHT
ret
.left
and a
ld a, $c + LEFT
ret
.check_y
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, e
cp [hl]
jr z, .same_xy
jr c, .up
and a
ld a, $c + DOWN
ret
.up
and a
ld a, $c + UP
ret
.same_xy
scf
ret
; 84d9
_Sine:: ; 84d9
; A simple sine function.
; Return d * sin(e) in hl.
; e is a signed 6-bit value.
ld a, e
and %111111
cp %100000
jr nc, .negative
call Function84ef
ld a, h
ret
.negative
and %011111
call Function84ef
ld a, h
xor $ff
inc a
ret
; 84ef
Function84ef: ; 84ef
ld e, a
ld a, d
ld d, 0
ld hl, SineWave
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld hl, 0
; Factor amplitude
.multiply
srl a
jr nc, .even
add hl, de
.even
sla e
rl d
and a
jr nz, .multiply
ret
; 850b
SineWave: ; 850b
; A $20-word table representing a sine wave.
; 90 degrees is index $10 at a base amplitude of $100.
sine_wave $100
; 854b
INCLUDE "engine/predef.asm"
INCLUDE "engine/color.asm"
SECTION "bank3", ROMX, BANK[$3]
CheckTime:: ; c000
ld a, [TimeOfDay]
ld hl, TimeOfDayTable
ld de, 2
call IsInArray
inc hl
ld c, [hl]
ret c
xor a
ld c, a
ret
; c012
TimeOfDayTable: ; c012
db MORN, 1
db DAY, 2
db NITE, 4
db NITE, 4
db $ff
; c01b
INCLUDE "engine/specials.asm"
_PrintNum:: ; c4c7
; Print c digits of the b-byte value at hl.
; Allows 2 to 7 digits. For 1-digit numbers, add
; the value to char "0" instead of calling PrintNum.
; Some extra flags can be given in bits 5-7 of b.
push bc
bit 5, b
jr z, .main
bit 7, b
jr nz, .bit_7
bit 6, b
jr z, .main
.bit_7
ld a, $f0
ld [hli], a
res 5, b
.main
xor a
ld [$ffb3], a
ld [$ffb4], a
ld [$ffb5], a
ld a, b
and $f
cp 1
jr z, .byte
cp 2
jr z, .word
.long
ld a, [de]
ld [$ffb4], a
inc de
ld a, [de]
ld [$ffb5], a
inc de
ld a, [de]
ld [$ffb6], a
jr .start
.word
ld a, [de]
ld [$ffb5], a
inc de
ld a, [de]
ld [$ffb6], a
jr .start
.byte
ld a, [de]
ld [$ffb6], a
.start
push de
ld d, b
ld a, c
swap a
and $f
ld e, a
ld a, c
and $f
ld b, a
ld c, 0
cp 2
jr z, .two
cp 3
jr z, .three
cp 4
jr z, .four
cp 5
jr z, .five
cp 6
jr z, .six
.seven
ld a, 1000000 / $10000 % $100
ld [$ffb7], a
ld a, 1000000 / $100 % $100
ld [$ffb8], a
ld a, 1000000 % $100
ld [$ffb9], a
call .PrintDigit
call .AdvancePointer
.six
ld a, 100000 / $10000 % $100
ld [$ffb7], a
ld a, 100000 / $100 % $100
ld [$ffb8], a
ld a, 100000 % $100
ld [$ffb9], a
call .PrintDigit
call .AdvancePointer
.five
xor a
ld [$ffb7], a
ld a, 10000 / $100
ld [$ffb8], a
ld a, 10000 % $100
ld [$ffb9], a
call .PrintDigit
call .AdvancePointer
.four
xor a
ld [$ffb7], a
ld a, 1000 / $100
ld [$ffb8], a
ld a, 1000 % $100
ld [$ffb9], a
call .PrintDigit
call .AdvancePointer
.three
xor a
ld [$ffb7], a
xor a
ld [$ffb8], a
ld a, 100
ld [$ffb9], a
call .PrintDigit
call .AdvancePointer
.two
dec e
jr nz, .two_skip
ld a, "0"
ld [$ffb3], a
.two_skip
ld c, 0
ld a, [$ffb6]
.mod_10
cp 10
jr c, .modded_10
sub 10
inc c
jr .mod_10
.modded_10
ld b, a
ld a, [$ffb3]
or c
jr nz, .money
call .PrintLeadingZero
jr .money_leading_zero
.money
call .PrintYen
push af
ld a, "0"
add c
ld [hl], a
pop af
ld [$ffb3], a
inc e
dec e
jr nz, .money_leading_zero
inc hl
ld [hl], $f2 ; XXX
.money_leading_zero
call .AdvancePointer
call .PrintYen
ld a, "0"
add b
ld [hli], a
pop de
pop bc
ret
; c5ba
.PrintYen: ; c5ba
push af
ld a, [$ffb3]
and a
jr nz, .stop
bit 5, d
jr z, .stop
ld a, "¥"
ld [hli], a
res 5, d
.stop
pop af
ret
; c5cb
.PrintDigit: ; c5cb (3:45cb)
dec e
jr nz, .ok
ld a, "0"
ld [$ffb3], a
.ok
ld c, 0
.loop
ld a, [$ffb7]
ld b, a
ld a, [$ffb4]
ld [$ffba], a
cp b
jr c, .skip1
sub b
ld [$ffb4], a
ld a, [$ffb8]
ld b, a
ld a, [$ffb5]
ld [$ffbb], a
cp b
jr nc, .skip2
ld a, [$ffb4]
or 0
jr z, .skip3
dec a
ld [$ffb4], a
ld a, [$ffb5]
.skip2
sub b
ld [$ffb5], a
ld a, [$ffb9]
ld b, a
ld a, [$ffb6]
ld [$ffbc], a
cp b
jr nc, .skip4
ld a, [$ffb5]
and a
jr nz, .skip5
ld a, [$ffb4]
and a
jr z, .skip6
dec a
ld [$ffb4], a
xor a
.skip5
dec a
ld [$ffb5], a
ld a, [$ffb6]
.skip4
sub b
ld [$ffb6], a
inc c
jr .loop
.skip6
ld a, [$ffbb]
ld [$ffb5], a
.skip3
ld a, [$ffba]
ld [$ffb4], a
.skip1
ld a, [$ffb3]
or c
jr z, .PrintLeadingZero
ld a, [$ffb3]
and a
jr nz, .done
bit 5, d
jr z, .done
ld a, $f0
ld [hli], a
res 5, d
.done
ld a, "0"
add c
ld [hl], a
ld [$ffb3], a
inc e
dec e
ret nz
inc hl
ld [hl], $f2
ret
.PrintLeadingZero: ; c644
; prints a leading zero unless they are turned off in the flags
bit 7, d ; print leading zeroes?
ret z
ld [hl], "0"
ret
.AdvancePointer: ; c64a
; increments the pointer unless leading zeroes are not being printed,
; the number is left-aligned, and no nonzero digits have been printed yet
bit 7, d ; print leading zeroes?
jr nz, .inc
bit 6, d ; left alignment or right alignment?
jr z, .inc
ld a, [$ffb3]
and a
ret z
.inc
inc hl
ret
; c658
HealParty: ; c658
xor a
ld [CurPartyMon], a
ld hl, PartySpecies
.loop
ld a, [hli]
cp -1
jr z, .done
cp EGG
jr z, .next
push hl
call HealPartyMon
pop hl
.next
ld a, [CurPartyMon]
inc a
ld [CurPartyMon], a
jr .loop
.done
ret
; c677
HealPartyMon: ; c677
ld a, PartyMon1Species - PartyMon1
call GetPartyParamLocation
ld d, h
ld e, l
ld hl, PartyMon1Status - PartyMon1Species
add hl, de
xor a
ld [hli], a
ld [hl], a
ld hl, PartyMon1MaxHP - PartyMon1Species
add hl, de
; bc = PartyMon1HP - PartyMon1Species
ld b, h
ld c, l
rept 2
dec bc
endr
ld a, [hli]
ld [bc], a
inc bc
ld a, [hl]
ld [bc], a
callba Functionf8b9
ret
; c699
Functionc699: ; c699
ld a, b
or c
jr z, .zero
push hl
xor a
ld [hMultiplicand], a
ld a, b
ld [$ffb5], a
ld a, c
ld [$ffb6], a
ld a, $30
ld [hMultiplier], a
call Multiply
ld a, d
and a
jr z, .divide
srl d
rr e
srl d
rr e
ld a, [$ffb5]
ld b, a
ld a, [$ffb6]
srl b
rr a
srl b
rr a
ld [$ffb6], a
ld a, b
ld [$ffb5], a
.divide
ld a, e
ld [hMultiplier], a
ld b, $4
call Divide
ld a, [$ffb6]
ld e, a
pop hl
and a
ret nz
ld e, $1
ret
.zero
ld e, $0
ret
; c6e0
Functionc6e0: ; c6e0
call WaitBGMap
call Functiond627
call WaitBGMap
ret
; c6ea
ClearBuffer1: ; c6ea
xor a
ld hl, Buffer1
ld bc, 7
call ByteFill
ret
; c6f5
FieldMoveJumptable: ; c6f5
ld a, [Buffer1]
rst JumpTable
ld [Buffer1], a
bit 7, a
jr nz, .okay
and a
ret
.okay
and $7f
scf
ret
; c706
GetPartyNick: ; c706
; write CurPartyMon nickname to StringBuffer1-3
ld hl, PartyMonNicknames
ld a, BOXMON
ld [MonType], a
ld a, [CurPartyMon]
call GetNick
call CopyName1
; copy text from StringBuffer2 to StringBuffer3
ld de, StringBuffer2
ld hl, StringBuffer3
call CopyName2
ret
; c721
CheckEngineFlag: ; c721
; Check engine flag de
; Return carry if flag is not set
ld b, CHECK_FLAG
callba EngineFlagAction
ld a, c
and a
jr nz, .isset
scf
ret
.isset
xor a
ret
; c731
CheckBadge: ; c731
; Check engine flag a (ENGINE_ZEPHYRBADGE thru ENGINE_EARTHBADGE)
; Display "Badge required" text and return carry if the badge is not owned
call CheckEngineFlag
ret nc
ld hl, BadgeRequiredText
call MenuTextBoxBackup ; push text to queue
scf
ret
; c73d
BadgeRequiredText: ; c73d
; Sorry! A new BADGE
; is required.
TX_FAR _BadgeRequiredText
db "@"
; c742
CheckPartyMove: ; c742
; Check if a monster in your party has move d.
ld e, 0
xor a
ld [CurPartyMon], a
.loop
ld c, e
ld b, 0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
and a
jr z, .no
cp a, -1
jr z, .no
cp a, EGG
jr z, .next
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1Moves
ld a, e
call AddNTimes
ld b, NUM_MOVES
.check
ld a, [hli]
cp d
jr z, .yes
dec b
jr nz, .check
.next
inc e
jr .loop
.yes
ld a, e
ld [CurPartyMon], a ; which mon has the move
xor a
ret
.no
scf
ret
; c779
FieldMoveFailed: ; c779
ld hl, UnknownText_0xc780
call MenuTextBoxBackup
ret
; c780
UnknownText_0xc780: ; 0xc780
text_jump UnknownText_0x1c05c8
db "@"
; 0xc785
CutFunction: ; c785
call ClearBuffer1
.loop
ld hl, .Jumptable
call FieldMoveJumptable
jr nc, .loop
and $7f
ld [wd0ec], a
ret
; c796
.Jumptable: ; c796 (3:4796)
dw .CheckAble
dw .DoCut
dw .FailCut
.CheckAble: ; c79c (3:479c)
ld de, ENGINE_HIVEBADGE
call CheckBadge
jr c, .nohivebadge
call CheckMapForSomethingToCut
jr c, .nothingtocut
ld a, $1
ret
.nohivebadge
ld a, $80
ret
.nothingtocut
ld a, $2
ret
.DoCut: ; c7b2 (3:47b2)
ld hl, Script_CutFromMenu
call ExitMenuCallScript
ld a, $81
ret
.FailCut: ; c7bb (3:47bb)
ld hl, UnknownText_0xc7c9
call MenuTextBoxBackup
ld a, $80
ret
UnknownText_0xc7c4: ; 0xc7c4
; used CUT!
text_jump UnknownText_0x1c05dd
db "@"
; 0xc7c9
UnknownText_0xc7c9: ; 0xc7c9
; There's nothing to CUT here.
text_jump UnknownText_0x1c05ec
db "@"
; 0xc7ce
CheckMapForSomethingToCut: ; c7ce
call GetFacingTileCoord
ld c, a
push de
callba CheckCutCollision
pop de
jr nc, .fail
call GetBlockLocation
ld c, [hl]
push hl
ld hl, CutTreeBlockPointers
call CheckOverworldTileArrays
pop hl
jr nc, .fail
ld a, l
ld [wd1ec], a
ld a, h
ld [wd1ed], a
ld a, b
ld [wd1ee], a
ld a, c
ld [wd1ef], a
xor a
ret
.fail
scf
ret
; c7fe
Script_CutFromMenu: ; c7fe
reloadmappart
special UpdateTimePals
Script_Cut: ; 0xc802
callasm GetPartyNick
writetext UnknownText_0xc7c4
reloadmappart
callasm CutDownTreeOrGrass
loadmovesprites
end
; 0xc810
CutDownTreeOrGrass: ; c810
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wd1ee]
ld [hl], a
xor a
ld [hBGMapMode], a
call Function2173
call DrawOnMap
call DelayFrame
ld a, [wd1ef]
ld e, a
callba Function8c940
call BufferScreen
call Function2914
call DrawOnMap
call DelayFrame
call Functione51
ret
; c840
CheckOverworldTileArrays: ; c840
push bc
ld a, [wd199]
ld de, 3
call IsInArray
pop bc
jr nc, .nope
inc hl
ld a, [hli]
ld h, [hl]
ld l, a
ld de, 3
ld a, c
call IsInArray
jr nc, .nope
inc hl
ld b, [hl]
inc hl
ld c, [hl]
scf
ret
.nope
xor a
ret
; c862
CutTreeBlockPointers: ; c862
; Which tileset are we in?
dbw $01, .one
dbw $02, .two
dbw $03, .three
dbw $19, .twentyfive
dbw $1f, .thirtyone
db -1
; c872
.one: ; Johto OW
; Which meta tile are we facing, which should we replace it with, and does it affect encounters?
db $03, $02, $01
db $5b, $3c, $00
db $5f, $3d, $00
db $63, $3f, $00
db $67, $3e, $00
db -1
; c882
.two: ; Goldenrod area
db $03, $02, $01
db -1
; c886
.three: ; Kanto OW
db $0b, $0a, $01
db $32, $6d, $00
db $33, $6c, $00
db $34, $6f, $00
db $35, $4c, $00
db $60, $6e, $00
db -1
; c899
.twentyfive: ; National Park
db $13, $03, $01
db $03, $04, $01
db -1
; c8a0
.thirtyone: ; Ilex Forest
db $0f, $17, $00
db -1
; c8a4
WhirlpoolBlockPointers: ; c8a4
dbw $01, .one
db -1
; c8a8
.one: ; c8a8
db $07, $36, $00
db -1
; c8ac
Functionc8ac: ; c8ac
call Functionc8b5
and $7f
ld [wd0ec], a
ret
; c8b5
Functionc8b5: ; c8b5
; Flash
ld de, ENGINE_ZEPHYRBADGE
callba CheckBadge
jr c, .nozephyrbadge
push hl
callba SpecialAerodactylChamber
pop hl
jr c, .useflash
ld a, [wd847]
cp -1
jr nz, .notadarkcave
.useflash
call UseFlash
ld a, $81
ret
.notadarkcave
call FieldMoveFailed
ld a, $80
ret
.nozephyrbadge
ld a, $80
ret
; c8e0
UseFlash: ; c8e0
ld hl, Script_UseFlash
jp ExitMenuCallScript
; c8e6
Script_UseFlash: ; 0xc8e6
reloadmappart
special UpdateTimePals
writetext UnknownText_0xc8f3
callasm BlindingFlash
loadmovesprites
end
; 0xc8f3
UnknownText_0xc8f3: ; 0xc8f3
text_jump UnknownText_0x1c0609
start_asm
; 0xc8f8
Functionc8f8: ; c8f8
call WaitSFX
ld de, SFX_FLASH
call PlaySFX
call WaitSFX
ld hl, UnknownText_0xc908
ret
; c908
UnknownText_0xc908: ; 0xc908
db "@"
; 0xc909
SurfFunction: ; c909
call ClearBuffer1
.loop
ld hl, .Jumptable
call FieldMoveJumptable
jr nc, .loop
and $7f
ld [wd0ec], a
ret
; c91a
.Jumptable: ; c91a (3:491a)
dw .TrySurf
dw .DoSurf
dw .FailSurf
dw .AlreadySurfing
.TrySurf: ; c922 (3:4922)
ld de, ENGINE_FOGBADGE
call CheckBadge
jr c, .asm_c956
ld hl, BikeFlags
bit 1, [hl] ; always on bike
jr nz, .cannotsurf
ld a, [PlayerState]
cp PLAYER_SURF
jr z, .alreadysurfing
cp PLAYER_SURF_PIKA
jr z, .alreadysurfing
call GetFacingTileCoord
call GetTileCollision
cp $1
jr nz, .cannotsurf
call CheckDirection
jr c, .cannotsurf
callba CheckFacingObject
jr c, .cannotsurf
ld a, $1
ret
.asm_c956
ld a, $80
ret
.alreadysurfing
ld a, $3
ret
.cannotsurf
ld a, $2
ret
.DoSurf: ; c95f (3:495f)
call GetSurfType
ld [Buffer2], a ; wd1eb (aliases: MovementType)
call GetPartyNick
ld hl, SurfFromMenuScript
call ExitMenuCallScript
ld a, $81
ret
.FailSurf: ; c971 (3:4971)
ld hl, CantSurfText
call MenuTextBoxBackup
ld a, $80
ret
.AlreadySurfing: ; c97a (3:497a)
ld hl, AlreadySurfingText
call MenuTextBoxBackup
ld a, $80
ret
; c983 (3:4983)
SurfFromMenuScript: ; c983
special UpdateTimePals
UsedSurfScript: ; c986
writetext UsedSurfText ; "used SURF!"
closetext
loadmovesprites
callasm Functionc9a2 ; empty function
copybytetovar Buffer2
writevarcode VAR_MOVEMENT
special Special_ReplaceKrisSprite
special PlayMapMusic
; step into the water
special Function8379 ; (slow_step_x, step_end)
applymovement $0, MovementBuffer ; PLAYER, MovementBuffer
end
; c9a2
Functionc9a2: ; c9a2
callba Function1060bb ; empty
ret
; c9a9
UsedSurfText: ; c9a9
TX_FAR _UsedSurfText
db "@"
; c9ae
CantSurfText: ; c9ae
TX_FAR _CantSurfText
db "@"
; c9b3
AlreadySurfingText: ; c9b3
TX_FAR _AlreadySurfingText
db "@"
; c9b8
GetSurfType: ; c9b8
; Surfing on Pikachu uses an alternate sprite.
; This is done by using a separate movement type.
ld a, [CurPartyMon]
ld e, a
ld d, 0
ld hl, PartySpecies
add hl, de
ld a, [hl]
cp PIKACHU
ld a, PLAYER_SURF_PIKA
ret z
ld a, PLAYER_SURF
ret
; c9cb
CheckDirection: ; c9cb
; Return carry if a tile permission prevents you
; from moving in the direction you're facing.
; Get player direction
ld a, [PlayerDirection]
and a, %00001100 ; bits 2 and 3 contain direction
rrca
rrca
ld e, a
ld d, 0
ld hl, .Directions
add hl, de
; Can you walk in this direction?
ld a, [TilePermissions]
and [hl]
jr nz, .quit
xor a
ret
.quit
scf
ret
.Directions
db FACE_DOWN
db FACE_UP
db FACE_LEFT
db FACE_RIGHT
; c9e7
TrySurfOW:: ; c9e7
; Checking a tile in the overworld.
; Return carry if surfing is allowed.
; Don't ask to surf if already surfing.
ld a, [PlayerState]
cp PLAYER_SURF_PIKA
jr z, .quit
cp PLAYER_SURF
jr z, .quit
; Must be facing water.
ld a, [EngineBuffer1]
call GetTileCollision
cp 1 ; surfable
jr nz, .quit
; Check tile permissions.
call CheckDirection
jr c, .quit
ld de, ENGINE_FOGBADGE
call CheckEngineFlag
jr c, .quit
ld d, SURF
call CheckPartyMove
jr c, .quit
ld hl, BikeFlags
bit 1, [hl] ; always on bike (can't surf)
jr nz, .quit
call GetSurfType
ld [MovementType], a
call GetPartyNick
ld a, BANK(AskSurfScript)
ld hl, AskSurfScript
call CallScript
scf
ret
.quit
xor a
ret
; ca2c
AskSurfScript: ; ca2c
loadfont
writetext AskSurfText
yesorno
iftrue UsedSurfScript
loadmovesprites
end
; ca36
AskSurfText: ; ca36
TX_FAR _AskSurfText ; The water is calm.
db "@" ; Want to SURF?
; ca3b
FlyFunction: ; ca3b
call ClearBuffer1
.asm_ca3e
ld hl, .data_ca4c
call FieldMoveJumptable
jr nc, .asm_ca3e
and $7f
ld [wd0ec], a
ret
; ca4c
.data_ca4c
dw .TryFly
dw .DoFly
dw .FailFly
; ca52
.TryFly: ; ca52
; Fly
ld de, ENGINE_STORMBADGE
call CheckBadge
jr c, .nostormbadge
call GetMapPermission
call CheckOutdoorMap
jr z, .outdoors
jr .indoors
.outdoors
xor a
ld [$ffde], a
call Function1d6e
call ClearSprites
callba _FlyMap
ld a, e
cp -1
jr z, .illegal
cp $1c ; NUM_SPAWNS
jr nc, .illegal
ld [wd001], a
call WriteBackup
ld a, $1
ret
.nostormbadge
ld a, $82
ret
.indoors
ld a, $2
ret
.illegal
call WriteBackup
call WaitBGMap
ld a, $80
ret
; ca94
.DoFly: ; ca94
ld hl, .FlyScript
call ExitMenuCallScript
ld a, $81
ret
; ca9d
.FailFly: ; ca9d
call FieldMoveFailed
ld a, $82
ret
; caa3
.FlyScript: ; 0xcaa3
reloadmappart
callasm HideSprites
special UpdateTimePals
callasm Function8caed
farscall UnknownScript_0x122c1
special WarpToSpawnPoint
callasm DelayLoadingNewSprites
writecode VAR_MOVEMENT, $0
newloadmap $fc
callasm Function8cb33
special WaitSFX
callasm Functioncacb
end
; 0xcacb
Functioncacb: ; cacb
callba Function561d
call DelayFrame
call Special_ReplaceKrisSprite
callba Function106594
ret
; cade
Functioncade: ; cade
call AttemptToWaterfall
and $7f
ld [wd0ec], a
ret
; cae7
AttemptToWaterfall: ; cae7
; Waterfall
ld de, ENGINE_RISINGBADGE
callba CheckBadge
ld a, $80
ret c
call CheckMapCanWaterfall
jr c, .failed
ld hl, Script_WaterfallFromMenu
call ExitMenuCallScript
ld a, $81
ret
.failed
call FieldMoveFailed
ld a, $80
ret
; cb07
CheckMapCanWaterfall: ; cb07
ld a, [PlayerDirection]
and $c
cp FACE_UP
jr nz, .failed
ld a, [TileUp]
call CheckWaterfallTile
jr nz, .failed
xor a
ret
.failed
scf
ret
; cb1c
Script_WaterfallFromMenu: ; 0xcb1c
reloadmappart
special UpdateTimePals
Script_UsedWaterfall: ; 0xcb20
callasm GetPartyNick
writetext UnknownText_0xcb51
closetext
loadmovesprites
playsound SFX_BUBBLEBEAM
.loop
applymovement $0, WaterfallStep
callasm CheckContinueWaterfall
iffalse .loop
end
; 0xcb38
CheckContinueWaterfall: ; cb38
xor a
ld [ScriptVar], a
ld a, [StandingTile]
call CheckWaterfallTile
ret z
callba Function1060c1
ld a, $1
ld [ScriptVar], a
ret
; cb4f
WaterfallStep: ; cb4f
turn_waterfall_up
step_end
; cb51
UnknownText_0xcb51: ; 0xcb51
text_jump UnknownText_0x1c068e
db "@"
; 0xcb56
TryWaterfallOW:: ; cb56
ld d, WATERFALL
call CheckPartyMove
jr c, .failed
ld de, ENGINE_RISINGBADGE
call CheckEngineFlag
jr c, .failed
call CheckMapCanWaterfall
jr c, .failed
ld a, BANK(Script_AskWaterfall)
ld hl, Script_AskWaterfall
call CallScript
scf
ret
.failed
ld a, BANK(Script_CantDoWaterfall)
ld hl, Script_CantDoWaterfall
call CallScript
scf
ret
; cb7e
Script_CantDoWaterfall: ; 0xcb7e
jumptext UnknownText_0xcb81
; 0xcb81
UnknownText_0xcb81: ; 0xcb81
text_jump UnknownText_0x1c06a3
db "@"
; 0xcb86
Script_AskWaterfall: ; 0xcb86
loadfont
writetext UnknownText_0xcb90
yesorno
iftrue Script_UsedWaterfall
loadmovesprites
end
; 0xcb90
UnknownText_0xcb90: ; 0xcb90
text_jump UnknownText_0x1c06bf
db "@"
; 0xcb95
EscapeRopeFunction: ; cb95
call ClearBuffer1
ld a, $1
jr dig_incave
DigFunction: ; cb9c
call ClearBuffer1
ld a, $2
dig_incave
ld [Buffer2], a
.loop
ld hl, .DigTable
call FieldMoveJumptable
jr nc, .loop
and $7f
ld [wd0ec], a
ret
; cbb2
.DigTable: ; cbb2
dw .CheckCanDig
dw .DoDig
dw .FailDig
; cbb8
.CheckCanDig: ; cbb8
call GetMapPermission
cp $4
jr z, .incave
cp $7
jr z, .incave
.fail
ld a, $2
ret
.incave
ld hl, wdca9
ld a, [hli]
and a
jr z, .fail
ld a, [hli]
and a
jr z, .fail
ld a, [hl]
and a
jr z, .fail
ld a, $1
ret
; cbd8
.DoDig: ; cbd8
ld hl, wdca9
ld de, wd146
ld bc, 3
call CopyBytes
call GetPartyNick
ld a, [Buffer2]
cp $2
jr nz, .escaperope
ld hl, UsedDigScript
call ExitMenuCallScript
ld a, $81
ret
.escaperope
callba SpecialKabutoChamber
ld hl, UsedEscapeRopeScript
call ExitMenuCallScript
ld a, $81
ret
; cc06
.FailDig: ; cc06
ld a, [Buffer2]
cp $2
jr nz, .failescaperope
ld hl, UnknownText_0xcc26
call MenuTextBox
call Functiona80
call WriteBackup
.failescaperope
ld a, $80
ret
; cc1c
UnknownText_0xcc1c: ; 0xcc1c
; used DIG!
text_jump UnknownText_0x1c06de
db "@"
; 0xcc21
UnknownText_0xcc21: ; 0xcc21
; used an ESCAPE ROPE.
text_jump UnknownText_0x1c06ed
db "@"
; 0xcc26
UnknownText_0xcc26: ; 0xcc26
; Can't use that here.
text_jump UnknownText_0x1c0705
db "@"
; 0xcc2b
UsedEscapeRopeScript: ; 0xcc2b
reloadmappart
special UpdateTimePals
writetext UnknownText_0xcc21
jump UsedDigOrEscapeRopeScript
; 0xcc35
UsedDigScript: ; 0xcc35
reloadmappart
special UpdateTimePals
writetext UnknownText_0xcc1c
UsedDigOrEscapeRopeScript: ; 0xcc3c
closetext
loadmovesprites
playsound SFX_WARP_TO
applymovement $0, MovementData_0xcc59
farscall UnknownScript_0x122c1
special WarpToSpawnPoint
writecode VAR_MOVEMENT, $0
newloadmap $f5
playsound SFX_WARP_FROM
applymovement $0, MovementData_0xcc5d
end
; 0xcc59
MovementData_0xcc59: ; 0xcc59
step_wait5
turn_away_down
hide_person
step_end
; 0xcc5d
MovementData_0xcc5d: ; 0xcc5d
return_dig $58
turn_away_down
step_end
; 0xcc61
TeleportFunction: ; cc61
call ClearBuffer1
.loop
ld hl, .Jumptable
call FieldMoveJumptable
jr nc, .loop
and $7f
ld [wd0ec], a
ret
; cc72
.Jumptable: ; cc72
dw .TryTeleport
dw .DoTeleport
dw .FailTeleport
; cc78
.TryTeleport: ; cc78
call GetMapPermission
call CheckOutdoorMap
jr z, .CheckIfSpawnPoint
jr .nope
.CheckIfSpawnPoint
ld a, [wdcb2]
ld d, a
ld a, [wdcb3]
ld e, a
callba IsSpawnPoint
jr nc, .nope
ld a, c
ld [wd001], a
ld a, $1
ret
.nope
ld a, $2
ret
; cc9c
.DoTeleport: ; cc9c
call GetPartyNick
ld hl, Script_UsedTeleport
call ExitMenuCallScript
ld a, $81
ret
; cca8
.FailTeleport: ; cca8
ld hl, UnknownText_0xccb6
call MenuTextBoxBackup
ld a, $80
ret
; ccb1
UnknownText_0xccb1: ; 0xccb1
; Return to the last #MON CENTER.
text_jump UnknownText_0x1c071a
db "@"
; 0xccb6
UnknownText_0xccb6: ; 0xccb6
; Can't use that here.
text_jump UnknownText_0x1c073b
db "@"
; 0xccbb
Script_UsedTeleport: ; 0xccbb
reloadmappart
special UpdateTimePals
writetext UnknownText_0xccb1
pause 60
reloadmappart
loadmovesprites
playsound SFX_WARP_TO
applymovement $0, MovementData_0xcce1
farscall UnknownScript_0x122c1
special WarpToSpawnPoint
writecode VAR_MOVEMENT, $0
newloadmap $f4
playsound SFX_WARP_FROM
applymovement $0, MovementData_0xcce3
end
; 0xcce1
MovementData_0xcce1: ; cce1
teleport_from
step_end
; cce3
MovementData_0xcce3: ; cce3
teleport_to
step_end
; cce5
StrengthFunction: ; cce5
call .TryStrength
and $7f
ld [wd0ec], a
ret
; ccee
.TryStrength: ; ccee
; Strength
ld de, ENGINE_PLAINBADGE
call CheckBadge
jr c, FailedStrength
jr StartToUseStrength
; ccf8
AlreadyUsingStrength: ; ccf8
ld hl, UnknownText_0xcd01
call MenuTextBoxBackup
ld a, $80
ret
; cd01
UnknownText_0xcd01: ; 0xcd01
text_jump UnknownText_0x1c0751
db "@"
; 0xcd06
FailedStrength: ; cd06
ld a, $80
ret
; cd09
StartToUseStrength: ; cd09
ld hl, Script_StrengthFromMenu
call ExitMenuCallScript
ld a, $81
ret
; cd12
Functioncd12: ; cd12
ld hl, BikeFlags
set 0, [hl]
ld a, [CurPartyMon]
ld e, a
ld d, 0
; fallthrough
; cd1d
Functioncd1d: ; cd1d
ld hl, PartySpecies
add hl, de
ld a, [hl]
ld [wd1ef], a
call GetPartyNick
ret
; cd29
Script_StrengthFromMenu: ; 0xcd29
reloadmappart
special UpdateTimePals
Script_UsedStrength: ; 0xcd2d
callasm Functioncd12
writetext UnknownText_0xcd41
copybytetovar wd1ef
cry $0000
pause 3
writetext UnknownText_0xcd46
loadmovesprites
end
; 0xcd41
UnknownText_0xcd41: ; 0xcd41
text_jump UnknownText_0x1c0774
db $50
; 0xcd46
UnknownText_0xcd46: ; 0xcd46
text_jump UnknownText_0x1c0788
db $50
; 0xcd4b
AskStrengthScript:
callasm TryStrengthOW
iffalse .AskStrength
if_equal $1, .DontMeetRequirements
jump .AlreadyUsedStrength
; 0xcd59
.DontMeetRequirements: ; 0xcd59
jumptext UnknownText_0xcd73
; 0xcd5c
.AlreadyUsedStrength: ; 0xcd5c
jumptext UnknownText_0xcd6e
; 0xcd5f
.AskStrength: ; 0xcd5f
loadfont
writetext UnknownText_0xcd69
yesorno
iftrue Script_UsedStrength
loadmovesprites
end
; 0xcd69
UnknownText_0xcd69: ; 0xcd69
; A #MON may be able to move this. Want to use STRENGTH?
text_jump UnknownText_0x1c07a0
db "@"
; 0xcd6e
UnknownText_0xcd6e: ; 0xcd6e
; Boulders may now be moved!
text_jump UnknownText_0x1c07d8
db "@"
; 0xcd73
UnknownText_0xcd73: ; 0xcd73
; A #MON may be able to move this.
text_jump UnknownText_0x1c07f4
db "@"
; 0xcd78
TryStrengthOW: ; cd78
ld d, STRENGTH
call CheckPartyMove
jr c, .nope
ld de, ENGINE_PLAINBADGE
call CheckEngineFlag
jr c, .nope
ld hl, BikeFlags
bit 0, [hl]
jr z, .already_using
ld a, 2
jr .done
.nope
ld a, 1
jr .done
.already_using
xor a
jr .done
.done
ld [ScriptVar], a
ret
; cd9d
WhirlpoolFunction: ; cd9d
call ClearBuffer1
.loop
ld hl, Jumptable_cdae
call FieldMoveJumptable
jr nc, .loop
and $7f
ld [wd0ec], a
ret
; cdae
Jumptable_cdae: ; cdae
dw .TryWhirlpool
dw .DoWhirlpool
dw .FailWhirlpool
; cdb4
.TryWhirlpool: ; cdb4
ld de, ENGINE_GLACIERBADGE
call CheckBadge
jr c, .noglacierbadge
call TryWhirlpoolMenu
jr c, .failed
ld a, $1
ret
.failed
ld a, $2
ret
.noglacierbadge
ld a, $80
ret
; cdca
.DoWhirlpool: ; cdca
ld hl, Script_WhirlpoolFromMenu
call ExitMenuCallScript
ld a, $81
ret
; cdd3
.FailWhirlpool: ; cdd3
call FieldMoveFailed
ld a, $80
ret
; cdd9
UnknownText_0xcdd9: ; 0xcdd9
; used WHIRLPOOL!
text_jump UnknownText_0x1c0816
db "@"
; 0xcdde
TryWhirlpoolMenu: ; cdde
call GetFacingTileCoord
ld c, a
push de
call CheckWhirlpoolTile
pop de
jr c, .failed
call GetBlockLocation
ld c, [hl]
push hl
ld hl, WhirlpoolBlockPointers
call CheckOverworldTileArrays
pop hl
jr nc, .failed
ld a, l
ld [wd1ec], a
ld a, h
ld [wd1ed], a
ld a, b
ld [wd1ee], a
ld a, c
ld [wd1ef], a
xor a
ret
.failed
scf
ret
; ce0b
Script_WhirlpoolFromMenu: ; 0xce0b
reloadmappart
special UpdateTimePals
Script_UsedWhirlpool: ; 0xce0f
callasm GetPartyNick
writetext UnknownText_0xcdd9
reloadmappart
callasm DisappearWhirlpool
loadmovesprites
end
; 0xce1d
DisappearWhirlpool: ; ce1d
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wd1ee]
ld [hl], a
xor a
ld [hBGMapMode], a
call Function2173
ld a, [wd1ef]
ld e, a
callba Function8c7d4
call BufferScreen
call Function2914
ret
; ce3e
TryWhirlpoolOW:: ; ce3e
ld d, WHIRLPOOL
call CheckPartyMove
jr c, .failed
ld de, ENGINE_GLACIERBADGE
call CheckEngineFlag
jr c, .failed
call TryWhirlpoolMenu
jr c, .failed
ld a, BANK(Script_AskWhirlpoolOW)
ld hl, Script_AskWhirlpoolOW
call CallScript
scf
ret
.failed
ld a, BANK(Script_MightyWhirlpool)
ld hl, Script_MightyWhirlpool
call CallScript
scf
ret
; ce66
Script_MightyWhirlpool: ; 0xce66
jumptext UnknownText_0xce69
; 0xce69
UnknownText_0xce69: ; 0xce69
text_jump UnknownText_0x1c082b
db "@"
; 0xce6e
Script_AskWhirlpoolOW: ; 0xce6e
loadfont
writetext UnknownText_0xce78
yesorno
iftrue Script_UsedWhirlpool
loadmovesprites
end
; 0xce78
UnknownText_0xce78: ; 0xce78
text_jump UnknownText_0x1c0864
db "@"
; 0xce7d
HeadbuttFunction: ; ce7d
call TryHeadbuttFromMenu
and $7f
ld [wd0ec], a
ret
; ce86
TryHeadbuttFromMenu: ; ce86
call GetFacingTileCoord
call CheckHeadbuttTreeTile
jr nz, .no_tree
ld hl, HeadbuttFromMenuScript
call ExitMenuCallScript
ld a, $81
ret
.no_tree
call FieldMoveFailed
ld a, $80
ret
; ce9d
UnknownText_0xce9d: ; 0xce9d
; did a HEADBUTT!
text_jump UnknownText_0x1c0897
db "@"
; 0xcea2
UnknownText_0xcea2: ; 0xcea2
; Nope. Nothing…
text_jump UnknownText_0x1c08ac
db "@"
; 0xcea7
HeadbuttFromMenuScript: ; 0xcea7
reloadmappart
special UpdateTimePals
HeadbuttScript: ; 0xceab
callasm GetPartyNick
writetext UnknownText_0xce9d
reloadmappart
callasm ShakeHeadbuttTree
callasm TreeMonEncounter
iffalse .no_battle
loadmovesprites
battlecheck
startbattle
returnafterbattle
end
.no_battle
writetext UnknownText_0xcea2
closetext
loadmovesprites
end
; 0xcec9
TryHeadbuttOW:: ; cec9
ld d, HEADBUTT
call CheckPartyMove
jr c, .no
ld a, BANK(AskHeadbuttScript)
ld hl, AskHeadbuttScript
call CallScript
scf
ret
.no
xor a
ret
; cedc
AskHeadbuttScript: ; 0xcedc
loadfont
writetext UnknownText_0xcee6
yesorno
iftrue HeadbuttScript
loadmovesprites
end
; 0xcee6
UnknownText_0xcee6: ; 0xcee6
; A #MON could be in this tree. Want to HEADBUTT it?
text_jump UnknownText_0x1c08bc
db "@"
; 0xceeb
RockSmashFunction: ; ceeb
call TryRockSmashFromMenu
and $7f
ld [wd0ec], a
ret
; cef4
TryRockSmashFromMenu: ; cef4
call GetFacingObject
jr c, .no_rock
ld a, d
cp $18
jr nz, .no_rock
ld hl, RockSmashFromMenuScript
call ExitMenuCallScript
ld a, $81
ret
.no_rock
call FieldMoveFailed
ld a, $80
ret
; cf0d
GetFacingObject: ; cf0d
callba CheckFacingObject
jr nc, .fail
ld a, [$ffb0]
call GetObjectStruct
ld hl, OBJECT_MAP_OBJECT_INDEX
add hl, bc
ld a, [hl]
ld [$ffe0], a
call GetMapObject
ld hl, MAPOBJECT_FACING
add hl, bc
ld a, [hl]
ld d, a
and a
ret
.fail
scf
ret
; cf2e
RockSmashFromMenuScript: ; 0xcf2e
reloadmappart
special UpdateTimePals
RockSmashScript: ; cf32
callasm GetPartyNick
writetext UnknownText_0xcf58
loadmovesprites
special WaitSFX
playsound SFX_STRENGTH
earthquake 84
applymovement2 MovementData_0xcf55
disappear -2
callasm RockMonEncounter
copybytetovar wd22e
iffalse .done
battlecheck
startbattle
returnafterbattle
.done
end
; 0xcf55
MovementData_0xcf55: ; 0xcf55
db $57, $0a
step_end
UnknownText_0xcf58: ; 0xcf58
text_jump UnknownText_0x1c08f0
db "@"
; 0xcf5d
AskRockSmashScript: ; 0xcf5d
callasm HasRockSmash
if_equal 1, .no
loadfont
writetext UnknownText_0xcf77
yesorno
iftrue RockSmashScript
loadmovesprites
end
.no
jumptext UnknownText_0xcf72
; 0xcf72
UnknownText_0xcf72: ; 0xcf72
; Maybe a #MON can break this.
text_jump UnknownText_0x1c0906
db "@"
; 0xcf77
UnknownText_0xcf77: ; 0xcf77
; This rock looks breakable. Want to use ROCK SMASH?
text_jump UnknownText_0x1c0924
db "@"
; 0xcf7c
HasRockSmash: ; cf7c
ld d, ROCK_SMASH
call CheckPartyMove
jr nc, .yes
.no
ld a, 1
jr .done
.yes
xor a
jr .done
.done
ld [ScriptVar], a
ret
FishFunction: ; cf8e
ld a, e
push af
call ClearBuffer1
pop af
ld [Buffer2], a
.loop
ld hl, .FishTable
call FieldMoveJumptable
jr nc, .loop
and $7f
ld [wd0ec], a
ret
; cfa5
.FishTable: ; cfa5
dw .TryFish
dw .FishNoBite
dw .FishGotSomething
dw .SurfingFish
dw .FailFish
; cfaf
.TryFish: ; cfaf
ld a, [PlayerState]
cp PLAYER_SURF
jr z, .surfing
cp PLAYER_SURF_PIKA
jr z, .surfing
call GetFacingTileCoord
call GetTileCollision
cp $1
jr z, .facingwater
.surfing
ld a, $3
ret
.facingwater
call Function2d19
and a
jr nz, .goodtofish
ld a, $4
ret
.goodtofish
ld d, a
ld a, [Buffer2]
ld e, a
callba FishAction
ld a, d
and a
jr z, .nonibble
ld [wd22e], a
ld a, e
ld [CurPartyLevel], a
ld a, BATTLETYPE_FISH
ld [BattleType], a
ld a, $2
ret
.nonibble
ld a, $1
ret
; cff1
.SurfingFish: ; cff1
ld a, $80
ret
; cff4
.FishGotSomething: ; cff4
ld a, $1
ld [wd1ef], a
ld hl, Script_GotABite
call ExitMenuCallScript
ld a, $81
ret
; d002
.FishNoBite: ; d002
ld a, $2
ld [wd1ef], a
ld hl, Script_NotEvenANibble
call ExitMenuCallScript
ld a, $81
ret
; d010
.FailFish: ; d010
ld a, $0
ld [wd1ef], a
ld hl, Script_NotEvenANibble2
call ExitMenuCallScript
ld a, $81
ret
; d01e
Script_NotEvenANibble: ; 0xd01e
scall Script_FishCastRod
writetext UnknownText_0xd0a9
jump Script_NotEvenANibble_FallThrough
; 0xd027
Script_NotEvenANibble2: ; 0xd027
scall Script_FishCastRod
writetext UnknownText_0xd0a9
Script_NotEvenANibble_FallThrough: ; 0xd02d
loademote $8
callasm PutTheRodAway
loadmovesprites
end
; 0xd035
Script_GotABite: ; 0xd035
scall Script_FishCastRod
callasm Fishing_CheckFacingUp
iffalse .FacingUp
applymovement $0, MovementData_0xd062
jump .FightTheHookedPokemon
; 0xd046
.FacingUp: ; 0xd046
applymovement $0, MovementData_0xd05c
.FightTheHookedPokemon: ; 0xd04a
pause 40
applymovement $0, MovementData_0xd069
writetext UnknownText_0xd0a4
callasm PutTheRodAway
loadmovesprites
battlecheck
startbattle
returnafterbattle
end
; 0xd05c
MovementData_0xd05c: ; d05c
fish_got_bite
fish_got_bite
fish_got_bite
fish_got_bite
show_emote
step_end
; d062
MovementData_0xd062: ; d062
fish_got_bite
fish_got_bite
fish_got_bite
fish_got_bite
show_person
show_emote
step_end
; d069
MovementData_0xd069: ; d069
hide_emote
fish_got_bite_2
step_end
; d06c
Fishing_CheckFacingUp: ; d06c
ld a, [PlayerDirection]
and $c
cp $4
ld a, $1
jr z, .up
xor a
.up
ld [ScriptVar], a
ret
; d07c
Script_FishCastRod: ; 0xd07c
reloadmappart
loadvar $ffd4, $0
special UpdateTimePals
loademote $9
callasm Functionb84b3
loademote $0
applymovement $0, MovementData_0xd093
pause 40
end
; 0xd093
MovementData_0xd093: ; d093
db $52
step_end
; d095
PutTheRodAway: ; d095
xor a
ld [hBGMapMode], a
ld a, $1
ld [PlayerAction], a
call DrawOnMap
call Special_ReplaceKrisSprite
ret
; d0a4
UnknownText_0xd0a4: ; 0xd0a4
; Oh! A bite!
text_jump UnknownText_0x1c0958
db "@"
; 0xd0a9
UnknownText_0xd0a9: ; 0xd0a9
; Not even a nibble!
text_jump UnknownText_0x1c0965
db "@"
; 0xd0ae
UnknownText_0xd0ae: ; 0xd0ae
; Looks like there's nothing here.
text_jump UnknownText_0x1c0979
db "@"
; 0xd0b3
BikeFunction: ; d0b3
call .TryBike
and $7f
ld [wd0ec], a
ret
; d0bc
.TryBike: ; d0bc
call .CheckEnvironment
jr c, .CannotUseBike
ld a, [PlayerState]
cp PLAYER_NORMAL
jr z, .GetOnBike
cp PLAYER_BIKE
jr z, .GetOffBike
jr .CannotUseBike
.GetOnBike
ld hl, Script_GetOnBike
ld de, Script_GetOnBike_Register
call .CheckIfRegistered
call ExitMenuCallScript
xor a
ld [MusicFade], a
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
call MaxVolume
ld de, MUSIC_BICYCLE
ld a, e
ld [wMapMusic], a
call PlayMusic
ld a, $1
ret
.GetOffBike
ld hl, BikeFlags
bit 1, [hl]
jr nz, .CantGetOffBike
ld hl, Script_GetOffBike
ld de, Script_GetOffBike_Register
call .CheckIfRegistered
ld a, $3
jr .done
.CantGetOffBike
ld hl, UnknownScript_0xd171
jr .done
.CannotUseBike
ld a, $0
ret
.done
call ExitMenuCallScript
ld a, $1
ret
; d119
.CheckIfRegistered: ; d119
ld a, [wd0ef]
and a
ret z
ld h, d
ld l, e
ret
; d121
.CheckEnvironment: ; d121
call GetMapPermission
call CheckOutdoorMap
jr z, .ok
cp CAVE
jr z, .ok
cp GATE
jr z, .ok
jr .nope
.ok
call Function184a
and $f
jr nz, .nope
xor a
ret
.nope
scf
ret
; d13e
Script_GetOnBike: ; 0xd13e
reloadmappart
special UpdateTimePals
writecode VAR_MOVEMENT, $1
writetext UnknownText_0xd17c
closetext
loadmovesprites
special Special_ReplaceKrisSprite
end
; 0xd14e
Script_GetOnBike_Register: ; 0xd14e
writecode VAR_MOVEMENT, $1
loadmovesprites
special Special_ReplaceKrisSprite
end
; 0xd156
Functiond156: ; unreferenced
nop
ret
Script_GetOffBike: ; 0xd158
reloadmappart
special UpdateTimePals
writecode VAR_MOVEMENT, $0
writetext UnknownText_0xd181
closetext
UnknownScript_0xd163:
loadmovesprites
special Special_ReplaceKrisSprite
special PlayMapMusic
end
; 0xd16b
Script_GetOffBike_Register: ; 0xd16b
writecode VAR_MOVEMENT, $0
jump UnknownScript_0xd163
; 0xd171
UnknownScript_0xd171: ; 0xd171
writetext UnknownText_0xd177
closetext
loadmovesprites
end
; 0xd177
UnknownText_0xd177: ; 0xd177
; You can't get off here!
text_jump UnknownText_0x1c099a
db "@"
; 0xd17c
UnknownText_0xd17c: ; 0xd17c
; got on the @ .
text_jump UnknownText_0x1c09b2
db "@"
; 0xd181
UnknownText_0xd181: ; 0xd181
; got off the @ .
text_jump UnknownText_0x1c09c7
db "@"
; 0xd186
TryCutOW:: ; d186
ld d, CUT
call CheckPartyMove
jr c, .cant_cut
ld de, ENGINE_HIVEBADGE
call CheckEngineFlag
jr c, .cant_cut
ld a, BANK(AskCutScript)
ld hl, AskCutScript
call CallScript
scf
ret
.cant_cut
ld a, BANK(CantCutScript)
ld hl, CantCutScript
call CallScript
scf
ret
; d1a9
AskCutScript: ; 0xd1a9
loadfont
writetext UnknownText_0xd1c8
yesorno
iffalse .script_d1b8
callasm .CheckMap
iftrue Script_Cut
.script_d1b8
loadmovesprites
end
; 0xd1ba
.CheckMap: ; d1ba
xor a
ld [ScriptVar], a
call CheckMapForSomethingToCut
ret c
ld a, 1
ld [ScriptVar], a
ret
; d1c8
UnknownText_0xd1c8: ; 0xd1c8
text_jump UnknownText_0x1c09dd
db "@"
; 0xd1cd
CantCutScript: ; 0xd1cd
jumptext UnknownText_0xd1d0
; 0xd1d0
UnknownText_0xd1d0: ; 0xd1d0
text_jump UnknownText_0x1c0a05
db "@"
; 0xd1d5
_ReceiveItem:: ; d1d5
call CheckHLequTMsHMsEnd
jp nz, PutItemInPocket
push hl
call CheckItemPocket
pop de
ld a, [wd142]
dec a
ld hl, .Pockets
rst JumpTable
ret
; d1e9
.Pockets: ; d1e9
dw .Item
dw .KeyItem
dw .Ball
dw .TMHM
; d1f1
.Item: ; d1f1
ld h, d
ld l, e
jp PutItemInPocket
; d1f6
.KeyItem: ; d1f6
ld h, d
ld l, e
jp ReceiveKeyItem
; d1fb
.Ball: ; d1fb
ld hl, NumBalls
jp PutItemInPocket
; d201
.TMHM: ; d201
ld h, d
ld l, e
ld a, [CurItem]
ld c, a
call GetTMHMNumber
jp ReceiveTMHM
; d20d
_TossItem:: ; d20d
call CheckHLequTMsHMsEnd
jr nz, .asm_d241
push hl
call CheckItemPocket
pop de
ld a, [wd142]
dec a
ld hl, .Pockets
rst JumpTable
ret
.Pockets
dw .Item
dw .KeyItem
dw .Ball
dw .TMHM
; d228
.Ball ; d228
ld hl, NumBalls
jp RemoveItemFromPocket
; d22e
.TMHM ; d22e
ld h, d
ld l, e
ld a, [CurItem]
ld c, a
call GetTMHMNumber
jp TossTMHM
; d23a
.KeyItem ; d23a
ld h, d
ld l, e
jp TossKeyItem
; d23f
.Item ; d23f
ld h, d
ld l, e
; d241
.asm_d241
jp RemoveItemFromPocket
; d244
_CheckItem:: ; d244
call CheckHLequTMsHMsEnd
jr nz, .asm_d278
push hl
call CheckItemPocket
pop de
ld a, [wd142]
dec a
ld hl, .Pockets
rst JumpTable
ret
.Pockets
dw .Item
dw .KeyItem
dw .Ball
dw .TMHM
; d25f
.Ball ; d25f
ld hl, NumBalls
jp CheckTheItem
; d265
.TMHM ; d265
ld h, d
ld l, e
ld a, [CurItem]
ld c, a
call GetTMHMNumber
jp CheckTMHM
; d271
.KeyItem ; d271
ld h, d
ld l, e
jp CheckKeyItems
; d276
.Item ; d276
ld h, d
ld l, e
; d278
.asm_d278
jp CheckTheItem
; d27b
CheckHLequTMsHMsEnd: ; d27b
ld a, l
cp TMsHMsEnd % $100
ret nz
ld a, h
cp TMsHMsEnd / $100
ret
; d283
GetPocketCapacity: ; d283
ld c, MAX_ITEMS
ld a, e
cp NumItems % $100
jr nz, .asm_d28e
ld a, d
cp NumItems / $100
ret z
.asm_d28e
ld c, MAX_PC_ITEMS
ld a, e
cp PCItems % $100
jr nz, .asm_d299
ld a, d
cp PCItems / $100
ret z
.asm_d299
ld c, MAX_BALLS
ret
; d29c
PutItemInPocket: ; d29c
ld d, h
ld e, l
inc hl
ld a, [CurItem]
ld c, a
ld b, 0
.loop
ld a, [hli]
cp -1
jr z, .terminator
cp c
jr nz, .next
ld a, 99
sub [hl]
add b
ld b, a
ld a, [wd10c]
cp b
jr z, .ok
jr c, .ok
.next
inc hl
jr .loop
.terminator
call GetPocketCapacity
ld a, [de]
cp c
jr c, .ok
and a
ret
.ok
ld h, d
ld l, e
ld a, [CurItem]
ld c, a
ld a, [wd10c]
ld [wd10d], a
.loop2
inc hl
ld a, [hli]
cp -1
jr z, .terminator2
cp c
jr nz, .loop2
ld a, [wd10d]
add [hl]
cp 100
jr nc, .newstack
ld [hl], a
jr .done
.newstack
ld [hl], 99
sub 99
ld [wd10d], a
jr .loop2
.terminator2
dec hl
ld a, [CurItem]
ld [hli], a
ld a, [wd10d]
ld [hli], a
ld [hl], -1
ld h, d
ld l, e
inc [hl]
.done
scf
ret
; d2ff
RemoveItemFromPocket: ; d2ff
ld d, h
ld e, l
ld a, [hli]
ld c, a
ld a, [wd107]
cp c
jr nc, .ok
ld c, a
ld b, $0
rept 2
add hl, bc
endr
ld a, [CurItem]
cp [hl]
inc hl
jr z, .skip
ld h, d
ld l, e
inc hl
.ok
ld a, [CurItem]
ld b, a
.loop
ld a, [hli]
cp b
jr z, .skip
cp -1
jr z, .nope
inc hl
jr .loop
.skip
ld a, [wd10c]
ld b, a
ld a, [hl]
sub b
jr c, .nope
ld [hl], a
ld [wd10d], a
and a
jr nz, .yup
dec hl
ld b, h
ld c, l
rept 2
inc hl
endr
.loop2
ld a, [hli]
ld [bc], a
inc bc
cp -1
jr nz, .loop2
ld h, d
ld l, e
dec [hl]
.yup
scf
ret
.nope
and a
ret
; d349
CheckTheItem: ; d349
ld a, [CurItem]
ld c, a
.loop
inc hl
ld a, [hli]
cp -1
jr z, .done
cp c
jr nz, .loop
scf
ret
.done
and a
ret
; d35a
ReceiveKeyItem: ; d35a
ld hl, NumKeyItems
ld a, [hli]
cp MAX_KEY_ITEMS
jr nc, .nope
ld c, a
ld b, 0
add hl, bc
ld a, [CurItem]
ld [hli], a
ld [hl], -1
ld hl, NumKeyItems
inc [hl]
scf
ret
.nope
and a
ret
; d374
TossKeyItem: ; d374
ld a, [wd107]
ld e, a
ld d, 0
ld hl, NumKeyItems
ld a, [hl]
cp e
jr nc, .ok
call .Toss
ret nc
jr .ok2
.ok
dec [hl]
inc hl
add hl, de
.ok2
ld d, h
ld e, l
inc hl
.loop
ld a, [hli]
ld [de], a
inc de
cp -1
jr nz, .loop
scf
ret
; d396
.Toss: ; d396
ld hl, NumKeyItems
ld a, [CurItem]
ld c, a
.loop3
inc hl
ld a, [hl]
cp c
jr z, .ok3
cp -1
jr nz, .loop3
xor a
ret
.ok3
ld a, [NumKeyItems]
dec a
ld [NumKeyItems], a
scf
ret
; d3b1
CheckKeyItems: ; d3b1
ld a, [CurItem]
ld c, a
ld hl, KeyItems
.loop
ld a, [hli]
cp c
jr z, .done
cp -1
jr nz, .loop
and a
ret
.done
scf
ret
; d3c4
ReceiveTMHM: ; d3c4
dec c
ld b, 0
ld hl, TMsHMs
add hl, bc
ld a, [wd10c]
add [hl]
cp 100
jr nc, .toomany
ld [hl], a
scf
ret
.toomany
and a
ret
; d3d8
TossTMHM: ; d3d8
dec c
ld b, 0
ld hl, TMsHMs
add hl, bc
ld a, [wd10c]
ld b, a
ld a, [hl]
sub b
jr c, .nope
ld [hl], a
ld [wd10d], a
jr nz, .yup
ld a, [wd0e2]
and a
jr z, .yup
dec a
ld [wd0e2], a
.yup
scf
ret
.nope
and a
ret
; d3fb
CheckTMHM: ; d3fb
dec c
ld b, $0
ld hl, TMsHMs
add hl, bc
ld a, [hl]
and a
ret z
scf
ret
; d407
GetTMHMNumber:: ; d407
; Return the number of a TM/HM by item id c.
ld a, c
; Skip any dummy items.
cp ITEM_C3 ; TM04-05
jr c, .done
cp ITEM_DC ; TM28-29
jr c, .skip
dec a
.skip
dec a
.done
sub TM01
inc a
ld c, a
ret
; d417
GetNumberedTMHM: ; d417
; Return the item id of a TM/HM by number c.
ld a, c
; Skip any gaps.
cp ITEM_C3 - (TM01 - 1)
jr c, .done
cp ITEM_DC - (TM01 - 1) - 1
jr c, .skip_one
.skip_two
inc a
.skip_one
inc a
.done
add TM01
dec a
ld c, a
ret
; d427
_CheckTossableItem:: ; d427
; Return 1 in wd142 and carry if CurItem can't be removed from the bag.
ld a, ITEMATTR_PERMISSIONS
call GetItemAttr
bit 7, a
jr nz, Functiond47f
and a
ret
; d432
CheckSelectableItem: ; d432
; Return 1 in wd142 and carry if CurItem can't be selected.
ld a, ITEMATTR_PERMISSIONS
call GetItemAttr
bit 6, a
jr nz, Functiond47f
and a
ret
; d43d
CheckItemPocket:: ; d43d
; Return the pocket for CurItem in wd142.
ld a, ITEMATTR_POCKET
call GetItemAttr
and $f
ld [wd142], a
ret
; d448
CheckItemContext: ; d448
; Return the context for CurItem in wd142.
ld a, ITEMATTR_HELP
call GetItemAttr
and $f
ld [wd142], a
ret
; d453
CheckItemMenu: ; d453
; Return the menu for CurItem in wd142.
ld a, ITEMATTR_HELP
call GetItemAttr
swap a
and $f
ld [wd142], a
ret
; d460
GetItemAttr: ; d460
; Get attribute a of CurItem.
push hl
push bc
ld hl, ItemAttributes
ld c, a
ld b, 0
add hl, bc
xor a
ld [wd142], a
ld a, [CurItem]
dec a
ld c, a
ld a, NUM_ITEMATTRS
call AddNTimes
ld a, BANK(ItemAttributes)
call GetFarByte
pop bc
pop hl
ret
; d47f
Functiond47f: ; d47f
ld a, 1
ld [wd142], a
scf
ret
; d486
GetItemPrice: ; d486
; Return the price of CurItem in de.
push hl
push bc
ld a, ITEMATTR_PRICE
call GetItemAttr
ld e, a
ld a, ITEMATTR_PRICE_HI
call GetItemAttr
ld d, a
pop bc
pop hl
ret
; d497
Functiond497:: ; d497 (3:5497)
ld a, [wd150]
and a
ret z
bit 7, a
jr nz, .asm_d4a9
bit 6, a
jr nz, .asm_d4b3
bit 5, a
jr nz, .asm_d4b8
ret
.asm_d4a9
ld a, $4
ld [wd13f], a
call Functiond536
jr .asm_d4b8
.asm_d4b3
call Functiond511
jr .asm_d4b8
.asm_d4b8
call Functiond4e5
ld a, [wd14e]
ld d, a
ld a, [wd14f]
ld e, a
ld a, [wd14c]
sub d
ld [wd14c], a
ld a, [wd14d]
sub e
ld [wd14d], a
ret
Functiond4d2:: ; d4d2 (3:54d2)
ld a, [wd14e]
ld d, a
ld a, [wd14f]
ld e, a
ld a, [hSCX] ; $ff00+$cf
add d
ld [hSCX], a ; $ff00+$cf
ld a, [hSCY] ; $ff00+$d0
add e
ld [hSCY], a ; $ff00+$d0
ret
Functiond4e5: ; d4e5 (3:54e5)
ld hl, wd13f
ld a, [hl]
and a
ret z
dec [hl]
ld a, [hl]
ld hl, Jumptable_d4f2
rst JumpTable
ret
Jumptable_d4f2: ; d4f2 (3:54f2)
dw Function2914
dw BufferScreen
dw Functiond509
dw Functiond510
dw Functiond508
dw Functiond508
dw Functiond508
dw Functiond508
dw Functiond508
dw Functiond508
dw Functiond508
Functiond508: ; d508 (3:5508)
ret
Functiond509: ; d509 (3:5509)
callba Function10602e
ret
Functiond510: ; d510 (3:5510)
ret
Functiond511: ; d511 (3:5511)
ld a, [wd151]
and a
jr nz, .asm_d51c
ld hl, YCoord
inc [hl]
ret
.asm_d51c
cp $1
jr nz, .asm_d525
ld hl, YCoord
dec [hl]
ret
.asm_d525
cp $2
jr nz, .asm_d52e
ld hl, XCoord
dec [hl]
ret
.asm_d52e
cp $3
ret nz
ld hl, XCoord
inc [hl]
ret
Functiond536: ; d536 (3:5536)
ld a, [wd151]
and a
jr z, .asm_d549
cp $1
jr z, .asm_d553
cp $2
jr z, .asm_d55d
cp $3
jr z, .asm_d567
ret
.asm_d549
call Functiond571
call Function217a
call Function2748
ret
.asm_d553
call Functiond5a2
call Function217a
call Function272a
ret
.asm_d55d
call Functiond5d5
call Function217a
call Function2771
ret
.asm_d567
call Functiond5fe
call Function217a
call Function278f
ret
Functiond571: ; d571 (3:5571)
ld a, [wd152]
add $40
ld [wd152], a
jr nc, .asm_d586
ld a, [wd153]
inc a
and $3
or $98
ld [wd153], a
.asm_d586
ld hl, wd196
inc [hl]
ld a, [hl]
cp $2
jr nz, .asm_d594
ld [hl], $0
call Functiond595
.asm_d594
ret
Functiond595: ; d595 (3:5595)
ld hl, wd194
ld a, [MapWidth]
add $6
add [hl]
ld [hli], a
ret nc
inc [hl]
ret
Functiond5a2: ; d5a2 (3:55a2)
ld a, [wd152]
sub $40
ld [wd152], a
jr nc, .asm_d5b7
ld a, [wd153]
dec a
and $3
or $98
ld [wd153], a
.asm_d5b7
ld hl, wd196
dec [hl]
ld a, [hl]
cp $ff
jr nz, .asm_d5c5
ld [hl], $1
call Functiond5c6
.asm_d5c5
ret
Functiond5c6: ; d5c6 (3:55c6)
ld hl, wd194
ld a, [MapWidth]
add $6
ld b, a
ld a, [hl]
sub b
ld [hli], a
ret nc
dec [hl]
ret
Functiond5d5: ; d5d5 (3:55d5)
ld a, [wd152]
ld e, a
and $e0
ld d, a
ld a, e
sub $2
and $1f
or d
ld [wd152], a
ld hl, wd197
dec [hl]
ld a, [hl]
cp $ff
jr nz, .asm_d5f3
ld [hl], $1
call Functiond5f4
.asm_d5f3
ret
Functiond5f4: ; d5f4 (3:55f4)
ld hl, wd194
ld a, [hl]
sub $1
ld [hli], a
ret nc
dec [hl]
ret
Functiond5fe: ; d5fe (3:55fe)
ld a, [wd152]
ld e, a
and $e0
ld d, a
ld a, e
add $2
and $1f
or d
ld [wd152], a
ld hl, wd197
inc [hl]
ld a, [hl]
cp $2
jr nz, .asm_d61c
ld [hl], $0
call Functiond61d
.asm_d61c
ret
Functiond61d: ; d61d (3:561d)
ld hl, wd194
ld a, [hl]
add $1
ld [hli], a
ret nc
inc [hl]
ret
Functiond627: ; d627
call Functiond65f
jr c, .asm_d645
call Functiond670
.asm_d62f
push bc
push hl
call Functiond6e2
pop hl
pop bc
push af
push bc
push hl
call Functiond730
call Functiond7c9
pop hl
pop bc
pop af
jr nc, .asm_d62f
ret
.asm_d645
call Functiond670
.asm_d648
push bc
push hl
call Functiond6f5
pop hl
pop bc
ret c
push af
push bc
push hl
call Functiond749
call Functiond7c9
pop hl
pop bc
pop af
jr nc, .asm_d648
ret
; d65f
Functiond65f: ; d65f
ld a, [Buffer2]
and a
jr nz, .asm_d66e
ld a, [Buffer1]
cp $30
jr nc, .asm_d66e
and a
ret
.asm_d66e
scf
ret
; d670
Functiond670: ; d670
push hl
ld hl, Buffer1
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
pop hl
call Functionc699
ld a, e
ld [wd1f1], a
ld a, [wd1ee]
ld c, a
ld a, [wd1ef]
ld b, a
ld a, [Buffer1]
ld e, a
ld a, [Buffer2]
ld d, a
call Functionc699
ld a, e
ld [wd1f2], a
push hl
ld hl, wd1ec
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
pop hl
ld a, e
sub c
ld e, a
ld a, d
sbc b
ld d, a
jr c, .asm_d6c1
ld a, [wd1ec]
ld [wd1f5], a
ld a, [wd1ee]
ld [wd1f6], a
ld bc, $0001
jr .asm_d6d9
.asm_d6c1
ld a, [wd1ec]
ld [wd1f6], a
ld a, [wd1ee]
ld [wd1f5], a
ld a, e
xor $ff
inc a
ld e, a
ld a, d
xor $ff
ld d, a
ld bc, rIE
.asm_d6d9
ld a, d
ld [wd1f3], a
ld a, e
ld [wd1f4], a
ret
; d6e2
Functiond6e2: ; d6e2
ld hl, wd1f1
ld a, [wd1f2]
cp [hl]
jr nz, .asm_d6ed
scf
ret
.asm_d6ed
ld a, c
add [hl]
ld [hl], a
call Functiond839
and a
ret
; d6f5
Functiond6f5: ; d6f5
.asm_d6f5
ld hl, wd1ec
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, e
cp [hl]
jr nz, .asm_d707
inc hl
ld a, d
cp [hl]
jr nz, .asm_d707
scf
ret
.asm_d707
ld l, e
ld h, d
add hl, bc
ld a, l
ld [wd1ec], a
ld a, h
ld [wd1ed], a
push hl
push de
push bc
ld hl, Buffer1
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
call Functionc699
pop bc
pop de
pop hl
ld a, e
ld hl, wd1f1
cp [hl]
jr z, .asm_d6f5
ld [hl], a
and a
ret
; d730
Functiond730: ; d730
call Functiond784
ld d, $6
ld a, [wd10a]
and $1
ld b, a
ld a, [wd1f1]
ld e, a
ld c, a
push de
call Functiond771
pop de
call Functiond7b4
ret
; d749
Functiond749: ; d749
call Functiond784
ld a, [wd1ec]
ld c, a
ld a, [wd1ed]
ld b, a
ld a, [Buffer1]
ld e, a
ld a, [Buffer2]
ld d, a
call Functionc699
ld c, e
ld d, $6
ld a, [wd10a]
and $1
ld b, a
push de
call Functiond771
pop de
call Functiond7b4
ret
; d771
Functiond771: ; d771
ld a, [wd10a]
cp $2
jr nz, .asm_d780
ld a, $28
add l
ld l, a
ld a, $0
adc h
ld h, a
.asm_d780
call DrawHPBar
ret
; d784
Functiond784: ; d784
ld a, [wd10a]
and a
ret z
cp $1
jr z, .asm_d792
ld de, $0016
jr .asm_d795
.asm_d792
ld de, $0015
.asm_d795
push hl
add hl, de
ld a, " "
rept 2
ld [hli], a
endr
ld [hld], a
dec hl
ld a, [wd1ec]
ld [StringBuffer2 + 1], a
ld a, [wd1ed]
ld [StringBuffer2], a
ld de, StringBuffer2
ld bc, $0203
call PrintNum
pop hl
ret
; d7b4
Functiond7b4: ; d7b4
ld a, [hCGB]
and a
ret z
ld hl, wd1f0
call SetHPPal
ld a, [wd1f0]
ld c, a
callba Function8c43
ret
; d7c9
Functiond7c9: ; d7c9
ld a, [hCGB]
and a
jr nz, .asm_d7d5
call DelayFrame
call DelayFrame
ret
.asm_d7d5
ld a, [wd10a]
and a
jr z, .asm_d829
cp $1
jr z, .asm_d82d
ld a, [CurPartyMon]
cp $3
jr nc, .asm_d7ea
ld c, $0
jr .asm_d7ec
.asm_d7ea
ld c, $1
.asm_d7ec
push af
cp $2
jr z, .asm_d7ff
cp $5
jr z, .asm_d7ff
ld a, $2
ld [hBGMapMode], a
ld a, c
ld [hBGMapThird], a
call DelayFrame
.asm_d7ff
ld a, $1
ld [hBGMapMode], a
ld a, c
ld [hBGMapThird], a
call DelayFrame
pop af
cp $2
jr z, .asm_d813
cp $5
jr z, .asm_d813
ret
.asm_d813
inc c
ld a, $2
ld [hBGMapMode], a
ld a, c
ld [hBGMapThird], a
call DelayFrame
ld a, $1
ld [hBGMapMode], a
ld a, c
ld [hBGMapThird], a
call DelayFrame
ret
.asm_d829
ld c, $0
jr .asm_d82f
.asm_d82d
ld c, $1
.asm_d82f
call DelayFrame
ld a, c
ld [hBGMapThird], a
call DelayFrame
ret
; d839
Functiond839: ; d839
ld a, [Buffer1]
ld c, a
ld b, $0
ld hl, $0000
ld a, [wd1f1]
cp $30
jr nc, .asm_d885
and a
jr z, .asm_d880
call AddNTimes
ld b, $0
.asm_d851
ld a, l
sub $30
ld l, a
ld a, h
sbc $0
ld h, a
jr c, .asm_d85e
inc b
jr .asm_d851
.asm_d85e
push bc
ld bc, $0080
add hl, bc
pop bc
ld a, l
sub $30
ld l, a
ld a, h
sbc $0
ld h, a
jr c, .asm_d86f
inc b
.asm_d86f
ld a, [wd1f5]
cp b
jr nc, .asm_d87c
ld a, [wd1f6]
cp b
jr c, .asm_d87c
ld a, b
.asm_d87c
ld [wd1ec], a
ret
.asm_d880
xor a
ld [wd1ec], a
ret
.asm_d885
ld a, [Buffer1]
ld [wd1ec], a
ret
; d88c
Functiond88c: ; d88c
ld de, PartyCount
ld a, [MonType]
and $f
jr z, .asm_d899
ld de, OTPartyCount
.asm_d899
ld a, [de]
inc a
cp PARTY_LENGTH + 1
ret nc
ld [de], a
ld a, [de]
ld [$ffae], a
add e
ld e, a
jr nc, .asm_d8a7
inc d
.asm_d8a7
ld a, [CurPartySpecies]
ld [de], a
inc de
ld a, $ff
ld [de], a
ld hl, PartyMonOT
ld a, [MonType]
and $f
jr z, .asm_d8bc
ld hl, OTPartyMonOT
.asm_d8bc
ld a, [$ffae]
dec a
call SkipNames
ld d, h
ld e, l
ld hl, PlayerName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [MonType]
and a
jr nz, .asm_d8f0
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
ld hl, PartyMonNicknames
ld a, [$ffae]
dec a
call SkipNames
ld d, h
ld e, l
ld hl, StringBuffer1
ld bc, PKMN_NAME_LENGTH
call CopyBytes
.asm_d8f0
ld hl, PartyMon1Species
ld a, [MonType]
and $f
jr z, .asm_d8fd
ld hl, OTPartyMon1Species
.asm_d8fd
ld a, [$ffae]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
Functiond906: ; d906
ld e, l
ld d, h
push hl
ld a, [CurPartySpecies]
ld [CurSpecies], a
call GetBaseData
ld a, [BaseDexNo]
ld [de], a
inc de
ld a, [IsInBattle]
and a
ld a, $0
jr z, .asm_d922
ld a, [EnemyMonItem]
.asm_d922
ld [de], a
inc de
push de
ld h, d
ld l, e
ld a, [IsInBattle]
and a
jr z, .asm_d943
ld a, [MonType]
and a
jr nz, .asm_d943
ld de, EnemyMonMoves
rept NUM_MOVES + -1
ld a, [de]
inc de
ld [hli], a
endr
ld a, [de]
ld [hl], a
jr .asm_d950
.asm_d943
xor a
rept NUM_MOVES + -1
ld [hli], a
endr
ld [hl], a
ld [Buffer1], a
predef FillMoves
.asm_d950
pop de
rept 4
inc de
endr
ld a, [PlayerID]
ld [de], a
inc de
ld a, [PlayerID + 1]
ld [de], a
inc de
push de
ld a, [CurPartyLevel]
ld d, a
callab Function50e47
pop de
ld a, [hMultiplicand]
ld [de], a
inc de
ld a, [$ffb5]
ld [de], a
inc de
ld a, [$ffb6]
ld [de], a
inc de
xor a
ld b, $a
.asm_d97a
ld [de], a
inc de
dec b
jr nz, .asm_d97a
pop hl
push hl
ld a, [MonType]
and $f
jr z, .asm_d992
push hl
callba GetTrainerDVs
pop hl
jr .asm_d9b5
.asm_d992
ld a, [CurPartySpecies]
ld [wd265], a
dec a
push de
call CheckCaughtMon
ld a, [wd265]
dec a
call SetSeenAndCaughtMon
pop de
pop hl
push hl
ld a, [IsInBattle]
and a
jr nz, .asm_d9f3
call Random
ld b, a
call Random
ld c, a
.asm_d9b5
ld a, b
ld [de], a
inc de
ld a, c
ld [de], a
inc de
push hl
push de
rept 2
inc hl
endr
call FillPP
pop de
pop hl
rept 4
inc de
endr
ld a, $46
ld [de], a
inc de
xor a
ld [de], a
inc de
ld [de], a
inc de
ld [de], a
inc de
ld a, [CurPartyLevel]
ld [de], a
inc de
xor a
ld [de], a
inc de
ld [de], a
inc de
ld bc, $000a
add hl, bc
ld a, $1
ld c, a
ld b, $0
call Functione17b
ld a, [$ffb5]
ld [de], a
inc de
ld a, [$ffb6]
ld [de], a
inc de
jr .asm_da29
.asm_d9f3
ld a, [EnemyMonDVs]
ld [de], a
inc de
ld a, [EnemyMonDVs + 1]
ld [de], a
inc de
push hl
ld hl, EnemyMonPP
ld b, NUM_MOVES
.asm_da03
ld a, [hli]
ld [de], a
inc de
dec b
jr nz, .asm_da03
pop hl
ld a, BASE_HAPPINESS
ld [de], a
inc de
xor a
ld [de], a
inc de
ld [de], a
inc de
ld [de], a
inc de
ld a, [CurPartyLevel]
ld [de], a
inc de
ld hl, EnemyMonStatus
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
.asm_da29
ld a, [IsInBattle]
dec a
jr nz, .asm_da3b
ld hl, EnemyMonMaxHP
ld bc, $000c
call CopyBytes
pop hl
jr .asm_da45
.asm_da3b
pop hl
ld bc, $000a
add hl, bc
ld b, $0
call Functione167
.asm_da45
ld a, [MonType]
and $f
jr nz, .asm_da6b
ld a, [CurPartySpecies]
cp UNOWN
jr nz, .asm_da6b
ld hl, PartyMon1DVs
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
predef GetUnownLetter
callab Functionfba18
.asm_da6b
scf
ret
; da6d
FillPP: ; da6d
push bc
ld b, NUM_MOVES
.asm_da70
ld a, [hli]
and a
jr z, .asm_da8f
dec a
push hl
push de
push bc
ld hl, Moves
ld bc, MOVE_LENGTH
call AddNTimes
ld de, StringBuffer1
ld a, BANK(Moves)
call FarCopyBytes
pop bc
pop de
pop hl
ld a, [StringBuffer1 + MOVE_PP]
.asm_da8f
ld [de], a
inc de
dec b
jr nz, .asm_da70
pop bc
ret
; da96
Functionda96: ; da96
ld hl, PartyCount
ld a, [hl]
cp PARTY_LENGTH
scf
ret z
inc a
ld [hl], a
ld c, a
ld b, 0
add hl, bc
ld a, [CurPartySpecies]
ld [hli], a
ld [hl], $ff
ld hl, PartyMon1Species
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld e, l
ld d, h
ld hl, TempMonSpecies
call CopyBytes
ld hl, PartyMonOT
ld a, [PartyCount]
dec a
call SkipNames
ld d, h
ld e, l
ld hl, OTPartyMonOT
ld a, [CurPartyMon]
call SkipNames
ld bc, NAME_LENGTH
call CopyBytes
ld hl, PartyMonNicknames
ld a, [PartyCount]
dec a
call SkipNames
ld d, h
ld e, l
ld hl, OTPartyMonNicknames
ld a, [CurPartyMon]
call SkipNames
ld bc, PKMN_NAME_LENGTH
call CopyBytes
ld a, [CurPartySpecies]
ld [wd265], a
cp EGG
jr z, .owned
dec a
call SetSeenAndCaughtMon
ld hl, PartyMon1Happiness
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld [hl], BASE_HAPPINESS
.owned
ld a, [CurPartySpecies]
cp UNOWN
jr nz, .done
ld hl, PartyMon1DVs
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
predef GetUnownLetter
callab Functionfba18
ld a, [wdef4]
and a
jr nz, .done
ld a, [UnownLetter]
ld [wdef4], a
.done
and a
ret
; db3f
Functiondb3f: ; db3f
ld a, $1
call GetSRAMBank
ld a, [wd10b]
and a
jr z, .asm_db60
cp $2
jr z, .asm_db60
cp $3
ld hl, wBreedMon1Species
jr z, .asm_db9b
ld hl, sBoxCount
ld a, [hl]
cp MONS_PER_BOX
jr nz, .asm_db69
jp Functiondcb1
.asm_db60
ld hl, PartyCount
ld a, [hl]
cp PARTY_LENGTH
jp z, Functiondcb1
.asm_db69
inc a
ld [hl], a
ld c, a
ld b, 0
add hl, bc
ld a, [wd10b]
cp $2
ld a, [wBreedMon1Species]
jr z, .asm_db7c
ld a, [CurPartySpecies]
.asm_db7c
ld [hli], a
ld [hl], $ff
ld a, [wd10b]
dec a
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
ld a, [PartyCount]
jr nz, .asm_db97
ld hl, sBoxMon1Species
ld bc, sBoxMon1End - sBoxMon1
ld a, [sBoxCount]
.asm_db97
dec a
call AddNTimes
.asm_db9b
push hl
ld e, l
ld d, h
ld a, [wd10b]
and a
ld hl, sBoxMon1Species
ld bc, sBoxMon1End - sBoxMon1
jr z, .asm_dbb7
cp $2
ld hl, wBreedMon1Species
jr z, .asm_dbbd
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
.asm_dbb7
ld a, [CurPartyMon]
call AddNTimes
.asm_dbbd
ld bc, sBoxMon1End - sBoxMon1
call CopyBytes
ld a, [wd10b]
cp $3
ld de, wBreedMon1OT
jr z, .asm_dbe2
dec a
ld hl, PartyMonOT
ld a, [PartyCount]
jr nz, .asm_dbdc
ld hl, sBoxMonOT
ld a, [sBoxCount]
.asm_dbdc
dec a
call SkipNames
ld d, h
ld e, l
.asm_dbe2
ld hl, sBoxMonOT
ld a, [wd10b]
and a
jr z, .asm_dbf5
ld hl, wBreedMon1OT
cp $2
jr z, .asm_dbfb
ld hl, PartyMonOT
.asm_dbf5
ld a, [CurPartyMon]
call SkipNames
.asm_dbfb
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wd10b]
cp $3
ld de, wBreedMon1Nick
jr z, .asm_dc20
dec a
ld hl, PartyMonNicknames
ld a, [PartyCount]
jr nz, .asm_dc1a
ld hl, sBoxMonNicknames
ld a, [sBoxCount]
.asm_dc1a
dec a
call SkipNames
ld d, h
ld e, l
.asm_dc20
ld hl, sBoxMonNicknames
ld a, [wd10b]
and a
jr z, .asm_dc33
ld hl, wBreedMon1Nick
cp $2
jr z, .asm_dc39
ld hl, PartyMonNicknames
.asm_dc33
ld a, [CurPartyMon]
call SkipNames
.asm_dc39
ld bc, PKMN_NAME_LENGTH
call CopyBytes
pop hl
ld a, [wd10b]
cp $1
jr z, .asm_dca4
cp $3
jp z, .asm_dcac
push hl
srl a
add $2
ld [MonType], a
predef Function5084a
callab Function50e1b
ld a, d
ld [CurPartyLevel], a
pop hl
ld b, h
ld c, l
ld hl, $001f
add hl, bc
ld [hl], a
ld hl, $0024
add hl, bc
ld d, h
ld e, l
ld hl, $000a
add hl, bc
push bc
ld b, $1
call Functione167
pop bc
ld a, [wd10b]
and a
jr nz, .asm_dcac
ld hl, $0020
add hl, bc
xor a
ld [hl], a
ld hl, $0022
add hl, bc
ld d, h
ld e, l
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_dc9e
rept 2
inc hl
endr
ld a, [hli]
ld [de], a
ld a, [hl]
inc de
ld [de], a
jr .asm_dcac
.asm_dc9e
xor a
ld [de], a
inc de
ld [de], a
jr .asm_dcac
.asm_dca4
ld a, [sBoxCount]
dec a
ld b, a
call Functiondcb6
.asm_dcac
call CloseSRAM
and a
ret
; dcb1
Functiondcb1: ; dcb1
call CloseSRAM
scf
ret
; dcb6
Functiondcb6: ; dcb6
ld a, b
ld hl, sBoxMons
ld bc, sBoxMon1End - sBoxMon1
call AddNTimes
ld b, h
ld c, l
ld hl, sBoxMon1PP - sBoxMon1
add hl, bc
push hl
push bc
ld de, TempMonPP
ld bc, NUM_MOVES
call CopyBytes
pop bc
ld hl, sBoxMon1Moves - sBoxMon1
add hl, bc
push hl
ld de, TempMonMoves
ld bc, NUM_MOVES
call CopyBytes
pop hl
pop de
ld a, [wcfa9]
push af
ld a, [MonType]
push af
ld b, 0
.asm_dcec
ld a, [hli]
and a
jr z, .asm_dd18
ld [TempMonMoves+0], a
ld a, BOXMON
ld [MonType], a
ld a, b
ld [wcfa9], a
push bc
push hl
push de
callba Functionf8ec
pop de
pop hl
ld a, [wd265]
ld b, a
ld a, [de]
and $c0
add b
ld [de], a
pop bc
inc de
inc b
ld a, b
cp NUM_MOVES
jr c, .asm_dcec
.asm_dd18
pop af
ld [MonType], a
pop af
ld [wcfa9], a
ret
; dd21
Functiondd21: ; dd21
ld a, [wBreedMon1Species]
ld [CurPartySpecies], a
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
call Functione698
ld a, b
ld [DefaultFlypoint], a
ld a, e
ld [CurPartyLevel], a
xor a
ld [wd10b], a
jp Functiondd64
; dd42
Functiondd42: ; dd42
ld a, [wBreedMon2Species]
ld [CurPartySpecies], a
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
call Functione6b3
ld a, b
ld [DefaultFlypoint], a
ld a, e
ld [CurPartyLevel], a
ld a, $1
ld [wd10b], a
jp Functiondd64
; dd64
Functiondd64: ; dd64
ld hl, PartyCount
ld a, [hl]
cp PARTY_LENGTH
jr nz, .asm_dd6e
scf
ret
.asm_dd6e
inc a
ld [hl], a
ld c, a
ld b, 0
add hl, bc
ld a, [wd10b]
and a
ld a, [wBreedMon1Species]
ld de, wBreedMon1Nick
jr z, .asm_dd86
ld a, [wBreedMon2Species]
ld de, wBreedMon2Nick
.asm_dd86
ld [hli], a
ld [CurSpecies], a
ld a, $ff
ld [hl], a
ld hl, PartyMonNicknames
ld a, [PartyCount]
dec a
call SkipNames
push hl
ld h, d
ld l, e
pop de
call CopyBytes
push hl
ld hl, PartyMonOT
ld a, [PartyCount]
dec a
call SkipNames
ld d, h
ld e, l
pop hl
call CopyBytes
push hl
call Functionde1a
pop hl
ld bc, $0020
call CopyBytes
call GetBaseData
call Functionde1a
ld b, d
ld c, e
ld hl, $001f
add hl, bc
ld a, [CurPartyLevel]
ld [hl], a
ld hl, $0024
add hl, bc
ld d, h
ld e, l
ld hl, $000a
add hl, bc
push bc
ld b, $1
call Functione167
ld hl, PartyMon1Moves
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld d, h
ld e, l
ld a, $1
ld [Buffer1], a
predef FillMoves
ld a, [PartyCount]
dec a
ld [CurPartyMon], a
callba HealPartyMon
ld a, [CurPartyLevel]
ld d, a
callab Function50e47
pop bc
ld hl, $0008
add hl, bc
ld a, [hMultiplicand]
ld [hli], a
ld a, [$ffb5]
ld [hli], a
ld a, [$ffb6]
ld [hl], a
and a
ret
; de1a
Functionde1a: ; de1a
ld a, [PartyCount]
dec a
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld d, h
ld e, l
ret
; de2a
Functionde2a: ; de2a
ld de, wBreedMon1Nick
call Functionde44
xor a
ld [wd10b], a
jp Functione039
; de37
Functionde37: ; de37
ld de, wBreedMon2Nick
call Functionde44
xor a
ld [wd10b], a
jp Functione039
; de44
Functionde44: ; de44
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
call SkipNames
call CopyBytes
ld a, [CurPartyMon]
ld hl, PartyMonOT
call SkipNames
call CopyBytes
ld a, [CurPartyMon]
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld bc, sBoxMon1End - sBoxMon1
jp CopyBytes
; de6e
Functionde6e: ; de6e
ld a, 1 ; BANK(sBoxCount)
call GetSRAMBank
ld de, sBoxCount
ld a, [de]
cp MONS_PER_BOX
jp nc, Functiondf42
inc a
ld [de], a
ld a, [CurPartySpecies]
ld [CurSpecies], a
ld c, a
.asm_de85
inc de
ld a, [de]
ld b, a
ld a, c
ld c, b
ld [de], a
inc a
jr nz, .asm_de85
call GetBaseData
call ShiftBoxMon
ld hl, PlayerName
ld de, sBoxMonOT
ld bc, NAME_LENGTH
call CopyBytes
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
ld de, sBoxMonNicknames
ld hl, StringBuffer1
ld bc, PKMN_NAME_LENGTH
call CopyBytes
ld hl, EnemyMon
ld de, sBoxMon1
ld bc, 1 + 1 + NUM_MOVES ; species + item + moves
call CopyBytes
ld hl, PlayerID
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
push de
ld a, [CurPartyLevel]
ld d, a
callab Function50e47
pop de
ld a, [hMultiplicand]
ld [de], a
inc de
ld a, [$ffb5]
ld [de], a
inc de
ld a, [$ffb6]
ld [de], a
inc de
xor a
ld b, $a
.asm_dee5
ld [de], a
inc de
dec b
jr nz, .asm_dee5
ld hl, EnemyMonDVs
ld b, 2 + NUM_MOVES ; DVs and PP ; EnemyMonHappiness - EnemyMonDVs
.asm_deef
ld a, [hli]
ld [de], a
inc de
dec b
jr nz, .asm_deef
ld a, BASE_HAPPINESS
ld [de], a
inc de
xor a
ld [de], a
inc de
ld [de], a
inc de
ld [de], a
inc de
ld a, [CurPartyLevel]
ld [de], a
ld a, [CurPartySpecies]
dec a
call SetSeenAndCaughtMon
ld a, [CurPartySpecies]
cp UNOWN
jr nz, .asm_df20
ld hl, sBoxMon1DVs
predef GetUnownLetter
callab Functionfba18
.asm_df20
ld hl, sBoxMon1Moves
ld de, TempMonMoves
ld bc, NUM_MOVES
call CopyBytes
ld hl, sBoxMon1PP
ld de, TempMonPP
ld bc, NUM_MOVES
call CopyBytes
ld b, 0
call Functiondcb6
call CloseSRAM
scf
ret
; df42
Functiondf42: ; df42
call CloseSRAM
and a
ret
; df47
ShiftBoxMon: ; df47
ld hl, sBoxMonOT
ld bc, NAME_LENGTH
call .asm_df5f
ld hl, sBoxMonNicknames
ld bc, PKMN_NAME_LENGTH
call .asm_df5f
ld hl, sBoxMons
ld bc, sBoxMon1End - sBoxMon1
.asm_df5f
ld a, [sBoxCount]
cp 2
ret c
push hl
call AddNTimes
dec hl
ld e, l
ld d, h
pop hl
ld a, [sBoxCount]
dec a
call AddNTimes
dec hl
push hl
ld a, [sBoxCount]
dec a
ld hl, 0
call AddNTimes
ld c, l
ld b, h
pop hl
.loop
ld a, [hld]
ld [de], a
dec de
dec bc
ld a, c
or b
jr nz, .loop
ret
; df8c
GiveEgg:: ; df8c
ld a, [CurPartySpecies]
push af
callab GetPreEvolution
callab GetPreEvolution
ld a, [CurPartySpecies]
dec a
push af
call CheckCaughtMon
pop af
push bc
call CheckSeenMon
push bc
call Functiond88c
pop bc
ld a, c
and a
jr nz, .asm_dfc3
ld a, [CurPartySpecies]
dec a
ld c, a
ld d, $0
ld hl, PokedexCaught
ld b, $0
predef FlagPredef
.asm_dfc3
pop bc
ld a, c
and a
jr nz, .asm_dfd9
ld a, [CurPartySpecies]
dec a
ld c, a
ld d, $0
ld hl, PokedexSeen
ld b, $0
predef FlagPredef
.asm_dfd9
pop af
ld [CurPartySpecies], a
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1Species
call AddNTimes
ld a, [CurPartySpecies]
ld [hl], a
ld hl, PartyCount
ld a, [hl]
ld b, 0
ld c, a
add hl, bc
ld a, EGG
ld [hl], a
ld a, [PartyCount]
dec a
ld hl, PartyMonNicknames
call SkipNames
ld de, Stringe035
call CopyName2
ld a, [PartyCount]
dec a
ld hl, PartyMon1Happiness
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [wc2cc]
bit 1, a
ld a, $1
jr nz, .asm_e022
ld a, [BaseEggSteps]
.asm_e022
ld [hl], a
ld a, [PartyCount]
dec a
ld hl, PartyMon1HP
ld bc, PartyMon2 - PartyMon1
call AddNTimes
xor a
ld [hli], a
ld [hl], a
and a
ret
; e035
Stringe035: ; e035
db "EGG@"
; e039
Functione039: ; e039
ld hl, PartyCount
ld a, [wd10b]
and a
jr z, .asm_e04a
ld a, 1 ; BANK(sBoxCount)
call GetSRAMBank
ld hl, sBoxCount
.asm_e04a
ld a, [hl]
dec a
ld [hli], a
ld a, [CurPartyMon]
ld c, a
ld b, 0
add hl, bc
ld e, l
ld d, h
inc de
.asm_e057
ld a, [de]
inc de
ld [hli], a
inc a
jr nz, .asm_e057
ld hl, PartyMonOT
ld d, PARTY_LENGTH - 1
ld a, [wd10b]
and a
jr z, .asm_e06d
ld hl, sBoxMonOT
ld d, MONS_PER_BOX - 1
.asm_e06d
ld a, [CurPartyMon]
call SkipNames
ld a, [CurPartyMon]
cp d
jr nz, .asm_e07e
ld [hl], $ff
jp .asm_60f0
.asm_e07e
ld d, h
ld e, l
ld bc, PKMN_NAME_LENGTH
add hl, bc
ld bc, PartyMonNicknames
ld a, [wd10b]
and a
jr z, .asm_e090
ld bc, sBoxMonNicknames
.asm_e090
call CopyDataUntil
ld hl, PartyMons
ld bc, PartyMon2 - PartyMon1
ld a, [wd10b]
and a
jr z, .asm_e0a5
ld hl, sBoxMons
ld bc, sBoxMon1End - sBoxMon1
.asm_e0a5
ld a, [CurPartyMon]
call AddNTimes
ld d, h
ld e, l
ld a, [wd10b]
and a
jr z, .asm_e0bc
ld bc, sBoxMon1End - sBoxMon1
add hl, bc
ld bc, sBoxMonOT
jr .asm_e0c3
.asm_e0bc
ld bc, PartyMon2 - PartyMon1
add hl, bc
ld bc, PartyMonOT
.asm_e0c3
call CopyDataUntil
ld hl, PartyMonNicknames
ld a, [wd10b]
and a
jr z, .asm_e0d2
ld hl, sBoxMonNicknames
.asm_e0d2
ld bc, PKMN_NAME_LENGTH
ld a, [CurPartyMon]
call AddNTimes
ld d, h
ld e, l
ld bc, PKMN_NAME_LENGTH
add hl, bc
ld bc, PartyMonNicknamesEnd
ld a, [wd10b]
and a
jr z, .asm_e0ed
ld bc, sBoxMonNicknamesEnd
.asm_e0ed
call CopyDataUntil
.asm_60f0
ld a, [wd10b]
and a
jp nz, CloseSRAM
ld a, [InLinkBattle]
and a
ret nz
ld a, $0
call GetSRAMBank
ld hl, PartyCount
ld a, [CurPartyMon]
cp [hl]
jr z, .asm_e131
ld hl, $a600
ld bc, $002f
call AddNTimes
push hl
add hl, bc
pop de
ld a, [CurPartyMon]
ld b, a
.asm_e11a
push bc
push hl
ld bc, $002f
call CopyBytes
pop hl
push hl
ld bc, $002f
add hl, bc
pop de
pop bc
inc b
ld a, [PartyCount]
cp b
jr nz, .asm_e11a
.asm_e131
jp CloseSRAM
; e134
Functione134: ; e134
ld a, PartyMon1Level - PartyMon1
call GetPartyParamLocation
ld a, [hl]
ld [PartyMon1Level - PartyMon1], a ; wow
ld a, PartyMon1Species - PartyMon1
call GetPartyParamLocation
ld a, [hl]
ld [CurSpecies], a
call GetBaseData
ld a, PartyMon1MaxHP - PartyMon1
call GetPartyParamLocation
ld d, h
ld e, l
push de
ld a, PartyMon1Exp + 2 - PartyMon1
call GetPartyParamLocation
ld b, $1
call Functione167
pop de
ld a, PartyMon1HP - PartyMon1
call GetPartyParamLocation
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
ret
; e167
Functione167: ; e167
ld c, $0
.asm_e169
inc c
call Functione17b
ld a, [$ffb5]
ld [de], a
inc de
ld a, [$ffb6]
ld [de], a
inc de
ld a, c
cp $6
jr nz, .asm_e169
ret
; e17b
Functione17b: ; e17b
push hl
push de
push bc
ld a, b
ld d, a
push hl
ld hl, BaseHP
dec hl
ld b, $0
add hl, bc
ld a, [hl]
ld e, a
pop hl
push hl
ld a, c
cp $6
jr nz, .asm_e193
rept 2
dec hl
endr
.asm_e193
sla c
ld a, d
and a
jr z, .asm_e1a5
add hl, bc
push de
ld a, [hld]
ld e, a
ld d, [hl]
callba GetSquareRoot
pop de
.asm_e1a5
srl c
pop hl
push bc
ld bc, $000b
add hl, bc
pop bc
ld a, c
cp $2
jr z, .asm_e1e3
cp $3
jr z, .asm_e1ea
cp $4
jr z, .asm_e1ef
cp $5
jr z, .asm_e1f7
cp $6
jr z, .asm_e1f7
push bc
ld a, [hl]
swap a
and $1
rept 3
add a
endr
ld b, a
ld a, [hli]
and $1
rept 2
add a
endr
add b
ld b, a
ld a, [hl]
swap a
and $1
add a
add b
ld b, a
ld a, [hl]
and $1
add b
pop bc
jr .asm_e1fb
.asm_e1e3
ld a, [hl]
swap a
and $f
jr .asm_e1fb
.asm_e1ea
ld a, [hl]
and $f
jr .asm_e1fb
.asm_e1ef
inc hl
ld a, [hl]
swap a
and $f
jr .asm_e1fb
.asm_e1f7
inc hl
ld a, [hl]
and $f
.asm_e1fb
ld d, $0
add e
ld e, a
jr nc, .asm_e202
inc d
.asm_e202
sla e
rl d
srl b
srl b
ld a, b
add e
jr nc, .asm_e20f
inc d
.asm_e20f
ld [$ffb6], a
ld a, d
ld [$ffb5], a
xor a
ld [hMultiplicand], a
ld a, [CurPartyLevel]
ld [hMultiplier], a
call Multiply
ld a, [hMultiplicand]
ld [hProduct], a
ld a, [$ffb5]
ld [hMultiplicand], a
ld a, [$ffb6]
ld [$ffb5], a
ld a, $64
ld [hMultiplier], a
ld a, $3
ld b, a
call Divide
ld a, c
cp $1
ld a, $5
jr nz, .asm_e24e
ld a, [CurPartyLevel]
ld b, a
ld a, [$ffb6]
add b
ld [$ffb6], a
jr nc, .asm_e24c
ld a, [$ffb5]
inc a
ld [$ffb5], a
.asm_e24c
ld a, $a
.asm_e24e
ld b, a
ld a, [$ffb6]
add b
ld [$ffb6], a
jr nc, .asm_e25b
ld a, [$ffb5]
inc a
ld [$ffb5], a
.asm_e25b
ld a, [$ffb5]
cp $4
jr nc, .asm_e26b
cp $3
jr c, .asm_e273
ld a, [$ffb6]
cp $e8
jr c, .asm_e273
.asm_e26b
ld a, $3
ld [$ffb5], a
ld a, $e7
ld [$ffb6], a
.asm_e273
pop bc
pop de
pop hl
ret
; e277
GivePoke:: ; e277
push de
push bc
xor a
ld [MonType], a
call Functiond88c
jr nc, .asm_e2b0
ld hl, PartyMonNicknames
ld a, [PartyCount]
dec a
ld [CurPartyMon], a
call SkipNames
ld d, h
ld e, l
pop bc
ld a, b
ld b, $0
push bc
push de
push af
ld a, [CurItem]
and a
jr z, .asm_e2e1
ld a, [CurPartyMon]
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [CurItem]
ld [hl], a
jr .asm_e2e1
.asm_e2b0
ld a, [CurPartySpecies]
ld [TempEnemyMonSpecies], a
callab LoadEnemyMon
call Functionde6e
jp nc, Functione3d4
ld a, $2
ld [MonType], a
xor a
ld [CurPartyMon], a
ld de, wd050
pop bc
ld a, b
ld b, $1
push bc
push de
push af
ld a, [CurItem]
and a
jr z, .asm_e2e1
ld a, [CurItem]
ld [sBoxMon1Item], a
.asm_e2e1
ld a, [CurPartySpecies]
ld [wd265], a
ld [TempEnemyMonSpecies], a
call GetPokemonName
ld hl, StringBuffer1
ld de, wd050
ld bc, $000b
call CopyBytes
pop af
and a
jp z, .asm_e390
pop de
pop bc
pop hl
push bc
push hl
ld a, [ScriptBank]
call GetFarHalfword
ld bc, $000b
ld a, [ScriptBank]
call FarCopyBytes
pop hl
rept 2
inc hl
endr
ld a, [ScriptBank]
call GetFarHalfword
pop bc
ld a, b
and a
push de
push bc
jr nz, .asm_e35e
push hl
ld a, [CurPartyMon]
ld hl, PartyMonOT
call SkipNames
ld d, h
ld e, l
pop hl
.asm_e32f
ld a, [ScriptBank]
call GetFarByte
ld [de], a
inc hl
inc de
cp $50
jr nz, .asm_e32f
ld a, [ScriptBank]
call GetFarByte
ld b, a
push bc
ld a, [CurPartyMon]
ld hl, PartyMon1ID
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, $3
ld [hli], a
ld [hl], $e9
pop bc
callba Function4dba3
jr .asm_e3b2
.asm_e35e
ld a, $1
call GetSRAMBank
ld de, sBoxMonOT
.asm_e366
ld a, [ScriptBank]
call GetFarByte
ld [de], a
inc hl
inc de
cp $50
jr nz, .asm_e366
ld a, [ScriptBank]
call GetFarByte
ld b, a
ld hl, sBoxMon1ID
call Random
ld [hli], a
call Random
ld [hl], a
call CloseSRAM
callba Function4db92
jr .asm_e3b2
.asm_e390
pop de
pop bc
push bc
push de
ld a, b
and a
jr z, .asm_e3a0
callba Function4db83
jr .asm_e3a6
.asm_e3a0
callba Function4db49
.asm_e3a6
callba Function4db3b
pop de
jr c, .asm_e3b2
call Functione3de
.asm_e3b2
pop bc
pop de
ld a, b
and a
ret z
ld hl, UnknownText_0xe3d9
call PrintText
ld a, $1
call GetSRAMBank
ld hl, wd050
ld de, sBoxMonNicknames
ld bc, $000b
call CopyBytes
call CloseSRAM
ld b, $1
ret
; e3d4
Functione3d4: ; e3d4
pop bc
pop de
ld b, $2
ret
; e3d9
UnknownText_0xe3d9: ; 0xe3d9
; was sent to BILL's PC.
text_jump UnknownText_0x1c0feb
db "@"
; 0xe3de
Functione3de: ; e3de
push de
call Function1d6e
call Function2ed3
pop de
push de
ld b, $0
callba Function116c1
pop hl
ld de, StringBuffer1
call InitName
ld a, $4 ; XXX could this be in bank 4 in pokered?
ld hl, Function2b4d
rst FarCall
ret
; e3fd
Functione3fd: ; e3fd
call Functione40a
ret c
call Functione41c
call Functione443
jp Functione43f
Functione40a: ; e40a (3:640a)
ld a, [PartyCount]
and a
ret nz
ld hl, UnknownText_0xe417
call MenuTextBoxBackup
scf
ret
; e417 (3:6417)
UnknownText_0xe417: ; 0xe417
; You gotta have #MON to call!
text_jump UnknownText_0x1c1006
db "@"
; 0xe41c
Functione41c: ; e41c (3:641c)
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function1d6e
call ClearPCItemScreen
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
ld hl, UnknownText_0xe43a
call PrintText
pop af
ld [Options], a
call Functione58
ret
; e43a (3:643a)
UnknownText_0xe43a: ; 0xe43a
; What?
text_jump UnknownText_0x1c1024
db "@"
; 0xe43f
Functione43f: ; e43f (3:643f)
call Function2b3c
ret
Functione443: ; e443 (3:6443)
ld hl, MenuDataHeader_0xe46f
call LoadMenuDataHeader
ld a, $1
.asm_e44b
ld [wcf88], a
call Function32f9
xor a
ld [wcf76], a
ld [hBGMapMode], a ; $ff00+$d4
call Function1e5d
jr c, .asm_e46b
ld a, [wcf88]
push af
ld a, [MenuSelection]
ld hl, Jumptable_e4ba
rst JumpTable
pop bc
ld a, b
jr nc, .asm_e44b
.asm_e46b
call WriteBackup
ret
; e46f (3:646f)
MenuDataHeader_0xe46f: ; 0xe46f
db $40 ; flags
db 00, 00 ; start coords
db 17, 19 ; end coords
dw MenuData2_0xe477
db 1 ; default option
; 0xe477
MenuData2_0xe477: ; 0xe477
db $80 ; flags
db 0 ; items
dw MenuItems_e4c4
dw Function1f79
dw Strings_e47f
; 0xe47f
Strings_e47f: ; e47f
db "WITHDRAW ", $e1, $e2, "@"
db "DEPOSIT ", $e1, $e2, "@"
db "CHANGE BOX@"
db "MOVE ", $e1, $e2, " W/O MAIL@"
db "SEE YA!@"
Jumptable_e4ba: ; e4ba (3:64ba)
dw Functione559
dw Functione4fe
dw Functione583
dw Functione4cd
dw Functione4cb
; e4c4
MenuItems_e4c4: ; e4c4
db 5
db 0 ; WITHDRAW
db 1; DEPOSIT
db 2 ; CHANGE BOX
db 3 ; MOVE PKMN
db 4 ; SEE YA!
db -1
; e4cb
Functione4cb: ; e4cb
scf
ret
; e4cd
Functione4cd: ; e4cd
call Function1d6e
callba Function44781
jr nc, .asm_e4e0
ld hl, UnknownText_0xe4f9
call PrintText
jr .asm_e4f4
.asm_e4e0
callba Function14b34
jr c, .asm_e4f4
callba Functione2759
call Function222a
call ClearPCItemScreen
.asm_e4f4
call WriteBackup
and a
ret
; e4f9
UnknownText_0xe4f9: ; 0xe4f9
; There is a #MON holding MAIL. Please remove the MAIL.
text_jump UnknownText_0x1c102b
db "@"
; 0xe4fe
Functione4fe: ; e4fe (3:64fe)
call Function1d6e
callba Functione2391
call Function222a
call ClearPCItemScreen
call WriteBackup
and a
ret
; e512 (3:6512)
Functione512: ; e512
ld a, [PartyCount]
and a
jr z, .asm_e51e
cp 2
jr c, .asm_e526
and a
ret
.asm_e51e
ld hl, UnknownText_0xe52e
call MenuTextBoxBackup
scf
ret
.asm_e526
ld hl, UnknownText_0xe533
call MenuTextBoxBackup
scf
ret
; e52e
UnknownText_0xe52e: ; 0xe52e
; You don't have a single #MON!
text_jump UnknownText_0x1c1062
db "@"
; 0xe533
UnknownText_0xe533: ; 0xe533
; You can't deposit your last #MON!
text_jump UnknownText_0x1c1080
db "@"
; 0xe538
Functione538: ; e538
ld hl, PartyMon1HP
ld de, PartyMon2 - PartyMon1
ld b, $0
.asm_e540
ld a, [CurPartyMon]
cp b
jr z, .asm_e54b
ld a, [hli]
or [hl]
jr nz, .asm_e557
dec hl
.asm_e54b
inc b
ld a, [PartyCount]
cp b
jr z, .asm_e555
add hl, de
jr .asm_e540
.asm_e555
scf
ret
.asm_e557
and a
ret
; e559
Functione559: ; e559 (3:6559)
call Function1d6e
callba Functione2583
call Function222a
call ClearPCItemScreen
call WriteBackup
and a
ret
; e56d (3:656d)
Functione56d: ; e56d
ld a, [PartyCount]
cp PARTY_LENGTH
jr nc, .asm_e576
and a
ret
.asm_e576
ld hl, UnknownText_0xe57e
call MenuTextBoxBackup
scf
ret
; e57e
UnknownText_0xe57e: ; 0xe57e
; You can't take any more #MON.
text_jump UnknownText_0x1c10a2
db "@"
; 0xe583
Functione583: ; e583 (3:6583)
callba Functione35aa
and a
ret
ClearPCItemScreen: ; e58b
call Function2ed3
xor a
ld [hBGMapMode], a
call WhiteBGMap
call ClearSprites
hlcoord 0, 0
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
ld a, " "
call ByteFill
hlcoord 0,0
ld bc, $0a12
call TextBox
hlcoord 0,12
ld bc, $0412
call TextBox
call Function3200
call Function32f9 ; load regular palettes?
ret
; 0xe5bb
Functione5bb: ; e5bb
ld a, [CurPartyMon]
ld hl, sBoxMon1Species
ld bc, $0020
call AddNTimes
ld de, TempMonSpecies
ld bc, $0020
ld a, $1
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
; e5d9
Functione5d9: ; e5d9
ld a, [wCurBox]
cp b
jr z, .asm_e5f1
ld a, b
ld hl, Unknown_e66e
ld bc, $0003
call AddNTimes
ld a, [hli]
push af
ld a, [hli]
ld h, [hl]
ld l, a
pop af
jr .asm_e5f6
.asm_e5f1
ld a, $1
ld hl, sBoxCount
.asm_e5f6
call GetSRAMBank
ld a, [hl]
ld bc, $0016
add hl, bc
ld b, a
ld c, $0
ld de, wc608
ld a, b
and a
jr z, .asm_e66a
.asm_e608
push hl
push bc
ld a, c
ld bc, $0000
add hl, bc
ld bc, $0020
call AddNTimes
ld a, [hl]
ld [de], a
inc de
ld [CurSpecies], a
call GetBaseData
pop bc
pop hl
push hl
push bc
ld a, c
ld bc, $035c
add hl, bc
call SkipNames
call CopyBytes
pop bc
pop hl
push hl
push bc
ld a, c
ld bc, $001f
add hl, bc
ld bc, $0020
call AddNTimes
ld a, [hl]
ld [de], a
inc de
pop bc
pop hl
push hl
push bc
ld a, c
ld bc, $0015
add hl, bc
ld bc, $0020
call AddNTimes
ld a, [hli]
and $f0
ld b, a
ld a, [hl]
and $f0
swap a
or b
ld b, a
ld a, [BaseGender]
cp b
ld a, $1
jr c, .asm_e662
xor a
.asm_e662
ld [de], a
inc de
pop bc
pop hl
inc c
dec b
jr nz, .asm_e608
.asm_e66a
call CloseSRAM
ret
; e66e
Unknown_e66e: ; e66e
dbw 2, $a000
dbw 2, $a450
dbw 2, $a8a0
dbw 2, $acf0
dbw 2, $b140
dbw 2, $b590
dbw 2, $b9e0
dbw 3, $a000
dbw 3, $a450
dbw 3, $a8a0
dbw 3, $acf0
dbw 3, $b140
dbw 3, $b590
dbw 3, $b9e0
; e698
Functione698: ; e698
ld hl, wBreedMon1Stats
ld de, TempMon
ld bc, $0020
call CopyBytes
callab Function50e1b
ld a, [wBreedMon1Level]
ld b, a
ld a, d
ld e, a
sub b
ld d, a
ret
; e6b3
Functione6b3: ; e6b3
ld hl, wBreedMon2Stats
ld de, TempMon
ld bc, $0020
call CopyBytes
callab Function50e1b
ld a, [wBreedMon2Level]
ld b, a
ld a, d
ld e, a
sub b
ld d, a
ret
; e6ce
Functione6ce: ; e6ce
ld a, [wdf9c]
and a
jr z, .asm_e6ea
ld [wd265], a
callba Functioncc0c7
callba Functioncc000
lb bc, 14, 7
call PlaceYesNoBox
ret c
.asm_e6ea
call Functione6fd
ld a, [TempEnemyMonSpecies]
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0xe71d
call PrintText
ret
; e6fd
Functione6fd: ; e6fd
ld a, [TempEnemyMonSpecies]
ld [CurSpecies], a
ld [CurPartySpecies], a
call GetBaseData
xor a
ld bc, PartyMon2 - PartyMon1
ld hl, wdf9c
call ByteFill
xor a
ld [MonType], a
ld hl, wdf9c
jp Functiond906
; e71d
UnknownText_0xe71d: ; 0xe71d
; Caught @ !
text_jump UnknownText_0x1c10c0
db "@"
; 0xe722
INCLUDE "items/item_effects.asm"
GetPokeBallWobble: ; f971 (3:7971)
; Returns whether a Poke Ball will wobble in the catch animation.
; Whether a Pokemon is caught is determined beforehand.
push de
ld a, [rSVBK]
ld d, a
push de
ld a, 1 ; BANK(Buffer2)
ld [rSVBK], a
ld a, [Buffer2]
inc a
ld [Buffer2], a
; Wobble up to 3 times.
cp 3 + 1
jr z, .finished
ld a, [wc64e]
and a
ld c, 0 ; next
jr nz, .done
ld hl, WobbleChances
ld a, [Buffer1]
ld b, a
.loop
ld a, [hli]
cp b
jr nc, .checkwobble
inc hl
jr .loop
.checkwobble
ld b, [hl]
call Random
cp b
ld c, 0 ; next
jr c, .done
ld c, 2 ; escaped
jr .done
.finished
ld a, [wc64e]
and a
ld c, 1 ; caught
jr nz, .done
ld c, 2 ; escaped
.done
pop de
ld e, a
ld a, d
ld [rSVBK], a
ld a, e
pop de
ret
; f9ba (3:79ba)
WobbleChances: ; f9ba
; catch rate, chance of wobbling / 255
db 1, 63
db 2, 75
db 3, 84
db 4, 90
db 5, 95
db 7, 103
db 10, 113
db 15, 126
db 20, 134
db 30, 149
db 40, 160
db 50, 169
db 60, 177
db 80, 191
db 100, 201
db 120, 211
db 140, 220
db 160, 227
db 180, 234
db 200, 240
db 220, 246
db 240, 251
db 254, 253
db 255, 255
; f9ea
KnowsMove: ; f9ea
ld a, PartyMon1Moves - PartyMon1
call GetPartyParamLocation
ld a, [wd262]
ld b, a
ld c, NUM_MOVES
.asm_f9f5
ld a, [hli]
cp b
jr z, .asm_f9fe
dec c
jr nz, .asm_f9f5
and a
ret
.asm_f9fe
ld hl, UnknownText_0xfa06
call PrintText
scf
ret
; fa06
UnknownText_0xfa06: ; 0xfa06
; knows @ .
text_jump UnknownText_0x1c5ea8
db "@"
; 0xfa0b
SECTION "bank4", ROMX, BANK[$4]
INCLUDE "engine/pack.asm"
Function113d6: ; 113d6
call Function114dd
ret
; 113da
Function113da: ; 113da
xor a
ld [wdc2d], a
ld [wdc3a], a
ld [wdc1c], a
ret
; 113e5
Function113e5:: ; 113e5
xor a
ld [wd464], a
Function113e9: ; 113e9
ld a, [wd464]
cp 3
jr c, .asm_113f2
ld a, 3
.asm_113f2
ld e, a
ld d, 0
ld hl, .data_113fd
add hl, de
ld a, [hl]
jp Function1142e
; 113fd
.data_113fd
db 20, 10, 5, 3
; 11401
Function11401: ; 11401
call Function1143c
ret nc
ld hl, wd464
ld a, [hl]
cp 3
jr nc, .asm_1140e
inc [hl]
.asm_1140e
call Function113e9
scf
ret
; 11413
Function11413: ; 11413
ld a, 1
Function11415: ; 11415
ld [hl], a
push hl
call UpdateTime
pop hl
inc hl
call Function11621
ret
; 11420
Function11420: ; 11420
inc hl
push hl
call Function115cf
call Function115c8
pop hl
dec hl
call Function11586
ret
; 1142e
Function1142e: ; 1142e
ld hl, wd465
ld [hl], a
call UpdateTime
ld hl, wd466
call Function1162e
ret
; 1143c
Function1143c: ; 1143c
ld hl, wd466
call Function115d6
call Function115ae
ld hl, wd465
call Function11586
ret
; 1144c
Function1144c: ; 1144c
ld hl, wdc1c
jp Function11413
; 11452
Function11452:: ; 11452
ld hl, wdc1c
call Function11420
ret nc
xor a
ld hl, DailyFlags
rept 3
ld [hli], a
endr
ld [hl], a
ld hl, wdc4c
rept 4
ld [hli], a
endr
ld hl, wdc50
rept 4
ld [hli], a
endr
ld hl, wdc54
rept 4
ld [hli], a
endr
ld hl, wdc58
ld a, [hl]
and a
jr z, .asm_11480
dec [hl]
jr nz, .asm_11483
.asm_11480
call Function11485
.asm_11483
jr Function1144c
; 11485
Function11485: ; 11485
call Random
and 3
add 3
ld [wdc58], a
ret
; 11490
Function11490: ; 11490
ld a, $14
ld [wd46c], a
ld a, $0
ld [wd46d], a
call UpdateTime
ld hl, wdc35
call Function11613
ret
; 114a4
Function114a4:: ; 114a4 (4:54a4)
ld hl, wdc35
call Function115db
ld a, [wcfd7]
and a
jr nz, .asm_114d4
ld a, [wcfd6]
and a
jr nz, .asm_114d4
ld a, [wcfd4]
ld b, a
ld a, [wd46d]
sub b
jr nc, .asm_114c2
add $3c
.asm_114c2
ld [wd46d], a
ld a, [wcfd5]
ld b, a
ld a, [wd46c]
sbc b
ld [wd46c], a
jr c, .asm_114d4
and a
ret
.asm_114d4
xor a
ld [wd46c], a
ld [wd46d], a
scf
ret
Function114dd: ; 114dd
call UpdateTime
ld hl, wdc23
call Function11621
ret
; 114e7
Function114e7:: ; 114e7
ld hl, wdc23
call Function115cf
call Function115c8
and a
jr z, .asm_114fa
ld b, a
callba ApplyPokerusTick
.asm_114fa
xor a
ret
; 114fc
Function114fc: ; 114fc
ld a, $2
ld hl, wdc3a
ld [hl], a
call UpdateTime
ld hl, wdc3b
call Function11621
ret
; 1150c
Function1150c: ; 1150c
ld hl, wdc3b
call Function115cf
call Function115c8
ld hl, wdc3a
call Function11586
ret
; 1151c
Function1151c: ; 1151c
ld hl, DailyFlags
set 2, [hl]
ret
; 11522
Function11522: ; 11522
and a
ld hl, DailyFlags
bit 2, [hl]
ret nz
scf
ret
; 1152b
Function1152b: ; 1152b
call Function11534
ld hl, wdc2d
jp Function11415
; 11534
Function11534: ; 11534
call GetWeekday
ld c, a
ld a, $5
sub c
jr z, .asm_1153f
jr nc, .asm_11541
.asm_1153f
add $7
.asm_11541
ret
; 11542
Function11542: ; 11542
ld hl, wdc2d
jp Function11420
; 11548
Function11548: ; 11548
ld a, $0
call GetSRAMBank
ld hl, $abfa
ld a, [hli]
ld [Buffer1], a
ld a, [hl]
ld [Buffer2], a
call CloseSRAM
ld hl, Buffer1
call Function11420
jr nc, .asm_11572
ld hl, Buffer1
call Function11413
call CloseSRAM
callba Function1050c8
.asm_11572
ld a, $0
call GetSRAMBank
ld hl, Buffer1
ld a, [hli]
ld [$abfa], a
ld a, [hl]
ld [$abfb], a
call CloseSRAM
ret
; 11586
Function11586: ; 11586
cp $ff
jr z, .asm_11595
ld c, a
ld a, [hl]
sub c
jr nc, .asm_11590
xor a
.asm_11590
ld [hl], a
jr z, .asm_11595
xor a
ret
.asm_11595
xor a
ld [hl], a
scf
ret
; 11599
Function11599: ; 11599
ld a, [wcfd7]
and a
jr nz, Function115cc
ld a, [wcfd6]
and a
jr nz, Function115cc
ld a, [wcfd5]
jr nz, Function115cc
ld a, [wcfd4]
ret
; 115ae
Function115ae: ; 115ae
ld a, [wcfd7]
and a
jr nz, Function115cc
ld a, [wcfd6]
and a
jr nz, Function115cc
ld a, [wcfd5]
ret
; 115be
Function115be: ; 115be
ld a, [wcfd7]
and a
jr nz, Function115cc
ld a, [wcfd6]
ret
; 115c8
Function115c8: ; 115c8
ld a, [wcfd7]
ret
; 115cc
Function115cc: ; 115cc
ld a, $ff
ret
; 115cf
Function115cf: ; 115cf
xor a
jr Function11605
; 115d2
Function115d2: ; 115d2
inc hl
xor a
jr Function115f8
; 115d6
Function115d6: ; 115d6
rept 2
inc hl
endr
xor a
jr Function115eb
; 115db
Function115db: ; 115db
rept 3
inc hl
endr
ld a, [hSeconds]
ld c, a
sub [hl]
jr nc, .asm_115e6
add 60
.asm_115e6
ld [hl], c
dec hl
ld [wcfd4], a
Function115eb: ; 115eb
ld a, [hMinutes]
ld c, a
sbc [hl]
jr nc, .asm_115f3
add 60
.asm_115f3
ld [hl], c
dec hl
ld [wcfd5], a
Function115f8: ; 115f8
ld a, [hHours]
ld c, a
sbc [hl]
jr nc, .asm_11600
add 24
.asm_11600
ld [hl], c
dec hl
ld [wcfd6], a
Function11605
ld a, [CurDay]
ld c, a
sbc [hl]
jr nc, .asm_1160e
add 140
.asm_1160e
ld [hl], c
ld [wcfd7], a
ret
; 11613
Function11613: ; 11613
ld a, [CurDay]
ld [hli], a
ld a, [hHours]
ld [hli], a
ld a, [hMinutes]
ld [hli], a
ld a, [hSeconds]
ld [hli], a
ret
; 11621
Function11621: ; 11621
ld a, [CurDay]
ld [hl], a
ret
; 11626
Function11626: ; 11626
ld a, [CurDay]
ld [hli], a
ld a, [hHours]
ld [hli], a
ret
; 1162e
Function1162e: ; 1162e
ld a, [CurDay]
ld [hli], a
ld a, [hHours]
ld [hli], a
ld a, [hMinutes]
ld [hli], a
ret
; 11639
CanLearnTMHMMove: ; 11639
ld a, [CurPartySpecies]
ld [CurSpecies], a
call GetBaseData
ld hl, BaseTMHM
push hl
ld a, [wd262]
ld b, a
ld c, 0
ld hl, TMHMMoves
.loop
ld a, [hli]
and a
jr z, .end
cp b
jr z, .asm_11659
inc c
jr .loop
.asm_11659
pop hl
ld b, CHECK_FLAG
push de
ld d, 0
predef FlagPredef
pop de
ret
.end
pop hl
ld c, 0
ret
; 1166a
GetTMHMMove: ; 1166a
ld a, [wd265]
dec a
ld hl, TMHMMoves
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
ld [wd265], a
ret
; 1167a
TMHMMoves: ; 1167a
db DYNAMICPUNCH
db HEADBUTT
db CURSE
db ROLLOUT
db ROAR
db TOXIC
db ZAP_CANNON
db ROCK_SMASH
db PSYCH_UP
db HIDDEN_POWER
db SUNNY_DAY
db SWEET_SCENT
db SNORE
db BLIZZARD
db HYPER_BEAM
db ICY_WIND
db PROTECT
db RAIN_DANCE
db GIGA_DRAIN
db ENDURE
db FRUSTRATION
db SOLARBEAM
db IRON_TAIL
db DRAGONBREATH
db THUNDER
db EARTHQUAKE
db RETURN
db DIG
db PSYCHIC_M
db SHADOW_BALL
db MUD_SLAP
db DOUBLE_TEAM
db ICE_PUNCH
db SWAGGER
db SLEEP_TALK
db SLUDGE_BOMB
db SANDSTORM
db FIRE_BLAST
db SWIFT
db DEFENSE_CURL
db THUNDERPUNCH
db DREAM_EATER
db DETECT
db REST
db ATTRACT
db THIEF
db STEEL_WING
db FIRE_PUNCH
db FURY_CUTTER
db NIGHTMARE
db CUT
db FLY
db SURF
db STRENGTH
db FLASH
db WHIRLPOOL
db WATERFALL
; Move tutor
db FLAMETHROWER
db THUNDERBOLT
db ICE_BEAM
db 0 ; end
; 116b7
_NamingScreen: ; 0x116b7
call Function2ed3
call Function116c1
call Function2b74
ret
; 0x116c1
Function116c1: ; 116c1
ld hl, wc6d0
ld [hl], e
inc hl
ld [hl], d
ld hl, wc6d4
ld [hl], b
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
ld a, [$ffde]
push af
xor a
ld [$ffde], a
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
call Function116f8
call DelayFrame
.asm_116e5
call Function11915
jr nc, .asm_116e5
pop af
ld [$ffaa], a
pop af
ld [$ffde], a
pop af
ld [Options], a
call ClearJoypad
ret
; 116f8
Function116f8: ; 116f8
call WhiteBGMap
ld b, $8
call GetSGBLayout
call DisableLCD
call Function11c51
call Function118a8
ld a, $e3
ld [rLCDC], a
call Function1171d
call WaitBGMap
call WaitTop
call Function32f9
call Function11be0
ret
; 1171d
Function1171d: ; 1171d
ld a, [wc6d4]
and 7
ld e, a
ld d, 0
ld hl, Jumptable_1172e
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 1172e
Jumptable_1172e: ; 1172e (4:572e)
dw Function1173e
dw Function1178d
dw Function117ae
dw Function117d1
dw Function117f5
dw Function1182c
dw Function1173e
dw Function1173e
Function1173e: ; 1173e (4:573e)
ld a, [CurPartySpecies]
ld [wd265], a
ld hl, Function8e83f
ld a, BANK(Function8e83f)
ld e, $1
rst FarCall ; ; indirect jump to Function8e83f (8e83f (23:683f))
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
hlcoord 5, 2
call PlaceString
ld l, c
ld h, b
ld de, Strings_11780
call PlaceString
inc de
hlcoord 5, 4
call PlaceString
callba GetGender
jr c, .asm_1177c
ld a, $ef
jr nz, .asm_11778
ld a, $f5
.asm_11778
hlcoord 1, 2
ld [hl], a
.asm_1177c
call Function1187b
ret
; 11780 (4:5780)
Strings_11780: ; 11780
db "'S@"
db "NICKNAME?@"
; 1178d
Function1178d: ; 1178d (4:578d)
callba GetPlayerIcon
call Function11847
hlcoord 5, 2
ld de, String_117a3
call PlaceString
call Function11882
ret
; 117a3 (4:57a3)
String_117a3: ; 117a3
db "YOUR NAME?@"
; 117ae
Function117ae: ; 117ae (4:57ae)
ld de, SilverSpriteGFX
ld b, BANK(SilverSpriteGFX)
call Function11847
hlcoord 5, 2
ld de, String_117c3
call PlaceString
call Function11882
ret
; 117c3 (4:57c3)
String_117c3: ; 117c3
db "RIVAL'S NAME?@"
; 117d1
Function117d1: ; 117d1 (4:57d1)
ld de, MomSpriteGFX
ld b, BANK(MomSpriteGFX)
call Function11847
hlcoord 5, 2
ld de, String_117e6
call PlaceString
call Function11882
ret
; 117e6 (4:57e6)
String_117e6: ; 117e6
db "MOTHER'S NAME?@"
; 117f5
Function117f5: ; 117f5 (4:57f5)
ld de, PokeBallSpriteGFX
ld hl, $8000
lb bc, BANK(PokeBallSpriteGFX), $4
call Request2bpp
xor a
ld hl, wc300
ld [hli], a
ld [hl], a
ld de, $2420
ld a, $a
call Function3b2a
ld hl, $1
add hl, bc
ld [hl], $0
hlcoord 5, 2
ld de, String_11822
call PlaceString
call Function11889
ret
; 11822 (4:5822)
String_11822: ; 11822
db "BOX NAME?@"
; 1182c
Function1182c: ; 1182c (4:582c)
hlcoord 3, 2
ld de, String_11839
call PlaceString
call Function11882
ret
; 11839 (4:5839)
String_11839: ; 11839
db "おともだち の なまえは?@"
; 11847
Function11847: ; 11847 (4:5847)
push de
ld hl, $8000
ld c, $4
push bc
call Request2bpp
pop bc
ld hl, $c0
add hl, de
ld e, l
ld d, h
ld hl, $8040
call Request2bpp
xor a
ld hl, wc300
ld [hli], a
ld [hl], a
pop de
ld b, $a
ld a, d
cp $7a
jr nz, .asm_11873
ld a, e
cp $40
jr nz, .asm_11873
ld b, $1e
.asm_11873
ld a, b
ld de, $2420
call Function3b2a
ret
Function1187b: ; 1187b (4:587b)
ld a, $a
hlcoord 5, 6
jr Function11890
Function11882: ; 11882 (4:5882)
ld a, $7
hlcoord 5, 6
jr Function11890
Function11889: ; 11889 (4:5889)
ld a, $8
hlcoord 5, 4
jr Function11890
Function11890: ; 11890 (4:5890)
ld [wc6d3], a
ld a, l
ld [wc6d8], a
ld a, h
ld [wc6d9], a
ret
Function1189c: ; 1189c
push bc
push af
ld a, [wc6d4]
sub $3
ld b, a
pop af
dec b
pop bc
ret
; 118a8
Function118a8: ; 118a8
call WaitTop
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $60
call ByteFill
hlcoord 1, 1
ld bc, $0612
call Function1189c
jr nz, .asm_118c4
ld bc, $0412
.asm_118c4
call ClearBox
ld de, NameInputUpper
Function118ca: ; 118ca
call Function1189c
jr nz, .asm_118d5
ld hl, BoxNameInputLower - NameInputLower
add hl, de
ld d, h
ld e, l
.asm_118d5
push de
hlcoord 1, 8
ld bc, $0712
call Function1189c
jr nz, .asm_118e7
hlcoord 1, 6
ld bc, $0912
.asm_118e7
call ClearBox
hlcoord 1, 16
ld bc, $0112
call ClearBox
pop de
hlcoord 2, 8
ld b, $5
call Function1189c
jr nz, .asm_11903
hlcoord 2, 6
ld b, $6
.asm_11903
ld c, $11
.asm_11905
ld a, [de]
ld [hli], a
inc de
dec c
jr nz, .asm_11905
push de
ld de, $0017
add hl, de
pop de
dec b
jr nz, .asm_11903
ret
; 11915
Function11915: ; 11915
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_11930
call Function11968
callba Function8cf62
call Function11940
call DelayFrame
and a
ret
.asm_11930
callab Function8cf53
call ClearSprites
xor a
ld [hSCX], a
ld [hSCY], a
scf
ret
; 11940
Function11940: ; 11940
xor a
ld [hBGMapMode], a
hlcoord 1, 5
call Function1189c
jr nz, .asm_1194e
hlcoord 1, 3
.asm_1194e
ld bc, $0112
call ClearBox
ld hl, wc6d0
ld e, [hl]
inc hl
ld d, [hl]
ld hl, wc6d8
ld a, [hli]
ld h, [hl]
ld l, a
call PlaceString
ld a, $1
ld [hBGMapMode], a
ret
; 11968
Function11968: ; 11968
ld a, [wcf63]
ld e, a
ld d, $0
ld hl, Jumptable_11977
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 11977
Jumptable_11977: ; 11977 (4:5977)
dw Function1197b
dw Function119a1
Function1197b: ; 1197b (4:597b)
lb de, $50, $18
call Function1189c
jr nz, .asm_11985
ld d, $40
.asm_11985
ld a, $2
call Function3b2a
ld a, c
ld [wc6d5], a
ld a, b
ld [wc6d6], a
ld hl, $1
add hl, bc
ld a, [hl]
ld hl, $e
add hl, bc
ld [hl], a
ld hl, wcf63
inc [hl]
ret
Function119a1: ; 119a1 (4:59a1)
ld hl, hJoyPressed ; $ffa7
ld a, [hl]
and A_BUTTON
jr nz, .a
ld a, [hl]
and B_BUTTON
jr nz, .b
ld a, [hl]
and START
jr nz, .start
ld a, [hl]
and SELECT
jr nz, .select
ret
.a
call Function11a0b
cp $1
jr z, .select
cp $2
jr z, .b
cp $3
jr z, .asm_119eb
call Function11c11
call Function11b14
ret nc
.start
ld hl, wc6d5
ld c, [hl]
inc hl
ld b, [hl]
ld hl, $c
add hl, bc
ld [hl], $8
ld hl, $d
add hl, bc
ld [hl], $4
call Function1189c
ret nz
inc [hl]
ret
.b
call Function11bbc
ret
.asm_119eb
call Function11bf7
ld hl, wcf63
set 7, [hl]
ret
.select
ld hl, wcf64
ld a, [hl]
xor 1
ld [hl], a
jr z, .asm_11a04
ld de, NameInputLower
call Function118ca
ret
.asm_11a04
ld de, NameInputUpper
call Function118ca
ret
Function11a0b: ; 11a0b (4:5a0b)
ld hl, wc6d5
ld c, [hl]
inc hl
ld b, [hl]
Function11a11: ; 11a11 (4:5a11)
ld hl, $d
add hl, bc
ld a, [hl]
push bc
ld b, $4
call Function1189c
jr nz, .asm_11a1f
inc b
.asm_11a1f
cp b
pop bc
jr nz, .asm_11a39
ld hl, $c
add hl, bc
ld a, [hl]
cp $3
jr c, .asm_11a33
cp $6
jr c, .asm_11a36
ld a, $3
ret
.asm_11a33
ld a, $1
ret
.asm_11a36
ld a, $2
ret
.asm_11a39
xor a
ret
Function11a3b: ; 11a3b (4:5a3b)
call Function11a8b
ld hl, $d
add hl, bc
ld a, [hl]
ld e, a
swap e
ld hl, $7
add hl, bc
ld [hl], e
ld d, $4
call Function1189c
jr nz, .asm_11a53
inc d
.asm_11a53
cp d
ld de, Unknown_11a79
ld a, $0
jr nz, .asm_11a60
ld de, Unknown_11a82
ld a, $1
.asm_11a60
ld hl, $e
add hl, bc
add [hl]
ld hl, $1
add hl, bc
ld [hl], a
ld hl, $c
add hl, bc
ld l, [hl]
ld h, $0
add hl, de
ld a, [hl]
ld hl, $6
add hl, bc
ld [hl], a
ret
; 11a79 (4:5a79)
Unknown_11a79: ; 11a79
db $00, $10, $20, $30, $40, $50, $60, $70, $80
Unknown_11a82: ; 11a82
db $00, $00, $00, $30, $30, $30, $60, $60, $60
; 11a8b
Function11a8b: ; 11a8b (4:5a8b)
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ld a, [hl]
and D_LEFT
jr nz, .left
ld a, [hl]
and D_RIGHT
jr nz, .right
ret
.right
call Function11a11
and a
jr nz, .asm_11ab7
ld hl, $c
add hl, bc
ld a, [hl]
cp $8
jr nc, .asm_11ab4
inc [hl]
ret
.asm_11ab4
ld [hl], $0
ret
.asm_11ab7
cp $3
jr nz, .asm_11abc
xor a
.asm_11abc
ld e, a
add a
add e
ld hl, $c
add hl, bc
ld [hl], a
ret
.left
call Function11a11
and a
jr nz, .asm_11ad8
ld hl, $c
add hl, bc
ld a, [hl]
and a
jr z, .asm_11ad5
dec [hl]
ret
.asm_11ad5
ld [hl], $8
ret
.asm_11ad8
cp $1
jr nz, .asm_11ade
ld a, $4
.asm_11ade
rept 2
dec a
endr
ld e, a
add a
add e
ld hl, $c
add hl, bc
ld [hl], a
ret
.down
ld hl, $d
add hl, bc
ld a, [hl]
call Function1189c
jr nz, .asm_11af9
cp $5
jr nc, .asm_11aff
inc [hl]
ret
.asm_11af9
cp $4
jr nc, .asm_11aff
inc [hl]
ret
.asm_11aff
ld [hl], $0
ret
.up
ld hl, $d
add hl, bc
ld a, [hl]
and a
jr z, .asm_11b0c
dec [hl]
ret
.asm_11b0c
ld [hl], $4
call Function1189c
ret nz
inc [hl]
ret
Function11b14: ; 11b14 (4:5b14)
ld a, [wc6d7]
Function11b17: ; 11b17 (4:5b17)
ld a, [wc6d3]
ld c, a
ld a, [wc6d2]
cp c
ret nc
ld a, [wc6d7]
Function11b23: ; 11b23
call Function11bd0
ld [hl], a
Function11b27: ; 11b27
ld hl, wc6d2
inc [hl]
call Function11bd0
ld a, [hl]
cp $50
jr z, .asm_11b37
ld [hl], $f2
and a
ret
.asm_11b37
scf
ret
; 11b39 (4:5b39)
Function11b39: ; 11b39
ld a, [wc6d2]
and a
ret z
push hl
ld hl, wc6d2
dec [hl]
call Function11bd0
ld c, [hl]
pop hl
.asm_11b48
ld a, [hli]
cp $ff
jr z, Function11b27
cp c
jr z, .asm_11b53
inc hl
jr .asm_11b48
.asm_11b53
ld a, [hl]
jr Function11b23
; 11b56
Dakutens: ; 11b56
db "かが", "きぎ", "くぐ", "けげ", "こご"
db "さざ", "しじ", "すず", "せぜ", "そぞ"
db "ただ", "ちぢ", "つづ", "てで", "とど"
db "はば", "ひび", "ふぶ", "へべ", "ほぼ"
db "カガ", "キギ", "クグ", "ケゲ", "コゴ"
db "サザ", "シジ", "スズ", "セゼ", "ソゾ"
db "タダ", "チヂ", "ツヅ", "テデ", "トド"
db "ハバ", "ヒビ", "フブ", "へべ", "ホボ"
db $ff
Handakutens: ; 11ba7
db "はぱ", "ひぴ", "ふぷ", "へぺ", "ほぽ"
db "ハパ", "ヒピ", "フプ", "へぺ", "ホポ"
db $ff
; 11bbc
Function11bbc: ; 11bbc (4:5bbc)
ld hl, wc6d2
ld a, [hl]
and a
ret z
dec [hl]
call Function11bd0
ld [hl], $f2
inc hl
ld a, [hl]
cp $f2
ret nz
ld [hl], $eb
ret
Function11bd0: ; 11bd0 (4:5bd0)
push af
ld hl, wc6d0
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wc6d2]
ld e, a
ld d, 0
add hl, de
pop af
ret
; 11be0
Function11be0: ; 11be0
ld hl, wc6d0
ld a, [hli]
ld h, [hl]
ld l, a
ld [hl], $f2
inc hl
ld a, [wc6d3]
dec a
ld c, a
ld a, $eb
.asm_11bf0
ld [hli], a
dec c
jr nz, .asm_11bf0
ld [hl], $50
ret
; 11bf7
Function11bf7: ; 11bf7 (4:5bf7)
ld hl, wc6d0
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wc6d3]
ld c, a
.asm_11c01
ld a, [hl]
cp $eb
jr z, .asm_11c0a
cp $f2
jr nz, .asm_11c0c
.asm_11c0a
ld [hl], $50
.asm_11c0c
inc hl
dec c
jr nz, .asm_11c01
ret
Function11c11: ; 11c11 (4:5c11)
ld hl, wc6d5
ld c, [hl]
inc hl
ld b, [hl]
ld hl, $6
add hl, bc
ld a, [hl]
ld hl, $4
add hl, bc
add [hl]
sub $8
srl a
srl a
srl a
ld e, a
ld hl, $7
add hl, bc
ld a, [hl]
ld hl, $5
add hl, bc
add [hl]
sub $10
srl a
srl a
srl a
ld d, a
hlcoord 0, 0
ld bc, $14
.asm_11c43
ld a, d
and a
jr z, .asm_11c4b
add hl, bc
dec d
jr .asm_11c43
.asm_11c4b
add hl, de
ld a, [hl]
ld [wc6d7], a
ret
Function11c51: ; 11c51
call ClearSprites
callab Function8cf53
call Functione51
call Functione5f
ld de, GFX_11e65
ld hl, $8eb0
lb bc, BANK(GFX_11e65), 1
call Get1bpp
ld de, GFX_11e6d
ld hl, $8f20
lb bc, BANK(GFX_11e6d), 1
call Get1bpp
ld de, $9600
ld hl, GFX_11cb7
ld bc, $10
ld a, BANK(GFX_11cb7)
call FarCopyBytes
ld de, $87e0
ld hl, GFX_11cc7
ld bc, $20
ld a, BANK(GFX_11cc7)
call FarCopyBytes
ld a, $5
ld hl, wc312
ld [hli], a
ld [hl], $7e
xor a
ld [hSCY], a
ld [wc3bf], a
ld [hSCX], a
ld [wc3c0], a
ld [wcf63], a
ld [wcf64], a
ld [hBGMapMode], a
ld [wc6d2], a
ld a, $7
ld [hWX], a
ret
; 11cb7
GFX_11cb7: ; 11cb7
INCBIN "gfx/unknown/011cb7.2bpp"
; 11cc7
GFX_11cc7: ; 11cc7
INCBIN "gfx/unknown/011cc7.2bpp"
; 11ce7
NameInputLower:
db "a b c d e f g h i"
db "j k l m n o p q r"
db "s t u v w x y z "
db "× ( ) : ; [ ] ", $e1, " ", $e2
db "UPPER DEL END "
BoxNameInputLower:
db "a b c d e f g h i"
db "j k l m n o p q r"
db "s t u v w x y z "
db "é 'd 'l 'm 'r 's 't 'v 0"
db "1 2 3 4 5 6 7 8 9"
db "UPPER DEL END "
NameInputUpper:
db "A B C D E F G H I"
db "J K L M N O P Q R"
db "S T U V W X Y Z "
db "- ? ! / . , "
db "lower DEL END "
BoxNameInputUpper:
db "A B C D E F G H I"
db "J K L M N O P Q R"
db "S T U V W X Y Z "
db "× ( ) : ; [ ] ", $e1, " ", $e2
db "- ? ! ♂ ♀ / . , &"
db "lower DEL END "
; 11e5d
GFX_11e5d: ; 11e5d
INCBIN "gfx/unknown/011e5d.2bpp"
; 11e6d
GFX_11e65:
INCBIN "gfx/unknown/011e65.2bpp"
; 11e6d
GFX_11e6d: ; 11e6d
INCBIN "gfx/unknown/011e6d.2bpp"
; 11e75
Function11e75: ; 11e75 (4:5e75)
ld hl, wc6d0
ld [hl], e
inc hl
ld [hl], d
ld a, [$ffde]
push af
xor a
ld [$ffde], a
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
call Function11e9a
call DelayFrame
.asm_11e8e
call Function11fc0
jr nc, .asm_11e8e
pop af
ld [$ffaa], a
pop af
ld [$ffde], a
ret
Function11e9a: ; 11e9a (4:5e9a)
call WhiteBGMap
call DisableLCD
call Function11c51
ld de, $8000
ld hl, GFX_11ef4
ld bc, $80
ld a, BANK(GFX_11ef4)
call FarCopyBytes
xor a
ld hl, wc300
ld [hli], a
ld [hl], a
ld de, $1810
ld a, $0
call Function3b2a
ld hl, $2
add hl, bc
ld [hl], $0
call Function11f84
ld a, $e3
ld [rLCDC], a ; $ff00+$40
call Function11f74
ld b, $8
call GetSGBLayout
call WaitBGMap
call WaitTop
ld a, $e4
call DmgToCgbBGPals
ld a, $e4
call Functioncf8
call Function11be0
ld hl, wc6d0
ld e, [hl]
inc hl
ld d, [hl]
ld hl, $10
add hl, de
ld [hl], $4e
ret
; 11ef4 (4:5ef4)
GFX_11ef4: ; 11ef4
INCBIN "gfx/unknown/011ef4.2bpp"
; 11f74
Function11f74: ; 11f74 (4:5f74)
ld a, $21
ld [wc6d3], a
ret
; 11f7a (4:5f7a)
String_11f7a: ; 11f7a
db "メールを かいてね@"
; 11f84
Function11f84: ; 11f84 (4:5f84)
call WaitTop
hlcoord 0, 0
ld bc, $78
ld a, $60
call ByteFill
hlcoord 0, 6
ld bc, $f0
ld a, " "
call ByteFill
hlcoord 1, 1
ld bc, $412
call ClearBox
ld de, String_121dd
Function11fa9: ; 11fa9 (4:5fa9)
hlcoord 1, 7
ld b, 6
.next
ld c, SCREEN_WIDTH - 1
.loop
ld a, [de]
ld [hli], a
inc de
dec c
jr nz, .loop
push de
ld de, 21
add hl, de
pop de
dec b
jr nz, .next
ret
Function11fc0: ; 11fc0 (4:5fc0)
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_11fdb
call Function12008
callba Function8cf62
call Function11feb
call DelayFrame
and a
ret
.asm_11fdb
callab Function8cf53
call ClearSprites
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
scf
ret
Function11feb: ; 11feb (4:5feb)
xor a
ld [hBGMapMode], a ; $ff00+$d4
hlcoord 1, 1
ld bc, $412
call ClearBox
ld hl, wc6d0
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 2, 2
call PlaceString
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
Function12008: ; 12008 (4:6008)
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_12017
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Jumptable_12017: ; 12017 (4:6017)
dw Function1201b
dw Function1203a
Function1201b: ; 1201b (4:601b)
lb de, $48, $10
ld a, $9
call Function3b2a
ld a, c
ld [wc6d5], a
ld a, b
ld [wc6d6], a
ld hl, $1
add hl, bc
ld a, [hl]
ld hl, $e
add hl, bc
ld [hl], a
ld hl, wcf63
inc [hl]
ret
Function1203a: ; 1203a (4:603a)
ld hl, hJoyPressed ; $ffa7
ld a, [hl]
and A_BUTTON
jr nz, .a
ld a, [hl]
and B_BUTTON
jr nz, .b
ld a, [hl]
and START
jr nz, .start
ld a, [hl]
and SELECT
jr nz, .select
ret
.a
call Function12185
cp $1
jr z, .select
cp $2
jr z, .b
cp $3
jr z, .asm_120a1
call Function11c11
call Function121ac
jr c, .start
ld hl, wc6d2
ld a, [hl]
cp $10
ret nz
inc [hl]
call Function11bd0
ld [hl], $f2
dec hl
ld [hl], $4e
ret
.start
ld hl, wc6d5
ld c, [hl]
inc hl
ld b, [hl]
ld hl, $c
add hl, bc
ld [hl], $9
ld hl, $d
add hl, bc
ld [hl], $5
ret
.b
call Function11bbc
ld hl, wc6d2
ld a, [hl]
cp $10
ret nz
dec [hl]
call Function11bd0
ld [hl], $f2
inc hl
ld [hl], $4e
ret
.asm_120a1
call Function11bf7
ld hl, wcf63
set 7, [hl]
ret
.select
ld hl, wcf64
ld a, [hl]
xor $1
ld [hl], a
jr nz, .asm_120ba
ld de, String_121dd
call Function11fa9
ret
.asm_120ba
ld de, String_1224f
call Function11fa9
ret
Function120c1: ; 120c1 (4:60c1)
call Function1210c
ld hl, $d
add hl, bc
ld a, [hl]
ld e, a
swap e
ld hl, $7
add hl, bc
ld [hl], e
cp $5
ld de, Unknown_120f8
ld a, $0
jr nz, .asm_120df
ld de, Unknown_12102
ld a, $1
.asm_120df
ld hl, $e
add hl, bc
add [hl]
ld hl, $1
add hl, bc
ld [hl], a
ld hl, $c
add hl, bc
ld l, [hl]
ld h, $0
add hl, de
ld a, [hl]
ld hl, $6
add hl, bc
ld [hl], a
ret
; 120f8 (4:60f8)
Unknown_120f8: ; 120f8
db $00, $10, $20, $30, $40, $50, $60, $70, $80, $90
Unknown_12102: ; 12102
db $00, $00, $00, $30, $30, $30, $60, $60, $60, $60
; 1210c
Function1210c: ; 1210c (4:610c)
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ld a, [hl]
and D_LEFT
jr nz, .left
ld a, [hl]
and D_RIGHT
jr nz, .right
ret
.right
call Function1218b
and a
jr nz, .asm_12138
ld hl, $c
add hl, bc
ld a, [hl]
cp $9
jr nc, .asm_12135
inc [hl]
ret
.asm_12135
ld [hl], $0
ret
.asm_12138
cp $3
jr nz, .asm_1213d
xor a
.asm_1213d
ld e, a
add a
add e
ld hl, $c
add hl, bc
ld [hl], a
ret
.left
call Function1218b
and a
jr nz, .asm_12159
ld hl, $c
add hl, bc
ld a, [hl]
and a
jr z, .asm_12156
dec [hl]
ret
.asm_12156
ld [hl], $9
ret
.asm_12159
cp $1
jr nz, .asm_1215f
ld a, $4
.asm_1215f
rept 2
dec a
endr
ld e, a
add a
add e
ld hl, $c
add hl, bc
ld [hl], a
ret
.down
ld hl, $d
add hl, bc
ld a, [hl]
cp $5
jr nc, .asm_12175
inc [hl]
ret
.asm_12175
ld [hl], $0
ret
.up
ld hl, $d
add hl, bc
ld a, [hl]
and a
jr z, .asm_12182
dec [hl]
ret
.asm_12182
ld [hl], $5
ret
Function12185: ; 12185 (4:6185)
ld hl, wc6d5
ld c, [hl]
inc hl
ld b, [hl]
Function1218b: ; 1218b (4:618b)
ld hl, $d
add hl, bc
ld a, [hl]
cp $5
jr nz, .asm_121aa
ld hl, $c
add hl, bc
ld a, [hl]
cp $3
jr c, .asm_121a4
cp $6
jr c, .asm_121a7
ld a, $3
ret
.asm_121a4
ld a, $1
ret
.asm_121a7
ld a, $2
ret
.asm_121aa
xor a
ret
Function121ac: ; 121ac (4:61ac)
ld a, [wc6d7]
jp Function11b17
; 121b2 (4:61b2)
Function121b2: ; 121b2
ld a, [wc6d2]
and a
ret z
cp $11
jr nz, .asm_121c3
push hl
ld hl, wc6d2
rept 2
dec [hl]
endr
jr .asm_121c8
.asm_121c3
push hl
ld hl, wc6d2
dec [hl]
.asm_121c8
call Function11bd0
ld c, [hl]
pop hl
.asm_121cd
ld a, [hli]
cp $ff
jp z, Function11b27
cp c
jr z, .asm_121d9
inc hl
jr .asm_121cd
.asm_121d9
ld a, [hl]
jp Function11b23
; 121dd
String_121dd: ; 122dd
db "A B C D E F G H I J"
db "K L M N O P Q R S T"
db "U V W X Y Z , ? !"
db "1 2 3 4 5 6 7 8 9 0"
db "ゅ ょ ", $70, " ", $71, " é ♂ ♀ ¥ … ×"
db "lower DEL END "
; 1224f
String_1224f: ; 1224f
db "a b c d e f g h i j"
db "k l m n o p q r s t"
db "u v w x y z . - /"
db "'d 'l 'm 'r 's 't 'v & ( )"
db $72, " ", $73, " [ ] ' : ; "
db "UPPER DEL END "
; 122c1
UnknownScript_0x122c1: ; 0x122c1
checkflag ENGINE_BUG_CONTEST_TIMER
iffalse .script_122cd
setflag ENGINE_DAILY_BUG_CONTEST
special ContestReturnMons
.script_122cd
end
; 0x122ce
FindItemInBallScript:: ; 0x122ce
callasm Function122f8
iffalse NoRoomForItemInBallScript
disappear $fe
loadfont
writetext UnknownText_0x122ee
playsound SFX_ITEM
pause 60
itemnotify
loadmovesprites
end
; 0x122e3
NoRoomForItemInBallScript: ; 0x122e3
loadfont
writetext UnknownText_0x122ee
closetext
writetext UnknownText_0x122f3
closetext
loadmovesprites
end
; 0x122ee
UnknownText_0x122ee: ; 0x122ee
; found @ !
text_jump UnknownText_0x1c0a1c
db "@"
; 0x122f3
UnknownText_0x122f3: ; 0x122f3
; But can't carry any more items.
text_jump UnknownText_0x1c0a2c
db "@"
; 0x122f8
Function122f8: ; 122f8
xor a
ld [ScriptVar], a
ld a, [EngineBuffer1]
ld [wd265], a
call GetItemName
ld hl, StringBuffer3
call CopyName2
ld a, [EngineBuffer1]
ld [CurItem], a
ld a, [CurFruit]
ld [wd10c], a
ld hl, NumItems
call ReceiveItem
ret nc
ld a, $1
ld [ScriptVar], a
ret
; 12324
HealMachineAnim: ; 12324
; If you have no Pokemon, don't change the buffer. This can lead to some glitchy effects if you have no Pokemon.
ld a, [PartyCount]
and a
ret z
; The location of the healing machine relative to the player is stored in ScriptVar.
; 0: Up and left (Pokemon Center)
; 1: Left (Elm's Lab)
; 2: Up (Hall of Fame)
ld a, [ScriptVar]
ld [Buffer1], a
ld a, [rOBP1]
ld [Buffer2], a
call Function1233e
ld a, [Buffer2]
call Functiond24
ret
; 1233e
Function1233e: ; 1233e
xor a
ld [wd1ec], a
.asm_12342
ld a, [Buffer1]
ld e, a
ld d, 0
ld hl, Unknown_12365
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wd1ec]
ld e, a
inc a
ld [wd1ec], a
add hl, de
ld a, [hl]
cp 5
jr z, .asm_12364
ld hl, Jumptable_12377
rst JumpTable
jr .asm_12342
.asm_12364
ret
; 12365
Unknown_12365: ; 12365
dw Unknown_1236b
dw Unknown_1236f
dw Unknown_12373
; 1236b
Unknown_1236b: ; 1236b
db 0, 1, 3, 5
Unknown_1236f: ; 1236f
db 0, 1, 3, 5
Unknown_12373: ; 12373
db 0, 2, 4, 5
; 12377
Jumptable_12377: ; 12377
dw Function12383
dw Function12393
dw Function123a1
dw Function123bf
dw Function123c8
dw Function123db
; 12383
Function12383: ; 12383
call Function12434
ld de, GFX_123fc
ld hl, $87c0
lb bc, BANK(GFX_123fc), $2
call Request2bpp
ret
; 12393
Function12393: ; 12393
ld hl, Sprites + $80
ld de, Unknown_123dc
call Function124a3
call Function124a3
jr Function123a7
Function123a1: ; 123a1
ld hl, Sprites + $80
ld de, Unknown_1241c
Function123a7: ; 123a7
ld a, [PartyCount]
ld b, a
.asm_123ab
call Function124a3
push de
ld de, SFX_SECOND_PART_OF_ITEMFINDER
call PlaySFX
pop de
ld c, 30
call DelayFrames
dec b
jr nz, .asm_123ab
ret
; 123bf
Function123bf: ; 123bf
ld de, MUSIC_HEAL
call PlayMusic
jp Function12459
; 123c8
Function123c8: ; 123c8
ld de, SFX_GAME_FREAK_LOGO_GS
call PlaySFX
call Function12459
call WaitSFX
ld de, SFX_BOOT_PC
call PlaySFX
ret
; 123db
Function123db: ; 123db
ret
; 123dc
Unknown_123dc: ; 123dc
db $20, $22, $7c, $16
db $20, $26, $7c, $16
db $26, $20, $7d, $16
db $26, $28, $7d, $36
db $2b, $20, $7d, $16
db $2b, $28, $7d, $36
db $30, $20, $7d, $16
db $30, $28, $7d, $36
; 123fc
GFX_123fc: ; 123fc
INCBIN "gfx/unknown/0123fc.2bpp"
; 1241c
Unknown_1241c: ; 1241c
db $3c, $51, $7d, $16
db $3c, $56, $7d, $16
db $3b, $4d, $7d, $16
db $3b, $5a, $7d, $16
db $39, $49, $7d, $16
db $39, $5d, $7d, $16
; 12434
Function12434: ; 12434
call Function3218
jr nz, .asm_1243e
ld a, $e0
ld [rOBP1], a
ret
.asm_1243e
ld hl, Palette_12451
ld de, OBPals + 8 * 6
ld bc, 8
ld a, $5
call FarCopyWRAM
ld a, $1
ld [hCGBPalUpdate], a
ret
; 12451
Palette_12451: ; 12451
RGB 31, 31, 31
RGB 31, 19, 10
RGB 31, 07, 01
RGB 00, 00, 00
; 12459
Function12459: ; 12459
ld c, $8
.asm_1245b
push bc
call Function12469
ld c, $a
call DelayFrames
pop bc
dec c
jr nz, .asm_1245b
ret
; 12469
Function12469: ; 12469
call Function3218
jr nz, .asm_12475
ld a, [rOBP1]
xor $28
ld [rOBP1], a
ret
.asm_12475
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, OBPals + 8 * 6
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
push de
ld c, $3
.asm_12486
ld a, [hli]
ld e, a
ld a, [hld]
ld d, a
dec hl
ld a, d
ld [hld], a
ld a, e
ld [hli], a
rept 3
inc hl
endr
dec c
jr nz, .asm_12486
pop de
dec hl
ld a, d
ld [hld], a
ld a, e
ld [hl], a
pop af
ld [rSVBK], a
ld a, $1
ld [hCGBPalUpdate], a
ret
; 124a3
Function124a3: ; 124a3
push bc
ld a, [Buffer1]
lb bc, $10, $20
cp $1
jr z, .asm_124b1
lb bc, $00, $00
.asm_124b1
ld a, [de]
add c
inc de
ld [hli], a
ld a, [de]
add b
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
pop bc
ret
; 124c1
UnknownScript_0x124c1:: ; 0x124c1
callasm Function1250a
jump UnknownScript_0x124ce
; 0x124c8
UnknownScript_0x124c8:: ; 0x124c8
refreshscreen $0
callasm Function124fa
UnknownScript_0x124ce: ; 0x124ce
writetext UnknownText_0x124f5
closetext
special FadeBlackBGMap
pause 40
special HealParty
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue .script_64f2
callasm HalveMoney
callasm Function12527
farscall UnknownScript_0x122c1
special WarpToSpawnPoint
newloadmap $f1
resetfuncs
.script_64f2
jumpstd bugcontestresultswarp
; 0x124f5
UnknownText_0x124f5: ; 0x124f5
; is out of useable #MON! whited out!
text_jump UnknownText_0x1c0a4e
db "@"
; 0x124fa
Function124fa: ; 124fa
call ClearPalettes
call ClearScreen
call Function3200
call HideSprites
call Function4f0
ret
; 1250a
Function1250a: ; 1250a
ld b, $0
call GetSGBLayout
call Function32f9
ret
; 12513
HalveMoney: ; 12513
; Empty function...
callba Function1060c7
; Halve the player's money.
ld hl, Money
ld a, [hl]
srl a
ld [hli], a
ld a, [hl]
rra
ld [hli], a
ld a, [hl]
rra
ld [hl], a
ret
; 12527
Function12527: ; 12527
ld a, [wdcb2]
ld d, a
ld a, [wdcb3]
ld e, a
callba IsSpawnPoint
ld a, c
jr c, .yes
xor a
.yes
ld [wd001], a
ret
; 1253d
Script_ForcedMovement:: ; 0x1253d
checkcode VAR_FACING
if_equal DOWN, UnknownScript_0x12555
if_equal UP, UnknownScript_0x12550
if_equal LEFT, UnknownScript_0x1255f
if_equal RIGHT, UnknownScript_0x1255a
end
; 0x12550
UnknownScript_0x12550: ; 0x12550
applymovement $0, MovementData_0x12564
end
; 0x12555
UnknownScript_0x12555: ; 0x12555
applymovement $0, MovementData_0x1256b
end
; 0x1255a
UnknownScript_0x1255a: ; 0x1255a
applymovement $0, MovementData_0x12572
end
; 0x1255f
UnknownScript_0x1255f: ; 0x1255f
applymovement $0, MovementData_0x12579
end
; 0x12564
MovementData_0x12564: ; 0x12564
step_wait5
big_step_down
turn_in_down
step_wait5
big_step_down
turn_head_down
step_end
; 0x1256b
MovementData_0x1256b: ; 0x1256b
step_wait5
big_step_down
turn_in_up
step_wait5
big_step_down
turn_head_up
step_end
; 0x12572
MovementData_0x12572: ; 0x12572
step_wait5
big_step_down
turn_in_left
step_wait5
big_step_down
turn_head_left
step_end
; 0x12579
MovementData_0x12579: ; 0x12579
step_wait5
big_step_down
turn_in_right
step_wait5
big_step_down
turn_head_right
step_end
; 0x12580
ItemFinder: ; 12580
callba CheckForSignpostItems
jr c, .asm_1258d
ld hl, UnknownScript_0x125ba
jr .asm_12590
.asm_1258d
ld hl, UnknownScript_0x125ad
.asm_12590
call ExitMenuCallScript
ld a, $1
ld [wd0ec], a
ret
; 12599
Function12599: ; 12599
ld c, $4
.asm_1259b
push bc
ld de, SFX_SECOND_PART_OF_ITEMFINDER
call WaitPlaySFX
ld de, SFX_TRANSACTION
call WaitPlaySFX
pop bc
dec c
jr nz, .asm_1259b
ret
; 125ad
UnknownScript_0x125ad: ; 0x125ad
reloadmappart
special UpdateTimePals
callasm Function12599
writetext UnknownText_0x125c3
loadmovesprites
end
; 0x125ba
UnknownScript_0x125ba: ; 0x125ba
reloadmappart
special UpdateTimePals
writetext UnknownText_0x125c8
loadmovesprites
end
; 0x125c3
UnknownText_0x125c3: ; 0x125c3
; Yes! ITEMFINDER indicates there's an item nearby.
text_jump UnknownText_0x1c0a77
db "@"
; 0x125c8
UnknownText_0x125c8: ; 0x125c8
; Nope! ITEMFINDER isn't responding.
text_jump UnknownText_0x1c0aa9
db "@"
; 0x125cd
StartMenu:: ; 125cd
call Function1fbf
ld de, SFX_MENU
call PlaySFX
callba Function6454
ld hl, StatusFlags2
bit 2, [hl] ; bug catching contest
ld hl, .MenuDataHeader
jr z, .GotMenuData
ld hl, .ContestMenuDataHeader
.GotMenuData
call LoadMenuDataHeader
call .SetUpMenuItems
ld a, [wd0d2]
ld [wcf88], a
call .DrawMenuAccount_
call MenuFunc_1e7f
call .DrawBugContestStatusBox
call Function2e31
call Function2e20
callba Function64bf
call .DrawBugContestStatus
call UpdateTimePals
jr .Select
.Reopen
call DrawOnMap
call UpdateTimePals
call .SetUpMenuItems
ld a, [wd0d2]
ld [wcf88], a
.Select
call .GetInput
jr c, .Exit
call .DrawMenuAccount
ld a, [wcf88]
ld [wd0d2], a
call PlayClickSFX
call Function1bee
call .OpenMenu
; Menu items have different return functions.
; For example, saving exits the menu.
ld hl, .MenuReturns
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
.MenuReturns
dw .Reopen
dw .Exit
dw .ReturnTwo
dw .ReturnThree
dw .ReturnFour
dw .ReturnEnd
dw .ReturnRedraw
.Exit
ld a, [hOAMUpdate]
push af
ld a, 1
ld [hOAMUpdate], a
call Functione5f
pop af
ld [hOAMUpdate], a
.ReturnEnd
call ExitMenu
.ReturnEnd2
call Function2dcf
call UpdateTimePals
ret
.GetInput
; Return carry on exit, and no-carry on selection.
xor a
ld [hBGMapMode], a
call .DrawMenuAccount
call SetUpMenu
ld a, $ff
ld [MenuSelection], a
.loop
call .PrintMenuAccount
call Function1f1a
ld a, [wcf73]
cp B_BUTTON
jr z, .b
cp A_BUTTON
jr z, .a
jr .loop
.a
call PlayClickSFX
and a
ret
.b
scf
ret
; 12691
.ReturnFour ; 12691
call ExitMenu
ld a, $80
ld [$ffa0], a
ret
; 12699
.ReturnThree ; 12699
call ExitMenu
ld a, $80
ld [$ffa0], a
jr .ReturnEnd2
; 126a2
.ReturnTwo ; 126a2
call ExitMenu
ld hl, wd0e9
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wd0e8]
rst FarCall
jr .ReturnEnd2
; 126b1
.ReturnRedraw ; 126b1
call .Clear
jp .Reopen
; 126b7
.Clear ; 126b7
call WhiteBGMap
call Function1d7d
call Function2bae
call .DrawMenuAccount_
call MenuFunc_1e7f
call .DrawBugContestStatus
call DrawOnMap
call Functiond90
call Function2b5c
ret
; 126d3
.MenuDataHeader
db $40 ; tile backup
db 0, 10 ; start coords
db 17, 19 ; end coords
dw .MenuData
db 1 ; default selection
.ContestMenuDataHeader
db $40 ; tile backup
db 2, 10 ; start coords
db 17, 19 ; end coords
dw .MenuData
db 1 ; default selection
.MenuData
db %10101000 ; x padding, wrap around, start can close
dn 0, 0 ; rows, columns
dw MenuItemsList
dw .MenuString
dw .Items
.Items
dw StartMenu_Pokedex, .PokedexString, .PokedexDesc
dw StartMenu_Pokemon, .PartyString, .PartyDesc
dw StartMenu_Pack, .PackString, .PackDesc
dw StartMenu_Status, .StatusString, .StatusDesc
dw StartMenu_Save, .SaveString, .SaveDesc
dw StartMenu_Option, .OptionString, .OptionDesc
dw StartMenu_Exit, .ExitString, .ExitDesc
dw StartMenu_Pokegear, .PokegearString, .PokegearDesc
dw StartMenu_Quit, .QuitString, .QuitDesc
.PokedexString db "#DEX@"
.PartyString db "#MON@"
.PackString db "PACK@"
.StatusString db "<PLAYER>@"
.SaveString db "SAVE@"
.OptionString db "OPTION@"
.ExitString db "EXIT@"
.PokegearString db $24, "GEAR@"
.QuitString db "QUIT@"
.PokedexDesc db "#MON"
next "database@"
.PartyDesc db "Party ", $4a
next "status@"
.PackDesc db "Contains"
next "items@"
.PokegearDesc db "Trainer's"
next "key device@"
.StatusDesc db "Your own"
next "status@"
.SaveDesc db "Save your"
next "progress@"
.OptionDesc db "Change"
next "settings@"
.ExitDesc db "Close this"
next "menu@"
.QuitDesc db "Quit and"
next "be judged.@"
.OpenMenu ; 127e5
ld a, [MenuSelection]
call .GetMenuAccountTextPointer
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 127ef
.MenuString ; 127ef
push de
ld a, [MenuSelection]
call .GetMenuAccountTextPointer
rept 2
inc hl
endr
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
call PlaceString
ret
; 12800
.MenuDesc ; 12800
push de
ld a, [MenuSelection]
cp $ff
jr z, .none
call .GetMenuAccountTextPointer
rept 4
inc hl
endr
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
call PlaceString
ret
.none
pop de
ret
; 12819
.GetMenuAccountTextPointer ; 12819
ld e, a
ld d, 0
ld hl, wcf97
ld a, [hli]
ld h, [hl]
ld l, a
rept 6
add hl, de
endr
ret
; 12829
.SetUpMenuItems ; 12829
xor a
ld [wcf76], a
call .FillMenuList
ld hl, StatusFlags
bit 0, [hl]
jr z, .no_pokedex
ld a, 0 ; pokedex
call .AppendMenuList
.no_pokedex
ld a, [PartyCount]
and a
jr z, .no_pokemon
ld a, 1 ; pokemon
call .AppendMenuList
.no_pokemon
ld a, [InLinkBattle]
and a
jr nz, .no_pack
ld hl, StatusFlags2
bit 2, [hl] ; bug catching contest
jr nz, .no_pack
ld a, 2 ; pack
call .AppendMenuList
.no_pack
ld hl, wPokegearFlags
bit 7, [hl]
jr z, .no_pokegear
ld a, 7 ; pokegear
call .AppendMenuList
.no_pokegear
ld a, 3 ; status
call .AppendMenuList
ld a, [InLinkBattle]
and a
jr nz, .no_save
ld hl, StatusFlags2
bit 2, [hl] ; bug catching contest
ld a, 8 ; quit
jr nz, .write
ld a, 4 ; save
.write
call .AppendMenuList
.no_save
ld a, 5 ; option
call .AppendMenuList
ld a, 6 ; exit
call .AppendMenuList
ld a, c
ld [MenuItemsList], a
ret
; 1288d
.FillMenuList ; 1288d
xor a
ld hl, MenuItemsList
ld [hli], a
ld a, $ff
ld bc, $000f
call ByteFill
ld de, MenuItemsList + 1
ld c, 0
ret
; 128a0
.AppendMenuList ; 128a0
ld [de], a
inc de
inc c
ret
; 128a4
.DrawMenuAccount_ ; 128a4
jp .DrawMenuAccount
; 128a7
.PrintMenuAccount ; 128a7
call .IsMenuAccountOn
ret z
call .DrawMenuAccount
decoord 0, 14
jp .MenuDesc
; 128b4
.DrawMenuAccount ; 128b4
call .IsMenuAccountOn
ret z
hlcoord 0, 13
ld bc, $050a
call ClearBox
hlcoord 0, 13
ld b, 3
ld c, 8
jp TextBoxPalette
; 128cb
.IsMenuAccountOn ; 128cb
ld a, [Options2]
and 1
ret
; 128d1
.DrawBugContestStatusBox ; 128d1
ld hl, StatusFlags2
bit 2, [hl] ; bug catching contest
ret z
callba Function24bdc
ret
; 128de
.DrawBugContestStatus ; 128de
ld hl, StatusFlags2
bit 2, [hl] ; bug catching contest
jr nz, .contest
ret
.contest
callba Function24be7
ret
; 128ed
StartMenu_Exit: ; 128ed
; Exit the menu.
ld a, 1
ret
; 128f0
StartMenu_Quit: ; 128f0
; Retire from the bug catching contest.
ld hl, .EndTheContestText
call Function12cf5
jr c, .asm_12903
ld a, BANK(BugCatchingContestReturnToGateScript)
ld hl, BugCatchingContestReturnToGateScript
call Function31cf
ld a, 4
ret
.asm_12903
ld a, 0
ret
.EndTheContestText
text_jump UnknownText_0x1c1a6c
db "@"
; 1290b
StartMenu_Save: ; 1290b
; Save the game.
call BufferScreen
callba Function14a1a
jr nc, .asm_12919
ld a, 0
ret
.asm_12919
ld a, 1
ret
; 1291c
StartMenu_Option: ; 1291c
; Game options.
call FadeToMenu
callba OptionsMenu
ld a, 6
ret
; 12928
StartMenu_Status: ; 12928
; Player status.
call FadeToMenu
callba Function25105
call Function2b3c
ld a, 0
ret
; 12937
StartMenu_Pokedex: ; 12937
ld a, [PartyCount]
and a
jr z, .asm_12949
call FadeToMenu
callba Pokedex
call Function2b3c
.asm_12949
ld a, 0
ret
; 1294c
StartMenu_Pokegear: ; 1294c
call FadeToMenu
callba Function90b8d
call Function2b3c
ld a, 0
ret
; 1295b
StartMenu_Pack: ; 1295b
call FadeToMenu
callba Pack
ld a, [wcf66]
and a
jr nz, .asm_12970
call Function2b3c
ld a, 0
ret
.asm_12970
call Function2b4d
ld a, 4
ret
; 12976
StartMenu_Pokemon: ; 12976
ld a, [PartyCount]
and a
jr z, .return
call FadeToMenu
.choosemenu
xor a
ld [PartyMenuActionText], a ; Choose a POKéMON.
call WhiteBGMap
.menu
callba Function5004f
callba Function50405
callba Function503e0
.menunoreload
callba WritePartyMenuTilemap
callba PrintPartyMenuText
call WaitBGMap
call Function32f9 ; load regular palettes?
call DelayFrame
callba PartyMenuSelect
jr c, .return ; if cancelled or pressed B
call PokemonActionSubmenu
cp 3
jr z, .menu
cp 0
jr z, .choosemenu
cp 1
jr z, .menunoreload
cp 2
jr z, .quit
.return
call Function2b3c
ld a, 0
ret
.quit
ld a, b
push af
call Function2b4d
pop af
ret
; 129d5
Function129d5: ; 129d5
ld a, [NumItems]
and a
ret nz
ld a, [NumKeyItems]
and a
ret nz
ld a, [NumBalls]
and a
ret nz
ld hl, TMsHMs
ld b, NUM_TMS + NUM_HMS
.asm_129e9
ld a, [hli]
and a
jr nz, .asm_129f2
dec b
jr nz, .asm_129e9
scf
ret
.asm_129f2
and a
ret
Function129f4: ; 129f4
push de
call PartyMonItemName
callba _CheckTossableItem
ld a, [wd142]
and a
jr nz, .asm_12a3f
ld hl, UnknownText_0x12a45
call MenuTextBox
callba Function24fbf
push af
call WriteBackup
call ExitMenu
pop af
jr c, .asm_12a42
ld hl, UnknownText_0x12a4a
call MenuTextBox
call YesNoBox
push af
call ExitMenu
pop af
jr c, .asm_12a42
pop hl
ld a, [wd107]
call TossItem
call PartyMonItemName
ld hl, UnknownText_0x12a4f
call MenuTextBox
call ExitMenu
and a
ret
.asm_12a3f
call Function12a54
.asm_12a42
pop hl
scf
ret
; 12a45 (4:6a45)
UnknownText_0x12a45: ; 0x12a45
; Toss out how many @ (S)?
text_jump UnknownText_0x1c1a90
db "@"
; 0x12a4a
UnknownText_0x12a4a: ; 0x12a4a
; Throw away @ @ (S)?
text_jump UnknownText_0x1c1aad
db "@"
; 0x12a4f
UnknownText_0x12a4f: ; 0x12a4f
; Discarded @ (S).
text_jump UnknownText_0x1c1aca
db "@"
; 0x12a54
Function12a54: ; 12a54 (4:6a54)
ld hl, UnknownText_0x12a5b
call MenuTextBoxBackup
ret
; 12a5b (4:6a5b)
UnknownText_0x12a5b: ; 0x12a5b
; That's too impor- tant to toss out!
text_jump UnknownText_0x1c1adf
db "@"
; 0x12a60
CantUseItem: ; 12a60
ld hl, CantUseItemText
call Function2012
ret
; 12a67
CantUseItemText: ; 12a67
text_jump UnknownText_0x1c1b03
db "@"
; 12a6c
PartyMonItemName: ; 12a6c
ld a, [CurItem]
ld [wd265], a
call GetItemName
call CopyName1
ret
; 12a79
CancelPokemonAction: ; 12a79
callba Function50405
callba Function8ea71
ld a, 1
ret
; 12a88
PokemonActionSubmenu: ; 12a88
hlcoord 1, 15
ld bc, $0212 ; box size
call ClearBox
callba Function24d19
call GetCurNick
ld a, [MenuSelection]
ld hl, .Actions
ld de, 3
call IsInArray
jr nc, .nothing
inc hl
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
.nothing
ld a, 0
ret
.Actions
dbw 1, Function12e1b ; Cut
dbw 2, Function12e30 ; Fly
dbw 3, Function12ebd ; Surf
dbw 4, Function12e6a ; Strength
dbw 6, Function12e55 ; Flash
dbw 7, Function12e7f ; Whirlpool
dbw 8, Function12ed1 ; Dig
dbw 9, Function12ea9 ; Teleport
dbw 10, Function12ee6 ; Softboiled
dbw 13, Function12ee6 ; MilkDrink
dbw 11, Function12f26 ; Headbutt
dbw 5, Function12e94 ; Waterfall
dbw 12, Function12f3b ; RockSmash
dbw 14, Function12f50 ; SweetScent
dbw 15, OpenPartyStats
dbw 16, SwitchPartyMons
dbw 17, GiveTakePartyMonItem
dbw 18, CancelPokemonAction
dbw 19, Function12fba ; move
dbw 20, Function12d45 ; mail
; 12aec
SwitchPartyMons: ; 12aec
; Don't try if there's nothing to switch!
ld a, [PartyCount]
cp 2
jr c, .DontSwitch
ld a, [CurPartyMon]
inc a
ld [wd0e3], a
callba Function8ea8c
callba Function5042d
ld a, 4
ld [PartyMenuActionText], a
callba WritePartyMenuTilemap
callba PrintPartyMenuText
hlcoord 0, 1
ld bc, 20 * 2
ld a, [wd0e3]
dec a
call AddNTimes
ld [hl], "▷"
call WaitBGMap
call Function32f9
call DelayFrame
callba PartyMenuSelect
bit 1, b
jr c, .DontSwitch
callba Function50f12
xor a
ld [PartyMenuActionText], a
callba Function5004f
callba Function50405
callba Function503e0
ld a, 1
ret
.DontSwitch
xor a
ld [PartyMenuActionText], a
call CancelPokemonAction
ret
; 12b60
GiveTakePartyMonItem: ; 12b60
; Eggs can't hold items!
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_12ba6
ld hl, GiveTakeItemMenuData
call LoadMenuDataHeader
call InterpretMenu2
call ExitMenu
jr c, .asm_12ba6
call GetCurNick
ld hl, StringBuffer1
ld de, wd050
ld bc, $b
call CopyBytes
ld a, [wcfa9]
cp 1
jr nz, .asm_12ba0
call Function1d6e
call ClearPalettes
call Function12ba9
call ClearPalettes
call Functione58
call ExitMenu
ld a, 0
ret
.asm_12ba0
call TakePartyItem
ld a, 3
ret
.asm_12ba6
ld a, 3
ret
; 12ba9
Function12ba9: ; 12ba9
callba Function106a5
.loop
callba Function106be
ld a, [wcf66]
and a
jr z, .quit
ld a, [wcf65]
cp 2
jr z, .next
call CheckTossableItem
ld a, [wd142]
and a
jr nz, .next
call Function12bd9
jr .quit
.next
ld hl, CantBeHeldText
call MenuTextBoxBackup
jr .loop
.quit
ret
; 12bd9
Function12bd9: ; 12bd9
call SpeechTextBox
call PartyMonItemName
call GetPartyItemLocation
ld a, [hl]
and a
jr z, .asm_12bf4
push hl
ld d, a
callba ItemIsMail
pop hl
jr c, .asm_12c01
ld a, [hl]
jr .asm_12c08
.asm_12bf4
call Function12cea
ld hl, MadeHoldText
call MenuTextBoxBackup
call GivePartyItem
ret
.asm_12c01
ld hl, PleaseRemoveMailText
call MenuTextBoxBackup
ret
.asm_12c08
ld [wd265], a
call GetItemName
ld hl, SwitchAlreadyHoldingText
call Function12cf5
jr c, .asm_12c4b
call Function12cea
ld a, [wd265]
push af
ld a, [CurItem]
ld [wd265], a
pop af
ld [CurItem], a
call Function12cdf
jr nc, .asm_12c3c
ld hl, TookAndMadeHoldText
call MenuTextBoxBackup
ld a, [wd265]
ld [CurItem], a
call GivePartyItem
ret
.asm_12c3c
ld a, [wd265]
ld [CurItem], a
call Function12cdf
ld hl, ItemStorageIsFullText
call MenuTextBoxBackup
.asm_12c4b
ret
; 12c4c
GivePartyItem: ; 12c4c
call GetPartyItemLocation
ld a, [CurItem]
ld [hl], a
ld d, a
callba ItemIsMail
jr nc, .asm_12c5f
call Function12cfe
.asm_12c5f
ret
; 12c60
TakePartyItem: ; 12c60
call SpeechTextBox
call GetPartyItemLocation
ld a, [hl]
and a
jr z, .asm_12c8c
ld [CurItem], a
call Function12cdf
jr nc, .asm_12c94
callba ItemIsMail
call GetPartyItemLocation
ld a, [hl]
ld [wd265], a
ld [hl], NO_ITEM
call GetItemName
ld hl, TookFromText
call MenuTextBoxBackup
jr .asm_12c9a
.asm_12c8c
ld hl, IsntHoldingAnythingText
call MenuTextBoxBackup
jr .asm_12c9a
.asm_12c94
ld hl, ItemStorageIsFullText
call MenuTextBoxBackup
.asm_12c9a
ret
; 12c9b
GiveTakeItemMenuData: ; 12c9b
db %01010000
db 12, 12 ; start coords
db 17, 19 ; end coords
dw .Items
db 1 ; default option
.Items
db %10000000 ; x padding
db 2 ; # items
db "GIVE@"
db "TAKE@"
; 12caf
TookAndMadeHoldText: ; 12caf
text_jump UnknownText_0x1c1b2c
db "@"
; 12cb4
MadeHoldText: ; 12cb4
text_jump UnknownText_0x1c1b57
db "@"
; 12cb9
PleaseRemoveMailText: ; 12cb9
text_jump UnknownText_0x1c1b6f
db "@"
; 12cbe
IsntHoldingAnythingText: ; 12cbe
text_jump UnknownText_0x1c1b8e
db "@"
; 12cc3
ItemStorageIsFullText: ; 12cc3
text_jump UnknownText_0x1c1baa
db "@"
; 12cc8
TookFromText: ; 12cc8
text_jump UnknownText_0x1c1bc4
db "@"
; 12ccd
SwitchAlreadyHoldingText: ; 12ccd
text_jump UnknownText_0x1c1bdc
db "@"
; 12cd2
CantBeHeldText: ; 12cd2
text_jump UnknownText_0x1c1c09
db "@"
; 12cd7
GetPartyItemLocation: ; 12cd7
push af
ld a, PartyMon1Item - PartyMon1
call GetPartyParamLocation
pop af
ret
; 12cdf
Function12cdf: ; 12cdf
ld a, $1
ld [wd10c], a
ld hl, NumItems
jp ReceiveItem
; 12cea
Function12cea: ; 12cea (4:6cea)
ld a, $1
ld [wd10c], a
ld hl, NumItems
jp TossItem
Function12cf5: ; 12cf5
call MenuTextBox
call YesNoBox
jp ExitMenu
; 12cfe
Function12cfe: ; 12cfe (4:6cfe)
ld de, DefaultFlypoint
callba Function11e75
ld hl, PlayerName
ld de, wd023
ld bc, $a
call CopyBytes
ld hl, PlayerID
ld bc, $2
call CopyBytes
ld a, [CurPartySpecies]
ld [de], a
inc de
ld a, [CurItem]
ld [de], a
ld a, [CurPartyMon]
ld hl, $a600
ld bc, $2f
call AddNTimes
ld d, h
ld e, l
ld hl, DefaultFlypoint
ld bc, $2f
ld a, $0
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
Function12d45: ; 12d45
ld a, [InLinkBattle]
cp $1
jr z, .asm_12d6d
cp $2
jr z, .asm_12d6d
ld hl, MenuDataHeader_0x12dc9
call LoadMenuDataHeader
call InterpretMenu2
call ExitMenu
jp c, .asm_12dc6
ld a, [wcfa9]
cp $1
jr z, .asm_12d6d
cp $2
jr z, .asm_12d76
jp .asm_12dc6
.asm_12d6d
callba Functionb9229
ld a, $0
ret
.asm_12d76
ld hl, UnknownText_0x12df1
call Function12cf5
jr c, .asm_12d9a
ld a, [CurPartyMon]
ld b, a
callba Function4456e
jr c, .asm_12d92
ld hl, UnknownText_0x12dfb
call MenuTextBoxBackup
jr .asm_12dc6
.asm_12d92
ld hl, UnknownText_0x12df6
call MenuTextBoxBackup
jr .asm_12dc6
.asm_12d9a
ld hl, UnknownText_0x12de2
call Function12cf5
jr c, .asm_12dc6
call GetPartyItemLocation
ld a, [hl]
ld [CurItem], a
call Function12cdf
jr nc, .asm_12dbe
call GetPartyItemLocation
ld [hl], $0
call GetCurNick
ld hl, UnknownText_0x12de7
call MenuTextBoxBackup
jr .asm_12dc6
.asm_12dbe
ld hl, UnknownText_0x12dec
call MenuTextBoxBackup
jr .asm_12dc6
.asm_12dc6
ld a, $3
ret
; 12dc9
MenuDataHeader_0x12dc9: ; 0x12dc9
db $40 ; flags
db 10, 12 ; start coords
db 17, 19 ; end coords
dw MenuData2_0x12dd1
db 1 ; default option
; 0x12dd1
MenuData2_0x12dd1: ; 0x12dd1
db $80 ; flags
db 3 ; items
db "READ@"
db "TAKE@"
db "QUIT@"
; 0x12de2
UnknownText_0x12de2: ; 0x12de2
text_jump UnknownText_0x1c1c22
db "@"
; 0x12de7
UnknownText_0x12de7: ; 0x12de7
text_jump UnknownText_0x1c1c47
db "@"
; 0x12dec
UnknownText_0x12dec: ; 0x12dec
text_jump UnknownText_0x1c1c62
db "@"
; 0x12df1
UnknownText_0x12df1: ; 0x12df1
text_jump UnknownText_0x1c1c86
db "@"
; 0x12df6
UnknownText_0x12df6: ; 0x12df6
text_jump UnknownText_0x1c1ca9
db "@"
; 0x12dfb
UnknownText_0x12dfb: ; 0x12dfb
text_jump UnknownText_0x1c1cc4
db "@"
; 0x12e00
OpenPartyStats: ; 12e00
call Function1d6e
call ClearSprites
; PartyMon
xor a
ld [MonType], a
call LowVolume
predef StatsScreenInit
call MaxVolume
call Function1d7d
ld a, 0
ret
; 12e1b
Function12e1b: ; 12e1b
callba CutFunction
ld a, [wd0ec]
cp $1
jr nz, .asm_12e2d
ld b, $4
ld a, $2
ret
.asm_12e2d
ld a, $3
ret
; 12e30
Function12e30: ; 12e30
callba FlyFunction
ld a, [wd0ec]
cp $2
jr z, .asm_12e4c
cp $0
jr z, .asm_12e4f
callba Function1060b5
ld b, $4
ld a, $2
ret
.asm_12e4c
ld a, $3
ret
.asm_12e4f
ld a, $0
ret
.asm_12e52
ld a, $1
ret
; 12e55
Function12e55: ; 12e55
callba Functionc8ac
ld a, [wd0ec]
cp $1
jr nz, .asm_12e67
ld b, $4
ld a, $2
ret
.asm_12e67
ld a, $3
ret
; 12e6a
Function12e6a: ; 12e6a
callba StrengthFunction
ld a, [wd0ec]
cp $1
jr nz, .asm_12e7c
ld b, $4
ld a, $2
ret
.asm_12e7c
ld a, $3
ret
; 12e7f
Function12e7f: ; 12e7f
callba WhirlpoolFunction
ld a, [wd0ec]
cp $1
jr nz, .asm_12e91
ld b, $4
ld a, $2
ret
.asm_12e91
ld a, $3
ret
; 12e94
Function12e94: ; 12e94
callba Functioncade
ld a, [wd0ec]
cp $1
jr nz, .asm_12ea6
ld b, $4
ld a, $2
ret
.asm_12ea6
ld a, $3
ret
; 12ea9
Function12ea9: ; 12ea9
callba TeleportFunction
ld a, [wd0ec]
and a
jr z, .asm_12eba
ld b, $4
ld a, $2
ret
.asm_12eba
ld a, $3
ret
; 12ebd
Function12ebd: ; 12ebd
callba SurfFunction
ld a, [wd0ec]
and a
jr z, .asm_12ece
ld b, $4
ld a, $2
ret
.asm_12ece
ld a, $3
ret
; 12ed1
Function12ed1: ; 12ed1
callba DigFunction
ld a, [wd0ec]
cp $1
jr nz, .asm_12ee3
ld b, $4
ld a, $2
ret
.asm_12ee3
ld a, $3
ret
; 12ee6
Function12ee6: ; 12ee6
call Function12f05
jr nc, .asm_12ef3
callba Functionf3df
jr .asm_12ef9
.asm_12ef3
ld hl, UnknownText_0x12f00
call PrintText
.asm_12ef9
xor a
ld [PartyMenuActionText], a
ld a, $3
ret
; 12f00
UnknownText_0x12f00: ; 0x12f00
; Not enough HP!
text_jump UnknownText_0x1c1ce3
db "@"
; 0x12f05
Function12f05: ; 12f05
ld a, PartyMon1MaxHP - PartyMon1
call GetPartyParamLocation
ld a, [hli]
ld [hProduct], a
ld a, [hl]
ld [hMultiplicand], a
ld a, $5
ld [hMultiplier], a
ld b, $2
call Divide
ld a, PartyMon1HP + 1 - PartyMon1
call GetPartyParamLocation
ld a, [$ffb6]
sub [hl]
dec hl
ld a, [$ffb5]
sbc [hl]
ret
; 12f26
Function12f26: ; 12f26
callba HeadbuttFunction
ld a, [wd0ec]
cp $1
jr nz, .asm_12f38
ld b, $4
ld a, $2
ret
.asm_12f38
ld a, $3
ret
; 12f3b
Function12f3b: ; 12f3b
callba RockSmashFunction
ld a, [wd0ec]
cp $1
jr nz, .asm_12f4d
ld b, $4
ld a, $2
ret
.asm_12f4d
ld a, $3
ret
; 12f50
Function12f50: ; 12f50
callba DoMovementFunctionc
ld b, $4
ld a, $2
ret
; 12f5b
Function12f5b: ; 12f5b
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Functione58
call Function12f73
pop bc
ld a, b
ld [Options], a
push af
call WhiteBGMap
pop af
ret
; 12f73
Function12f73: ; 12f73
call Function13172
ld de, Unknown_12fb2
call Function1bb1
call Function131ef
ld hl, wcfa5
set 6, [hl]
jr Function12f93
Function12f86: ; 12f86
call Function1bd3
bit 1, a
jp nz, Function12f9f
bit 0, a
jp nz, Function12f9c
Function12f93: ; 12f93
call Function13235
call Function13256
jp Function12f86
; 12f9c
Function12f9c: ; 12f9c
and a
jr Function12fa0
Function12f9f: ; 12f9f
scf
Function12fa0: ; 12fa0
push af
xor a
ld [wd0e3], a
ld hl, wcfa5
res 6, [hl]
call ClearSprites
call ClearTileMap
pop af
ret
; 12fb2
Unknown_12fb2: ; 12fb2
db $03, $01, $03, $01, $40, $00, $20, $c3
; 12fba
Function12fba: ; 12fba
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_12fd2
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function12fd5
pop af
ld [Options], a
call WhiteBGMap
.asm_12fd2
ld a, $0
ret
; 12fd5
Function12fd5: ; 12fd5
ld a, [CurPartyMon]
inc a
ld [wd0d8], a
call Function13172
call Function132d3
ld de, Unknown_13163
call Function1bb1
.asm_12fe8
call Function131ef
ld hl, wcfa5
set 6, [hl]
jr .asm_13009
.asm_12ff2
call Function1bd3
bit 1, a
jp nz, .asm_13038
bit 0, a
jp nz, .asm_130c6
bit 4, a
jp nz, .asm_1305b
bit 5, a
jp nz, .asm_13075
.asm_13009
call Function13235
ld a, [wd0e3]
and a
jr nz, .asm_13018
call Function13256
jp .asm_12ff2
.asm_13018
ld a, $7f
hlcoord 1, 11
ld bc, $0005
call ByteFill
hlcoord 1, 12
ld bc, $0512
call ClearBox
hlcoord 1, 12
ld de, String_1316b
call PlaceString
jp .asm_12ff2
.asm_13038: ; 13038
call PlayClickSFX
call WaitSFX
ld a, [wd0e3]
and a
jp z, Function13154
ld a, [wd0e3]
ld [wcfa9], a
xor a
ld [wd0e3], a
hlcoord 1, 2
ld bc, $0812
call ClearBox
jp .asm_12fe8
; 1305b
.asm_1305b: ; 1305b
ld a, [wd0e3]
and a
jp nz, .asm_12ff2
ld a, [CurPartyMon]
ld b, a
push bc
call .asm_1308f
pop bc
ld a, [CurPartyMon]
cp b
jp z, .asm_12ff2
jp Function12fd5
.asm_13075: ; 13075
ld a, [wd0e3]
and a
jp nz, .asm_12ff2
ld a, [CurPartyMon]
ld b, a
push bc
call .asm_130a7
pop bc
ld a, [CurPartyMon]
cp b
jp z, .asm_12ff2
jp Function12fd5
.asm_1308f
ld a, [CurPartyMon]
inc a
ld [CurPartyMon], a
ld c, a
ld b, 0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
cp $ff
jr z, .asm_130a7
cp EGG
ret nz
jr .asm_1308f
.asm_130a7
ld a, [CurPartyMon]
and a
ret z
.asm_130ac
ld a, [CurPartyMon]
dec a
ld [CurPartyMon], a
ld c, a
ld b, 0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
cp EGG
ret nz
ld a, [CurPartyMon]
and a
jr z, .asm_1308f
jr .asm_130ac
; 130c6
.asm_130c6: ; 130c6
call PlayClickSFX
call WaitSFX
ld a, [wd0e3]
and a
jr nz, .asm_130de
ld a, [wcfa9]
ld [wd0e3], a
call Function1bee
jp .asm_13018
.asm_130de
ld hl, PartyMon1Moves
ld bc, PartyMon2 - PartyMon1
ld a, [CurPartyMon]
call AddNTimes
push hl
call Function1313a
pop hl
ld bc, $0015
add hl, bc
call Function1313a
ld a, [IsInBattle]
jr z, .asm_13113
ld hl, BattleMonMoves
ld bc, $0020
ld a, [CurPartyMon]
call AddNTimes
push hl
call Function1313a
pop hl
ld bc, $0006
add hl, bc
call Function1313a
.asm_13113
ld de, SFX_SWITCH_POKEMON
call PlaySFX
call WaitSFX
ld de, SFX_SWITCH_POKEMON
call PlaySFX
call WaitSFX
hlcoord 1, 2
ld bc, $0812
call ClearBox
hlcoord 10, 10
ld bc, $0109
call ClearBox
jp .asm_12fe8
; 1313a
Function1313a: ; 1313a
push hl
ld a, [wcfa9]
dec a
ld c, a
ld b, $0
add hl, bc
ld d, h
ld e, l
pop hl
ld a, [wd0e3]
dec a
ld c, a
ld b, $0
add hl, bc
ld a, [de]
ld b, [hl]
ld [hl], a
ld a, b
ld [de], a
ret
; 13154
Function13154: ; 13154
xor a
ld [wd0e3], a
ld hl, wcfa5
res 6, [hl]
call ClearSprites
jp ClearTileMap
; 13163
Unknown_13163: ; 13163
db $03, $01, $03, $01, $40, $00, $20, $f3
; 1316b
String_1316b: ; 1316b
db "Where?@"
; 13172
Function13172: ; 13172
call WhiteBGMap
call ClearTileMap
call ClearSprites
xor a
ld [hBGMapMode], a
callba Functionfb571
callba Function8e814
ld a, [CurPartyMon]
ld e, a
ld d, $0
ld hl, PartySpecies
add hl, de
ld a, [hl]
ld [wd265], a
ld e, $2
callba Function8e83f
hlcoord 0, 1
ld b, $9
ld c, $12
call TextBox
hlcoord 0, 11
ld b, $5
ld c, $12
call TextBox
hlcoord 2, 0
ld bc, $0203
call ClearBox
xor a
ld [MonType], a
ld hl, PartyMonNicknames
ld a, [CurPartyMon]
call GetNick
hlcoord 5, 1
call PlaceString
push bc
callba Function5084a
pop hl
call PrintLevel
ld hl, PlayerHPPal
call SetHPPal
ld b, $e
call GetSGBLayout
hlcoord 16, 0
ld bc, $0103
jp ClearBox
; 131ef
Function131ef: ; 131ef
xor a
ld [hBGMapMode], a
ld [wd0e3], a
ld [MonType], a
predef Function5084a
ld hl, TempMonMoves
ld de, wd25e
ld bc, NUM_MOVES
call CopyBytes
ld a, SCREEN_WIDTH * 2
ld [Buffer1], a
hlcoord 2, 3
predef ListMoves
hlcoord 10, 4
predef Function50c50
call WaitBGMap
call Function32f9
ld a, [wd0eb]
inc a
ld [wcfa3], a
hlcoord 0, 11
ld b, 5
ld c, 18
jp TextBox
; 13235
Function13235: ; 13235
ld hl, PartyMon1Moves
ld bc, PartyMon2 - PartyMon1
ld a, [CurPartyMon]
call AddNTimes
ld a, [wcfa9]
dec a
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld [CurSpecies], a
hlcoord 1, 12
lb bc, 5, 18
jp ClearBox
; 13256
Function13256: ; 13256
xor a
ld [hBGMapMode], a
hlcoord 0, 10
ld de, String_132ba
call PlaceString
hlcoord 0, 11
ld de, String_132c2
call PlaceString
hlcoord 12, 12
ld de, String_132ca
call PlaceString
ld a, [CurSpecies]
ld b, a
hlcoord 2, 12
predef PrintMoveType
ld a, [CurSpecies]
dec a
ld hl, Moves + MOVE_POWER
ld bc, MOVE_LENGTH
call AddNTimes
ld a, BANK(Moves)
call GetFarByte
hlcoord 16, 12
cp $2
jr c, .asm_132a7
ld [wd265], a
ld de, wd265
ld bc, $0103
call PrintNum
jr .asm_132ad
.asm_132a7
ld de, String_132cf
call PlaceString
.asm_132ad
hlcoord 1, 14
predef PrintMoveDesc
ld a, $1
ld [hBGMapMode], a
ret
; 132ba
String_132ba: ; 132ba
db "┌─────┐@"
; 132c2
String_132c2: ; 132c2
db "│TYPE/└@"
; 132ca
String_132ca: ; 132ca
db "ATK/@"
; 132cf
String_132cf: ; 132cf
db "---@"
; 132d3
Function132d3: ; 132d3
call Function132da
call Function132fe
ret
; 132da
Function132da: ; 132da
ld a, [CurPartyMon]
and a
ret z
ld c, a
ld e, a
ld d, 0
ld hl, PartyCount
add hl, de
.asm_132e7
ld a, [hl]
and a
jr z, .asm_132f3
cp EGG
jr z, .asm_132f3
cp NUM_POKEMON + 1
jr c, .asm_132f8
.asm_132f3
dec hl
dec c
jr nz, .asm_132e7
ret
.asm_132f8
hlcoord 16, 0
ld [hl], $71
ret
; 132fe
Function132fe: ; 132fe
ld a, [CurPartyMon]
inc a
ld c, a
ld a, [PartyCount]
cp c
ret z
ld e, c
ld d, 0
ld hl, PartySpecies
add hl, de
.asm_1330f
ld a, [hl]
cp $ff
ret z
and a
jr z, .asm_1331e
cp EGG
jr z, .asm_1331e
cp NUM_POKEMON + 1
jr c, .asm_13321
.asm_1331e
inc hl
jr .asm_1330f
.asm_13321
hlcoord 18, 0
ld [hl], "▶"
ret
; 13327
SelectMenu:: ; 13327
call CheckRegisteredItem
jr c, .NotRegistered
jp UseRegisteredItem
.NotRegistered
call Function2e08
ld b, BANK(ItemMayBeRegisteredText)
ld hl, ItemMayBeRegisteredText
call MapTextbox
call CloseText
jp Function2dcf
; 13340
ItemMayBeRegisteredText: ; 13340
text_jump UnknownText_0x1c1cf3
db "@"
; 13345
CheckRegisteredItem: ; 13345
ld a, [WhichRegisteredItem]
and a
jr z, .NoRegisteredItem
and REGISTERED_POCKET
rlca
rlca
ld hl, .Pockets
rst JumpTable
ret
.Pockets
dw .CheckItem
dw .CheckBall
dw .CheckKeyItem
dw .CheckTMHM
.CheckItem
ld hl, NumItems
call .CheckRegisteredNo
jr c, .NoRegisteredItem
inc hl
ld e, a
ld d, 0
rept 2
add hl, de
endr
call .IsSameItem
jr c, .NoRegisteredItem
and a
ret
.CheckKeyItem
ld a, [RegisteredItem]
ld hl, KeyItems
ld de, 1
call IsInArray
jr nc, .NoRegisteredItem
ld a, [RegisteredItem]
ld [CurItem], a
and a
ret
.CheckBall
ld hl, NumBalls
call .CheckRegisteredNo
jr nc, .NoRegisteredItem
inc hl
ld e, a
ld d, 0
rept 2
add hl, de
endr
call .IsSameItem
jr c, .NoRegisteredItem
ret
.CheckTMHM
jr .NoRegisteredItem
.NoRegisteredItem
xor a
ld [WhichRegisteredItem], a
ld [RegisteredItem], a
scf
ret
; 133a6
.CheckRegisteredNo ; 133a6
ld a, [WhichRegisteredItem]
and REGISTERED_NUMBER
dec a
cp [hl]
jr nc, .NotEnoughItems
ld [wd107], a
and a
ret
.NotEnoughItems
scf
ret
; 133b6
.IsSameItem ; 133b6
ld a, [RegisteredItem]
cp [hl]
jr nz, .NotSameItem
ld [CurItem], a
and a
ret
.NotSameItem
scf
ret
; 133c3
UseRegisteredItem: ; 133c3
callba CheckItemMenu
ld a, [wd142]
ld hl, .SwitchTo
rst JumpTable
ret
.SwitchTo
dw .CantUse
dw .NoFunction
dw .NoFunction
dw .NoFunction
dw .Current
dw .Party
dw .Overworld
; 133df
.NoFunction ; 133df
call Function2e08
call CantUseItem
call Function2dcf
and a
ret
; 133ea
.Current ; 133ea
call Function2e08
call DoItemEffect
call Function2dcf
and a
ret
; 133f5
.Party ; 133f5
call ResetWindow
call FadeToMenu
call DoItemEffect
call Function2b3c
call Function2dcf
and a
ret
; 13406
.Overworld ; 13406
call ResetWindow
ld a, 1
ld [wd0ef], a
call DoItemEffect
xor a
ld [wd0ef], a
ld a, [wd0ec]
cp 1
jr nz, .asm_13425
scf
ld a, $80
ld [$ffa0], a
ret
; 13422
.CantUse ; 13422
call ResetWindow
.asm_13425
call CantUseItem
call Function2dcf
and a
ret
; 1342d
Elevator:: ; 1342d
call Function1344a
call Function1347d
jr c, .asm_13448
ld [wd041], a
call Function134dd
jr c, .asm_13448
ld hl, wd041
cp [hl]
jr z, .asm_13448
call Function134c0
and a
ret
.asm_13448
scf
ret
; 1344a
Function1344a: ; 1344a
ld a, b
ld [EngineBuffer1], a
ld a, e
ld [wd03f], a
ld a, d
ld [wd040], a
call Function1345a
ret
; 1345a
Function1345a: ; 1345a
ld de, OBPals + 8 * 6
ld bc, $0004
ld hl, wd03f
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [EngineBuffer1]
call GetFarByte
inc hl
ld [de], a
inc de
.asm_1346f
ld a, [EngineBuffer1]
call GetFarByte
ld [de], a
inc de
add hl, bc
cp $ff
jr nz, .asm_1346f
ret
; 1347d
Function1347d: ; 1347d
ld hl, wd03f
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [EngineBuffer1]
call GetFarByte
ld c, a
inc hl
ld a, [BackupMapGroup]
ld d, a
ld a, [BackupMapNumber]
ld e, a
ld b, $0
.asm_13495
ld a, [EngineBuffer1]
call GetFarByte
cp $ff
jr z, .asm_134be
rept 2
inc hl
endr
ld a, [EngineBuffer1]
call GetFarByte
inc hl
cp d
jr nz, .asm_134b7
ld a, [EngineBuffer1]
call GetFarByte
inc hl
cp e
jr nz, .asm_134b8
jr .asm_134bb
.asm_134b7
inc hl
.asm_134b8
inc b
jr .asm_13495
.asm_134bb
xor a
ld a, b
ret
.asm_134be
scf
ret
; 134c0
Function134c0: ; 134c0
push af
ld hl, wd03f
ld a, [hli]
ld h, [hl]
ld l, a
inc hl
pop af
ld bc, $0004
call AddNTimes
inc hl
ld de, wdcac
ld a, [EngineBuffer1]
ld bc, $0003
call FarCopyBytes
ret
; 134dd
Function134dd: ; 134dd
call Function1d6e
ld hl, Elevator_WhichFloorText
call PrintText
call Elevator_GetCurrentFloorText
ld hl, Elevator_MenuDataHeader
call CopyMenuDataHeader
call Function352f
call DrawOnMap
xor a
ld [wd0e4], a
call Function350c
call WriteBackup
ld a, [wcf73]
cp $2
jr z, .asm_1350b
xor a
ld a, [wcf77]
ret
.asm_1350b
scf
ret
; 1350d
Elevator_WhichFloorText: ; 0x1350d
; Which floor?
text_jump UnknownText_0x1bd2bc
db "@"
; 0x13512
Elevator_GetCurrentFloorText: ; 13512
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
hlcoord 0, 0
ld b, $4
ld c, $8
call TextBox
hlcoord 1, 2
ld de, Elevator_CurrentFloorText
call PlaceString
hlcoord 4, 4
call Elevator_GetCurrentFloorString
pop af
ld [Options], a
ret
; 13537
Elevator_CurrentFloorText: ; 13537
db "Now on:@"
; 1353f
Elevator_GetCurrentFloorString: ; 1353f
push hl
ld a, [wd041]
ld e, a
ld d, 0
ld hl, wd0f1
add hl, de
ld a, [hl]
pop de
call GetFloorString
ret
; 13550
Elevator_MenuDataHeader: ; 0x13550
db $40 ; flags
db 01, 12 ; start coords
db 09, 18 ; end coords
dw Elevator_MenuData2
db 1 ; default option
; 0x13558
Elevator_MenuData2: ; 0x13558
db $10 ; flags
db 4, 0 ; rows, columns
db 1 ; horizontal spacing
dbw 0, OBPals + 8 * 6
dbw BANK(GetElevatorFlorStrings), GetElevatorFlorStrings
dbw BANK(NULL), NULL
dbw BANK(NULL), NULL
; 13568
GetElevatorFlorStrings: ; 13568
ld a, [MenuSelection]
GetFloorString: ; 1356b
push de
call FloorToString
ld d, h
ld e, l
pop hl
jp PlaceString
; 13575
FloorToString: ; 13575
push de
ld e, a
ld d, 0
ld hl, .floors
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
pop de
ret
; 13583
.floors
dw .b4f
dw .b3f
dw .b2f
dw .b1f
dw ._1f
dw ._2f
dw ._3f
dw ._4f
dw ._5f
dw ._6f
dw ._7f
dw ._8f
dw ._9f
dw ._10f
dw ._11f
dw .roof
.b4f
db "B4F@"
.b3f
db "B3F@"
.b2f
db "B2F@"
.b1f
db "B1F@"
._1f
db "1F@"
._2f
db "2F@"
._3f
db "3F@"
._4f
db "4F@"
._5f
db "5F@"
._6f
db "6F@"
._7f
db "7F@"
._8f
db "8F@"
._9f
db "9F@"
._10f
db "10F@"
._11f
db "11F@"
.roof
db "ROOF@"
; 135db
Special_GiveParkBalls: ; 135db
xor a
ld [wdf9c], a
ld a, 20
ld [wdc79], a
callba Function11490
ret
; 135eb
BugCatchingContestBattleScript:: ; 0x135eb
writecode VAR_BATTLETYPE, BATTLETYPE_CONTEST
battlecheck
startbattle
returnafterbattle
copybytetovar wdc79
iffalse BugCatchingContestOutOfBallsScript
end
; 0x135f8
BugCatchingContestOverScript:: ; 0x135f8
playsound SFX_ELEVATOR_END
loadfont
writetext UnknownText_0x1360f
closetext
jump BugCatchingContestReturnToGateScript
; 0x13603
BugCatchingContestOutOfBallsScript: ; 0x13603
playsound SFX_ELEVATOR_END
loadfont
writetext UnknownText_0x13614
closetext
BugCatchingContestReturnToGateScript: ; 0x1360b
loadmovesprites
jumpstd bugcontestresultswarp
; 0x1360f
UnknownText_0x1360f: ; 0x1360f
; ANNOUNCER: BEEEP! Time's up!
text_jump UnknownText_0x1bd2ca
db "@"
; 0x13614
UnknownText_0x13614: ; 0x13614
; ANNOUNCER: The Contest is over!
text_jump UnknownText_0x1bd2e7
db "@"
; 0x13619
RepelWoreOffScript:: ; 0x13619
loadfont
writetext UnknownText_0x13620
closetext
loadmovesprites
end
; 0x13620
UnknownText_0x13620: ; 0x13620
; REPEL's effect wore off.
text_jump UnknownText_0x1bd308
db "@"
; 0x13625
SignpostItemScript:: ; 0x13625
loadfont
copybytetovar Unkn2Pals
itemtotext 0, 0
writetext UnknownText_0x13645
giveitem -1, 1
iffalse UnknownScript_0x1363e
callasm SetMemEvent
specialsound
itemnotify
jump UnknownScript_0x13643
; 0x1363e
UnknownScript_0x1363e: ; 0x1363e
keeptextopen
writetext UnknownText_0x1364a
closetext
UnknownScript_0x13643: ; 13643
loadmovesprites
end
; 0x13645
UnknownText_0x13645: ; 0x13645
; found @ !
text_jump UnknownText_0x1bd321
db "@"
; 0x1364a
UnknownText_0x1364a: ; 0x1364a
; But has no space left…
text_jump UnknownText_0x1bd331
db "@"
; 0x1364f
SetMemEvent: ; 1364f
ld hl, EngineBuffer1 ; wd03e (aliases: MenuItemsList, CurFruitTree, CurInput)
ld a, [hli]
ld d, [hl]
ld e, a
ld b, SET_FLAG
call EventFlagAction
ret
CheckFacingTileForStd:: ; 1365b
; Checks to see if the tile you're facing has a std script associated with it. If so, executes the script and returns carry.
ld a, c
ld de, 3
ld hl, .table1
call IsInArray
jr nc, .notintable
ld a, jumpstd_command
ld [wd03f], a
inc hl
ld a, [hli]
ld [wd03f + 1], a
ld a, [hli]
ld [wd03f + 2], a
ld a, BANK(Script_JumpStdFromRAM)
ld hl, Script_JumpStdFromRAM
call CallScript
scf
ret
.notintable
xor a
ret
; 13681
.table1
dbw $91, magazinebookshelf
dbw $93, pcscript
dbw $94, radio1
dbw $95, townmap
dbw $96, merchandiseshelf
dbw $97, tv
dbw $9d, window
dbw $9f, incenseburner
db $ff ; end
; 1369a
Script_JumpStdFromRAM: ; 0x1369a
jump wd03f
; 0x1369d
_BugContestJudging: ; 1369d
call ContestScore
callba Function105f79
call Function13819
ld a, [wd00a]
call LoadContestantName
ld a, [wd00b]
ld [wd265], a
call GetPokemonName
ld hl, BugContest_ThirdPlaceText
call PrintText
ld a, [EndFlypoint]
call LoadContestantName
ld a, [MovementBuffer]
ld [wd265], a
call GetPokemonName
ld hl, BugContest_SecondPlaceText
call PrintText
ld a, [DefaultFlypoint]
call LoadContestantName
ld a, [wd003]
ld [wd265], a
call GetPokemonName
ld hl, BugContest_FirstPlaceText
call PrintText
jp Function13807
; 136eb
BugContest_FirstPlaceText: ; 0x136eb
text_jump ContestJudging_FirstPlaceText
start_asm
; 0x136f0
BugContest_FirstPlace: ; 136f0
ld de, SFX_1ST_PLACE
call PlaySFX
call WaitSFX
ld hl, BugContest_FirstPlaceScoreText
ret
; 136fd
BugContest_FirstPlaceScoreText: ; 0x136fd
; The winning score was @ points!
text_jump ContestJudging_FirstPlaceScoreText
db "@"
; 0x13702
BugContest_SecondPlaceText: ; 0x13702
; Placing second was @ , who caught a @ !@ @
text_jump ContestJudging_SecondPlaceText
start_asm
; 0x13707
BugContest_SecondPlace: ; 13707
ld de, SFX_2ND_PLACE
call PlaySFX
call WaitSFX
ld hl, BugContest_SecondPlaceScoreText
ret
; 13714
BugContest_SecondPlaceScoreText: ; 0x13714
; The score was @ points!
text_jump ContestJudging_SecondPlaceScoreText
db "@"
; 0x13719
BugContest_ThirdPlaceText: ; 0x13719
; Placing third was @ , who caught a @ !@ @
text_jump ContestJudging_ThirdPlaceText
start_asm
; 0x1371e
BugContest_ThirdPlace: ; 1371e
ld de, SFX_3RD_PLACE
call PlaySFX
call WaitSFX
ld hl, BugContest_ThirdPlaceScoreText
ret
; 1372b
BugContest_ThirdPlaceScoreText: ; 0x1372b
; The score was @ points!
text_jump ContestJudging_ThirdPlaceScoreText
db "@"
; 0x13730
LoadContestantName: ; 13730
; If a = 0, get your name.
dec a
jr z, .done
; Find the pointer for the trainer class of the Bug Catching Contestant whose ID is in a.
ld c, a
ld b, 0
ld hl, BugContestantPointers
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
; Copy the Trainer Class to c.
ld a, [hli]
ld c, a
; Save hl and bc for later.
push hl
push bc
; Get the Trainer Class name and copy it into wd016.
callab Function3952d
ld hl, StringBuffer1
ld de, wd016
ld bc, TRAINER_CLASS_NAME_LENGTH
call CopyBytes
ld hl, wd016
; Delete the trailing terminator and replace it with a space.
.next
ld a, [hli]
cp "@"
jr nz, .next
dec hl
ld [hl], " "
inc hl
ld d, h
ld e, l
; Restore the Trainer Class ID and Trainer ID pointer. Save de for later.
pop bc
pop hl
push de
; Get the name of the trainer with class c and ID b.
ld a, [hl]
ld b, a
callab GetTrainerName
; Append the name to wd016.
ld hl, StringBuffer1
pop de
ld bc, NAME_LENGTH - 1
jp CopyBytes
.done
ld hl, PlayerName
ld de, wd016
ld bc, NAME_LENGTH
jp CopyBytes
; 13783
BugContestantPointers: ; 13783
dw BugContestant_BugCatcherDon ; This reverts back to the player
dw BugContestant_BugCatcherDon
dw BugContestant_BugCatcherEd
dw BugContestant_CooltrainerMNick
dw BugContestant_PokefanMWilliam
dw BugContestant_BugCatcherBenny
dw BugContestant_CamperBarry
dw BugContestant_PicnickerCindy
dw BugContestant_BugCatcherJosh
dw BugContestant_YoungsterSamuel
dw BugContestant_SchoolboyKipp
; 13799
BugContestant_BugCatcherDon:
db BUG_CATCHER, DON
dbw KAKUNA, 300
dbw METAPOD, 285
dbw CATERPIE, 226
BugContestant_BugCatcherEd:
db BUG_CATCHER, ED
dbw BUTTERFREE, 286
dbw BUTTERFREE, 251
dbw CATERPIE, 237
BugContestant_CooltrainerMNick:
db COOLTRAINERM, NICK
dbw SCYTHER, 357
dbw BUTTERFREE, 349
dbw PINSIR, 368
BugContestant_PokefanMWilliam:
db POKEFANM, WILLIAM
dbw PINSIR, 332
dbw BUTTERFREE, 324
dbw VENONAT, 321
BugContestant_BugCatcherBenny:
db BUG_CATCHER, BUG_CATCHER_BENNY
dbw BUTTERFREE, 318
dbw WEEDLE, 295
dbw CATERPIE, 285
BugContestant_CamperBarry:
db CAMPER, BARRY
dbw PINSIR, 366
dbw VENONAT, 329
dbw KAKUNA, 314
BugContestant_PicnickerCindy:
db PICNICKER, CINDY
dbw BUTTERFREE, 341
dbw METAPOD, 301
dbw CATERPIE, 264
BugContestant_BugCatcherJosh:
db BUG_CATCHER, JOSH
dbw SCYTHER, 326
dbw BUTTERFREE, 292
dbw METAPOD, 282
BugContestant_YoungsterSamuel:
db YOUNGSTER, SAMUEL
dbw WEEDLE, 270
dbw PINSIR, 282
dbw CATERPIE, 251
BugContestant_SchoolboyKipp:
db SCHOOLBOY, KIPP
dbw VENONAT, 267
dbw PARAS, 254
dbw KAKUNA, 259
; 13807
Function13807: ; 13807
ld hl, wd00a
ld de, -4
ld b, 3
.loop
ld a, [hl]
cp 1
jr z, .done
add hl, de
dec b
jr nz, .loop
.done
ret
; 13819
Function13819: ; 13819
call Function13833
call Function138b0
ld hl, wd00e
ld a, 1
ld [hli], a
ld a, [wdf9c]
ld [hli], a
ld a, [hProduct]
ld [hli], a
ld a, [hMultiplicand]
ld [hl], a
call Function1383e
ret
; 13833
Function13833: ; 13833
ld hl, DefaultFlypoint
ld b, 12
xor a
.loop
ld [hli], a
dec b
jr nz, .loop
ret
; 1383e
Function1383e: ; 1383e
ld de, wd010
ld hl, wd004
ld c, 2
call StringCmp
jr c, .next
ld hl, EndFlypoint
ld de, wd00a
ld bc, $0004
call CopyBytes
ld hl, DefaultFlypoint
ld de, EndFlypoint
ld bc, 4
call CopyBytes
ld hl, DefaultFlypoint
call Function138a0
jr .done
.next
ld de, wd010
ld hl, wd008
ld c, 2
call StringCmp
jr c, .next2
ld hl, EndFlypoint
ld de, wd00a
ld bc, 4
call CopyBytes
ld hl, EndFlypoint
call Function138a0
jr .done
.next2
ld de, wd010
ld hl, wd00c
ld c, 2
call StringCmp
jr c, .done
ld hl, wd00a
call Function138a0
.done
ret
; 138a0
Function138a0: ; 138a0
ld de, wd00e
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hl], a
ret
; 138b0
Function138b0: ; 138b0
ld e, 0
.loop
push de
call Special_CheckBugContestContestantFlag
pop de
jr nz, .done
ld a, e
rept 2
inc a
endr
ld [wd00e], a
dec a
ld c, a
ld b, 0
ld hl, BugContestantPointers
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
rept 2
inc hl
endr
.loop2
call Random
and 3
cp 3
jr z, .loop2
ld c, a
ld b, 0
rept 3
add hl, bc
endr
ld a, [hli]
ld [wd00f], a
ld a, [hli]
ld h, [hl]
ld l, a
call Random
and 7
ld c, a
ld b, 0
add hl, bc
ld a, h
ld [wd010], a
ld a, l
ld [wd011], a
push de
call Function1383e
pop de
.done
inc e
ld a, e
cp 10
jr nz, .loop
ret
; 13900
ContestScore: ; 13900
; Determine the player's score in the Bug Catching Contest.
xor a
ld [hProduct], a
ld [hMultiplicand], a
ld a, [wContestMonSpecies] ; Species
and a
jr z, .done
; Tally the following:
; Max HP * 4
ld a, [wContestMonMaxHP + 1]
call .AddContestStat
ld a, [wContestMonMaxHP + 1]
call .AddContestStat
ld a, [wContestMonMaxHP + 1]
call .AddContestStat
ld a, [wContestMonMaxHP + 1]
call .AddContestStat
; Stats
ld a, [wContestMonAttack + 1]
call .AddContestStat
ld a, [wContestMonDefense + 1]
call .AddContestStat
ld a, [wContestMonSpeed + 1]
call .AddContestStat
ld a, [wContestMonSpclAtk + 1]
call .AddContestStat
ld a, [wContestMonSpclDef + 1]
call .AddContestStat
; DVs
ld a, [wContestMonDVs + 0]
ld b, a
and 2
rept 2
add a
endr
ld c, a
swap b
ld a, b
and 2
add a
add c
ld d, a
ld a, [wContestMonDVs + 1]
ld b, a
and 2
ld c, a
swap b
ld a, b
and 2
srl a
rept 2
add c
endr
rept 2
add d
endr
call .AddContestStat
; Remaining HP / 8
ld a, [wContestMonHP + 1]
srl a
srl a
srl a
call .AddContestStat
; Whether it's holding an item
ld a, [wContestMonItem]
and a
jr z, .done
ld a, 1
call .AddContestStat
.done
ret
; 1397f
.AddContestStat: ; 1397f
ld hl, hMultiplicand
add [hl]
ld [hl], a
ret nc
dec hl
inc [hl]
ret
; 13988
; decreases all pokemon's pokerus counter by b. if the lower nybble reaches zero, the pokerus is cured.
ApplyPokerusTick: ; 13988
ld hl, PartyMon1PokerusStatus ; PartyMon1 + MON_PKRS
ld a, [PartyCount]
and a
ret z
ld c, a
.loop
ld a, [hl]
and $f
jr z, .does_not_have_pokerus
sub b
jr nc, .ok
xor a
.ok
ld d, a
ld a, [hl]
and $f0
add d
ld [hl], a
.does_not_have_pokerus
ld de, PartyMon2 - PartyMon1
add hl, de
dec c
jr nz, .loop
ret
; 139a8
Special_SelectRandomBugContestContestants: ; 139a8
; Select five random people to participate in the current contest.
; First we have to make sure that any old data is cleared away.
ld c, 10 ; Number of people to choose from.
ld hl, BugCatchingContestantEventFlagTable
.loop1
push bc
push hl
ld e, [hl]
inc hl
ld d, [hl]
ld b, RESET_FLAG
call EventFlagAction
pop hl
rept 2
inc hl
endr
pop bc
dec c
jr nz, .loop1
; Now that that's out of the way, we can get on to the good stuff.
ld c, 5
.loop2
push bc
.next
; Choose a flag at uniform random to be set.
call Random
cp $fa ; 250
jr nc, .next
ld c, $19 ; 25
call SimpleDivide
ld e, b
ld d, 0
ld hl, BugCatchingContestantEventFlagTable
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
push de
; If we've already set it, it doesn't count.
ld b, CHECK_FLAG
call EventFlagAction
pop de
ld a, c
and a
jr nz, .next
; Set the flag. This will cause that sprite to not be visible in the contest.
ld b, SET_FLAG
call EventFlagAction
pop bc
; Check if we're done. If so, return. Otherwise, choose the next victim.
dec c
jr nz, .loop2
ret
; 139ed
Special_CheckBugContestContestantFlag: ; 139ed
; Checks the flag of the Bug Catching Contestant whose index is loaded in a.
; Bug: If a >= 10 when this is called, it will read beyond the table.
ld hl, BugCatchingContestantEventFlagTable
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld b, CHECK_FLAG
call EventFlagAction
ret
; 139fe
BugCatchingContestantEventFlagTable: ; 139fe
dw EVENT_BUG_CATCHING_CONTESTANT_1A
dw EVENT_BUG_CATCHING_CONTESTANT_2A
dw EVENT_BUG_CATCHING_CONTESTANT_3A
dw EVENT_BUG_CATCHING_CONTESTANT_4A
dw EVENT_BUG_CATCHING_CONTESTANT_5A
dw EVENT_BUG_CATCHING_CONTESTANT_6A
dw EVENT_BUG_CATCHING_CONTESTANT_7A
dw EVENT_BUG_CATCHING_CONTESTANT_8A
dw EVENT_BUG_CATCHING_CONTESTANT_9A
dw EVENT_BUG_CATCHING_CONTESTANT_10A
; 13a12
CheckFirstMonFainted: ; 13a12
ld hl, PartyMon1HP
ld a, [hli]
or [hl]
jr z, .fainted
ld hl, PartyCount
ld a, 1
ld [hli], a
inc hl
ld a, [hl]
ld [wdf9b], a
ld [hl], $ff
xor a
ld [ScriptVar], a
ret
.fainted
ld a, $1
ld [ScriptVar], a
ret
; 13a31
ContestReturnMons: ; 13a31
ld hl, PartySpecies + 1
ld a, [wdf9b]
ld [hl], a
ld b, $1
.asm_13a3a
ld a, [hli]
cp $ff
jr z, .asm_13a42
inc b
jr .asm_13a3a
.asm_13a42
ld a, b
ld [PartyCount], a
ret
; 13a47
Function13a47: ; 13a47
ld hl, PartyCount
ld a, [hl]
and a
ret z
cp PARTY_LENGTH + 1
jr c, .asm_13a54
ld a, PARTY_LENGTH
ld [hl], a
.asm_13a54
inc hl
ld b, a
ld c, 0
.asm_13a58
ld a, [hl]
and a
jr z, .asm_13a64
cp $fc
jr z, .asm_13a64
cp $fe
jr c, .asm_13a73
.asm_13a64
ld [hl], SMEARGLE
push hl
push bc
ld a, c
ld hl, PartyMon1Species
call GetPartyLocation
ld [hl], SMEARGLE
pop bc
pop hl
.asm_13a73
inc hl
inc c
dec b
jr nz, .asm_13a58
ld [hl], $ff
ld hl, PartyMon1
ld a, [PartyCount]
ld d, a
ld e, 0
.asm_13a83
push de
push hl
ld b, h
ld c, l
ld a, [hl]
and a
jr z, .asm_13a8f
cp NUM_POKEMON + 1
jr c, .asm_13a9c
.asm_13a8f
ld [hl], SMEARGLE
push de
ld d, 0
ld hl, PartySpecies
add hl, de
pop de
ld a, SMEARGLE
ld [hl], a
.asm_13a9c
ld [CurSpecies], a
call GetBaseData
ld hl, PartyMon1Level - PartyMon1
add hl, bc
ld a, [hl]
cp MIN_LEVEL
ld a, MIN_LEVEL
jr c, .asm_13ab4
ld a, [hl]
cp MAX_LEVEL
jr c, .asm_13ab5
ld a, MAX_LEVEL
.asm_13ab4
ld [hl], a
.asm_13ab5
ld [CurPartyLevel], a
ld hl, PartyMon1MaxHP - PartyMon1
add hl, bc
ld d, h
ld e, l
ld hl, PartyMon1Exp + 2 - PartyMon1
add hl, bc
ld b, $1
predef Functione167
pop hl
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop de
inc e
dec d
jr nz, .asm_13a83
ld de, PartyMonNicknames
ld a, [PartyCount]
ld b, a
ld c, 0
.asm_13adc
push bc
call Function13b71
push de
callba Function17d073
pop hl
pop bc
jr nc, .asm_13b0e
push bc
push hl
ld hl, PartySpecies
push bc
ld b, 0
add hl, bc
pop bc
ld a, [hl]
cp EGG
ld hl, String_13b6b
jr z, .asm_13b06
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
.asm_13b06
pop de
ld bc, PKMN_NAME_LENGTH
call CopyBytes
pop bc
.asm_13b0e
inc c
dec b
jr nz, .asm_13adc
ld de, PartyMonOT
ld a, [PartyCount]
ld b, a
ld c, 0
.asm_13b1b
push bc
call Function13b71
push de
callba Function17d073
pop hl
jr nc, .asm_13b34
ld d, h
ld e, l
ld hl, PlayerName
ld bc, $000b
call CopyBytes
.asm_13b34
pop bc
inc c
dec b
jr nz, .asm_13b1b
ld hl, PartyMon1Moves
ld a, [PartyCount]
ld b, a
.asm_13b40
push hl
ld c, NUM_MOVES
ld a, [hl]
and a
jr z, .asm_13b4b
cp NUM_ATTACKS + 1
jr c, .asm_13b4d
.asm_13b4b
ld [hl], POUND
.asm_13b4d
ld a, [hl]
and a
jr z, .asm_13b55
cp NUM_ATTACKS + 1
jr c, .asm_13b5c
.asm_13b55
xor a
ld [hli], a
dec c
jr nz, .asm_13b55
jr .asm_13b60
.asm_13b5c
inc hl
dec c
jr nz, .asm_13b4d
.asm_13b60
pop hl
push bc
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop bc
dec b
jr nz, .asm_13b40
ret
; 13b6b
String_13b6b: ; 13b6b
db "タマゴ@@@"
; 13b71
Function13b71: ; 13b71
push de
ld c, 1
ld b, 6
.asm_13b76
ld a, [de]
cp "@"
jr z, .asm_13b85
inc de
inc c
dec b
jr nz, .asm_13b76
dec c
dec de
ld a, "@"
ld [de], a
.asm_13b85
pop de
ret
; 13b87
GetSquareRoot: ; 13b87
; Return the square root of de in b.
; Rather than calculating the result, we take the index of the
; first value in a table of squares that isn't lower than de.
ld hl, Squares
ld b, 0
.loop
; Make sure we don't go past the end of the table.
inc b
ld a, b
cp $ff
ret z
; Iterate over the table until b**2 >= de.
ld a, [hli]
sub e
ld a, [hli]
sbc d
jr c, .loop
ret
Squares: ; 13b98
root set 1
rept $ff
dw root*root
root set root+1
endr
; 13d96
SECTION "bank5", ROMX, BANK[$5]
StopRTC: ; 14000
ld a, SRAM_ENABLE
ld [MBC3SRamEnable], a
call LatchClock
ld a, RTC_DH
ld [MBC3SRamBank], a
ld a, [MBC3RTC]
set 6, a ; halt
ld [MBC3RTC], a
call CloseSRAM
ret
; 14019
StartRTC: ; 14019
ld a, SRAM_ENABLE
ld [MBC3SRamEnable], a
call LatchClock
ld a, RTC_DH
ld [MBC3SRamBank], a
ld a, [MBC3RTC]
res 6, a ; halt
ld [MBC3RTC], a
call CloseSRAM
ret
; 14032
GetTimeOfDay:: ; 14032
; get time of day based on the current hour
ld a, [hHours] ; hour
ld hl, TimesOfDay
.check
; if we're within the given time period,
; get the corresponding time of day
cp [hl]
jr c, .match
; else, get the next entry
rept 2
inc hl
endr
; try again
jr .check
.match
; get time of day
inc hl
ld a, [hl]
ld [TimeOfDay], a
ret
; 14044
TimesOfDay: ; 14044
; hours for the time of day
; 04-09 morn | 10-17 day | 18-03 nite
db 04, NITE
db 10, MORN
db 18, DAY
db 24, NITE
db -1, MORN
; 1404e
Unknown_1404e: ; 1404e
db 20, 2
db 40, 0
db 60, 1
db -1, 0
; 14056
Function14056: ; 14056
call UpdateTime
ld hl, wRTC
ld a, [CurDay]
ld [hli], a
ld a, [hHours]
ld [hli], a
ld a, [hMinutes]
ld [hli], a
ld a, [hSeconds]
ld [hli], a
ret
; 1406a
Function1406a: ; 1406a
ld a, $a
ld [MBC3SRamEnable], a
call LatchClock
ld hl, MBC3RTC
ld a, $c
ld [MBC3SRamBank], a
res 7, [hl]
ld a, $0
ld [MBC3SRamBank], a
xor a
ld [$ac60], a
call CloseSRAM
ret
; 14089
StartClock:: ; 14089
call GetClock
call Function1409b
call FixDays
jr nc, .asm_14097
call Function6d3
.asm_14097
call StartRTC
ret
; 1409b
Function1409b: ; 1409b
ld hl, hRTCDayHi
bit 7, [hl]
jr nz, .asm_140a8
bit 6, [hl]
jr nz, .asm_140a8
xor a
ret
.asm_140a8
ld a, $80
call Function6d3
ret
; 140ae
Function140ae: ; 140ae
call Function6e3
ld c, a
and $c0
jr nz, .asm_140c8
ld a, c
and $20
jr z, .asm_140eb
call UpdateTime
ld a, [wRTC + 0]
ld b, a
ld a, [CurDay]
cp b
jr c, .asm_140eb
.asm_140c8
callba Function113da
callba Function170923
ld a, $5
call GetSRAMBank
ld a, [$aa8c]
inc a
ld [$aa8c], a
ld a, [$b2fa]
inc a
ld [$b2fa], a
call CloseSRAM
ret
.asm_140eb
xor a
ret
; 140ed
Function140ed:: ; 140ed
call GetClock
call FixDays
ld hl, hRTCSeconds
ld de, StartSecond
ld a, [StringBuffer2 + 3]
sub [hl]
dec hl
jr nc, .asm_14102
add 60
.asm_14102
ld [de], a
dec de
ld a, [StringBuffer2 + 2]
sbc [hl]
dec hl
jr nc, .asm_1410d
add 60
.asm_1410d
ld [de], a
dec de
ld a, [StringBuffer2 + 1]
sbc [hl]
dec hl
jr nc, .asm_14118
add 24
.asm_14118
ld [de], a
dec de
ld a, [StringBuffer2]
sbc [hl]
dec hl
jr nc, .asm_14128
add 140
ld c, 7
call SimpleDivide
.asm_14128
ld [de], a
ret
; 1412a
Function1412a: ; 1412a
ld a, $1
ld [rVBK], a
call Get2bpp
xor a
ld [rVBK], a
ret
; 14135
Function14135:: ; 14135
call GetPlayerSprite
ld a, [UsedSprites]
ld [$ffbd], a
ld a, [UsedSprites + 1]
ld [$ffbe], a
call Function143c8
ret
; 14146
Function14146: ; 14146
ld hl, wd13e
ld a, [hl]
push af
res 7, [hl]
set 6, [hl]
call RunCallback_04
pop af
ld [wd13e], a
ret
; 14157
Function14157: ; 14157
ld hl, wd13e
ld a, [hl]
push af
set 7, [hl]
res 6, [hl]
call RunCallback_04
pop af
ld [wd13e], a
ret
; 14168
Function14168:: ; 14168
call Function1416f
call RunCallback_04
ret
; 1416f
Function1416f: ; 1416f
xor a
ld bc, $0040
ld hl, UsedSprites
call ByteFill
call GetPlayerSprite
call AddMapSprites
call Function142db
ret
; 14183
GetPlayerSprite: ; 14183
; Get Chris or Kris's sprite.
ld hl, .Chris
ld a, [wd45b]
bit 2, a
jr nz, .go
ld a, [PlayerGender]
bit 0, a
jr z, .go
ld hl, .Kris
.go
ld a, [PlayerState]
ld c, a
.loop
ld a, [hli]
cp c
jr z, .asm_141ac
inc hl
cp $ff
jr nz, .loop
; Any player state not in the array defaults to Chris's sprite.
xor a ; ld a, PLAYER_NORMAL
ld [PlayerState], a
ld a, SPRITE_CHRIS
jr .asm_141ad
.asm_141ac
ld a, [hl]
.asm_141ad
ld [UsedSprites + 0], a
ld [PlayerStruct + 0], a
ld [MapObjects + OBJECT_LENGTH * 0 + 1], a
ret
.Chris
db PLAYER_NORMAL, SPRITE_CHRIS
db PLAYER_BIKE, SPRITE_CHRIS_BIKE
db PLAYER_SURF, SPRITE_SURF
db PLAYER_SURF_PIKA, SPRITE_SURFING_PIKACHU
db $ff
.Kris
db PLAYER_NORMAL, SPRITE_KRIS
db PLAYER_BIKE, SPRITE_KRIS_BIKE
db PLAYER_SURF, SPRITE_SURF
db PLAYER_SURF_PIKA, SPRITE_SURFING_PIKACHU
db $ff
; 141c9
AddMapSprites: ; 141c9
call GetMapPermission
call CheckOutdoorMap
jr z, .outdoor
call AddIndoorSprites
ret
.outdoor
call AddOutdoorSprites
ret
; 141d9
AddIndoorSprites: ; 141d9
ld hl, MapObjects + 1 * OBJECT_LENGTH + 1 ; sprite
ld a, 1
.loop
push af
ld a, [hl]
call AddSpriteGFX
ld de, OBJECT_LENGTH
add hl, de
pop af
inc a
cp NUM_OBJECTS
jr nz, .loop
ret
; 141ee
AddOutdoorSprites: ; 141ee
ld a, [MapGroup]
dec a
ld c, a
ld b, 0
ld hl, OutdoorSprites
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld c, $17
.loop
push bc
ld a, [hli]
call AddSpriteGFX
pop bc
dec c
jr nz, .loop
ret
; 14209
RunCallback_04: ; 14209
ld a, $4
call RunMapCallback
call Function1439b
call Function14215
ret
; 14215
Function14215: ; 14215
ld a, [wd13e]
bit 6, a
ret nz
ld c, $8
callba Function1442f
call GetMapPermission
call CheckOutdoorMap
ld c, $b
jr z, .asm_1422f
ld c, $a
.asm_1422f
callba Function1442f
ret
; 14236
SafeGetSprite: ; 14236
push hl
call GetSprite
pop hl
ret
; 1423c
GetSprite: ; 1423c
call GetMonSprite
ret c
ld hl, SpriteHeaders ; address
dec a
ld c, a
ld b, 0
ld a, 6
call AddNTimes
; load the address into de
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
; load the length into c
ld a, [hli]
swap a
ld c, a
; load the sprite bank into both b and h
ld b, [hl]
ld a, [hli]
; load the sprite type into l
ld l, [hl]
ld h, a
ret
; 14259
GetMonSprite: ; 14259
; Return carry if a monster sprite was loaded.
cp SPRITE_POKEMON
jr c, .Normal
cp SPRITE_DAYCARE_MON_1
jr z, .wBreedMon1
cp SPRITE_DAYCARE_MON_2
jr z, .wBreedMon2
cp SPRITE_VARS
jr nc, .Variable
jr .Icon
.Normal
and a
ret
.Icon
sub SPRITE_POKEMON
ld e, a
ld d, 0
ld hl, SpriteMons
add hl, de
ld a, [hl]
jr .Mon
.wBreedMon1
ld a, [wBreedMon1Species]
jr .Mon
.wBreedMon2
ld a, [wBreedMon2Species]
.Mon
ld e, a
and a
jr z, .NoBreedmon
callba Function8e82b
ld l, 1
ld h, 0
scf
ret
.Variable
sub SPRITE_VARS
ld e, a
ld d, 0
ld hl, VariableSprites
add hl, de
ld a, [hl]
and a
jp nz, GetMonSprite
.NoBreedmon
ld a, 1
ld l, 1
ld h, 0
and a
ret
; 142a7
Function142a7:: ; 142a7
cp SPRITE_POKEMON
jr nc, .is_pokemon
push hl
push bc
ld hl, SpriteHeaders + 4 ; type
dec a
ld c, a
ld b, 0
ld a, 6
call AddNTimes
ld a, [hl]
pop bc
pop hl
cp 3
jr nz, .is_pokemon
scf
ret
.is_pokemon
and a
ret
; 142c4
_GetSpritePalette:: ; 142c4
ld a, c
call GetMonSprite
jr c, .is_pokemon
ld hl, SpriteHeaders + 5 ; palette
dec a
ld c, a
ld b, 0
ld a, 6
call AddNTimes
ld c, [hl]
ret
.is_pokemon
xor a
ld c, a
ret
; 142db
Function142db: ; 142db
call LoadSpriteGFX
call SortUsedSprites
call ArrangeUsedSprites
ret
; 142e5
AddSpriteGFX: ; 142e5
; Add any new sprite ids to a list of graphics to be loaded.
; Return carry if the list is full.
push hl
push bc
ld b, a
ld hl, UsedSprites + 2
ld c, SPRITE_GFX_LIST_CAPACITY - 1
.loop
ld a, [hl]
cp b
jr z, .exists
and a
jr z, .new
rept 2
inc hl
endr
dec c
jr nz, .loop
pop bc
pop hl
scf
ret
.exists
pop bc
pop hl
and a
ret
.new
ld [hl], b
pop bc
pop hl
and a
ret
; 14306
LoadSpriteGFX: ; 14306
; Bug: b is not preserved, so
; it's useless as a next count.
ld hl, UsedSprites
ld b, SPRITE_GFX_LIST_CAPACITY
.loop
ld a, [hli]
and a
jr z, .done
push hl
call .LoadSprite
pop hl
ld [hli], a
dec b
jr nz, .loop
.done
ret
.LoadSprite
call GetSprite
ld a, l
ret
; 1431e
SortUsedSprites: ; 1431e
; Bubble-sort sprites by type.
; Run backwards through UsedSprites to find the last one.
ld c, SPRITE_GFX_LIST_CAPACITY
ld de, UsedSprites + (SPRITE_GFX_LIST_CAPACITY - 1) * 2
.FindLastSprite
ld a, [de]
and a
jr nz, .FoundLastSprite
rept 2
dec de
endr
dec c
jr nz, .FindLastSprite
.FoundLastSprite
dec c
jr z, .quit
; If the length of the current sprite is
; higher than a later one, swap them.
inc de
ld hl, UsedSprites + 1
.CheckSprite
push bc
push de
push hl
.CheckFollowing
ld a, [de]
cp [hl]
jr nc, .loop
; Swap the two sprites.
ld b, a
ld a, [hl]
ld [hl], b
ld [de], a
dec de
dec hl
ld a, [de]
ld b, a
ld a, [hl]
ld [hl], b
ld [de], a
inc de
inc hl
; Keep doing this until everything's in order.
.loop
rept 2
dec de
endr
dec c
jr nz, .CheckFollowing
pop hl
rept 2
inc hl
endr
pop de
pop bc
dec c
jr nz, .CheckSprite
.quit
ret
; 14355
ArrangeUsedSprites: ; 14355
; Get the length of each sprite and space them out in VRAM.
; Crystal introduces a second table in VRAM bank 0.
ld hl, UsedSprites
ld c, SPRITE_GFX_LIST_CAPACITY
ld b, 0
.FirstTableLength
; Keep going until the end of the list.
ld a, [hli]
and a
jr z, .quit
ld a, [hl]
call GetSpriteLength
; Spill over into the second table after $80 tiles.
add b
cp $80
jr z, .loop
jr nc, .SecondTable
.loop
ld [hl], b
inc hl
ld b, a
; Assumes the next table will be reached before c hits 0.
dec c
jr nz, .FirstTableLength
.SecondTable
; The second tile table starts at tile $80.
ld b, $80
dec hl
.SecondTableLength
; Keep going until the end of the list.
ld a, [hli]
and a
jr z, .quit
ld a, [hl]
call GetSpriteLength
; There are only two tables, so don't go any further than that.
add b
jr c, .quit
ld [hl], b
ld b, a
inc hl
dec c
jr nz, .SecondTableLength
.quit
ret
; 14386
GetSpriteLength: ; 14386
; Return the length of sprite type a in tiles.
cp WALKING_SPRITE
jr z, .AnyDirection
cp STANDING_SPRITE
jr z, .AnyDirection
cp STILL_SPRITE
jr z, .OneDirection
ld a, 12
ret
.AnyDirection
ld a, 12
ret
.OneDirection
ld a, 4
ret
; 1439b
Function1439b: ; 1439b
ld hl, UsedSprites
ld c, SPRITE_GFX_LIST_CAPACITY
.asm_143a0
ld a, [wd13e]
res 5, a
ld [wd13e], a
ld a, [hli]
and a
jr z, .asm_143c7
ld [$ffbd], a
ld a, [hli]
ld [$ffbe], a
bit 7, a
jr z, .asm_143bd
ld a, [wd13e]
set 5, a
ld [wd13e], a
.asm_143bd
push bc
push hl
call Function143c8
pop hl
pop bc
dec c
jr nz, .asm_143a0
.asm_143c7
ret
; 143c8
Function143c8: ; 143c8
ld a, [$ffbd]
call SafeGetSprite
ld a, [$ffbe]
call Function14406
push hl
push de
push bc
ld a, [wd13e]
bit 7, a
jr nz, .asm_143df
call Function14418
.asm_143df
pop bc
ld l, c
ld h, $0
rept 4
add hl, hl
endr
pop de
add hl, de
ld d, h
ld e, l
pop hl
ld a, [wd13e]
bit 5, a
jr nz, .asm_14405
bit 6, a
jr nz, .asm_14405
ld a, [$ffbd]
call Function142a7
jr c, .asm_14405
ld a, h
add $8
ld h, a
call Function14418
.asm_14405
ret
; 14406
Function14406: ; 14406
and $7f
ld l, a
ld h, $0
rept 4
add hl, hl
endr
ld a, l
add $0
ld l, a
ld a, h
adc $80
ld h, a
ret
; 14418
Function14418: ; 14418
ld a, [rVBK]
push af
ld a, [wd13e]
bit 5, a
ld a, $1
jr z, .asm_14426
ld a, $0
.asm_14426
ld [rVBK], a
call Get2bpp
pop af
ld [rVBK], a
ret
; 1442f
Function1442f:: ; 1442f
ld a, c
ld bc, 6
ld hl, EmotesPointers
call AddNTimes
ld e, [hl]
inc hl
ld d, [hl]
inc hl
ld c, [hl]
swap c
inc hl
ld b, [hl]
inc hl
ld a, [hli]
ld h, [hl]
ld l, a
ld a, c
and a
ret z
call Function1412a
ret
; 1444d
EmotesPointers: ; 144d
; dw source address
; db length, bank
; dw dest address
dw ShockEmote
db $40, BANK(ShockEmote)
dw $8f80
dw QuestionEmote
db $40, BANK(QuestionEmote)
dw $8f80
dw HappyEmote
db $40, BANK(HappyEmote)
dw $8f80
dw SadEmote
db $40, BANK(SadEmote)
dw $8f80
dw HeartEmote
db $40, BANK(HeartEmote)
dw $8f80
dw BoltEmote
db $40, BANK(BoltEmote)
dw $8f80
dw SleepEmote
db $40, BANK(SleepEmote)
dw $8f80
dw FishEmote
db $40, BANK(FishEmote)
dw $8f80
dw FishingRodGFX + $00
db $10, BANK(FishingRodGFX)
dw $8fc0
dw FishingRodGFX + $10
db $20, BANK(FishingRodGFX)
dw $8fc0
dw FishingRodGFX + $30
db $20, BANK(FishingRodGFX)
dw $8fe0
dw FishingRodGFX + $50
db $10, BANK(FishingRodGFX)
dw $8fe0
; 14495
SpriteMons: ; 14495
db UNOWN
db GEODUDE
db GROWLITHE
db WEEDLE
db SHELLDER
db ODDISH
db GENGAR
db ZUBAT
db MAGIKARP
db SQUIRTLE
db TOGEPI
db BUTTERFREE
db DIGLETT
db POLIWAG
db PIKACHU
db CLEFAIRY
db CHARMANDER
db JYNX
db STARMIE
db BULBASAUR
db JIGGLYPUFF
db GRIMER
db EKANS
db PARAS
db TENTACOOL
db TAUROS
db MACHOP
db VOLTORB
db LAPRAS
db RHYDON
db MOLTRES
db SNORLAX
db GYARADOS
db LUGIA
db HO_OH
; 144b8
OutdoorSprites: ; 144b8
; Valid sprite IDs for each map group.
dw Group1Sprites
dw Group2Sprites
dw Group3Sprites
dw Group4Sprites
dw Group5Sprites
dw Group6Sprites
dw Group7Sprites
dw Group8Sprites
dw Group9Sprites
dw Group10Sprites
dw Group11Sprites
dw Group12Sprites
dw Group13Sprites
dw Group14Sprites
dw Group15Sprites
dw Group16Sprites
dw Group17Sprites
dw Group18Sprites
dw Group19Sprites
dw Group20Sprites
dw Group21Sprites
dw Group22Sprites
dw Group23Sprites
dw Group24Sprites
dw Group25Sprites
dw Group26Sprites
; 144ec
Group13Sprites: ; 144ec
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_YOUNGSTER
db SPRITE_BLUE
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_SWIMMER_GIRL
db SPRITE_SWIMMER_GUY
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 14503
Group23Sprites: ; 14503
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_YOUNGSTER
db SPRITE_BLUE
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_SWIMMER_GIRL
db SPRITE_SWIMMER_GUY
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 1451a
Group14Sprites: ; 1451a
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_YOUNGSTER
db SPRITE_BLUE
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_SWIMMER_GIRL
db SPRITE_SWIMMER_GUY
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 14531
Group6Sprites: ; 14531
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_YOUNGSTER
db SPRITE_BLUE
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_SWIMMER_GIRL
db SPRITE_SWIMMER_GUY
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 14548
Group7Sprites: ; 14548
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_COOLTRAINER_M
db SPRITE_SUPER_NERD
db SPRITE_COOLTRAINER_F
db SPRITE_FISHER
db SPRITE_YOUNGSTER
db SPRITE_LASS
db SPRITE_POKEFAN_M
db SPRITE_ROCKET
db SPRITE_MISTY
db SPRITE_POKE_BALL
db SPRITE_SLOWPOKE
; 1455f
Group25Sprites: ; 1455f
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_COOLTRAINER_M
db SPRITE_SUPER_NERD
db SPRITE_COOLTRAINER_F
db SPRITE_FISHER
db SPRITE_YOUNGSTER
db SPRITE_LASS
db SPRITE_POKEFAN_M
db SPRITE_ROCKET
db SPRITE_MISTY
db SPRITE_POKE_BALL
db SPRITE_SLOWPOKE
; 14576
Group21Sprites: ; 14576
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_FISHER
db SPRITE_POLIWAG
db SPRITE_TEACHER
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_LASS
db SPRITE_BIKER
db SPRITE_SILVER
db SPRITE_BLUE
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 1458d
Group18Sprites: ; 1458d
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_POKEFAN_M
db SPRITE_MACHOP
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_FISHER
db SPRITE_TEACHER
db SPRITE_SUPER_NERD
db SPRITE_BIG_SNORLAX
db SPRITE_BIKER
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 145a4
Group12Sprites: ; 145a4
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_POKEFAN_M
db SPRITE_MACHOP
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_FISHER
db SPRITE_TEACHER
db SPRITE_SUPER_NERD
db SPRITE_BIG_SNORLAX
db SPRITE_BIKER
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 145bb
Group17Sprites: ; 145bb
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_POKEFAN_M
db SPRITE_MACHOP
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_FISHER
db SPRITE_TEACHER
db SPRITE_SUPER_NERD
db SPRITE_BIG_SNORLAX
db SPRITE_BIKER
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 145d2
Group16Sprites: ; 145d2
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_POKEFAN_M
db SPRITE_BUENA
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_FISHER
db SPRITE_TEACHER
db SPRITE_SUPER_NERD
db SPRITE_MACHOP
db SPRITE_BIKER
db SPRITE_POKE_BALL
db SPRITE_BOULDER
; 145e9
Group24Sprites: ; 145e9
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_SILVER
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_COOLTRAINER_M
db SPRITE_YOUNGSTER
db SPRITE_MONSTER
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 14600
Group26Sprites: ; 14600
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_SILVER
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_COOLTRAINER_M
db SPRITE_YOUNGSTER
db SPRITE_MONSTER
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 14617
Group19Sprites: ; 14617
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_SILVER
db SPRITE_TEACHER
db SPRITE_FISHER
db SPRITE_COOLTRAINER_M
db SPRITE_YOUNGSTER
db SPRITE_MONSTER
db SPRITE_GRAMPS
db SPRITE_BUG_CATCHER
db SPRITE_COOLTRAINER_F
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 1462e
Group10Sprites: ; 1462e
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_FISHER
db SPRITE_LASS
db SPRITE_OFFICER
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_COOLTRAINER_M
db SPRITE_BUG_CATCHER
db SPRITE_SUPER_NERD
db SPRITE_WEIRD_TREE
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 14645
Group4Sprites: ; 14645
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_FISHER
db SPRITE_LASS
db SPRITE_OFFICER
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_COOLTRAINER_M
db SPRITE_BUG_CATCHER
db SPRITE_SUPER_NERD
db SPRITE_WEIRD_TREE
db SPRITE_POKE_BALL
db SPRITE_FRUIT_TREE
; 1465c
Group8Sprites: ; 1465c
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_KURT_OUTSIDE
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_OFFICER
db SPRITE_POKEFAN_M
db SPRITE_BLACK_BELT
db SPRITE_TEACHER
db SPRITE_AZALEA_ROCKET
db SPRITE_LASS
db SPRITE_SILVER
db SPRITE_FRUIT_TREE
db SPRITE_SLOWPOKE
; 14673
Group11Sprites: ; 14673
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_POKE_BALL
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_OFFICER
db SPRITE_POKEFAN_M
db SPRITE_DAYCARE_MON_1
db SPRITE_COOLTRAINER_F
db SPRITE_ROCKET
db SPRITE_LASS
db SPRITE_DAYCARE_MON_2
db SPRITE_FRUIT_TREE
db SPRITE_SLOWPOKE
; 1468a
Group22Sprites: ; 1468a
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_STANDING_YOUNGSTER
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_OLIVINE_RIVAL
db SPRITE_POKEFAN_M
db SPRITE_LASS
db SPRITE_BUENA
db SPRITE_SWIMMER_GIRL
db SPRITE_SAILOR
db SPRITE_POKEFAN_F
db SPRITE_SUPER_NERD
db SPRITE_TAUROS
db SPRITE_FRUIT_TREE
db SPRITE_ROCK
; 146a1
Group1Sprites: ; 146a1
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_STANDING_YOUNGSTER
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_OLIVINE_RIVAL
db SPRITE_POKEFAN_M
db SPRITE_LASS
db SPRITE_BUENA
db SPRITE_SWIMMER_GIRL
db SPRITE_SAILOR
db SPRITE_POKEFAN_F
db SPRITE_SUPER_NERD
db SPRITE_TAUROS
db SPRITE_FRUIT_TREE
db SPRITE_ROCK
; 146b8
Group9Sprites: ; 146b8
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_LANCE
db SPRITE_GRAMPS
db SPRITE_SUPER_NERD
db SPRITE_COOLTRAINER_F
db SPRITE_FISHER
db SPRITE_COOLTRAINER_M
db SPRITE_LASS
db SPRITE_YOUNGSTER
db SPRITE_GYARADOS
db SPRITE_FRUIT_TREE
db SPRITE_POKE_BALL
; 146cf
Group2Sprites: ; 146cf
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_LASS
db SPRITE_SUPER_NERD
db SPRITE_COOLTRAINER_M
db SPRITE_POKEFAN_M
db SPRITE_BLACK_BELT
db SPRITE_COOLTRAINER_F
db SPRITE_FISHER
db SPRITE_FRUIT_TREE
db SPRITE_POKE_BALL
; 146e6
Group5Sprites: ; 146e6
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_GRAMPS
db SPRITE_YOUNGSTER
db SPRITE_LASS
db SPRITE_SUPER_NERD
db SPRITE_COOLTRAINER_M
db SPRITE_POKEFAN_M
db SPRITE_BLACK_BELT
db SPRITE_COOLTRAINER_F
db SPRITE_FISHER
db SPRITE_FRUIT_TREE
db SPRITE_POKE_BALL
; 146fd
Group3Sprites: ; 146fd
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_GAMEBOY_KID
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_LASS
db SPRITE_POKEFAN_F
db SPRITE_TEACHER
db SPRITE_YOUNGSTER
db SPRITE_GROWLITHE
db SPRITE_POKEFAN_M
db SPRITE_ROCKER
db SPRITE_FISHER
db SPRITE_SCIENTIST
db SPRITE_POKE_BALL
db SPRITE_BOULDER
; 14714
Group15Sprites: ; 14714
db SPRITE_SUICUNE
db SPRITE_SILVER_TROPHY
db SPRITE_FAMICOM
db SPRITE_POKEDEX
db SPRITE_WILL
db SPRITE_KAREN
db SPRITE_NURSE
db SPRITE_OLD_LINK_RECEPTIONIST
db SPRITE_BIG_LAPRAS
db SPRITE_BIG_ONIX
db SPRITE_SUDOWOODO
db SPRITE_BIG_SNORLAX
db SPRITE_SAILOR
db SPRITE_FISHING_GURU
db SPRITE_GENTLEMAN
db SPRITE_SUPER_NERD
db SPRITE_HO_OH
db SPRITE_TEACHER
db SPRITE_COOLTRAINER_F
db SPRITE_YOUNGSTER
db SPRITE_FAIRY
db SPRITE_POKE_BALL
db SPRITE_ROCK
; 1472b
Group20Sprites: ; 1472b
db SPRITE_OAK
db SPRITE_FISHER
db SPRITE_TEACHER
db SPRITE_TWIN
db SPRITE_POKEFAN_M
db SPRITE_GRAMPS
db SPRITE_FAIRY
db SPRITE_SILVER
db SPRITE_FISHING_GURU
db SPRITE_POKE_BALL
db SPRITE_POKEDEX
; 14736
SpriteHeaders: ; 14736
INCLUDE "gfx/overworld/sprite_headers.asm"
; 1499a
Function1499a:: ; 1499a
ld a, [StandingTile]
cp $60
jr z, .asm_149ad
cp $68
jr z, .asm_149ad
and $f0
cp $70
jr z, .asm_149ad
and a
ret
.asm_149ad
scf
ret
; 149af
Function149af:: ; 149af
ld a, [StandingTile]
cp $70
jr z, .asm_149c4
cp $76
jr z, .asm_149c4
cp $78
jr z, .asm_149c4
cp $7e
jr z, .asm_149c4
scf
ret
.asm_149c4
xor a
ret
; 149c6
CheckWarpCollision: ; 149c6
ld de, 1
ld hl, .blocks
ld a, [StandingTile]
call IsInArray
ret
; 149d3
.blocks: ; 149d3
db $71 ; door
db $79
db $7a ; stairs
db $73
db $7b ; cave entrance
db $74
db $7c ; warp pad
db $75
db $7d
db -1
; 149dd
Function149dd:: ; 149dd
ld a, [StandingTile]
ld hl, .blocks
ld de, 1
call IsInArray
ret
; 149ea
.blocks: ; 149ea
db $08
db $18 ; tall grass
db $14 ; tall grass
db $28
db $29
db $48
db $49
db $4a
db $4b
db $4c
db -1
; 149f5
CheckCutCollision: ; 149f5
ld a, c
ld hl, .blocks
ld de, 1
call IsInArray
ret
; 14a00
.blocks: ; 14a00
db $12 ; cut tree
db $1a ; cut tree
db $10 ; tall grass
db $18 ; tall grass
db $14 ; tall grass
db $1c ; tall grass
db -1
; 14a07
Function14a07:: ; 14a07
ld a, [StandingTile]
ld de, $001f
cp $71 ; door
ret z
ld de, $0013
cp $7c ; warp pad
ret z
ld de, $0023
ret
; 14a1a
Function14a1a: ; 14a1a
call Function1d6e
callba Function5e9a
call SpeechTextBox
call DrawOnMap
callba Function4cf45
ld hl, UnknownText_0x15283
call SaveTheGame_yesorno
jr nz, .refused
call CheckForExistingSaveFile
jr c, .refused
call SetWRAMStateForSave
call _SavingDontTurnOffThePower
call ClearWRAMStateAfterSave
call ExitMenu
and a
ret
.refused
call ExitMenu
call Functiond90
callba Function4cf45
scf
ret
Function14a58: ; 14a58
call SetWRAMStateForSave
callba Function14056
callba Function1050d9
call SavePartyData
call Function14e13
call LoadSavedPartyData
call Function14e8b
callba Function44725
callba Function1406a
call ClearWRAMStateAfterSave
ret
; 14a83
Function14a83: ; 14a83 (5:4a83)
push de
ld hl, UnknownText_0x152a1
call MenuTextBox
call YesNoBox
call ExitMenu
jr c, .refused
call CheckForExistingSaveFile
jr c, .refused
call SetWRAMStateForSave
call SavingDontTurnOffThePower
call Function14e0c
pop de
ld a, e
ld [wCurBox], a
call Function15021
call SavedTheGame
call ClearWRAMStateAfterSave
and a
ret
.refused
pop de
ret
Function14ab2: ; 14ab2
call CheckForExistingSaveFile
jr c, .refused
call SetWRAMStateForSave
call _SavingDontTurnOffThePower
call ClearWRAMStateAfterSave
and a
.refused
ret
; 14ac2
Function14ac2: ; 14ac2
call SetWRAMStateForSave
push de
call Function14e0c
pop de
ld a, e
ld [wCurBox], a
call Function15021
call ClearWRAMStateAfterSave
ret
; 14ad5
Function14ad5: ; 14ad5
call SetWRAMStateForSave
push de
call Function14e0c
pop de
ld a, e
ld [wCurBox], a
ld a, $1
ld [wcfcd], a
callba Function14056
callba Function1050d9
call Function14da9
call SaveOptionsSelection
call SavePlayerData
call SavePartyData
call Function14e13
call Function14e2d
call LoadSavedOptions
call LoadSavedPlayerData
call LoadSavedPartyData
call Function14e8b
callba Function44725
callba Function106187
callba Function1406a
call Function15021
call ClearWRAMStateAfterSave
ld de, SFX_SAVE
call PlaySFX
ld c, $18
call DelayFrames
ret
; 14b34
Function14b34: ; 14b34
ld hl, UnknownText_0x152a6
call MenuTextBox
call YesNoBox
call ExitMenu
jr c, .asm_14b52
call CheckForExistingSaveFile
jr c, .asm_14b52
call SetWRAMStateForSave
call _SavingDontTurnOffThePower
call ClearWRAMStateAfterSave
and a
ret
.asm_14b52
scf
ret
; 14b54
SetWRAMStateForSave: ; 14b54
ld a, $1
ld [wc2cd], a
ret
; 14b5a
ClearWRAMStateAfterSave: ; 14b5a
xor a
ld [wc2cd], a
ret
; 14b5f
Function14b5f: ; 14b5f
ld a, $1
call GetSRAMBank
ld hl, $bdd9
ld de, $be3b
ld bc, $0b1a
.loop
ld a, [hld]
ld [de], a
dec de
dec bc
ld a, c
or b
jr nz, .loop
ld hl, OverworldMap
ld de, $b2c0
ld bc, 7 * 14
call CopyBytes
call CloseSRAM
ret
; 14b85
Function14b85: ; 14b85
call Function14c10
ret
; 14b89
CheckForExistingSaveFile: ; 14b89
ld a, [wcfcd]
and a
jr z, .getridofpreviousplayersave
call Function14bcb
jr z, .yoursavefile
ld hl, UnknownText_0x15297
call SaveTheGame_yesorno
jr nz, .refused
jr .getridofpreviousplayersave
.yoursavefile
ld hl, UnknownText_0x15292
call SaveTheGame_yesorno
jr nz, .refused
jr .ok
.getridofpreviousplayersave
call GetRidOfPreviousPlayersSave
.ok
and a
ret
.refused
scf
ret
; 14baf
SaveTheGame_yesorno: ; 14baf
ld b, BANK(UnknownText_0x15283)
call MapTextbox
call LoadMenuTextBox
lb bc, 0, 7
call PlaceYesNoBox
ld a, [wcfa9]
dec a
call WriteBackup
push af
call Functiond90
pop af
and a
ret
; 14bcb
Function14bcb: ; 14bcb
ld a, $1
call GetSRAMBank
ld hl, $a009
ld a, [hli]
ld c, [hl]
ld b, a
call CloseSRAM
ld a, [PlayerID]
cp b
ret nz
ld a, [PlayerID + 1]
cp c
ret
; 14be3
_SavingDontTurnOffThePower: ; 14be3
call SavingDontTurnOffThePower
SavedTheGame: ; 14be6
call Function14c10
; wait 32 frames
ld c, $20
call DelayFrames
; copy the original text speed setting to the stack
ld a, [Options]
push af
; set text speed super slow
ld a, 3
ld [Options], a
; <PLAYER> saved the game!
ld hl, UnknownText_0x1528d
call PrintText
; restore the original text speed setting
pop af
ld [Options], a
ld de, SFX_SAVE
call WaitPlaySFX
call WaitSFX
; wait 30 frames
ld c, $1e
call DelayFrames
ret
; 14c10
Function14c10: ; 14c10
ld a, 1
ld [wcfcd], a
callba Function14056
callba Function1050d9
call Function14da9
call SaveOptionsSelection
call SavePlayerData
call SavePartyData
call Function14e0c
call Function14e13
call Function14e2d
call LoadSavedOptions
call LoadSavedPlayerData
call LoadSavedPartyData
call Function14e8b
call Function14c6b
callba Function44725
callba Function106187
callba Function1406a
ld a, $1
call GetSRAMBank
ld a, [$be45]
cp $4
jr nz, .asm_14c67
xor a
ld [$be45], a
.asm_14c67
call CloseSRAM
ret
; 14c6b
Function14c6b: ; 14c6b
call Function14c90
ld a, $0
call GetSRAMBank
ld a, [$bf10]
ld e, a
ld a, [$bf11]
ld d, a
or e
jr z, .asm_14c84
ld a, e
sub l
ld a, d
sbc h
jr c, .asm_14c8c
.asm_14c84
ld a, l
ld [$bf10], a
ld a, h
ld [$bf11], a
.asm_14c8c
call CloseSRAM
ret
; 14c90
Function14c90: ; 14c90
ld hl, wc000
.asm_14c93
ld a, [hl]
or a
ret nz
inc hl
jr .asm_14c93
; 14c99
SavingDontTurnOffThePower: ; 14c99
; Prevent joypad interrupts
xor a
ld [hJoypadReleased], a
ld [hJoypadPressed], a
ld [hJoypadSum], a
ld [hJoypadDown], a
; Save the text speed setting to the stack
ld a, [Options]
push af
; Set the text speed to super slow
ld a, $3
ld [Options], a
; SAVING... DON'T TURN OFF THE POWER.
ld hl, UnknownText_0x15288
call PrintText
; Restore the text speed setting
pop af
ld [Options], a
; Wait for 16 frames
ld c, $10
call DelayFrames
ret
; 14cbb
GetRidOfPreviousPlayersSave: ; 14cbb
call Function151fb
call Function14d06
call Function14ce2
call Function14cf4
call Function14d68
call Function14d5c
ld a, $0
call GetSRAMBank
xor a
ld [$bf10], a
ld [$bf11], a
call CloseSRAM
ld a, $1
ld [wd4b4], a
ret
; 14ce2
Function14ce2: ; 14ce2
ld a, $1
call GetSRAMBank
ld hl, $b260
ld bc, $0060
xor a
call ByteFill
jp CloseSRAM
; 14cf4
Function14cf4: ; 14cf4
ld a, $0
call GetSRAMBank
ld hl, $abe4
ld bc, $004c
xor a
call ByteFill
jp CloseSRAM
; 14d06
Function14d06: ; 14d06
ld a, $1
call GetSRAMBank
ld hl, $b2c0
ld bc, $0b7c
xor a
call ByteFill
jp CloseSRAM
; 14d18
Function14d18: ; 14d18
; copy Unknown_14d2c to SRA4:a007
ld a, $4
call GetSRAMBank
ld hl, Unknown_14d2c
ld de, $a007
ld bc, 48
call CopyBytes
jp CloseSRAM
; 14d2c
Unknown_14d2c: ; 14d2c
db $0d, $02, $00, $05, $00, $00
db $22, $02, $01, $05, $00, $00
db $03, $04, $05, $08, $03, $05
db $0e, $06, $03, $02, $00, $00
db $39, $07, $07, $04, $00, $05
db $04, $07, $01, $05, $00, $00
db $0f, $05, $14, $07, $05, $05
db $11, $0c, $0c, $06, $06, $04
; 14d5c
Function14d5c: ; 14d5c
ld a, $1
call GetSRAMBank
xor a
ld [$be45], a
jp CloseSRAM
; 14d68
Function14d68: ; 14d68
call Function1509a
ret
; 14d6c
Function14d6c: ; 14d6c
ld a, $4
call GetSRAMBank
ld a, [$a60b]
ld b, $0
and a
jr z, .ok
ld b, $2
.ok
ld a, b
ld [$a60b], a
call CloseSRAM
ret
; 14d83
Function14d83: ; 14d83
ld a, $4
call GetSRAMBank
xor a
ld [$a60c], a
ld [$a60d], a
call CloseSRAM
ret
; 14d93
Function14d93: ; 14d93
ld a, $7
call GetSRAMBank
xor a
ld [$a000], a
call CloseSRAM
ret
; 14da0
Function14da0: ; 14da0
ld a, [wd4b4]
and a
ret nz
call GetRidOfPreviousPlayersSave
ret
; 14da9
Function14da9: ; 14da9
ld a, $1
call GetSRAMBank
ld a, 99
ld [$a008], a
ld a, " "
ld [$ad0f], a
jp CloseSRAM
; 14dbb
SaveOptionsSelection: ; 14dbb
; Copy Options to SRA1:a000
ld a, $1
call GetSRAMBank
ld hl, Options
ld de, $a000
ld bc, OptionsEnd - Options
call CopyBytes
ld a, [Options]
and $ef
ld [$a000], a
jp CloseSRAM
; 14dd7
SavePlayerData: ; 14dd7
; Copy 2122 bytes starting at PlayerID to SRA1:a009
ld a, $1
call GetSRAMBank
ld hl, PlayerID
ld de, $a009
ld bc, VisitedSpawns - PlayerID
call CopyBytes
ld hl, VisitedSpawns
ld de, $a833
ld bc, PartyCount - VisitedSpawns
call CopyBytes
jp CloseSRAM
; 14df7
SavePartyData: ; 14df7
; Copy your party to SRA1:a865.
ld a, $1
call GetSRAMBank
ld hl, PartyCount
ld de, $a865
ld bc, wdff5 - PartyCount
call CopyBytes
call CloseSRAM
ret
; 14e0c
Function14e0c: ; 14e0c
call Function150d8
call Function150f9
ret
; 14e13
Function14e13: ; 14e13
ld hl, $a009
ld bc, $0b7a
ld a, $1
call GetSRAMBank
call Function15273
ld a, e
ld [$ad0d], a
ld a, d
ld [$ad0e], a
call CloseSRAM
ret
; 14e2d
Function14e2d: ; 14e2d
ld a, $0
call GetSRAMBank
ld a, 99
ld [$b208], a
ld a, " "
ld [$bf0f], a
call CloseSRAM
ret
; 14e40
LoadSavedOptions: ; 14e40
ld a, $0
call GetSRAMBank
ld hl, Options
ld de, $b200
ld bc, OptionsEnd - Options
call CopyBytes
call CloseSRAM
ret
; 14e55
LoadSavedPlayerData: ; 14e55
ld a, $0
call GetSRAMBank
ld hl, PlayerID
ld de, $b209
ld bc, VisitedSpawns - PlayerID
call CopyBytes
ld hl, VisitedSpawns
ld de, $ba33
ld bc, PartyCount - VisitedSpawns
call CopyBytes
call CloseSRAM
ret
; 14e76
LoadSavedPartyData: ; 14e76
ld a, $0
call GetSRAMBank
ld hl, PartyCount
ld de, $ba65
ld bc, wdff5 - PartyCount
call CopyBytes
call CloseSRAM
ret
; 14e8b
Function14e8b: ; 14e8b
ld hl, $b209
ld bc, $0b7a
ld a, $0
call GetSRAMBank
call Function15273
ld a, e
ld [$bf0d], a
ld a, d
ld [$bf0e], a
call CloseSRAM
ret
; 14ea5
TryLoadSaveFile: ; 14ea5 (5:4ea5)
call Function15028
jr nz, .trytowrite
call Function14fd7
call Function1500c
call Function15021
callba Function44745
callba Function10619d
callba Function1050ea
call Function14e2d
call LoadSavedOptions
call LoadSavedPlayerData
call LoadSavedPartyData
call Function14e8b
and a
ret
.trytowrite
call Function1507c
jr nz, .corrupt
call Function15046
call Function15067
call Function15021
callba Function44745
callba Function10619d
callba Function1050ea
call Function14da9
call SaveOptionsSelection
call SavePlayerData
call SavePartyData
call Function14e13
and a
ret
.corrupt
ld a, [Options]
push af
set 4, a
ld [Options], a
ld hl, UnknownText_0x1529c
call PrintText
pop af
ld [Options], a
scf
ret
Function14f1c: ; 14f1c
xor a
ld [wcfcd], a
call Function14f84
ld a, [wcfcd]
and a
jr z, .asm_14f46
ld a, $1
call GetSRAMBank
ld hl, $a044
ld de, StartDay
ld bc, $0008
call CopyBytes
ld hl, $a3da
ld de, StatusFlags
ld a, [hl]
ld [de], a
call CloseSRAM
ret
.asm_14f46
call Function14faf
ld a, [wcfcd]
and a
jr z, .asm_14f6c
ld a, $0
call GetSRAMBank
ld hl, $b244
ld de, StartDay
ld bc, 8
call CopyBytes
ld hl, $b5da
ld de, StatusFlags
ld a, [hl]
ld [de], a
call CloseSRAM
ret
.asm_14f6c
ld hl, DefaultOptions
ld de, Options
ld bc, OptionsEnd - Options
call CopyBytes
call Function67e
ret
; 14f7c
DefaultOptions: ; 14f7c
db $03 ; mid text speed
db $00
db $00 ; frame 0
db $01
db $40 ; gb printer: normal brightness
db $01 ; menu account on
db $00
db $00
; 14f84
Function14f84: ; 14f84
ld a, $1
call GetSRAMBank
ld a, [$a008]
cp 99
jr nz, .nope
ld a, [$ad0f]
cp " "
jr nz, .nope
ld hl, $a000
ld de, Options
ld bc, OptionsEnd - Options
call CopyBytes
call CloseSRAM
ld a, $1
ld [wcfcd], a
.nope
call CloseSRAM
ret
; 14faf
Function14faf: ; 14faf
ld a, $0
call GetSRAMBank
ld a, [$b208]
cp 99
jr nz, .nope
ld a, [$bf0f]
cp " "
jr nz, .nope
ld hl, $b200
ld de, Options
ld bc, OptionsEnd - Options
call CopyBytes
ld a, $2
ld [wcfcd], a
.nope
call CloseSRAM
ret
; 14fd7
Function14fd7: ; 14fd7 (5:4fd7)
ld a, $1
call GetSRAMBank
ld hl, $a009
ld de, PlayerID
ld bc, VisitedSpawns - PlayerID
call CopyBytes
ld hl, $a833
ld de, VisitedSpawns
ld bc, PartyCount - VisitedSpawns
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld a, [$be45]
cp $4
jr nz, .asm_15008
ld a, $3
ld [$be45], a
.asm_15008
call CloseSRAM
ret
Function1500c: ; 1500c
ld a, $1
call GetSRAMBank
ld hl, $a865
ld de, PartyCount
ld bc, wdff5 - PartyCount
call CopyBytes
call CloseSRAM
ret
; 15021
Function15021: ; 15021 (5:5021)
call Function150d8
call Function1517d
ret
Function15028: ; 15028 (5:5028)
ld hl, $a009
ld bc, $b7a
ld a, $1
call GetSRAMBank
call Function15273
ld a, [$ad0d]
cp e
jr nz, .asm_15040
ld a, [$ad0e]
cp d
.asm_15040
push af
call CloseSRAM
pop af
ret
Function15046: ; 15046 (5:5046)
ld a, $0
call GetSRAMBank
ld hl, $b209
ld de, PlayerID
ld bc, VisitedSpawns - PlayerID
call CopyBytes
ld hl, $ba33
ld de, VisitedSpawns
ld bc, PartyCount - VisitedSpawns
call CopyBytes
call CloseSRAM
ret
Function15067: ; 15067 (5:5067)
ld a, $0
call GetSRAMBank
ld hl, $ba65
ld de, PartyCount
ld bc, wdff5 - PartyCount
call CopyBytes
call CloseSRAM
ret
Function1507c: ; 1507c (5:507c)
ld hl, $b209
ld bc, $b7a
ld a, $0
call GetSRAMBank
call Function15273
ld a, [$bf0d]
cp e
jr nz, .asm_15094
ld a, [$bf0e]
cp d
.asm_15094
push af
call CloseSRAM
pop af
ret
Function1509a: ; 1509a
ld a, $1
call GetSRAMBank
ld hl, PlayerGender
ld de, $be3d
ld bc, wd479 - PlayerGender
call CopyBytes
ld hl, wd479
ld a, [hli]
ld [$a60e], a
ld a, [hli]
ld [$a60f], a
jp CloseSRAM
; 150b9
Function150b9: ; 150b9 (5:50b9)
ld a, $1
call GetSRAMBank
ld hl, $be3d
ld de, PlayerGender
ld bc, wd479 - PlayerGender
call CopyBytes
ld hl, wd479
ld a, [$a60e]
ld [hli], a
ld a, [$a60f]
ld [hli], a
jp CloseSRAM
Function150d8: ; 150d8
ld a, [wCurBox]
cp NUM_BOXES
jr c, .asm_150e3
xor a
ld [wCurBox], a
.asm_150e3
ld e, a
ld d, 0
ld hl, Unknown_1522d
rept 5
add hl, de
endr
ld a, [hli]
push af
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld h, [hl]
ld l, a
pop af
ret
; 150f9
Function150f9: ; 150f9
push hl
push af
push de
ld a, $1
call GetSRAMBank
ld hl, sBoxCount
ld de, wc608
ld bc, $01e0
call CopyBytes
call CloseSRAM
pop de
pop af
push af
push de
call GetSRAMBank
ld hl, wc608
ld bc, $01e0
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld hl, $aef0
ld de, wc608
ld bc, $01e0
call CopyBytes
call CloseSRAM
pop de
pop af
ld hl, $01e0
add hl, de
ld e, l
ld d, h
push af
push de
call GetSRAMBank
ld hl, wc608
ld bc, $01e0
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld hl, $b0d0
ld de, wc608
ld bc, $008e
call CopyBytes
call CloseSRAM
pop de
pop af
ld hl, $01e0
add hl, de
ld e, l
ld d, h
call GetSRAMBank
ld hl, wc608
ld bc, $008e
call CopyBytes
call CloseSRAM
pop hl
ret
; 1517d
Function1517d: ; 1517d (5:517d)
push hl
ld l, e
ld h, d
push af
push hl
call GetSRAMBank
ld de, wc608
ld bc, $1e0
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld hl, wc608
ld de, $ad10
ld bc, $1e0
call CopyBytes
call CloseSRAM
pop hl
pop af
ld de, $1e0
add hl, de
push af
push hl
call GetSRAMBank
ld de, wc608
ld bc, $1e0
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld hl, wc608
ld de, $aef0
ld bc, $1e0
call CopyBytes
call CloseSRAM
pop hl
pop af
ld de, $1e0
add hl, de
call GetSRAMBank
ld de, wc608
ld bc, $8e
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld hl, wc608
ld de, $b0d0
ld bc, $8e
call CopyBytes
call CloseSRAM
pop hl
ret
Function151fb: ; 151fb
ld hl, Unknown_1522d
ld c, $e
.outerloop
push bc
ld a, [hli]
call GetSRAMBank
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
xor a
ld [de], a
inc de
ld a, -1
ld [de], a
inc de
ld bc, $044c
.loop
xor a
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, -1
ld [de], a
inc de
xor a
ld [de], a
call CloseSRAM
pop bc
dec c
jr nz, .outerloop
ret
; 1522d
Unknown_1522d: ; 1522d
; dbww bank, address, address
dbww $02, $a000, $a44e ; 2, $a000, $a44e
dbww $02, $a450, $a89e ; 2, $a450, $a89e
dbww $02, $a8a0, $acee ; 2, $a8a0, $acee
dbww $02, $acf0, $b13e ; 2, $acf0, $b13e
dbww $02, $b140, $b58e ; 2, $b140, $b5de
dbww $02, $b590, $b9de ; 2, $b590, $b9de
dbww $02, $b9e0, $be2e ; 2, $b9e0, $be2e
dbww $03, $a000, $a44e ; 3, $a000, $a44e
dbww $03, $a450, $a89e ; 3, $a450, $a89e
dbww $03, $a8a0, $acee ; 3, $a8a0, $acee
dbww $03, $acf0, $b13e ; 3, $acf0, $b13e
dbww $03, $b140, $b58e ; 3, $b140, $b58e
dbww $03, $b590, $b9de ; 3, $b590, $b9de
dbww $03, $b9e0, $be2e ; 3, $b9e0, $be2e
; 15273
Function15273: ; 15273
ld de, 0
.loop
ld a, [hli]
add e
ld e, a
ld a, 0
adc d
ld d, a
dec bc
ld a, b
or c
jr nz, .loop
ret
; 15283
UnknownText_0x15283: ; 0x15283
; Would you like to save the game?
text_jump UnknownText_0x1c454b
db "@"
; 0x15288
UnknownText_0x15288: ; 0x15288
; SAVING… DON'T TURN OFF THE POWER.
text_jump UnknownText_0x1c456d
db "@"
; 0x1528d
UnknownText_0x1528d: ; 0x1528d
; saved the game.
text_jump UnknownText_0x1c4590
db "@"
; 0x15292
UnknownText_0x15292: ; 0x15292
; There is already a save file. Is it OK to overwrite?
text_jump UnknownText_0x1c45a3
db "@"
; 0x15297
UnknownText_0x15297: ; 0x15297
; There is another save file. Is it OK to overwrite?
text_jump UnknownText_0x1c45d9
db "@"
; 0x1529c
UnknownText_0x1529c: ; 0x1529c
; The save file is corrupted!
text_jump UnknownText_0x1c460d
db "@"
; 0x152a1
UnknownText_0x152a1: ; 0x152a1
; When you change a #MON BOX, data will be saved. OK?
text_jump UnknownText_0x1c462a
db "@"
; 0x152a6
UnknownText_0x152a6: ; 0x152a6
; Each time you move a #MON, data will be saved. OK?
text_jump UnknownText_0x1c465f
db "@"
; 0x152ab
INCLUDE "engine/spawn_points.asm"
INCLUDE "engine/map_setup.asm"
PokemonCenterPC: ; 1559a
call PC_CheckPartyForPokemon
ret c
call PC_PlayBootSound
ld hl, UnknownText_0x15a27
call PC_DisplayText
ld hl, UnknownText_0x15a2c
call PC_DisplayTextWaitMenu
ld hl, .TopMenu
call LoadMenuDataHeader
.loop
xor a
ld [hBGMapMode], a
call Function1563e
ld [wcf76], a
call Function1e5d
jr c, .shutdown
ld a, [MenuSelection]
ld hl, .JumpTable
call Function1fa7
jr nc, .loop
.shutdown
call Function156b8
call ExitMenu
call WriteBackup
ret
; 155d6
.TopMenu: ; 0x155d6
db $48 ; flags
db 00, 00 ; start coords
db 12, 15 ; end coords
dw .MenuData2
db 1 ; default option
; 0x155de
.MenuData2: ; 0x155de
db $a0 ; flags
db 0 ; items
dw .WhichPC
dw Function1f8d
dw .JumpTable
; 0x155e6
.JumpTable: ; 155e6
dw Function15679, .String_PlayersPC
dw Function15668, .String_BillsPC
dw Function15689, .String_OaksPC
dw Function1569a, .String_HallOfFame
dw Function156ab, .String_TurnOff
; 155fa
.String_PlayersPC: db "<PLAYER>'s PC@"
.String_BillsPC: db "BILL's PC@"
.String_OaksPC: db "PROF.OAK's PC@"
.String_HallOfFame: db "HALL OF FAME@"
.String_TurnOff: db "TURN OFF@"
; 1562c
.WhichPC: ; 1562c
; before pokedex
db 3 ; items
db 1, 0, 4 ; bill's, player's, turn off
db -1
; before Hall Of Fame
db 4 ; items
db 1, 0, 2, 4 ; bill's, player's, oak's, turn off
db -1
; postgame
db 5 ; items
db 1, 0, 2, 3, 4 ; bill's, player's, oak's, hall of fame, turn off
db -1
; 1563e
Function1563e: ; 1563e
call Function2ead
jr nz, .asm_15646
ld a, $0
ret
.asm_15646
ld a, [wd95e]
and a
ld a, $1
ret z
ld a, $2
ret
; 15650
PC_CheckPartyForPokemon: ; 15650
ld a, [PartyCount]
and a
ret nz
ld de, SFX_CHOOSE_PC_OPTION
call PlaySFX
ld hl, UnknownText_0x15663
call PC_DisplayText
scf
ret
; 15663
UnknownText_0x15663: ; 0x15663
; Bzzzzt! You must have a #MON to use this!
text_jump UnknownText_0x1c1328
db "@"
; 0x15668
Function15668: ; 15668
call Function156c2
ld hl, UnknownText_0x15a31
call PC_DisplayText
callba Functione3fd
and a
ret
; 15679 (5:5679)
Function15679: ; 15679
call Function156c2
ld hl, UnknownText_0x15a36
call PC_DisplayText
ld b, $0
call Function15704
and a
ret
; 15689
Function15689: ; 15689
call Function156c2
ld hl, UnknownText_0x15a3b
call PC_DisplayText
callba ProfOaksPC
and a
ret
; 1569a
Function1569a: ; 1569a
call Function156c2
call FadeToMenu
callba Function86650
call Function2b3c
and a
ret
; 156ab
Function156ab: ; 156ab
ld hl, UnknownText_0x15a40
call PrintText
scf
ret
; 156b3
PC_PlayBootSound: ; 156b3
ld de, SFX_BOOT_PC
jr Function156d0
Function156b8: ; 156b8
ld de, SFX_SHUT_DOWN_PC
call Function156d0
call WaitSFX
ret
Function156c2: ; 156c2
ld de, SFX_CHOOSE_PC_OPTION
jr Function156d0
Function156c7: ; 156c7
ld de, SFX_SWITCH_POKEMON
call Function156d0
ld de, SFX_SWITCH_POKEMON
Function156d0: ; 156d0
push de
call WaitSFX
pop de
call PlaySFX
ret
; 156d9
Function156d9: ; 156d9
call PC_PlayBootSound
ld hl, UnknownText_0x156ff
call PC_DisplayText
ld b, $1
call Function15704
and a
jr nz, .asm_156f9
call Function2173
call Function321c
call DrawOnMap
call Function156b8
ld c, $0
ret
.asm_156f9
call WhiteBGMap
ld c, $1
ret
; 156ff
UnknownText_0x156ff: ; 0x156ff
; turned on the PC.
text_jump UnknownText_0x1c1353
db "@"
; 0x15704
Function15704: ; 15704
ld a, b
ld [wcf76], a
ld hl, UnknownText_0x157cc
call PC_DisplayTextWaitMenu
call Function15715
call ExitMenu
ret
; 15715
Function15715: ; 15715
xor a
ld [wd0d7], a
ld [wd0dd], a
ld hl, KrissPCMenuData
call LoadMenuDataHeader
.asm_15722
call UpdateTimePals
call Function1e5d
jr c, .asm_15731
call Function1fa7
jr nc, .asm_15722
jr .asm_15732
.asm_15731
xor a
.asm_15732
call ExitMenu
ret
; 15736
KrissPCMenuData: ; 0x15736
db %01000000
db 0, 0 ; top left corner coords (y, x)
db 12, 15 ; bottom right corner coords (y, x)
dw .KrissPCMenuData2
db 1 ; default selected option
.KrissPCMenuData2
db %10100000 ; bit7
db 0 ; # items?
dw .KrissPCMenuList1
dw Function1f8d
dw .KrissPCMenuPointers
.KrissPCMenuPointers ; 0x15746
dw KrisWithdrawItemMenu, .WithdrawItem
dw KrisDepositItemMenu, .DepositItem
dw KrisTossItemMenu, .TossItem
dw KrisMailBoxMenu, .MailBox
dw KrisDecorationMenu, .Decoration
dw KrisLogOffMenu, .LogOff
dw KrisLogOffMenu, .TurnOff
.WithdrawItem db "WITHDRAW ITEM@"
.DepositItem db "DEPOSIT ITEM@"
.TossItem db "TOSS ITEM@"
.MailBox db "MAIL BOX@"
.Decoration db "DECORATION@"
.TurnOff db "TURN OFF@"
.LogOff db "LOG OFF@"
WITHDRAW_ITEM EQU 0
DEPOSIT_ITEM EQU 1
TOSS_ITEM EQU 2
MAIL_BOX EQU 3
DECORATION EQU 4
TURN_OFF EQU 5
LOG_OFF EQU 6
.KrissPCMenuList1
db 5
db WITHDRAW_ITEM
db DEPOSIT_ITEM
db TOSS_ITEM
db MAIL_BOX
db TURN_OFF
db -1
.KrissPCMenuList2
db 6
db WITHDRAW_ITEM
db DEPOSIT_ITEM
db TOSS_ITEM
db MAIL_BOX
db DECORATION
db LOG_OFF
db -1
PC_DisplayTextWaitMenu: ; 157bb
ld a, [Options]
push af
set 4, a
ld [Options], a
call MenuTextBox
pop af
ld [Options], a
ret
; 157cc
UnknownText_0x157cc: ; 0x157cc
; What do you want to do?
text_jump UnknownText_0x1c1368
db "@"
; 0x157d1
KrisWithdrawItemMenu: ; 0x157d1
call Function1d6e
callba ClearPCItemScreen
.asm_157da
call Function15985
jr c, .asm_157e4
call Function157e9
jr .asm_157da
.asm_157e4
call Function2b3c
xor a
ret
; 0x157e9
Function157e9: ; 0x157e9
; check if the item has a quantity
callba _CheckTossableItem
ld a, [wd142]
and a
jr z, .askquantity
; items without quantity are always ×1
ld a, 1
ld [wd10c], a
jr .withdraw
.askquantity
ld hl, .HowManyText
call MenuTextBox
callba Function24fbf
call ExitMenu
call ExitMenu
jr c, .done
.withdraw
ld a, [wd10c]
ld [Buffer1], a ; quantity
ld a, [wd107]
ld [Buffer2], a
ld hl, NumItems
call ReceiveItem
jr nc, .PackFull
ld a, [Buffer1]
ld [wd10c], a
ld a, [Buffer2]
ld [wd107], a
ld hl, PCItems
call TossItem
predef PartyMonItemName
ld hl, .WithdrewText
call MenuTextBox
xor a
ld [hBGMapMode], a
call ExitMenu
ret
.PackFull
ld hl, .NoRoomText
call MenuTextBoxBackup
ret
.done
ret
; 0x15850
.HowManyText ; 0x15850
TX_FAR _KrissPCHowManyWithdrawText
db "@"
.WithdrewText ; 0x15855
TX_FAR _KrissPCWithdrewItemsText
db "@"
.NoRoomText ; 0x1585a
TX_FAR _KrissPCNoRoomWithdrawText
db "@"
KrisTossItemMenu: ; 0x1585f
call Function1d6e
callba ClearPCItemScreen
.asm_15868
call Function15985
jr c, .asm_15878
ld de, PCItems
callba Function129f4
jr .asm_15868
.asm_15878
call Function2b3c
xor a
ret
; 0x1587d
KrisDecorationMenu: ; 0x1587d
callba _KrisDecorationMenu
ld a, c
and a
ret z
scf
ret
; 0x15888
KrisLogOffMenu: ; 0x15888
xor a
scf
ret
; 0x1588b
KrisDepositItemMenu: ; 0x1588b
call Function158b8
jr c, .asm_158b6
call Function2ed3
call Function1d6e
callba Function106a5
.asm_1589c
callba Function106be
ld a, [wcf66]
and a
jr z, .asm_158b3
call Function158cc
callba CheckRegisteredItem
jr .asm_1589c
.asm_158b3
call Function2b3c
.asm_158b6
xor a
ret
; 0x158b8
Function158b8: ; 0x158b8
callba Function129d5
ret nc
ld hl, UnknownText_0x158c7
call MenuTextBoxBackup
scf
ret
; 0x158c7
UnknownText_0x158c7: ; 0x158c7
; No items here!
text_jump UnknownText_0x1c13df
db "@"
; 0x158cc
Function158cc: ; 0x158cc
ld a, [wc2ce]
push af
ld a, $0
ld [wc2ce], a
callba CheckItemMenu
ld a, [wd142]
ld hl, Jumptable_158e7
rst JumpTable
pop af
ld [wc2ce], a
ret
; 0x158e7
Jumptable_158e7: ; 0x158e7
dw .jump2
dw .jump1
dw .jump1
dw .jump1
dw .jump2
dw .jump2
dw .jump2
.jump1:
ret
.jump2:
ld a, [Buffer1]
push af
ld a, [Buffer2]
push af
call Function1590a
pop af
ld [Buffer2], a
pop af
ld [Buffer1], a
ret
; 0x1590a
Function1590a: ; 0x1590a
callba _CheckTossableItem
ld a, [wd142]
and a
jr z, .asm_1591d
ld a, $1
ld [wd10c], a
jr .asm_15933
.asm_1591d
ld hl, .HowManyText
call MenuTextBox
callba Function24fbf
push af
call ExitMenu
call ExitMenu
pop af
jr c, .asm_1596c
.asm_15933
ld a, [wd10c]
ld [Buffer1], a
ld a, [wd107]
ld [Buffer2], a
ld hl, PCItems
call ReceiveItem
jr nc, .asm_15965
ld a, [Buffer1]
ld [wd10c], a
ld a, [Buffer2]
ld [wd107], a
ld hl, NumItems
call TossItem
predef PartyMonItemName
ld hl, .DepositText
call PrintText
ret
.asm_15965
ld hl, .NoRoomText
call PrintText
ret
.asm_1596c
and a
ret
; 0x1596e
.HowManyText ; 0x1596e
TX_FAR _KrissPCHowManyDepositText
db "@"
.DepositText ; 0x15973
TX_FAR _KrissPCDepositItemsText
db "@"
.NoRoomText ; 0x15978
TX_FAR _KrissPCNoRoomDepositText
db "@"
KrisMailBoxMenu: ; 0x1597d
callba _KrisMailBoxMenu
xor a
ret
; 0x15985
Function15985: ; 0x15985
xor a
ld [wd0e3], a
.asm_15989
ld a, [wc2ce]
push af
ld a, $0
ld [wc2ce], a
ld hl, MenuData15a08
call CopyMenuDataHeader
hlcoord 0, 0
ld b, $a
ld c, $12
call TextBox
ld a, [wd0d7]
ld [wcf88], a
ld a, [wd0dd]
ld [wd0e4], a
call Function350c
ld a, [wd0e4]
ld [wd0dd], a
ld a, [wcfa9]
ld [wd0d7], a
pop af
ld [wc2ce], a
ld a, [wd0e3]
and a
jr nz, .asm_159d8
ld a, [wcf73]
cp $2
jr z, .asm_15a06
cp $1
jr z, .asm_159fb
cp $4
jr z, .asm_159f2
jr .asm_159f8
.asm_159d8
ld a, [wcf73]
cp $2
jr z, .asm_159e9
cp $1
jr z, .asm_159ef
cp $4
jr z, .asm_159ef
jr .asm_159f8
.asm_159e9
xor a
ld [wd0e3], a
jr .asm_159f8
.asm_159ef
call Function156c7
.asm_159f2
callba Function2490c
.asm_159f8
jp .asm_15989
.asm_159fb
callba Function24706
call Function1bee
and a
ret
.asm_15a06
scf
ret
; 0x15a08
MenuData15a08: ; 0x15a08
db %01000000
db 1, 4 ; start coords
db 10, 18 ; end coords
dw .MenuData2
db 1 ; default option
.MenuData2
db %10110000
db 4, 8 ; rows/cols?
db 2 ; horizontal spacing?
dbw 0, PCItems
dbw BANK(Function24ab4), Function24ab4
dbw BANK(Function24ac3), Function24ac3
dbw BANK(Function244c3), Function244c3
PC_DisplayText: ; 15a20
call MenuTextBox
call ExitMenu
ret
; 15a27
UnknownText_0x15a27: ; 0x15a27
; turned on the PC.
text_jump UnknownText_0x1c144d
db "@"
; 0x15a2c
UnknownText_0x15a2c: ; 0x15a2c
; Access whose PC?
text_jump UnknownText_0x1c1462
db "@"
; 0x15a31
UnknownText_0x15a31: ; 0x15a31
; BILL's PC accessed. #MON Storage System opened.
text_jump UnknownText_0x1c1474
db "@"
; 0x15a36
UnknownText_0x15a36: ; 0x15a36
; Accessed own PC. Item Storage System opened.
text_jump UnknownText_0x1c14a4
db "@"
; 0x15a3b
UnknownText_0x15a3b: ; 0x15a3b
; PROF.OAK's PC accessed. #DEX Rating System opened.
text_jump UnknownText_0x1c14d2
db "@"
; 0x15a40
UnknownText_0x15a40: ; 0x15a40
; … Link closed…
text_jump UnknownText_0x1c1505
db "@"
; 0x15a45
OpenMartDialog:: ; 15a45
call GetMart
ld a, c
ld [EngineBuffer1], a
call LoadMartPointer
ld a, [EngineBuffer1]
ld hl, .dialogs
rst JumpTable
ret
; 15a57
.dialogs
dw MartDialog
dw HerbShop
dw BargainShop
dw Pharmacist
dw RooftopSale
; 15a61
MartDialog: ; 15a61
ld a, 0
ld [EngineBuffer1], a
xor a
ld [MovementAnimation], a
call Function15b47
ret
; 15a6e
HerbShop: ; 15a6e
call ReadMart
call Function1d6e
ld hl, UnknownText_0x15e4a
call Function15fcd
call Function15c62
ld hl, UnknownText_0x15e68
call Function15fcd
ret
; 15a84
BargainShop: ; 15a84
ld b, BANK(BargainShopData)
ld de, BargainShopData
call LoadMartPointer
call Function15c25
call Function1d6e
ld hl, UnknownText_0x15e6d
call Function15fcd
call Function15c62
ld hl, WalkingDirection
ld a, [hli]
or [hl]
jr z, .asm_15aa7
ld hl, DailyFlags
set 6, [hl]
.asm_15aa7
ld hl, UnknownText_0x15e8b
call Function15fcd
ret
; 15aae
Pharmacist: ; 15aae
call ReadMart
call Function1d6e
ld hl, UnknownText_0x15e90
call Function15fcd
call Function15c62
ld hl, UnknownText_0x15eae
call Function15fcd
ret
; 15ac4
RooftopSale: ; 15ac4
ld b, BANK(RooftopSaleData1)
ld de, RooftopSaleData1
ld hl, StatusFlags
bit 6, [hl] ; hall of fame
jr z, .ok
ld b, BANK(RooftopSaleData2)
ld de, RooftopSaleData2
.ok
call LoadMartPointer
call Function15c25
call Function1d6e
ld hl, UnknownText_0x15f83
call Function15fcd
call Function15c62
ld hl, UnknownText_0x15fb4
call Function15fcd
ret
; 15aee
RooftopSaleData1: ; 15aee
db 5
dbw POKE_BALL, 150
dbw GREAT_BALL, 500
dbw SUPER_POTION, 500
dbw FULL_HEAL, 500
dbw REVIVE, 1200
db -1
RooftopSaleData2: ; 15aff
db 5
dbw HYPER_POTION, 1000
dbw FULL_RESTORE, 2000
dbw FULL_HEAL, 500
dbw ULTRA_BALL, 1000
dbw PROTEIN, 7800
db -1
; 15b10
LoadMartPointer: ; 15b10
ld a, b
ld [MartPointerBank], a
ld a, e
ld [MartPointer], a
ld a, d
ld [MartPointer + 1], a
ld hl, CurMart
xor a
ld bc, 16
call ByteFill
xor a
ld [MovementAnimation], a
ld [WalkingDirection], a
ld [FacingDirection], a
ret
; 15b31
GetMart: ; 15b31
ld a, e
cp (MartsEnd - Marts) / 2
jr c, .IsAMart
ld b, $5
ld de, DefaultMart
ret
.IsAMart
ld hl, Marts
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld b, $5
ret
; 15b47
Function15b47: ; 15b47
.asm_15b47
ld a, [MovementAnimation]
ld hl, .table_15b56
rst JumpTable
ld [MovementAnimation], a
cp $ff
jr nz, .asm_15b47
ret
.table_15b56
dw Function15b62
dw Function15b6e
dw Function15b8d
dw Function15b9a
dw Function15ba3
dw Function15baf
; 15b62
Function15b62: ; 15b62
call Function1d6e
ld hl, UnknownText_0x15f83
call PrintText
ld a, $1
ret
; 15b6e
Function15b6e: ; 15b6e
ld hl, MenuDataHeader_0x15f88
call CopyMenuDataHeader
call InterpretMenu2
jr c, .asm_15b84
ld a, [wcfa9]
cp $1
jr z, .asm_15b87
cp $2
jr z, .asm_15b8a
.asm_15b84
ld a, $4
ret
.asm_15b87
ld a, $2
ret
.asm_15b8a
ld a, $3
ret
; 15b8d
Function15b8d: ; 15b8d
call ExitMenu
call ReadMart
call Function15c62
and a
ld a, $5
ret
; 15b9a
Function15b9a: ; 15b9a
call ExitMenu
call Function15eb3
ld a, $5
ret
; 15ba3
Function15ba3: ; 15ba3
call ExitMenu
ld hl, UnknownText_0x15fb4
call Function15fcd
ld a, $ff
ret
; 15baf
Function15baf: ; 15baf
call Function1d6e
ld hl, UnknownText_0x15fb9
call PrintText
ld a, $1
ret
; 15bbb
ReadMart: ; 15bbb
ld hl, MartPointer
ld a, [hli]
ld h, [hl]
ld l, a
ld de, CurMart
.CopyMart
ld a, [wd03f]
call GetFarByte
ld [de], a
inc hl
inc de
cp -1
jr nz, .CopyMart
ld hl, DefaultFlypoint
ld de, CurMart + 1
.ReadMartItem
ld a, [de]
inc de
cp $ff
jr z, .asm_15be4
push de
call GetMartItemPrice
pop de
jr .ReadMartItem
.asm_15be4
ret
; 15be5
GetMartItemPrice: ; 15be5
; Return the price of item a in BCD at hl and in tiles at StringBuffer1.
push hl
ld [CurItem], a
callba GetItemPrice
pop hl
GetMartPrice: ; 15bf0
; Return price de in BCD at hl and in tiles at StringBuffer1.
push hl
ld a, d
ld [StringBuffer2], a
ld a, e
ld [StringBuffer2 + 1], a
ld hl, StringBuffer1
ld de, StringBuffer2
lb bc, $82, 6 ; 6 digits
call PrintNum
pop hl
ld de, StringBuffer1
ld c, 6 / 2 ; 6 digits
.loop
call .TileToNum
swap a
ld b, a
call .TileToNum
or b
ld [hli], a
dec c
jr nz, .loop
ret
; 15c1a
.TileToNum ; 15c1a
ld a, [de]
inc de
cp " "
jr nz, .asm_15c22
ld a, "0"
.asm_15c22
sub "0"
ret
; 15c25
Function15c25: ; 15c25
ld hl, MartPointer
ld a, [hli]
ld h, [hl]
ld l, a
push hl
inc hl
ld bc, wd002
ld de, CurMart + 1
.loop
ld a, [hli]
ld [de], a
inc de
cp -1
jr z, .done
push de
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
push hl
ld h, b
ld l, c
call GetMartPrice
ld b, h
ld c, l
pop hl
pop de
jr .loop
.done
pop hl
ld a, [hl]
ld [CurMart], a
ret
; 15c51
BargainShopData: ; 15c51
db 5
dbw NUGGET, 4500
dbw PEARL, 650
dbw BIG_PEARL, 3500
dbw STARDUST, 900
dbw STAR_PIECE, 4600
db -1
; 15c62
Function15c62: ; 15c62
call FadeToMenu
callba Function8000
xor a
ld [WalkingY], a
ld a, 1
ld [WalkingX], a
.asm_15c74
call Function15cef
jr nc, .asm_15c74
call Function2b3c
ret
; 15c7d
Function15c7d: ; 15c7d
push af
call Function15ca3
ld a, [hli]
ld h, [hl]
ld l, a
pop af
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
call PrintText
ret
; 15c91
Function15c91: ; 15c91
call Function15ca3
rept 2
inc hl
endr
ld a, [hl]
and a
jp z, Function15d83
cp 1
jp z, Function15da5
jp Function15de2
; 15ca3
Function15ca3: ; 15ca3
ld a, [EngineBuffer1]
ld e, a
ld d, 0
ld hl, .data_15cb0
rept 3
add hl, de
endr
ret
; 15cb0
.data_15cb0 ; 15cb0
dwb Unknown_15cbf, 0
dwb Unknown_15ccb, 0
dwb Unknown_15cd7, 1
dwb Unknown_15ce3, 0
dwb Unknown_15cbf, 2
; 15cbf
Unknown_15cbf: ; 15cbf
dw UnknownText_0x15e0e
dw UnknownText_0x15e13
dw UnknownText_0x15fa5
dw UnknownText_0x15faa
dw UnknownText_0x15fa0
dw Function15cef
Unknown_15ccb: ; 15ccb
dw UnknownText_0x15e4f
dw UnknownText_0x15e54
dw UnknownText_0x15e63
dw UnknownText_0x15e5e
dw UnknownText_0x15e59
dw Function15cef
Unknown_15cd7: ; 15cd7
dw Function15cef
dw UnknownText_0x15e72
dw UnknownText_0x15e86
dw UnknownText_0x15e7c
dw UnknownText_0x15e77
dw UnknownText_0x15e81
Unknown_15ce3: ; 15ce3
dw UnknownText_0x15e95
dw UnknownText_0x15e9a
dw UnknownText_0x15ea9
dw UnknownText_0x15ea4
dw UnknownText_0x15e9f
dw Function15cef
; 15cef
Function15cef: ; 15cef
callba Function24ae8
call DrawOnMap
ld hl, MenuDataHeader_0x15e18
call CopyMenuDataHeader
ld a, [WalkingX]
ld [wcf88], a
ld a, [WalkingY]
ld [wd0e4], a
call Function350c
ld a, [wd0e4]
ld [WalkingY], a
ld a, [wcfa9]
ld [WalkingX], a
call SpeechTextBox
ld a, [wcf73]
cp $2
jr z, .asm_15d6d
cp $1
jr z, .asm_15d27
.asm_15d27
call Function15c91
jr c, .asm_15d68
call Function15d97
jr c, .asm_15d68
ld de, Money
ld bc, hMoneyTemp
ld a, $3
call CheckMoney
jr c, .asm_15d79
ld hl, NumItems
call ReceiveItem
jr nc, .asm_15d6f
ld a, [wd107]
ld e, a
ld d, $0
ld b, $1
ld hl, WalkingDirection
call FlagAction
call Function15fc3
ld de, Money
ld bc, hMoneyTemp
call TakeMoney
ld a, $4
call Function15c7d
call Functiona36
.asm_15d68
call SpeechTextBox
and a
ret
.asm_15d6d
scf
ret
.asm_15d6f
ld a, $3
call Function15c7d
call Functiona36
and a
ret
.asm_15d79
ld a, $2
call Function15c7d
call Functiona36
and a
ret
; 15d83
Function15d83: ; 15d83
ld a, $63
ld [wd10d], a
ld a, $0
call Function15c7d
callba Function24fc9
call ExitMenu
ret
; 15d97
Function15d97: ; 15d97
predef PartyMonItemName
ld a, $1
call Function15c7d
call YesNoBox
ret
; 15da5
Function15da5: ; 15da5
ld a, $1
ld [wd10c], a
ld a, [wd107]
ld e, a
ld d, $0
ld b, $2
ld hl, WalkingDirection
call FlagAction
ld a, c
and a
jr nz, .asm_15dd8
ld a, [wd107]
ld e, a
ld d, $0
ld hl, wd040
ld a, [hli]
ld h, [hl]
ld l, a
inc hl
rept 3
add hl, de
endr
inc hl
ld a, [hli]
ld [$ffc5], a
ld a, [hl]
ld [$ffc4], a
xor a
ld [hMoneyTemp], a
and a
ret
.asm_15dd8
ld a, $5
call Function15c7d
call Functiona36
scf
ret
; 15de2
Function15de2: ; 15de2
ld a, $0
call Function15c7d
call Function15df9
ld a, $63
ld [wd10d], a
callba Function24fcf
call ExitMenu
ret
; 15df9
Function15df9: ; 15df9
ld a, [wd107]
ld e, a
ld d, 0
ld hl, wd040
ld a, [hli]
ld h, [hl]
ld l, a
inc hl
rept 3
add hl, de
endr
inc hl
ld e, [hl]
inc hl
ld d, [hl]
ret
; 15e0e
UnknownText_0x15e0e: ; 0x15e0e
; How many?
text_jump UnknownText_0x1c4bfd
db "@"
; 0x15e13
UnknownText_0x15e13: ; 0x15e13
; @ (S) will be ¥@ .
text_jump UnknownText_0x1c4c08
db "@"
; 0x15e18
MenuDataHeader_0x15e18: ; 0x15e18
db $40 ; flags
db 03, 01 ; start coords
db 11, 19 ; end coords
dw MenuData2_0x15e20
db 1 ; default option
; 0x15e20
MenuData2_0x15e20: ; 0x15e20
db $30 ; flags
db 4, 8 ; rows, columns
db 1 ; horizontal spacing
dbw 0, OBPals + 8 * 6
dbw BANK(Function24ab4), Function24ab4
dbw BANK(Function15e30), Function15e30
dbw BANK(Function244c3), Function244c3
; 15e30
Function15e30: ; 15e30
ld a, [wcf77]
ld c, a
ld b, 0
ld hl, DefaultFlypoint
rept 3
add hl, bc
endr
push de
ld d, h
ld e, l
pop hl
ld bc, $14
add hl, bc
ld c, $a3
call PrintBCDNumber
ret
; 15e4a (5:5e4a)
UnknownText_0x15e4a: ; 0x15e4a
; Hello, dear. I sell inexpensive herbal medicine. They're good, but a trifle bitter. Your #MON may not like them. Hehehehe…
text_jump UnknownText_0x1c4c28
db "@"
; 0x15e4f
UnknownText_0x15e4f: ; 0x15e4f
; How many?
text_jump UnknownText_0x1c4ca3
db "@"
; 0x15e54
UnknownText_0x15e54: ; 0x15e54
; @ (S) will be ¥@ .
text_jump UnknownText_0x1c4cae
db "@"
; 0x15e59
UnknownText_0x15e59: ; 0x15e59
; Thank you, dear. Hehehehe…
text_jump UnknownText_0x1c4cce
db "@"
; 0x15e5e
UnknownText_0x15e5e: ; 0x15e5e
; Oh? Your PACK is full, dear.
text_jump UnknownText_0x1c4cea
db "@"
; 0x15e63
UnknownText_0x15e63: ; 0x15e63
; Hehehe… You don't have the money.
text_jump UnknownText_0x1c4d08
db "@"
; 0x15e68
UnknownText_0x15e68: ; 0x15e68
; Come again, dear. Hehehehe…
text_jump UnknownText_0x1c4d2a
db "@"
; 0x15e6d
UnknownText_0x15e6d: ; 0x15e6d
; Hiya! Care to see some bargains? I sell rare items that nobody else carries--but only one of each item.
text_jump UnknownText_0x1c4d47
db "@"
; 0x15e72
UnknownText_0x15e72: ; 0x15e72
; costs ¥@ . Want it?
text_jump UnknownText_0x1c4db0
db "@"
; 0x15e77
UnknownText_0x15e77: ; 0x15e77
; Thanks.
text_jump UnknownText_0x1c4dcd
db "@"
; 0x15e7c
UnknownText_0x15e7c: ; 0x15e7c
; Uh-oh, your PACK is chock-full.
text_jump UnknownText_0x1c4dd6
db "@"
; 0x15e81
UnknownText_0x15e81: ; 0x15e81
; You bought that already. I'm all sold out of it.
text_jump UnknownText_0x1c4df7
db "@"
; 0x15e86
UnknownText_0x15e86: ; 0x15e86
; Uh-oh, you're short on funds.
text_jump UnknownText_0x1c4e28
db "@"
; 0x15e8b
UnknownText_0x15e8b: ; 0x15e8b
; Come by again sometime.
text_jump UnknownText_0x1c4e46
db "@"
; 0x15e90
UnknownText_0x15e90: ; 0x15e90
; What's up? Need some medicine?
text_jump UnknownText_0x1c4e5f
db "@"
; 0x15e95
UnknownText_0x15e95: ; 0x15e95
; How many?
text_jump UnknownText_0x1c4e7e
db "@"
; 0x15e9a
UnknownText_0x15e9a: ; 0x15e9a
; @ (S) will cost ¥@ .
text_jump UnknownText_0x1c4e89
db "@"
; 0x15e9f
UnknownText_0x15e9f: ; 0x15e9f
; Thanks much!
text_jump UnknownText_0x1c4eab
db "@"
; 0x15ea4
UnknownText_0x15ea4: ; 0x15ea4
; You don't have any more space.
text_jump UnknownText_0x1c4eb9
db "@"
; 0x15ea9
UnknownText_0x15ea9: ; 0x15ea9
; Huh? That's not enough money.
text_jump UnknownText_0x1c4ed8
db "@"
; 0x15eae
UnknownText_0x15eae: ; 0x15eae
; All right. See you around.
text_jump UnknownText_0x1c4ef6
db "@"
; 0x15eb3
Function15eb3: ; 15eb3
call Function2ed3
callba Function106a5
.asm_15ebc
callba Function106be
ld a, [wcf66]
and a
jp z, Function15ece
call Function15ee0
jr .asm_15ebc
; 15ece
Function15ece: ; 15ece
call Function2b74
and a
ret
; 15ed3
Function15ed3: ; 15ed3
ld hl, UnknownText_0x15edb
call MenuTextBoxBackup
and a
ret
; 15edb
UnknownText_0x15edb: ; 0x15edb
; You don't have anything to sell.
text_jump UnknownText_0x1c4f12
db "@"
; 0x15ee0
Function15ee0: ; 15ee0
callba CheckItemMenu
ld a, [wd142]
ld hl, Jumptable_15eee
rst JumpTable
ret
; 15eee
Jumptable_15eee: ; 15eee
dw Function15efd
dw Function15efc
dw Function15efc
dw Function15efc
dw Function15efd
dw Function15efd
dw Function15efd
; 15efc
Function15efc: ; 15efc
ret
; 15efd
Function15efd: ; 15efd
callba _CheckTossableItem
ld a, [wd142]
and a
jr z, .asm_15f11
ld hl, UnknownText_0x15faf
call PrintText
and a
ret
.asm_15f11
ld hl, UnknownText_0x15f73
call PrintText
callba Function24af8
callba Function24fe1
call ExitMenu
jr c, .asm_15f6e
hlcoord 1, 14
ld bc, $0312
call ClearBox
ld hl, UnknownText_0x15f78
call PrintTextBoxText
call YesNoBox
jr c, .asm_15f6e
ld de, Money
ld bc, hMoneyTemp
call GiveMoney
ld a, [wd107]
ld hl, NumItems
call TossItem
predef PartyMonItemName
hlcoord 1, 14
ld bc, $0312
call ClearBox
ld hl, UnknownText_0x15fbe
call PrintTextBoxText
call Function15fc3
callba Function24af0
call Functiona36
.asm_15f6e
call ExitMenu
and a
ret
; 15f73
UnknownText_0x15f73: ; 0x15f73
; How many?
text_jump UnknownText_0x1c4f33
db "@"
; 0x15f78
UnknownText_0x15f78: ; 0x15f78
; I can pay you ¥@ . Is that OK?
text_jump UnknownText_0x1c4f3e
db "@"
; 0x15f7d
String15f7d: ; 15f7d
db "!ダミー!@"
UnknownText_0x15f83: ; 0x15f83
; Welcome! How may I help you?
text_jump UnknownText_0x1c4f62
db "@"
; 0x15f88
MenuDataHeader_0x15f88: ; 0x15f88
db $40 ; flags
db 00, 00 ; start coords
db 08, 07 ; end coords
dw MenuData2_0x15f90
db 1 ; default option
; 0x15f90
MenuData2_0x15f90: ; 0x15f90
db $80 ; flags
db 3 ; items
db "BUY@"
db "SELL@"
db "QUIT@"
; 0x15f96
UnknownText_0x15fa0: ; 0x15fa0
; Here you are. Thank you!
text_jump UnknownText_0x1c4f80
db "@"
; 0x15fa5
UnknownText_0x15fa5: ; 0x15fa5
; You don't have enough money.
text_jump UnknownText_0x1c4f9a
db "@"
; 0x15faa
UnknownText_0x15faa: ; 0x15faa
; You can't carry any more items.
text_jump UnknownText_0x1c4fb7
db "@"
; 0x15faf
UnknownText_0x15faf: ; 0x15faf
; Sorry, I can't buy that from you.
text_jump UnknownText_0x1c4fd7
db "@"
; 0x15fb4
UnknownText_0x15fb4: ; 0x15fb4
; Please come again!
text_jump UnknownText_0x1c4ff9
db "@"
; 0x15fb9
UnknownText_0x15fb9: ; 0x15fb9
text_jump UnknownText_0x1c500d
db "@"
; 0x15fbe
UnknownText_0x15fbe: ; 0x15fbe
text_jump UnknownText_0x1c502e
db "@"
; 0x15fc3
Function15fc3: ; 15fc3
call WaitSFX
ld de, SFX_TRANSACTION
call PlaySFX
ret
; 15fcd
Function15fcd: ; 15fcd
call MenuTextBox
call Functiona36
call ExitMenu
ret
; 15fd7
GiveMoney:: ; 15fd7
ld a, $3
call Function16053
ld bc, MaxMoney
ld a, $3
call CheckMoney
jr z, .asm_15ff5
jr c, .asm_15ff5
ld hl, MaxMoney
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
scf
ret
.asm_15ff5
and a
ret
; 15ff7
MaxMoney: ; 15ff7
dt 999999
; 15ffa
TakeMoney:: ; 15ffa
ld a, $3
call Function16035
jr nc, .asm_16009
xor a
ld [de], a
inc de
ld [de], a
inc de
ld [de], a
scf
ret
.asm_16009
and a
ret
; 1600b
CheckMoney:: ; 1600b
ld a, $3
CheckFunds: ; 1600d
push hl
push de
push bc
ld h, b
ld l, c
ld c, $0
ld b, a
.asm_16015
dec a
jr z, .asm_1601c
inc de
inc hl
jr .asm_16015
.asm_1601c
and a
.asm_1601d
ld a, [de]
sbc [hl]
jr z, .asm_16022
inc c
.asm_16022
dec de
dec hl
dec b
jr nz, .asm_1601d
jr c, .asm_1602d
ld a, c
and a
jr .asm_16031
.asm_1602d
ld a, $1
and a
scf
.asm_16031
pop bc
pop de
pop hl
ret
; 16035
Function16035: ; 16035
ld a, $3
Function16037: ; 16037
push hl
push de
push bc
ld h, b
ld l, c
ld b, a
ld c, $0
.asm_1603f
dec a
jr z, .asm_16046
inc de
inc hl
jr .asm_1603f
.asm_16046
and a
.asm_16047
ld a, [de]
sbc [hl]
ld [de], a
dec de
dec hl
dec b
jr nz, .asm_16047
pop bc
pop de
pop hl
ret
; 16053
Function16053: ; 16053
ld a, $3
Function16055: ; 16055
push hl
push de
push bc
ld h, b
ld l, c
ld b, a
.asm_1605b
dec a
jr z, .asm_16062
inc de
inc hl
jr .asm_1605b
.asm_16062
and a
.asm_16063
ld a, [de]
adc [hl]
ld [de], a
dec de
dec hl
dec b
jr nz, .asm_16063
pop bc
pop de
pop hl
ret
; 1606f
GiveCoins:: ; 1606f
ld a, $2
ld de, Coins
call Function16055
ld a, $2
ld bc, Unknown_1608d
call CheckFunds
jr c, .asm_1608b
ld hl, Unknown_1608d
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
scf
ret
.asm_1608b
and a
ret
; 1608d
Unknown_1608d: ; 1608d
bigdw 9999
; 1608f
TakeCoins:: ; 1608f
ld a, $2
ld de, Coins
call Function16037
jr nc, .asm_1609f
xor a
ld [de], a
inc de
ld [de], a
scf
ret
.asm_1609f
and a
ret
; 160a1
CheckCoins:: ; 160a1
ld a, $2
ld de, Coins
jp CheckFunds
; 160a9
INCLUDE "items/marts.asm"
Special_BankOfMom: ; 16218
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
xor a
ld [wcf63], a
.asm_16223
ld a, [wcf63]
bit 7, a
jr nz, .asm_1622f
call Function16233
jr .asm_16223
.asm_1622f
pop af
ld [$ffaa], a
ret
; 16233
Function16233: ; 16233
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_16242
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 16242
Jumptable_16242: ; 16242
dw Function16254
dw Function1626a
dw Function16290
dw Function162a8
dw Function162e0
dw Function16373
dw Function16406
dw Function1642d
dw Function16433
; 16254
Function16254: ; 16254
ld a, [wd854]
bit 7, a
jr nz, .asm_16264
set 7, a
ld [wd854], a
ld a, $1
jr .asm_16266
.asm_16264
ld a, $2
.asm_16266
ld [wcf63], a
ret
; 1626a
Function1626a: ; 1626a
ld hl, UnknownText_0x16649
call PrintText
call YesNoBox
jr c, .asm_1627f
ld hl, UnknownText_0x1664e
call PrintText
ld a, $81
jr .asm_16281
.asm_1627f
ld a, $80
.asm_16281
ld [wd854], a
ld hl, UnknownText_0x16653
call PrintText
ld a, $8
ld [wcf63], a
ret
; 16290
Function16290: ; 16290
ld hl, UnknownText_0x16658
call PrintText
call YesNoBox
jr c, .asm_1629f
ld a, $3
jr .asm_162a4
.asm_1629f
call DSTChecks
ld a, $7
.asm_162a4
ld [wcf63], a
ret
; 162a8
Function162a8: ; 162a8
ld hl, UnknownText_0x1665d
call PrintText
call Function1d6e
ld hl, MenuDataHeader_0x166b5
call CopyMenuDataHeader
call InterpretMenu2
call WriteBackup
jr c, .asm_162ce
ld a, [wcfa9]
cp $1
jr z, .asm_162d2
cp $2
jr z, .asm_162d6
cp $3
jr z, .asm_162da
.asm_162ce
ld a, $7
jr .asm_162dc
.asm_162d2
ld a, $5
jr .asm_162dc
.asm_162d6
ld a, $4
jr .asm_162dc
.asm_162da
ld a, $6
.asm_162dc
ld [wcf63], a
ret
; 162e0
Function162e0: ; 162e0
ld hl, UnknownText_0x16662
call PrintText
xor a
ld hl, StringBuffer2
rept 2
ld [hli], a
endr
ld [hl], a
ld a, $5
ld [wcf64], a
call Function1d6e
call Function16517
call Function1656b
call Function16571
call WriteBackup
jr c, .asm_1636d
ld hl, StringBuffer2
ld a, [hli]
or [hl]
inc hl
or [hl]
jr z, .asm_1636d
ld de, Money
ld bc, StringBuffer2
callba CheckMoney
jr c, .asm_1635f
ld hl, StringBuffer2
ld de, StringBuffer2 + 3
ld bc, $0003
call CopyBytes
ld bc, wd851
ld de, StringBuffer2
callba GiveMoney
jr c, .asm_16366
ld bc, StringBuffer2 + 3
ld de, Money
callba TakeMoney
ld hl, StringBuffer2
ld de, wd851
ld bc, $0003
call CopyBytes
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
ld hl, UnknownText_0x1668a
call PrintText
ld a, $8
jr .asm_1636f
.asm_1635f
ld hl, UnknownText_0x1667b
call PrintText
ret
.asm_16366
ld hl, UnknownText_0x16680
call PrintText
ret
.asm_1636d
ld a, $7
.asm_1636f
ld [wcf63], a
ret
; 16373
Function16373: ; 16373
ld hl, UnknownText_0x16667
call PrintText
xor a
ld hl, StringBuffer2
rept 2
ld [hli], a
endr
ld [hl], a
ld a, $5
ld [wcf64], a
call Function1d6e
call Function16512
call Function1656b
call Function16571
call WriteBackup
jr c, .asm_16400
ld hl, StringBuffer2
ld a, [hli]
or [hl]
inc hl
or [hl]
jr z, .asm_16400
ld hl, StringBuffer2
ld de, StringBuffer2 + 3
ld bc, $0003
call CopyBytes
ld de, wd851
ld bc, StringBuffer2
callba CheckMoney
jr c, .asm_163f2
ld bc, Money
ld de, StringBuffer2
callba GiveMoney
jr c, .asm_163f9
ld bc, StringBuffer2 + 3
ld de, wd851
callba TakeMoney
ld hl, StringBuffer2
ld de, Money
ld bc, $0003
call CopyBytes
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
ld hl, UnknownText_0x1668f
call PrintText
ld a, $8
jr .asm_16402
.asm_163f2
ld hl, UnknownText_0x16671
call PrintText
ret
.asm_163f9
ld hl, UnknownText_0x16676
call PrintText
ret
.asm_16400
ld a, $7
.asm_16402
ld [wcf63], a
ret
; 16406
Function16406: ; 16406
ld hl, UnknownText_0x1666c
call PrintText
call YesNoBox
jr c, .asm_16422
ld a, $81
ld [wd854], a
ld hl, UnknownText_0x16685
call PrintText
ld a, $8
ld [wcf63], a
ret
.asm_16422
ld a, $80
ld [wd854], a
ld a, $7
ld [wcf63], a
ret
; 1642d
Function1642d: ; 1642d
ld hl, UnknownText_0x16694
call PrintText
Function16433: ; 16433
ld hl, wcf63
set 7, [hl]
ret
; 16439
DSTChecks: ; 16439
; check the time; avoid changing DST if doing so would change the current day
ld a, [wDST]
bit 7, a
ld a, [hHours]
jr z, .asm_16447
and a ; within one hour of 00:00?
jr z, .LostBooklet
jr .loop
.asm_16447
cp 23 ; within one hour of 23:00?
jr nz, .loop
; fallthrough
.LostBooklet
call Function164ea
bccoord 1, 14
ld hl, UnknownText_0x164f4
call Function13e5
call YesNoBox
ret c
call Function164ea
bccoord 1, 14
ld hl, LostInstructionBookletText
call Function13e5
ret
.loop
call Function164ea
bccoord 1, 14
ld a, [wDST]
bit 7, a
jr z, .asm_16497
ld hl, UnknownText_0x16508
call Function13e5
call YesNoBox
ret c
ld a, [wDST]
res 7, a
ld [wDST], a
call Function164d1
call Function164ea
bccoord 1, 14
ld hl, UnknownText_0x1650d
call Function13e5
ret
.asm_16497
ld hl, UnknownText_0x164fe
call Function13e5
call YesNoBox
ret c
ld a, [wDST]
set 7, a
ld [wDST], a
call Function164b9
call Function164ea
bccoord 1, 14
ld hl, UnknownText_0x16503
call Function13e5
ret
; 164b9
Function164b9: ; 164b9
ld a, [StartHour]
add 1
sub 24
jr nc, .asm_164c4
add 24
.asm_164c4
ld [StartHour], a
ccf
ld a, [StartDay]
adc 0
ld [StartDay], a
ret
; 164d1
Function164d1: ; 164d1
ld a, [StartHour]
sub 1
jr nc, .asm_164da
add 24
.asm_164da
ld [StartHour], a
ld a, [StartDay]
sbc 0
jr nc, .asm_164e6
add 7
.asm_164e6
ld [StartDay], a
ret
; 164ea
Function164ea: ; 164ea
hlcoord 1, 14
ld bc, $0312
call ClearBox
ret
; 164f4
UnknownText_0x164f4: ; 0x164f4
; Do you want to adjust your clock for Daylight Saving Time?
text_jump UnknownText_0x1c6095
db "@"
; 0x164f9
LostInstructionBookletText: ; 0x164f9
; I lost the instruction booklet for the POKéGEAR.
; Come back again in a while.
text_jump UnknownText_0x1c60d1
db "@"
; 0x164fe
UnknownText_0x164fe: ; 0x164fe
; Do you want to switch to Daylight Saving Time?
text_jump UnknownText_0x1c6000
db "@"
; 0x16503
UnknownText_0x16503: ; 0x16503
; I set the clock forward by one hour.
text_jump UnknownText_0x1c6030
db "@"
; 0x16508
UnknownText_0x16508: ; 0x16508
; Is Daylight Saving Time over?
text_jump UnknownText_0x1c6056
db "@"
; 0x1650d
UnknownText_0x1650d: ; 0x1650d
; I put the clock back one hour.
text_jump UnknownText_0x1c6075
db "@"
; 0x16512
Function16512: ; 16512
ld de, String_1669f
jr Function1651a
Function16517: ; 16517
ld de, String_166a8
Function1651a: ; 1651a
push de
xor a
ld [hBGMapMode], a
hlcoord 0, 0
ld bc, $0612
call TextBox
hlcoord 1, 2
ld de, String_16699
call PlaceString
hlcoord 12, 2
ld de, wd851
ld bc, $2306
call PrintNum
hlcoord 1, 4
ld de, String_166b0
call PlaceString
hlcoord 12, 4
ld de, Money
ld bc, $2306
call PrintNum
hlcoord 1, 6
pop de
call PlaceString
hlcoord 12, 6
ld de, StringBuffer2
ld bc, $a306
call PrintNum
call DrawOnMap
call Function3238
ret
; 1656b
Function1656b: ; 1656b
ld c, $a
call DelayFrames
ret
; 16571
Function16571: ; 16571
.asm_16571
call Functiona57
ld hl, hJoyPressed
ld a, [hl]
and $2
jr nz, .asm_165b5
ld a, [hl]
and $1
jr nz, .asm_165b7
call Function165b9
xor a
ld [hBGMapMode], a
hlcoord 12, 6
ld bc, $0007
ld a, $7f
call ByteFill
hlcoord 12, 6
ld de, StringBuffer2
ld bc, $a306
call PrintNum
ld a, [$ff9b]
and $10
jr nz, .asm_165b0
hlcoord 13, 6
ld a, [wcf64]
ld c, a
ld b, $0
add hl, bc
ld [hl], $7f
.asm_165b0
call WaitBGMap
jr .asm_16571
.asm_165b5
scf
ret
.asm_165b7
and a
ret
; 165b9
Function165b9: ; 165b9
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, .asm_165e3
ld a, [hl]
and $80
jr nz, .asm_165f5
ld a, [hl]
and $20
jr nz, .asm_165d2
ld a, [hl]
and $10
jr nz, .asm_165da
and a
ret
.asm_165d2
ld hl, wcf64
ld a, [hl]
and a
ret z
dec [hl]
ret
.asm_165da
ld hl, wcf64
ld a, [hl]
cp $5
ret nc
inc [hl]
ret
.asm_165e3
ld hl, Unknown_16613
call Function16607
ld c, l
ld b, h
ld de, StringBuffer2
callba GiveMoney
ret
.asm_165f5
ld hl, Unknown_16613
call Function16607
ld c, l
ld b, h
ld de, StringBuffer2
callba TakeMoney
ret
; 16607
Function16607: ; 16607
ld a, [wcf64]
push de
ld e, a
ld d, 0
rept 3
add hl, de
endr
pop de
ret
; 16613
Unknown_16613: ; 16613
dt 100000
dt 10000
dt 1000
dt 100
dt 10
dt 1
dt 100000
dt 10000
dt 1000
dt 100
dt 10
dt 1
dt 900000
dt 90000
dt 9000
dt 900
dt 90
dt 9
; 16649
UnknownText_0x16649: ; 0x16649
; Wow, that's a cute #MON. Where did you get it? … So, you're leaving on an adventure… OK! I'll help too. But what can I do for you? I know! I'll save money for you. On a long journey, money's important. Do you want me to save your money?
text_jump UnknownText_0x1bd77f
db "@"
; 0x1664e
UnknownText_0x1664e: ; 0x1664e
; OK, I'll take care of your money.
text_jump UnknownText_0x1bd868
db "@"
; 0x16653
UnknownText_0x16653: ; 0x16653
; Be careful. #MON are your friends. You need to work as a team. Now, go on!
text_jump UnknownText_0x1bd88e
db "@"
; 0x16658
UnknownText_0x16658: ; 0x16658
; Hi! Welcome home! You're trying very hard, I see. I've kept your room tidy. Or is this about your money?
text_jump UnknownText_0x1bd8da
db "@"
; 0x1665d
UnknownText_0x1665d: ; 0x1665d
; What do you want to do?
text_jump UnknownText_0x1bd942
db "@"
; 0x16662
UnknownText_0x16662: ; 0x16662
; How much do you want to save?
text_jump UnknownText_0x1bd95b
db "@"
; 0x16667
UnknownText_0x16667: ; 0x16667
; How much do you want to take?
text_jump UnknownText_0x1bd97a
db "@"
; 0x1666c
UnknownText_0x1666c: ; 0x1666c
; Do you want to save some money?
text_jump UnknownText_0x1bd999
db "@"
; 0x16671
UnknownText_0x16671: ; 0x16671
; You haven't saved that much.
text_jump UnknownText_0x1bd9ba
db "@"
; 0x16676
UnknownText_0x16676: ; 0x16676
; You can't take that much.
text_jump UnknownText_0x1bd9d7
db "@"
; 0x1667b
UnknownText_0x1667b: ; 0x1667b
; You don't have that much.
text_jump UnknownText_0x1bd9f1
db "@"
; 0x16680
UnknownText_0x16680: ; 0x16680
; You can't save that much.
text_jump UnknownText_0x1bda0b
db "@"
; 0x16685
UnknownText_0x16685: ; 0x16685
; OK, I'll save your money. Trust me! , stick with it!
text_jump UnknownText_0x1bda25
db "@"
; 0x1668a
UnknownText_0x1668a: ; 0x1668a
; Your money's safe here! Get going!
text_jump UnknownText_0x1bda5b
db "@"
; 0x1668f
UnknownText_0x1668f: ; 0x1668f
; , don't give up!
text_jump UnknownText_0x1bda7e
db "@"
; 0x16694
UnknownText_0x16694: ; 0x16694
; Just do what you can.
text_jump UnknownText_0x1bda90
db "@"
; 0x16699
String_16699: ; 16699
db "SAVED@"
; 1669f
String_1669f: ; 1669f
db "WITHDRAW@"
; 166a8
String_166a8: ; 166a8
db "DEPOSIT@"
; 166b0
String_166b0: ; 166b0
db "HELD@"
; 166b5
MenuDataHeader_0x166b5: ; 0x166b5
db $40 ; flags
db 00, 00 ; start coords
db 10, 10 ; end coords
dw MenuData2_0x166bd
db 1 ; default option
; 0x166bd
MenuData2_0x166bd: ; 0x166bd
db $80 ; flags
db 4 ; items
db "GET@"
db "SAVE@"
db "CHANGE@"
db "CANCEL@"
; 0x166d6
Special_DayCareMan: ; 166d6
ld hl, wDaycareMan
bit 0, [hl]
jr nz, .asm_166fe
ld hl, wDaycareMan
ld a, $0
call Function1678f
jr c, .asm_16724
call Function16798
jr c, .asm_16721
callba Functionde2a
ld hl, wDaycareMan
set 0, [hl]
call Function167f6
call Function16a3b
ret
.asm_166fe
callba Functione698
ld hl, wBreedMon1Nick
call Function1686d
call Function16807
jr c, .asm_16721
callba Functiondd21
call Function16850
ld hl, wDaycareMan
res 0, [hl]
res 5, [hl]
jr .asm_16724
.asm_16721
call Function1689b
.asm_16724
ld a, $13
call Function1689b
ret
; 1672a
Special_DayCareLady: ; 1672a
ld hl, wDaycareLady
bit 0, [hl]
jr nz, .asm_16752
ld hl, wDaycareLady
ld a, $2
call Function16781
jr c, .asm_1677b
call Function16798
jr c, .asm_16778
callba Functionde37
ld hl, wDaycareLady
set 0, [hl]
call Function167f6
call Function16a3b
ret
.asm_16752
callba Functione6b3
ld hl, wBreedMon2Nick
call Function1686d
call Function16807
jr c, .asm_16778
callba Functiondd42
call Function16850
ld hl, wDaycareLady
res 0, [hl]
ld hl, wDaycareMan
res 5, [hl]
jr .asm_1677b
.asm_16778
call Function1689b
.asm_1677b
ld a, $13
call Function1689b
ret
; 16781
Function16781: ; 16781
bit 7, [hl]
jr nz, .asm_16788
set 7, [hl]
inc a
.asm_16788
call Function1689b
call YesNoBox
ret
; 1678f
Function1678f: ; 1678f
set 7, [hl]
call Function1689b
call YesNoBox
ret
; 16798
Function16798: ; 16798
ld a, [PartyCount]
cp $2
jr c, .asm_167e5
ld a, $4
call Function1689b
ld b, $6
callba Function5001d
jr c, .asm_167dd
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_167e1
callba Functione538
jr c, .asm_167e9
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
ld a, [CurPartyMon]
call AddNTimes
ld d, [hl]
callba ItemIsMail
jr c, .asm_167ed
ld hl, PartyMonNicknames
ld a, [CurPartyMon]
call GetNick
and a
ret
.asm_167dd
ld a, $12
scf
ret
.asm_167e1
ld a, $6
scf
ret
.asm_167e5
ld a, $7
scf
ret
.asm_167e9
ld a, $8
scf
ret
.asm_167ed
ld a, $a
scf
ret
; 167f1
UnknownText_0x167f1: ; 0x167f1
;
text_jump UnknownText_0x1bdaa7
db "@"
; 0x167f6
Function167f6: ; 167f6
ld a, $5
call Function1689b
ld a, [CurPartySpecies]
call PlayCry
ld a, $9
call Function1689b
ret
; 16807
Function16807: ; 16807
ld a, [StringBuffer2 + 1]
and a
jr nz, .asm_16819
ld a, $f
call Function1689b
call YesNoBox
jr c, .asm_16844
jr .asm_1682d
.asm_16819
ld a, $b
call Function1689b
call YesNoBox
jr c, .asm_16844
ld a, $c
call Function1689b
call YesNoBox
jr c, .asm_16844
.asm_1682d
ld de, Money
ld bc, StringBuffer2 + 2
callba CheckMoney
jr c, .asm_16848
ld a, [PartyCount]
cp $6
jr nc, .asm_1684c
and a
ret
.asm_16844
ld a, $12
scf
ret
.asm_16848
ld a, $11
scf
ret
.asm_1684c
ld a, $10
scf
ret
; 16850
Function16850: ; 16850
ld bc, StringBuffer2 + 2
ld de, Money
callba TakeMoney
ld a, $d
call Function1689b
ld a, [CurPartySpecies]
call PlayCry
ld a, $e
call Function1689b
ret
; 1686d
Function1686d: ; 1686d
ld a, b
ld [StringBuffer2], a
ld a, d
ld [StringBuffer2 + 1], a
ld de, StringBuffer1
ld bc, $000b
call CopyBytes
ld hl, $0000
ld bc, $0064
ld a, [StringBuffer2 + 1]
call AddNTimes
ld de, $0064
add hl, de
xor a
ld [StringBuffer2 + 2], a
ld a, h
ld [StringBuffer2 + 3], a
ld a, l
ld [StringBuffer2 + 4], a
ret
; 1689b
Function1689b: ; 1689b
ld e, a
ld d, 0
ld hl, TextTable_168aa
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
call PrintText
ret
; 168aa
TextTable_168aa: ; 168aa
dw UnknownText_0x168d2
dw UnknownText_0x168d7
dw UnknownText_0x168dc
dw UnknownText_0x168e1
dw UnknownText_0x168e6
dw UnknownText_0x168ff
dw UnknownText_0x168f0
dw UnknownText_0x168eb
dw UnknownText_0x168fa
dw UnknownText_0x16904
dw UnknownText_0x168f5
dw UnknownText_0x16909
dw UnknownText_0x1690e
dw UnknownText_0x16913
dw UnknownText_0x16918
dw UnknownText_0x1691d
dw UnknownText_0x16922
dw UnknownText_0x16927
dw UnknownText_0x1692c
dw UnknownText_0x16931
; 168d2
UnknownText_0x168d2: ; 0x168d2
; I'm the DAY-CARE MAN. Want me to raise a #MON?
text_jump UnknownText_0x1bdaa9
db "@"
; 0x168d7
UnknownText_0x168d7: ; 0x168d7
; I'm the DAY-CARE MAN. Do you know about EGGS? I was raising #MON with my wife, you see. We were shocked to find an EGG! How incredible is that? So, want me to raise a #MON?
text_jump UnknownText_0x1bdad8
db "@"
; 0x168dc
UnknownText_0x168dc: ; 0x168dc
; I'm the DAY-CARE LADY. Should I raise a #MON for you?
text_jump UnknownText_0x1bdb85
db "@"
; 0x168e1
UnknownText_0x168e1: ; 0x168e1
; I'm the DAY-CARE LADY. Do you know about EGGS? My husband and I were raising some #MON, you see. We were shocked to find an EGG! How incredible could that be? Should I raise a #MON for you?
text_jump UnknownText_0x1bdbbb
db "@"
; 0x168e6
UnknownText_0x168e6: ; 0x168e6
; What should I raise for you?
text_jump UnknownText_0x1bdc79
db "@"
; 0x168eb
UnknownText_0x168eb: ; 0x168eb
; Oh? But you have just one #MON.
text_jump UnknownText_0x1bdc97
db "@"
; 0x168f0
UnknownText_0x168f0: ; 0x168f0
; Sorry, but I can't accept an EGG.
text_jump UnknownText_0x1bdcb8
db "@"
; 0x168f5
UnknownText_0x168f5: ; 0x168f5
; Remove MAIL before you come see me.
text_jump UnknownText_0x1bdcda
db "@"
; 0x168fa
UnknownText_0x168fa: ; 0x168fa
; If you give me that, what will you battle with?
text_jump UnknownText_0x1bdcff
db "@"
; 0x168ff
UnknownText_0x168ff: ; 0x168ff
; OK. I'll raise your @ .
text_jump UnknownText_0x1bdd30
db "@"
; 0x16904
UnknownText_0x16904: ; 0x16904
; Come back for it later.
text_jump UnknownText_0x1bdd4b
db "@"
; 0x16909
UnknownText_0x16909: ; 0x16909
; Are we geniuses or what? Want to see your @ ?
text_jump UnknownText_0x1bdd64
db "@"
; 0x1690e
UnknownText_0x1690e: ; 0x1690e
; Your @ has grown a lot. By level, it's grown by @ . If you want your #MON back, it will cost ¥@ .
text_jump UnknownText_0x1bdd96
db "@"
; 0x16913
UnknownText_0x16913: ; 0x16913
; Perfect! Here's your #MON.
text_jump UnknownText_0x1bde04
db "@"
; 0x16918
UnknownText_0x16918: ; 0x16918
; got back @ .
text_jump UnknownText_0x1bde1f
db "@"
; 0x1691d
UnknownText_0x1691d: ; 0x1691d
; Huh? Back already? Your @ needs a little more time with us. If you want your #MON back, it will cost ¥100.
text_jump UnknownText_0x1bde32
db "@"
; 0x16922
UnknownText_0x16922: ; 0x16922
; You have no room for it.
text_jump UnknownText_0x1bdea2
db "@"
; 0x16927
UnknownText_0x16927: ; 0x16927
; You don't have enough money.
text_jump UnknownText_0x1bdebc
db "@"
; 0x1692c
UnknownText_0x1692c: ; 0x1692c
; Oh, fine then.
text_jump UnknownText_0x1bded9
db "@"
; 0x16931
UnknownText_0x16931: ; 0x16931
; Come again.
text_jump UnknownText_0x1bdee9
db "@"
; 0x16936
Special_DayCareManOutside: ; 16936
ld hl, wDaycareMan
bit 6, [hl]
jr nz, Function16949
ld hl, UnknownText_0x16944
call PrintText
ret
UnknownText_0x16944: ; 0x16944
; Not yet…
text_jump UnknownText_0x1bdef6
db "@"
; 0x16949
Function16949: ; 16949
ld hl, UnknownText_0x16993
call PrintText
call YesNoBox
jr c, .asm_1697c
ld a, [PartyCount]
cp PARTY_LENGTH
jr nc, .asm_16987
call Function169ac
ld hl, wDaycareMan
res 6, [hl]
call Function16a3b
ld hl, UnknownText_0x16998
call PrintText
ld de, SFX_GET_EGG_FROM_DAYCARE_LADY
call PlaySFX
ld c, $78
call DelayFrames
ld hl, UnknownText_0x1699d
jr .asm_1697f
.asm_1697c
ld hl, UnknownText_0x169a2
.asm_1697f
call PrintText
xor a
ld [ScriptVar], a
ret
.asm_16987
ld hl, UnknownText_0x169a7
call PrintText
ld a, $1
ld [ScriptVar], a
ret
; 16993
UnknownText_0x16993: ; 0x16993
; Ah, it's you! We were raising your #MON, and my goodness, were we surprised! Your #MON had an EGG! We don't know how it got there, but your #MON had it. You want it?
text_jump UnknownText_0x1bdf00
db "@"
; 0x16998
UnknownText_0x16998: ; 0x16998
; received the EGG!
text_jump UnknownText_0x1bdfa5
db "@"
; 0x1699d
UnknownText_0x1699d: ; 0x1699d
; Take good care of it.
text_jump UnknownText_0x1bdfba
db "@"
; 0x169a2
UnknownText_0x169a2: ; 0x169a2
; Well then, I'll keep it. Thanks!
text_jump UnknownText_0x1bdfd1
db "@"
; 0x169a7
UnknownText_0x169a7: ; 0x169a7
; You have no room in your party. Come back later.
text_jump UnknownText_0x1bdff2
db "@"
; 0x169ac
Function169ac: ; 169ac
ld a, [wEggMonLevel]
ld [CurPartyLevel], a
ld hl, PartyCount
ld a, [hl]
cp PARTY_LENGTH
jr nc, .asm_16a2f
inc a
ld [hl], a
ld c, a
ld b, 0
add hl, bc
ld a, EGG
ld [hli], a
ld a, [wEggMonSpecies]
ld [CurSpecies], a
ld [CurPartySpecies], a
ld a, $ff
ld [hl], a
ld hl, PartyMonNicknames
ld bc, PKMN_NAME_LENGTH
call Function16a31
ld hl, wEggNick
call CopyBytes
ld hl, PartyMonOT
ld bc, $000b
call Function16a31
ld hl, wEggOT
call CopyBytes
ld hl, PartyMon1
ld bc, PartyMon2 - PartyMon1
call Function16a31
ld hl, wEggMon
ld bc, wEggMonEnd - wEggMon
call CopyBytes
call GetBaseData
ld a, [PartyCount]
dec a
ld hl, PartyMon1
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld b, h
ld c, l
ld hl, PartyMon1ID + 1 - PartyMon1
add hl, bc
push hl
ld hl, PartyMon1MaxHP - PartyMon1
add hl, bc
ld d, h
ld e, l
pop hl
push bc
ld b, $0
predef Functione167
pop bc
ld hl, PartyMon1HP - PartyMon1
add hl, bc
xor a
ld [hli], a
ld [hl], a
and a
ret
.asm_16a2f
scf
ret
; 16a31
Function16a31: ; 16a31
ld a, [PartyCount]
dec a
call AddNTimes
ld d, h
ld e, l
ret
; 16a3b
Function16a3b: ; 16a3b
ld a, [wDaycareLady]
bit 0, a
ret z
ld a, [wDaycareMan]
bit 0, a
ret z
callab Function16e1d
ld a, [wd265]
and a
ret z
inc a
ret z
ld hl, wDaycareMan
set 5, [hl]
.asm_16a59
call Random
cp 150
jr c, .asm_16a59
ld [wStepsToEgg], a
jp Function16a66
; 16a66
Function16a66: ; 16a66
xor a
ld hl, wEggMon
ld bc, wEggMonEnd - wEggMon
call ByteFill
ld hl, wEggNick
ld bc, PKMN_NAME_LENGTH
call ByteFill
ld hl, wEggOT
ld bc, NAME_LENGTH
call ByteFill
ld a, [wBreedMon1DVs]
ld [TempMonDVs], a
ld a, [wBreedMon1DVs + 1]
ld [TempMonDVs + 1], a
ld a, [wBreedMon1Species]
ld [CurPartySpecies], a
ld a, $3
ld [MonType], a
ld a, [wBreedMon1Species]
cp DITTO
ld a, $1
jr z, .asm_16ab6
ld a, [wBreedMon2Species]
cp DITTO
ld a, $0
jr z, .asm_16ab6
callba GetGender
ld a, $0
jr z, .asm_16ab6
inc a
.asm_16ab6
ld [wDittoInDaycare], a
and a
ld a, [wBreedMon1Species]
jr z, .asm_16ac2
ld a, [wBreedMon2Species]
.asm_16ac2
ld [CurPartySpecies], a
callab GetPreEvolution
callab GetPreEvolution
ld a, EGG_LEVEL
ld [CurPartyLevel], a
ld a, [CurPartySpecies]
cp NIDORAN_F
jr nz, .asm_16ae8
call Random
cp $80
ld a, NIDORAN_F
jr c, .asm_16ae8
ld a, NIDORAN_M
.asm_16ae8
ld [CurPartySpecies], a
ld [CurSpecies], a
ld [wEggMonSpecies], a
call GetBaseData
ld hl, wEggNick
ld de, String_16be0
call CopyName2
ld hl, PlayerName
ld de, wEggOT
ld bc, NAME_LENGTH
call CopyBytes
xor a
ld [wEggMonItem], a
ld de, wEggMonMoves
xor a
ld [Buffer1], a
predef FillMoves
callba Function170bf
ld hl, wEggMonID
ld a, [PlayerID]
ld [hli], a
ld a, [PlayerID + 1]
ld [hl], a
ld a, [CurPartyLevel]
ld d, a
callab Function50e47
ld hl, wEggMonExp
ld a, [hMultiplicand]
ld [hli], a
ld a, [$ffb5]
ld [hli], a
ld a, [$ffb6]
ld [hl], a
xor a
ld b, $a
ld hl, wEggMonStatExp
.asm_16b46
ld [hli], a
dec b
jr nz, .asm_16b46
ld hl, wEggMonDVs
call Random
ld [hli], a
ld [TempMonDVs], a
call Random
ld [hld], a
ld [TempMonDVs + 1], a
ld de, wBreedMon1DVs
ld a, [wBreedMon1Species]
cp DITTO
jr z, .asm_16b98
ld de, wBreedMon2DVs
ld a, [wBreedMon2Species]
cp DITTO
jr z, .asm_16b98
ld a, $3
ld [MonType], a
push hl
callba GetGender
pop hl
ld de, wBreedMon1DVs
ld bc, wBreedMon2DVs
jr c, .asm_16bab
jr z, .asm_16b90
ld a, [wDittoInDaycare]
and a
jr z, .asm_16b98
ld d, b
ld e, c
jr .asm_16b98
.asm_16b90
ld a, [wDittoInDaycare]
and a
jr nz, .asm_16b98
ld d, b
ld e, c
.asm_16b98
ld a, [de]
inc de
and $f
ld b, a
ld a, [hl]
and $f0
add b
ld [hli], a
ld a, [de]
and $7
ld b, a
ld a, [hl]
and $f8
add b
ld [hl], a
.asm_16bab
ld hl, StringBuffer1
ld de, wd050
ld bc, $000b
call CopyBytes
ld hl, wEggMonMoves
ld de, wEggMonPP
predef FillPP
ld hl, wd050
ld de, StringBuffer1
ld bc, $000b
call CopyBytes
ld a, [BaseEggSteps]
ld hl, wEggMonHappiness
ld [hli], a
xor a
rept 2
ld [hli], a
endr
ld [hl], a
ld a, [CurPartyLevel]
ld [wEggMonLevel], a
ret
; 16be0
String_16be0: ; 16be0
db "EGG@"
; 16be4
Function16be4: ; 16be4
ld a, [UnownDex]
and a
ret z
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
ld a, [Options]
push af
set 4, a
ld [Options], a
call WhiteBGMap
call ClearTileMap
ld de, UnownDexATile
ld hl, $8ef0
lb bc, BANK(UnownDexBTile), 1
call Request1bpp
ld de, UnownDexBTile
ld hl, $8f50
lb bc, BANK(UnownDexBTile), 1
call Request1bpp
hlcoord 0, 0
ld bc, $0312
call TextBox
hlcoord 0, 5
lb bc, 7, 7
call TextBox
hlcoord 0, 14
ld bc, $0212
call TextBox
hlcoord 1, 2
ld de, AlphRuinsStampString
call PlaceString
hlcoord 1, 16
ld de, UnownDexDoWhatString
call PlaceString
hlcoord 10, 6
ld de, UnownDexMenuString
call PlaceString
xor a
ld [wcf63], a
call Function16cc8
call WaitBGMap
ld a, UNOWN
ld [CurPartySpecies], a
xor a
ld [TempMonDVs], a
ld [TempMonDVs + 1], a
ld b, $1c
call GetSGBLayout
call Function32f9
.asm_16c6b
call Functiona57
ld a, [hJoyPressed]
and B_BUTTON
jr nz, .asm_16c95
ld a, [hJoyPressed]
and A_BUTTON
jr nz, .asm_16c82
call Function16ca0
call DelayFrame
jr .asm_16c6b
.asm_16c82
ld a, [wcf63]
push af
callba Function84560
call RestartMapMusic
pop af
ld [wcf63], a
jr .asm_16c6b
.asm_16c95
pop af
ld [Options], a
pop af
ld [$ffaa], a
call Function222a
ret
; 16ca0
Function16ca0: ; 16ca0
ld a, [$ffa9]
and $10
jr nz, .asm_16cb9
ld a, [$ffa9]
and $20
jr nz, .asm_16cad
ret
.asm_16cad
ld hl, wcf63
ld a, [hl]
and a
jr nz, .asm_16cb6
ld [hl], $1b
.asm_16cb6
dec [hl]
jr .asm_16cc4
.asm_16cb9
ld hl, wcf63
ld a, [hl]
cp $1a
jr c, .asm_16cc3
ld [hl], $ff
.asm_16cc3
inc [hl]
.asm_16cc4
call Function16cc8
ret
; 16cc8
Function16cc8: ; 16cc8
ld a, [wcf63]
cp 26
jr z, Function16d20
inc a
ld [UnownLetter], a
ld a, UNOWN
ld [CurPartySpecies], a
xor a
ld [wc2c6], a
ld de, VTiles2
predef GetFrontpic
call Function16cff
hlcoord 1, 6
xor a
ld [$ffad], a
lb bc, 7, 7
predef FillBox
ld de, $9310
callba Functione0000
ret
; 16cff
Function16cff: ; 16cff
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld a, $0
call GetSRAMBank
ld de, w6_d000
ld hl, $a000
ld a, [hROMBank]
ld b, a
ld c, $31
call Get2bpp
call CloseSRAM
pop af
ld [rSVBK], a
ret
; 16d20
Function16d20: ; 16d20
hlcoord 1, 6
lb bc, 7, 7
call ClearBox
hlcoord 1, 9
ld de, UnownDexVacantString
call PlaceString
xor a
call GetSRAMBank
ld hl, $a000
ld bc, $0310
xor a
call ByteFill
ld hl, $9310
ld de, $a000
ld c, $31
ld a, [hROMBank]
ld b, a
call Get2bpp
call CloseSRAM
ld c, $14
call DelayFrames
ret
; 16d57
AlphRuinsStampString:
db " ALPH RUINS STAMP@"
UnownDexDoWhatString:
db "Do what?@"
UnownDexMenuString:
db $ef, " PRINT", $4e
db $f5, " CANCEL", $4e
db $df, " PREVIOUS", $4e
db $eb, " NEXT@"
UnownDexVacantString:
db "VACANT@"
; 16d9c
UnownDexATile: ; 16d9c
INCBIN "gfx/unknown/016d9c.1bpp"
UnownDexBTile: ; 16da4
INCBIN "gfx/unknown/016da4.1bpp"
; 16dac
Function16dac: ; 16dac
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
hlcoord 7, 11
ld a, $31
ld [$ffad], a
lb bc, 7, 7
predef FillBox
ret
; 16dc7
Function16dc7: ; 16dc7
ld hl, UnknownText_0x16e04
call PrintText
callba SelectMonFromParty
jr c, .asm_16df8
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_16dfd
ld hl, UnknownText_0x16e09
call PrintText
call Function2ed3
callba Function8461a
call Function2b74
ld a, [$ffac]
and a
jr nz, .asm_16df8
ld hl, UnknownText_0x16e0e
jr .asm_16e00
.asm_16df8
ld hl, UnknownText_0x16e13
jr .asm_16e00
.asm_16dfd
ld hl, UnknownText_0x16e18
.asm_16e00
call PrintText
ret
; 16e04
UnknownText_0x16e04: ; 0x16e04
; Which #MON should I photo- graph?
text_jump UnknownText_0x1be024
db "@"
; 0x16e09
UnknownText_0x16e09: ; 0x16e09
; All righty. Hold still for a bit.
text_jump UnknownText_0x1be047
db "@"
; 0x16e0e
UnknownText_0x16e0e: ; 0x16e0e
; Presto! All done. Come again, OK?
text_jump UnknownText_0x1be06a
db "@"
; 0x16e13
UnknownText_0x16e13: ; 0x16e13
; Oh, no picture? Come again, OK?
text_jump UnknownText_0x1c0000
db "@"
; 0x16e18
UnknownText_0x16e18: ; 0x16e18
; An EGG? My talent is worth more…
text_jump UnknownText_0x1c0021
db "@"
; 0x16e1d
Function16e1d: ; 16e1d
call Function16ed6
ld c, $0
jp nc, .asm_16eb7
ld a, [wBreedMon1Species]
ld [CurPartySpecies], a
ld a, [wBreedMon1DVs]
ld [TempMonDVs], a
ld a, [wBreedMon1DVs + 1]
ld [TempMonDVs + 1], a
ld a, $3
ld [MonType], a
predef GetGender
jr c, .asm_16e70
ld b, $1
jr nz, .asm_16e48
inc b
.asm_16e48
push bc
ld a, [wBreedMon2Species]
ld [CurPartySpecies], a
ld a, [wBreedMon2DVs]
ld [TempMonDVs], a
ld a, [wBreedMon2DVs + 1]
ld [TempMonDVs + 1], a
ld a, $3
ld [MonType], a
predef GetGender
pop bc
jr c, .asm_16e70
ld a, $1
jr nz, .asm_16e6d
inc a
.asm_16e6d
cp b
jr nz, .asm_16e89
.asm_16e70
ld c, $0
ld a, [wBreedMon1Species]
cp DITTO
jr z, .asm_16e82
ld a, [wBreedMon2Species]
cp DITTO
jr nz, .asm_16eb7
jr .asm_16e89
.asm_16e82
ld a, [wBreedMon2Species]
cp DITTO
jr z, .asm_16eb7
.asm_16e89
call Function16ebc
ld c, $ff
jp z, .asm_16eb7
ld a, [wBreedMon2Species]
ld b, a
ld a, [wBreedMon1Species]
cp b
ld c, $fe
jr z, .asm_16e9f
ld c, $80
.asm_16e9f
ld a, [wBreedMon1ID]
ld b, a
ld a, [wBreedMon2ID]
cp b
jr nz, .asm_16eb7
ld a, [wBreedMon1ID + 1]
ld b, a
ld a, [wBreedMon2ID + 1]
cp b
jr nz, .asm_16eb7
ld a, c
sub $4d
ld c, a
.asm_16eb7
ld a, c
ld [wd265], a
ret
; 16ebc
Function16ebc: ; 16ebc (5:6ebc)
ld a, [wBreedMon1DVs]
and $f
ld b, a
ld a, [wBreedMon2DVs]
and $f
cp b
ret nz
ld a, [wBreedMon1DVs + 1]
and $7
ld b, a
ld a, [wBreedMon2DVs + 1]
and $7
cp b
ret
; 16ed6
Function16ed6: ; 16ed6
ld a, [wBreedMon2Species]
ld [CurSpecies], a
call GetBaseData
ld a, [BaseEggGroups]
cp $ff
jr z, .asm_16f3a
ld a, [wBreedMon1Species]
ld [CurSpecies], a
call GetBaseData
ld a, [BaseEggGroups]
cp $ff
jr z, .asm_16f3a
ld a, [wBreedMon2Species]
cp DITTO
jr z, .asm_16f3c
ld [CurSpecies], a
call GetBaseData
ld a, [BaseEggGroups]
push af
and $f
ld b, a
pop af
and $f0
swap a
ld c, a
ld a, [wBreedMon1Species]
cp DITTO
jr z, .asm_16f3c
ld [CurSpecies], a
push bc
call GetBaseData
pop bc
ld a, [BaseEggGroups]
push af
and $f
ld d, a
pop af
and $f0
swap a
ld e, a
ld a, d
cp b
jr z, .asm_16f3c
cp c
jr z, .asm_16f3c
ld a, e
cp b
jr z, .asm_16f3c
cp c
jr z, .asm_16f3c
.asm_16f3a
and a
ret
.asm_16f3c
scf
ret
; 16f3e
Function16f3e:: ; 16f3e
ld de, PartySpecies
ld hl, PartyMon1Happiness
ld c, 0
.loop
ld a, [de]
inc de
cp -1
ret z
cp EGG
jr nz, .next
dec [hl]
jr nz, .next
ld a, 1
and a
ret
.next
push de
ld de, PartyMon2 - PartyMon1
add hl, de
pop de
jr .loop
; 16f5e
OverworldHatchEgg:: ; 16f5e
call ResetWindow
call Function1d6e
call Function16f70
call Function2b4d
call RestartMapMusic
jp Function2dcf
; 16f70
Function16f70: ; 16f70 (5:6f70)
ld de, PartySpecies
ld hl, PartyMon1Happiness
xor a
ld [CurPartyMon], a
Function16f7a: ; 16f7a (5:6f7a)
ld a, [de]
inc de
cp -1
jp z, Function1708a
push de
push hl
cp EGG
jp nz, Function1707d
ld a, [hl]
and a
jp nz, Function1707d
ld [hl], $78
push de
callba Function4dbb8
callba Function10608d
ld a, [CurPartyMon]
ld hl, PartyMons ; wdcdf (aliases: PartyMon1, PartyMon1Species)
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [hl]
ld [CurPartySpecies], a
dec a
call SetSeenAndCaughtMon
ld a, [CurPartySpecies]
cp TOGEPI
jr nz, .nottogepi
; set the event flag for hatching togepi
ld de, EVENT_TOGEPI_HATCHED
ld b, SET_FLAG
call EventFlagAction
.nottogepi
pop de
ld a, [CurPartySpecies]
dec de
ld [de], a
ld [wd265], a
ld [CurSpecies], a
call GetPokemonName
xor a
ld [wd26b], a
call GetBaseData
ld a, [CurPartyMon]
ld hl, PartyMons ; wdcdf (aliases: PartyMon1, PartyMon1Species)
ld bc, PartyMon2 - PartyMon1
call AddNTimes
push hl
ld bc, PartyMon1MaxHP - PartyMon1
add hl, bc
ld d, h
ld e, l
pop hl
push hl
ld bc, PartyMon1Level - PartyMon1
add hl, bc
ld a, [hl]
ld [CurPartyLevel], a
pop hl
push hl
ld bc, PartyMon1Status - PartyMon1
add hl, bc
xor a
ld [hli], a
ld [hl], a
pop hl
push hl
ld bc, PartyMon1Exp + 2 - PartyMon1
add hl, bc
ld b, $0
predef Functione167
pop bc
ld hl, PartyMon1MaxHP - PartyMon1
add hl, bc
ld d, h
ld e, l
ld hl, PartyMon1HP - PartyMon1
add hl, bc
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
ld hl, PartyMon1ID - PartyMon1
add hl, bc
ld a, [PlayerID]
ld [hli], a
ld a, [PlayerID + 1]
ld [hl], a
ld a, [CurPartyMon]
ld hl, PartyMonOT ; wddff (aliases: PartyMonOT)
ld bc, NAME_LENGTH
call AddNTimes
ld d, h
ld e, l
ld hl, PlayerName
call CopyBytes
ld hl, UnknownText_0x1708b
call PrintText
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
ld bc, PKMN_NAME_LENGTH
call AddNTimes
ld d, h
ld e, l
push de
ld hl, UnknownText_0x170ba
call PrintText
call YesNoBox
pop de
jr c, .nonickname
ld a, $1
ld [wd26b], a
xor a
ld [MonType], a
push de
ld b, $0
callba Function116c1
pop hl
ld de, StringBuffer1
call InitName
jr Function1707d
.nonickname
ld hl, StringBuffer1
ld bc, PKMN_NAME_LENGTH
call CopyBytes
Function1707d: ; 1707d (5:707d)
ld hl, CurPartyMon
inc [hl]
pop hl
ld de, PartyMon2 - PartyMon1
add hl, de
pop de
jp Function16f7a
Function1708a: ; 1708a (5:708a)
ret
; 1708b (5:708b)
UnknownText_0x1708b: ; 0x1708b
; Huh? @ @
text_jump UnknownText_0x1c0db0
start_asm
; 0x17090
Function17090: ; 17090
ld hl, VramState
res 0, [hl]
push hl
push de
push bc
ld a, [CurPartySpecies]
push af
call Function1728f
ld hl, UnknownText_0x170b0
call PrintText
pop af
ld [CurPartySpecies], a
pop bc
pop de
pop hl
ld hl, UnknownText_0x170b5
ret
; 170b0 (5:70b0)
UnknownText_0x170b0: ; 0x170b0
;
text_jump UnknownText_0x1c0db8
db "@"
; 0x170b5
UnknownText_0x170b5: ; 0x170b5
; came out of its EGG!@ @
text_jump UnknownText_0x1c0dba
db "@"
; 0x170ba
UnknownText_0x170ba: ; 0x170ba
; Give a nickname to @ ?
text_jump UnknownText_0x1c0dd8
db "@"
; 0x170bf
Function170bf: ; 170bf
call Function17197
ld d, h
ld e, l
ld b, NUM_MOVES
.loop
ld a, [de]
and a
jr z, .done
ld hl, wEggMonMoves
ld c, NUM_MOVES
.next
ld a, [de]
cp [hl]
jr z, .skip
inc hl
dec c
jr nz, .next
call Function170e4
jr nc, .skip
call Function17169
.skip
inc de
dec b
jr nz, .loop
.done
ret
; 170e4
Function170e4: ; 170e4
GLOBAL EggMoves
push bc
ld a, [wEggMonSpecies]
dec a
ld c, a
ld b, 0
ld hl, EggMovePointers
rept 2
add hl, bc
endr
ld a, BANK(EggMovePointers)
call GetFarHalfword
.loop
ld a, BANK(EggMoves)
call GetFarByte
cp -1
jr z, .found_mon
ld b, a
ld a, [de]
cp b
jr z, .done_carry
inc hl
jr .loop
.found_mon
call Function1720b
ld b, NUM_MOVES
.loop2
ld a, [de]
cp [hl]
jr z, .found_eggmove
inc hl
dec b
jr z, .inherit_tmhm
jr .loop2
.found_eggmove
ld a, [wEggMonSpecies]
dec a
ld c, a
ld b, 0
ld hl, EvosAttacksPointers
rept 2
add hl, bc
endr
ld a, BANK(EvosAttacksPointers)
call GetFarHalfword
.loop3
ld a, BANK(EvosAttacks)
call GetFarByte
inc hl
and a
jr nz, .loop3
.loop4
ld a, BANK(EvosAttacks)
call GetFarByte
and a
jr z, .inherit_tmhm
inc hl
ld a, BANK(EvosAttacks)
call GetFarByte
ld b, a
ld a, [de]
cp b
jr z, .done_carry
inc hl
jr .loop4
.inherit_tmhm
ld hl, TMHMMoves
.loop5
ld a, BANK(TMHMMoves)
call GetFarByte
inc hl
and a
jr z, .done
ld b, a
ld a, [de]
cp b
jr nz, .loop5
ld [wd262], a
predef CanLearnTMHMMove
ld a, c
and a
jr z, .done
.done_carry
pop bc
scf
ret
.done
pop bc
and a
ret
; 17169
Function17169: ; 17169
push de
push bc
ld a, [de]
ld b, a
ld hl, wEggMonMoves
ld c, NUM_MOVES
.loop
ld a, [hli]
and a
jr z, .done
dec c
jr nz, .loop
ld de, wEggMonMoves
ld hl, wEggMonMoves + 1
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
.done
dec hl
ld [hl], b
ld hl, wEggMonMoves
ld de, wEggMonPP
predef FillPP
pop bc
pop de
ret
; 17197
Function17197: ; 17197
ld hl, wBreedMon2Moves
ld a, [wBreedMon1Species]
cp DITTO
jr z, .ditto1
ld a, [wBreedMon2Species]
cp DITTO
jr z, .ditto2
ld a, [wDittoInDaycare]
and a
ret z
ld hl, wBreedMon1Moves
ret
.ditto1
ld a, [CurPartySpecies]
push af
ld a, [wBreedMon2Species]
ld [CurPartySpecies], a
ld a, [wBreedMon2DVs]
ld [TempMonDVs], a
ld a, [wBreedMon2DVs + 1]
ld [TempMonDVs + 1], a
ld a, $3
ld [MonType], a
predef GetGender
jr c, .inherit_mon2_moves
jr nz, .inherit_mon2_moves
jr .inherit_mon1_moves
.ditto2
ld a, [CurPartySpecies]
push af
ld a, [wBreedMon1Species]
ld [CurPartySpecies], a
ld a, [wBreedMon1DVs]
ld [TempMonDVs], a
ld a, [wBreedMon1DVs + 1]
ld [TempMonDVs + 1], a
ld a, $3
ld [MonType], a
predef GetGender
jr c, .inherit_mon1_moves
jr nz, .inherit_mon1_moves
.inherit_mon2_moves
ld hl, wBreedMon2Moves
pop af
ld [CurPartySpecies], a
ret
.inherit_mon1_moves
ld hl, wBreedMon1Moves
pop af
ld [CurPartySpecies], a
ret
; 1720b
Function1720b: ; 1720b
ld hl, wBreedMon1Moves
ld a, [wBreedMon1Species]
cp DITTO
ret z
ld a, [wBreedMon2Species]
cp DITTO
jr z, .ditto
ld a, [wDittoInDaycare]
and a
ret z
.ditto
ld hl, wBreedMon2Moves
ret
; 17224
Function17224: ; 17224 (5:7224)
push de
ld [CurPartySpecies], a
ld [CurSpecies], a
call GetBaseData
ld hl, BattleMonDVs
predef GetUnownLetter
pop de
predef_jump GetFrontpic
Function1723c: ; 1723c (5:723c)
push de
ld [CurPartySpecies], a
ld [CurSpecies], a
call GetBaseData
ld hl, BattleMonDVs
predef GetUnownLetter
pop de
predef_jump Function5108b
Function17254: ; 17254 (5:7254)
push af
call WaitTop
push hl
push bc
hlcoord 0, 0
ld bc, $168
ld a, $7f
call ByteFill
pop bc
pop hl
ld a, b
ld [$ffd7], a
ld a, c
ld [$ffad], a
ld bc, $707
predef FillBox
pop af
call Function17363
call Function32f9
jp WaitBGMap
Function1727f: ; 1727f (5:727f)
push hl
push de
push bc
callab Function8cf69
call DelayFrame
pop bc
pop de
pop hl
ret
Function1728f: ; 1728f (5:728f)
ld a, [wd265]
ld [wcf63], a
ld a, [CurSpecies]
push af
ld de, MUSIC_NONE
call PlayMusic
callba Function8000
call DisableLCD
ld hl, EggHatchGFX
ld de, $8000
ld bc, $20
ld a, BANK(EggHatchGFX)
call FarCopyBytes
callba Function8cf53
ld de, $9000
ld a, [wcf63]
call Function1723c
ld de, $9310
ld a, EGG
call Function17224
ld de, MUSIC_EVOLUTION
call PlayMusic
call EnableLCD
hlcoord 7, 4
ld b, $98
ld c, $31
ld a, EGG
call Function17254
ld c, $50
call DelayFrames
xor a
ld [wcf64], a
ld a, [hSCX] ; $ff00+$cf
ld b, a
.asm_172ee
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $8
jr nc, .asm_17327
ld e, [hl]
.asm_172f8
ld a, $2
ld [hSCX], a ; $ff00+$cf
ld a, $fe
ld [wc3c0], a
call Function1727f
ld c, $2
call DelayFrames
ld a, $fe
ld [hSCX], a ; $ff00+$cf
ld a, $2
ld [wc3c0], a
call Function1727f
ld c, $2
call DelayFrames
dec e
jr nz, .asm_172f8
ld c, $10
call DelayFrames
call Function1736d
jr .asm_172ee
.asm_17327
ld de, SFX_EGG_HATCH
call PlaySFX
xor a
ld [hSCX], a ; $ff00+$cf
ld [wc3c0], a
call ClearSprites
call Function173b3
hlcoord 6, 3
ld b, $98
ld c, $0
ld a, [wcf63]
call Function17254
call Function17418
call WaitSFX
ld a, [wcf63]
ld [CurPartySpecies], a
hlcoord 6, 3
ld d, $0
ld e, $5
predef Functiond008e
pop af
ld [CurSpecies], a
ret
Function17363: ; 17363 (5:7363)
ld [PlayerHPPal], a
ld b, $b
ld c, $0
jp GetSGBLayout
Function1736d: ; 1736d (5:736d)
ld a, [wcf64]
dec a
and $7
cp $7
ret z
srl a
ret nc
swap a
srl a
add $4c
ld d, a
ld e, $58
ld a, $19
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $0
ld de, SFX_EGG_CRACK
jp PlaySFX
; 17393 (5:7393)
EggHatchGFX: ; 17393
INCBIN "gfx/unknown/017393.2bpp"
; 173b3
Function173b3: ; 173b3 (5:73b3)
callba Function8cf53
ld hl, Unknown_173ef
.asm_173bc
ld a, [hli]
cp $ff
jr z, .asm_173e5
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
push hl
push bc
ld a, $1c
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $0
pop de
ld a, e
ld hl, $1
add hl, bc
add [hl]
ld [hl], a
ld hl, $b
add hl, bc
ld [hl], d
pop hl
jr .asm_173bc
.asm_173e5
ld de, SFX_EGG_HATCH
call PlaySFX
call Function1727f
ret
; 173ef (5:73ef)
Unknown_173ef: ; 173ef
; Probably OAM.
db $54, $48, $00, $3c
db $5c, $48, $01, $04
db $54, $50, $00, $30
db $5c, $50, $01, $10
db $54, $58, $02, $24
db $5c, $58, $03, $1c
db $50, $4c, $00, $36
db $60, $4c, $01, $0a
db $50, $54, $02, $2a
db $60, $54, $03, $16
db $ff
; 17418
Function17418: ; 17418 (5:7418)
ld c, $81
.asm_1741a
call Function1727f
dec c
jr nz, .asm_1741a
ret
Function17421: ; 17421
ld hl, UnknownText_0x17467
call PrintText
ld a, [wBreedMon1Species]
call PlayCry
ld a, [wDaycareLady]
bit 0, a
jr z, Function1745f
call KeepTextOpen
ld hl, wBreedMon2Nick
call Function1746c
jp PrintText
Function17440: ; 17440
ld hl, UnknownText_0x17462
call PrintText
ld a, [wBreedMon2Species]
call PlayCry
ld a, [wDaycareMan]
bit 0, a
jr z, Function1745f
call KeepTextOpen
ld hl, wBreedMon1Nick
call Function1746c
jp PrintText
Function1745f: ; 1745f
jp Functiona80
; 17462
UnknownText_0x17462: ; 0x17462
; It's @ that was left with the DAY-CARE LADY.
text_jump UnknownText_0x1c0df3
db "@"
; 0x17467
UnknownText_0x17467: ; 0x17467
; It's @ that was left with the DAY-CARE MAN.
text_jump UnknownText_0x1c0e24
db "@"
; 0x1746c
Function1746c: ; 1746c
push bc
ld de, StringBuffer1
ld bc, $000b
call CopyBytes
call Function16e1d
pop bc
ld a, [wd265]
ld hl, UnknownText_0x1749c
cp $ff
jr z, .asm_1749b
ld hl, UnknownText_0x174a1
and a
jr z, .asm_1749b
ld hl, UnknownText_0x174a6
cp 230
jr nc, .asm_1749b
cp 70
ld hl, UnknownText_0x174ab
jr nc, .asm_1749b
ld hl, UnknownText_0x174b0
.asm_1749b
ret
; 1749c
UnknownText_0x1749c: ; 0x1749c
; It's brimming with energy.
text_jump UnknownText_0x1c0e54
db "@"
; 0x174a1
UnknownText_0x174a1: ; 0x174a1
; It has no interest in @ .
text_jump UnknownText_0x1c0e6f
db "@"
; 0x174a6
UnknownText_0x174a6: ; 0x174a6
; It appears to care for @ .
text_jump UnknownText_0x1c0e8d
db "@"
; 0x174ab
UnknownText_0x174ab: ; 0x174ab
; It's friendly with @ .
text_jump UnknownText_0x1c0eac
db "@"
; 0x174b0
UnknownText_0x174b0: ; 0x174b0
; It shows interest in @ .
text_jump UnknownText_0x1c0ec6
db "@"
; 0x174b5
Function_174b5: ; 174b5
ld hl, String_174b9
ret
; 174b9
String_174b9: ; 174b9
db "@"
; 174ba
SECTION "Tileset Data 1", ROMX, BANK[TILESETS_1]
INCLUDE "tilesets/data_1.asm"
SECTION "Roofs", ROMX, BANK[ROOFS]
INCLUDE "tilesets/roofs.asm"
SECTION "Tileset Data 2", ROMX, BANK[TILESETS_2]
INCLUDE "tilesets/data_2.asm"
SECTION "bank8", ROMX, BANK[$8]
Function20000: ; 20000 (8:4000)
push hl
dec a
ld e, a
ld d, 0
ld hl, Unknown_20015
rept 4
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
inc hl
ld b, [hl]
inc hl
ld c, [hl]
pop hl
ret
; 20015 (8:4015)
Unknown_20015: ; 20015
dw wd1ed
db $07, $04
dw wd1ee
db $18, $0c
dw wd1ef
db $3c, $0f
; 20021
Function20021: ; 20021 (8:4021)
ld hl, UnknownText_0x20047
call PrintText
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function1d6e
call ClearTileMap
ld hl, UnknownText_0x2004c
call PrintText
call Function20051
call ExitMenu
pop bc
ld hl, Options
ld [hl], b
ld c, a
ret
; 20047 (8:4047)
UnknownText_0x20047: ; 0x20047
; The clock's time may be wrong. Please reset the time.
text_jump UnknownText_0x1c40e6
db "@"
; 0x2004c
UnknownText_0x2004c: ; 0x2004c
; Set with the Control Pad. Confirm: A Button Cancel: B Button
text_jump UnknownText_0x1c411c
db "@"
; 0x20051
Function20051: ; 20051 (8:4051)
ld a, $1
ld [Buffer1], a ; wd1ea (aliases: MagikarpLength)
ld [Buffer2], a ; wd1eb (aliases: MovementType)
ld a, $8
ld [wd1ec], a
call UpdateTime
call GetWeekday
ld [wd1ed], a
ld a, [hHours] ; $ff00+$94
ld [wd1ee], a
ld a, [hMinutes] ; $ff00+$96
ld [wd1ef], a
.asm_20071
call Function200ba
jr nc, .asm_20071
and a
ret nz
call Function2011f
ld hl, UnknownText_0x200b0
call PrintText
call YesNoBox
jr c, .asm_200ad
ld a, [wd1ed]
ld [StringBuffer2], a
ld a, [wd1ee]
ld [StringBuffer2 + 1], a
ld a, [wd1ef]
ld [StringBuffer2 + 2], a
xor a
ld [StringBuffer2 + 3], a
call Function677
call Function2011f
ld hl, UnknownText_0x200b5
call PrintText
call Functiona80
xor a
ret
.asm_200ad
ld a, $1
ret
; 200b0 (8:40b0)
UnknownText_0x200b0: ; 0x200b0
; Is this OK?
text_jump UnknownText_0x1c415b
db "@"
; 0x200b5
UnknownText_0x200b5: ; 0x200b5
; The clock has been reset.
text_jump UnknownText_0x1c4168
db "@"
; 0x200ba
Function200ba: ; 200ba (8:40ba)
call Function354b
ld c, a
push af
call Function2011f
pop af
bit 0, a
jr nz, .asm_200dd
bit 1, a
jr nz, .asm_200e1
bit 6, a
jr nz, .asm_200e5
bit 7, a
jr nz, .asm_200f6
bit 5, a
jr nz, .asm_20108
bit 4, a
jr nz, .asm_20112
jr Function200ba
.asm_200dd
ld a, $0
scf
ret
.asm_200e1
ld a, $1
scf
ret
.asm_200e5
ld a, [Buffer1] ; wd1ea (aliases: MagikarpLength)
call Function20000
ld a, [de]
inc a
ld [de], a
cp b
jr c, .asm_2011d
ld a, $0
ld [de], a
jr .asm_2011d
.asm_200f6
ld a, [Buffer1] ; wd1ea (aliases: MagikarpLength)
call Function20000
ld a, [de]
dec a
ld [de], a
cp $ff
jr nz, .asm_2011d
ld a, b
dec a
ld [de], a
jr .asm_2011d
.asm_20108
ld hl, Buffer1 ; wd1ea (aliases: MagikarpLength)
dec [hl]
jr nz, .asm_2011d
ld [hl], $3
jr .asm_2011d
.asm_20112
ld hl, Buffer1 ; wd1ea (aliases: MagikarpLength)
inc [hl]
ld a, [hl]
cp $4
jr c, .asm_2011d
ld [hl], $1
.asm_2011d
xor a
ret
Function2011f: ; 2011f (8:411f)
hlcoord 0, 5
ld b, $5
ld c, $12
call TextBox
decoord 1, 8
ld a, [wd1ed]
ld b, a
callba Function5b05
ld a, [wd1ee]
ld b, a
ld a, [wd1ef]
ld c, a
decoord 11, 8
callba Function1dd6bb
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
lb de, $7f, $7f
call Function20168
ld a, [Buffer1] ; wd1ea (aliases: MagikarpLength)
lb de, $61, $ee
call Function20168
ld a, [Buffer1] ; wd1ea (aliases: MagikarpLength)
ld [Buffer2], a ; wd1eb (aliases: MovementType)
ret
; 20160 (8:4160)
Function20160: ; 20160
ld a, [wd1ec]
ld b, a
call GetTileCoord
ret
; 20168
Function20168: ; 20168 (8:4168)
push de
call Function20000
ld a, [wd1ec]
dec a
ld b, a
call GetTileCoord
pop de
ld [hl], d
ld bc, $28
add hl, bc
ld [hl], e
ret
; 2017c (8:417c)
String_2017c: ; 2017c
db "じ@" ; HR
; 2017e
String_2017e: ; 2017e
db "ふん@" ; MIN
; 20181
SECTION "Tileset Data 3", ROMX, BANK[TILESETS_3]
INCLUDE "tilesets/data_3.asm"
SECTION "bank9", ROMX, BANK[$9]
Unknown_24000:: ; 24000
dw StringBuffer3
dw StringBuffer4
dw StringBuffer5
dw StringBuffer2
dw StringBuffer1
dw EnemyMonNick
dw BattleMonNick
; 2400e
Function2400e:: ; 2400e
ld hl, Function1c66
ld a, [wcf94]
rst FarCall
call Function24085
call DrawOnMap
call Function321c
call Function2408f
ret
; 24022
Function24022:: ; 24022
ld hl, Function1c66
ld a, [wcf94]
rst FarCall
call Function24085
callba MobileTextBorder
call DrawOnMap
call Function321c
call Function2408f
ret
; 2403c
Function2403c:: ; 2403c
ld hl, Function1c66
ld a, [wcf94]
rst FarCall
call Function24085
callba MobileTextBorder
call DrawOnMap
call Function321c
call Function2411a
ld hl, wcfa5
set 7, [hl]
.asm_2405a
call DelayFrame
callba Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_24076
call Function241ba
ld a, [wcfa8]
and c
jr z, .asm_2405a
call Function24098
ret
.asm_24076
ld a, [wcfa4]
ld c, a
ld a, [wcfa3]
call SimpleMultiply
ld [wcf88], a
and a
ret
; 24085
Function24085: ; 24085
xor a
ld [hBGMapMode], a
call Function1cbb
call Function240db
ret
; 2408f
Function2408f: ; 2408f
call Function2411a
call Function1bc9
call Function1ff8
Function24098: ; 24098
ld a, [wcf91]
bit 1, a
jr z, .asm_240a6
call Function1bdd
bit 2, a
jr nz, .asm_240c9
.asm_240a6
ld a, [wcf91]
bit 0, a
jr nz, .asm_240b4
call Function1bdd
bit 1, a
jr nz, .asm_240cb
.asm_240b4
ld a, [wcfa4]
ld c, a
ld a, [wcfa9]
dec a
call SimpleMultiply
ld c, a
ld a, [wcfaa]
add c
ld [wcf88], a
and a
ret
.asm_240c9
scf
ret
.asm_240cb
scf
ret
; 240cd
Function240cd: ; 240cd
ld a, [wcf92]
and $f
ret
; 240d3
Function240d3: ; 240d3
ld a, [wcf92]
swap a
and $f
ret
; 240db
Function240db: ; 240db
ld hl, wcf95
ld e, [hl]
inc hl
ld d, [hl]
call Function1cc6
call GetTileCoord
call Function240d3
ld b, a
.asm_240eb
push bc
push hl
call Function240cd
ld c, a
.asm_240f1
push bc
ld a, [wcf94]
call Function201c
inc de
ld a, [wcf93]
ld c, a
ld b, $0
add hl, bc
pop bc
dec c
jr nz, .asm_240f1
pop hl
ld bc, $0028
add hl, bc
pop bc
dec b
jr nz, .asm_240eb
ld hl, wcf98
ld a, [hli]
ld h, [hl]
ld l, a
or h
ret z
ld a, [wcf97]
rst FarCall
ret
; 2411a
Function2411a: ; 2411a (9:411a)
call Function1cc6
ld a, b
ld [wcfa1], a
dec c
ld a, c
ld [wcfa2], a
call Function240d3
ld [wcfa3], a
call Function240cd
ld [wcfa4], a
call Function24179
call Function2418a
call Function24193
ld a, [wcfa4]
ld e, a
ld a, [wcf88]
ld b, a
xor a
ld d, $0
.asm_24146
inc d
add e
cp b
jr c, .asm_24146
sub e
ld c, a
ld a, b
sub c
and a
jr z, .asm_24157
cp e
jr z, .asm_24159
jr c, .asm_24159
.asm_24157
ld a, $1
.asm_24159
ld [wcfaa], a
ld a, [wcfa3]
ld e, a
ld a, d
and a
jr z, .asm_24169
cp e
jr z, .asm_2416b
jr c, .asm_2416b
.asm_24169
ld a, $1
.asm_2416b
ld [wcfa9], a
xor a
ld [wcfab], a
ld [wcfac], a
ld [wcfad], a
ret
; 24179
Function24179: ; 24179
xor a
ld hl, wcfa5
ld [hli], a
ld [hld], a
ld a, [wcf91]
bit 5, a
ret z
set 5, [hl]
set 4, [hl]
ret
; 2418a
Function2418a: ; 2418a
ld a, [wcf93]
or $20
ld [wcfa7], a
ret
; 24193
Function24193: ; 24193
ld hl, wcf91
ld a, $1
bit 0, [hl]
jr nz, .asm_2419e
or $2
.asm_2419e
bit 1, [hl]
jr z, .asm_241a4
or $4
.asm_241a4
ld [wcfa8], a
ret
; 241a8
Function241a8:: ; 241a8
call Function24329
Function241ab:: ; 241ab
ld hl, wcfa6
res 7, [hl]
ld a, [hBGMapMode]
push af
call Function24216
pop af
ld [hBGMapMode], a
ret
; 241ba
Function241ba: ; 241ba
ld hl, wcfa6
res 7, [hl]
ld a, [hBGMapMode]
push af
call Function2431a
call Function24249
jr nc, .asm_241cd
call Function24270
.asm_241cd
pop af
ld [hBGMapMode], a
call Function1bdd
ld c, a
ret
; 241d5
Function241d5: ; 241d5
call Function24329
.asm_241d8
call Function2431a
call Function10402d ; BUG: This function is in another bank.
call Function241fa
jr nc, .asm_241f9
call Function24270
jr c, .asm_241f9
ld a, [wcfa5]
bit 7, a
jr nz, .asm_241f9
call Function1bdd
ld c, a
ld a, [wcfa8]
and c
jr z, .asm_241d8
.asm_241f9
ret
; 241fa
Function241fa: ; 241fa
.asm_241fa
call Function24259
ret c
ld c, $1
ld b, $3
call Function10062d ; BUG: This function is in another bank.
ret c
callba Function100337
ret c
ld a, [wcfa5]
bit 7, a
jr z, .asm_241fa
and a
ret
; 24216
Function24216: ; 24216
.asm_24216
call Function2431a
call Function24238
call Function24249
jr nc, .asm_24237
call Function24270
jr c, .asm_24237
ld a, [wcfa5]
bit 7, a
jr nz, .asm_24237
call Function1bdd
ld b, a
ld a, [wcfa8]
and b
jr z, .asm_24216
.asm_24237
ret
; 24238
Function24238: ; 24238
ld a, [hOAMUpdate]
push af
ld a, $1
ld [hOAMUpdate], a
call WaitBGMap
pop af
ld [hOAMUpdate], a
xor a
ld [hBGMapMode], a
ret
; 24249
Function24249: ; 24249
.asm_24249
call RTC
call Function24259
ret c
ld a, [wcfa5]
bit 7, a
jr z, .asm_24249
and a
ret
; 24259
Function24259: ; 24259
ld a, [wcfa5]
bit 6, a
jr z, .asm_24266
callab Function8cf62
.asm_24266
call Functiona57
call Function1bdd
and a
ret z
scf
ret
; 24270
Function24270: ; 24270
call Function1bdd
bit 0, a
jp nz, Function24318
bit 1, a
jp nz, Function24318
bit 2, a
jp nz, Function24318
bit 3, a
jp nz, Function24318
bit 4, a
jr nz, .asm_242fa
bit 5, a
jr nz, .asm_242dc
bit 6, a
jr nz, .asm_242be
bit 7, a
jr nz, .asm_242a0
and a
ret
.asm_24299: ; 24299
ld hl, wcfa6
set 7, [hl]
scf
ret
.asm_242a0
ld hl, wcfa9
ld a, [wcfa3]
cp [hl]
jr z, .asm_242ac
inc [hl]
xor a
ret
.asm_242ac
ld a, [wcfa5]
bit 5, a
jr nz, .asm_242ba
bit 3, a
jp nz, .asm_24299
xor a
ret
.asm_242ba
ld [hl], $1
xor a
ret
.asm_242be
ld hl, wcfa9
ld a, [hl]
dec a
jr z, .asm_242c8
ld [hl], a
xor a
ret
.asm_242c8
ld a, [wcfa5]
bit 5, a
jr nz, .asm_242d6
bit 2, a
jp nz, .asm_24299
xor a
ret
.asm_242d6
ld a, [wcfa3]
ld [hl], a
xor a
ret
.asm_242dc
ld hl, wcfaa
ld a, [hl]
dec a
jr z, .asm_242e6
ld [hl], a
xor a
ret
.asm_242e6
ld a, [wcfa5]
bit 4, a
jr nz, .asm_242f4
bit 1, a
jp nz, .asm_24299
xor a
ret
.asm_242f4
ld a, [wcfa4]
ld [hl], a
xor a
ret
.asm_242fa
ld hl, wcfaa
ld a, [wcfa4]
cp [hl]
jr z, .asm_24306
inc [hl]
xor a
ret
.asm_24306
ld a, [wcfa5]
bit 4, a
jr nz, .asm_24314
bit 0, a
jp nz, .asm_24299
xor a
ret
.asm_24314
ld [hl], $1
xor a
ret
; 24318
Function24318: ; 24318
xor a
ret
; 2431a
Function2431a: ; 2431a
ld hl, wcfac
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
cp $ed
jr nz, Function24329
ld a, [wcfab]
ld [hl], a
Function24329: ; 24329
ld a, [wcfa1]
ld b, a
ld a, [wcfa2]
ld c, a
call GetTileCoord
ld a, [wcfa7]
swap a
and $f
ld c, a
ld a, [wcfa9]
ld b, a
xor a
dec b
jr z, .asm_24348
.asm_24344
add c
dec b
jr nz, .asm_24344
.asm_24348
ld c, $14
call AddNTimes
ld a, [wcfa7]
and $f
ld c, a
ld a, [wcfaa]
ld b, a
xor a
dec b
jr z, .asm_2435f
.asm_2435b
add c
dec b
jr nz, .asm_2435b
.asm_2435f
ld c, a
add hl, bc
ld a, [hl]
cp $ed
jr z, .asm_2436b
ld [wcfab], a
ld [hl], $ed
.asm_2436b
ld a, l
ld [wcfac], a
ld a, h
ld [wcfad], a
ret
; 24374
Function24374:: ; 24374
ld a, [rSVBK]
push af
ld a, $7
ld [rSVBK], a
ld hl, wcf71
ld e, [hl]
inc hl
ld d, [hl]
push de
ld b, $10
ld hl, wcf81
.asm_24387
ld a, [hli]
ld [de], a
dec de
dec b
jr nz, .asm_24387
ld a, [wcf81]
bit 6, a
jr nz, .asm_24398
bit 7, a
jr z, .asm_243ae
.asm_24398
ld hl, wcf71
ld a, [hli]
ld h, [hl]
ld l, a
set 0, [hl]
call Function1cfd
call Function243cd
call Function1d19
call Function243cd
jr .asm_243b5
.asm_243ae
pop hl
push hl
ld a, [hld]
ld l, [hl]
ld h, a
res 0, [hl]
.asm_243b5
pop hl
call Function243e7
ld a, h
ld [de], a
dec de
ld a, l
ld [de], a
dec de
ld hl, wcf71
ld [hl], e
inc hl
ld [hl], d
pop af
ld [rSVBK], a
ld hl, wcf78
inc [hl]
ret
; 243cd
Function243cd: ; 243cd
call Function1c53
inc b
inc c
call Function243e7
.asm_243d5
push bc
push hl
.asm_243d7
ld a, [hli]
ld [de], a
dec de
dec c
jr nz, .asm_243d7
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .asm_243d5
ret
; 243e7
Function243e7: ; 243e7
ret
; 243e8
Function243e8:: ; 243e8
xor a
ld [hBGMapMode], a
ld a, [rSVBK]
push af
ld a, $7
ld [rSVBK], a
call Function1c7e
ld a, l
or h
jp z, Function2445d
ld a, l
ld [wcf71], a
ld a, h
ld [wcf72], a
call Function1c47
ld a, [wcf81]
bit 0, a
jr z, .next
ld d, h
ld e, l
call Function1c23
.next
call Function1c7e
ld a, h
or l
jr z, .next2
call Function1c47
.next2
pop af
ld [rSVBK], a
ld hl, wcf78
dec [hl]
ret
; 24423
Function24423: ; 24423
ld a, [VramState]
bit 0, a
ret z
xor a
call GetSRAMBank
hlcoord 0, 0
ld de, $a000
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call CopyBytes
call CloseSRAM
call Function2173
xor a
call GetSRAMBank
ld hl, $a000
decoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
.asm_2444c
ld a, [hl]
cp $61
jr c, .asm_24452
ld [de], a
.asm_24452
inc hl
inc de
dec bc
ld a, c
or b
jr nz, .asm_2444c
call CloseSRAM
ret
; 2445d
Function2445d: ; 2445d
ld hl, UnknownText_0x24468
call PrintText
call WaitBGMap
.asm_24466
jr .asm_24466
; 24468
UnknownText_0x24468: ; 24468
text_jump UnknownText_0x1c46b7
db "@"
; 2446d
Function2446d:: ; 2446d
ld a, [wcf91]
ld b, a
ld hl, wcfa1
ld a, [wcf82]
inc a
bit 6, b
jr nz, .asm_2447d
inc a
.asm_2447d
ld [hli], a
ld a, [wcf83]
inc a
ld [hli], a
ld a, [wcf92]
ld [hli], a
ld a, $1
ld [hli], a
ld [hl], $0
bit 5, b
jr z, .asm_24492
set 5, [hl]
.asm_24492
ld a, [wcf81]
bit 4, a
jr z, .asm_2449b
set 6, [hl]
.asm_2449b
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
bit 0, b
jr nz, .asm_244a9
add $2
.asm_244a9
ld [hli], a
ld a, [wcf88]
and a
jr z, .asm_244b7
ld c, a
ld a, [wcf92]
cp c
jr nc, .asm_244b9
.asm_244b7
ld c, $1
.asm_244b9
ld [hl], c
inc hl
ld a, $1
ld [hli], a
xor a
rept 3
ld [hli], a
endr
ret
; 244c3
Function244c3: ; 0x244c3
ld a, [MenuSelection]
ld [CurSpecies], a
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld a, [MenuSelection]
cp $ff
ret z
decoord 1, 14
callba PrintItemDescription
ret
; 0x244e3
Pokepic:: ; 244e3
ld hl, MenuDataHeader_0x24547
call CopyMenuDataHeader
call Function1cbb
call DrawOnMap
call Function321c
ld b, $12
call GetSGBLayout
xor a
ld [hBGMapMode], a
ld a, [CurPartySpecies]
ld [CurSpecies], a
call GetBaseData
ld de, VTiles1
predef GetFrontpic
ld a, [wcf82]
inc a
ld b, a
ld a, [wcf83]
inc a
ld c, a
call GetTileCoord
ld a, $80
ld [$ffad], a
lb bc, 7, 7
predef FillBox
call WaitBGMap
ret
; 24528
PokepicYesOrNo:: ; 24528
ld hl, MenuDataHeader_0x24547
call CopyMenuDataHeader
call Function1ce1
call WaitBGMap
call ClearSGB
xor a
ld [hBGMapMode], a
call Function2173
call Function321c
call DrawOnMap
call Functione51
ret
; 24547
MenuDataHeader_0x24547: ; 0x24547
db $40 ; flags
db 04, 06 ; start coords
db 13, 14 ; end coords
dw NULL
db 1 ; default option
; 0x2454f
Function2454f: ; 2454f
ld hl, wd81e
xor a
ld bc, $10
call ByteFill
nop
ld bc, MapObjects
ld de, wd81e
xor a
.loop
push af
push bc
push de
call Function245a7
jr c, .next
call Function2457d
.next
pop de
ld [de], a
inc de
pop bc
ld hl, $10
add hl, bc
ld b, h
ld c, l
pop af
inc a
cp $10
jr nz, .loop
ret
Function2457d: ; 2457d (9:457d)
ld hl, MAPOBJECT_SPRITE
add hl, bc
ld a, [hl]
and a
jr z, .minus_one
ld hl, MAPOBJECT_EVENT_FLAG
add hl, bc
ld a, [hli]
ld e, a
ld a, [hl]
ld d, a
cp -1
jr nz, .check
ld a, e
cp -1
jr z, .zero
jr .minus_one
.check
ld b, CHECK_FLAG
call EventFlagAction
ld a, c
and a
jr nz, .minus_one
.zero
xor a
ret
.minus_one
ld a, -1
scf
ret
Function245a7: ; 245a7 (9:45a7)
call Function18f5
ld a, -1
ret c
xor a
ret
Function245af:: ; 245af
xor a
ld [wcf73], a
ld [hBGMapMode], a
inc a
ld [$ffaa], a
call Function2471a
call Function24764
call Function247dd
call Function245f1
call Function321c
xor a
ld [hBGMapMode], a
ret
; 245cb
Function245cb:: ; 245cb
.loop
call Function24609
jp c, Function245d6
call z, Function245e1
jr .loop
; 245d6
Function245d6: ; 245d6
call Function1ff8
ld [wcf73], a
ld a, 0
ld [$ffaa], a
ret
; 245e1
Function245e1: ; 245e1
call Function245f1
ld a, 1
ld [hBGMapMode], a
ld c, 3
call DelayFrames
xor a
ld [hBGMapMode], a
ret
; 245f1
Function245f1: ; 245f1
xor a
ld [hBGMapMode], a
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function247f0
call Function2488b
call Function248b8
pop af
ld [Options], a
ret
; 24609
Function24609: ; 24609
.asm_24609
call Function1bd3
ld a, [$ffa9]
and $f0
ld b, a
ld a, [hJoyPressed]
and $f
or b
bit 0, a
jp nz, Function24644
bit 1, a
jp nz, Function2466f
bit 2, a
jp nz, Function24673
bit 3, a
jp nz, Function24695
bit 4, a
jp nz, Function246b5
bit 5, a
jp nz, Function246a1
bit 6, a
jp nz, Function246c9
bit 7, a
jp nz, Function246df
jr .asm_24609
; 24640
Function24640: ; 24640
ld a, $ff
and a
ret
; 24644
Function24644: ; 24644
call Function1bee
ld a, [wcfa9]
dec a
call Function248d5
ld a, [MenuSelection]
ld [CurItem], a
ld a, [wcf75]
ld [wd10d], a
call Function246fc
dec a
ld [wcf77], a
ld [wd107], a
ld a, [MenuSelection]
cp $ff
jr z, Function2466f
ld a, $1
scf
ret
; 2466f
Function2466f: ; 2466f
ld a, $2
scf
ret
; 24673
Function24673: ; 24673
ld a, [wcf91]
bit 7, a
jp z, Function2ec8
ld a, [wcfa9]
dec a
call Function248d5
ld a, [MenuSelection]
cp $ff
jp z, Function2ec8
call Function246fc
dec a
ld [wcf77], a
ld a, $4
scf
ret
; 24695
Function24695: ; 24695
ld a, [wcf91]
bit 6, a
jp z, Function2ec8
ld a, $8
scf
ret
; 246a1
Function246a1: ; 246a1
ld hl, wcfa6
bit 7, [hl]
jp z, Function2ec8
ld a, [wcf91]
bit 3, a
jp z, Function2ec8
ld a, $20
scf
ret
; 246b5
Function246b5: ; 246b5
ld hl, wcfa6
bit 7, [hl]
jp z, Function2ec8
ld a, [wcf91]
bit 2, a
jp z, Function2ec8
ld a, $10
scf
ret
; 246c9
Function246c9: ; 246c9
ld hl, wcfa6
bit 7, [hl]
jp z, Function2ec6
ld hl, wd0e4
ld a, [hl]
and a
jr z, .asm_246dc
dec [hl]
jp Function2ec6
.asm_246dc
jp Function2ec8
; 246df
Function246df: ; 246df
ld hl, wcfa6
bit 7, [hl]
jp z, Function2ec6
ld hl, wd0e4
ld a, [wcf92]
add [hl]
ld b, a
ld a, [wd144]
cp b
jr c, .asm_246f9
inc [hl]
jp Function2ec6
.asm_246f9
jp Function2ec8
; 246fc
Function246fc: ; 246fc
ld a, [wd0e4]
ld c, a
ld a, [wcfa9]
add c
ld c, a
ret
; 24706
Function24706: ; 24706 (9:4706)
call Function1cfd
ld de, $14
add hl, de
ld de, $28
ld a, [wcf92]
.asm_24713
ld [hl], $7f
add hl, de
dec a
jr nz, .asm_24713
ret
Function2471a: ; 2471a
ld hl, wcf96
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wcf95]
call GetFarByte
ld [wd144], a
ld a, [wcf92]
ld c, a
ld a, [wd0e4]
add c
ld c, a
ld a, [wd144]
inc a
cp c
jr nc, .asm_24748
ld a, [wcf92]
ld c, a
ld a, [wd144]
inc a
sub c
jr nc, .asm_24745
xor a
.asm_24745
ld [wd0e4], a
.asm_24748
ld a, [wd0e4]
ld c, a
ld a, [wcf88]
add c
ld b, a
ld a, [wd144]
inc a
cp b
jr c, .asm_2475a
jr nc, .asm_24763
.asm_2475a
xor a
ld [wd0e4], a
ld a, $1
ld [wcf88], a
.asm_24763
ret
; 24764
Function24764: ; 24764
ld a, [wcf91]
ld c, a
ld a, [wd144]
ld b, a
ld a, [wcf82]
add $1
ld [wcfa1], a
ld a, [wcf83]
add $0
ld [wcfa2], a
ld a, [wcf92]
cp b
jr c, .asm_24786
jr z, .asm_24786
ld a, b
inc a
.asm_24786
ld [wcfa3], a
ld a, $1
ld [wcfa4], a
ld a, $8c
bit 2, c
jr z, .asm_24796
set 0, a
.asm_24796
bit 3, c
jr z, .asm_2479c
set 1, a
.asm_2479c
ld [wcfa5], a
xor a
ld [wcfa6], a
ld a, $20
ld [wcfa7], a
ld a, $c3
bit 7, c
jr z, .asm_247b0
add $4
.asm_247b0
bit 6, c
jr z, .asm_247b6
add $8
.asm_247b6
ld [wcfa8], a
ld a, [wcfa3]
ld b, a
ld a, [wcf88]
and a
jr z, .asm_247c8
cp b
jr z, .asm_247ca
jr c, .asm_247ca
.asm_247c8
ld a, $1
.asm_247ca
ld [wcfa9], a
ld a, $1
ld [wcfaa], a
xor a
ld [wcfac], a
ld [wcfad], a
ld [wcfab], a
ret
; 247dd
Function247dd: ; 247dd
ld a, [wd144]
ld c, a
ld a, [wd0e3]
and a
jr z, .asm_247ef
dec a
cp c
jr c, .asm_247ef
xor a
ld [wd0e3], a
.asm_247ef
ret
; 247f0
Function247f0: ; 247f0
call Function1cf1
ld a, [wcf91]
bit 4, a
jr z, .asm_2480d
ld a, [wd0e4]
and a
jr z, .asm_2480d
ld a, [wcf82]
ld b, a
ld a, [wcf85]
ld c, a
call GetTileCoord
ld [hl], $61
.asm_2480d
call Function1cfd
ld bc, $0015
add hl, bc
ld a, [wcf92]
ld b, a
ld c, $0
.asm_2481a
ld a, [wd0e4]
add c
ld [wcf77], a
ld a, c
call Function248d5
ld a, [MenuSelection]
cp $ff
jr z, .asm_24851
push bc
push hl
call Function2486e
pop hl
ld bc, $0028
add hl, bc
pop bc
inc c
ld a, c
cp b
jr nz, .asm_2481a
ld a, [wcf91]
bit 4, a
jr z, .asm_24850
ld a, [wcf84]
ld b, a
ld a, [wcf85]
ld c, a
call GetTileCoord
ld [hl], $ee
.asm_24850
ret
.asm_24851
ld a, [wcf91]
bit 0, a
jr nz, .asm_24866
ld de, .string_2485f
call PlaceString
ret
.string_2485f
db "CANCEL@"
.asm_24866
ld d, h
ld e, l
ld hl, wcf98
jp CallPointerAt
; 2486e
Function2486e: ; 2486e
push hl
ld d, h
ld e, l
ld hl, wcf98
call CallPointerAt
pop hl
ld a, [wcf93]
and a
jr z, .asm_2488a
ld e, a
ld d, $0
add hl, de
ld d, h
ld e, l
ld hl, wcf9b
call CallPointerAt
.asm_2488a
ret
; 2488b
Function2488b: ; 2488b
ld a, [wd0e3]
and a
jr z, .asm_248b7
ld b, a
ld a, [wd0e4]
cp b
jr nc, .asm_248b7
ld c, a
ld a, [wcf92]
add c
cp b
jr c, .asm_248b7
ld a, b
sub c
dec a
add a
add $1
ld c, a
ld a, [wcf82]
add c
ld b, a
ld a, [wcf83]
add $0
ld c, a
call GetTileCoord
ld [hl], $ec
.asm_248b7
ret
; 248b8
Function248b8: ; 248b8
ld a, [wcf91]
bit 5, a
ret z
bit 1, a
jr z, .asm_248c7
ld a, [wd0e3]
and a
ret nz
.asm_248c7
ld a, [wcfa9]
dec a
call Function248d5
ld hl, wcf9e
call CallPointerAt
ret
; 248d5
Function248d5: ; 248d5
push de
push hl
ld e, a
ld a, [wd0e4]
add e
ld e, a
ld d, $0
ld hl, wcf96
ld a, [hli]
ld h, [hl]
ld l, a
inc hl
ld a, [wcf94]
cp $1
jr z, .asm_248f2
cp $2
jr z, .asm_248f1
.asm_248f1
add hl, de
.asm_248f2
add hl, de
ld a, [wcf95]
call GetFarByte
ld [MenuSelection], a
ld [CurItem], a
inc hl
ld a, [wcf95]
call GetFarByte
ld [wcf75], a
pop hl
pop de
ret
; 2490c
Function2490c: ; 2490c (9:490c)
ld a, [wd0e3]
and a
jr z, .asm_2493d
ld b, a
ld a, [wcf77]
inc a
cp b
jr z, .asm_24945
ld a, [wcf77]
call Function24a5c
ld a, [hl]
cp $ff
ret z
ld a, [wd0e3]
dec a
ld [wd0e3], a
call Function249a7
jp c, Function249d1
ld a, [wcf77]
ld c, a
ld a, [wd0e3]
cp c
jr c, .asm_2497a
jr .asm_2494a
.asm_2493d
ld a, [wcf77]
inc a
ld [wd0e3], a
ret
.asm_24945
xor a
ld [wd0e3], a
ret
.asm_2494a
ld a, [wd0e3]
call Function24a40
ld a, [wcf77]
ld d, a
ld a, [wd0e3]
ld e, a
call Function24a6c
push bc
ld a, [wd0e3]
call Function24a5c
dec hl
push hl
call Function24a80
add hl, bc
ld d, h
ld e, l
pop hl
pop bc
call Function24aab
ld a, [wcf77]
call Function24a4d
xor a
ld [wd0e3], a
ret
.asm_2497a
ld a, [wd0e3]
call Function24a40
ld a, [wcf77]
ld d, a
ld a, [wd0e3]
ld e, a
call Function24a6c
push bc
ld a, [wd0e3]
call Function24a5c
ld d, h
ld e, l
call Function24a80
add hl, bc
pop bc
call CopyBytes
ld a, [wcf77]
call Function24a4d
xor a
ld [wd0e3], a
ret
Function249a7: ; 249a7 (9:49a7)
ld a, [wd0e3]
call Function24a5c
ld d, h
ld e, l
ld a, [wcf77]
call Function24a5c
ld a, [de]
cp [hl]
jr nz, .asm_249cd
ld a, [wcf77]
call Function24a97
cp $63
jr z, .asm_249cd
ld a, [wd0e3]
call Function24a97
cp $63
jr nz, .asm_249cf
.asm_249cd
and a
ret
.asm_249cf
scf
ret
Function249d1: ; 249d1 (9:49d1)
ld a, [wd0e3]
call Function24a5c
inc hl
push hl
ld a, [wcf77]
call Function24a5c
inc hl
ld a, [hl]
pop hl
add [hl]
cp $64
jr c, .asm_24a01
sub $63
push af
ld a, [wcf77]
call Function24a5c
inc hl
ld [hl], $63
ld a, [wd0e3]
call Function24a5c
inc hl
pop af
ld [hl], a
xor a
ld [wd0e3], a
ret
.asm_24a01
push af
ld a, [wcf77]
call Function24a5c
inc hl
pop af
ld [hl], a
ld hl, wcf96
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wd0e3]
cp [hl]
jr nz, .asm_24a25
dec [hl]
ld a, [wd0e3]
call Function24a5c
ld [hl], $ff
xor a
ld [wd0e3], a
ret
.asm_24a25
dec [hl]
call Function24a80
push bc
ld a, [wd0e3]
call Function24a5c
pop bc
push hl
add hl, bc
pop de
.asm_24a34
ld a, [hli]
ld [de], a
inc de
cp $ff
jr nz, .asm_24a34
xor a
ld [wd0e3], a
ret
Function24a40: ; 24a40 (9:4a40)
call Function24a5c
ld de, DefaultFlypoint
call Function24a80
call CopyBytes
ret
Function24a4d: ; 24a4d (9:4a4d)
call Function24a5c
ld d, h
ld e, l
ld hl, DefaultFlypoint
call Function24a80
call CopyBytes
ret
Function24a5c: ; 24a5c (9:4a5c)
push af
call Function24a80
ld hl, wcf96
ld a, [hli]
ld h, [hl]
ld l, a
inc hl
pop af
call AddNTimes
ret
Function24a6c: ; 24a6c (9:4a6c)
push hl
call Function24a80
ld a, d
sub e
jr nc, .asm_24a76
dec a
cpl
.asm_24a76
ld hl, $0
call AddNTimes
ld b, h
ld c, l
pop hl
ret
Function24a80: ; 24a80 (9:4a80)
push hl
ld a, [wcf94]
ld c, a
ld b, 0
ld hl, Unknown_24a91
rept 2
add hl, bc
endr
ld c, [hl]
inc hl
ld b, [hl]
pop hl
ret
; 24a91 (9:4a91)
Unknown_24a91: ; 24a91
dw 0, 1, 2
; 24a97
Function24a97: ; 24a97 (9:4a97)
push af
call Function24a80
ld a, c
cp $2
jr nz, .asm_24aa7
pop af
call Function24a5c
inc hl
ld a, [hl]
ret
.asm_24aa7
pop af
ld a, $1
ret
Function24aab: ; 24aab (9:4aab)
ld a, [hld]
ld [de], a
dec de
dec bc
ld a, b
or c
jr nz, Function24aab
ret
Function24ab4: ; 0x24ab4
push de
ld a, [MenuSelection]
ld [wd265], a
call GetItemName
pop hl
call PlaceString
ret
; 0x24ac3
Function24ac3: ; 0x24ac3
push de
ld a, [MenuSelection]
ld [CurItem], a
callba _CheckTossableItem
ld a, [wd142]
pop hl
and a
jr nz, .done
ld de, $0015
add hl, de
ld [hl], $f1
inc hl
ld de, wcf75
ld bc, $0102
call PrintNum
.done
ret
; 0x24ae8
Function24ae8: ; 24ae8
ld hl, MenuDataHeader_0x24b15
call CopyMenuDataHeader
jr Function24b01
Function24af0: ; 24af0
ld hl, MenuDataHeader_0x24b1d
call CopyMenuDataHeader
jr Function24b01
Function24af8: ; 24af8
ld hl, MenuDataHeader_0x24b15
ld de, $000b
call Function1e2e
Function24b01: ; 24b01
call Function1cbb
call Function1cfd
ld de, $0015
add hl, de
ld de, Money
ld bc, $2306
call PrintNum
ret
; 24b15
MenuDataHeader_0x24b15: ; 0x24b15
db $40 ; flags
db 00, 11 ; start coords
db 02, 19 ; end coords
dw NULL
db 1 ; default option
; 0x24b1d
MenuDataHeader_0x24b1d: ; 0x24b1d
db $40 ; flags
db 11, 00 ; start coords
db 13, 08 ; end coords
dw NULL
db 1 ; default option
; 0x24b25
Function24b25: ; 24b25
hlcoord 11, 0
ld b, $1
ld c, $7
call TextBox
hlcoord 12, 0
ld de, CoinString
call PlaceString
hlcoord 17, 1
ld de, String24b8e
call PlaceString
ld de, Coins
ld bc, $0204
hlcoord 13, 1
call PrintNum
ret
; 24b4e
Function24b4e: ; 24b4e
hlcoord 5, 0
ld b, $3
ld c, $d
call TextBox
hlcoord 6, 1
ld de, MoneyString
call PlaceString
hlcoord 12, 1
ld de, Money
ld bc, $2306
call PrintNum
hlcoord 6, 3
ld de, CoinString
call PlaceString
hlcoord 15, 3
ld de, Coins
ld bc, $0204
call PrintNum
ret
; 24b83
MoneyString: ; 24b83
db "MONEY@"
CoinString: ; 24b89
db "COIN@"
String24b8e: ; 24b8e
db "@"
; 24b8f
Function24b8f: ; 24b8f
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
hlcoord 0, 0
ld b, $3
ld c, $7
call TextBox
hlcoord 1, 1
ld de, wdc7a
ld bc, $0203
call PrintNum
hlcoord 4, 1
ld de, String24bcf
call PlaceString
hlcoord 1, 3
ld de, String24bd4
call PlaceString
hlcoord 5, 3
ld de, wdc79
ld bc, $0102
call PrintNum
pop af
ld [Options], a
ret
; 24bcf
String24bcf: ; 24bcf
db "/500@"
String24bd4: ; 24bd4
db "ボール こ@"
; 24bdc
Function24bdc: ; 24bdc
hlcoord 0, 0
ld b, $5
ld c, $11
call TextBox
ret
; 24be7
Function24be7: ; 24be7
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function24bdc
hlcoord 1, 5
ld de, String24c52
call PlaceString
hlcoord 8, 5
ld de, wdc79
ld bc, $4102
call PrintNum
hlcoord 1, 1
ld de, String24c4b
call PlaceString
ld a, [wdf9c]
and a
ld de, String24c59
jr z, .asm_24c1e
ld [wd265], a
call GetPokemonName
.asm_24c1e
hlcoord 8, 1
call PlaceString
ld a, [wdf9c]
and a
jr z, .asm_24c3e
hlcoord 1, 3
ld de, String24c5e
call PlaceString
ld a, [wContestMonLevel]
ld h, b
ld l, c
inc hl
ld c, $3
call Function3842
.asm_24c3e
pop af
ld [Options], a
ret
; 24c43
String24c43: ; 24c43
db "ボール こ@"
String24c4b: ; 24c4b
db "CAUGHT@"
String24c52: ; 24c52
db "BALLS:@"
String24c59: ; 24c59
db "None@"
String24c5e: ; 24c5e
db "LEVEL@"
; 24c64
Function24c64: ; 24c64
ld hl, Buffer1
xor a
ld [hli], a
dec a
ld bc, $000a
call ByteFill
ld hl, ApricornBalls
.asm_24c73
ld a, [hl]
cp $ff
jr z, .asm_24c8d
push hl
ld [CurItem], a
ld hl, NumItems
call CheckItem
pop hl
jr nc, .asm_24c89
ld a, [hl]
call Function24c94
.asm_24c89
rept 2
inc hl
endr
jr .asm_24c73
.asm_24c8d
ld a, [Buffer1]
and a
ret nz
scf
ret
; 24c94
Function24c94: ; 24c94
push hl
ld hl, Buffer1
inc [hl]
ld e, [hl]
ld d, 0
add hl, de
ld [hl], a
pop hl
ret
; 24ca0
ApricornBalls: ; 24ca0
db RED_APRICORN, LEVEL_BALL
db BLU_APRICORN, LURE_BALL
db YLW_APRICORN, MOON_BALL
db GRN_APRICORN, FRIEND_BALL
db WHT_APRICORN, FAST_BALL
db BLK_APRICORN, HEAVY_BALL
db PNK_APRICORN, LOVE_BALL
db $ff
; 24caf
MonMenuOptionStrings: ; 24caf
db "STATS@"
db "SWITCH@"
db "ITEM@"
db "CANCEL@"
db "MOVE@"
db "MAIL@"
db "ERROR!@"
; 24cd9
MonMenuOptions: ; 24cd9
; Moves
db 0, 1, CUT
db 0, 2, FLY
db 0, 3, SURF
db 0, 4, STRENGTH
db 0, 6, FLASH
db 0, 5, WATERFALL
db 0, 7, WHIRLPOOL
db 0, 8, DIG
db 0, 9, TELEPORT
db 0, 10, SOFTBOILED
db 0, 11, HEADBUTT
db 0, 12, ROCK_SMASH
db 0, 13, MILK_DRINK
db 0, 14, SWEET_SCENT
; Options
db 1, 15, 1 ; STATS
db 1, 16, 2 ; SWITCH
db 1, 17, 3 ; ITEM
db 1, 18, 4 ; CANCEL
db 1, 19, 5 ; MOVE
db 1, 20, 6 ; MAIL
db 1, 21, 7 ; ERROR!
db $ff
; 24d19
Function24d19: ; 24d19
xor a
ld [hBGMapMode], a
call Function24dd4
callba Function8ea4a
ld hl, MenuDataHeader_0x24d3f
call LoadMenuDataHeader
call Function24d47
call Function24d91
ld a, 1
ld [hBGMapMode], a
call Function24d59
ld [MenuSelection], a
call ExitMenu
ret
; 24d3f
MenuDataHeader_0x24d3f: ; 24d3f
db $40 ; tile backup
db 00, 06 ; start coords
db 17, 19 ; end coords
dw $0000
db 1 ; default option
; 24d47
Function24d47: ; 24d47
ld a, [Buffer1]
inc a
add a
ld b, a
ld a, [wcf84]
sub b
inc a
ld [wcf82], a
call Function1cbb
ret
; 24d59
Function24d59: ; 24d59
.asm_24d59
ld a, $a0
ld [wcf91], a
ld a, [Buffer1]
ld [wcf92], a
call Function1c10
ld hl, wcfa5
set 6, [hl]
call Function1bc9
ld de, SFX_READ_TEXT_2
call PlaySFX
ld a, [hJoyPressed]
bit 0, a ; A
jr nz, .asm_24d84
bit 1, a ; B
jr nz, .asm_24d81
jr .asm_24d59
.asm_24d81
ld a, 18 ; CANCEL
ret
.asm_24d84
ld a, [wcfa9]
dec a
ld c, a
ld b, 0
ld hl, Buffer2
add hl, bc
ld a, [hl]
ret
; 24d91
Function24d91: ; 24d91
call Function1cfd
ld bc, $002a
add hl, bc
ld de, Buffer2
.asm_24d9b
ld a, [de]
inc de
cp $ff
ret z
push de
push hl
call Function24db0
pop hl
call PlaceString
ld bc, $0028
add hl, bc
pop de
jr .asm_24d9b
; 24db0
Function24db0: ; 24db0
ld hl, MonMenuOptions + 1
ld de, $0003
call IsInArray
dec hl
ld a, [hli]
cp $1
jr z, .asm_24dc8
inc hl
ld a, [hl]
ld [wd265], a
call GetMoveName
ret
.asm_24dc8
inc hl
ld a, [hl]
dec a
ld hl, MonMenuOptionStrings
call GetNthString
ld d, h
ld e, l
ret
; 24dd4
Function24dd4: ; 24dd4
call Function24e68
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_24e3f
ld a, [InLinkBattle]
and a
jr nz, .asm_24e03
ld a, PartyMon1Moves - PartyMon1
call GetPartyParamLocation
ld d, h
ld e, l
ld c, NUM_MOVES
.asm_24ded
push bc
push de
ld a, [de]
and a
jr z, .asm_24dfd
push hl
call Function24e52
pop hl
jr nc, .asm_24dfd
call Function24e83
.asm_24dfd
pop de
inc de
pop bc
dec c
jr nz, .asm_24ded
.asm_24e03
ld a, $f
call Function24e83
ld a, $10
call Function24e83
ld a, $13
call Function24e83
ld a, [InLinkBattle]
and a
jr nz, .asm_24e2f
push hl
ld a, PartyMon1Item - PartyMon1
call GetPartyParamLocation
ld d, [hl]
callba ItemIsMail
pop hl
ld a, $14
jr c, .asm_24e2c
ld a, $11
.asm_24e2c
call Function24e83
.asm_24e2f
ld a, [Buffer1]
cp $8
jr z, .asm_24e3b
ld a, $12
call Function24e83
.asm_24e3b
call Function24e76
ret
.asm_24e3f
ld a, $f
call Function24e83
ld a, $10
call Function24e83
ld a, $12
call Function24e83
call Function24e76
ret
; 24e52
Function24e52: ; 24e52
ld b, a
ld hl, MonMenuOptions
.asm_24e56
ld a, [hli]
cp $ff
jr z, .asm_24e67
cp $1
jr z, .asm_24e67
ld d, [hl]
inc hl
ld a, [hli]
cp b
jr nz, .asm_24e56
ld a, d
scf
.asm_24e67
ret
; 24e68
Function24e68: ; 24e68
xor a
ld [Buffer1], a
ld hl, Buffer2
ld bc, $0009
call ByteFill
ret
; 24e76
Function24e76: ; 24e76
ld a, [Buffer1]
ld e, a
ld d, $0
ld hl, Buffer2
add hl, de
ld [hl], $ff
ret
; 24e83
Function24e83: ; 24e83
push hl
push de
push af
ld a, [Buffer1]
ld e, a
inc a
ld [Buffer1], a
ld d, $0
ld hl, Buffer2
add hl, de
pop af
ld [hl], a
pop de
pop hl
ret
; 24e99
Function24e99: ; 24e99
; BattleMonMenu
ld hl, MenuDataHeader_0x24ed4
call CopyMenuDataHeader
xor a
ld [hBGMapMode], a
call Function1cbb
call DrawOnMap
call Function1c89
call WaitBGMap
call Function1c66
ld a, [wcf91]
bit 7, a
jr z, .asm_24ed0
call Function1c10
ld hl, wcfa5
set 6, [hl]
call Function1bc9
ld de, SFX_READ_TEXT_2
call PlaySFX
ld a, [hJoyPressed]
bit 1, a
jr z, .asm_24ed2
ret z
.asm_24ed0
scf
ret
.asm_24ed2
and a
ret
; 24ed4
MenuDataHeader_0x24ed4: ; 24ed4
db $00 ; flags
db 11, 11 ; start coords
db 17, 19 ; end coords
dw MenuData2_0x24edc
db 1 ; default option
; 24edc
MenuData2_0x24edc: ; 24edc
db $c0 ; flags
db 3 ; items
db "SWITCH@"
db "STATS@"
db "CANCEL@"
; 24ef2
LoadBattleMenu: ; 24ef2
ld hl, BattleMenuDataHeader
call LoadMenuDataHeader
ld a, [wd0d2]
ld [wcf88], a
call Function2039
ld a, [wcf88]
ld [wd0d2], a
call ExitMenu
ret
; 24f0b
SafariBattleMenu: ; 24f0b
; untranslated
ld hl, MenuDataHeader_0x24f4e
call LoadMenuDataHeader
jr Function24f19
; 24f13
ContestBattleMenu: ; 24f13
ld hl, MenuDataHeader_0x24f89
call LoadMenuDataHeader
; 24f19
Function24f19: ; 24f19
ld a, [wd0d2]
ld [wcf88], a
call InterpretMenu
ld a, [wcf88]
ld [wd0d2], a
call ExitMenu
ret
; 24f2c
BattleMenuDataHeader: ; 24f2c
db $40 ; flags
db 12, 08 ; start coords
db 17, 19 ; end coords
dw MenuData_0x24f34
db 1 ; default option
; 24f34
MenuData_0x24f34: ; 0x24f34
db $81 ; flags
dn 2, 2 ; rows, columns
db 6 ; spacing
dbw BANK(Strings24f3d), Strings24f3d
dbw $09, $0000
; 0x24f3d
Strings24f3d: ; 0x24f3d
db "FIGHT@"
db $4a, "@"
db "PACK@"
db "RUN@"
; 24f4e
MenuDataHeader_0x24f4e: ; 24f4e
db $40 ; flags
db 12, 00 ; start coords
db 17, 19 ; end coords
dw MenuData_0x24f56
db 1 ; default option
; 24f56
MenuData_0x24f56: ; 24f56
db $81 ; flags
dn 2, 2 ; rows, columns
db 11 ; spacing
dbw BANK(Strings24f5f), Strings24f5f
dbw BANK(Function24f7c), Function24f7c
; 24f5f
Strings24f5f: ; 24f5f
db "サファりボール× @" ; "SAFARI BALL× @"
db "エサをなげる@" ; "THROW BAIT"
db "いしをなげる@" ; "THROW ROCK"
db "にげる@" ; "RUN"
; 24f7c
Function24f7c: ; 24f7c
hlcoord 17, 13
ld de, wdc79
ld bc, $8102
call PrintNum
ret
; 24f89
MenuDataHeader_0x24f89: ; 24f89
db $40 ; flags
db 12, 02 ; start coords
db 17, 19 ; end coords
dw MenuData_0x24f91
db 1 ; default option
; 24f91
MenuData_0x24f91: ; 24f91
db $81 ; flags
dn 2, 2 ; rows, columns
db 12 ; spacing
dbw BANK(Strings24f9a), Strings24f9a
dbw BANK(Function24fb2), Function24fb2
; 24f9a
Strings24f9a: ; 24f9a
db "FIGHT@"
db $4a, "@"
db "PARKBALL× @"
db "RUN@"
; 24fb2
Function24fb2: ; 24fb2
hlcoord 13, 16
ld de, wdc79
ld bc, $8102
call PrintNum
ret
; 24fbf
Function24fbf: ; 24fbf
ld hl, MenuDataHeader_0x250ed
call LoadMenuDataHeader
call Function24ff9
ret
; 24fc9
Function24fc9: ; 24fc9
callba GetItemPrice
Function24fcf: ; 24fcf
ld a, d
ld [Buffer1], a
ld a, e
ld [Buffer2], a
ld hl, MenuDataHeader_0x250f5
call LoadMenuDataHeader
call Function24ff9
ret
; 24fe1
Function24fe1: ; 24fe1
callba GetItemPrice
ld a, d
ld [Buffer1], a
ld a, e
ld [Buffer2], a
ld hl, MenuDataHeader_0x250fd
call LoadMenuDataHeader
call Function24ff9
ret
; 24ff9
Function24ff9: ; 24ff9
ld a, $1
ld [wd10c], a
.asm_24ffe
call Function25072
call Function2500e
jr nc, .asm_24ffe
cp $ff
jr nz, .asm_2500c
scf
ret
.asm_2500c
and a
ret
; 2500e
Function2500e: ; 2500e
call Function354b
bit 1, c
jr nz, .asm_2502b
bit 0, c
jr nz, .asm_2502f
bit 7, c
jr nz, .asm_25033
bit 6, c
jr nz, .asm_2503f
bit 5, c
jr nz, .asm_2504d
bit 4, c
jr nz, .asm_2505f
and a
ret
.asm_2502b
ld a, $ff
scf
ret
.asm_2502f
ld a, $0
scf
ret
.asm_25033
ld hl, wd10c
dec [hl]
jr nz, .asm_2503d
ld a, [wd10d]
ld [hl], a
.asm_2503d
and a
ret
.asm_2503f
ld hl, wd10c
inc [hl]
ld a, [wd10d]
cp [hl]
jr nc, .asm_2504b
ld [hl], $1
.asm_2504b
and a
ret
.asm_2504d
ld a, [wd10c]
sub $a
jr c, .asm_25058
jr z, .asm_25058
jr .asm_2505a
.asm_25058
ld a, $1
.asm_2505a
ld [wd10c], a
and a
ret
.asm_2505f
ld a, [wd10c]
add $a
ld b, a
ld a, [wd10d]
cp b
jr nc, .asm_2506c
ld b, a
.asm_2506c
ld a, b
ld [wd10c], a
and a
ret
; 25072
Function25072: ; 25072
call Function1cbb
call Function1cfd
ld de, $0015
add hl, de
ld [hl], $f1
inc hl
ld de, wd10c
ld bc, $8102
call PrintNum
ld a, [wcf86]
ld e, a
ld a, [wcf87]
ld d, a
ld a, [wcf8a]
call FarCall_de
ret
; 25097
Function25097: ; 25097
ret
; 25098
Function25098: ; 25098
call Function250a9
call Function250d1
ret
; 2509f
Function2509f: ; 2509f
call Function250a9
call Function250c1
call Function250d1
ret
; 250a9
Function250a9: ; 250a9
xor a
ld [hMultiplicand], a
ld a, [Buffer1]
ld [$ffb5], a
ld a, [Buffer2]
ld [$ffb6], a
ld a, [wd10c]
ld [hMultiplier], a
push hl
call Multiply
pop hl
ret
; 250c1
Function250c1: ; 250c1
push hl
ld hl, hMultiplicand
ld a, [hl]
srl a
ld [hli], a
ld a, [hl]
rra
ld [hli], a
ld a, [hl]
rra
ld [hl], a
pop hl
ret
; 250d1
Function250d1: ; 250d1
push hl
ld hl, hMoneyTemp
ld a, [hMultiplicand]
ld [hli], a
ld a, [$ffb5]
ld [hli], a
ld a, [$ffb6]
ld [hl], a
pop hl
inc hl
ld de, hMoneyTemp
ld bc, $2306
call PrintNum
call WaitBGMap
ret
; 250ed
MenuDataHeader_0x250ed: ; 0x250ed
db $40 ; flags
db 09, 15 ; start coords
db 11, 19 ; end coords
dw Function25097
db 0 ; default option
; 0x250f5
MenuDataHeader_0x250f5: ; 0x250f5
db $40 ; flags
db 15, 07 ; start coords
db 17, 19 ; end coords
dw Function25098
db -1 ; default option
; 0x250fd
MenuDataHeader_0x250fd: ; 0x250fd
db $40 ; flags
db 15, 07 ; start coords
db 17, 19 ; end coords
dw Function2509f
db 0 ; default option
; 0x25105
Function25105: ; 25105
ld a, [VramState]
push af
xor a
ld [VramState], a
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function2513b
.asm_25117
call UpdateTime
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_25132
ld a, [$ffa9]
and $2
jr nz, .asm_25132
call Function2518e
call DelayFrame
jr .asm_25117
.asm_25132
pop af
ld [Options], a
pop af
ld [VramState], a
ret
Function2513b: ; 2513b (9:513b)
call WhiteBGMap
call ClearSprites
call ClearTileMap
call DisableLCD
callba Function8833e
ld hl, CardRightCornerGFX
ld de, $91c0
ld bc, $10
ld a, BANK(CardRightCornerGFX)
call FarCopyBytes
ld hl, CardStatusGFX
ld de, $9290
ld bc, $60 + $500
ld a, BANK(CardStatusGFX)
call FarCopyBytes
call Function25299
hlcoord 0, 8
ld d, $6
call Function253b0
call EnableLCD
call WaitBGMap
ld b, $15
call GetSGBLayout
call Function32f9
call WaitBGMap
ld hl, wcf63
xor a
rept 3
ld [hli], a
endr
ld [hl], a
ret
Function2518e: ; 2518e (9:518e)
ld a, [wcf63]
ld e, a
ld d, $0
ld hl, Jumptable_2519d
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Jumptable_2519d: ; 2519d (9:519d)
dw Function251b6
dw Function251d7
dw Function251f4
dw Function25221
dw Function2524c
dw Function25279
dw Function251b0
Function251ab: ; 251ab (9:51ab)
ld hl, wcf63
inc [hl]
ret
Function251b0: ; 251b0 (9:51b0)
ld hl, wcf63
set 7, [hl]
ret
Function251b6: ; 251b6 (9:51b6)
call ClearSprites
hlcoord 0, 8
ld d, $6
call Function253b0
call WaitBGMap
ld de, CardStatusGFX
ld hl, $9290
lb bc, BANK(CardStatusGFX), $6 + $50
call Request2bpp
call Function2530a
call Function251ab
ret
Function251d7: ; 251d7 (9:51d7)
call Function25415
ld hl, $ffa9
ld a, [hl]
and $11
jr nz, .asm_251e3
ret
.asm_251e3
ld a, $2
ld [wcf63], a
ret
; 251e9 (9:51e9)
Function251e9: ; 251e9
ld a, [KantoBadges]
and a
ret z
ld a, $4
ld [wcf63], a
ret
; 251f4
Function251f4: ; 251f4 (9:51f4)
call ClearSprites
hlcoord 0, 8
ld d, $6
call Function253b0
call WaitBGMap
ld de, LeaderGFX
ld hl, $9290
lb bc, BANK(LeaderGFX), $56
call Request2bpp
ld de, BadgeGFX
ld hl, $8000
lb bc, BANK(BadgeGFX), $2c
call Request2bpp
call Function2536c
call Function251ab
ret
Function25221: ; 25221 (9:5221)
ld hl, Unknown_254c9
call Function25438
ld hl, $ffa9
ld a, [hl]
and $1
jr nz, Function25246
ld a, [hl]
and $20
jr nz, .asm_25235
ret
.asm_25235
ld a, $0
ld [wcf63], a
ret
; 2523b (9:523b)
Function2523b: ; 2523b
ld a, [KantoBadges]
and a
ret z
ld a, $4
ld [wcf63], a
ret
; 25246
Function25246: ; 25246
ld a, $6
ld [wcf63], a
ret
Function2524c: ; 2524c (9:524c)
call ClearSprites
hlcoord 0, 8
ld d, $6
call Function253b0
call WaitBGMap
ld de, LeaderGFX2
ld hl, $9290
lb bc, BANK(LeaderGFX2), $56
call Request2bpp
ld de, BadgeGFX2
ld hl, $8000
lb bc, BANK(BadgeGFX2), $2c
call Request2bpp
call Function2536c
call Function251ab
ret
Function25279: ; 25279 (9:5279)
ld hl, Unknown_254c9
call Function25438
ld hl, $ffa9
ld a, [hl]
and $20
jr nz, .asm_2528d
ld a, [hl]
and $10
jr nz, .asm_25293
ret
.asm_2528d
ld a, $2
ld [wcf63], a
ret
.asm_25293
ld a, $0
ld [wcf63], a
ret
Function25299: ; 25299 (9:5299)
hlcoord 0, 0
ld d, $5
call Function253b0
hlcoord 2, 2
ld de, String_252ec
call PlaceString
hlcoord 2, 4
ld de, Tilemap_252f9
call Function253a8
hlcoord 7, 2
ld de, PlayerName
call PlaceString
hlcoord 5, 4
ld de, PlayerID
ld bc, $8205
call PrintNum
hlcoord 7, 6
ld de, Money
ld bc, $2306
call PrintNum
hlcoord 1, 3
ld de, Tilemap_252fc
call Function253a8
hlcoord 14, 1
ld bc, $507
xor a
ld [$ffad], a
predef FillBox
ret
; 252ec (9:52ec)
String_252ec: ; 252ec
db "NAME/", $4e
db $4e
db "MONEY@"
Tilemap_252f9: ; 252f9
db $27, $28, $ff ; ID NO
Tilemap_252fc: ; 252fc
db $25, $25, $25, $25, $25, $25, $25, $25, $25, $25, $25, $25, $26, $ff ; ____________>
; 2530a
Function2530a: ; 2530a (9:530a)
hlcoord 2, 10
ld de, String_2534c
call PlaceString
hlcoord 10, 15
ld de, String_2535c
call PlaceString
ld hl, PokedexCaught
ld b, $20
call CountSetBits
ld de, wd265
hlcoord 15, 10
ld bc, $103
call PrintNum
call Function25415
hlcoord 2, 8
ld de, Tilemap_25366
call Function253a8
ld a, [StatusFlags] ; pokedex
bit 0, a
ret nz
hlcoord 1, 9
ld bc, $211
call ClearBox
ret
; 2534c (9:534c)
String_2534c: ; 2534c
db "#DEX", $4e
db "PLAY TIME@"
String_2535b: ; 2535b
db "@"
String_2535c: ; 2535c
db " BADGES▶@"
Tilemap_25366: ; 25366
db $29, $2a, $2b, $2c, $2d, $ff
; 2536c
Function2536c: ; 2536c (9:536c)
hlcoord 2, 8
ld de, Tilemap_253a2
call Function253a8
hlcoord 2, 10
ld a, $29
ld c, $4
.asm_2537c
call Function253f4
rept 4
inc hl
endr
dec c
jr nz, .asm_2537c
hlcoord 2, 13
ld a, $51
ld c, $4
.asm_2538d
call Function253f4
rept 4
inc hl
endr
dec c
jr nz, .asm_2538d
xor a
ld [wcf64], a
ld hl, Unknown_254c9
call Function25448
ret
; 253a2 (9:53a2)
Tilemap_253a2: ; 253a2
db $79, $7a, $7b, $7c, $7d, $ff ; "BADGES"
; 253a8
Function253a8: ; 253a8 (9:53a8)
ld a, [de]
cp $ff
ret z
ld [hli], a
inc de
jr Function253a8
Function253b0: ; 253b0 (9:53b0)
ld e, $14
.asm_253b2
ld a, $23
ld [hli], a
dec e
jr nz, .asm_253b2
ld a, $23
ld [hli], a
ld e, $11
ld a, $7f
.asm_253bf
ld [hli], a
dec e
jr nz, .asm_253bf
ld a, $1c
ld [hli], a
ld a, $23
ld [hli], a
.asm_253c9
ld a, $23
ld [hli], a
ld e, $12
ld a, $7f
.asm_253d0
ld [hli], a
dec e
jr nz, .asm_253d0
ld a, $23
ld [hli], a
dec d
jr nz, .asm_253c9
ld a, $23
ld [hli], a
ld a, $24
ld [hli], a
ld e, $11
ld a, $7f
.asm_253e4
ld [hli], a
dec e
jr nz, .asm_253e4
ld a, $23
ld [hli], a
ld e, $14
.asm_253ed
ld a, $23
ld [hli], a
dec e
jr nz, .asm_253ed
ret
Function253f4: ; 253f4 (9:53f4)
push de
push hl
ld [hli], a
inc a
ld [hli], a
inc a
ld [hli], a
inc a
ld [hli], a
inc a
ld de, $11
add hl, de
ld [hli], a
inc a
ld [hli], a
inc a
ld [hli], a
inc a
ld de, $11
add hl, de
ld [hli], a
inc a
ld [hli], a
inc a
ld [hli], a
inc a
pop hl
pop de
ret
Function25415: ; 25415 (9:5415)
hlcoord 11, 12
ld de, GameTimeHours
ld bc, $204
call PrintNum
inc hl
ld de, GameTimeMinutes
ld bc, $8102
call PrintNum
ld a, [$ff9b]
and $1f
ret nz
hlcoord 15, 12
ld a, [hl]
xor $51
ld [hl], a
ret
Function25438: ; 25438 (9:5438)
ld a, [$ff9b]
and $7
ret nz
ld a, [wcf64]
inc a
and $7
ld [wcf64], a
jr Function25448
Function25448: ; 25448 (9:5448)
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [de]
ld c, a
ld de, Sprites
ld b, 8
.asm_25453
srl c
push bc
jr nc, .asm_25472
push hl
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
ld a, [hli]
ld [wcf66], a
ld a, [wcf64]
add l
ld l, a
ld a, 0
adc h
ld h, a
ld a, [hl]
ld [wcf65], a
call Function2547b
pop hl
.asm_25472
ld bc, $b
add hl, bc
pop bc
dec b
jr nz, .asm_25453
ret
Function2547b: ; 2547b (9:547b)
ld a, [wcf65]
and $80
jr nz, .asm_25487
ld hl, Unknown_254a7
jr .asm_2548a
.asm_25487
ld hl, Unknown_254b8
.asm_2548a
ld a, [hli]
cp $ff
ret z
add b
ld [de], a
inc de
ld a, [hli]
add c
ld [de], a
inc de
ld a, [wcf65]
and $7f
add [hl]
ld [de], a
inc hl
inc de
ld a, [wcf66]
add [hl]
ld [de], a
inc hl
inc de
jr .asm_2548a
; 254a7 (9:54a7)
Unknown_254a7: ; 254a7
db $00, $00, $00, $00
db $00, $08, $01, $00
db $08, $00, $02, $00
db $08, $08, $03, $00
db $ff
Unknown_254b8: ; 254b8
db $00, $00, $01, $20
db $00, $08, $00, $20
db $08, $00, $03, $20
db $08, $08, $02, $20
db $ff
Unknown_254c9: ; 254c9
; Template OAM data for each badge on the trainer card.
; Format:
; y, x, palette
; cycle 1: face tile, in1 tile, in2 tile, in3 tile
; cycle 2: face tile, in1 tile, in2 tile, in3 tile
dw JohtoBadges
; Zephyrbadge
db $68, $18, $00
db $00, $20, $24, $20 | $80
db $00, $20, $24, $20 | $80
; Hivebadge
db $68, $38, $00
db $04, $20, $24, $20 | $80
db $04, $20, $24, $20 | $80
; Plainbadge
db $68, $58, $00
db $08, $20, $24, $20 | $80
db $08, $20, $24, $20 | $80
; Fogbadge
db $68, $78, $00
db $0c, $20, $24, $20 | $80
db $0c, $20, $24, $20 | $80
; Mineralbadge
db $80, $38, $00
db $10, $20, $24, $20 | $80
db $10, $20, $24, $20 | $80
; Stormbadge
db $80, $18, $00
db $14, $20, $24, $20 | $80
db $14, $20, $24, $20 | $80
; Glacierbadge
db $80, $58, $00
db $18, $20, $24, $20 | $80
db $18, $20, $24, $20 | $80
; Risingbadge
; X-flips on alternate cycles.
db $80, $78, $00
db $1c, $20, $24, $20 | $80
db $1c | $80, $20, $24, $20 | $80
; 25523
CardStatusGFX: INCBIN "gfx/misc/card_status.2bpp"
LeaderGFX: INCBIN "gfx/misc/leaders.w24.2bpp"
LeaderGFX2: INCBIN "gfx/misc/leaders.w24.2bpp"
BadgeGFX: INCBIN "gfx/misc/badges.2bpp"
BadgeGFX2: INCBIN "gfx/misc/badges.2bpp"
CardRightCornerGFX: INCBIN "gfx/misc/card_right_corner.2bpp"
ProfOaksPC: ; 0x265d3
ld hl, OakPCText1
call MenuTextBox
call YesNoBox
jr c, .shutdown
call ProfOaksPCBoot ; player chose "yes"?
.shutdown
ld hl, OakPCText4
call PrintText
call Functiona36
call ExitMenu
ret
; 0x265ee
ProfOaksPCBoot ; 0x265ee
ld hl, OakPCText2
call PrintText
call Rate
call PlaySFX ; sfx loaded by previous Rate function call
call Functiona36
call WaitSFX
ret
; 0x26601
Function26601: ; 0x26601
call Rate
push de
ld de, MUSIC_NONE
call PlayMusic
pop de
call PlaySFX
call Functiona36
call WaitSFX
ret
; 0x26616
Rate: ; 0x26616
; calculate Seen/Owned
ld hl, PokedexSeen
ld b, EndPokedexSeen - PokedexSeen
call CountSetBits
ld [DefaultFlypoint], a
ld hl, PokedexCaught
ld b, EndPokedexCaught - PokedexCaught
call CountSetBits
ld [wd003], a
; print appropriate rating
call ClearOakRatingBuffers
ld hl, OakPCText3
call PrintText
call Functiona36
ld a, [wd003]
ld hl, OakRatings
call FindOakRating
push de
call PrintText
pop de
ret
; 0x26647
ClearOakRatingBuffers: ; 0x26647
ld hl, StringBuffer3
ld de, DefaultFlypoint
call ClearOakRatingBuffer
ld hl, StringBuffer4
ld de, wd003
call ClearOakRatingBuffer
ret
; 0x2665a
ClearOakRatingBuffer: ; 0x2665a
push hl
ld a, "@"
ld bc, $000d
call ByteFill
pop hl
ld bc, $4103
call PrintNum
ret
; 0x2666b
FindOakRating: ; 0x2666b
; return sound effect in de
; return text pointer in hl
nop
ld c, a
.loop
ld a, [hli]
cp c
jr nc, .match
rept 4
inc hl
endr
jr .loop
.match
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 0x2667f
OakRatings: ; 0x2667f
; db count (if number caught ≤ this number, then this entry is used)
; dw sound effect
; dw text pointer
db 9
dw SFX_DEX_FANFARE_LESS_THAN_20
dw OakRating01
db 19
dw SFX_DEX_FANFARE_LESS_THAN_20
dw OakRating02
db 34
dw SFX_DEX_FANFARE_20_49
dw OakRating03
db 49
dw SFX_DEX_FANFARE_20_49
dw OakRating04
db 64
dw SFX_DEX_FANFARE_50_79
dw OakRating05
db 79
dw SFX_DEX_FANFARE_50_79
dw OakRating06
db 94
dw SFX_DEX_FANFARE_80_109
dw OakRating07
db 109
dw SFX_DEX_FANFARE_80_109
dw OakRating08
db 124
dw SFX_CAUGHT_MON
dw OakRating09
db 139
dw SFX_CAUGHT_MON
dw OakRating10
db 154
dw SFX_DEX_FANFARE_140_169
dw OakRating11
db 169
dw SFX_DEX_FANFARE_140_169
dw OakRating12
db 184
dw SFX_DEX_FANFARE_170_199
dw OakRating13
db 199
dw SFX_DEX_FANFARE_170_199
dw OakRating14
db 214
dw SFX_DEX_FANFARE_200_229
dw OakRating15
db 229
dw SFX_DEX_FANFARE_200_229
dw OakRating16
db 239
dw SFX_DEX_FANFARE_230_PLUS
dw OakRating17
db 248
dw SFX_DEX_FANFARE_230_PLUS
dw OakRating18
db 255
dw SFX_DEX_FANFARE_230_PLUS
dw OakRating19
OakPCText1: ; 0x266de
TX_FAR _OakPCText1
db "@"
OakPCText2: ; 0x266e3
TX_FAR _OakPCText2
db "@"
OakPCText3: ; 0x266e8
TX_FAR _OakPCText3
db "@"
OakRating01:
TX_FAR _OakRating01
db "@"
OakRating02:
TX_FAR _OakRating02
db "@"
OakRating03:
TX_FAR _OakRating03
db "@"
OakRating04:
TX_FAR _OakRating04
db "@"
OakRating05:
TX_FAR _OakRating05
db "@"
OakRating06:
TX_FAR _OakRating06
db "@"
OakRating07:
TX_FAR _OakRating07
db "@"
OakRating08:
TX_FAR _OakRating08
db "@"
OakRating09:
TX_FAR _OakRating09
db "@"
OakRating10:
TX_FAR _OakRating10
db "@"
OakRating11:
TX_FAR _OakRating11
db "@"
OakRating12:
TX_FAR _OakRating12
db "@"
OakRating13:
TX_FAR _OakRating13
db "@"
OakRating14:
TX_FAR _OakRating14
db "@"
OakRating15:
TX_FAR _OakRating15
db "@"
OakRating16:
TX_FAR _OakRating16
db "@"
OakRating17:
TX_FAR _OakRating17
db "@"
OakRating18:
TX_FAR _OakRating18
db "@"
OakRating19:
TX_FAR _OakRating19
db "@"
OakPCText4: ; 0x2674c
TX_FAR _OakPCText4
db "@"
Function26751: ; 26751 (9:6751)
ld a, $2
ld [wdc0f], a
ld a, $10
ld [wdc12], a
ret
_KrisDecorationMenu: ; 0x2675c
ld a, [wcf76]
push af
ld hl, MenuDataHeader_0x2679a
call LoadMenuDataHeader
xor a
ld [wd1ee], a
ld a, $1
ld [wd1ef], a
.asm_2676f
ld a, [wd1ef]
ld [wcf88], a
call Function26806
call Function1e5d
ld a, [wcfa9]
ld [wd1ef], a
jr c, .asm_2678e
ld a, [MenuSelection]
ld hl, Unknown_267aa
call Function1fa7
jr nc, .asm_2676f
.asm_2678e
call ExitMenu
pop af
ld [wcf76], a
ld a, [wd1ee]
ld c, a
ret
; 0x2679a
MenuDataHeader_0x2679a: ; 0x2679a
db $40 ; flags
db 00, 05 ; start coords
db 17, 19 ; end coords
dw MenuData2_0x267a2
db 1 ; default option
; 0x267a2
MenuData2_0x267a2: ; 0x267a2
db $a0 ; flags
db 0 ; items
dw wd002
dw Function1f8d
dw Unknown_267aa
; 0x267aa
Unknown_267aa: ; 267aa
dw Function268b5, .bed
dw Function268ca, .carpet
dw Function268df, .plant
dw Function268f3, .poster
dw Function26908, .game
dw Function2691d, .ornament
dw Function26945, .big_doll
dw Function26959, .exit
.bed db "BED@"
.carpet db "CARPET@"
.plant db "PLANT@"
.poster db "POSTER@"
.game db "GAME CONSOLE@"
.ornament db "ORNAMENT@"
.big_doll db "BIG DOLL@"
.exit db "EXIT@"
; 26806
Function26806: ; 26806
xor a
ld [wcf76], a
call Function26822
call Function2683a
ld a, $7
call Function26830
ld hl, StringBuffer2
ld de, DefaultFlypoint
ld bc, $d
call CopyBytes
ret
Function26822: ; 26822 (9:6822)
ld hl, StringBuffer2
xor a
ld [hli], a
ld bc, $c
ld a, $ff
call ByteFill
ret
Function26830: ; 26830 (9:6830)
ld hl, StringBuffer2
inc [hl]
ld e, [hl]
ld d, 0
add hl, de
ld [hl], a
ret
Function2683a: ; 2683a (9:683a)
ld hl, Jumptable_26855
.loop
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
or e
jr z, .done
push hl
call _de_
pop hl
jr nc, .next
ld a, [hl]
push hl
call Function26830
pop hl
.next
inc hl
jr .loop
.done
ret
; 26855 (9:6855)
Jumptable_26855: ; 26855
dwb Function268bd, 0 ; bed
dwb Function268d2, 1 ; carpet
dwb Function268e7, 2 ; plant
dwb Function268fb, 3 ; poster
dwb Function26910, 4 ; game console
dwb Function26925, 5 ; ornament
dwb Function2694d, 6 ; big doll
dw 0 ; end
; 2686c
Function2686c: ; 2686c
xor a
ld hl, DefaultFlypoint
ld [hli], a
ld a, -1
ld bc, $0010
call ByteFill
ret
; 2687a
CheckAllDecorationFlags: ; 2687a
.loop
ld a, [hli]
cp -1
jr z, .done
push hl
push af
ld b, CHECK_FLAG
call DecorationFlagAction
ld a, c
and a
pop bc
ld a, b
call nz, Function26891
pop hl
jr .loop
.done
ret
; 26891
Function26891: ; 26891
ld hl, DefaultFlypoint
inc [hl]
ld e, [hl]
ld d, $0
add hl, de
ld [hl], a
ret
; 2689b
Function2689b: ; 2689b
push bc
push hl
call Function2686c
pop hl
call CheckAllDecorationFlags
pop bc
ld a, [DefaultFlypoint]
and a
ret z
ld a, c
call Function26891
ld a, $0
call Function26891
scf
ret
; 268b5
Function268b5: ; 268b5
call Function268bd
call Function2695b
xor a
ret
; 268bd
Function268bd: ; 268bd
ld hl, Unknown_268c5
ld c, 1
jp Function2689b
; 268c5
Unknown_268c5: ; 268c5
db 2, 3, 4, 5, $ff
; 268ca
Function268ca: ; 268ca
call Function268d2
call Function2695b
xor a
ret
; 268d2
Function268d2: ; 268d2
ld hl, Unknown_268da
ld c, 6
jp Function2689b
; 268da
Unknown_268da: ; 268da
db 7, 8, 9, 10, $ff
; 268df
Function268df: ; 268df
call Function268e7
call Function2695b
xor a
ret
; 268e7
Function268e7: ; 268e7
ld hl, Unknown_268ef
ld c, 11
jp Function2689b
; 268ef
Unknown_268ef: ; 268ef
db 12, 13, 14, $ff
; 268f3
Function268f3: ; 268f3
call Function268fb
call Function2695b
xor a
ret
; 268fb
Function268fb: ; 268fb
ld hl, Unknown_26903
ld c, 15
jp Function2689b
; 26903
Unknown_26903: ; 26903
db 16, 17, 18, 19, $ff
; 26908
Function26908: ; 26908
call Function26910
call Function2695b
xor a
ret
; 26910
Function26910: ; 26910
ld hl, Unknown_26918
ld c, 20
jp Function2689b
; 26918
Unknown_26918: ; 26918
db 21, 22, 23, 24, $ff
; 2691d
Function2691d: ; 2691d
call Function26925
call Function2695b
xor a
ret
; 26925
Function26925: ; 26925
ld hl, Unknown_2692d
ld c, 29
jp Function2689b
; 2692d
Unknown_2692d: ; 2692d
db 30, 31, 32, 33, 34, 35, 36, 37, 38, 39
db 40, 41, 42, 43, 44, 45, 46, 47, 48, 49
db 50, 51, 52, -1
; 26945
Function26945: ; 26945
call Function2694d
call Function2695b
xor a
ret
; 2694d
Function2694d: ; 2694d
ld hl, Unknown_26955
ld c, 25
jp Function2689b
; 26955
Unknown_26955: ; 26955
db 26, 27, 28, -1
; 26959
Function26959: ; 26959
scf
ret
; 2695b
Function2695b: ; 2695b
ld a, [DefaultFlypoint]
and a
jr z, .empty
cp 8
jr nc, .beyond_eight
xor a
ld [wcf76], a
ld hl, MenuDataHeader_0x269b5
call LoadMenuDataHeader
call Function1e5d
jr c, .no_action_1
call DoDecorationAction2
.no_action_1
call ExitMenu
ret
.beyond_eight
ld hl, DefaultFlypoint
ld e, [hl]
dec [hl]
ld d, 0
add hl, de
ld [hl], -1
call Function1d6e
ld hl, MenuDataHeader_0x269c5
call CopyMenuDataHeader
xor a
ld [hBGMapMode], a
call Function352f
xor a
ld [wd0e4], a
call Function350c
ld a, [wcf73]
cp 2
jr z, .no_action_2
call DoDecorationAction2
.no_action_2
call ExitMenu
ret
.empty
ld hl, UnknownText_0x269b0
call MenuTextBoxBackup
ret
; 269b0
UnknownText_0x269b0: ; 0x269b0
; There's nothing to choose.
text_jump UnknownText_0x1bc471
db "@"
; 0x269b5
MenuDataHeader_0x269b5: ; 0x269b5
db $40 ; flags
db 00, 00 ; start coords
db 17, 19 ; end coords
dw MenuData2_0x269bd
db 1 ; default option
; 0x269bd
MenuData2_0x269bd: ; 0x269bd
db $a0 ; flags
db 0 ; items
dw wd002
dw DecorationMenuFunction
dw DecorationAttributes
; 0x269c5
MenuDataHeader_0x269c5: ; 0x269c5
db $40 ; flags
db 01, 01 ; start coords
db 16, 18 ; end coords
dw MenuData2_0x269cd
db 1 ; default option
; 0x269cd
MenuData2_0x269cd: ; 0x269cd
db $10 ; flags
db 8, 0 ; rows, columns
db 1 ; horizontal spacing
dbw 0, wd002 ; text pointer
dbw BANK(DecorationMenuFunction), DecorationMenuFunction
dbw 0, 0
dbw 0, 0
; 269dd
GetDecorationData: ; 269dd
ld hl, DecorationAttributes
ld bc, 6
call AddNTimes
ret
; 269e7
GetDecorationName: ; 269e7
push hl
call GetDecorationData
call GetDecoName
pop hl
call CopyName2
ret
; 269f3
DecorationMenuFunction: ; 269f3
ld a, [MenuSelection]
push de
call GetDecorationData
call GetDecoName
pop hl
call PlaceString
ret
; 26a02
DoDecorationAction2: ; 26a02
ld a, [MenuSelection]
call GetDecorationData
ld de, 2 ; function 2
add hl, de
ld a, [hl]
ld hl, .DecoActions
rst JumpTable
ret
; 26a12
.DecoActions: ; 26a12
dw DecoAction_nothing
dw DecoAction_setupbed
dw DecoAction_putawaybed
dw DecoAction_setupcarpet
dw DecoAction_putawaycarpet
dw DecoAction_setupplant
dw DecoAction_putawayplant
dw DecoAction_setupposter
dw DecoAction_putawayposter
dw DecoAction_setupconsole
dw DecoAction_putawayconsole
dw DecoAction_setupbigdoll
dw DecoAction_putawaybigdoll
dw DecoAction_setupornament
dw DecoAction_putawayornament
; 26a30
GetDecorationFlag: ; 26a30
call GetDecorationData
ld de, 3 ; event flag
add hl, de
ld a, [hli]
ld d, [hl]
ld e, a
ret
; 26a3b
DecorationFlagAction: ; 26a3b
push bc
call GetDecorationFlag
pop bc
call EventFlagAction
ret
; 26a44
GetDecorationSprite: ; 26a44
ld a, c
call GetDecorationData
ld de, 5 ; sprite
add hl, de
ld a, [hl]
ld c, a
ret
; 26a4f
decoration: MACRO
; type, name, command, event flag, tile/sprite
db \1, \2, \3
dw \4
db \5
ENDM
DecorationAttributes: ; 26a4f
decoration DECO_PLANT, $00, $0, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_BED, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_BED, FEATHERY_BED, SET_UP_BED, EVENT_DECO_BED_1, $1b
decoration DECO_BED, PINK_BED, SET_UP_BED, EVENT_DECO_BED_2, $1c
decoration DECO_BED, POLKADOT_BED, SET_UP_BED, EVENT_DECO_BED_3, $1d
decoration DECO_BED, PIKACHU_BED, SET_UP_BED, EVENT_DECO_BED_4, $1e
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_CARPET, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_CARPET, RED_CARPET, SET_UP_CARPET, EVENT_DECO_CARPET_1, $08
decoration DECO_CARPET, BLUE_CARPET, SET_UP_CARPET, EVENT_DECO_CARPET_2, $0b
decoration DECO_CARPET, YELLOW_CARPET, SET_UP_CARPET, EVENT_DECO_CARPET_3, $0e
decoration DECO_CARPET, GREEN_CARPET, SET_UP_CARPET, EVENT_DECO_CARPET_4, $11
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_PLANT, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_PLANT, MAGNAPLANT, SET_UP_PLANT, EVENT_DECO_PLANT_1, $20
decoration DECO_PLANT, TROPICPLANT, SET_UP_PLANT, EVENT_DECO_PLANT_2, $21
decoration DECO_PLANT, JUMBOPLANT, SET_UP_PLANT, EVENT_DECO_PLANT_3, $22
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_POSTER, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_PLANT, TOWN_MAP_D, SET_UP_POSTER, EVENT_DECO_PLANT_4, $1f
decoration DECO_POSTER, PIKACHU, SET_UP_POSTER, EVENT_DECO_POSTER_1, $23
decoration DECO_POSTER, CLEFAIRY, SET_UP_POSTER, EVENT_DECO_POSTER_2, $24
decoration DECO_POSTER, JIGGLYPUFF, SET_UP_POSTER, EVENT_DECO_POSTER_3, $25
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_CONSOLE, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_PLANT, FAMICOM, SET_UP_CONSOLE, EVENT_DECO_FAMICOM, SPRITE_FAMICOM
decoration DECO_PLANT, SUPER_NES, SET_UP_CONSOLE, EVENT_DECO_SNES, SPRITE_SNES
decoration DECO_PLANT, NINTENDO_64, SET_UP_CONSOLE, EVENT_DECO_N64, SPRITE_N64
decoration DECO_PLANT, VIRTUAL_BOY, SET_UP_CONSOLE, EVENT_DECO_VIRTUAL_BOY, SPRITE_VIRTUAL_BOY
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_BIG_DOLL, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_BIGDOLL, SNORLAX, SET_UP_BIG_DOLL, EVENT_DECO_BIG_SNORLAX_DOLL, SPRITE_BIG_SNORLAX
decoration DECO_BIGDOLL, ONIX, SET_UP_BIG_DOLL, EVENT_DECO_BIG_ONIX_DOLL, SPRITE_BIG_ONIX
decoration DECO_BIGDOLL, LAPRAS, SET_UP_BIG_DOLL, EVENT_DECO_BIG_LAPRAS_DOLL, SPRITE_BIG_LAPRAS
decoration DECO_PLANT, PUT_IT_AWAY, PUT_AWAY_DOLL, EVENT_GAVE_KURT_APRICORNS, $00
decoration DECO_DOLL, PIKACHU, SET_UP_DOLL, EVENT_DECO_PIKACHU_DOLL, SPRITE_PIKACHU
decoration DECO_PLANT, SURF_PIKA_DOLL, SET_UP_DOLL, EVENT_DECO_SURFING_PIKACHU_DOLL, SPRITE_SURFING_PIKACHU
decoration DECO_DOLL, CLEFAIRY, SET_UP_DOLL, EVENT_DECO_CLEFAIRY_DOLL, SPRITE_CLEFAIRY
decoration DECO_DOLL, JIGGLYPUFF, SET_UP_DOLL, EVENT_DECO_JIGGLYPUFF_DOLL, SPRITE_JIGGLYPUFF
decoration DECO_DOLL, BULBASAUR, SET_UP_DOLL, EVENT_DECO_BULBASAUR_DOLL, SPRITE_BULBASAUR
decoration DECO_DOLL, CHARMANDER, SET_UP_DOLL, EVENT_DECO_CHARMANDER_DOLL, SPRITE_CHARMANDER
decoration DECO_DOLL, SQUIRTLE, SET_UP_DOLL, EVENT_DECO_SQUIRTLE_DOLL, SPRITE_SQUIRTLE
decoration DECO_DOLL, POLIWAG, SET_UP_DOLL, EVENT_DECO_POLIWAG_DOLL, SPRITE_POLIWAG
decoration DECO_DOLL, DIGLETT, SET_UP_DOLL, EVENT_DECO_DIGLETT_DOLL, SPRITE_DIGLETT
decoration DECO_DOLL, STARYU, SET_UP_DOLL, EVENT_DECO_STARMIE_DOLL, SPRITE_STARMIE
decoration DECO_DOLL, MAGIKARP, SET_UP_DOLL, EVENT_DECO_MAGIKARP_DOLL, SPRITE_MAGIKARP
decoration DECO_DOLL, ODDISH, SET_UP_DOLL, EVENT_DECO_ODDISH_DOLL, SPRITE_ODDISH
decoration DECO_DOLL, GENGAR, SET_UP_DOLL, EVENT_DECO_GENGAR_DOLL, SPRITE_GENGAR
decoration DECO_DOLL, SHELLDER, SET_UP_DOLL, EVENT_DECO_SHELLDER_DOLL, SPRITE_SHELLDER
decoration DECO_DOLL, GRIMER, SET_UP_DOLL, EVENT_DECO_GRIMER_DOLL, SPRITE_GRIMER
decoration DECO_DOLL, VOLTORB, SET_UP_DOLL, EVENT_DECO_VOLTORB_DOLL, SPRITE_VOLTORB
decoration DECO_DOLL, WEEDLE, SET_UP_DOLL, EVENT_DECO_WEEDLE_DOLL, SPRITE_WEEDLE
decoration DECO_DOLL, UNOWN, SET_UP_DOLL, EVENT_DECO_UNOWN_DOLL, SPRITE_UNOWN
decoration DECO_DOLL, GEODUDE, SET_UP_DOLL, EVENT_DECO_GEODUDE_DOLL, SPRITE_GEODUDE
decoration DECO_DOLL, MACHOP, SET_UP_DOLL, EVENT_DECO_MACHOP_DOLL, SPRITE_MACHOP
decoration DECO_DOLL, TENTACOOL, SET_UP_DOLL, EVENT_DECO_TENTACOOL_DOLL, SPRITE_TENTACOOL
decoration DECO_PLANT, GOLD_TROPHY, SET_UP_DOLL, EVENT_DECO_GOLD_TROPHY, SPRITE_GOLD_TROPHY
decoration DECO_PLANT, SILVER_TROPHY, SET_UP_DOLL, EVENT_DECO_SILVER_TROPHY, SPRITE_SILVER_TROPHY
; 26b8d
DecorationNames: ; 26b8d
db "CANCEL@"
db "PUT IT AWAY@"
db "MAGNAPLANT@"
db "TROPICPLANT@"
db "JUMBOPLANT@"
db "TOWN MAP@"
db "NES@"
db "SUPER NES@"
db "NINTENDO 64@"
db "VIRTUAL BOY@"
db "GOLD TROPHY@"
db "SILVER TROPHY@"
db "SURF PIKACHU DOLL@"
db " BED@"
db " CARPET@"
db " POSTER@"
db " DOLL@"
db "BIG @"
db "FEATHERY@"
db "PIKACHU@"
db "PINK@"
db "POLKADOT@"
db "RED@"
db "BLUE@"
db "YELLOW@"
db "GREEN@"
; 26c72
GetDecoName: ; 26c72
ld a, [hli]
ld e, [hl]
ld bc, StringBuffer2
push bc
ld hl, .NameFunctions
rst JumpTable
pop de
ret
; 26c7e
.NameFunctions: ; 26c7e
dw .invalid
dw .plant
dw .bed
dw .carpet
dw .poster
dw .doll
dw .bigdoll
; 26c8c
.invalid: ; 26c8c
ret
; 26c8d
.plant: ; 26c8d
ld a, e
jr .getdeconame
.bed: ; 26c90
call .plant
ld a, _BED
jr .getdeconame
.carpet: ; 26c97
call .plant
ld a, _CARPET
jr .getdeconame
.poster: ; 26c9e
ld a, e
call .getpokename
ld a, _POSTER
jr .getdeconame
.doll: ; 26ca6
ld a, e
call .getpokename
ld a, _DOLL
jr .getdeconame
.bigdoll: ; 26cae
push de
ld a, BIG_
call .getdeconame
pop de
ld a, e
jr .getpokename
.unused: ; 26cb8
push de
call .getdeconame
pop de
ld a, e
jr .getdeconame
.getpokename: ; 26cc0
push bc
ld [wd265], a
call GetPokemonName
pop bc
jr .copy
.getdeconame: ; 26cca
call ._getdeconame
jr .copy
._getdeconame: ; 26ccf
push bc
ld hl, DecorationNames
call GetNthString
ld d, h
ld e, l
pop bc
ret
.copy: ; 26cda
ld h, b
ld l, c
call CopyName2
dec hl
ld b, h
ld c, l
ret
; 26ce3
DecoAction_nothing: ; 26ce3
scf
ret
; 26ce5
DecoAction_setupbed: ; 26ce5
ld hl, Bed
jp DecoAction_TrySetItUp
; 26ceb
DecoAction_putawaybed: ; 26ceb
ld hl, Bed
jp DecoAction_TryPutItAway
; 26cf1
DecoAction_setupcarpet: ; 26cf1
ld hl, Carpet
jp DecoAction_TrySetItUp
; 26cf7
DecoAction_putawaycarpet: ; 26cf7
ld hl, Carpet
jp DecoAction_TryPutItAway
; 26cfd
DecoAction_setupplant: ; 26cfd
ld hl, Plant
jp DecoAction_TrySetItUp
; 26d03
DecoAction_putawayplant: ; 26d03
ld hl, Plant
jp DecoAction_TryPutItAway
; 26d09
DecoAction_setupposter: ; 26d09
ld hl, Poster
jp DecoAction_TrySetItUp
; 26d0f
DecoAction_putawayposter: ; 26d0f
ld hl, Poster
jp DecoAction_TryPutItAway
; 26d15
DecoAction_setupconsole: ; 26d15
ld hl, Console
jp DecoAction_TrySetItUp
; 26d1b
DecoAction_putawayconsole: ; 26d1b
ld hl, Console
jp DecoAction_TryPutItAway
; 26d21
DecoAction_setupbigdoll: ; 26d21
ld hl, BigDoll
jp DecoAction_TrySetItUp
; 26d27
DecoAction_putawaybigdoll: ; 26d27
ld hl, BigDoll
jp DecoAction_TryPutItAway
; 26d2d
DecoAction_TrySetItUp: ; 26d2d
ld a, [hl]
ld [Buffer1], a
push hl
call DecoAction_SetItUp
jr c, .failed
ld a, 1
ld [wd1ee], a
pop hl
ld a, [MenuSelection]
ld [hl], a
xor a
ret
.failed
pop hl
xor a
ret
; 26d46
DecoAction_SetItUp: ; 26d46
; See if there's anything of the same type already out
ld a, [Buffer1]
and a
jr z, .nothingthere
; See if that item is already out
ld b, a
ld a, [MenuSelection]
cp b
jr z, .alreadythere
; Put away the item that's already out, and set up the new one
ld a, [MenuSelection]
ld hl, StringBuffer4
call GetDecorationName
ld a, [Buffer1]
ld hl, StringBuffer3
call GetDecorationName
ld hl, UnknownText_0x26ee0
call MenuTextBoxBackup
xor a
ret
.nothingthere
ld a, [MenuSelection]
ld hl, StringBuffer3
call GetDecorationName
ld hl, UnknownText_0x26edb
call MenuTextBoxBackup
xor a
ret
.alreadythere
ld hl, UnknownText_0x26ee5
call MenuTextBoxBackup
scf
ret
; 26d86
DecoAction_TryPutItAway: ; 26d86
; If there is no item of that type already set, there is nothing to put away.
ld a, [hl]
ld [Buffer1], a
xor a
ld [hl], a
ld a, [Buffer1]
and a
jr z, .nothingthere
; Put it away.
ld a, $1
ld [wd1ee], a
ld a, [Buffer1]
ld [MenuSelection], a
ld hl, StringBuffer3
call GetDecorationName
ld hl, UnknownText_0x26ed1
call MenuTextBoxBackup
xor a
ret
.nothingthere
ld hl, UnknownText_0x26ed6
call MenuTextBoxBackup
xor a
ret
; 26db3
DecoAction_setupornament: ; 26db3
ld hl, UnknownText_0x26e41
call DecoAction_AskWhichSide
jr c, .cancel
call DecoAction_SetItUp_Ornament
jr c, .cancel
ld a, $1
ld [wd1ee], a
jr DecoAction_FinishUp_Ornament
.cancel
xor a
ret
DecoAction_putawayornament: ; 26dc9
ld hl, UnknownText_0x26e6b
call DecoAction_AskWhichSide
jr nc, .incave
xor a
ret
.incave
call DecoAction_PutItAway_Ornament
DecoAction_FinishUp_Ornament: ; 26dd6
call QueryWhichSide
ld a, [wd1ec]
ld [hl], a
ld a, [wd1ed]
ld [de], a
xor a
ret
; 26de3
DecoAction_SetItUp_Ornament: ; 26de3
ld a, [wd1ec]
and a
jr z, .nothingthere
ld b, a
ld a, [MenuSelection]
cp b
jr z, .failed
ld a, b
ld hl, StringBuffer3
call GetDecorationName
ld a, [MenuSelection]
ld hl, StringBuffer4
call GetDecorationName
ld a, [MenuSelection]
ld [wd1ec], a
call .getwhichside
ld hl, UnknownText_0x26ee0
call MenuTextBoxBackup
xor a
ret
.nothingthere
ld a, [MenuSelection]
ld [wd1ec], a
call .getwhichside
ld a, [MenuSelection]
ld hl, StringBuffer3
call GetDecorationName
ld hl, UnknownText_0x26edb
call MenuTextBoxBackup
xor a
ret
.failed
ld hl, UnknownText_0x26ee5
call MenuTextBoxBackup
scf
ret
; 26e33
.getwhichside: ; 26e33
ld a, [MenuSelection]
ld b, a
ld a, [wd1ed]
cp b
ret nz
xor a
ld [wd1ed], a
ret
; 26e41
UnknownText_0x26e41: ; 0x26e41
; Which side do you want to put it on?
text_jump UnknownText_0x1bc48c
db "@"
; 0x26e46
DecoAction_PutItAway_Ornament: ; 26e46
ld a, [wd1ec]
and a
jr z, .nothingthere
ld hl, StringBuffer3
call GetDecorationName
ld a, $1
ld [wd1ee], a
xor a
ld [wd1ec], a
ld hl, UnknownText_0x26ed1
call MenuTextBoxBackup
xor a
ret
.nothingthere
ld hl, UnknownText_0x26ed6
call MenuTextBoxBackup
xor a
ret
; 26e6b
UnknownText_0x26e6b: ; 0x26e6b
; Which side do you want to put away?
text_jump UnknownText_0x1bc4b2
db "@"
; 0x26e70
DecoAction_AskWhichSide: ; 26e70
call MenuTextBox
ld hl, MenuDataHeader_0x26eab
call GetMenu2
call ExitMenu
call Function1c66
jr c, .nope
ld a, [wcfa9]
cp 3
jr z, .nope
ld [Buffer2], a
call QueryWhichSide
ld a, [hl]
ld [wd1ec], a
ld a, [de]
ld [wd1ed], a
xor a
ret
.nope
scf
ret
; 26e9a
QueryWhichSide: ; 26e9a
ld hl, RightOrnament
ld de, LeftOrnament
ld a, [Buffer2]
cp 1
ret z
push hl
ld h, d
ld l, e
pop de
ret
; 26eab
MenuDataHeader_0x26eab: ; 0x26eab
db $40 ; flags
db 00, 00 ; start coords
db 07, 13 ; end coords
dw MenuData2_0x26eb3
db 1 ; default option
; 0x26eb3
MenuData2_0x26eb3: ; 0x26eb3
db $80 ; flags
db 3 ; items
db "RIGHT SIDE@"
db "LEFT SIDE@"
db "CANCEL@"
; 0x26ed1
UnknownText_0x26ed1: ; 0x26ed1
; Put away the @ .
text_jump UnknownText_0x1bc4d7
db "@"
; 0x26ed6
UnknownText_0x26ed6: ; 0x26ed6
; There's nothing to put away.
text_jump UnknownText_0x1bc4ec
db "@"
; 0x26edb
UnknownText_0x26edb: ; 0x26edb
; Set up the @ .
text_jump UnknownText_0x1bc509
db "@"
; 0x26ee0
UnknownText_0x26ee0: ; 0x26ee0
; Put away the @ and set up the @ .
text_jump UnknownText_0x1bc51c
db "@"
; 0x26ee5
UnknownText_0x26ee5: ; 0x26ee5
; That's already set up.
text_jump UnknownText_0x1bc546
db "@"
; 0x26eea
GetDecorationName_c_de: ; 26eea
ld a, c
ld h, d
ld l, e
call GetDecorationName
ret
; 26ef1
DecorationFlagAction_c: ; 26ef1
ld a, c
jp DecorationFlagAction
; 26ef5
GetDecorationName_c: ; 26ef5 (9:6ef5)
ld a, c
call GetDecorationID
ld hl, StringBuffer1
push hl
call GetDecorationName
pop de
ret
SetSpecificDecorationFlag: ; 26f02
ld a, c
call GetDecorationID
ld b, SET_FLAG
call DecorationFlagAction
ret
; 26f0c
GetDecorationID: ; 26f0c
push hl
push de
ld e, a
ld d, 0
ld hl, DecorationIDs
add hl, de
ld a, [hl]
pop de
pop hl
ret
; 26f19
SetAllDecorationFlags: ; 26f19
ld hl, DecorationIDs
.loop
ld a, [hli]
cp -1
jr z, .done
push hl
ld b, SET_FLAG
call DecorationFlagAction
pop hl
jr .loop
.done
ret
; 26f2b
DecorationIDs: ; 26f2b
db DECO_FEATHERY_BED ; 2
db DECO_PINK_BED ; 3
db DECO_POLKADOT_BED ; 4
db DECO_PIKACHU_BED ; 5
db DECO_RED_CARPET ; 7
db DECO_BLUE_CARPET ; 8
db DECO_YELLOW_CARPET ; 9
db DECO_GREEN_CARPET ; a
db DECO_MAGNAPLANT ; c
db DECO_TROPICPLANT ; d
db DECO_JUMBOPLANT ; e
db DECO_TOWN_MAP ; 10
db DECO_PIKACHU_POSTER ; 11
db DECO_CLEFAIRY_POSTER ; 12
db DECO_JIGGLYPUFF_POSTER ; 13
db DECO_FAMICOM ; 15
db DECO_SNES ; 16
db DECO_N64 ; 17
db DECO_VIRTUAL_BOY ; 18
db DECO_PIKACHU_DOLL ; 1e
db DECO_SURF_PIKACHU_DOLL ; 1f
db DECO_CLEFAIRY_DOLL ; 20
db DECO_JIGGLYPUFF_DOLL ; 21
db DECO_BULBASAUR_DOLL ; 22
db DECO_CHARMANDER_DOLL ; 23
db DECO_SQUIRTLE_DOLL ; 24
db DECO_POLIWAG_DOLL ; 25
db DECO_DIGLETT_DOLL ; 26
db DECO_STARMIE_DOLL ; 27
db DECO_MAGIKARP_DOLL ; 28
db DECO_ODDISH_DOLL ; 29
db DECO_GENGAR_DOLL ; 2a
db DECO_SHELLDER_DOLL ; 2b
db DECO_GRIMER_DOLL ; 2c
db DECO_VOLTORB_DOLL ; 2d
db DECO_WEEDLE_DOLL ; 2e
db DECO_UNOWN_DOLL ; 2f
db DECO_GEODUDE_DOLL ; 30
db DECO_MACHOP_DOLL ; 31
db DECO_TENTACOOL_DOLL ; 32
db DECO_BIG_SNORLAX_DOLL ; 1a
db DECO_BIG_ONIX_DOLL ; 1b
db DECO_BIG_LAPRAS_DOLL ; 1c
db DECO_GOLD_TROPHY_DOLL ; 33
db DECO_SILVER_TROPHY_DOLL ; 34
db -1
; 26f59
DescribeDecoration:: ; 26f59
ld a, b
ld hl, JumpTable_DecorationDesc
rst JumpTable
ret
; 26f5f
JumpTable_DecorationDesc: ; 26f5f
dw DecorationDesc_Poster
dw DecorationDesc_LeftOrnament
dw DecorationDesc_RightOrnament
dw DecorationDesc_GiantDoll
dw DecorationDesc_Console
; 26f69
DecorationDesc_Poster: ; 26f69
ld a, [Poster]
ld hl, DecorationDesc_PosterPointers
ld de, 3
call IsInArray
jr c, .nope
ld de, DecorationDesc_NullPoster
ld b, BANK(DecorationDesc_NullPoster)
ret
.nope
ld b, BANK(DecorationDesc_TownMapPoster)
inc hl
ld a, [hli]
ld d, [hl]
ld e, a
ret
; 26f84
DecorationDesc_PosterPointers: ; 26f84
dbw DECO_TOWN_MAP, DecorationDesc_TownMapPoster
dbw DECO_PIKACHU_POSTER, DecorationDesc_PikachuPoster
dbw DECO_CLEFAIRY_POSTER, DecorationDesc_ClefairyPoster
dbw DECO_JIGGLYPUFF_POSTER, DecorationDesc_JigglypuffPoster
db -1
; 26f91
DecorationDesc_TownMapPoster: ; 0x26f91
loadfont
writetext UnknownText_0x26f9b
closetext
special Special_TownMap
loadmovesprites
end
; 0x26f9b
UnknownText_0x26f9b: ; 0x26f9b
; It's the TOWN MAP.
text_jump UnknownText_0x1bc55d
db "@"
; 0x26fa0
DecorationDesc_PikachuPoster: ; 0x26fa0
jumptext UnknownText_0x26fa3
; 0x26fa3
UnknownText_0x26fa3: ; 0x26fa3
; It's a poster of a cute PIKACHU.
text_jump UnknownText_0x1bc570
db "@"
; 0x26fa8
DecorationDesc_ClefairyPoster: ; 0x26fa8
jumptext UnknownText_0x26fab
; 0x26fab
UnknownText_0x26fab: ; 0x26fab
; It's a poster of a cute CLEFAIRY.
text_jump UnknownText_0x1bc591
db "@"
; 0x26fb0
DecorationDesc_JigglypuffPoster: ; 0x26fb0
jumptext UnknownText_0x26fb3
; 0x26fb3
UnknownText_0x26fb3: ; 0x26fb3
; It's a poster of a cute JIGGLYPUFF.
text_jump UnknownText_0x1bc5b3
db "@"
; 0x26fb8
DecorationDesc_NullPoster: ; 26fb8
end
; 26fb9
DecorationDesc_LeftOrnament: ; 26fb9
ld a, [LeftOrnament]
jr DecorationDesc_OrnamentOrConsole
DecorationDesc_RightOrnament: ; 26fbe
ld a, [RightOrnament]
jr DecorationDesc_OrnamentOrConsole
DecorationDesc_Console: ; 26fc3
ld a, [Console]
jr DecorationDesc_OrnamentOrConsole
DecorationDesc_OrnamentOrConsole: ; 26fc8
ld c, a
ld de, StringBuffer3
call GetDecorationName_c_de
ld b, BANK(Unknown_26fd5)
ld de, Unknown_26fd5
ret
; 26fd5
Unknown_26fd5: ; 26fd5
dbw $53, UnknownText_0x26fd8
; 26fd8
UnknownText_0x26fd8: ; 0x26fd8
; It's an adorable @ .
text_jump UnknownText_0x1bc5d7
db "@"
; 0x26fdd
DecorationDesc_GiantDoll: ; 26fdd
ld b, BANK(Unknown_26fe3)
ld de, Unknown_26fe3
ret
; 26fe3
Unknown_26fe3: ; 26fe3
dbw $53, UnknownText_0x26fe6
; 26fe6
UnknownText_0x26fe6: ; 0x26fe6
; A giant doll! It's fluffy and cuddly.
text_jump UnknownText_0x1bc5ef
db "@"
; 0x26feb
ToggleMaptileDecorations: ; 26feb
lb de, 0, 4
ld a, [Bed]
call SetDecorationTile
lb de, 7, 4
ld a, [Plant]
call SetDecorationTile
lb de, 6, 0
ld a, [Poster]
call SetDecorationTile
call SetPosterVisibility
lb de, 0, 0
call PadCoords_de
ld a, [Carpet]
and a
ret z
call _GetDecorationSprite
ld [hl], a
push af
lb de, 0, 2
call PadCoords_de
pop af
inc a
ld [hli], a
inc a
ld [hli], a
dec a
ld [hl], a
ret
; 27027
SetPosterVisibility: ; 27027
ld b, SET_FLAG
ld a, [Poster]
and a
jr nz, .ok
ld b, RESET_FLAG
.ok
ld de, EVENT_KRISS_ROOM_POSTER
jp EventFlagAction
; 27037
SetDecorationTile: ; 27037
push af
call PadCoords_de
pop af
and a
ret z
call _GetDecorationSprite
ld [hl], a
ret
; 27043
ToggleDecorationsVisibility: ; 27043
ld de, EVENT_KRISS_HOUSE_2F_CONSOLE
ld hl, VariableSprites + SPRITE_CONSOLE - SPRITE_VARS
ld a, [Console]
call ToggleDecorationVisibility
ld de, EVENT_KRISS_HOUSE_2F_DOLL_1
ld hl, VariableSprites + SPRITE_DOLL_1 - SPRITE_VARS
ld a, [LeftOrnament]
call ToggleDecorationVisibility
ld de, EVENT_KRISS_HOUSE_2F_DOLL_2
ld hl, VariableSprites + SPRITE_DOLL_2 - SPRITE_VARS
ld a, [RightOrnament]
call ToggleDecorationVisibility
ld de, EVENT_KRISS_HOUSE_2F_BIG_DOLL
ld hl, VariableSprites + SPRITE_BIG_DOLL - SPRITE_VARS
ld a, [BigDoll]
call ToggleDecorationVisibility
ret
; 27074
ToggleDecorationVisibility: ; 27074
and a
jr z, .hide
call _GetDecorationSprite
ld [hl], a
ld b, RESET_FLAG
jp EventFlagAction
.hide
ld b, SET_FLAG
jp EventFlagAction
; 27085
_GetDecorationSprite: ; 27085
ld c, a
push de
push hl
callba GetDecorationSprite
pop hl
pop de
ld a, c
ret
; 27092
PadCoords_de: ; 27092
ld a, d
add 4
ld d, a
ld a, e
add 4
ld e, a
call GetBlockLocation
ret
; 2709e
LevelUpHappinessMod: ; 2709e
ld a, [CurPartyMon]
ld hl, PartyMon1CaughtLocation
call GetPartyLocation
ld a, [hl]
and $7f
ld d, a
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
cp d
ld c, 1
jr nz, .ok
ld c, 19
.ok
callab ChangeHappiness
ret
; 270c4
INCLUDE "trainers/dvs.asm"
Function2715c: ; 2715c
call WhiteBGMap
call ClearTileMap
ld a, [BattleType]
cp BATTLETYPE_TUTORIAL
jr z, .gettutorialbackpic
callba Function3f43d
jr .continue
.gettutorialbackpic
callba GetBattleBackpic
.continue
callba Function3f47c
callba Function3ed9f
call ClearSGB
call WriteBackup
call Function1d6e
call WaitBGMap
jp Function32f9
; 27192
Function27192: ; 27192
push hl
push de
push bc
ld a, [hBattleTurn]
and a
ld hl, OTPartyMon1Item
ld de, EnemyMonItem
ld a, [CurOTMon]
jr z, .theirturn
ld hl, PartyMon1Item
ld de, BattleMonItem
ld a, [CurBattleMon]
.theirturn
push hl
push af
ld a, [de]
ld b, a
callba GetItem
ld hl, Unknown_271de
.loop
ld a, [hli]
cp b
jr z, .ok
inc a
jr nz, .loop
pop af
pop hl
pop bc
pop de
pop hl
ret
.ok
xor a
ld [de], a
pop af
pop hl
call GetPartyLocation
ld a, [hBattleTurn]
and a
jr nz, .ourturn
ld a, [IsInBattle]
dec a
jr z, .done
.ourturn
ld [hl], $0
.done
pop bc
pop de
pop hl
ret
; 271de
Unknown_271de: ; 271de
; Consumable items?
db HELD_BERRY
db $02
db $05
db HELD_HEAL_POISON
db HELD_HEAL_FREEZE
db HELD_HEAL_BURN
db HELD_HEAL_SLEEP
db HELD_HEAL_PARALYZE
db HELD_HEAL_STATUS
db $1e
db HELD_ATTACK_UP
db HELD_DEFENSE_UP
db HELD_SPEED_UP
db HELD_SP_ATTACK_UP
db HELD_SP_DEFENSE_UP
db HELD_ACCURACY_UP
db HELD_EVASION_UP
db $26
db $47
db HELD_ESCAPE
db HELD_CRITICAL_UP
db -1
; 271f4
MoveEffectsPointers: ; 271f4
INCLUDE "battle/moves/move_effects_pointers.asm"
MoveEffects: ; 2732e
INCLUDE "battle/moves/move_effects.asm"
Function27a28: ; 27a28
call Function2500e
ld b, a
ret
; 27a2d
SECTION "bankA", ROMX, BANK[$A]
Function28000: ; 28000
call WhiteBGMap
ld c, $50
call DelayFrames
call ClearScreen
call ClearSprites
call DrawOnMap
xor a
ld [hSCX], a
ld [hSCY], a
ld c, $50
call DelayFrames
call ClearScreen
call DrawOnMap
call Functione51
call Functione58
callba Function16d69a
call Function3200
hlcoord 3, 8
ld b, $2
ld c, $c
ld d, h
ld e, l
callba Function4d35b
hlcoord 4, 10
ld de, String28419
call PlaceString
call Function28eff
call Function3200
ld hl, wcf5d
xor a
ld [hli], a
ld [hl], $50
ld a, [InLinkBattle]
cp $1
jp nz, Function28177
Function2805d: ; 2805d
call Function28426
call Function28499
call Function28434
xor a
ld [wcf56], a
call Function87d
ld a, [$ffcb]
cp $2
jr nz, .asm_28091
ld c, $3
call DelayFrames
xor a
ld [hSerialSend], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
call DelayFrame
xor a
ld [hSerialSend], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
.asm_28091
ld de, MUSIC_NONE
call PlayMusic
ld c, $3
call DelayFrames
xor a
ld [rIF], a
ld a, $8
ld [rIE], a
ld hl, wd1f3
ld de, EnemyMonSpecies
ld bc, $0011
call Function75f
ld a, $fe
ld [de], a
ld hl, OverworldMap
ld de, wd26b
ld bc, $01a8
call Function75f
ld a, $fe
ld [de], a
ld hl, wc608
ld de, wc6d0
ld bc, $00c8
call Function75f
xor a
ld [rIF], a
ld a, $1d
ld [rIE], a
call Function287ab
ld hl, wd26b
call Function287ca
push hl
ld bc, $000b
add hl, bc
ld a, [hl]
pop hl
and a
jp z, Function28b22
cp $7
jp nc, Function28b22
ld de, OverworldMap
ld bc, $01a2
call Function2879e
ld de, wc6d0
ld hl, wc813
ld c, $2
.asm_280fe
ld a, [de]
inc de
and a
jr z, .asm_280fe
cp $fd
jr z, .asm_280fe
cp $fe
jr z, .asm_280fe
cp $ff
jr z, .asm_2811d
push hl
push bc
ld b, $0
dec a
ld c, a
add hl, bc
ld a, $fe
ld [hl], a
pop bc
pop hl
jr .asm_280fe
.asm_2811d
ld hl, wc90f
dec c
jr nz, .asm_280fe
ld hl, OverworldMap
ld de, wd26b
ld bc, $000b
call CopyBytes
ld de, OTPartyCount
ld a, [hli]
ld [de], a
inc de
.asm_28135
ld a, [hli]
cp $ff
jr z, .asm_2814e
ld [wd265], a
push hl
push de
callab ConvertMon_1to2
pop de
pop hl
ld a, [wd265]
ld [de], a
inc de
jr .asm_28135
.asm_2814e
ld [de], a
ld hl, wc813
call Function2868a
ld a, OTPartyMonOT % $100
ld [wd102], a
ld a, OTPartyMonOT / $100
ld [wd103], a
ld de, MUSIC_NONE
call PlayMusic
ld a, [$ffcb]
cp $2
ld c, 66
call z, DelayFrames
ld de, MUSIC_ROUTE_30
call PlayMusic
jp Function287e3
; 28177
Function28177: ; 28177
call Function28426
call Function28595
call Function28434
call Function29dba
ld a, [ScriptVar]
and a
jp z, Function283b2
ld a, [$ffcb]
cp $2
jr nz, .asm_281ae
ld c, $3
call DelayFrames
xor a
ld [hSerialSend], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
call DelayFrame
xor a
ld [hSerialSend], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
.asm_281ae
ld de, MUSIC_NONE
call PlayMusic
ld c, $3
call DelayFrames
xor a
ld [rIF], a
ld a, $8
ld [rIE], a
ld hl, wd1f3
ld de, EnemyMonSpecies
ld bc, $0011
call Function75f
ld a, $fe
ld [de], a
ld hl, OverworldMap
ld de, wd26b
ld bc, $01c2
call Function75f
ld a, $fe
ld [de], a
ld hl, wc608
ld de, wc6d0
ld bc, $00c8
call Function75f
ld a, [InLinkBattle]
cp $2
jr nz, .asm_281fd
ld hl, wc9f4
ld de, wcb84
ld bc, $0186
call Function283f2
.asm_281fd
xor a
ld [rIF], a
ld a, $1d
ld [rIE], a
ld de, MUSIC_NONE
call PlayMusic
call Function287ab
ld hl, wd26b
call Function287ca
ld de, OverworldMap
ld bc, $01b9
call Function2879e
ld de, wc6d0
ld hl, wc813
ld c, $2
.asm_28224
ld a, [de]
inc de
and a
jr z, .asm_28224
cp $fd
jr z, .asm_28224
cp $fe
jr z, .asm_28224
cp $ff
jr z, .asm_28243
push hl
push bc
ld b, $0
dec a
ld c, a
add hl, bc
ld a, $fe
ld [hl], a
pop bc
pop hl
jr .asm_28224
.asm_28243
ld hl, wc90f
dec c
jr nz, .asm_28224
ld a, [InLinkBattle]
cp $2
jp nz, .asm_282fe
ld hl, wcb84
.asm_28254
ld a, [hli]
cp $20
jr nz, .asm_28254
.asm_28259
ld a, [hli]
cp $fe
jr z, .asm_28259
cp $20
jr z, .asm_28259
dec hl
ld de, wcb84
ld bc, $0190
call CopyBytes
ld hl, wcb84
ld bc, $00c6
.asm_28272
ld a, [hl]
cp $21
jr nz, .asm_28279
ld [hl], $fe
.asm_28279
inc hl
dec bc
ld a, b
or c
jr nz, .asm_28272
ld de, wcc9e
.asm_28282
ld a, [de]
inc de
cp $ff
jr z, .asm_28294
ld hl, wcc4a
dec a
ld b, $0
ld c, a
add hl, bc
ld [hl], $fe
jr .asm_28282
.asm_28294
ld hl, wcb84
ld de, wc9f4
ld b, $6
.asm_2829c
push bc
ld bc, $0021
call CopyBytes
ld a, $e
add e
ld e, a
ld a, $0
adc d
ld d, a
pop bc
dec b
jr nz, .asm_2829c
ld de, wc9f4
ld b, $6
.asm_282b4
push bc
ld a, $21
add e
ld e, a
ld a, $0
adc d
ld d, a
ld bc, $000e
call CopyBytes
pop bc
dec b
jr nz, .asm_282b4
ld b, $6
ld de, wc9f4
.asm_282cc
push bc
push de
callba Function1de5c8
ld a, c
or a
jr z, .asm_282ee
sub $3
jr nc, .asm_282e4
callba Function1df203
jr .asm_282ee
.asm_282e4
cp $2
jr nc, .asm_282ee
callba Function1df220
.asm_282ee
pop de
ld hl, $002f
add hl, de
ld d, h
ld e, l
pop bc
dec b
jr nz, .asm_282cc
ld de, wcb0e
xor a
ld [de], a
.asm_282fe
ld hl, OverworldMap
ld de, wd26b
ld bc, $000b
call CopyBytes
ld de, OTPartyCount
ld bc, $0008
call CopyBytes
ld de, wd276
ld bc, $0002
call CopyBytes
ld de, OTPartyMon1Species
ld bc, $01a4
call CopyBytes
ld a, $a8
ld [wd102], a
ld a, $d3
ld [wd103], a
ld de, MUSIC_NONE
call PlayMusic
ld a, [$ffcb]
cp $2
ld c, 66
call z, DelayFrames
ld a, [InLinkBattle]
cp $3
jr nz, .asm_283a9
ld a, CAL
ld [OtherTrainerClass], a
call ClearScreen
callba Function4d354
ld hl, Options
ld a, [hl]
push af
and $20
or $3
ld [hl], a
ld hl, wd26b
ld de, OTName
ld bc, $000b
call CopyBytes
call Function222a
ld a, [wc2d7]
push af
ld a, $1
ld [wc2d7], a
ld a, [rIE]
push af
ld a, [rIF]
push af
xor a
ld [rIF], a
ld a, [rIE]
set 1, a
ld [rIE], a
pop af
ld [rIF], a
predef StartBattle
ld a, [rIF]
ld h, a
xor a
ld [rIF], a
pop af
ld [rIE], a
ld a, h
ld [rIF], a
pop af
ld [wc2d7], a
pop af
ld [Options], a
callba Function1500c
jp Function28b22
.asm_283a9
ld de, MUSIC_ROUTE_30
call PlayMusic
jp Function287e3
; 283b2
Function283b2: ; 283b2
ld de, UnknownText_0x283ed
ld b, $a
.asm_283b7
call DelayFrame
call Function908
dec b
jr nz, .asm_283b7
xor a
ld [hld], a
ld [hl], a
ld [hVBlank], a
push de
hlcoord 0, 12
ld b, $4
ld c, $12
push de
ld d, h
ld e, l
callba Function4d35b
pop de
pop hl
bccoord 1, 14
call Function13e5
call FadeToWhite
call ClearScreen
ld b, $8
call GetSGBLayout
call Function3200
ret
; 283ed
UnknownText_0x283ed: ; 0x283ed
; Too much time has elapsed. Please try again.
text_jump UnknownText_0x1c4183
db "@"
; 0x283f2
Function283f2: ; 283f2
ld a, $1
ld [$ffcc], a
.asm_283f6
ld a, [hl]
ld [hSerialSend], a
call Function78a
push bc
ld b, a
inc hl
ld a, $30
.asm_28401
dec a
jr nz, .asm_28401
ld a, [$ffcc]
and a
ld a, b
pop bc
jr z, .asm_28411
dec hl
xor a
ld [$ffcc], a
jr .asm_283f6
.asm_28411
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .asm_283f6
ret
; 28419
String28419: ; 28419
db "PLEASE WAIT!@"
; 28426
Function28426: ; 28426
ld hl, OverworldMap
ld bc, $0514
.asm_2842c
xor a
ld [hli], a
dec bc
ld a, b
or c
jr nz, .asm_2842c
ret
; 28434
Function28434: ; 28434
ld hl, wd1f3
ld a, $fd
ld b, $7
.asm_2843b
ld [hli], a
dec b
jr nz, .asm_2843b
ld b, $a
.asm_28441
call Random
cp $fd
jr nc, .asm_28441
ld [hli], a
dec b
jr nz, .asm_28441
ld hl, wc608
ld a, $fd
rept 3
ld [hli], a
endr
ld b, $c8
xor a
.asm_28457
ld [hli], a
dec b
jr nz, .asm_28457
ld hl, wc818
ld de, wc608 + 10
ld bc, $0000
.asm_28464
inc c
ld a, c
cp $fd
jr z, .asm_2848c
ld a, b
dec a
jr nz, .asm_2847f
push bc
ld a, [InLinkBattle]
cp $1
ld b, $d
jr z, .asm_2847a
ld b, $27
.asm_2847a
ld a, c
cp b
pop bc
jr z, .asm_28495
.asm_2847f
inc hl
ld a, [hl]
cp $fe
jr nz, .asm_28464
ld a, c
ld [de], a
inc de
ld [hl], $ff
jr .asm_28464
.asm_2848c
ld a, $ff
ld [de], a
inc de
ld bc, $100
jr .asm_28464
.asm_28495
ld a, $ff
ld [de], a
ret
; 28499
Function28499: ; 28499
ld de, OverworldMap
ld a, $fd
ld b, $6
.asm_284a0
ld [de], a
inc de
dec b
jr nz, .asm_284a0
ld hl, PlayerName
ld bc, $000b
call CopyBytes
push de
ld hl, PartyCount
ld a, [hli]
ld [de], a
inc de
.asm_284b5
ld a, [hli]
cp $ff
jr z, .asm_284ce
ld [wd265], a
push hl
push de
callab ConvertMon_2to1
pop de
pop hl
ld a, [wd265]
ld [de], a
inc de
jr .asm_284b5
.asm_284ce
ld [de], a
pop de
ld hl, $0008
add hl, de
ld d, h
ld e, l
ld hl, PartyMon1Species
ld c, $6
.asm_284db
push bc
call Function284f6
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop bc
dec c
jr nz, .asm_284db
ld hl, PartyMonOT
call .asm_284f0
ld hl, PartyMonNicknames
.asm_284f0
ld bc, $0042
jp CopyBytes
; 284f6
Function284f6: ; 284f6
ld b, h
ld c, l
push de
push bc
ld a, [hl]
ld [wd265], a
callab ConvertMon_2to1
pop bc
pop de
ld a, [wd265]
ld [de], a
inc de
ld hl, $0022
add hl, bc
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
xor a
ld [de], a
inc de
ld hl, $0020
add hl, bc
ld a, [hl]
ld [de], a
inc de
ld a, [bc]
cp $51
jr z, .asm_28528
cp $52
jr nz, .asm_28530
.asm_28528
ld a, $17
ld [de], a
inc de
ld [de], a
inc de
jr .asm_28544
.asm_28530
push bc
dec a
ld hl, BaseData + 7 ; type
ld bc, BaseData1 - BaseData0
call AddNTimes
ld bc, 2
ld a, BANK(BaseData)
call FarCopyBytes
pop bc
.asm_28544
push bc
ld hl, $0001
add hl, bc
ld bc, $1a
call CopyBytes
pop bc
ld hl, $001f
add hl, bc
ld a, [hl]
ld [de], a
ld [CurPartyLevel], a
inc de
push bc
ld hl, $0024
add hl, bc
ld bc, $0008
call CopyBytes
pop bc
push de
push bc
ld a, [bc]
dec a
push bc
ld b, 0
ld c, a
ld hl, KantoMonSpecials
add hl, bc
ld a, BANK(KantoMonSpecials)
call GetFarByte
ld [BaseSpecialAttack], a
pop bc
ld hl, $000a
add hl, bc
ld c, $5
ld b, $1
predef Functione17b
pop bc
pop de
ld a, [$ffb5]
ld [de], a
inc de
ld a, [$ffb6]
ld [de], a
inc de
ld h, b
ld l, c
ret
; 28595
Function28595: ; 28595
ld de, OverworldMap
ld a, $fd
ld b, $6
.asm_2859c
ld [de], a
inc de
dec b
jr nz, .asm_2859c
ld hl, PlayerName
ld bc, $000b
call CopyBytes
ld hl, PartyCount
ld bc, $0008
call CopyBytes
ld hl, PlayerID
ld bc, $0002
call CopyBytes
ld hl, PartyMon1Species
ld bc, $0120
call CopyBytes
ld hl, PartyMonOT
ld bc, $0042
call CopyBytes
ld hl, PartyMonNicknames
ld bc, $0042
call CopyBytes
ld a, [InLinkBattle]
cp $2
ret nz
ld de, wc9f4
ld a, $20
call Function28682
ld a, $0
call GetSRAMBank
ld hl, $a600
ld b, $6
.asm_285ef
push bc
ld bc, $0021
call CopyBytes
ld bc, $000e
add hl, bc
pop bc
dec b
jr nz, .asm_285ef
ld hl, $a600
ld b, $6
.asm_28603
push bc
ld bc, $0021
add hl, bc
ld bc, $000e
call CopyBytes
pop bc
dec b
jr nz, .asm_28603
ld b, $6
ld de, $a600
ld hl, wc9f9
.asm_2861a
push bc
push hl
push de
push hl
callba Function1de5c8
pop de
ld a, c
or a
jr z, .asm_2863f
sub $3
jr nc, .asm_28635
callba Function1df1e6
jr .asm_2863f
.asm_28635
cp $2
jr nc, .asm_2863f
callba Function1df220
.asm_2863f
pop de
ld hl, $002f
add hl, de
ld d, h
ld e, l
pop hl
ld bc, $0021
add hl, bc
pop bc
dec b
jr nz, .asm_2861a
call CloseSRAM
ld hl, wc9f9
ld bc, $00c6
.asm_28658
ld a, [hl]
cp $fe
jr nz, .asm_2865f
ld [hl], $21
.asm_2865f
inc hl
dec bc
ld a, b
or c
jr nz, .asm_28658
ld hl, wcabf
ld de, wcb13
ld b, $54
ld c, $0
.asm_2866f
inc c
ld a, [hl]
cp $fe
jr nz, .asm_2867a
ld [hl], $ff
ld a, c
ld [de], a
inc de
.asm_2867a
inc hl
dec b
jr nz, .asm_2866f
ld a, $ff
ld [de], a
ret
; 28682
Function28682: ; 28682
ld c, $5
.asm_28684
ld [de], a
inc de
dec c
jr nz, .asm_28684
ret
; 2868a
Function2868a: ; 2868a
push hl
ld d, h
ld e, l
ld bc, wcbea
ld hl, wcbe8
ld a, c
ld [hli], a
ld [hl], b
ld hl, OTPartyMon1Species
ld c, $6
.asm_2869b
push bc
call Function286ba
pop bc
dec c
jr nz, .asm_2869b
pop hl
ld bc, $0108
add hl, bc
ld de, OTPartyMonOT
ld bc, $0042
call CopyBytes
ld de, OTPartyMonNicknames
ld bc, $0042
jp CopyBytes
; 286ba
Function286ba: ; 286ba
ld b, h
ld c, l
ld a, [de]
inc de
push bc
push de
ld [wd265], a
callab ConvertMon_1to2
pop de
pop bc
ld a, [wd265]
ld [bc], a
ld [CurSpecies], a
ld hl, $0022
add hl, bc
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hl], a
inc de
ld hl, $0020
add hl, bc
ld a, [de]
inc de
ld [hl], a
ld hl, wcbe8
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [de]
ld [hli], a
inc de
ld a, [de]
ld [hli], a
inc de
ld a, l
ld [wcbe8], a
ld a, h
ld [wcbe9], a
push bc
ld hl, $0001
add hl, bc
push hl
ld h, d
ld l, e
pop de
push bc
ld a, [hli]
ld b, a
call Function28771
ld a, b
ld [de], a
inc de
pop bc
ld bc, $0019
call CopyBytes
pop bc
ld d, h
ld e, l
ld hl, $001f
add hl, bc
ld a, [de]
inc de
ld [hl], a
ld [CurPartyLevel], a
push bc
ld hl, $0024
add hl, bc
push hl
ld h, d
ld l, e
pop de
ld bc, $0008
call CopyBytes
pop bc
call GetBaseData
push de
push bc
ld d, h
ld e, l
ld hl, $000a
add hl, bc
ld c, $5
ld b, $1
predef Functione17b
pop bc
pop hl
ld a, [$ffb5]
ld [hli], a
ld a, [$ffb6]
ld [hli], a
push hl
push bc
ld hl, $000a
add hl, bc
ld c, $6
ld b, $1
predef Functione17b
pop bc
pop hl
ld a, [$ffb5]
ld [hli], a
ld a, [$ffb6]
ld [hli], a
push hl
ld hl, $001b
add hl, bc
ld a, $46
ld [hli], a
xor a
rept 2
ld [hli], a
endr
ld [hl], a
pop hl
rept 2
inc de
endr
ret
; 28771
Function28771: ; 28771
ld a, b
and a
ret z
push hl
ld hl, .TimeCapsuleAlt
.asm_28778
ld a, [hli]
and a
jr z, .asm_28783
cp b
jr z, .asm_28782
inc hl
jr .asm_28778
.asm_28782
ld b, [hl]
.asm_28783
pop hl
ret
.TimeCapsuleAlt ; 28785
; Pokémon traded from RBY do not have held items, so GSC usually interprets the
; catch rate as an item. However, if the catch rate appears in this table, the
; item associated with the table entry is used instead.
db ITEM_19, LEFTOVERS
db ITEM_2D, BITTER_BERRY
db ITEM_32, GOLD_BERRY
db ITEM_5A, BERRY
db ITEM_64, BERRY
db ITEM_78, BERRY
db ITEM_87, BERRY
db ITEM_BE, BERRY
db ITEM_C3, BERRY
db ITEM_DC, BERRY
db HM_08, BERRY
db $ff, BERRY
db $00
; 2879e
Function2879e: ; 2879e
.asm_2879e
ld a, [hli]
cp $fe
jr z, .asm_2879e
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .asm_2879e
ret
; 287ab
Function287ab: ; 287ab
ld a, [$ffcb]
cp $2
ret z
ld hl, EnemyMonSpecies
call Function287d8
ld de, LinkBattleRNs
ld c, $a
.asm_287bb
ld a, [hli]
cp $fe
jr z, .asm_287bb
cp $fd
jr z, .asm_287bb
ld [de], a
inc de
dec c
jr nz, .asm_287bb
ret
; 287ca
Function287ca: ; 287ca
.asm_287ca
ld a, [hli]
and a
jr z, .asm_287ca
cp $fd
jr z, .asm_287ca
cp $fe
jr z, .asm_287ca
dec hl
ret
; 287d8
Function287d8: ; 287d8
.asm_287d8
ld a, [hli]
cp $fd
jr z, .asm_287d8
cp $fe
jr z, .asm_287d8
dec hl
ret
; 287e3
Function287e3: ; 287e3
call ClearScreen
call Function28ef8
callba Function16d673
xor a
ld hl, wcf51
rept 3
ld [hli], a
endr
ld [hl], a
ld a, $1
ld [wcfa9], a
inc a
ld [wcf56], a
jp Function2888b
; 28803
Function28803: ; 28803
ld a, $1
ld [MonType], a
ld a, $c1
ld [wcfa8], a
ld a, [OTPartyCount]
ld [wcfa3], a
ld a, $1
ld [wcfa4], a
ld a, $9
ld [wcfa1], a
ld a, $6
ld [wcfa2], a
ld a, $1
ld [wcfaa], a
ld a, $10
ld [wcfa7], a
ld a, $20
ld [wcfa5], a
xor a
ld [wcfa6], a
Function28835: ; 28835
callba Function16d70c
ld a, d
and a
jp z, Function2891c
bit 0, a
jr z, .asm_2885b
ld a, $1
ld [wd263], a
callab Function50db9
ld hl, OTPartyMon1Species
callba Function4d319
jp Function2891c
.asm_2885b
bit 6, a
jr z, .asm_28883
ld a, [wcfa9]
ld b, a
ld a, [OTPartyCount]
cp b
jp nz, Function2891c
xor a
ld [MonType], a
call Function1bf7
push hl
push bc
ld bc, $000b
add hl, bc
ld [hl], $7f
pop bc
pop hl
ld a, [PartyCount]
ld [wcfa9], a
jr Function2888b
.asm_28883
bit 7, a
jp z, Function2891c
jp Function28ac9
; 2888b
Function2888b: ; 2888b
callba Function49856
xor a
ld [MonType], a
ld a, $c1
ld [wcfa8], a
ld a, [PartyCount]
ld [wcfa3], a
ld a, $1
ld [wcfa4], a
ld a, $1
ld [wcfa1], a
ld a, $6
ld [wcfa2], a
ld a, $1
ld [wcfaa], a
ld a, $10
ld [wcfa7], a
ld a, $20
ld [wcfa5], a
xor a
ld [wcfa6], a
call Function3200
Function288c5: ; 288c5
callba Function16d70c
ld a, d
and a
jr nz, .asm_288d2
jp Function2891c
.asm_288d2
bit 0, a
jr z, .asm_288d9
jp Function28926
.asm_288d9
bit 7, a
jr z, .asm_288fe
ld a, [wcfa9]
dec a
jp nz, Function2891c
ld a, $1
ld [MonType], a
call Function1bf7
push hl
push bc
ld bc, $000b
add hl, bc
ld [hl], $7f
pop bc
pop hl
ld a, $1
ld [wcfa9], a
jp Function28803
.asm_288fe
bit 6, a
jr z, Function2891c
ld a, [wcfa9]
ld b, a
ld a, [PartyCount]
cp b
jr nz, Function2891c
call Function1bf7
push hl
push bc
ld bc, $000b
add hl, bc
ld [hl], $7f
pop bc
pop hl
jp Function28ade
; 2891c
Function2891c: ; 2891c
ld a, [MonType]
and a
jp z, Function288c5
jp Function28835
; 28926
Function28926: ; 28926
call Function309d
ld a, [wcfa9]
push af
hlcoord 0, 15
ld b, $1
ld c, $12
call Function28eef
hlcoord 2, 16
ld de, String28ab4
call PlaceString
callba Function4d354
.asm_28946
ld a, $7f
ld [TileMap + 11 + 16 * SCREEN_WIDTH], a
ld a, $13
ld [wcfa8], a
ld a, $1
ld [wcfa3], a
ld a, $1
ld [wcfa4], a
ld a, $10
ld [wcfa1], a
ld a, $1
ld [wcfa2], a
ld a, $1
ld [wcfa9], a
ld [wcfaa], a
ld a, $20
ld [wcfa7], a
xor a
ld [wcfa5], a
ld [wcfa6], a
call Function1bd3
bit 4, a
jr nz, .asm_2898d
bit 1, a
jr z, .asm_289cd
.asm_28983
pop af
ld [wcfa9], a
call Function30b4
jp Function2888b
.asm_2898d
ld a, $7f
ld [TileMap + 1 + 16 * SCREEN_WIDTH], a
ld a, $23
ld [wcfa8], a
ld a, $1
ld [wcfa3], a
ld a, $1
ld [wcfa4], a
ld a, $10
ld [wcfa1], a
ld a, $b
ld [wcfa2], a
ld a, $1
ld [wcfa9], a
ld [wcfaa], a
ld a, $20
ld [wcfa7], a
xor a
ld [wcfa5], a
ld [wcfa6], a
call Function1bd3
bit 5, a
jp nz, .asm_28946
bit 1, a
jr nz, .asm_28983
jr .asm_289fe
.asm_289cd
pop af
ld [wcfa9], a
ld a, $4
ld [wd263], a
callab Function50db9
callba Function4d319
call Function30b4
hlcoord 6, 1
ld bc, $0601
ld a, $7f
call Function28b77
hlcoord 17, 1
ld bc, $0601
ld a, $7f
call Function28b77
jp Function2888b
.asm_289fe
call Function1bee
pop af
ld [wcfa9], a
dec a
ld [DefaultFlypoint], a
ld [wcf56], a
callba Function16d6ce
ld a, [wcf51]
cp $f
jp z, Function287e3
ld [wd003], a
call Function28b68
ld c, $64
call DelayFrames
callba Functionfb57e
jr c, .asm_28a58
callba Functionfb5dd
jp nc, Function28b87
xor a
ld [wcf57], a
ld [wcf52], a
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
callba Function4d354
ld hl, UnknownText_0x28aaf
bccoord 1, 14
call Function13e5
jr .asm_28a89
.asm_28a58
xor a
ld [wcf57], a
ld [wcf52], a
ld a, [wd003]
ld hl, OTPartySpecies
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
callba Function4d354
ld hl, UnknownText_0x28ac4
bccoord 1, 14
call Function13e5
.asm_28a89
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
hlcoord 1, 14
ld de, String28ece
call PlaceString
ld a, $1
ld [wcf56], a
callba Function16d6ce
ld c, $64
call DelayFrames
jp Function287e3
; 28aaf
UnknownText_0x28aaf: ; 0x28aaf
; If you trade that #MON, you won't be able to battle.
text_jump UnknownText_0x1c41b1
db "@"
; 0x28ab4
String28ab4: ; 28ab4
db "STATS TRADE@"
UnknownText_0x28ac4: ; 0x28ac4
; Your friend's @ appears to be abnormal!
text_jump UnknownText_0x1c41e6
db "@"
; 0x28ac9
Function28ac9: ; 28ac9
ld a, [wcfa9]
cp $1
jp nz, Function2891c
call Function1bf7
push hl
push bc
ld bc, $000b
add hl, bc
ld [hl], $7f
pop bc
pop hl
Function28ade: ; 28ade
.asm_28ade
ld a, $ed
ld [TileMap + 9 + 17 * SCREEN_WIDTH], a
.asm_28ae3
call Functiona57
ld a, [$ffa9]
and a
jr z, .asm_28ae3
bit 0, a
jr nz, .asm_28b0b
push af
ld a, $7f
ld [TileMap + 9 + 17 * SCREEN_WIDTH], a
pop af
bit 6, a
jr z, .asm_28b03
ld a, [OTPartyCount]
ld [wcfa9], a
jp Function28803
.asm_28b03
ld a, $1
ld [wcfa9], a
jp Function2888b
.asm_28b0b
ld a, $ec
ld [TileMap + 9 + 17 * SCREEN_WIDTH], a
ld a, $f
ld [wcf56], a
callba Function16d6ce
ld a, [wcf51]
cp $f
jr nz, .asm_28ade
Function28b22: ; 28b22
call FadeToWhite
call ClearScreen
ld b, $8
call GetSGBLayout
call Function3200
xor a
ld [wcfbb], a
xor a
ld [rSB], a
ld [hSerialSend], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
ret
; 28b42
Function28b42: ; 28b42
hlcoord 0, 16
ld a, $7e
ld bc, $0028
call ByteFill
hlcoord 1, 16
ld a, $7f
ld bc, SCREEN_HEIGHT
call ByteFill
hlcoord 2, 16
ld de, String_28b61
jp PlaceString
; 28b61
String_28b61: ; 28b61
db "CANCEL@"
; 28b68
Function28b68: ; 28b68
ld a, [wcf51]
hlcoord 6, 9
ld bc, SCREEN_WIDTH
call AddNTimes
ld [hl], $ec
ret
; 28b77
Function28b77: ; 28b77
.asm_28b77
push bc
push hl
.asm_28b79
ld [hli], a
dec c
jr nz, .asm_28b79
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .asm_28b77
ret
; 28b87
Function28b87: ; 28b87
xor a
ld [wcf57], a
ld [wcf52], a
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
callba Function4d354
ld a, [DefaultFlypoint]
ld hl, PartySpecies
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
ld de, wd004
ld bc, $000b
call CopyBytes
ld a, [wd003]
ld hl, OTPartySpecies
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0x28eb8
bccoord 1, 14
call Function13e5
call Function1d6e
hlcoord 10, 7
ld b, $3
ld c, $7
call Function28eef
ld de, String28eab
hlcoord 12, 8
call PlaceString
ld a, $8
ld [wcfa1], a
ld a, $b
ld [wcfa2], a
ld a, $1
ld [wcfa4], a
ld a, $2
ld [wcfa3], a
xor a
ld [wcfa5], a
ld [wcfa6], a
ld a, $20
ld [wcfa7], a
ld a, $3
ld [wcfa8], a
ld a, $1
ld [wcfa9], a
ld [wcfaa], a
callba Function4d354
call Function1bd3
push af
call Function1d7d
call Function3200
pop af
bit 1, a
jr nz, .asm_28c33
ld a, [wcfa9]
dec a
jr z, .asm_28c54
.asm_28c33
ld a, $1
ld [wcf56], a
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
hlcoord 1, 14
ld de, String28ece
call PlaceString
callba Function16d6ce
jp Function28ea3
.asm_28c54
ld a, $2
ld [wcf56], a
callba Function16d6ce
ld a, [wcf51]
dec a
jr nz, .asm_28c7b
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
hlcoord 1, 14
ld de, String28ece
call PlaceString
jp Function28ea3
.asm_28c7b
ld hl, $a600
ld a, [DefaultFlypoint]
ld bc, $002f
call AddNTimes
ld a, $0
call GetSRAMBank
ld d, h
ld e, l
ld bc, $002f
add hl, bc
ld a, [DefaultFlypoint]
ld c, a
.asm_28c96
inc c
ld a, c
cp $6
jr z, .asm_28ca6
push bc
ld bc, $002f
call CopyBytes
pop bc
jr .asm_28c96
.asm_28ca6
ld hl, $a600
ld a, [PartyCount]
dec a
ld bc, $002f
call AddNTimes
push hl
ld hl, wc9f4
ld a, [wd003]
ld bc, $002f
call AddNTimes
pop de
ld bc, $002f
call CopyBytes
call CloseSRAM
ld hl, PlayerName
ld de, wc6e7
ld bc, $000b
call CopyBytes
ld a, [DefaultFlypoint]
ld hl, PartySpecies
ld b, $0
ld c, a
add hl, bc
ld a, [hl]
ld [wc6d0], a
push af
ld a, [DefaultFlypoint]
ld hl, PartyMonOT
call SkipNames
ld de, wc6f2
ld bc, $000b
call CopyBytes
ld hl, PartyMon1ID
ld a, [DefaultFlypoint]
call GetPartyLocation
ld a, [hli]
ld [PlayerScreens], a
ld a, [hl]
ld [EnemyScreens], a
ld hl, PartyMon1DVs
ld a, [DefaultFlypoint]
call GetPartyLocation
ld a, [hli]
ld [wc6fd], a
ld a, [hl]
ld [wc6fe], a
ld a, [DefaultFlypoint]
ld hl, PartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
callba GetCaughtGender
ld a, c
ld [wc701], a
ld hl, wd26b
ld de, wc719
ld bc, $000b
call CopyBytes
ld a, [wd003]
ld hl, OTPartySpecies
ld b, $0
ld c, a
add hl, bc
ld a, [hl]
ld [wc702], a
ld a, [wd003]
ld hl, OTPartyMonOT
call SkipNames
ld de, wc724
ld bc, $000b
call CopyBytes
ld hl, OTPartyMon1ID
ld a, [wd003]
call GetPartyLocation
ld a, [hli]
ld [wc731], a
ld a, [hl]
ld [wc732], a
ld hl, OTPartyMon1DVs
ld a, [wd003]
call GetPartyLocation
ld a, [hli]
ld [wc72f], a
ld a, [hl]
ld [wc730], a
ld a, [wd003]
ld hl, OTPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
callba GetCaughtGender
ld a, c
ld [wc733], a
ld a, [DefaultFlypoint]
ld [CurPartyMon], a
ld hl, PartySpecies
ld b, $0
ld c, a
add hl, bc
ld a, [hl]
ld [DefaultFlypoint], a
xor a
ld [wd10b], a
callab Functione039
ld a, [PartyCount]
dec a
ld [CurPartyMon], a
ld a, $1
ld [wd1e9], a
ld a, [wd003]
push af
ld hl, OTPartySpecies
ld b, $0
ld c, a
add hl, bc
ld a, [hl]
ld [wd003], a
ld c, $64
call DelayFrames
call ClearTileMap
call Functione58
ld b, $8
call GetSGBLayout
ld a, [$ffcb]
cp $1
jr z, .asm_28de4
predef Function28f24
jr .asm_28de9
.asm_28de4
predef Function28f63
.asm_28de9
pop af
ld c, a
ld [CurPartyMon], a
ld hl, OTPartySpecies
ld d, $0
ld e, a
add hl, de
ld a, [hl]
ld [CurPartySpecies], a
ld hl, OTPartyMon1Species
ld a, c
call GetPartyLocation
ld de, TempMonSpecies
ld bc, PartyMon2 - PartyMon1
call CopyBytes
predef Functionda96
ld a, [PartyCount]
dec a
ld [CurPartyMon], a
callab Function421d8
call ClearScreen
call Function28ef8
call Function28eff
callba Function4d354
ld b, $1
pop af
ld c, a
cp MEW
jr z, .asm_28e49
ld a, [CurPartySpecies]
cp MEW
jr z, .asm_28e49
ld b, $2
ld a, c
cp CELEBI
jr z, .asm_28e49
ld a, [CurPartySpecies]
cp CELEBI
jr z, .asm_28e49
ld b, $0
.asm_28e49
ld a, b
ld [wcf56], a
push bc
call Function862
pop bc
ld a, [InLinkBattle]
cp $1
jr z, .asm_28e63
ld a, b
and a
jr z, .asm_28e63
ld a, [wcf52]
cp b
jr nz, .asm_28e49
.asm_28e63
callba Function14a58
callba Function1060af
callba Function106187
ld c, $28
call DelayFrames
hlcoord 0, 12
ld b, $4
ld c, $12
call Function28eef
hlcoord 1, 14
ld de, String28ebd
call PlaceString
callba Function4d354
ld c, $32
call DelayFrames
ld a, [InLinkBattle]
cp $1
jp z, Function2805d
jp Function28177
; 28ea3
Function28ea3: ; 28ea3
ld c, 100
call DelayFrames
jp Function287e3
; 28eab
String28eab: ; 28eab
db "TRADE"
next "CANCEL@"
UnknownText_0x28eb8: ; 0x28eb8
; Trade @ for @ ?
text_jump UnknownText_0x1c4212
db "@"
; 0x28ebd
String28ebd: ; 28ebd
db "Trade completed!@"
String28ece: ; 28ece
db "Too bad! The trade"
next "was canceled!@"
Function28eef: ; 28eef
ld d, h
ld e, l
callba Function16d6ca
ret
; 28ef8
Function28ef8: ; 28ef8
callba Function16d696
ret
; 28eff
Function28eff: ; 28eff
callba Function16d6a7
call Function32f9
ret
; 28f09
Function28f09: ; 28f09
hlcoord 0, 0
ld b, 6
ld c, 18
call Function28eef
hlcoord 0, 8
ld b, 6
ld c, 18
call Function28eef
callba Functionfb60d
ret
; 28f24
Function28f24: ; 28f24
xor a
ld [wcf66], a
ld hl, wc6e7
ld de, wc719
call Function297ff
ld hl, wc6d0
ld de, wc702
call Function29814
ld de, .data_28f3f
jr Function28fa1
.data_28f3f
db $1b
db $1
db $1c
db $21
db $2d
db $27
db $23
db $3
db $25
db $28
db $25
db $1e
db $29
db $6
db $16
db $1f
db $19
db $17
db $22
db $1f
db $2a
db $e
db $3
db $24
db $5
db $25
db $2
db $27
db $25
db $1d
db $2c
db $2e
db $1e
db $18
db $1f
db $2b
Function28f63: ; 28f63
xor a
ld [wcf66], a
ld hl, wc719
ld de, wc6e7
call Function297ff
ld hl, wc702
ld de, wc6d0
call Function29814
ld de, .data_28f7e
jr Function28fa1
.data_28f7e
db $1a
db $17
db $22
db $1f
db $2a
db $6
db $3
db $24
db $5
db $25
db $2
db $27
db $25
db $1d
db $2c
db $2f
db $1e
db $18
db $1f
db $1b
db $1
db $1c
db $22
db $27
db $23
db $3
db $25
db $28
db $25
db $1e
db $29
db $e
db $16
db $1f
db $2b
Function28fa1: ; 28fa1
ld hl, BattleEnded
ld [hl], e
inc hl
ld [hl], d
ld a, [$ffde]
push af
xor a
ld [$ffde], a
ld hl, VramState
ld a, [hl]
push af
res 0, [hl]
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function28fdb
ld a, [wcf66]
and a
jr nz, .asm_28fca
ld de, MUSIC_EVOLUTION
call PlayMusic2
.asm_28fca
call Function29082
jr nc, .asm_28fca
pop af
ld [Options], a
pop af
ld [VramState], a
pop af
ld [$ffde], a
ret
; 28fdb
Function28fdb: ; 28fdb
xor a
ld [wcf63], a
call WhiteBGMap
call ClearSprites
call ClearTileMap
call DisableLCD
call Functione58
callab Function8cf53
ld a, [hCGB]
and a
jr z, .asm_2900b
ld a, $1
ld [rVBK], a
ld hl, VTiles0
ld bc, $2000
xor a
call ByteFill
ld a, $0
ld [rVBK], a
.asm_2900b
ld hl, VBGMap0
ld bc, $0800
ld a, $7f
call ByteFill
ld hl, TradeGameBoyLZ
ld de, $9310
call Decompress
ld hl, TradeArrowGFX
ld de, $8ed0
ld bc, $0010
ld a, BANK(TradeArrowGFX)
call FarCopyBytes
ld hl, TradeArrowGFX + $10
ld de, $8ee0
ld bc, $0010
ld a, BANK(TradeArrowGFX)
call FarCopyBytes
xor a
ld [hSCX], a
ld [hSCY], a
ld a, $7
ld [hWX], a
ld a, $90
ld [hWY], a
callba Function4d7fd
call EnableLCD
call Function2982b
ld a, [wc6d0]
ld hl, wc6fd
ld de, VTiles0
call Function29491
ld a, [wc702]
ld hl, wc72f
ld de, $8310
call Function29491
ld a, [wc6d0]
ld de, wc6d1
call Function294a9
ld a, [wc702]
ld de, wc703
call Function294a9
call Function297ed
ret
; 29082
Function29082: ; 29082
ld a, [wcf63]
bit 7, a
jr nz, .asm_2909b
call Function290a0
callab Function8cf69
ld hl, wcf65
inc [hl]
call DelayFrame
and a
ret
.asm_2909b
call Functione51
scf
ret
; 290a0
Function290a0: ; 290a0
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, JumpTable290af
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 290af
JumpTable290af: ; 290af
dw Function29114
dw Function2942e
dw Function29461
dw Function29348
dw Function2937e
dw Function29391
dw Function29129
dw Function291af
dw Function291c4
dw Function291d9
dw Function2925d
dw Function29220
dw Function2925d
dw Function29229
dw Function2913c
dw Function2925d
dw Function291e8
dw Function291fd
dw Function29211
dw Function29220
dw Function2925d
dw Function29229
dw Function29701
dw Function2973c
dw Function2975c
dw Function2977f
dw Function297a4
dw Function293a6
dw Function293b6
dw Function293d2
dw Function293de
dw Function293ea
dw Function2940c
dw Function294e7
dw Function294f0
dw Function2961b
dw Function2962c
dw Function29879
dw Function29886
dw Function29649
dw Function29660
dw Function2926d
dw Function29277
dw Function29123
dw Function29487
dw Function294f9
dw Function29502
dw Function2950c
; 2910f
Function2910f: ; 2910f
ld hl, wcf63
inc [hl]
ret
; 29114
Function29114: ; 29114
ld hl, BattleEnded
ld e, [hl]
inc hl
ld d, [hl]
ld a, [de]
ld [wcf63], a
inc de
ld [hl], d
dec hl
ld [hl], e
ret
; 29123
Function29123: ; 29123
ld hl, wcf63
set 7, [hl]
ret
; 29129
Function29129: ; 29129
ld a, $ed
call Function292f6
ld a, [wc74c]
ld [wd265], a
xor a
ld de, $2c58
ld b, $0
jr Function2914e
Function2913c: ; 2913c
ld a, $ee
call Function292f6
ld a, [wc74d]
ld [wd265], a
ld a, $2
lb de, $4c, $94
ld b, $4
Function2914e: ; 2914e
push bc
push de
push bc
push de
push af
call DisableLCD
callab Function8cf53
ld hl, $9874
ld bc, $000c
ld a, $60
call ByteFill
pop af
call Function29281
xor a
ld [hSCX], a
ld a, $7
ld [hWX], a
ld a, $70
ld [hWY], a
call EnableLCD
call Function2985a
pop de
ld a, $11
call Function3b2a
ld hl, $000b
add hl, bc
pop bc
ld [hl], b
pop de
ld a, $12
call Function3b2a
ld hl, $000b
add hl, bc
pop bc
ld [hl], b
call WaitBGMap
ld b, $1b
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
ld a, $d0
call Functioncf8
call Function2910f
ld a, $5c
ld [wcf64], a
ret
; 291af
Function291af: ; 291af
call Function2981d
ld a, [hSCX]
add $2
ld [hSCX], a
cp $50
ret nz
ld a, $1
call Function29281
call Function2910f
ret
; 291c4
Function291c4: ; 291c4
call Function2981d
ld a, [hSCX]
add $2
ld [hSCX], a
cp $a0
ret nz
ld a, $2
call Function29281
call Function2910f
ret
; 291d9
Function291d9: ; 291d9
call Function2981d
ld a, [hSCX]
add $2
ld [hSCX], a
and a
ret nz
call Function2910f
ret
; 291e8
Function291e8: ; 291e8
call Function2981d
ld a, [hSCX]
sub $2
ld [hSCX], a
cp $b0
ret nz
ld a, $1
call Function29281
call Function2910f
ret
; 291fd
Function291fd: ; 291fd
call Function2981d
ld a, [hSCX]
sub $2
ld [hSCX], a
cp $60
ret nz
xor a
call Function29281
call Function2910f
ret
; 29211
Function29211: ; 29211
call Function2981d
ld a, [hSCX]
sub $2
ld [hSCX], a
and a
ret nz
call Function2910f
ret
; 29220
Function29220: ; 29220
ld a, $80
ld [wcf64], a
call Function2910f
ret
; 29229
Function29229: ; 29229
call WhiteBGMap
call ClearTileMap
call ClearSprites
call DisableLCD
callab Function8cf53
ld hl, VBGMap0
ld bc, $0800
ld a, $7f
call ByteFill
xor a
ld [hSCX], a
ld a, $90
ld [hWY], a
call EnableLCD
call Function2982b
call WaitBGMap
call Function297ed
call Function29114
ret
; 2925d
Function2925d: ; 2925d
call Function2981d
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_29269
dec [hl]
ret
.asm_29269
call Function2910f
ret
; 2926d
Function2926d: ; 2926d
call Function29114
ld de, SFX_GIVE_TRADEMON
call PlaySFX
ret
; 29277
Function29277: ; 29277
call Function29114
ld de, SFX_GET_TRADEMON
call PlaySFX
ret
; 29281
Function29281: ; 29281
and 3
ld e, a
ld d, 0
ld hl, Jumptable_2928f
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 2928f
Jumptable_2928f: ; 2928f
dw Function29297
dw Function292af
dw Function292be
dw Function29297
; 29297
Function29297: ; 29297
call Function297cf
hlcoord 9, 3
ld [hl], $5b
inc hl
ld bc, $000a
ld a, $60
call ByteFill
hlcoord 3, 2
call Function292ec
ret
; 292af
Function292af: ; 292af
call Function297cf
hlcoord 0, 3
ld bc, SCREEN_WIDTH
ld a, $60
call ByteFill
ret
; 292be
Function292be: ; 292be
call Function297cf
hlcoord 0, 3
ld bc, $0011
ld a, $60
call ByteFill
hlcoord 17, 3
ld a, $5d
ld [hl], a
ld a, $61
ld de, SCREEN_WIDTH
ld c, $3
.asm_292d9
add hl, de
ld [hl], a
dec c
jr nz, .asm_292d9
add hl, de
ld a, $5f
ld [hld], a
ld a, $5b
ld [hl], a
hlcoord 10, 6
call Function292ec
ret
; 292ec
Function292ec: ; 292ec
ld de, TradeGameBoyTilemap
lb bc, 8, 6
call Function297db
ret
; 292f6
Function292f6: ; 292f6
push af
call WhiteBGMap
call WaitTop
ld a, $9c
ld [$ffd7], a
call ClearTileMap
hlcoord 0, 0
ld bc, SCREEN_WIDTH
ld a, $7a
call ByteFill
hlcoord 0, 1
ld de, wc736
call PlaceString
ld hl, wc741
ld de, 0
.asm_2931e
ld a, [hli]
cp $50
jr z, .asm_29326
dec de
jr .asm_2931e
.asm_29326
hlcoord 0, 4
add hl, de
ld de, wc741
call PlaceString
hlcoord 7, 2
ld bc, $0006
pop af
call ByteFill
call WaitBGMap
call WaitTop
ld a, $98
ld [$ffd7], a
call ClearTileMap
ret
; 29348
Function29348: ; 29348
call ClearTileMap
call WaitTop
ld a, $a0
ld [hSCX], a
call DelayFrame
hlcoord 8, 2
ld de, Tilemap_298f7
lb bc, 3, 12
call Function297db
call WaitBGMap
ld b, $1b
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
ld de, $e4e4
call DmgToCgbObjPals
ld de, SFX_POTION
call PlaySFX
call Function2910f
ret
; 2937e
Function2937e: ; 2937e
ld a, [hSCX]
and a
jr z, .asm_29388
add $4
ld [hSCX], a
ret
.asm_29388
ld c, $50
call DelayFrames
call Function29114
ret
; 29391
Function29391: ; 29391
ld a, [hSCX]
cp $a0
jr z, .asm_2939c
sub $4
ld [hSCX], a
ret
.asm_2939c
call ClearTileMap
xor a
ld [hSCX], a
call Function29114
ret
; 293a6
Function293a6: ; 293a6
ld a, $8f
ld [hWX], a
ld a, $88
ld [hSCX], a
ld a, $50
ld [hWY], a
call Function29114
ret
; 293b6
Function293b6: ; 293b6
ld a, [hWX]
cp $7
jr z, .asm_293c7
sub $4
ld [hWX], a
ld a, [hSCX]
sub $4
ld [hSCX], a
ret
.asm_293c7
ld a, $7
ld [hWX], a
xor a
ld [hSCX], a
call Function29114
ret
; 293d2
Function293d2: ; 293d2
ld a, $7
ld [hWX], a
ld a, $50
ld [hWY], a
call Function29114
ret
; 293de
Function293de: ; 293de
ld a, $7
ld [hWX], a
ld a, $90
ld [hWY], a
call Function29114
ret
; 293ea
Function293ea: ; 293ea
call WaitTop
ld a, $9c
ld [$ffd7], a
call WaitBGMap
ld a, $7
ld [hWX], a
xor a
ld [hWY], a
call DelayFrame
call WaitTop
ld a, $98
ld [$ffd7], a
call ClearTileMap
call Function2910f
ret
; 2940c
Function2940c: ; 2940c
ld a, [hWX]
cp $a1
jr nc, .asm_29417
add $4
ld [hWX], a
ret
.asm_29417
ld a, $9c
ld [$ffd7], a
call WaitBGMap
ld a, $7
ld [hWX], a
ld a, $90
ld [hWY], a
ld a, $98
ld [$ffd7], a
call Function29114
ret
; 2942e
Function2942e: ; 2942e
call Function2951f
ld a, [wc6d0]
ld [CurPartySpecies], a
ld a, [wc6fd]
ld [TempMonDVs], a
ld a, [wc6fe]
ld [TempMonDVs + 1], a
ld b, $1a
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
call Function294bb
ld a, [wc6d0]
call GetCryIndex
jr c, .asm_2945d
ld e, c
ld d, b
call PlayCryHeader
.asm_2945d
call Function29114
ret
; 29461
Function29461: ; 29461
call Function29549
ld a, [wc702]
ld [CurPartySpecies], a
ld a, [wc72f]
ld [TempMonDVs], a
ld a, [wc730]
ld [TempMonDVs + 1], a
ld b, $1a
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
call Function294c0
call Function29114
ret
; 29487
Function29487: ; 29487
callba Function4d81e
call Function29114
ret
; 29491
Function29491: ; 29491
push de
push af
predef GetUnownLetter
pop af
ld [CurPartySpecies], a
ld [CurSpecies], a
call GetBaseData
pop de
predef GetFrontpic
ret
; 294a9
Function294a9: ; 294a9
push de
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
pop de
ld bc, $000b
call CopyBytes
ret
; 294bb
Function294bb: ; 294bb
ld de, VTiles0
jr Function294c3
Function294c0: ; 294c0
ld de, $8310
Function294c3: ; 294c3
call DelayFrame
ld hl, VTiles2
ld bc, $0a31
call Request2bpp
call WaitTop
call Function297cf
hlcoord 7, 2
xor a
ld [$ffad], a
lb bc, 7, 7
predef FillBox
call WaitBGMap
ret
; 294e7
Function294e7: ; 294e7
ld c, $50
call DelayFrames
call Function29114
ret
; 294f0
Function294f0: ; 294f0
ld c, $28
call DelayFrames
call Function29114
ret
; 294f9
Function294f9: ; 294f9
ld c, $60
call DelayFrames
call Function29114
ret
; 29502
Function29502: ; 29502
call Function29516
ret nz
ld c, $50
call DelayFrames
ret
; 2950c
Function2950c: ; 2950c
call Function29516
ret nz
ld c, $b4
call DelayFrames
ret
; 29516
Function29516: ; 29516
call Function29114
ld a, [wc702]
cp $fd
ret
; 2951f
Function2951f: ; 2951f
ld de, wc6d0
ld a, [de]
cp $fd
jr z, Function295a1
call Function29573
ld de, wc6d0
call Function295e3
ld de, wc6d1
call Function295ef
ld a, [wc701]
ld de, wc6f2
call Function295f6
ld de, PlayerScreens
call Function29611
call Function295d8
ret
; 29549
Function29549: ; 29549
ld de, wc702
ld a, [de]
cp $fd
jr z, Function295a1
call Function29573
ld de, wc702
call Function295e3
ld de, wc703
call Function295ef
ld a, [wc733]
ld de, wc724
call Function295f6
ld de, wc731
call Function29611
call Function295d8
ret
; 29573
Function29573: ; 29573
call WaitTop
call Function297cf
ld a, $9c
ld [$ffd7], a
hlcoord 3, 0
ld b, $6
ld c, $d
call TextBox
hlcoord 4, 0
ld de, String29591
call PlaceString
ret
; 29591
String29591: ; 29591
db "─── №.", $4e
db $4e
db "OT/", $4e
db $73, "№.@"
; 295a1
Function295a1: ; 295a1
call WaitTop
call Function297cf
ld a, $9c
ld [$ffd7], a
hlcoord 3, 0
ld b, $6
ld c, $d
call TextBox
hlcoord 4, 2
ld de, String295c2
call PlaceString
call Function295d8
ret
; 295c2
String295c2: ; 295c2
db "EGG", $4e
db "OT/?????", $4e
db $73, "№.?????@"
; 295d8
Function295d8: ; 295d8
call WaitBGMap
call WaitTop
ld a, $98
ld [$ffd7], a
ret
; 295e3
Function295e3: ; 295e3
hlcoord 10, 0
ld bc, $8103
call PrintNum
ld [hl], $7f
ret
; 295ef
Function295ef: ; 295ef
hlcoord 4, 2
call PlaceString
ret
; 295f6
Function295f6: ; 295f6
cp 3
jr c, .asm_295fb
xor a
.asm_295fb
push af
hlcoord 7, 4
call PlaceString
inc bc
pop af
ld hl, Unknown_2960e
ld d, 0
ld e, a
add hl, de
ld a, [hl]
ld [bc], a
ret
; 2960e
Unknown_2960e: ; 2960e
db " ", "♂", "♀"
; 29611
Function29611: ; 29611
hlcoord 7, 6
ld bc, $8205
call PrintNum
ret
; 2961b
Function2961b: ; 2961b
lb de, $54, $58
ld a, $e
call Function3b2a
call Function29114
ld a, $20
ld [wcf64], a
ret
; 2962c
Function2962c: ; 2962c
lb de, $54, $58
ld a, $e
call Function3b2a
ld hl, $000b
add hl, bc
ld [hl], $1
ld hl, $0007
add hl, bc
ld [hl], $dc
call Function29114
ld a, $38
ld [wcf64], a
ret
; 29649
Function29649: ; 29649
lb de, $54, $58
ld a, $f
call Function3b2a
call Function29114
ld a, $10
ld [wcf64], a
ld de, SFX_BALL_POOF
call PlaySFX
ret
; 29660
Function29660: ; 29660
ld a, $e4
call Functioncf8
lb de, $28, $58
ld a, $10
call Function3b2a
call Function29114
ld a, $40
ld [wcf64], a
ret
; 29676
Function29676: ; 29676 (a:5676)
ld hl, $b
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Jumptable_29686
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 29686
Jumptable_29686: ; 29686 (a:5686)
dw Function2969a
dw Function296a4
dw Function296af
dw Function296bd
dw Function296cf
dw Function296dd
dw Function296f2
; 2969a
Function29694: ; 29694 (a:5694)
ld hl, $b
add hl, bc
inc [hl]
ret
Function2969a: ; 2969a (a:569a)
call Function29694
ld hl, $c
add hl, bc
ld [hl], $80
ret
Function296a4: ; 296a4 (a:56a4)
ld hl, $c
add hl, bc
ld a, [hl]
dec [hl]
and a
ret nz
call Function29694
Function296af: ; 296af (a:56af)
ld hl, $4
add hl, bc
ld a, [hl]
cp $94
jr nc, .asm_296ba
inc [hl]
ret
.asm_296ba
call Function29694
Function296bd: ; 296bd (a:56bd)
ld hl, $5
add hl, bc
ld a, [hl]
cp $4c
jr nc, .asm_296c8
inc [hl]
ret
.asm_296c8
ld hl, $0
add hl, bc
ld [hl], $0
ret
Function296cf: ; 296cf (a:56cf)
ld hl, $5
add hl, bc
ld a, [hl]
cp $2c
jr z, .asm_296da
dec [hl]
ret
.asm_296da
call Function29694
Function296dd: ; 296dd (a:56dd)
ld hl, $4
add hl, bc
ld a, [hl]
cp $58
jr z, .asm_296e8
dec [hl]
ret
.asm_296e8
call Function29694
ld hl, $c
add hl, bc
ld [hl], $80
ret
Function296f2: ; 296f2 (a:56f2)
ld hl, $c
add hl, bc
ld a, [hl]
dec [hl]
and a
ret nz
ld hl, $0
add hl, bc
ld [hl], $0
ret
; 29701 (a:5701)
Function29701: ; 29701
ld a, [InLinkBattle]
cp $1
jr z, .asm_29725
ld hl, UnknownText_0x29737
call PrintText
ld c, $bd
call DelayFrames
ld hl, UnknownText_0x29732
call PrintText
call Function297c9
ld c, $80
call DelayFrames
call Function29114
ret
.asm_29725
ld hl, UnknownText_0x29732
call PrintText
call Function297c9
call Function29114
ret
; 29732
UnknownText_0x29732: ; 0x29732
; was sent to @ .
text_jump UnknownText_0x1bc6e9
db "@"
; 0x29737
UnknownText_0x29737: ; 0x29737
;
text_jump UnknownText_0x1bc701
db "@"
; 0x2973c
Function2973c: ; 2973c
ld hl, UnknownText_0x29752
call PrintText
call Function297c9
ld hl, UnknownText_0x29757
call PrintText
call Function297c9
call Function29114
ret
; 29752
UnknownText_0x29752: ; 0x29752
; bids farewell to
text_jump UnknownText_0x1bc703
db "@"
; 0x29757
UnknownText_0x29757: ; 0x29757
; .
text_jump UnknownText_0x1bc719
db "@"
; 0x2975c
Function2975c: ; 2975c
call WaitTop
hlcoord 0, 10
ld bc, $00a0
ld a, $7f
call ByteFill
call WaitBGMap
ld hl, UnknownText_0x2977a
call PrintText
call Function297c9
call Function29114
ret
; 2977a
UnknownText_0x2977a: ; 0x2977a
; Take good care of @ .
text_jump UnknownText_0x1bc71f
db "@"
; 0x2977f
Function2977f: ; 2977f
ld hl, UnknownText_0x2979a
call PrintText
call Function297c9
ld hl, UnknownText_0x2979f
call PrintText
call Function297c9
ld c, $e
call DelayFrames
call Function29114
ret
; 2979a
UnknownText_0x2979a: ; 0x2979a
; For @ 's @ ,
text_jump UnknownText_0x1bc739
db "@"
; 0x2979f
UnknownText_0x2979f: ; 0x2979f
; sends @ .
text_jump UnknownText_0x1bc74c
db "@"
; 0x297a4
Function297a4: ; 297a4
ld hl, UnknownText_0x297bf
call PrintText
call Function297c9
ld hl, UnknownText_0x297c4
call PrintText
call Function297c9
ld c, $e
call DelayFrames
call Function29114
ret
; 297bf
UnknownText_0x297bf: ; 0x297bf
; will trade @ @
text_jump UnknownText_0x1bc75e
db "@"
; 0x297c4
UnknownText_0x297c4: ; 0x297c4
; for @ 's @ .
text_jump UnknownText_0x1bc774
db "@"
; 0x297c9
Function297c9: ; 297c9
ld c, $50
call DelayFrames
ret
; 297cf
Function297cf: ; 297cf
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
ret
; 297db
Function297db: ; 297db
.asm_297db
push bc
push hl
.asm_297dd
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_297dd
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .asm_297db
ret
; 297ed
Function297ed: ; 297ed
ld a, [hSGB]
and a
ld a, $e4
jr z, .asm_297f6
ld a, $f0
.asm_297f6
call Functioncf8
ld a, $e4
call DmgToCgbBGPals
ret
; 297ff
Function297ff: ; 297ff
push de
ld de, wc736
ld bc, $000b
call CopyBytes
pop hl
ld de, wc741
ld bc, $000b
call CopyBytes
ret
; 29814
Function29814: ; 29814
ld a, [hl]
ld [wc74c], a
ld a, [de]
ld [wc74d], a
ret
; 2981d
Function2981d: ; 2981d
ld a, [wcf65]
and $7
ret nz
ld a, [rBGP]
xor $3c
call DmgToCgbBGPals
ret
; 2982b
Function2982b: ; 2982b
call DelayFrame
ld de, TradeBallGFX
ld hl, $8620
lb bc, BANK(TradeBallGFX), $6
call Request2bpp
ld de, TradePoofGFX
ld hl, $8680
lb bc, BANK(TradePoofGFX), $c
call Request2bpp
ld de, TradeCableGFX
ld hl, $8740
lb bc, BANK(TradeCableGFX), $4
call Request2bpp
xor a
ld hl, wc300
ld [hli], a
ld [hl], $62
ret
; 2985a
Function2985a: ; 2985a
call DelayFrame
ld e, $3
callab Function8e83f
ld de, TradeBubbleGFX
ld hl, $8720
lb bc, BANK(TradeBubbleGFX), $4
call Request2bpp
xor a
ld hl, wc300
ld [hli], a
ld [hl], $62
ret
; 29879
Function29879: ; 29879
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_29882
dec [hl]
ret
.asm_29882
call Function29114
ret
; 29886
Function29886: ; 29886
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_2988f
dec [hl]
ret
.asm_2988f
call Function29114
ret
; 29893
Function29893: ; 29893
; This function is unreferenced.
; It was meant for use in Japanese versions, so the
; constant used for copy length was changed by accident.
ld hl, Unknown_298b5
ld a, [hli]
ld [wc6d0], a
ld de, wc6e7
ld c, 13 ; jp: 8
.asm_2989f
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_2989f
ld a, [hli]
ld [wc702], a
ld de, wc719
ld c, 13 ; jp: 8
.asm_298ae
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_298ae
ret
; 298b5
Unknown_298b5: ; 298b5
db $03, "ゲーフり@@", $23, $01 ; GAME FREAK
db $06, "クりーチャ@", $56, $04 ; Creatures Inc.
; 298c7
TradeGameBoyTilemap: ; 298c7
; 6x8
db $31, $32, $32, $32, $32, $33
db $34, $35, $36, $36, $37, $38
db $34, $39, $3a, $3a, $3b, $38
db $3c, $3d, $3e, $3e, $3f, $40
db $41, $42, $43, $43, $44, $45
db $46, $47, $43, $48, $49, $4a
db $41, $43, $4b, $4c, $4d, $4e
db $4f, $50, $50, $50, $51, $52
; 297f7
Tilemap_298f7: ; 297f7
; 12x3
db $43, $55, $56, $53, $53, $53, $53, $53, $53, $53, $53, $53
db $43, $57, $58, $54, $54, $54, $54, $54, $54, $54, $54, $54
db $43, $59, $5a, $43, $43, $43, $43, $43, $43, $43, $43, $43
; 2991b
TradeArrowGFX: INCBIN "gfx/trade/arrow.2bpp"
TradeCableGFX: INCBIN "gfx/trade/cable.2bpp"
TradeBubbleGFX: INCBIN "gfx/trade/bubble.2bpp"
TradeGameBoyLZ: INCBIN "gfx/trade/game_boy.2bpp.lz"
TradeBallGFX: INCBIN "gfx/trade/ball.2bpp"
TradePoofGFX: INCBIN "gfx/trade/poof.2bpp"
Special_CheckTimeCapsuleCompatibility: ; 29bfb
; Checks to see if your Party is compatible with the generation 1 games. Returns the following in ScriptVar:
; 0: Party is okay
; 1: At least one Pokemon was introduced in GS
; 2: At least one Pokemon has a move that was introduced in GS
; 3: At least one Pokemon is holding mail
; If any party Pokemon was introduced in the generation 2 games, don't let it in.
ld hl, PartySpecies
ld b, PARTY_LENGTH ; 6
.loop
ld a, [hli]
cp $ff
jr z, .checkitem
cp CHIKORITA ; MEW + 1 ; 151 + 1
jr nc, .mon_too_new
dec b
jr nz, .loop
; If any party Pokemon is holding mail, don't let it in.
.checkitem
ld a, [PartyCount]
ld b, a
ld hl, PartyMon1Item
.itemloop
push hl
push bc
ld d, [hl]
callba ItemIsMail
pop bc
pop hl
jr c, .mon_has_mail
ld de, PartyMon2 - PartyMon1
add hl, de
dec b
jr nz, .itemloop
; If any party Pokemon has a move that was introduced in the generation 2 games, don't let it in.
ld hl, PartyMon1Moves
ld a, [PartyCount]
ld b, a
.move_loop
ld c, NUM_MOVES
.move_next
ld a, [hli]
cp STRUGGLE + 1
jr nc, .move_too_new
dec c
jr nz, .move_next
ld de, PartyMon2 - (PartyMon1 + NUM_MOVES)
add hl, de
dec b
jr nz, .move_loop
xor a
jr .done
.mon_too_new
ld [wd265], a
call GetPokemonName
ld a, $1
jr .done
.move_too_new
push bc
ld [wd265], a
call GetMoveName
call CopyName1
pop bc
call Function29c67
ld a, $2
jr .done
.mon_has_mail
call Function29c67
ld a, $3
.done
ld [ScriptVar], a
ret
; 29c67
Function29c67: ; 29c67
ld a, [PartyCount]
sub b
ld c, a
inc c
ld b, $0
ld hl, PartyCount
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ret
; 29c7b
Special_EnterTimeCapsule: ; 29c7b
ld c, $a
call DelayFrames
ld a, $4
call Function29f17
ld c, $28
call DelayFrames
xor a
ld [hVBlank], a
inc a
ld [InLinkBattle], a
ret
; 29c92
Special_AbortLink: ; 29c92
ld c, $3
call DelayFrames
ld a, $ff
ld [$ffcb], a
xor a
ld [rSB], a
ld [hSerialReceive], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
ld c, $3
call DelayFrames
xor a
ld [rSB], a
ld [hSerialReceive], a
ld a, $0
ld [rSC], a
ld a, $80
ld [rSC], a
ld c, $3
call DelayFrames
xor a
ld [rSB], a
ld [hSerialReceive], a
ld [rSC], a
ld c, $3
call DelayFrames
ld a, $ff
ld [$ffcb], a
ld a, [rIF]
push af
xor a
ld [rIF], a
ld a, $f
ld [rIE], a
pop af
ld [rIF], a
ld hl, wcf5b
xor a
ld [hli], a
ld [hl], a
ld [hVBlank], a
ld [InLinkBattle], a
ret
; 29ce8
Special_SetBitsForLinkTradeRequest: ; 29ce8
ld a, $1
ld [wcf56], a
ld [wd265], a
ret
; 29cf1
Special_SetBitsForBattleRequest: ; 29cf1
ld a, $2
ld [wcf56], a
ld [wd265], a
ret
; 29cfa
Special_SetBitsForTimeCapsuleRequest: ; 29cfa
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, $0
ld [rSC], a
ld a, $80
ld [rSC], a
xor a
ld [wcf56], a
ld [wd265], a
ret
; 29d11
Special_WaitForLinkedFriend: ; 29d11
ld a, [wcf56]
and a
jr z, .asm_29d2f
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, $0
ld [rSC], a
ld a, $80
ld [rSC], a
call DelayFrame
call DelayFrame
call DelayFrame
.asm_29d2f
ld a, $2
ld [wcf5c], a
ld a, $ff
ld [wcf5b], a
.asm_29d39
ld a, [$ffcb]
cp $2
jr z, .asm_29d79
cp $1
jr z, .asm_29d79
ld a, $ff
ld [$ffcb], a
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, $0
ld [rSC], a
ld a, $80
ld [rSC], a
ld a, [wcf5b]
dec a
ld [wcf5b], a
jr nz, .asm_29d68
ld a, [wcf5c]
dec a
ld [wcf5c], a
jr z, .asm_29d8d
.asm_29d68
ld a, $1
ld [rSB], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
call DelayFrame
jr .asm_29d39
.asm_29d79
call Function908
call DelayFrame
call Function908
ld c, $32
call DelayFrames
ld a, $1
ld [ScriptVar], a
ret
.asm_29d8d
xor a
ld [ScriptVar], a
ret
; 29d92
Special_CheckLinkTimeout: ; 29d92
ld a, $1
ld [wcf56], a
ld hl, wcf5b
ld a, $3
ld [hli], a
xor a
ld [hl], a
call WaitBGMap
ld a, $2
ld [hVBlank], a
call DelayFrame
call DelayFrame
call Function29e0c
xor a
ld [hVBlank], a
ld a, [ScriptVar]
and a
ret nz
jp Function29f04
; 29dba
Function29dba: ; 29dba
ld a, $5
ld [wcf56], a
ld hl, wcf5b
ld a, $3
ld [hli], a
xor a
ld [hl], a
call WaitBGMap
ld a, $2
ld [hVBlank], a
call DelayFrame
call DelayFrame
call Function29e0c
ld a, [ScriptVar]
and a
jr z, .asm_29e08
ld bc, rIE
.asm_29de0
dec bc
ld a, b
or c
jr nz, .asm_29de0
ld a, [wcf51]
cp $5
jr nz, .asm_29e03
ld a, $6
ld [wcf56], a
ld hl, wcf5b
ld a, $1
ld [hli], a
ld [hl], $32
call Function29e0c
ld a, [wcf51]
cp $6
jr z, .asm_29e08
.asm_29e03
xor a
ld [ScriptVar], a
ret
.asm_29e08
xor a
ld [hVBlank], a
ret
; 29e0c
Function29e0c: ; 29e0c
xor a
ld [$ffca], a
ld a, [wcf5b]
ld h, a
ld a, [wcf5c]
ld l, a
push hl
call Function29e3b
pop hl
jr nz, .asm_29e2f
call Function29e47
call Function29e53
call Function29e3b
jr nz, .asm_29e2f
call Function29e47
xor a
jr .asm_29e31
.asm_29e2f
ld a, $1
.asm_29e31
ld [ScriptVar], a
ld hl, wcf5b
xor a
ld [hli], a
ld [hl], a
ret
; 29e3b
Function29e3b: ; 29e3b
call Function87d
ld hl, wcf5b
ld a, [hli]
inc a
ret nz
ld a, [hl]
inc a
ret
; 29e47
Function29e47: ; 29e47
ld b, $a
.asm_29e49
call DelayFrame
call Function908
dec b
jr nz, .asm_29e49
ret
; 29e53
Function29e53: ; 29e53
dec h
srl h
rr l
srl h
rr l
inc h
ld a, h
ld [wcf5b], a
ld a, l
ld [wcf5c], a
ret
; 29e66
Special_TryQuickSave: ; 29e66
ld a, [wd265]
push af
callba Function14ab2
ld a, $1
jr nc, .asm_29e75
xor a
.asm_29e75
ld [ScriptVar], a
ld c, $1e
call DelayFrames
pop af
ld [wd265], a
ret
; 29e82
Special_CheckBothSelectedSameRoom: ; 29e82
ld a, [wd265]
call Function29f17
push af
call Function908
call DelayFrame
call Function908
pop af
ld b, a
ld a, [wd265]
cp b
jr nz, .asm_29eaa
ld a, [wd265]
inc a
ld [InLinkBattle], a
xor a
ld [hVBlank], a
ld a, $1
ld [ScriptVar], a
ret
.asm_29eaa
xor a
ld [ScriptVar], a
ret
; 29eaf
Special_TimeCapsule: ; 29eaf
ld a, $1
ld [InLinkBattle], a
call Function2ed3
callab Function28000
call Function2ee4
xor a
ld [hVBlank], a
ret
; 29ec4
Special_TradeCenter: ; 29ec4
ld a, $2
ld [InLinkBattle], a
call Function2ed3
callab Function28000
call Function2ee4
xor a
ld [hVBlank], a
ret
; 29ed9
Special_Colosseum: ; 29ed9
ld a, $3
ld [InLinkBattle], a
call Function2ed3
callab Function28000
call Function2ee4
xor a
ld [hVBlank], a
ret
; 29eee
Special_CloseLink: ; 29eee
xor a
ld [InLinkBattle], a
ld c, $3
call DelayFrames
jp Function29f04
; 29efa
Special_FailedLinkToPast: ; 29efa
ld c, $28
call DelayFrames
ld a, $e
jp Function29f17
; 29f04
Function29f04: ; 29f04
ld c, $3
call DelayFrames
ld a, $ff
ld [$ffcb], a
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld [rSC], a
ret
; 29f17
Function29f17: ; 29f17
add $d0
ld [wcf56], a
ld [wcf57], a
ld a, $2
ld [hVBlank], a
call DelayFrame
call DelayFrame
.asm_29f29
call Function83b
ld a, [wcf51]
ld b, a
and $f0
cp $d0
jr z, .asm_29f40
ld a, [wcf52]
ld b, a
and $f0
cp $d0
jr nz, .asm_29f29
.asm_29f40
xor a
ld [hVBlank], a
ld a, b
and $f
ret
; 29f47
Special_CableClubCheckWhichChris: ; 29f47
ld a, [$ffcb]
cp $1
ld a, $1
jr z, .yes
dec a
.yes
ld [ScriptVar], a
ret
; 29f54
GFX_29f54: ; 29f54
INCBIN "gfx/unknown/029f54.2bpp"
; 29fe4
Function29fe4: ; 29fe4
ld a, $0
call GetSRAMBank
ld d, $0
ld b, $2
predef FlagPredef
call CloseSRAM
ld a, c
and a
ret
; 29ff8
LoadWildMonData: ; 29ff8
call Function2a205
jr c, .asm_2a006
ld hl, wd25a
xor a
rept 2
ld [hli], a
endr
ld [hl], a
jr .asm_2a011
.asm_2a006
rept 2
inc hl
endr
ld de, wd25a
ld bc, $3
call CopyBytes
.asm_2a011
call Function2a21d
ld a, $0
jr nc, .asm_2a01b
rept 2
inc hl
endr
ld a, [hl]
.asm_2a01b
ld [wd25d], a
ret
Function2a01f: ; 2a01f
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
ld a, e
and a
jr nz, .asm_2a043
decoord 0, 0
ld hl, WildMons1
call Function2a052
ld hl, WildMons2
call Function2a06e
call Function2a0b7
call Function2a0cf
ret
.asm_2a043
decoord 0, 0
ld hl, WildMons3
call Function2a052
ld hl, WildMons4
jp Function2a06e
; 2a052
Function2a052: ; 2a052
.asm_2a052
ld a, [hl]
cp $ff
ret z
push hl
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
rept 3
inc hl
endr
ld a, $15
call Function2a088
jr nc, .asm_2a067
ld [de], a
inc de
.asm_2a067
pop hl
ld bc, $002f
add hl, bc
jr .asm_2a052
; 2a06e
Function2a06e: ; 2a06e
.asm_2a06e
ld a, [hl]
cp $ff
ret z
push hl
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
inc hl
ld a, $3
call Function2a088
jr nc, .asm_2a081
ld [de], a
inc de
.asm_2a081
pop hl
ld bc, $0009
add hl, bc
jr .asm_2a06e
; 2a088
Function2a088: ; 2a088
inc hl
.asm_2a089
push af
ld a, [wd265]
cp [hl]
jr z, .asm_2a098
rept 2
inc hl
endr
pop af
dec a
jr nz, .asm_2a089
and a
ret
.asm_2a098
pop af
jp Function2a09c
; 2a09c
Function2a09c: ; 2a09c
push de
call GetWorldMapLocation
ld c, a
hlcoord 0, 0
ld de, SCREEN_WIDTH * SCREEN_HEIGHT
.asm_2a0a7
ld a, [hli]
cp c
jr z, .asm_2a0b4
dec de
ld a, e
or d
jr nz, .asm_2a0a7
ld a, c
pop de
scf
ret
.asm_2a0b4
pop de
and a
ret
; 2a0b7
Function2a0b7: ; 2a0b7
ld a, [wRoamMon1Species]
ld b, a
ld a, [wd265]
cp b
ret nz
ld a, [wRoamMon1MapGroup]
ld b, a
ld a, [wRoamMon1MapNumber]
ld c, a
call Function2a09c
ret nc
ld [de], a
inc de
ret
; 2a0cf
Function2a0cf: ; 2a0cf
ld a, [wRoamMon2Species]
ld b, a
ld a, [wd265]
cp b
ret nz
ld a, [wRoamMon2MapGroup]
ld b, a
ld a, [wRoamMon2MapNumber]
ld c, a
call Function2a09c
ret nc
ld [de], a
inc de
ret
; 2a0e7
Function2a0e7:: ; 2a0e7
; Try to trigger a wild encounter.
call Function2a103
jr nc, .asm_2a0f8
call Function2a14f
jr nz, .asm_2a0f8
call Function2a1df
jr nc, .asm_2a0f8
xor a
ret
.asm_2a0f8
xor a ; BATTLETYPE_NORMAL
ld [wd22e], a
ld [BattleType], a
ld a, 1
and a
ret
; 2a103
Function2a103: ; 2a103
call Function2a111
call Function2a124
call Function2a138
call Random
cp b
ret
; 2a111
Function2a111: ; 2a111
ld hl, wd25a
call Function1852
ld a, 3
jr z, .asm_2a11e
ld a, [TimeOfDay]
.asm_2a11e
ld c, a
ld b, 0
add hl, bc
ld b, [hl]
ret
; 2a124
Function2a124:: ; 2a124
; Pokemon March and Ruins of Alph signal double encounter rate.
; Pokemon Lullaby halves encounter rate.
ld a, [wMapMusic]
cp MUSIC_POKEMON_MARCH
jr z, .asm_2a135
cp MUSIC_RUINS_OF_ALPH_RADIO
jr z, .asm_2a135
cp MUSIC_POKEMON_LULLABY
ret nz
srl b
ret
.asm_2a135
sla b
ret
; 2a138
Function2a138:: ; 2a138
; Cleanse Tag halves encounter rate.
ld hl, PartyMon1Item
ld de, PartyMon2 - PartyMon1
ld a, [PartyCount]
ld c, a
.loop
ld a, [hl]
cp CLEANSE_TAG
jr z, .asm_2a14c
add hl, de
dec c
jr nz, .loop
ret
.asm_2a14c
srl b
ret
; 2a14f
Function2a14f: ; 2a14f
call Function2a200
jp nc, .asm_2a1c1
call Function2a2ce
jp c, .asm_2a1c9
rept 3
inc hl
endr
call Function1852
ld de, Unknown_2a1d9
jr z, .asm_2a174
rept 2
inc hl
endr
ld a, [TimeOfDay]
ld bc, $e
call AddNTimes
ld de, Unknown_2a1cb
.asm_2a174
push hl
.asm_2a175
call Random
cp 100
jr nc, .asm_2a175
inc a
ld b, a
ld h, d
ld l, e
.asm_2a180
ld a, [hli]
cp b
jr nc, .asm_2a187
inc hl
jr .asm_2a180
.asm_2a187
ld c, [hl]
ld b, 0
pop hl
add hl, bc
ld a, [hli]
ld b, a
call Function1852
jr nz, .asm_2a1aa
call Random
cp 89
jr c, .asm_2a1aa
inc b
cp 165
jr c, .asm_2a1aa
inc b
cp 216
jr c, .asm_2a1aa
inc b
cp 242
jr c, .asm_2a1aa
inc b
.asm_2a1aa
ld a, b
ld [CurPartyLevel], a
ld b, [hl]
call Function2a4a0
jr c, .asm_2a1c1
ld a, b
cp UNOWN
jr nz, .asm_2a1bf
ld a, [UnlockedUnowns]
and a
jr z, .asm_2a1c1
.asm_2a1bf
jr .asm_2a1c5
.asm_2a1c1
ld a, 1
and a
ret
.asm_2a1c5
ld a, b
ld [wd22e], a
.asm_2a1c9
xor a
ret
; 2a1cb
Unknown_2a1cb: ; 2a1cb
db 30, $0
db 60, $2
db 80, $4
db 90, $6
db 95, $8
db 99, $a
db 100, $c
; 2a1d9
Unknown_2a1d9: ; 2a1d9
db 60, $0
db 90, $2
db 100, $4
; 2a1df
Function2a1df:: ; 2a1df
ld a, [wdca1]
and a
jr z, .asm_2a1fe
ld hl, PartyMon1HP
ld bc, PartyMon2 - PartyMon1 - 1
.asm_2a1eb
ld a, [hli]
or [hl]
jr nz, .asm_2a1f2
add hl, bc
jr .asm_2a1eb
.asm_2a1f2
; to PartyMonLevel
rept 4
dec hl
endr
ld a, [CurPartyLevel]
cp [hl]
jr nc, .asm_2a1fe
and a
ret
.asm_2a1fe
scf
ret
; 2a200
Function2a200: ; 2a200
call Function1852
jr z, Function2a21d
Function2a205: ; 2a205
ld hl, WildMons5
ld bc, $002f
call asm_2a23d
ret c
ld hl, WildMons1
ld de, WildMons3
call asm_2a235
ld bc, $002f
jr asm_2a27a
Function2a21d: ; 2a21d
ld hl, WildMons6
ld bc, $0009
call asm_2a23d
ret c
ld hl, WildMons2
ld de, WildMons4
call asm_2a235
ld bc, $0009
jr asm_2a27a
asm_2a235
call IsInJohto
and a
ret z
ld h, d
ld l, e
ret
asm_2a23d
call Function2a27f
push hl
ld hl, SwarmFlags
bit 2, [hl]
pop hl
jr z, .asm_2a25c
ld a, [wdfcc]
cp d
jr nz, .asm_2a25c
ld a, [wdfcd]
cp e
jr nz, .asm_2a25c
call Function2a288
jr nc, asm_2a278
scf
ret
.asm_2a25c
push hl
ld hl, SwarmFlags
bit 3, [hl]
pop hl
jr z, asm_2a278
ld a, [wdc5a]
cp d
jr nz, asm_2a278
ld a, [wdc5b]
cp e
jr nz, asm_2a278
call Function2a288
jr nc, asm_2a278
scf
ret
asm_2a278
and a
ret
asm_2a27a
call Function2a27f
jr Function2a288
; 2a27f
Function2a27f: ; 2a27f
ld a, [MapGroup]
ld d, a
ld a, [MapNumber]
ld e, a
ret
; 2a288
Function2a288: ; 2a288
push hl
ld a, [hl]
inc a
jr z, .asm_2a29a
ld a, d
cp [hl]
jr nz, .asm_2a296
inc hl
ld a, e
cp [hl]
jr z, .asm_2a29d
.asm_2a296
pop hl
add hl, bc
jr Function2a288
.asm_2a29a
pop hl
and a
ret
.asm_2a29d
pop hl
scf
ret
; 2a2a0
InitRoamMons: ; 2a2a0
; initialize wRoamMon structs
; species
ld a, RAIKOU
ld [wRoamMon1Species], a
ld a, ENTEI
ld [wRoamMon2Species], a
; ld a, SUICUNE
; ld [wRoamMon3Species], a
; level
ld a, 40
ld [wRoamMon1Level], a
ld [wRoamMon2Level], a
; ld [wRoamMon3Level], a
; raikou starting map
ld a, GROUP_ROUTE_42
ld [wRoamMon1MapGroup], a
ld a, MAP_ROUTE_42
ld [wRoamMon1MapNumber], a
; entei starting map
ld a, GROUP_ROUTE_37
ld [wRoamMon2MapGroup], a
ld a, MAP_ROUTE_37
ld [wRoamMon2MapNumber], a
; suicune starting map
; ld a, GROUP_ROUTE_38
; ld [wRoamMon3MapGroup], a
; ld a, MAP_ROUTE_38
; ld [wRoamMon3MapNumber], a
; hp
xor a ; generate new stats
ld [wRoamMon1HP], a
ld [wRoamMon2HP], a
; ld [wRoamMon3HP], a
ret
; 2a2ce
Function2a2ce: ; 2a2ce
push hl
call Function1852
jr z, .asm_2a30a
call Function2a27f
call Random
cp 100
jr nc, .asm_2a30a
and 3
jr z, .asm_2a30a
dec a
ld hl, wRoamMon1MapGroup
ld c, a
ld b, 0
ld a, 7
call AddNTimes
ld a, d
cp [hl]
jr nz, .asm_2a30a
inc hl
ld a, e
cp [hl]
jr nz, .asm_2a30a
rept 3
dec hl
endr
ld a, [hli]
ld [wd22e], a
ld a, [hl]
ld [CurPartyLevel], a
ld a, BATTLETYPE_ROAMING
ld [BattleType], a
pop hl
scf
ret
.asm_2a30a
pop hl
and a
ret
; 2a30d
UpdateRoamMons: ; 2a30d
ld a, [wRoamMon1MapGroup]
cp $ff
jr z, .asm_2a324
ld b, a
ld a, [wRoamMon1MapNumber]
ld c, a
call Function2a355
ld a, b
ld [wRoamMon1MapGroup], a
ld a, c
ld [wRoamMon1MapNumber], a
.asm_2a324
ld a, [wRoamMon2MapGroup]
cp $ff
jr z, .asm_2a33b
ld b, a
ld a, [wRoamMon2MapNumber]
ld c, a
call Function2a355
ld a, b
ld [wRoamMon2MapGroup], a
ld a, c
ld [wRoamMon2MapNumber], a
.asm_2a33b
ld a, [wRoamMon3MapGroup]
cp $ff
jr z, .asm_2a352
ld b, a
ld a, [wRoamMon3MapNumber]
ld c, a
call Function2a355
ld a, b
ld [wRoamMon3MapGroup], a
ld a, c
ld [wRoamMon3MapNumber], a
.asm_2a352
jp Function2a3f6
; 2a355
Function2a355: ; 2a355
ld hl, RoamMaps
.asm_2a358
ld a, [hl]
cp $ff
ret z
ld a, b
cp [hl]
jr nz, .asm_2a365
inc hl
ld a, c
cp [hl]
jr z, .asm_2a36b
.asm_2a365
ld a, [hli]
and a
jr nz, .asm_2a365
jr .asm_2a358
.asm_2a36b
inc hl
ld d, h
ld e, l
.asm_2a36e
ld h, d
ld l, e
call Random
and $1f
jr z, Function2a3cd
and 3
cp [hl]
jr nc, .asm_2a36e
inc hl
ld c, a
ld b, $0
rept 2
add hl, bc
endr
ld a, [wdfe7]
cp [hl]
jr nz, .asm_2a390
inc hl
ld a, [wdfe6]
cp [hl]
jr z, .asm_2a36e
dec hl
.asm_2a390
ld a, [hli]
ld b, a
ld c, [hl]
ret
RestoreRoamMons: ; 2a394
ld a, [wRoamMon1MapGroup]
cp $ff
jr z, .asm_2a3a6
call Function2a3cd
ld a, b
ld [wRoamMon1MapGroup], a
ld a, c
ld [wRoamMon1MapNumber], a
.asm_2a3a6
ld a, [wRoamMon2MapGroup]
cp $ff
jr z, .asm_2a3b8
call Function2a3cd
ld a, b
ld [wRoamMon2MapGroup], a
ld a, c
ld [wRoamMon2MapNumber], a
.asm_2a3b8
ld a, [wRoamMon3MapGroup]
cp $ff
jr z, .asm_2a3ca
call Function2a3cd
ld a, b
ld [wRoamMon3MapGroup], a
ld a, c
ld [wRoamMon3MapNumber], a
.asm_2a3ca
jp Function2a3f6
Function2a3cd: ; 2a3cd
.asm_2a3cd
ld hl, RoamMaps
.asm_2a3d0
call Random
and $f
cp $10
jr nc, .asm_2a3d0
inc a
ld b, a
.asm_2a3db
dec b
jr z, .asm_2a3e4
.asm_2a3de
ld a, [hli]
and a
jr nz, .asm_2a3de
jr .asm_2a3db
.asm_2a3e4
ld a, [MapGroup]
cp [hl]
jr nz, .asm_2a3f2
inc hl
ld a, [MapNumber]
cp [hl]
jr z, .asm_2a3cd
dec hl
.asm_2a3f2
ld a, [hli]
ld b, a
ld c, [hl]
ret
; 2a3f6
Function2a3f6: ; 2a3f6
ld a, [wdfe4]
ld [wdfe6], a
ld a, [wdfe5]
ld [wdfe7], a
ld a, [MapNumber]
ld [wdfe4], a
ld a, [MapGroup]
ld [wdfe5], a
ret
; 2a40f
RoamMaps: ; 2a40f
; Maps that roaming monsters can be on,
; and possible maps they can jump to.
; Notably missing are Route 40 and
; Route 41, which are water routes.
roam_map ROUTE_29, 2, ROUTE_30, ROUTE_46
roam_map ROUTE_30, 2, ROUTE_29, ROUTE_31
roam_map ROUTE_31, 3, ROUTE_30, ROUTE_32, ROUTE_36
roam_map ROUTE_32, 3, ROUTE_36, ROUTE_31, ROUTE_33
roam_map ROUTE_33, 2, ROUTE_32, ROUTE_34
roam_map ROUTE_34, 2, ROUTE_33, ROUTE_35
roam_map ROUTE_35, 2, ROUTE_34, ROUTE_36
roam_map ROUTE_36, 4, ROUTE_35, ROUTE_31, ROUTE_32, ROUTE_37
roam_map ROUTE_37, 3, ROUTE_36, ROUTE_38, ROUTE_42
roam_map ROUTE_38, 3, ROUTE_37, ROUTE_39, ROUTE_42
roam_map ROUTE_39, 1, ROUTE_38
roam_map ROUTE_42, 4, ROUTE_43, ROUTE_44, ROUTE_37, ROUTE_38
roam_map ROUTE_43, 2, ROUTE_42, ROUTE_44
roam_map ROUTE_44, 3, ROUTE_42, ROUTE_43, ROUTE_45
roam_map ROUTE_45, 2, ROUTE_44, ROUTE_46
roam_map ROUTE_46, 2, ROUTE_45, ROUTE_29
db $ff
; 2a4a0
Function2a4a0: ; 2a4a0
and a
jr z, .asm_2a4a9
cp $fc
jr nc, .asm_2a4a9
and a
ret
.asm_2a4a9
scf
ret
; 2a4ab
Function2a4ab: ; 2a4ab
callba Function90439
ld d, b
ld e, c
ld hl, WildMons1
ld bc, $002f
call Function2a288
jr c, .asm_2a4c6
ld hl, WildMons3
call Function2a288
jr nc, .asm_2a514
.asm_2a4c6
push hl
ld bc, $000d
add hl, bc
ld a, [TimeOfDay]
ld bc, $000e
call AddNTimes
.asm_2a4d4
call Random
and $3
jr z, .asm_2a4d4
dec a
ld c, a
ld b, $0
rept 2
add hl, bc
endr
inc hl
ld c, [hl]
pop hl
ld de, $0005
add hl, de
inc hl
ld b, $4
.asm_2a4eb
ld a, [hli]
cp c
jr z, .asm_2a514
inc hl
dec b
jr nz, .asm_2a4eb
push bc
dec c
ld a, c
call CheckSeenMon
pop bc
jr nz, .asm_2a514
ld de, StringBuffer1
call CopyName1
ld a, c
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0x2a51a
call PrintText
xor a
ld [ScriptVar], a
ret
.asm_2a514
ld a, $1
ld [ScriptVar], a
ret
; 2a51a
UnknownText_0x2a51a: ; 0x2a51a
; I just saw some rare @ in @ . I'll call you if I see another rare #MON, OK?
text_jump UnknownText_0x1bd34b
db "@"
; 0x2a51f
Function2a51f: ; 2a51f
callba Function90439
ld d, b
ld e, c
ld hl, WildMons1
ld bc, $002f
call Function2a288
jr c, .asm_2a538
ld hl, WildMons3
call Function2a288
.asm_2a538
ld bc, $0005
add hl, bc
ld a, [TimeOfDay]
inc a
ld bc, $000e
.asm_2a543
dec a
jr z, .asm_2a549
add hl, bc
jr .asm_2a543
.asm_2a549
call Random
and $3
ld c, a
ld b, $0
rept 2
add hl, bc
endr
inc hl
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
ld de, StringBuffer4
ld bc, $000b
jp CopyBytes
; 2a567
RandomPhoneMon: ; 2a567
; Get a random monster owned by the trainer who's calling.
callba Function90439
ld hl, TrainerGroups
ld a, d
dec a
ld c, a
ld b, 0
rept 2
add hl, bc
endr
ld a, BANK(TrainerGroups)
call GetFarHalfword
.skip_trainer
dec e
jr z, .skipped
.skip
ld a, BANK(Trainers)
call GetFarByte
inc hl
cp -1
jr nz, .skip
jr .skip_trainer
.skipped
.skip_name
ld a, BANK(Trainers)
call GetFarByte
inc hl
cp "@"
jr nz, .skip_name
ld a, BANK(Trainers)
call GetFarByte
inc hl
ld bc, 2
cp 0
jr z, .got_mon_length
ld bc, 2 + NUM_MOVES
cp 1
jr z, .got_mon_length
ld bc, 2 + 1
cp 2
jr z, .got_mon_length
ld bc, 2 + 1 + NUM_MOVES
.got_mon_length
ld e, 0
push hl
.count_mon
inc e
add hl, bc
ld a, BANK(Trainers)
call GetFarByte
cp -1
jr nz, .count_mon
pop hl
.rand
call Random
and 7
cp e
jr nc, .rand
inc a
.get_mon
dec a
jr z, .got_mon
add hl, bc
jr .get_mon
.got_mon
inc hl ; species
ld a, BANK(Trainers)
call GetFarByte
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
ld de, StringBuffer4
ld bc, PKMN_NAME_LENGTH
jp CopyBytes
; 2a5e9
WildMons1: ; 0x2a5e9
INCLUDE "data/wild/johto_grass.asm"
WildMons2: ; 0x2b11d
INCLUDE "data/wild/johto_water.asm"
WildMons3: ; 0x2b274
INCLUDE "data/wild/kanto_grass.asm"
WildMons4: ; 0x2b7f7
INCLUDE "data/wild/kanto_water.asm"
WildMons5: ; 0x2b8d0
INCLUDE "data/wild/swarm_grass.asm"
WildMons6: ; 0x2b92f
INCLUDE "data/wild/swarm_water.asm"
Function2b930: ; 2b930
callba UpdateEnemyMonInParty
ld hl, PartyMon1HP
call Function2b995
push bc
ld hl, OTPartyMon1HP
call Function2b995
ld a, c
pop bc
cp c
jr z, .asm_2b94c
jr c, .asm_2b97f
jr .asm_2b976
.asm_2b94c
call Function2b9e1
jr z, .asm_2b98a
ld a, e
cp $1
jr z, .asm_2b976
cp $2
jr z, .asm_2b97f
ld hl, PartyMon1HP
call Function2b9a6
push de
ld hl, OTPartyMon1HP
call Function2b9a6
pop hl
ld a, d
cp h
jr c, .asm_2b976
jr z, .asm_2b970
jr .asm_2b97f
.asm_2b970
ld a, e
cp l
jr z, .asm_2b98a
jr nc, .asm_2b97f
.asm_2b976
ld a, [wd0ee]
and $f0
ld [wd0ee], a
ret
.asm_2b97f
ld a, [wd0ee]
and $f0
add $1
ld [wd0ee], a
ret
.asm_2b98a
ld a, [wd0ee]
and $f0
add $2
ld [wd0ee], a
ret
; 2b995
Function2b995: ; 2b995
ld c, $0
ld b, $3
ld de, $002f
.asm_2b99c
ld a, [hli]
or [hl]
jr nz, .asm_2b9a1
inc c
.asm_2b9a1
add hl, de
dec b
jr nz, .asm_2b99c
ret
; 2b9a6
Function2b9a6: ; 2b9a6
ld de, $0000
ld c, $3
.asm_2b9ab
ld a, [hli]
or [hl]
jr z, .asm_2b9d7
dec hl
xor a
ld [hProduct], a
ld a, [hli]
ld [hMultiplicand], a
ld a, [hli]
ld [$ffb5], a
xor a
ld [$ffb6], a
ld a, [hli]
ld b, a
ld a, [hld]
srl b
rr a
srl b
rr a
ld [hMultiplier], a
ld b, $4
call Divide
ld a, [$ffb6]
add e
ld e, a
ld a, [$ffb5]
adc d
ld d, a
dec hl
.asm_2b9d7
push de
ld de, $002f
add hl, de
pop de
dec c
jr nz, .asm_2b9ab
ret
; 2b9e1
Function2b9e1: ; 2b9e1
ld hl, PartyMon1HP
call Function2ba01
jr nz, .asm_2b9f2
ld hl, OTPartyMon1HP
call Function2ba01
ld e, $1
ret
.asm_2b9f2
ld hl, OTPartyMon1HP
call Function2ba01
ld e, $0
ret nz
ld e, $2
ld a, $1
and a
ret
; 2ba01
Function2ba01: ; 2ba01
ld d, $3
.asm_2ba03
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
or b
jr z, .asm_2ba10
ld a, [hli]
cp b
ret nz
ld a, [hld]
cp c
ret nz
.asm_2ba10
push de
ld de, $002e
add hl, de
pop de
dec d
jr nz, .asm_2ba03
ret
; 2ba1a
ChrisBackpic: ; 2ba1a
INCBIN "gfx/misc/player.6x6.2bpp.lz"
; 2bbaa
DudeBackpic: ; 2bbaa
INCBIN "gfx/misc/dude.6x6.2bpp.lz"
; 2bcea
SECTION "bankB", ROMX, BANK[$B]
Function2c000: ; 2c000
ld a, $e4
ld [rOBP0], a
call Function2c165
call Function2c01c
ld a, [IsInBattle]
dec a
ret z
jp Function2c03a
; 2c012
Function2c012: ; 2c012
ld a, $e4
ld [rOBP0], a
call Function2c165
jp Function2c03a
; 2c01c
Function2c01c: ; 2c01c
call Function2c0ad
ld hl, PartyMon1HP
ld de, PartyCount
call Function2c059
ld a, $60
ld hl, wcfc4
ld [hli], a
ld [hl], a
ld a, $8
ld [wd003], a
ld hl, Sprites
jp Function2c143
; 2c03a
Function2c03a: ; 2c03a
call Function2c0c5
ld hl, OTPartyMon1HP
ld de, OTPartyCount
call Function2c059
ld hl, wcfc4
ld a, $48
ld [hli], a
ld [hl], $20
ld a, $f8
ld [wd003], a
ld hl, Sprites + $18
jp Function2c143
; 2c059
Function2c059: ; 2c059
ld a, [de]
push af
ld de, Buffer1
ld c, $6
ld a, $34
.asm_2c062
ld [de], a
inc de
dec c
jr nz, .asm_2c062
pop af
ld de, Buffer1
.asm_2c06b
push af
call Function2c075
inc de
pop af
dec a
jr nz, .asm_2c06b
ret
; 2c075
Function2c075: ; 2c075
ld a, [hli]
and a
jr nz, .asm_2c07f
ld a, [hl]
and a
ld b, $33
jr z, .asm_2c08b
.asm_2c07f
rept 3
dec hl
endr
ld a, [hl]
and a
ld b, $32
jr nz, .asm_2c08e
dec b
jr .asm_2c08e
.asm_2c08b
rept 3
dec hl
endr
.asm_2c08e
ld a, b
ld [de], a
ld bc, $0032
add hl, bc
ret
; 2c095
DrawPlayerExpBar: ; 2c095
ld hl, .data_2c0a9
ld de, wd004
ld bc, 4
call CopyBytes
hlcoord 18, 10
ld de, -1
jr Function2c0f1
.data_2c0a9
db $73
db $77
db $6f
db $76
; 2c0ad
Function2c0ad: ; 2c0ad
ld hl, .data_2c0c1
ld de, wd004
ld bc, 4
call CopyBytes
hlcoord 18, 10
ld de, -1
jr Function2c0f1
.data_2c0c1
db $73, $5c, $6f, $76
; 2c0c5
Function2c0c5: ; 2c0c5
ld hl, .data_2c0ed
ld de, wd004
ld bc, 4
call CopyBytes
hlcoord 1, 2
ld de, 1
call Function2c0f1
ld a, [IsInBattle]
dec a
ret nz
ld a, [TempEnemyMonSpecies]
dec a
call CheckCaughtMon
ret z
hlcoord 1, 1
ld [hl], $5d
ret
.data_2c0ed
db $6d
db $74
db $78
db $76
; 2c0f1
Function2c0f1: ; 2c0f1
ld a, [wd004]
ld [hl], a
ld bc, SCREEN_WIDTH
add hl, bc
ld a, [StartFlypoint]
ld [hl], a
ld b, $8
.asm_2c0ff
add hl, de
ld a, [MovementBuffer]
ld [hl], a
dec b
jr nz, .asm_2c0ff
add hl, de
ld a, [EndFlypoint]
ld [hl], a
ret
; 2c10d
Function2c10d: ; 2c10d
call Function2c165
ld hl, PartyMon1HP
ld de, PartyCount
call Function2c059
ld hl, wcfc4
ld a, $50
ld [hli], a
ld [hl], $40
ld a, $8
ld [wd003], a
ld hl, Sprites
call Function2c143
ld hl, OTPartyMon1HP
ld de, OTPartyCount
call Function2c059
ld hl, wcfc4
ld a, $50
ld [hli], a
ld [hl], $68
ld hl, Sprites + $18
jp Function2c143
; 2c143
Function2c143: ; 2c143
ld de, Buffer1
ld c, $6
.asm_2c148
ld a, [wcfc5]
ld [hli], a
ld a, [wcfc4]
ld [hli], a
ld a, [de]
ld [hli], a
ld a, $3
ld [hli], a
ld a, [wcfc4]
ld b, a
ld a, [wd003]
add b
ld [wcfc4], a
inc de
dec c
jr nz, .asm_2c148
ret
; 2c165
Function2c165: ; 2c165
ld de, GFX_2c172
ld hl, $8310
lb bc, BANK(GFX_2c172), 4
call Functiondc9
ret
; 2c172
GFX_2c172: ; 2c172
INCBIN "gfx/battle/balls.2bpp"
; 2c1b2
Function2c1b2: ; 2c1b2
call WhiteBGMap
call Functione5f
hlcoord 2, 3
ld b, $9
ld c, $e
call TextBox
hlcoord 4, 5
ld de, PlayerName
call PlaceString
hlcoord 4, 10
ld de, wd26b
call PlaceString
hlcoord 9, 8
ld a, $69
ld [hli], a
ld [hl], $6a
callba Function2c10d
ld b, $8
call GetSGBLayout
call Function32f9
ld a, $e4
ld [rOBP0], a
ret
; 2c1ef
TrainerClassNames:: ; 2c1ef
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "RIVAL@"
db "#MON PROF.@"
db "ELITE FOUR@"
db "<PKMN> TRAINER@"
db "ELITE FOUR@"
db "ELITE FOUR@"
db "ELITE FOUR@"
db "CHAMPION@"
db "LEADER@"
db "LEADER@"
db "LEADER@"
db "SCIENTIST@"
db "LEADER@"
db "YOUNGSTER@"
db "SCHOOLBOY@"
db "BIRD KEEPER@"
db "LASS@"
db "LEADER@"
db "COOLTRAINER@"
db "COOLTRAINER@"
db "BEAUTY@"
db "#MANIAC@"
db "ROCKET@"
db "GENTLEMAN@"
db "SKIER@"
db "TEACHER@"
db "LEADER@"
db "BUG CATCHER@"
db "FISHER@"
db "SWIMMER♂@"
db "SWIMMER♀@"
db "SAILOR@"
db "SUPER NERD@"
db "RIVAL@"
db "GUITARIST@"
db "HIKER@"
db "BIKER@"
db "LEADER@"
db "BURGLAR@"
db "FIREBREATHER@"
db "JUGGLER@"
db "BLACKBELT@"
db "ROCKET@"
db "PSYCHIC@"
db "PICNICKER@"
db "CAMPER@"
db "ROCKET@"
db "SAGE@"
db "MEDIUM@"
db "BOARDER@"
db "#FAN@"
db "KIMONO GIRL@"
db "TWINS@"
db "#FAN@"
db "<PKMN> TRAINER@"
db "LEADER@"
db "OFFICER@"
db "ROCKET@"
db "MYSTICALMAN@"
AI_Redundant: ; 2c41a
; Check if move effect c will fail because it's already been used.
; Return z if the move is a good choice.
; Return nz if the move is a bad choice.
ld a, c
ld de, 3
ld hl, .Moves
call IsInArray
jp nc, .NotRedundant
inc hl
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
.Moves: ; 2c42c
dbw EFFECT_DREAM_EATER, .DreamEater
dbw EFFECT_HEAL, .Heal
dbw EFFECT_LIGHT_SCREEN, .LightScreen
dbw EFFECT_MIST, .Mist
dbw EFFECT_FOCUS_ENERGY, .FocusEnergy
dbw EFFECT_CONFUSE, .Confuse
dbw EFFECT_TRANSFORM, .Transform
dbw EFFECT_REFLECT, .Reflect
dbw EFFECT_SUBSTITUTE, .Substitute
dbw EFFECT_LEECH_SEED, .LeechSeed
dbw EFFECT_DISABLE, .Disable
dbw EFFECT_ENCORE, .Encore
dbw EFFECT_SNORE, .Snore
dbw EFFECT_SLEEP_TALK, .SleepTalk
dbw EFFECT_MEAN_LOOK, .MeanLook
dbw EFFECT_NIGHTMARE, .Nightmare
dbw EFFECT_SPIKES, .Spikes
dbw EFFECT_FORESIGHT, .Foresight
dbw EFFECT_PERISH_SONG, .PerishSong
dbw EFFECT_SANDSTORM, .Sandstorm
dbw EFFECT_ATTRACT, .Attract
dbw EFFECT_SAFEGUARD, .Safeguard
dbw EFFECT_RAIN_DANCE, .RainDance
dbw EFFECT_SUNNY_DAY, .SunnyDay
dbw EFFECT_TELEPORT, .Teleport
dbw EFFECT_MORNING_SUN, .MorningSun
dbw EFFECT_SYNTHESIS, .Synthesis
dbw EFFECT_MOONLIGHT, .Moonlight
dbw EFFECT_SWAGGER, .Swagger
dbw EFFECT_FUTURE_SIGHT, .FutureSight
db -1
.LightScreen: ; 2c487
ld a, [EnemyScreens]
bit SCREENS_LIGHT_SCREEN, a
ret
.Mist: ; 2c48d
ld a, [EnemySubStatus4]
bit SUBSTATUS_MIST, a
ret
.FocusEnergy: ; 2c493
ld a, [EnemySubStatus4]
bit SUBSTATUS_FOCUS_ENERGY, a
ret
.Confuse: ; 2c499
ld a, [PlayerSubStatus3]
bit SUBSTATUS_CONFUSED, a
ret nz
ld a, [PlayerScreens]
bit SCREENS_SAFEGUARD, a
ret
.Transform: ; 2c4a5
ld a, [EnemySubStatus5]
bit SUBSTATUS_TRANSFORMED, a
ret
.Reflect: ; 2c4ab
ld a, [EnemyScreens]
bit SCREENS_REFLECT, a
ret
.Substitute: ; 2c4b1
ld a, [EnemySubStatus4]
bit SUBSTATUS_SUBSTITUTE, a
ret
.LeechSeed: ; 2c4b7
ld a, [PlayerSubStatus4]
bit SUBSTATUS_LEECH_SEED, a
ret
.Disable: ; 2c4bd
ld a, [PlayerDisableCount]
and a
ret
.Encore: ; 2c4c2
ld a, [PlayerSubStatus5]
bit SUBSTATUS_ENCORED, a
ret
.Snore:
.SleepTalk: ; 2c4c8
ld a, [EnemyMonStatus]
and SLP
jr z, .Redundant
jr .NotRedundant
.MeanLook: ; 2c4d1
ld a, [EnemySubStatus5]
bit SUBSTATUS_CANT_RUN, a
ret
.Nightmare: ; 2c4d7
ld a, [BattleMonStatus]
and a
jr z, .Redundant
ld a, [PlayerSubStatus1]
bit SUBSTATUS_NIGHTMARE, a
ret
.Spikes: ; 2c4e3
ld a, [PlayerScreens]
bit SCREENS_SPIKES, a
ret
.Foresight: ; 2c4e9
ld a, [PlayerSubStatus1]
bit SUBSTATUS_IDENTIFIED, a
ret
.PerishSong: ; 2c4ef
ld a, [PlayerSubStatus1]
bit SUBSTATUS_PERISH, a
ret
.Sandstorm: ; 2c4f5
ld a, [Weather]
cp WEATHER_SANDSTORM
jr z, .Redundant
jr .NotRedundant
.Attract: ; 2c4fe
callba Function377f5
jr c, .Redundant
ld a, [PlayerSubStatus1]
bit SUBSTATUS_IN_LOVE, a
ret
.Safeguard: ; 2c50c
ld a, [EnemyScreens]
bit SCREENS_SAFEGUARD, a
ret
.RainDance: ; 2c512
ld a, [Weather]
cp WEATHER_RAIN
jr z, .Redundant
jr .NotRedundant
.SunnyDay: ; 2c51b
ld a, [Weather]
cp WEATHER_SUN
jr z, .Redundant
jr .NotRedundant
.DreamEater: ; 2c524
ld a, [BattleMonStatus]
and SLP
jr z, .Redundant
jr .NotRedundant
.Swagger: ; 2c52d
ld a, [PlayerSubStatus3]
bit SUBSTATUS_CONFUSED, a
ret
.FutureSight: ; 2c533
ld a, [EnemyScreens]
bit 5, a
ret
.Heal:
.MorningSun:
.Synthesis:
.Moonlight: ; 2c539
callba AICheckEnemyMaxHP
jr nc, .NotRedundant
.Teleport:
.Redundant: ; 2c541
ld a, 1
and a
ret
.NotRedundant: ; 2c545
xor a
ret
INCLUDE "event/move_deleter.asm"
Function2c642: ; 2c642 (b:4642)
ld de, OverworldMap
ld a, $1
ld [de], a
inc de
ld a, $1
call GetSRAMBank
ld hl, $a009
ld a, [hli]
ld [de], a
ld b, a
inc de
ld a, [hl]
ld [de], a
ld c, a
inc de
push bc
ld hl, $a00b
ld bc, $b
call CopyBytes
push de
ld hl, $aa27
ld b, $20
call CountSetBits
pop de
pop bc
ld a, [wd265]
ld [de], a
inc de
call CloseSRAM
call Random
and $1
ld [de], a
inc de
call Function2c6ac
ld [de], a
inc de
ld a, c
ld c, b
ld b, a
call Function2c6ac
ld [de], a
inc de
ld a, $0
call GetSRAMBank
ld a, [$abe4]
ld [de], a
inc de
ld a, [$abe5]
ld [de], a
ld a, $14
ld [wca00], a
call CloseSRAM
ld hl, OverworldMap
ld de, wc950
ld bc, $14
jp CopyBytes
Function2c6ac: ; 2c6ac (b:46ac)
push de
call Random
cp $19
jr c, .asm_2c6cc
call Random
and $7
ld d, a
rl d
ld e, $80
.asm_2c6be
rlc e
dec a
jr nz, .asm_2c6be
ld a, e
and c
jr z, .asm_2c6c9
ld a, $1
.asm_2c6c9
add d
jr .asm_2c706
.asm_2c6cc
call Random
cp $32
jr c, .asm_2c6ed
call Random
and $3
ld d, a
rl d
ld e, $80
.asm_2c6dd
rlc e
dec a
jr nz, .asm_2c6dd
ld a, e
and b
jr z, .asm_2c6e8
ld a, $1
.asm_2c6e8
add d
add $10
jr .asm_2c706
.asm_2c6ed
call Random
cp $32
jr c, .asm_2c6fd
ld a, b
swap a
and $7
add $18
jr .asm_2c706
.asm_2c6fd
ld a, b
and $80
ld a, $20
jr z, .asm_2c706
ld a, $21
.asm_2c706
pop de
ret
Function2c708: ; 2c708 (b:4708)
ld a, c
cp $25
jr nc, Function2c722
ld hl, Unknown_2c725
ld b, 0
add hl, bc
ld c, [hl]
ret
Function2c715: ; 2c715 (b:4715)
ld a, c
cp $25
jr nc, Function2c722
ld hl, Unknown_2c74a
ld b, 0
add hl, bc
ld c, [hl]
ret
Function2c722: ; 2c722 (b:4722)
ld c, $4
ret
; 2c725 (b:4725)
Unknown_2c725: ; 2c725
; May or may not be items.
db $ad, $4e, $54, $50, $4f
db $4a, $29, $33, $31, $53
db $2c, $35, $21, $b9, $ba
db $bc, $6d, $ae, $27, $04
db $2a, $2b, $41, $3f, $18
db $16, $22, $17, $40, $15
db $28, $8c, $1a, $3e, $20
db $bb, $bd
; 2c74a
Unknown_2c74a: ; 2c74a
; May or may not be items.
db $16, $1a, $1b, $1c, $1d
db $1e, $1f, $20, $21, $22
db $0d, $0e, $10, $23, $25
db $26, $08, $09, $0f, $11
db $17, $19, $01, $02, $04
db $05, $06, $07, $0a, $12
db $29, $0c, $2a, $14, $03
db $24, $27
; 2c76f
Function2c76f: ; 2c76f (b:476f)
ld a, $1
ld [$ffaa], a
call Function2c8d3
ld a, $0
ld [$ffaa], a
ret nc
call Function1bee
call WaitBGMap
ld a, [CurItem]
dec a
ld [wd107], a
ld hl, TMsHMs
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld [wd10d], a
call Function2c798
scf
ret
Function2c798: ; 2c798 (b:4798)
ld a, [CurItem]
ld c, a
callab GetNumberedTMHM
ld a, c
ld [CurItem], a
ret
Function2c7a7: ; 2c7a7 (b:47a7)
ld a, [CurItem]
ld c, a
callab GetTMHMNumber
ld a, c
ld [wd265], a
ret
GetTMHMItemMove: ; 2c7b6 (b:47b6)
call Function2c7a7
predef GetTMHMMove
ret
Function2c7bf: ; 2c7bf (b:47bf)
ld hl, Options
ld a, [hl]
push af
res 4, [hl]
ld a, [CurItem]
cp TM01
jr c, .asm_2c7f5
call GetTMHMItemMove
ld a, [wd265]
ld [wd262], a
call GetMoveName
call CopyName1
ld hl, UnknownText_0x2c8bf
ld a, [CurItem]
cp HM01
jr c, .asm_2c7e9
ld hl, UnknownText_0x2c8c4
.asm_2c7e9
call PrintText
ld hl, UnknownText_0x2c8c9
call PrintText
call YesNoBox
.asm_2c7f5
pop bc
ld a, b
ld [Options], a
ret
Function2c7fb: ; 2c7fb
ld hl, StringBuffer2
ld de, wd066
ld bc, $000c
call CopyBytes
call WhiteBGMap
Function2c80a: ; 2c80a
callba Function5004f
callba Function50405
callba Function503e0
ld a, $3
ld [PartyMenuActionText], a
.asm_2c821
callba WritePartyMenuTilemap
callba PrintPartyMenuText
call WaitBGMap
call Function32f9
call DelayFrame
callba PartyMenuSelect
push af
ld a, [CurPartySpecies]
cp EGG
pop bc
jr z, .asm_2c854
push bc
ld hl, wd066
ld de, StringBuffer2
ld bc, $000c
call CopyBytes
pop af
ret
.asm_2c854
push hl
push de
push bc
push af
ld de, SFX_WRONG
call PlaySFX
call WaitSFX
pop af
pop bc
pop de
pop hl
jr .asm_2c821
; 2c867
Function2c867: ; 2c867
predef CanLearnTMHMMove
push bc
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
call GetNick
pop bc
ld a, c
and a
jr nz, .asm_2c88b
push de
ld de, SFX_WRONG
call PlaySFX
pop de
ld hl, UnknownText_0x2c8ce
call PrintText
jr .asm_2c8b6
.asm_2c88b
callab KnowsMove
jr c, .asm_2c8b6
predef LearnMove
ld a, b
and a
jr z, .asm_2c8b6
callba Function106049
ld a, [CurItem]
call IsHM
ret c
ld c, $5
callab ChangeHappiness
call Function2cb0c
jr .asm_2c8bd
.asm_2c8b6
and a
ret
.asm_2c8b8
ld a, $2
ld [wd0ec], a
.asm_2c8bd
scf
ret
; 2c8bf (b:48bf)
UnknownText_0x2c8bf: ; 0x2c8bf
; Booted up a TM.
text_jump UnknownText_0x1c0373
db "@"
; 0x2c8c4
UnknownText_0x2c8c4: ; 0x2c8c4
; Booted up an HM.
text_jump UnknownText_0x1c0384
db "@"
; 0x2c8c9
UnknownText_0x2c8c9: ; 0x2c8c9
; It contained @ . Teach @ to a #MON?
text_jump UnknownText_0x1c0396
db "@"
; 0x2c8ce
UnknownText_0x2c8ce: ; 0x2c8ce
; is not compatible with @ . It can't learn @ .
text_jump UnknownText_0x1c03c2
db "@"
; 0x2c8d3
Function2c8d3: ; 2c8d3 (b:48d3)
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function2c9e2
ld a, $2
ld [wcfa1], a
ld a, $7
ld [wcfa2], a
ld a, $1
ld [wcfa4], a
ld a, $5
sub d
inc a
cp $6
jr nz, .asm_2c8f1
dec a
.asm_2c8f1
ld [wcfa3], a
ld a, $c
ld [wcfa5], a
xor a
ld [wcfa6], a
ld a, $20
ld [wcfa7], a
ld a, $f3
ld [wcfa8], a
ld a, [wd0dc]
inc a
ld [wcfa9], a
ld a, $1
ld [wcfaa], a
jr Function2c946
Function2c915: ; 2c915 (b:4915)
call Function2c9e2
call Function1bc9
ld b, a
ld a, [wcfa9]
dec a
ld [wd0dc], a
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, [wcfa6]
bit 7, a
jp nz, Function2c9b1
ld a, b
ld [wcf73], a
bit 0, a
jp nz, Function2c974
bit 1, a
jp nz, Function2c9a5
bit 4, a
jp nz, Function2c9af
bit 5, a
jp nz, Function2c9af
Function2c946: ; 2c946 (b:4946)
call Function2c98a
jp nc, Function2c9af
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld a, [CurItem]
cp $3a
jr nc, Function2c915
ld [wd265], a
predef GetTMHMMove
ld a, [wd265]
ld [CurSpecies], a
hlcoord 1, 14
call PrintMoveDesc
jp Function2c915
Function2c974: ; 2c974 (b:4974)
call Function2cad6
call Function2cb2a
ld a, [wcfa9]
dec a
ld b, a
ld a, [wd0e2]
add b
ld b, a
ld a, [wd265]
cp b
jr z, asm_2c9a8
Function2c98a: ; 2c98a (b:498a)
call Function2cab5
ld a, [wcfa9]
ld b, a
.asm_2c991
inc c
ld a, c
cp $3a
jr nc, .asm_2c99f
ld a, [hli]
and a
jr z, .asm_2c991
dec b
jr nz, .asm_2c991
ld a, c
.asm_2c99f
ld [CurItem], a
cp $ff
ret
Function2c9a5: ; 2c9a5 (b:49a5)
call Function2cad6
asm_2c9a8: ; 2c9a8 (b:49a8)
ld a, $2
ld [wcf73], a
and a
ret
Function2c9af: ; 2c9af (b:49af)
and a
ret
Function2c9b1: ; 2c9b1 (b:49b1)
ld a, b
bit 7, a
jr nz, .asm_2c9c5
ld hl, wd0e2
ld a, [hl]
and a
jp z, Function2c915
dec [hl]
call Function2c9e2
jp Function2c946
.asm_2c9c5
call Function2cab5
ld b, $5
.asm_2c9ca
inc c
ld a, c
cp $3a
jp nc, Function2c915
ld a, [hli]
and a
jr z, .asm_2c9ca
dec b
jr nz, .asm_2c9ca
ld hl, wd0e2
inc [hl]
call Function2c9e2
jp Function2c946
Function2c9e2: ; 2c9e2 (b:49e2)
ld a, [BattleType]
cp BATTLETYPE_TUTORIAL
jp z, Function2caca
hlcoord 5, 2
ld bc, $a0f
ld a, $7f
call ClearBox
call Function2cab5
ld d, $5
.asm_2c9fa
inc c
ld a, c
cp $3a
jr nc, .asm_2ca77
ld a, [hli]
and a
jr z, .asm_2c9fa
ld b, a
ld a, c
ld [wd265], a
push hl
push de
push bc
call Function2ca86
push hl
ld a, [wd265]
cp $33
jr nc, .asm_2ca22
ld de, wd265
ld bc, $8102
call PrintNum
jr .asm_2ca38
.asm_2ca22
push af
sub $32
ld [wd265], a
ld [hl], $87
inc hl
ld de, wd265
ld bc, $4102
call PrintNum
pop af
ld [wd265], a
.asm_2ca38
predef GetTMHMMove
ld a, [wd265]
ld [wd262], a
call GetMoveName
pop hl
ld bc, $3
add hl, bc
push hl
call PlaceString
pop hl
pop bc
ld a, c
push bc
cp $33
jr nc, .asm_2ca6f
ld bc, $1d
add hl, bc
ld [hl], $f1
inc hl
ld a, $f6
pop bc
push bc
ld a, b
ld [wd265], a
ld de, wd265
ld bc, $102
call PrintNum
.asm_2ca6f
pop bc
pop de
pop hl
dec d
jr nz, .asm_2c9fa
jr .asm_2ca85
.asm_2ca77
call Function2ca86
rept 3
inc hl
endr
push de
ld de, String_2caae
call PlaceString
pop de
.asm_2ca85
ret
Function2ca86: ; 2ca86 (b:4a86)
hlcoord 5, 0
ld bc, $28
ld a, $6
sub d
ld e, a
.asm_2ca90
add hl, bc
dec e
jr nz, .asm_2ca90
ret
; 2ca95 (b:4a95)
Function2ca95: ; 2ca95
pop hl
ld bc, $0003
add hl, bc
predef GetTMHMMove
ld a, [wd265]
ld [wd262], a
call GetMoveName
push hl
call PlaceString
pop hl
ret
; 2caae
String_2caae: ; 2caae
db "CANCEL@"
; 2cab5
Function2cab5: ; 2cab5 (b:4ab5)
ld hl, TMsHMs
ld a, [wd0e2]
ld b, a
inc b
ld c, $0
.asm_2cabf
inc c
ld a, [hli]
and a
jr z, .asm_2cabf
dec b
jr nz, .asm_2cabf
dec hl
dec c
ret
Function2caca: ; 2caca (b:4aca)
hlcoord 9, 3
push de
ld de, String_2caae
call PlaceString
pop de
ret
Function2cad6: ; 2cad6 (b:4ad6)
push de
ld de, SFX_READ_TEXT_2
call PlaySFX
pop de
ret
; 2cadf (b:4adf)
Function2cadf: ; 2cadf
call Function2c7a7
call Function2cafa
ld hl, UnknownText_0x2caf0
jr nc, .asm_2caed
ld hl, UnknownText_0x2caf5
.asm_2caed
jp PrintText
; 2caf0
UnknownText_0x2caf0: ; 0x2caf0
; You have no room for any more @ S.
text_jump UnknownText_0x1c03fa
db "@"
; 0x2caf5
UnknownText_0x2caf5: ; 0x2caf5
; You received @ !
text_jump UnknownText_0x1c0421
db "@"
; 0x2cafa
Function2cafa: ; 2cafa
ld a, [wd265]
dec a
ld hl, TMsHMs
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
inc a
cp NUM_TMS * 2
ret nc
ld [hl], a
ret
; 2cb0c
Function2cb0c: ; 2cb0c (b:4b0c)
call Function2c7a7
ld a, [wd265]
dec a
ld hl, TMsHMs
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
and a
ret z
dec a
ld [hl], a
ret nz
ld a, [wd0e2]
and a
ret z
dec a
ld [wd0e2], a
ret
Function2cb2a: ; 2cb2a (b:4b2a)
ld b, $0
ld c, $39
ld hl, TMsHMs
.asm_2cb31
ld a, [hli]
and a
jr z, .asm_2cb36
inc b
.asm_2cb36
dec c
jr nz, .asm_2cb31
ld a, b
ld [wd265], a
ret
PrintMoveDesc: ; 2cb3e
push hl
ld hl, MoveDescriptions
ld a, [CurSpecies]
dec a
ld c, a
ld b, 0
rept 2
add hl, bc
endr
ld a, [hli]
ld e, a
ld d, [hl]
pop hl
jp PlaceString
; 2cb52
MoveDescriptions:: ; 2cb52
INCLUDE "battle/moves/move_descriptions.asm"
; 2ed44
Function2ed44: ; 2ed44
call ConvertBerriesToBerryJuice
ld hl, PartyMon1PokerusStatus
ld a, [PartyCount]
ld b, a
ld de, PartyMon2 - PartyMon1
.loopMons
ld a, [hl]
and $f
jr nz, .monHasActivePokerus
add hl, de
dec b
jr nz, .loopMons
ld hl, StatusFlags2
bit 6, [hl]
ret z
call Random
ld a, [hRandomAdd]
and a
ret nz
ld a, [hRandomSub]
cp $3
ret nc ; 3/65536 chance (00 00, 00 01 or 00 02)
ld a, [PartyCount]
ld b, a
.randomMonSelectLoop
call Random
and $7
cp b
jr nc, .randomMonSelectLoop
ld hl, PartyMon1PokerusStatus
call GetPartyLocation ; get pokerus byte of random mon
ld a, [hl]
and $f0
ret nz ; if it already has pokerus, do nothing
.randomPokerusLoop
call Random
and a
jr z, .randomPokerusLoop
ld b, a
and $f0
jr z, .asm_2ed91
ld a, b
and $7
inc a
.asm_2ed91
ld b, a
swap b
and $3
inc a
add b
ld [hl], a
ret
.monHasActivePokerus
call Random
cp $55
ret nc ; 1/3 chance
ld a, [PartyCount]
cp $1
ret z ; only one mon, nothing to do
ld c, [hl]
ld a, b
cp $2
jr c, .checkPreviousMonsLoop ; no more mons after this one, go backwards
call Random
cp $80
jr c, .checkPreviousMonsLoop ; 1/2 chance, go backwards
.checkFollowingMonsLoop
add hl, de
ld a, [hl]
and a
jr z, .infectMon
ld c, a
and $3
ret z ; if mon has cured pokerus, stop searching
dec b ; go on to next mon
ld a, b
cp $1
jr nz, .checkFollowingMonsLoop ; no more mons left
ret
.checkPreviousMonsLoop
ld a, [PartyCount]
cp b
ret z ; no more mons
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
ld a, [hl]
and a
jr z, .infectMon
ld c, a
and $3
ret z ; if mon has cured pokerus, stop searching
inc b ; go on to next mon
jr .checkPreviousMonsLoop
.infectMon
ld a, c
and $f0
ld b, a
ld a, c
swap a
and $3
inc a
add b
ld [hl], a
ret
; 2ede6
; any berry held by a Shuckle may be converted to berry juice
ConvertBerriesToBerryJuice: ; 2ede6
ld hl, StatusFlags2
bit 6, [hl]
ret z
call Random
cp $10
ret nc ; 1/16 chance
ld hl, PartyMons
ld a, [PartyCount]
.partyMonLoop
push af
push hl
ld a, [hl]
cp SHUCKLE
jr nz, .loopMon
ld bc, PartyMon1Item - PartyMon1Species
add hl, bc
ld a, [hl]
cp BERRY
jr z, .convertToJuice
.loopMon
pop hl
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop af
dec a
jr nz, .partyMonLoop
ret
.convertToJuice
ld a, BERRY_JUICE
ld [hl], a
pop hl
pop af
ret
; 2ee18
Function2ee18: ; 2ee18
ld a, [InLinkBattle]
and a
ret z
callba Function2c1b2
ld c, 150
call DelayFrames
call ClearTileMap
call ClearSprites
ret
; 2ee2f
Function2ee2f: ; 2ee2f
xor a
ld [$ffde], a
call DelayFrame
ld b, 6
ld hl, PartyMon1HP
ld de, PartyMon2 - PartyMon1 - 1
.asm_2ee3d
ld a, [hli]
or [hl]
jr nz, .asm_2ee45
add hl, de
dec b
jr nz, .asm_2ee3d
.asm_2ee45
ld de, PartyMon1Level - PartyMon1HP
add hl, de
ld a, [hl]
ld [BattleMonLevel], a
predef Function8c20f
callba Function3ed9f
ld a, 1
ld [hBGMapMode], a
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a
ld [hWY], a
ld [rWY], a
ld [$ffde], a
ret
; 2ee6c
PlayBattleMusic: ; 2ee6c
push hl
push de
push bc
xor a
ld [MusicFade], a
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
call MaxVolume
ld a, [BattleType]
cp BATTLETYPE_SUICUNE
ld de, MUSIC_SUICUNE_BATTLE
jp z, .done
cp BATTLETYPE_ROAMING
jp z, .done
; Are we fighting a trainer?
ld a, [OtherTrainerClass]
and a
jr nz, .trainermusic
callba RegionCheck
ld a, e
and a
jr nz, .kantowild
ld de, MUSIC_JOHTO_WILD_BATTLE
ld a, [TimeOfDay]
cp NITE
jr nz, .done
ld de, MUSIC_JOHTO_WILD_BATTLE_NIGHT
jr .done
.kantowild
ld de, MUSIC_KANTO_WILD_BATTLE
jr .done
.trainermusic
ld de, MUSIC_CHAMPION_BATTLE
cp CHAMPION
jr z, .done
cp RED
jr z, .done
; really, they should have included admins and scientists here too...
ld de, MUSIC_ROCKET_BATTLE
cp GRUNTM
jr z, .done
cp GRUNTF
jr z, .done
ld de, MUSIC_KANTO_GYM_LEADER_BATTLE
callba IsKantoGymLeader
jr c, .done
ld de, MUSIC_JOHTO_GYM_LEADER_BATTLE
callba IsJohtoGymLeader
jr c, .done
ld de, MUSIC_RIVAL_BATTLE
ld a, [OtherTrainerClass]
cp RIVAL1
jr z, .done
cp RIVAL2
jr nz, .othertrainer
ld a, [OtherTrainerID]
cp 4 ; Rival in Indigo Plateau
jr c, .done
ld de, MUSIC_CHAMPION_BATTLE
jr .done
.othertrainer
ld a, [InLinkBattle]
and a
jr nz, .johtotrainer
callba RegionCheck
ld a, e
and a
jr nz, .kantotrainer
.johtotrainer
ld de, MUSIC_JOHTO_TRAINER_BATTLE
jr .done
.kantotrainer
ld de, MUSIC_KANTO_TRAINER_BATTLE
.done
call PlayMusic
pop bc
pop de
pop hl
ret
; 2ef18
ClearBattleRAM: ; 2ef18
xor a
ld [wd0ec], a
ld [wd0ee], a
ld hl, wd0d8
rept 3
ld [hli], a
endr
ld [hl], a
ld [wd0e4], a
ld [CriticalHit], a
ld [BattleMonSpecies], a
ld [wc664], a
ld [CurBattleMon], a
ld [wd232], a
ld [TimeOfDayPal], a
ld [PlayerTurnsTaken], a
ld [EnemyTurnsTaken], a
ld [EvolvableFlags], a
ld hl, PlayerHPPal
ld [hli], a
ld [hl], a
ld hl, BattleMonDVs
ld [hli], a
ld [hl], a
ld hl, EnemyMonDVs
ld [hli], a
ld [hl], a
; Clear the entire BattleMons area
ld hl, wBattle
ld bc, wBattleEnd - wBattle
xor a
call ByteFill
callab ResetEnemyStatLevels
call Function1fbf
ld hl, hBGMapAddress
xor a
ld [hli], a
ld [hl], $98
ret
; 2ef6e
FillBox: ; 2ef6e
; Fill wc2c6-aligned box width b height c
; with iterating tile starting from $ffad at hl.
; Predef $13
ld de, 20
ld a, [wc2c6]
and a
jr nz, .left
ld a, [$ffad]
.x1
push bc
push hl
.y1
ld [hl], a
add hl, de
inc a
dec c
jr nz, .y1
pop hl
inc hl
pop bc
dec b
jr nz, .x1
ret
.left
; Right-aligned.
push bc
ld b, 0
dec c
add hl, bc
pop bc
ld a, [$ffad]
.x2
push bc
push hl
.y2
ld [hl], a
add hl, de
inc a
dec c
jr nz, .y2
pop hl
dec hl
pop bc
dec b
jr nz, .x2
ret
; 2ef9f
SECTION "Tileset Data 4", ROMX, BANK[TILESETS_4]
INCLUDE "tilesets/data_4.asm"
SECTION "bankD", ROMX, BANK[$D]
INCLUDE "battle/effect_commands.asm"
SECTION "bankE", ROMX, BANK[$E]
INCLUDE "battle/ai/items.asm"
AIScoring: ; 38591
INCLUDE "battle/ai/scoring.asm"
Function3952d: ; 3952d
ld hl, RivalName
ld a, c
cp RIVAL1
jr z, .rival
ld [CurSpecies], a
ld a, TRAINER_NAME
ld [wcf61], a
call GetName
ld de, StringBuffer1
ret
.rival
ld de, StringBuffer1
push de
ld bc, NAME_LENGTH
call CopyBytes
pop de
ret
; 39550
Function39550: ; 39550
ld hl, wd26b
ld a, [InLinkBattle]
and a
jr nz, .ok
ld hl, RivalName
ld a, c
cp RIVAL1
jr z, .ok
ld [CurSpecies], a
ld a, TRAINER_NAME
ld [wcf61], a
call GetName
ld hl, StringBuffer1
.ok
ld bc, $000d
ld de, OTName
push de
call CopyBytes
pop de
ret
; 3957b
Function3957b: ; 3957b
ld a, [TrainerClass]
ld c, a
call Function39550
ld a, [TrainerClass]
dec a
ld hl, TrainerClassAttributes
ld bc, 7
call AddNTimes
ld de, wc650
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
ld a, [hl]
ld [wc652], a
ret
; 3959c
INCLUDE "trainers/attributes.asm"
ReadTrainerParty: ; 39771
ld a, [wcfc0]
bit 0, a
ret nz
ld a, [InLinkBattle]
and a
ret nz
ld hl, OTPartyCount
xor a
ld [hli], a
dec a
ld [hl], a
ld hl, OTPartyMons
ld bc, OTPartyMonsEnd - OTPartyMons
xor a
call ByteFill
ld a, [OtherTrainerClass]
cp CAL
jr nz, .not_cal2
ld a, [OtherTrainerID]
cp CAL2
jr z, .cal2
ld a, [OtherTrainerClass]
.not_cal2
dec a
ld c, a
ld b, 0
ld hl, TrainerGroups
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [OtherTrainerID]
ld b, a
.skip_trainer
dec b
jr z, .got_trainer
.loop
ld a, [hli]
cp $ff
jr nz, .loop
jr .skip_trainer
.got_trainer
.skip_name
ld a, [hli]
cp "@"
jr nz, .skip_name
ld a, [hli]
ld c, a
ld b, 0
ld d, h
ld e, l
ld hl, TrainerTypes
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld bc, .done
push bc
jp [hl]
.done
jp Function3991b
.cal2
ld a, $0
call GetSRAMBank
ld de, $ac0a
call TrainerType2
call CloseSRAM
jr .done
; 397e3
TrainerTypes: ; 397e3
dw TrainerType1 ; level, species
dw TrainerType2 ; level, species, moves
dw TrainerType3 ; level, species, item
dw TrainerType4 ; level, species, item, moves
; 397eb
TrainerType1: ; 397eb
; normal (level, species)
ld h, d
ld l, e
.loop
ld a, [hli]
cp $ff
ret z
ld [CurPartyLevel], a
ld a, [hli]
ld [CurPartySpecies], a
ld a, OTPARTYMON
ld [MonType], a
push hl
predef Functiond88c
pop hl
jr .loop
; 39806
TrainerType2: ; 39806
; moves
ld h, d
ld l, e
.loop
ld a, [hli]
cp $ff
ret z
ld [CurPartyLevel], a
ld a, [hli]
ld [CurPartySpecies], a
ld a, OTPARTYMON
ld [MonType], a
push hl
predef Functiond88c
ld a, [OTPartyCount]
dec a
ld hl, OTPartyMon1Moves
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld d, h
ld e, l
pop hl
ld b, NUM_MOVES
.copy_moves
ld a, [hli]
ld [de], a
inc de
dec b
jr nz, .copy_moves
push hl
ld a, [OTPartyCount]
dec a
ld hl, OTPartyMon1Species
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld d, h
ld e, l
ld hl, OTPartyMon1PP - OTPartyMon1
add hl, de
push hl
ld hl, OTPartyMon1Moves - OTPartyMon1
add hl, de
pop de
ld b, NUM_MOVES
.copy_pp
ld a, [hli]
and a
jr z, .copied_pp
push hl
push bc
dec a
ld hl, Moves + MOVE_PP
ld bc, MOVE_LENGTH
call AddNTimes
ld a, BANK(Moves)
call GetFarByte
pop bc
pop hl
ld [de], a
inc de
dec b
jr nz, .copy_pp
.copied_pp
pop hl
jr .loop
; 39871
TrainerType3: ; 39871
; item
ld h, d
ld l, e
.loop
ld a, [hli]
cp $ff
ret z
ld [CurPartyLevel], a
ld a, [hli]
ld [CurPartySpecies], a
ld a, OTPARTYMON
ld [MonType], a
push hl
predef Functiond88c
ld a, [OTPartyCount]
dec a
ld hl, OTPartyMon1Item
ld bc, OTPartyMon2 - OTPartyMon1
call AddNTimes
ld d, h
ld e, l
pop hl
ld a, [hli]
ld [de], a
jr .loop
; 3989d (e:589d)
TrainerType4: ; 3989d
; item + moves
ld h, d
ld l, e
.loop
ld a, [hli]
cp $ff
ret z
ld [CurPartyLevel], a
ld a, [hli]
ld [CurPartySpecies], a
ld a, OTPARTYMON
ld [MonType], a
push hl
predef Functiond88c
ld a, [OTPartyCount]
dec a
ld hl, OTPartyMon1Item
ld bc, OTPartyMon2 - OTPartyMon1
call AddNTimes
ld d, h
ld e, l
pop hl
ld a, [hli]
ld [de], a
push hl
ld a, [OTPartyCount]
dec a
ld hl, OTPartyMon1Moves
ld bc, OTPartyMon2 - OTPartyMon1
call AddNTimes
ld d, h
ld e, l
pop hl
ld b, NUM_MOVES
.copy_moves
ld a, [hli]
ld [de], a
inc de
dec b
jr nz, .copy_moves
push hl
ld a, [OTPartyCount]
dec a
ld hl, OTPartyMon1
ld bc, OTPartyMon2 - OTPartyMon1
call AddNTimes
ld d, h
ld e, l
ld hl, OTPartyMon1PP - OTPartyMon1
add hl, de
push hl
ld hl, OTPartyMon1Moves - OTPartyMon1
add hl, de
pop de
ld b, NUM_MOVES
.copy_pp
ld a, [hli]
and a
jr z, .copied_pp
push hl
push bc
dec a
ld hl, Moves + MOVE_PP
ld bc, MOVE_LENGTH
call AddNTimes
ld a, BANK(Moves)
call GetFarByte
pop bc
pop hl
ld [de], a
inc de
dec b
jr nz, .copy_pp
.copied_pp
pop hl
jr .loop
; 3991b
Function3991b: ; 3991b (e:591b)
ld hl, $ffb3
xor a
rept 3
ld [hli], a
endr
ld a, [wc652] ; base reward
ld [hli], a
ld a, [CurPartyLevel]
ld [hl], a
call Multiply
ld hl, wc686
xor a
ld [hli], a
ld a, [$ffb5]
ld [hli], a
ld a, [$ffb6]
ld [hl], a
ret
Battle_GetTrainerName:: ; 39939
ld a, [wcfc0]
bit 0, a
ld hl, wd26b
jp nz, CopyTrainerName
ld a, [OtherTrainerID]
ld b, a
ld a, [OtherTrainerClass]
ld c, a
GetTrainerName:: ; 3994c
ld a, c
cp CAL
jr nz, .not_cal2
ld a, $0
call GetSRAMBank
ld a, [$abfd]
and a
call CloseSRAM
jr z, .not_cal2
ld a, $0
call GetSRAMBank
ld hl, $abfe
call CopyTrainerName
jp CloseSRAM
.not_cal2
dec c
push bc
ld b, 0
ld hl, TrainerGroups
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
pop bc
.loop
dec b
jr z, CopyTrainerName
.skip
ld a, [hli]
cp $ff
jr nz, .skip
jr .loop
CopyTrainerName: ; 39984
ld de, StringBuffer1
push de
ld bc, NAME_LENGTH
call CopyBytes
pop de
ret
; 39990
Function39990: ; 39990
; This function is useless.
ld de, StringBuffer1
push de
ld bc, NAME_LENGTH
pop de
ret
; 39999
INCLUDE "trainers/trainer_pointers.asm"
INCLUDE "trainers/trainers.asm"
SECTION "bankF", ROMX, BANK[$F]
INCLUDE "battle/core.asm"
INCLUDE "battle/effect_command_pointers.asm"
SECTION "bank10", ROMX, BANK[$10]
INCLUDE "engine/pokedex.asm"
Function41a7f: ; 41a7f
xor a
ld [hBGMapMode], a
callba Function1de247
call Function41af7
call DisableLCD
call Functione51
call Functione5f
call Function414b7
call Function4147b
ld a, [wd265]
ld [CurPartySpecies], a
call Function407fd
call Function40ba0
hlcoord 0, 17
ld [hl], $3b
inc hl
ld bc, $0013
ld a, $7f
call ByteFill
callba Function4424d
call EnableLCD
call WaitBGMap
call GetBaseData
ld de, VTiles2
predef GetFrontpic
ld a, $4
call Function41423
ld a, [CurPartySpecies]
call PlayCry
ret
; 41ad7
Function41ad7: ; 41ad7 (10:5ad7)
ld a, $3
ld [hBGMapMode], a ; $ff00+$d4
ld c, $4
call DelayFrames
ret
Function41ae1: ; 41ae1 (10:5ae1)
ld a, $4
ld [hBGMapMode], a ; $ff00+$d4
ld c, $4
call DelayFrames
ret
Function41aeb: ; 41aeb (10:5aeb)
ld a, [hCGB] ; $ff00+$e6
and a
jr z, .asm_41af3
call Function41ae1
.asm_41af3
call Function41ad7
ret
Function41af7: ; 41af7
xor a
ld [hBGMapMode], a
ret
; 41afb
INCLUDE "battle/moves/moves.asm"
Function421d8: ; 421d8
ld hl, EvolvableFlags
xor a
ld [hl], a
ld a, [CurPartyMon]
ld c, a
ld b, $1
call Function42577
Function421e6: ; 421e6
xor a
ld [wd268], a
dec a
ld [CurPartyMon], a
push hl
push bc
push de
ld hl, PartyCount
push hl
Function421f5: ; 421f5
ld hl, CurPartyMon
inc [hl]
pop hl
inc hl
ld a, [hl]
cp $ff
jp z, Function423ff
ld [Buffer1], a
push hl
ld a, [CurPartyMon]
ld c, a
ld hl, EvolvableFlags
ld b, 2
call Function42577
ld a, c
and a
jp z, Function421f5
ld a, [Buffer1]
dec a
ld b, 0
ld c, a
ld hl, EvosAttacksPointers
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
push hl
xor a
ld [MonType], a
predef Function5084a
pop hl
.asm_42230
ld a, [hli]
and a
jr z, Function421f5
ld b, a
cp EVOLVE_TRADE
jr z, .trade
ld a, [InLinkBattle]
and a
jp nz, .asm_423f9
ld a, b
cp EVOLVE_ITEM
jp z, .item
ld a, [wd1e9]
and a
jp nz, .asm_423f9
ld a, b
cp EVOLVE_LEVEL
jp z, .level
cp EVOLVE_HAPPINESS
jr z, .happiness
; EVOLVE_STAT
ld a, [TempMonLevel]
cp [hl]
jp c, .asm_423f8
call Function42461
jp z, .asm_423f8
push hl
ld de, TempMonAttack
ld hl, TempMonDefense
ld c, 2
call StringCmp
ld a, ATK_EQ_DEF
jr z, .asm_4227a
ld a, ATK_LT_DEF
jr c, .asm_4227a
ld a, ATK_GT_DEF
.asm_4227a
pop hl
inc hl
cp [hl]
jp nz, .asm_423f9
inc hl
jr .asm_422fd
.happiness
ld a, [TempMonHappiness]
cp 220
jp c, .asm_423f9
call Function42461
jp z, .asm_423f9
ld a, [hli]
cp TR_ANYTIME
jr z, .asm_422fd
cp TR_MORNDAY
jr z, .asm_422a4
; TR_NITE
ld a, [TimeOfDay]
cp NITE
jp nz, .asm_423fa
jr .asm_422fd
.asm_422a4
ld a, [TimeOfDay]
cp NITE
jp z, .asm_423fa
jr .asm_422fd
.trade
ld a, [InLinkBattle]
and a
jp z, .asm_423f9
call Function42461
jp z, .asm_423f9
ld a, [hli]
ld b, a
inc a
jr z, .asm_422fd
ld a, [InLinkBattle]
cp $1
jp z, .asm_423fa
ld a, [TempMonItem]
cp b
jp nz, .asm_423fa
xor a
ld [TempMonItem], a
jr .asm_422fd
.item
ld a, [hli]
ld b, a
ld a, [CurItem]
cp b
jp nz, .asm_423fa
ld a, [wd1e9]
and a
jp z, .asm_423fa
ld a, [InLinkBattle]
and a
jp nz, .asm_423fa
jr .asm_422fd
.level
ld a, [hli]
ld b, a
ld a, [TempMonLevel]
cp b
jp c, .asm_423fa
call Function42461
jp z, .asm_423fa
.asm_422fd
ld a, [TempMonLevel]
ld [CurPartyLevel], a
ld a, $1
ld [wd268], a
push hl
ld a, [hl]
ld [Buffer2], a
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
call GetNick
call CopyName1
ld hl, UnknownText_0x42482
call PrintText
ld c, 50
call DelayFrames
xor a
ld [hBGMapMode], a
hlcoord 0, 0
lb bc, 12, 20
call ClearBox
ld a, $1
ld [hBGMapMode], a
call ClearSprites
callba EvolutionAnimation
push af
call ClearSprites
pop af
jp c, Function42454
ld hl, UnknownText_0x42473
call PrintText
pop hl
ld a, [hl]
ld [CurSpecies], a
ld [TempMonSpecies], a
ld [Buffer2], a
ld [wd265], a
call GetPokemonName
push hl
ld hl, UnknownText_0x42478
call PrintTextBoxText
callba Function106094
ld de, MUSIC_NONE
call PlayMusic
ld de, SFX_CAUGHT_MON
call PlaySFX
call WaitSFX
ld c, 40
call DelayFrames
call ClearTileMap
call Function42414
call GetBaseData
ld hl, TempMonExp + 2
ld de, TempMonMaxHP
ld b, $1
predef Functione167
ld a, [CurPartyMon]
ld hl, PartyMons
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld e, l
ld d, h
ld bc, PartyMon1MaxHP - PartyMon1
add hl, bc
ld a, [hli]
ld b, a
ld c, [hl]
ld hl, TempMonMaxHP + 1
ld a, [hld]
sub c
ld c, a
ld a, [hl]
sbc b
ld b, a
ld hl, TempMonHP + 1
ld a, [hl]
add c
ld [hld], a
ld a, [hl]
adc b
ld [hl], a
ld hl, TempMonSpecies
ld bc, PartyMon2 - PartyMon1
call CopyBytes
ld a, [CurSpecies]
ld [wd265], a
xor a
ld [MonType], a
call LearnLevelMoves
ld a, [wd265]
dec a
call SetSeenAndCaughtMon
ld a, [wd265]
cp UNOWN
jr nz, .asm_423ec
ld hl, TempMonDVs
predef GetUnownLetter
callab Functionfba18
.asm_423ec
pop de
pop hl
ld a, [TempMonSpecies]
ld [hl], a
push hl
ld l, e
ld h, d
jp Function421f5
; 423f8
.asm_423f8
inc hl
.asm_423f9
inc hl
.asm_423fa
inc hl
jp .asm_42230
; 423fe
Function423fe: ; 423fe
pop hl
Function423ff: ; 423ff
pop de
pop bc
pop hl
ld a, [InLinkBattle]
and a
ret nz
ld a, [IsInBattle]
and a
ret nz
ld a, [wd268]
and a
call nz, RestartMapMusic
ret
; 42414
Function42414: ; 42414
ld a, [CurSpecies]
push af
ld a, [BaseDexNo]
ld [wd265], a
call GetPokemonName
pop af
ld [CurSpecies], a
ld hl, StringBuffer1
ld de, StringBuffer2
.asm_4242b
ld a, [de]
inc de
cp [hl]
inc hl
ret nz
cp "@"
jr nz, .asm_4242b
ld a, [CurPartyMon]
ld bc, PKMN_NAME_LENGTH
ld hl, PartyMonNicknames
call AddNTimes
push hl
ld a, [CurSpecies]
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
pop de
ld bc, PKMN_NAME_LENGTH
jp CopyBytes
; 42454
Function42454: ; 42454
ld hl, UnknownText_0x4247d
call PrintText
call ClearTileMap
pop hl
jp Function421f5
; 42461
Function42461: ; 42461
push hl
ld a, [CurPartyMon]
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [hl]
cp EVERSTONE
pop hl
ret
; 42473
UnknownText_0x42473: ; 0x42473
; Congratulations! Your @ @
text_jump UnknownText_0x1c4b92
db "@"
; 0x42478
UnknownText_0x42478: ; 0x42478
; evolved into @ !
text_jump UnknownText_0x1c4baf
db "@"
; 0x4247d
UnknownText_0x4247d: ; 0x4247d
; Huh? @ stopped evolving!
text_jump UnknownText_0x1c4bc5
db "@"
; 0x42482
UnknownText_0x42482: ; 0x42482
; What? @ is evolving!
text_jump UnknownText_0x1c4be3
db "@"
; 0x42487
LearnLevelMoves: ; 42487
ld a, [wd265]
ld [CurPartySpecies], a
dec a
ld b, 0
ld c, a
ld hl, EvosAttacksPointers
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
.skip_evos
ld a, [hli]
and a
jr nz, .skip_evos
.find_move
ld a, [hli]
and a
jr z, .done
ld b, a
ld a, [CurPartyLevel]
cp b
ld a, [hli]
jr nz, .find_move
push hl
ld d, a
ld hl, PartyMon1Moves
ld a, [CurPartyMon]
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld b, NUM_MOVES
.check_move
ld a, [hli]
cp d
jr z, .has_move
dec b
jr nz, .check_move
jr .learn
.has_move
pop hl
jr .find_move
.learn
ld a, d
ld [wd262], a
ld [wd265], a
call GetMoveName
call CopyName1
predef LearnMove
pop hl
jr .find_move
.done
ld a, [CurPartySpecies]
ld [wd265], a
ret
; 424e1
FillMoves: ; 424e1
; Fill in moves at de for CurPartySpecies at CurPartyLevel
push hl
push de
push bc
ld hl, EvosAttacksPointers
ld b, 0
ld a, [CurPartySpecies]
dec a
add a
rl b
ld c, a
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
.GoToAttacks
ld a, [hli]
and a
jr nz, .GoToAttacks
jr .GetLevel
.NextMove
pop de
.GetMove
inc hl
.GetLevel
ld a, [hli]
and a
jp z, .done
ld b, a
ld a, [CurPartyLevel]
cp b
jp c, .done
ld a, [Buffer1]
and a
jr z, .CheckMove
ld a, [DefaultFlypoint]
cp b
jr nc, .GetMove
.CheckMove
push de
ld c, NUM_MOVES
.CheckRepeat
ld a, [de]
inc de
cp [hl]
jr z, .NextMove
dec c
jr nz, .CheckRepeat
pop de
push de
ld c, NUM_MOVES
.CheckSlot
ld a, [de]
and a
jr z, .LearnMove
inc de
dec c
jr nz, .CheckSlot
pop de
push de
push hl
ld h, d
ld l, e
call ShiftMoves
ld a, [Buffer1]
and a
jr z, .ShiftedMove
push de
ld bc, PartyMon1PP - (PartyMon1Moves + NUM_MOVES - 1)
add hl, bc
ld d, h
ld e, l
call ShiftMoves
pop de
.ShiftedMove
pop hl
.LearnMove
ld a, [hl]
ld [de], a
ld a, [Buffer1]
and a
jr z, .NextMove
push hl
ld a, [hl]
ld hl, PartyMon1PP - PartyMon1Moves
add hl, de
push hl
dec a
ld hl, Moves + MOVE_PP
ld bc, MOVE_LENGTH
call AddNTimes
ld a, BANK(Moves)
call GetFarByte
pop hl
ld [hl], a
pop hl
jr .NextMove
.done
pop bc
pop de
pop hl
ret
; 4256e
ShiftMoves: ; 4256e
ld c, NUM_MOVES - 1
.asm_42570
inc de
ld a, [de]
ld [hli], a
dec c
jr nz, .asm_42570
ret
; 42577
Function42577: ; 42577
push de
ld d, $0
predef FlagPredef
pop de
ret
; 42581
GetPreEvolution: ; 42581
; Find the first mon to evolve into CurPartySpecies.
; Return carry and the new species in CurPartySpecies
; if a pre-evolution is found.
ld c, 0
.asm_42583
ld hl, EvosAttacksPointers
ld b, 0
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
.asm_4258d
ld a, [hli]
and a
jr z, .asm_425a2
cp EVOLVE_STAT
jr nz, .asm_42596
inc hl
.asm_42596
inc hl
ld a, [CurPartySpecies]
cp [hl]
jr z, .asm_425aa
inc hl
ld a, [hl]
and a
jr nz, .asm_4258d
.asm_425a2
inc c
ld a, c
cp NUM_POKEMON
jr c, .asm_42583
and a
ret
.asm_425aa
inc c
ld a, c
ld [CurPartySpecies], a
scf
ret
; 425b1
SECTION "bank11", ROMX, BANK[$11]
INCLUDE "engine/fruit_trees.asm"
AIChooseMove: ; 440ce
; Score each move in EnemyMonMoves starting from Buffer1. Lower is better.
; Pick the move with the lowest score.
; Wildmons attack at random.
ld a, [IsInBattle]
dec a
ret z
ld a, [InLinkBattle]
and a
ret nz
; No use picking a move if there's no choice.
callba Function3e8d1
ret nz
; The default score is 20. Unusable moves are given a score of 80.
ld a, 20
ld hl, Buffer1
rept 3
ld [hli], a
endr
ld [hl], a
; Don't pick disabled moves.
ld a, [EnemyDisabledMove]
and a
jr z, .CheckPP
ld hl, EnemyMonMoves
ld c, 0
.CheckDisabledMove
cp [hl]
jr z, .ScoreDisabledMove
inc c
inc hl
jr .CheckDisabledMove
.ScoreDisabledMove
ld hl, Buffer1
ld b, 0
add hl, bc
ld [hl], 80
; Don't pick moves with 0 PP.
.CheckPP
ld hl, Buffer1 - 1
ld de, EnemyMonPP
ld b, 0
.CheckMovePP
inc b
ld a, b
cp EnemyMonMovesEnd - EnemyMonMoves + 1
jr z, .ApplyLayers
inc hl
ld a, [de]
inc de
and $3f
jr nz, .CheckMovePP
ld [hl], 80
jr .CheckMovePP
; Apply AI scoring layers depending on the trainer class.
.ApplyLayers
ld hl, TrainerClassAttributes + 3
ld a, [wcfc0]
bit 0, a
jr nz, .asm_4412f
ld a, [TrainerClass]
dec a
ld bc, 7 ; Trainer2AI - Trainer1AI
call AddNTimes
.asm_4412f
lb bc, CHECK_FLAG, 0
push bc
push hl
.CheckLayer
pop hl
pop bc
ld a, c
cp 16 ; up to 16 scoring layers
jr z, .DecrementScores
push bc
ld d, BANK(TrainerClassAttributes)
predef FlagPredef
ld d, c
pop bc
inc c
push bc
push hl
ld a, d
and a
jr z, .CheckLayer
ld hl, AIScoringPointers
dec c
ld b, 0
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, BANK(AIScoring)
call FarCall_hl
jr .CheckLayer
; Decrement the scores of all moves one by one until one reaches 0.
.DecrementScores
ld hl, Buffer1
ld de, EnemyMonMoves
ld c, EnemyMonMovesEnd - EnemyMonMoves
.DecrementNextScore
; If the enemy has no moves, this will infinite.
ld a, [de]
inc de
and a
jr z, .DecrementScores
; We are done whenever a score reaches 0
dec [hl]
jr z, .PickLowestScoreMoves
; If we just decremented the fourth move's score, go back to the first move
inc hl
dec c
jr z, .DecrementScores
jr .DecrementNextScore
; In order to avoid bias towards the moves located first in memory, increment the scores
; that were decremented one more time than the rest (in case there was a tie).
; This means that the minimum score will be 1.
.PickLowestScoreMoves
ld a, c
.asm_44175
inc [hl]
dec hl
inc a
cp NUM_MOVES + 1
jr nz, .asm_44175
ld hl, Buffer1
ld de, EnemyMonMoves
ld c, NUM_MOVES
; Give a score of 0 to a blank move
.asm_44184
ld a, [de]
and a
jr nz, .asm_44189
ld [hl], a
; Disregard the move if its score is not 1
.asm_44189
ld a, [hl]
dec a
jr z, .asm_44191
xor a
ld [hli], a
jr .asm_44193
.asm_44191
ld a, [de]
ld [hli], a
.asm_44193
inc de
dec c
jr nz, .asm_44184
; Randomly choose one of the moves with a score of 1
.ChooseMove
ld hl, Buffer1
call Random
and 3
ld c, a
ld b, 0
add hl, bc
ld a, [hl]
and a
jr z, .ChooseMove
ld [CurEnemyMove], a
ld a, c
ld [CurEnemyMoveNum], a
ret
; 441af
AIScoringPointers: ; 441af
dw AI_Basic
dw AI_Setup
dw AI_Types
dw AI_Offensive
dw AI_Smart
dw AI_Opportunist
dw AI_Aggressive
dw AI_Cautious
dw AI_Status
dw AI_Risky
dw AI_None
dw AI_None
dw AI_None
dw AI_None
dw AI_None
dw AI_None
; 441cf
Function441cf: ; 441cf
ld hl, Unknown_441fc
ld b, 25
.loop
ld a, [hli]
; Wrap around
cp $fe
jr nz, .ok
ld hl, Unknown_441fc
ld a, [hli]
.ok
ld [wc7db], a
ld a, [hli]
ld c, a
push bc
push hl
call Function44207
pop hl
pop bc
call DelayFrames
dec b
jr nz, .loop
xor a
ld [wc7db], a
call Function44207
ld c, $20
call DelayFrames
ret
; 441fc
Unknown_441fc: ; 441fc
db 0, 7
db 1, 7
db 2, 7
db 3, 7
db 4, 7
db $fe
; 44207
Function44207: ; 44207
ld a, [wc7db]
ld hl, Unknown_44228
ld de, Sprites
.asm_44210
ld a, [hli]
cp $ff
ret z
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [wc7db]
ld b, a
add a
add b
add [hl]
inc hl
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
jr .asm_44210
; 44228
Unknown_44228: ; 44228
db $58, $48, $00, $00
db $58, $50, $01, $00
db $58, $58, $02, $00
db $60, $48, $10, $00
db $60, $50, $11, $00
db $60, $58, $12, $00
db $68, $48, $20, $00
db $68, $50, $21, $00
db $68, $58, $22, $00
db $ff
; 4424d
Function4424d: ; 4424d
call GetPokemonName
hlcoord 9, 3
call PlaceString
ld a, [wd265]
ld b, a
call Function44333
ld a, b
push af
hlcoord 9, 5
call FarString
ld h, b
ld l, c
push de
hlcoord 2, 8
ld a, $5c
ld [hli], a
ld a, $5d
ld [hli], a
ld de, wd265
ld bc, $8103
call PrintNum
ld a, [wd265]
dec a
call CheckCaughtMon
pop hl
pop bc
ret z
ld a, [CurPartySpecies]
ld [CurSpecies], a
inc hl
ld a, b
push af
push hl
call GetFarHalfword
ld d, l
ld e, h
pop hl
rept 2
inc hl
endr
ld a, d
or e
jr z, .asm_442b0
push hl
push de
ld hl, [sp+$0]
ld d, h
ld e, l
hlcoord 12, 7
ld bc, $0224
call PrintNum
hlcoord 14, 7
ld [hl], $5e
pop af
pop hl
.asm_442b0
pop af
push af
inc hl
push hl
dec hl
call GetFarHalfword
ld d, l
ld e, h
ld a, e
or d
jr z, .asm_442cd
push de
ld hl, [sp+$0]
ld d, h
ld e, l
hlcoord 11, 9
ld bc, $0245
call PrintNum
pop de
.asm_442cd
ld bc, $0512
hlcoord 2, 11
call ClearBox
hlcoord 1, 10
ld bc, $0013
ld a, $61
call ByteFill
hlcoord 1, 9
ld [hl], $55
inc hl
ld [hl], $55
hlcoord 1, 10
ld [hl], $56
inc hl
ld [hl], $57
pop de
inc de
pop af
hlcoord 2, 11
push af
call FarString
pop bc
ld a, [wPokedexStatus]
or a
ret z
push bc
push de
ld bc, $0512
hlcoord 2, 11
call ClearBox
hlcoord 1, 10
ld bc, $0013
ld a, $61
call ByteFill
hlcoord 1, 9
ld [hl], $55
inc hl
ld [hl], $55
hlcoord 1, 10
ld [hl], $56
inc hl
ld [hl], $58
pop de
inc de
pop af
hlcoord 2, 11
call FarString
ret
; 44331
String_44331: ; 44331
db "#@"
; 44333
Function44333: ; 44333
push hl
ld hl, PokedexDataPointerTable
ld a, b
dec a
ld d, 0
ld e, a
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
push de
rlca
rlca
and $3
ld hl, PokedexEntryBanks
ld d, 0
ld e, a
add hl, de
ld b, [hl]
pop de
pop hl
ret
; 44351
PokedexEntryBanks: ; 44351
GLOBAL PokedexEntries1
GLOBAL PokedexEntries2
GLOBAL PokedexEntries3
GLOBAL PokedexEntries4
db BANK(PokedexEntries1)
db BANK(PokedexEntries2)
db BANK(PokedexEntries3)
db BANK(PokedexEntries4)
; 44355
Function44355: ; 44355
call Function44333
push hl
ld h, d
ld l, e
.asm_4435b
ld a, b
call GetFarByte
inc hl
cp $50
jr nz, .asm_4435b
rept 4
inc hl
endr
dec c
jr z, .asm_44374
.asm_4436b
ld a, b
call GetFarByte
inc hl
cp $50
jr nz, .asm_4436b
.asm_44374
ld d, h
ld e, l
pop hl
ret
; 44378
PokedexDataPointerTable: ; 0x44378
INCLUDE "data/pokedex/entry_pointers.asm"
Function4456e: ; 4456e
ld a, PartyMon1Item - PartyMon1
call GetPartyParamLocation
ld d, [hl]
callba ItemIsMail
jr nc, .asm_445be
call Function44648
cp $a
jr nc, .asm_445be
ld bc, $002f
ld hl, $a835
call AddNTimes
ld d, h
ld e, l
ld a, [CurPartyMon]
ld bc, $002f
ld hl, $a600
call AddNTimes
push hl
ld a, $0
call GetSRAMBank
ld bc, $002f
call CopyBytes
pop hl
xor a
ld bc, $002f
call ByteFill
ld a, PartyMon1Item - PartyMon1
call GetPartyParamLocation
ld [hl], $0
ld hl, $a834
inc [hl]
call CloseSRAM
xor a
ret
.asm_445be
scf
ret
; 445c0
Function445c0: ; 445c0 (11:45c0)
ld a, $0
call GetSRAMBank
ld a, b
push bc
ld hl, $a835
ld bc, $2f
call AddNTimes
push hl
add hl, bc
pop de
pop bc
.asm_445d4
ld a, b
cp $9
jr z, .asm_445e4
push bc
ld bc, $2f
call CopyBytes
pop bc
inc b
jr .asm_445d4
.asm_445e4
ld h, d
ld l, e
xor a
ld bc, $2f
call ByteFill
ld hl, $a834
dec [hl]
jp CloseSRAM
; 445f4 (11:45f4)
Function445f4: ; 445f4
ld a, b
ld hl, $a835
ld bc, $2f
call AddNTimes
ld d, h
ld e, l
callba Functionb9237
ret
Function44607: ; 44607
ld a, $0
call GetSRAMBank
push bc
ld a, b
ld bc, $2f
ld hl, $a835
call AddNTimes
push hl
ld a, [CurPartyMon]
ld bc, $2f
ld hl, $a600
call AddNTimes
ld d, h
ld e, l
pop hl
push hl
ld bc, $2f
call CopyBytes
pop hl
ld de, $2e
add hl, de
ld d, [hl]
ld a, [CurPartyMon]
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld [hl], d
call CloseSRAM
pop bc
jp Function445c0
; 44648 (11:4648)
Function44648: ; 44648
ld a, $0
call GetSRAMBank
ld a, [$a834]
ld c, a
jp CloseSRAM
; 44654
Function44654:: ; 44654
push bc
push de
callba SelectMonFromParty
ld a, $2
jr c, .asm_446c6
ld a, [CurPartyMon]
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld d, [hl]
callba ItemIsMail
ld a, $3
jr nc, .asm_446c6
ld a, $0
call GetSRAMBank
ld a, [CurPartyMon]
ld hl, $a600
ld bc, $002f
call AddNTimes
ld d, h
ld e, l
pop hl
pop bc
ld a, $20
ld [wd265], a
.asm_44691
ld a, [de]
ld c, a
ld a, b
call GetFarByte
cp $50
jr z, .asm_446ab
cp c
ld a, $0
jr nz, .asm_446c1
inc hl
inc de
ld a, [wd265]
dec a
ld [wd265], a
jr nz, .asm_44691
.asm_446ab
callba Functione538
ld a, $4
jr c, .asm_446c1
xor a
ld [wd10b], a
callba Functione039
ld a, $1
.asm_446c1
call CloseSRAM
jr .asm_446c8
.asm_446c6
pop de
pop bc
.asm_446c8
ld [ScriptVar], a
ret
; 446cc
GivePokeItem:: ; 446cc
ld a, [PartyCount]
dec a
push af
push bc
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call AddNTimes
pop bc
ld [hl], b
pop af
push bc
push af
ld hl, $a600
ld bc, $002f
call AddNTimes
ld d, h
ld e, l
ld hl, wd002
ld bc, $0021
ld a, $0
call GetSRAMBank
call CopyBytes
pop af
push af
ld hl, PartyMonOT
ld bc, $000b
call AddNTimes
ld bc, $000a
call CopyBytes
pop af
ld hl, PartyMon1ID
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
ld a, [CurPartySpecies]
ld [de], a
inc de
pop bc
ld a, b
ld [de], a
jp CloseSRAM
; 44725
Function44725: ; 44725
ld a, $0
call GetSRAMBank
ld hl, $a600
ld de, $a71a
ld bc, $011a
call CopyBytes
ld hl, $a834
ld de, $aa0b
ld bc, $01d7
call CopyBytes
jp CloseSRAM
; 44745
Function44745: ; 44745 (11:4745)
ld a, $0
call GetSRAMBank
ld hl, $a71a
ld de, $a600
ld bc, $11a
call CopyBytes
ld hl, $aa0b
ld de, $a834
ld bc, $1d7
call CopyBytes
jp CloseSRAM
Function44765: ; 44765 (11:4765)
ld a, $0
call GetSRAMBank
xor a
ld hl, $a600
ld bc, $11a
call ByteFill
xor a
ld hl, $a834
ld bc, $1d7
call ByteFill
jp CloseSRAM
; 44781 (11:4781)
Function44781: ; 44781
ld a, [PartyCount]
and a
jr z, .asm_4479e
ld e, a
ld hl, PartyMon1Item
.asm_4478b
ld d, [hl]
push hl
push de
callba ItemIsMail
pop de
pop hl
ret c
ld bc, PartyMon2 - PartyMon1
add hl, bc
dec e
jr nz, .asm_4478b
.asm_4479e
and a
ret
; 447a0
_KrisMailBoxMenu: ; 0x447a0
call InitMail
jr z, .nomail
call Function1d6e
call Function44806
jp WriteBackup
.nomail
ld hl, .EmptyMailboxText
jp MenuTextBoxBackup
; 0x447b4
.EmptyMailboxText ; 0x447b4
TX_FAR _EmptyMailboxText
db "@"
InitMail: ; 0x447b9
; initialize wd0f2 and beyond with incrementing values, one per mail
; set z if no mail
ld a, $0
call GetSRAMBank
ld a, [$a834]
call CloseSRAM
ld hl, wd0f2
ld [hli], a
and a
jr z, .done ; if no mail, we're done
; load values in memory with incrementing values starting at wd0f2
ld b, a
ld a, $1
.loop
ld [hli], a
inc a
dec b
jr nz, .loop
.done
ld [hl], $ff ; terminate
ld a, [wd0f2]
and a
ret
; 0x447da
Function447da: ; 0x447da
dec a
ld hl, $a856
ld bc, $002f
call AddNTimes
ld a, $0
call GetSRAMBank
ld de, StringBuffer2
push de
ld bc, $a
call CopyBytes
ld a, $50
ld [de], a
call CloseSRAM
pop de
ret
; 0x447fb
Function447fb: ; 0x447fb
push de
ld a, [MenuSelection]
call Function447da
pop hl
jp PlaceString
; 0x44806
Function44806: ; 0x44806
xor a
ld [OBPals + 8 * 6], a
ld a, $1
ld [wd0f1], a
.asm_4480f
call InitMail
ld hl, MenuData4494c
call CopyMenuDataHeader
xor a
ld [hBGMapMode], a
call Function352f
call DrawOnMap
ld a, [wd0f1]
ld [wcf88], a
ld a, [OBPals + 8 * 6]
ld [wd0e4], a
call Function350c
ld a, [wd0e4]
ld [OBPals + 8 * 6], a
ld a, [wcfa9]
ld [wd0f1], a
ld a, [wcf73]
cp $2
jr z, .asm_44848
call Function4484a
jr .asm_4480f
.asm_44848
xor a
ret
; 0x4484a
Function4484a: ; 0x4484a
ld hl, MenuData44964
call LoadMenuDataHeader
call InterpretMenu2
call ExitMenu
jr c, .asm_44860
ld a, [wcfa9]
dec a
ld hl, .JumpTable
rst JumpTable
.asm_44860
ret
; 0x44861
.JumpTable
dw .ReadMail
dw .PutInPack
dw .AttachMail
dw .Cancel
.ReadMail ; 0x44869
call FadeToMenu
ld a, [MenuSelection]
dec a
ld b, a
call Function445f4
jp Function2b3c
; 0x44877
.PutInPack ; 0x44877
ld hl, .MessageLostText
call MenuTextBox
call YesNoBox
call ExitMenu
ret c
ld a, [MenuSelection]
dec a
call .Function448bb
ld a, $1
ld [wd10c], a
ld hl, NumItems
call ReceiveItem
jr c, .asm_4489e
ld hl, .PackFullText
jp MenuTextBoxBackup
.asm_4489e
ld a, [MenuSelection]
dec a
ld b, a
call Function445c0
ld hl, .PutAwayText
jp MenuTextBoxBackup
; 0x448ac
.PutAwayText ; 0x448ac
TX_FAR ClearedMailPutAwayText
db "@"
.PackFullText ; 0x448b1
TX_FAR MailPackFullText
db "@"
.MessageLostText ; 0x448b6
TX_FAR MailMessageLostText
db "@"
.Function448bb: ; 0x448bb
push af
ld a, $0
call GetSRAMBank
pop af
ld hl, $a863
ld bc, $002f
call AddNTimes
ld a, [hl]
ld [CurItem], a
jp CloseSRAM
; 0x448d2
.AttachMail ; 0x448d2
call FadeToMenu
xor a
ld [PartyMenuActionText], a
call WhiteBGMap
.asm_448dc
callba Function5004f
callba Function50405
callba Function503e0
callba WritePartyMenuTilemap
callba PrintPartyMenuText
call WaitBGMap
call Function32f9
call DelayFrame
callba PartyMenuSelect
jr c, .asm_44939
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_44923
ld a, PartyMon1Item - PartyMon1
call GetPartyParamLocation
ld a, [hl]
and a
jr z, .asm_4492b
ld hl, .HoldingMailText
call PrintText
jr .asm_448dc
.asm_44923
ld hl, .EggText
call PrintText
jr .asm_448dc
.asm_4492b
ld a, [MenuSelection]
dec a
ld b, a
call Function44607
ld hl, .MailMovedText
call PrintText
.asm_44939
jp Function2b3c
; 0x4493c
.HoldingMailText ; 0x4493c
TX_FAR MailAlreadyHoldingItemText
db "@"
.EggText ; 0x44941
TX_FAR MailEggText
db "@"
.MailMovedText ; 0x44946
TX_FAR MailMovedFromBoxText
db "@"
.Cancel
ret
MenuData4494c: ; 0x4494c
db %01000000 ; flags
db 1, 8 ; start coords
db $a, $12 ; end coords
dw .MenuData2
db 1 ; default option
.MenuData2
db %00010000 ; flags
db 4, 0 ; rows/columns?
db 1 ; horizontal spacing?
dbw 0,wd0f2 ; text pointer
dbw BANK(Function447fb), Function447fb
dbw 0,0
dbw 0,0
MenuData44964: ; 0x44964
db %01000000 ; flags
db 0, 0 ; start coords
db 9, $d ; end coords
dw .MenuData2
db 1 ; default option
.MenuData2
db %10000000 ; flags
db 4 ; items
db "READ MAIL@"
db "PUT IN PACK@"
db "ATTACH MAIL@"
db "CANCEL@"
SECTION "bank12", ROMX, BANK[$12]
Function48000: ; 48000
ld a, $1
ld [wd474], a
xor a
ld [wd473], a
ld [PlayerGender], a
ld [wd475], a
ld [wd476], a
ld [wd477], a
ld [wd478], a
ld [DefaultFlypoint], a
ld [wd003], a
ld a, [wd479]
res 0, a
ld [wd479], a
ld a, [wd479]
res 1, a
ld [wd479], a
ret
; 4802f
Function4802f: ; 4802f (12:402f)
xor a
set 6, a
ld [DefaultFlypoint], a
ld hl, wd003
set 0, [hl]
ld a, c
and a
call z, Function48000
call WhiteBGMap
call Function48d3d
ld a, [wd479]
bit 1, a
jr z, .asm_4805a
ld a, [wd003]
set 0, a
set 1, a
set 2, a
set 3, a
ld [wd003], a
.asm_4805a
call Function486bf
call Functione5f
ld de, GFX_488c3
ld hl, $9100
lb bc, BANK(GFX_488c3), 1
call Request1bpp
ld de, GFX_488cb
ld hl, $9110
lb bc, BANK(GFX_488cb), 1
call Request1bpp
call Function4a3a7
call WhiteBGMap
ld a, [DefaultFlypoint]
bit 6, a
jr z, .asm_4808a
call Function48689
jr .asm_480d7
.asm_4808a
ld a, $5
ld [MusicFade], a
ld a, MUSIC_MOBILE_ADAPTER_MENU % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_MOBILE_ADAPTER_MENU / $100
ld [MusicFadeIDHi], a
ld c, $14
call DelayFrames
ld b, $1
call Function4930f
call WhiteBGMap
hlcoord 0, 0
ld b, $2
ld c, $14
call ClearBox
hlcoord 0, 1
ld a, $c
ld [hl], a
ld bc, $13
add hl, bc
ld [hl], a
ld de, MobileProfileString
hlcoord 1, 1
call PlaceString
hlcoord 0, 2
ld b, $a
ld c, $12
call Function48cdc
hlcoord 2, 4
ld de, String_48482
call PlaceString
.asm_480d7
hlcoord 2, 6
ld de, String_48489
call PlaceString
hlcoord 2, 8
ld de, String_4848d
call PlaceString
hlcoord 2, 10
ld de, String_48495
call PlaceString
hlcoord 2, 12
ld de, String_4849e
call PlaceString
ld a, [DefaultFlypoint]
bit 6, a
jr nz, .asm_48113
ld a, [PlayerGender]
ld hl, Strings_484fb
call GetNthString
ld d, h
ld e, l
hlcoord 11, 4
call PlaceString
.asm_48113
hlcoord 11, 6
call Function487ec
ld a, [wd474]
dec a
ld hl, Prefectures
call GetNthString
ld d, h
ld e, l
hlcoord 11, 8
call PlaceString
hlcoord 11, 10
call Function489ea
hlcoord 0, 14
ld b, $2
ld c, $12
call TextBox
hlcoord 1, 16
ld de, String_48275
call PlaceString
call Function48187
call Function3200
call Function32f9
call Function1bc9
ld hl, wcfa9
ld b, [hl]
push bc
jr asm_4815f
Function48157: ; 48157 (12:4157)
call Function1bd3
ld hl, wcfa9
ld b, [hl]
push bc
asm_4815f: ; 4815f (12:415f)
bit 0, a
jp nz, Function4820d
ld b, a
ld a, [DefaultFlypoint]
bit 6, a
jr z, .asm_48177
ld hl, wd479
bit 1, [hl]
jr z, .asm_48177
bit 1, b
jr nz, .asm_4817a
.asm_48177
jp Function48272
.asm_4817a
call WhiteBGMap
call Function48d30
pop bc
call ClearTileMap
ld a, $ff
ret
Function48187: ; 48187 (12:4187)
ld a, [wd479]
bit 1, a
jr nz, .asm_481f1
ld a, [wd003]
ld d, a
call Function48725
jr c, .asm_481a2
ld bc, $104
hlcoord 2, 12
call ClearBox
jr .asm_481ad
.asm_481a2
push de
hlcoord 2, 12
ld de, String_4849e
call PlaceString
pop de
.asm_481ad
ld a, [DefaultFlypoint]
bit 6, a
jr nz, .asm_481c1
bit 0, d
jr nz, .asm_481c1
ld bc, $108
hlcoord 11, 4
call ClearBox
.asm_481c1
bit 1, d
jr nz, .asm_481ce
ld bc, $108
hlcoord 11, 6
call ClearBox
.asm_481ce
bit 2, d
jr nz, .asm_481db
ld bc, $208
hlcoord 11, 7
call ClearBox
.asm_481db
bit 3, d
jr nz, .asm_481f1
ld a, [wd479]
bit 0, a
jr nz, .asm_481f8
ld bc, $108
hlcoord 11, 10
call ClearBox
jr .asm_48201
.asm_481f1
ld a, [wd479]
bit 0, a
jr nz, .asm_48201
.asm_481f8
hlcoord 11, 10
ld de, String_48202
call PlaceString
.asm_48201
ret
; 48202 (12:4202)
String_48202: ; 48202
db "Tell Later@"
; 4820d
Function4820d: ; 4820d (12:420d)
call Function1bee
ld hl, wcfa9
ld a, [hl]
push af
ld a, [DefaultFlypoint]
bit 6, a
jr z, .asm_4821f
pop af
inc a
push af
.asm_4821f
pop af
cp $1
jr z, asm_4828d
cp $2
jp z, Function4876f
cp $3
jp z, Function48304
cp $4
jp z, Function488d3
ld a, $2
call Function1ff8
ld a, [DefaultFlypoint]
bit 6, a
jr z, .asm_4825c
jr .asm_4825c
; 48241 (12:4241)
hlcoord 1, 15
ld b, $2
ld c, $12
call ClearBox
ld de, String_484a1
hlcoord 1, 16
call PlaceString
call WaitBGMap
ld c, $30
call DelayFrames
.asm_4825c
call WhiteBGMap
call Function48d30
pop bc
call ClearTileMap
ld b, $8
call GetSGBLayout
ld hl, wd479
set 1, [hl]
xor a
ret
Function48272: ; 48272 (12:4272)
jp Function4840c
; 48275 (12:4275)
String_48275: ; 48275
db "Personal Info@"
; 48283
Function48283: ; 48283 (12:4283)
ld bc, $212
hlcoord 1, 15
call ClearBox
ret
asm_4828d: ; 4828d (12:428d)
call Function48283
hlcoord 1, 16
ld de, String_484b1
call PlaceString
ld hl, MenuDataHeader_0x484f1
call LoadMenuDataHeader
call Function4873c
hlcoord 11, 2
ld b, $4
ld c, $7
call Function48cdc
hlcoord 13, 4
ld de, String_484fb
call PlaceString
hlcoord 13, 6
ld de, String_484ff
call PlaceString
call WaitBGMap
ld a, [PlayerGender]
inc a
ld [wcf88], a
call Function1bc9
call PlayClickSFX
call ExitMenu
bit 0, a
jp z, Function4840c
ld hl, wcfa9
ld a, [hl]
ld hl, Strings_484fb
cp $1
jr z, .asm_482ed
.asm_482e1
ld a, [hli]
cp $50
jr nz, .asm_482e1
ld a, $1
ld [PlayerGender], a
jr .asm_482f1
.asm_482ed
xor a
ld [PlayerGender], a
.asm_482f1
ld d, h
ld e, l
hlcoord 11, 4
call PlaceString
ld a, [wd003]
set 0, a
ld [wd003], a
jp Function4840c
Function48304: ; 48304 (12:4304)
call Function48283
hlcoord 1, 16
ld de, String_484cf
call PlaceString
ld hl, MenuDataHeader_0x48504
call LoadMenuDataHeader
ld hl, MenuDataHeader_0x48513
call LoadMenuDataHeader
hlcoord 10, 0
ld b, $c
ld c, $8
call Function48cdc
ld a, [wcf88]
ld b, a
ld a, [wd0e4]
ld c, a
push bc
ld a, [wd474]
dec a
cp $29
jr c, .asm_4833f
sub $29
inc a
ld [wcf88], a
ld a, $29
.asm_4833f
ld [wd0e4], a
callba Function104148
.asm_48348
call Function350c
ld de, $629
call Function48383
jr c, .asm_48348
ld d, a
pop bc
ld a, b
ld [wcf88], a
ld a, c
ld [wd0e4], a
ld a, d
push af
call ExitMenu
call ExitMenu
pop af
ld a, [hJoyPressed] ; $ff00+$a7
bit 0, a
jr z, .asm_48377
call Function483bb
ld a, [wd003]
set 2, a
ld [wd003], a
.asm_48377
call Function48187
callba Function104148
jp Function4840c
Function48383: ; 48383 (12:4383)
push bc
push af
bit 5, a
jr nz, .asm_48390
bit 4, a
jr nz, .asm_4839f
and a
jr .asm_483b7
.asm_48390
ld a, [wd0e4]
sub d
ld [wd0e4], a
jr nc, .asm_483af
xor a
ld [wd0e4], a
jr .asm_483af
.asm_4839f
ld a, [wd0e4]
add d
ld [wd0e4], a
cp e
jr c, .asm_483af
ld a, e
ld [wd0e4], a
jr .asm_483af
.asm_483af
ld hl, wcfa9
ld a, [hl]
ld [wcf88], a
scf
.asm_483b7
pop bc
ld a, b
pop bc
ret
Function483bb: ; 483bb (12:43bb)
ld hl, wcf77
ld a, [hl]
inc a
ld [wd474], a
dec a
ld b, a
ld hl, Prefectures
.asm_483c8
and a
jr z, .asm_483d5
.asm_483cb
ld a, [hli]
cp "@"
jr nz, .asm_483cb
ld a, b
dec a
ld b, a
jr .asm_483c8
.asm_483d5
ld d, h
ld e, l
ld b, $2
ld c, $8
hlcoord 11, 7
call ClearBox
hlcoord 11, 8
call PlaceString
ret
; 483e8 (12:43e8)
Function483e8: ; 483e8
push de
ld hl, Prefectures
ld a, [MenuSelection]
cp $ff
jr nz, .asm_483f8
ld hl, Wakayama ; last string
jr .asm_48405
.asm_483f8
ld d, a
and a
jr z, .asm_48405
.asm_483fc
ld a, [hli]
cp "@"
jr nz, .asm_483fc
ld a, d
dec a
jr .asm_483f8
.asm_48405
ld d, h
ld e, l
pop hl
call PlaceString
ret
; 4840c
Function4840c: ; 4840c (12:440c)
call Function48187
call Function48283
hlcoord 1, 16
ld de, String_48275
call PlaceString
call Function486bf
pop bc
ld hl, wcfa9
ld [hl], b
ld a, [DefaultFlypoint]
bit 6, a
jr nz, .asm_48437
ld b, $9
ld c, $1
hlcoord 1, 4
call ClearBox
jp Function48157
.asm_48437
ld b, $7
ld c, $1
hlcoord 1, 6
call ClearBox
jp Function48157
Function48444: ; 48444 (12:4444)
push bc
push af
push de
push hl
ld hl, Unknown_4845d
.asm_4844b
and a
jr z, .asm_48453
rept 2
inc hl
endr
dec a
jr .asm_4844b
.asm_48453
ld d, h
ld e, l
pop hl
call PlaceString
pop de
pop af
pop bc
ret
; 4845d (12:445d)
Unknown_4845d: ; 4845d
; 4845d
db "0@"
db "1@"
db "2@"
db "3@"
db "4@"
db "5@"
db "6@"
db "7@"
db "8@"
db "9@"
; 48471
MobileProfileString: db " Mobile Profile@"
String_48482: db "Gender@"
String_48489: db "Age@"
String_4848d: db "Address@"
String_48495: db "Zip Code@"
String_4849e: db "OK@"
String_484a1: db "Profile Changed@"
String_484b1: db "Boy or girl?@"
String_484be: db "How old are you?@"
String_484cf: db "Where do you live?@"
String_484e2: db "Your zip code?@"
; 484f1
MenuDataHeader_0x484f1: ; 0x484f1
db $40 ; flags
db 02, 11 ; start coords
db 07, 19 ; end coords
dw MenuData2_0x484f9
db 1 ; default option
; 0x484f9
MenuData2_0x484f9: ; 0x484f9
db $a0 ; flags
db 2 ; items
Strings_484fb:
String_484fb: db "Boy@"
String_484ff: db "Girl@"
; 0x48504
MenuDataHeader_0x48504: ; 0x48504
db $40 ; flags
db 00, 10 ; start coords
db 17, 19 ; end coords
MenuDataHeader_0x48509: ; 0x48509
db $40 ; flags
db 05, 10 ; start coords
db 07, 19 ; end coords
MenuDataHeader_0x4850e: ; 0x4850e
db $40 ; flags
db 09, 10 ; start coords
db 11, 19 ; end coords
MenuDataHeader_0x48513: ; 0x48513
db $40 ; flags
db 01, 11 ; start coords
db 12, 18 ; end coords
dw MenuData2_0x4851b
db 1 ; default option
; 0x4851b
MenuData2_0x4851b: ; 0x4851b
db $1d ; flags
db 6 ; items
Unknown_4851d: ; 4851d
db $00, $01, $12, $2b, $45, $12, $e8, $43, $00, $00, $00, $00, $00, $00, $2e, $00, $01, $02, $03, $04
db $05, $06, $07, $08, $09, $0a, $0b, $0c, $0d, $0e, $0f, $10, $11, $12, $13, $14, $15, $16, $17, $18
db $19, $1a, $1b, $1c, $1d, $1e, $1f, $20, $21, $22, $23, $24, $25, $26, $27, $28, $29, $2a, $2b, $2c
db $2d, $ff
Prefectures:
Aichi: db "あいちけん@" ; Aichi
Aomori: db "あおもりけん@" ; Aomori
Akita: db "あきたけん@" ; Akita
Ishikawa: db "いしかわけん@" ; Ishikawa
Ibaraki: db "いばらきけん@" ; Ibaraki
Iwate: db "いわてけん@" ; Iwate
Ehime: db "えひめけん@" ; Ehime
Oita: db "おおいたけん@" ; Oita
Osakafu: db "おおさかふ@" ; Osakafu
Okayama: db "おかやまけん@" ; Okayama
Okinawa: db "おきなわけん@" ; Okinawa
Kagawa: db "かがわけん@" ; Kagawa
Kagoshima: db "かごしまけん@" ; Kagoshima
Kanagawa: db "かながわけん@" ; Kanagawa
Gifu: db "ぎふけん@" ; Gifu
Kyotofu: db "きょうとふ@" ; Kyotofu
Kumamoto: db "くまもとけん@" ; Kumamoto
Gunma: db "ぐんまけん@" ; Gunma
Kochi: db "こうちけん@" ; Kochi
Saitama: db "さいたまけん@" ; Saitama
Saga: db "さがけん@" ; Saga
Shiga: db "しがけん@" ; Shiga
Shizuoka: db "しずおかけん@" ; Shizuoka
Shimane: db "しまねけん@" ; Shimane
Chiba: db "ちばけん@" ; Chiba
Tokyo: db "とうきょうと@" ; Tokyo
Tokushima: db "とくしまけん@" ; Tokushima
Tochigi: db "とちぎけん@" ; Tochigi
Tottori: db "とっとりけん@" ; Tottori
Toyama: db "とやまけん@" ; Toyama
Nagasaki: db "ながさきけん@" ; Nagasaki
Nagano: db "ながのけん@" ; Nagano
Naraken: db "ならけん@" ; Naraken
Niigata: db "にいがたけん@" ; Niigata
Hyogo: db "ひょうごけん@" ; Hyogo
Hiroshima: db "ひろしまけん@" ; Hiroshima
Fukui: db "ふくいけん@" ; Fukui
Fukuoka: db "ふくおかけん@" ; Fukuoka
Fukushima: db "ふくしまけん@" ; Fukushima
Hokkaido: db "ほっかいどう@" ; Hokkaido
Mie: db "みえけん@" ; Mie
Miyagi: db "みやぎけん@" ; Miyagi
Miyazaki: db "みやざきけん@" ; Miyazaki
Yamagata: db "やまがたけん@" ; Yamagata
Yamaguchi: db "やまぐちけん@" ; Yamaguchi
Yamanashi: db "やまなしけん@" ; Yamanashi
Wakayama: db "わかやまけん@" ; Wakayama
; 48689
Function48689: ; 48689 (12:4689)
ld c, $7
call DelayFrames
ld b, $1
call Function4930f
call WhiteBGMap
hlcoord 0, 0
ld b, $4
ld c, $14
call ClearBox
hlcoord 0, 2
ld a, $c
ld [hl], a
ld bc, $13
add hl, bc
ld [hl], a
ld de, MobileProfileString
hlcoord 1, 2
call PlaceString
hlcoord 0, 4
ld b, $8
ld c, $12
call Function48cdc
ret
Function486bf: ; 486bf (12:46bf)
ld hl, wcfa1
ld a, [DefaultFlypoint]
bit 6, a
jr nz, .asm_486ce
ld a, $4
ld [hli], a
jr .asm_486d1
.asm_486ce
ld a, $6
ld [hli], a
.asm_486d1
ld a, $1
ld [hli], a
ld a, [DefaultFlypoint]
bit 6, a
jr nz, .asm_486e7
call Function48725
ld a, $4
jr nc, .asm_486e4
ld a, $5
.asm_486e4
ld [hli], a
jr .asm_486fb
.asm_486e7
ld a, [wd479]
bit 1, a
jr nz, .asm_486f8
call Function48725
jr c, .asm_486f8
ld a, $3
ld [hli], a
jr .asm_486fb
.asm_486f8
ld a, $4
ld [hli], a
.asm_486fb
ld a, $1
ld [hli], a
ld [hl], $0
set 5, [hl]
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
add $40
add $80
push af
ld a, [DefaultFlypoint]
bit 6, a
jr z, .asm_4871a
pop af
add $2
push af
.asm_4871a
pop af
ld [hli], a
ld a, $1
rept 2
ld [hli], a
endr
xor a
rept 3
ld [hli], a
endr
ret
Function48725: ; 48725 (12:4725)
ld a, [wd003]
bit 0, a
jr z, .asm_4873a
bit 1, a
jr z, .asm_4873a
bit 2, a
jr z, .asm_4873a
bit 3, a
jr z, .asm_4873a
scf
ret
.asm_4873a
and a
ret
Function4873c: ; 4873c (12:473c)
ld hl, wcfa1
ld a, $4
ld [hli], a
ld a, $c
ld [hli], a
ld a, $2
ld [hli], a
ld a, $1
ld [hli], a
ld [hl], $0
set 5, [hl]
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
add $2
ld [hli], a
ld a, [PlayerGender]
and a
jr z, .asm_48764
ld a, $2
jr .asm_48766
.asm_48764
ld a, $1
.asm_48766
ld [hli], a
ld a, $1
ld [hli], a
xor a
rept 3
ld [hli], a
endr
ret
Function4876f: ; 4876f (12:476f)
call Function48283
hlcoord 1, 16
ld de, String_484be
call PlaceString
ld hl, MenuDataHeader_0x48509
call LoadMenuDataHeader
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
hlcoord 10, 5
ld b, $1
ld c, $8
call Function48cdc
call WaitBGMap
ld a, [wd473]
and a
jr z, .asm_487ab
cp $64
jr z, .asm_487b2
hlcoord 12, 5
ld [hl], $10
hlcoord 12, 7
ld [hl], $11
jr .asm_487b7
.asm_487ab
hlcoord 12, 5
ld [hl], $10
jr .asm_487b7
.asm_487b2
hlcoord 12, 7
ld [hl], $11
.asm_487b7
hlcoord 11, 6
call Function487ec
ld c, $a
call DelayFrames
ld a, [wd473]
push af
.asm_487c6
call Functiona57
call Function4880e
jr nc, .asm_487c6
ld a, $1
call Function1ff8
pop bc
jr nz, .asm_487da
ld a, b
ld [wd473], a
.asm_487da
ld a, [wd473]
call ExitMenu
hlcoord 11, 6
call Function487ec
pop af
ld [$ffaa], a
jp Function4840c
Function487ec: ; 487ec (12:47ec)
push hl
ld de, wd473
call Function487ff
pop hl
rept 4
inc hl
endr
ld de, String_4880d
call PlaceString
ret
Function487ff: ; 487ff (12:47ff)
push hl
ld a, $7f
ld [hli], a
ld [hl], a
pop hl
ld b, $81
ld c, $3
call PrintNum
ret
; 4880d (12:480d)
String_4880d: ; 4880d
db "@"
; 4880e
Function4880e: ; 4880e (12:480e)
ld a, [hJoyPressed] ; $ff00+$a7
and A_BUTTON
jp nz, Function488b9
ld a, [hJoyPressed] ; $ff00+$a7
and B_BUTTON
jp nz, Function488b4
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .asm_48843
ld a, [hl]
and D_DOWN
jr nz, .asm_48838
ld a, [hl]
and D_LEFT
jr nz, .asm_4884f
ld a, [hl]
and D_RIGHT
jr nz, .asm_4885f
call DelayFrame
and a
ret
.asm_48838
ld hl, wd473
ld a, [hl]
and a
jr z, .asm_48840
dec a
.asm_48840
ld [hl], a
jr .asm_4886f
.asm_48843
ld hl, wd473
ld a, [hl]
cp $64
jr nc, .asm_4884c
inc a
.asm_4884c
ld [hl], a
jr .asm_4886f
.asm_4884f
ld a, [wd473]
cp $5b
jr c, .asm_48858
ld a, $5a
.asm_48858
add $a
ld [wd473], a
jr .asm_4886f
.asm_4885f
ld a, [wd473]
cp $a
jr nc, .asm_48868
ld a, $a
.asm_48868
sub $a
ld [wd473], a
jr .asm_4886f
.asm_4886f
ld a, [wd473]
and a
jr z, .asm_48887
cp $64
jr z, .asm_48898
jr z, .asm_488a7
hlcoord 12, 5
ld [hl], $10
hlcoord 12, 7
ld [hl], $11
jr .asm_488a7
.asm_48887
hlcoord 10, 5
ld b, $1
ld c, $8
call Function48cdc
hlcoord 12, 5
ld [hl], $10
jr .asm_488a7
.asm_48898
hlcoord 10, 5
ld b, $1
ld c, $8
call Function48cdc
hlcoord 12, 7
ld [hl], $11
.asm_488a7
hlcoord 11, 6
call Function487ec
call WaitBGMap
ld a, $1
and a
ret
Function488b4: ; 488b4 (12:48b4)
ld a, $0
and a
scf
ret
Function488b9: ; 488b9 (12:48b9)
ld a, [wd003]
set 1, a
ld [wd003], a
scf
ret
; 488c3 (12:48c3)
GFX_488c3: ; 488c3
INCBIN "gfx/unknown/0488c3.2bpp"
GFX_488cb: ; 488cb
INCBIN "gfx/unknown/0488cb.2bpp"
Function488d3: ; 488d3 (12:48d3)
call Function48283
hlcoord 1, 16
ld de, String_484e2
call PlaceString
call Function48a3a
jp c, Function4840c
ld hl, MenuDataHeader_0x4850e
call LoadMenuDataHeader
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
hlcoord 10, 9
ld b, $1
ld c, $8
call Function48cdc
ld a, [wd475]
and $f
ld d, $0
hlcoord 11, 10
call Function489ea
call WaitBGMap
ld a, [wd475]
ld b, a
ld a, [wd476]
ld c, a
ld a, [wd477]
ld d, a
ld a, [wd478]
ld e, a
push de
push bc
ld d, $0
ld b, $0
asm_48922: ; 48922 (12:4922)
push bc
call Functiona57
ld a, [hJoyDown] ; $ff00+$a8
and a
jp z, Function4896e
bit 0, a
jp nz, Function4896e
bit 1, a
jp nz, Function4896e
ld a, [DefaultFlypoint]
and $cf
res 7, a
ld [DefaultFlypoint], a
pop bc
inc b
ld a, b
cp $5
push bc
jr c, .asm_4894c
pop bc
ld b, $4
push bc
.asm_4894c
pop bc
push bc
ld a, b
cp $4
jr nz, asm_48972
ld c, $a
call DelayFrames
jr asm_48972
; 4895a (12:495a)
Function4895a: ; 4895a
ld a, [hJoyPressed]
and a
jr z, .asm_48965
pop bc
ld b, $1
push bc
jr asm_48972
.asm_48965
ld a, [$ffa9]
and a
jr z, asm_48972
pop bc
ld b, $1
push bc
Function4896e: ; 4896e (12:496e)
pop bc
ld b, $0
push bc
asm_48972: ; 48972 (12:4972)
call Function48ab5
push af
cp $f0
jr z, .asm_48994
cp $f
jr nz, .asm_48988
ld a, [DefaultFlypoint]
set 7, a
and $cf
ld [DefaultFlypoint], a
.asm_48988
hlcoord 11, 10
ld b, $0
ld c, d
add hl, bc
ld b, $3
call Function48c11
.asm_48994
call WaitBGMap
pop af
pop bc
jr nc, asm_48922
jr nz, .asm_489b1
pop bc
ld a, b
ld [wd475], a
ld a, c
ld [wd476], a
pop bc
ld a, b
ld [wd477], a
ld a, c
ld [wd478], a
jr .asm_489c5
.asm_489b1
push af
ld a, [wd479]
set 0, a
ld [wd479], a
ld a, [wd003]
set 3, a
ld [wd003], a
pop af
pop bc
pop bc
.asm_489c5
push af
push bc
push de
push hl
ld a, $1
call Function1ff8
pop hl
pop de
pop bc
pop af
call ExitMenu
hlcoord 11, 10
call Function489ea
hlcoord 11, 9
ld bc, $108
call ClearBox
pop af
ld [$ffaa], a
jp Function4840c
Function489ea: ; 489ea (12:49ea)
push de
ld a, [wd475]
and $f
call Function48444
ld a, [wd476]
and $f0
swap a
inc hl
call Function48444
ld a, [wd476]
and $f
inc hl
call Function48444
inc hl
ld de, String_48a38
call PlaceString
ld a, [wd477]
and $f0
swap a
inc hl
call Function48444
ld a, [wd477]
and $f
inc hl
call Function48444
ld a, [wd478]
and $f0
swap a
inc hl
call Function48444
ld a, [wd478]
and $f
inc hl
call Function48444
pop de
ret
; 48a38 (12:4a38)
String_48a38: ; 48a38
db "-@"
; 48a3a
Function48a3a: ; 48a3a (12:4a3a)
ld hl, MenuDataHeader_0x48a9c
call LoadMenuDataHeader
call Function4873c
ld a, $a
ld [wcfa1], a
ld a, $b
ld [wcfa2], a
ld a, $1
ld [wcfa9], a
hlcoord 10, 8
ld b, $4
ld c, $8
call Function48cdc
hlcoord 12, 10
ld de, String_48aa1
call PlaceString
call Function1bc9
push af
call PlayClickSFX
call ExitMenu
pop af
bit 1, a
jp nz, Function48a9a
ld a, [wcfa9]
cp $1
jr z, .asm_48a98
ld a, [wd003]
set 3, a
ld [wd003], a
ld a, [wd479]
res 0, a
ld [wd479], a
xor a
ld bc, $4
ld hl, wd475
call ByteFill
jr Function48a9a
.asm_48a98
and a
ret
Function48a9a: ; 48a9a (12:4a9a)
scf
ret
; 48a9c (12:4a9c)
MenuDataHeader_0x48a9c: ; 0x48a9c
db $40 ; flags
db 08, 10 ; start coords
db 13, 19 ; end coord
String_48aa1: ; 48aa1
db "Tell Now"
next "Tell Later@"
; 48ab5
Function48ab5: ; 48ab5 (12:4ab5)
ld a, [hJoyPressed] ; $ff00+$a7
and A_BUTTON
jp nz, Function48c0f
ld a, [hJoyPressed] ; $ff00+$a7
and B_BUTTON
jp nz, Function48c0d
ld a, d
and a
jr z, .asm_48adf
cp $1
jr z, .asm_48ae7
cp $2
jr z, .asm_48af1
cp $3
jr z, .asm_48af9
cp $4
jr z, .asm_48b03
cp $5
jr z, .asm_48b0b
cp $6
jr .asm_48b15
.asm_48adf
ld hl, wd475
ld a, [hl]
and $f
jr .asm_48b1d
.asm_48ae7
ld hl, wd476
ld a, [hl]
swap a
or $f0
jr .asm_48b1d
.asm_48af1
ld hl, wd476
ld a, [hl]
and $f
jr .asm_48b1d
.asm_48af9
ld hl, wd477
ld a, [hl]
swap a
or $f0
jr .asm_48b1d
.asm_48b03
ld hl, wd477
ld a, [hl]
and $f
jr .asm_48b1d
.asm_48b0b
ld hl, wd478
ld a, [hl]
swap a
or $f0
jr .asm_48b1d
.asm_48b15
ld hl, wd478
ld a, [hl]
and $f
jr .asm_48b1d
.asm_48b1d
push hl
push af
ld e, $0
hlcoord 11, 10
ld a, d
.asm_48b25
and a
jr z, .asm_48b2c
inc e
dec a
jr .asm_48b25
.asm_48b2c
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, .asm_48b8d
ld a, [hl]
and $80
jr nz, .asm_48b55
ld a, [hl]
and $20
jp nz, Function48bd7
ld a, [hl]
and $10
jr nz, .asm_48b9d
hlcoord 11, 10
call Function489ea
ld a, [DefaultFlypoint]
bit 7, a
jr nz, .asm_48b51
.asm_48b51
pop bc
pop bc
and a
ret
.asm_48b55
pop af
ld b, a
and $f
and a
ld a, b
jr nz, .asm_48b61
and $f0
add $a
.asm_48b61
dec a
.asm_48b62
push de
push af
hlcoord 10, 9
ld b, $1
ld c, $8
call Function48cdc
pop af
pop de
hlcoord 11, 10
ld b, a
ld a, d
cp $3
jr c, .asm_48b7a
inc hl
.asm_48b7a
ld a, b
pop hl
bit 7, a
jr z, .asm_48b85
call Function48c4d
jr .asm_48b88
.asm_48b85
call Function48c5a
.asm_48b88
ld a, $f0
jp Function48c00
.asm_48b8d
pop af
ld b, a
and $f
cp $9
ld a, b
jr c, .asm_48b9a
and $f0
add $ff
.asm_48b9a
inc a
jr .asm_48b62
.asm_48b9d
push de
hlcoord 10, 9
ld b, $1
ld c, $8
call Function48cdc
pop de
ld a, d
cp $6
jr nc, .asm_48baf
inc d
.asm_48baf
pop af
pop hl
ld b, a
ld a, d
cp $6
ld a, b
jr z, .asm_48bc4
bit 7, a
jr nz, .asm_48bc4
inc hl
ld a, [hl]
swap a
and $f
jr asm_48bc7
.asm_48bc4
ld a, [hl]
and $f
asm_48bc7: ; 48bc7 (12:4bc7)
hlcoord 11, 10
push af
ld a, d
cp $3
pop bc
ld a, b
jr c, .asm_48bd3
inc hl
.asm_48bd3
ld a, $f
jr Function48c00
Function48bd7: ; 48bd7 (12:4bd7)
push de
hlcoord 10, 9
ld b, $1
ld c, $8
call Function48cdc
pop de
ld a, d
and a
pop af
pop hl
ld b, a
ld a, d
and a
ld a, b
jr z, .asm_48bf3
bit 7, a
jr z, .asm_48bf8
dec d
dec hl
.asm_48bf3
ld a, [hl]
and $f
jr asm_48bc7
.asm_48bf8
dec d
ld a, [hl]
swap a
and $f
jr asm_48bc7
Function48c00: ; 48c00 (12:4c00)
push af
hlcoord 11, 10
call Function489ea
ld a, $1
and a
pop bc
ld a, b
ret
Function48c0d: ; 48c0d (12:4c0d)
xor a
and a
Function48c0f: ; 48c0f (12:4c0f)
scf
ret
Function48c11: ; 48c11 (12:4c11)
ld a, [DefaultFlypoint]
bit 7, a
jr z, .asm_48c20
ld a, d
cp $3
jr c, .asm_48c1e
inc hl
.asm_48c1e
ld [hl], $7f
.asm_48c20
ld a, [DefaultFlypoint]
swap a
and $3
inc a
cp b
jr nz, .asm_48c40
ld a, [DefaultFlypoint]
bit 7, a
jr z, .asm_48c3a
res 7, a
ld [DefaultFlypoint], a
xor a
jr .asm_48c40
.asm_48c3a
set 7, a
ld [DefaultFlypoint], a
xor a
.asm_48c40
swap a
ld b, a
ld a, [DefaultFlypoint]
and $cf
or b
ld [DefaultFlypoint], a
ret
Function48c4d: ; 48c4d (12:4c4d)
swap a
and $f0
push af
ld a, [hl]
and $f
ld [hl], a
pop af
or [hl]
ld [hl], a
ret
Function48c5a: ; 48c5a (12:4c5a)
push af
ld a, [hl]
and $f0
ld [hl], a
pop af
or [hl]
ld [hl], a
ret
Function48c63: ; 48c63
ld a, "@"
ld [de], a
ld a, c
cp $30
jr nc, .asm_48c8c
and a
jr z, .asm_48c8c
dec c
push de
ld h, d
ld l, e
ld a, "@"
ld b, 7
.asm_48c76
ld [hli], a
dec b
jr nz, .asm_48c76
ld hl, Prefectures
ld a, c
call GetNthString
.asm_48c81
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
cp "@"
jr nz, .asm_48c81
and a
pop de
ret
.asm_48c8c
scf
ret
; 48c8e
Function48c8e: ; 48c8e
ld hl, wd02a
ld d, h
ld e, l
callba Function48c63
hlcoord 10, 7
call PlaceString
call WaitBGMap
ret
; 48ca3
Function48ca3: ; 48ca3
push af
push bc
push de
push hl
ld b, 0
ld c, 0
ld d, 0
.asm_48cad
cp 100
jr c, .asm_48cb6
sub 100
inc b
jr .asm_48cad
.asm_48cb6
cp 10
jr c, .asm_48cbf
sub 10
inc c
jr .asm_48cb6
.asm_48cbf
cp 1
jr c, .asm_48cc7
dec a
inc d
jr .asm_48cbf
.asm_48cc7
ld a, b
call Function48444
inc hl
ld a, c
call Function48444
inc hl
ld a, d
call Function48444
pop hl
pop de
pop bc
pop af
ret
; 48cda
Function48cda: ; 48cda (12:4cda)
ld h, d
ld l, e
Function48cdc: ; 48cdc (12:4cdc)
push bc
push hl
call Function48cfd
pop hl
pop bc
ld de, AttrMap - TileMap
add hl, de
rept 2
inc b
endr
rept 2
inc c
endr
ld a, $0
.asm_48ced
push bc
push hl
.asm_48cef
ld [hli], a
dec c
jr nz, .asm_48cef
pop hl
ld de, $14
add hl, de
pop bc
dec b
jr nz, .asm_48ced
ret
Function48cfd: ; 48cfd (12:4cfd)
push hl
ld a, $4
ld [hli], a
inc a
call Function48d2a
inc a
ld [hl], a
pop hl
ld de, $14
add hl, de
.asm_48d0c
push hl
ld a, $7
ld [hli], a
ld a, $7f
call Function48d2a
ld [hl], $8
pop hl
ld de, $14
add hl, de
dec b
jr nz, .asm_48d0c
ld a, $9
ld [hli], a
ld a, $a
call Function48d2a
ld [hl], $b
ret
Function48d2a: ; 48d2a (12:4d2a)
ld d, c
.asm_48d2b
ld [hli], a
dec d
jr nz, .asm_48d2b
ret
Function48d30: ; 48d30 (12:4d30)
ld hl, wd475
call Function48d4a
ld hl, wd477
call Function48d4a
ret
Function48d3d: ; 48d3d (12:4d3d)
ld hl, wd475
call Function48d94
ld hl, wd477
call Function48d94
ret
Function48d4a: ; 48d4a (12:4d4a)
inc hl
ld a, [hl]
ld b, a
and $f
ld c, a
srl b
srl b
srl b
srl b
push bc
ld c, 10
ld a, b
call SimpleMultiply
pop bc
add c
ld [hld], a
xor a
ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand)
ld [$ffb5], a
ld a, [hl]
srl a
srl a
srl a
srl a
ld c, 10
call SimpleMultiply
ld b, a
ld a, [hli]
and $f
add b
ld [$ffb6], a
ld a, 100
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
call Multiply
ld a, [$ffb5]
ld b, a
ld a, [$ffb6]
ld c, a
ld e, [hl]
add e
ld c, a
ld a, b
adc $0
ld b, a
ld a, c
ld [hld], a
ld [hl], b
ret
Function48d94: ; 48d94 (12:4d94)
xor a
ld [$ffb3], a
ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand)
ld a, [hli]
ld [$ffb3], a
ld a, [hl]
ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand)
ld a, 100
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld b, 2
call Divide
ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier)
ld c, $a
call SimpleDivide
sla b
sla b
sla b
sla b
or b
ld [hld], a
ld a, [$ffb6]
ld c, 10
call SimpleDivide
sla b
sla b
sla b
sla b
or b
ld [hl], a
ret
Function48dcb: ; 48dcb (12:4dcb)
call Function48e14
call Function48e47
call Function48e64
call Function3200
call Function32f9
ld hl, UnknownText_0x48e0f
call PrintText
ld hl, MenuDataHeader_0x48dfc
call LoadMenuDataHeader
call Function3200
call InterpretMenu2
call WriteBackup
ld a, [wcfa9]
dec a
ld [PlayerGender], a
ld c, $a
call DelayFrames
ret
; 48dfc (12:4dfc)
MenuDataHeader_0x48dfc: ; 0x48dfc
db $40 ; flags
db 04, 06 ; start coords
db 09, 12 ; end coords
dw MenuData2_0x48e04
db 1 ; default option
; 0x48e04
MenuData2_0x48e04: ; 0x48e04
db $a1 ; flags
db 2 ; items
db "Boy@"
db "Girl@"
; 0x48e0f
UnknownText_0x48e0f: ; 0x48e0f
; Are you a boy? Or are you a girl?
text_jump UnknownText_0x1c0ca3
db "@"
; 0x48e14
Function48e14: ; 48e14 (12:4e14)
ld a, $10
ld [MusicFade], a
ld a, $0
ld [MusicFadeIDLo], a
ld a, $0
ld [MusicFadeIDHi], a
ld c, $8
call DelayFrames
call WhiteBGMap
call Function48000
call Functione5f
hlcoord 0, 0
ld bc, $168
ld a, $0
call ByteFill
hlcoord 0, 0, AttrMap
ld bc, $168
xor a
call ByteFill
ret
Function48e47: ; 48e47 (12:4e47)
ld hl, Palette_48e5c
ld de, Unkn1Pals
ld bc, $8
ld a, $5
call FarCopyWRAM
callba Function96a4
ret
; 48e5c (12:4e5c)
Palette_48e5c: ; 48e5c
RGB 31, 31, 31
RGB 09, 30, 31
RGB 01, 11, 31
RGB 00, 00, 00
; 48e64
Function48e64: ; 48e64 (12:4e64)
ld de, GFX_48e71
ld hl, $9000
lb bc, BANK(GFX_48e71), 1
call Get2bpp
ret
; 48e71 (12:4e71)
GFX_48e71: ; 48e71
INCBIN "gfx/unknown/048e71.2bpp"
Function48e81: ; 48e81
ld hl, PackFGFXPointers
rept 2
add hl, de
endr
ld a, [hli]
ld e, a
ld d, [hl]
ld hl, $9500
lb bc, BANK(PackFGFX), 15
call Request2bpp
ret
; 48e93
PackFGFXPointers: ; 48e93
dw PackFGFX + $f0 * 1
dw PackFGFX + $f0 * 3
dw PackFGFX + $f0 * 0
dw PackFGFX + $f0 * 2
; 48e9b
PackFGFX: ; 48e9b
INCBIN "gfx/misc/pack_f.2bpp"
; 4925b
Function4925b: ; 4925b
call FadeToMenu
call WhiteBGMap
call ClearScreen
call DelayFrame
ld b, $14
call GetSGBLayout
xor a
ld [wd142], a
call Function492a5
ld [wd265], a
ld [wd262], a
call GetMoveName
call CopyName1
callba Function2c7fb
jr c, .asm_4929c
jr .asm_49291
.asm_49289
callba Function2c80a
jr c, .asm_4929c
.asm_49291
call Function492b9
jr nc, .asm_49289
xor a
ld [ScriptVar], a
jr .asm_492a1
.asm_4929c
ld a, $ff
ld [ScriptVar], a
.asm_492a1
call Function2b3c
ret
; 492a5
Function492a5: ; 492a5
ld a, [ScriptVar]
cp $1
jr z, .asm_492b3
cp $2
jr z, .asm_492b6
ld a, ICE_BEAM
ret
.asm_492b3
ld a, FLAMETHROWER
ret
.asm_492b6
ld a, THUNDERBOLT
ret
; 492b9
Function492b9: ; 492b9
ld hl, MenuDataHeader_0x4930a
call LoadMenuDataHeader
predef CanLearnTMHMMove
push bc
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
call GetNick
pop bc
ld a, c
and a
jr nz, .can_learn
push de
ld de, SFX_WRONG
call PlaySFX
pop de
ld a, BANK(UnknownText_0x2c8ce)
ld hl, UnknownText_0x2c8ce
call FarPrintText
jr .didnt_learn
.can_learn
callab KnowsMove
jr c, .didnt_learn
predef LearnMove
ld a, b
and a
jr z, .didnt_learn
ld c, $5
callab ChangeHappiness
jr .learned
.didnt_learn
call ExitMenu
and a
ret
.learned
call ExitMenu
scf
ret
; 4930a
MenuDataHeader_0x4930a: ; 0x4930a
db $40 ; flags
db 12, 00 ; start coords
db 17, 19 ; end coords
; 4930f
Function4930f: ; 4930f (12:530f)
ld a, b
cp $ff
jr nz, .asm_49317
ld a, [SGBPredef]
.asm_49317
push af
callba Function9673
pop af
ld l, a
ld h, 0
add hl, hl
ld de, Jumptable_49330
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .done
push de
jp [hl]
.done
ret
; 49330 (12:5330)
Jumptable_49330: ; 49330
dw Function4936e
dw Function4942f
dw Function49706
; 49336
Function49336: ; 49336
.asm_49336
push bc
push hl
.asm_49338
ld [hli], a
dec c
jr nz, .asm_49338
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .asm_49336
ret
; 49346
Function49346: ; 49346 (12:5346)
hlcoord 0, 0, AttrMap
ld bc, $168
xor a
call ByteFill
ret
Function49351: ; 49351 (12:5351)
ld de, Unkn1Pals
ld hl, Palette_493e1
ld bc, $28
ld a, $5 ; BANK(Unkn1Pals)
call FarCopyWRAM
ld de, Unkn1Pals + $38
ld hl, Palette_49418
ld bc, $8
ld a, $5 ; BANK(Unkn1Pals)
call FarCopyWRAM
ret
Function4936e: ; 4936e (12:536e)
call Function49351
call Function49346
call Function49384
callba Function96b3
callba Function96a4
ret
Function49384: ; 49384 (12:5384)
hlcoord 0, 0, AttrMap
ld bc, $401
ld a, $1
call Function49336
ld bc, $201
ld a, $2
call Function49336
ld bc, $601
ld a, $3
call Function49336
hlcoord 1, 0, AttrMap
ld a, $1
ld bc, $312
call Function49336
ld bc, $212
ld a, $2
call Function49336
ld bc, $c12
ld a, $3
call Function49336
hlcoord 19, 0, AttrMap
ld bc, $401
ld a, $1
call Function49336
ld bc, $201
ld a, $2
call Function49336
ld bc, $601
ld a, $3
call Function49336
hlcoord 0, 12, AttrMap
ld bc, $78
ld a, $7
call ByteFill
ret
; 493e1 (12:53e1)
Palette_493e1: ; 493e1
RGB 03, 07, 09
RGB 26, 31, 00
RGB 20, 16, 03
RGB 31, 31, 31
RGB 13, 24, 29
RGB 11, 16, 30
RGB 07, 11, 22
RGB 05, 06, 18
RGB 31, 31, 31
RGB 20, 26, 31
RGB 13, 24, 29
RGB 11, 16, 30
RGB 31, 31, 31
RGB 20, 26, 31
RGB 00, 00, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 20, 16, 08
RGB 31, 00, 00
RGB 00, 00, 00
; 49409
Function49409:: ; 49409
ld hl, Palette_49418
ld de, Unkn1Pals + 8 * 7
ld bc, $0008
ld a, $5
call FarCopyWRAM
ret
; 49418
Palette_49418: ; 49418
RGB 31, 31, 31
RGB 08, 19, 28
RGB 05, 05, 16
RGB 00, 00, 00
; 49420
Function49420:: ; 49420 (12:5420)
ld hl, MansionPalette4
ld de, Unkn1Pals + $30
ld bc, $8
ld a, $5 ; BANK(Unkn1Pals)
call FarCopyWRAM
ret
; 4942f (12:542f)
Function4942f: ; 4942f
call Function49351
ld de, Unkn1Pals + $38
ld hl, Palette_49478
ld bc, $8
ld a, $5 ; BANK(Unkn1Pals)
call FarCopyWRAM
call Function49346
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
hlcoord 0, 14, AttrMap
ld bc, $0050
ld a, $7
call ByteFill
ld a, [DefaultFlypoint]
bit 6, a
jr z, .asm_49464
call Function49480
jr .asm_49467
.asm_49464
call Function49496
.asm_49467
callba Function96b3
callba Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 49478
Palette_49478: ; 49478
RGB 31, 31, 31
RGB 26, 31, 00
RGB 20, 16, 03
RGB 00, 00, 00
; 49480
Function49480: ; 49480
hlcoord 0, 0, AttrMap
ld bc, $0414
ld a, $7
call Function49336
hlcoord 0, 2, AttrMap
ld a, $4
ld [hl], a
hlcoord 19, 2, AttrMap
ld [hl], a
ret
; 49496
Function49496: ; 49496
hlcoord 0, 0, AttrMap
ld bc, $0214
ld a, $7
call Function49336
hlcoord 0, 1, AttrMap
ld a, $4
ld [hl], a
hlcoord 19, 1, AttrMap
ld [hl], a
ret
; 494ac
Function494ac: ; 494ac
ld a, [wd199]
cp $15
jr z, .pokecom_2f
cp $16
jr z, .battle_tower
cp $1d
jr z, .ice_path
cp $5
jr z, .house
cp $1b
jr z, .radio_tower
cp $d
jr z, .mansion_mobile
jr .do_nothing
.pokecom_2f
call LoadPokeComPalette
scf
ret
.battle_tower
call LoadBattleTowerPalette
scf
ret
.ice_path
ld a, [wPermission] ; permission
and 7
cp 3 ; Hall of Fame
jr z, .do_nothing
call LoadIcePathPalette
scf
ret
.house
call LoadHousePalette
scf
ret
.radio_tower
call LoadRadioTowerPalette
scf
ret
.mansion_mobile
call LoadMansionPalette
scf
ret
.do_nothing
and a
ret
; 494f2
LoadPokeComPalette: ; 494f2
ld a, $5
ld de, Unkn1Pals
ld hl, PokeComPalette
ld bc, $0040
call FarCopyWRAM
ret
; 49501
PokeComPalette: ; 49501
INCLUDE "tilesets/pokecom.pal"
; 49541
LoadBattleTowerPalette: ; 49541
ld a, $5
ld de, Unkn1Pals
ld hl, BattleTowerPalette
ld bc, $0040
call FarCopyWRAM
ret
; 49550
BattleTowerPalette: ; 49550
INCLUDE "tilesets/battle_tower.pal"
; 49590
LoadIcePathPalette: ; 49590
ld a, $5
ld de, Unkn1Pals
ld hl, IcePathPalette
ld bc, $0040
call FarCopyWRAM
ret
; 4959f
IcePathPalette: ; 4959f
INCLUDE "tilesets/ice_path.pal"
; 495df
LoadHousePalette: ; 495df
ld a, $5
ld de, Unkn1Pals
ld hl, HousePalette
ld bc, $0040
call FarCopyWRAM
ret
; 495ee
HousePalette: ; 495ee
INCLUDE "tilesets/house.pal"
; 4962e
LoadRadioTowerPalette: ; 4962e
ld a, $5
ld de, Unkn1Pals
ld hl, RadioTowerPalette
ld bc, $0040
call FarCopyWRAM
ret
; 4963d
RadioTowerPalette: ; 4963d
INCLUDE "tilesets/radio_tower.pal"
; 4967d
MansionPalette1: ; 4967d
RGB 30, 28, 26
RGB 19, 19, 19
RGB 13, 13, 13
RGB 07, 07, 07
RGB 30, 28, 26
RGB 31, 19, 24
RGB 30, 10, 06
RGB 07, 07, 07
RGB 18, 24, 09
RGB 15, 20, 01
RGB 09, 13, 00
RGB 07, 07, 07
RGB 30, 28, 26
RGB 15, 16, 31
RGB 09, 09, 31
RGB 07, 07, 07
RGB 30, 28, 26
RGB 31, 31, 07
RGB 31, 16, 01
RGB 07, 07, 07
RGB 26, 24, 17
RGB 21, 17, 07
RGB 16, 13, 03
RGB 07, 07, 07
MansionPalette3: ; 496ad
RGB 30, 28, 26
RGB 17, 19, 31
RGB 14, 16, 31
RGB 07, 07, 07
RGB 31, 31, 16
RGB 31, 31, 16
RGB 14, 09, 00
RGB 00, 00, 00
; 496bd
MansionPalette4: ; 496bd
RGB 05, 05, 16
RGB 08, 19, 28
RGB 00, 00, 00
RGB 31, 31, 31
; 496c5
LoadMansionPalette: ; 496c5
ld a, $5
ld de, Unkn1Pals
ld hl, MansionPalette1
ld bc, $0040
call FarCopyWRAM
ld a, $5
ld de, Unkn1Pals + $20
ld hl, MansionPalette2
ld bc, $0008
call FarCopyWRAM
ld a, $5
ld de, Unkn1Pals + $18
ld hl, MansionPalette3
ld bc, $0008
call FarCopyWRAM
ld a, $5
ld de, Unkn1Pals + $30
ld hl, MansionPalette4
ld bc, $0008
call FarCopyWRAM
ret
; 496fe
MansionPalette2: ; 496fe
RGB 25, 24, 23
RGB 20, 19, 19
RGB 14, 16, 31
RGB 07, 07, 07
; 49706
Function49706: ; 49706
ld hl, Palette_49732
ld de, Unkn1Pals
ld bc, $0008
ld a, $5
call FarCopyWRAM
callba Function96a4
call Function49346
callba Function96b3
ld hl, Palette_4973a
ld de, Unkn2Pals
ld bc, $0008
ld a, $5
call FarCopyWRAM
ret
; 49732
Palette_49732: ; 49732
RGB 31, 31, 31
RGB 23, 16, 07
RGB 23, 07, 07
RGB 03, 07, 20
; 4973a
Palette_4973a: ; 4973a
RGB 00, 00, 00
RGB 07, 05, 31
RGB 14, 18, 31
RGB 31, 31, 31
; 49742
Function49742: ; 49742
ld hl, Palette_49757
ld de, Unkn1Pals
ld bc, $0040
ld a, $5
call FarCopyWRAM
callba Function96a4
ret
; 49757
Palette_49757: ; 49757
RGB 31, 31, 63
RGB 00, 00, 00
RGB 00, 00, 00
RGB 00, 00, 00
RGB 31, 31, 63
RGB 00, 00, 00
RGB 00, 00, 00
RGB 00, 00, 00
RGB 04, 02, 15
RGB 21, 00, 21
RGB 31, 00, 00
RGB 31, 31, 31
RGB 04, 02, 15
RGB 21, 00, 21
RGB 30, 16, 26
RGB 31, 31, 31
RGB 04, 02, 15
RGB 21, 00, 21
RGB 16, 16, 16
RGB 31, 31, 31
RGB 04, 02, 15
RGB 21, 00, 21
RGB 31, 12, 12
RGB 31, 31, 31
RGB 04, 02, 15
RGB 21, 00, 21
RGB 07, 08, 31
RGB 31, 31, 31
RGB 04, 02, 15
RGB 21, 00, 21
RGB 29, 28, 09
RGB 31, 31, 31
; 49797
Function49797: ; 49797
hlcoord 0, 0, AttrMap
ld bc, $1002
ld a, $4
call Function49336
ld a, $3
ld [AttrMap + 0 + 1 * SCREEN_WIDTH], a ; (0, 1)
ld [AttrMap + 0 + 14 * SCREEN_WIDTH], a ; (0, 14)
hlcoord 2, 0, AttrMap
ld bc, $0812
ld a, $5
call Function49336
hlcoord 2, 8, AttrMap
ld bc, $0812
ld a, $6
call Function49336
hlcoord 0, 16, AttrMap
ld bc, $0214
ld a, $4
call Function49336
ld a, $3
ld bc, $0601
hlcoord 6, 1, AttrMap
call Function49336
ld a, $3
ld bc, $0601
hlcoord 17, 1, AttrMap
call Function49336
ld a, $3
ld bc, $0601
hlcoord 6, 9, AttrMap
call Function49336
ld a, $3
ld bc, $0601
hlcoord 17, 9, AttrMap
call Function49336
ld a, $2
hlcoord 2, 16, AttrMap
ld [hli], a
ld a, $7
rept 3
ld [hli], a
endr
ld a, $2
ld [hl], a
hlcoord 2, 17, AttrMap
ld a, $3
ld bc, $0006
call ByteFill
ret
; 49811
Function49811: ; 49811
ld hl, Palette_49826
ld de, wd010
ld bc, $0030
ld a, $5
call FarCopyWRAM
callba Function96a4
ret
; 49826
Palette_49826: ; 49826
RGB 04, 02, 15
RGB 07, 09, 31
RGB 31, 00, 00
RGB 31, 31, 31
RGB 04, 02, 15
RGB 07, 09, 31
RGB 15, 23, 30
RGB 31, 31, 31
RGB 04, 02, 15
RGB 07, 09, 31
RGB 16, 16, 16
RGB 31, 31, 31
RGB 04, 02, 15
RGB 07, 09, 31
RGB 25, 07, 04
RGB 31, 31, 31
RGB 04, 02, 15
RGB 07, 09, 31
RGB 03, 22, 08
RGB 31, 31, 31
RGB 04, 02, 15
RGB 07, 09, 31
RGB 29, 28, 09
RGB 31, 31, 31
; 49856
Function49856: ; 49856
call Function49797
ret
; 4985a
Unknown_4985a: ; unreferenced
db $ab, $03, $57, $24, $ac, $0e, $13, $32
db $be, $30, $5b, $4c, $47, $60, $ed, $f2
db $ab, $03, $55, $26, $aa, $0a, $13, $3a
db $be, $28, $33, $24, $6e, $71, $df, $b0
db $a8, $00, $e5, $e0, $9a, $fc, $f4, $2c
db $fe, $4c, $a3, $5e, $c6, $3a, $ab, $4d
db $a8, $00, $b5, $b0, $de, $e8, $fc, $1c
db $ba, $66, $f7, $0e, $ba, $5e, $43, $bd
Function4989a: ; 4989a
call DelayFrame
ld a, [VramState]
push af
xor a
ld [VramState], a
call Function49912
ld de, $0750
ld a, $2c
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $84
ld hl, $0002
add hl, bc
ld [hl], $1f
ld hl, $000f
add hl, bc
ld a, $80
ld [hl], a
ld a, $a0
ld [wcf64], a
ld d, $0
.loop
ld a, [wcf63]
bit 7, a
jr nz, .done
push bc
call Function49bae
inc d
push de
ld a, $90
ld [wc3b5], a
callba Function8cf7a
call Function49935
ld c, $2
call DelayFrames
pop de
pop bc
jr .loop
.done
pop af
ld [VramState], a
call Function498f9
call Function49bf3
ret
; 498f9
Function498f9: ; 498f9
ld hl, Sprites + 2
xor a
ld c, $4
.loop
ld [hli], a
rept 3
inc hl
endr
inc a
dec c
jr nz, .loop
ld hl, Sprites + $10
ld bc, $0090
xor a
call ByteFill
ret
; 49912
Function49912: ; 49912
callba Function8cf53
ld de, SpecialCelebiLeafGFX
ld hl, VTiles1
lb bc, BANK(SpecialCelebiLeafGFX), 4
call Request2bpp
ld de, SpecialCelebiGFX
ld hl, $8840
lb bc, BANK(SpecialCelebiGFX), $10
call Request2bpp
xor a
ld [wcf63], a
ret
; 49935
Function49935: ; 49935
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_4993e
dec [hl]
ret
.asm_4993e
ld hl, wcf63
set 7, [hl]
ret
; 49944
Function49944: ; 49944
ld hl, wcf65
ld a, [hl]
inc [hl]
and $7
ret nz
ld a, [hl]
and $18
sla a
add $40
ld d, a
ld e, $0
ld a, $18
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $80
ret
; 49962
SpecialCelebiLeafGFX: ; 49962
INCBIN "gfx/special/celebi/leaf.2bpp"
SpecialCelebiGFX: ; 499a2
INCBIN "gfx/special/celebi/1.2bpp"
INCBIN "gfx/special/celebi/2.2bpp"
INCBIN "gfx/special/celebi/3.2bpp"
INCBIN "gfx/special/celebi/4.2bpp"
Function49aa2: ; 49aa2 (12:5aa2)
ld hl, $6
add hl, bc
ld a, [hl]
push af
ld hl, $5
add hl, bc
ld a, [hl]
cp $52
jp nc, Function49b30
ld hl, $5
add hl, bc
inc [hl]
ld hl, $f
add hl, bc
ld a, [hl]
ld d, a
cp $3a
jr c, .asm_49ac6
jr z, .asm_49ac6
sub $3
ld [hl], a
.asm_49ac6
ld hl, $e
add hl, bc
ld a, [hl]
inc [hl]
call Function49b3b
ld hl, $6
add hl, bc
ld [hl], a
ld d, a
ld hl, $4
add hl, bc
add [hl]
cp $5c
jr nc, .asm_49ae2
cp $44
jr nc, .asm_49b0d
.asm_49ae2
pop af
push af
cp d
jr nc, .asm_49af2
ld hl, $4
add hl, bc
add [hl]
cp $50
jr c, .asm_49b05
jr .asm_49afb
.asm_49af2
ld hl, $4
add hl, bc
add [hl]
cp $50
jr nc, .asm_49b05
.asm_49afb
ld hl, $5
add hl, bc
ld a, [hl]
sub $2
ld [hl], a
jr .asm_49b0d
.asm_49b05
ld hl, $5
add hl, bc
ld a, [hl]
add $1
ld [hl], a
.asm_49b0d
pop af
ld hl, $4
add hl, bc
add [hl]
cp $50
jr c, .asm_49b26
cp $e6
jr nc, .asm_49b26
ld hl, $1
add hl, bc
ld a, $41
call Function3b3c
jr .asm_49b2f
.asm_49b26
ld hl, $1
add hl, bc
ld a, $40
call Function3b3c
.asm_49b2f
ret
Function49b30: ; 49b30 (12:5b30)
pop af
ld hl, $1
add hl, bc
ld a, $40
call Function3b3c
ret
Function49b3b: ; 49b3b (12:5b3b)
add $10
and $3f
cp $20
jr nc, .asm_49b48
call Function49b52
ld a, h
ret
.asm_49b48
and $1f
call Function49b52
ld a, h
xor $ff
inc a
ret
Function49b52: ; 49b52 (12:5b52)
ld e, a
ld a, d
ld d, $0
ld hl, Unknown_49b6e
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld hl, $0
.asm_49b61
srl a
jr nc, .asm_49b66
add hl, de
.asm_49b66
sla e
rl d
and a
jr nz, .asm_49b61
ret
; 49b6e (12:5b6e)
Unknown_49b6e: ; 49b6e
sine_wave $100
; 49bae
Function49bae: ; 49bae
push hl
push bc
push de
ld a, d
ld d, $3
ld e, d
cp $0
jr z, .asm_49bd0
cp d
jr z, .asm_49bd4
call Function49bed
cp d
jr z, .asm_49bd8
call Function49bed
cp d
jr z, .asm_49bdc
call Function49bed
cp d
jr c, .asm_49be9
jr .asm_49be5
.asm_49bd0
ld a, $84
jr .asm_49bde
.asm_49bd4
ld a, $88
jr .asm_49bde
.asm_49bd8
ld a, $8c
jr .asm_49bde
.asm_49bdc
ld a, $90
.asm_49bde
ld hl, $0003
add hl, bc
ld [hl], a
jr .asm_49be9
.asm_49be5
pop de
ld d, $ff
push de
.asm_49be9
pop de
pop bc
pop hl
ret
; 49bed
Function49bed: ; 49bed
push af
ld a, d
add e
ld d, a
pop af
ret
; 49bf3
Function49bf3: ; 49bf3
ld a, BATTLETYPE_CELEBI
ld [BattleType], a
ret
; 49bf9
Function49bf9: ; 49bf9
ld a, [wd0ee]
bit 6, a
jr z, .asm_49c07
ld a, $1
ld [ScriptVar], a
jr .asm_49c0b
.asm_49c07
xor a
ld [ScriptVar], a
.asm_49c0b
ret
; 49c0c
GFX_49c0c: ; 49c0c
INCBIN "gfx/unknown/049c0c.2bpp"
; 49cdc
MainMenu: ; 49cdc
xor a
ld [wc2d7], a
call Function49ed0
ld b, $8
call GetSGBLayout
call Function32f9
ld hl, GameTimerPause
res 0, [hl]
call Function49da4
ld [wcf76], a
call Function49e09
ld hl, MenuDataHeader_0x49d14
call LoadMenuDataHeader
call Function49de4
call WriteBackup
jr c, .quit
call ClearTileMap
ld a, [MenuSelection]
ld hl, Jumptable_49d60
rst JumpTable
jr MainMenu
.quit
ret
; 49d14
MenuDataHeader_0x49d14: ; 49d14
db $40 ; flags
db 00, 00 ; start coords
db 07, 16 ; end coords
dw MenuData2_0x49d1c
db 1 ; default option
; 49d1c
MenuData2_0x49d1c: ; 49d1c
db $80 ; flags
db 0 ; items
dw MainMenuItems
dw Function1f79
dw MainMenuText
; 49d20
MainMenuText: ; 49d24
db "CONTINUE@"
db "NEW GAME@"
db "OPTION@"
db "MYSTERY GIFT@"
db "MOBILE@"
db "MOBILE STUDIUM@"
Jumptable_49d60: ; 0x49d60
dw MainMenu_Continue
dw MainMenu_NewGame
dw MainMenu_Options
dw MainMenu_MysteryGift
dw MainMenu_Mobile
dw MainMenu_MobileStudium
; 0x49d6c
CONTINUE EQU 0
NEW_GAME EQU 1
OPTION EQU 2
MYSTERY_GIFT EQU 3
MOBILE EQU 4
MOBILE_STUDIUM EQU 5
MainMenuItems:
NewGameMenu: ; 0x49d6c
db 2
db NEW_GAME
db OPTION
db $ff
ContinueMenu: ; 0x49d70
db 3
db CONTINUE
db NEW_GAME
db OPTION
db $ff
MobileMysteryMenu: ; 0x49d75
db 5
db CONTINUE
db NEW_GAME
db OPTION
db MYSTERY_GIFT
db MOBILE
db $ff
MobileMenu: ; 0x49d7c
db 4
db CONTINUE
db NEW_GAME
db OPTION
db MOBILE
db $ff
MobileStudiumMenu: ; 0x49d82
db 5
db CONTINUE
db NEW_GAME
db OPTION
db MOBILE
db MOBILE_STUDIUM
db $ff
MysteryMobileStudiumMenu: ; 0x49d89
db 6
db CONTINUE
db NEW_GAME
db OPTION
db MYSTERY_GIFT
db MOBILE
db MOBILE_STUDIUM
db $ff
MysteryMenu: ; 0x49d91
db 4
db CONTINUE
db NEW_GAME
db OPTION
db MYSTERY_GIFT
db $ff
MysteryStudiumMenu: ; 0x49d97
db 5
db CONTINUE
db NEW_GAME
db OPTION
db MYSTERY_GIFT
db MOBILE_STUDIUM
db $ff
StudiumMenu: ; 0x49d9e
db 4
db CONTINUE
db NEW_GAME
db OPTION
db MOBILE_STUDIUM
db $ff
Function49da4: ; 49da4
nop
nop
nop
ld a, [wcfcd]
and a
jr nz, .next
ld a, $0
ret
.next
ld a, [hCGB]
cp $1
ld a, $1
ret nz
ld a, $0
call GetSRAMBank
ld a, [$abe5]
cp $ff
call CloseSRAM
jr nz, .done
ld a, [StatusFlags]
bit 7, a
ld a, $1
jr z, .ok
jr .ok
.ok
jr .ok2
.ok2
ld a, $1
ret
.done
ld a, [StatusFlags]
bit 7, a
jr z, .ok3
jr .ok3
.ok3
jr .ok4
.ok4
ld a, $6
ret
; 49de4
Function49de4: ; 49de4
call SetUpMenu
.asm_49de7
call Function49e09
ld a, [wcfa5]
set 5, a
ld [wcfa5], a
call Function1f1a
ld a, [wcf73]
cp $2
jr z, .asm_49e07
cp $1
jr z, .asm_49e02
jr .asm_49de7
.asm_49e02
call PlayClickSFX
and a
ret
.asm_49e07
scf
ret
; 49e09
Function49e09: ; 49e09
ld a, [wcfcd]
and a
ret z
xor a
ld [hBGMapMode], a
call Function49e27
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call Function49e3d
pop af
ld [Options], a
ld a, $1
ld [hBGMapMode], a
ret
; 49e27
Function49e27: ; 49e27
call Function6e3
and $80
jr nz, .asm_49e39
hlcoord 0, 14
ld b, $2
ld c, $12
call TextBox
ret
.asm_49e39
call SpeechTextBox
ret
; 49e3d
Function49e3d: ; 49e3d
ld a, [wcfcd]
and a
ret z
call Function6e3
and $80
jp nz, Function49e75
call UpdateTime
call GetWeekday
ld b, a
decoord 1, 15
call Function49e91
decoord 4, 16
ld a, [hHours]
ld c, a
callba Function90b3e
ld [hl], ":"
inc hl
ld de, hMinutes
ld bc, $8102
call PrintNum
ret
; 49e70
; 49e70
db "min.@"
; 49e75
Function49e75: ; 49e75
hlcoord 1, 14
ld de, .TimeNotSet
call PlaceString
ret
; 49e7f
.TimeNotSet ; 49e7f
db "TIME NOT SET@"
; 49e8c
UnknownText_0x49e8c: ; 49e8c
text_jump UnknownText_0x1c5182
db "@"
; 49e91
Function49e91: ; 49e91
push de
ld hl, .Days
ld a, b
call GetNthString
ld d, h
ld e, l
pop hl
call PlaceString
ld h, b
ld l, c
ld de, .Day
call PlaceString
ret
; 49ea8
.Days
db "SUN@"
db "MON@"
db "TUES@"
db "WEDNES@"
db "THURS@"
db "FRI@"
db "SATUR@"
.Day
db "DAY@"
; 49ed0
Function49ed0: ; 49ed0
xor a
ld [$ffde], a
call ClearTileMap
call Functione5f
call Functione51
call Function1fbf
ret
; 49ee0
MainMenu_NewGame: ; 49ee0
callba NewGame
ret
; 49ee7
MainMenu_Options: ; 49ee7
callba OptionsMenu
ret
; 49eee
MainMenu_Continue: ; 49eee
callba Continue
ret
; 49ef5
MainMenu_MysteryGift: ; 49ef5
callba MysteryGift
ret
; 49efc
MainMenu_Mobile: ; 49efc
call WhiteBGMap
ld a, MUSIC_MOBILE_ADAPTER_MENU
ld [wMapMusic], a
ld de, MUSIC_MOBILE_ADAPTER_MENU
call Function4a6c5
Function49f0a: ; 49f0a
call WhiteBGMap
call Function4a3a7
call Function4a492
call WhiteBGMap
Function49f16: ; 49f16
call Function4a071
ld c, $c
call DelayFrames
hlcoord 4, 0
ld b, $a
ld c, $a
call Function48cdc
hlcoord 6, 2
ld de, MobileString1
call PlaceString
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
xor a
ld de, String_0x49fe9
hlcoord 1, 14
call PlaceString
call Function3200
call Function32f9
call Function1bc9
ld hl, wcfa9
ld b, [hl]
push bc
jr .asm_49f5d
.asm_49f55
call Function1bd3
ld hl, wcfa9
ld b, [hl]
push bc
.asm_49f5d
bit 0, a
jr nz, .asm_49f67
bit 1, a
jr nz, .asm_49f84
jr .asm_49f97
.asm_49f67
ld hl, wcfa9
ld a, [hl]
cp $1
jp z, Function4a098
cp $2
jp z, Function4a0b9
cp $3
jp z, Function4a0c2
cp $4
jp z, Function4a100
ld a, $1
call Function1ff8
.asm_49f84
pop bc
call WhiteBGMap
call ClearTileMap
ld a, MUSIC_MAIN_MENU
ld [wMapMusic], a
ld de, MUSIC_MAIN_MENU
call Function4a6c5
ret
.asm_49f97
ld hl, wcfa9
ld a, [hl]
dec a
ld hl, MobileStrings2
call GetNthString
ld d, h
ld e, l
hlcoord 1, 13
ld b, $4
ld c, $12
call ClearBox
hlcoord 1, 14
call PlaceString
jp .asm_49fb7
.asm_49fb7
call Function4a071
pop bc
ld hl, wcfa9
ld [hl], b
ld b, $a
ld c, $1
hlcoord 5, 1
call ClearBox
jp .asm_49f55
; 49fcc
MobileString1: ; 49fcc
db "めいしフ,ルダー"
next "あいさつ"
next "プロフィール"
next "せ", $1e, "い"
next "もどる"
db "@"
; 49fe9
MobileStrings2:
String_0x49fe9: ; 49fe9
db "めいし", $1f, "つくったり"
next "ほぞんしておける フ,ルダーです@"
; 4a004
String_0x4a004: ; 4a004
db "モバイルたいせんや じぶんのめいしで"
next "つかう あいさつ", $1f, "つくります@"
; 4a026
String_0x4a026: ; 4a026
db "あなた", $25, "じゅうしょや ねんれいの"
next "せ", $1e, "い", $1f, "かえられます@"
; 4a042
String_0x4a042: ; 4a042
db "モバイルセンター", $1d, "せつぞくするとき"
next "ひつような こと", $1f, "きめます@"
; 4a062
String_0x4a062: ; 4a062
db "まえ", $25, "がめん ", $1d, "もどります"
next "@"
; 4a071
Function4a071: ; 4a071 (12:6071)
ld hl, wcfa1
ld a, $2
ld [hli], a
ld a, $5
ld [hli], a
ld a, $5
ld [hli], a
ld a, $1
ld [hli], a
ld [hl], $0
set 5, [hl]
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
add $40
add $80
add $2
ld [hli], a
ld a, $1
rept 2
ld [hli], a
endr
ret
Function4a098: ; 4a098 (12:6098)
ld a, $2
call Function1ff8
call Function1bee
call WaitBGMap
call Function1d6e
callba Function89de0
call Function1d7d
call Function49351
call Function4a485
pop bc
jp Function49f16
Function4a0b9: ; 4a0b9 (12:60b9)
ld a, $2
call Function1ff8
pop bc
jp Function4a4c4
Function4a0c2: ; 4a0c2 (12:60c2)
ld a, $2
call Function1ff8
ld a, $1
call GetSRAMBank
ld hl, $a00b
ld de, PlayerName
ld bc, $6
call CopyBytes
call CloseSRAM
callba Function150b9
ld c, $2
call DelayFrames
ld c, $1
call Function4802f
push af
call WhiteBGMap
pop af
and a
jr nz, .asm_4a0f9
callba Function1509a
.asm_4a0f9
ld c, $5
call DelayFrames
jr asm_4a111
Function4a100: ; 4a100 (12:6100)
ld a, $2
call Function1ff8
call WhiteBGMap
call Function4a13b
call WhiteBGMap
call ClearTileMap
asm_4a111: ; 4a111 (12:6111)
pop bc
call Functione5f
jp Function49f0a
Function4a118: ; 4a118 (12:6118)
ld hl, wcfa1
ld a, $1
ld [hli], a
ld a, $d
ld [hli], a
ld a, $3
ld [hli], a
ld a, $1
ld [hli], a
ld [hl], $0
set 5, [hl]
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
add $2
ld [hli], a
ld a, $1
rept 2
ld [hli], a
endr
ret
Function4a13b: ; 4a13b (12:613b)
call Function4a3a7
call Function4a492
call Function4a373
ld c, $a
call DelayFrames
Function4a149: ; 4a149 (12:6149)
hlcoord 1, 2
ld b, $6
ld c, $10
call Function48cdc
hlcoord 3, 4
ld de, String_4a1ef
call PlaceString
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld a, [wcfa9]
dec a
ld hl, Strings_4a23d
call GetNthString
ld d, h
ld e, l
hlcoord 1, 13
ld b, $4
ld c, $12
call ClearBox
hlcoord 1, 14
call PlaceString
callba Function104148
call Function32f9
call Function1bc9
ld hl, wcfa9
ld b, [hl]
push bc
jr asm_4a19d
Function4a195: ; 4a195 (12:6195)
call Function1bd3
ld hl, wcfa9
ld b, [hl]
push bc
asm_4a19d: ; 4a19d (12:619d)
bit 0, a
jr nz, .asm_4a1a7
bit 1, a
jr nz, .asm_4a1ba
jr .asm_4a1bc
.asm_4a1a7
ld hl, wcfa9
ld a, [hl]
cp $1
jp z, Function4a20e
cp $2
jp z, Function4a221
ld a, $1
call Function1ff8
.asm_4a1ba
pop bc
ret
.asm_4a1bc
ld hl, wcfa9
ld a, [hl]
dec a
ld hl, Strings_4a23d
call GetNthString
ld d, h
ld e, l
hlcoord 1, 13
ld b, $4
ld c, $12
call ClearBox
hlcoord 1, 14
call PlaceString
jr .asm_4a1db
.asm_4a1db
call Function4a373
pop bc
ld hl, wcfa9
ld [hl], b
ld bc, $601
hlcoord 2, 3
call ClearBox
jp Function4a195
; 4a1ef (12:61ef)
String_4a1ef: ; 4a1ef
db "モバイルセンター", $1f, "えらぶ"
next "ログインパスワード", $1f, "いれる"
next "もどる@"
; 4a20e
Function4a20e: ; 4a20e (12:620e)
ld a, $1
call Function1ff8
callba Function1719c8
call WhiteBGMap
call DelayFrame
jr Function4a239
Function4a221: ; 4a221 (12:6221)
ld a, $1
call Function1ff8
call Function4a28a
jr c, Function4a239
call Function4a373
ld a, $2
ld [wcfa9], a
jr .asm_4a235
.asm_4a235
pop bc
jp Function4a149
Function4a239: ; 4a239 (12:6239)
pop bc
jp Function4a13b
; 4a23d (12:623d)
Strings_4a23d: ; 4a23d
db "いつも せつぞく", $1f, "する"
next "モバイルセンター", $1f, "えらびます@"
db "モバイルセンター", $1d, "せつぞくするとき"
next "つかうパスワード", $1f, "ほぞんできます@"
db "まえ", $25, "がめん ", $1d, "もどります@"
db "@"
; 4a28a
Function4a28a: ; 4a28a (12:628a)
hlcoord 2, 3
ld bc, $601
ld a, $7f
call Function4a6d8
call Function1bee
call WaitBGMap
call Function1d6e
ld a, $5
call GetSRAMBank
ld a, [$aa4b]
call CloseSRAM
and a
jr z, .asm_4a2df
hlcoord 12, 0
ld b, $5
ld c, $6
call Function48cdc
hlcoord 14, 1
ld de, String_4a34b
call PlaceString
callba Function104148
call Function4a118
call Function1bd3
push af
call PlayClickSFX
pop af
bit 1, a
jr nz, .asm_4a33b
ld a, [wcfa9]
cp $2
jr z, .asm_4a2f0
cp $3
jr z, .asm_4a33b
.asm_4a2df
callba Function11765d
call WhiteBGMap
call Function1d7d
call Functione5f
scf
ret
.asm_4a2f0
call Function1bee
ld hl, UnknownText_0x4a358
call PrintText
hlcoord 14, 7
ld b, $3
ld c, $4
call TextBox
callba Function104148
ld hl, MenuDataHeader_0x4a362
call LoadMenuDataHeader
call InterpretMenu2
bit 1, a
jr nz, .asm_4a338
ld a, [wcfa9]
cp $2
jr z, .asm_4a338
ld a, $5
call GetSRAMBank
ld hl, $aa4b
xor a
ld bc, $11
call ByteFill
call CloseSRAM
ld hl, UnknownText_0x4a35d
call PrintText
call Functiona36
.asm_4a338
call ExitMenu
.asm_4a33b
call Function1d7d
callba Function104148
xor a
ret
; 4a346 (12:6346)
MenuDataHeader_0x4a346: ; 0x4a346
db $40 ; flags
db 00, 12 ; start coords
db 06, 19 ; end coords
String_4a34b: ; 4a34b
db "いれなおす"
next "けす"
next "もどる@"
; 4a358
UnknownText_0x4a358: ; 0x4a358
; Delete the saved LOG-IN PASSWORD?
text_jump UnknownText_0x1c5196
db "@"
; 0x4a35d
UnknownText_0x4a35d: ; 0x4a35d
; Deleted the LOG-IN PASSWORD.
text_jump UnknownText_0x1c51b9
db "@"
; 0x4a362
MenuDataHeader_0x4a362: ; 0x4a362
db $40 ; flags
db 07, 14 ; start coords
db 11, 19 ; end coords
dw MenuData2_0x4a36a
db 2 ; default option
; 0x4a36a
MenuData2_0x4a36a: ; 0x4a36a
db $e0 ; flags
db 2 ; items
db "はい@"
db "いいえ@"
; 0x4a373
Function4a373: ; 4a373 (12:6373)
ld hl, wcfa1
ld a, $4
ld [hli], a
ld a, $2
ld [hli], a
ld a, $3
ld [hli], a
ld a, $1
ld [hli], a
ld [hl], $0
set 5, [hl]
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
add $40
add $80
add $2
ld [hli], a
ld a, $1
rept 2
ld [hli], a
endr
ret
; 4a39a (12:639a)
Function4a39a: ; 4a39a
call Function4a485
call Function4a492
call Function4a3aa
call Function32f9
ret
; 4a3a7
Function4a3a7: ; 4a3a7 (12:63a7)
call Function4a485
Function4a3aa: ; 4a3aa
hlcoord 0, 0
ld bc, $301
xor a
call Function4a6d8
ld bc, $101
ld a, $1
call Function4a6d8
ld bc, $101
xor a
call Function4a6d8
ld bc, $101
ld a, $1
call Function4a6d8
ld bc, $401
ld a, $2
call Function4a6d8
ld bc, $101
ld a, $3
call Function4a6d8
ld bc, $101
ld a, $7f
call Function4a6d8
hlcoord 1, 0
ld a, $1
ld bc, $312
call Function4a6d8
ld bc, $112
ld a, $0
call Function4a6d8
ld bc, $112
ld a, $1
call Function4a6d8
ld bc, $112
ld a, $2
call Function4a6d8
ld bc, $b12
ld a, $7f
call Function4a6d8
hlcoord 19, 0
ld bc, $301
ld a, $0
call Function4a6d8
ld bc, $101
ld a, $1
call Function4a6d8
ld bc, $101
xor a
call Function4a6d8
ld bc, $101
ld a, $1
call Function4a6d8
ld bc, $401
ld a, $2
call Function4a6d8
ld bc, $101
ld a, $3
call Function4a6d8
ld bc, $101
ld a, $7f
call Function4a6d8
ret
; 4a449 (12:6449)
Function4a449: ; 4a449
ld bc, $003c
ld a, $0
hlcoord 0, 0
call ByteFill
ld bc, $0028
ld a, $1
call ByteFill
ld bc, $0028
ld a, $0
call ByteFill
ld bc, $0028
ld a, $1
call ByteFill
ld bc, SCREEN_WIDTH
ld a, $2
call ByteFill
ld bc, SCREEN_WIDTH
ld a, $3
call ByteFill
ld bc, SCREEN_WIDTH
ld a, $7f
call ByteFill
ret
; 4a485
Function4a485: ; 4a485 (12:6485)
ld de, GFX_49c0c
ld hl, $9000
lb bc, BANK(GFX_49c0c), $d
call Get2bpp
ret
Function4a492: ; 4a492 (12:6492)
call Function4936e
ret
MainMenu_MobileStudium: ; 4a496
ld a, [StartDay]
ld b, a
ld a, [StartHour]
ld c, a
ld a, [StartMinute]
ld d, a
ld a, [StartSecond]
ld e, a
push bc
push de
callba MobileStudium
call WhiteBGMap
pop de
pop bc
ld a, b
ld [StartDay], a
ld a, c
ld [StartHour], a
ld a, d
ld [StartMinute], a
ld a, e
ld [StartSecond], a
ret
; 4a4c4
Function4a4c4: ; 4a4c4 (12:64c4)
call WhiteBGMap
call Function4a3a7
call Function4a492
call Function4a680
call WhiteBGMap
ld c, $14
call DelayFrames
hlcoord 2, 0
ld b, $a
ld c, $e
call Function48cdc
hlcoord 4, 2
ld de, String_4a5c5
call PlaceString
hlcoord 4, 4
ld de, String_4a5cd
call PlaceString
hlcoord 4, 6
ld de, String_4a5da
call PlaceString
hlcoord 4, 8
ld de, String_4a5e6
call PlaceString
hlcoord 4, 10
ld de, String_4a5f2
call PlaceString
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
xor a
ld hl, Strings_4a5f6
ld d, h
ld e, l
hlcoord 1, 14
call PlaceString
ld a, $1
ld hl, Strings_4a5f6
call GetNthString
ld d, h
ld e, l
hlcoord 1, 16
call PlaceString
call Function3200
call Function32f9
call Function1bc9
ld hl, wcfa9
ld b, [hl]
push bc
jr asm_4a54d
Function4a545: ; 4a545 (12:6545)
call Function1bd3
ld hl, wcfa9
ld b, [hl]
push bc
asm_4a54d: ; 4a54d (12:654d)
bit 0, a
jr nz, .asm_4a557
bit 1, a
jr nz, .asm_4a574
jr .asm_4a57e
.asm_4a557
ld hl, wcfa9
ld a, [hl]
cp $1
jp z, Function4a6ab
cp $2
jp z, Function4a6ab
cp $3
jp z, Function4a6ab
cp $4
jp z, Function4a6ab
ld a, $1
call Function1ff8
.asm_4a574
pop bc
call WhiteBGMap
call ClearTileMap
jp Function49f0a
.asm_4a57e
ld hl, wcfa9
ld a, [hl]
dec a
add a
push af
ld hl, Strings_4a5f6
call GetNthString
ld d, h
ld e, l
hlcoord 1, 13
ld b, $4
ld c, $12
call ClearBox
hlcoord 1, 14
call PlaceString
pop af
inc a
ld hl, Strings_4a5f6
call GetNthString
ld d, h
ld e, l
hlcoord 1, 16
call PlaceString
jp Function4a5b0
Function4a5b0: ; 4a5b0 (12:65b0)
call Function4a680
pop bc
ld hl, wcfa9
ld [hl], b
ld b, $a
ld c, $1
hlcoord 3, 1
call ClearBox
jp Function4a545
; 4a5c5 (12:65c5)
String_4a5c5: ; 4a5c5
db "じこしょうかい@"
String_4a5cd: ; 4a5cd
db "たいせん ", $4a, "はじまるとき@"
String_4a5da: ; 4a5da
db "たいせん ", $1d, "かったとき@"
String_4a5e6: ; 4a5e6
db "たいせん ", $1d, "まけたとき@"
String_4a5f2: ; 4a5f2
db "もどる@"
; 4a5f6
Strings_4a5f6: ; 4a5f6
db "めいし や ニュース ", $1d, "のせる@"
db "あなた", $25, "あいさつです@"
db "モバイル たいせん", $4a, "はじまるとき@"
db "あいて", $1d, "みえる あいさつです@"
db "モバイル たいせんで かったとき@"
db "あいて", $1d, "みえる あいさつです@"
db "モバイル たいせんで まけたとき@"
db "あいて", $1d, "みえる あいさつです@"
db "まえ", $25, "がめん ", $1d, "もどります@"
db "@"
; 4a680
Function4a680: ; 4a680 (12:6680)
ld hl, wcfa1
ld a, $2
ld [hli], a
ld a, $3
ld [hli], a
ld a, $5
ld [hli], a
ld a, $1
ld [hli], a
ld [hl], $0
set 5, [hl]
inc hl
xor a
ld [hli], a
ld a, $20
ld [hli], a
ld a, $1
add $40
add $80
add $2
ld [hli], a
ld a, $1
rept 2
ld [hli], a
endr
xor a
rept 3
ld [hli], a
endr
ret
Function4a6ab: ; 4a6ab (12:66ab)
ld a, $2
call Function1ff8
call WhiteBGMap
ld b, $8
call GetSGBLayout
callba Function11c1ab
pop bc
call Functione5f
jp Function4a4c4
Function4a6c5: ; 4a6c5 (12:66c5)
ld a, $5
ld [MusicFade], a
ld a, e
ld [MusicFadeIDLo], a
ld a, d
ld [MusicFadeIDHi], a
ld c, $16
call DelayFrames
ret
Function4a6d8: ; 4a6d8 (12:66d8)
push bc
push hl
.asm_4a6da
ld [hli], a
dec c
jr nz, .asm_4a6da
pop hl
ld bc, $14
add hl, bc
pop bc
dec b
jr nz, Function4a6d8
ret
SpecialBeastsCheck: ; 0x4a6e8
; Check if the player owns all three legendary beasts.
; They must exist in either party or PC, and have the player's OT and ID.
; Return the result in ScriptVar.
ld a, RAIKOU
ld [ScriptVar], a
call CheckOwnMonAnywhere
jr nc, .notexist
ld a, ENTEI
ld [ScriptVar], a
call CheckOwnMonAnywhere
jr nc, .notexist
ld a, SUICUNE
ld [ScriptVar], a
call CheckOwnMonAnywhere
jr nc, .notexist
; they exist
ld a, 1
ld [ScriptVar], a
ret
.notexist
xor a
ld [ScriptVar], a
ret
SpecialMonCheck: ; 0x4a711
; Check if the player owns any monsters of the species in ScriptVar.
; Return the result in ScriptVar.
call CheckOwnMonAnywhere
jr c, .exists
; doesn't exist
xor a
ld [ScriptVar], a
ret
.exists
ld a, 1
ld [ScriptVar], a
ret
CheckOwnMonAnywhere: ; 0x4a721
; Check if the player owns any monsters of the species in ScriptVar.
; It must exist in either party or PC, and have the player's OT and ID.
; If there are no monsters in the party,
; the player must not own any yet.
ld a, [PartyCount]
and a
ret z
ld d, a
ld e, 0
ld hl, PartyMon1Species
ld bc, PartyMonOT
; Run CheckOwnMon on each Pokémon in the party.
.partymon
call CheckOwnMon
ret c ; found!
push bc
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop bc
call UpdateOTPointer
dec d
jr nz, .partymon
; Run CheckOwnMon on each Pokémon in the PC.
ld a, 1
call GetSRAMBank
ld a, [sBoxCount]
and a
jr z, .boxes
ld d, a
ld hl, sBoxMon1Species
ld bc, sBoxMonOT
.openboxmon
call CheckOwnMon
jr nc, .loop
; found!
call CloseSRAM
ret
.loop
push bc
ld bc, sBoxMon2 - sBoxMon1
add hl, bc
pop bc
call UpdateOTPointer
dec d
jr nz, .openboxmon
; Run CheckOwnMon on each monster in the other 13 PC boxes.
.boxes
call CloseSRAM
ld c, 0
.box
; Don't search the current box again.
ld a, [wCurBox]
and $f
cp c
jr z, .loopbox
; Load the box.
ld hl, BoxAddressTable1
ld b, 0
rept 3
add hl, bc
endr
ld a, [hli]
call GetSRAMBank
ld a, [hli]
ld h, [hl]
ld l, a
; Number of monsters in the box
ld a, [hl]
and a
jr z, .loopbox
push bc
push hl
ld de, sBoxMons - sBoxCount
add hl, de
ld d, h
ld e, l
pop hl
push de
ld de, sBoxMonOT - sBoxCount
add hl, de
ld b, h
ld c, l
pop hl
ld d, a
.boxmon
call CheckOwnMon
jr nc, .loopboxmon
; found!
pop bc
call CloseSRAM
ret
.loopboxmon
push bc
ld bc, sBoxMon2 - sBoxMon1
add hl, bc
pop bc
call UpdateOTPointer
dec d
jr nz, .boxmon
pop bc
.loopbox
inc c
ld a, c
cp NUM_BOXES
jr c, .box
; not found
call CloseSRAM
and a
ret
CheckOwnMon: ; 0x4a7ba
; Check if a Pokémon belongs to the player and is of a specific species.
; inputs:
; hl, pointer to PartyMonNSpecies
; bc, pointer to PartyMonNOT
; ScriptVar should contain the species we're looking for
; outputs:
; sets carry if monster matches species, ID, and OT name.
push bc
push hl
push de
ld d, b
ld e, c
; check species
ld a, [ScriptVar] ; species we're looking for
ld b, [hl] ; species we have
cp b
jr nz, .notfound ; species doesn't match
; check ID number
ld bc, PartyMon1ID - PartyMon1Species
add hl, bc ; now hl points to ID number
ld a, [PlayerID]
cp [hl]
jr nz, .notfound ; ID doesn't match
inc hl
ld a, [PlayerID + 1]
cp [hl]
jr nz, .notfound ; ID doesn't match
; check OT
; This only checks five characters, which is fine for the Japanese version,
; but in the English version the player name is 7 characters, so this is wrong.
ld hl, PlayerName
rept 4
ld a, [de]
cp [hl]
jr nz, .notfound
cp "@"
jr z, .found ; reached end of string
inc hl
inc de
endr
ld a, [de]
cp [hl]
jr z, .found
.notfound
pop de
pop hl
pop bc
and a
ret
.found
pop de
pop hl
pop bc
scf
ret
; 0x4a810
BoxAddressTable1: ; 4a810
; bank, address
dbw $02, $a000
dbw $02, $a450
dbw $02, $a8a0
dbw $02, $acf0
dbw $02, $b140
dbw $02, $b590
dbw $02, $b9e0
dbw $03, $a000
dbw $03, $a450
dbw $03, $a8a0
dbw $03, $acf0
dbw $03, $b140
dbw $03, $b590
dbw $03, $b9e0
; 4a83a
UpdateOTPointer: ; 0x4a83a
push hl
ld hl, NAME_LENGTH
add hl, bc
ld b, h
ld c, l
pop hl
ret
; 0x4a843
MobileCheckOwnMonAnywhere: ; 4a843
; Like CheckOwnMonAnywhere, but only check for species.
; OT/ID don't matter.
ld a, [PartyCount]
and a
ret z
ld d, a
ld e, 0
ld hl, PartyMon1Species
ld bc, PartyMonOT
.asm_4a851
call Function4a8dc
ret c
push bc
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop bc
call Function4a91e
dec d
jr nz, .asm_4a851
ld a, 1
call GetSRAMBank
ld a, [sBoxCount]
and a
jr z, .asm_4a888
ld d, a
ld hl, sBoxMon1Species
ld bc, sBoxMonOT
.asm_4a873
call Function4a8dc
jr nc, .asm_4a87c
call CloseSRAM
ret
.asm_4a87c
push bc
ld bc, sBoxMon2 - sBoxMon1
add hl, bc
pop bc
call Function4a91e
dec d
jr nz, .asm_4a873
.asm_4a888
call CloseSRAM
ld c, 0
.asm_4a88d
ld a, [wCurBox]
and $f
cp c
jr z, .asm_4a8d1
ld hl, BoxAddressTable2
ld b, 0
rept 3
add hl, bc
endr
ld a, [hli]
call GetSRAMBank
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
and a
jr z, .asm_4a8d1
push bc
push hl
ld de, sBoxMons - sBoxCount
add hl, de
ld d, h
ld e, l
pop hl
push de
ld de, sBoxMonOT - sBoxCount
add hl, de
ld b, h
ld c, l
pop hl
ld d, a
.asm_4a8ba
call Function4a8dc
jr nc, .asm_4a8c4
pop bc
call CloseSRAM
ret
.asm_4a8c4
push bc
ld bc, sBoxMon2 - sBoxMon1
add hl, bc
pop bc
call Function4a91e
dec d
jr nz, .asm_4a8ba
pop bc
.asm_4a8d1
inc c
ld a, c
cp NUM_BOXES
jr c, .asm_4a88d
call CloseSRAM
and a
ret
; 4a8dc
Function4a8dc: ; 4a8dc
push bc
push hl
push de
ld d, b
ld e, c
ld a, [ScriptVar]
ld b, [hl]
cp b
jr nz, .no_match
jr .match
.no_match
pop de
pop hl
pop bc
and a
ret
.match
pop de
pop hl
pop bc
scf
ret
; 4a8f4
BoxAddressTable2: ; 4a8f4
; bank, address
dbw $02, $a000
dbw $02, $a450
dbw $02, $a8a0
dbw $02, $acf0
dbw $02, $b140
dbw $02, $b590
dbw $02, $b9e0
dbw $03, $a000
dbw $03, $a450
dbw $03, $a8a0
dbw $03, $acf0
dbw $03, $b140
dbw $03, $b590
dbw $03, $b9e0
; 4a91e
Function4a91e: ; 4a91e
push hl
ld hl, NAME_LENGTH
add hl, bc
ld b, h
ld c, l
pop hl
ret
; 4a927
Function4a927: ; 4a927
ld a, [ScriptVar]
ld [CurItem], a
ld hl, PCItems
call CheckItem
jr c, .asm_4a948
ld a, [ScriptVar]
ld [CurItem], a
ld hl, NumItems
call CheckItem
jr c, .asm_4a948
xor a
ld [ScriptVar], a
ret
.asm_4a948
ld a, 1
ld [ScriptVar], a
ret
; 4a94e
Function4a94e: ; 4a94e
call FadeToMenu
ld a, $ff
ld hl, DefaultFlypoint
ld bc, $0003
call ByteFill
xor a
ld [wd018], a
ld [wd019], a
ld b, $14
call GetSGBLayout
call Function32f9
call Function4aa22
jr c, .asm_4a985
jr z, .asm_4a9a1
jr .asm_4a97b
.asm_4a974
call Function4aa25
jr c, .asm_4a985
jr z, .asm_4a9a1
.asm_4a97b
call Function4ac58
ld hl, wd019
res 1, [hl]
jr .asm_4a974
.asm_4a985
ld a, [wd018]
and a
jr nz, .asm_4a990
call Function4aba8
jr c, .asm_4a974
.asm_4a990
call Function2b3c
ld hl, DefaultFlypoint
ld a, $ff
ld bc, $0003
call ByteFill
scf
jr .asm_4a9af
.asm_4a9a1
call Function4a9c3
jr c, .asm_4a9b0
call Function4a9d7
jr c, .asm_4a974
call Function2b3c
and a
.asm_4a9af
ret
.asm_4a9b0
ld de, SFX_WRONG
call PlaySFX
ld hl, UnknownText_0x4a9be
call PrintText
jr .asm_4a974
; 4a9be
UnknownText_0x4a9be: ; 0x4a9be
; Pick three #MON for battle.
text_jump UnknownText_0x1c51d7
db "@"
; 0x4a9c3
Function4a9c3: ; 4a9c3
ld hl, DefaultFlypoint
ld a, $ff
cp [hl]
jr z, .asm_4a9d5
inc hl
cp [hl]
jr z, .asm_4a9d5
inc hl
cp [hl]
jr z, .asm_4a9d5
and a
ret
.asm_4a9d5
scf
ret
; 4a9d7
Function4a9d7: ; 4a9d7
ld a, [DefaultFlypoint]
ld hl, PartyMonNicknames
call GetNick
ld h, d
ld l, e
ld de, EndFlypoint
ld bc, $0006
call CopyBytes
ld a, [wd003]
ld hl, PartyMonNicknames
call GetNick
ld h, d
ld l, e
ld de, wd00c
ld bc, $0006
call CopyBytes
ld a, [wd004]
ld hl, PartyMonNicknames
call GetNick
ld h, d
ld l, e
ld de, wd012
ld bc, $0006
call CopyBytes
ld hl, UnknownText_0x4aa1d
call PrintText
call YesNoBox
ret
; 4aa1d
UnknownText_0x4aa1d: ; 0x4aa1d
; , @ and @ . Use these three?
text_jump UnknownText_0x1c51f4
db "@"
; 0x4aa22
Function4aa22: ; 4aa22
call WhiteBGMap
Function4aa25: ; 4aa25
callba Function5004f
callba Function50405
call Function4aad3
Function4aa34: ; 4aa34
ld a, $9
ld [PartyMenuActionText], a
callba WritePartyMenuTilemap
xor a
ld [PartyMenuActionText], a
callba PrintPartyMenuText
call Function4aab6
call WaitBGMap
call Function32f9
call DelayFrame
call Function4ab1a
jr z, .asm_4aa66
push af
call Function4aafb
jr c, .asm_4aa67
call Function4ab06
jr c, .asm_4aa67
pop af
.asm_4aa66
ret
.asm_4aa67
ld hl, wd019
set 1, [hl]
pop af
ret
; 4aa6e
Function4aa6e: ; 4aa6e
pop af
ld de, SFX_WRONG
call PlaySFX
call WaitSFX
jr Function4aa34
; 4aa7a
Function4aa7a: ; 4aa7a
ld hl, DefaultFlypoint
ld d, $3
.asm_4aa7f
ld e, $6
ld a, [hli]
push de
push hl
cp $ff
jr z, .asm_4aab3
ld hl, wc314
inc a
ld d, a
.asm_4aa8d
ld a, [hl]
and a
jr z, .asm_4aaa5
cp d
jr z, .asm_4aa9a
jr .asm_4aaa5
ld a, $3
jr .asm_4aa9c
.asm_4aa9a
ld a, $2
.asm_4aa9c
push hl
ld c, l
ld b, h
ld hl, $0002
add hl, bc
ld [hl], a
pop hl
.asm_4aaa5
ld bc, $0010
add hl, bc
dec e
jr nz, .asm_4aa8d
pop hl
pop de
dec d
jr nz, .asm_4aa7f
jr .asm_4aab5
.asm_4aab3
pop hl
pop de
.asm_4aab5
ret
; 4aab6
Function4aab6: ; 4aab6
ld hl, DefaultFlypoint
ld d, $3
.asm_4aabb
ld a, [hli]
cp $ff
jr z, .asm_4aad2
push de
push hl
hlcoord 0, 1
ld bc, $0028
call AddNTimes
ld [hl], $ec
pop hl
pop de
dec d
jr nz, .asm_4aabb
.asm_4aad2
ret
; 4aad3
Function4aad3: ; 4aad3
ld hl, PartyCount
ld a, [hli]
and a
ret z
ld c, a
xor a
ld [$ffb0], a
.asm_4aadd
push bc
push hl
ld e, 0
callba Function8e83f
ld a, [$ffb0]
inc a
ld [$ffb0], a
pop hl
pop bc
dec c
jr nz, .asm_4aadd
call Function4aa7a
callba Function8cf69
ret
; 4aafb
Function4aafb: ; 4aafb
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_4ab04
and a
ret
.asm_4ab04
scf
ret
; 4ab06
Function4ab06: ; 4ab06
ld a, [CurPartyMon]
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1HP
call AddNTimes
ld a, [hli]
ld b, a
ld a, [hl]
or b
jr nz, .asm_4ab19
scf
.asm_4ab19
ret
; 4ab1a
Function4ab1a: ; 4ab1a
.asm_4ab1a
ld a, $fb
ld [wcfa8], a
ld a, $26
ld [wcfa7], a
ld a, $2
ld [wcfa4], a
call Function4adf7
call Function1bc9
call Function4abc3
jr c, .asm_4ab1a
push af
call Function4ab99
call nc, Function1bee
pop af
bit 1, a
jr nz, .asm_4ab6d
ld a, [PartyCount]
inc a
ld b, a
ld a, [wcfa9]
ld [wd0d8], a
cp b
jr z, .asm_4ab7e
ld a, [wcfa9]
dec a
ld [CurPartyMon], a
ld c, a
ld b, $0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
ld [CurPartySpecies], a
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
ld a, $1
and a
ret
.asm_4ab6d
ld a, [wcfa9]
ld [wd0d8], a
.asm_4ab73
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
scf
ret
.asm_4ab7e
ld a, $1
ld [wd018], a
ld a, [wcfaa]
cp $2
jr z, .asm_4ab73
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
xor a
ld [wd018], a
and a
ret
; 4ab99
Function4ab99: ; 4ab99
bit 1, a
jr z, .asm_4aba6
ld a, [DefaultFlypoint]
cp $ff
jr z, .asm_4aba6
scf
ret
.asm_4aba6
and a
ret
; 4aba8
Function4aba8: ; 4aba8
ld hl, wd004
ld a, [hl]
cp $ff
jr nz, .asm_4abbe
dec hl
ld a, [hl]
cp $ff
jr nz, .asm_4abbe
dec hl
ld a, [hl]
cp $ff
jr nz, .asm_4abbe
and a
ret
.asm_4abbe
ld a, $ff
ld [hl], a
scf
ret
; 4abc3
Function4abc3: ; 4abc3
bit 3, a
jr z, .asm_4abd5
ld a, [PartyCount]
inc a
ld [wcfa9], a
ld a, $1
ld [wcfaa], a
jr .asm_4ac29
.asm_4abd5
bit 6, a
jr z, .asm_4abeb
ld a, [wcfa9]
ld [wcfa9], a
and a
jr nz, .asm_4ac29
ld a, [PartyCount]
inc a
ld [wcfa9], a
jr .asm_4ac29
.asm_4abeb
bit 7, a
jr z, .asm_4ac08
ld a, [wcfa9]
ld [wcfa9], a
ld a, [PartyCount]
rept 2
inc a
endr
ld b, a
ld a, [wcfa9]
cp b
jr nz, .asm_4ac29
ld a, $1
ld [wcfa9], a
jr .asm_4ac29
.asm_4ac08
bit 4, a
jr nz, .asm_4ac10
bit 5, a
jr z, .asm_4ac56
.asm_4ac10
ld a, [wcfa9]
ld b, a
ld a, [PartyCount]
inc a
cp b
jr nz, .asm_4ac29
ld a, [wcfaa]
cp $1
jr z, .asm_4ac26
ld a, $1
jr .asm_4ac29
.asm_4ac26
ld [wcfaa], a
.asm_4ac29
hlcoord 0, 1
ld bc, $0d01
call ClearBox
call Function4aab6
ld a, [PartyCount]
hlcoord 6, 1
.asm_4ac3b
ld bc, $0028
add hl, bc
dec a
jr nz, .asm_4ac3b
ld [hl], $7f
ld a, [wcfa9]
ld b, a
ld a, [PartyCount]
inc a
cp b
jr z, .asm_4ac54
ld a, $1
ld [wcfaa], a
.asm_4ac54
scf
ret
.asm_4ac56
and a
ret
; 4ac58
Function4ac58: ; 4ac58
ld bc, $0212
hlcoord 1, 15
call ClearBox
callba Function8ea4a
ld hl, MenuDataHeader_0x4aca2
call LoadMenuDataHeader
ld hl, wd019
bit 1, [hl]
jr z, .asm_4ac89
hlcoord 11, 13
ld b, $3
ld c, $7
call TextBox
hlcoord 13, 14
ld de, String_4ada7
call PlaceString
jr .asm_4ac96
.asm_4ac89
hlcoord 11, 9
ld b, $7
ld c, $7
call TextBox
call Function4ad68
.asm_4ac96
ld a, $1
ld [hBGMapMode], a
call Function4acaa
call ExitMenu
and a
ret
; 4aca2
MenuDataHeader_0x4aca2: ; 0x4aca2
db $40 ; flags
db 09, 11 ; start coords
db 17, 19 ; end coords
dw NULL
db 1 ; default option
; 0x4acaa
Function4acaa: ; 4acaa
.asm_4acaa
ld a, $a0
ld [wcf91], a
ld a, [wd019]
bit 1, a
jr z, .asm_4acc2
ld a, $2
ld [wcf92], a
ld a, $c
ld [wcf82], a
jr .asm_4accc
.asm_4acc2
ld a, $4
ld [wcf92], a
ld a, $8
ld [wcf82], a
.asm_4accc
ld a, $b
ld [wcf83], a
ld a, $1
ld [wcf88], a
call Function1c10
ld hl, wcfa5
set 6, [hl]
call Function1bc9
ld de, SFX_READ_TEXT_2
call PlaySFX
ld a, [hJoyPressed]
bit 0, a
jr nz, .asm_4acf4
bit 1, a
jr nz, .asm_4acf3
jr .asm_4acaa
.asm_4acf3
ret
.asm_4acf4
ld a, [wd019]
bit 1, a
jr nz, .asm_4ad0e
ld a, [wcfa9]
cp $1
jr z, Function4ad17
cp $2
jp z, Function4ad56
cp $3
jp z, Function4ad60
jr .asm_4acf3
.asm_4ad0e
ld a, [wcfa9]
cp $1
jr z, Function4ad56
jr .asm_4acf3
Function4ad17: ; 4ad17
call Function4adb2
jr z, .asm_4ad4a
ld hl, DefaultFlypoint
ld a, $ff
cp [hl]
jr z, .asm_4ad39
inc hl
cp [hl]
jr z, .asm_4ad39
inc hl
cp [hl]
jr z, .asm_4ad39
ld de, SFX_WRONG
call WaitPlaySFX
ld hl, UnknownText_0x4ad51
call PrintText
ret
.asm_4ad39
ld a, [CurPartyMon]
ld [hl], a
call Function4a9c3
ret c
ld a, [wd019]
set 0, a
ld [wd019], a
ret
.asm_4ad4a
ld a, $ff
ld [hl], a
call Function4adc2
ret
UnknownText_0x4ad51: ; 0x4ad51
; Only three #MON may enter.
text_jump UnknownText_0x1c521c
db "@"
; 0x4ad56
Function4ad56: ; 4ad56
callba OpenPartyStats
call Function3200
ret
; 4ad60
Function4ad60: ; 4ad60
callba Function12fba
ret
; 4ad67
Function4ad67: ; 4ad67
ret
; 4ad68
Function4ad68: ; 4ad68
hlcoord 13, 12
ld de, String_4ad88
call PlaceString
call Function4adb2
jr c, .asm_4ad7e
hlcoord 13, 10
ld de, String_4ada0
jr .asm_4ad84
.asm_4ad7e
hlcoord 13, 10
ld de, String_4ad9a
.asm_4ad84
call PlaceString
ret
; 4ad88
String_4ad88: ; 4ad88
db "つよさをみる"
next "つかえるわざ"
next "もどる@"
; 4ad9a
String_4ad9a: ; 4ad9a
db "さんかする@"
; 4ada0
String_4ada0: ; 4ada0
db "さんかしない@"
; 4ada7
String_4ada7: ; 4ada7
db "つよさをみる"
next "もどる@" ; BACK
; 4adb2
Function4adb2: ; 4adb2
ld hl, DefaultFlypoint
ld a, [CurPartyMon]
cp [hl]
ret z
inc hl
cp [hl]
ret z
inc hl
cp [hl]
ret z
scf
ret
; 4adc2
Function4adc2: ; 4adc2
ld a, [DefaultFlypoint]
cp $ff
jr nz, .asm_4ade5
ld a, [wd003]
cp $ff
jr nz, .asm_4addd
ld a, [wd004]
ld [DefaultFlypoint], a
ld a, $ff
ld [wd004], a
jr .asm_4ade5
.asm_4addd
ld [DefaultFlypoint], a
ld a, $ff
ld [wd003], a
.asm_4ade5
ld a, [wd003]
cp $ff
ret nz
ld b, a
ld a, [wd004]
ld [wd003], a
ld a, b
ld [wd004], a
ret
; 4adf7
Function4adf7: ; 4adf7
ld a, [wd019]
bit 0, a
ret z
ld a, [PartyCount]
inc a
ld [wcfa9], a
ld a, $1
ld [wcfaa], a
ld a, [wd019]
res 0, a
ld [wd019], a
ret
; 4ae12
Function4ae12: ; 4ae12
call Function4ae1f
ld a, $0
jr c, .asm_4ae1b
ld a, $1
.asm_4ae1b
ld [ScriptVar], a
ret
; 4ae1f
Function4ae1f: ; 4ae1f
ld bc, $0e07
push bc
ld hl, YesNoMenuDataHeader
call CopyMenuDataHeader
pop bc
ld a, b
ld [wcf83], a
add $5
ld [wcf85], a
ld a, c
ld [wcf82], a
add $4
ld [wcf84], a
call Function1c00
call InterpretMenu2
push af
ld c, $f
call DelayFrames
call Function4ae5e
pop af
jr c, .asm_4ae57
ld a, [wcfa9]
cp $2
jr z, .asm_4ae57
and a
ret
.asm_4ae57
ld a, $2
ld [wcfa9], a
scf
ret
; 4ae5e
Function4ae5e: ; 4ae5e
ld a, [hOAMUpdate]
push af
call ExitMenu
call DrawOnMap
xor a
ld [hOAMUpdate], a
call DelayFrame
ld a, $1
ld [hOAMUpdate], a
call Function321c
pop af
ld [hOAMUpdate], a
ret
; 4ae78
SECTION "bank13", ROMX, BANK[$13]
Function4c000:: ; 4c000
hlcoord 0, 0
decoord 0, 0, AttrMap
ld b, $12
.asm_4c008
push bc
ld c, $14
.asm_4c00b
ld a, [hl]
push hl
srl a
jr c, .asm_4c021
ld hl, TilesetPalettes
add [hl]
ld l, a
ld a, [TilesetPalettes + 1]
adc $0
ld h, a
ld a, [hl]
and $f
jr .asm_4c031
.asm_4c021
ld hl, TilesetPalettes
add [hl]
ld l, a
ld a, [TilesetPalettes + 1]
adc $0
ld h, a
ld a, [hl]
swap a
and $f
.asm_4c031
pop hl
ld [de], a
res 7, [hl]
inc hl
inc de
dec c
jr nz, .asm_4c00b
pop bc
dec b
jr nz, .asm_4c008
ret
; 4c03f
Function4c03f:: ; 4c03f
ld hl, BGMapBuffer
ld de, BGMapPalBuffer
.asm_4c045
ld a, [hl]
push hl
srl a
jr c, .asm_4c05b
ld hl, TilesetPalettes
add [hl]
ld l, a
ld a, [TilesetPalettes + 1]
adc $0
ld h, a
ld a, [hl]
and $f
jr .asm_4c06b
.asm_4c05b
ld hl, TilesetPalettes
add [hl]
ld l, a
ld a, [TilesetPalettes + 1]
adc $0
ld h, a
ld a, [hl]
swap a
and $f
.asm_4c06b
pop hl
ld [de], a
res 7, [hl]
inc hl
inc de
dec c
jr nz, .asm_4c045
ret
; 4c075
INCLUDE "tilesets/palette_maps.asm"
TileCollisionTable:: ; 4ce1f
; 00 land
; 01 water
; 0f wall
; 11 talkable water
; 1f talkable wall
db $00, $00, $00, $00, $00, $00, $00, $0f
db $00, $00, $00, $00, $00, $00, $00, $0f
db $00, $00, $1f, $00, $00, $1f, $00, $00
db $00, $00, $1f, $00, $00, $1f, $00, $00
db $01, $01, $11, $00, $11, $01, $01, $0f
db $01, $01, $11, $00, $11, $01, $01, $0f
db $01, $01, $01, $01, $01, $01, $01, $01
db $01, $01, $01, $01, $01, $01, $01, $01
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $0f, $00, $00, $00, $00, $00
db $00, $00, $0f, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $0f, $0f, $0f, $0f, $0f, $00, $00, $00
db $0f, $0f, $0f, $0f, $0f, $00, $00, $00
db $0f, $0f, $0f, $0f, $0f, $0f, $0f, $0f
db $0f, $0f, $0f, $0f, $0f, $0f, $0f, $0f
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $01, $01, $01, $01, $01, $01, $01, $01
db $01, $01, $01, $01, $01, $01, $01, $01
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $0f
; 4cf1f
Function4cf1f: ; 4cf1f
ld a, $0
call Function4cf34
ld a, $1
call Function4cf34
ld a, $2
call Function4cf34
ld a, $3
call Function4cf34
ret
; 4cf34
Function4cf34: ; 4cf34
call GetSRAMBank
ld hl, $a000
ld bc, $2000
xor a
call ByteFill
call CloseSRAM
ret
; 4cf45
Function4cf45: ; 4cf45 (13:4f45)
ld a, [hCGB] ; $ff00+$e6
and a
jp z, WaitBGMap
ld a, [hBGMapMode] ; $ff00+$d4
push af
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, [$ffde]
push af
xor a
ld [$ffde], a
.asm_4cf57
ld a, [rLY] ; $ff00+$44
cp $60
jr c, .asm_4cf57
di
ld a, $1
ld [rVBK], a ; $ff00+$4f
hlcoord 0, 0, AttrMap
call Function4cf80
ld a, $0
ld [rVBK], a ; $ff00+$4f
hlcoord 0, 0
call Function4cf80
.asm_4cf72
ld a, [rLY] ; $ff00+$44
cp $60
jr c, .asm_4cf72
ei
pop af
ld [$ffde], a
pop af
ld [hBGMapMode], a ; $ff00+$d4
ret
Function4cf80: ; 4cf80 (13:4f80)
ld [hSPBuffer], sp ; $ffd9
ld sp, hl
ld a, [$ffd7]
ld h, a
ld l, $0
ld a, $12
ld [$ffd3], a
ld b, $2
ld c, $41
.asm_4cf91
pop de
.asm_4cf92
ld a, [$ff00+c]
and b
jr nz, .asm_4cf92
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cf9b
ld a, [$ff00+c]
and b
jr nz, .asm_4cf9b
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfa4
ld a, [$ff00+c]
and b
jr nz, .asm_4cfa4
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfad
ld a, [$ff00+c]
and b
jr nz, .asm_4cfad
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfb6
ld a, [$ff00+c]
and b
jr nz, .asm_4cfb6
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfbf
ld a, [$ff00+c]
and b
jr nz, .asm_4cfbf
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfc8
ld a, [$ff00+c]
and b
jr nz, .asm_4cfc8
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfd1
ld a, [$ff00+c]
and b
jr nz, .asm_4cfd1
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfda
ld a, [$ff00+c]
and b
jr nz, .asm_4cfda
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4cfe3
ld a, [$ff00+c]
and b
jr nz, .asm_4cfe3
ld [hl], e
inc l
ld [hl], d
inc l
ld de, $c
add hl, de
ld a, [$ffd3]
dec a
ld [$ffd3], a
jr nz, .asm_4cf91
ld a, [hSPBuffer] ; $ff00+$d9
ld l, a
ld a, [$ffda]
ld h, a
ld sp, hl
ret
Function4cffe:: ; 4cffe
ld a, $1
call GetSRAMBank
ld a, [$a008]
ld b, a
ld a, [$ad0f]
ld c, a
call CloseSRAM
ld a, b
cp $63
jr nz, .asm_4d01b
ld a, c
cp $7f
jr nz, .asm_4d01b
ld c, $1
ret
.asm_4d01b
ld c, $0
ret
; 4d01e
INCLUDE "engine/map_triggers.asm"
Function4d15b:: ; 4d15b
ld hl, wc608
ld a, [wd196]
and a
jr z, .asm_4d168
ld bc, $0030
add hl, bc
.asm_4d168
ld a, [wd197]
and a
jr z, .asm_4d170
rept 2
inc hl
endr
.asm_4d170
decoord 0, 0
ld b, SCREEN_HEIGHT
.asm_4d175
ld c, SCREEN_WIDTH
.asm_4d177
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_4d177
ld a, l
add $4
ld l, a
jr nc, .asm_4d184
inc h
.asm_4d184
dec b
jr nz, .asm_4d175
ret
; 4d188
Function4d188: ; 4d188
ld a, [hCGB]
and a
jp z, WaitBGMap
ld a, [wc2ce]
cp $0
jp z, WaitBGMap
ld a, [hBGMapMode]
push af
xor a
ld [hBGMapMode], a
ld a, [$ffde]
push af
xor a
ld [$ffde], a
.asm_4d1a2
ld a, [rLY]
cp $8f
jr c, .asm_4d1a2
di
ld a, $1
ld [rVBK], a
hlcoord 0, 0, AttrMap
call Function4d1cb
ld a, $0
ld [rVBK], a
hlcoord 0, 0
call Function4d1cb
.asm_4d1bd
ld a, [rLY]
cp $8f
jr c, .asm_4d1bd
ei
pop af
ld [$ffde], a
pop af
ld [hBGMapMode], a
ret
; 4d1cb
Function4d1cb: ; 4d1cb
ld [hSPBuffer], sp
ld sp, hl
ld a, [$ffd7]
ld h, a
ld l, $0
ld a, $12
ld [$ffd3], a
ld b, $2
ld c, $41
.asm_4d1dc
pop de
.asm_4d1dd
ld a, [$ff00+c]
and b
jr nz, .asm_4d1dd
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d1e6
ld a, [$ff00+c]
and b
jr nz, .asm_4d1e6
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d1ef
ld a, [$ff00+c]
and b
jr nz, .asm_4d1ef
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d1f8
ld a, [$ff00+c]
and b
jr nz, .asm_4d1f8
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d201
ld a, [$ff00+c]
and b
jr nz, .asm_4d201
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d20a
ld a, [$ff00+c]
and b
jr nz, .asm_4d20a
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d213
ld a, [$ff00+c]
and b
jr nz, .asm_4d213
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d21c
ld a, [$ff00+c]
and b
jr nz, .asm_4d21c
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d225
ld a, [$ff00+c]
and b
jr nz, .asm_4d225
ld [hl], e
inc l
ld [hl], d
inc l
pop de
.asm_4d22e
ld a, [$ff00+c]
and b
jr nz, .asm_4d22e
ld [hl], e
inc l
ld [hl], d
inc l
ld de, $000c
add hl, de
ld a, [$ffd3]
dec a
ld [$ffd3], a
jr nz, .asm_4d1dc
ld a, [hSPBuffer]
ld l, a
ld a, [$ffda]
ld h, a
ld sp, hl
ret
; 4d249
Shrink1Pic: ; 4d249
INCBIN "gfx/shrink1.2bpp.lz"
Shrink2Pic: ; 4d2d9
INCBIN "gfx/shrink2.2bpp.lz"
; 4d319
Function4d319: ; 4d319
ld a, [wcfa9]
dec a
ld [CurPartyMon], a
call LowVolume
predef StatsScreenInit
ld a, [CurPartyMon]
inc a
ld [wcfa9], a
call ClearScreen
call WhiteBGMap
call MaxVolume
callba Function28ef8
callba Function4d354
callba Function16d673
callba Function28eff
call Function3200
ret
; 4d354
Function4d354: ; 4d354
call WaitBGMap
call Function3200
ret
; 4d35b
Function4d35b: ; 4d35b
ld h, d
ld l, e
push bc
push hl
call Function4d37e
pop hl
pop bc
ld de, AttrMap - TileMap
add hl, de
rept 2
inc b
endr
rept 2
inc c
endr
ld a, $7
.asm_4d36e
push bc
push hl
.asm_4d370
ld [hli], a
dec c
jr nz, .asm_4d370
pop hl
ld de, SCREEN_WIDTH
add hl, de
pop bc
dec b
jr nz, .asm_4d36e
ret
; 4d37e
Function4d37e: ; 4d37e
push hl
ld a, $76
ld [hli], a
inc a
call Function4d3ab
inc a
ld [hl], a
pop hl
ld de, SCREEN_WIDTH
add hl, de
.asm_4d38d
push hl
ld a, $79
ld [hli], a
ld a, $7f
call Function4d3ab
ld [hl], $7a
pop hl
ld de, SCREEN_WIDTH
add hl, de
dec b
jr nz, .asm_4d38d
ld a, $7b
ld [hli], a
ld a, $7c
call Function4d3ab
ld [hl], $7d
ret
; 4d3ab
Function4d3ab: ; 4d3ab
ld d, c
.asm_4d3ac
ld [hli], a
dec d
jr nz, .asm_4d3ac
ret
; 4d3b1
Function4d3b1: ; 4d3b1
callba Function8000
ld b, $8
call GetSGBLayout
call Functione51
call Functione5f
ld de, MUSIC_MAIN_MENU
call PlayMusic
ld hl, UnknownText_0x4d408
call PrintText
ld hl, MenuDataHeader_0x4d40d
call CopyMenuDataHeader
call InterpretMenu2
ret c
ld a, [wcfa9]
cp $1
ret z
call Function4d41e
jr c, .asm_4d3f7
ld a, $0
call GetSRAMBank
ld a, $80
ld [$ac60], a
call CloseSRAM
ld hl, UnknownText_0x4d3fe
call PrintText
ret
.asm_4d3f7
ld hl, UnknownText_0x4d403
call PrintText
ret
; 4d3fe
UnknownText_0x4d3fe: ; 0x4d3fe
; Password OK. Select CONTINUE & reset settings.
text_jump UnknownText_0x1c55db
db "@"
; 0x4d403
UnknownText_0x4d403: ; 0x4d403
; Wrong password!
text_jump UnknownText_0x1c560b
db "@"
; 0x4d408
UnknownText_0x4d408: ; 0x4d408
; Reset the clock?
text_jump UnknownText_0x1c561c
db "@"
; 0x4d40d
MenuDataHeader_0x4d40d: ; 0x4d40d
db $00 ; flags
db 07, 14 ; start coords
db 11, 19 ; end coords
dw MenuData2_0x4d415
db 1 ; default option
; 0x4d415
MenuData2_0x4d415: ; 0x4d415
db $c0 ; flags
db 2 ; items
db "NO@"
db "YES@"
; 0x4d41e
Function4d41e: ; 4d41e
call Function4d50f
push de
ld hl, StringBuffer2
ld bc, $0005
xor a
call ByteFill
ld a, $4
ld [StringBuffer2 + 5], a
ld hl, UnknownText_0x4d463
call PrintText
.asm_4d437
call Function4d468
.asm_4d43a
call Functiona57
ld a, [$ffa9]
ld b, a
and $1
jr nz, .asm_4d453
ld a, b
and $f0
jr z, .asm_4d43a
call Function4d490
ld c, $3
call DelayFrames
jr .asm_4d437
.asm_4d453
call Function4d4e0
pop de
ld a, e
cp l
jr nz, .asm_4d461
ld a, d
cp h
jr nz, .asm_4d461
and a
ret
.asm_4d461
scf
ret
; 4d463
UnknownText_0x4d463: ; 0x4d463
; Please enter the password.
text_jump UnknownText_0x1c562e
db "@"
; 0x4d468
Function4d468: ; 4d468
hlcoord 14, 15
ld de, StringBuffer2
ld c, $5
.asm_4d470
ld a, [de]
add $f6
ld [hli], a
inc de
dec c
jr nz, .asm_4d470
hlcoord 14, 16
ld bc, $0005
ld a, $7f
call ByteFill
hlcoord 14, 16
ld a, [StringBuffer2 + 5]
ld e, a
ld d, $0
add hl, de
ld [hl], $61
ret
; 4d490
Function4d490: ; 4d490
ld a, b
and $20
jr nz, .asm_4d4a5
ld a, b
and $10
jr nz, .asm_4d4af
ld a, b
and $40
jr nz, .asm_4d4ba
ld a, b
and $80
jr nz, .asm_4d4c8
ret
.asm_4d4a5
ld a, [StringBuffer2 + 5]
and a
ret z
dec a
ld [StringBuffer2 + 5], a
ret
.asm_4d4af
ld a, [StringBuffer2 + 5]
cp $4
ret z
inc a
ld [StringBuffer2 + 5], a
ret
.asm_4d4ba
call Function4d4d5
ld a, [hl]
cp $9
jr z, .asm_4d4c5
inc a
ld [hl], a
ret
.asm_4d4c5
ld [hl], $0
ret
.asm_4d4c8
call Function4d4d5
ld a, [hl]
and a
jr z, .asm_4d4d2
dec a
ld [hl], a
ret
.asm_4d4d2
ld [hl], $9
ret
; 4d4d5
Function4d4d5: ; 4d4d5
ld a, [StringBuffer2 + 5]
ld e, a
ld d, $0
ld hl, StringBuffer2
add hl, de
ret
; 4d4e0
Function4d4e0: ; 4d4e0
ld hl, 0
ld de, StringBuffer2 + 4
ld bc, 1
call Function4d501
ld bc, 10
call Function4d501
ld bc, 100
call Function4d501
ld bc, 1000
call Function4d501
ld bc, 10000
Function4d501: ; 4d501
ld a, [de]
dec de
push hl
ld hl, 0
call AddNTimes
ld c, l
ld b, h
pop hl
add hl, bc
ret
; 4d50f
Function4d50f: ; 4d50f
ld a, $1
call GetSRAMBank
ld de, $0000
ld hl, $a009
ld c, $2
call Function4d533
ld hl, $a00b
ld c, $5
call Function4d53e
ld hl, $a3dc
ld c, $3
call Function4d533
call CloseSRAM
ret
; 4d533
Function4d533: ; 4d533
.asm_4d533
ld a, [hli]
add e
ld e, a
ld a, $0
adc d
ld d, a
dec c
jr nz, .asm_4d533
ret
; 4d53e
Function4d53e: ; 4d53e
.asm_4d53e
ld a, [hli]
cp "@"
ret z
add e
ld e, a
ld a, $0
adc d
ld d, a
dec c
jr nz, .asm_4d53e
ret
; 4d54c
Function4d54c: ; 4d54c
callba Function8000
ld b, $8
call GetSGBLayout
call Functione51
call Functione5f
ld de, MUSIC_MAIN_MENU
call PlayMusic
ld hl, UnknownText_0x4d580
call PrintText
ld hl, MenuDataHeader_0x4d585
call CopyMenuDataHeader
call InterpretMenu2
ret c
ld a, [wcfa9]
cp $1
ret z
callba Function4cf1f
ret
; 4d580
UnknownText_0x4d580: ; 0x4d580
; Clear all save data?
text_jump UnknownText_0x1c564a
db "@"
; 0x4d585
MenuDataHeader_0x4d585: ; 0x4d585
db $00 ; flags
db 07, 14 ; start coords
db 11, 19 ; end coords
dw MenuData2_0x4d58d
db 1 ; default option
; 0x4d58d
MenuData2_0x4d58d: ; 0x4d58d
db $c0 ; flags
db 2 ; items
db "NO@"
db "YES@"
; 0x4d596
Tilesets::
INCLUDE "tilesets/tileset_headers.asm"
FlagPredef: ; 4d7c1
; Perform action b on flag c in flag array hl.
; If checking a flag, check flag array d:hl unless d is 0.
; For longer flag arrays, see FlagAction.
push hl
push bc
; Divide by 8 to get the byte we want.
push bc
srl c
srl c
srl c
ld b, 0
add hl, bc
pop bc
; Which bit we want from the byte
ld a, c
and 7
ld c, a
; Shift left until we can mask the bit
ld a, 1
jr z, .shifted
.shift
add a
dec c
jr nz, .shift
.shifted
ld c, a
; What are we doing to this flag?
dec b
jr z, .set ; 1
dec b
jr z, .check ; 2
.reset
ld a, c
cpl
and [hl]
ld [hl], a
jr .done
.set
ld a, [hl]
or c
ld [hl], a
jr .done
.check
ld a, d
cp 0
jr nz, .farcheck
ld a, [hl]
and c
jr .done
.farcheck
call GetFarByte
and c
.done
pop bc
pop hl
ld c, a
ret
; 4d7fd
Function4d7fd: ; 4d7fd
ld a, [wc702]
ld hl, wc72f
ld de, VTiles2
push de
push af
predef GetUnownLetter
pop af
ld [CurPartySpecies], a
ld [CurSpecies], a
call GetBaseData
pop de
predef Function5108b
ret
; 4d81e
Function4d81e: ; 4d81e
ld a, [wc702]
call IsAPokemon
ret c
callba Function29549
ld a, [wc702]
ld [CurPartySpecies], a
ld a, [wc72f]
ld [TempMonDVs], a
ld a, [wc730]
ld [TempMonDVs + 1], a
ld b, $1a
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
callba Function294c0
ld a, [wc702]
ld [CurPartySpecies], a
hlcoord 7, 2
ld d, $0
ld e, $3
predef Functiond008e
ret
; 4d860
CheckPokerus: ; 4d860
; Return carry if a monster in your party has Pokerus
; Get number of monsters to iterate over
ld a, [PartyCount]
and a
jr z, .NoPokerus
ld b, a
; Check each monster in the party for Pokerus
ld hl, PartyMon1PokerusStatus
ld de, PartyMon2 - PartyMon1
.Check
ld a, [hl]
and $0f ; only the bottom nybble is used
jr nz, .HasPokerus
; Next PartyMon
add hl, de
dec b
jr nz, .Check
.NoPokerus
and a
ret
.HasPokerus
scf
ret
; 4d87a
Function4d87a: ; 4d87a
xor a
ld [ScriptVar], a
ld [wd265], a
ld a, [PartyCount]
and a
ret z
ld d, a
ld hl, PartyMon1ID
ld bc, PartySpecies
.asm_4d88d
ld a, [bc]
inc bc
cp EGG
call nz, Function4d939
push bc
ld bc, PartyMon2 - PartyMon1
add hl, bc
pop bc
dec d
jr nz, .asm_4d88d
ld a, $1
call GetSRAMBank
ld a, [sBoxCount]
and a
jr z, .asm_4d8c8
ld d, a
ld hl, sBoxMon1ID
ld bc, sBoxSpecies
.asm_4d8af
ld a, [bc]
inc bc
cp EGG
jr z, .asm_4d8bf
call Function4d939
jr nc, .asm_4d8bf
ld a, $1
ld [wd265], a
.asm_4d8bf
push bc
ld bc, sBoxMon2 - sBoxMon1
add hl, bc
pop bc
dec d
jr nz, .asm_4d8af
.asm_4d8c8
call CloseSRAM
ld c, $0
.asm_4d8cd
ld a, [wCurBox]
and $f
cp c
jr z, .asm_4d90b
ld hl, Unknown_4d99f
ld b, 0
rept 3
add hl, bc
endr
ld a, [hli]
call GetSRAMBank
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
and a
jr z, .asm_4d90b
push bc
ld b, h
ld c, l
inc bc
ld de, $001c
add hl, de
ld d, a
.asm_4d8f1
ld a, [bc]
inc bc
cp EGG
jr z, .asm_4d901
call Function4d939
jr nc, .asm_4d901
ld a, $1
ld [wd265], a
.asm_4d901
push bc
ld bc, sBoxMon2 - sBoxMon1
add hl, bc
pop bc
dec d
jr nz, .asm_4d8f1
pop bc
.asm_4d90b
inc c
ld a, c
cp NUM_BOXES
jr c, .asm_4d8cd
call CloseSRAM
ld a, [ScriptVar]
and a
ret z
callba Function1060cd
ld a, [wd265]
and a
push af
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0x4d9c9
pop af
jr z, .asm_4d936
ld hl, UnknownText_0x4d9ce
.asm_4d936
jp PrintText
; 4d939
Function4d939: ; 4d939
push bc
push de
push hl
ld d, h
ld e, l
ld hl, Buffer1
ld bc, $8205
call PrintNum
ld hl, DefaultFlypoint
ld de, wdc9f
ld bc, $8205
call PrintNum
ld b, $5
ld c, $0
ld hl, EndFlypoint
ld de, wd1ee
.asm_4d95d
ld a, [de]
cp [hl]
jr nz, .asm_4d967
dec de
dec hl
inc c
dec b
jr nz, .asm_4d95d
.asm_4d967
pop hl
push hl
ld de, -6
add hl, de
ld a, [hl]
pop hl
pop de
push af
ld a, c
ld b, $1
cp $5
jr z, .asm_4d984
ld b, $2
cp $3
jr nc, .asm_4d984
ld b, $3
cp $2
jr nz, .asm_4d99b
.asm_4d984
inc b
ld a, [ScriptVar]
and a
jr z, .asm_4d98e
cp b
jr c, .asm_4d99b
.asm_4d98e
dec b
ld a, b
ld [ScriptVar], a
pop bc
ld a, b
ld [CurPartySpecies], a
pop bc
scf
ret
.asm_4d99b
pop bc
pop bc
and a
ret
; 4d99f
Unknown_4d99f: ; 4d99f
; bank, address
dbw $02, $a000
dbw $02, $a450
dbw $02, $a8a0
dbw $02, $acf0
dbw $02, $b140
dbw $02, $b590
dbw $02, $b9e0
dbw $03, $a000
dbw $03, $a450
dbw $03, $a8a0
dbw $03, $acf0
dbw $03, $b140
dbw $03, $b590
dbw $03, $b9e0
; 4d9c9
UnknownText_0x4d9c9: ; 0x4d9c9
; Congratulations! We have a match with the ID number of @ in your party.
text_jump UnknownText_0x1c1261
db "@"
; 0x4d9ce
UnknownText_0x4d9ce: ; 0x4d9ce
; Congratulations! We have a match with the ID number of @ in your PC BOX.
text_jump UnknownText_0x1c12ae
db "@"
; 0x4d9d3
Function4d9d3: ; 4d9d3
ld hl, StringBuffer3
ld de, wdc9f
ld bc, $8205
call PrintNum
ld a, $50
ld [StringBuffer3 + 5], a
ret
; 4d9e5
CheckPartyFullAfterContest: ; 4d9e5
ld a, [wdf9c]
and a
jp z, Function4db35
ld [CurPartySpecies], a
ld [CurSpecies], a
call GetBaseData
ld hl, PartyCount
ld a, [hl]
cp $6
jp nc, Function4daa3
inc a
ld [hl], a
ld c, a
ld b, $0
add hl, bc
ld a, [wdf9c]
ld [hli], a
ld [CurSpecies], a
ld a, $ff
ld [hl], a
ld hl, PartyMon1Species
ld a, [PartyCount]
dec a
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld d, h
ld e, l
ld hl, wdf9c
ld bc, PartyMon2 - PartyMon1
call CopyBytes
ld a, [PartyCount]
dec a
ld hl, PartyMonOT
call SkipNames
ld d, h
ld e, l
ld hl, PlayerName
call CopyBytes
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
ld de, wd050
ld bc, $000b
call CopyBytes
call Function4db3b
jr c, .asm_4da66
ld a, [PartyCount]
dec a
ld [CurPartyMon], a
xor a
ld [MonType], a
ld de, wd050
callab Functione3de
.asm_4da66
ld a, [PartyCount]
dec a
ld hl, PartyMonNicknames
call SkipNames
ld d, h
ld e, l
ld hl, wd050
call CopyBytes
ld a, [PartyCount]
dec a
ld hl, PartyMon1Level
call GetPartyLocation
ld a, [hl]
ld [CurPartyLevel], a
call Function4db49
ld a, [PartyCount]
dec a
ld hl, PartyMon1CaughtLocation
call GetPartyLocation
ld a, [hl]
and $80
ld b, $13
or b
ld [hl], a
xor a
ld [wdf9c], a
and a
ld [ScriptVar], a
ret
; 4daa3
Function4daa3: ; 4daa3
ld a, $1
call GetSRAMBank
ld hl, sBoxCount
ld a, [hl]
cp MONS_PER_BOX
call CloseSRAM
jr nc, .asm_4db08
xor a
ld [CurPartyMon], a
ld hl, wdf9c
ld de, wd018
ld bc, sBoxMon2 - sBoxMon1
call CopyBytes
ld hl, PlayerName
ld de, wd00d
ld bc, NAME_LENGTH
call CopyBytes
callab Function51322
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
call Function4db3b
ld hl, StringBuffer1
jr c, .asm_4daf7
ld a, BOXMON
ld [MonType], a
ld de, wd050
callab Functione3de
ld hl, wd050
.asm_4daf7
ld a, $1
call GetSRAMBank
ld de, sBoxMonNicknames
ld bc, PKMN_NAME_LENGTH
call CopyBytes
call CloseSRAM
.asm_4db08
ld a, $1
call GetSRAMBank
ld a, [sBoxMon1Level]
ld [CurPartyLevel], a
call CloseSRAM
call Function4db83
ld a, $1
call GetSRAMBank
ld hl, sBoxMon1CaughtLocation
ld a, [hl]
and $80
ld b, $13
or b
ld [hl], a
call CloseSRAM
xor a
ld [wdf9c], a
ld a, $1
ld [ScriptVar], a
ret
; 4db35
Function4db35: ; 4db35
ld a, $2
ld [ScriptVar], a
ret
; 4db3b
Function4db3b: ; 4db3b
ld hl, UnknownText_0x4db44
call PrintText
jp YesNoBox
; 4db44
UnknownText_0x4db44: ; 0x4db44
; Give a nickname to the @ you received?
text_jump UnknownText_0x1c12fc
db "@"
; 0x4db49
Function4db49: ; 4db49
ld a, [PartyCount]
dec a
ld hl, PartyMon1CaughtLevel
call GetPartyLocation
Function4db53: ; 4db53
ld a, [TimeOfDay]
inc a
rrca
rrca
ld b, a
ld a, [CurPartyLevel]
or b
ld [hli], a
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
cp MAP_POKECENTER_2F
jr nz, .asm_4db78
ld a, b
cp GROUP_POKECENTER_2F
jr nz, .asm_4db78
ld a, [BackupMapGroup]
ld b, a
ld a, [BackupMapNumber]
ld c, a
.asm_4db78
call GetWorldMapLocation
ld b, a
ld a, [PlayerGender]
rrca
or b
ld [hl], a
ret
; 4db83
Function4db83: ; 4db83
ld a, $1
call GetSRAMBank
ld hl, sBoxMon1CaughtLevel
call Function4db53
call CloseSRAM
ret
; 4db92
Function4db92: ; 4db92
push bc
ld a, $1
call GetSRAMBank
ld hl, sBoxMon1CaughtLevel
pop bc
call Function4dbaf
call CloseSRAM
ret
; 4dba3
Function4dba3: ; 4dba3
ld a, [PartyCount]
dec a
ld hl, PartyMon1CaughtLevel
push bc
call GetPartyLocation
pop bc
Function4dbaf: ; 4dbaf
xor a
ld [hli], a
ld a, $7e
rrc b
or b
ld [hl], a
ret
; 4dbb8
Function4dbb8: ; 4dbb8 (13:5bb8)
ld a, [CurPartyMon]
ld hl, PartyMon1CaughtLevel
call GetPartyLocation
ld a, [CurPartyLevel]
push af
ld a, $1
ld [CurPartyLevel], a
call Function4db53
pop af
ld [CurPartyLevel], a
ret
Function4dbd2: ; 4dbd2
ld hl, PartyMon1Level
call Function4dc31
ret
; 4dbd9
Function4dbd9: ; 4dbd9
ld hl, PartyMon1Happiness
call Function4dc0a
ret
; 4dbe0
Function4dbe0: ; 4dbe0
ld hl, PartyMon1Species
jp Function4dc56
; 4dbe6
Function4dbe6: ; 4dbe6
ld hl, PartyMon1Species
call Function4dc56
ret z
ld a, c
ld hl, PartyMon1ID
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld a, [PlayerID]
cp [hl]
jr nz, .asm_4dc08
inc hl
ld a, [PlayerID + 1]
cp [hl]
jr nz, .asm_4dc08
ld a, $1
and a
ret
.asm_4dc08
xor a
ret
; 4dc0a
Function4dc0a: ; 4dc0a
ld c, $0
ld a, [PartyCount]
ld d, a
.asm_4dc10
ld a, d
dec a
push hl
push bc
ld bc, PartyMon2 - PartyMon1
call AddNTimes
pop bc
ld a, b
cp [hl]
pop hl
jr z, .asm_4dc22
jr nc, .asm_4dc26
.asm_4dc22
ld a, c
or $1
ld c, a
.asm_4dc26
sla c
dec d
jr nz, .asm_4dc10
call Function4dc67
ld a, c
and a
ret
; 4dc31
Function4dc31: ; 4dc31
ld c, $0
ld a, [PartyCount]
ld d, a
.asm_4dc37
ld a, d
dec a
push hl
push bc
ld bc, PartyMon2 - PartyMon1
call AddNTimes
pop bc
ld a, b
cp [hl]
pop hl
jr c, .asm_4dc4b
ld a, c
or $1
ld c, a
.asm_4dc4b
sla c
dec d
jr nz, .asm_4dc37
call Function4dc67
ld a, c
and a
ret
; 4dc56
Function4dc56: ; 4dc56
ld c, $ff
ld hl, PartySpecies
.asm_4dc5b
ld a, [hli]
cp $ff
ret z
inc c
cp b
jr nz, .asm_4dc5b
ld a, $1
and a
ret
; 4dc67
Function4dc67: ; 4dc67
ld e, $fe
ld hl, PartySpecies
.asm_4dc6c
ld a, [hli]
cp $ff
ret z
cp EGG
jr nz, .asm_4dc77
ld a, c
and e
ld c, a
.asm_4dc77
rlc e
jr .asm_4dc6c
; 4dc7b
Function4dc7b: ; 4dc7b (13:5c7b)
ld a, [InLinkBattle]
cp $4
jr nz, StatsScreenInit
ld a, [IsInBattle] ; wd22d (aliases: EnemyMonEnd)
and a
jr z, StatsScreenInit
jr Function4dc8f
StatsScreenInit: ; 4dc8a
ld hl, StatsScreenMain
jr StatsScreenInit_gotaddress
Function4dc8f: ; 4dc8f
ld hl, StatsScreenBattle
jr StatsScreenInit_gotaddress
StatsScreenInit_gotaddress: ; 4dc94
ld a, [$ffde]
push af
xor a
ld [$ffde], a ; disable overworld tile animations
ld a, [wc2c6] ; whether sprite is to be mirrorred
push af
ld a, [wcf63]
ld b, a
ld a, [wcf64]
ld c, a
push bc
push hl
call WhiteBGMap
call ClearTileMap
call DrawOnMap
callba Functionfb53e
pop hl
call _hl_
call WhiteBGMap
call ClearTileMap
pop bc
; restore old values
ld a, b
ld [wcf63], a
ld a, c
ld [wcf64], a
pop af
ld [wc2c6], a
pop af
ld [$ffde], a
ret
; 0x4dcd2
StatsScreenMain: ; 0x4dcd2
xor a
ld [wcf63], a
ld [wcf64], a
ld a, [wcf64]
and $fc
or $1
ld [wcf64], a
.loop ; 4dce3
ld a, [wcf63]
and $7f
ld hl, StatsScreenPointerTable
rst JumpTable
call Function4dd3a ; check for keys?
ld a, [wcf63]
bit 7, a
jr z, .loop
ret
; 0x4dcf7
StatsScreenBattle: ; 4dcf7
xor a
ld [wcf63], a
ld [wcf64], a
ld a, [wcf64]
and $fc
or $1
ld [wcf64], a
.asm_4dd08
callba Function100dd2
ld a, [wcf63]
and $7f
ld hl, StatsScreenPointerTable
rst JumpTable
call Function4dd3a
callba Function100dfd
jr c, .asm_4dd29
ld a, [wcf63]
bit 7, a
jr z, .asm_4dd08
.asm_4dd29
ret
; 4dd2a
StatsScreenPointerTable: ; 4dd2a
dw Function4dd72 ; regular pokémon
dw EggStatsInit ; egg
dw Function4dde6
dw Function4ddac
dw Function4ddc6
dw Function4dde6
dw Function4ddd6
dw Function4dd6c
; 4dd3a
Function4dd3a: ; 4dd3a (13:5d3a)
ld hl, wcf64
bit 6, [hl]
jr nz, .asm_4dd49
bit 5, [hl]
jr nz, .asm_4dd56
call DelayFrame
ret
.asm_4dd49
callba Functiond00b4
jr nc, .asm_4dd56
ld hl, wcf64
res 6, [hl]
.asm_4dd56
ld hl, wcf64
res 5, [hl]
callba Function10402d
ret
Function4dd62: ; 4dd62 (13:5d62)
ld a, [wcf63]
and $80
or h
ld [wcf63], a
ret
Function4dd6c: ; 4dd6c (13:5d6c)
ld hl, wcf63
set 7, [hl]
ret
Function4dd72: ; 4dd72 (13:5d72)
ld hl, wcf64
res 6, [hl]
call WhiteBGMap
call ClearTileMap
callba Function10402d
call Function4ddf2
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_4dd9b
call Function4deea
ld hl, wcf64
set 4, [hl]
ld h, $4
call Function4dd62
ret
.asm_4dd9b
ld h, $1
call Function4dd62
ret
EggStatsInit: ; 4dda1
call EggStatsScreen
ld a, [wcf63]
inc a
ld [wcf63], a
ret
; 0x4ddac
Function4ddac: ; 4ddac (13:5dac)
call Function4de2c
jr nc, .asm_4ddb7
ld h, $0
call Function4dd62
ret
.asm_4ddb7
bit 0, a
jr nz, .asm_4ddc0
and $c3
jp Function4de54
.asm_4ddc0
ld h, $7
call Function4dd62
ret
Function4ddc6: ; 4ddc6 (13:5dc6)
call Function4dfb6
ld hl, wcf64
res 4, [hl]
ld a, [wcf63]
inc a
ld [wcf63], a
ret
Function4ddd6: ; 4ddd6 (13:5dd6)
call Function4de2c
jr nc, .asm_4dde1
ld h, $0
call Function4dd62
ret
.asm_4dde1
and $f3
jp Function4de54
Function4dde6: ; 4dde6 (13:5de6)
call IsSFXPlaying
ret nc
ld a, [wcf63]
inc a
ld [wcf63], a
ret
Function4ddf2: ; 4ddf2 (13:5df2)
ld a, [MonType]
cp $3
jr nz, .asm_4de10
ld a, [wd018]
ld [CurSpecies], a
call GetBaseData
ld hl, wd018
ld de, TempMon
ld bc, $30
call CopyBytes
jr .asm_4de2a
.asm_4de10
callba Function5084a
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_4de2a
ld a, [MonType]
cp $2
jr c, .asm_4de2a
callba Function50890
.asm_4de2a
and a
ret
Function4de2c: ; 4de2c (13:5e2c)
call GetJoypad
ld a, [MonType]
cp $3
jr nz, .asm_4de4e
push hl
push de
push bc
callba Functione2f95
pop bc
pop de
pop hl
ld a, [wcf73]
and $c0
jr nz, .asm_4de52
ld a, [wcf73]
jr .asm_4de50
.asm_4de4e
ld a, [hJoyPressed] ; $ff00+$a7
.asm_4de50
and a
ret
.asm_4de52
scf
ret
Function4de54: ; 4de54 (13:5e54)
push af
ld a, [wcf64]
and $3
ld c, a
pop af
bit 1, a
jp nz, Function4dee4
bit 5, a
jr nz, .asm_4dec7
bit 4, a
jr nz, .asm_4debd
bit 0, a
jr nz, .asm_4deb8
bit 6, a
jr nz, .asm_4dea0
bit 7, a
jr nz, .asm_4de77
jr .asm_4dece
.asm_4de77
ld a, [MonType]
cp $2
jr nc, .asm_4dece
and a
ld a, [PartyCount]
jr z, .asm_4de87
ld a, [OTPartyCount]
.asm_4de87
ld b, a
ld a, [CurPartyMon]
inc a
cp b
jr z, .asm_4dece
ld [CurPartyMon], a
ld b, a
ld a, [MonType]
and a
jr nz, .asm_4dede
ld a, b
inc a
ld [wd0d8], a
jr .asm_4dede
.asm_4dea0
ld a, [CurPartyMon]
and a
jr z, .asm_4dece
dec a
ld [CurPartyMon], a
ld b, a
ld a, [MonType]
and a
jr nz, .asm_4dede
ld a, b
inc a
ld [wd0d8], a
jr .asm_4dede
.asm_4deb8
ld a, c
cp $3
jr z, Function4dee4
.asm_4debd
inc c
ld a, $3
cp c
jr nc, .asm_4decf
ld c, $1
jr .asm_4decf
.asm_4dec7
dec c
jr nz, .asm_4decf
ld c, $3
jr .asm_4decf
.asm_4dece
ret
.asm_4decf
ld a, [wcf64]
and $fc
or c
ld [wcf64], a
ld h, $4
call Function4dd62
ret
.asm_4dede
ld h, $0
call Function4dd62
ret
Function4dee4: ; 4dee4 (13:5ee4)
ld h, $7
call Function4dd62
ret
Function4deea: ; 4deea (13:5eea)
call Function4df45
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, [CurBaseData] ; wd236 (aliases: BaseDexNo)
ld [wd265], a
ld [CurSpecies], a
hlcoord 8, 0
ld [hl], "№"
inc hl
ld [hl], "."
inc hl
hlcoord 10, 0
ld bc, $8103
ld de, wd265
call PrintNum
hlcoord 14, 0
call PrintLevel
ld hl, Unknown_4df77
call Function4e528
call Function4e505
hlcoord 8, 2
call PlaceString
hlcoord 18, 0
call Function4df66
hlcoord 9, 4
ld a, $f3
ld [hli], a
ld a, [CurBaseData] ; wd236 (aliases: BaseDexNo)
ld [wd265], a
call GetPokemonName
call PlaceString
call Function4df8f
call Function4df9b
call Function4dfa6
ret
Function4df45: ; 4df45 (13:5f45)
ld hl, TempMonHP
ld a, [hli]
ld b, a
ld c, [hl]
ld hl, TempMonMaxHP
ld a, [hli]
ld d, a
ld e, [hl]
callba Functionc699
ld hl, wcda1
call SetHPPal
ld b, $3
call GetSGBLayout
call DelayFrame
ret
Function4df66: ; 4df66 (13:5f66)
push hl
callba GetGender
pop hl
ret c
ld a, "♂"
jr nz, .asm_4df75
ld a, "♀"
.asm_4df75
ld [hl], a
ret
; 4df77 (13:5f77)
Unknown_4df77: ; 4df77
dw PartyMonNicknames
dw OTPartyMonNicknames
dw $b082
dw wd002
; 4df7f
Function4df7f: ; 4df7f
hlcoord 7, 0
ld bc, 20
ld d, 18
.asm_4df87
ld a, $31
ld [hl], a
add hl, bc
dec d
jr nz, .asm_4df87
ret
; 4df8f
Function4df8f: ; 4df8f (13:5f8f)
hlcoord 0, 7
ld b, 20
ld a, $62
.asm_4df96
ld [hli], a
dec b
jr nz, .asm_4df96
ret
Function4df9b: ; 4df9b (13:5f9b)
hlcoord 12, 6
ld [hl], $71
hlcoord 19, 6
ld [hl], $ed
ret
Function4dfa6: ; 4dfa6 (13:5fa6)
ld bc, TempMonDVs
callba CheckShininess
ret nc
hlcoord 19, 0
ld [hl], $3f
ret
Function4dfb6: ; 4dfb6 (13:5fb6)
ld a, [CurBaseData] ; wd236 (aliases: BaseDexNo)
ld [wd265], a
ld [CurSpecies], a
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function4dfda
call Function4e002
call Function4dfed
ld hl, wcf64
bit 4, [hl]
jr nz, .asm_4dfd6
call Function32f9
ret
.asm_4dfd6
call Function4e226
ret
Function4dfda: ; 4dfda (13:5fda)
ld a, [wcf64]
and $3
ld c, a
call Function4e4cd
hlcoord 0, 8
ld bc, $a14
call ClearBox
ret
Function4dfed: ; 4dfed (13:5fed)
ld a, [wcf64]
and $3
ld c, a
callba Function8c8a
call DelayFrame
ld hl, wcf64
set 5, [hl]
ret
Function4e002: ; 4e002 (13:6002)
ld a, [wcf64]
and $3
dec a
ld hl, Jumptable_4e00d
rst JumpTable
ret
Jumptable_4e00d: ; 4e00d (13:600d)
dw Function4e013
dw Function4e147
dw Function4e1ae
Function4e013: ; 4e013 (13:6013)
hlcoord 0, 9
ld b, $0
predef DrawPlayerHP
hlcoord 8, 9
ld [hl], $41
ld de, String_4e119
hlcoord 0, 12
call PlaceString
ld a, [TempMonPokerusStatus]
ld b, a
and $f
jr nz, .asm_4e055
ld a, b
and $f0
jr z, .asm_4e03d
hlcoord 8, 8
ld [hl], $e8
.asm_4e03d
ld a, [MonType]
cp $2
jr z, .asm_4e060
hlcoord 6, 13
push hl
ld de, TempMonStatus
predef Function50d0a
pop hl
jr nz, .asm_4e066
jr .asm_4e060
.asm_4e055
ld de, String_4e142
hlcoord 1, 13
call PlaceString
jr .asm_4e066
.asm_4e060
ld de, String_4e127
call PlaceString
.asm_4e066
hlcoord 1, 15
predef PrintMonTypes
hlcoord 9, 8
ld de, $14
ld b, $a
ld a, $31
.asm_4e078
ld [hl], a
add hl, de
dec b
jr nz, .asm_4e078
ld de, String_4e12b
hlcoord 10, 9
call PlaceString
hlcoord 17, 14
call Function4e0d3
hlcoord 13, 10
ld bc, $307
ld de, TempMonExp
call PrintNum
call Function4e0e7
hlcoord 13, 13
ld bc, $307
ld de, Buffer1 ; wd1ea (aliases: MagikarpLength)
call PrintNum
ld de, String_4e136
hlcoord 10, 12
call PlaceString
ld de, String_4e13f
hlcoord 14, 14
call PlaceString
hlcoord 11, 16
ld a, [TempMonLevel]
ld b, a
ld de, TempMonExp + 2
predef FillInExpBar
hlcoord 10, 16
ld [hl], $40
hlcoord 19, 16
ld [hl], $41
ret
Function4e0d3: ; 4e0d3 (13:60d3)
ld a, [TempMonLevel]
push af
cp MAX_LEVEL
jr z, .asm_4e0df
inc a
ld [TempMonLevel], a
.asm_4e0df
call PrintLevel
pop af
ld [TempMonLevel], a
ret
Function4e0e7: ; 4e0e7 (13:60e7)
ld a, [TempMonLevel]
cp MAX_LEVEL
jr z, .asm_4e111
inc a
ld d, a
callba Function50e47
rept 2
ld hl, TempMonExp + 2
endr
ld a, [$ffb6]
sub [hl]
dec hl
ld [wd1ec], a
ld a, [$ffb5]
sbc [hl]
dec hl
ld [Buffer2], a ; wd1eb (aliases: MovementType)
ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand)
sbc [hl]
ld [Buffer1], a ; wd1ea (aliases: MagikarpLength)
ret
.asm_4e111
ld hl, Buffer1 ; wd1ea (aliases: MagikarpLength)
xor a
rept 2
ld [hli], a
endr
ld [hl], a
ret
; 4e119 (13:6119)
String_4e119: ; 4e119
db "STATUS/"
next "TYPE/@"
; 4e127
String_4e127: ; 4e127
db "OK @"
; 4e12b
String_4e12b: ; 4e12b
db "EXP POINTS@"
; 4e136
String_4e136: ; 4e136
db "LEVEL UP@"
; 4e13f
String_4e13f: ; 4e13f
db "TO@"
; 4e142
String_4e142: ; 4e142
db "#RUS@"
; 4e147
Function4e147: ; 4e147 (13:6147)
ld de, String_4e1a0
hlcoord 0, 8
call PlaceString
call Function4e189
hlcoord 8, 8
call PlaceString
ld de, String_4e1a9
hlcoord 0, 10
call PlaceString
ld hl, TempMonMoves
ld de, wd25e
ld bc, NUM_MOVES
call CopyBytes
hlcoord 8, 10
ld a, SCREEN_WIDTH * 2
ld [Buffer1], a
predef ListMoves
hlcoord 12, 11
ld a, $28
ld [Buffer1], a
predef Function50c50
ret
Function4e189: ; 4e189 (13:6189)
ld de, String_4e1a5
ld a, [TempMonItem]
and a
ret z
ld b, a
callba Function28771
ld a, b
ld [wd265], a
call GetItemName
ret
; 4e1a0 (13:61a0)
String_4e1a0: ; 4e1a0
db "ITEM@"
; 4e1a5
String_4e1a5: ; 4e1a5
db "---@"
; 4e1a9
String_4e1a9: ; 4e1a9
db "MOVE@"
; 4e1ae
Function4e1ae: ; 4e1ae (13:61ae)
call Function4e1cc
hlcoord 10, 8
ld de, $14
ld b, $a
ld a, $31
.asm_4e1bb
ld [hl], a
add hl, de
dec b
jr nz, .asm_4e1bb
hlcoord 11, 8
ld bc, $6
predef PrintTempMonStats
ret
Function4e1cc: ; 4e1cc (13:61cc)
ld de, IDNoString
hlcoord 0, 9
call PlaceString
ld de, OTString
hlcoord 0, 12
call PlaceString
hlcoord 2, 10
ld bc, $8205
ld de, TempMonID
call PrintNum
ld hl, Unknown_4e216
call Function4e528
call Function4e505
callba CheckNickErrors
hlcoord 2, 13
call PlaceString
ld a, [TempMonCaughtGender]
and a
jr z, .asm_4e215
cp $7f
jr z, .asm_4e215
and $80
ld a, "♂"
jr z, .asm_4e211
ld a, "♀"
.asm_4e211
hlcoord 9, 13
ld [hl], a
.asm_4e215
ret
; 4e216 (13:6216)
Unknown_4e216: ; 4e216
dw PartyMonOT
dw OTPartyMonOT
dw sBoxMonOT
dw wd00d
; 4e21e
IDNoString: ; 4e21e
db $73, "№.@"
OTString: ; 4e222
db "OT/@"
; 4e226
Function4e226: ; 4e226 (13:6226)
ld hl, TempMonDVs
predef GetUnownLetter
call Function4e2ad
jr c, .asm_4e238
and a
jr z, .asm_4e23f
jr .asm_4e246
.asm_4e238
call Function4e271
call Function32f9
ret
.asm_4e23f
call Function4e253
call Function32f9
ret
.asm_4e246
call Function32f9
call Function4e253
ld a, [CurPartySpecies]
call PlayCry2
ret
Function4e253: ; 4e253 (13:6253)
ld hl, wcf64
set 5, [hl]
ld a, [CurPartySpecies]
cp UNOWN
jr z, .asm_4e266
hlcoord 0, 0
call Function3786
ret
.asm_4e266
xor a
ld [wc2c6], a
hlcoord 0, 0
call Function378b
ret
Function4e271: ; 4e271 (13:6271)
ld a, [CurPartySpecies]
cp UNOWN
jr z, .asm_4e281
ld a, $1
ld [wc2c6], a
call Function4e289
ret
.asm_4e281
xor a
ld [wc2c6], a
call Function4e289
ret
Function4e289: ; 4e289 (13:6289)
ld a, [CurPartySpecies]
call IsAPokemon
ret c
call Function4e307
ld de, $9000
predef Function5108b
hlcoord 0, 0
ld d, $0
ld e, $2
predef Functiond00a3
ld hl, wcf64
set 6, [hl]
ret
Function4e2ad: ; 4e2ad (13:62ad)
ld a, [MonType]
ld hl, Jumptable_4e2b5
rst JumpTable
ret
Jumptable_4e2b5: ; 4e2b5 (13:62b5)
dw Function4e2bf
dw Function4e2cf
dw Function4e2d1
dw Function4e2ed
dw Function4e301
Function4e2bf: ; 4e2bf (13:62bf)
ld a, [CurPartyMon]
ld hl, PartyMons ; wdcdf (aliases: PartyMon1, PartyMon1Species)
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld b, h
ld c, l
jr Function4e2f2
Function4e2cf: ; 4e2cf (13:62cf)
xor a
ret
Function4e2d1: ; 4e2d1 (13:62d1)
ld hl, sBoxMons
ld bc, $30
ld a, [CurPartyMon]
call AddNTimes
ld b, h
ld c, l
ld a, $1
call GetSRAMBank
call Function4e2f2
push af
call CloseSRAM
pop af
ret
Function4e2ed: ; 4e2ed (13:62ed)
ld bc, TempMonSpecies ; wd10e (aliases: TempMon)
jr Function4e2f2
Function4e2f2: ; 4e2f2 (13:62f2)
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_4e2fe
call Function4e53f
jr c, Function4e305
.asm_4e2fe
xor a
scf
ret
Function4e301: ; 4e301 (13:6301)
ld a, $1
and a
ret
Function4e305: ; 4e305 (13:6305)
xor a
ret
Function4e307: ; 4e307 (13:6307)
nop
push hl
push de
push bc
push af
call DelayFrame
ld a, [rVBK] ; $ff00+$4f
push af
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld de, GFX_f9204
lb bc, BANK(GFX_f9204), 1
ld hl, $97f0
call Get2bpp
pop af
ld [rVBK], a ; $ff00+$4f
pop af
pop bc
pop de
pop hl
ret
; 4e32a (13:632a)
Unknown_4e32a: ; 4e32a
; A blank tile?
ds 16
; 4e33a
EggStatsScreen: ; 4e33a
xor a
ld [hBGMapMode], a
ld hl, wcda1
call SetHPPal
ld b, $3
call GetSGBLayout
call Function4df8f
ld de, EggString
hlcoord 8, 1
call PlaceString
ld de, IDNoString
hlcoord 8, 3
call PlaceString
ld de, OTString
hlcoord 8, 5
call PlaceString
ld de, FiveQMarkString
hlcoord 11, 3
call PlaceString
ld de, FiveQMarkString
hlcoord 11, 5
call PlaceString
ld a, [TempMonHappiness] ; egg status
ld de, EggSoonString
cp $6
jr c, .picked
ld de, EggCloseString
cp $b
jr c, .picked
ld de, EggMoreTimeString
cp $29
jr c, .picked
ld de, EggALotMoreTimeString
.picked
hlcoord 1, 9
call PlaceString
ld hl, wcf64
set 5, [hl]
call Function32f9 ; pals
call DelayFrame
hlcoord 0, 0
call Function3786
callba Function10402d
call Function4e497
ld a, [TempMonHappiness]
cp 6
ret nc
ld de, SFX_2_BOOPS
call PlaySFX
ret
; 0x4e3c0
EggString: ; 4e3c0
db "EGG@"
FiveQMarkString: ; 4e3c4
db "?????@"
EggSoonString: ; 0x4e3ca
db "It's making sounds"
next "inside. It's going"
next "to hatch soon!@"
EggCloseString: ; 0x4e3fd
db "It moves around"
next "inside sometimes."
next "It must be close"
next "to hatching.@"
EggMoreTimeString: ; 0x4e43d
db "Wonder what's"
next "inside? It needs"
next "more time, though.@"
EggALotMoreTimeString: ; 0x4e46e
db "This EGG needs a"
next "lot more time to"
next "hatch.@"
; 0x4e497
Function4e497: ; 4e497 (13:6497)
call Function4e2ad
ret nc
ld a, [TempMonHappiness]
ld e, $7
cp $6
jr c, .asm_4e4ab
ld e, $8
cp $b
jr c, .asm_4e4ab
ret
.asm_4e4ab
push de
ld a, $1
ld [wc2c6], a
call Function4e307
ld de, $9000
predef Function5108b
pop de
hlcoord 0, 0
ld d, $0
predef Functiond00a3
ld hl, wcf64
set 6, [hl]
ret
Function4e4cd: ; 4e4cd (13:64cd)
hlcoord 13, 5
ld a, $36
call Function4e4f7
hlcoord 15, 5
ld a, $36
call Function4e4f7
hlcoord 17, 5
ld a, $36
call Function4e4f7
ld a, c
cp $2
ld a, $3a
hlcoord 13, 5
jr c, Function4e4f7
hlcoord 15, 5
jr z, Function4e4f7
hlcoord 17, 5
Function4e4f7: ; 4e4f7 (13:64f7)
push bc
ld [hli], a
inc a
ld [hld], a
ld bc, $14
add hl, bc
inc a
ld [hli], a
inc a
ld [hl], a
pop bc
ret
Function4e505: ; 4e505 (13:6505)
ld de, StringBuffer1
ld bc, $b
jr .asm_4e50d
.asm_4e50d
ld a, [MonType]
cp BOXMON
jr nz, .asm_4e522
ld a, $1
call GetSRAMBank
push de
call CopyBytes
pop de
call CloseSRAM
ret
.asm_4e522
push de
call CopyBytes
pop de
ret
Function4e528: ; 4e528 (13:6528)
ld a, [MonType]
add a
ld c, a
ld b, 0
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [MonType]
cp $3
ret z
ld a, [CurPartyMon]
jp SkipNames
Function4e53f: ; 4e53f
ld hl, PartyMon1HP - PartyMon1
add hl, bc
ld a, [hli]
or [hl]
jr z, .asm_4e552
ld hl, PartyMon1Status - PartyMon1
add hl, bc
ld a, [hl]
and (1 << FRZ) | SLP
jr nz, .asm_4e552
and a
ret
.asm_4e552
scf
ret
; 4e554
Function4e554:: ; 4e554
ld a, [BattleType]
dec a
ld c, a
ld hl, Jumptable_4e564
ld b, 0
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 4e564
Jumptable_4e564: ; 4e564 (13:6564)
dw Function4e56a
dw Function4e56a
dw Function4e56a
Function4e56a: ; 4e56a (13:656a)
ld hl, PlayerName
ld de, MomsName
ld bc, NAME_LENGTH
call CopyBytes
ld hl, DudeString
ld de, PlayerName
ld bc, NAME_LENGTH
call CopyBytes
call Function4e5b7
xor a
ld [hJoyDown], a
ld [hJoyPressed], a
ld a, [Options]
push af
and $f8
add $3
ld [Options], a
ld hl, AutoInput_4e5df
ld a, BANK(AutoInput_4e5df)
call StartAutoInput
callab StartBattle
call StopAutoInput
pop af
ld [Options], a
ld hl, MomsName
ld de, PlayerName
ld bc, NAME_LENGTH
call CopyBytes
ret
Function4e5b7: ; 4e5b7 (13:65b7)
ld hl, OTPartyMon1
ld [hl], $1
inc hl
ld [hl], $12
inc hl
ld [hl], $1
inc hl
ld [hl], $ff
ld hl, OTPartyMon1Exp + 2
ld [hl], $0
inc hl
ld [hl], $ff
ld hl, OTPartyMon1CaughtGender
ld a, $1
ld [hli], a
ld a, $5
rept 2
ld [hli], a
endr
ld [hl], $ff
ret
; 4e5da (13:65da)
DudeString: ; 4e5da
db "DUDE@"
; 4e5df
AutoInput_4e5df: ; 4e5df
db NO_INPUT, $ff ; end
; 4e5e1
EvolutionAnimation: ; 4e5e1
push hl
push de
push bc
ld a, [CurSpecies]
push af
ld a, [rOBP0]
push af
ld a, [BaseDexNo]
push af
call _EvolutionAnimation
pop af
ld [BaseDexNo], a
pop af
ld [rOBP0], a
pop af
ld [CurSpecies], a
pop bc
pop de
pop hl
ld a, [wd1ed]
and a
ret z
scf
ret
; 4e607
_EvolutionAnimation: ; 4e607
ld a, $e4
ld [rOBP0], a
ld de, MUSIC_NONE
call PlayMusic
callba Function8cf53
ld de, EvolutionGFX
ld hl, VTiles0
lb bc, BANK(EvolutionGFX), 8
call Request2bpp
xor a
ld [Danger], a
call WaitBGMap
xor a
ld [hBGMapMode], a
ld a, [Buffer1]
ld [PlayerHPPal], a
ld c, $0
call Function4e703
ld a, [Buffer1]
ld [CurPartySpecies], a
ld [CurSpecies], a
call Function4e708
ld de, VTiles2
ld hl, $9310
ld bc, $0031
call Request2bpp
ld a, $31
ld [wd1ec], a
call Function4e755
ld a, [Buffer2]
ld [CurPartySpecies], a
ld [CurSpecies], a
call Function4e711
ld a, [Buffer1]
ld [CurPartySpecies], a
ld [CurSpecies], a
ld a, $1
ld [hBGMapMode], a
call Function4e794
jr c, .asm_4e67c
ld a, [Buffer1]
call PlayCry
.asm_4e67c
ld de, MUSIC_EVOLUTION
call PlayMusic
ld c, 80
call DelayFrames
ld c, $1
call Function4e703
call Function4e726
jr c, .asm_4e6df
ld a, $cf
ld [wd1ec], a
call Function4e755
xor a
ld [wd1ed], a
ld a, [Buffer2]
ld [PlayerHPPal], a
ld c, $0
call Function4e703
call Function4e7a6
callba Function8cf53
call Function4e794
jr c, .asm_4e6de
ld a, [wc2c6]
push af
ld a, $1
ld [wc2c6], a
ld a, [CurPartySpecies]
push af
ld a, [PlayerHPPal]
ld [CurPartySpecies], a
hlcoord 7, 2
ld d, $0
ld e, $4
predef Functiond008e
pop af
ld [CurPartySpecies], a
pop af
ld [wc2c6], a
ret
.asm_4e6de
ret
.asm_4e6df
ld a, $1
ld [wd1ed], a
ld a, [Buffer1]
ld [PlayerHPPal], a
ld c, $0
call Function4e703
call Function4e7a6
callba Function8cf53
call Function4e794
ret c
ld a, [PlayerHPPal]
call PlayCry
ret
; 4e703
Function4e703: ; 4e703
ld b, $b
jp GetSGBLayout
; 4e708
Function4e708: ; 4e708
call GetBaseData
hlcoord 7, 2
jp Function3786
; 4e711
Function4e711: ; 4e711
call GetBaseData
ld a, $1
ld [wc2c6], a
ld de, VTiles2
predef Function5108b
xor a
ld [wc2c6], a
ret
; 4e726
Function4e726: ; 4e726
call ClearJoypad
ld bc, $010e
.asm_4e72c
push bc
call Function4e779
pop bc
jr c, .asm_4e73f
push bc
call Function4e741
pop bc
inc b
rept 2
dec c
endr
jr nz, .asm_4e72c
and a
ret
.asm_4e73f
scf
ret
; 4e741
Function4e741: ; 4e741
.asm_4e741
ld a, $cf
ld [wd1ec], a
call Function4e755
ld a, $31
ld [wd1ec], a
call Function4e755
dec b
jr nz, .asm_4e741
ret
; 4e755
Function4e755: ; 4e755
push bc
xor a
ld [hBGMapMode], a
hlcoord 7, 2
lb bc, 7, 7
ld de, $000d
.asm_4e762
push bc
.asm_4e763
ld a, [wd1ec]
add [hl]
ld [hli], a
dec c
jr nz, .asm_4e763
pop bc
add hl, de
dec b
jr nz, .asm_4e762
ld a, $1
ld [hBGMapMode], a
call WaitBGMap
pop bc
ret
; 4e779
Function4e779: ; 4e779
.asm_4e779
call DelayFrame
push bc
call Functiona57
ld a, [hJoyDown]
pop bc
and $2
jr nz, .asm_4e78c
.asm_4e787
dec c
jr nz, .asm_4e779
and a
ret
.asm_4e78c
ld a, [wd1e9]
and a
jr nz, .asm_4e787
scf
ret
; 4e794
Function4e794: ; 4e794
ld a, [CurPartyMon]
ld hl, PartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
callba Function4e53f
ret
; 4e7a6
Function4e7a6: ; 4e7a6
ld a, [wd1ed]
and a
ret nz
ld de, SFX_EVOLVED
call PlaySFX
ld hl, wcf63
ld a, [hl]
push af
ld [hl], $0
.asm_4e7b8
call Function4e7cf
jr nc, .asm_4e7c2
call Function4e80c
jr .asm_4e7b8
.asm_4e7c2
ld c, $20
.asm_4e7c4
call Function4e80c
dec c
jr nz, .asm_4e7c4
pop af
ld [wcf63], a
ret
; 4e7cf
Function4e7cf: ; 4e7cf
ld hl, wcf63
ld a, [hl]
cp $20
ret nc
ld d, a
inc [hl]
and $1
jr nz, .asm_4e7e6
ld e, $0
call Function4e7e8
ld e, $10
call Function4e7e8
.asm_4e7e6
scf
ret
; 4e7e8
Function4e7e8: ; 4e7e8
push de
ld de, $4858
ld a, $13
call Function3b2a
ld hl, $000b
add hl, bc
ld a, [wcf63]
and $e
sla a
pop de
add e
ld [hl], a
ld hl, $0003
add hl, bc
ld [hl], $0
ld hl, $000c
add hl, bc
ld [hl], $10
ret
; 4e80c
Function4e80c: ; 4e80c
push bc
callab Function8cf69
ld a, [$ff9b]
and $e
srl a
rept 2
inc a
endr
and $7
ld b, a
ld hl, Sprites + 3
ld c, $28
.asm_4e823
ld a, [hl]
or b
ld [hli], a
rept 3
inc hl
endr
dec c
jr nz, .asm_4e823
pop bc
call DelayFrame
ret
; 4e831
EvolutionGFX:
INCBIN "gfx/evo/bubble_large.2bpp"
INCBIN "gfx/evo/bubble.2bpp"
Function4e881: ; 4e881
call WhiteBGMap
call ClearTileMap
call ClearSprites
call DisableLCD
call Functione51
call Functione58
ld hl, VBGMap0
ld bc, $400
ld a, $7f
call ByteFill
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
xor a
ld [hSCY], a
ld [hSCX], a
call EnableLCD
ld hl, UnknownText_0x4e8bd
call PrintText
call Function3200
call Function32f9
ret
; 4e8bd
UnknownText_0x4e8bd: ; 0x4e8bd
; SAVING RECORD… DON'T TURN OFF!
text_jump UnknownText_0x1bd39e
db "@"
; 0x4e8c2
Function4e8c2: ; 4e8c2
call WhiteBGMap
call ClearTileMap
call ClearSprites
call DisableLCD
call Functione51
call Functione58
ld hl, VBGMap0
ld bc, $400
ld a, $7f
call ByteFill
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
ld hl, wd000
ld c, $40
.asm_4e8ee
ld a, $ff
ld [hli], a
ld a, $7f
ld [hli], a
dec c
jr nz, .asm_4e8ee
xor a
ld [hSCY], a
ld [hSCX], a
call EnableLCD
call Function3200
call Function32f9
ret
; 4e906
Function4e906: ; 4e906
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld hl, w6_d000
ld bc, $400
ld a, $7f
call ByteFill
ld hl, VBGMap0
ld de, w6_d000
ld b, $0
ld c, $40
call Request2bpp
pop af
ld [rSVBK], a
ret
; 4e929
Function4e929: ; 4e929
ld h, b
ld l, c
call Function4e930
ld c, a
ret
; 4e930
Function4e930: ; 4e930
ld a, [hli]
xor [hl]
ld c, a
jr z, .asm_4e941
srl c
srl c
.asm_4e939
srl c
ld a, c
cp MaleTrainersEnd - MaleTrainers - 1
jr nc, .asm_4e939
inc c
.asm_4e941
ld a, [de]
cp $1
ld hl, MaleTrainers
jr nz, .asm_4e958
ld hl, FemaleTrainers
ld a, c
and a
jr z, .asm_4e958
.asm_4e950
srl c
ld a, c
cp FemaleTrainersEnd - FemaleTrainers - 1
jr nc, .asm_4e950
inc c
.asm_4e958
ld b, $0
add hl, bc
ld a, [hl]
ret
; 4e95d
MaleTrainers: ; 4e95d
db BURGLAR
db YOUNGSTER
db SCHOOLBOY
db BIRD_KEEPER
db POKEMANIAC
db GENTLEMAN
db BUG_CATCHER
db FISHER
db SWIMMERM
db SAILOR
db SUPER_NERD
db GUITARIST
db HIKER
db FIREBREATHER
db BLACKBELT_T
db PSYCHIC_T
db CAMPER
db COOLTRAINERM
db BOARDER
db JUGGLER
db POKEFANM
db OFFICER
db SAGE
db BIKER
db SCIENTIST
MaleTrainersEnd:
; 4e976
FemaleTrainers: ; 4e976
db MEDIUM
db LASS
db BEAUTY
db SKIER
db TEACHER
db SWIMMERF
db PICNICKER
db KIMONO_GIRL
db POKEFANF
db COOLTRAINERF
FemaleTrainersEnd:
; 4e980
Function4e980: ; 4e980
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
call Function4e998
ld a, rSCX - $ff00
ld [hLCDStatCustom], a
call Function4e9ab
xor a
ld [hLCDStatCustom], a
pop af
ld [rSVBK], a
ret
; 4e998
Function4e998: ; 4e998
call Function4e9e5
ld a, $90
ld [hSCX], a
ld a, $e4
call DmgToCgbBGPals
ld de, $e4e4
call DmgToCgbObjPals
ret
; 4e9ab
Function4e9ab: ; 4e9ab
ld d, $90
ld e, $72
ld a, $48
inc a
.asm_4e9b2
push af
.asm_4e9b3
ld a, [rLY]
cp $60
jr c, .asm_4e9b3
ld a, d
ld [hSCX], a
call Function4e9f1
rept 2
inc e
endr
rept 2
dec d
endr
pop af
push af
cp $1
jr z, .asm_4e9ce
push de
call Function4e9d6
pop de
.asm_4e9ce
call DelayFrame
pop af
dec a
jr nz, .asm_4e9b2
ret
; 4e9d6
Function4e9d6: ; 4e9d6
ld hl, Sprites + 1
ld c, $12
ld de, $0004
.asm_4e9de
rept 2
dec [hl]
endr
add hl, de
dec c
jr nz, .asm_4e9de
ret
; 4e9e5
Function4e9e5: ; 4e9e5
ld hl, LYOverrides
ld a, $90
ld bc, $0090
call ByteFill
ret
; 4e9f1
Function4e9f1: ; 4e9f1
ld hl, LYOverrides
ld a, d
ld c, $3e
.asm_4e9f7
ld [hli], a
dec c
jr nz, .asm_4e9f7
ld a, e
ld c, $22
.asm_4e9fe
ld [hli], a
dec c
jr nz, .asm_4e9fe
xor a
ld c, $30
.asm_4ea05
ld [hli], a
dec c
jr nz, .asm_4ea05
ret
; 4ea0a
Function4ea0a: ; 4ea0a
ld a, c
push af
call SpeechTextBox
call MobileTextBorder
pop af
dec a
ld bc, $000c
ld hl, wdc1a
call AddNTimes
ld de, wcd53
ld bc, $000c
ld a, $5
call FarCopyWRAM
ld a, [rSVBK]
push af
ld a, $1
ld [rSVBK], a
ld bc, wcd53
decoord 1, 14
callba Function11c0c6
pop af
ld [rSVBK], a
ld c, $b4
call DelayFrames
ret
; 4ea44
CheckBattleScene: ; 4ea44
; Return carry if battle scene is turned off.
ld a, 0
ld hl, InLinkBattle
call GetFarWRAMByte
cp 4
jr z, .mobile
ld a, [Options]
bit BATTLE_SCENE, a
jr nz, .off
and a
ret
.mobile
ld a, [wcd2f]
and a
jr nz, .asm_4ea72
ld a, $4
call GetSRAMBank
ld a, [$a60c]
ld c, a
call CloseSRAM
ld a, c
bit 0, c
jr z, .off
and a
ret
.asm_4ea72
ld a, $5
ld hl, wdc00
call GetFarWRAMByte
bit 0, a
jr z, .off
and a
ret
.off
scf
ret
; 4ea82
INCLUDE "misc/gbc_only.asm"
INCLUDE "event/poke_seer.asm"
SECTION "bank14", ROMX, BANK[$14]
SelectMonFromParty: ; 50000
call Function2ed3
xor a
ld [PartyMenuActionText], a
call WhiteBGMap
call Function5003f
call WaitBGMap
call Function32f9
call DelayFrame
call PartyMenuSelect
call Function2b74
ret
; 5001d
Function5001d: ; 5001d
ld a, b
ld [PartyMenuActionText], a
call Function2ed3
call WhiteBGMap
call Function5003f
call WaitBGMap
ld b, $a
call GetSGBLayout
call Function32f9
call DelayFrame
call PartyMenuSelect
call Function2b74
ret
; 5003f
Function5003f: ; 5003f
call Function5004f
call Function50405
call Function503e0
call WritePartyMenuTilemap
call PrintPartyMenuText
ret
; 5004f
Function5004f: ; 5004f
call Functione58
callab Function8ad1
callab Function8e814
ret
; 5005f
WritePartyMenuTilemap: ; 0x5005f
ld hl, Options
ld a, [hl]
push af
set 4, [hl] ; Disable text delay
xor a
ld [hBGMapMode], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, " "
call ByteFill ; blank the tilemap
call Function50396 ; This reads from a pointer table???
.asm_50077
ld a, [hli]
cp $ff
jr z, .asm_50084 ; 0x5007a $8
push hl
ld hl, Jumptable_50089
rst JumpTable
pop hl
jr .asm_50077 ; 0x50082 $f3
.asm_50084
pop af
ld [Options], a
ret
; 0x50089
Jumptable_50089: ; 50089
dw Function5009b
dw Function500cf
dw Function50138
dw Function50176
dw Function501b2
dw Function501e0
dw Function5022f
dw Function502b1
dw Function50307
; 5009b
Function5009b: ; 5009b
hlcoord 3, 1
ld a, [PartyCount]
and a
jr z, .asm_500bf
ld c, a
ld b, $0
.asm_500a7
push bc
push hl
push hl
ld hl, PartyMonNicknames
ld a, b
call GetNick
pop hl
call PlaceString
pop hl
ld de, $0028
add hl, de
pop bc
inc b
dec c
jr nz, .asm_500a7
.asm_500bf
rept 2
dec hl
endr
ld de, String_500c8
call PlaceString
ret
; 500c8
String_500c8: ; 500c8
db "CANCEL@"
; 500cf
Function500cf: ; 500cf
xor a
ld [wcda9], a
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, $0
hlcoord 11, 2
.asm_500de
push bc
push hl
call Function50389
jr z, .asm_50103
push hl
call Function50117
pop hl
ld d, $6
ld b, $0
call DrawHPBar
ld hl, wcd9b
ld a, [wcda9]
ld c, a
ld b, $0
add hl, bc
call SetHPPal
ld b, $fc
call GetSGBLayout
.asm_50103
ld hl, wcda9
inc [hl]
pop hl
ld de, $0028
add hl, de
pop bc
inc b
dec c
jr nz, .asm_500de
ld b, $a
call GetSGBLayout
ret
; 50117
Function50117: ; 50117
ld a, b
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1HP
call AddNTimes
ld a, [hli]
or [hl]
jr nz, .asm_50129
xor a
ld e, a
ld c, a
ret
.asm_50129
dec hl
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
ld a, [hli]
ld d, a
ld a, [hli]
ld e, a
predef Functionc699
ret
; 50138
Function50138: ; 50138
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, $0
hlcoord 13, 1
.asm_50143
push bc
push hl
call Function50389
jr z, .asm_5016b
push hl
ld a, b
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1HP
call AddNTimes
ld e, l
ld d, h
pop hl
push de
ld bc, $0203
call PrintNum
pop de
ld a, $f3
ld [hli], a
rept 2
inc de
endr
ld bc, $0203
call PrintNum
.asm_5016b
pop hl
ld de, $0028
add hl, de
pop bc
inc b
dec c
jr nz, .asm_50143
ret
; 50176
Function50176: ; 50176
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, 0
hlcoord 8, 2
.asm_50181
push bc
push hl
call Function50389
jr z, .asm_501a7
push hl
ld a, b
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1Level
call AddNTimes
ld e, l
ld d, h
pop hl
ld a, [de]
cp 100 ; This is distinct from MAX_LEVEL.
jr nc, .asm_501a1
ld a, LV_CHAR
ld [hli], a
ld bc, $4102
.asm_501a1
ld bc, $4103
call PrintNum
.asm_501a7
pop hl
ld de, SCREEN_WIDTH * 2
add hl, de
pop bc
inc b
dec c
jr nz, .asm_50181
ret
; 501b2
Function501b2: ; 501b2
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, 0
hlcoord 5, 2
.asm_501bd
push bc
push hl
call Function50389
jr z, .asm_501d5
push hl
ld a, b
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1Status
call AddNTimes
ld e, l
ld d, h
pop hl
call Function50d0a
.asm_501d5
pop hl
ld de, SCREEN_WIDTH * 2
add hl, de
pop bc
inc b
dec c
jr nz, .asm_501bd
ret
; 501e0
Function501e0: ; 501e0
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, 0
hlcoord 12, 2
.asm_501eb
push bc
push hl
call Function50389
jr z, .asm_5020a
push hl
ld hl, PartySpecies
ld e, b
ld d, 0
add hl, de
ld a, [hl]
ld [CurPartySpecies], a
predef CanLearnTMHMMove
pop hl
call Function50215
call PlaceString
.asm_5020a
pop hl
ld de, SCREEN_WIDTH * 2
add hl, de
pop bc
inc b
dec c
jr nz, .asm_501eb
ret
; 50215
Function50215: ; 50215
ld a, c
and a
jr nz, .asm_5021d
ld de, String_50226
ret
.asm_5021d
ld de, String_50221
ret
; 50221
String_50221: ; 50221
db "ABLE@"
; 50226
String_50226: ; 50226
db "NOT ABLE@"
; 5022f
Function5022f: ; 5022f
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, 0
hlcoord 12, 2
.asm_5023a
push bc
push hl
call Function50389
jr z, .asm_5025d
push hl
ld a, b
ld bc, PartyMon2 - PartyMon1
ld hl, PartyMon1Species
call AddNTimes
ld a, [hl]
dec a
ld e, a
ld d, 0
ld hl, EvosAttacksPointers
rept 2
add hl, de
endr
call Function50268
pop hl
call PlaceString
.asm_5025d
pop hl
ld de, $0028
add hl, de
pop bc
inc b
dec c
jr nz, .asm_5023a
ret
; 50268
Function50268: ; 50268
ld de, StringBuffer1
ld a, BANK(EvosAttacksPointers)
ld bc, 2
call FarCopyBytes
ld hl, StringBuffer1
ld a, [hli]
ld h, [hl]
ld l, a
ld de, StringBuffer1
ld a, BANK(EvosAttacks)
ld bc, $a
call FarCopyBytes
ld hl, StringBuffer1
.asm_50287
ld a, [hli]
and a
jr z, .asm_5029f
rept 2
inc hl
endr
cp EVOLVE_ITEM
jr nz, .asm_50287
rept 2
dec hl
endr
ld a, [CurItem]
cp [hl]
rept 2
inc hl
endr
jr nz, .asm_50287
ld de, String_502a3
ret
.asm_5029f
ld de, String_502a8
ret
; 502a3
String_502a3: ; 502a3
db "ABLE@"
; 502a8
String_502a8: ; 502a8
db "NOT ABLE@"
; 502b1
Function502b1: ; 502b1
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, 0
hlcoord 12, 2
.asm_502bc
push bc
push hl
call Function50389
jr z, .asm_502e3
ld [CurPartySpecies], a
push hl
ld a, b
ld [CurPartyMon], a
xor a
ld [MonType], a
call GetGender
ld de, String_502fe
jr c, .asm_502df
ld de, String_502ee
jr nz, .asm_502df
ld de, String_502f5
.asm_502df
pop hl
call PlaceString
.asm_502e3
pop hl
ld de, $0028
add hl, de
pop bc
inc b
dec c
jr nz, .asm_502bc
ret
; 502ee
String_502ee: ; 502ee
db "♂…MALE@"
; 502f5
String_502f5: ; 502f5
db "♀…FEMALE@"
; 502fe
String_502fe: ; 502fe
db "…UNKNOWN@"
; 50307
Function50307: ; 50307
ld a, [PartyCount]
and a
ret z
ld c, a
ld b, 0
hlcoord 12, 1
.asm_50312
push bc
push hl
ld de, String_50372
call PlaceString
pop hl
ld de, $0028
add hl, de
pop bc
inc b
dec c
jr nz, .asm_50312
ld a, l
ld e, $b
sub e
ld l, a
ld a, h
sbc $0
ld h, a
ld de, String_50379
call PlaceString
ld b, $3
ld c, $0
ld hl, DefaultFlypoint
ld a, [hl]
.asm_5033b
push hl
push bc
hlcoord 12, 1
.asm_50340
and a
jr z, .asm_5034a
ld de, $0028
add hl, de
dec a
jr .asm_50340
.asm_5034a
ld de, String_5036b
push hl
call PlaceString
pop hl
pop bc
push bc
push hl
ld a, c
ld hl, Strings_50383
call GetNthString
ld d, h
ld e, l
pop hl
call PlaceString
pop bc
pop hl
inc hl
ld a, [hl]
inc c
dec b
ret z
jr .asm_5033b
; 5036b
String_5036b: ; 5036b
db " ばんめ @" ; Place
; 50372
String_50372: ; 50372
db "さんかしない@" ; Cancel
; 50379
String_50379: ; 50379
db "けってい やめる@" ; Quit
; 50383
Strings_50383: ; 50383
db "1@", "2@", "3@" ; 1st, 2nd, 3rd
; 50389
Function50389: ; 50389
ld a, PartySpecies % $100
add b
ld e, a
ld a, PartySpecies / $100
adc 0
ld d, a
ld a, [de]
cp EGG
ret
; 50396
Function50396: ; 50396
ld a, [PartyMenuActionText]
and $f0
jr nz, .asm_503ae
ld a, [PartyMenuActionText]
and $f
ld e, a
ld d, 0
ld hl, Unknown_503b2
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ret
.asm_503ae
ld hl, Unknown_503c6
ret
; 503b2
Unknown_503b2: ; 503b2
dw Unknown_503c6
dw Unknown_503c6
dw Unknown_503c6
dw Unknown_503cc
dw Unknown_503c6
dw Unknown_503d1
dw Unknown_503d6
dw Unknown_503d6
dw Unknown_503c6
dw Unknown_503db
; 503c6
Unknown_503c6: db 0, 1, 2, 3, 4, $ff
Unknown_503cc: db 0, 5, 3, 4, $ff
Unknown_503d1: db 0, 6, 3, 4, $ff
Unknown_503d6: db 0, 7, 3, 4, $ff
Unknown_503db: db 0, 8, 3, 4, $ff
; 503e0
Function503e0: ; 503e0
ld hl, PartyCount
ld a, [hli]
and a
ret z
ld c, a
xor a
ld [$ffb0], a
.asm_503ea
push bc
push hl
ld hl, Function8e83f
ld a, BANK(Function8e83f)
ld e, $0
rst FarCall
ld a, [$ffb0]
inc a
ld [$ffb0], a
pop hl
pop bc
dec c
jr nz, .asm_503ea
callab Function8cf69
ret
; 50405
Function50405: ; 50405
xor a
ld [wd0e3], a
ld de, Unknown_5044f
call Function1bb1
ld a, [PartyCount]
inc a
ld [wcfa3], a
dec a
ld b, a
ld a, [wd0d8]
and a
jr z, .asm_50422
inc b
cp b
jr c, .asm_50424
.asm_50422
ld a, $1
.asm_50424
ld [wcfa9], a
ld a, $3
ld [wcfa8], a
ret
; 5042d
Function5042d: ; 0x5042d
ld de, Unknown_5044f
call Function1bb1
ld a, [PartyCount]
ld [wcfa3], a
ld b, a
ld a, [wd0d8]
and a
jr z, .asm_50444
inc b
cp b
jr c, .asm_50446
.asm_50444
ld a, $1
.asm_50446
ld [wcfa9], a
ld a, $3
ld [wcfa8], a
ret
; 5044f (14:444f)
Unknown_5044f: ; 5044f
; cursor y
; cursor x
; list length
; ?
; bit 6: animate sprites bit 5: wrap around
; ?
; distance between items (hi: y, lo: x)
; allowed buttons (mask)
db $01, $00, $00, $01, $60, $00, $20, $00
; 50457
PartyMenuSelect: ; 0x50457
; sets carry if exitted menu.
call Function1bc9
call Function1bee
ld a, [PartyCount]
inc a
ld b, a
ld a, [wcfa9] ; menu selection?
cp b
jr z, .exitmenu ; CANCEL
ld [wd0d8], a
ld a, [$ffa9]
ld b, a
bit 1, b
jr nz, .exitmenu ; B button?
ld a, [wcfa9]
dec a
ld [CurPartyMon], a
ld c, a
ld b, $0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
ld [CurPartySpecies], a
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
and a
ret
.exitmenu
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
scf
ret
; 0x5049a
PrintPartyMenuText: ; 5049a
hlcoord 0, 14
ld bc, $0212
call TextBox
ld a, [PartyCount]
and a
jr nz, .haspokemon
ld de, YouHaveNoPKMNString
jr .gotstring
.haspokemon ; 504ae
ld a, [PartyMenuActionText]
and $f ; drop high nibble
ld hl, PartyMenuStrings
ld e, a
ld d, $0
rept 2
add hl, de
endr
ld a, [hli]
ld d, [hl]
ld e, a
.gotstring ; 504be
ld a, [Options]
push af
set 4, a ; disable text delay
ld [Options], a
hlcoord 1, 16 ; Coord
call PlaceString
pop af
ld [Options], a
ret
; 0x504d2
PartyMenuStrings: ; 0x504d2
dw ChooseAMonString
dw UseOnWhichPKMNString
dw WhichPKMNString
dw TeachWhichPKMNString
dw MoveToWhereString
dw UseOnWhichPKMNString
dw ChooseAMonString ; Probably used to be ChooseAFemalePKMNString
dw ChooseAMonString ; Probably used to be ChooseAMalePKMNString
dw ToWhichPKMNString
ChooseAMonString: ; 0x504e4
db "Choose a #MON.@"
UseOnWhichPKMNString: ; 0x504f3
db "Use on which ", $e1, $e2, "?@"
WhichPKMNString: ; 0x50504
db "Which ", $e1, $e2, "?@"
TeachWhichPKMNString: ; 0x5050e
db "Teach which ", $e1, $e2, "?@"
MoveToWhereString: ; 0x5051e
db "Move to where?@"
ChooseAFemalePKMNString: ; 0x5052d ; UNUSED
db "Choose a ♀", $e1, $e2, ".@"
ChooseAMalePKMNString: ; 0x5053b ; UNUSED
db "Choose a ♂", $e1, $e2, ".@"
ToWhichPKMNString: ; 0x50549
db "To which ", $e1, $e2, "?@"
YouHaveNoPKMNString: ; 0x50556
db "You have no ", $e1, $e2, "!@"
Function50566: ; 50566
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
call GetNick
ld a, [PartyMenuActionText]
and $f
ld hl, Unknown_5057b
call Function505c1
ret
; 5057b
Unknown_5057b: ; 5057b
dw UnknownText_0x50594
dw UnknownText_0x5059e
dw UnknownText_0x505a3
dw UnknownText_0x505a8
dw UnknownText_0x50599
dw UnknownText_0x5058f
dw UnknownText_0x505ad
dw UnknownText_0x505b2
dw UnknownText_0x505b7
dw UnknownText_0x505bc
; 5058f
UnknownText_0x5058f: ; 0x5058f
; recovered @ HP!
text_jump UnknownText_0x1bc0a2
db "@"
; 0x50594
UnknownText_0x50594: ; 0x50594
; 's cured of poison.
text_jump UnknownText_0x1bc0bb
db "@"
; 0x50599
UnknownText_0x50599: ; 0x50599
; 's rid of paralysis.
text_jump UnknownText_0x1bc0d2
db "@"
; 0x5059e
UnknownText_0x5059e: ; 0x5059e
; 's burn was healed.
text_jump UnknownText_0x1bc0ea
db "@"
; 0x505a3
UnknownText_0x505a3: ; 0x505a3
; was defrosted.
text_jump UnknownText_0x1bc101
db "@"
; 0x505a8
UnknownText_0x505a8: ; 0x505a8
; woke up.
text_jump UnknownText_0x1bc115
db "@"
; 0x505ad
UnknownText_0x505ad: ; 0x505ad
; 's health returned.
text_jump UnknownText_0x1bc123
db "@"
; 0x505b2
UnknownText_0x505b2: ; 0x505b2
; is revitalized.
text_jump UnknownText_0x1bc13a
db "@"
; 0x505b7
UnknownText_0x505b7: ; 0x505b7
; grew to level @ !@ @
text_jump UnknownText_0x1bc14f
db "@"
; 0x505bc
UnknownText_0x505bc: ; 0x505bc
; came to its senses.
text_jump UnknownText_0x1bc16e
db "@"
; 0x505c1
Function505c1: ; 505c1
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [Options]
push af
set 4, a
ld [Options], a
call PrintText
pop af
ld [Options], a
ret
; 505da
Function505da:: ; 505da
ld a, [PartyCount]
and a
jr z, .asm_5062c
xor a
ld c, 7
ld hl, EngineBuffer1
.asm_505e6
ld [hli], a
dec c
jr nz, .asm_505e6
xor a
ld [CurPartyMon], a
.asm_505ee
call Function5062e
jr nc, .asm_50605
ld a, [CurPartyMon]
ld e, a
ld d, 0
ld hl, wd03f
add hl, de
ld [hl], c
ld a, [EngineBuffer1]
or c
ld [EngineBuffer1], a
.asm_50605
ld a, [PartyCount]
ld hl, CurPartyMon
inc [hl]
cp [hl]
jr nz, .asm_505ee
ld a, [EngineBuffer1]
and $2
jr nz, .asm_50622
ld a, [EngineBuffer1]
and $1
jr z, .asm_5062c
call Function50658
xor a
ret
.asm_50622
ld a, BANK(UnknownScript_0x50669)
ld hl, UnknownScript_0x50669
call CallScript
scf
ret
.asm_5062c
xor a
ret
; 5062e
Function5062e: ; 5062e
ld a, PartyMon1Status - PartyMon1
call GetPartyParamLocation
ld a, [hl]
and 1 << PSN
ret z
ld a, PartyMon1HP - PartyMon1
call GetPartyParamLocation
ld a, [hli]
ld b, a
ld c, [hl]
or c
ret z
dec bc
ld [hl], c
dec hl
ld [hl], b
ld a, b
or c
jr nz, .not_fainted
ld a, PartyMon1Status - PartyMon1
call GetPartyParamLocation
ld [hl], 0
ld c, 2
scf
ret
.not_fainted
ld c, 1
scf
ret
; 50658
Function50658: ; 50658
ld de, SFX_POISON
call PlaySFX
ld b, $2
predef Functioncbcdd
call DelayFrame
ret
; 50669
UnknownScript_0x50669: ; 50669
callasm Function50658
loadfont
callasm Function5067b
iffalse UnknownScript_0x50677
loadmovesprites
end
; 50677
UnknownScript_0x50677: ; 50677
farjump UnknownScript_0x124c8
; 5067b
Function5067b: ; 5067b
xor a
ld [CurPartyMon], a
ld de, wd03f
.asm_50682
push de
ld a, [de]
and 2
jr z, .asm_5069c
ld c, 7
callba ChangeHappiness
callba GetPartyNick
ld hl, PoisonFaintText
call PrintText
.asm_5069c
pop de
inc de
ld hl, CurPartyMon
inc [hl]
ld a, [PartyCount]
cp [hl]
jr nz, .asm_50682
predef Function3d873
ld a, d
ld [ScriptVar], a
ret
; 506b2
PoisonFaintText: ; 506b2
text_jump UnknownText_0x1c0acc
db "@"
; 506b7
PoisonWhiteOutText: ; 506b7
text_jump UnknownText_0x1c0ada
db "@"
; 506bc
DoMovementFunctionc: ; 506bc
ld hl, UnknownScript_0x506c8
call ExitMenuCallScript
ld a, $1
ld [wd0ec], a
ret
; 506c8
UnknownScript_0x506c8: ; 0x506c8
reloadmappart
special UpdateTimePals
callasm GetPartyNick
writetext UnknownText_0x50726
closetext
callasm Function506ef
iffalse UnknownScript_0x506e9
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue UnknownScript_0x506e5
battlecheck
startbattle
returnafterbattle
end
; 0x506e5
UnknownScript_0x506e5: ; 0x506e5
farjump BugCatchingContestBattleScript
; 0x506e9
UnknownScript_0x506e9: ; 0x506e9
writetext UnknownText_0x5072b
closetext
loadmovesprites
end
; 0x506ef
Function506ef: ; 506ef
callba Function97cfd
jr nc, .asm_5071e
ld hl, StatusFlags2
bit 2, [hl]
jr nz, .asm_50712
callba Function2a111
ld a, b
and a
jr z, .asm_5071e
callba Function2a14f
jr nz, .asm_5071e
jr .asm_50718
.asm_50712
callba Function97d31
.asm_50718
ld a, $1
ld [ScriptVar], a
ret
.asm_5071e
xor a
ld [ScriptVar], a
ld [BattleType], a
ret
; 50726
UnknownText_0x50726: ; 0x50726
; used SWEET SCENT!
text_jump UnknownText_0x1c0b03
db "@"
; 0x5072b
UnknownText_0x5072b: ; 0x5072b
; Looks like there's nothing here…
text_jump UnknownText_0x1c0b1a
db "@"
; 0x50730
_Squirtbottle: ; 50730
ld hl, UnknownScript_0x5073c
call ExitMenuCallScript
ld a, $1
ld [wd0ec], a
ret
; 5073c
UnknownScript_0x5073c: ; 0x5073c
reloadmappart
special UpdateTimePals
callasm Function50753
iffalse UnknownScript_0x5074b
farjump WateredWeirdTreeScript
; 0x5074b
UnknownScript_0x5074b: ; 0x5074b
jumptext UnknownText_0x5074e
; 0x5074e
UnknownText_0x5074e: ; 0x5074e
; sprinkled water. But nothing happened…
text_jump UnknownText_0x1c0b3b
db "@"
; 0x50753
Function50753: ; 50753
ld a, [MapGroup]
cp GROUP_ROUTE_36
jr nz, .asm_50774
ld a, [MapNumber]
cp MAP_ROUTE_36
jr nz, .asm_50774
callba GetFacingObject
jr c, .asm_50774
ld a, d
cp 23
jr nz, .asm_50774
ld a, $1
ld [ScriptVar], a
ret
.asm_50774
xor a
ld [ScriptVar], a
ret
; 50779
_CardKey: ; 50779
ld a, [MapGroup]
cp GROUP_RADIO_TOWER_3F
jr nz, .nope
ld a, [MapNumber]
cp MAP_RADIO_TOWER_3F
jr nz, .nope
ld a, [PlayerDirection]
and $c
cp OW_UP
jr nz, .nope
call GetFacingTileCoord
ld a, d
cp 18
jr nz, .nope
ld a, e
cp 6
jr nz, .nope
ld hl, UnknownScript_0x507af
call ExitMenuCallScript
ld a, $1
ld [wd0ec], a
ret
.nope
ld a, $0
ld [wd0ec], a
ret
; 507af
UnknownScript_0x507af: ; 0x507af
loadmovesprites
farjump MapRadioTower3FSignpost2Script
; 0x507b4
_BasementKey: ; 507b4
ld a, [MapGroup]
cp GROUP_WAREHOUSE_ENTRANCE
jr nz, .nope
ld a, [MapNumber]
cp MAP_WAREHOUSE_ENTRANCE
jr nz, .nope
call GetFacingTileCoord
ld a, d
cp 22
jr nz, .nope
ld a, e
cp 10
jr nz, .nope
ld hl, UnlockBasementDoorScript
call ExitMenuCallScript
ld a, 1
ld [wd0ec], a
ret
.nope
ld a, $0
ld [wd0ec], a
ret
; 507e1
UnlockBasementDoorScript: ; 0x507e1
loadmovesprites
farjump BasementDoorScript
; 0x507e6
_SacredAsh: ; 507e6
ld a, $0
ld [wd0ec], a
call CheckAnyFaintedMon
ret nc
ld hl, SacredAshScript
call ExitMenuCallScript
ld a, $1
ld [wd0ec], a
ret
; 507fb
CheckAnyFaintedMon: ; 507fb
ld de, PartyMon2 - PartyMon1
ld bc, PartySpecies
ld hl, PartyMon1HP
ld a, [PartyCount]
and a
ret z
.loop
push af
push hl
ld a, [bc]
inc bc
cp EGG
jr z, .next
ld a, [hli]
or [hl]
jr z, .done
.next
pop hl
add hl, de
pop af
dec a
jr nz, .loop
xor a
ret
.done
pop hl
pop af
scf
ret
; 50821
SacredAshScript: ; 0x50821
special HealParty
reloadmappart
playsound SFX_WARP_TO
special FadeBlackBGMap
special FadeInBGMap
special FadeBlackBGMap
special FadeInBGMap
special FadeBlackBGMap
special FadeInBGMap
waitbutton
writetext UnknownText_0x50845
playsound SFX_CAUGHT_MON
waitbutton
closetext
loadmovesprites
end
; 0x50845
UnknownText_0x50845: ; 0x50845
; 's #MON were all healed!
text_jump UnknownText_0x1c0b65
db "@"
; 0x5084a
Function5084a: ; 5084a
ld a, [CurPartyMon]
ld e, a
call Function508d5
ld a, [CurPartySpecies]
ld [CurSpecies], a
call GetBaseData
ld a, [MonType]
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
and a
jr z, .asm_5087b
ld hl, OTPartyMon1Species
ld bc, OTPartyMon2 - OTPartyMon1
cp $1
jr z, .asm_5087b
ld bc, $0020
callab Functione5bb
jr .asm_5088a
.asm_5087b
ld a, [CurPartyMon]
call AddNTimes
ld de, TempMonSpecies
ld bc, PartyMon2 - PartyMon1
call CopyBytes
.asm_5088a
ret
; 5088b
Function5088b: ; 5088b
ld bc, wd018
jr Function50893
; 50890
Function50890: ; 50890
ld bc, TempMon
; fallthrough
; 50893
Function50893: ; 50893
ld hl, TempMonLevel - TempMon
add hl, bc
ld a, [hl]
ld [CurPartyLevel], a
ld hl, TempMonMaxHP - TempMon
add hl, bc
ld d, h
ld e, l
ld hl, TempMonExp + 2 - TempMon
add hl, bc
push bc
ld b, $1
predef Functione167
pop bc
ld hl, TempMonHP - TempMon
add hl, bc
ld d, h
ld e, l
ld a, [CurPartySpecies]
cp EGG
jr nz, .asm_508c1
xor a
ld [de], a
inc de
ld [de], a
jr .asm_508cd
.asm_508c1
push bc
ld hl, TempMonMaxHP - TempMon
add hl, bc
ld bc, 2
call CopyBytes
pop bc
.asm_508cd
ld hl, TempMonStatus - TempMon
add hl, bc
xor a
ld [hli], a
ld [hl], a
ret
; 508d5
Function508d5: ; 508d5
ld a, [MonType]
and a ; PARTYMON
jr z, .asm_508e7
cp OTPARTYMON
jr z, .asm_508ec
cp BOXMON
jr z, .asm_508f1
cp $3
jr z, .asm_50900
; WILDMON
.asm_508e7
ld hl, PartySpecies
jr .asm_50905
.asm_508ec
ld hl, OTPartySpecies
jr .asm_50905
.asm_508f1
ld a, 1 ; BANK(sBoxSpecies)
call GetSRAMBank
ld hl, sBoxSpecies
call .asm_50905
call CloseSRAM
ret
.asm_50900
ld a, [wBreedMon1Species]
jr .asm_50909
.asm_50905
ld d, 0
add hl, de
ld a, [hl]
.asm_50909
ld [CurPartySpecies], a
ret
; 5090d
INCLUDE "text/types.asm"
Function50a28: ; 50a28
ld hl, Strings50a42
ld a, [TrainerClass]
dec a
ld c, a
ld b, 0
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, StringBuffer1
.copy
ld a, [hli]
ld [de], a
inc de
cp "@"
jr nz, .copy
ret
; 50a42
Strings50a42: ; 50a42
; Untranslated trainer class names from Red.
dw .Youngster
dw .BugCatcher
dw .Lass
dw OTName
dw .JrTrainerM
dw .JrTrainerF
dw .Pokemaniac
dw .SuperNerd
dw OTName
dw OTName
dw .Burglar
dw .Engineer
dw .Jack
dw OTName
dw .Swimmer
dw OTName
dw OTName
dw .Beauty
dw OTName
dw .Rocker
dw .Juggler
dw OTName
dw OTName
dw .Blackbelt
dw OTName
dw .ProfOak
dw .Chief
dw .Scientist
dw OTName
dw .Rocket
dw .CooltrainerM
dw .CooltrainerF
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
dw OTName
.Youngster db "たんパン@"
.BugCatcher db "むしとり@"
.Lass db "ミニスカ@"
.JrTrainerM db "ボーイ@"
.JrTrainerF db "ガール@"
.Pokemaniac db "マニア@"
.SuperNerd db "りかけい@"
.Burglar db "どろぼう@"
.Engineer db "ォヤジ@"
.Jack db "ジャック@"
.Swimmer db "かいパン@"
.Beauty db "おねえさん@"
.Rocker db "グループ@"
.Juggler db "ジャグラー@"
.Blackbelt db "からて@"
.ProfOak db "ォーキド@"
.Chief db "チーフ@"
.Scientist db "けんきゅういん@"
.Rocket db "だんいん@"
.CooltrainerM db "エりート♂@"
.CooltrainerF db "エりート♀@"
; 50b0a
DrawPlayerHP: ; 50b0a
ld a, $1
jr DrawHP
DrawEnemyHP: ; 50b0e
ld a, $2
DrawHP: ; 50b10
ld [wd10a], a
push hl
push bc
ld a, [MonType]
cp BOXMON
jr z, .asm_50b30
ld a, [TempMonHP]
ld b, a
ld a, [TempMonHP + 1]
ld c, a
; Any HP?
or b
jr nz, .asm_50b30
xor a
ld c, a
ld e, a
ld a, 6
ld d, a
jp .asm_50b4a
.asm_50b30
ld a, [TempMonMaxHP]
ld d, a
ld a, [TempMonMaxHP + 1]
ld e, a
ld a, [MonType]
cp BOXMON
jr nz, .asm_50b41
ld b, d
ld c, e
.asm_50b41
predef Functionc699
ld a, 6
ld d, a
ld c, a
.asm_50b4a
ld a, c
pop bc
ld c, a
pop hl
push de
push hl
push hl
call DrawHPBar
pop hl
; Print HP
ld bc, $0015 ; move (1,1)
add hl, bc
ld de, TempMonHP
ld a, [MonType]
cp BOXMON
jr nz, .asm_50b66
ld de, TempMonMaxHP
.asm_50b66
ld bc, $0203
call PrintNum
ld a, "/"
ld [hli], a
; Print max HP
ld de, TempMonMaxHP
ld bc, $0203
call PrintNum
pop hl
pop de
ret
; 50b7b
PrintTempMonStats: ; 50b7b
; Print TempMon's stats at hl, with spacing bc.
push bc
push hl
ld de, .StatNames
call PlaceString
pop hl
pop bc
add hl, bc
ld bc, SCREEN_WIDTH
add hl, bc
ld de, TempMonAttack
ld bc, $0203
call .PrintStat
ld de, TempMonDefense
call .PrintStat
ld de, TempMonSpclAtk
call .PrintStat
ld de, TempMonSpclDef
call .PrintStat
ld de, TempMonSpeed
jp PrintNum
; 50bab
.PrintStat: ; 50bab
push hl
call PrintNum
pop hl
ld de, SCREEN_WIDTH * 2
add hl, de
ret
; 50bb5
.StatNames: ; 50bb5
db "ATTACK"
next "DEFENSE"
next "SPCL.ATK"
next "SPCL.DEF"
next "SPEED"
next "@"
; 50bdd
GetGender: ; 50bdd
; Return the gender of a given monster (CurPartyMon/CurOTMon/CurWildMon).
; When calling this function, a should be set to an appropriate MonType value.
; return values:
; a = 1: f = nc|nz; male
; a = 0: f = nc|z; female
; f = c: genderless
; This is determined by comparing the Attack and Speed DVs
; with the species' gender ratio.
; Figure out what type of monster struct we're looking at.
; 0: PartyMon
ld hl, PartyMon1DVs
ld bc, PartyMon2 - PartyMon1
ld a, [MonType]
and a
jr z, .PartyMon
; 1: OTPartyMon
ld hl, OTPartyMon1DVs
dec a
jr z, .PartyMon
; 2: sBoxMon
ld hl, sBoxMon1DVs
ld bc, sBoxMon2 - sBoxMon1
dec a
jr z, .sBoxMon
; 3: Unknown
ld hl, TempMonDVs
dec a
jr z, .DVs
; else: WildMon
ld hl, EnemyMonDVs
jr .DVs
; Get our place in the party/box.
.PartyMon
.sBoxMon
ld a, [CurPartyMon]
call AddNTimes
.DVs
; sBoxMon data is read directly from SRAM.
ld a, [MonType]
cp BOXMON
ld a, 1
call z, GetSRAMBank
; Attack DV
ld a, [hli]
and $f0
ld b, a
; Speed DV
ld a, [hl]
and $f0
swap a
; Put our DVs together.
or b
ld b, a
; Close SRAM if we were dealing with a sBoxMon.
ld a, [MonType]
cp BOXMON
call z, CloseSRAM
; We need the gender ratio to do anything with this.
push bc
ld a, [CurPartySpecies]
dec a
ld hl, BaseData + BaseGender - CurBaseData
ld bc, BaseData1 - BaseData
call AddNTimes
pop bc
ld a, BANK(BaseData)
call GetFarByte
; The higher the ratio, the more likely the monster is to be female.
cp $ff
jr z, .Genderless
and a
jr z, .Male
cp $fe
jr z, .Female
; Values below the ratio are male, and vice versa.
cp b
jr c, .Male
.Female
xor a
ret
.Male
ld a, 1
and a
ret
.Genderless
scf
ret
; 50c50
Function50c50: ; 50c50
ld a, [wd0eb]
inc a
ld c, a
ld a, $4
sub c
ld b, a
push hl
ld a, [Buffer1]
ld e, a
ld d, $0
ld a, $3e
call Function50cc9
ld a, b
and a
jr z, .asm_50c6f
ld c, a
ld a, $e3
call Function50cc9
.asm_50c6f
pop hl
rept 3
inc hl
endr
ld d, h
ld e, l
ld hl, TempMonMoves
ld b, 0
.asm_50c7a
ld a, [hli]
and a
jr z, .asm_50cc8
push bc
push hl
push de
ld hl, wcfa9
ld a, [hl]
push af
ld [hl], b
push hl
callab Functionf8ec
pop hl
pop af
ld [hl], a
pop de
pop hl
push hl
ld bc, TempMonPP - (TempMonMoves + 1)
add hl, bc
ld a, [hl]
and $3f
ld [StringBuffer1 + 4], a
ld h, d
ld l, e
push hl
ld de, StringBuffer1 + 4
ld bc, $0102
call PrintNum
ld a, $f3
ld [hli], a
ld de, wd265
ld bc, $0102
call PrintNum
pop hl
ld a, [Buffer1]
ld e, a
ld d, 0
add hl, de
ld d, h
ld e, l
pop hl
pop bc
inc b
ld a, b
cp NUM_MOVES
jr nz, .asm_50c7a
.asm_50cc8
ret
; 50cc9
Function50cc9: ; 50cc9
.asm_50cc9
ld [hli], a
ld [hld], a
add hl, de
dec c
jr nz, .asm_50cc9
ret
; 50cd0
Function50cd0: ; 50cd0
.asm_50cd0
ld [hl], $32
inc hl
ld [hl], $3e
dec hl
add hl, de
dec c
jr nz, .asm_50cd0
ret
; 50cdb
Function50cdb: ; 50cdb
push hl
push hl
ld hl, PartyMonNicknames
ld a, [CurPartyMon]
call GetNick
pop hl
call PlaceString
call Function5084a
pop hl
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_50d09
push hl
ld bc, $fff4
add hl, bc
ld b, $0
call DrawEnemyHP
pop hl
ld bc, $0005
add hl, bc
push de
call PrintLevel
pop de
.asm_50d09
ret
; 50d0a
Function50d0a: ; 50d0a
push de
rept 2
inc de
endr
ld a, [de]
ld b, a
inc de
ld a, [de]
or b
pop de
jr nz, Function50d2e
push de
ld de, FntString
call Function50d25
pop de
ld a, $1
and a
ret
; 50d22
FntString: ; 50d22
db "FNT@"
; 50d25
Function50d25: ; 50d25
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
ret
; 50d2e
Function50d2e: ; 50d2e
push de
ld a, [de]
ld de, PsnString
bit PSN, a
jr nz, .asm_50d53
ld de, BrnString
bit BRN, a
jr nz, .asm_50d53
ld de, FrzString
bit FRZ, a
jr nz, .asm_50d53
ld de, ParString
bit PAR, a
jr nz, .asm_50d53
ld de, SlpString
and SLP
jr z, .asm_50d59
.asm_50d53
call Function50d25
ld a, $1
and a
.asm_50d59
pop de
ret
; 50d5b
SlpString: db "SLP@"
PsnString: db "PSN@"
BrnString: db "BRN@"
FrzString: db "FRZ@"
ParString: db "PAR@"
; 50d6f
ListMoves: ; 50d6f
; List moves at hl, spaced every [Buffer1] tiles.
ld de, wd25e
ld b, $0
.asm_50d74
ld a, [de]
inc de
and a
jr z, .asm_50da7
push de
push hl
push hl
ld [CurSpecies], a
ld a, MOVE_NAME
ld [wcf61], a
call GetName
ld de, StringBuffer1
pop hl
push bc
call PlaceString
pop bc
ld a, b
ld [wd0eb], a
inc b
pop hl
push bc
ld a, [Buffer1]
ld c, a
ld b, 0
add hl, bc
pop bc
pop de
ld a, b
cp NUM_MOVES
jr z, .asm_50db8
jr .asm_50d74
.asm_50da7
ld a, b
.asm_50da8
push af
ld [hl], "-"
ld a, [Buffer1]
ld c, a
ld b, 0
add hl, bc
pop af
inc a
cp NUM_MOVES
jr nz, .asm_50da8
.asm_50db8
ret
; 50db9
Function50db9: ; 50db9
ld a, [wd263]
cp $1
jr nz, .asm_50dca
ld hl, OTPartyCount
ld de, OTPartyMonOT
ld a, ENEMY_OT_NAME
jr .asm_50dfc
.asm_50dca
cp $4
jr nz, .asm_50dd8
ld hl, PartyCount
ld de, PartyMonOT
ld a, PARTY_OT_NAME
jr .asm_50dfc
.asm_50dd8
cp $5
jr nz, .asm_50de6
ld hl, OBPals + 8 * 6
ld de, PokemonNames
ld a, PKMN_NAME
jr .asm_50dfc
.asm_50de6
cp $2
jr nz, .asm_50df4
ld hl, NumItems
ld de, ItemNames
ld a, ITEM_NAME
jr .asm_50dfc
.asm_50df4
ld hl, OBPals + 8 * 6
ld de, ItemNames
ld a, ITEM_NAME
.asm_50dfc
ld [wcf61], a
ld a, l
ld [wd100], a
ld a, h
ld [wd101], a
ld a, e
ld [wd102], a
ld a, d
ld [wd103], a
ld bc, $67c1 ; XXX ItemAttributes?
ld a, c
ld [wd104], a
ld a, b
ld [wd105], a
ret
; 50e1b
Function50e1b: ; 50e1b
ld a, [TempMonSpecies]
ld [CurSpecies], a
call GetBaseData
ld d, 1
.asm_50e26
inc d
ld a, d
cp (MAX_LEVEL + 1) % $100
jr z, .asm_50e45
call Function50e47
push hl
ld hl, TempMonExp + 2
ld a, [$ffb6]
ld c, a
ld a, [hld]
sub c
ld a, [$ffb5]
ld c, a
ld a, [hld]
sbc c
ld a, [hMultiplicand]
ld c, a
ld a, [hl]
sbc c
pop hl
jr nc, .asm_50e26
.asm_50e45
dec d
ret
; 50e47
Function50e47: ; 50e47
ld a, [BaseGrowthRate]
rept 2
add a
endr
ld c, a
ld b, 0
ld hl, GrowthRates
add hl, bc
call Function50eed
ld a, d
ld [hMultiplier], a
call Multiply
ld a, [hl]
and $f0
swap a
ld [hMultiplier], a
call Multiply
ld a, [hli]
and $f
ld [hMultiplier], a
ld b, $4
call Divide
ld a, [hMultiplicand]
push af
ld a, [$ffb5]
push af
ld a, [$ffb6]
push af
call Function50eed
ld a, [hl]
and $7f
ld [hMultiplier], a
call Multiply
ld a, [hMultiplicand]
push af
ld a, [$ffb5]
push af
ld a, [$ffb6]
push af
ld a, [hli]
push af
xor a
ld [hMultiplicand], a
ld [$ffb5], a
ld a, d
ld [$ffb6], a
ld a, [hli]
ld [hMultiplier], a
call Multiply
ld b, [hl]
ld a, [$ffb6]
sub b
ld [$ffb6], a
ld b, $0
ld a, [$ffb5]
sbc b
ld [$ffb5], a
ld a, [hMultiplicand]
sbc b
ld [hMultiplicand], a
pop af
and $80
jr nz, .asm_50ec8
pop bc
ld a, [$ffb6]
add b
ld [$ffb6], a
pop bc
ld a, [$ffb5]
adc b
ld [$ffb5], a
pop bc
ld a, [hMultiplicand]
adc b
ld [hMultiplicand], a
jr .asm_50eda
.asm_50ec8
pop bc
ld a, [$ffb6]
sub b
ld [$ffb6], a
pop bc
ld a, [$ffb5]
sbc b
ld [$ffb5], a
pop bc
ld a, [hMultiplicand]
sbc b
ld [hMultiplicand], a
.asm_50eda
pop bc
ld a, [$ffb6]
add b
ld [$ffb6], a
pop bc
ld a, [$ffb5]
adc b
ld [$ffb5], a
pop bc
ld a, [hMultiplicand]
adc b
ld [hMultiplicand], a
ret
; 50eed
Function50eed: ; 50eed
xor a
ld [hMultiplicand], a
ld [$ffb5], a
ld a, d
ld [$ffb6], a
ld [hMultiplier], a
jp Multiply
; 50efa
GrowthRates: ; 50efa
growth_rate: MACRO
; [1]/[2]*n**3 + [3]*n**2 + [4]*n - [5]
dn \1, \2
if \3 & $80 ; signed
db -\3 | $80
else
db \3
endc
db \4, \5
ENDM
growth_rate 1, 1, 0, 0, 0 ; Medium Fast
growth_rate 3, 4, 10, 0, 30 ; Slightly Fast
growth_rate 3, 4, 20, 0, 70 ; Slightly Slow
growth_rate 6, 5, -15, 100, 140 ; Medium Slow
growth_rate 4, 5, 0, 0, 0 ; Fast
growth_rate 5, 4, 0, 0, 0 ; Slow
; 50f12
Function50f12:
ld a, [wd0e3]
dec a
ld [wd1ec], a
ld b, a
ld a, [wcfa9]
dec a
ld [Buffer2], a ; wd1eb (aliases: MovementType)
cp b
jr z, .asm_50f33
call Function50f62
ld a, [wd1ec]
call Function50f34
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
call Function50f34
.asm_50f33
ret
Function50f34: ; 50f34 (14:4f34)
push af
hlcoord 0, 1
ld bc, $28
call AddNTimes
ld bc, $28
ld a, $7f
call ByteFill
pop af
ld hl, Sprites
ld bc, $10
call AddNTimes
ld de, $4
ld c, $4
.asm_50f55
ld [hl], $a0
add hl, de
dec c
jr nz, .asm_50f55
ld de, SFX_SWITCH_POKEMON
call WaitPlaySFX
ret
Function50f62: ; 50f62 (14:4f62)
push hl
push de
push bc
ld bc, PartySpecies
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
ld l, a
ld h, $0
add hl, bc
ld d, h
ld e, l
ld a, [wd1ec]
ld l, a
ld h, $0
add hl, bc
ld a, [hl]
push af
ld a, [de]
ld [hl], a
pop af
ld [de], a
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
ld hl, PartyMons ; wdcdf (aliases: PartyMon1, PartyMon1Species)
ld bc, $30
call AddNTimes
push hl
ld de, DefaultFlypoint
ld bc, $30
call CopyBytes
ld a, [wd1ec]
ld hl, PartyMons ; wdcdf (aliases: PartyMon1, PartyMon1Species)
ld bc, $30
call AddNTimes
pop de
push hl
ld bc, $30
call CopyBytes
pop de
ld hl, DefaultFlypoint
ld bc, $30
call CopyBytes
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
ld hl, PartyMonOT ; wddff (aliases: PartyMonOT)
call SkipNames
push hl
call Function51036
ld a, [wd1ec]
ld hl, PartyMonOT ; wddff (aliases: PartyMonOT)
call SkipNames
pop de
push hl
call Function51039
pop de
ld hl, DefaultFlypoint
call Function51039
ld hl, PartyMonNicknames
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
call SkipNames
push hl
call Function51036
ld hl, PartyMonNicknames
ld a, [wd1ec]
call SkipNames
pop de
push hl
call Function51039
pop de
ld hl, DefaultFlypoint
call Function51039
ld hl, $a600
ld a, [Buffer2] ; wd1eb (aliases: MovementType)
ld bc, $2f
call AddNTimes
push hl
ld de, DefaultFlypoint
ld bc, $2f
ld a, $0
call GetSRAMBank
call CopyBytes
ld hl, $a600
ld a, [wd1ec]
ld bc, $2f
call AddNTimes
pop de
push hl
ld bc, $2f
call CopyBytes
pop de
ld hl, DefaultFlypoint
ld bc, $2f
call CopyBytes
call CloseSRAM
pop bc
pop de
pop hl
ret
Function51036: ; 51036 (14:5036)
ld de, DefaultFlypoint
Function51039: ; 51039 (14:5039)
ld bc, $b
call CopyBytes
ret
GetUnownLetter: ; 51040
; Return Unown letter in UnownLetter based on DVs at hl
; Take the middle 2 bits of each DV and place them in order:
; atk def spd spc
; .ww..xx. .yy..zz.
; atk
ld a, [hl]
and %01100000
sla a
ld b, a
; def
ld a, [hli]
and %00000110
swap a
srl a
or b
ld b, a
; spd
ld a, [hl]
and %01100000
swap a
sla a
or b
ld b, a
; spc
ld a, [hl]
and %00000110
srl a
or b
; Divide by 10 to get 0-25
ld [hDividend + 3], a
xor a
ld [hDividend], a
ld [hDividend + 1], a
ld [hDividend + 2], a
ld a, 10
ld [hDivisor], a
ld b, $4
call Divide
; Increment to get 1-26
ld a, [hQuotient + 2]
inc a
ld [UnownLetter], a
ret
; 51077
GetFrontpic: ; 51077
ld a, [CurPartySpecies]
ld [CurSpecies], a
call IsAPokemon
ret c
ld a, [rSVBK]
push af
call _GetFrontpic
pop af
ld [rSVBK], a
ret
; 5108b
Function5108b: ; 5108b
ld a, [CurPartySpecies]
ld [CurSpecies], a
call IsAPokemon
ret c
ld a, [rSVBK]
push af
xor a
ld [hBGMapMode], a
call _GetFrontpic
call Function51103
pop af
ld [rSVBK], a
ret
; 510a5
_GetFrontpic: ; 510a5
push de
call GetBaseData
ld a, [BasePicSize]
and $f
ld b, a
push bc
call GetFrontpicPointer
ld a, $6
ld [rSVBK], a
ld a, b
ld de, w6_d000 + $800
call FarDecompress
pop bc
ld hl, w6_d000
ld de, w6_d000 + $800
call Function512ab
pop hl
push hl
ld de, w6_d000
ld c, 7 * 7
ld a, [hROMBank]
ld b, a
call Get2bpp
pop hl
ret
; 510d7
GetFrontpicPointer: ; 510d7
GLOBAL PicPointers, UnownPicPointers
ld a, [CurPartySpecies]
cp UNOWN
jr z, .unown
ld a, [CurPartySpecies]
ld d, BANK(PicPointers)
jr .ok
.unown
ld a, [UnownLetter]
ld d, BANK(UnownPicPointers)
.ok
ld hl, PicPointers ; UnownPicPointers
dec a
ld bc, 6
call AddNTimes
ld a, d
call GetFarByte
call FixPicBank
push af
inc hl
ld a, d
call GetFarHalfword
pop bc
ret
; 51103
Function51103: ; 51103
ld a, $1
ld [rVBK], a
push hl
ld de, w6_d000
ld c, 7 * 7
ld a, [hROMBank]
ld b, a
call Get2bpp
pop hl
ld de, 7 * 7 * $10
add hl, de
push hl
ld a, $1
ld hl, BasePicSize
call GetFarWRAMByte
pop hl
and $f
ld de, w6_d000 + $800 + 5 * 5 * $10
ld c, 5 * 5
cp 5
jr z, .asm_5113b
ld de, w6_d000 + $800 + 6 * 6 * $10
ld c, 6 * 6
cp 6
jr z, .asm_5113b
ld de, w6_d000 + $800 + 7 * 7 * $10
ld c, 7 * 7
.asm_5113b
push hl
push bc
call Function5114f
pop bc
pop hl
ld de, w6_d000
ld a, [hROMBank]
ld b, a
call Get2bpp
xor a
ld [rVBK], a
ret
; 5114f
Function5114f: ; 5114f
ld hl, w6_d000
swap c
ld a, c
and $f
ld b, a
ld a, c
and $f0
ld c, a
push bc
call Function512f2
pop bc
.asm_51161
push bc
ld c, $0
call Function512f2
pop bc
dec b
jr nz, .asm_51161
ret
; 5116c
GetBackpic: ; 5116c
ld a, [CurPartySpecies]
call IsAPokemon
ret c
ld a, [CurPartySpecies]
ld b, a
ld a, [UnownLetter]
ld c, a
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push de
; These are assumed to be at the same
; address in their respective banks.
GLOBAL PicPointers, UnownPicPointers
ld hl, PicPointers ; UnownPicPointers
ld a, b
ld d, BANK(PicPointers)
cp UNOWN
jr nz, .ok
ld a, c
ld d, BANK(UnownPicPointers)
.ok
dec a
ld bc, 6
call AddNTimes
ld bc, 3
add hl, bc
ld a, d
call GetFarByte
call FixPicBank
push af
inc hl
ld a, d
call GetFarHalfword
ld de, w6_d000
pop af
call FarDecompress
ld hl, w6_d000
ld c, 6 * 6
call Function5127c
pop hl
ld de, w6_d000
ld a, [hROMBank]
ld b, a
call Get2bpp
pop af
ld [rSVBK], a
ret
; 511c5
FixPicBank: ; 511c5
; This is a thing for some reason.
push hl
push bc
sub PICS_1 - $36
ld c, a
ld b, 0
ld hl, Unknown_511d4
add hl, bc
ld a, [hl]
pop bc
pop hl
ret
; 511d4
Unknown_511d4: ; 511d4
db PICS_1
db PICS_2
db PICS_3
db PICS_4
db PICS_5
db PICS_6
db PICS_7
db PICS_8
db PICS_9
db PICS_10
db PICS_11
db PICS_12
db PICS_13
db PICS_14
db PICS_15
db PICS_16
db PICS_17
db PICS_18
db PICS_19
db PICS_19 + 1
db PICS_19 + 2
db PICS_19 + 3
db PICS_19 + 4
db PICS_19 + 5
Function511ec: ; 511ec
ld a, c
push de
ld hl, PicPointers
dec a
ld bc, 6
call AddNTimes
ld a, BANK(PicPointers)
call GetFarByte
call FixPicBank
push af
inc hl
ld a, BANK(PicPointers)
call GetFarHalfword
pop af
pop de
call FarDecompress
ret
; 0x5120d
GetTrainerPic: ; 5120d
ld a, [TrainerClass]
and a
ret z
cp NUM_TRAINER_CLASSES
ret nc
call WaitBGMap
xor a
ld [hBGMapMode], a
ld hl, TrainerPicPointers
ld a, [TrainerClass]
dec a
ld bc, 3
call AddNTimes
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push de
ld a, BANK(TrainerPicPointers)
call GetFarByte
call FixPicBank
push af
inc hl
ld a, BANK(TrainerPicPointers)
call GetFarHalfword
pop af
ld de, w6_d000
call FarDecompress
pop hl
ld de, w6_d000
ld c, 7 * 7
ld a, [hROMBank]
ld b, a
call Get2bpp
pop af
ld [rSVBK], a
call WaitBGMap
ld a, $1
ld [hBGMapMode], a
ret
; 5125d
DecompressPredef: ; 5125d
; Decompress lz data from b:hl to scratch space at 6:d000, then copy it to address de.
ld a, [rSVBK]
push af
ld a, 6
ld [rSVBK], a
push de
push bc
ld a, b
ld de, w6_d000
call FarDecompress
pop bc
ld de, w6_d000
pop hl
ld a, [hROMBank]
ld b, a
call Get2bpp
pop af
ld [rSVBK], a
ret
; 5127c
Function5127c: ; 5127c
push de
push bc
ld a, [wc2c6]
and a
jr z, .asm_512a8
ld a, c
cp 7 * 7
ld de, 7 * 7 * $10
jr z, .asm_51296
cp 6 * 6
ld de, 6 * 6 * $10
jr z, .asm_51296
ld de, 5 * 5 * $10
.asm_51296
ld a, [hl]
ld b, $0
ld c, $8
.asm_5129b
rra
rl b
dec c
jr nz, .asm_5129b
ld a, b
ld [hli], a
dec de
ld a, e
or d
jr nz, .asm_51296
.asm_512a8
pop bc
pop de
ret
; 512ab
Function512ab: ; 512ab
ld a, b
cp 6
jr z, .six
cp 5
jr z, .five
.seven
ld c, $70
call Function512f2
dec b
jr nz, .seven
ret
.six
ld c, $70
xor a
call .Fill
.asm_512c3
ld c, $10
xor a
call .Fill
ld c, $60
call Function512f2
dec b
jr nz, .asm_512c3
ret
.five
ld c, $70
xor a
call .Fill
.asm_512d8
ld c, $20
xor a
call .Fill
ld c, $50
call Function512f2
dec b
jr nz, .asm_512d8
ld c, $70
xor a
call .Fill
ret
.Fill
ld [hli], a
dec c
jr nz, .Fill
ret
; 512f2
Function512f2: ; 512f2
ld a, [wc2c6]
and a
jr nz, .asm_512ff
.asm_512f8
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_512f8
ret
.asm_512ff
push bc
.asm_51300
ld a, [de]
inc de
ld b, a
xor a
rept 8
rr b
rla
endr
ld [hli], a
dec c
jr nz, .asm_51300
pop bc
ret
; 51322
Function51322: ; 51322
ld a, $1
call GetSRAMBank
ld hl, sBoxCount
call Function513cb
ld a, [sBoxCount]
dec a
ld [wd265], a
ld hl, sBoxMonNicknames
ld bc, PKMN_NAME_LENGTH
ld de, wd002
call Function513e0
ld a, [sBoxCount]
dec a
ld [wd265], a
ld hl, sBoxMonOT
ld bc, NAME_LENGTH
ld de, wd00d
call Function513e0
ld a, [sBoxCount]
dec a
ld [wd265], a
ld hl, sBoxMons
ld bc, sBoxMon1End - sBoxMon1
ld de, wd018
call Function513e0
ld hl, wd01a
ld de, TempMonMoves
ld bc, NUM_MOVES
call CopyBytes
ld hl, wd02f
ld de, TempMonPP
ld bc, NUM_MOVES
call CopyBytes
ld a, [CurPartyMon]
ld b, a
callba Functiondcb6
jp CloseSRAM
; 5138b
Function5138b: ; 5138b
ld hl, PartyCount
call Function513cb
ld a, [PartyCount]
dec a
ld [wd265], a
ld hl, PartyMonNicknames
ld bc, PKMN_NAME_LENGTH
ld de, wd002
call Function513e0
ld a, [PartyCount]
dec a
ld [wd265], a
ld hl, PartyMonOT
ld bc, NAME_LENGTH
ld de, wd00d
call Function513e0
ld a, [PartyCount]
dec a
ld [wd265], a
ld hl, PartyMons
ld bc, PartyMon2 - PartyMon1
ld de, wd018
call Function513e0
ret
; 513cb
Function513cb: ; 513cb
inc [hl]
inc hl
ld a, [CurPartyMon]
ld c, a
ld b, 0
add hl, bc
ld a, [CurPartySpecies]
ld c, a
.asm_513d8
ld a, [hl]
ld [hl], c
inc hl
inc c
ld c, a
jr nz, .asm_513d8
ret
; 513e0
Function513e0: ; 513e0
push de
push hl
push bc
ld a, [wd265]
dec a
call AddNTimes
push hl
add hl, bc
ld d, h
ld e, l
pop hl
.asm_513ef
push bc
ld a, [wd265]
ld b, a
ld a, [CurPartyMon]
cp b
pop bc
jr z, .asm_51415
push hl
push de
push bc
call CopyBytes
pop bc
pop de
pop hl
push hl
ld a, l
sub c
ld l, a
ld a, h
sbc b
ld h, a
pop de
ld a, [wd265]
dec a
ld [wd265], a
jr .asm_513ef
.asm_51415
pop bc
pop hl
ld a, [CurPartyMon]
call AddNTimes
ld d, h
ld e, l
pop hl
call CopyBytes
ret
; 51424
BaseData::
INCLUDE "data/base_stats.asm"
PokemonNames::
INCLUDE "data/pokemon_names.asm"
Unknown_53d84: ; unreferenced
db $1a, $15
db $33, $16
db $4b, $17
db $62, $18
db $79, $19
db $90, $1a
db $a8, $1b
db $c4, $1c
db $e0, $1d
db $f6, $1e
db $ff, $1f
db $ff, $20
; 53d9c
UnknownEggPic:: ; 53d9c
; Another egg pic. This is shifted up a few pixels.
INCBIN "gfx/misc/unknown_egg.5x5.2bpp.lz"
; 53e2e
SECTION "bank19", ROMX, BANK[$19]
INCLUDE "text/phone/extra.asm"
SECTION "bank20", ROMX, BANK[$20]
DoPlayerMovement:: ; 80000
call GetMovementInput
ld a, $3e ; standing
ld [MovementAnimation], a
xor a
ld [wd041], a
call GetPlayerMovement
ld c, a
ld a, [MovementAnimation]
ld [wc2de], a
ret
; 80017
GetMovementInput: ; 80017
ld a, [hJoyDown]
ld [CurInput], a
; Standing downhill instead moves down.
ld hl, BikeFlags
bit 2, [hl] ; downhill
ret z
ld c, a
and $f0
ret nz
ld a, c
or D_DOWN
ld [CurInput], a
ret
; 8002d
GetPlayerMovement: ; 8002d
ld a, [PlayerState]
cp PLAYER_NORMAL
jr z, .Normal
cp PLAYER_SURF
jr z, .Surf
cp PLAYER_SURF_PIKA
jr z, .Surf
cp PLAYER_BIKE
jr z, .Normal
cp PLAYER_SLIP
jr z, .Board
.Normal
call CheckForcedMovementInput
call GetMovementAction
call CheckTileMovement
ret c
call CheckTurning
ret c
call TryStep
ret c
call TryJumpLedge
ret c
call CheckEdgeWarp
ret c
jr .NotMoving
.Surf
call CheckForcedMovementInput
call GetMovementAction
call CheckTileMovement
ret c
call CheckTurning
ret c
call TrySurfStep
ret c
jr .NotMoving
.Board
call CheckForcedMovementInput
call GetMovementAction
call CheckTileMovement
ret c
call CheckTurning
ret c
call TryStep
ret c
call TryJumpLedge
ret c
call CheckEdgeWarp
ret c
ld a, [WalkingDirection]
cp STANDING
jr z, .HitWall
call PlayBump
.HitWall
call StandInPlace
xor a
ret
.NotMoving
ld a, [WalkingDirection]
cp STANDING
jr z, .Standing
; Walking into an edge warp won't bump.
ld a, [wd041]
and a
jr nz, .CantMove
call PlayBump
.CantMove
call WalkInPlace
xor a
ret
.Standing
call StandInPlace
xor a
ret
; 800b7
CheckTileMovement: ; 800b7
; Tiles such as waterfalls and warps move the player
; in a given direction, overriding input.
ld a, [StandingTile]
ld c, a
call CheckWhirlpoolTile
jr c, .asm_800c4
ld a, 3
scf
ret
.asm_800c4
and $f0
cp $30 ; moving water
jr z, .water
cp $40 ; moving land 1
jr z, .land1
cp $50 ; moving land 2
jr z, .land2
cp $70 ; warps
jr z, .warps
jr .asm_8013c
.water
ld a, c
and 3
ld c, a
ld b, 0
ld hl, .water_table
add hl, bc
ld a, [hl]
ld [WalkingDirection], a
jr .asm_8013e
.water_table
db RIGHT
db LEFT
db UP
db DOWN
.land1
ld a, c
and 7
ld c, a
ld b, 0
ld hl, .land1_table
add hl, bc
ld a, [hl]
cp STANDING
jr z, .asm_8013c
ld [WalkingDirection], a
jr .asm_8013e
.land1_table
db STANDING
db RIGHT
db LEFT
db UP
db DOWN
db STANDING
db STANDING
db STANDING
.land2
ld a, c
and 7
ld c, a
ld b, 0
ld hl, .land2_table
add hl, bc
ld a, [hl]
cp STANDING
jr z, .asm_8013c
ld [WalkingDirection], a
jr .asm_8013e
.land2_table
db RIGHT
db LEFT
db UP
db DOWN
db STANDING
db STANDING
db STANDING
db STANDING
.warps
ld a, c
cp $71 ; door
jr z, .down
cp $79
jr z, .down
cp $7a ; stairs
jr z, .down
cp $7b ; cave
jr nz, .asm_8013c
.down
ld a, DOWN
ld [WalkingDirection], a
jr .asm_8013e
.asm_8013c
xor a
ret
.asm_8013e
ld a, STEP_WALK
call DoStep
ld a, 5
scf
ret
; 80147
CheckTurning: ; 80147
; If the player is turning, change direction first. This also lets
; the player change facing without moving by tapping a direction.
ld a, [wd04e]
cp 0
jr nz, .asm_80169
ld a, [WalkingDirection]
cp STANDING
jr z, .asm_80169
ld e, a
ld a, [PlayerDirection]
rrca
rrca
and 3
cp e
jr z, .asm_80169
ld a, STEP_TURN
call DoStep
ld a, 2
scf
ret
.asm_80169
xor a
ret
; 8016b
TryStep: ; 8016b
; Surfing actually calls TrySurfStep directly instead of passing through here.
ld a, [PlayerState]
cp PLAYER_SURF
jr z, TrySurfStep
cp PLAYER_SURF_PIKA
jr z, TrySurfStep
call CheckLandPermissions
jr c, .asm_801be
call IsNPCInFront
and a
jr z, .asm_801be
cp 2
jr z, .asm_801be
ld a, [StandingTile]
call CheckIceTile
jr nc, .ice
; Downhill riding is slower when not moving down.
call CheckRiding
jr nz, .asm_801ae
ld hl, BikeFlags
bit 2, [hl] ; downhill
jr z, .fast
ld a, [WalkingDirection]
cp DOWN
jr z, .fast
ld a, STEP_WALK
call DoStep
scf
ret
.fast
ld a, STEP_BIKE
call DoStep
scf
ret
.asm_801ae
ld a, STEP_WALK
call DoStep
scf
ret
.ice
ld a, STEP_ICE
call DoStep
scf
ret
; unused?
xor a
ret
.asm_801be
xor a
ret
; 801c0
TrySurfStep: ; 801c0
call CheckWaterPermissions
ld [wd040], a
jr c, .asm_801f1
call IsNPCInFront
ld [wd03f], a
and a
jr z, .asm_801f1
cp 2
jr z, .asm_801f1
ld a, [wd040]
and a
jr nz, .ExitWater
ld a, STEP_WALK
call DoStep
scf
ret
.ExitWater
call WaterToLandSprite
call PlayMapMusic
ld a, STEP_WALK
call DoStep
ld a, 6
scf
ret
.asm_801f1
xor a
ret
; 801f3
TryJumpLedge: ; 801f3
ld a, [StandingTile]
ld e, a
and $f0
cp $a0 ; ledge
jr nz, .DontJump
ld a, e
and 7
ld e, a
ld d, 0
ld hl, .data_8021e
add hl, de
ld a, [FacingDirection]
and [hl]
jr z, .DontJump
ld de, SFX_JUMP_OVER_LEDGE
call PlaySFX
ld a, STEP_LEDGE
call DoStep
ld a, 7
scf
ret
.DontJump
xor a
ret
.data_8021e
db FACE_RIGHT
db FACE_LEFT
db FACE_UP
db FACE_DOWN
db FACE_RIGHT | FACE_DOWN
db FACE_DOWN | FACE_LEFT
db FACE_UP | FACE_RIGHT
db FACE_UP | FACE_LEFT
; 80226
CheckEdgeWarp: ; 80226
; Bug: Since no case is made for STANDING here, it will check
; [.edgewarps + $ff]. This resolves to $3e at $8035a.
; This causes wd041 to be nonzero when standing on tile $3e,
; making bumps silent.
ld a, [WalkingDirection]
ld e, a
ld d, 0
ld hl, .EdgeWarps
add hl, de
ld a, [StandingTile]
cp [hl]
jr nz, .asm_80259
ld a, 1
ld [wd041], a
ld a, [WalkingDirection]
cp STANDING
jr z, .asm_80259
ld e, a
ld a, [PlayerDirection]
rrca
rrca
and 3
cp e
jr nz, .asm_80259
call Function224a ; CheckFallPit?
jr nc, .asm_80259
call StandInPlace
scf
ld a, 1
ret
.asm_80259
xor a
ret
.EdgeWarps
db $70, $78, $76, $7e
; 8025f
DoStep: ; 8025f
ld e, a
ld d, 0
ld hl, .Steps
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [WalkingDirection]
ld e, a
cp STANDING
jp z, StandInPlace
add hl, de
ld a, [hl]
ld [MovementAnimation], a
ld hl, .WalkInPlace
add hl, de
ld a, [hl]
ld [wd04e], a
ld a, 4
ret
.Steps
dw .Slow
dw .Walk
dw .Bike
dw .Ledge
dw .Ice
dw .Turn
dw .BackwardsLedge
dw .WalkInPlace
.Slow
db $08, $09, $0a, $0b
.Walk
db $0c, $0d, $0e, $0f
.Bike
db $10, $11, $12, $13
.Ledge
db $30, $31, $32, $33
.Ice
db $1c, $1d, $1e, $1f
.BackwardsLedge
db $31, $30, $33, $32
.Turn
db $04, $05, $06, $07
.WalkInPlace
db $80, $81, $82, $83
; 802b3
StandInPlace: ; 802b3
ld a, 0
ld [wd04e], a
ld a, $3e ; standing
ld [MovementAnimation], a
xor a
ret
; 802bf
WalkInPlace: ; 802bf
ld a, 0
ld [wd04e], a
ld a, $50 ; walking
ld [MovementAnimation], a
xor a
ret
; 802cb
CheckForcedMovementInput: ; 802cb
; When sliding on ice, input is forced to remain in the same direction.
call Function80404
ret nc
ld a, [wd04e]
cp 0
ret z
and 3
ld e, a
ld d, 0
ld hl, .data_802e8
add hl, de
ld a, [CurInput]
and A_BUTTON | B_BUTTON | SELECT | START
or [hl]
ld [CurInput], a
ret
.data_802e8
db D_DOWN, D_UP, D_LEFT, D_RIGHT
; 802ec
GetMovementAction: ; 802ec
; Poll player input and update movement info.
ld hl, .table
ld de, .table2 - .table1
ld a, [CurInput]
bit 7, a
jr nz, .down
bit 6, a
jr nz, .up
bit 5, a
jr nz, .left
bit 4, a
jr nz, .right
; Standing
jr .update
.down add hl, de
.up add hl, de
.left add hl, de
.right add hl, de
.update
ld a, [hli]
ld [WalkingDirection], a
ld a, [hli]
ld [FacingDirection], a
ld a, [hli]
ld [WalkingX], a
ld a, [hli]
ld [WalkingY], a
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
ld [WalkingTile], a
ret
.table
; struct:
; walk direction
; facing
; x movement
; y movement
; tile collision pointer
.table1
db STANDING, FACE_CURRENT, 0, 0
dw StandingTile
.table2
db RIGHT, FACE_RIGHT, 1, 0
dw TileRight
db LEFT, FACE_LEFT, -1, 0
dw TileLeft
db UP, FACE_UP, 0, -1
dw TileUp
db DOWN, FACE_DOWN, 0, 1
dw TileDown
; 80341
IsNPCInFront: ; 80341
ld a, 0
ld [$ffaf], a
ld a, [MapX]
ld d, a
ld a, [WalkingX]
add d
ld d, a
ld a, [MapY]
ld e, a
ld a, [WalkingY]
add e
ld e, a
ld bc, ObjectStructs ; redundant
callba Function7041
jr nc, .asm_80369
call Function8036f
jr c, .asm_8036c
xor a
ret
.asm_80369
ld a, 1
ret
.asm_8036c
ld a, 2
ret
; 8036f
Function8036f: ; 8036f
ld hl, BikeFlags
bit 0, [hl]
jr z, .asm_8039c
ld hl, $0007
add hl, bc
ld a, [hl]
cp $ff
jr nz, .asm_8039c
ld hl, $0006
add hl, bc
bit 6, [hl]
jr z, .asm_8039c
ld hl, $0005
add hl, bc
set 2, [hl]
ld a, [WalkingDirection]
ld d, a
ld hl, $0020
add hl, bc
ld a, [hl]
and $fc
or d
ld [hl], a
scf
ret
.asm_8039c
xor a
ret
; 8039e
CheckLandPermissions: ; 8039e
; Return 0 if walking onto land and tile permissions allow it.
; Otherwise, return carry.
ld a, [TilePermissions]
ld d, a
ld a, [FacingDirection]
and d
jr nz, .NotWalkable
ld a, [WalkingTile]
call CheckWalkable
jr c, .NotWalkable
xor a
ret
.NotWalkable
scf
ret
; 803b4
CheckWaterPermissions: ; 803b4
; Return 0 if moving in water, or 1 if moving onto land.
; Otherwise, return carry.
ld a, [TilePermissions]
ld d, a
ld a, [FacingDirection]
and d
jr nz, .NotSurfable
ld a, [WalkingTile]
call CheckSurfable
jr c, .NotSurfable
and a
ret
.NotSurfable
scf
ret
; 803ca
CheckRiding: ; 803ca
ld a, [PlayerState]
cp PLAYER_BIKE
ret z
cp PLAYER_SLIP
ret
; 803d3
CheckWalkable: ; 803d3
; Return 0 if tile a is land. Otherwise, return carry.
call GetTileCollision
and a ; land
ret z
scf
ret
; 803da
CheckSurfable: ; 803da
; Return 0 if tile a is water, or 1 if land.
; Otherwise, return carry.
call GetTileCollision
cp 1
jr z, .Water
; Can walk back onto land from water.
and a
jr z, .Land
jr .Neither
.Water
xor a
ret
.Land
ld a, 1
and a
ret
.Neither
scf
ret
; 803ee
PlayBump: ; 803ee
call CheckSFX
ret c
ld de, SFX_BUMP
call PlaySFX
ret
; 803f9
WaterToLandSprite: ; 803f9
push bc
ld a, PLAYER_NORMAL
ld [PlayerState], a
call Special_ReplaceKrisSprite ; UpdateSprites
pop bc
ret
; 80404
Function80404:: ; 80404
ld a, [wd04e]
cp 0
jr z, .asm_80420
cp $f0
jr z, .asm_80420
ld a, [StandingTile]
call CheckIceTile
jr nc, .asm_8041e
ld a, [PlayerState]
cp PLAYER_SLIP
jr nz, .asm_80420
.asm_8041e
scf
ret
.asm_80420
and a
ret
; 80422
Function80422:: ; 80422
ld hl, wc2de
ld a, $3e ; standing
cp [hl]
ret z
ld [hl], a
ld a, 0
ld [wd04e], a
ret
; 80430
EngineFlagAction:: ; 80430
; Do action b on engine flag de
;
; b = 0: reset flag
; = 1: set flag
; > 1: check flag, result in c
;
; Setting/resetting does not return a result.
; 16-bit flag ids are considered invalid, but it's nice
; to know that the infrastructure is there.
ld a, d
cp 0
jr z, .ceiling
jr c, .read ; cp 0 can't set carry!
jr .invalid
; There are only $a2 engine flags, so
; anything beyond that is invalid too.
.ceiling
ld a, e
cp $a2
jr c, .read
; Invalid flags are treated as flag 00.
.invalid
xor a
ld e, a
ld d, a
; Get this flag's location.
.read
ld hl, EngineFlags
; location
rept 2
add hl, de
endr
; bit
add hl, de
; location
ld e, [hl]
inc hl
ld d, [hl]
inc hl
; bit
ld c, [hl]
; What are we doing with this flag?
ld a, b
cp 1
jr c, .reset ; b = 0
jr z, .set ; b = 1
; Return the given flag in c.
.check
ld a, [de]
and c
ld c, a
ret
; Set the given flag.
.set
ld a, [de]
or c
ld [de], a
ret
; Reset the given flag.
.reset
ld a, c
cpl ; AND all bits except the one in question
ld c, a
ld a, [de]
and c
ld [de], a
ret
; 80462
EngineFlags: ; 80462
INCLUDE "engine/engine_flags.asm"
; 80648
_GetVarAction:: ; 80648 (20:4648)
ld a, c
cp NUM_VARS
jr c, .asm_8064e
xor a
.asm_8064e
ld c, a
ld b, 0
ld hl, VarActionTable
rept 3
add hl, bc
endr
ld e, [hl]
inc hl
ld d, [hl]
inc hl
ld b, [hl]
ld a, b
and $80
jr nz, .asm_80668
ld a, b
and $40
ret nz
ld a, [de]
jr Function8066c
.asm_80668
call _de_
ret
Function8066c: ; 8066c (20:466c)
ld de, StringBuffer2
ld [de], a
ret
; 80671 (20:4671)
VarActionTable: ; 80671
; $00: return address
; $40: return at StringBuffer2
; $80: return function result at StringBuffer2
dwb StringBuffer2, $00
dwb PartyCount, $00
dwb Function80728, $80
dwb BattleType, $40
dwb TimeOfDay, $00
dwb Function806c5, $80
dwb Function806d3, $80
dwb CountBadges, $80
dwb PlayerState, $40
dwb Function806ef, $80
dwb hHours, $00
dwb Function806f9, $80
dwb MapGroup, $00
dwb MapNumber, $00
dwb Function806ff, $80
dwb wPermission, $00
dwb Function80715, $80
dwb wd46c, $00
dwb XCoord, $00
dwb YCoord, $00
dwb wSpecialPhoneCallID, $00
dwb wcf64, $00
dwb wdca4, $00
dwb wdbf9, $40
dwb wdc4b, $40
dwb wdc4a, $40
dwb wdc58, $00
dwb NULL, $00
; 806c5
Function806c5: ; 806c5
; Caught mons.
ld hl, PokedexCaught
ld b, EndPokedexCaught - PokedexCaught
call CountSetBits
ld a, [wd265]
jp Function8066c
; 806d3
Function806d3: ; 806d3
; Seen mons.
ld hl, PokedexSeen
ld b, EndPokedexSeen - PokedexSeen
call CountSetBits
ld a, [wd265]
jp Function8066c
; 806e1
CountBadges: ; 806e1
; Number of owned badges.
ld hl, Badges
ld b, 2
call CountSetBits
ld a, [wd265]
jp Function8066c
; 806ef
Function806ef: ; 806ef
; The direction the player is facing.
ld a, [PlayerDirection]
and $c
rrca
rrca
jp Function8066c
; 806f9
Function806f9: ; 806f9
; The day of the week.
call GetWeekday
jp Function8066c
; 806ff
Function806ff: ; 806ff
; Number of unique Unown caught.
call .count
ld a, b
jp Function8066c
.count
ld hl, UnownDex
ld b, 0
.loop
ld a, [hli]
and a
ret z
inc b
ld a, b
cp 26
jr c, .loop
ret
; 80715
Function80715: ; 80715
; Remaining slots in the current box.
ld a, 1 ; BANK(sBoxCount)
call GetSRAMBank
ld hl, sBoxCount
ld a, MONS_PER_BOX
sub [hl]
ld b, a
call CloseSRAM
ld a, b
jp Function8066c
; 80728
Function80728: ; 80728
ld a, [wd0ee]
and $3f
jp Function8066c
; 80730
BattleText::
INCLUDE "text/battle.asm"
ColorTest: ; 818ac
; A debug menu to test monster and trainer palettes at runtime.
ld a, [hCGB]
and a
jr nz, .asm_818b5
ld a, [hSGB]
and a
ret z
.asm_818b5
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
call DisableLCD
call Function81948
call Function8197c
call Function819a7
call Function818f4
call EnableLCD
ld de, MUSIC_NONE
call PlayMusic
xor a
ld [wcf63], a
ld [wcf66], a
ld [wd003], a
.asm_818de
ld a, [wcf63]
bit 7, a
jr nz, .asm_818f0
call Function81a74
call Function81f5e
call DelayFrame
jr .asm_818de
.asm_818f0
pop af
ld [$ffaa], a
ret
; 818f4
Function818f4: ; 818f4
ld a, [DefaultFlypoint]
and a
jr nz, Function81911
ld hl, PokemonPalettes
Function818fd: ; 818fd
ld de, OverworldMap
ld c, NUM_POKEMON + 1
.asm_81902
push bc
push hl
call Function81928
pop hl
ld bc, $0008
add hl, bc
pop bc
dec c
jr nz, .asm_81902
ret
Function81911: ; 81911
ld hl, TrainerPalettes
ld de, OverworldMap
ld c, NUM_TRAINER_CLASSES
.asm_81919
push bc
push hl
call Function81928
pop hl
ld bc, $0004
add hl, bc
pop bc
dec c
jr nz, .asm_81919
ret
; 81928
Function81928: ; 81928
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
inc hl
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
inc hl
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
inc hl
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
ret
; 81948
Function81948: ; 81948
ld a, $1
ld [rVBK], a
ld hl, VTiles0
ld bc, $2000
xor a
call ByteFill
ld a, $0
ld [rVBK], a
ld hl, VTiles0
ld bc, $2000
xor a
call ByteFill
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
call ClearSprites
ret
; 8197c
Function8197c: ; 8197c
ld hl, DebugColorTestGFX + $10
ld de, $96a0
ld bc, $0160
call CopyBytes
ld hl, DebugColorTestGFX
ld de, VTiles0
ld bc, $0010
call CopyBytes
call Functione51
ld hl, VTiles1
ld bc, $0800
.asm_8199d
ld a, [hl]
xor $ff
ld [hli], a
dec bc
ld a, c
or b
jr nz, .asm_8199d
ret
; 819a7
Function819a7: ; 819a7
ld a, [hCGB]
and a
ret z
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Palette_819f4
ld de, BGPals
ld bc, $0080
call CopyBytes
ld a, $80
ld [rBGPI], a
ld hl, Palette_819f4
ld c, $40
xor a
.asm_819c8
ld [rBGPD], a
dec c
jr nz, .asm_819c8
ld a, $80
ld [rOBPI], a
ld hl, Palette_81a34
ld c, $40
.asm_819d6
ld a, [hli]
ld [rOBPD], a
dec c
jr nz, .asm_819d6
ld a, $94
ld [wc608], a
ld a, $52
ld [wc608 + 1], a
ld a, $4a
ld [wc608 + 2], a
ld a, $29
ld [wc608 + 3], a
pop af
ld [rSVBK], a
ret
; 819f4
Palette_819f4: ; 819f4
; white
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
; red
RGB 31, 00, 00
RGB 31, 00, 00
RGB 31, 00, 00
RGB 00, 00, 00
; green
RGB 00, 31, 00
RGB 00, 31, 00
RGB 00, 31, 00
RGB 00, 00, 00
; blue
RGB 00, 00, 31
RGB 00, 00, 31
RGB 00, 00, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
Palette_81a34: ; 81a34
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
; red
RGB 31, 31, 31
RGB 31, 00, 00
RGB 31, 00, 00
RGB 00, 00, 00
; green
RGB 31, 31, 31
RGB 00, 31, 00
RGB 00, 31, 00
RGB 00, 00, 00
; blue
RGB 31, 31, 31
RGB 00, 00, 31
RGB 00, 00, 31
RGB 00, 00, 00
; 81a74
Function81a74: ; 81a74
call Functiona57
ld a, [wcf63]
cp $4
jr nc, .asm_81a8b
ld hl, $ffa9
ld a, [hl]
and $4
jr nz, .asm_81a9a
ld a, [hl]
and $8
jr nz, .asm_81aab
.asm_81a8b
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_81acf
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
.asm_81a9a
call Function81eca
call Function81ac3
ld e, a
ld a, [wcf66]
inc a
cp e
jr c, .asm_81aba
xor a
jr .asm_81aba
.asm_81aab
call Function81eca
ld a, [wcf66]
dec a
cp $ff
jr nz, .asm_81aba
call Function81ac3
dec a
.asm_81aba
ld [wcf66], a
ld a, $0
ld [wcf63], a
ret
; 81ac3
Function81ac3: ; 81ac3
; Looping back around the pic set.
ld a, [DefaultFlypoint]
and a
jr nz, .asm_81acc
ld a, NUM_POKEMON ; CELEBI
ret
.asm_81acc
ld a, NUM_TRAINER_CLASSES - 1 ; MYSTICALMAN
ret
; 81acf
Jumptable_81acf: ; 81acf
dw Function81adb
dw Function81c18
dw Function81c33
dw Function81cc2
dw Function81d8e
dw Function81daf
; 81adb
Function81adb: ; 81adb
xor a
ld [hBGMapMode], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $6f
call ByteFill
hlcoord 1, 3
ld bc, $0712
ld a, $6c
call Function81efc
hlcoord 11, 0
ld bc, $0203
ld a, $6d
call Function81efc
hlcoord 16, 0
ld bc, $0203
ld a, $6e
call Function81efc
call Function81bc0
call Function81bf4
ld a, [wcf66]
inc a
ld [CurPartySpecies], a
ld [wd265], a
hlcoord 0, 1
ld de, wd265
ld bc, $8103
call PrintNum
ld a, [DefaultFlypoint]
and a
jr nz, .asm_81b7a
ld a, $1
ld [UnownLetter], a
call GetPokemonName
hlcoord 4, 1
call PlaceString
xor a
ld [wc2c6], a
hlcoord 12, 3
call Function378b
ld de, $9310
predef GetBackpic
ld a, $31
ld [$ffad], a
hlcoord 2, 4
ld bc, $0606
predef FillBox
ld a, [wd003]
and a
jr z, .asm_81b66
ld de, String_81baf
jr .asm_81b69
.asm_81b66
ld de, String_81bb4
.asm_81b69
hlcoord 7, 17
call PlaceString
hlcoord 0, 17
ld de, String_81bb9
call PlaceString
jr .asm_81ba9
.asm_81b7a
ld a, [wd265]
ld [TrainerClass], a
callab Function3957b
ld de, StringBuffer1
hlcoord 4, 1
call PlaceString
ld de, VTiles2
callab GetTrainerPic
xor a
ld [TempEnemyMonSpecies], a
ld [$ffad], a
hlcoord 2, 3
lb bc, 7, 7
predef FillBox
.asm_81ba9
ld a, $1
ld [wcf63], a
ret
; 81baf
String_81baf: db "レア", $6f, $6f, "@" ; rare (shiny)
String_81bb4: db "ノーマル@" ; normal
String_81bb9: db $7a, "きりかえ▶@" ; (A) switches
; 81bc0
Function81bc0: ; 81bc0
decoord 0, 11, AttrMap
hlcoord 2, 11
ld a, $1
call Function81bde
decoord 0, 13, AttrMap
hlcoord 2, 13
ld a, $2
call Function81bde
decoord 0, 15, AttrMap
hlcoord 2, 15
ld a, $3
Function81bde: ; 81bde
push af
ld a, $6a
ld [hli], a
ld bc, $000f
ld a, $6b
call ByteFill
ld l, e
ld h, d
pop af
ld bc, $0028
call ByteFill
ret
; 81bf4
Function81bf4: ; 81bf4
ld a, [wcf66]
inc a
ld l, a
ld h, $0
rept 2
add hl, hl
endr
ld de, OverworldMap
add hl, de
ld de, wc608
ld bc, $0004
call CopyBytes
xor a
ld [wcf64], a
ld [wcf65], a
ld de, wc608
call Function81ea5
ret
; 81c18
Function81c18: ; 81c18
ld a, [hCGB]
and a
jr z, .asm_81c2a
ld a, $2
ld [hBGMapMode], a
call DelayFrame
call DelayFrame
call DelayFrame
.asm_81c2a
call WaitBGMap
ld a, $2
ld [wcf63], a
ret
; 81c33
Function81c33: ; 81c33
ld a, [hCGB]
and a
jr z, .asm_81c69
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, BGPals
ld de, wc608
ld c, $1
call Function81ee3
hlcoord 10, 2
ld de, wc608
call Function81ca7
hlcoord 15, 2
ld de, wc608 + 2
call Function81ca7
ld a, $1
ld [hCGBPalUpdate], a
ld a, $3
ld [wcf63], a
pop af
ld [rSVBK], a
ret
.asm_81c69
ld hl, wcda9
ld a, $1
ld [hli], a
ld a, $ff
ld [hli], a
ld a, $7f
ld [hli], a
ld a, [wc608]
ld [hli], a
ld a, [wc608 + 1]
ld [hli], a
ld a, [wc608 + 2]
ld [hli], a
ld a, [wc608 + 3]
ld [hli], a
xor a
rept 2
ld [hli], a
endr
ld [hl], a
ld hl, wcda9
call Function81f0c
hlcoord 10, 2
ld de, wc608
call Function81ca7
hlcoord 15, 2
ld de, wc608 + 2
call Function81ca7
ld a, $3
ld [wcf63], a
ret
; 81ca7
Function81ca7: ; 81ca7
rept 3
inc hl
endr
ld a, [de]
call Function81cbc
ld a, [de]
swap a
call Function81cbc
inc de
ld a, [de]
call Function81cbc
ld a, [de]
swap a
Function81cbc: ; 81cbc
and $f
add $70
ld [hld], a
ret
; 81cc2
Function81cc2: ; 81cc2
ld a, [$ffa9]
and $2
jr nz, .asm_81cdf
ld a, [$ffa9]
and $1
jr nz, .asm_81ce5
ld a, [wcf64]
and $3
ld e, a
ld d, 0
ld hl, Jumptable_81d02
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
.asm_81cdf
ld a, $4
ld [wcf63], a
ret
.asm_81ce5
ld a, [DefaultFlypoint]
and a
ret nz
ld a, [wd003]
xor $4
ld [wd003], a
ld c, a
ld b, 0
ld hl, PokemonPalettes
add hl, bc
call Function818fd
ld a, $0
ld [wcf63], a
ret
; 81d02
Jumptable_81d02: ; 81d02
dw Function81d0a
dw Function81d34
dw Function81d46
dw Function81d58
; 81d0a
Function81d0a: ; 81d0a
ld hl, $ffa9
ld a, [hl]
and $80
jr nz, Function81d89
ld a, [hl]
and $20
jr nz, .asm_81d1d
ld a, [hl]
and $10
jr nz, .asm_81d28
ret
.asm_81d1d
xor a
ld [wcf65], a
ld de, wc608
call Function81ea5
ret
.asm_81d28
ld a, $1
ld [wcf65], a
ld de, wc608 + 2
call Function81ea5
ret
Function81d34: ; 81d34
ld hl, $ffa9
ld a, [hl]
and $80
jr nz, Function81d89
ld a, [hl]
and $40
jr nz, Function81d84
ld hl, wc608 + 10
jr Function81d63
Function81d46: ; 81d46
ld hl, $ffa9
ld a, [hl]
and $80
jr nz, Function81d89
ld a, [hl]
and $40
jr nz, Function81d84
ld hl, wc608 + 11
jr Function81d63
Function81d58: ; 81d58
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, Function81d84
ld hl, wc608 + 12
Function81d63: ; 81d63
ld a, [$ffa9]
and $10
jr nz, Function81d70
ld a, [$ffa9]
and $20
jr nz, Function81d77
ret
Function81d70: ; 81d70
ld a, [hl]
cp $1f
ret nc
inc [hl]
jr Function81d7b
Function81d77: ; 81d77
ld a, [hl]
and a
ret z
dec [hl]
Function81d7b: ; 81d7b
call Function81e67
ld a, $2
ld [wcf63], a
ret
Function81d84: ; 81d84
ld hl, wcf64
dec [hl]
ret
Function81d89: ; 81d89
ld hl, wcf64
inc [hl]
ret
; 81d8e
Function81d8e: ; 81d8e
hlcoord 0, 10
ld bc, $00a0
ld a, $6f
call ByteFill
hlcoord 2, 12
ld de, String_81fcd
call PlaceString
xor a
ld [wd004], a
call Function81df4
ld a, $5
ld [wcf63], a
ret
; 81daf
Function81daf: ; 81daf
ld hl, hJoyPressed
ld a, [hl]
and $2
jr nz, .asm_81dbb
call Function81dc7
ret
.asm_81dbb
ld a, $0
ld [wcf63], a
ret
; 81dc1
Function81dc1: ; 81dc1
ld hl, wcf63
set 7, [hl]
ret
; 81dc7
Function81dc7: ; 81dc7
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, .asm_81dd5
ld a, [hl]
and $80
jr nz, .asm_81de2
ret
.asm_81dd5
ld a, [wd004]
cp $3b
jr z, .asm_81ddf
inc a
jr .asm_81ded
.asm_81ddf
xor a
jr .asm_81ded
.asm_81de2
ld a, [wd004]
and a
jr z, .asm_81deb
dec a
jr .asm_81ded
.asm_81deb
ld a, $3b
.asm_81ded
ld [wd004], a
call Function81df4
ret
; 81df4
Function81df4: ; 81df4
hlcoord 10, 11
call Function81e5e
hlcoord 10, 12
call Function81e5e
hlcoord 10, 13
call Function81e5e
hlcoord 10, 14
call Function81e5e
ld a, [wd004]
inc a
ld [wd265], a
predef GetTMHMMove
ld a, [wd265]
ld [wd262], a
call GetMoveName
hlcoord 10, 12
call PlaceString
ld a, [wd004]
call Function81e55
ld [CurItem], a
predef CanLearnTMHMMove
ld a, c
and a
ld de, String_81e46
jr nz, .asm_81e3f
ld de, String_81e4d
.asm_81e3f
hlcoord 10, 14
call PlaceString
ret
; 81e46
String_81e46: db "おぼえられる@" ; can be taught
String_81e4d: db "おぼえられない@" ; cannot be taught
; 81e55
Function81e55: ; 81e55
cp $32
jr c, .asm_81e5b
rept 2
inc a
endr
.asm_81e5b
add $bf
ret
; 81e5e
Function81e5e: ; 81e5e
ld bc, $000a
ld a, $6f
call ByteFill
ret
; 81e67
Function81e67: ; 81e67
ld a, [wc608 + 10]
and $1f
ld e, a
ld a, [wc608 + 11]
and $7
sla a
swap a
or e
ld e, a
ld a, [wc608 + 11]
and $18
sla a
swap a
ld d, a
ld a, [wc608 + 12]
and $1f
sla a
sla a
or d
ld d, a
ld a, [wcf65]
and a
jr z, .asm_81e9c
ld a, e
ld [wc608 + 2], a
ld a, d
ld [wc608 + 3], a
ret
.asm_81e9c
ld a, e
ld [wc608], a
ld a, d
ld [wc608 + 1], a
ret
; 81ea5
Function81ea5: ; 81ea5
ld a, [de]
and $1f
ld [wc608 + 10], a
ld a, [de]
and $e0
swap a
srl a
ld b, a
inc de
ld a, [de]
and $3
swap a
srl a
or b
ld [wc608 + 11], a
ld a, [de]
and $7c
srl a
srl a
ld [wc608 + 12], a
ret
; 81eca
Function81eca: ; 81eca
ld a, [wcf66]
inc a
ld l, a
ld h, $0
rept 2
add hl, hl
endr
ld de, OverworldMap
add hl, de
ld e, l
ld d, h
ld hl, wc608
ld bc, $0004
call CopyBytes
ret
; 81ee3
Function81ee3: ; 81ee3
.asm_81ee3
ld a, $ff
ld [hli], a
ld a, $7f
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
xor a
rept 2
ld [hli], a
endr
dec c
jr nz, .asm_81ee3
ret
; 81efc
Function81efc: ; 81efc
.asm_81efc
push bc
push hl
.asm_81efe
ld [hli], a
dec c
jr nz, .asm_81efe
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .asm_81efc
ret
; 81f0c
Function81f0c: ; 81f0c
ld a, [wcfbe]
push af
set 7, a
ld [wcfbe], a
call Function81f1d
pop af
ld [wcfbe], a
ret
; 81f1d
Function81f1d: ; 81f1d
ld a, [hl]
and $7
ret z
ld b, a
.asm_81f22
push bc
xor a
ld [rJOYP], a
ld a, $30
ld [rJOYP], a
ld b, $10
.asm_81f2c
ld e, $8
ld a, [hli]
ld d, a
.asm_81f30
bit 0, d
ld a, $10
jr nz, .asm_81f38
ld a, $20
.asm_81f38
ld [rJOYP], a
ld a, $30
ld [rJOYP], a
rr d
dec e
jr nz, .asm_81f30
dec b
jr nz, .asm_81f2c
ld a, $20
ld [rJOYP], a
ld a, $30
ld [rJOYP], a
ld de, 7000
.asm_81f51
nop
nop
nop
dec de
ld a, d
or e
jr nz, .asm_81f51
pop bc
dec b
jr nz, .asm_81f22
ret
; 81f5e
Function81f5e: ; 81f5e
ld a, $6f
hlcoord 10, 0
ld [hl], a
hlcoord 15, 0
ld [hl], a
hlcoord 1, 11
ld [hl], a
hlcoord 1, 13
ld [hl], a
hlcoord 1, 15
ld [hl], a
ld a, [wcf63]
cp $3
jr nz, .asm_81fc9
ld a, [wcf64]
and a
jr z, .asm_81f8d
dec a
hlcoord 1, 11
ld bc, $0028
call AddNTimes
ld [hl], $ed
.asm_81f8d
ld a, [wcf65]
and a
jr z, .asm_81f98
hlcoord 15, 0
jr .asm_81f9b
.asm_81f98
hlcoord 10, 0
.asm_81f9b
ld [hl], $ed
ld b, $70
ld c, $5
ld hl, Sprites
ld de, wc608 + 10
call .asm_81fb7
ld de, wc608 + 11
call .asm_81fb7
ld de, wc608 + 12
call .asm_81fb7
ret
.asm_81fb7
ld a, b
ld [hli], a
ld a, [de]
rept 2
add a
endr
add $18
ld [hli], a
xor a
ld [hli], a
ld a, c
ld [hli], a
ld a, $10
add b
ld b, a
inc c
ret
.asm_81fc9
call ClearSprites
ret
; 81fcd
String_81fcd: ; 81fcd
db "おわりますか?" ; Are you finished?
next "はい", $f2, $f2, $f2, $7a ; YES (A)
next "いいえ", $f2, $f2, $7b ; NO (B)
db "@"
; 81fe3
DebugColorTestGFX:
INCBIN "gfx/debug/color_test.2bpp"
TilesetColorTest:
ret
xor a
ld [wcf63], a
ld [wcf64], a
ld [wcf65], a
ld [wcf66], a
ld [$ffde], a
call ClearSprites
call Function2173
call Function3200
xor a
ld [hBGMapMode], a
ld de, DebugColorTestGFX + $10
ld hl, $96a0
lb bc, BANK(DebugColorTestGFX), $16
call Request2bpp
ld de, DebugColorTestGFX
ld hl, VTiles1
lb bc, BANK(DebugColorTestGFX), 1
call Request2bpp
ld a, $9c
ld [$ffd7], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $6f
call ByteFill
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7
call ByteFill
ld de, $0015
ld a, $6c
call Function821d2
ld de, $001a
ld a, $6d
call Function821d2
ld de, $001f
ld a, $6e
call Function821d2
ld de, $0024
ld a, $6f
call Function821d2
call Function821f4
call Function8220f
call Function3200
ld [wcf63], a
ld a, $40
ld [hWY], a
ret
; 821d2
Function821d2: ; 821d2
hlcoord 0, 0
call Function821de
Function821d8: ; 821d8
ld a, [wcf64]
hlcoord 0, 0, AttrMap
Function821de: ; 821de
add hl, de
rept 4
ld [hli], a
endr
ld bc, $0010
add hl, bc
rept 4
ld [hli], a
endr
ld bc, $0010
add hl, bc
rept 4
ld [hli], a
endr
ret
; 821f4
Function821f4: ; 821f4
hlcoord 2, 4
call Function82203
hlcoord 2, 6
call Function82203
hlcoord 2, 8
Function82203: ; 82203
ld a, $6a
ld [hli], a
ld bc, $000f
ld a, $6b
call ByteFill
ret
; 8220f
Function8220f: ; 8220f
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, [wcf64]
ld l, a
ld h, $0
rept 3
add hl, hl
endr
ld de, Unkn1Pals
add hl, de
ld de, wc608
ld bc, $0008
call CopyBytes
ld de, wc608
call Function81ea5
pop af
ld [rSVBK], a
ret
; 82236
Function82236: ; 82236
ld hl, $ffa9
ld a, [hl]
and $4
jr nz, .loop7
ld a, [hl]
and $2
jr nz, .asm_82299
call Function822f0
ret
.loop7
ld hl, wcf64
ld a, [hl]
inc a
and $7
cp $7
jr nz, .asm_82253
xor a
.asm_82253
ld [hl], a
ld de, $0015
call Function821d8
ld de, $001a
call Function821d8
ld de, $001f
call Function821d8
ld de, $0024
call Function821d8
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, BGPals
ld a, [wcf64]
ld bc, $0008
call AddNTimes
ld de, wc608
ld bc, $0008
call CopyBytes
pop af
ld [rSVBK], a
ld a, $2
ld [hBGMapMode], a
ld c, $3
call DelayFrames
ld a, $1
ld [hBGMapMode], a
ret
.asm_82299
call ClearSprites
ld a, [hWY]
xor $d0
ld [hWY], a
ret
; 822a3
Function822a3: ; 822a3
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, BGPals
ld a, [wcf64]
ld bc, $0008
call AddNTimes
ld e, l
ld d, h
ld hl, wc608
ld bc, $0008
call CopyBytes
hlcoord 1, 0
ld de, wc608
call Function81ca7
hlcoord 6, 0
ld de, wc608 + 2
call Function81ca7
hlcoord 11, 0
ld de, wc608 + 4
call Function81ca7
hlcoord 16, 0
ld de, wc608 + 6
call Function81ca7
pop af
ld [rSVBK], a
ld a, $1
ld [hCGBPalUpdate], a
call DelayFrame
ret
; 822f0
Function822f0: ; 822f0
ld a, [wcf65]
and 3
ld e, a
ld d, 0
ld hl, Jumptable_82301
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 82301
Jumptable_82301: ; 82301
dw Function82309
dw Function82339
dw Function8234b
dw Function8235d
; 82309
Function82309: ; 82309
ld hl, $ffa9
ld a, [hl]
and $80
jr nz, Function8238c
ld a, [hl]
and $20
jr nz, .asm_8231c
ld a, [hl]
and $10
jr nz, .asm_82322
ret
.asm_8231c
ld a, [wcf66]
dec a
jr .asm_82326
.asm_82322
ld a, [wcf66]
inc a
.asm_82326
and $3
ld [wcf66], a
ld e, a
ld d, $0
ld hl, wc608
rept 2
add hl, de
endr
ld e, l
ld d, h
call Function81ea5
ret
Function82339: ; 82338
ld hl, $ffa9
ld a, [hl]
and $80
jr nz, Function8238c
ld a, [hl]
and $40
jr nz, Function82387
ld hl, wc608 + 10
jr Function82368
Function8234b: ; 8234b
ld hl, $ffa9
ld a, [hl]
and $80
jr nz, Function8238c
ld a, [hl]
and $40
jr nz, Function82387
ld hl, wc608 + 11
jr Function82368
Function8235d: ; 8235d
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, Function82387
ld hl, wc608 + 12
Function82368: ; 82368
ld a, [$ffa9]
and $10
jr nz, .asm_82375
ld a, [$ffa9]
and $20
jr nz, .asm_8237c
ret
.asm_82375
ld a, [hl]
cp $1f
ret nc
inc [hl]
jr .asm_82380
.asm_8237c
ld a, [hl]
and a
ret z
dec [hl]
.asm_82380
call Function82391
call Function822a3
ret
Function82387: ; 82387
ld hl, wcf65
dec [hl]
ret
Function8238c: ; 8238c
ld hl, wcf65
inc [hl]
ret
; 82391
Function82391: ; 82391
ld a, [wc608 + 10]
and $1f
ld e, a
ld a, [wc608 + 11]
and $7
sla a
swap a
or e
ld e, a
ld a, [wc608 + 11]
and $18
sla a
swap a
ld d, a
ld a, [wc608 + 12]
and $1f
sla a
sla a
or d
ld d, a
ld a, [wcf66]
ld c, a
ld b, $0
ld hl, wc608
rept 2
add hl, bc
endr
ld a, e
ld [hli], a
ld [hl], d
ret
; 823c6
Function823c6: ; 823c6
ret
Function823c7: ; 823c7
ret
; 823c8
SECTION "bank21", ROMX, BANK[$21]
Function84000: ; 84000
ld hl, OverworldMap
ld bc, $040c
xor a
call Function842ab
xor a
ld [rSB], a
ld [rSC], a
ld [wc2d5], a
ld hl, wc2d4
set 0, [hl]
ld a, [GBPrinter]
ld [wcbfb], a
xor a
ld [wcf63], a
ret
; 84022
Function84022: ; 84022
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_84031
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 84031
Jumptable_84031: ; 84031 (21:4031)
dw Function84077
dw Function84143
dw Function84120
dw Function84099
dw Function84180
dw Function8412e
dw Function840c5
dw Function84180
dw Function84120
dw Function840de
dw Function84180
dw Function84120
dw Function841a1
dw Function84063
dw Function8406d
dw Function84120
dw Function84103
dw Function84071
dw Function841b0
dw Function841b3
Function84059: ; 84059 (21:4059)
ld hl, wcf63
inc [hl]
ret
Function8405e: ; 8405e (21:405e)
ld hl, wcf63
dec [hl]
ret
Function84063: ; 84063 (21:4063)
xor a
ld [wca89], a
ld hl, wcf63
set 7, [hl]
ret
Function8406d: ; 8406d (21:406d)
call Function84059
ret
Function84071: ; 84071 (21:4071)
ld a, $1
ld [wcf63], a
ret
Function84077: ; 84077 (21:4077)
call Function841fb
ld hl, Unknown_842b7
call Function841e2
xor a
ld [wca8e], a
ld [wca8f], a
ld a, [wcf65]
ld [wca81], a
call Function84059
call Function841c3
ld a, $1
ld [wcbf8], a
ret
Function84099: ; 84099 (21:4099)
call Function841fb
ld hl, wca81
ld a, [hl]
and a
jr z, Function840c5
ld hl, Unknown_842c3
call Function841e2
call Function84260
ld a, $80
ld [wca8e], a
ld a, $2
ld [wca8f], a
call Function84219
call Function84059
call Function841c3
ld a, $2
ld [wcbf8], a
ret
Function840c5: ; 840c5 (21:40c5)
ld a, $6
ld [wcf63], a
ld hl, Unknown_842c9
call Function841e2
xor a
ld [wca8e], a
ld [wca8f], a
call Function84059
call Function841c3
ret
Function840de: ; 840de (21:40de)
call Function841fb
ld hl, Unknown_842bd
call Function841e2
call Function84249
ld a, $4
ld [wca8e], a
ld a, $0
ld [wca8f], a
call Function84219
call Function84059
call Function841c3
ld a, $3
ld [wcbf8], a
ret
Function84103: ; 84103 (21:4103)
call Function841fb
ld hl, Unknown_842b7
call Function841e2
xor a
ld [wca8e], a
ld [wca8f], a
ld a, [wcf65]
ld [wca81], a
call Function84059
call Function841c3
ret
Function84120: ; 84120 (21:4120)
ld hl, wca8b
inc [hl]
ld a, [hl]
cp $6
ret c
xor a
ld [hl], a
call Function84059
ret
Function8412e: ; 8412e (21:412e)
ld hl, wca8b
inc [hl]
ld a, [hl]
cp $6
ret c
xor a
ld [hl], a
ld hl, wca81
dec [hl]
call Function8405e
call Function8405e
ret
Function84143: ; 84143 (21:4143)
ld a, [wc2d5]
and a
ret nz
ld a, [wca88]
cp $ff
jr nz, .asm_84156
ld a, [wca89]
cp $ff
jr z, .asm_84172
.asm_84156
ld a, [wca88]
cp $81
jr nz, .asm_84172
ld a, [wca89]
cp $0
jr nz, .asm_84172
ld hl, wc2d4
set 1, [hl]
ld a, $5
ld [wca8a], a
call Function84059
ret
.asm_84172
ld a, $ff
ld [wca88], a
ld [wca89], a
ld a, $e
ld [wcf63], a
ret
Function84180: ; 84180 (21:4180)
ld a, [wc2d5]
and a
ret nz
ld a, [wca89]
and $f0
jr nz, .asm_8419b
ld a, [wca89]
and $1
jr nz, .asm_84197
call Function84059
ret
.asm_84197
call Function8405e
ret
.asm_8419b
ld a, $12
ld [wcf63], a
ret
Function841a1: ; 841a1 (21:41a1)
ld a, [wc2d5]
and a
ret nz
ld a, [wca89]
and $f3
ret nz
call Function84059
ret
Function841b0: ; 841b0 (21:41b0)
call Function84059
Function841b3: ; 841b3 (21:41b3)
ld a, [wc2d5]
and a
ret nz
ld a, [wca89]
and $f0
ret nz
xor a
ld [wcf63], a
ret
Function841c3: ; 841c3 (21:41c3)
ld a, [wc2d5]
and a
jr nz, Function841c3
xor a
ld [wca8c], a
ld [wca8d], a
ld a, $1
ld [wc2d5], a
ld a, $88
ld [rSB], a ; $ff00+$1
ld a, $1
ld [rSC], a ; $ff00+$2
ld a, $81
ld [rSC], a ; $ff00+$2
ret
Function841e2: ; 841e2 (21:41e2)
ld a, [hli]
ld [wca82], a
ld a, [hli]
ld [wca83], a
ld a, [hli]
ld [wca84], a
ld a, [hli]
ld [wca85], a
ld a, [hli]
ld [wca86], a
ld a, [hl]
ld [wca87], a
ret
Function841fb: ; 841fb (21:41fb)
xor a
ld hl, wca82
rept 3
ld [hli], a
endr
ld [hl], a
ld hl, wca86
ld [hli], a
ld [hl], a
xor a
ld [wca8e], a
ld [wca8f], a
ld hl, OverworldMap
ld bc, $280
call Function842ab
ret
Function84219: ; 84219 (21:4219)
ld hl, $0
ld bc, $4
ld de, wca82
call Function8423c
ld a, [wca8e]
ld c, a
ld a, [wca8f]
ld b, a
ld de, OverworldMap
call Function8423c
ld a, l
ld [wca86], a
ld a, h
ld [wca87], a
ret
Function8423c: ; 8423c (21:423c)
ld a, [de]
inc de
add l
jr nc, .asm_84242
inc h
.asm_84242
ld l, a
dec bc
ld a, c
or b
jr nz, Function8423c
ret
Function84249: ; 84249 (21:4249)
ld a, $1
ld [OverworldMap], a
ld a, [wcbfa]
ld [wc801], a
ld a, $e4
ld [wc802], a
ld a, [wcbfb]
ld [wc803], a
ret
Function84260: ; 84260 (21:4260)
ld a, [wca81]
xor $ff
ld d, a
ld a, [wcf65]
inc a
add d
ld hl, wca90
ld de, $28
.asm_84271
and a
jr z, .asm_84278
add hl, de
dec a
jr .asm_84271
.asm_84278
ld e, l
ld d, h
ld hl, OverworldMap
ld c, $28
.asm_8427f
ld a, [de]
inc de
push bc
push de
push hl
swap a
ld d, a
and $f0
ld e, a
ld a, d
and $f
ld d, a
and $8
ld a, d
jr nz, .asm_84297
or $90
jr .asm_84299
.asm_84297
or $80
.asm_84299
ld d, a
lb bc, $21, 1
call Request2bpp
pop hl
ld de, $10
add hl, de
pop de
pop bc
dec c
jr nz, .asm_8427f
ret
Function842ab: ; 842ab
push de
ld e, a
.asm_842ad
ld [hl], e
inc hl
dec bc
ld a, c
or b
jr nz, .asm_842ad
ld a, e
pop de
ret
; 842b7
Unknown_842b7: db 1, 0, $00, 0, 1, 0
Unknown_842bd: db 2, 0, $04, 0, 0, 0
Unknown_842c3: db 4, 0, $80, 2, 0, 0
Unknown_842c9: db 4, 0, $00, 0, 4, 0
Unknown_842cf: db 8, 0, $00, 0, 8, 0 ; unused
Unknown_842d5: db 15, 0, $00, 0, 15, 0 ; unused
; 842db
Function842db:: ; 842db
ld a, [wc2d5]
add a
ld e, a
ld d, 0
ld hl, Jumptable_842ea
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 842ea
Jumptable_842ea: ; 842ea (21:42ea)
dw Function8432f
dw Function84330
dw Function84339
dw Function84343
dw Function8434d
dw Function84357
dw Function84361
dw Function8438b
dw Function84395
dw Function8439f
dw Function843a8
dw Function843b6
dw Function84330
dw Function843c0
dw Function843c9
dw Function843c9
dw Function843c9
dw Function843c0
dw Function843c9
dw Function8439f
dw Function843a8
dw Function843e6
dw Function84330
dw Function843d2
dw Function843c9
dw Function843c9
dw Function843c9
dw Function843d2
dw Function843c9
dw Function8439f
dw Function843a8
dw Function843b6
Function8432a: ; 8432a (21:432a)
ld hl, wc2d5
inc [hl]
ret
Function8432f: ; 8432f (21:432f)
ret
Function84330: ; 84330 (21:4330)
ld a, $33
call Function843db
call Function8432a
ret
Function84339: ; 84339 (21:4339)
ld a, [wca82]
call Function843db
call Function8432a
ret
Function84343: ; 84343 (21:4343)
ld a, [wca83]
call Function843db
call Function8432a
ret
Function8434d: ; 8434d (21:434d)
ld a, [wca84]
call Function843db
call Function8432a
ret
Function84357: ; 84357 (21:4357)
ld a, [wca85]
call Function843db
call Function8432a
ret
Function84361: ; 84361 (21:4361)
ld hl, wca8e
ld a, [hli]
ld d, [hl]
ld e, a
or d
jr z, .asm_84388
dec de
ld [hl], d
dec hl
ld [hl], e
ld a, [wca8c]
ld e, a
ld a, [wca8d]
ld d, a
ld hl, OverworldMap
add hl, de
inc de
ld a, e
ld [wca8c], a
ld a, d
ld [wca8d], a
ld a, [hl]
call Function843db
ret
.asm_84388
call Function8432a
Function8438b: ; 8438b (21:438b)
ld a, [wca86]
call Function843db
call Function8432a
ret
Function84395: ; 84395 (21:4395)
ld a, [wca87]
call Function843db
call Function8432a
ret
Function8439f: ; 8439f (21:439f)
ld a, $0
call Function843db
call Function8432a
ret
Function843a8: ; 843a8 (21:43a8)
ld a, [rSB] ; $ff00+$1
ld [wca88], a
ld a, $0
call Function843db
call Function8432a
ret
Function843b6: ; 843b6 (21:43b6)
ld a, [rSB] ; $ff00+$1
ld [wca89], a
xor a
ld [wc2d5], a
ret
Function843c0: ; 843c0 (21:43c0)
ld a, $f
call Function843db
call Function8432a
ret
Function843c9: ; 843c9 (21:43c9)
ld a, $0
call Function843db
call Function8432a
ret
Function843d2: ; 843d2 (21:43d2)
ld a, $8
call Function843db
call Function8432a
ret
Function843db: ; 843db (21:43db)
ld [rSB], a ; $ff00+$1
ld a, $1
ld [rSC], a ; $ff00+$2
ld a, $81
ld [rSC], a ; $ff00+$2
ret
Function843e6: ; 843e6 (21:43e6)
ld a, [rSB] ; $ff00+$1
ld [wca89], a
xor a
ld [wc2d5], a
ret
Function843f0: ; 843f0
.asm_843f0
call Functiona57
call Function846f6
jr c, .asm_8440f
ld a, [wcf63]
bit 7, a
jr nz, .asm_8440d
call Function84022
call Function84757
call Function84785
call DelayFrame
jr .asm_843f0
.asm_8440d
and a
ret
.asm_8440f
scf
ret
; 84411
Function84411: ; 84411
xor a
ld [wc2d4], a
ld [wc2d5], a
ret
; 84419
Function84419: ; 84419
push af
call Function84000
pop af
ld [wcbfa], a
call Function84728
ret
; 84425
Function84425: ; 84425
call Function222a
call Function84753
ret
; 8442c
Function8442c: ; 8442c
ld a, [wcf65]
push af
ld hl, VTiles1
ld de, FontInversed
lb bc, BANK(FontInversed), $80
call Request1bpp
xor a
ld [$ffac], a
call Function8474c
ld a, [rIE]
push af
xor a
ld [rIF], a
ld a, $9
ld [rIE], a
call Function84000
ld a, $10
ld [wcbfa], a
callba Function1dc1b0
call ClearTileMap
ld a, $e4
call DmgToCgbBGPals
call DelayFrame
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $4
ld a, $8
ld [wcf65], a
call Function84742
call Function843f0
jr c, .asm_8449d
call Function84411
ld c, $c
call DelayFrames
xor a
ld [hBGMapMode], a
call Function84000
ld a, $3
ld [wcbfa], a
callba Function1dc213
call Function84742
ld a, $4
ld [wcf65], a
call Function843f0
.asm_8449d
pop af
ld [hVBlank], a
call Function84411
xor a
ld [rIF], a
pop af
ld [rIE], a
call Function84425
ld c, $8
.asm_844ae
call LowVolume
call DelayFrame
dec c
jr nz, .asm_844ae
pop af
ld [wcf65], a
ret
; 844bc
Function844bc: ; 844bc (21:44bc)
ld a, [wcf65]
push af
ld a, $9
ld [wcf65], a
ld a, e
ld [wd004], a
ld a, d
ld [StartFlypoint], a
ld a, b
ld [EndFlypoint], a
ld a, c
ld [MovementBuffer], a
xor a
ld [$ffac], a
ld [wd003], a
call Function8474c
ld a, [rIE] ; $ff00+$ff
push af
xor a
ld [rIF], a ; $ff00+$f
ld a, $9
ld [rIE], a ; $ff00+$ff
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $4
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function84817
ld a, $10
call Function84419
call Function84559
jr c, .asm_84545
call Function84411
ld c, $c
call DelayFrames
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function8486f
ld a, $0
call Function84419
call Function84559
jr c, .asm_84545
call Function84411
ld c, $c
call DelayFrames
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function84893
ld a, $0
call Function84419
call Function84559
jr c, .asm_84545
call Function84411
ld c, $c
call DelayFrames
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function848b7
ld a, $3
call Function84419
call Function84559
.asm_84545
pop af
ld [hVBlank], a
call Function84411
xor a
ld [rIF], a ; $ff00+$f
pop af
ld [rIE], a ; $ff00+$ff
call Function84425
pop af
ld [wcf65], a
ret
Function84559: ; 84559 (21:4559)
call Function84742
call Function843f0
ret
Function84560: ; 84560
ld a, [wcf65]
push af
xor a
ld [$ffac], a
call Function8474c
ld a, [rIE]
push af
xor a
ld [rIF], a
ld a, $9
ld [rIE], a
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $4
xor a
ld [hBGMapMode], a
call Function309d
callba Function16dac
ld a, $0
call Function84419
call Function30b4
call Function84742
ld a, $9
ld [wcf65], a
.asm_84597
call Functiona57
call Function846f6
jr c, .asm_845c0
ld a, [wcf63]
bit 7, a
jr nz, .asm_845c0
call Function84022
ld a, [wcf63]
cp $2
jr nc, .asm_845b5
ld a, $3
ld [wca81], a
.asm_845b5
call Function84757
call Function84785
call DelayFrame
jr .asm_84597
.asm_845c0
pop af
ld [hVBlank], a
call Function84411
call Function30b4
xor a
ld [rIF], a
pop af
ld [rIE], a
pop af
ld [wcf65], a
ret
; 845d4
Function845d4: ; 845d4
call Function845db
call Function84425
ret
; 845db
Function845db: ; 845db
ld a, [wcf65]
push af
xor a
ld [$ffac], a
call Function8474c
ld a, [rIE]
push af
xor a
ld [rIF], a
ld a, $9
ld [rIE], a
xor a
ld [hBGMapMode], a
ld a, $13
call Function84419
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $4
ld a, $9
ld [wcf65], a
call Function843f0
pop af
ld [hVBlank], a
call Function84411
call Function84735
xor a
ld [rIF], a
pop af
ld [rIE], a
pop af
ld [wcf65], a
ret
; 8461a
Function8461a: ; 8461a
ld a, [wcf65]
push af
xor a
ld [$ffac], a
call Function8474c
ld a, [rIE]
push af
xor a
ld [rIF], a
ld a, $9
ld [rIE], a
xor a
ld [hBGMapMode], a
callba Function1dc381
ld a, $10
call Function84419
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $4
ld a, $8
ld [wcf65], a
call Function84742
call Function843f0
jr c, .asm_84671
call Function84411
ld c, $c
call DelayFrames
xor a
ld [hBGMapMode], a
callba Function1dc47b
ld a, $3
call Function84419
ld a, $9
ld [wcf65], a
call Function84742
call Function843f0
.asm_84671
pop af
ld [hVBlank], a
call Function84411
call Function84735
xor a
ld [rIF], a
pop af
ld [rIE], a
call Function84425
pop af
ld [wcf65], a
ret
; 84688
Function84688: ; 84688
ld a, [wcf65]
push af
callba Function1dd709
xor a
ld [$ffac], a
call Function8474c
ld a, [rIE]
push af
xor a
ld [rIF], a
ld a, $9
ld [rIE], a
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $4
ld a, $10
call Function84419
call Function84742
ld a, $9
ld [wcf65], a
call Function843f0
jr c, .asm_846e2
call Function84411
ld c, $c
call DelayFrames
call Function309d
xor a
ld [hBGMapMode], a
callba Function1dd7ae
ld a, $3
call Function84419
call Function30b4
call Function84742
ld a, $9
ld [wcf65], a
call Function843f0
.asm_846e2
pop af
ld [hVBlank], a
call Function84411
xor a
ld [rIF], a
pop af
ld [rIE], a
call Function84425
pop af
ld [wcf65], a
ret
; 846f6
Function846f6: ; 846f6
ld a, [hJoyDown]
and $2
jr nz, .asm_846fe
and a
ret
.asm_846fe
ld a, [wca80]
cp $c
jr nz, .asm_84722
.asm_84705
ld a, [wc2d5]
and a
jr nz, .asm_84705
ld a, $16
ld [wc2d5], a
ld a, $88
ld [rSB], a
ld a, $1
ld [rSC], a
ld a, $81
ld [rSC], a
.asm_8471c
ld a, [wc2d5]
and a
jr nz, .asm_8471c
.asm_84722
ld a, $1
ld [$ffac], a
scf
ret
; 84728
Function84728: ; 84728
hlcoord 0, 0
ld de, wca90
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call CopyBytes
ret
; 84735
Function84735: ; 84735
ld hl, wca90
decoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call CopyBytes
ret
; 84742
Function84742: ; 84742
xor a
ld [hJoyReleased], a
ld [hJoyPressed], a
ld [hJoyDown], a
ld [$ffa9], a
ret
; 8474c
Function8474c: ; 8474c
ld de, MUSIC_PRINTER
call PlayMusic2
ret
; 84753
Function84753: ; 84753
call RestartMapMusic
ret
; 84757
Function84757: ; 84757
ld a, [wca88]
cp $ff
jr nz, .c_directly_below_e5
ld a, [wca89]
cp $ff
jr z, .asm_8477f
.c_directly_below_e5
ld a, [wca89]
and $e0
ret z
bit 7, a
jr nz, .asm_8477b
bit 6, a
jr nz, .asm_84777
ld a, $6
jr .asm_84781
.asm_84777
ld a, $7
jr .asm_84781
.asm_8477b
ld a, $4
jr .asm_84781
.asm_8477f
ld a, $5
.asm_84781
ld [wcbf8], a
ret
; 84785
Function84785: ; 84785
ld a, [wcbf8]
and a
ret z
push af
xor a
ld [hBGMapMode], a
hlcoord 0, 5
ld bc, $0a12
call TextBox
pop af
ld e, a
ld d, 0
ld hl, Unknown_84807
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 1, 7
ld a, BANK(GBPrinterStrings)
call FarString
hlcoord 2, 15
ld de, String_847f5
call PlaceString
ld a, $1
ld [hBGMapMode], a
xor a
ld [wcbf8], a
ret
; 847bd
Function847bd: ; 847bd
ld a, [wcbf8]
and a
ret z
push af
xor a
ld [hBGMapMode], a
hlcoord 2, 4
ld bc, $0d10
call ClearBox
pop af
ld e, a
ld d, 0
ld hl, Unknown_84807
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 4, 7
ld a, BANK(GBPrinterStrings)
call FarString
hlcoord 4, 15
ld de, String_847f5
call PlaceString
ld a, $1
ld [hBGMapMode], a
xor a
ld [wcbf8], a
ret
; 847f5
String_847f5:
db "Press B to Cancel@"
; 84807
Unknown_84807: ; 84807
dw String_1dc275
dw String_1dc276
dw String_1dc289
dw String_1dc29c
dw String_1dc2ad
dw String_1dc2e2
dw String_1dc317
dw String_1dc34c
; 84817
Function84817: ; 84817 (21:4817)
xor a
ld [wd002], a
hlcoord 0, 0
ld bc, $168
ld a, $7f
call ByteFill
call Function84a0e
hlcoord 0, 0
ld bc, $b4
ld a, $7f
call ByteFill
call Function849e9
call Function849d7
hlcoord 4, 3
ld de, String_84865
call PlaceString
ld a, [wd007]
ld bc, 9
ld hl, wBoxNames
call AddNTimes
ld d, h
ld e, l
hlcoord 6, 5
call PlaceString
ld a, $1
call Function849c6
hlcoord 2, 9
ld c, $3
call Function848e7
ret
; 84865 (21:4865)
String_84865:
db "#MON LIST@"
; 8486f
Function8486f: ; 8486f (21:486f)
hlcoord 0, 0
ld bc, $168
ld a, $7f
call ByteFill
call Function84a0e
call Function849e9
ld a, [wd003]
and a
ret nz
ld a, $4
call Function849c6
hlcoord 2, 0
ld c, $6
call Function848e7
ret
Function84893: ; 84893 (21:4893)
hlcoord 0, 0
ld bc, $168
ld a, $7f
call ByteFill
call Function84a0e
call Function849e9
ld a, [wd003]
and a
ret nz
ld a, $a
call Function849c6
hlcoord 2, 0
ld c, $6
call Function848e7
ret
Function848b7: ; 848b7 (21:48b7)
hlcoord 0, 0
ld bc, $168
ld a, $7f
call ByteFill
call Function84a0e
hlcoord 1, 15
ld bc, $212
call ClearBox
call Function849e9
call Function849fc
ld a, [wd003]
and a
ret nz
ld a, $10
call Function849c6
hlcoord 2, 0
ld c, $5
call Function848e7
ret
Function848e7: ; 848e7 (21:48e7)
ld a, [EndFlypoint]
call GetSRAMBank
Function848ed: ; 848ed (21:48ed)
ld a, c
and a
jp z, Function84986
dec c
ld a, [de]
cp $ff
jp z, Function84981
ld [wd265], a
ld [CurPartySpecies], a
push bc
push hl
push de
push hl
ld bc, $10
ld a, $7f
call ByteFill
pop hl
push hl
call GetBasePokemonName
pop hl
push hl
call PlaceString
ld a, [CurPartySpecies]
cp $fd
pop hl
jr z, .ok2
ld bc, $b
add hl, bc
call Function8498a
ld bc, $9
add hl, bc
ld a, $f3
ld [hli], a
push hl
ld bc, $e
ld a, $7f
call ByteFill
pop hl
push hl
ld a, [wd004]
ld l, a
ld a, [StartFlypoint]
ld h, a
ld bc, $372
add hl, bc
ld bc, $b
ld a, [DefaultFlypoint]
call AddNTimes
ld e, l
ld d, h
pop hl
push hl
call PlaceString
pop hl
ld bc, $b
add hl, bc
push hl
ld a, [wd004]
ld l, a
ld a, [StartFlypoint]
ld h, a
ld bc, $35
add hl, bc
ld bc, $20
ld a, [DefaultFlypoint]
call AddNTimes
ld a, [hl]
pop hl
call Function383d
.ok2
ld hl, DefaultFlypoint
inc [hl]
pop de
pop hl
ld bc, $3c
add hl, bc
pop bc
inc de
jp Function848ed
Function84981: ; 84981 (21:4981)
ld a, $1
ld [wd003], a
Function84986: ; 84986 (21:4986)
call CloseSRAM
ret
Function8498a: ; 8498a (21:498a)
push hl
ld a, [wd004]
ld l, a
ld a, [StartFlypoint]
ld h, a
ld bc, $2b
add hl, bc
ld bc, $20
ld a, [DefaultFlypoint]
call AddNTimes
ld de, TempMonDVs
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
ld a, [DefaultFlypoint]
ld [CurPartyMon], a
ld a, $3
ld [MonType], a
callba GetGender
ld a, $7f
jr c, .asm_849c3
ld a, $ef
jr nz, .asm_849c3
ld a, $f5
.asm_849c3
pop hl
ld [hli], a
ret
Function849c6: ; 849c6 (21:49c6)
push hl
ld e, a
ld d, $0
ld a, [wd004]
ld l, a
ld a, [StartFlypoint]
ld h, a
add hl, de
ld e, l
ld d, h
pop hl
ret
Function849d7: ; 849d7 (21:49d7)
hlcoord 0, 0
ld a, $79
ld [hli], a
ld a, $7a
ld c, $12
.asm_849e1
ld [hli], a
dec c
jr nz, .asm_849e1
ld a, $7b
ld [hl], a
ret
Function849e9: ; 849e9 (21:49e9)
hlcoord 0, 0
ld de, $13
ld c, $12
.asm_849f1
ld a, $7c
ld [hl], a
add hl, de
ld a, $7c
ld [hli], a
dec c
jr nz, .asm_849f1
ret
Function849fc: ; 849fc (21:49fc)
hlcoord 0, 17
ld a, $7d
ld [hli], a
ld a, $7a
ld c, $12
.asm_84a06
ld [hli], a
dec c
jr nz, .asm_84a06
ld a, $7e
ld [hl], a
ret
Function84a0e: ; 84a0e (21:4a0e)
hlcoord 2, 0
ld c, $6
.asm_84a13
push bc
push hl
ld de, String84a25
call PlaceString
pop hl
ld bc, $3c
add hl, bc
pop bc
dec c
jr nz, .asm_84a13
ret
; 84a25 (21:4a25)
String84a25: ; 84a25
db " ------@"
; 84a2e
INCLUDE "battle/anim_gfx.asm"
HallOfFame:: ; 0x8640e
call Function8648e
ld a, [StatusFlags]
push af
ld a, 1
ld [wc2cd], a
call Function2ed3
ld a, 1
ld [wd4b5], a
; Enable the Pokégear map to cycle through all of Kanto
ld hl, StatusFlags
set 6, [hl] ; hall of fame
callba Function14da0
ld hl, wd95e
ld a, [hl]
cp 200
jr nc, .ok ; 0x86433 $1
inc [hl]
.ok
callba Function14b85
call Function8653f
callba Function14b5f
xor a
ld [wc2cd], a
call Function864c3
pop af
ld b, a
callba Function109847
ret
; 0x86455
Function86455:: ; 86455
ld a, MUSIC_NONE % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_NONE / $100
ld [MusicFadeIDHi], a
ld a, $a
ld [MusicFade], a
callba FadeBlackBGMap
xor a
ld [VramState], a
ld [$ffde], a
callba Function4e8c2
ld c, $8
call DelayFrames
call Function2ed3
ld a, $2
ld [wd4b5], a
ld a, [StatusFlags]
ld b, a
callba Function109847
ret
; 8648e
Function8648e: ; 8648e
ld a, MUSIC_NONE % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_NONE / $100
ld [MusicFadeIDHi], a
ld a, 10
ld [MusicFade], a
callba FadeBlackBGMap
xor a
ld [VramState], a
ld [$ffde], a
callba Function4e881
ld c, 100
jp DelayFrames
; 864b4
Function864b4: ; 864b4
push de
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
pop de
call PlayMusic
ret
; 864c3
Function864c3: ; 864c3
xor a
ld [wcf63], a
call Function8671c
jr c, .done
ld de, SCREEN_WIDTH
call Function864b4
xor a
ld [wcf64], a
.loop
ld a, [wcf64]
cp 6
jr nc, .done
ld hl, wc608 + 1
ld bc, $0010
call AddNTimes
ld a, [hl]
cp -1
jr z, .done
push hl
call Function865b5
pop hl
call Function8650c
jr c, .done
ld hl, wcf64
inc [hl]
jr .loop
.done
call Function86810
ld a, $4
ld [MusicFade], a
call FadeToWhite
ld c, $8
call DelayFrames
ret
; 8650c
Function8650c: ; 8650c
call Function86748
ld de, String_8652c
hlcoord 1, 2
call PlaceString
call WaitBGMap
decoord 6, 5
ld c, $6
predef Functiond066e
ld c, $3c
call DelayFrames
and a
ret
; 8652c
String_8652c:
db "New Hall of Famer!@"
; 8653f
Function8653f: ; 8653f
ld hl, OverworldMap
ld bc, $0062
xor a
call ByteFill
ld a, [wd95e]
ld de, OverworldMap
ld [de], a
inc de
ld hl, PartySpecies
ld c, 0
.asm_86556
ld a, [hli]
cp $ff
jr z, .asm_865b1
cp EGG
jr nz, .asm_86562
inc c
jr .asm_86556
.asm_86562
push hl
push de
push bc
ld a, c
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
call AddNTimes
ld c, l
ld b, h
ld hl, $0000
add hl, bc
ld a, [hl]
ld [de], a
inc de
ld hl, $0006
add hl, bc
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
ld hl, $0015
add hl, bc
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
ld hl, $001f
add hl, bc
ld a, [hl]
ld [de], a
inc de
pop bc
push bc
ld a, c
ld hl, PartyMonNicknames
ld bc, $000b
call AddNTimes
ld bc, $000a
call CopyBytes
pop bc
inc c
pop de
ld hl, $0010
add hl, de
ld e, l
ld d, h
pop hl
jr .asm_86556
.asm_865b1
ld a, $ff
ld [de], a
ret
; 865b5
Function865b5: ; 865b5
push hl
call WhiteBGMap
callba Function4e906
pop hl
ld a, [hli]
ld [TempMonSpecies], a
ld [CurPartySpecies], a
rept 2
inc hl
endr
ld a, [hli]
ld [TempMonDVs], a
ld a, [hli]
ld [TempMonDVs + 1], a
ld hl, TempMonDVs
predef GetUnownLetter
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
ld de, $9310
predef GetBackpic
ld a, $31
ld [$ffad], a
hlcoord 6, 6
ld bc, $0606
predef FillBox
ld a, $d0
ld [hSCY], a
ld a, $90
ld [hSCX], a
call WaitBGMap
xor a
ld [hBGMapMode], a
ld b, $1a
call GetSGBLayout
call Function32f9
call Function86635
xor a
ld [wc2c6], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
hlcoord 6, 5
call Function378b
call WaitBGMap
xor a
ld [hBGMapMode], a
ld [hSCY], a
call Function86643
ret
; 86635
Function86635: ; 86635
.asm_86635
ld a, [hSCX]
cp $70
ret z
add $4
ld [hSCX], a
call DelayFrame
jr .asm_86635
; 86643
Function86643: ; 86643
.asm_86643
ld a, [hSCX]
and a
ret z
rept 2
dec a
endr
ld [hSCX], a
call DelayFrame
jr .asm_86643
; 86650
Function86650: ; 86650
call Functione58
xor a
ld [wcf63], a
.asm_86657
call Function8671c
ret c
call Function86665
ret c
ld hl, wcf63
inc [hl]
jr .asm_86657
; 86665
Function86665: ; 86665
xor a
ld [wcf64], a
.asm_86669
call Function86692
jr c, .asm_86690
.asm_8666e
call Functiona57
ld hl, $ffa9
ld a, [hl]
and $2
jr nz, .asm_8668e
ld a, [hl]
and $1
jr nz, .asm_86688
ld a, [hl]
and $8
jr nz, .asm_86690
call DelayFrame
jr .asm_8666e
.asm_86688
ld hl, wcf64
inc [hl]
jr .asm_86669
.asm_8668e
scf
ret
.asm_86690
and a
ret
; 86692
Function86692: ; 86692
; Print the number of times the player has entered the Hall of Fame.
; If that number is above 200, print "HOF Master!" instead.
ld a, [wcf64]
cp $6
jr nc, .asm_866a7
ld hl, wc608 + 1
ld bc, $0010
call AddNTimes
ld a, [hl]
cp $ff
jr nz, .asm_866a9
.asm_866a7
scf
ret
.asm_866a9
push hl
call WhiteBGMap
pop hl
call Function86748
ld a, [wc608]
cp 200 + 1
jr c, .asm_866c6
ld de, String_866fc
hlcoord 1, 2
call PlaceString
hlcoord 13, 2
jr .asm_866de
.asm_866c6
ld de, String_8670c
hlcoord 1, 2
call PlaceString
hlcoord 2, 2
ld de, wc608
ld bc, $0103
call PrintNum
hlcoord 11, 2
.asm_866de
ld de, String_866fb
call PlaceString
call WaitBGMap
ld b, $1a
call GetSGBLayout
call Function32f9
decoord 6, 5
ld c, $6
predef Functiond066e
and a
ret
; 866fb
String_866fb:
db "@"
; 866fc
String_866fc:
db " HOF Master!@"
; 8670c
String_8670c:
db " -Time Famer@"
; 8671c
Function8671c: ; 8671c
ld a, [wcf63]
cp $1e
jr nc, .asm_86746
ld hl, $b2c0
ld bc, $0062
call AddNTimes
ld a, $1
call GetSRAMBank
ld a, [hl]
and a
jr z, .asm_86743
ld de, wc608
ld bc, $0062
call CopyBytes
call CloseSRAM
and a
ret
.asm_86743
call CloseSRAM
.asm_86746
scf
ret
; 86748
Function86748: ; 86748
xor a
ld [hBGMapMode], a
ld a, [hli]
ld [TempMonSpecies], a
ld a, [hli]
ld [TempMonID], a
ld a, [hli]
ld [TempMonID + 1], a
ld a, [hli]
ld [TempMonDVs], a
ld a, [hli]
ld [TempMonDVs + 1], a
ld a, [hli]
ld [TempMonLevel], a
ld de, StringBuffer2
ld bc, $000a
call CopyBytes
ld a, $50
ld [StringBuffer2 + 10], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
hlcoord 0, 0
ld bc, $0312
call TextBox
hlcoord 0, 12
ld bc, $0412
call TextBox
ld a, [TempMonSpecies]
ld [CurPartySpecies], a
ld [wd265], a
ld hl, TempMonDVs
predef GetUnownLetter
xor a
ld [wc2c6], a
hlcoord 6, 5
call Function378b
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_867f8
hlcoord 1, 13
ld a, $74
ld [hli], a
ld [hl], $f2
hlcoord 3, 13
ld de, wd265
ld bc, $8103
call PrintNum
call GetBasePokemonName
hlcoord 7, 13
call PlaceString
ld a, $3
ld [MonType], a
callba GetGender
ld a, $7f
jr c, .asm_867e2
ld a, $ef
jr nz, .asm_867e2
ld a, $f5
.asm_867e2
hlcoord 18, 13
ld [hli], a
hlcoord 8, 14
ld a, $f3
ld [hli], a
ld de, StringBuffer2
call PlaceString
hlcoord 1, 16
call PrintLevel
.asm_867f8
hlcoord 7, 16
ld a, $73
ld [hli], a
ld a, $74
ld [hli], a
ld [hl], $f3
hlcoord 10, 16
ld de, TempMonID
ld bc, $8205
call PrintNum
ret
; 86810
Function86810: ; 86810
call WhiteBGMap
ld hl, $9630
ld de, FontExtra + $d0
lb bc, BANK(FontExtra), 1
call Request2bpp
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
callba GetPlayerBackpic
ld a, $31
ld [$ffad], a
hlcoord 6, 6
ld bc, $0606
predef FillBox
ld a, $d0
ld [hSCY], a
ld a, $90
ld [hSCX], a
call WaitBGMap
xor a
ld [hBGMapMode], a
ld [CurPartySpecies], a
ld b, $1a
call GetSGBLayout
call Function32f9
call Function86635
xor a
ld [wc2c6], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $7f
call ByteFill
callba Function88840
xor a
ld [$ffad], a
hlcoord 12, 5
lb bc, 7, 7
predef FillBox
ld a, $c0
ld [hSCX], a
call WaitBGMap
xor a
ld [hBGMapMode], a
ld [hSCY], a
call Function86643
xor a
ld [hBGMapMode], a
hlcoord 0, 2
ld bc, $0809
call TextBox
hlcoord 0, 12
ld bc, $0412
call TextBox
hlcoord 2, 4
ld de, PlayerName
call PlaceString
hlcoord 1, 6
ld a, $73
ld [hli], a
ld a, $74
ld [hli], a
ld [hl], $f3
hlcoord 4, 6
ld de, PlayerID
ld bc, $8205
call PrintNum
hlcoord 1, 8
ld de, .PlayTime
call PlaceString
hlcoord 3, 9
ld de, GameTimeHours
ld bc, $0203
call PrintNum
ld [hl], $63
inc hl
ld de, GameTimeMinutes
ld bc, $8102
call PrintNum
call WaitBGMap
callba Function26601
ret
; 868ed
.PlayTime
db "PLAY TIME@"
; 868f7
SECTION "bank22", ROMX, BANK[$22]
Function88000: ; 88000
ld hl, UnknownText_0x88007
call PrintText
ret
; 88007
UnknownText_0x88007: ; 0x88007
; Which APRICORN should I use?
text_jump UnknownText_0x1bc06b
db "@"
; 0x8800c
Function8800c: ; 8800c
ld hl, UnknownText_0x88013
call PrintText
ret
; 88013
UnknownText_0x88013: ; 0x88013
; How many should I make?
text_jump UnknownText_0x1bc089
db "@"
; 0x88018
Function88018: ; 88018
call Function1d6e
ld c, $1
xor a
ld [wd0e4], a
ld [wdca4], a
.asm_88024
push bc
call Function88000
pop bc
ld a, c
ld [MenuSelection], a
call Function88055
ld a, c
ld [ScriptVar], a
and a
jr z, .asm_88051
ld [CurItem], a
ld a, [wcfa9]
ld c, a
push bc
call Function8800c
call Function880c2
pop bc
jr nc, .asm_88024
ld a, [wd10c]
ld [wdca4], a
call Function88161
.asm_88051
call Function1d7d
ret
; 88055
Function88055: ; 88055
callba Function24c64
jr c, .asm_88083
ld hl, MenuDataHeader_0x88086
call CopyMenuDataHeader
ld a, [MenuSelection]
ld [wcf88], a
xor a
ld [hBGMapMode], a
call Function352f
call DrawOnMap
call Function350c
ld a, [wcf73]
cp $2
jr z, .asm_88083
ld a, [MenuSelection]
cp $ff
jr nz, .asm_88084
.asm_88083
xor a
.asm_88084
ld c, a
ret
; 88086
MenuDataHeader_0x88086: ; 0x88086
db $40 ; flags
db 01, 01 ; start coords
db 10, 13 ; end coords
dw MenuData2_0x8808f
db 1 ; default option
; 0x8808e
db 0
MenuData2_0x8808f: ; 0x8808f
db $10 ; flags
db 4, 7
db 1
dbw 0, wd1ea
dbw BANK(Function8809f), Function8809f
dbw BANK(Function880ab), Function880ab
dbw BANK(NULL), NULL
Function8809f: ; 8809f
ld a, [MenuSelection]
and a
ret z
callba Function24ab4
ret
; 880ab
Function880ab: ; 880ab
ld a, [MenuSelection]
ld [CurItem], a
call Function88139
ret z
ld a, [wd10c]
ld [wcf75], a
callba Function24ac3
ret
; 880c2
Function880c2: ; 880c2
ld a, [CurItem]
ld [MenuSelection], a
call Function88139
jr z, .asm_88109
ld a, [wd10c]
ld [wd10d], a
ld a, $1
ld [wd10c], a
ld hl, MenuDataHeader_0x8810d
call LoadMenuDataHeader
.asm_880de
xor a
ld [hBGMapMode], a
call Function1cbb
call DrawOnMap
call Function88116
call Function88126
call Function321c
callba Function27a28
jr nc, .asm_880de
push bc
call PlayClickSFX
pop bc
ld a, b
cp $ff
jr z, .asm_88109
ld a, [wd10c]
ld [wd10c], a
scf
.asm_88109
call WriteBackup
ret
; 8810d
MenuDataHeader_0x8810d: ; 0x8810d
db $40 ; flags
db 09, 06 ; start coords
db 12, 19 ; end coords
db 0, 0, -1, 0 ; XXX
Function88116: ; 88116
call Function1cfd
ld de, $0015
add hl, de
ld d, h
ld e, l
callba Function24ab4
ret
; 88126
Function88126: ; 88126
call Function1cfd
ld de, $0032
add hl, de
ld [hl], $f1
inc hl
ld de, wd10c
ld bc, $8102
jp PrintNum
; 88139
Function88139: ; 88139
push bc
ld hl, NumItems
ld a, [CurItem]
ld c, a
ld b, $0
.asm_88143
inc hl
ld a, [hli]
cp $ff
jr z, .asm_88153
cp c
jr nz, .asm_88143
ld a, [hl]
add b
ld b, a
jr nc, .asm_88143
ld b, $ff
.asm_88153
ld a, b
sub $63
jr c, .asm_8815a
ld b, $63
.asm_8815a
ld a, b
ld [wd10c], a
and a
pop bc
ret
; 88161
Function88161: ; 88161
push de
push bc
ld hl, NumItems
ld a, [CurItem]
ld c, a
ld e, $0
xor a
ld [wd107], a
ld a, $ff
ld [DefaultFlypoint], a
.asm_88175
ld a, [wd107]
inc a
ld [wd107], a
inc hl
ld a, [hli]
cp $ff
jr z, .asm_88198
cp c
jr nz, .asm_88175
ld d, $0
push hl
ld hl, DefaultFlypoint
add hl, de
inc e
ld a, [wd107]
dec a
ld [hli], a
ld a, $ff
ld [hl], a
pop hl
jr .asm_88175
.asm_88198
ld a, e
and a
jr z, .asm_881fa
dec a
jr z, .asm_881d0
ld hl, DefaultFlypoint
.asm_881a2
ld a, [hl]
ld c, a
push hl
.asm_881a5
inc hl
ld a, [hl]
cp $ff
jr z, .asm_881c9
ld b, a
ld a, c
call Function88201
ld e, a
ld a, b
call Function88201
sub e
jr z, .asm_881bc
jr c, .asm_881c0
jr .asm_881a5
.asm_881bc
ld a, c
sub b
jr nc, .asm_881a5
.asm_881c0
ld a, c
ld c, b
ld [hl], a
ld a, c
pop hl
ld [hl], a
push hl
jr .asm_881a5
.asm_881c9
pop hl
inc hl
ld a, [hl]
cp $ff
jr nz, .asm_881a2
.asm_881d0
ld hl, DefaultFlypoint
.asm_881d3
ld a, [hl]
cp $ff
jr z, .asm_881fa
push hl
ld [wd107], a
call Function88211
pop hl
ld a, [wd10c]
and a
jr z, .asm_881fa
push hl
ld a, [hli]
ld c, a
.asm_881e9
ld a, [hli]
cp $ff
jr z, .asm_881f6
cp c
jr c, .asm_881e9
dec a
dec hl
ld [hli], a
jr .asm_881e9
.asm_881f6
pop hl
inc hl
jr .asm_881d3
.asm_881fa
ld a, [wd10c]
and a
pop bc
pop de
ret
; 88201
Function88201: ; 88201
push hl
push bc
ld hl, NumItems
inc hl
ld c, a
ld b, $0
rept 2
add hl, bc
endr
inc hl
ld a, [hl]
pop bc
pop hl
ret
; 88211
Function88211: ; 88211
push bc
ld hl, NumItems
ld a, [wd107]
ld c, a
ld b, $0
inc hl
rept 2
add hl, bc
endr
ld a, [CurItem]
ld c, a
ld a, [hli]
cp $ff
jr z, .asm_88243
cp c
jr nz, .asm_88243
ld a, [wd10c]
ld c, a
ld a, [hl]
sub c
ld b, c
jr nc, .asm_88235
add c
ld b, a
.asm_88235
push bc
ld hl, NumItems
ld a, b
ld [wd10c], a
call TossItem
pop bc
ld a, c
sub b
.asm_88243
ld [wd10c], a
pop bc
ret
; 88248
Function88248: ; 88248
ld c, $c
ld a, [PlayerGender]
bit 0, a
jr z, .asm_88253
ld c, $e
.asm_88253
ld a, c
ld [TrainerClass], a
ret
; 88258
MovePlayerPicRight: ; 88258
hlcoord 6, 4
ld de, 1
jr MovePlayerPic
MovePlayerPicLeft: ; 88260
hlcoord 13, 4
ld de, -1
; fallthrough
MovePlayerPic: ; 88266
; Move player pic at hl by de * 7 tiles.
ld c, $8
.loop
push bc
push hl
push de
xor a
ld [hBGMapMode], a
lb bc, 7, 7
predef FillBox
xor a
ld [hBGMapThird], a
call WaitBGMap
call DelayFrame
pop de
pop hl
add hl, de
pop bc
dec c
ret z
push hl
push bc
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
lb bc, 7, 7
call ClearBox
pop bc
pop hl
jr .loop
; 88297
ShowPlayerNamingChoices: ; 88297
ld hl, ChrisNameMenuHeader
ld a, [PlayerGender]
bit 0, a
jr z, .GotClass
ld hl, KrisNameMenuHeader
.GotClass
call LoadMenuDataHeader
call InterpretMenu2
ld a, [wcfa9]
dec a
call Function1db8
call WriteBackup
ret
; 882b5
ChrisNameMenuHeader: ; 882b5
db $40 ; flags
db 00, 00 ; start coords
db 11, 10 ; end coords
dw MenuData2_0x882be
db 1 ; ????
db 0 ; default option
; 882be
MenuData2_0x882be: ; 882be
db $91 ; flags
db 5 ; items
db "NEW NAME@"
Unknown_882c9: ; 882c9
db "CHRIS@"
db "MAT@"
db "ALLAN@"
db "JON@"
db 2 ; displacement
db " NAME @" ; title
; 882e5
KrisNameMenuHeader: ; 882e5
db $40 ; flags
db 00, 00 ; start coords
db 11, 10 ; end coords
dw MenuData2_0x882ee
db 1 ; ????
db 0 ; default option
; 882ee
MenuData2_0x882ee: ; 882ee
db $91 ; flags
db 5 ; items
db "NEW NAME@"
Unknown_882f9: ; 882f9
db "KRIS@"
db "AMANDA@"
db "JUANA@"
db "JODI@"
db 2 ; displacement
db " NAME @" ; title
; 88318
GetPlayerNameArray: ; 88318 This Function is never called
ld hl, PlayerName
ld de, Unknown_882c9
ld a, [PlayerGender]
bit 0, a
jr z, .done
ld de, Unknown_882f9
.done
call InitName
ret
; 8832c
GetPlayerIcon: ; 8832c
; Get the player icon corresponding to gender
; Male
ld de, ChrisSpriteGFX
ld b, BANK(ChrisSpriteGFX)
ld a, [PlayerGender]
bit 0, a
jr z, .done
; Female
ld de, KrisSpriteGFX
ld b, BANK(KrisSpriteGFX)
.done
ret
; 8833e
Function8833e: ; 8833e
ld hl, ChrisCardPic
ld a, [PlayerGender]
bit 0, a
jr z, .GotClass
ld hl, KrisCardPic
.GotClass
ld de, $9000
ld bc, $230
ld a, BANK(ChrisCardPic) ; BANK(KrisCardPic)
call FarCopyBytes
ld hl, CardGFX
ld de, $9230
ld bc, $60
ld a, BANK(CardGFX)
call FarCopyBytes
ret
; 88365 (22:4365)
ChrisCardPic: ; 88365
INCBIN "gfx/misc/chris_card.5x7.2bpp"
; 88595
KrisCardPic: ; 88595
INCBIN "gfx/misc/kris_card.5x7.2bpp"
; 887c5
CardGFX: ; 887c5
INCBIN "gfx/misc/trainer_card.2bpp"
; 88825
GetPlayerBackpic: ; 88825
ld a, [PlayerGender]
bit 0, a
jr z, GetChrisBackpic
call GetKrisBackpic
ret
GetChrisBackpic: ; 88830
ld hl, ChrisBackpic
ld b, BANK(ChrisBackpic)
ld de, $9310
ld c, 7 * 7
predef DecompressPredef
ret
; 88840
Function88840: ; 88840
call WaitBGMap
xor a
ld [hBGMapMode], a
ld e, 0
ld a, [PlayerGender]
bit 0, a
jr z, .GotClass
ld e, 1
.GotClass
ld a, e
ld [TrainerClass], a
ld de, ChrisPic
ld a, [PlayerGender]
bit 0, a
jr z, .GotPic
ld de, KrisPic
.GotPic
ld hl, VTiles2
ld b, BANK(ChrisPic) ; BANK(KrisPic)
ld c, 7 * 7
call Get2bpp
call WaitBGMap
ld a, $1
ld [hBGMapMode], a
ret
; 88874
DrawIntroPlayerPic: ; 88874
; Draw the player pic at (6,4).
; Get class
ld e, 0
ld a, [PlayerGender]
bit 0, a
jr z, .GotClass
ld e, 1
.GotClass
ld a, e
ld [TrainerClass], a
; Load pic
ld de, ChrisPic
ld a, [PlayerGender]
bit 0, a
jr z, .GotPic
ld de, KrisPic
.GotPic
ld hl, VTiles2
ld b, BANK(ChrisPic) ; BANK(KrisPic)
ld c, 7 * 7 ; dimensions
call Get2bpp
; Draw
xor a
ld [$ffad], a
hlcoord 6, 4
lb bc, 7, 7
predef FillBox
ret
; 888a9
ChrisPic: ; 888a9
INCBIN "gfx/misc/chris.7x7.2bpp"
; 88bb9
KrisPic: ; 88bb9
INCBIN "gfx/misc/kris.7x7.2bpp"
; 88ec9
GetKrisBackpic: ; 88ec9
; Kris's backpic is uncompressed.
ld de, KrisBackpic
ld hl, $9310
lb bc, BANK(KrisBackpic), 7 * 7 ; dimensions
call Get2bpp
ret
; 88ed6
KrisBackpic: ; 88ed6
INCBIN "gfx/misc/kris_back.6x6.2bpp"
; 89116
String_89116:
db "-----@"
; 8911c
String_8911c: ; 8911c
db "でんわばんごうが ただしく" ; Phone number is not
next "はいって いません!@" ; entered correctly!
; 89135
String_89135: ; 89135
db "データが かわって いますが" ; The data has changed.
next "かきかえないで やめますか?@" ; Quit anyway?
; 89153
String_89153: ; 89153
db "メッセージは ありません@" ; No message
; 89160
Function89160: ; 89160
push af
ld a, $4
call GetSRAMBank
pop af
ret
; 89168
Function89168: ; 89168 (22:5168)
ld hl, GameTimerPause
set 7, [hl]
ret
Function8916e: ; 8916e (22:516e)
ld hl, GameTimerPause
res 7, [hl]
ret
Function89174: ; 89174 (22:5174)
ld hl, GameTimerPause
bit 7, [hl]
ret
Function8917a: ; 8917a (22:517a)
ld hl, DefaultFlypoint
ld bc, $32
xor a
call ByteFill
ret
Function89185: ; 89185 (22:5185)
; Compares c bytes starting at de and hl and incrementing together until a match is found.
push de
push hl
.loop
ld a, [de]
inc de
cp [hl]
jr nz, .done
inc hl
dec c
jr nz, .loop
.done
pop hl
pop de
ret
Function89193: ; 89193
; Copies c bytes from hl to de.
push de
push hl
.loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .loop
pop hl
pop de
ret
; 8919e
Function8919e: ; 8919e (22:519e)
; Searches for the c'th string starting at de. Returns the pointer in de.
ld a, c
and a
ret z
.loop
ld a, [de]
inc de
cp "@"
jr nz, .loop
dec c
jr nz, .loop
ret
Function891ab: ; 891ab
call Function89240
callba Function104061
call Function8923c
ret
; 891b8
Function891b8: ; 891b8
call Function8923c
hlcoord 0, 0
ld a, $7f
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
call DelayFrame
ret
; 891ca
Function891ca: ; 891ca (22:51ca)
push bc
call Function891b8
call WaitBGMap
pop bc
ret
Function891d3: ; 891d3 (22:51d3)
push bc
call Function891ca
ld c, $10
call DelayFrames
pop bc
ret
Function891de: ; 891de
call Function8923c
call ClearPalettes
hlcoord 0, 0, AttrMap
ld a, $7
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
hlcoord 0, 0
ld a, $7f
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
call Function891ab
ret
; 891fe
Function891fe: ; 891fe
push bc
call Function891de
ld c, $10
call DelayFrames
pop bc
ret
; 89209
Function89209: ; 89209
ld a, 1
ld [wc2ce], a
ret
; 8920f
Function8920f: ; 8920f
ld a, 0
ld [wc2ce], a
ret
; 89215
Function89215: ; 89215
push hl
push bc
ld bc, AttrMap - TileMap
add hl, bc
ld [hl], a
pop bc
pop hl
ret
; 8921f
Function8921f: ; 8921f (22:521f)
push de
ld de, SCREEN_WIDTH
add hl, de
inc hl
ld a, $7f
.loop
push bc
push hl
.asm_89229
ld [hli], a
dec c
jr nz, .asm_89229
pop hl
add hl, de
pop bc
dec b
jr nz, .loop
pop de
ret
Function89235: ; 89235 (22:5235)
call Functiona36
call PlayClickSFX
ret
Function8923c: ; 8923c
xor a
ld [hBGMapMode], a
ret
; 89240
Function89240: ; 89240
ld a, $1
ld [hBGMapMode], a
ret
; 89245
Function89245: ; 89245 (22:5245)
callba TryLoadSaveFile
ret c
callba Function150b9
and a
ret
Function89254: ; 89254 (22:5254)
ld bc, $d07
jr Function89261
Function89259: ; 89259
ld bc, $0e07
jr Function89261
Function8925e: ; 8925e
ld bc, $0e0c
Function89261: ; 89261
push af
push bc
ld hl, MenuDataHeader_0x892a3
call CopyMenuDataHeader
pop bc
ld hl, wcf82
ld a, c
ld [hli], a
ld a, b
ld [hli], a
ld a, c
add $4
ld [hli], a
ld a, b
add $5
ld [hl], a
pop af
ld [wcf88], a
call Function1c00
call Function8923c
call Function89209
call InterpretMenu2
push af
ld c, $a
call DelayFrames
call WriteBackup
call Function8920f
pop af
jr c, .done
ld a, [wcfa9]
cp $2
jr z, .done
and a
ret
.done
scf
ret
; 892a3
MenuDataHeader_0x892a3: ; 0x892a3
db $40 ; flags
db 05, 10 ; start coords
db 09, 15 ; end coords
dw MenuData2_0x892ab
db 1 ; default option
; 0x892ab
MenuData2_0x892ab: ; 0x892ab
db $c0 ; flags
db 2 ; items
db "はい@"
db "いいえ@"
; 0x892b4
Function892b4: ; 892b4 (22:52b4)
call Function8931b
Function892b7: ; 892b7
ld d, b
ld e, c
ld hl, 0
add hl, bc
ld a, "@"
ld bc, 6
call ByteFill
ld b, d
ld c, e
ld hl, 6
add hl, bc
ld a, "@"
ld bc, 6
call ByteFill
ld b, d
ld c, e
ld hl, 12
add hl, bc
xor a
ld [hli], a
ld [hl], a
ld hl, 14
add hl, bc
ld [hli], a
ld [hl], a
ld hl, 16
add hl, bc
ld [hl], a
ld hl, 17
add hl, bc
ld a, -1
ld bc, 8
call ByteFill
ld b, d
ld c, e
ld e, 6
ld hl, 25
add hl, bc
.loop
ld a, -1
ld [hli], a
ld a, -1
ld [hli], a
dec e
jr nz, .loop
ret
; 89305
Function89305: ; 89305 (22:5305)
xor a
ld [MenuSelection], a
ld c, 40
.loop
ld a, [MenuSelection]
inc a
ld [MenuSelection], a
push bc
call Function892b4
pop bc
dec c
jr nz, .loop
ret
Function8931b: ; 8931b
push hl
ld hl, $a03b
ld a, [MenuSelection]
dec a
ld bc, $0025
call AddNTimes
ld b, h
ld c, l
pop hl
ret
; 8932d
Function8932d: ; 8932d
ld hl, 0
add hl, bc
Function89331: ; 89331
; Scans up to 5 characters starting at hl, looking for a nonspace character up to the next terminator. Sets carry if it does not find a nonspace character. Returns the location of the following character in hl.
push bc
ld c, 5
.loop
ld a, [hli]
cp "@"
jr z, .terminator
cp " "
jr nz, .nonspace
dec c
jr nz, .loop
.terminator
scf
jr .done
.nonspace
and a
.done
pop bc
ret
; 89346
Function89346: ; 89346 (22:5346)
ld h, b
ld l, c
jr _incave
Function8934a: ; 8934a
ld hl, 6
add hl, bc
_incave:
; Scans up to 5 characters starting at hl, looking for a nonspace character up to the next terminator. Sets carry if it does not find a nonspace character. Returns the location of the following character in hl.
push bc
ld c, 5
.loop
ld a, [hli]
cp "@"
jr z, .terminator
cp " "
jr nz, .nonspace
dec c
jr nz, .loop
.terminator
scf
jr .done
.nonspace
and a
.done
pop bc
ret
; 89363
Function89363: ; 89363
; Scans six byte pairs starting at bc to find $ff. Sets carry if it does not find a $ff. Returns the location of the byte after the first $ff found in hl.
ld h, b
ld l, c
jr ._incave
ld hl, 25
add hl, bc
._incave
push de
ld e, 6
.loop
ld a, [hli]
cp -1
jr nz, .ok
ld a, [hli]
cp -1
jr nz, .ok
dec e
jr nz, .loop
scf
jr .done
.ok
and a
.done
pop de
ret
; 89381
Function89381: ; 89381
push bc
push de
call Function89b45
jr c, .ok
push hl
ld a, -1
ld bc, 8
call ByteFill
pop hl
.ok
pop de
ld c, 8
call Function89193
pop bc
ret
; 8939a
Function8939a: ; 8939a
push bc
ld hl, 0
add hl, bc
ld de, DefaultFlypoint
ld c, 6
call Function89193
pop bc
ld hl, 17
add hl, bc
ld de, wd008
call Function89381
ret
; 893b3
Function893b3: ; 893b3 (22:53b3)
call DisableLCD
call ClearSprites
call Functione51
call Functione5f
call Function893ef
call Function8942b
call Function89455
call EnableLCD
ret
Function893cc: ; 893cc
call DisableLCD
call ClearSprites
call Functione51
call Functione5f
call Function893ef
call Function89464
call EnableLCD
ret
; 893e2
Function893e2: ; 893e2 (22:53e2)
call Function89b1e
call Function893b3
call Function8a5b6
call Function8949c
ret
Function893ef: ; 893ef
ld de, VTiles0
ld hl, GFX_8940b
ld bc, $20
ld a, BANK(GFX_8940b)
call FarCopyBytes
ret
; 893fe
Function893fe: ; 893fe
call DisableLCD
call Function893ef
call EnableLCD
call DelayFrame
ret
; 8940b
GFX_8940b: ; 8940b
INCBIN "gfx/unknown/08940b.2bpp"
; 8942b
Function8942b: ; 8942b (22:542b)
ld de, $8020
ld hl, MobileAdapterGFX + $7d0
ld bc, $80
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ld de, $80a0
ld hl, MobileAdapterGFX + $c60
ld bc, $40
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ret
Function89448: ; 89448 (22:5448)
; Clears the Sprites array
push af
ld hl, Sprites
ld d, $10 * 6
xor a
.loop
ld [hli], a
dec d
jr nz, .loop
pop af
ret
Function89455: ; 89455 (22:5455)
ld hl, MobileAdapterGFX + $7d0
ld de, $90c0
ld bc, $490
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ret
Function89464: ; 89464
ld hl, MobileAdapterGFX
ld de, VTiles2
ld bc, $200
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ld hl, MobileAdapterGFX + $660
ld de, $9200
ld bc, $170
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ret
; 89481
Function89481: ; 89481
ld d, 2
call Function8934a
ret c
ld d, 0
ld hl, 16
add hl, bc
bit 0, [hl]
ret z
inc d
ret
; 89492
Function89492: ; 89492 (22:5492)
ld d, 0
ld a, [PlayerGender]
bit 0, a
ret z
inc d
ret
Function8949c: ; 8949c
ld a, [rSVBK]
push af
ld a, 5
ld [rSVBK], a
ld hl, Palette_894b3
ld de, Unkn1Pals + 8 * 7
ld bc, 8
call CopyBytes
pop af
ld [rSVBK], a
ret
; 894b3
Palette_894b3: ; 894b3
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
; 894bb
Function894bb: ; 894bb
call Function894dc
push bc
call Function8956f
call Function8949c
call Function8a60d
pop bc
ret
; 894ca
Function894ca: ; 894ca (22:54ca)
push bc
call Function894dc
call Function895c7
call Function8949c
call Function8a60d
call Function32f9
pop bc
ret
Function894dc: ; 894dc
push bc
ld a, [rSVBK]
push af
ld a, 5
ld [rSVBK], a
ld c, d
ld b, 0
ld hl, Unknown_89509
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, Unkn1Pals
ld bc, 24
call CopyBytes
ld hl, Palette_89557
ld de, wd018
ld bc, 24
call CopyBytes
pop af
ld [rSVBK], a
pop bc
ret
; 89509
Unknown_89509: ; 89509
dw Palette_8950f
dw Palette_89527
dw Palette_8953f
; 8950f
Palette_8950f: ; 8950f
RGB 31, 31, 31
RGB 10, 17, 13
RGB 10, 08, 22
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 10, 08, 22
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 10, 17, 13
RGB 00, 00, 00
Palette_89527: ; 89527
RGB 31, 31, 31
RGB 30, 22, 11
RGB 31, 08, 15
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 31, 08, 15
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 30, 22, 11
RGB 00, 00, 00
Palette_8953f: ; 8953f
RGB 31, 31, 31
RGB 15, 20, 26
RGB 25, 07, 20
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 25, 07, 20
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 15, 20, 26
RGB 00, 00, 00
Palette_89557: ; 89557
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 13, 00
RGB 14, 08, 00
RGB 31, 31, 31
RGB 16, 16, 31
RGB 00, 00, 31
RGB 00, 00, 00
RGB 19, 31, 11
RGB 00, 00, 00
RGB 00, 00, 00
RGB 00, 00, 00
; 8956f
Function8956f: ; 8956f
push bc
ld hl, 16
add hl, bc
ld d, h
ld e, l
ld hl, $000c
add hl, bc
ld b, h
ld c, l
callba Function4e929
ld a, c
ld [TrainerClass], a
ld a, [rSVBK]
push af
ld a, 5
ld [rSVBK], a
ld hl, wd030
ld a, -1
ld [hli], a
ld a, " "
ld [hl], a
pop af
ld [rSVBK], a
ld a, [TrainerClass]
ld h, 0
ld l, a
rept 2
add hl, hl
endr
ld de, TrainerPalettes
add hl, de
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld de, wd032
ld c, 4
.loop
ld a, BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
inc hl
dec c
jr nz, .loop
ld hl, wd036
xor a
ld [hli], a
ld [hl], a
pop af
ld [rSVBK], a
pop bc
ret
; 895c7
Function895c7: ; 895c7 (22:55c7)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, 5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_895de
ld de, wd030
ld bc, 8
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
ret
; 895de (22:55de)
Palette_895de: ; 895de
RGB 31, 31, 31
RGB 07, 07, 06
RGB 07, 07, 06
RGB 00, 00, 00
; 895e6
Function895e6: ; 895e6
ld a, 7
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
ret
; 895f2
Function895f2: ; 895f2
push bc
xor a
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
call Function89605
call Function89655
pop bc
ret
; 89605
Function89605: ; 89605
hlcoord 19, 2, AttrMap
ld a, 1
ld de, SCREEN_WIDTH
ld c, 14
.loop
ld [hl], a
dec c
jr z, .done
add hl, de
inc a
ld [hl], a
dec a
add hl, de
dec c
jr nz, .loop
.done
hlcoord 0, 16, AttrMap
ld c, 10
ld a, 2
.loop2
ld [hli], a
dec a
ld [hli], a
inc a
dec c
jr nz, .loop2
hlcoord 1, 11, AttrMap
ld a, 4
ld bc, 4
call ByteFill
ld a, 5
ld bc, 14
call ByteFill
ret
; 8963d
Function8963d: ; 8963d
hlcoord 12, 3, AttrMap
ld a, 6
ld de, SCREEN_WIDTH
lb bc, 7, 7
.loop
push hl
ld c, 7
.next
ld [hli], a
dec c
jr nz, .next
pop hl
add hl, de
dec b
jr nz, .loop
ret
; 89655
Function89655: ; 89655
hlcoord 1, 12, AttrMap
ld de, SCREEN_WIDTH
ld a, 5
ld b, 4
.loop
ld c, 18
push hl
.next
ld [hli], a
dec c
jr nz, .next
pop hl
add hl, de
dec b
jr nz, .loop
ret
; 8966c
Function8966c: ; 8966c
push bc
call Function89688
hlcoord 4, 0
ld c, 8
call Function896f5
pop bc
ret
; 8967a
Function8967a: ; 8967a (22:567a)
push bc
call Function89688
hlcoord 2, 0
ld c, 12
call Function896f5
pop bc
ret
Function89688: ; 89688
hlcoord 0, 0
ld a, 1
ld e, SCREEN_WIDTH
call Function896e1
ld a, 2
ld e, SCREEN_WIDTH
call Function896eb
ld a, 3
ld [hli], a
ld a, 4
ld e, SCREEN_HEIGHT
call Function896e1
ld a, 6
ld [hli], a
push bc
ld c, 13
.loop
call Function896cb
dec c
jr z, .done
call Function896d6
dec c
jr nz, .loop
.done
pop bc
ld a, 25
ld [hli], a
ld a, 26
ld e, SCREEN_HEIGHT
call Function896e1
ld a, 28
ld [hli], a
ld a, 2
ld e, SCREEN_WIDTH
call Function896eb
ret
; 896cb
Function896cb: ; 896cb
ld de, SCREEN_WIDTH - 1
ld a, 7
ld [hl], a
add hl, de
ld a, 9
ld [hli], a
ret
; 896d6
Function896d6: ; 896d6
ld de, SCREEN_WIDTH - 1
ld a, 10
ld [hl], a
add hl, de
ld a, 11
ld [hli], a
ret
; 896e1
Function896e1: ; 896e1
.loop
ld [hli], a
inc a
dec e
ret z
ld [hli], a
dec a
dec e
jr nz, .loop
ret
; 896eb
Function896eb: ; 896eb
.loop
ld [hli], a
dec a
dec e
ret z
ld [hli], a
inc a
dec e
jr nz, .loop
ret
; 896f5
Function896f5: ; 896f5
call Function8971f
call Function89736
rept 2
inc hl
endr
ld b, 2
ClearScreenArea: ; 0x896ff
; clears an area of the screen
; INPUT:
; hl = address of upper left corner of the area
; b = height
; c = width
ld a, " " ; blank tile
ld de, 20 ; screen width
.loop
push bc
push hl
.innerLoop
ld [hli], a
dec c
jr nz, .innerLoop
pop hl
pop bc
add hl, de
dec b
jr nz, .loop
dec hl
rept 2
inc c
endr
.asm_89713
ld a, $36
ld [hli], a
dec c
ret z
ld a, $18
ld [hli], a
dec c
jr nz, .asm_89713 ; 0x8971c $f5
ret
; 0x8971f
Function8971f: ; 8971f
ld a, $2c
ld [hli], a
ld a, $2d
ld [hld], a
push hl
ld de, SCREEN_WIDTH
add hl, de
ld a, $31
ld [hli], a
ld a, $32
ld [hld], a
add hl, de
ld a, $35
ld [hl], a
pop hl
ret
; 89736
Function89736: ; 89736
push hl
rept 2
inc hl
endr
ld e, c
ld d, $0
add hl, de
ld a, $2f
ld [hli], a
ld a, $30
ld [hld], a
ld de, SCREEN_WIDTH
add hl, de
ld a, $33
ld [hli], a
ld a, $34
ld [hl], a
add hl, de
ld a, $1f
ld [hl], a
pop hl
ret
; 89753
Function89753: ; 89753
ld a, $c
ld [hl], a
xor a
call Function89215
ret
; 8975b
Function8975b: ; 8975b
ld a, $1d
ld [hli], a
inc a
ld [hli], a
ld a, $d
ld [hl], a
rept 2
dec hl
endr
ld a, $4
ld e, $3
.asm_89769
call Function89215
inc hl
dec e
jr nz, .asm_89769
ret
; 89771
Function89771: ; 89771
ld a, $12
ld [hl], a
ld a, $3
call Function89215
ret
; 8977a
Function8977a: ; 8977a
ld e, $4
ld d, $13
.asm_8977e
ld a, d
ld [hl], a
ld a, $4
call Function89215
inc hl
inc d
dec e
jr nz, .asm_8977e
ld e, $e
.asm_8978c
ld a, d
ld [hl], a
xor a
call Function89215
inc hl
dec e
jr nz, .asm_8978c
ret
; 89797
Function89797: ; 89797
push bc
ld a, $e
ld [hl], a
ld bc, SCREEN_WIDTH
add hl, bc
ld a, $11
ld [hli], a
ld a, $10
ld c, $8
.asm_897a6
ld [hli], a
dec c
jr nz, .asm_897a6
ld a, $f
ld [hl], a
pop bc
ret
; 897af
Function897af: ; 897af
push bc
ld hl, $0010
add hl, bc
ld d, h
ld e, l
ld hl, $000c
add hl, bc
ld b, h
ld c, l
callba Function4e929
ld a, c
ld [TrainerClass], a
xor a
ld [CurPartySpecies], a
ld de, $9370
callba GetTrainerPic
pop bc
ret
; 897d5
Function897d5: ; 897d5
push bc
call Function8934a
jr nc, .asm_897f3
hlcoord 12, 3, AttrMap
xor a
ld de, SCREEN_WIDTH
lb bc, 7, 7
.asm_897e5
push hl
ld c, $7
.asm_897e8
ld [hli], a
dec c
jr nz, .asm_897e8
pop hl
add hl, de
dec b
jr nz, .asm_897e5
pop bc
ret
.asm_897f3
ld a, $37
ld [$ffad], a
hlcoord 12, 3
lb bc, 7, 7
predef FillBox
call Function8963d
pop bc
ret
; 89807
Function89807: ; 89807 (22:5807)
ld hl, MobileAdapterGFX + $200
ld a, [PlayerGender]
bit 0, a
jr z, .asm_89814
ld hl, MobileAdapterGFX + $200 + $230
.asm_89814
call DisableLCD
ld de, $9370
ld bc, $230
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
call EnableLCD
call DelayFrame
ret
Function89829: ; 89829 (22:5829)
push bc
ld bc, $705
ld de, $14
ld a, $37
.asm_89832
push bc
push hl
.asm_89834
ld [hli], a
inc a
dec c
jr nz, .asm_89834
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_89832
call Function8963d
pop bc
ret
Function89844: ; 89844
call Function89481
call Function894bb
call Function897af
push bc
call Function3200
call Function32f9
pop bc
ret
; 89856
Function89856: ; 89856
push bc
call Function891b8
pop bc
call Function895f2
call Function8966c
call Function899d3
call Function898aa
call Function898be
call Function898dc
call Function898f3
push bc
ld bc, wd008
hlcoord 2, 10
call Function89975
pop bc
call Function897d5
ret
; 8987f
Function8987f: ; 8987f (22:587f)
call Function891b8
call Function895f2
call Function8967a
call Function899d3
hlcoord 5, 1
call Function8999c
hlcoord 13, 3
call Function89829
call Function899b2
hlcoord 5, 5
call Function899c9
ld bc, wd008
hlcoord 2, 10
call Function89975
ret
Function898aa: ; 898aa
ld a, [MenuSelection]
and a
ret z
push bc
hlcoord 6, 1
ld de, MenuSelection
ld bc, $8102
call PrintNum
pop bc
ret
; 898be
Function898be: ; 898be
push bc
ld de, DefaultFlypoint
ld hl, DefaultFlypoint
call Function89331
jr nc, .asm_898cd
ld de, String_89116
.asm_898cd
hlcoord 9, 1
ld a, [MenuSelection]
and a
jr nz, .asm_898d7
dec hl
.asm_898d7
call PlaceString
pop bc
ret
; 898dc
Function898dc: ; 898dc
ld hl, $0006
add hl, bc
push bc
ld d, h
ld e, l
call Function8934a
jr nc, .asm_898eb
ld de, String_89116
.asm_898eb
hlcoord 6, 4
call PlaceString
pop bc
ret
; 898f3
Function898f3: ; 898f3
push bc
ld hl, $000c
add hl, bc
ld d, h
ld e, l
call Function8934a
jr c, .asm_8990a
hlcoord 5, 5
ld bc, $8205
call PrintNum
jr .asm_89913
.asm_8990a
hlcoord 5, 5
ld de, String_89116
call PlaceString
.asm_89913
pop bc
ret
; 89915
Function89915: ; 89915
push bc
push hl
ld de, Unknown_89942
ld c, $8
.asm_8991c
ld a, [de]
ld [hl], a
ld a, $4
call Function89215
inc hl
inc de
dec c
jr nz, .asm_8991c
pop hl
ld b, $4
ld c, $2b
ld a, $8
ld de, Unknown_8994a
.asm_89932
push af
ld a, [de]
cp [hl]
jr nz, .asm_8993b
call Function8994e
inc de
.asm_8993b
inc hl
pop af
dec a
jr nz, .asm_89932
pop bc
ret
; 89942
Unknown_89942: ; 89942
db $24, $25, $26, " ", $27, $28, $29, $2a
Unknown_8994a: ; 8994a
db $24, $27, $29, $ff
; 8994e
Function8994e: ; 8994e
push hl
push de
ld de, SCREEN_WIDTH
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
ld a, c
ld [hl], a
ld a, b
call Function89215
pop de
pop hl
ret
; 89962
Function89962: ; 89962
push bc
ld c, $4
ld b, $20
.asm_89967
ld a, b
ld [hl], a
ld a, $4
call Function89215
inc hl
inc b
dec c
jr nz, .asm_89967
pop bc
ret
; 89975
Function89975: ; 89975
push bc
ld e, $8
.asm_89978
ld a, [bc]
ld d, a
call Function8998b
swap d
inc hl
ld a, d
call Function8998b
inc bc
inc hl
dec e
jr nz, .asm_89978
pop bc
ret
; 8998b
Function8998b: ; 8998b
push bc
and $f
cp $a
jr nc, .asm_89997
ld c, $f6
add c
jr .asm_89999
.asm_89997
ld a, $7f
.asm_89999
ld [hl], a
pop bc
ret
; 8999c
Function8999c: ; 8999c (22:599c)
ld de, PlayerName
call PlaceString
inc bc
ld h, b
ld l, c
ld de, String_899ac
call PlaceString
ret
; 899ac (22:59ac)
String_899ac: ; 899ac
db "の めいし@"
; 899b2
Function899b2: ; 899b2 (22:59b2)
ld bc, PlayerName
call Function89346
jr c, .asm_899bf
ld de, PlayerName
jr .asm_899c2
.asm_899bf
ld de, String_89116
.asm_899c2
hlcoord 6, 4
call PlaceString
ret
Function899c9: ; 899c9 (22:59c9)
ld de, PlayerID
ld bc, $8205
call PrintNum
ret
Function899d3: ; 899d3
hlcoord 1, 4
call Function89753
hlcoord 2, 5
call Function8975b
hlcoord 1, 9
call Function89771
hlcoord 1, 11
call Function8977a
hlcoord 1, 5
call Function89797
hlcoord 2, 4
call Function89962
hlcoord 2, 9
call Function89915
ret
; 899fe
Function899fe: ; 899fe
push bc
push hl
ld hl, $0019
add hl, bc
ld b, h
ld c, l
pop hl
call Function89a0c
pop bc
ret
; 89a0c
Function89a0c: ; 89a0c
push hl
call Function89363
pop hl
jr c, .asm_89a1c
ld d, h
ld e, l
callba Function11c08f
ret
.asm_89a1c
ld de, String_89153
call PlaceString
ret
; 89a23
Function89a23: ; 89a23 (22:5a23)
hlcoord 0, 11
ld b, $4
ld c, $12
call Function8921f
ret
Function89a2e: ; 89a2e (22:5a2e)
hlcoord 11, 12
ld b, $2
ld c, $6
call TextBox
hlcoord 13, 13
ld de, String_89a4e
call PlaceString
hlcoord 13, 14
ld de, String_89a53
call PlaceString
call Function89655
ret
; 89a4e (22:5a4e)
String_89a4e: ; 89a4e
db "けってい@"
; 89a53
String_89a53: ; 89a53
db "やめる@"
; 89a57
Function89a57: ; 89a57
call Function354b
bit 6, c
jr nz, .asm_89a78
bit 7, c
jr nz, .asm_89a81
bit 0, c
jr nz, .asm_89a70
bit 1, c
jr nz, .asm_89a70
bit 3, c
jr nz, .asm_89a74
scf
ret
.asm_89a70
ld a, $1
and a
ret
.asm_89a74
ld a, $2
and a
ret
.asm_89a78
call Function89a9b
call nc, Function89a8a
ld a, $0
ret
.asm_89a81
call Function89a93
call nc, Function89a8a
ld a, $0
ret
; 89a8a
Function89a8a: ; 89a8a
push af
ld de, SFX_UNKNOWN_62
call PlaySFX
pop af
ret
; 89a93
Function89a93: ; 89a93
ld d, $28
ld e, $1
call Function89aa3
ret
; 89a9b
Function89a9b: ; 89a9b
ld d, $1
ld e, $ff
call Function89aa3
ret
; 89aa3
Function89aa3: ; 89aa3
ld a, [MenuSelection]
ld c, a
push bc
.asm_89aa8
ld a, [MenuSelection]
cp d
jr z, .asm_89ac0
add e
jr nz, .asm_89ab2
inc a
.asm_89ab2
ld [MenuSelection], a
call Function89ac7
jr nc, .asm_89aa8
call Function89ae6
pop bc
and a
ret
.asm_89ac0
pop bc
ld a, c
ld [MenuSelection], a
scf
ret
; 89ac7
Function89ac7: ; 89ac7
call Function89160
call Function8931b
call Function89ad4
call CloseSRAM
ret
; 89ad4
Function89ad4: ; 89ad4
push de
call Function8932d
jr c, .asm_89ae3
ld hl, $0011
add hl, bc
call Function89b45
jr c, .asm_89ae4
.asm_89ae3
and a
.asm_89ae4
pop de
ret
; 89ae6
Function89ae6: ; 89ae6
ld hl, wd031
xor a
ld [hl], a
ld a, [MenuSelection]
.asm_89aee
cp $6
jr c, .asm_89afc
sub $5
ld c, a
ld a, [hl]
add $5
ld [hl], a
ld a, c
jr .asm_89aee
.asm_89afc
ld [wd030], a
ret
; 89b00
Function89b00: ; 89b00 (22:5b00)
callba Function49351
ret
; 89b07 (22:5b07)
Function89b07: ; 89b07
call Function8923c
call DelayFrame
callba Function4a3a7
ret
; 89b14
Function89b14: ; 89b14
call WhiteBGMap
call Function89b07
call Function89b00
ret
; 89b1e
Function89b1e: ; 89b1e (22:5b1e)
callba Function4a485
call Function89b00
ret
Function89b28: ; 89b28 (22:5b28)
call Function891de
call WhiteBGMap
call Function893e2
call Function1d7d
call Function891ab
call Function32f9
ret
Function89b3b: ; 89b3b (22:5b3b)
call Function8923c
callba Function48cda
ret
Function89b45: ; 89b45
push hl
push bc
ld c, $10
ld e, $0
.asm_89b4b
ld a, [hli]
ld b, a
and $f
cp $a
jr c, .asm_89b5a
ld a, c
cp $b
jr nc, .asm_89b74
jr .asm_89b71
.asm_89b5a
dec c
swap b
inc e
ld a, b
and $f
cp $a
jr c, .asm_89b6c
ld a, c
cp $b
jr nc, .asm_89b74
jr .asm_89b71
.asm_89b6c
inc e
dec c
jr nz, .asm_89b4b
dec e
.asm_89b71
scf
jr .asm_89b75
.asm_89b74
and a
.asm_89b75
pop bc
pop hl
ret
; 89b78
Function89b78: ; 89b78 (22:5b78)
push bc
ld a, [wd010]
cp $10
jr c, .asm_89b8c
ld a, e
and a
jr z, .asm_89b89
ld c, e
.asm_89b85
inc hl
dec c
jr nz, .asm_89b85
.asm_89b89
ld a, $7f
ld [hl], a
.asm_89b8c
ld a, [wd010]
inc a
and $1f
ld [wd010], a
pop bc
ret
Function89b97: ; 89b97 (22:5b97)
call Function89c34
jr c, .asm_89ba0
call Function89448
ret
.asm_89ba0
ld a, [wd011]
ld hl, Unknown_89bd8
and a
jr z, .asm_89bae
.asm_89ba9
rept 2
inc hl
endr
dec a
jr nz, .asm_89ba9
.asm_89bae
ld a, [hli]
ld h, [hl]
ld l, a
ld de, Sprites
.asm_89bb4
ld a, [hli]
cp $ff
ret z
ld c, a
ld b, $0
.asm_89bbb
push hl
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
add b
ld [de], a
inc de
ld a, $8
add b
ld b, a
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
pop hl
dec c
jr nz, .asm_89bbb
ld b, $0
ld c, $4
add hl, bc
jr .asm_89bb4
; 89bd8 (22:5bd8)
Unknown_89bd8: ; 89bd8
dw Unknown_89be0
dw Unknown_89bf5
dw Unknown_89c0a
dw Unknown_89c1f
; 89be0
Unknown_89be0: ; 89be0
db $01, $12, $4e, $01, $00
db $01, $19, $4e, $01, $40
db $01, $12, $72, $01, $20
db $01, $19, $72, $01, $60
db $ff
Unknown_89bf5: ; 89bf5
db $01, $60, $16, $01, $00
db $01, $62, $16, $01, $40
db $01, $60, $92, $01, $20
db $01, $62, $92, $01, $60
db $ff
Unknown_89c0a: ; 89c0a
db $01, $78, $66, $01, $00
db $01, $78, $66, $01, $40
db $01, $78, $92, $01, $20
db $01, $78, $92, $01, $60
db $ff
Unknown_89c1f: ; 89c1f
db $01, $80, $66, $01, $00
db $01, $80, $66, $01, $40
db $01, $80, $92, $01, $20
db $01, $80, $92, $01, $60
db $ff
; 89c34
Function89c34: ; 89c34 (22:5c34)
push bc
ld a, [wd012]
ld c, a
inc a
and $f
ld [wd012], a
ld a, c
cp $8
pop bc
ret
Function89c44: ; 89c44 (22:5c44)
call Function89c34
jr c, .asm_89c4f
push de
call Function89448
pop de
ret
.asm_89c4f
ld hl, Sprites
push de
ld a, b
ld [hli], a
ld d, $8
ld a, e
and a
ld a, c
jr z, .asm_89c60
.asm_89c5c
add d
dec e
jr nz, .asm_89c5c
.asm_89c60
pop de
ld [hli], a
ld a, d
ld [hli], a
xor a
ld [hli], a
ret
Function89c67: ; 89c67 (22:5c67)
call Function354b
ld b, $0
bit 0, c
jr z, .asm_89c74
ld b, $1
and a
ret
.asm_89c74
bit 1, c
jr z, .asm_89c7a
scf
ret
.asm_89c7a
xor a
bit 6, c
jr z, .asm_89c81
ld a, $1
.asm_89c81
bit 7, c
jr z, .asm_89c87
ld a, $2
.asm_89c87
bit 5, c
jr z, .asm_89c8d
ld a, $3
.asm_89c8d
bit 4, c
jr z, .asm_89c93
ld a, $4
.asm_89c93
and a
ret z
dec a
ld c, a
ld d, $0
ld hl, Unknown_89cbf
ld a, [wd02f]
and a
jr z, .asm_89ca5
ld hl, Unknown_89ccf
.asm_89ca5
ld a, [wd011]
and a
jr z, .asm_89cb1
ld e, $4
.asm_89cad
add hl, de
dec a
jr nz, .asm_89cad
.asm_89cb1
ld e, c
add hl, de
ld a, [hl]
and a
ret z
dec a
ld [wd011], a
xor a
ld [wd012], a
ret
; 89cbf (22:5cbf)
Unknown_89cbf: ; 89cbf
db 0, 2, 0, 0
db 1, 3, 0, 0
db 2, 4, 0, 0
db 3, 0, 0, 0
Unknown_89ccf: ; 89ccf
db 0, 0, 0, 0
db 0, 3, 0, 0
db 2, 4, 0, 0
db 3, 0, 0, 0
; 89cdf
Function89cdf: ; 89cdf (22:5cdf)
ld a, $10
add b
ld b, a
ld a, $8
add c
ld c, a
ld e, $2
ld a, $2
ld hl, Sprites
.asm_89cee
push af
push bc
ld d, $4
.asm_89cf2
ld a, b
ld [hli], a
ld a, c
ld [hli], a
ld a, e
ld [hli], a
ld a, $1
ld [hli], a
ld a, $8
add c
ld c, a
inc e
dec d
jr nz, .asm_89cf2
pop bc
ld a, $8
add b
ld b, a
pop af
dec a
jr nz, .asm_89cee
ret
Function89d0d: ; 89d0d (22:5d0d)
call Function8923c
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld c, $8
ld de, Unkn1Pals
.asm_89d1c
push bc
ld hl, Palette_89d4e
ld bc, $8
call CopyBytes
pop bc
dec c
jr nz, .asm_89d1c
ld hl, Palette_89d56
ld de, wd010
ld bc, $8
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
call Function32f9
callba Function845db
call Function89240
ld c, $18
call DelayFrames
call RestartMapMusic
ret
; 89d4e (22:5d4e)
Palette_89d4e: ; 89d4e
RGB 31, 31, 31
RGB 19, 19, 19
RGB 15, 15, 15
RGB 00, 00, 00
; 89d56
Palette_89d56: ; 89d56
RGB 31, 31, 31
RGB 19, 19, 19
RGB 19, 19, 19
RGB 00, 00, 00
; 89d5e
Function89d5e: ; 89d5e (22:5d5e)
push af
call CopyMenuDataHeader
pop af
ld [wcf88], a
call Function8923c
call Function1c89
call Function1c10
ld hl, wcfa5
set 7, [hl]
ret
Function89d75: ; 89d75 (22:5d75)
push hl
call Function8923c
call _hl_
callba Function104148
pop hl
jr asm_89d90
Function89d85: ; 89d85 (22:5d85)
push hl
call Function8923c
call _hl_
call Function3238
pop hl
asm_89d90: ; 89d90 (22:5d90)
call Function8923c
push hl
call _hl_
call Function89dab
ld a, [wcfa9]
push af
call Function891ab
pop af
pop hl
jr c, .asm_89da9
jr z, asm_89d90
scf
ret
.asm_89da9
and a
ret
Function89dab: ; 89dab (22:5dab)
call Function8923c
callba Function241ba
call Function8923c
ld a, c
ld hl, wcfa8
and [hl]
ret z
bit 0, a
jr nz, .asm_89dc7
bit 1, a
jr nz, .asm_89dd9
xor a
ret
.asm_89dc7
call PlayClickSFX
ld a, [wcfa3]
ld c, a
ld a, [wcfa9]
cp c
jr z, .asm_89dd9
call Function1bee
scf
ret
.asm_89dd9
call PlayClickSFX
ld a, $1
and a
ret
Function89de0: ; 89de0 (22:5de0)
call ClearSprites
call Function89e0a
jr c, .asm_89e00
ld c, $1
.asm_89dea
call Function8a31c
jr z, .asm_89dfd
ld a, [wcfa9]
ld c, a
push bc
ld hl, Jumptable_89e04
ld a, e
dec a
rst JumpTable
pop bc
jr .asm_89dea
.asm_89dfd
call Function891fe
.asm_89e00
call Function8917a
ret
Jumptable_89e04: ; 89e04 (22:5e04)
dw Function8a62c
dw Function8a999
dw Function8ab93
Function89e0a: ; 89e0a (22:5e0a)
call Function89160
call Function8b3b0
call CloseSRAM
ld hl, Jumptable_89e18
rst JumpTable
ret
Jumptable_89e18: ; 89e18 (22:5e18)
dw Function89e1e
dw Function8a116
dw Function8a2aa
Function89e1e: ; 89e1e (22:5e1e)
call Function89160
ld bc, $a037
call Function8b36c
call CloseSRAM
xor a
ld [wd02d], a
asm_89e2e: ; 89e2e (22:5e2e)
ld a, [wd02d]
ld hl, Jumptable_89e3c
rst JumpTable
ret
Function89e36: ; 89e36 (22:5e36)
ld hl, wd02d
inc [hl]
jr asm_89e2e
Jumptable_89e3c: ; 89e3c (22:5e3c)
dw Function89e6f
dw Function89fed
dw Function89ff6
dw Function8a03d
dw Function89eb9
dw Function89efd
dw Function89fce
dw Function8a04c
dw Function8a055
dw Function8a0e6
dw Function8a0ec
dw Function8a0f5
dw Function89e58
dw Function89e68
Function89e58: ; 89e58 (22:5e58)
ld a, $1
call Function8a2fe
call Function891fe
call Function893e2
call Function89168
and a
ret
Function89e68: ; 89e68 (22:5e68)
call Function891fe
ld a, $1
scf
ret
Function89e6f: ; 89e6f (22:5e6f)
call Function891de
call Function89245
call Function89ee1
call Function89e9a
hlcoord 7, 4
call Function8a58d
ld a, $5
hlcoord 7, 4, AttrMap
call Function8a5a3
ld a, $6
hlcoord 10, 4, AttrMap
call Function8a5a3
call Function891ab
call Function32f9
jp Function89e36
Function89e9a: ; 89e9a (22:5e9a)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_89eb1
ld de, wd028
ld bc, $8
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
ret
; 89eb1 (22:5eb1)
Palette_89eb1: ; 89eb1
RGB 31, 31, 31
RGB 31, 31, 31
RGB 27, 19, 00
RGB 00, 00, 00
; 89eb9
Function89eb9: ; 89eb9 (22:5eb9)
call Function891fe
call Function89ee1
call Function89e9a
hlcoord 7, 4
call Function8a58d
ld a, $5
hlcoord 7, 4, AttrMap
call Function8a5a3
ld a, $6
hlcoord 10, 4, AttrMap
call Function8a5a3
call Function891ab
call Function32f9
jp Function89e36
Function89ee1: ; 89ee1 (22:5ee1)
call WhiteBGMap
call Function893e2
call Function8923c
callba Function4a3a7
callba Function49384
hlcoord 1, 0
call Function8a53d
ret
Function89efd: ; 89efd (22:5efd)
ld hl, wd012
ld a, $ff
ld [hli], a
xor a
rept 4
ld [hli], a
endr
ld [hl], a
.asm_89f09
ld hl, wd012
inc [hl]
ld a, [hli]
and $3
jr nz, .asm_89f2e
ld a, [hl]
cp $4
jr nc, .asm_89f2e
ld b, $32
inc [hl]
ld a, [hl]
dec a
jr z, .asm_89f26
ld c, a
.asm_89f1f
ld a, $b
add b
ld b, a
dec c
jr nz, .asm_89f1f
.asm_89f26
ld c, $e8
ld a, [wd013]
call Function89fa5
.asm_89f2e
ld a, [wd013]
and a
jr z, .asm_89f58
.asm_89f34
call Function89f6a
ld e, a
ld a, c
cp $a8
jr nc, .asm_89f4d
cp $46
jr c, .asm_89f4d
ld d, $0
dec e
ld hl, wd014
add hl, de
set 0, [hl]
inc e
jr .asm_89f51
.asm_89f4d
ld a, $2
add c
ld c, a
.asm_89f51
ld a, e
call Function89f77
dec a
jr nz, .asm_89f34
.asm_89f58
call DelayFrame
ld hl, wd014
ld c, $4
.asm_89f60
ld a, [hli]
and a
jr z, .asm_89f09
dec c
jr nz, .asm_89f60
jp Function89e36
Function89f6a: ; 89f6a (22:5f6a)
push af
ld de, $10
call Function89f9a
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
pop af
ret
Function89f77: ; 89f77 (22:5f77)
push af
ld de, $10
call Function89f9a
ld d, $2
.asm_89f80
push bc
ld e, $2
.asm_89f83
ld a, b
ld [hli], a
ld a, c
ld [hli], a
rept 2
inc hl
endr
ld a, $8
add c
ld c, a
dec e
jr nz, .asm_89f83
pop bc
ld a, $8
add b
ld b, a
dec d
jr nz, .asm_89f80
pop af
ret
Function89f9a: ; 89f9a (22:5f9a)
dec a
ld hl, Sprites
and a
ret z
.asm_89fa0
add hl, de
dec a
jr nz, .asm_89fa0
ret
Function89fa5: ; 89fa5 (22:5fa5)
ld de, $10
call Function89f9a
ld e, $2
ld d, $a
.asm_89faf
push bc
ld a, $2
.asm_89fb2
push af
ld a, b
ld [hli], a
ld a, c
ld [hli], a
ld a, d
inc d
ld [hli], a
ld a, $1
ld [hli], a
ld a, $8
add c
ld c, a
pop af
dec a
jr nz, .asm_89fb2
pop bc
ld a, $8
add b
ld b, a
dec e
jr nz, .asm_89faf
ret
Function89fce: ; 89fce (22:5fce)
call Function8a5b6
ld a, $5
hlcoord 7, 4, AttrMap
call Function8a5a3
ld a, $6
hlcoord 10, 4, AttrMap
call Function8a5a3
call Function89448
call Function32f9
call Function891ab
jp Function89e36
Function89fed: ; 89fed (22:5fed)
ld hl, UnknownText_0x8a102
call PrintText
jp Function89e36
Function89ff6: ; 89ff6 (22:5ff6)
call Function891fe
call WhiteBGMap
call Function893cc
call Function89807
call Function89492
call Function894ca
call Function89160
ld hl, $a603
ld a, $ff
ld bc, $8
call ByteFill
ld hl, $a603
ld de, wd008
call Function89381
call CloseSRAM
call Function8987f
call Function89160
hlcoord 1, 13
ld bc, $a007
call Function89a0c
call CloseSRAM
call Function891ab
call Function89235
jp Function89e36
Function8a03d: ; 8a03d (22:603d)
ld hl, UnknownText_0x8a107
call Function89209
call PrintText
call Function8920f
jp Function89e36
Function8a04c: ; 8a04c (22:604c)
ld hl, UnknownText_0x8a10c
call PrintText
jp Function89e36
Function8a055: ; 8a055 (22:6055)
ld c, $7
ld b, $4
.asm_8a059
call Function8a0a1
inc c
call Function8a0c9
push bc
call Function8a58d
pop bc
call Function8a0de
push bc
push hl
ld a, $5
call Function8a5a3
pop hl
rept 3
inc hl
endr
ld a, $6
call Function8a5a3
call Function3238
pop bc
ld a, c
cp $b
jr nz, .asm_8a059
call Function8a0a1
hlcoord 12, 4
call Function8a58d
ld a, $5
hlcoord 12, 4, AttrMap
call Function8a5a3
pop hl
ld a, $6
hlcoord 15, 4, AttrMap
call Function8a5a3
call Function3238
jp Function89e36
Function8a0a1: ; 8a0a1 (22:60a1)
call Function8923c
push bc
call Function8a0c9
ld e, $6
.asm_8a0aa
push hl
ld bc, $6
add hl, bc
ld d, [hl]
call Function8a0c1
pop hl
ld [hl], d
call Function89215
ld bc, $14
add hl, bc
dec e
jr nz, .asm_8a0aa
pop bc
ret
Function8a0c1: ; 8a0c1 (22:60c1)
push hl
ld bc, AttrMap - TileMap
add hl, bc
ld a, [hl]
pop hl
ret
Function8a0c9: ; 8a0c9 (22:60c9)
push bc
hlcoord 0, 0
ld de, $14
ld a, b
and a
jr z, .asm_8a0d8
.asm_8a0d4
add hl, de
dec b
jr nz, .asm_8a0d4
.asm_8a0d8
ld d, $0
ld e, c
add hl, de
pop bc
ret
Function8a0de: ; 8a0de (22:60de)
call Function8a0c9
ld de, AttrMap - TileMap
add hl, de
ret
Function8a0e6: ; 8a0e6 (22:60e6)
call Function8b539
jp Function89e36
Function8a0ec: ; 8a0ec (22:60ec)
ld hl, UnknownText_0x8a111
call PrintText
jp Function89e36
Function8a0f5: ; 8a0f5 (22:60f5)
call Function8b555
jp nc, Function8a0ff
ld hl, wd02d
inc [hl]
Function8a0ff: ; 8a0ff (22:60ff)
jp Function89e36
; 8a102 (22:6102)
UnknownText_0x8a102: ; 0x8a102
; The CARD FOLDER stores your and your friends' CARDS. A CARD contains information like the person's name, phone number and profile.
text_jump UnknownText_0x1c5238
db "@"
; 0x8a107
UnknownText_0x8a107: ; 0x8a107
; This is your CARD. Once you've entered your phone number, you can trade CARDS with your friends.
text_jump UnknownText_0x1c52bc
db "@"
; 0x8a10c
UnknownText_0x8a10c: ; 0x8a10c
; If you have your friend's CARD, you can use it to make a call from a mobile phone on the 2nd floor of a #MON CENTER.
text_jump UnknownText_0x1c531e
db "@"
; 0x8a111
UnknownText_0x8a111: ; 0x8a111
; To safely store your collection of CARDS, you must set a PASSCODE for your CARD FOLDER.
text_jump UnknownText_0x1c5394
db "@"
; 0x8a116
Function8a116: ; 8a116 (22:6116)
ld a, $1
ld [wd030], a
ld hl, MenuDataHeader_0x8a176
call LoadMenuDataHeader
.asm_8a121
call Function8923c
call Function8a17b
jr c, .asm_8a16b
ld a, [wcfa9]
ld [wd030], a
dec d
jr z, .asm_8a140
call Function8a20d
jr c, .asm_8a121
xor a
call Function8a2fe
call Function8916e
jr .asm_8a16b
.asm_8a140
call Function89174
jr nz, .asm_8a14c
call Function8a241
jr c, .asm_8a121
jr .asm_8a15a
.asm_8a14c
call WaitSFX
ld de, SFX_TWINKLE
call PlaySFX
ld c, $10
call DelayFrames
.asm_8a15a
call ExitMenu
call Function891de
call Function893e2
call Function89245
call Function89168
and a
ret
.asm_8a16b
call Function89209
call WriteBackup
call Function8920f
scf
ret
; 8a176 (22:6176)
MenuDataHeader_0x8a176: ; 0x8a176
db $40 ; flags
db 00, 14 ; start coords
db 06, 19 ; end coords
; 8a17b
Function8a17b: ; 8a17b (22:617b)
decoord 14, 0
ld b, $5
ld c, $4
call Function89b3b
ld hl, MenuDataHeader_0x8a19a
ld a, [wd030]
call Function89d5e
ld hl, Function8a1b0
call Function89d75
jr nc, .asm_8a198
ld a, $0
.asm_8a198
ld d, a
ret
; 8a19a (22:619a)
MenuDataHeader_0x8a19a: ; 0x8a19a
db $40 ; flags
db 00, 14 ; start coords
db 06, 19 ; end coords
dw MenuData2_0x8a1a2
db 1 ; default option
; 0x8a1a2
MenuData2_0x8a1a2: ; 0x8a1a2
db $e0 ; flags
db 3 ; items
db "ひらく@"
db "すてる@"
db "もどる@"
; 0x8a1b0
Function8a1b0: ; 8a1b0
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
hlcoord 1, 14
ld a, [wcfa9]
ld de, Strings_8a1cc
dec a
ld c, a
call Function8919e
call PlaceString
ret
; 8a1cc
Strings_8a1cc: ; 8a1cc
db "めいし", $25, "せいりと へんしゅうを"
next "おこないます"
db "@"
db "めいしフ,ルダー", $25, "めいしと"
next "あんしょうばんごう", $1f, "けします"
db "@"
db "まえ", $25, "がめん", $1d, "もどります"
db "@"
; 8a20d
Function8a20d: ; 8a20d (22:620d)
ld hl, UnknownText_0x8a232
call PrintText
ld a, $2
call Function89259
ret c
ld hl, UnknownText_0x8a237
call PrintText
ld a, $2
call Function89259
ret c
xor a
call Function8a2fe
ld hl, UnknownText_0x8a23c
call PrintText
xor a
and a
ret
; 8a232 (22:6232)
UnknownText_0x8a232: ; 0x8a232
; If the CARD FOLDER is deleted, all its CARDS and the PASSCODE will also be deleted. Beware--a deleted CARD FOLDER can't be restored. Want to delete your CARD FOLDER?
text_jump UnknownText_0x1c53ee
db "@"
; 0x8a237
UnknownText_0x8a237: ; 0x8a237
; Are you sure you want to delete it?
text_jump UnknownText_0x1c5494
db "@"
; 0x8a23c
UnknownText_0x8a23c: ; 0x8a23c
; The CARD FOLDER has been deleted.
text_jump UnknownText_0x1c54b9
db "@"
; 0x8a241
Function8a241: ; 8a241 (22:6241)
call Function1d6e
call Function891fe
call Function8a262
jr nc, .asm_8a254
call Function891fe
call Function89b28
scf
ret
.asm_8a254
call Function891de
call WhiteBGMap
call Function1d7d
call Function891de
and a
ret
Function8a262: ; 8a262 (22:6262)
call WhiteBGMap
call Function893e2
call Function8923c
callba Function4a3a7
callba Function49384
hlcoord 1, 0
call Function8a53d
hlcoord 12, 4
call Function8a58d
ld a, $5
hlcoord 12, 4, AttrMap
call Function8a5a3
ld a, $6
hlcoord 15, 4, AttrMap
call Function8a5a3
xor a
ld [wd02e], a
ld bc, wd013
call Function8b36c
call Function8b493
call Function891ab
call Function32f9
call Function8b5e7
ret
Function8a2aa: ; 8a2aa (22:62aa)
ld hl, MenuDataHeader_0x8a2ef
call LoadMenuDataHeader
ld hl, UnknownText_0x8a2f4
call PrintText
ld a, $1
call Function89259
jr nc, .asm_8a2cf
ld hl, UnknownText_0x8a2f9
call PrintText
ld a, $2
call Function89259
jr c, .asm_8a2ea
call Function8a20d
jr .asm_8a2ea
.asm_8a2cf
call ExitMenu
call Function8a241
jr c, .asm_8a2ed
ld a, $1
call Function8a313
call CloseSRAM
call Function891de
call Function89245
call Function89168
and a
ret
.asm_8a2ea
call WriteBackup
.asm_8a2ed
scf
ret
; 8a2ef (22:62ef)
MenuDataHeader_0x8a2ef: ; 0x8a2ef
db $40 ; flags
db 12, 00 ; start coords
db 17, 19 ; end coords
; 8a2f4
UnknownText_0x8a2f4: ; 0x8a2f4
; There is an older CARD FOLDER from a previous journey. Do you want to open it?
text_jump UnknownText_0x1c54dd
db "@"
; 0x8a2f9
UnknownText_0x8a2f9: ; 0x8a2f9
; Delete the old CARD FOLDER?
text_jump UnknownText_0x1c552d
db "@"
; 0x8a2fe
Function8a2fe: ; 8a2fe (22:62fe)
call Function8a313
call Function89305
ld hl, $a603
ld bc, $8
ld a, $ff
call ByteFill
call CloseSRAM
ret
Function8a313: ; 8a313 (22:6313)
ld c, a
call Function89160
ld a, c
ld [$a60b], a
ret
Function8a31c: ; 8a31c (22:631c)
push bc
call Function8923c
callba Function4a3a7
callba Function49384
hlcoord 1, 0
call Function8a53d
hlcoord 12, 4
call Function8a58d
call Function8a3b2
pop bc
ld a, c
ld [wcf88], a
ld [MenuSelection], a
call Function1c89
call Function1c10
ld hl, wcfa5
set 7, [hl]
.asm_8a34e
call Function8a3a2
call Function8923c
call Function8a453
call Function8a4d3
call Function8a4fc
call Function891ab
call Function32f9
call Function8a383
jr c, .asm_8a370
jr z, .asm_8a34e
.asm_8a36a
call Function89448
xor a
ld e, a
ret
.asm_8a370
call Function89448
call Function1bee
call Function8a3a2
ld a, [MenuSelection]
cp $ff
jr z, .asm_8a36a
ld e, a
and a
ret
Function8a383: ; 8a383 (22:6383)
callba Function241ba
ld a, c
ld hl, wcfa8
and [hl]
ret z
bit 0, a
jr nz, .asm_8a399
bit 1, a
jr nz, .asm_8a39e
xor a
ret
.asm_8a399
call PlayClickSFX
scf
ret
.asm_8a39e
call PlayClickSFX
ret
Function8a3a2: ; 8a3a2 (22:63a2)
ld a, [wcfa9]
dec a
ld hl, DefaultFlypoint
ld e, a
ld d, $0
add hl, de
ld a, [hl]
ld [MenuSelection], a
ret
Function8a3b2: ; 8a3b2 (22:63b2)
ld a, $1
ld [MenuSelection], a
call Function8a4fc
call Function8a3df
jr nc, .asm_8a3ce
decoord 0, 2
ld b, $6
ld c, $9
call Function89b3b
ld hl, MenuDataHeader_0x8a435
jr .asm_8a3db
.asm_8a3ce
decoord 0, 2
ld b, $8
ld c, $9
call Function89b3b
ld hl, MenuDataHeader_0x8a40f
.asm_8a3db
call CopyMenuDataHeader
ret
Function8a3df: ; 8a3df (22:63df)
call Function89160
ld hl, $a603
call Function89b45
call CloseSRAM
ld hl, DefaultFlypoint
jr c, .asm_8a3f8
ld de, Unknown_8a408
call Function8a400
scf
ret
.asm_8a3f8
ld de, Unknown_8a40b
call Function8a400
and a
ret
Function8a400: ; 8a400 (22:6400)
ld a, [de]
inc de
ld [hli], a
cp $ff
jr nz, Function8a400
ret
; 8a408 (22:6408)
Unknown_8a408: db 1, 2, -1
Unknown_8a40b: db 1, 2, 3, -1
MenuDataHeader_0x8a40f: ; 0x8a40f
db $40 ; flags
db 02, 00 ; start coords
db 11, 10 ; end coords
dw MenuData2_0x8a417
db 1 ; default option
; 0x8a417
MenuData2_0x8a417: ; 0x8a417
db $a0 ; flags
db 4 ; items
db "めいしりスト@"
db "じぶんの めいし@"
db "めいしこうかん@"
db "やめる@"
; 0x8a435
MenuDataHeader_0x8a435: ; 0x8a435
db $40 ; flags
db 02, 00 ; start coords
db 09, 10 ; end coords
dw MenuData2_0x8a43d
db 1 ; default option
; 0x8a43d
MenuData2_0x8a43d: ; 0x8a43d
db $a0 ; flags
db 3 ; items
db "めいしりスト@"
db "じぶんの めいし@"
db "やめる@"
; 0x8a453
Function8a453: ; 8a453 (22:6453)
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
hlcoord 1, 14
ld de, String_8a476
ld a, [MenuSelection]
cp $ff
jr z, .asm_8a472
ld de, Strings_8a483
dec a
ld c, a
call Function8919e
.asm_8a472
call PlaceString
ret
; 8a476 (22:6476)
String_8a476: ; 8a476
db "まえ", $25, "がめん", $1d, "もどります@"
; 8a483
Strings_8a483: ; 8a483
db "おともだち", $25, "めいしは"
next "ここ", $1d, "いれておきます@"
db "でんわばんごう", $1f, "いれると"
next "めいしこうかん", $4a, "できます@"
db "ともだちと じぶん", $25, "めいしを"
next "せきがいせんで こうかん します@"
; 8a4d3
Function8a4d3: ; 8a4d3 (22:64d3)
ld a, [MenuSelection]
cp $1
jr nz, .asm_8a4eb
ld a, $5
hlcoord 12, 4, AttrMap
call Function8a5a3
ld a, $7
hlcoord 15, 4, AttrMap
call Function8a5a3
ret
.asm_8a4eb
ld a, $7
hlcoord 12, 4, AttrMap
call Function8a5a3
ld a, $6
hlcoord 15, 4, AttrMap
call Function8a5a3
ret
Function8a4fc: ; 8a4fc (22:64fc)
ld a, [MenuSelection]
cp $3
jr nz, asm_8a529
ld hl, wd012
ld a, [hli]
ld b, a
ld a, [hld]
add b
ld [hl], a
ld b, a
ld c, $80
call Function89cdf
call Function8a515
ret
Function8a515: ; 8a515 (22:6515)
ld hl, wd012
ld a, [hl]
cp $38
jr c, .asm_8a520
cp $3c
ret c
.asm_8a520
ld a, [wd013]
cpl
inc a
ld [wd013], a
ret
asm_8a529: ; 8a529 (22:6529)
ld hl, wd012
ld a, $3c
ld [hli], a
ld a, $ff
ld [hli], a
ld hl, Sprites
xor a
ld bc, $20
call ByteFill
ret
Function8a53d: ; 8a53d (22:653d)
push hl
ld a, $15
ld c, $8
ld de, $14
call Function8a573
ld a, $1d
ld c, $9
call Function8a57c
inc a
ld [hl], a
call Function8a584
pop hl
add hl, de
ld a, $1f
ld c, $8
call Function8a573
dec hl
ld a, $51
ld [hli], a
ld a, $26
ld c, $1
call Function8a57c
ld a, $52
ld c, $3
call Function8a573
ld a, $27
ld c, $6
Function8a573: ; 8a573 (22:6573)
ld [hl], a
call Function8a584
inc a
dec c
jr nz, Function8a573
ret
Function8a57c: ; 8a57c (22:657c)
ld [hl], a
call Function8a584
dec c
jr nz, Function8a57c
ret
Function8a584: ; 8a584 (22:6584)
push af
ld a, $4
call Function89215
inc hl
pop af
ret
Function8a58d: ; 8a58d (22:658d)
ld a, $2d
ld bc, $606
ld de, $14
.asm_8a595
push bc
push hl
.asm_8a597
ld [hli], a
inc a
dec c
jr nz, .asm_8a597
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_8a595
ret
Function8a5a3: ; 8a5a3 (22:65a3)
ld bc, $603
ld de, $14
.asm_8a5a9
push bc
push hl
.asm_8a5ab
ld [hli], a
dec c
jr nz, .asm_8a5ab
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_8a5a9
ret
Function8a5b6: ; 8a5b6 (22:65b6)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_8a5e5
ld de, wd020
ld bc, $18
call CopyBytes
ld hl, Palette_8a5fd
ld de, Unkn2Pals
ld bc, $8
call CopyBytes
ld hl, Palette_8a605
ld de, wd048
ld bc, $8
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
ret
; 8a5e5 (22:65e5)
Palette_8a5e5: ; 8a5e5
RGB 31, 31, 31
RGB 27, 19, 00
RGB 07, 11, 22
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 16, 31
RGB 27, 19, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 00, 00
RGB 27, 19, 00
RGB 00, 00, 00
; 8a5fd
Palette_8a5fd: ; 8a5fd
RGB 00, 00, 00
RGB 00, 00, 00
RGB 00, 00, 00
RGB 31, 31, 31
; 8a605
Palette_8a605: ; 8a605
RGB 00, 00, 00
RGB 14, 18, 31
RGB 16, 16, 31
RGB 31, 31, 31
; 8a60d
Function8a60d: ; 8a60d
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Palette_8a624
ld de, Unkn2Pals
ld bc, $0008
call CopyBytes
pop af
ld [rSVBK], a
ret
; 8a624
Palette_8a624: ; 8a624
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
; 8a62c
Function8a62c: ; 8a62c (22:662c)
call Function1d6e
call Function891fe
xor a
call Function8b94a
call Function8b677
.asm_8a639
xor a
ld [wd033], a
ld [wd032], a
ld [wd0e3], a
call Function8b7bd
ld a, c
and a
jr z, .asm_8a66a
ld [MenuSelection], a
ld b, a
ld a, [wcf77]
inc a
ld [wd034], a
push bc
call Function8b960
ld a, c
pop bc
jr z, .asm_8a639
ld c, a
ld hl, Jumptable_8a671
ld a, b
ld [MenuSelection], a
ld a, c
dec a
rst JumpTable
jr .asm_8a639
.asm_8a66a
call Function891fe
call Function89b28
ret
Jumptable_8a671: ; 8a671 (22:6671)
dw Function8a679
dw Function8a6cd
dw Function8a8c3
dw Function8a930
Function8a679: ; 8a679 (22:6679)
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
call Function8931b
call Function89844
call CloseSRAM
call Function89160
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call Function891ab
call CloseSRAM
.asm_8a6a3
call Function89a57
jr c, .asm_8a6a3
and a
jr z, Function8a679
ld hl, Jumptable_8a6bc
dec a
rst JumpTable
jr c, Function8a679
call Function891fe
call Function8b677
call Function89448
ret
Jumptable_8a6bc: ; 8a6bc (22:66bc)
dw Function8a6c0
dw Function8a6c5
Function8a6c0: ; 8a6c0 (22:66c0)
call PlayClickSFX
and a
ret
Function8a6c5: ; 8a6c5 (22:66c5)
call PlayClickSFX
call Function89d0d
scf
ret
Function8a6cd: ; 8a6cd (22:66cd)
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
call Function8931b
call Function89844
call Function8a757
call CloseSRAM
.asm_8a6e5
call Function89160
call Function8931b
call Function89856
call Function89a2e
call Function891ab
xor a
ld [wd02f], a
call CloseSRAM
.asm_8a6fb
call Function89b97
call Function89c67
jr c, .asm_8a718
ld a, b
and a
jr z, .asm_8a6fb
call PlayClickSFX
call Function89448
ld a, [wd011]
ld hl, Jumptable_8a74f
rst JumpTable
jr nc, .asm_8a6e5
jr .asm_8a742
.asm_8a718
call Function89160
call Function8a765
call CloseSRAM
jr nc, .asm_8a73f
call Function8923c
call Function89448
call Function89a23
hlcoord 1, 13
ld de, String_89135
call PlaceString
call WaitBGMap
ld a, $2
call Function89254
jr c, .asm_8a6e5
.asm_8a73f
call CloseSRAM
.asm_8a742
call WhiteBGMap
call Function89448
call Function891d3
call Function8b677
ret
Jumptable_8a74f: ; 8a74f (22:674f)
dw Function8a78c
dw Function8a7cb
dw Function8a818
dw Function8a8a1
Function8a757: ; 8a757 (22:6757)
call Function8939a
xor a
ld [wd010], a
ld [wd011], a
ld [wd012], a
ret
Function8a765: ; 8a765 (22:6765)
call Function8931b
push bc
ld hl, $0
add hl, bc
ld de, DefaultFlypoint
ld c, $6
call Function89185
pop bc
jr nz, .asm_8a78a
push bc
ld hl, $11
add hl, bc
ld de, wd008
ld c, $8
call Function89185
pop bc
jr nz, .asm_8a78a
and a
ret
.asm_8a78a
scf
ret
Function8a78c: ; 8a78c (22:678c)
call Function891fe
ld de, DefaultFlypoint
ld b, $5
callba Function116c1
call Function89160
call Function8931b
push bc
ld hl, $0
add hl, bc
ld d, h
ld e, l
ld hl, DefaultFlypoint
call InitName
call CloseSRAM
call DelayFrame
call Functiona57
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
pop bc
call Function89844
call CloseSRAM
and a
ret
Function8a7cb: ; 8a7cb (22:67cb)
ld a, [MenuSelection]
push af
call Function891de
ld de, wd008
ld c, $0
callba Function17a68f
jr c, .asm_8a7f4
ld hl, wd008
ld a, $ff
ld bc, $8
call ByteFill
ld h, d
ld l, e
ld de, wd008
ld c, $8
call Function89193
.asm_8a7f4
pop af
ld [MenuSelection], a
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
call Function8931b
call Function89844
call Function89856
call Function89a2e
call Function891ab
call CloseSRAM
and a
ret
Function8a818: ; 8a818 (22:6818)
call Function89a23
ld hl, DefaultFlypoint
call Function89331
jr c, .asm_8a875
ld hl, wd008
call Function89b45
jr nc, .asm_8a87a
call Function89160
call Function8a765
jr nc, .asm_8a863
call Function8931b
push bc
ld hl, $0
add hl, bc
ld d, h
ld e, l
ld hl, DefaultFlypoint
ld c, $6
call Function89193
pop bc
ld hl, $11
add hl, bc
ld d, h
ld e, l
ld hl, wd008
ld c, $8
call Function89193
hlcoord 1, 13
ld de, .string_8a868
call PlaceString
call WaitBGMap
call Functiona36
.asm_8a863
call CloseSRAM
scf
ret
; 8a868 (22:6868)
.string_8a868
db "めいし", $1f, "かきかえ まし", $22, "@"
.asm_8a875
ld de, String_8a88b
jr .asm_8a87d
.asm_8a87a
ld de, String_8911c
.asm_8a87d
hlcoord 1, 13
call PlaceString
call WaitBGMap
call Functiona36
and a
ret
; 8a88b (22:688b)
String_8a88b: ; 8a88b
db "おともだち", $25, "なまえが"
next "かかれて いません!@"
; 8a8a1
Function8a8a1: ; 8a8a1 (22:68a1)
call Function89160
call Function8a765
call CloseSRAM
jr nc, .asm_8a8bf
call Function89a23
hlcoord 1, 13
ld de, String_89135
call PlaceString
ld a, $2
call Function89254
jr c, .asm_8a8c1
.asm_8a8bf
scf
ret
.asm_8a8c1
and a
ret
Function8a8c3: ; 8a8c3 (22:68c3)
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
call Function8931b
call Function89844
call Function8939a
call Function89856
call CloseSRAM
call Function891ab
hlcoord 1, 13
ld de, String_8a919
call PlaceString
ld a, $2
call Function89254
jr c, .asm_8a90f
call Function89160
call Function892b4
call CloseSRAM
call Function89a23
call Function8923c
hlcoord 1, 13
ld de, String_8a926
call PlaceString
call WaitBGMap
call Functiona36
.asm_8a90f
call Function89448
call Function891fe
call Function8b677
ret
; 8a919 (22:6919)
String_8a919: ; 8a919
db "このデータ", $1f, "けしますか?@"
; 8a926
String_8a926: ; 8a926
db "データ", $1f, "けしまし", $22, "@"
; 8a930
Function8a930: ; 8a930 (22:6930)
ld a, [MenuSelection]
push af
xor a
ld [wd032], a
ld a, $1
ld [wd033], a
ld a, [wd034]
ld [wd0e3], a
.asm_8a943
call Function8b7bd
ld a, [wcf73]
and $1
jr nz, .asm_8a953
ld a, c
and a
jr nz, .asm_8a943
pop af
ret
.asm_8a953
call Function89160
pop af
cp c
jr z, .asm_8a995
push bc
ld [MenuSelection], a
call Function8931b
push bc
ld h, b
ld l, c
ld de, DefaultFlypoint
ld bc, $25
call CopyBytes
pop de
pop bc
ld a, c
ld [MenuSelection], a
call Function8931b
push bc
ld h, b
ld l, c
ld bc, $25
call CopyBytes
pop de
ld hl, DefaultFlypoint
ld bc, $25
call CopyBytes
ld de, SFX_SWITCH_POKEMON
call WaitPlaySFX
ld de, SFX_SWITCH_POKEMON
call WaitPlaySFX
.asm_8a995
call CloseSRAM
ret
Function8a999: ; 8a999 (22:6999)
ld hl, MenuDataHeader_0x8a9c9
call LoadMenuDataHeader
ld c, $1
.asm_8a9a1
call Function8a9ce
jr c, .asm_8a9bb
push bc
push de
call Function1d6e
pop de
dec e
ld a, e
ld hl, Jumptable_8a9c5
rst JumpTable
call Function891fe
call Function89b28
pop bc
jr .asm_8a9a1
.asm_8a9bb
call Function89209
call WriteBackup
call Function8920f
ret
Jumptable_8a9c5: ; 8a9c5 (22:69c5)
dw Function8aa0a
dw Function8ab3b
; 8a9c9 (22:69c9)
MenuDataHeader_0x8a9c9: ; 0x8a9c9
db $40 ; flags
db 04, 11 ; start coords
db 11, 18 ; end coords
; 8a9ce
Function8a9ce: ; 8a9ce (22:69ce)
push bc
decoord 11, 4
ld b, $6
ld c, $6
call Function89b3b
pop bc
ld a, c
ld hl, MenuDataHeader_0x8a9f2
call Function89d5e
ld hl, Function8aa09
call Function89d85
jr c, .asm_8a9ed
ld c, a
ld e, a
and a
ret
.asm_8a9ed
ld c, a
ld e, $0
scf
ret
; 8a9f2 (22:69f2)
MenuDataHeader_0x8a9f2: ; 0x8a9f2
db $40 ; flags
db 04, 11 ; start coords
db 11, 18 ; end coords
dw MenuData2_0x8a9fa
db 1 ; default option
; 0x8a9fa
MenuData2_0x8a9fa: ; 0x8a9fa
db $a0 ; flags
db 3 ; items
db "へんしゅう@"
db "みる@"
db "やめる@"
; 0x8aa09
Function8aa09: ; 8aa09
ret
; 8aa0a
Function8aa0a: ; 8aa0a (22:6a0a)
ld a, $1
ld [wd02f], a
ld [wd011], a
xor a
ld [wd010], a
ld [wd012], a
call Function89160
ld hl, $a603
ld de, wd008
call Function89381
call CloseSRAM
call Function891fe
call WhiteBGMap
call Function893cc
call Function89807
call Function89492
call Function894ca
.asm_8aa3a
call Function8987f
call Function89a2e
call Function891ab
.asm_8aa43
call Function89b97
call Function89c67
jr c, .asm_8aa61
ld a, b
and a
jr z, .asm_8aa43
call PlayClickSFX
call Function89448
ld a, [wd011]
dec a
ld hl, Jumptable_8aa6d
rst JumpTable
jr nc, .asm_8aa3a
jr .asm_8aa69
.asm_8aa61
call Function89448
call Function8ab11
jr nc, .asm_8aa3a
.asm_8aa69
call Function89448
ret
Jumptable_8aa6d: ; 8aa6d (22:6a6d)
dw Function8aa73
dw Function8aab6
dw Function8ab11
Function8aa73: ; 8aa73 (22:6a73)
ld a, [MenuSelection]
ld e, a
push de
call Function891de
ld de, wd008
ld c, $0
callba Function17a68f
jr c, .asm_8aa9d
ld hl, wd008
ld a, $ff
ld bc, $8
call ByteFill
ld h, d
ld l, e
ld de, wd008
ld c, $8
call Function89193
.asm_8aa9d
call Function891fe
call WhiteBGMap
call Function893cc
call Function89807
call Function89492
call Function894ca
pop de
ld a, e
ld [MenuSelection], a
and a
ret
Function8aab6: ; 8aab6 (22:6ab6)
call Function89a23
ld hl, wd008
call Function89b45
jr nc, Function8ab00
call Function89160
ld de, wd008
ld hl, $a603
ld c, $8
call Function89185
jr z, .asm_8aaeb
ld hl, wd008
ld de, $a603
ld c, $8
call Function89193
hlcoord 1, 13
ld de, String_8aaf0
call PlaceString
call WaitBGMap
call Functiona36
.asm_8aaeb
call CloseSRAM
scf
ret
; 8aaf0 (22:6af0)
String_8aaf0: ; 8aaf0
db "あたらしい めいし", $4a, "できまし", $22, "@"
; 8ab00
Function8ab00: ; 8ab00
ld de, String_8911c
hlcoord 1, 13
call PlaceString
call WaitBGMap
call Function89235
and a
ret
Function8ab11: ; 8ab11 (22:6b11)
call Function89160
ld hl, $a603
ld de, wd008
ld c, $8
call Function89185
call CloseSRAM
jr z, .asm_8ab37
call Function89a23
hlcoord 1, 13
ld de, String_89135
call PlaceString
ld a, $2
call Function89254
jr c, .asm_8ab39
.asm_8ab37
scf
ret
.asm_8ab39
and a
ret
Function8ab3b: ; 8ab3b (22:6b3b)
call Function891fe
call WhiteBGMap
call Function893cc
call Function89807
call Function89492
call Function894ca
call Function89160
ld hl, $a603
ld de, wd008
call Function89381
call CloseSRAM
call Function8987f
call Function89160
hlcoord 1, 13
ld bc, $a007
call Function89a0c
call CloseSRAM
call Function891ab
call Function8ab77
jr c, Function8ab3b
ret
Function8ab77: ; 8ab77 (22:6b77)
call Function354b
bit 0, c
jr nz, .asm_8ab8e
bit 1, c
jr nz, .asm_8ab8e
bit 3, c
jr z, Function8ab77
call PlayClickSFX
call Function89d0d
scf
ret
.asm_8ab8e
call PlayClickSFX
and a
ret
Function8ab93: ; 8ab93 (22:6b93)
call WhiteBGMap
call Function1d6e
callba Function105688
call ClearSprites
call Function891fe
call Function89b28
ret
; 8aba9 (22:6ba9)
Function8aba9: ; 8aba9
ld a, $2
call Function8b94a
ld a, $1
ld [wd032], a
.asm_8abb3
call Function891fe
call Function8b677
.asm_8abb9
call Function8b7bd
jr z, .asm_8abdf
ld a, c
ld [MenuSelection], a
call Function89160
call Function8931b
ld hl, $0011
add hl, bc
call Function89b45
call CloseSRAM
jr c, .asm_8abe2
ld de, SFX_WRONG
call WaitPlaySFX
call CloseSRAM
jr .asm_8abb9
.asm_8abdf
xor a
ld c, a
ret
.asm_8abe2
call PlayClickSFX
.asm_8abe5
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
call Function8931b
call Function89844
call CloseSRAM
call Function89160
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call CloseSRAM
call Function891ab
.asm_8ac0f
call Function89a57
jr c, .asm_8ac0f
and a
jr z, .asm_8abe5
cp $2
jr z, .asm_8ac0f
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
hlcoord 1, 14
ld de, String_8ac3b
call PlaceString
ld a, $1
call Function8925e
jp c, .asm_8abb3
ld a, [MenuSelection]
ld c, a
ret
; 8ac3b
String_8ac3b: ; 8ac3b
db "こ", $25, "ともだち", $1d, "でんわを"
next "かけますか?@"
; 8ac4e
Function8ac4e: ; 8ac4e
xor a
ld [MenuSelection], a
push de
call Function891de
call WhiteBGMap
call Function893cc
pop bc
call Function89844
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call Function891ab
ret
; 8ac70
Function8ac70: ; 8ac70
push de
ld a, $3
call Function8b94a
Function8ac76: ; 8ac76
call Function891fe
call Function8b677
Function8ac7c: ; 8ac7c
call Function8b7bd
jr z, .asm_8acf0
ld a, c
ld [wd02f], a
ld [MenuSelection], a
call Function89160
call Function8931b
call Function8932d
call CloseSRAM
jr nc, .asm_8acb0
call Function89160
ld hl, $0011
add hl, bc
call Function89b45
call CloseSRAM
jr nc, .asm_8accc
call Function89160
call Function892b7
call CloseSRAM
jr .asm_8accc
.asm_8acb0
call Function8ad0b
jr c, Function8ac76
and a
jr nz, .asm_8accc
call Function89160
ld h, b
ld l, c
ld d, $0
ld e, $6
add hl, de
ld d, h
ld e, l
pop hl
ld c, $1f
call Function89193
jr .asm_8ace4
.asm_8accc
pop hl
call Function89160
ld d, b
ld e, c
ld c, $6
call Function89193
ld a, $6
add e
ld e, a
ld a, $0
adc d
ld d, a
ld c, $1f
call Function89193
.asm_8ace4
call CloseSRAM
call Functione51
ld a, [wd02f]
ld c, a
and a
ret
.asm_8acf0
ld hl, UnknownText_0x8ad06
call PrintText
ld a, $2
call Function89259
jp c, Function8ac7c
call Functione51
pop de
ld c, $0
scf
ret
; 8ad06
UnknownText_0x8ad06: ; 0x8ad06
; Finish registering CARDS?
text_jump UnknownText_0x1c554a
db "@"
; 0x8ad0b
Function8ad0b: ; 8ad0b
.asm_8ad0b
ld a, [MenuSelection]
ld [wd02f], a
call Function891de
call WhiteBGMap
call Function893cc
call Function89160
call Function8931b
push bc
call Function89844
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call CloseSRAM
call Function891ab
pop bc
.asm_8ad37
push bc
call Function89a57
pop bc
jr c, .asm_8ad37
and a
jr z, .asm_8ad0b
cp $2
jr z, .asm_8ad37
call Function8923c
push bc
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld de, String_8ad89
hlcoord 1, 14
call PlaceString
ld a, $2
call Function8925e
jr c, .asm_8ad87
call Function8923c
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld de, String_8ad9c
hlcoord 1, 14
call PlaceString
ld a, $1
call Function8925e
jr c, .asm_8ad84
ld a, $0
jr .asm_8ad86
.asm_8ad84
ld a, $1
.asm_8ad86
and a
.asm_8ad87
pop bc
ret
; 8ad89
String_8ad89: ; 8ad89
db "こ", $25, "めいし", $1f, "けして"
next "いれかえますか?@"
; 8ad9c
String_8ad9c: ; 8ad9c
db "おともだち", $25, "なまえを"
next "のこして おきますか?@"
; 8adb3
Function8adb3: ; 8adb3
call Function891de
call Function8a262
push af
call Function891de
pop af
ret
; 8adbf
Function8adbf: ; 8adbf
call Function89160
ld hl, $a603
call Function89b45
call CloseSRAM
ret
; 8adcc
Function8adcc: ; 8adcc
call Function89160
call Function8b3b0
call CloseSRAM
ret nc
cp $2
ret z
scf
ret
; 8addb
SpecialHoOhChamber: ; 0x8addb
ld hl, PartySpecies
ld a, [hl]
cp HO_OH ; is Ho-oh the first Pokémon in the party?
jr nz, .done ; if not, we're done
call GetSecondaryMapHeaderPointer
ld de, EVENT_WALL_OPENED_IN_HO_OH_CHAMBER
ld b, SET_FLAG
call EventFlagAction
.done
ret
; 0x8adef
SpecialOmanyteChamber: ; 8adef
call GetSecondaryMapHeaderPointer
ld de, EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
ld b, CHECK_FLAG
call EventFlagAction
ld a, c
and a
jr nz, .nope
ld a, WATER_STONE
ld [CurItem], a
ld hl, NumItems
call CheckItem
jr c, .open
ld a, [PartyCount]
ld b, a
inc b
.loop
dec b
jr z, .nope
ld a, b
dec a
ld [CurPartyMon], a
push bc
ld a, PartyMon1Item - PartyMon1
call GetPartyParamLocation
pop bc
ld a, [hl]
cp WATER_STONE
jr nz, .loop
.open
call GetSecondaryMapHeaderPointer
ld de, EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
ld b, SET_FLAG
call EventFlagAction
.nope
ret
; 8ae30
SpecialAerodactylChamber: ; 8ae30
push de
push bc
call GetSecondaryMapHeaderPointer
ld a, h
cp RuinsofAlphAerodactylChamber_SecondMapHeader / $100
jr nz, .nope
ld a, l
cp RuinsofAlphAerodactylChamber_SecondMapHeader % $100
jr nz, .nope
ld de, EVENT_WALL_OPENED_IN_AERODACTYL_CHAMBER
ld b, SET_FLAG
call EventFlagAction
scf
jr .done
.nope
and a
.done
pop bc
pop de
ret
; 8ae4e
SpecialKabutoChamber: ; 8ae4e
push hl
push de
call GetSecondaryMapHeaderPointer
ld a, h
cp RuinsofAlphKabutoChamber_SecondMapHeader / $100
jr nz, .done
ld a, l
cp RuinsofAlphKabutoChamber_SecondMapHeader % $100
jr nz, .done
ld de, EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
ld b, SET_FLAG
call EventFlagAction
.done
pop de
pop hl
ret
; 8ae68
Special_DisplayUnownWords: ; 8ae68
ld a, [ScriptVar]
ld hl, MenuDataHeader_0x8aed5
and a
jr z, .asm_8ae79
ld d, $0
ld e, $5
.asm_8ae75
add hl, de
dec a
jr nz, .asm_8ae75
.asm_8ae79
call LoadMenuDataHeader
xor a
ld [hBGMapMode], a
call Function1cbb
call DrawOnMap
call Function321c
call Function1cfd
inc hl
ld d, $0
ld e, $14
rept 2
add hl, de
endr
ld a, [ScriptVar]
ld c, a
ld de, Unknown_8aebc
and a
jr z, .asm_8aea5
.asm_8ae9c
ld a, [de]
inc de
cp $ff
jr nz, .asm_8ae9c
dec c
jr nz, .asm_8ae9c
.asm_8aea5
call Function8af09
ld bc, AttrMap - TileMap
add hl, bc
call Function8aee9
call Function3200
call Functiona36
call PlayClickSFX
call WriteBackup
ret
; 8aebc
Unknown_8aebc: ; 8aebc
db $08, $44, $04, $00, $2e, $08, $ff
db $26, $20, $0c, $0e, $46, $ff
db $4c, $00, $46, $08, $42, $ff
db $0e, $2c, $64, $2c, $0e, $ff
; 8aed5
MenuDataHeader_0x8aed5: ; 0x8aed5
db $40 ; flags
db 04, 03 ; start coords
db 09, 16 ; end coords
MenuDataHeader_0x8aeda: ; 0x8aeda
db $40 ; flags
db 04, 04 ; start coords
db 09, 15 ; end coords
MenuDataHeader_0x8aedf: ; 0x8aedf
db $40 ; flags
db 04, 04 ; start coords
db 09, 15 ; end coords
MenuDataHeader_0x8aee4: ; 0x8aee4
db $40 ; flags
db 04, 04 ; start coords
db 09, 15 ; end coords
; 8aee9
Function8aee9: ; 8aee9
.asm_8aee9
ld a, [de]
cp $ff
ret z
cp $60
ld a, $d
jr c, .asm_8aef5
ld a, $5
.asm_8aef5
call Function8aefd
rept 2
inc hl
endr
inc de
jr .asm_8aee9
; 8aefd
Function8aefd: ; 8aefd
push hl
ld [hli], a
ld [hld], a
ld b, $0
ld c, $14
add hl, bc
ld [hli], a
ld [hl], a
pop hl
ret
; 8af09
Function8af09: ; 8af09
push hl
push de
.asm_8af0b
ld a, [de]
cp $ff
jr z, .asm_8af19
ld c, a
call Function8af1c
rept 2
inc hl
endr
inc de
jr .asm_8af0b
.asm_8af19
pop de
pop hl
ret
; 8af1c
Function8af1c: ; 8af1c
push hl
ld a, c
cp $60
jr z, .asm_8af3b
cp $62
jr z, .asm_8af4b
cp $64
jr z, .asm_8af5b
ld [hli], a
inc a
ld [hld], a
dec a
ld b, $0
ld c, $14
add hl, bc
ld c, $10
add c
ld [hli], a
inc a
ld [hl], a
pop hl
ret
.asm_8af3b
ld [hl], $5b
inc hl
ld [hl], $5c
ld bc, $0013
add hl, bc
ld [hl], $4d
inc hl
ld [hl], $5d
pop hl
ret
.asm_8af4b
ld [hl], $4e
inc hl
ld [hl], $4f
ld bc, $0013
add hl, bc
ld [hl], $5e
inc hl
ld [hl], $5f
pop hl
ret
.asm_8af5b
ld [hl], $2
inc hl
ld [hl], $3
ld bc, $0013
add hl, bc
ld [hl], $3
inc hl
ld [hl], $2
pop hl
ret
; 8af6b
SpecialBuenasPassword: ; 8af6b
xor a
ld [wcf76], a
ld hl, MenuDataHeader_0x8afa9
call CopyMenuDataHeader
ld a, [wdc4a]
ld c, a
callba Functionb8f8f
ld a, [wcf83]
add c
add $2
ld [wcf85], a
call Function1c00
call Function1e5d
callba Function4ae5e
ld b, $0
ld a, [MenuSelection]
ld c, a
ld a, [wdc4a]
and $3
cp c
jr nz, .asm_8afa4
ld b, $1
.asm_8afa4
ld a, b
ld [ScriptVar], a
ret
; 8afa9
MenuDataHeader_0x8afa9: ; 0x8afa9
db $40 ; flags
db 00, 00 ; start coords
db 07, 10 ; end coords
dw MenuData2_0x8afb2
db 1 ; default option
; 0x8afb1
db 0
MenuData2_0x8afb2: ; 0x8afb2
db $81 ; flags
db 0 ; items
dw Unknown_8afb8
dw Function8afbd
; 0x8afb4
Unknown_8afb8: ; 8afb8
db 3
db 0, 1, 2
db -1
Function8afbd: ; 8afbd
push de
ld a, [wdc4a]
and $f0
ld c, a
ld a, [MenuSelection]
add c
ld c, a
callba Functionb8f8f
pop hl
call PlaceString
ret
; 8afd4
SpecialBuenaPrize: ; 8afd4
xor a
ld [wd0e4], a
ld a, $1
ld [MenuSelection], a
call Function8b0d6
call Function8b090
ld hl, UnknownText_0x8b072
call PrintText
jr .asm_8aff1
.asm_8afeb
ld hl, UnknownText_0x8b072
call Function105a
.asm_8aff1
call DelayFrame
call DrawOnMap
call Function8b097
call Function8b0e2
jr z, .asm_8b05f
ld [wcf75], a
call GetBuenaPrize
ld a, [hl]
ld [wd265], a
call GetItemName
ld hl, UnknownText_0x8b077
call Function105a
call YesNoBox
jr c, .asm_8afeb
ld a, [wcf75]
call GetBuenaPrize
inc hl
ld a, [hld]
ld c, a
ld a, [wdc4b]
cp c
jr c, .asm_8b047
ld a, [hli]
push hl
ld [CurItem], a
ld a, $1
ld [wd10c], a
ld hl, NumItems
call ReceiveItem
pop hl
jr nc, .asm_8b04c
ld a, [hl]
ld c, a
ld a, [wdc4b]
sub c
ld [wdc4b], a
call Function8b097
jr .asm_8b051
.asm_8b047
ld hl, UnknownText_0x8b081
jr .asm_8b05a
.asm_8b04c
ld hl, UnknownText_0x8b086
jr .asm_8b05a
.asm_8b051
ld de, SFX_TRANSACTION
call PlaySFX
ld hl, UnknownText_0x8b07c
.asm_8b05a
call Function105a
jr .asm_8afeb
.asm_8b05f
call WriteBackup
call WriteBackup
ld hl, UnknownText_0x8b08b
call PrintText
call Functiona36
call PlayClickSFX
ret
; 8b072
UnknownText_0x8b072: ; 0x8b072
; Which prize would you like?
text_jump UnknownText_0x1c589f
db "@"
; 0x8b077
UnknownText_0x8b077: ; 0x8b077
; ? Is that right?
text_jump UnknownText_0x1c58bc
db "@"
; 0x8b07c
UnknownText_0x8b07c: ; 0x8b07c
; Here you go!
text_jump UnknownText_0x1c58d1
db "@"
; 0x8b081
UnknownText_0x8b081: ; 0x8b081
; You don't have enough points.
text_jump UnknownText_0x1c58e0
db "@"
; 0x8b086
UnknownText_0x8b086: ; 0x8b086
; You have no room for it.
text_jump UnknownText_0x1c58ff
db "@"
; 0x8b08b
UnknownText_0x8b08b: ; 0x8b08b
; Oh. Please come back again!
text_jump UnknownText_0x1c591a
db "@"
; 0x8b090
Function8b090: ; 8b090
ld hl, MenuDataHeader_0x8b0d1
call LoadMenuDataHeader
ret
; 8b097
Function8b097: ; 8b097
ld de, wdc4b
call Function8b09e
ret
; 8b09e
Function8b09e: ; 8b09e
push de
xor a
ld [hBGMapMode], a
ld hl, MenuDataHeader_0x8b0d1
call CopyMenuDataHeader
call Function1cbb
call DrawOnMap
call Function1cfd
ld bc, $0015
add hl, bc
ld de, String_8b0ca
call PlaceString
ld h, b
ld l, c
inc hl
ld a, $7f
ld [hli], a
ld [hld], a
pop de
ld bc, $0102
call PrintNum
ret
; 8b0ca
String_8b0ca:
db "Points@"
; 8b0d1
MenuDataHeader_0x8b0d1: ; 0x8b0d1
db $40 ; flags
db 11, 00 ; start coords
db 13, 11 ; end coords
; 8b0d6
Function8b0d6: ; 8b0d6
ld hl, MenuDataHeader_0x8b0dd
call LoadMenuDataHeader
ret
; 8b0dd
MenuDataHeader_0x8b0dd: ; 0x8b0dd
db $40 ; flags
db 00, 00 ; start coords
db 11, 17 ; end coords
; 8b0e2
Function8b0e2: ; 8b0e2
ld hl, MenuDataHeader_0x8b113
call CopyMenuDataHeader
ld a, [MenuSelection]
ld [wcf88], a
xor a
ld [wcf76], a
ld [hBGMapMode], a
call Function352f
call DrawOnMap
call Function350c
ld a, [MenuSelection]
ld c, a
ld a, [wcfa9]
ld [MenuSelection], a
ld a, [wcf73]
cp $2
jr z, .asm_8b111
ld a, c
and a
ret nz
.asm_8b111
xor a
ret
; 8b113
MenuDataHeader_0x8b113: ; 0x8b113
db $40 ; flags
db 01, 01 ; start coords
db 09, 16 ; end coords
dw MenuData2_0x8b11c
db 1 ; default option
; 0x8b11b
db 0
MenuData2_0x8b11c: ; 0x8b11c
db $10 ; flags
db 4 ; items
db $d, $1
dbw BANK(Unknown_8b129), Unknown_8b129
dbw BANK(BuenaPrizeItem), BuenaPrizeItem
dbw BANK(BuenaPrizePoints), BuenaPrizePoints
; 8b129
Unknown_8b129: ; 8b129
db 9
db 1, 2, 3, 4, 5, 6, 7, 8, 9, $ff
; 8b134
BuenaPrizeItem: ; 8b134
ld a, [MenuSelection]
call GetBuenaPrize
ld a, [hl]
push de
ld [wd265], a
call GetItemName
pop hl
call PlaceString
ret
; 8b147
BuenaPrizePoints: ; 8b147
ld a, [MenuSelection]
call GetBuenaPrize
inc hl
ld a, [hl]
ld c, "0"
add c
ld [de], a
ret
; 8b154
GetBuenaPrize: ; 8b154
dec a
ld hl, BuenaPrizes
ld b, 0
ld c, a
rept 2
add hl, bc
endr
ret
; 8b15e
BuenaPrizes: ; 8b15e
db ULTRA_BALL, 2
db FULL_RESTORE, 2
db NUGGET, 3
db RARE_CANDY, 3
db PROTEIN, 5
db IRON, 5
db CARBOS, 5
db CALCIUM, 5
db HP_UP, 5
; 8b170
INCLUDE "event/dratini.asm"
Function8b1e1: ; 8b1e1
ld de, Unknown_8b1ed
call Function8b25b
ret z
call Function8b231
scf
ret
; 8b1ed
Unknown_8b1ed: ; 8b1ed
db 2
dw Unknown_8b1f2
dw Unknown_8b1f6
Unknown_8b1f2: ; 8b1f2
dw Function8b2bb
dw Function8b2c1
; 8b1f6
Unknown_8b1f6: ; 8b1f6
dw UnknownText_0x8b1fc
dw UnknownText_0x8b23d
dw UnknownText_0x8b242
; 8b1fc
UnknownText_0x8b1fc: ; 0x8b1fc
; Excuse me!
text_jump UnknownText_0x1c5937
db "@"
; 0x8b201
Function8b201: ; 8b201
ld hl, StringBuffer2
ld [hl], "3"
inc hl
ld [hl], "@"
ld de, Unknown_8b215
call Function8b25b
ret z
call Function8b231
scf
ret
; 8b215
Unknown_8b215: ; 8b215
db 4
dw Unknown_8b21a
dw Unknown_8b222
Unknown_8b21a: ; 8b21a
dw Function8b2da
dw Function8b2e2
dw Function8b32a
dw Function8b331
; 8b222
Unknown_8b222: ; 8b222
dw UnknownText_0x8b22c
dw UnknownText_0x8b247
dw UnknownText_0x8b24c
dw UnknownText_0x8b251
dw UnknownText_0x8b256
; 8b22c
UnknownText_0x8b22c: ; 0x8b22c
; Excuse me. You're not ready.
text_jump UnknownText_0x1c5944
db "@"
; 0x8b231
Function8b231: ; 8b231
ld hl, UnknownText_0x8b238
call PrintText
ret
; 8b238
UnknownText_0x8b238: ; 0x8b238
; Please return when you're ready.
text_jump UnknownText_0x1c5962
db "@"
; 0x8b23d
UnknownText_0x8b23d: ; 0x8b23d
; You need at least three #MON.
text_jump UnknownText_0x1c5983
db "@"
; 0x8b242
UnknownText_0x8b242: ; 0x8b242
; Sorry, an EGG doesn't qualify.
text_jump UnknownText_0x1c59a3
db "@"
; 0x8b247
UnknownText_0x8b247: ; 0x8b247
; Only three #MON may be entered.
text_jump UnknownText_0x1c59c3
db "@"
; 0x8b24c
UnknownText_0x8b24c: ; 0x8b24c
; The @ #MON must all be different kinds.
text_jump UnknownText_0x1c59e5
db "@"
; 0x8b251
UnknownText_0x8b251: ; 0x8b251
; The @ #MON must not hold the same items.
text_jump UnknownText_0x1c5a13
db "@"
; 0x8b256
UnknownText_0x8b256: ; 0x8b256
; You can't take an EGG!
text_jump UnknownText_0x1c5a42
db "@"
; 0x8b25b
Function8b25b: ; 8b25b
ld bc, $0000
.asm_8b25e
call Function8b26c
call c, Function8b28e
call Function8b276
jr nz, .asm_8b25e
ld a, b
and a
ret
; 8b26c
Function8b26c: ; 8b26c
push de
push bc
call Function8b27a
ld a, c
rst JumpTable
pop bc
pop de
ret
; 8b276
Function8b276: ; 8b276
inc c
ld a, [de]
cp c
ret
; 8b27a
Function8b27a: ; 8b27a
inc de
ld a, [de]
ld l, a
inc de
ld a, [de]
ld h, a
ret
; 8b281
Function8b281: ; 8b281
rept 3
inc de
endr
ld a, [de]
ld l, a
inc de
ld a, [de]
ld h, a
ret
; 8b28a
Function8b28a: ; 8b28a
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 8b28e
Function8b28e: ; 8b28e
push de
push bc
ld a, b
and a
call z, Function8b29d
pop bc
call Function8b2a9
ld b, $1
pop de
ret
; 8b29d
Function8b29d: ; 8b29d
push de
call Function8b281
call Function8b28a
call PrintText
pop de
ret
; 8b2a9
Function8b2a9: ; 8b2a9
push bc
call Function8b281
rept 2
inc hl
endr
ld b, $0
rept 2
add hl, bc
endr
call Function8b28a
call PrintText
pop bc
ret
; 8b2bb
Function8b2bb: ; 8b2bb
ld a, [PartyCount]
cp 3
ret
; 8b2c1
Function8b2c1: ; 8b2c1
ld hl, PartyCount
ld a, [hli]
ld b, $0
ld c, a
.asm_8b2c8
ld a, [hli]
cp EGG
jr z, .asm_8b2ce
inc b
.asm_8b2ce
dec c
jr nz, .asm_8b2c8
ld a, [PartyCount]
cp b
ret z
ld a, b
cp 3
ret
; 8b2da
Function8b2da: ; 8b2da
ld a, [PartyCount]
cp 3
ret z
scf
ret
; 8b2e2
Function8b2e2: ; 8b2e2
ld hl, PartyMon1Species
call Function8b2e9
ret
; 8b2e9
Function8b2e9: ; 8b2e9
ld de, PartyCount
ld a, [de]
inc de
dec a
jr z, .asm_8b314
ld b, a
.asm_8b2f2
push hl
push de
ld c, b
call Function8b322
jr z, .asm_8b30c
ld a, [hl]
and a
jr z, .asm_8b30c
.asm_8b2fe
call Function8b31a
call Function8b322
jr z, .asm_8b309
cp [hl]
jr z, .asm_8b316
.asm_8b309
dec c
jr nz, .asm_8b2fe
.asm_8b30c
pop de
pop hl
call Function8b31a
dec b
jr nz, .asm_8b2f2
.asm_8b314
and a
ret
.asm_8b316
pop de
pop hl
scf
ret
; 8b31a
Function8b31a: ; 8b31a
push bc
ld bc, PartyMon2 - PartyMon1
add hl, bc
inc de
pop bc
ret
; 8b322
Function8b322: ; 8b322
push bc
ld b, a
ld a, [de]
cp EGG
ld a, b
pop bc
ret
; 8b32a
Function8b32a: ; 8b32a
ld hl, PartyMon1Item
call Function8b2e9
ret
; 8b331
Function8b331: ; 8b331
ld hl, PartyCount
ld a, [hli]
ld c, a
.asm_8b336
ld a, [hli]
cp EGG
jr z, .asm_8b340
dec c
jr nz, .asm_8b336
and a
ret
.asm_8b340
scf
ret
; 8b342
Function8b342:: ; 8b342
call GetSecondaryMapHeaderPointer
ld d, h
ld e, l
xor a
.asm_8b348
push af
ld hl, Jumptable_8b354
rst JumpTable
pop af
inc a
cp 3
jr nz, .asm_8b348
ret
; 8b354
Jumptable_8b354: ; 8b354
dw Function8b35a
dw Function8b35b
dw Function8b35c
; 8b35a
Function8b35a: ; 8b35a
ret
; 8b35b
Function8b35b: ; 8b35b
ret
; 8b35c
Function8b35c: ; 8b35c
ret
; 8b35d
Function8b35d: ; 8b35d
ld a, h
cp d
ret nz
ld a, l
cp e
ret
; 8b363
Function8b363: ; 8b363
push bc
callba Function10632f
pop bc
ret
; 8b36c
Function8b36c: ; 8b36c (22:736c)
push bc
ld h, b
ld l, c
ld bc, $4
ld a, $ff
call ByteFill
pop bc
ret
Function8b379: ; 8b379 (22:7379)
push bc
ld a, c
add e
ld c, a
ld a, $0
adc b
ld b, a
ld a, [bc]
ld d, a
pop bc
ret
Function8b385: ; 8b385 (22:7385)
push bc
ld a, c
add e
ld c, a
ld a, $0
adc b
ld b, a
ld a, d
ld [bc], a
pop bc
ret
Function8b391: ; 8b391 (22:7391)
push bc
ld e, $0
ld d, $4
.asm_8b396
ld a, [bc]
inc bc
cp $ff
jr z, .asm_8b3a2
inc e
dec d
jr nz, .asm_8b396
dec e
scf
.asm_8b3a2
pop bc
ret
Function8b3a4: ; 8b3a4 (22:73a4)
push de
push bc
ld d, b
ld e, c
ld c, $4
call Function89185
pop bc
pop de
ret
Function8b3b0: ; 8b3b0 (22:73b0)
ld bc, $a037
ld a, [$a60b]
and a
jr z, .asm_8b3c2
cp $3
jr nc, .asm_8b3c2
call Function8b391
jr c, .asm_8b3c9
.asm_8b3c2
call Function8b36c
xor a
ld [$a60b], a
.asm_8b3c9
ld a, [$a60b]
ret
Function8b3cd: ; 8b3cd (22:73cd)
push de
push bc
ld e, $4
.asm_8b3d1
ld a, [bc]
inc bc
call Function8998b
inc hl
dec e
jr nz, .asm_8b3d1
pop bc
pop de
ret
Function8b3dd: ; 8b3dd (22:73dd)
push de
push bc
call Function354b
ld a, c
pop bc
pop de
bit 0, a
jr nz, .asm_8b3f7
bit 1, a
jr nz, .asm_8b40e
bit 6, a
jr nz, .asm_8b429
bit 7, a
jr nz, .asm_8b443
and a
ret
.asm_8b3f7
ld a, e
cp $3
jr z, .asm_8b407
inc e
ld d, $0
call Function8b385
xor a
ld [wd010], a
ret
.asm_8b407
call PlayClickSFX
ld d, $0
scf
ret
.asm_8b40e
ld a, e
and a
jr nz, .asm_8b41e
call PlayClickSFX
ld d, $ff
call Function8b385
ld d, $1
scf
ret
.asm_8b41e
ld d, $ff
call Function8b385
dec e
xor a
ld [wd010], a
ret
.asm_8b429
call Function8b379
ld a, d
cp $a
jr c, .asm_8b433
ld d, $9
.asm_8b433
inc d
ld a, d
cp $a
jr c, .asm_8b43b
ld d, $0
.asm_8b43b
call Function8b385
xor a
ld [wd010], a
ret
.asm_8b443
call Function8b379
ld a, d
cp $a
jr c, .asm_8b44d
ld d, $0
.asm_8b44d
ld a, d
dec d
and a
jr nz, .asm_8b454
ld d, $9
.asm_8b454
call Function8b385
xor a
ld [wd010], a
ret
Function8b45c: ; 8b45c (22:745c)
call Function8b36c
xor a
ld [wd010], a
ld [wd012], a
call Function8b391
ld d, $0
call Function8b385
.asm_8b46e
call Function8923c
call Function8b493
call Function8b4cc
call Function8b518
call Function89b78
push bc
call Function8b4fd
call Function89c44
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
pop bc
call Function8b3dd
jr nc, .asm_8b46e
ld a, d
and a
ret z
scf
ret
Function8b493: ; 8b493 (22:7493)
push bc
call Function8923c
call Function8b521
ld hl, Jumptable_8b4a0
pop bc
rst JumpTable
ret
Jumptable_8b4a0: ; 8b4a0 (22:74a0)
dw Function8b4a4
dw Function8b4b8
Function8b4a4: ; 8b4a4 (22:74a4)
push bc
push de
call Function8b4d8
call TextBox
pop de
pop bc
call Function8b4cc
call Function8b518
call Function8b3cd
ret
Function8b4b8: ; 8b4b8 (22:74b8)
push bc
push de
call Function8b4ea
call Function89b3b
pop de
pop bc
call Function8b4cc
call Function8b518
call Function8b3cd
ret
Function8b4cc: ; 8b4cc (22:74cc)
push bc
ld hl, Unknown_8b529
call Function8b50a
ld a, [hli]
ld h, [hl]
ld l, a
pop bc
ret
Function8b4d8: ; 8b4d8 (22:74d8)
ld hl, Unknown_8b529
call Function8b50a
push hl
rept 2
inc hl
endr
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
pop hl
ld a, [hli]
ld h, [hl]
ld l, a
ret
Function8b4ea: ; 8b4ea (22:74ea)
ld hl, Unknown_8b529
call Function8b50a
push hl
rept 2
inc hl
endr
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
pop hl
ld a, [hli]
ld e, a
ld a, [hl]
ld d, a
ret
Function8b4fd: ; 8b4fd (22:74fd)
ld hl, Unknown_8b529 + 4
call Function8b50a
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
ld a, [hli]
ld d, a
ret
Function8b50a: ; 8b50a (22:750a)
ld a, [wd02e]
and a
ret z
ld b, $0
ld c, $8
.asm_8b513
add hl, bc
dec a
jr nz, .asm_8b513
ret
Function8b518: ; 8b518 (22:7518)
push de
ld d, $0
ld e, $14
add hl, de
inc hl
pop de
ret
Function8b521: ; 8b521 (22:7521)
ld hl, Unknown_8b529 + 7
call Function8b50a
ld a, [hl]
ret
; 8b529 (22:7529)
Unknown_8b529: ; 8b529
dwcoord 2, 5
db 1, 4, $20, $49, 0, 1
dwcoord 7, 4
db 1, 4, $48, $41, 0, 0
; 8b539
Function8b539: ; 8b539 (22:7539)
ld bc, wd017
call Function8b36c
xor a
ld [wd012], a
ld [wd02e], a
call Function8b493
call Function8b4fd
ld e, $0
call Function89c44
call Function3238
ret
Function8b555: ; 8b555 (22:7555)
ld hl, UnknownText_0x8b5ce
call PrintText
ld bc, wd017
call Function8b45c
jr c, .asm_8b5c8
call Function89448
ld bc, wd017
call Function8b493
ld bc, wd017
call Function8b664
jr nz, .asm_8b57c
ld hl, UnknownText_0x8b5e2
call PrintText
jr Function8b555
.asm_8b57c
ld hl, UnknownText_0x8b5d3
call PrintText
ld bc, wd013
call Function8b45c
jr c, Function8b555
ld bc, wd017
ld hl, wd013
call Function8b3a4
jr z, .asm_8b5a6
call Function89448
ld bc, wd013
call Function8b493
ld hl, UnknownText_0x8b5d8
call PrintText
jr .asm_8b57c
.asm_8b5a6
call Function89160
ld hl, wd013
ld de, $a037
ld bc, $4
call CopyBytes
call CloseSRAM
call Function89448
ld bc, wd013
call Function8b493
ld hl, UnknownText_0x8b5dd
call PrintText
and a
.asm_8b5c8
push af
call Function89448
pop af
ret
; 8b5ce (22:75ce)
UnknownText_0x8b5ce: ; 0x8b5ce
; Please enter any four-digit number.
text_jump UnknownText_0x1bc187
db "@"
; 0x8b5d3
UnknownText_0x8b5d3: ; 0x8b5d3
; Enter the same number to confirm.
text_jump UnknownText_0x1bc1ac
db "@"
; 0x8b5d8
UnknownText_0x8b5d8: ; 0x8b5d8
; That's not the same number.
text_jump UnknownText_0x1bc1cf
db "@"
; 0x8b5dd
UnknownText_0x8b5dd: ; 0x8b5dd
; Your PASSCODE has been set. Enter this number next time to open the CARD FOLDER.
text_jump UnknownText_0x1bc1eb
db "@"
; 0x8b5e2
UnknownText_0x8b5e2: ; 0x8b5e2
; 0000 is invalid!
text_jump UnknownText_0x1bc23e
db "@"
; 0x8b5e7
Function8b5e7: ; 8b5e7 (22:75e7)
ld bc, wd013
call Function8b36c
xor a
ld [wd012], a
ld [wd02e], a
call Function8b493
call Function891ab
call Function8b4fd
ld e, $0
call Function89c44
.asm_8b602
ld hl, UnknownText_0x8b642
call PrintText
ld bc, wd013
call Function8b45c
jr c, .asm_8b63c
call Function89448
ld bc, wd013
call Function8b493
call Function89160
ld hl, $a037
call Function8b3a4
call CloseSRAM
jr z, .asm_8b635
ld hl, UnknownText_0x8b647
call PrintText
ld bc, wd013
call Function8b36c
jr .asm_8b602
.asm_8b635
ld hl, UnknownText_0x8b64c
call PrintText
and a
.asm_8b63c
push af
call Function89448
pop af
ret
; 8b642 (22:7642)
UnknownText_0x8b642: ; 0x8b642
; Enter the CARD FOLDER PASSCODE.
text_jump UnknownText_0x1bc251
db "@"
; 0x8b647
UnknownText_0x8b647: ; 0x8b647
; Incorrect PASSCODE!
text_jump UnknownText_0x1bc272
db "@"
; 0x8b64c
UnknownText_0x8b64c: ; 0x8b64c
; CARD FOLDER open.@ @
text_jump UnknownText_0x1bc288
start_asm
; 0x8b651
Function8b651: ; 8b651
ld de, SFX_TWINKLE
call PlaySFX
call WaitSFX
ld c, $8
call DelayFrames
ld hl, .string_8b663
ret
.string_8b663
db "@"
; 8b664
Function8b664: ; 8b664 (22:7664)
push bc
ld de, $4
.asm_8b668
ld a, [bc]
cp $0
jr nz, .asm_8b66e
inc d
.asm_8b66e
inc bc
dec e
jr nz, .asm_8b668
pop bc
ld a, d
cp $4
ret
Function8b677: ; 8b677
call WhiteBGMap
call DisableLCD
call Function8b690
call Function8b6bb
call Function8b6ed
call EnableLCD
call Function891ab
call Function32f9
ret
; 8b690
Function8b690: ; 8b690
ld hl, GFX_17afa5 + $514
ld de, VTiles2
ld bc, $160
ld a, BANK(GFX_17afa5)
call FarCopyBytes
ld hl, GFX_17afa5 + $514 + $160 - $10
ld de, $9610
ld bc, $10
ld a, BANK(GFX_17afa5)
call FarCopyBytes
ld hl, GFX_17afa5 + $514 + $160
ld de, $8ee0
ld bc, $10
ld a, BANK(GFX_17afa5)
call FarCopyBytes
ret
; 8b6bb
Function8b6bb: ; 8b6bb
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Palette_8b6d5
ld de, Unkn1Pals
ld bc, $0018
call CopyBytes
pop af
ld [rSVBK], a
call Function8949c
ret
; 8b6d5
Palette_8b6d5: ; 8b6d5
RGB 31, 31, 31
RGB 31, 21, 00
RGB 14, 07, 03
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 21, 00
RGB 22, 09, 17
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 21, 00
RGB 06, 24, 08
RGB 00, 00, 00
; 8b6ed
Function8b6ed: ; 8b6ed
hlcoord 0, 0, AttrMap
ld bc, $012c
xor a
call ByteFill
hlcoord 0, 14, AttrMap
ld bc, $0050
ld a, $7
call ByteFill
ret
; 8b703
Function8b703: ; 8b703
call Function8923c
push hl
ld a, $c
ld [hli], a
inc a
call Function8b73e
inc a
ld [hl], a
pop hl
push hl
push bc
ld de, SCREEN_WIDTH
add hl, de
.asm_8b717
push hl
ld a, $f
ld [hli], a
ld a, $7f
call Function8b73e
ld a, $11
ld [hl], a
pop hl
ld de, SCREEN_WIDTH
add hl, de
dec b
jr nz, .asm_8b717
call Function8b732
pop bc
pop hl
jr Function8b744
; 8b732
Function8b732: ; 8b732
ld a, $12
ld [hli], a
ld a, $13
call Function8b73e
ld a, $14
ld [hl], a
ret
; 8b73e
Function8b73e: ; 8b73e
ld d, c
.asm_8b73f
ld [hli], a
dec d
jr nz, .asm_8b73f
ret
; 8b744
Function8b744: ; 8b744
ld de, AttrMap - TileMap
add hl, de
rept 2
inc b
endr
rept 2
inc c
endr
xor a
.asm_8b74d
push bc
push hl
.asm_8b74f
ld [hli], a
dec c
jr nz, .asm_8b74f
pop hl
ld de, SCREEN_WIDTH
add hl, de
pop bc
dec b
jr nz, .asm_8b74d
ret
; 8b75d
Function8b75d: ; 8b75d
call Function8923c
hlcoord 0, 0
ld a, $1
ld bc, SCREEN_WIDTH
call ByteFill
hlcoord 0, 1
ld a, $2
ld [hl], a
hlcoord 9, 1
ld c, $b
call Function8b788
hlcoord 1, 1
ld a, $4
ld e, $8
.asm_8b780
ld [hli], a
inc a
dec e
jr nz, .asm_8b780
jr Function8b79e
; 8b787
Function8b787: ; 8b787
ret
; 8b788
Function8b788: ; 8b788
.asm_8b788
ld a, $2
ld [hli], a
dec c
ret z
ld a, $1
ld [hli], a
dec c
ret z
ld a, $3
ld [hli], a
dec c
ret z
ld a, $1
ld [hli], a
dec c
jr nz, .asm_8b788
ret
; 8b79e
Function8b79e: ; 8b79e
hlcoord 0, 1, AttrMap
ld a, $1
ld [hli], a
hlcoord 9, 1, AttrMap
ld e, $b
.asm_8b7a9
ld a, $2
ld [hli], a
dec e
ret z
xor a
ld [hli], a
dec e
ret z
ld a, $1
ld [hli], a
dec e
ret z
xor a
ld [hli], a
dec e
jr nz, .asm_8b7a9
ret
; 8b7bd
Function8b7bd: ; 8b7bd
call Function8b855
ld hl, MenuDataHeader_0x8b867
call CopyMenuDataHeader
ld a, [wd030]
ld [wcf88], a
ld a, [wd031]
ld [wd0e4], a
ld a, [wd032]
and a
jr z, .asm_8b7e0
ld a, [wcf81]
set 3, a
ld [wcf81], a
.asm_8b7e0
ld a, [wd0e3]
and a
jr z, .asm_8b7ea
dec a
ld [wcf77], a
.asm_8b7ea
hlcoord 0, 2
ld b, $b
ld c, $12
call Function8b703
call Function8b75d
call DrawOnMap
call Function89209
call Function350c
call Function8920f
ld a, [wcf73]
cp $2
jr z, .asm_8b823
cp $20
jr nz, .asm_8b813
call Function8b832
jr .asm_8b7ea
.asm_8b813
cp $10
jr nz, .asm_8b81c
call Function8b83e
jr .asm_8b7ea
.asm_8b81c
ld a, [MenuSelection]
cp $ff
jr nz, .asm_8b824
.asm_8b823
xor a
.asm_8b824
ld c, a
ld a, [wcfa9]
ld [wd030], a
ld a, [wd0e4]
ld [wd031], a
ret
; 8b832
Function8b832: ; 8b832
ld a, [wd0e4]
ld hl, wcf92
sub [hl]
jr nc, Function8b84b
xor a
jr Function8b84b
; 8b83e
Function8b83e: ; 8b83e
ld a, [wd0e4]
ld hl, wcf92
add [hl]
cp $24
jr c, Function8b84b
ld a, $24
Function8b84b: ; 8b84b
ld [wd0e4], a
ld a, [wcfa9]
ld [wcf88], a
ret
; 8b855
Function8b855: ; 8b855
ld a, $28
ld hl, DefaultFlypoint
ld [hli], a
ld c, $28
xor a
.asm_8b85e
inc a
ld [hli], a
dec c
jr nz, .asm_8b85e
ld a, $ff
ld [hl], a
ret
; 8b867
MenuDataHeader_0x8b867: ; 0x8b867
db $40 ; flags
db 03, 01 ; start coords
db 13, 18 ; end coords
dw MenuData2_0x8b870
db 1 ; default option
; 0x8b86f
db 0
MenuData2_0x8b870: ; 0x8b870
db $3c ; flags
db 5 ; items
db 3, 1
dbw 0, wd002
dbw BANK(Function8b880), Function8b880
dbw BANK(Function8b88c), Function8b88c
dbw BANK(Function8b8c8), Function8b8c8
; 8b880
Function8b880: ; 8b880
ld h, d
ld l, e
ld de, MenuSelection
ld bc, $8102
call PrintNum
ret
; 8b88c
Function8b88c: ; 8b88c
call Function89160
ld h, d
ld l, e
push hl
ld de, String_89116
call Function8931b
call Function8932d
jr c, .asm_8b8a3
ld hl, $0000
add hl, bc
ld d, h
ld e, l
.asm_8b8a3
pop hl
push hl
call PlaceString
pop hl
ld d, $0
ld e, $6
add hl, de
push hl
ld de, String_89116
call Function8931b
call Function8934a
jr c, .asm_8b8c0
ld hl, $0006
add hl, bc
ld d, h
ld e, l
.asm_8b8c0
pop hl
call PlaceString
call CloseSRAM
ret
; 8b8c8
Function8b8c8: ; 8b8c8
hlcoord 0, 14
ld b, $2
ld c, $12
call TextBox
ld a, [wd033]
ld b, 0
ld c, a
ld hl, Unknown_8b903
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld d, h
ld e, l
hlcoord 1, 16
call PlaceString
hlcoord 0, 13
ld a, $f
ld [hl], a
hlcoord 19, 13
ld a, $11
ld [hl], a
ld a, [wd0e4]
cp $24
ret c
hlcoord 0, 13
ld c, $12
call Function8b732
ret
; 8b903
Unknown_8b903: ; 8b903
dw String_8b90b
dw String_8b919
dw String_8b92a
dw String_8b938
String_8b90b: db "めいしを えらんでください@" ; Please select a noun.
String_8b919: db "どの めいしと いれかえますか?@" ; OK to swap with any noun?
String_8b92a: db "あいてを えらんでください@" ; Please select an opponent.
String_8b938: db "いれる ところを えらんでください@" ; Please select a location.
; 8b94a
Function8b94a: ; 8b94a
ld [wd033], a
xor a
ld [wd0e4], a
ld [wd032], a
ld [wd0e3], a
ld [wd031], a
ld a, $1
ld [wd030], a
ret
; 8b960
Function8b960: ; 8b960 (22:7960)
ld hl, MenuDataHeader_0x8b9ac
call LoadMenuDataHeader
call Function8b9e9
jr c, .asm_8b97a
hlcoord 11, 0
ld b, $6
ld c, $7
call Function8b703
ld hl, MenuDataHeader_0x8b9b1
jr .asm_8b987
.asm_8b97a
hlcoord 11, 0
ld b, $a
ld c, $7
call Function8b703
ld hl, MenuDataHeader_0x8b9ca
.asm_8b987
ld a, $1
call Function89d5e
ld hl, Function8b9ab
call Function89d85
call ExitMenu
jr c, .asm_8b99c
call Function8b99f
jr nz, .asm_8b99d
.asm_8b99c
xor a
.asm_8b99d
ld c, a
ret
Function8b99f: ; 8b99f (22:799f)
ld hl, DefaultFlypoint
dec a
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
cp $ff
ret
; 8b9ab (22:79ab)
Function8b9ab: ; 8b9ab
ret
; 8b9ac
MenuDataHeader_0x8b9ac: ; 0x8b9ac
db $40 ; flags
db 00, 11 ; start coords
db 11, 19 ; end coords
MenuDataHeader_0x8b9b1: ; 0x8b9b1
db $40 ; flags
db 00, 11 ; start coords
db 07, 19 ; end coords
dw MenuData2_0x8b9b9
db 1 ; default option
; 0x8b9b9
MenuData2_0x8b9b9: ; 0x8b9b9
db $a0 ; flags
db 3 ; items
db "へんしゅう@" ; EDIT
db "いれかえ@" ; REPLACE
db "やめる@" ; QUIT
; 0x8b9ca
MenuDataHeader_0x8b9ca: ; 0x8b9ca
db $40 ; flags
db 00, 11 ; start coords
db 11, 19 ; end coords
dw MenuData2_0x8b9d2
db 1 ; default option
; 0x8b9d2
MenuData2_0x8b9d2: ; 0x8b9d2
db $a0 ; flags
db 5 ; items
db "みる@" ; VIEW
db "へんしゅう@" ; EDIT
db "いれかえ@" ; REPLACE
db "けす@" ; ERASE
db "やめる@" ; QUIT
; 0x8b9e9
Function8b9e9: ; 8b9e9 (22:79e9)
call Function89160
call Function8931b
call Function8932d
jr nc, .asm_8b9f6
jr .asm_8b9ff
.asm_8b9f6
ld hl, $11
add hl, bc
call Function89b45
jr c, .asm_8ba08
.asm_8b9ff
call Function892b4
and a
ld de, Unknown_8ba1c
jr .asm_8ba0c
.asm_8ba08
ld de, Unknown_8ba1f
scf
.asm_8ba0c
push af
ld hl, DefaultFlypoint
.asm_8ba10
ld a, [de]
inc de
ld [hli], a
cp $ff
jr nz, .asm_8ba10
call CloseSRAM
pop af
ret
; 8ba1c (22:7a1c)
Unknown_8ba1c: ; 8b1ac
db 2, 4, -1
Unknown_8ba1f: ; 8ba1f
db 1, 2, 4, 3, -1
; 8ba24
SECTION "bank23", ROMX, BANK[$23]
Function8c000: ; 8c000
Function8c000_2:
ret
; 8c001
Function8c001:: ; 8c001
call UpdateTime
ld a, [TimeOfDay]
ld [CurTimeOfDay], a
call GetTimePalette
ld [TimeOfDayPal], a
ret
; 8c011
_TimeOfDayPals:: ; 8c011
; return carry if pals are changed
; forced pals?
ld hl, wd846
bit 7, [hl]
jr nz, .dontchange
; do we need to bother updating?
ld a, [TimeOfDay]
ld hl, CurTimeOfDay
cp [hl]
jr z, .dontchange
; if so, the time of day has changed
ld a, [TimeOfDay]
ld [CurTimeOfDay], a
; get palette id
call GetTimePalette
; same palette as before?
ld hl, TimeOfDayPal
cp [hl]
jr z, .dontchange
; update palette id
ld [TimeOfDayPal], a
; save bg palette 8
ld hl, Unkn1Pals + 8 * 7 ; Unkn1Pals + 7 pals
; save wram bank
ld a, [rSVBK]
ld b, a
; wram bank 5
ld a, 5
ld [rSVBK], a
; push palette
ld c, 4 ; NUM_PAL_COLORS
.push
ld d, [hl]
inc hl
ld e, [hl]
inc hl
push de
dec c
jr nz, .push
; restore wram bank
ld a, b
ld [rSVBK], a
; update sgb pals
ld b, $9
call GetSGBLayout
; restore bg palette 8
ld hl, wd03f ; last byte in Unkn1Pals
; save wram bank
ld a, [rSVBK]
ld d, a
; wram bank 5
ld a, 5
ld [rSVBK], a
; pop palette
ld e, 4 ; NUM_PAL_COLORS
.pop
pop bc
ld [hl], c
dec hl
ld [hl], b
dec hl
dec e
jr nz, .pop
; restore wram bank
ld a, d
ld [rSVBK], a
; update palettes
call _UpdateTimePals
call DelayFrame
; successful change
scf
ret
.dontchange
; no change occurred
and a
ret
; 8c070
_UpdateTimePals:: ; 8c070
ld c, $9 ; normal
call GetTimePalFade
call DmgToCgbTimePals
ret
; 8c079
FadeInBGMap:: ; 8c079
ld c, $12
call GetTimePalFade
ld b, $4
call Function8c16d
ret
; 8c084
FadeBlackBGMap:: ; 8c084
call Function8c0c1
ld c, $9
call GetTimePalFade
ld b, $4
call Function8c15e
ret
; 8c092
Special_BattleTowerFade: ; 8c092
call Function8c0c1
ld c, $9
call GetTimePalFade
ld b, $4
.asm_8c09c
call DmgToCgbTimePals
rept 3
inc hl
endr
ld c, $7
call DelayFrames
dec b
jr nz, .asm_8c09c
ret
; 8c0ab
Special_FadeInQuickly: ; 8c0ab
ld c, $0
call GetTimePalFade
ld b, $4
call Function8c15e
ret
; 8c0b6
Special_FadeBlackQuickly: ; 8c0b6
ld c, $9
call GetTimePalFade
ld b, $4
call Function8c16d
ret
; 8c0c1
Function8c0c1: ; 8c0c1
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Unkn1Pals
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld hl, Unkn1Pals + 8
ld c, $6
.asm_8c0d4
ld a, e
ld [hli], a
ld a, d
ld [hli], a
rept 6
inc hl
endr
dec c
jr nz, .asm_8c0d4
pop af
ld [rSVBK], a
ret
; 8c0e5
Function8c0e5: ; 8c0e5
ld hl, Unknown_8c10f
ld a, [wc2d0]
cp $4
jr z, .asm_8c0fc
and $7
add l
ld l, a
ld a, $0
adc h
ld h, a
ld a, [hl]
ld [wd847], a
ret
.asm_8c0fc
ld a, [StatusFlags]
bit 2, a
jr nz, .asm_8c109
ld a, $ff
ld [wd847], a
ret
.asm_8c109
ld a, $aa
ld [wd847], a
ret
; 8c10f (23:410f)
Unknown_8c10f: ; 8c10f
db $e4 ; 3210
db $55 ; 1111
db $aa ; 2222
db $00 ; 0000
db $ff ; 3333
db $e4 ; 3210
db $e4 ; 3210
db $e4 ; 3210
; 8c117
GetTimePalette: ; 8c117
ld a, [TimeOfDay]
ld e, a
ld d, 0
ld hl, .TimePalettes
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 8c126
.TimePalettes
dw .MorningPalette
dw .DayPalette
dw .NitePalette
dw .DarknessPalette
.MorningPalette
ld a, [wd847]
and %00000011 ; 0
ret
.DayPalette
ld a, [wd847]
and %00001100 ; 1
srl a
srl a
ret
.NitePalette
ld a, [wd847]
and %00110000 ; 2
swap a
ret
.DarknessPalette
ld a, [wd847]
and %11000000 ; 3
rlca
rlca
ret
; 8c14e
DmgToCgbTimePals: ; 8c14e
push hl
push de
ld a, [hli]
call DmgToCgbBGPals
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
call DmgToCgbObjPals
pop de
pop hl
ret
; 8c15e
Function8c15e: ; 8c15e
.asm_8c15e
call DmgToCgbTimePals
rept 3
inc hl
endr
ld c, $2
call DelayFrames
dec b
jr nz, .asm_8c15e
ret
; 8c16d
Function8c16d: ; 8c16d
.asm_8c16d
call DmgToCgbTimePals
rept 3
dec hl
endr
ld c, $2
call DelayFrames
dec b
jr nz, .asm_8c16d
ret
; 8c17c
GetTimePalFade: ; 8c17c
; check cgb
ld a, [hCGB]
and a
jr nz, .cgb
; else: dmg
; index
ld a, [TimeOfDayPal]
and %11
; get fade table
push bc
ld c, a
ld b, $0
ld hl, .dmgfades
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
pop bc
; get place in fade table
ld b, $0
add hl, bc
ret
.cgb
ld hl, .cgbfade
ld b, $0
add hl, bc
ret
.dmgfades
dw .morn
dw .day
dw .nite
dw .darkness
.morn
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11100100, %11100100
db %11100100, %11010000, %11010000
db %10010000, %10000000, %10000000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
.day
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11100100, %11100100
db %11100100, %11010000, %11010000
db %10010000, %10000000, %10000000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
.nite
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11100100, %11100100
db %11101001, %11010000, %11010000
db %10010000, %10000000, %10000000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
.darkness
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111111
db %11111110, %11100100, %11111111
db %11111101, %11010000, %11111111
db %11111101, %10000000, %11111111
db %00000000, %01000000, %00000000
db %00000000, %00000000, %00000000
.cgbfade
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11111001, %11111001
db %11100100, %11100100, %11100100
db %10010000, %10010000, %10010000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
; 8c20f
Function8c20f: ; 8c20f
call Function8c26d
ld a, [rBGP]
ld [wcfc7], a
ld a, [rOBP0]
ld [wcfc8], a
ld a, [rOBP1]
ld [wcfc9], a
call DelayFrame
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $1
.asm_8c22b
ld a, [wcf63]
bit 7, a
jr nz, .asm_8c23a
call Function8c314
call DelayFrame
jr .asm_8c22b
.asm_8c23a
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Unkn1Pals
ld bc, $0040
xor a
call ByteFill
pop af
ld [rSVBK], a
ld a, $ff
ld [wcfc7], a
call DmgToCgbBGPals
call DelayFrame
xor a
ld [hLCDStatCustom], a
ld [$ffc7], a
ld [$ffc8], a
ld [hSCY], a
ld a, $1
ld [rSVBK], a
pop af
ld [hVBlank], a
call DelayFrame
ret
; 8c26d
Function8c26d: ; 8c26d
ld a, [InLinkBattle]
cp $4
jr z, .asm_8c288
callba Function6454
call DrawOnMap
call DelayFrame
call Function8c2a0
call Function8cf4f
jr .asm_8c28b
.asm_8c288
call Function8c2aa
.asm_8c28b
ld a, $90
ld [hWY], a
call DelayFrame
xor a
ld [hBGMapMode], a
ld hl, wcf63
xor a
rept 2
ld [hli], a
endr
ld [hl], a
call Function8c6d8
ret
; 8c2a0
Function8c2a0: ; 8c2a0
call Function8c2aa
ld hl, VBGMap0
call Function8c2cf
ret
; 8c2aa
Function8c2aa: ; 8c2aa
ld de, GFX_8c2f4
ld hl, $8fe0
ld b, BANK(GFX_8c2f4)
ld c, 2
call Request2bpp
ld a, [rVBK]
push af
ld a, $1
ld [rVBK], a
ld de, GFX_8c2f4
ld hl, $8fe0
ld b, BANK(GFX_8c2f4)
ld c, 2
call Request2bpp
pop af
ld [rVBK], a
ret
; 8c2cf
Function8c2cf: ; 8c2cf
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push hl
ld hl, w6_d000
ld bc, $28 * $10
.asm_8c2dd
ld [hl], $ff
inc hl
dec bc
ld a, c
or b
jr nz, .asm_8c2dd
pop hl
ld de, w6_d000
ld b, BANK(Function8c2cf) ; BANK(@)
ld c, $28
call Request2bpp
pop af
ld [rSVBK], a
ret
; 8c2f4
GFX_8c2f4: ; 8c2f4
INCBIN "gfx/unknown/08c2f4.2bpp"
Function8c314: ; 8c314
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_8c323
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 8c323
Jumptable_8c323: ; 8c323 (23:4323)
dw Function8c365
dw Function8c5dc
dw Function8c3a1
dw Function8c3ab
dw Function8c3ab
dw Function8c3ab
dw Function8c39c
dw Function8c3e8
dw Function8c408
dw Function8c5dc
dw Function8c3a1
dw Function8c3ab
dw Function8c3ab
dw Function8c3ab
dw Function8c39c
dw Function8c768
dw Function8c5dc
dw Function8c3a1
dw Function8c3ab
dw Function8c3ab
dw Function8c3ab
dw Function8c39c
dw Function8c43d
dw Function8c44f
dw Function8c5dc
dw Function8c3a1
dw Function8c3ab
dw Function8c3ab
dw Function8c3ab
dw Function8c39c
dw Function8c578
dw Function8c58f
dw Function8c393
Function8c365: ; 8c365 (23:4365)
ld de, 0
ld a, [BattleMonLevel]
add 3
ld hl, EnemyMonLevel
cp [hl]
jr nc, .asm_8c375
set 0, e
.asm_8c375
ld a, [wPermission]
cp $4
jr z, .asm_8c386
cp $5
jr z, .asm_8c386
cp $7
jr z, .asm_8c386
set 1, e
.asm_8c386
ld hl, Unknown_8c38f
add hl, de
ld a, [hl]
ld [wcf63], a
ret
; 8c38f (23:438f)
Unknown_8c38f: ; 8c38f
db 1, 9
db 16, 24
; 8c393
Function8c393: ; 8c393 (23:4393)
call ClearSprites
ld a, $80
ld [wcf63], a
ret
Function8c39c: ; 8c39c (23:439c)
ld hl, wcf63
inc [hl]
ret
Function8c3a1: ; 8c3a1 (23:43a1)
call Function8c39c
xor a
ld [wcf64], a
ld [hBGMapMode], a ; $ff00+$d4
ret
Function8c3ab: ; 8c3ab (23:43ab)
call Function8c3b3
ret nc
call Function8c39c
ret
Function8c3b3: ; 8c3b3 (23:43b3)
ld a, [wd847]
cp $ff
jr z, .asm_8c3d5
ld hl, wcf64
ld a, [hl]
inc [hl]
srl a
ld e, a
ld d, 0
ld hl, Unknown_8c3db
add hl, de
ld a, [hl]
cp $1
jr z, .asm_8c3d5
ld [wcfc7], a
call DmgToCgbBGPals
and a
ret
.asm_8c3d5
xor a
ld [wcf64], a
scf
ret
; 8c3db (23:43db)
Unknown_8c3db: ; 8c3db
db $f9 ; 3321
db $fe ; 3332
db $ff ; 3333
db $fe ; 3332
db $f9 ; 3321
db $e4 ; 3210
db $90 ; 2100
db $40 ; 1000
db $00 ; 0000
db $40 ; 1000
db $90 ; 2100
db $e4 ; 3210
db $01 ; 0001
; 8c3e8
Function8c3e8: ; 8c3e8 (23:43e8)
callba Function5602
ld a, $5
ld [rSVBK], a ; $ff00+$70
call Function8c39c
ld a, $43
ld [hLCDStatCustom], a ; $ff00+$c6
xor a
ld [$ffc7], a
ld a, $90
ld [$ffc8], a
xor a
ld [wcf64], a
ld [wcf65], a
ret
Function8c408: ; 8c408 (23:4408)
ld a, [wcf64]
cp $60
jr nc, .asm_8c413
call Function8c419
ret
.asm_8c413
ld a, $20
ld [wcf63], a
ret
Function8c419: ; 8c419 (23:4419)
ld hl, wcf65
ld a, [hl]
inc [hl]
ld hl, wcf64
ld d, [hl]
add [hl]
ld [hl], a
ld a, $90
ld bc, wd100
ld e, $0
.asm_8c42b
push af
push de
ld a, e
call Function8c6f7
ld [bc], a
inc bc
pop de
ld a, e
add $2
ld e, a
pop af
dec a
jr nz, .asm_8c42b
ret
Function8c43d: ; 8c43d (23:443d)
callba Function5602
ld a, $5
ld [rSVBK], a ; $ff00+$70
call Function8c39c
xor a
ld [wcf64], a
ret
Function8c44f: ; 8c44f (23:444f)
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, [wcf64]
ld e, a
ld d, 0
ld hl, Unknown_8c490
rept 5
add hl, de
endr
ld a, [hli]
cp -1
jr z, .asm_8c47a
ld [wcf65], a
call Function8c4f5
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
ld hl, wcf64
inc [hl]
ret
.asm_8c47a
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
call DelayFrame
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $20
ld [wcf63], a
ret
; 8c490 (23:4490)
Unknown_8c490: ; 8c490
macro_8c490: MACRO
db \1
dw \2
dw TileMap + SCREEN_WIDTH * \4 + \3
ENDM
macro_8c490 0, Unknown_8c538, 1, 6
macro_8c490 0, Unknown_8c53e, 0, 3
macro_8c490 0, Unknown_8c548, 1, 0
macro_8c490 0, Unknown_8c55a, 5, 0
macro_8c490 0, Unknown_8c568, 9, 0
macro_8c490 1, Unknown_8c568, 10, 0
macro_8c490 1, Unknown_8c55a, 14, 0
macro_8c490 1, Unknown_8c548, 18, 0
macro_8c490 1, Unknown_8c53e, 19, 3
macro_8c490 1, Unknown_8c538, 18, 6
macro_8c490 3, Unknown_8c538, 18, 11
macro_8c490 3, Unknown_8c53e, 19, 14
macro_8c490 3, Unknown_8c548, 18, 17
macro_8c490 3, Unknown_8c55a, 14, 17
macro_8c490 3, Unknown_8c568, 10, 17
macro_8c490 2, Unknown_8c568, 9, 17
macro_8c490 2, Unknown_8c55a, 5, 17
macro_8c490 2, Unknown_8c548, 1, 17
macro_8c490 2, Unknown_8c53e, 0, 14
macro_8c490 2, Unknown_8c538, 1, 11
db $ff
; 8c4f5
Function8c4f5: ; 8c4f5 (23:44f5)
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld h, [hl]
ld l, a
.asm_8c4fc
push hl
ld a, [de]
ld c, a
inc de
.asm_8c500
ld [hl], $ff
ld a, [wcf65]
bit 0, a
jr z, .asm_8c50c
inc hl
jr .asm_8c50d
.asm_8c50c
dec hl
.asm_8c50d
dec c
jr nz, .asm_8c500
pop hl
ld a, [wcf65]
bit 1, a
ld bc, $14
jr z, .asm_8c51e
ld bc, $ffec
.asm_8c51e
add hl, bc
ld a, [de]
inc de
cp $ff
ret z
and a
jr z, .asm_8c4fc
ld c, a
.asm_8c528
ld a, [wcf65]
bit 0, a
jr z, .asm_8c532
dec hl
jr .asm_8c533
.asm_8c532
inc hl
.asm_8c533
dec c
jr nz, .asm_8c528
jr .asm_8c4fc
; 8c538 (23:4538)
Unknown_8c538: db 2, 3, 5, 4, 9, $ff
Unknown_8c53e: db 1, 1, 2, 2, 4, 2, 4, 2, 3, $ff
Unknown_8c548: db 2, 1, 3, 1, 4, 1, 4, 1, 4, 1, 3, 1, 2, 1, 1, 1, 1, $ff
Unknown_8c55a: db 4, 1, 4, 0, 3, 1, 3, 0, 2, 1, 2, 0, 1, $ff
Unknown_8c568: db 4, 0, 3, 0, 3, 0, 2, 0, 2, 0, 1, 0, 1, 0, 1, $ff
; 8c578
Function8c578: ; 8c578 (23:4578)
callba Function5602
ld a, $5
ld [rSVBK], a ; $ff00+$70
call Function8c39c
ld a, $10
ld [wcf64], a
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
Function8c58f: ; 8c58f (23:458f)
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_8c5a2
dec [hl]
ld c, $c
.asm_8c599
push bc
call Function8c5b8
pop bc
dec c
jr nz, .asm_8c599
ret
.asm_8c5a2
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
call DelayFrame
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $20
ld [wcf63], a
ret
Function8c5b8: ; 8c5b8 (23:45b8)
call Random
cp $12
jr nc, Function8c5b8
ld b, a
.asm_8c5c0
call Random
cp $14
jr nc, .asm_8c5c0
ld c, a
ld hl, Sprites + $8c
ld de, $14
inc b
.asm_8c5cf
add hl, de
dec b
jr nz, .asm_8c5cf
add hl, bc
ld a, [hl]
cp $ff
jr z, Function8c5b8
ld [hl], $ff
ret
Function8c5dc: ; 8c5dc (23:45dc)
ld a, [OtherTrainerClass]
and a
jp z, Function8c673
xor a
ld [hBGMapMode], a ; $ff00+$d4
hlcoord 0, 0, AttrMap
ld bc, $168
inc b
inc c
jr .asm_8c5f4
.asm_8c5f0
ld a, [hl]
or $7
ld [hli], a
.asm_8c5f4
dec c
jr nz, .asm_8c5f0
dec b
jr nz, .asm_8c5f0
call Function8c6b1
hlcoord 2, 1
ld b, $10
.asm_8c602
push hl
ld c, $2
.asm_8c605
push hl
ld a, [de]
inc de
.asm_8c608
and a
jr z, .asm_8c614
sla a
jr nc, .asm_8c611
ld [hl], $fe
.asm_8c611
inc hl
jr .asm_8c608
.asm_8c614
pop hl
push bc
ld bc, $8
add hl, bc
pop bc
dec c
jr nz, .asm_8c605
pop hl
push bc
ld bc, $14
add hl, bc
pop bc
dec b
jr nz, .asm_8c602
ld a, [hCGB] ; $ff00+$e6
and a
jr nz, .asm_8c639
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
jr Function8c673
.asm_8c639
ld hl, Unknown_8c6a1
ld a, [TimeOfDayPal]
and 3
cp 3
jr nz, .asm_8c648
ld hl, Unknown_8c6a9
.asm_8c648
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
call Function8c677
push hl
ld de, Unkn1Pals + 8 * 7
ld bc, $8
call CopyBytes
pop hl
ld de, BGPals + 8 * 7
ld bc, $8
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
call DelayFrame
call Function8cf4f
Function8c673: ; 8c673 (23:4673)
call Function8c39c
ret
Function8c677: ; 8c677 (23:4677)
ld de, Unkn1Pals + 8 * 7
call Function8c698
ld de, BGPals + 8 * 7
call Function8c698
ld de, Unkn2Pals + 8 * 6
call Function8c698
ld de, OBPals + 8 * 6
call Function8c698
ld de, Unkn2Pals + 8 * 7
call Function8c698
ld de, OBPals + 8 * 7
Function8c698: ; 8c698 (23:4698)
push hl
ld bc, $8
call CopyBytes
pop hl
ret
; 8c6a1 (23:46a1)
Unknown_8c6a1: ; 8c6a1
RGB 31, 18, 29
RGB 31, 11, 15
RGB 31, 05, 05
RGB 07, 07, 07
; 8c6a9
Unknown_8c6a9: ; 8c6a9
RGB 31, 18, 29
RGB 31, 05, 05
RGB 31, 05, 05
RGB 31, 05, 05
Function8c6b1:
ld a, [OtherTrainerClass]
ld de, PokeBallTransition
ret
PokeBallTransition:
db %00000011,%11000000
db %00001111,%11110000
db %00111100,%00111100
db %00110000,%00001100
db %01100000,%00000110
db %01100011,%11000110
db %11000110,%01100011
db %11111100,%00111111
db %11111100,%00111111
db %11000110,%01100011
db %01100011,%11000110
db %01100000,%00000110
db %00110000,%00001100
db %00111100,%00111100
db %00001111,%11110000
db %00000011,%11000000
Function8c6d8: ; 8c6d8
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, LYOverrides
call Function8c6ef
ld hl, LYOverridesBackup
call Function8c6ef
pop af
ld [rSVBK], a
ret
; 8c6ef
Function8c6ef: ; 8c6ef
xor a
ld c, $90
.asm_8c6f2
ld [hli], a
dec c
jr nz, .asm_8c6f2
ret
; 8c6f7
Function8c6f7: ; 8c6f7 (23:46f7)
and $3f
cp $20
jr nc, .asm_8c702
call Function8c70c
ld a, h
ret
.asm_8c702
and $1f
call Function8c70c
ld a, h
xor $ff
inc a
ret
Function8c70c: ; 8c70c (23:470c)
ld e, a
ld a, d
ld d, 0
ld hl, Unknown_8c728
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld hl, 0
.asm_8c71b
srl a
jr nc, .asm_8c720
add hl, de
.asm_8c720
sla e
rl d
and a
jr nz, .asm_8c71b
ret
; 8c728 (23:4728)
Unknown_8c728: ; 8c728
sine_wave $100
; 8c768
Function8c768: ; 8c768 (23:4768)
callba Function5602
ld de, Unknown_8c792
.asm_8c771
ld a, [de]
cp $ff
jr z, .asm_8c78c
inc de
ld c, a
ld a, [de]
inc de
ld b, a
ld a, [de]
inc de
ld l, a
ld a, [de]
inc de
ld h, a
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function8c7b7
call WaitBGMap
jr .asm_8c771
.asm_8c78c
ld a, $20
ld [wcf63], a
ret
; 8c792 (23:4792)
Unknown_8c792: ; 8c792
macro_8c792: macro
db \1, \2
dwcoord \3, \4
endm
macro_8c792 4, 2, 8, 8
macro_8c792 6, 4, 7, 7
macro_8c792 8, 6, 6, 6
macro_8c792 10, 8, 5, 5
macro_8c792 12, 10, 4, 4
macro_8c792 14, 12, 3, 3
macro_8c792 16, 14, 2, 2
macro_8c792 18, 16, 1, 1
macro_8c792 20, 18, 0, 0
db $ff
; 8c7b7
Function8c7b7: ; 8c7b7 (23:47b7)
ld a, $ff
.asm_8c7b9
push bc
push hl
.asm_8c7bb
ld [hli], a
dec c
jr nz, .asm_8c7bb
pop hl
ld bc, $14
add hl, bc
pop bc
dec b
jr nz, .asm_8c7b9
ret
; 8c7c9 (23:47c9)
Function8c7c9: ; 8c7c9
ld a, $1
ld [hBGMapMode], a
call WaitBGMap
xor a
ld [hBGMapMode], a
ret
; 8c7d4
Function8c7d4: ; 8c7d4
call WaitSFX
ld de, SFX_SURF
call PlaySFX
call WaitSFX
ret
; 8c7e1
BlindingFlash: ; 8c7e1
callba FadeBlackBGMap
ld hl, StatusFlags
set 2, [hl]
callba Function8c0e5
callba Function8c001
ld b, $9
call GetSGBLayout
callba Function49409
callba FadeInBGMap
ret
; 8c80a
ShakeHeadbuttTree: ; 8c80a
callba Function8cf53
ld de, GFX_8c9cc
ld hl, VTiles1
lb bc, BANK(GFX_8c9cc), 4
call Request2bpp
ld de, HeadbuttTreeGFX
ld hl, $8840
lb bc, BANK(HeadbuttTreeGFX), 8
call Request2bpp
call Function8cad3
ld a, $1b
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $84
ld a, $90
ld [wc3b5], a
callba Function8cf7a
call Function8c913
ld a, $20
ld [wcf64], a
call WaitSFX
ld de, SFX_SANDSTORM
call PlaySFX
.asm_8c852
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_8c86a
dec [hl]
ld a, $90
ld [wc3b5], a
callba Function8cf7a
call DelayFrame
jr .asm_8c852
.asm_8c86a
call Function2173
call WaitBGMap
xor a
ld [hBGMapMode], a
callba Function8cf53
ld hl, Sprites + $90
ld bc, $0010
xor a
call ByteFill
ld de, Font
ld hl, VTiles1
lb bc, BANK(Font), $c
call Get1bpp
call Special_ReplaceKrisSprite
ret
; 8c893
HeadbuttTreeGFX: ; 8c893
INCBIN "gfx/unknown/08c893.2bpp"
; 8c913
Function8c913: ; 8c913
xor a
ld [hBGMapMode], a
ld a, [PlayerDirection]
and $c
srl a
ld e, a
ld d, 0
ld hl, Unknown_8c938
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld a, $5
ld [hli], a
ld [hld], a
ld bc, SCREEN_WIDTH
add hl, bc
ld [hli], a
ld [hld], a
call WaitBGMap
xor a
ld [hBGMapMode], a
ret
; 8c938
Unknown_8c938: ; 8c938
dw TileMap + 8 + 10 * SCREEN_WIDTH
dw TileMap + 8 + 6 * SCREEN_WIDTH
dw TileMap + 6 + 8 * SCREEN_WIDTH
dw TileMap + 10 + 8 * SCREEN_WIDTH
; 8c940
Function8c940: ; 8c940
ld a, e
and $1
ld [wcf63], a
call Function8c96d
call WaitSFX
ld de, SFX_PLACE_PUZZLE_PIECE_DOWN
call PlaySFX
.asm_8c952
ld a, [wcf63]
bit 7, a
jr nz, .asm_8c96c
ld a, $90
ld [wc3b5], a
callab Function8cf7a
call Function8ca0c
call DelayFrame
jr .asm_8c952
.asm_8c96c
ret
; 8c96d
Function8c96d: ; 8c96d
callab Function8cf53
ld de, GFX_8c9cc
ld hl, VTiles1
lb bc, BANK(GFX_8c9cc), 4
call Request2bpp
ld de, CutTreeGFX
ld hl, VTiles1 + $40
lb bc, BANK(CutTreeGFX), 4
call Request2bpp
ret
; 8c98c
CutTreeGFX: ; c898c
INCBIN "gfx/unknown/08c98c.2bpp"
; c89cc
GFX_8c9cc: ; 8c9cc
INCBIN "gfx/unknown/08c9cc.2bpp"
; 8ca0c
Function8ca0c: ; 8ca0c
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_8ca1b
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 8ca1b
Jumptable_8ca1b: ; 8ca1b (23:4a1b)
dw Function8ca23
dw Function8ca3c
dw Function8ca5c
dw Function8ca64
Function8ca23: ; 8ca23 (23:4a23)
call Function8cad3
ld a, $17
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $84
ld a, $20
ld [wcf64], a
ld hl, wcf63
rept 2
inc [hl]
endr
ret
Function8ca3c: ; 8ca3c (23:4a3c)
call Function8ca8e
xor a
call Function8ca73
ld a, $10
call Function8ca73
ld a, $20
call Function8ca73
ld a, $30
call Function8ca73
ld a, $20
ld [wcf64], a
ld hl, wcf63
inc [hl]
ret
Function8ca5c: ; 8ca5c (23:4a5c)
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ld hl, wcf63
inc [hl]
Function8ca64: ; 8ca64 (23:4a64)
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_8ca6d
dec [hl]
ret
.asm_8ca6d
ld hl, wcf63
set 7, [hl]
ret
Function8ca73: ; 8ca73 (23:4a73)
push de
push af
ld a, $16
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $80
ld hl, $e
add hl, bc
ld [hl], $4
pop af
ld hl, $c
add hl, bc
ld [hl], a
pop de
ret
Function8ca8e: ; 8ca8e (23:4a8e)
ld de, $0
ld a, [wd197]
bit 0, a
jr z, .asm_8ca9a
set 0, e
.asm_8ca9a
ld a, [wd196]
bit 0, a
jr z, .asm_8caa3
set 1, e
.asm_8caa3
ld a, [PlayerDirection]
and $c
add e
ld e, a
ld hl, Unknown_8cab3
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ret
; 8cab3 (23:4ab3)
Unknown_8cab3: ; 8cab3
db $58, $60
db $48, $60
db $58, $70
db $48, $70
db $58, $40
db $48, $40
db $58, $50
db $48, $50
db $38, $60
db $48, $60
db $38, $50
db $48, $50
db $58, $60
db $68, $60
db $58, $50
db $68, $50
; 8cad3
Function8cad3: ; 8cad3 (23:4ad3)
ld a, [PlayerDirection]
and $c
srl a
ld e, a
ld d, 0
ld hl, Unknown_8cae5
add hl, de
ld e, [hl]
inc hl
ld d, [hl]
ret
; 8cae5 (23:4ae5)
Unknown_8cae5: ; 8cae5
db $50, $68
db $50, $48
db $40, $58
db $60, $58
; 8caed
Function8caed: ; 8caed
call DelayFrame
ld a, [VramState]
push af
xor a
ld [VramState], a
call Function8cb9b
ld de, $5450
ld a, $a
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $84
ld hl, $2
add hl, bc
ld [hl], $16
ld a, $80
ld [wcf64], a
.asm_8cb14
ld a, [wcf63]
bit 7, a
jr nz, .asm_8cb2e
ld a, $0
ld [wc3b5], a
callab Function8cf7a
call Function8cbc8
call DelayFrame
jr .asm_8cb14
.asm_8cb2e
pop af
ld [VramState], a
ret
; 8cb33
Function8cb33: ; 8cb33
call DelayFrame
ld a, [VramState]
push af
xor a
ld [VramState], a
call Function8cb9b
ld de, $fc50
ld a, $a
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $84
ld hl, $2
add hl, bc
ld [hl], $18
ld hl, $f
add hl, bc
ld [hl], $58
ld a, $40
ld [wcf64], a
.asm_8cb60
ld a, [wcf63]
bit 7, a
jr nz, .asm_8cb7a
ld a, $0
ld [wc3b5], a
callab Function8cf7a
call Function8cbc8
call DelayFrame
jr .asm_8cb60
.asm_8cb7a
pop af
ld [VramState], a
call Function8cb82
ret
Function8cb82: ; 8cb82 (23:4b82)
ld hl, Sprites + 2
xor a
ld c, $4
.asm_8cb88
ld [hli], a
rept 3
inc hl
endr
inc a
dec c
jr nz, .asm_8cb88
ld hl, Sprites + $10
ld bc, $90
xor a
call ByteFill
ret
Function8cb9b: ; 8cb9b (23:4b9b)
callab Function8cf53
ld de, GFX_8c9cc
ld hl, $8800
lb bc, BANK(GFX_8c9cc), 4
call Request2bpp
ld a, [CurPartyMon]
ld hl, PartySpecies
ld e, a
ld d, 0
add hl, de
ld a, [hl]
ld [wd265], a
ld e, $84
callba Function8e9bc
xor a
ld [wcf63], a
ret
Function8cbc8: ; 8cbc8 (23:4bc8)
call Function8cbe6
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_8cbe0
dec [hl]
cp $40
ret c
and $7
ret nz
ld de, SFX_FLY
call PlaySFX
ret
.asm_8cbe0
ld hl, wcf63
set 7, [hl]
ret
Function8cbe6: ; 8cbe6 (23:4be6)
ld hl, wcf65
ld a, [hl]
inc [hl]
and $7
ret nz
ld a, [hl]
and $18
sla a
add $40
ld d, a
ld e, $0
ld a, $18
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $80
ret
Special_MagnetTrain: ; 8cc04
ld a, [ScriptVar]
and a
jr nz, .asm_8cc14
ld a, $1
lb bc, $40, $60
ld de, $fca0
jr .asm_8cc1c
.asm_8cc14
ld a, $ff
lb bc, $c0, $a0
ld de, $b460
.asm_8cc1c
ld h, a
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, h
ld [wd191], a
ld a, c
ld [wd192], a
ld a, b
ld [wd193], a
ld a, e
ld [wd194], a
ld a, d
ld [wd195], a
ld a, [hSCX]
push af
ld a, [hSCY]
push af
call Function8ccc9
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $1
.asm_8cc48
ld a, [wcf63]
and a
jr z, .asm_8cc66
bit 7, a
jr nz, .asm_8cc6b
callab Function8cf69
call Function8cdf7
call Function8cc99
call Function3b0c
call DelayFrame
jr .asm_8cc48
.asm_8cc66
call Function8ceae
jr .asm_8cc48
.asm_8cc6b
pop af
ld [hVBlank], a
call WhiteBGMap
xor a
ld [hLCDStatCustom], a
ld [$ffc7], a
ld [$ffc8], a
ld [hSCX], a
ld [Requested2bppSource], a
ld [Requested2bppSource + 1], a
ld [Requested2bppDest], a
ld [Requested2bppDest + 1], a
ld [Requested2bpp], a
call ClearTileMap
pop af
ld [hSCY], a
pop af
ld [hSCX], a
xor a
ld [hBGMapMode], a
pop af
ld [rSVBK], a
ret
; 8cc99
Function8cc99: ; 8cc99
ld hl, LYOverridesBackup
ld c, $2f
ld a, [wcf64]
add a
ld [hSCX], a
call Function8ccc4
ld c, $30
ld a, [wcf65]
call Function8ccc4
ld c, $31
ld a, [wcf64]
add a
call Function8ccc4
ld a, [wd191]
ld d, a
ld hl, wcf64
ld a, [hl]
rept 2
add d
endr
ld [hl], a
ret
; 8ccc4
Function8ccc4: ; 8ccc4
.asm_8ccc4
ld [hli], a
dec c
jr nz, .asm_8ccc4
ret
; 8ccc9
Function8ccc9: ; 8ccc9
call WhiteBGMap
call ClearSprites
call DisableLCD
callab Function8cf53
call SetMagnetTrainPals
call DrawMagnetTrain
ld a, $90
ld [hWY], a
call EnableLCD
xor a
ld [hBGMapMode], a
ld [hSCX], a
ld [hSCY], a
ld a, [rSVBK]
push af
ld a, $1
ld [rSVBK], a
callba GetPlayerIcon
pop af
ld [rSVBK], a
ld hl, VTiles0
ld c, $4
call Request2bpp
ld hl, $00c0
add hl, de
ld d, h
ld e, l
ld hl, $8040
ld c, $4
call Request2bpp
call Function8cda6
ld hl, wcf63
xor a
ld [hli], a
ld a, [wd192]
rept 3
ld [hli], a
endr
ld de, MUSIC_MAGNET_TRAIN
call PlayMusic2
ret
; 8cd27
DrawMagnetTrain: ; 8cd27
ld hl, VBGMap0
xor a
.asm_8cd2b
call GetMagnetTrainBGTiles
ld b, 32 / 2
call .FillAlt
inc a
cp $12
jr c, .asm_8cd2b
ld hl, $98c0
ld de, MagnetTrainTilemap1
ld c, 20
call .FillLine
ld hl, $98e0
ld de, MagnetTrainTilemap2
ld c, 20
call .FillLine
ld hl, $9900
ld de, MagnetTrainTilemap3
ld c, 20
call .FillLine
ld hl, $9920
ld de, MagnetTrainTilemap4
ld c, 20
call .FillLine
ret
; 8cd65
.FillLine ; 8cd65
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .FillLine
ret
; 8cd6c
.FillAlt ; 8cd6c
ld [hl], e
inc hl
ld [hl], d
inc hl
dec b
jr nz, .FillAlt
ret
; 8cd74
GetMagnetTrainBGTiles: ; 8cd74
push hl
ld e, a
ld d, 0
ld hl, MagnetTrainBGTiles
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
pop hl
ret
; 8cd82
MagnetTrainBGTiles: ; 8cd82
; Alternating tiles for each line
; of the Magnet Train tilemap.
db $4c, $4d ; bush
db $5c, $5d ; bush
db $4c, $4d ; bush
db $5c, $5d ; bush
db $08, $08 ; fence
db $18, $18 ; fence
db $1f, $1f ; track
db $31, $31 ; track
db $11, $11 ; track
db $11, $11 ; track
db $0d, $0d ; track
db $31, $31 ; track
db $04, $04 ; fence
db $18, $18 ; fence
db $4c, $4d ; bush
db $5c, $5d ; bush
db $4c, $4d ; bush
db $5c, $5d ; bush
; 8cda6
Function8cda6: ; 8cda6
ld hl, LYOverrides
ld bc, $0090
ld a, [wd192]
call ByteFill
ld hl, LYOverridesBackup
ld bc, $0090
ld a, [wd192]
call ByteFill
ld a, $43
ld [hLCDStatCustom], a
ret
; 8cdc3
SetMagnetTrainPals: ; 8cdc3
ld a, $1
ld [rVBK], a
; bushes
ld hl, VBGMap0
ld bc, $0080
ld a, $2
call ByteFill
; train
ld hl, $9880
ld bc, $0140
xor a
call ByteFill
; more bushes
ld hl, $99c0
ld bc, $0080
ld a, $2
call ByteFill
; train window
ld hl, $9907
ld bc, $0006
ld a, $4
call ByteFill
ld a, $0
ld [rVBK], a
ret
; 8cdf7
Function8cdf7: ; 8cdf7
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_8ce06
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 8ce06
Jumptable_8ce06: ; 8ce06
dw Function8ce19
dw Function8ce6d
dw Function8ce47
dw Function8ce6d
dw Function8ce7a
dw Function8ce6d
dw Function8cea2
; 8ce14
Function8ce14: ; 8ce14
ld hl, wcf63
inc [hl]
ret
; 8ce19
Function8ce19: ; 8ce19
ld d, $55
ld a, [wd195]
ld e, a
ld b, $15
ld a, [rSVBK]
push af
ld a, $1
ld [rSVBK], a
ld a, [PlayerGender]
bit 0, a
jr z, .asm_8ce31
ld b, $1f
.asm_8ce31
pop af
ld [rSVBK], a
ld a, b
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $0
call Function8ce14
ld a, $80
ld [wcf66], a
ret
; 8ce47
Function8ce47: ; 8ce47
ld hl, wd193
ld a, [wcf65]
cp [hl]
jr z, .asm_8ce64
ld e, a
ld a, [wd191]
xor $ff
inc a
add e
ld [wcf65], a
ld hl, wc3c0
ld a, [wd191]
add [hl]
ld [hl], a
ret
.asm_8ce64
call Function8ce14
ld a, $80
ld [wcf66], a
ret
; 8ce6d
Function8ce6d: ; 8ce6d
ld hl, wcf66
ld a, [hl]
and a
jr z, .asm_8ce76
dec [hl]
ret
.asm_8ce76
call Function8ce14
ret
; 8ce7a
Function8ce7a: ; 8ce7a
ld hl, wd194
ld a, [wcf65]
cp [hl]
jr z, .asm_8ce9e
ld e, a
ld a, [wd191]
xor $ff
inc a
ld d, a
ld a, e
rept 2
add d
endr
ld [wcf65], a
ld hl, wc3c0
ld a, [wd191]
ld d, a
ld a, [hl]
rept 2
add d
endr
ld [hl], a
ret
ret
.asm_8ce9e
call Function8ce14
ret
; 8cea2
Function8cea2: ; 8cea2
ld a, $80
ld [wcf63], a
ld de, SFX_TRAIN_ARRIVED
call PlaySFX
ret
; 8ceae
Function8ceae: ; 8ceae
callba Function8cf69
call Function8cdf7
call Function8cc99
call Function3b0c
call DelayFrame
ld a, [rSVBK]
push af
ld a, $1
ld [rSVBK], a
ld a, [TimeOfDayPal]
push af
ld a, [wPermission]
push af
ld a, [TimeOfDay]
and $3
ld [TimeOfDayPal], a
ld a, $1
ld [wPermission], a
ld b, $9
call GetSGBLayout
call UpdateTimePals
ld a, [rBGP]
ld [wcfc7], a
ld a, [rOBP0]
ld [wcfc8], a
ld a, [rOBP1]
ld [wcfc9], a
pop af
ld [wPermission], a
pop af
ld [TimeOfDayPal], a
pop af
ld [rSVBK], a
ret
; 8ceff
MagnetTrainTilemap1: db $1f, $05, $06, $0a, $0a, $0a, $09, $0a, $0a, $0a, $0a, $0a, $0a, $09, $0a, $0a, $0a, $0b, $0c, $1f
MagnetTrainTilemap2: db $14, $15, $16, $1a, $1a, $1a, $19, $1a, $1a, $1a, $1a, $1a, $1a, $19, $1a, $1a, $1a, $1b, $1c, $1d
MagnetTrainTilemap3: db $24, $25, $26, $27, $07, $2f, $29, $28, $28, $28, $28, $28, $28, $29, $07, $2f, $2a, $2b, $2c, $2d
MagnetTrainTilemap4: db $20, $1f, $2e, $1f, $17, $00, $2e, $1f, $1f, $1f, $1f, $1f, $1f, $2e, $17, $00, $1f, $2e, $1f, $0f
; 8cf4f
Function8cf4f: ; 8cf4f
call Function3238
ret
; 8cf53
Function8cf53: ; 8cf53
ld hl, wc300
ld bc, $00c1
.asm_8cf59
ld [hl], $0
inc hl
dec bc
ld a, c
or b
jr nz, .asm_8cf59
ret
; 8cf62
Function8cf62: ; 8cf62
call Function8cf69
call DelayFrame
ret
; 8cf69
Function8cf69: ; 8cf69
push hl
push de
push bc
push af
ld a, $0
ld [wc3b5], a
call Function8cf7a
pop af
pop bc
pop de
pop hl
ret
; 8cf7a
Function8cf7a: ; 8cf7a
ld hl, wc314
ld e, $a
.asm_8cf7f
ld a, [hl]
and a
jr z, .asm_8cf91
ld c, l
ld b, h
push hl
push de
call Function8d24b
call Function8d04c
pop de
pop hl
jr c, .asm_8cfa7
.asm_8cf91
ld bc, $0010
add hl, bc
dec e
jr nz, .asm_8cf7f
ld a, [wc3b5]
ld l, a
ld h, $c4
.asm_8cf9e
ld a, l
cp $a0
jr nc, .asm_8cfa7
xor a
ld [hli], a
jr .asm_8cf9e
.asm_8cfa7
ret
; 8cfa8
Function8cfa8: ; 8cfa8 (23:4fa8)
ld hl, wc314
ld e, $a
.asm_8cfad
ld a, [hl]
and a
jr z, .asm_8cfbf
ld c, l
ld b, h
push hl
push de
call Function8d24b
call Function8d04c
pop de
pop hl
jr c, .asm_8cfd5
.asm_8cfbf
ld bc, $10
add hl, bc
dec e
jr nz, .asm_8cfad
ld a, [wc3b5]
ld l, a
ld h, $c4
.asm_8cfcc
ld a, l
cp $40
jr nc, .asm_8cfd5
xor a
ld [hli], a
jr .asm_8cfcc
.asm_8cfd5
ret
Function8cfd6:: ; 8cfd6
push de
push af
ld hl, wc314
ld e, $a
.asm_8cfdd
ld a, [hl]
and a
jr z, .asm_8cfec
ld bc, $0010
add hl, bc
dec e
jr nz, .asm_8cfdd
pop af
pop de
scf
ret
.asm_8cfec
ld c, l
ld b, h
ld hl, wc3b4
inc [hl]
ld a, [hl]
and a
jr nz, .asm_8cff7
inc [hl]
.asm_8cff7
pop af
ld e, a
ld d, 0
ld hl, Unknown_8d1c4
rept 3
add hl, de
endr
ld e, l
ld d, h
ld hl, $0000
add hl, bc
ld a, [wc3b4]
ld [hli], a
ld a, [de]
ld [hli], a
inc de
ld a, [de]
ld [hli], a
inc de
ld a, [de]
call Function8d109
ld [hli], a
pop de
ld hl, $0004
add hl, bc
ld a, e
ld [hli], a
ld a, d
ld [hli], a
xor a
rept 2
ld [hli], a
endr
xor a
rept 2
ld [hli], a
endr
dec a
ld [hli], a
xor a
rept 4
ld [hli], a
endr
ld [hl], a
ld a, c
ld [wc3b8], a
ld a, b
ld [wc3b9], a
ret
; 8d036
Function8d036: ; 8d036
ld hl, $0000
add hl, bc
ld [hl], $0
ret
; 8d03d
Function8d03d: ; 8d03d (23:503d)
ld hl, wc314
ld bc, $10
ld e, $a
xor a
.asm_8d046
ld [hl], a
add hl, bc
dec e
jr nz, .asm_8d046
ret
Function8d04c: ; 8d04c
call Function8d0ec
call Function8d132
cp $fd
jr z, .asm_8d0b9
cp $fc
jr z, .asm_8d0b6
call Function8d1a2
ld a, [wc3ba]
add [hl]
ld [wc3ba], a
inc hl
ld a, [hli]
ld h, [hl]
ld l, a
push bc
ld a, [wc3b5]
ld e, a
ld d, Sprites / $100
ld a, [hli]
ld c, a
.asm_8d071
ld a, [wc3bc]
ld b, a
ld a, [wc3be]
add b
ld b, a
ld a, [wc3bf]
add b
ld b, a
call Function8d0be
add b
ld [de], a
inc hl
inc de
ld a, [wc3bb]
ld b, a
ld a, [wc3bd]
add b
ld b, a
ld a, [wc3c0]
add b
ld b, a
call Function8d0ce
add b
ld [de], a
inc hl
inc de
ld a, [wc3ba]
add [hl]
ld [de], a
inc hl
inc de
call Function8d0de
ld [de], a
inc hl
inc de
ld a, e
ld [wc3b5], a
cp SpritesEnd % $100
jr nc, .asm_8d0bb
dec c
jr nz, .asm_8d071
pop bc
jr .asm_8d0b9
.asm_8d0b6
call Function8d036
.asm_8d0b9
and a
ret
.asm_8d0bb
pop bc
scf
ret
; 8d0be
Function8d0be: ; 8d0be
push hl
ld a, [hl]
ld hl, wc3b8
bit 6, [hl]
jr z, .asm_8d0cc
add $8
xor $ff
inc a
.asm_8d0cc
pop hl
ret
; 8d0ce
Function8d0ce: ; 8d0ce
push hl
ld a, [hl]
ld hl, wc3b8
bit 5, [hl]
jr z, .asm_8d0dc
add $8
xor $ff
inc a
.asm_8d0dc
pop hl
ret
; 8d0de
Function8d0de: ; 8d0de
ld a, [wc3b8]
ld b, a
ld a, [hl]
xor b
and $e0
ld b, a
ld a, [hl]
and $1f
or b
ret
; 8d0ec
Function8d0ec: ; 8d0ec
xor a
ld [wc3b8], a
ld hl, $0003
add hl, bc
ld a, [hli]
ld [wc3ba], a
ld a, [hli]
ld [wc3bb], a
ld a, [hli]
ld [wc3bc], a
ld a, [hli]
ld [wc3bd], a
ld a, [hli]
ld [wc3be], a
ret
; 8d109
Function8d109: ; 8d109
push hl
push bc
ld hl, wc300
ld b, a
ld c, $a
.asm_8d111
ld a, [hli]
cp b
jr z, .asm_8d11c
inc hl
dec c
jr nz, .asm_8d111
xor a
jr .asm_8d11d
.asm_8d11c
ld a, [hl]
.asm_8d11d
pop bc
pop hl
ret
; 8d120
Function8d120:: ; 8d120
ld hl, $0001
add hl, bc
ld [hl], a
ld hl, $0008
add hl, bc
ld [hl], $0
ld hl, $000a
add hl, bc
ld [hl], $ff
ret
; 8d132
Function8d132: ; 8d132
.asm_8d132
ld hl, $0008
add hl, bc
ld a, [hl]
and a
jr z, .asm_8d142
dec [hl]
call Function8d189
ld a, [hli]
push af
jr .asm_8d163
.asm_8d142
ld hl, $000a
add hl, bc
inc [hl]
call Function8d189
ld a, [hli]
cp $fe
jr z, .asm_8d17b
cp $ff
jr z, .asm_8d16d
push af
ld a, [hl]
push hl
and $3f
ld hl, $0009
add hl, bc
add [hl]
ld hl, $0008
add hl, bc
ld [hl], a
pop hl
.asm_8d163
ld a, [hl]
and $c0
srl a
ld [wc3b8], a
pop af
ret
.asm_8d16d
xor a
ld hl, $0008
add hl, bc
ld [hl], a
ld hl, $000a
add hl, bc
rept 2
dec [hl]
endr
jr .asm_8d132
.asm_8d17b
xor a
ld hl, $0008
add hl, bc
ld [hl], a
dec a
ld hl, $000a
add hl, bc
ld [hl], a
jr .asm_8d132
; 8d189
Function8d189: ; 8d189
ld hl, $0001
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Unknown_8d6e6
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld hl, $000a
add hl, bc
ld l, [hl]
ld h, 0
add hl, hl
add hl, de
ret
; 8d1a2
Function8d1a2: ; 8d1a2
ld e, a
ld d, 0
ld hl, Unknown_8d94d
rept 3
add hl, de
endr
ret
; 8d1ac
Function8d1ac: ; 8d1ac
push hl
ld l, a
ld h, 0
rept 2
add hl, hl
endr
ld de, Unknown_8e706
add hl, de
ld c, [hl]
inc hl
ld b, [hl]
inc hl
ld e, [hl]
inc hl
ld d, [hl]
pop hl
push bc
call Request2bpp
pop bc
ret
; 8d1c4
Unknown_8d1c4: ; 8d1c4
db $01, $01, $00
db $07, $04, $00
db $08, $05, $05
db $0a, $06, $00
db $0b, $07, $06
db $0c, $08, $06
db $0d, $09, $07
db $0e, $0a, $07
db $10, $0b, $07
db $08, $0c, $05
db $11, $00, $00
db $12, $0d, $08
db $12, $0e, $08
db $12, $0f, $08
db $13, $10, $00
db $15, $00, $00
db $16, $11, $00
db $17, $12, $00
db $18, $12, $00
db $19, $13, $00
db $1a, $14, $00
db $1b, $00, $00
db $1d, $15, $00
db $1e, $00, $00
db $1d, $17, $00
db $1f, $00, $00
db $24, $19, $00
db $25, $00, $00
db $20, $13, $00
db $26, $1a, $00
db $2d, $00, $00
db $2e, $00, $00
db $2f, $00, $00
db $30, $00, $00
db $31, $00, $00
db $32, $1b, $00
db $33, $1c, $00
db $34, $00, $00
db $35, $1d, $00
db $37, $1e, $00
db $38, $1e, $00
db $39, $20, $00
db $3f, $21, $00
db $3e, $22, $00
db $40, $00, $00
; 8d24b
Function8d24b: ; 8d24b
ld hl, $0002
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Jumptable_8d25b
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 8d25b
Jumptable_8d25b: ; 8d25b (23:525b)
dw Function8d2a1
dw Function8d2a2
dw Function8d2b9
dw Function8d2ea
dw Function8d302
dw Function8d36c
dw Function8d37a
dw Function8d381
dw Function8d3c3
dw Function8d422
dw Function8d429
dw Function8d43e
dw Function8d373
dw Function8d46e
dw Function8d47c
dw Function8d475
dw Function8d483
dw Function8d52a
dw Function8d543
dw Function8d54a
dw Function8d578
dw Function8d57f
dw Function8d5b0
dw Function8d5e2
dw Function8d607
dw Function8d35a
dw Function8d6b7
dw Function8d630
dw Function8d637
dw Function8d63e
dw Function8d666
dw Function8d6be
dw Function8d680
dw Function8d6a2
dw Function8d6ae
Function8d2a1: ; 8d2a1 (23:52a1)
ret
Function8d2a2: ; 8d2a2 (23:52a2)
ld a, [wcfa9]
ld hl, $0
add hl, bc
cp [hl]
jr z, Function8d2b9
ld hl, $4
add hl, bc
ld [hl], $10
ld hl, $7
add hl, bc
ld [hl], $0
ret
Function8d2b9: ; 8d2b9 (23:52b9)
ld hl, $4
add hl, bc
ld [hl], $18
ld hl, $c
add hl, bc
ld a, [hl]
ld d, a
inc [hl]
and $f
ret nz
ld hl, $d
add hl, bc
ld e, [hl]
ld hl, $7
add hl, bc
ld a, d
and $10
jr z, .asm_8d2df
ld a, e
and a
jr z, .asm_8d2e6
cp $1
jr z, .asm_8d2e2
.asm_8d2df
xor a
ld [hl], a
ret
.asm_8d2e2
ld a, $ff
ld [hl], a
ret
.asm_8d2e6
ld a, $fe
ld [hl], a
ret
Function8d2ea: ; 8d2ea (23:52ea)
ld a, [wcfa9]
ld hl, $0
add hl, bc
cp [hl]
jr z, .asm_8d2fb
ld hl, $4
add hl, bc
ld [hl], $10
ret
.asm_8d2fb
ld hl, $4
add hl, bc
ld [hl], $18
ret
Function8d302: ; 8d302 (23:5302)
call Function8d6c5
jp [hl]
; 8d306 (23:5306)
; Anonymous jumptable (see Function8d6c5)
dw Function8d30a
dw Function8d321
; 8d30a
Function8d30a: ; 8d30a
call Function8d6d8
ld hl, $0000
add hl, bc
ld a, [hl]
ld hl, $000d
add hl, bc
and $3
ld [hl], a
inc [hl]
swap a
ld hl, $000c
add hl, bc
ld [hl], a
Function8d321: ; 8d321
ld hl, $0004
add hl, bc
ld a, [hl]
cp $a4
jr nc, .asm_8d356
ld hl, $000d
add hl, bc
add $4
ld hl, $0004
add hl, bc
ld [hl], a
ld hl, $0005
add hl, bc
inc [hl]
ld hl, $000d
add hl, bc
ld a, [hl]
sla a
sla a
ld d, $2
ld hl, $000c
add hl, bc
ld a, [hl]
add $3
ld [hl], a
call Function8d6de
ld hl, $0007
add hl, bc
ld [hl], a
ret
.asm_8d356
call Function8d036
ret
; 8d35a
Function8d35a: ; 8d35a (23:535a)
ld hl, $c
add hl, bc
ld a, [hl]
inc a
ld [hl], a
ld d, $2
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
ret
Function8d36c: ; 8d36c (23:536c)
callab Function11a3b
ret
Function8d373: ; 8d373 (23:5373)
callab Function120c1
ret
Function8d37a: ; 8d37a (23:537a)
callab Functione46ed
ret
Function8d381: ; 8d381 (23:5381)
ld hl, $c
add hl, bc
ld a, [hl]
and a
jr z, .asm_8d3ba
rept 2
dec [hl]
endr
ld d, a
and $1f
jr nz, .asm_8d395
ld hl, $d
add hl, bc
dec [hl]
.asm_8d395
ld hl, $b
add hl, bc
ld a, [hl]
push af
push de
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
pop de
pop af
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ld hl, $d
add hl, bc
ld a, [hl]
ld hl, $b
add hl, bc
add [hl]
ld [hl], a
ret
.asm_8d3ba
ld a, $1
ld [wcf64], a
call Function8d036
ret
Function8d3c3: ; 8d3c3 (23:53c3)
ld hl, $c
add hl, bc
ld a, [hli]
or [hl]
jr z, .asm_8d41e
ld hl, $f
add hl, bc
ld d, [hl]
ld hl, $b
add hl, bc
ld a, [hl]
push af
push de
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
pop de
pop af
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ld hl, $c
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
ld hl, $e
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ld e, l
ld d, h
ld hl, $e
add hl, bc
ld [hl], e
inc hl
ld [hl], d
ld hl, $c
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld de, $fff0
add hl, de
ld e, l
ld d, h
ld hl, $c
add hl, bc
ld [hl], e
inc hl
ld [hl], d
ld hl, $b
add hl, bc
ld a, [hl]
xor $20
ld [hl], a
ret
.asm_8d41e
call Function8d036
ret
Function8d422: ; 8d422 (23:5422)
callab Function9321d
ret
Function8d429: ; 8d429 (23:5429)
callab Function932ac
ld hl, wcf64
ld a, [hl]
cp $2
ret nz
ld [hl], $3
ld a, $f
call Function8d120
ret
Function8d43e: ; 8d43e (23:543e)
ld hl, $b
add hl, bc
ld a, [hl]
dec [hl]
ld e, a
and $1
jr z, .asm_8d462
ld hl, $4
add hl, bc
ld a, [hl]
cp $78
jr c, .asm_8d461
call Function8d036
ld a, $4
ld [wcf64], a
ld de, SFX_PLACE_PUZZLE_PIECE_DOWN
call PlaySFX
ret
.asm_8d461
inc [hl]
.asm_8d462
ld a, e
ld d, $20
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
ret
Function8d46e: ; 8d46e (23:546e)
callab Functione00ed
ret
Function8d475: ; 8d475 (23:5475)
callab Function90d41
ret
Function8d47c: ; 8d47c (23:547c)
callab Functione21a1
ret
Function8d483: ; 8d483 (23:5483)
call Function8d6c5
jp [hl]
; 8d487 (23:5487)
; Anonymous jumptable (see Function8d6c5)
dw Function8d493
dw Function8d4d5
dw Function8d4a5
dw Function8d4b8
dw Function8d4e8
dw Function8d526
; 8d493
Function8d493: ; 8d493
ld a, $14
call Function8d120
ld hl, $000b
add hl, bc
ld [hl], $2
ld hl, $000c
add hl, bc
ld [hl], $20
ret
; 8d4a5
Function8d4a5: ; 8d4a5
ld hl, $000c
add hl, bc
ld a, [hl]
and a
jr z, .asm_8d4af
dec [hl]
ret
.asm_8d4af
call Function8d6d8
ld hl, $000c
add hl, bc
ld [hl], $40
Function8d4b8: ; 8d4b8
ld hl, $000c
add hl, bc
ld a, [hl]
cp $30
jr c, .asm_8d4cd
dec [hl]
ld d, $28
call Function8d6de
ld hl, $0007
add hl, bc
ld [hl], a
ret
.asm_8d4cd
ld de, SFX_GOT_SAFARI_BALLS
call PlaySFX
jr Function8d526
; 8d4d5
Function8d4d5: ; 8d4d5
ld hl, $000b
add hl, bc
ld [hl], $4
ld hl, $000c
add hl, bc
ld [hl], $30
ld hl, $000d
add hl, bc
ld [hl], $24
ret
; 8d4e8
Function8d4e8: ; 8d4e8
ld hl, $000d
add hl, bc
ld a, [hl]
and a
jr z, .asm_8d51c
ld d, a
ld hl, $000c
add hl, bc
ld a, [hl]
call Function8e72c
ld hl, $0007
add hl, bc
ld [hl], a
ld hl, $000c
add hl, bc
inc [hl]
ld a, [hl]
and $3f
ret nz
ld hl, $000c
add hl, bc
ld [hl], $20
ld hl, $000d
add hl, bc
ld a, [hl]
sub $c
ld [hl], a
ld de, SFX_SWITCH_POKEMON
call PlaySFX
ret
.asm_8d51c
xor a
ld hl, $0007
add hl, bc
ld [hl], a
call Function8d6d8
ret
Function8d526: ; 8d526
call Function8d036
ret
; 8d52a
Function8d52a: ; 8d52a (23:552a)
ld hl, $4
add hl, bc
ld a, [hl]
rept 2
inc [hl]
endr
cp $b0
jr nc, .asm_8d53f
and $3
ret nz
ld de, SFX_POKEBALLS_PLACED_ON_TABLE
call PlaySFX
ret
.asm_8d53f
call Function8d036
ret
Function8d543: ; 8d543 (23:5543)
callab Function29676
ret
Function8d54a: ; 8d54a (23:554a)
ld hl, $c
add hl, bc
ld a, [hl]
cp $80
jr nc, .asm_8d574
ld d, a
add $8
ld [hl], a
ld hl, $b
add hl, bc
ld a, [hl]
xor $20
ld [hl], a
push af
push de
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
pop de
pop af
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ret
.asm_8d574
call Function8d036
ret
Function8d578: ; 8d578 (23:5578)
callab Function91640
ret
Function8d57f: ; 8d57f (23:557f)
ld hl, $d
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
ld hl, $80
add hl, de
ld e, l
ld d, h
ld hl, $d
add hl, bc
ld [hl], e
inc hl
ld [hl], d
ld hl, $c
add hl, bc
ld a, [hl]
rept 3
inc [hl]
endr
push af
push de
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
pop de
pop af
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ret
Function8d5b0: ; 8d5b0 (23:55b0)
ld hl, $5
add hl, bc
ld a, [hl]
and a
ret z
ld hl, $d
add hl, bc
ld a, [hl]
inc [hl]
cp $40
ret c
ld hl, $5
add hl, bc
rept 2
dec [hl]
endr
ld hl, $f
add hl, bc
ld a, [hl]
ld d, a
cp $40
jr nc, .asm_8d5d3
add $8
ld [hl], a
.asm_8d5d3
ld hl, $e
add hl, bc
ld a, [hl]
inc [hl]
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ret
Function8d5e2: ; 8d5e2 (23:55e2)
ld hl, $4
add hl, bc
ld a, [hl]
cp $b8
jr nc, .asm_8d603
rept 2
inc [hl]
endr
ld hl, $5
add hl, bc
dec [hl]
ld d, $40
ld hl, $c
add hl, bc
ld a, [hl]
inc [hl]
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ret
.asm_8d603
call Function8d036
ret
Function8d607: ; 8d607 (23:5607)
ld hl, $5
add hl, bc
ld a, [hl]
cp $54
ret z
ld hl, $5
add hl, bc
rept 2
inc [hl]
endr
ld hl, $f
add hl, bc
ld a, [hl]
ld d, a
and a
jr z, .asm_8d621
sub $2
ld [hl], a
.asm_8d621
ld hl, $e
add hl, bc
ld a, [hl]
inc [hl]
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ret
Function8d630: ; 8d630 (23:5630)
callba Function108bc7
ret
Function8d637: ; 8d637 (23:5637)
callba Function108be0
ret
Function8d63e: ; 8d63e (23:563e)
ld a, [wcf65]
and a
jr nz, .asm_8d645
ret
.asm_8d645
ld hl, $7
add hl, bc
ld [hl], $0
ld hl, $d
add hl, bc
ld a, [hl]
add $2
ld [hl], a
xor $ff
inc a
ld d, $20
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
ld a, $36
call Function8d120
ret
Function8d666: ; 8d666 (23:5666)
ld hl, $c
add hl, bc
ld a, [hl]
cp $14
jr nc, .asm_8d67f
add $2
ld [hl], a
xor $ff
inc a
ld d, $20
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
.asm_8d67f
ret
Function8d680: ; 8d680 (23:5680)
ld hl, $b
add hl, bc
ld d, [hl]
rept 3
inc [hl]
endr
ld hl, $c
add hl, bc
ld a, [hl]
push af
push de
call Function8d6de
ld hl, $7
add hl, bc
ld [hl], a
pop de
pop af
call Function8d6e2
ld hl, $6
add hl, bc
ld [hl], a
ret
Function8d6a2: ; 8d6a2 (23:56a2)
ld a, [wcf64]
cp $40
ret nz
ld a, $3d
call Function8d120
ret
Function8d6ae: ; 8d6ae (23:56ae)
ld hl, $5
add hl, bc
ld a, [hl]
add $10
ld [hl], a
ret
Function8d6b7: ; 8d6b7 (23:56b7)
callba Function11d0b6
ret
Function8d6be: ; 8d6be (23:56be)
callba Function49aa2
ret
Function8d6c5: ; 8d6c5 (23:56c5)
ld hl, [sp+$0]
ld e, [hl]
inc hl
ld d, [hl]
inc de
ld hl, $b
add hl, bc
ld l, [hl]
ld h, $0
add hl, hl
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 8d6d8 (23:56d8)
Function8d6d8: ; 8d6d8
ld hl, $000b
add hl, bc
inc [hl]
ret
; 8d6de
Function8d6de: ; 8d6de (23:56de)
call Function8e72c
ret
Function8d6e2: ; 8d6e2 (23:56e2)
call Function8e72a
ret
; 8d6e6 (23:56e6)
Unknown_8d6e6: ; 8d6e6
dw Unknown_8d76a
dw Unknown_8d76d
dw Unknown_8d772
dw Unknown_8d777
dw Unknown_8d77c
dw Unknown_8d781
dw Unknown_8d786
dw Unknown_8d7a6
dw Unknown_8d7ab
dw Unknown_8d7b0
dw Unknown_8d7b5
dw Unknown_8d7d4
dw Unknown_8d7d9
dw Unknown_8d7e2
dw Unknown_8d7eb
dw Unknown_8d7f4
dw Unknown_8d7ff
dw Unknown_8d78b
dw Unknown_8d802
dw Unknown_8d805
dw Unknown_8d808
dw Unknown_8d811
dw Unknown_8d818
dw Unknown_8d81d
dw Unknown_8d822
dw Unknown_8d825
dw Unknown_8d82c
dw Unknown_8d82f
dw Unknown_8d861
dw Unknown_8d864
dw Unknown_8d867
dw Unknown_8d874
dw Unknown_8d877
dw Unknown_8d87a
dw Unknown_8d87d
dw Unknown_8d880
dw Unknown_8d883
dw Unknown_8d890
dw Unknown_8d899
dw Unknown_8d89c
dw Unknown_8d89f
dw Unknown_8d8a2
dw Unknown_8d8a5
dw Unknown_8d8a8
dw Unknown_8d8ab
dw Unknown_8d794
dw Unknown_8d79d
dw Unknown_8d8ae
dw Unknown_8d8cd
dw Unknown_8d8ec
dw Unknown_8d8f1
dw Unknown_8d8f4
dw Unknown_8d8f7
dw Unknown_8d8fe
dw Unknown_8d907
dw Unknown_8d90c
dw Unknown_8d913
dw Unknown_8d916
dw Unknown_8d91d
dw Unknown_8d924
dw Unknown_8d92b
dw Unknown_8d932
dw Unknown_8d93d
dw Unknown_8d940
dw Unknown_8d943
dw Unknown_8d948
; 8d76a
Unknown_8d76a: db $00,$20, $ff
Unknown_8d76d: db $00,$08, $01,$08, $fe
Unknown_8d772: db $3d,$08, $3e,$08, $fe
Unknown_8d777: db $3f,$08, $40,$08, $fe
Unknown_8d77c: db $00,$04, $01,$04, $fe
Unknown_8d781: db $3d,$04, $3e,$04, $fe
Unknown_8d786: db $3f,$04, $40,$04, $fe
Unknown_8d78b: db $00,$08, $01,$08, $00,$08, $01,$48, $fe
Unknown_8d794: db $63,$08, $64,$08, $63,$08, $64,$48, $fe
Unknown_8d79d: db $65,$08, $66,$08, $65,$08, $66,$48, $fe
Unknown_8d7a6: db $1e,$01, $1f,$01, $fe
Unknown_8d7ab: db $20,$01, $fd,$01, $fe
Unknown_8d7b0: db $21,$01, $fd,$01, $fe
Unknown_8d7b5: db $81,$0c, $82,$01, $83,$01, $82,$04, $81,$0c, $82,$0c, $83,$04, $84,$20, $85,$03, $86,$03, $87,$04, $88,$04, $89,$04, $8a,$0a, $8b,$07, $ff
Unknown_8d7d4: db $23,$03, $23,$83, $fe
Unknown_8d7d9: db $24,$02, $25,$02, $26,$02, $25,$02, $fe
Unknown_8d7e2: db $27,$07, $28,$07, $27,$87, $28,$47, $fe
Unknown_8d7eb: db $29,$07, $2a,$07, $29,$07, $2b,$07, $fe
Unknown_8d7f4: db $29,$07, $2c,$07, $2d,$07, $2c,$07, $29,$07, $ff
Unknown_8d7ff: db $2e,$14, $ff
Unknown_8d802: db $2f,$20, $ff
Unknown_8d805: db $30,$20, $ff
Unknown_8d808: db $30,$03, $31,$03, $30,$03, $31,$43, $fe
Unknown_8d811: db $32,$04, $33,$04, $34,$04, $fc
Unknown_8d818: db $35,$03, $36,$03, $fe
Unknown_8d81d: db $37,$07, $38,$07, $fe
Unknown_8d822: db $39,$20, $ff
Unknown_8d825: db $3b,$02, $3a,$02, $3b,$02, $ff
Unknown_8d82c: db $3c,$20, $ff
Unknown_8d82f: db $41,$08, $42,$08, $41,$08, $42,$48, $fe
db $43,$08, $44,$08, $fe
db $45,$08, $46,$08, $fe
db $47,$08, $48,$08, $fe
db $49,$01, $49,$41, $49,$c1, $49,$81, $fe
db $4a,$20, $ff
db $4b,$20, $ff
db $4c,$20, $ff
db $4d,$20, $ff
db $4e,$03, $fd,$03, $fe
Unknown_8d861: db $fd,$20, $ff
Unknown_8d864: db $4f,$20, $ff
Unknown_8d867: db $50,$02, $51,$10, $fd,$01, $52,$01, $fd,$01, $53,$01, $fc
Unknown_8d874: db $54,$20, $ff
Unknown_8d877: db $55,$20, $ff
Unknown_8d87a: db $55,$60, $ff
Unknown_8d87d: db $55,$a0, $ff
Unknown_8d880: db $55,$e0, $ff
Unknown_8d883: db $56,$0a, $57,$09, $58,$0a, $59,$0a, $58,$09, $5a,$0a, $fe
Unknown_8d890: db $50,$02, $5b,$02, $50,$02, $5b,$42, $fe
Unknown_8d899: db $5c,$02, $ff
Unknown_8d89c: db $5d,$02, $ff
Unknown_8d89f: db $5e,$02, $ff
Unknown_8d8a2: db $5f,$02, $ff
Unknown_8d8a5: db $60,$02, $ff
Unknown_8d8a8: db $61,$02, $ff
Unknown_8d8ab: db $62,$02, $ff
Unknown_8d8ae: db $32,$03, $33,$03, $34,$03, $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $ff
Unknown_8d8cd: db $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $30,$03, $31,$03, $30,$03, $31,$43, $32,$03, $33,$03, $34,$03, $fc
Unknown_8d8ec: db $67,$03, $68,$03, $fe
Unknown_8d8f1: db $6c,$03, $ff
Unknown_8d8f4: db $6d,$03, $ff
Unknown_8d8f7: db $69,$02, $6a,$02, $6b,$02, $fc
Unknown_8d8fe: db $6e,$03, $6f,$03, $70,$03, $71,$03, $fe
Unknown_8d907: db $71,$03, $6e,$07, $ff
Unknown_8d90c: db $72,$20, $73,$07, $74,$07, $ff
Unknown_8d913: db $75,$03, $ff
Unknown_8d916: db $76,$03, $77,$03, $78,$07, $fc
Unknown_8d91d: db $76,$43, $77,$43, $78,$47, $fc
Unknown_8d924: db $76,$83, $77,$83, $78,$87, $fc
Unknown_8d92b: db $76,$c3, $77,$c3, $78,$c7, $fc
Unknown_8d932: db $79,$03, $7a,$03, $7b,$03, $7c,$07, $7d,$07, $ff
Unknown_8d93d: db $7e,$03, $ff
Unknown_8d940: db $fd,$00, $ff
Unknown_8d943: db $7f,$08, $80,$08, $ff
Unknown_8d948: db $7f,$48, $80,$48, $ff
; 8d94d
Unknown_8d94d: ; 8d94d
dbw $00, Unknown_8dd8a
dbw $04, Unknown_8dd8a
dbw $4c, Unknown_8daf1
dbw $5c, Unknown_8daf1
dbw $6c, Unknown_8daf6
dbw $6e, Unknown_8daf6
dbw $2d, Unknown_8ddf0
dbw $4d, Unknown_8ddf0
dbw $60, Unknown_8de09
dbw $00, Unknown_8de09
dbw $00, Unknown_8de09
dbw $06, Unknown_8de09
dbw $0c, Unknown_8de7e
dbw $0d, Unknown_8daf1
dbw $00, Unknown_8dc53
dbw $04, Unknown_8dc53
dbw $08, Unknown_8dc53
dbw $40, Unknown_8dc53
dbw $44, Unknown_8dc53
dbw $48, Unknown_8dc53
dbw $4c, Unknown_8dc53
dbw $80, Unknown_8de87
dbw $85, Unknown_8de87
dbw $8a, Unknown_8de87
dbw $00, Unknown_8db29
dbw $01, Unknown_8db5c
dbw $09, Unknown_8db9d
dbw $10, Unknown_8dc94
dbw $29, Unknown_8dc94
dbw $42, Unknown_8dc94
dbw $f8, Unknown_8e17e
dbw $fa, Unknown_8e17e
dbw $00, Unknown_8deb2
dbw $00, Unknown_8dec3
dbw $00, Unknown_8deec
dbw $0f, Unknown_8db07
dbw $11, Unknown_8daf1
dbw $12, Unknown_8daf1
dbw $13, Unknown_8daf1
dbw $00, Unknown_8df29
dbw $08, Unknown_8df29
dbw $10, Unknown_8df42
dbw $10, Unknown_8df5b
dbw $10, Unknown_8df74
dbw $10, Unknown_8df8d
dbw $10, Unknown_8dfa6
dbw $3a, Unknown_8daf1
dbw $00, Unknown_8dd8a
dbw $00, Unknown_8db18
dbw $02, Unknown_8dd9b
dbw $06, Unknown_8db5c
dbw $0a, Unknown_8db5c
dbw $0e, Unknown_8db5c
dbw $12, Unknown_8db3a
dbw $13, Unknown_8db3a
dbw $00, Unknown_8dd8a
dbw $04, Unknown_8dd8a
dbw $10, Unknown_8db5c
dbw $00, Unknown_8dd9b
dbw $04, Unknown_8daf1
dbw $00, Unknown_8dfbf
dbw $00, Unknown_8ddac
dbw $00, Unknown_8ddbd
dbw $00, Unknown_8ddce
dbw $00, Unknown_8dddf
dbw $00, Unknown_8dd9b
dbw $04, Unknown_8dd9b
dbw $00, Unknown_8dc2e
dbw $30, Unknown_8dc2e
dbw $03, Unknown_8dc2e
dbw $33, Unknown_8dc2e
dbw $06, Unknown_8dc2e
dbw $36, Unknown_8dc2e
dbw $09, Unknown_8dc2e
dbw $39, Unknown_8dc2e
dbw $0c, Unknown_8dfcc
dbw $0c, Unknown_8dfe5
dbw $3c, Unknown_8daf1
dbw $3e, Unknown_8daf1
dbw $00, Unknown_8de9c
dbw $00, Unknown_8dea1
dbw $00, Unknown_8dff6
dbw $00, Unknown_8e007
dbw $00, Unknown_8e018
dbw $00, Unknown_8daf1
dbw $01, Unknown_8daf1
dbw $00, Unknown_8e029
dbw $00, Unknown_8e076
dbw $00, Unknown_8e0b7
dbw $00, Unknown_8e0f4
dbw $00, Unknown_8e139
dbw $04, Unknown_8dea1
dbw $00, Unknown_8e183
dbw $00, Unknown_8e1b4
dbw $00, Unknown_8e1b9
dbw $00, Unknown_8e1ca
dbw $00, Unknown_8e1eb
dbw $00, Unknown_8e1f0
dbw $00, Unknown_8e1f9
dbw $00, Unknown_8e202
dbw $04, Unknown_8e202
dbw $00, Unknown_8e213
dbw $04, Unknown_8e213
dbw $20, Unknown_8e224
dbw $21, Unknown_8e224
dbw $22, Unknown_8e24b
dbw $23, Unknown_8e25c
dbw $27, Unknown_8e27d
dbw $2a, Unknown_8e229
dbw $2a, Unknown_8e23a
dbw $00, Unknown_8e2ae
dbw $08, Unknown_8e33f
dbw $60, Unknown_8e3b0
dbw $68, Unknown_8e429
dbw $00, Unknown_8e4a6
dbw $05, Unknown_8e4a6
dbw $0a, Unknown_8e4a6
dbw $50, Unknown_8e50b
dbw $00, Unknown_8e54c
dbw $01, Unknown_8e551
dbw $04, Unknown_8e55e
dbw $00, Unknown_8db29
dbw $01, Unknown_8e57b
dbw $03, Unknown_8e59c
dbw $08, Unknown_8e5cd
dbw $1c, Unknown_8e5cd
dbw $80, Unknown_8e61e
dbw $00, Unknown_8e66f
dbw $04, Unknown_8e66f
dbw $d0, Unknown_8e680
dbw $d3, Unknown_8e680
dbw $d6, Unknown_8e680
dbw $6c, Unknown_8e6a5
dbw $68, Unknown_8e6a5
dbw $64, Unknown_8e6a5
dbw $60, Unknown_8e6a5
dbw $0c, Unknown_8e6a5
dbw $08, Unknown_8e6a5
dbw $04, Unknown_8e6a5
dbw $00, Unknown_8e6a5
; 8daf1
Unknown_8daf1: ; 8daf1
db 1
db $fc, $fc, $00, $00
; 8daf6
Unknown_8daf6: ; 8daf6
db 4
db $f8, $f8, $00, $00
db $f8, $00, $01, $00
db $00, $f8, $10, $00
db $00, $00, $11, $00
; 8db07
Unknown_8db07: ; 8db07
db 4
db $f8, $f8, $00, $00
db $f8, $00, $00, $20
db $00, $f8, $01, $00
db $00, $00, $01, $20
; 8db18
Unknown_8db18: ; 8db18
db 4
db $f8, $f8, $00, $80
db $f8, $00, $00, $a0
db $00, $f8, $01, $80
db $00, $00, $01, $a0
; 8db29
Unknown_8db29: ; 8db29
db 4
db $f8, $f8, $00, $00
db $f8, $00, $00, $20
db $00, $f8, $00, $40
db $00, $00, $00, $60
; 8db3a
Unknown_8db3a: ; 8db3a
db 4
db $f8, $f8, $00, $07
db $f8, $00, $00, $27
db $00, $f8, $00, $47
db $00, $00, $00, $67
; 8db4b
; 8db4b
db 4
db $f8, $f8, $00, $80
db $f8, $00, $00, $a0
db $00, $f8, $00, $c0
db $00, $00, $00, $e0
; 8db5c
Unknown_8db5c: ; 8db5c
db 16
db $f0, $f0, $00, $00
db $f0, $f8, $01, $00
db $f8, $f0, $02, $00
db $f8, $f8, $03, $00
db $f0, $00, $01, $20
db $f0, $08, $00, $20
db $f8, $00, $03, $20
db $f8, $08, $02, $20
db $00, $f0, $02, $40
db $00, $f8, $03, $40
db $08, $f0, $00, $40
db $08, $f8, $01, $40
db $00, $00, $03, $60
db $00, $08, $02, $60
db $08, $00, $01, $60
db $08, $08, $00, $60
; 8db9d
Unknown_8db9d: ; 8db9d
db 36
db $e8, $e8, $00, $00
db $e8, $f0, $01, $00
db $e8, $f8, $02, $00
db $f0, $e8, $03, $00
db $f0, $f0, $04, $00
db $f0, $f8, $05, $00
db $f8, $e8, $06, $00
db $f8, $f0, $05, $00
db $f8, $f8, $05, $00
db $e8, $00, $02, $20
db $e8, $08, $01, $20
db $e8, $10, $00, $20
db $f0, $00, $05, $20
db $f0, $08, $04, $20
db $f0, $10, $03, $20
db $f8, $00, $05, $20
db $f8, $08, $05, $20
db $f8, $10, $06, $20
db $00, $e8, $06, $40
db $00, $f0, $05, $40
db $00, $f8, $05, $40
db $08, $e8, $03, $40
db $08, $f0, $04, $40
db $08, $f8, $05, $40
db $10, $e8, $00, $40
db $10, $f0, $01, $40
db $10, $f8, $02, $40
db $00, $00, $05, $60
db $00, $08, $05, $60
db $00, $10, $06, $60
db $08, $00, $05, $60
db $08, $08, $04, $60
db $08, $10, $03, $60
db $10, $00, $02, $60
db $10, $08, $01, $60
db $10, $10, $00, $60
; 8dc2e
Unknown_8dc2e: ; 8dc2e
db 9
db $f4, $f4, $00, $00
db $f4, $fc, $01, $00
db $f4, $04, $02, $00
db $fc, $f4, $10, $00
db $fc, $fc, $11, $00
db $fc, $04, $12, $00
db $04, $f4, $20, $00
db $04, $fc, $21, $00
db $04, $04, $22, $00
; 8dc53
Unknown_8dc53: ; 8dc53
db 16
db $f0, $f0, $00, $00
db $f0, $f8, $01, $00
db $f0, $00, $02, $00
db $f0, $08, $03, $00
db $f8, $f0, $10, $00
db $f8, $f8, $11, $00
db $f8, $00, $12, $00
db $f8, $08, $13, $00
db $00, $f0, $20, $00
db $00, $f8, $21, $00
db $00, $00, $22, $00
db $00, $08, $23, $00
db $08, $f0, $30, $00
db $08, $f8, $31, $00
db $08, $00, $32, $00
db $08, $08, $33, $00
; 8dc94
Unknown_8dc94: ; 8dc94
db 25
db $ec, $ec, $00, $00
db $f4, $ec, $01, $00
db $fc, $ec, $02, $00
db $04, $ec, $03, $00
db $0c, $ec, $04, $00
db $ec, $f4, $05, $00
db $f4, $f4, $06, $00
db $fc, $f4, $07, $00
db $04, $f4, $08, $00
db $0c, $f4, $09, $00
db $ec, $fc, $0a, $00
db $f4, $fc, $0b, $00
db $fc, $fc, $0c, $00
db $04, $fc, $0d, $00
db $0c, $fc, $0e, $00
db $ec, $04, $0f, $00
db $f4, $04, $10, $00
db $fc, $04, $11, $00
db $04, $04, $12, $00
db $0c, $04, $13, $00
db $ec, $0c, $14, $00
db $f4, $0c, $15, $00
db $fc, $0c, $16, $00
db $04, $0c, $17, $00
db $0c, $0c, $18, $00
; 8dcf9
; 8dcf9
db 36
db $e8, $e8, $00, $00
db $e8, $f0, $01, $00
db $e8, $f8, $02, $00
db $e8, $00, $03, $00
db $e8, $08, $04, $00
db $e8, $10, $05, $00
db $f0, $e8, $06, $00
db $f0, $f0, $07, $00
db $f0, $f8, $08, $00
db $f0, $00, $09, $00
db $f0, $08, $0a, $00
db $f0, $10, $0b, $00
db $f8, $e8, $0c, $00
db $f8, $f0, $0d, $00
db $f8, $f8, $0e, $00
db $f8, $00, $0f, $00
db $f8, $08, $10, $00
db $f8, $10, $11, $00
db $00, $e8, $12, $00
db $00, $f0, $13, $00
db $00, $f8, $14, $00
db $00, $00, $15, $00
db $00, $08, $16, $00
db $00, $10, $17, $00
db $08, $e8, $18, $00
db $08, $f0, $19, $00
db $08, $f8, $1a, $00
db $08, $00, $1b, $00
db $08, $08, $1c, $00
db $08, $10, $1d, $00
db $10, $e8, $1e, $00
db $10, $f0, $1f, $00
db $10, $f8, $20, $00
db $10, $00, $21, $00
db $10, $08, $22, $00
db $10, $10, $23, $00
; 8dd8a
Unknown_8dd8a: ; 8dd8a
db 4
db $f8, $f8, $00, $00
db $f8, $00, $01, $00
db $00, $f8, $02, $00
db $00, $00, $03, $00
; 8dd9b
Unknown_8dd9b: ; 8dd9b
db 4
db $f8, $f8, $00, $80
db $f8, $00, $01, $80
db $00, $f8, $02, $80
db $00, $00, $03, $80
; 8ddac
Unknown_8ddac: ; 8ddac
db 4
db $f8, $f8, $00, $00
db $f8, $00, $01, $00
db $00, $f8, $08, $00
db $00, $00, $03, $00
; 8ddbd
Unknown_8ddbd: ; 8ddbd
db 4
db $f8, $f8, $04, $00
db $f8, $00, $05, $00
db $00, $f8, $08, $00
db $00, $00, $07, $00
; 8ddce
Unknown_8ddce: ; 8ddce
db 4
db $f8, $f8, $00, $00
db $f8, $00, $01, $00
db $00, $f8, $09, $00
db $00, $00, $03, $00
; 8dddf
Unknown_8dddf: ; 8dddf
db 4
db $f8, $f8, $04, $00
db $f8, $00, $05, $00
db $00, $f8, $09, $00
db $00, $00, $07, $00
; 8ddf0
Unknown_8ddf0: ; 8ddf0
db 6
db $f8, $f4, $00, $01
db $f8, $fc, $01, $01
db $f8, $04, $02, $01
db $00, $f4, $10, $01
db $00, $fc, $11, $01
db $00, $04, $12, $01
; 8de09
Unknown_8de09: ; 8de09
db 29
db $e8, $e8, $00, $00
db $e8, $f0, $01, $00
db $e8, $f8, $02, $00
db $e8, $00, $03, $00
db $f0, $e8, $10, $00
db $f0, $f0, $11, $00
db $f0, $f8, $12, $00
db $f0, $00, $13, $00
db $f8, $e8, $20, $00
db $f8, $f0, $21, $00
db $f8, $f8, $22, $00
db $f8, $00, $23, $00
db $f8, $08, $24, $00
db $00, $e8, $30, $80
db $00, $f0, $31, $80
db $00, $f8, $32, $80
db $00, $00, $33, $80
db $00, $08, $34, $80
db $08, $e8, $40, $80
db $08, $f0, $41, $80
db $08, $f8, $42, $80
db $08, $00, $43, $80
db $08, $08, $44, $80
db $08, $10, $45, $80
db $10, $f0, $51, $80
db $10, $f8, $52, $80
db $10, $00, $53, $80
db $10, $08, $54, $80
db $10, $10, $55, $80
; 8de7e
Unknown_8de7e: ; 8de7e
db 2
db $f8, $fc, $00, $00
db $00, $fc, $10, $00
; 8de87
Unknown_8de87: ; 8de87
db 5
db $f0, $18, $00, $00
db $f0, $20, $01, $00
db $f8, $10, $02, $00
db $f8, $18, $03, $00
db $00, $10, $04, $00
; 8de9c
Unknown_8de9c: ; 8de9c
db 1
db $fc, $fc, $00, $06
; 8dea1
Unknown_8dea1: ; 8dea1
db 4
db $f8, $f8, $00, $06
db $f8, $00, $01, $06
db $00, $f8, $02, $06
db $00, $00, $03, $06
; 8deb2
Unknown_8deb2: ; 8deb2
db 4
db $ff, $ff, $00, $00
db $ff, $00, $00, $20
db $00, $ff, $00, $40
db $00, $00, $00, $60
; 8dec3
Unknown_8dec3: ; 8dec3
db 10
db $ff, $00, $00, $00
db $ff, $08, $01, $00
db $ff, $10, $01, $00
db $ff, $18, $01, $00
db $ff, $20, $00, $20
db $00, $00, $00, $40
db $00, $08, $01, $40
db $00, $10, $01, $40
db $00, $18, $01, $40
db $00, $20, $00, $60
; 8deec
Unknown_8deec: ; 8deec
db 15
db $ec, $f4, $00, $11
db $ec, $fc, $01, $11
db $ec, $04, $02, $11
db $f4, $f4, $03, $11
db $f4, $fc, $04, $11
db $f4, $04, $05, $11
db $fc, $f4, $06, $11
db $fc, $fc, $07, $11
db $fc, $04, $08, $11
db $04, $f4, $09, $11
db $04, $fc, $0a, $11
db $04, $04, $0b, $11
db $0c, $f4, $0c, $11
db $0c, $fc, $0d, $11
db $0c, $04, $0e, $11
; 8df29
Unknown_8df29: ; 8df29
db 6
db $f4, $f4, $00, $15
db $f4, $fc, $02, $15
db $f4, $04, $00, $35
db $04, $f4, $04, $15
db $04, $fc, $06, $15
db $04, $04, $04, $35
; 8df42
Unknown_8df42: ; 8df42
db 6
db $f4, $f4, $00, $16
db $f4, $fc, $02, $16
db $f4, $04, $04, $16
db $04, $f4, $06, $16
db $04, $fc, $08, $16
db $04, $04, $0a, $16
; 8df5b
Unknown_8df5b: ; 8df5b
db 6
db $f4, $f4, $00, $16
db $f4, $fc, $02, $16
db $f4, $04, $04, $16
db $04, $f4, $0c, $16
db $04, $fc, $0e, $16
db $04, $04, $10, $16
; 8df74
Unknown_8df74: ; 8df74
db 6
db $f4, $f4, $00, $16
db $f4, $fc, $02, $16
db $f4, $04, $04, $16
db $04, $f4, $12, $16
db $04, $fc, $14, $16
db $04, $04, $16, $16
; 8df8d
Unknown_8df8d: ; 8df8d
db 6
db $f4, $f4, $00, $16
db $f4, $fc, $02, $16
db $f4, $04, $04, $16
db $04, $f4, $18, $16
db $04, $fc, $1a, $16
db $04, $04, $1c, $16
; 8dfa6
Unknown_8dfa6: ; 8dfa6
db 6
db $f4, $f4, $1e, $16
db $f4, $fc, $20, $16
db $f4, $04, $22, $16
db $04, $f4, $24, $16
db $04, $fc, $26, $16
db $04, $04, $28, $16
; 8dfbf
Unknown_8dfbf: ; 8dfbf
db 3
db $f4, $fc, $00, $10
db $fc, $fc, $00, $10
db $04, $fc, $00, $10
; 8dfcc
Unknown_8dfcc: ; 8dfcc
db 6
db $00, $00, $00, $00
db $00, $08, $01, $00
db $00, $10, $01, $00
db $00, $18, $01, $00
db $00, $20, $02, $00
db $00, $28, $03, $00
; 8dfe5
Unknown_8dfe5: ; 8dfe5
db 4
db $00, $00, $00, $00
db $00, $08, $01, $00
db $00, $10, $02, $00
db $00, $18, $03, $00
; 8dff6
Unknown_8dff6: ; 8dff6
db 4
db $f8, $f6, $00, $06
db $f8, $02, $01, $06
db $00, $f6, $02, $06
db $00, $02, $03, $06
; 8e007
Unknown_8e007: ; 8e007
db 4
db $f8, $f4, $00, $06
db $f8, $04, $01, $06
db $00, $f4, $02, $06
db $00, $04, $03, $06
; 8e018
Unknown_8e018: ; 8e018
db 4
db $f8, $f0, $00, $06
db $f8, $08, $01, $06
db $00, $f0, $02, $06
db $00, $08, $03, $06
; 8e029
Unknown_8e029: ; 8e029
db 19
db $f8, $e0, $00, $00
db $f0, $e8, $02, $00
db $00, $e8, $04, $00
db $e8, $f0, $06, $00
db $f8, $f0, $08, $00
db $08, $f0, $0a, $00
db $e8, $f8, $0c, $00
db $f8, $f8, $0e, $00
db $08, $f8, $10, $00
db $e8, $00, $12, $00
db $f8, $00, $14, $00
db $08, $00, $16, $00
db $e8, $08, $18, $00
db $f8, $08, $1a, $00
db $08, $08, $1c, $00
db $f8, $10, $1e, $00
db $08, $10, $20, $00
db $f0, $18, $22, $00
db $00, $18, $24, $00
; 8e076
Unknown_8e076: ; 8e076
db 16
db $f8, $e0, $00, $00
db $f0, $e8, $02, $00
db $00, $e8, $04, $00
db $f8, $f0, $26, $00
db $08, $f0, $0a, $00
db $e8, $f8, $28, $00
db $f8, $f8, $2a, $00
db $08, $f8, $10, $00
db $f8, $00, $2c, $00
db $08, $00, $16, $00
db $f8, $08, $30, $00
db $08, $08, $1c, $00
db $f8, $10, $1e, $00
db $08, $10, $20, $00
db $f0, $18, $22, $00
db $00, $18, $24, $00
; 8e0b7
Unknown_8e0b7: ; 8e0b7
db 15
db $f8, $e0, $00, $00
db $f0, $e8, $02, $00
db $00, $e8, $32, $00
db $f8, $f0, $34, $00
db $08, $f0, $36, $00
db $f8, $f8, $38, $00
db $08, $f8, $3a, $00
db $f8, $00, $3c, $00
db $08, $00, $3e, $00
db $f8, $08, $30, $00
db $08, $08, $1c, $00
db $f8, $10, $1e, $00
db $08, $10, $20, $00
db $f0, $18, $22, $00
db $00, $18, $24, $00
; 8e0f4
Unknown_8e0f4: ; 8e0f4
db 17
db $f8, $e0, $00, $00
db $f0, $e8, $02, $00
db $00, $e8, $04, $00
db $f8, $f0, $40, $00
db $08, $f0, $42, $00
db $18, $f0, $44, $00
db $f8, $f8, $46, $00
db $08, $f8, $48, $00
db $18, $f8, $4a, $00
db $f8, $00, $4c, $00
db $08, $00, $4e, $00
db $f8, $08, $30, $00
db $08, $08, $1c, $00
db $f8, $10, $1e, $00
db $08, $10, $20, $00
db $f0, $18, $22, $00
db $00, $18, $24, $00
; 8e139
Unknown_8e139: ; 8e139
db 17
db $f8, $e0, $00, $00
db $f0, $e8, $02, $00
db $00, $e8, $04, $00
db $f8, $f0, $50, $00
db $08, $f0, $0a, $00
db $e8, $f8, $52, $00
db $f8, $f8, $54, $00
db $08, $f8, $10, $00
db $e8, $00, $56, $00
db $f8, $00, $2e, $00
db $08, $00, $16, $00
db $f8, $08, $30, $00
db $08, $08, $1c, $00
db $f8, $10, $1e, $00
db $08, $10, $20, $00
db $f0, $18, $22, $00
db $00, $18, $24, $00
; 8e17e
Unknown_8e17e: ; 8e17e
db 1
db $fc, $fc, $00, $11
; 8e183
Unknown_8e183: ; 8e183
db 12
db $00, $00, $30, $00
db $00, $08, $31, $00
db $00, $10, $31, $00
db $00, $18, $31, $00
db $00, $20, $31, $00
db $00, $28, $32, $00
db $08, $00, $33, $00
db $08, $08, $34, $00
db $08, $10, $34, $00
db $08, $18, $34, $00
db $08, $20, $34, $00
db $08, $28, $35, $00
; 8e1b4
Unknown_8e1b4: ; 8e1b4
db 1
db $00, $00, $ed, $00
; 8e1b9
Unknown_8e1b9: ; 8e1b9
db 4
db $ff, $ff, $30, $00
db $ff, $01, $32, $00
db $01, $ff, $33, $00
db $01, $01, $35, $00
; 8e1ca
Unknown_8e1ca: ; 8e1ca
db 8
db $ff, $ff, $30, $00
db $ff, $04, $31, $00
db $ff, $0c, $31, $00
db $ff, $11, $32, $00
db $01, $ff, $33, $00
db $01, $04, $34, $00
db $01, $0c, $34, $00
db $01, $11, $35, $00
; 8e1eb
Unknown_8e1eb: ; 8e1eb
db 1
db $00, $00, $34, $00
; 8e1f0
Unknown_8e1f0: ; 8e1f0
db 2
db $00, $00, $30, $00
db $08, $00, $33, $00
; 8e1f9
Unknown_8e1f9: ; 8e1f9
db 2
db $00, $00, $32, $00
db $08, $00, $35, $00
; 8e202
Unknown_8e202: ; 8e202
db 4
db $f8, $f8, $00, $01
db $f8, $00, $01, $01
db $00, $f8, $02, $01
db $00, $00, $03, $01
; 8e213
Unknown_8e213: ; 8e213
db 4
db $f8, $f8, $00, $81
db $f8, $00, $01, $81
db $00, $f8, $02, $81
db $00, $00, $03, $81
; 8e224
Unknown_8e224: ; 8e224
db 1
db $fc, $fc, $00, $02
; 8e229
Unknown_8e229: ; 8e229
db 4
db $f0, $fc, $00, $03
db $f8, $fc, $01, $03
db $00, $fc, $02, $03
db $08, $fc, $03, $03
; 8e23a
Unknown_8e23a: ; 8e23a
db 4
db $f0, $fc, $03, $44
db $f8, $fc, $02, $44
db $00, $fc, $01, $44
db $08, $fc, $00, $44
; 8e24b
Unknown_8e24b: ; 8e24b
db 4
db $f8, $f8, $00, $01
db $f8, $00, $00, $21
db $00, $f8, $00, $41
db $00, $00, $00, $61
; 8e25c
Unknown_8e25c: ; 8e25c
db 8
db $f4, $f4, $00, $01
db $f4, $fc, $01, $01
db $f4, $04, $00, $21
db $fc, $f4, $02, $01
db $fc, $04, $02, $21
db $04, $f4, $00, $41
db $04, $fc, $01, $41
db $04, $04, $00, $61
; 8e27d
Unknown_8e27d: ; 8e27d
db 12
db $f0, $f0, $00, $01
db $f0, $f8, $01, $01
db $f8, $f0, $02, $01
db $f0, $00, $01, $21
db $f0, $08, $00, $21
db $f8, $08, $02, $21
db $00, $f0, $02, $41
db $08, $f0, $00, $41
db $08, $f8, $01, $41
db $00, $08, $02, $61
db $08, $00, $01, $61
db $08, $08, $00, $61
; 8e2ae
Unknown_8e2ae: ; 8e2ae
db 36
db $e8, $08, $05, $00
db $e8, $10, $06, $00
db $e8, $18, $07, $00
db $f0, $e8, $11, $00
db $f0, $f0, $12, $00
db $f0, $f8, $13, $00
db $f0, $00, $14, $00
db $f0, $08, $15, $00
db $f0, $10, $16, $00
db $f0, $18, $17, $00
db $f8, $e0, $20, $00
db $f8, $e8, $21, $00
db $f8, $f0, $22, $00
db $f8, $f8, $23, $00
db $f8, $00, $24, $00
db $f8, $08, $25, $00
db $f8, $10, $26, $00
db $f8, $18, $27, $00
db $00, $e0, $30, $00
db $00, $e8, $31, $00
db $00, $f0, $32, $00
db $00, $f8, $33, $00
db $00, $00, $34, $00
db $00, $08, $35, $00
db $00, $10, $36, $00
db $08, $e0, $40, $00
db $08, $e8, $41, $00
db $08, $f0, $42, $00
db $08, $f8, $43, $00
db $08, $00, $44, $00
db $08, $08, $45, $00
db $08, $10, $46, $00
db $08, $18, $47, $00
db $10, $e0, $50, $00
db $10, $e8, $51, $00
db $10, $18, $57, $00
; 8e33f
Unknown_8e33f: ; 8e33f
db 28
db $e8, $00, $04, $00
db $e8, $08, $05, $00
db $e8, $10, $06, $00
db $f0, $e8, $11, $00
db $f0, $f0, $12, $00
db $f0, $f8, $13, $00
db $f0, $00, $14, $00
db $f0, $08, $15, $00
db $f0, $10, $16, $00
db $f8, $e8, $21, $00
db $f8, $f0, $22, $00
db $f8, $f8, $23, $00
db $f8, $00, $24, $00
db $f8, $08, $25, $00
db $f8, $10, $26, $00
db $00, $e0, $30, $00
db $00, $e8, $31, $00
db $00, $f0, $32, $00
db $00, $f8, $33, $00
db $00, $00, $34, $00
db $00, $08, $35, $00
db $08, $f0, $42, $00
db $08, $f8, $43, $00
db $08, $00, $44, $00
db $08, $08, $45, $00
db $10, $f8, $53, $00
db $10, $00, $54, $00
db $10, $08, $55, $00
; 8e3b0
Unknown_8e3b0: ; 8e3b0
db 30
db $e8, $00, $04, $00
db $e8, $08, $05, $00
db $f0, $e8, $11, $00
db $f0, $f0, $12, $00
db $f0, $f8, $13, $00
db $f0, $00, $14, $00
db $f0, $08, $15, $00
db $f0, $10, $16, $00
db $f0, $18, $17, $00
db $f8, $e0, $20, $00
db $f8, $e8, $21, $00
db $f8, $f0, $22, $00
db $f8, $f8, $23, $00
db $f8, $00, $24, $00
db $f8, $08, $25, $00
db $f8, $10, $26, $00
db $00, $e0, $30, $00
db $00, $e8, $31, $00
db $00, $f0, $32, $00
db $00, $f8, $33, $00
db $00, $00, $34, $00
db $00, $08, $35, $00
db $08, $f0, $42, $00
db $08, $f8, $43, $00
db $08, $00, $44, $00
db $08, $08, $45, $00
db $10, $f0, $52, $00
db $10, $f8, $53, $00
db $10, $00, $54, $00
db $10, $08, $55, $00
; 8e429
Unknown_8e429: ; 8e429
db 31
db $f0, $e8, $11, $00
db $f0, $f0, $12, $00
db $f0, $f8, $13, $00
db $f0, $00, $14, $00
db $f0, $08, $15, $00
db $f0, $10, $16, $00
db $f0, $18, $17, $00
db $f8, $e0, $20, $00
db $f8, $e8, $21, $00
db $f8, $f0, $22, $00
db $f8, $f8, $23, $00
db $f8, $00, $24, $00
db $f8, $08, $25, $00
db $f8, $10, $26, $00
db $f8, $18, $27, $00
db $00, $e0, $30, $00
db $00, $e8, $31, $00
db $00, $f0, $32, $00
db $00, $f8, $33, $00
db $00, $00, $34, $00
db $00, $08, $35, $00
db $00, $10, $36, $00
db $08, $e8, $41, $00
db $08, $f0, $42, $00
db $08, $f8, $43, $00
db $08, $00, $44, $00
db $08, $08, $45, $00
db $10, $e8, $51, $00
db $10, $f0, $52, $00
db $10, $00, $54, $00
db $10, $08, $55, $00
; 8e4a6
Unknown_8e4a6: ; 8e4a6
db 25
db $ec, $ec, $00, $09
db $ec, $f4, $01, $09
db $ec, $fc, $02, $09
db $ec, $04, $03, $09
db $ec, $0c, $04, $09
db $f4, $ec, $10, $09
db $f4, $f4, $11, $09
db $f4, $fc, $12, $09
db $f4, $04, $13, $09
db $f4, $0c, $14, $09
db $fc, $ec, $20, $09
db $fc, $f4, $21, $09
db $fc, $fc, $22, $09
db $fc, $04, $23, $09
db $fc, $0c, $24, $09
db $04, $ec, $30, $09
db $04, $f4, $31, $09
db $04, $fc, $32, $09
db $04, $04, $33, $09
db $04, $0c, $34, $09
db $0c, $ec, $40, $09
db $0c, $f4, $41, $09
db $0c, $fc, $42, $09
db $0c, $04, $43, $09
db $0c, $0c, $44, $09
; 8e50b
Unknown_8e50b: ; 8e50b
db 16
db $f0, $ec, $00, $0a
db $f0, $f4, $01, $0a
db $f0, $fc, $02, $0a
db $f0, $04, $03, $0a
db $f8, $ec, $04, $0a
db $f8, $f4, $05, $0a
db $f8, $fc, $06, $0a
db $f8, $04, $07, $0a
db $00, $ec, $08, $0a
db $00, $f4, $09, $0a
db $00, $fc, $0a, $0a
db $00, $04, $0b, $0a
db $08, $ec, $0c, $0a
db $08, $f4, $0d, $0a
db $08, $fc, $0e, $0a
db $08, $04, $0f, $0a
; 8e54c
Unknown_8e54c: ; 8e54c
db 1
db $fc, $fc, $00, $00
; 8e551
Unknown_8e551: ; 8e551
db 3
db $00, $f8, $00, $00
db $f8, $f8, $01, $00
db $f8, $00, $02, $00
; 8e55e
Unknown_8e55e: ; 8e55e
db 7
db $08, $f0, $00, $00
db $00, $f0, $01, $00
db $f8, $f0, $02, $00
db $f8, $f8, $03, $00
db $f0, $f8, $04, $00
db $f0, $00, $05, $00
db $f0, $08, $06, $00
; 8e57b
Unknown_8e57b: ; 8e57b
db 8
db $f8, $f0, $00, $00
db $f8, $f8, $01, $00
db $f8, $00, $01, $20
db $f8, $08, $00, $20
db $00, $f0, $00, $40
db $00, $f8, $01, $40
db $00, $00, $01, $60
db $00, $08, $00, $60
; 8e59c
Unknown_8e59c: ; 8e59c
db 12
db $e8, $f8, $00, $00
db $f0, $f8, $01, $00
db $f8, $f8, $02, $00
db $e8, $00, $00, $20
db $f0, $00, $01, $20
db $f8, $00, $02, $20
db $00, $f8, $02, $40
db $08, $f8, $01, $40
db $10, $f8, $00, $40
db $00, $00, $02, $60
db $08, $00, $01, $60
db $10, $00, $00, $60
; 8e5cd
Unknown_8e5cd: ; 8e5cd
db 20
db $ec, $f0, $00, $00
db $ec, $f8, $01, $00
db $ec, $00, $02, $00
db $ec, $08, $03, $00
db $f4, $f0, $04, $00
db $f4, $f8, $05, $00
db $f4, $00, $06, $00
db $f4, $08, $07, $00
db $fc, $f0, $08, $00
db $fc, $f8, $09, $00
db $fc, $00, $0a, $00
db $fc, $08, $0b, $00
db $04, $f0, $0c, $00
db $04, $f8, $0d, $00
db $04, $00, $0e, $00
db $04, $08, $0f, $00
db $0c, $f0, $10, $00
db $0c, $f8, $11, $00
db $0c, $00, $12, $00
db $0c, $08, $13, $00
; 8e61e
Unknown_8e61e: ; 8e61e
db 20
db $00, $08, $00, $81
db $08, $10, $00, $81
db $10, $18, $00, $81
db $18, $20, $00, $81
db $20, $28, $00, $81
db $18, $30, $00, $81
db $10, $38, $00, $81
db $08, $40, $00, $81
db $00, $48, $00, $81
db $08, $50, $00, $81
db $10, $58, $00, $81
db $18, $60, $00, $81
db $20, $68, $00, $81
db $18, $70, $00, $81
db $10, $78, $00, $81
db $08, $80, $00, $81
db $00, $88, $00, $81
db $08, $90, $00, $81
db $10, $98, $00, $81
db $18, $a0, $00, $81
; 8e66f
Unknown_8e66f: ; 8e66f
db 4
db $f8, $f8, $00, $02
db $f8, $00, $01, $02
db $00, $f8, $02, $02
db $00, $00, $03, $02
; 8e680
Unknown_8e680: ; 8e680
db 9
db $f0, $f4, $00, $01
db $f0, $fc, $01, $01
db $f0, $04, $02, $01
db $f8, $f4, $10, $01
db $f8, $fc, $11, $01
db $f8, $04, $12, $01
db $00, $f4, $20, $01
db $00, $fc, $21, $01
db $00, $04, $22, $01
; 8e6a5
Unknown_8e6a5: ; 8e6a5
db 24
db $d8, $f4, $00, $01
db $d8, $fc, $01, $01
db $d8, $04, $02, $01
db $d8, $0c, $03, $01
db $e0, $f4, $10, $01
db $e0, $fc, $11, $01
db $e0, $04, $12, $01
db $e0, $0c, $13, $01
db $e8, $f4, $20, $01
db $e8, $fc, $21, $01
db $e8, $04, $22, $01
db $e8, $0c, $23, $01
db $f0, $f4, $30, $01
db $f0, $fc, $31, $01
db $f0, $04, $32, $01
db $f0, $0c, $33, $01
db $f8, $f4, $40, $01
db $f8, $fc, $41, $01
db $f8, $04, $42, $01
db $f8, $0c, $43, $01
db $00, $f4, $50, $01
db $00, $fc, $51, $01
db $00, $04, $52, $01
db $00, $0c, $53, $01
; 8e706
Unknown_8e706: ; 8e706
dbbw $80, $01, Unknown_8e72a
dbbw $80, $01, Unknown_8e72a
dbbw $80, $01, Unknown_8e72a
dbbw $80, $01, Unknown_8e72a
dbbw $10, $37, Unknown_8e72a
dbbw $10, $11, Unknown_8e72a
dbbw $10, $39, Unknown_8e72a
dbbw $10, $24, Unknown_8e72a
dbbw $10, $21, Unknown_8e72a
Unknown_8e72a:
; 8e72a
Function8e72a: ; 8e72a
add $10
Function8e72c: ; 8e72c
and $3f
cp $20
jr nc, .asm_8e737
call Function8e741
ld a, h
ret
.asm_8e737
and $1f
call Function8e741
ld a, h
xor $ff
inc a
ret
; 8e741
Function8e741: ; 8e741
ld e, a
ld a, d
ld d, 0
ld hl, Unknown_8e75d
rept 2
add hl, de
endr
ld e, [hl]
inc hl
ld d, [hl]
ld hl, 0
.asm_8e750
srl a
jr nc, .asm_8e755
add hl, de
.asm_8e755
sla e
rl d
and a
jr nz, .asm_8e750
ret
; 8e75d
Unknown_8e75d: ; 8e75d
sine_wave $100
Function8e79d: ; 8e79d
ld a, [hSGB]
ld de, GFX_8e7f4
and a
jr z, .asm_8e7a8
ld de, GFX_8e804
.asm_8e7a8
ld hl, VTiles0
lb bc, BANK(GFX_8e7f4), 1
call Request2bpp
ld c, $8
ld d, $0
.asm_8e7b5
push bc
call Function8e7c6
call DelayFrame
pop bc
rept 2
inc d
endr
dec c
jr nz, .asm_8e7b5
call ClearSprites
ret
; 8e7c6
Function8e7c6: ; 8e7c6
ld hl, Sprites
ld c, $8
.asm_8e7cb
ld a, c
and a
ret z
dec c
ld a, c
sla a
sla a
sla a
push af
push de
push hl
call Function8e72c
pop hl
pop de
add $68
ld [hli], a
pop af
push de
push hl
call Function8e72a
pop hl
pop de
add $54
ld [hli], a
ld a, $0
ld [hli], a
ld a, $6
ld [hli], a
jr .asm_8e7cb
; 8e7f4
GFX_8e7f4: ; 8e7f4
INCBIN "gfx/unknown/08e7f4.2bpp"
GFX_8e804: ; 8e804
INCBIN "gfx/unknown/08e804.2bpp"
Function8e814: ; 8e814
push hl
push de
push bc
push af
ld hl, wc300
ld bc, $00c1
.asm_8e81e
ld [hl], $0
inc hl
dec bc
ld a, c
or b
jr nz, .asm_8e81e
pop af
pop bc
pop de
pop hl
ret
; 8e82b
Function8e82b: ; 8e82b
ld a, e
call ReadMonMenuIcon
ld l, a
ld h, 0
add hl, hl
ld de, IconPointers
add hl, de
ld a, [hli]
ld e, a
ld d, [hl]
ld b, BANK(Icons)
ld c, 8
ret
; 8e83f
Function8e83f: ; 8e83f
push hl
push de
push bc
call Function8e849
pop bc
pop de
pop hl
ret
; 8e849
Function8e849: ; 8e849
ld d, 0
ld hl, Jumptable_8e854
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 8e854
Jumptable_8e854: ; 8e854 (23:6854)
dw Function8e8d5
dw Function8e961
dw Function8e97d
dw Function8e99a
dw Function8e898
dw Function8e8b1
dw Function8e862
Function8e862: ; 8e862 (23:6862)
call Function8e908
call Function8e86c
call Function8e936
ret
Function8e86c: ; 8e86c (23:686c)
push bc
ld a, [$ffb0]
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call AddNTimes
pop bc
ld a, [hl]
and a
jr z, .asm_8e890
push hl
push bc
ld d, a
callab ItemIsMail
pop bc
pop hl
jr c, .asm_8e88e
ld a, $6
jr .asm_8e892
.asm_8e88e
ld a, $5
.asm_8e890
ld a, $4
.asm_8e892
ld hl, $1
add hl, bc
ld [hl], a
ret
Function8e898: ; 8e898 (23:6898)
call Function8e8d5
ld hl, $2
add hl, bc
ld a, $0
ld [hl], a
ld hl, $4
add hl, bc
ld a, $48
ld [hl], a
ld hl, $5
add hl, bc
ld a, $48
ld [hl], a
ret
Function8e8b1: ; 8e8b1 (23:68b1)
call Function8e908
call Function8e936
ld hl, $2
add hl, bc
ld a, $0
ld [hl], a
ld hl, $4
add hl, bc
ld a, $18
ld [hl], a
ld hl, $5
add hl, bc
ld a, $60
ld [hl], a
ld a, c
ld [wc608], a
ld a, b
ld [wc608 + 1], a
ret
Function8e8d5: ; 8e8d5 (23:68d5)
call Function8e908
call Function8e8df
call Function8e936
ret
Function8e8df: ; 8e8df (23:68df)
push bc
ld a, [$ffb0]
ld hl, PartyMon1Item
ld bc, $30
call AddNTimes
pop bc
ld a, [hl]
and a
ret z
push hl
push bc
ld d, a
callab ItemIsMail
pop bc
pop hl
jr c, .asm_8e900
ld a, $3
jr .asm_8e902
.asm_8e900
ld a, $2
.asm_8e902
ld hl, $1
add hl, bc
ld [hl], a
ret
Function8e908: ; 8e908 (23:6908)
ld a, [wc3b7]
push af
ld a, [$ffb0]
ld hl, PartySpecies
ld e, a
ld d, $0
add hl, de
ld a, [hl]
call ReadMonMenuIcon
ld [CurIcon], a
call Function8e9db
ld a, [$ffb0]
rept 4
add a
endr
add $1c
ld d, a
ld e, $10
ld a, $0
call Function8cfd6
pop af
ld hl, $3
add hl, bc
ld [hl], a
ret
Function8e936: ; 8e936 (23:6936)
push bc
ld a, [$ffb0]
ld b, a
call Function8e94c
ld a, b
pop bc
ld hl, $9
add hl, bc
ld [hl], a
rlca
rlca
ld hl, $d
add hl, bc
ld [hl], a
ret
Function8e94c: ; 8e94c (23:694c)
callba Function50117
call GetHPPal
ld e, d
ld d, 0
ld hl, Unknown_8e95e
add hl, de
ld b, [hl]
ret
; 8e95e (23:695e)
Unknown_8e95e: ; 8e95e
db $00, $40, $80
; 8e961
Function8e961: ; 8e961 (23:6961)
ld a, [wd265]
call ReadMonMenuIcon
ld [CurIcon], a
xor a
call GetIconGFX
ld de, $2420
ld a, $0
call Function8cfd6
ld hl, $2
add hl, bc
ld [hl], $0
ret
Function8e97d: ; 8e97d (23:697d)
ld a, [wd265]
call ReadMonMenuIcon
ld [CurIcon], a
xor a
call GetIconGFX
ld d, $1a
ld e, $24
ld a, $0
call Function8cfd6
ld hl, $2
add hl, bc
ld [hl], $0
ret
Function8e99a: ; 8e99a (23:699a)
ld a, [wd265]
call ReadMonMenuIcon
ld [CurIcon], a
ld a, $62
ld [wc3b7], a
call Function8e9db
ret
GetSpeciesIcon: ; 8e9ac
; Load species icon into VRAM at tile a
push de
ld a, [wd265]
call ReadMonMenuIcon
ld [CurIcon], a
pop de
ld a, e
call GetIconGFX
ret
; 8e9bc
Function8e9bc: ; 8e9bc (23:69bc)
push de
ld a, [wd265]
call ReadMonMenuIcon
ld [CurIcon], a
pop de
ld a, e
call GetIcon_a
ret
; 8e9cc (23:69cc)
Function8e9cc: ; 8e9cc
push de
ld a, [wd265]
call ReadMonMenuIcon
ld [CurIcon], a
pop de
call GetIcon_de
ret
; 8e9db
Function8e9db: ; 8e9db (23:69db)
ld a, [wc3b7]
GetIconGFX: ; 8e9de
call GetIcon_a
ld de, $80 ; 8 tiles
add hl, de
ld de, HeldItemIcons
lb bc, BANK(HeldItemIcons), 2
call GetGFXUnlessMobile
ld a, [wc3b7]
add 10
ld [wc3b7], a
ret
HeldItemIcons:
INCBIN "gfx/icon/mail.2bpp"
INCBIN "gfx/icon/item.2bpp"
; 8ea17
GetIcon_de: ; 8ea17
; Load icon graphics into VRAM starting from tile de.
ld l, e
ld h, d
jr GetIcon
GetIcon_a: ; 8ea1b
; Load icon graphics into VRAM starting from tile a.
ld l, a
ld h, 0
GetIcon: ; 8ea1e
; Load icon graphics into VRAM starting from tile hl.
; One tile is 16 bytes long.
rept 4
add hl, hl
endr
ld de, VTiles0
add hl, de
push hl
; The icons are contiguous, in order and of the same
; size, so the pointer table is somewhat redundant.
ld a, [CurIcon]
push hl
ld l, a
ld h, 0
add hl, hl
ld de, IconPointers
add hl, de
ld a, [hli]
ld e, a
ld d, [hl]
pop hl
lb bc, BANK(Icons), 8
call GetGFXUnlessMobile
pop hl
ret
; 8ea3f
GetGFXUnlessMobile: ; 8ea3f
ld a, [InLinkBattle]
cp 4 ; Mobile Link Battle
jp nz, Request2bpp
jp Functiondc9
; 8ea4a
Function8ea4a: ; 8ea4a
ld hl, wc314
ld e, $6
ld a, [wcfa9]
ld d, a
.asm_8ea53
ld a, [hl]
and a
jr z, .asm_8ea69
cp d
jr z, .asm_8ea5e
ld a, $0
jr .asm_8ea60
.asm_8ea5e
ld a, $2
.asm_8ea60
push hl
ld c, l
ld b, h
ld hl, $0002
add hl, bc
ld [hl], a
pop hl
.asm_8ea69
ld bc, $0010
add hl, bc
dec e
jr nz, .asm_8ea53
ret
; 8ea71
Function8ea71: ; 8ea71
ld hl, wc314
ld e, $6
.asm_8ea76
ld a, [hl]
and a
jr z, .asm_8ea84
push hl
ld c, l
ld b, h
ld hl, $2
add hl, bc
ld [hl], $1
pop hl
.asm_8ea84
ld bc, $10
add hl, bc
dec e
jr nz, .asm_8ea76
ret
; 8ea8c (23:6a8c)
Function8ea8c: ; 8ea8c
ld hl, wc314
ld e, $6
ld a, [wd0e3]
ld d, a
.asm_8ea95
ld a, [hl]
and a
jr z, .asm_8eaab
cp d
jr z, .asm_8eaa0
ld a, $3
jr .asm_8eaa2
.asm_8eaa0
ld a, $2
.asm_8eaa2
push hl
ld c, l
ld b, h
ld hl, $2
add hl, bc
ld [hl], a
pop hl
.asm_8eaab
ld bc, $10
add hl, bc
dec e
jr nz, .asm_8ea95
ret
INCLUDE "menu/mon_icons.asm"
SECTION "bank24", ROMX, BANK[$24]
AddPhoneNumber:: ; 90000
call _CheckCellNum
jr c, .asm_9000d
call Function9002d
jr nc, .asm_9000d
ld [hl], c
xor a
ret
.asm_9000d
scf
ret
; 9000f
DelCellNum:: ; 9000f
call _CheckCellNum
jr nc, .asm_90017
xor a
ld [hl], a
ret
.asm_90017
scf
ret
; 90019
CheckCellNum:: ; 90019
jp _CheckCellNum
; 9001c
_CheckCellNum: ; 9001c
ld hl, wdc7c
ld b, $a
.asm_90021
ld a, [hli]
cp c
jr z, .asm_9002a
dec b
jr nz, .asm_90021
xor a
ret
.asm_9002a
dec hl
scf
ret
; 9002d
Function9002d: ; 9002d
call Function90040
ld b, a
ld hl, wdc7c
.asm_90034
ld a, [hli]
and a
jr z, .asm_9003d
dec b
jr nz, .asm_90034
xor a
ret
.asm_9003d
dec hl
scf
ret
; 90040
Function90040: ; 90040
xor a
ld [Buffer1], a
ld hl, Unknown_90066
.asm_90047
ld a, [hli]
cp $ff
jr z, .asm_9005f
cp c
jr z, .asm_9005d
push bc
push hl
ld c, a
call _CheckCellNum
jr c, .asm_9005b
ld hl, Buffer1
inc [hl]
.asm_9005b
pop hl
pop bc
.asm_9005d
jr .asm_90047
.asm_9005f
ld a, $a
ld hl, Buffer1
sub [hl]
ret
; 90066
Unknown_90066: ; 90066
db 1, 4, $ff
; 90069
Function90069: ; 90069
ld a, [hROMBank]
push af
ld a, b
rst Bankswitch
call PlaceString
pop af
rst Bankswitch
ret
; 90074
CheckPhoneCall:: ; 90074 (24:4074)
; Check if the phone is ringing in the overworld.
call CheckStandingOnEntrance
jr z, .no_call
call Function900a6
nop
jr nc, .no_call
call Random
ld b, a
and $7f
cp b
jr nz, .no_call
call GetMapHeaderPhoneServiceNybble
and a
jr nz, .no_call
call Function900de
call Function900bf
jr nc, .no_call
ld e, a
call Function9020d
ld a, BANK(UnknownScript_0x90241)
ld hl, UnknownScript_0x90241
call CallScript
scf
ret
.no_call
xor a
ret
Function900a6: ; 900a6 (24:40a6)
callba Function11401
ret
Function900ad: ; 900ad (24:40ad)
push hl
push bc
push de
push af
callba CheckTime
pop af
and $7
and c
pop de
pop bc
pop hl
ret
Function900bf: ; 900bf (24:40bf)
ld a, [wd040]
and a
jr z, .asm_900dc
ld c, a
call Random
ld a, [hRandomAdd] ; $ff00+$e1
swap a
and $1f
call SimpleDivide
ld c, a
ld b, $0
ld hl, wd041
add hl, bc
ld a, [hl]
scf
ret
.asm_900dc
xor a
ret
Function900de: ; 900de (24:40de)
callba CheckTime
ld a, c
ld [EngineBuffer1], a ; wd03e (aliases: MenuItemsList, CurFruitTree, CurInput)
ld hl, wd040
ld bc, $b
xor a
call ByteFill
ld de, wdc7c
ld a, $a
.asm_900f7
ld [wd03f], a
ld a, [de]
and a
jr z, .asm_9012e
ld hl, PhoneContacts + 8
ld bc, 12
call AddNTimes
ld a, [EngineBuffer1] ; wd03e (aliases: MenuItemsList, CurFruitTree, CurInput)
and [hl]
jr z, .asm_9012e
ld bc, $fffa
add hl, bc
ld a, [MapGroup]
cp [hl]
jr nz, .asm_9011e
inc hl
ld a, [MapNumber]
cp [hl]
jr z, .asm_9012e
.asm_9011e
ld a, [wd040]
ld c, a
ld b, $0
inc a
ld [wd040], a
ld hl, wd041
add hl, bc
ld a, [de]
ld [hl], a
.asm_9012e
inc de
ld a, [wd03f]
dec a
jr nz, .asm_900f7
ret
Function90136:: ; 90136 (24:4136)
ld a, [wSpecialPhoneCallID]
and a
jr z, .asm_90171
dec a
ld c, a
ld b, 0
ld hl, Unknown_90627
ld a, 6
call AddNTimes
ld a, [hli]
ld h, [hl]
ld l, a
call _hl_
jr nc, .asm_90171
call Function90178
rept 2
inc hl
endr
ld a, [hli]
ld e, a
push hl
call Function9020d
pop hl
ld de, wd048
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
ld a, BANK(UnknownScript_0x90173)
ld hl, UnknownScript_0x90173
call CallScript
scf
ret
.asm_90171
xor a
ret
; 90173 (24:4173)
UnknownScript_0x90173: ; 0x90173
pause 30
jump UnknownScript_0x90241
; 0x90178
Function90178: ; 90178 (24:4178)
ld a, [wSpecialPhoneCallID]
dec a
ld c, a
ld b, 0
ld hl, Unknown_90627
ld a, 6
call AddNTimes
ret
Function90188: ; 90188
ld a, [wPermission]
cp $1
jr z, .asm_90195
cp $2
jr z, .asm_90195
xor a
ret
.asm_90195
scf
ret
Function90197: ; 90197
scf
ret
Function90199: ; 90199 (24:4199)
ld a, [InLinkBattle]
and a
jr nz, .asm_901e7
call GetMapHeaderPhoneServiceNybble
and a
jr nz, .asm_901e7
ld a, b
ld [wdbf9], a
ld hl, PhoneContacts
ld bc, 12
call AddNTimes
ld d, h
ld e, l
ld hl, 4
add hl, de
ld a, [hl]
call Function900ad
jr z, .asm_901e7
ld hl, 2
add hl, de
ld a, [MapGroup]
cp [hl]
jr nz, .asm_901d9
ld hl, $3
add hl, de
ld a, [MapNumber]
cp [hl]
jr nz, .asm_901d9
ld b, BANK(UnknownScript_0x90660)
ld hl, UnknownScript_0x90660
jr .asm_901f0
.asm_901d9
ld hl, $5
add hl, de
ld b, [hl]
ld hl, $6
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jr .asm_901f0
.asm_901e7
ld b, BANK(UnknownScript_0x90209)
ld de, UnknownScript_0x90209
call ExecuteCallbackScript
ret
.asm_901f0
ld a, b
ld [wd002], a
ld a, l
ld [wd003], a
ld a, h
ld [wd004], a
ld b, BANK(UnknownScript_0x90205)
ld de, UnknownScript_0x90205
call ExecuteCallbackScript
ret
; 90205 (24:4205)
UnknownScript_0x90205: ; 0x90205
ptcall wd002
return
; 0x90209
UnknownScript_0x90209: ; 0x90209
scall UnknownScript_0x90657
return
; 0x9020d
Function9020d: ; 9020d (24:420d)
nop
nop
ld a, e
ld [wdbf9], a
and a
jr nz, .asm_9021d
ld a, BANK(Unknown_90233)
ld hl, Unknown_90233
jr .asm_90229
.asm_9021d
ld hl, PhoneContacts
ld bc, 12
ld a, e
call AddNTimes
ld a, BANK(PhoneContacts)
.asm_90229
ld de, wd03f
ld bc, 12
call FarCopyBytes
ret
; 90233 (24:4233)
Unknown_90233: ; 90233
db 0, 0
dbw BANK(UnknownScript_0x90238), UnknownScript_0x90238
UnknownScript_0x90238:
writetext UnknownText_0x9023c
end
UnknownText_0x9023c:
text_jump UnknownText_0x1c5565
db "@"
; 90241
UnknownScript_0x90241: ; 0x90241
refreshscreen $0
callasm Function9026f
ptcall wd048
closetext
callasm HangUp
loadmovesprites
callasm Function113e5
end
; 0x90255
UnknownScript_0x90255:: ; 0x90255
callasm Function9025c
jump UnknownScript_0x90241
; 0x9025c
Function9025c: ; 9025c
ld e, $3
jp Function9020d
; 90261
UnknownScript_0x90261: ; 0x90261
callasm Function9026a
pause 30
jump UnknownScript_0x90241
; 0x9026a
Function9026a: ; 9026a
ld e, $4
jp Function9020d
; 9026f
Function9026f: ; 9026f
call Function9027c
call Function9027c
callba Function1060d3
ret
; 9027c
Function9027c: ; 9027c (24:427c)
call Phone_StartRinging
call Phone_Wait20Frames
call Phone_CallerTextboxWithName
call Phone_Wait20Frames
call Phone_CallerTextbox
call Phone_Wait20Frames
call Phone_CallerTextboxWithName
ret
Phone_CallerTextboxWithName: ; 90292 (24:4292)
ld a, [wdbf9]
ld b, a
call Function90363
ret
PhoneCall:: ; 9029a
ld a, b
ld [PhoneScriptBank], a
ld a, e
ld [PhoneCallerLo], a
ld a, d
ld [PhoneCallerHi], a
call Phone_FirstOfTwoRings
call Phone_FirstOfTwoRings
callba Function1060d3
ret
; 902b3
Phone_FirstOfTwoRings: ; 902b3
call Phone_StartRinging
call Phone_Wait20Frames
call Phone_CallerTextboxWithName2
call Phone_Wait20Frames
call Phone_CallerTextbox
call Phone_Wait20Frames
call Phone_CallerTextboxWithName2
ret
; 902c9
Phone_CallerTextboxWithName2: ; 902c9
call Phone_CallerTextbox
hlcoord 1, 2
ld [hl], $62
rept 2
inc hl
endr
ld a, [PhoneScriptBank]
ld b, a
ld a, [PhoneCallerLo]
ld e, a
ld a, [PhoneCallerHi]
ld d, a
call Function90069
ret
; 902e3
Phone_NoSignal: ; 902e3 (24:42e3)
ld de, SFX_NO_SIGNAL
call PlaySFX
jr Phone_CallEnd
HangUp:: ; 902eb
call HangUp_Beep
call HangUp_Wait20Frames
Phone_CallEnd:
call HangUp_BoopOn
call HangUp_Wait20Frames
call HangUp_BoopOff
call HangUp_Wait20Frames
call HangUp_BoopOn
call HangUp_Wait20Frames
call HangUp_BoopOff
call HangUp_Wait20Frames
call HangUp_BoopOn
call HangUp_Wait20Frames
call HangUp_BoopOff
call HangUp_Wait20Frames
ret
; 90316
Function90316: ; 90316
ld de, SFX_SHUT_DOWN_PC
call PlaySFX
ret
; 9031d
HangUp_Beep: ; 9031d
ld hl, UnknownText_0x9032a
call PrintText
ld de, SFX_HANG_UP
call PlaySFX
ret
; 9032a
UnknownText_0x9032a: ; 9032a
text_jump UnknownText_0x1c5580
db "@"
; 9032f
HangUp_BoopOn: ; 9032f
ld hl, UnknownText_0x90336
call PrintText
ret
; 90336
UnknownText_0x90336: ; 0x90336
text_jump UnknownText_0x1c5588
db "@"
; 0x9033b
HangUp_BoopOff: ; 9033b
call SpeechTextBox
ret
; 9033f
Phone_StartRinging: ; 9033f
call WaitSFX
ld de, SFX_CALL
call PlaySFX
call Phone_CallerTextbox
call DrawOnMap
callba Function4d188
ret
; 90355
HangUp_Wait20Frames: ; 90355
jr Phone_Wait20Frames
Phone_Wait20Frames
ld c, 20
call DelayFrames
callba Function4d188
ret
; 90363
Function90363: ; 90363 (24:4363)
push bc
call Phone_CallerTextbox
hlcoord 1, 1
ld [hl], $62
rept 2
inc hl
endr
ld d, h
ld e, l
pop bc
call Function90380
ret
Phone_CallerTextbox: ; 90375
hlcoord 0, 0
ld b, $2
ld c, $12
call TextBox
ret
; 90380
Function90380: ; 90380 (24:4380)
ld h, d
ld l, e
ld a, b
call Function9039a
call Function903a9
ret
Function9038a: ; 9038a (24:438a)
ld a, c
call Function9039a
ld a, c
ret nz
ld a, b
cp $1
ret z
cp $4
ret z
ld c, $1
ret
Function9039a: ; 9039a
push hl
ld hl, PhoneContacts
ld bc, 12
call AddNTimes
ld a, [hli]
ld b, [hl]
ld c, a
pop hl
ret
; 903a9
Function903a9: ; 903a9 (24:43a9)
ld a, c
and a
jr z, .asm_903c5
call Function90423
push hl
push bc
call PlaceString
ld a, ":"
ld [bc], a
pop bc
pop hl
ld de, 20 + 3
add hl, de
call Function9042e
call PlaceString
ret
.asm_903c5
push hl
ld c, b
ld b, 0
ld hl, Unknown_903d6
rept 2
add hl, bc
endr
ld a, [hli]
ld e, a
ld d, [hl]
pop hl
call PlaceString
ret
; 903d6 (24:43d6)
Unknown_903d6: ; 903d6
dw String_903e2
dw String_903ed
dw String_90402
dw String_903f2
dw String_903f8
dw String_9040d
String_903e2: db "----------@"
String_903ed: db "MOM:@"
String_903f2: db "BILL:@"
String_903f8: db "PROF.ELM:@"
String_90402: db "BIKE SHOP:@"
String_9040d: db "BUENA:", $22, " DISC JOCKEY@"
; 90423
Function90423: ; 90423 (24:4423)
push hl
push bc
callba GetTrainerName
pop bc
pop hl
ret
Function9042e: ; 9042e (24:442e)
push hl
push bc
callba Function3952d
pop bc
pop hl
ret
Function90439: ; 90439
ld a, [wdbf9]
call Function9039a
ld d, c
ld e, b
push de
ld a, [wdbf9]
ld hl, PhoneContacts + 2
ld bc, 12
call AddNTimes
ld b, [hl]
inc hl
ld c, [hl]
push bc
call GetWorldMapLocation
ld e, a
callba GetLandmarkName
pop bc
pop de
ret
; 9045f
PhoneContacts: ; 9045f
phone: MACRO
db \1, \2 ; trainer
map \3 ; map
db \4
dbw BANK(\5), \5 ; script 1
db \6
dbw BANK(\7), \7 ; script 2
ENDM
phone 0, 0, N_A, 0, UnusedPhoneScript, 0, UnusedPhoneScript
phone 0, 1, KRISS_HOUSE_1F, 7, MomPhoneScript, 0, UnusedPhoneScript
phone 0, 2, OAKS_LAB, 0, UnusedPhoneScript, 0, UnusedPhoneScript
phone 0, 3, N_A, 7, BillPhoneScript1, 0, BillPhoneScript2
phone 0, 4, ELMS_LAB, 7, ElmPhoneScript1, 0, ElmPhoneScript2
phone SCHOOLBOY, JACK1, NATIONAL_PARK, 7, UnknownScript_0xbd0d0, 7, UnknownScript_0xbd0fa
phone POKEFANF, BEVERLY1, NATIONAL_PARK, 7, UnknownScript_0xbd13f, 7, UnknownScript_0xbd158
phone SAILOR, HUEY1, OLIVINE_LIGHTHOUSE_2F, 7, UnknownScript_0xbd17c, 7, UnknownScript_0xbd1a9
phone 0, 0, N_A, 0, UnusedPhoneScript, 0, UnusedPhoneScript
phone 0, 0, N_A, 0, UnusedPhoneScript, 0, UnusedPhoneScript
phone 0, 0, N_A, 0, UnusedPhoneScript, 0, UnusedPhoneScript
phone COOLTRAINERM, GAVEN3, ROUTE_26, 7, UnknownScript_0xbd1da, 7, UnknownScript_0xbd204
phone COOLTRAINERF, BETH1, ROUTE_26, 7, UnknownScript_0xbd23d, 7, UnknownScript_0xbd267
phone BIRD_KEEPER, JOSE2, ROUTE_27, 7, UnknownScript_0xbd294, 7, UnknownScript_0xbd2cb
phone COOLTRAINERF, REENA1, ROUTE_27, 7, UnknownScript_0xbd31c, 7, UnknownScript_0xbd346
phone YOUNGSTER, JOEY1, ROUTE_30, 7, UnknownScript_0xbd373, 7, UnknownScript_0xbd3a0
phone BUG_CATCHER, WADE1, ROUTE_31, 7, UnknownScript_0xbd3d1, 7, UnknownScript_0xbd428
phone FISHER, RALPH1, ROUTE_32, 7, UnknownScript_0xbd4d2, 7, UnknownScript_0xbd509
phone PICNICKER, LIZ1, ROUTE_32, 7, UnknownScript_0xbd560, 7, UnknownScript_0xbd58d
phone HIKER, ANTHONY2, ROUTE_33, 7, UnknownScript_0xbd634, 7, UnknownScript_0xbd66b
phone CAMPER, TODD1, ROUTE_34, 7, UnknownScript_0xbd6c1, 7, UnknownScript_0xbd6f5
phone PICNICKER, GINA1, ROUTE_34, 7, UnknownScript_0xbd743, 7, UnknownScript_0xbd784
phone JUGGLER, IRWIN1, ROUTE_35, 7, UnknownScript_0xbd7e7, 7, UnknownScript_0xbd7fd
phone BUG_CATCHER, ARNIE1, ROUTE_35, 7, UnknownScript_0xbd813, 7, UnknownScript_0xbd84a
phone SCHOOLBOY, ALAN1, ROUTE_36, 7, UnknownScript_0xbd8a6, 7, UnknownScript_0xbd8dd
phone 0, 0, N_A, 0, UnusedPhoneScript, 0, UnusedPhoneScript
phone LASS, DANA1, ROUTE_38, 7, UnknownScript_0xbd930, 7, UnknownScript_0xbd967
phone SCHOOLBOY, CHAD1, ROUTE_38, 7, UnknownScript_0xbd9c6, 7, UnknownScript_0xbd9f0
phone POKEFANM, DEREK1, ROUTE_39, 7, UnknownScript_0xbda35, 7, UnknownScript_0xbda6e
phone FISHER, TULLY1, ROUTE_42, 7, UnknownScript_0xbdaac, 7, UnknownScript_0xbdae3
phone POKEMANIAC, BRENT1, ROUTE_43, 7, UnknownScript_0xbdb36, 7, UnknownScript_0xbdb60
phone PICNICKER, TIFFANY3, ROUTE_43, 7, UnknownScript_0xbdb99, 7, UnknownScript_0xbdbd0
phone BIRD_KEEPER, VANCE1, ROUTE_44, 7, UnknownScript_0xbdc73, 7, UnknownScript_0xbdc9d
phone FISHER, WILTON1, ROUTE_44, 7, UnknownScript_0xbdcce, 7, UnknownScript_0xbdd05
phone BLACKBELT_T, KENJI3, ROUTE_45, 7, UnknownScript_0xbdd71, 7, UnknownScript_0xbdd7d
phone HIKER, PARRY1, ROUTE_45, 7, UnknownScript_0xbdd89, 7, UnknownScript_0xbddb3
phone PICNICKER, ERIN1, ROUTE_46, 7, UnknownScript_0xbdde4, 7, UnknownScript_0xbde0e
phone 0, 5, GOLDENROD_DEPT_STORE_ROOF, 7, UnknownScript_0xa0b14, 7, UnknownScript_0xa0b26
; 90627
Unknown_90627: ; 90627
dw Function90188
db $04
dbw BANK(ElmPhoneScript2), ElmPhoneScript2
dw Function90188
db $04
dbw BANK(ElmPhoneScript2), ElmPhoneScript2
dw Function90188
db $04
dbw BANK(ElmPhoneScript2), ElmPhoneScript2
dw Function90188
db $04
dbw BANK(ElmPhoneScript2), ElmPhoneScript2
dw Function90197
db $04
dbw BANK(ElmPhoneScript2), ElmPhoneScript2
dw Function90197
db $02
dbw BANK(UnknownScript_0xa0b09), UnknownScript_0xa0b09 ; bike shop
dw Function90197
db $01
dbw BANK(MomPhoneLectureScript), MomPhoneLectureScript
dw Function90188
db $04
dbw BANK(ElmPhoneScript2), ElmPhoneScript2
; 90657
UnknownScript_0x90657: ; 0x90657
writetext UnknownText_0x9065b
end
; 0x9065b
UnknownText_0x9065b: ; 0x9065b
; That number is out of the area.
text_jump UnknownText_0x1c558b
db "@"
; 0x90660
UnknownScript_0x90660: ; 0x90660
writetext UnknownText_0x90664
end
; 0x90664
UnknownText_0x90664: ; 0x90664
; Just go talk to that person!
text_jump UnknownText_0x1c55ac
db "@"
; 0x90669
UnknownScript_0x90669: ; 0x90669
writetext UnknownText_0x9066d
end
; 0x9066d
UnknownText_0x9066d: ; 0x9066d
; Thank you!
text_jump UnknownText_0x1c55ca
db "@"
; 0x90672
Function90672: ; 90672 (24:4672)
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
ld a, $0
ld [wc2ce], a
ld a, $10
ld [MusicFade], a
ld a, MUSIC_NONE % $100
ld [MusicFadeIDLo], a
ld a, MUSIC_NONE / $100
ld [MusicFadeIDHi], a
ld c, 8
call DelayFrames
call Function4dd
call ClearTileMap
call ClearSprites
ld b, $8
call GetSGBLayout
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Functione51
ld de, GFX_908fb
ld hl, $9000
lb bc, BANK(GFX_908fb), 1
call Request1bpp
ld de, GFX_90903
ld hl, $9010
lb bc, BANK(GFX_90903), 1
call Request1bpp
ld de, GFX_9090b
ld hl, $9020
lb bc, BANK(GFX_9090b), 1
call Request1bpp
call Function90783
call WaitBGMap
call Function4a3
ld hl, UnknownText_0x90874
call PrintText
ld hl, wc608
ld bc, $32
xor a
call ByteFill
ld a, $a
ld [wc608 + 20], a
.asm_906e8
ld hl, UnknownText_0x90879
call PrintText
hlcoord 3, 7
ld b, $2
ld c, $f
call TextBox
hlcoord 11, 7
ld [hl], $1
hlcoord 11, 10
ld [hl], $2
hlcoord 4, 9
call Function907de
ld c, $a
call DelayFrames
.asm_9070d
call Functiona57
call Function90795
jr nc, .asm_9070d
ld a, [wc608 + 20]
ld [StringBuffer2 + 1], a
call Function90783
ld hl, UnknownText_0x90886
call PrintText
call YesNoBox
jr nc, .asm_9072e
call Function90783
jr .asm_906e8
.asm_9072e
ld hl, UnknownText_0x9089a
call PrintText
hlcoord 11, 7
ld bc, $207
call TextBox
hlcoord 15, 7
ld [hl], $1
hlcoord 15, 10
ld [hl], $2
hlcoord 12, 9
call Function90859
ld c, 10
call DelayFrames
.asm_90752
call Functiona57
call Function90810
jr nc, .asm_90752
ld a, [BattleMonNick + 5]
ld [StringBuffer2 + 2], a
call Function90783
ld hl, UnknownText_0x908a4
call PrintText
call YesNoBox
jr nc, .asm_90773
call Function90783
jr .asm_9072e
.asm_90773
call Function658
ld hl, UnknownText_0x908b8
call PrintText
call Functiona80
pop af
ld [$ffaa], a
ret
Function90783: ; 90783 (24:4783)
xor a
ld [hBGMapMode], a ; $ff00+$d4
hlcoord 0, 0
ld bc, $168
xor a
call ByteFill
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
Function90795: ; 90795 (24:4795)
ld a, [hJoyPressed]
and A_BUTTON
jr nz, .asm_907dc
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
call DelayFrame
and a
ret
.down
ld hl, wc608 + 20
ld a, [hl]
and a
jr nz, .asm_907b6
ld a, 23 + 1
.asm_907b6
dec a
ld [hl], a
jr .asm_907c6
.up
ld hl, wc608 + 20
ld a, [hl]
cp 23
jr c, .asm_907c4
ld a, -1
.asm_907c4
inc a
ld [hl], a
.asm_907c6
hlcoord 4, 9
ld a, " "
ld bc, 15
call ByteFill
hlcoord 4, 9
call Function907de
call WaitBGMap
and a
ret
.asm_907dc
scf
ret
Function907de: ; 907de (24:47de)
push hl
ld a, [wc608 + 20]
ld c, a
ld e, l
ld d, h
call Function90b3e
inc hl
ld de, String_9087e
call PlaceString
pop hl
ret
; 907f1 (24:47f1)
Function907f1: ; 907f1
ld h, d
ld l, e
push hl
call Function907de
pop de
rept 2
inc de
endr
ld a, $9c
ld [de], a
inc de
push de
ld hl, $0003
add hl, de
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
pop hl
call Function90859
rept 3
inc hl
endr
ret
; 90810
Function90810: ; 90810 (24:4810)
ld a, [hJoyPressed] ; $ff00+$a7
and $1
jr nz, .asm_90857
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .asm_90835
ld a, [hl]
and D_DOWN
jr nz, .asm_90828
call DelayFrame
and a
ret
.asm_90828
ld hl, BattleMonNick + 5
ld a, [hl]
and a
jr nz, .asm_90831
ld a, 59 + 1
.asm_90831
dec a
ld [hl], a
jr .asm_90841
.asm_90835
ld hl, BattleMonNick + 5
ld a, [hl]
cp 59
jr c, .asm_9083f
ld a, -1
.asm_9083f
inc a
ld [hl], a
.asm_90841
hlcoord 12, 9
ld a, " "
ld bc, 7
call ByteFill
hlcoord 12, 9
call Function90859
call WaitBGMap
and a
ret
.asm_90857
scf
ret
Function90859: ; 90859 (24:4859)
ld de, BattleMonNick + 5
call Function90867
inc hl
ld de, String_9089f
call PlaceString
ret
Function90867: ; 90867 (24:4867)
push hl
ld a, " "
ld [hli], a
ld [hl], a
pop hl
ld bc, $4102
call PrintNum
ret
; 90874 (24:4874)
UnknownText_0x90874: ; 0x90874
; Zzz… Hm? Wha…? You woke me up! Will you check the clock for me?
text_jump UnknownText_0x1bc29c
db "@"
; 0x90879
UnknownText_0x90879: ; 0x90879
; What time is it?
text_jump UnknownText_0x1bc2eb
db "@"
; 0x9087e
String_9087e:
db "o'clock@"
; 90886
UnknownText_0x90886: ; 0x90886
; What?@ @
text_jump UnknownText_0x1bc2fd
start_asm
hlcoord 1, 16
call Function907de
ld hl, UnknownText_0x90895
ret
; 90895 (24:4895)
UnknownText_0x90895: ; 0x90895
; ?
text_jump UnknownText_0x1bc305
db "@"
; 0x9089a
UnknownText_0x9089a: ; 0x9089a
; How many minutes?
text_jump UnknownText_0x1bc308
db "@"
; 0x9089f
String_9089f:
db "min.@"
; 908a4
UnknownText_0x908a4: ; 0x908a4
; Whoa!@ @
text_jump UnknownText_0x1bc31b
start_asm
; 0x908a9
hlcoord 7, 14
call Function90859
ld hl, UnknownText_0x908b3
ret
; 908b3 (24:48b3)
UnknownText_0x908b3: ; 0x908b3
; ?
text_jump UnknownText_0x1bc323
db "@"
; 0x908b8
UnknownText_0x908b8: ; 0x908b8
start_asm
decoord 1, 14
ld a, [wc608 + 20]
ld c, a
call Function90b3e
ld [hl], ":"
inc hl
ld de, BattleMonNick + 5
ld bc, $8102
call PrintNum
ld b, h
ld c, l
ld a, [wc608 + 20]
cp 4
jr c, .asm_908e0
cp 11
jr c, .asm_908e4
cp 18
jr c, .asm_908e8
.asm_908e0
ld hl, UnknownText_0x908f6
ret
.asm_908e4
ld hl, UnknownText_0x908ec
ret
.asm_908e8
ld hl, UnknownText_0x908f1
ret
; 908ec (24:48ec)
UnknownText_0x908ec: ; 0x908ec
; ! I overslept!
text_jump UnknownText_0x1bc326
db "@"
; 0x908f1
UnknownText_0x908f1: ; 0x908f1
; ! Yikes! I over- slept!
text_jump UnknownText_0x1bc336
db "@"
; 0x908f6
UnknownText_0x908f6: ; 0x908f6
; ! No wonder it's so dark!
text_jump UnknownText_0x1bc34f
db "@"
; 0x908fb
GFX_908fb: ; 908fb
INCBIN "gfx/unknown/0908fb.2bpp"
GFX_90903: ; 90903
INCBIN "gfx/unknown/090903.2bpp"
GFX_9090b: ; 9090b
INCBIN "gfx/unknown/09090b.2bpp"
; 90913
Special_SetDayOfWeek: ; 90913
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
ld de, GFX_90903
ld hl, $8ef0
lb bc, BANK(GFX_90903), 1
call Request1bpp
ld de, GFX_9090b
ld hl, $8f50
lb bc, BANK(GFX_9090b), 1
call Request1bpp
xor a
ld [DefaultFlypoint], a
.asm_90936
hlcoord 0, 12
ld bc, $0412
call TextBox
call Function1d6e
ld hl, UnknownText_0x90a3f
call PrintText
hlcoord 9, 3
ld b, $2
ld c, $9
call TextBox
hlcoord 14, 3
ld [hl], $ef
hlcoord 14, 6
ld [hl], $f5
hlcoord 10, 5
call Function909de
call Function321c
ld c, $a
call DelayFrames
.asm_9096a
call Functiona57
call Function90993
jr nc, .asm_9096a
call ExitMenu
call DrawOnMap
ld hl, UnknownText_0x90a44
call PrintText
call YesNoBox
jr c, .asm_90936
ld a, [DefaultFlypoint]
ld [StringBuffer2], a
call Function663
call Functione51
pop af
ld [$ffaa], a
ret
; 90993
Function90993: ; 90993
ld a, [hJoyPressed]
and A_BUTTON
jr z, .asm_9099b
scf
ret
.asm_9099b
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .asm_909ba
ld a, [hl]
and D_DOWN
jr nz, .asm_909ad
call DelayFrame
and a
ret
.asm_909ad
ld hl, wd002
ld a, [hl]
and a
jr nz, .asm_909b6
ld a, 6 + 1
.asm_909b6
dec a
ld [hl], a
jr .asm_909c6
.asm_909ba
ld hl, wd002
ld a, [hl]
cp 6
jr c, .asm_909c4
ld a, -1
.asm_909c4
inc a
ld [hl], a
.asm_909c6
xor a
ld [hBGMapMode], a
hlcoord 10, 4
ld b, $2
ld c, $9
call ClearBox
hlcoord 10, 5
call Function909de
call WaitBGMap
and a
ret
; 909de
Function909de: ; 909de
push hl
ld a, [wd002]
ld e, a
ld d, 0
ld hl, Unknown_909f2
rept 2
add hl, de
endr
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
call PlaceString
ret
; 909f2
Unknown_909f2: ; 909f2
dw Sunday
dw Monday
dw Tuesday
dw Wednesday
dw Thursday
dw Friday
dw Saturday
dw Sunday
Sunday: db " SUNDAY@"
Monday: db " MONDAY@"
Tuesday: db " TUESDAY@"
Wednesday: db "WEDNESDAY@"
Thursday: db "THURSDAY@"
Friday: db " FRIDAY@"
Saturday: db "SATURDAY@"
UnknownText_0x90a3f: ; 0x90a3f
; What day is it?
text_jump UnknownText_0x1bc369
db "@"
; 0x90a44
UnknownText_0x90a44: ; 0x90a44
start_asm
hlcoord 1, 14
call Function909de
ld hl, UnknownText_0x90a4f
ret
; 90a4f (24:4a4f)
UnknownText_0x90a4f: ; 0x90a4f
; , is it?
text_jump UnknownText_0x1bc37a
db "@"
; 0x90a54
Function90a54: ; 90a54
ld a, [wDST]
set 7, a
ld [wDST], a
hlcoord 1, 14
ld bc, $0312
call ClearBox
ld hl, UnknownText_0x90a6c
call Function13e5
ret
; 90a6c
UnknownText_0x90a6c: ; 90a6c
start_asm
call UpdateTime
ld a, [hHours] ; $ff00+$94
ld b, a
ld a, [hMinutes] ; $ff00+$96
ld c, a
decoord 1, 14
callba Function1dd6bb
ld hl, UnknownText_0x90a83
ret
; 90a83 (24:4a83)
UnknownText_0x90a83: ; 0x90a83
; DST, is that OK?
text_jump UnknownText_0x1c5fde
db "@"
; 0x90a88
Function90a88: ; 90a88
ld a, [wDST]
res 7, a
ld [wDST], a
hlcoord 1, 14
ld bc, $0312
call ClearBox
ld hl, UnknownText_0x90aa0
call Function13e5
ret
; 90aa0
UnknownText_0x90aa0: ; 90aa0
start_asm
call UpdateTime
ld a, [hHours]
ld b, a
ld a, [hMinutes]
ld c, a
decoord 1, 14
callba Function1dd6bb
ld hl, UnknownText_0x90ab7
ret
; 90ab7
UnknownText_0x90ab7: ; 0x90ab7
; , is that OK?
text_jump UnknownText_0x1c5ff1
db "@"
; 0x90abc
Function90abc: ; 90abc
hlcoord 1, 14
ld bc, $0312
call ClearBox
ld hl, UnknownText_0x90acc
call Function13e5
ret
; 90acc
UnknownText_0x90acc: ; 0x90acc
start_asm
call UpdateTime
hlcoord 1, 14
ld [hl], "R"
inc hl
ld [hl], "T"
inc hl
ld [hl], " "
inc hl
ld de, hRTCDayLo
call Function90b23
hlcoord 1, 16
ld [hl], "D"
inc hl
ld [hl], "F"
inc hl
ld [hl], " "
inc hl
ld de, StartDay
call Function90b23
ld [hl], " "
inc hl
ld a, [wDST]
bit 7, a
jr z, .off
ld [hl], "O"
inc hl
ld [hl], "N"
inc hl
jr .done
.off
ld [hl], "O"
inc hl
ld [hl], "F"
inc hl
ld [hl], "F"
inc hl
.done
ld hl, UnknownText_0x90b13
ret
; 90b13
UnknownText_0x90b13: ; 0x90b13
db $0
para "Now on DEBUG…"
prompt
; 0x90b23
Function90b23: ; 90b23
ld bc, $0103
call PrintNum
ld [hl], "."
inc hl
inc de
ld bc, $8102
call PrintNum
ld [hl], ":"
inc hl
inc de
ld bc, $8102
call PrintNum
ret
; 90b3e
Function90b3e: ; 90b3e (24:4b3e)
ld l, e
ld h, d
push bc
call Function90b58
call PlaceString
ld l, c
ld h, b
inc hl
pop bc
call Function90b7f
ld [wd265], a
ld de, wd265
call Function90867
ret
Function90b58: ; 90b58 (24:4b58)
ld a, c
cp 4
jr c, .nite
cp 10
jr c, .morn
cp 18
jr c, .day
.nite
ld de, String_90b71
ret
.morn
ld de, String_90b76
ret
.day
ld de, String_90b7b
ret
; 90b71 (24:4b71)
String_90b71: db "NITE@"
String_90b76: db "MORN@"
String_90b7b: db "DAY@"
; 90b7f
Function90b7f: ; 90b7f (24:4b7f)
ld a, c
or a
jr z, .asm_90b8a
cp 12
ret c
ret z
sub 12
ret
.asm_90b8a
ld a, 12
ret
Function90b8d: ; 90b8d (24:4b8d)
ld hl, Options
ld a, [hl]
push af
set NO_TEXT_SCROLL, [hl]
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
ld a, [VramState]
push af
xor a
ld [VramState], a
call Function90bea
call DelayFrame
.loop
call UpdateTime
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .done
call Function90f04
callba Function8cf69
call DelayFrame
jr .loop
.done
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
pop af
ld [VramState], a
pop af
ld [$ffaa], a
pop af
ld [Options], a
call WhiteBGMap
xor a
ld [hBGMapAddress], a
ld a, $98
ld [hBGMapAddress + 1], a
ld a, $90
ld [hWY], a
call Function91492
ret
Function90bea: ; 90bea (24:4bea)
call WhiteBGMap
call ClearTileMap
call ClearSprites
call DisableLCD
xor a
ld [hSCY], a
ld [hSCX], a
ld a, $7
ld [hWX], a
call Function90c4e
callba Function8cf53
call Function90d32
ld a, 8
call SkipMusic
ld a, $e3
ld [rLCDC], a
call Function90d70
xor a
ld [wcf63], a
ld [wcf64], a
ld [wcf65], a
ld [wcf66], a
ld [wc6d2], a
ld [wc6d1], a
ld [wc6d3], a
ld [wc6d9], a
ld [wc6da], a
ld [wc6db], a
call Function90d9e
call Function90da8
ld b, $2
call GetSGBLayout
call Function32f9
ld a, [hCGB]
and a
ret z
ld a, $e4
call Functioncf8
ret
Function90c4e: ; 90c4e
call Functiond79
ld hl, TownMapGFX
ld de, VTiles2
ld a, BANK(TownMapGFX)
call FarDecompress
ld hl, PokegearGFX
ld de, VTiles2 + $300
ld a, BANK(PokegearGFX)
call FarDecompress
ld hl, PokegearSpritesGFX
ld de, VTiles0
ld a, BANK(PokegearSpritesGFX)
call Decompress
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
cp FAST_SHIP
jr z, .ssaqua
callba GetPlayerIcon
push de
ld h, d
ld l, e
ld a, b
push af
ld de, $8100
ld bc, $40
call FarCopyBytes
pop af
pop hl
ld de, $c0
add hl, de
ld de, $8140
ld bc, $40
call FarCopyBytes
ret
.ssaqua
ld hl, FastShipGFX
ld de, $8100
ld bc, $80
call CopyBytes
ret
; 90cb2
FastShipGFX: ; 90cb2
INCBIN "gfx/misc/fast_ship.2bpp"
; 90d32
Function90d32: ; 90d32 (24:4d32)
ld de, $2410
ld a, $d
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $0
ret
Function90d41: ; 90d41 (24:4d41)
ld hl, wcf64
ld e, [hl]
ld d, 0
ld hl, Unknown_90d52
add hl, de
ld a, [hl]
ld hl, $6
add hl, bc
ld [hl], a
ret
; 90d52 (24:4d52)
Unknown_90d52: ; 90d52
db $00, $10, $20, $30
; 90d56
Function90d56: ; 90d56
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
cp SPECIAL_MAP
ret nz
ld a, [BackupMapGroup]
ld b, a
ld a, [BackupMapNumber]
ld c, a
call GetWorldMapLocation
ret
; 90d70
Function90d70: ; 90d70 (24:4d70)
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
cp FAST_SHIP
jr z, .asm_90d95
cp SPECIAL_MAP
jr nz, .asm_90d8e
ld a, [BackupMapGroup]
ld b, a
ld a, [BackupMapNumber]
ld c, a
call GetWorldMapLocation
.asm_90d8e
ld [wc6d8], a
ld [wc6d7], a
ret
.asm_90d95
ld [wc6d8], a
ld a, NEW_BARK_TOWN
ld [wc6d7], a
ret
Function90d9e: ; 90d9e (24:4d9e)
ld a, $0
ld [wcf63], a
xor a
ld [wcf64], a
ret
Function90da8: ; 90da8 (24:4da8)
xor a
ld [hBGMapMode], a
hlcoord 0, 0
ld bc, TileMapEnd - TileMap
ld a, $4f
call ByteFill
ld a, [wcf64]
and $3
add a
ld e, a
ld d, 0
ld hl, Jumptable_90e12
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .asm_90dcb
push de
jp [hl]
.asm_90dcb
call Function90eb0
callba TownMapPals
ld a, [wcf65]
and a
jr nz, .asm_90de8
xor a
ld [hBGMapAddress], a
ld a, $98
ld [hBGMapAddress + 1], a
call Function90e00
ld a, $90
jr .asm_90df3
.asm_90de8
xor a
ld [hBGMapAddress], a
ld a, $9c
ld [hBGMapAddress + 1], a
call Function90e00
xor a
.asm_90df3
ld [hWY], a
ld a, [wcf65]
and 1
xor 1
ld [wcf65], a
ret
Function90e00: ; 90e00 (24:4e00)
ld a, [hCGB] ; $ff00+$e6
and a
jr z, .asm_90e0e
ld a, $2
ld [hBGMapMode], a ; $ff00+$d4
ld c, $3
call DelayFrames
.asm_90e0e
call WaitBGMap
ret
; 90e12 (24:4e12)
Jumptable_90e12: ; 90e12
dw Function90e1a
dw Function90e3f
dw Function90e82
dw Function90e72
; 90e1a
Function90e1a: ; 90e1a
ld de, ClockTilemapRLE
call Function914bb
hlcoord 12, 1
ld de, .switch
call PlaceString
hlcoord 0, 12
lb bc, 4, 18
call TextBox
call Function90f86
ret
; 90e36 (24:4e36)
.switch
db " SWITCH▶@"
; 90e3f
Function90e3f: ; 90e3f
ld a, [wc6d8]
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr nc, .kanto
.johto
ld e, 0
jr .ok
.kanto
ld e, 1
.ok
callba Function91ae1
ld a, $7
ld bc, $12
hlcoord 1, 2
call ByteFill
hlcoord 0, 2
ld [hl], $6
hlcoord 19, 2
ld [hl], $17
ld a, [wc6d7]
call Function910b4
ret
; 90e72
Function90e72: ; 90e72
ld de, RadioTilemapRLE
call Function914bb
hlcoord 0, 12
ld bc, $412
call TextBox
ret
; 90e82
Function90e82: ; 90e82
ld de, PhoneTilemapRLE
call Function914bb
hlcoord 0, 12
ld bc, $412
call TextBox
call Function90e98
call Function912d8
ret
; 90e98
Function90e98: ; 90e98 (24:4e98)
hlcoord 17, 1
ld a, $3c
ld [hli], a
inc a
ld [hl], a
hlcoord 17, 2
inc a
ld [hli], a
call GetMapHeaderPhoneServiceNybble
and a
ret nz
hlcoord 18, 2
ld [hl], $3f
ret
Function90eb0: ; 90eb0 (24:4eb0)
hlcoord 0, 0
ld bc, $8
ld a, $4f
call ByteFill
hlcoord 0, 1
ld bc, $8
ld a, $4f
call ByteFill
ld de, wPokegearFlags
ld a, [de]
bit 0, a
call nz, Function90ee4
ld a, [de]
bit 2, a
call nz, Function90eeb
ld a, [de]
bit 1, a
call nz, Function90ef2
hlcoord 0, 0
ld a, $46
call Function90ef7
ret
Function90ee4: ; 90ee4 (24:4ee4)
hlcoord 2, 0
ld a, $40
jr Function90ef7
Function90eeb: ; 90eeb (24:4eeb)
hlcoord 4, 0
ld a, $44
jr Function90ef7
Function90ef2: ; 90ef2 (24:4ef2)
hlcoord 6, 0
ld a, $42
Function90ef7: ; 90ef7 (24:4ef7)
ld [hli], a
inc a
ld [hld], a
ld bc, $14
add hl, bc
add $f
ld [hli], a
inc a
ld [hld], a
ret
Function90f04: ; 90f04 (24:4f04)
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_90f13
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Jumptable_90f13: ; 90f13 (24:4f13)
dw Function90f2d
dw Function90f3e
dw Function90fb4
dw Function90fcd
dw Function90fee
dw Function90fcd
dw Function90fe9
dw Function91156
dw Function91171
dw Function911eb
dw Function91256
dw Function910f9
dw Function91112
Function90f2d: ; 90f2d (24:4f2d)
call Function90da8
ld hl, UnknownText_0x914d3
call PrintText
ld hl, wcf63
inc [hl]
call Function91492
ret
Function90f3e: ; 90f3e (24:4f3e)
call Function90f7b
ld hl, $ffa9
ld a, [hl]
and A_BUTTON + B_BUTTON + START + SELECT
jr nz, .asm_90f75
ld a, [hl]
and D_RIGHT
ret z
ld a, [wPokegearFlags]
bit 0, a
jr z, .asm_90f5a
ld c, $2
ld b, $1
jr .asm_90f71
.asm_90f5a
ld a, [wPokegearFlags]
bit 2, a
jr z, .asm_90f67
ld c, $7
ld b, $2
jr .asm_90f71
.asm_90f67
ld a, [wPokegearFlags]
bit 1, a
ret z
ld c, $b
ld b, $3
.asm_90f71
call Function91480
ret
.asm_90f75
ld hl, wcf63
set 7, [hl]
ret
Function90f7b: ; 90f7b (24:4f7b)
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Function90f86
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
Function90f86: ; 90f86 (24:4f86)
hlcoord 3, 5
lb bc, 5, 14
call ClearBox
ld a, [hHours] ; $ff00+$94
ld b, a
ld a, [hMinutes] ; $ff00+$96
ld c, a
decoord 6, 8
callba Function1dd6bb
ld hl, UnknownText_0x90faf
bccoord 6, 6
call Function13e5
ret
; 90fa8 (24:4fa8)
String_90fa8: db "ごぜん@"
String_90fac: db "ごご@"
UnknownText_0x90faf: ; 0x90faf
text_jump UnknownText_0x1c5821
db "@"
; 0x90fb4
Function90fb4: ; 90fb4 (24:4fb4)
ld a, [wc6d8]
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr nc, .kanto
.johto
ld a, 3
jr .done
ret
.kanto
ld a, 5
.done
ld [wcf63], a
call Function91492
ret
Function90fcd: ; 90fcd (24:4fcd)
call Function90da8
ld a, [wc6d8]
call Function9106a
ld a, [wc6d7]
call Function91098
ld a, c
ld [wc6d5], a
ld a, b
ld [wc6d6], a
ld hl, wcf63
inc [hl]
ret
Function90fe9: ; 90fe9 (24:4fe9)
call Function910e8
jr Function90ff2
Function90fee: ; 90fee (24:4fee)
ld d, $2e
ld e, $1
Function90ff2: ; 90ff2 (24:4ff2)
ld hl, $ffa9
ld a, [hl]
and B_BUTTON
jr nz, .cancel
ld a, [hl]
and D_RIGHT
jr nz, .right
ld a, [hl]
and D_LEFT
jr nz, .left
call Function9102f
ret
.right
ld a, [wPokegearFlags]
bit 2, a
jr z, .asm_91015
ld c, $7
ld b, $2
jr .done
.asm_91015
ld a, [wPokegearFlags]
bit 1, a
ret z
ld c, $b
ld b, $3
jr .done
.left
ld c, $0
ld b, $0
.done
call Function91480
ret
.cancel
ld hl, wcf63
set 7, [hl]
ret
Function9102f: ; 9102f (24:502f)
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ret
.up
ld hl, wc6d7
ld a, [hl]
cp d
jr c, .asm_91047
ld a, e
dec a
ld [hl], a
.asm_91047
inc [hl]
jr .done
.down
ld hl, wc6d7
ld a, [hl]
cp e
jr nz, .asm_91054
ld a, d
inc a
ld [hl], a
.asm_91054
dec [hl]
.done
ld a, [wc6d7]
call Function910b4
ld a, [wc6d5]
ld c, a
ld a, [wc6d6]
ld b, a
ld a, [wc6d7]
call Function910d4
ret
Function9106a: ; 9106a
push af
ld de, $0000
ld b, $a
ld a, [PlayerGender]
bit 0, a
jr z, .asm_91079
ld b, $1e
.asm_91079
ld a, b
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $10
pop af
ld e, a
push bc
callba GetLandmarkCoords
pop bc
ld hl, $0004
add hl, bc
ld [hl], e
ld hl, $0005
add hl, bc
ld [hl], d
ret
; 91098
Function91098: ; 91098
push af
ld de, $0000
ld a, $d
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $4
ld hl, $0002
add hl, bc
ld [hl], $0
pop af
push bc
call Function910d4
pop bc
ret
; 910b4
Function910b4: ; 910b4
push af
hlcoord 8, 0
lb bc, 2, 12
call ClearBox
pop af
ld e, a
push de
callba GetLandmarkName
pop de
callba Function1de2c5
hlcoord 8, 0
ld [hl], $34
ret
; 910d4
Function910d4: ; 910d4
push bc
ld e, a
callba GetLandmarkCoords
pop bc
ld hl, $0004
add hl, bc
ld [hl], e
ld hl, $0005
add hl, bc
ld [hl], d
ret
; 910e8
Function910e8: ; 910e8
ld a, [StatusFlags]
bit 6, a
jr z, .asm_910f4
ld d, $5e
ld e, $2f
ret
.asm_910f4
ld d, $5e
ld e, $58
ret
; 910f9
Function910f9: ; 910f9 (24:50f9)
call Function90da8
ld de, $2454
ld a, $14
call Function3b2a
ld hl, $3
add hl, bc
ld [hl], $8
call Function9163e
ld hl, wcf63
inc [hl]
ret
Function91112: ; 91112 (24:5112)
ld hl, $ffa9
ld a, [hl]
and B_BUTTON
jr nz, .cancel
ld a, [hl]
and D_LEFT
jr nz, .left
ld a, [wc6da]
ld l, a
ld a, [wc6db]
ld h, a
ld a, [wc6d9]
and a
ret z
rst FarCall
ret
.left
ld a, [wPokegearFlags]
bit 2, a
jr z, .asm_9113b
ld c, $7
ld b, $2
jr .asm_9114c
.asm_9113b
ld a, [wPokegearFlags]
bit 0, a
jr z, .asm_91148
ld c, $2
ld b, $1
jr .asm_9114c
.asm_91148
ld c, $0
ld b, $0
.asm_9114c
call Function91480
ret
.cancel
ld hl, wcf63
set 7, [hl]
ret
Function91156: ; 91156 (24:5156)
ld hl, wcf63
inc [hl]
xor a
ld [wc6d2], a
ld [wc6d1], a
ld [wc6d3], a
call Function90da8
call Function91492
ld hl, UnknownText_0x914ce
call PrintText
ret
Function91171: ; 91171 (24:5171)
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .b
ld a, [hl]
and A_BUTTON
jr nz, .a
ld hl, $ffa9
ld a, [hl]
and D_LEFT
jr nz, .left
ld a, [hl]
and D_RIGHT
jr nz, .right
call Function9126d
ret
.left
ld a, [wPokegearFlags]
bit 0, a
jr z, .asm_9119c
ld c, $2
ld b, $1
jr .asm_911ac
.asm_9119c
ld c, $0
ld b, $0
jr .asm_911ac
.right
ld a, [wPokegearFlags]
bit 1, a
ret z
ld c, $b
ld b, $3
.asm_911ac
call Function91480
ret
.b
ld hl, wcf63
set 7, [hl]
ret
.a
ld hl, wdc7c
ld a, [wc6d2]
ld e, a
ld d, 0
add hl, de
ld a, [wc6d1]
ld e, a
ld d, 0
add hl, de
ld a, [hl]
and a
ret z
ld [wc6d3], a
hlcoord 1, 4
ld a, [wc6d1]
ld bc, 20 * 2
call AddNTimes
ld [hl], "▷"
call Function91342
jr c, .asm_911e5
ld hl, wcf63
inc [hl]
ret
.asm_911e5
ld a, $8
ld [wcf63], a
ret
Function911eb: ; 911eb (24:51eb)
call GetMapHeaderPhoneServiceNybble
and a
jr nz, .asm_91234
ld hl, Options
res NO_TEXT_SCROLL, [hl]
xor a
ld [$ffaa], a
ld de, SFX_CALL
call PlaySFX
ld hl, UnknownText_0x9124c
call PrintText
call WaitSFX
ld de, SFX_CALL
call PlaySFX
ld hl, UnknownText_0x9124c
call PrintText
call WaitSFX
ld a, [wc6d3]
ld b, a
call Function90199
ld c, 10
call DelayFrames
ld hl, Options
set NO_TEXT_SCROLL, [hl]
ld a, $1
ld [$ffaa], a
call Function912b7
ld hl, wcf63
inc [hl]
ret
.asm_91234
callba Phone_NoSignal
ld hl, OutOfServiceAreaText
call PrintText
ld a, $8
ld [wcf63], a
ld hl, UnknownText_0x914ce
call PrintText
ret
; 9124c (24:524c)
UnknownText_0x9124c: ; 0x9124c
;
text_jump UnknownText_0x1c5824
db "@"
; 0x91251
OutOfServiceAreaText: ; 0x91251
; You're out of the service area.
text_jump UnknownText_0x1c5827
db "@"
; 0x91256
Function91256: ; 91256 (24:5256)
ld a, [hJoyPressed] ; $ff00+$a7
and $3
ret z
callba HangUp
ld a, $8
ld [wcf63], a
ld hl, UnknownText_0x914ce
call PrintText
ret
Function9126d: ; 9126d (24:526d)
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ret
.up
ld hl, wc6d1
ld a, [hl]
and a
jr z, .asm_91285
dec [hl]
jr .asm_912a3
.asm_91285
ld hl, wc6d2
ld a, [hl]
and a
ret z
dec [hl]
jr .asm_912ad
.down
ld hl, wc6d1
ld a, [hl]
cp $3
jr nc, .asm_91299
inc [hl]
jr .asm_912a3
.asm_91299
ld hl, wc6d2
ld a, [hl]
cp $6
ret nc
inc [hl]
jr .asm_912ad
.asm_912a3
xor a
ld [hBGMapMode], a
call Function912b7
call WaitBGMap
ret
.asm_912ad
xor a
ld [hBGMapMode], a
call Function912d8
call WaitBGMap
ret
Function912b7: ; 912b7 (24:52b7)
ld a, " "
hlcoord 1, 4
ld [hl], a
hlcoord 1, 6
ld [hl], a
hlcoord 1, 8
ld [hl], a
hlcoord 1, 10
ld [hl], a
hlcoord 1, 4
ld a, [wc6d1]
ld bc, $28
call AddNTimes
ld [hl], "▶"
ret
Function912d8: ; 912d8 (24:52d8)
hlcoord 1, 3
ld b, $9
ld a, $7f
.asm_912df
ld c, $12
.asm_912e1
ld [hli], a
dec c
jr nz, .asm_912e1
rept 2
inc hl
endr
dec b
jr nz, .asm_912df
ld a, [wc6d2]
ld e, a
ld d, $0
ld hl, wdc7c
add hl, de
xor a
ld [wc6d0], a
.asm_912f8
ld a, [hli]
push hl
push af
hlcoord 2, 4
ld a, [wc6d0]
ld bc, $28
call AddNTimes
ld d, h
ld e, l
pop af
ld b, a
call Function90380
pop hl
ld a, [wc6d0]
inc a
ld [wc6d0], a
cp $4
jr c, .asm_912f8
call Function912b7
ret
; 9131e (24:531e)
Function9131e: ; 9131e
ld hl, wdc7c
ld a, [wc6d2]
ld e, a
ld d, 0
add hl, de
ld a, [wc6d1]
ld e, a
ld d, 0
add hl, de
ld [hl], 0
ld hl, wdc7c
ld c, $a
.asm_91336
ld a, [hli]
and a
jr nz, .asm_9133e
ld a, [hld]
ld [hli], a
ld [hl], 0
.asm_9133e
dec c
jr nz, .asm_91336
ret
; 91342
Function91342: ; 91342 (24:5342)
ld hl, wdc7c
ld a, [wc6d2]
ld e, a
ld d, 0
add hl, de
ld a, [wc6d1]
ld e, a
ld d, 0
add hl, de
ld c, [hl]
callba Function9038a
ld a, c
and a
jr z, .asm_91366
ld hl, Jumptable_91455
ld de, Unknown_9143f
jr .asm_9136c
.asm_91366
ld hl, Jumptable_9146a
ld de, Unknown_9145b
.asm_9136c
xor a
ld [hBGMapMode], a
push hl
push de
ld a, [de]
ld l, a
inc de
ld a, [de]
ld h, a
inc de
push hl
ld bc, $ffd7
add hl, bc
ld a, [de]
inc de
sla a
ld b, a
ld c, 8
push de
call TextBox
pop de
pop hl
inc hl
call PlaceString
pop de
xor a
ld [wc6d4], a
call Function9141d
call WaitBGMap
.asm_91398
push de
call Functiona57
pop de
ld hl, hJoyPressed
ld a, [hl]
and D_UP
jr nz, .asm_913b4
ld a, [hl]
and D_DOWN
jr nz, .asm_913c1
ld a, [hl]
and A_BUTTON | B_BUTTON
jr nz, .asm_913d4
call DelayFrame
jr .asm_91398
.asm_913b4
ld hl, wc6d4
ld a, [hl]
and a
jr z, .asm_91398
dec [hl]
call Function9141d
jr .asm_91398
.asm_913c1
ld hl, 2
add hl, de
ld a, [wc6d4]
inc a
cp [hl]
jr nc, .asm_91398
ld [wc6d4], a
call Function9141d
jr .asm_91398
.asm_913d4
xor a
ld [hBGMapMode], a
call Function912d8
ld a, $1
ld [hBGMapMode], a
pop hl
ld a, [hJoyPressed]
and B_BUTTON
jr nz, Function913f1
ld a, [wc6d4]
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Function913f1: ; 913f1
ld hl, UnknownText_0x914ce
call PrintText
scf
ret
; 913f9 (24:53f9)
Function913f9: ; 913f9
ld hl, UnknownText_0x914d8
call MenuTextBox
call YesNoBox
call ExitMenu
jr c, .asm_91419
call Function9131e
xor a
ld [hBGMapMode], a
call Function912d8
ld hl, UnknownText_0x914ce
call PrintText
call WaitBGMap
.asm_91419
scf
ret
; 9141b
Function9141b: ; 9141b
and a
ret
; 9141d
Function9141d: ; 9141d (24:541d)
push de
ld a, [de]
inc de
ld l, a
ld a, [de]
inc de
ld h, a
ld a, [de]
ld c, a
push hl
ld a, " "
ld de, 20 * 2
.asm_9142c
ld [hl], a
add hl, de
dec c
jr nz, .asm_9142c
pop hl
ld a, [wc6d4]
ld bc, 20 * 2
call AddNTimes
ld [hl], "▶"
pop de
ret
; 9143f (24:543f)
Unknown_9143f: ; 9143f
dwcoord 10, 6
db 3
db "CALL"
next "DELETE"
next "CANCEL"
db "@"
; 91455
Jumptable_91455: ; 91455
dw Function9141b
dw Function913f9
dw Function913f1
; 9145b
Unknown_9145b: ; 9145b
dwcoord 10, 8
db 2
db "CALL"
next "CANCEL"
db "@"
; 9146a
Jumptable_9146a: ; 9146a
dw Function9141b
dw Function913f1
; 9146e
Function9146e: ; 9146e
ld a, [hHours]
cp 12
jr c, .asm_9147b
sub 12
ld [wd265], a
scf
ret
.asm_9147b
ld [wd265], a
and a
ret
; 91480
Function91480: ; 91480 (24:5480)
ld de, SFX_READ_TEXT_2
call PlaySFX
ld a, c
ld [wcf63], a
ld a, b
ld [wcf64], a
call Function914ab
ret
Function91492: ; 91492
ld a, [wc6dc]
cp $fe
jr z, .asm_914a3
cp $ff
call z, EnterMapMusic
xor a
ld [wc6dc], a
ret
.asm_914a3
call RestartMapMusic
xor a
ld [wc6dc], a
ret
; 914ab
Function914ab: ; 914ab (24:54ab)
ld hl, wc324
ld bc, $90
xor a
call ByteFill
ld a, $2
ld [wc3b4], a
ret
Function914bb: ; 914bb (24:54bb)
hlcoord 0, 0
.asm_914be
ld a, [de]
cp $ff
ret z
ld b, a
inc de
ld a, [de]
ld c, a
inc de
ld a, b
.asm_914c8
ld [hli], a
dec c
jr nz, .asm_914c8
jr .asm_914be
; 914ce (24:54ce)
UnknownText_0x914ce: ; 0x914ce
; Whom do you want to call?
text_jump UnknownText_0x1c5847
db "@"
; 0x914d3
UnknownText_0x914d3: ; 0x914d3
; Press any button to exit.
text_jump UnknownText_0x1c5862
db "@"
; 0x914d8
UnknownText_0x914d8: ; 0x914d8
; Delete this stored phone number?
text_jump UnknownText_0x1c587d
db "@"
; 0x914dd
PokegearSpritesGFX: ; 914dd
INCBIN "gfx/misc/pokegear_sprites.2bpp.lz"
; 9150d
RadioTilemapRLE: ; 9150d
INCBIN "gfx/unknown/09150d.tilemap.rle"
PhoneTilemapRLE: ; 9158a
INCBIN "gfx/unknown/09158a.tilemap.rle"
ClockTilemapRLE: ; 915db
INCBIN "gfx/unknown/0915db.tilemap.rle"
; 9163e
Function9163e: ; 9163e (24:563e)
jr UpdateRadioStation
Function91640: ; 91640 (24:5640)
push bc
call Function9164e
pop bc
ld a, [wd958]
ld hl, $6
add hl, bc
ld [hl], a
ret
Function9164e: ; 9164e (24:564e)
ld hl, $ffa9
ld a, [hl]
and D_DOWN
jr nz, .down
ld a, [hl]
and D_UP
jr nz, .up
ret
.down
ld hl, wd958
ld a, [hl]
and a
ret z
rept 2
dec [hl]
endr
jr .update
.up
ld hl, wd958
ld a, [hl]
cp 80
ret nc
rept 2
inc [hl]
endr
.update
UpdateRadioStation: ; 9166f (24:566f)
ld hl, wd958
ld d, [hl]
ld hl, RadioChannels
.asm_91676
ld a, [hli]
cp $ff
jr z, .asm_91682
cp d
jr z, .asm_91686
rept 2
inc hl
endr
jr .asm_91676
.asm_91682
call NoRadioStation
ret
.asm_91686
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .asm_9168e
push de
jp [hl]
.asm_9168e
ld a, [wc6d9]
and a
ret z
xor a
ld [hBGMapMode], a
hlcoord 2, 9
call PlaceString
ld a, $1
ld [hBGMapMode], a
ret
; 916a1 (24:56a1)
Function916a1: ; 916a1
ld [wc6d9], a
ld a, [hli]
ld [wc6da], a
ld a, [hli]
ld [wc6db], a
ret
; 916ad
RadioChannels:
; frequencies and the shows that play on them.
; frequency value given here = 4 × ingame_frequency − 2
dbw 16, .PkmnTalkAndPokedexShow
dbw 28, .PokemonMusic
dbw 32, .LuckyChannel
dbw 40, .BuenasPassword
dbw 52, .RuinsOfAlphRadio
dbw 64, .PlacesAndPeople
dbw 72, .LetsAllSing
dbw 78, .PokeFluteRadio
dbw 80, .EvolutionRadio
db $ff
.PkmnTalkAndPokedexShow
; Pokédex Show in the morning
; Oak's Pokémon Talk in the afternoon and evening
call .InJohto
jr nc, .NoSignal
ld a, [TimeOfDay]
and a
jp z, Function91766
jp Function91753
.PokemonMusic
call .InJohto
jr nc, .NoSignal
jp Function9177b
.LuckyChannel
call .InJohto
jr nc, .NoSignal
jp Function91790
.BuenasPassword
call .InJohto
jr nc, .NoSignal
jp Function917a5
.RuinsOfAlphRadio
ld a, [wc6d8]
cp RUINS_OF_ALPH
jr nz, .NoSignal
jp Function917d5
.PlacesAndPeople
call .InJohto
jr c, .NoSignal
ld a, [wPokegearFlags]
bit 3, a
jr z, .NoSignal
jp Function917ea
.LetsAllSing
call .InJohto
jr c, .NoSignal
ld a, [wPokegearFlags]
bit 3, a
jr z, .NoSignal
jp Function917ff
.PokeFluteRadio
call .InJohto
jr c, .NoSignal
ld a, [wPokegearFlags]
bit 3, a
jr z, .NoSignal
jp Function91829
.EvolutionRadio
; This station airs in the Lake of Rage area when Rocket are still in Mahogany.
ld a, [StatusFlags]
bit 4, a
jr z, .NoSignal
ld a, [wc6d8]
cp MAHOGANY_TOWN
jr z, .ok
cp ROUTE_43
jr z, .ok
cp LAKE_OF_RAGE
jr nz, .NoSignal
.ok
jp Function9183e
.NoSignal
call NoRadioStation
ret
.InJohto
; if in Johto or on the S.S. Aqua, set carry
; otherwise clear carry
ld a, [wc6d8]
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr c, .johto
.kanto
and a
ret
.johto
scf
ret
OAKS_POKEMON_TALK EQU 0
POKEDEX_SHOW EQU 1
POKEMON_MUSIC EQU 2
LUCKY_CHANNEL EQU 3
BUENAS_PASSWORD EQU 4
PLACES_AND_PEOPLE EQU 5
LETS_ALL_SING EQU 6
ROCKET_RADIO EQU 7
POKE_FLUTE_RADIO EQU 8
UNOWN_RADIO EQU 9
EVOLUTION_RADIO EQU 10
Function91753: ; 91753 (24:5753)
xor a ; OAKS_POKEMON_TALK
ld [wd002], a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, OaksPkmnTalkName
ret
Function91766: ; 91766 (24:5766)
ld a, POKEDEX_SHOW
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, PokedexShowName
ret
Function9177b: ; 9177b (24:577b)
ld a, POKEMON_MUSIC
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, PokemonMusicName
ret
Function91790: ; 91790 (24:5790)
ld a, LUCKY_CHANNEL
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, LuckyChannelName
ret
Function917a5: ; 917a5 (24:57a5)
ld a, BUENAS_PASSWORD
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, NotBuenasPasswordName
ld a, [StatusFlags2]
bit 0, a
ret z
ld de, BuenasPasswordName
ret
; 917c3 (24:57c3)
BuenasPasswordName: db "BUENA'S PASSWORD@"
NotBuenasPasswordName: db "@"
Function917d5: ; 917d5 (24:57d5)
ld a, UNOWN_RADIO
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, UnknownStationName
ret
Function917ea: ; 917ea (24:57ea)
ld a, PLACES_AND_PEOPLE
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, PlacesAndPeopleName
ret
Function917ff: ; 917ff (24:57ff)
ld a, LETS_ALL_SING
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, LetsAllSingName
ret
; 91814 (24:5814)
Function91814: ; 91814
ld a, ROCKET_RADIO
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, LetsAllSingName
ret
; 91829
Function91829: ; 91829 (24:5829)
ld a, POKE_FLUTE_RADIO
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, PokeFluteStationName
ret
Function9183e: ; 9183e (24:583e)
ld a, EVOLUTION_RADIO
ld [wd002], a
xor a
ld [wd005], a
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Function9187c
ld de, UnknownStationName
ret
; 91853 (24:5853)
Function91853: ; 91853
ret
Function91854: ; 91854 (24:5854)
push de
ld a, e
ld [wc6dc], a
ld de, MUSIC_NONE
call PlayMusic
pop de
ld a, e
ld [wMapMusic], a
call PlayMusic
ret
Function91868: ; 91868 (24:5868)
push de
ld a, $fe
ld [wc6dc], a
ld de, MUSIC_NONE
call PlayMusic
pop de
ld de, MUSIC_POKEMON_CHANNEL
call PlayMusic
ret
Function9187c: ; 9187c (24:587c)
ld [wc6d9], a
ld a, l
ld [wc6da], a
ld a, h
ld [wc6db], a
ret
NoRadioStation: ; 91888 (24:5888)
call NoRadioMusic
call NoRadioName
xor a
ld [wc6d9], a
ld [wc6da], a
ld [wc6db], a
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
NoRadioMusic: ; 9189d (24:589d)
ld de, MUSIC_NONE
call PlayMusic
ld a, $ff
ld [wc6dc], a
ret
NoRadioName: ; 918a9 (24:58a9)
xor a
ld [hBGMapMode], a ; $ff00+$d4
hlcoord 1, 8
ld bc, $312
call ClearBox
hlcoord 0, 12
ld bc, $412
call TextBox
ret
; 918bf
OaksPkmnTalkName: db "OAK's ", $e1, $e2, " Talk@"
PokedexShowName: db "#DEX Show@"
PokemonMusicName: db "#MON Music@"
LuckyChannelName: db "Lucky Channel@"
UnknownStationName: db "?????@"
PlacesAndPeopleName: db "Places & People@"
LetsAllSingName: db "Let's All Sing!@"
PokeFluteStationName: db "# FLUTE@"
; 9191c
Function9191c: ; 9191c
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
ld a, [VramState]
push af
xor a
ld [VramState], a
call WhiteBGMap
call ClearTileMap
call ClearSprites
call DisableLCD
call Function90c4e
callba Function8cf53
ld a, 8
call SkipMusic
ld a, $e3
ld [rLCDC], a
call Function90d56
ld [wd002], a
ld [wd003], a
xor a
ld [hBGMapMode], a
call Function91a04
call Function3200
ld a, [wd002]
call Function9106a
ld a, [wd003]
call Function91098
ld a, c
ld [wd004], a
ld a, b
ld [wd005], a
ld b, $2
call GetSGBLayout
call Function32f9
ld a, [hCGB]
and a
jr z, .asm_9198b
ld a, $e4
call Functioncf8
call DelayFrame
.asm_9198b
ld a, [wd002]
cp KANTO_LANDMARK
jr nc, .asm_9199b
ld d, KANTO_LANDMARK - 1
ld e, 1
call Function919b0
jr .asm_919a1
.asm_9199b
call Function910e8
call Function919b0
.asm_919a1
pop af
ld [VramState], a
pop af
ld [$ffaa], a
pop af
ld [Options], a
call WhiteBGMap
ret
; 919b0
Function919b0: ; 919b0
.asm_919b0
call Functiona57
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
ret nz
ld hl, $ffa9
ld a, [hl]
and D_UP
jr nz, .asm_919d4
ld a, [hl]
and D_DOWN
jr nz, .asm_919e1
.asm_919c7
push de
callba Function8cf69
pop de
call DelayFrame
jr .asm_919b0
.asm_919d4
ld hl, wd003
ld a, [hl]
cp d
jr c, .asm_919de
ld a, e
dec a
ld [hl], a
.asm_919de
inc [hl]
jr .asm_919ec
.asm_919e1
ld hl, wd003
ld a, [hl]
cp e
jr nz, .asm_919eb
ld a, d
inc a
ld [hl], a
.asm_919eb
dec [hl]
.asm_919ec
push de
ld a, [wd003]
call Function910b4
ld a, [wd004]
ld c, a
ld a, [wd005]
ld b, a
ld a, [wd003]
call Function910d4
pop de
jr .asm_919c7
; 91a04
Function91a04: ; 91a04
ld a, [wd002]
cp KANTO_LANDMARK
jr nc, .asm_91a0f
ld e, $0
jr .asm_91a11
.asm_91a0f
ld e, $1
.asm_91a11
callba Function91ae1
ld a, $7
ld bc, $0006
hlcoord 1, 0
call ByteFill
hlcoord 0, 0
ld [hl], $6
hlcoord 7, 0
ld [hl], $17
hlcoord 7, 1
ld [hl], $16
hlcoord 7, 2
ld [hl], $26
ld a, $7
ld bc, $000b
hlcoord 8, 2
call ByteFill
hlcoord 19, 2
ld [hl], $17
ld a, [wd003]
call Function910b4
callba TownMapPals
ret
; 91a53
PlayRadio: ; 91a53
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
call .PlayStation
ld c, 100
call DelayFrames
.loop
call Functiona57
ld a, [hJoyPressed]
and A_BUTTON | B_BUTTON
jr nz, .stop
ld a, [wc6da]
ld l, a
ld a, [wc6db]
ld h, a
ld a, [wc6d9]
and a
jr z, .zero
rst FarCall
.zero
call DelayFrame
jr .loop
.stop
pop af
ld [Options], a
call Function91492
ret
; 91a87
.PlayStation: ; 91a87
ld a, -1
ld [EnemyTurnsTaken], a
ld hl, .StationPointers
ld d, $0
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .asm_91a9b
push de
jp [hl]
.asm_91a9b
push de
hlcoord 0, 12
ld bc, $0412
call TextBox
hlcoord 1, 14
ld [hl], $72
pop de
hlcoord 2, 14
call PlaceString
ld h, b
ld l, c
ld [hl], $73
call WaitBGMap
ret
; 91ab9
.StationPointers: ; 91ab9
dw Function91acb
dw Function91753
dw Function91766
dw Function9177b
dw Function91790
dw Function917d5
dw Function917ea
dw Function917ff
dw Function91814
; 91acb
Function91acb: ; 91acb
call IsInJohto
and a
jr nz, .kanto
call UpdateTime
ld a, [TimeOfDay]
and a
jp z, Function91766
jp Function91753
.kanto
jp Function917ea
; 91ae1
Function91ae1: ; 91ae1
ld a, e
and a
jr nz, .kanto
call Function91ff2
call FillJohtoMap
ret
.kanto
call Function91ff2
call FillKantoMap
ret
; 91af3
_FlyMap: ; 91af3
call WhiteBGMap
call ClearTileMap
call ClearSprites
ld hl, $ffaa
ld a, [hl]
push af
ld [hl], $1
xor a
ld [hBGMapMode], a
callba Function8cf53
call Function91ff2
ld de, GFX_922e1
ld hl, $9300
lb bc, BANK(GFX_922e1), 6
call Request1bpp
call FlyMap
call Function91c8f
ld b, $2
call GetSGBLayout
call Function32f9
.loop
call Functiona57
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .pressedB
ld a, [hl]
and A_BUTTON
jr nz, .pressedA
call Function91b73
call Function91c17
callba Function8cf69
call DelayFrame
jr .loop
.pressedB
ld a, -1
jr .exit
.pressedA
ld a, [DefaultFlypoint]
ld l, a
ld h, 0
add hl, hl
ld de, Flypoints + 1
add hl, de
ld a, [hl]
.exit
ld [DefaultFlypoint], a
pop af
ld [$ffaa], a
call WhiteBGMap
ld a, $90
ld [hWY], a
xor a
ld [hBGMapAddress], a
ld a, $98
ld [$ffd7], a
ld a, [DefaultFlypoint]
ld e, a
ret
; 91b73
Function91b73: ; 91b73
ld a, [StartFlypoint]
ld e, a
ld a, [EndFlypoint]
ld d, a
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, .asm_91b89
ld a, [hl]
and $80
jr nz, .asm_91b9b
ret
.asm_91b89
ld hl, DefaultFlypoint
ld a, [hl]
cp d
jr nz, .asm_91b93
ld a, e
dec a
ld [hl], a
.asm_91b93
inc [hl]
call Function91c3c
jr z, .asm_91b89
jr .asm_91bab
.asm_91b9b
ld hl, DefaultFlypoint
ld a, [hl]
cp e
jr nz, .asm_91ba5
ld a, d
inc a
ld [hl], a
.asm_91ba5
dec [hl]
call Function91c3c
jr z, .asm_91b9b
.asm_91bab
call TownMapBubble
call WaitBGMap
xor a
ld [hBGMapMode], a
ret
; 91bb5
TownMapBubble: ; 91bb5
; Draw the bubble containing the location text in the town map HUD
; Top-left corner
hlcoord 1, 0
ld a, $30
ld [hli], a
; Top row
ld bc, 16
ld a, " "
call ByteFill
; Top-right corner
ld a, $31
ld [hl], a
hlcoord 1, 1
; Middle row
ld bc, 18
ld a, " "
call ByteFill
; Bottom-left corner
hlcoord 1, 2
ld a, $32
ld [hli], a
; Bottom row
ld bc, 16
ld a, " "
call ByteFill
; Bottom-right corner
ld a, $33
ld [hl], a
; Print "Where?"
hlcoord 2, 0
ld de, .Where
call PlaceString
; Print the name of the default flypoint
call .Name
; Up/down arrows
hlcoord 18, 1
ld [hl], $34
ret
.Where
db "Where?@"
.Name
; We need the map location of the default flypoint
ld a, [DefaultFlypoint]
ld l, a
ld h, 0
add hl, hl ; two bytes per flypoint
ld de, Flypoints
add hl, de
ld e, [hl]
callba GetLandmarkName
hlcoord 2, 1
ld de, StringBuffer1
call PlaceString
ret
; 91c17
Function91c17: ; 91c17
ld a, [DefaultFlypoint]
ld l, a
ld h, $0
add hl, hl
ld de, Flypoints
add hl, de
ld e, [hl]
callba GetLandmarkCoords
ld a, [wd003]
ld c, a
ld a, [wd004]
ld b, a
ld hl, $0004
add hl, bc
ld [hl], e
ld hl, $0005
add hl, bc
ld [hl], d
ret
; 91c3c
Function91c3c: ; 91c3c
push bc
push de
push hl
ld l, [hl]
ld h, 0
add hl, hl
ld de, Flypoints + 1
add hl, de
ld c, [hl]
call HasVisitedSpawn
pop hl
pop de
pop bc
and a
ret
; 91c50
HasVisitedSpawn: ; 91c50
; Check if spawn point c has been visited.
ld hl, VisitedSpawns
ld b, CHECK_FLAG
ld d, 0
predef FlagPredef
ld a, c
ret
; 91c5e
Flypoints: ; 91c5e
; landmark, spawn point
const_def
flypoint: MACRO
\1\@FLY EQUS "FLY_\1"
\1\@SPAWN EQUS "SPAWN_\1"
const \1\@FLY
db \2, \1\@SPAWN
ENDM
; Johto
flypoint NEW_BARK, NEW_BARK_TOWN
flypoint CHERRYGROVE, CHERRYGROVE_CITY
flypoint VIOLET, VIOLET_CITY
flypoint AZALEA, AZALEA_TOWN
flypoint GOLDENROD, GOLDENROD_CITY
flypoint ECRUTEAK, ECRUTEAK_CITY
flypoint OLIVINE, OLIVINE_CITY
flypoint CIANWOOD, CIANWOOD_CITY
flypoint MAHOGANY, MAHOGANY_TOWN
flypoint LAKE, LAKE_OF_RAGE
flypoint BLACKTHORN, BLACKTHORN_CITY
flypoint MT_SILVER, SILVER_CAVE
; Kanto
KANTO_FLYPOINT EQU const_value
flypoint PALLET, PALLET_TOWN
flypoint VIRIDIAN, VIRIDIAN_CITY
flypoint PEWTER, PEWTER_CITY
flypoint CERULEAN, CERULEAN_CITY
flypoint VERMILION, VERMILION_CITY
flypoint ROCK_TUNNEL, ROCK_TUNNEL
flypoint LAVENDER, LAVENDER_TOWN
flypoint CELADON, CELADON_CITY
flypoint SAFFRON, SAFFRON_CITY
flypoint FUCHSIA, FUCHSIA_CITY
flypoint CINNABAR, CINNABAR_ISLAND
flypoint INDIGO, INDIGO_PLATEAU
db -1
; 91c8f
Function91c8f: ; 91c8f
ret
; 91c90
FlyMap: ; 91c90
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
; If we're not in a valid location, i.e. Pokecenter floor 2F,
; the backup map information is used
cp SPECIAL_MAP
jr nz, .CheckRegion
ld a, [BackupMapGroup]
ld b, a
ld a, [BackupMapNumber]
ld c, a
call GetWorldMapLocation
.CheckRegion
; The first 46 locations are part of Johto. The rest are in Kanto
cp KANTO_LANDMARK
jr nc, .KantoFlyMap
.JohtoFlyMap
; Note that .NoKanto should be modified in tandem with this branch
push af
; Start from New Bark Town
ld a, FLY_NEW_BARK
ld [DefaultFlypoint], a
; Flypoints begin at New Bark Town...
ld [StartFlypoint], a
; ..and end at Silver Cave
ld a, FLY_MT_SILVER
ld [EndFlypoint], a
; Fill out the map
call FillJohtoMap
call .MapHud
pop af
call TownMapPlayerIcon
ret
.KantoFlyMap
; The event that there are no flypoints enabled in a map is not
; accounted for. As a result, if you attempt to select a flypoint
; when there are none enabled, the game will crash. Additionally,
; the flypoint selection has a default starting point that
; can be flown to even if none are enabled
; To prevent both of these things from happening when the player
; enters Kanto, fly access is restricted until Indigo Plateau is
; visited and its flypoint enabled
push af
ld c, SPAWN_INDIGO
call HasVisitedSpawn
and a
jr z, .NoKanto
; Kanto's map is only loaded if we've visited Indigo Plateau
; Flypoints begin at Pallet Town...
ld a, FLY_PALLET
ld [StartFlypoint], a
; ...and end at Indigo Plateau
ld a, FLY_INDIGO
ld [EndFlypoint], a
; Because Indigo Plateau is the first flypoint the player
; visits, it's made the default flypoint
ld [DefaultFlypoint], a
; Fill out the map
call FillKantoMap
call .MapHud
pop af
call TownMapPlayerIcon
ret
.NoKanto
; If Indigo Plateau hasn't been visited, we use Johto's map instead
; Start from New Bark Town
ld a, FLY_NEW_BARK
ld [DefaultFlypoint], a
; Flypoints begin at New Bark Town...
ld [StartFlypoint], a
; ..and end at Silver Cave
ld a, FLY_MT_SILVER
ld [EndFlypoint], a
call FillJohtoMap
pop af
.MapHud
call TownMapBubble
call TownMapPals
ld hl, VBGMap0 ; BG Map 0
call TownMapBGUpdate
call TownMapMon
ld a, c
ld [wd003], a
ld a, b
ld [wd004], a
ret
; 91d11
Function91d11: ; 91d11
ld a, [DefaultFlypoint]
push af
ld a, [wd003]
push af
ld a, e
ld [DefaultFlypoint], a
call ClearSprites
xor a
ld [hBGMapMode], a
ld a, $1
ld [$ffaa], a
ld de, GFX_922d1
ld hl, $87f0
lb bc, BANK(GFX_922d1), 1
call Request2bpp ; actually 1bpp
call Function91ed0
ld hl, $8780
ld c, $4
call Request2bpp
call Function91ff2
call FillKantoMap
call Function91de9
call TownMapPals
ld hl, VBGMap1
call TownMapBGUpdate
call FillJohtoMap
call Function91de9
call TownMapPals
ld hl, VBGMap0
call TownMapBGUpdate
ld b, $2
call GetSGBLayout
call Function32f9
xor a
ld [hBGMapMode], a
xor a
call Function91e1e
.asm_91d6e
call Functiona57
ld hl, hJoyPressed
ld a, [hl]
and $3
jr nz, .asm_91d8f
ld a, [hJoypadDown]
and $4
jr nz, .asm_91d87
call Function91d9b
call Function91dcd
jr .asm_91d8a
.asm_91d87
call Function91e5a
.asm_91d8a
call DelayFrame
jr .asm_91d6e
.asm_91d8f
call ClearSprites
pop af
ld [wd003], a
pop af
ld [DefaultFlypoint], a
ret
; 91d9b
Function91d9b: ; 91d9b
ld a, [hl]
and $20
jr nz, .asm_91da6
ld a, [hl]
and $10
jr nz, .asm_91db7
ret
.asm_91da6
ld a, [hWY]
cp $90
ret z
call ClearSprites
ld a, $90
ld [hWY], a
xor a
call Function91e1e
ret
.asm_91db7
ld a, [StatusFlags]
bit 6, a
ret z
ld a, [hWY]
and a
ret z
call ClearSprites
xor a
ld [hWY], a
ld a, $1
call Function91e1e
ret
; 91dcd
Function91dcd: ; 91dcd
ld a, [$ff9b]
ld e, a
and $f
ret nz
ld a, e
and $10
jr nz, .asm_91ddc
call ClearSprites
ret
.asm_91ddc
hlcoord 0, 0
ld de, Sprites
ld bc, $00a0
call CopyBytes
ret
; 91de9
Function91de9: ; 91de9
hlcoord 0, 0
ld bc, SCREEN_WIDTH
ld a, $7f
call ByteFill
hlcoord 0, 1
ld a, $6
ld [hli], a
ld bc, SCREEN_HEIGHT
ld a, $7
call ByteFill
ld [hl], $17
call GetPokemonName
hlcoord 2, 0
call PlaceString
ld h, b
ld l, c
ld de, String_91e16
call PlaceString
ret
; 91e16
String_91e16:
db "'S NEST@"
; 91e1e
Function91e1e: ; 91e1e
ld [wd003], a
ld e, a
callba Function2a01f
decoord 0, 0
ld hl, Sprites
.asm_91e2e
ld a, [de]
and a
jr z, .asm_91e4d
push de
ld e, a
push hl
callba GetLandmarkCoords
pop hl
ld a, d
sub $4
ld [hli], a
ld a, e
sub $4
ld [hli], a
ld a, $7f
ld [hli], a
xor a
ld [hli], a
pop de
inc de
jr .asm_91e2e
.asm_91e4d
ld hl, Sprites
decoord 0, 0
ld bc, $00a0
call CopyBytes
ret
; 91e5a
Function91e5a: ; 91e5a
call Function91ea9
ret c
ld a, [DefaultFlypoint]
ld e, a
callba GetLandmarkCoords
ld c, e
ld b, d
ld de, Unknown_91e9c
ld hl, Sprites
.asm_91e70
ld a, [de]
cp $80
jr z, .asm_91e91
add b
ld [hli], a
inc de
ld a, [de]
add c
ld [hli], a
inc de
ld a, [de]
add $78
ld [hli], a
inc de
push bc
ld c, 0
ld a, [PlayerGender]
bit 0, a
jr z, .asm_91e8c
inc c
.asm_91e8c
ld a, c
ld [hli], a
pop bc
jr .asm_91e70
.asm_91e91
ld hl, Sprites + $10
ld bc, SpritesEnd - (Sprites + $10)
xor a
call ByteFill
ret
; 91e9c
Unknown_91e9c: ; 91e9c
db -8, -8, 0
db -8, 0, 1
db 0, -8, 2
db 0, 0, 3
db $80 ; terminator
; 91ea9
Function91ea9: ; 91ea9
ld a, [DefaultFlypoint]
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr c, .johto
.kanto
ld a, [wd003]
and a
jr z, .clear
jr .ok
.johto
ld a, [wd003]
and a
jr nz, .clear
.ok
and a
ret
.clear
ld hl, Sprites
ld bc, SpritesEnd - Sprites
xor a
call ByteFill
scf
ret
; 91ed0
Function91ed0: ; 91ed0
ld a, [DefaultFlypoint]
cp FAST_SHIP
jr z, .asm_91ede
callba GetPlayerIcon
ret
.asm_91ede
ld de, FastShipGFX
ld b, BANK(FastShipGFX)
ret
; 91ee4
TownMapBGUpdate: ; 91ee4
; Update BG Map tiles and attributes
; BG Map address
ld a, l
ld [hBGMapAddress], a
ld a, h
ld [$ffd7], a
; Only update palettes on CGB
ld a, [hCGB]
and a
jr z, .tiles
; BG Map mode 2 (palettes)
ld a, 2
ld [hBGMapMode], a
; The BG Map is updated in thirds, so we wait
; 3 frames to update the whole screen's palettes.
ld c, 3
call DelayFrames
.tiles
; Update BG Map tiles
call WaitBGMap
; Turn off BG Map update
xor a
ld [hBGMapMode], a
ret
; 91eff
FillJohtoMap: ; 91eff
ld de, JohtoMap
jr FillTownMap
FillKantoMap: ; 91f04
ld de, KantoMap
FillTownMap: ; 91f07
hlcoord 0, 0
.loop
ld a, [de]
cp $ff
ret z
ld a, [de]
ld [hli], a
inc de
jr .loop
; 91f13
TownMapPals: ; 91f13
; Assign palettes based on tile ids
hlcoord 0, 0
decoord 0, 0, AttrMap
ld bc, 360
.loop
; Current tile
ld a, [hli]
push hl
; HP/borders use palette 0
cp $60
jr nc, .pal0
; The palette data is condensed to nybbles,
; least-significant first.
ld hl, TownMapPalMap
srl a
jr c, .odd
; Even-numbered tile ids take the bottom nybble...
add l
ld l, a
ld a, h
adc 0
ld h, a
ld a, [hl]
and %111
jr .update
.odd
; ...and odd ids take the top.
add l
ld l, a
ld a, h
adc 0
ld h, a
ld a, [hl]
swap a
and %111
jr .update
.pal0
xor a
.update
pop hl
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
ret
TownMapPalMap:
db $11, $21, $22, $00, $11, $13, $54, $54, $11, $21, $22, $00
db $11, $10, $01, $00, $11, $21, $22, $00, $00, $00, $00, $00
db $00, $00, $44, $04, $00, $00, $00, $00, $33, $33, $33, $33
db $33, $33, $33, $03, $33, $33, $33, $33, $00, $00, $00, $00
; 91f7b
TownMapMon: ; 91f7b
; Draw the FlyMon icon at town map location in
; Get FlyMon species
ld a, [CurPartyMon]
ld hl, PartySpecies
ld e, a
ld d, $0
add hl, de
ld a, [hl]
ld [wd265], a
; Get FlyMon icon
ld e, 8 ; starting tile in VRAM
callba GetSpeciesIcon
; Animation/palette
ld de, $0000
ld a, $0
call Function3b2a
ld hl, 3
add hl, bc
ld [hl], 8
ld hl, 2
add hl, bc
ld [hl], 0
ret
; 91fa6
TownMapPlayerIcon: ; 91fa6
; Draw the player icon at town map location in a
push af
callba GetPlayerIcon
; Standing icon
ld hl, $8100
ld c, 4 ; # tiles
call Request2bpp
; Walking icon
ld hl, $00c0
add hl, de
ld d, h
ld e, l
ld hl, $8140
ld c, 4 ; # tiles
ld a, BANK(ChrisSpriteGFX) ; does nothing
call Request2bpp
; Animation/palette
ld de, $0000
ld b, $0a ; Male
ld a, [PlayerGender]
bit 0, a
jr z, .asm_91fd3
ld b, $1e ; Female
.asm_91fd3
ld a, b
call Function3b2a
ld hl, $0003
add hl, bc
ld [hl], $10
pop af
ld e, a
push bc
callba GetLandmarkCoords
pop bc
ld hl, 4
add hl, bc
ld [hl], e
ld hl, 5
add hl, bc
ld [hl], d
ret
; 0x91ff2
Function91ff2: ; 91ff2
ld hl, TownMapGFX
ld de, VTiles2
lb bc, BANK(TownMapGFX), $30
call Functione73
ret
; 91fff
JohtoMap: ; 91fff
INCBIN "gfx/misc/johto.bin"
; 92168
KantoMap: ; 92168
INCBIN "gfx/misc/kanto.bin"
; 922d1
GFX_922d1: ; 922d1
INCBIN "gfx/unknown/0922d1.2bpp"
GFX_922e1: ; 922e1
INCBIN "gfx/unknown/0922e1.2bpp"
GFX_92301: ; 92301
INCBIN "gfx/unknown/092301.2bpp"
Function92311: ; 92311
xor a
ld [DefaultFlypoint], a
call WhiteBGMap
call ClearTileMap
call ClearSprites
ld hl, $ffaa
ld a, [hl]
push af
ld [hl], $1
xor a
ld [hBGMapMode], a
callba Function8cf53
call Function91ff2
ld de, GFX_922e1
ld hl, $9300
lb bc, BANK(GFX_922e1), 6
call Request1bpp
call FillKantoMap
call TownMapBubble
call TownMapPals
ld hl, VBGMap1
call TownMapBGUpdate
call FillJohtoMap
call TownMapBubble
call TownMapPals
ld hl, VBGMap0
call TownMapBGUpdate
call TownMapMon
ld a, c
ld [wd003], a
ld a, b
ld [wd004], a
ld b, $2
call GetSGBLayout
call Function32f9
.asm_9236e
call Functiona57
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .asm_9238f
ld a, [hl]
and A_BUTTON
jr nz, .asm_92393
call Function923b8
call Function91c17
callba Function8cf69
call DelayFrame
jr .asm_9236e
.asm_9238f
ld a, $ff
jr .asm_9239f
.asm_92393
ld a, [DefaultFlypoint]
ld l, a
ld h, 0
add hl, hl
ld de, Flypoints + 1
add hl, de
ld a, [hl]
.asm_9239f
ld [DefaultFlypoint], a
pop af
ld [$ffaa], a
call WhiteBGMap
ld a, $90
ld [hWY], a
xor a
ld [hBGMapAddress], a
ld a, $98
ld [$ffd7], a
ld a, [DefaultFlypoint]
ld e, a
ret
; 923b8
Function923b8: ; 923b8
ld hl, $ffa9
ld a, [hl]
and D_DOWN | D_RIGHT
jr nz, .asm_923c6
ld a, [hl]
and D_UP | D_LEFT
jr nz, .asm_923d3
ret
.asm_923c6
ld hl, DefaultFlypoint
ld a, [hl]
cp FLY_INDIGO
jr c, .asm_923d0
ld [hl], -1
.asm_923d0
inc [hl]
jr .asm_923dd
.asm_923d3
ld hl, DefaultFlypoint
ld a, [hl]
and a
jr nz, .asm_923dc
ld [hl], FLY_INDIGO + 1
.asm_923dc
dec [hl]
.asm_923dd
ld a, [DefaultFlypoint]
cp KANTO_FLYPOINT
jr c, .johto
call FillKantoMap
xor a
ld b, $9c
jr .asm_923f3
.johto
call FillJohtoMap
ld a, $90
ld b, $98
.asm_923f3
ld [hWY], a
ld a, b
ld [$ffd7], a
call TownMapBubble
call WaitBGMap
xor a
ld [hBGMapMode], a
ret
; 92402
INCLUDE "data/wild/fish.asm"
_SlotMachine:
ld hl, Options
set 4, [hl]
call Function926f7
call DelayFrame
.asm_926d2
call Function927af
jr nc, .asm_926d2
call WaitSFX
ld de, SFX_QUIT_SLOTS
call PlaySFX
call WaitSFX
call WhiteBGMap
callba Function105fd0
ld hl, Options
res 4, [hl]
ld hl, rLCDC ; $ff40
res 2, [hl]
ret
Function926f7: ; 926f7 (24:66f7)
call WhiteBGMap
call ClearTileMap
call ClearSprites
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
call DisableLCD
ld hl, $9800
ld bc, $400
ld a, $7f
call ByteFill
ld b, $5
call GetSGBLayout
callab Function8cf53
ld hl, wc6d0
ld bc, $48
xor a
call ByteFill
ld hl, Slots2LZ
ld de, $8000
call Decompress
ld hl, Slots3LZ
ld de, $8400
call Decompress
ld hl, Slots1LZ
ld de, $9000
call Decompress
ld hl, Slots2LZ
ld de, $9250
call Decompress
ld hl, SlotsTilemap
decoord 0, 0
ld bc, 20 * 12
call CopyBytes
ld hl, rLCDC ; $ff40
set 2, [hl]
call EnableLCD
ld hl, wc6d0
ld bc, $64
xor a
call ByteFill
call Function92a98
call Function9279b
ld a, $7
ld hl, wc300
ld [hli], a
ld [hl], $40
xor a
ld [wcf63], a
ld a, $ff
ld [wc709], a
ld de, MUSIC_GAME_CORNER
call PlayMusic
xor a
ld [wd002], a
call Random
and $2a
ret nz
ld a, $1
ld [wd002], a
ret
Function9279b: ; 9279b (24:679b)
ld a, $e4
call DmgToCgbBGPals
lb de, $e4, $e4
ld a, [hCGB] ; $ff00+$e6
and a
jr nz, .asm_927ab
lb de, $c0, $e4
.asm_927ab
call DmgToCgbObjPals
ret
Function927af: ; 927af (24:67af)
ld a, [wcf63]
bit 7, a
jr nz, .asm_927d1
call Function92844
call Function92b0f
xor a
ld [wc3b5], a
callab Function8cfa8
call Function927f8
call Function927d3
call DelayFrame
and a
ret
.asm_927d1
scf
ret
Function927d3: ; 927d3 (24:67d3)
ret
; 927d4 (24:67d4)
Function927d4: ; 927d4
ld a, [wc6d0]
and a
ret nz
ld a, [wc6e0]
and a
ret nz
ld a, [wc70c]
and a
jr nz, .asm_927ea
ld a, $e4
call DmgToCgbBGPals
ret
.asm_927ea
ld a, [TextDelayFrames]
and $7
ret nz
ld a, [rBGP]
xor %1100
call DmgToCgbBGPals
ret
; 927f8
Function927f8: ; 927f8 (24:67f8)
hlcoord 5, 1
ld de, Coins
ld bc, $8204
call PrintNum
hlcoord 11, 1
ld de, wc711
ld bc, $8204
call PrintNum
ret
; 92811 (24:6811)
Function92811: ; 92811
ld a, [wc709]
add 0
daa
ld e, a
and $f
add "0"
hlcoord 1, 0
ld [hl], a
ld a, e
swap a
and $f
add "0"
hlcoord 0, 0
ld [hl], a
ret
; 9282c
Function9282c: ; 9282c
ld hl, wcf66
ld a, [hl]
inc [hl]
and $7
ret nz
ld hl, Sprites + $42
ld c, $18
.asm_92839
ld a, [hl]
xor $20
ld [hli], a
rept 3
inc hl
endr
dec c
jr nz, .asm_92839
ret
; 92844
Function92844: ; 92844 (24:6844)
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_92853
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 92853 (24:6853)
Jumptable_92853: ; 92853 (24:6853)
dw Function9287e
dw Function9288e
dw Function928c6
dw Function928d6
dw Function928e6
dw Function92900
dw Function92910
dw Function9292a
dw Function9293a
dw Function92879
dw Function92879
dw Function92879
dw Function92955
dw Function9296b
dw Function92987
dw Function9299e
dw Function929a4
dw Function929d9
dw Function929f0
Function92879: ; 92879 (24:6879)
ld hl, wcf63
inc [hl]
ret
Function9287e: ; 9287e (24:687e)
call Function92879
xor a
ld [wc70b], a
ld [wc70c], a
ld a, $ff
ld [wc70d], a
ret
Function9288e: ; 9288e (24:688e)
call Function9307c
jr nc, .asm_92899
ld a, $12
ld [wcf63], a
ret
.asm_92899
call Function92879
call Function9303f
call Function93002
ld a, $20
ld [wcf64], a
ld a, $4
ld [wc6d0], a
ld [wc6e0], a
ld [wc6f0], a
ld a, $4
ld [wc6d9], a
ld [wc6e9], a
ld [wc6f9], a
call WaitSFX
ld a, SFX_SLOT_MACHINE_START
call Function9331e
ret
Function928c6: ; 928c6 (24:68c6)
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_928cf
dec [hl]
ret
.asm_928cf
call Function92879
xor a
ld [hJoypadSum], a ; $ff00+$a5
ret
Function928d6: ; 928d6 (24:68d6)
ld hl, hJoypadSum ; $ffa5
ld a, [hl]
and A_BUTTON
ret z
call Function92879
call Function92a2b
ld [wc6d0], a
Function928e6: ; 928e6 (24:68e6)
ld a, [wc6d0]
cp $0
ret nz
ld a, SFX_STOP_SLOT
call Function9331e
ld bc, wc6d0
ld de, wc700
call Function929f6
call Function92879
xor a
ld [hJoypadSum], a ; $ff00+$a5
Function92900: ; 92900 (24:6900)
ld hl, hJoypadSum ; $ffa5
ld a, [hl]
and A_BUTTON
ret z
call Function92879
call Function92a2e
ld [wc6e0], a
Function92910: ; 92910 (24:6910)
ld a, [wc6e0]
cp $0
ret nz
ld a, SFX_STOP_SLOT
call Function9331e
ld bc, wc6e0
ld de, wc703
call Function929f6
call Function92879
xor a
ld [hJoypadSum], a ; $ff00+$a5
Function9292a: ; 9292a (24:692a)
ld hl, hJoypadSum ; $ffa5
ld a, [hl]
and A_BUTTON
ret z
call Function92879
call Function92a60
ld [wc6f0], a
Function9293a: ; 9293a (24:693a)
ld a, [wc6f0]
cp $0
ret nz
ld a, SFX_STOP_SLOT
call Function9331e
ld bc, wc6f0
ld de, wc706
call Function929f6
call Function92879
xor a
ld [hJoypadSum], a ; $ff00+$a5
ret
Function92955: ; 92955 (24:6955)
ld a, [wc70d]
cp $ff
jr nz, .asm_92963
call Function92879
call Function92879
ret
.asm_92963
call Function92879
ld a, $10
ld [wcf64], a
Function9296b: ; 9296b (24:696b)
ld hl, wcf64
ld a, [hl]
and a
jr z, .asm_92980
dec [hl]
srl a
ret z
ld a, [rOBP0] ; $ff00+$48
xor $ff
ld e, a
ld d, a
call DmgToCgbObjPals
ret
.asm_92980
call Function9279b
call Function92879
ret
Function92987: ; 92987 (24:6987)
xor a
ld [wc70b], a
ld [wc70c], a
ld a, $e4
call DmgToCgbBGPals
call Function93124
xor a
ld [wcf64], a
call Function92879
ret
Function9299e: ; 9299e (24:699e)
call Function93158
call Function92879
Function929a4: ; 929a4 (24:69a4)
ld hl, wcf64
ld a, [hl]
inc [hl]
and $1
ret z
ld hl, wc711
ld a, [hli]
ld d, a
or [hl]
jr z, .asm_929d5
ld e, [hl]
dec de
ld [hl], e
dec hl
ld [hl], d
ld hl, Coins
ld d, [hl]
inc hl
ld e, [hl]
call Function92a04
jr c, .asm_929c5
inc de
.asm_929c5
ld [hl], e
dec hl
ld [hl], d
ld a, [wcf64]
and $7
ret z
ld de, SFX_GET_COIN_FROM_SLOTS
call PlaySFX
ret
.asm_929d5
call Function92879
ret
Function929d9: ; 929d9 (24:69d9)
call Function9304c
call Functiona80
call Function930e9
jr c, .asm_929ea
ld a, $0
ld [wcf63], a
ret
.asm_929ea
ld a, $12
ld [wcf63], a
ret
Function929f0: ; 929f0 (24:69f0)
ld hl, wcf63
set 7, [hl]
ret
Function929f6: ; 929f6 (24:69f6)
push de
call Function92a12
pop de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
ret
Function92a04: ; 92a04 (24:6a04)
ld a, d
cp 9999 / $100
jr c, .asm_92a10
ld a, e
cp 9999 % $100
jr c, .asm_92a10
scf
ret
.asm_92a10
and a
ret
Function92a12: ; 92a12 (24:6a12)
ld hl, $3
add hl, bc
ld a, [hl]
and a
jr nz, .asm_92a1c
ld a, $f
.asm_92a1c
dec a
and $f
ld e, a
ld d, $0
ld hl, $1
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ret
Function92a2b: ; 92a2b (24:6a2b)
ld a, $7
ret
Function92a2e: ; 92a2e (24:6a2e)
ld a, [wc70a]
cp $2
jr c, .asm_92a4e
ld a, [wc709]
and a
jr z, .asm_92a3f
cp $ff
jr nz, .asm_92a4e
.asm_92a3f
call Function92a51
jr nz, .asm_92a4e
call Random
cp $50
jr nc, .asm_92a4e
ld a, $a
ret
.asm_92a4e
ld a, $8
ret
Function92a51: ; 92a51 (24:6a51)
ld a, [wc700]
and a
ret z
ld a, [wc701]
and a
ret z
ld a, [wc702]
and a
ret
Function92a60: ; 92a60 (24:6a60)
ld a, [wc70b]
and a
jr z, .asm_92a95
ld a, [wc70c]
and a
jr z, .asm_92a95
ld a, [wc709]
and a
jr nz, .asm_92a84
call Random
cp 180
jr nc, .asm_92a95
cp 120
jr nc, .asm_92a92
cp 60
jr nc, .asm_92a8f
ld a, $15
ret
.asm_92a84
call Random
cp $a0
jr nc, .asm_92a95
cp $50
jr nc, .asm_92a92
.asm_92a8f
ld a, $12
ret
.asm_92a92
ld a, $10
ret
.asm_92a95
ld a, $9
ret
Function92a98: ; 92a98 (24:6a98)
ld bc, wc6d0
ld hl, $6
add hl, bc
ld de, Sprites + $40
ld [hl], e
inc hl
ld [hl], d
ld hl, $1
add hl, bc
ld de, Unknown_93327
ld [hl], e
inc hl
ld [hl], d
ld hl, $8
add hl, bc
ld [hl], $30
call Function92af9
ld bc, wc6e0
ld hl, $6
add hl, bc
ld de, Sprites + $60
ld [hl], e
inc hl
ld [hl], d
ld hl, $1
add hl, bc
ld de, Unknown_93339
ld [hl], e
inc hl
ld [hl], d
ld hl, $8
add hl, bc
ld [hl], $50
call Function92af9
ld bc, wc6f0
ld hl, $6
add hl, bc
ld de, Sprites + $80
ld [hl], e
inc hl
ld [hl], d
ld hl, $1
add hl, bc
ld de, Unknown_9334b
ld [hl], e
inc hl
ld [hl], d
ld hl, $8
add hl, bc
ld [hl], $70
call Function92af9
ret
Function92af9: ; 92af9 (24:6af9)
ld hl, $0
add hl, bc
ld [hl], $0
ld hl, $3
add hl, bc
ld [hl], $e
ld hl, $4
add hl, bc
ld [hl], $0
call Function92b53
ret
Function92b0f: ; 92b0f (24:6b0f)
ld bc, wc6d0
call Function92b22
ld bc, wc6e0
call Function92b22
ld bc, wc6f0
call Function92b22
ret
Function92b22: ; 92b22 (24:6b22)
ld hl, $4
add hl, bc
ld a, [hl]
and $f
jr nz, .asm_92b2e
call Function92bd4
.asm_92b2e
ld hl, $5
add hl, bc
ld a, [hl]
and a
ret z
ld d, a
ld hl, $4
add hl, bc
add [hl]
ld [hl], a
and $f
jr z, Function92b53
ld hl, $6
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld e, $8
.asm_92b49
ld a, [hl]
add d
ld [hli], a
rept 3
inc hl
endr
dec e
jr nz, .asm_92b49
ret
Function92b53: ; 92b53 (24:6b53)
ld hl, $8
add hl, bc
ld a, [hl]
ld [wc712 + 1], a
ld a, $50
ld [wc712 + 2], a
ld hl, $3
add hl, bc
ld e, [hl]
ld d, $0
ld hl, $1
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ld e, l
ld d, h
call Function92b83
ld hl, $3
add hl, bc
ld a, [hl]
inc a
and $f
cp $f
jr nz, .asm_92b81
xor a
.asm_92b81
ld [hl], a
ret
Function92b83: ; 92b83 (24:6b83)
ld hl, $6
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
.asm_92b8a
ld a, [wc712 + 2]
ld [hli], a
ld a, [wc712 + 1]
ld [hli], a
ld a, [de]
ld [hli], a
srl a
srl a
set 7, a
ld [hli], a
ld a, [wc712 + 2]
ld [hli], a
ld a, [wc712 + 1]
add $8
ld [hli], a
ld a, [de]
rept 2
inc a
endr
ld [hli], a
srl a
srl a
set 7, a
ld [hli], a
inc de
ld a, [wc712 + 2]
sub $10
ld [wc712 + 2], a
cp $10
jr nz, .asm_92b8a
ret
; 92bbe (24:6bbe)
Function92bbe: ; 92bbe
push hl
srl a
srl a
add Unknown_92bce % $100
ld l, a
ld a, 0
adc Unknown_92bce / $100
ld h, a
ld a, [hl]
pop hl
ret
; 92bce
Unknown_92bce: ; 92bce
db 0, 1, 2, 3, 4, 5
; 92bd4
Function92bd4: ; 92bd4 (24:6bd4)
ld hl, 0
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Jumptable_92be4
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 92be4 (24:6be4)
Jumptable_92be4: ; 92be4
dw Function92c16
dw Function92c4c
dw Function92c17
dw Function92c1e
dw Function92c25
dw Function92c2c
dw Function92c33
dw Function92c5e
dw Function92c86
dw Function92ca9
dw Function92cd2
dw Function92cf8
dw Function92d13
dw Function92df7
dw Function92e10
dw Function92e31
dw Function92e47
dw Function92e64
dw Function92d20
dw Function92d4f
dw Function92d6e
dw Function92d7e
dw Function92da4
dw Function92db3
dw Function92dca
; 92c16
Function92c16: ; 92c16
ret
; 92c17
Function92c17: ; 92c17
ld hl, $0005
add hl, bc
ld [hl], $10
ret
; 92c1e
Function92c1e: ; 92c1e
ld hl, $0005
add hl, bc
ld [hl], $8
ret
; 92c25
Function92c25: ; 92c25
ld hl, $0005
add hl, bc
ld [hl], $4
ret
; 92c2c
Function92c2c: ; 92c2c
ld hl, $0005
add hl, bc
ld [hl], $2
ret
; 92c33
Function92c33: ; 92c33
ld hl, $0005
add hl, bc
ld [hl], $1
ret
; 92c3a
Function92c3a: ; 92c3a
ld hl, $0005
add hl, bc
ld [hl], $0
ld hl, $0000
add hl, bc
ld [hl], $1
ld hl, $000f
add hl, bc
ld [hl], $3
Function92c4c: ; 92c4c
ld hl, $000f
add hl, bc
ld a, [hl]
and a
jr z, .asm_92c56
dec [hl]
ret
.asm_92c56
ld hl, $0000
add hl, bc
ld a, $0
ld [hl], a
ret
; 92c5e
Function92c5e: ; 92c5e
ld a, [wc709]
cp $ff
jr z, .asm_92c72
ld hl, $0009
add hl, bc
ld a, [hl]
and a
jr z, .asm_92c72
dec [hl]
call Function92c76
ret nz
.asm_92c72
call Function92c3a
ret
; 92c76
Function92c76: ; 92c76
call Function92a12
ld a, [wc709]
ld e, a
ld a, [hli]
cp e
ret z
ld a, [hli]
cp e
ret z
ld a, [hl]
cp e
ret
; 92c86
Function92c86: ; 92c86
call Function92e94
jr nc, .asm_92c94
ld a, [wc717]
ld hl, wc709
cp [hl]
jr z, .asm_92ca5
.asm_92c94
ld a, [wc709]
cp $ff
jr z, .asm_92ca5
ld hl, $0009
add hl, bc
ld a, [hl]
and a
jr z, .asm_92ca5
dec [hl]
ret
.asm_92ca5
call Function92c3a
ret
; 92ca9
Function92ca9: ; 92ca9
call Function92f1d
jr nc, .asm_92cbd
ld hl, wc709
cp [hl]
jr z, .asm_92cce
ld hl, $0009
add hl, bc
ld a, [hl]
and a
ret z
dec [hl]
ret
.asm_92cbd
ld a, [wc709]
cp $ff
jr z, .asm_92cce
ld hl, $0009
add hl, bc
ld a, [hl]
and a
jr z, .asm_92cce
dec [hl]
ret
.asm_92cce
call Function92c3a
ret
; 92cd2
Function92cd2: ; 92cd2
call Function92e94
jr nc, .asm_92ce1
ld a, [wc70c]
and a
jr z, .asm_92ce1
call Function92c3a
ret
.asm_92ce1
ld a, SFX_STOP_SLOT
call Function9331e
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $000a
add hl, bc
ld [hl], $20
ld hl, $0005
add hl, bc
ld [hl], $0
ret
; 92cf8
Function92cf8: ; 92cf8
ld hl, $000a
add hl, bc
ld a, [hl]
and a
jr z, .asm_92d02
dec [hl]
ret
.asm_92d02
ld a, SFX_THROW_BALL
call Function9331e
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $0005
add hl, bc
ld [hl], $8
ret
; 92d13
Function92d13: ; 92d13
call Function92e94
ret nc
ld a, [wc70c]
and a
ret z
call Function92c3a
ret
; 92d20
Function92d20: ; 92d20
call Function92f1d
ret c
ld a, SFX_STOP_SLOT
call Function9331e
call Function93316
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $0005
add hl, bc
ld [hl], $0
call Function92fc0
push bc
push af
ld de, $6068
ld a, $6
call Function3b2a
ld hl, $000e
add hl, bc
pop af
ld [hl], a
pop bc
xor a
ld [wcf64], a
Function92d4f: ; 92d4f
ld a, [wcf64]
cp $2
jr z, .asm_92d5b
cp $1
jr z, .asm_92d62
ret
.asm_92d5b
call Function92f1d
call Function92c3a
ret
.asm_92d62
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $0005
add hl, bc
ld [hl], $8
ret
; 92d6e
Function92d6e: ; 92d6e
xor a
ld [wcf64], a
ld hl, $0000
add hl, bc
dec [hl]
ld hl, $0005
add hl, bc
ld [hl], $0
ret
; 92d7e
Function92d7e: ; 92d7e
call Function92f1d
ret c
ld a, SFX_STOP_SLOT
call Function9331e
call Function93316
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $0005
add hl, bc
ld [hl], $0
push bc
ld de, $6000
ld a, $7
call Function3b2a
pop bc
xor a
ld [wcf64], a
ret
; 92da4
Function92da4: ; 92da4
ld a, [wcf64]
and a
ret z
ld hl, $0000
add hl, bc
inc [hl]
ld a, $2
ld [wcf64], a
Function92db3: ; 92db3
ld a, [wcf64]
cp $4
ret c
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $0005
add hl, bc
ld [hl], $10
ld hl, $000a
add hl, bc
ld [hl], $11
Function92dca: ; 92dca
ld hl, $000a
add hl, bc
ld a, [hl]
and a
jr z, .asm_92dd4
dec [hl]
ret
.asm_92dd4
call Function92f1d
jr nc, .asm_92de5
and a
jr nz, .asm_92de5
ld a, $5
ld [wcf64], a
call Function92c3a
ret
.asm_92de5
ld hl, $0005
add hl, bc
ld [hl], $0
ld hl, $0000
add hl, bc
rept 2
dec [hl]
endr
ld a, $1
ld [wcf64], a
ret
; 92df7
Function92df7: ; 92df7
call Function92f1d
ret c
ld a, SFX_STOP_SLOT
call Function9331e
call Function93316
ld hl, $0000
add hl, bc
inc [hl]
call Function92fc0
ld hl, $000a
add hl, bc
ld [hl], a
Function92e10: ; 92e10
ld hl, $000a
add hl, bc
ld a, [hl]
and a
jr nz, .asm_92e1f
call Function92f1d
call Function92c3a
ret
.asm_92e1f
dec [hl]
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $000b
add hl, bc
ld [hl], $20
ld hl, $0005
add hl, bc
ld [hl], $0
Function92e31: ; 92e31
ld hl, $000b
add hl, bc
ld a, [hl]
and a
jr z, .asm_92e3b
dec [hl]
ret
.asm_92e3b
ld hl, $0000
add hl, bc
dec [hl]
ld hl, $0005
add hl, bc
ld [hl], $8
ret
; 92e47
Function92e47: ; 92e47
call Function92f1d
ret c
ld a, SFX_STOP_SLOT
call Function9331e
call Function93316
ld hl, $0005
add hl, bc
ld [hl], $1
ld hl, $0000
add hl, bc
inc [hl]
ld hl, $000a
add hl, bc
ld [hl], $10
Function92e64: ; 92e64
ld hl, $000a
add hl, bc
ld a, [hl]
and a
jr z, .asm_92e73
dec [hl]
.asm_92e6d
ld a, SFX_GOT_SAFARI_BALLS
call Function9331e
ret
.asm_92e73
ld a, [wc709]
and a
jr nz, .asm_92e88
call Function92f1d
jr nc, .asm_92e6d
and a
jr nz, .asm_92e6d
call Function92c3a
call WaitSFX
ret
.asm_92e88
call Function92f1d
jr c, .asm_92e6d
call Function92c3a
call WaitSFX
ret
; 92e94
Function92e94: ; 92e94
xor a
ld [wc70b], a
ld [wc70c], a
call Function92a12
call Function92fb4
ld a, [wc70a]
and 3
ld e, a
ld d, 0
ld hl, Jumptable_92ebd
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .asm_92eb6
push de
jp [hl]
.asm_92eb6
ld a, [wc70b]
and a
ret z
scf
ret
; 92ebd
Jumptable_92ebd: ; 92ebd
dw Function92ed4
dw Function92ed1
dw Function92ecb
dw Function92ec5
; 92ec5
Function92ec5: ; 92ec5
call Function92ee0
call Function92ef6
Function92ecb: ; 92ecb
call Function92ed5
call Function92f01
Function92ed1: ; 92ed1
call Function92eeb
Function92ed4: ; 92ed4
ret
; 92ed5
Function92ed5: ; 92ed5
ld hl, wc70e
ld a, [EnemyScreens]
cp [hl]
call z, Function92f0c
ret
; 92ee0
Function92ee0: ; 92ee0
ld hl, wc70f
ld a, [wc700]
cp [hl]
call z, Function92f0c
ret
; 92eeb
Function92eeb: ; 92eeb
ld hl, wc70f
ld a, [wc701]
cp [hl]
call z, Function92f0c
ret
; 92ef6
Function92ef6: ; 92ef6
ld hl, wc70f
ld a, [wc702]
cp [hl]
call z, Function92f0c
ret
; 92f01
Function92f01: ; 92f01
ld hl, wc710
ld a, [wc702]
cp [hl]
call z, Function92f0c
ret
; 92f0c
Function92f0c: ; 92f0c
ld [wc717], a
and a
jr nz, .asm_92f17
ld a, $1
ld [wc70c], a
.asm_92f17
ld a, $1
ld [wc70b], a
ret
; 92f1d
Function92f1d: ; 92f1d
ld a, $ff
ld [EffectFailed], a
call Function92a12
call Function92fb4
ld a, [wc70a]
and 3
ld e, a
ld d, 0
ld hl, Jumptable_92f48
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .asm_92f3d
push de
jp [hl]
.asm_92f3d
ld a, [wc70d]
cp $ff
jr nz, .asm_92f46
and a
ret
.asm_92f46
scf
ret
; 92f48
Jumptable_92f48: ; 92f48
dw Function92f5f
dw Function92f5c
dw Function92f56
dw Function92f50
; 92f50
Function92f50: ; 92f50
call Function92f70
call Function92f90
Function92f56: ; 92f56
call Function92f60
call Function92fa0
Function92f5c: ; 92f5c
call Function92f80
Function92f5f: ; 92f5f
ret
; 92f60
Function92f60: ; 92f60
ld hl, wc70e
ld a, [wc700]
cp [hl]
ret nz
ld hl, wc703
cp [hl]
call z, Function92fb0
ret
; 92f70
Function92f70: ; 92f70
ld hl, wc710
ld a, [wc700]
cp [hl]
ret nz
ld hl, wc704
cp [hl]
call z, Function92fb0
ret
; 92f80
Function92f80: ; 92f80
ld hl, wc70f
ld a, [wc701]
cp [hl]
ret nz
ld hl, wc704
cp [hl]
call z, Function92fb0
ret
; 92f90
Function92f90: ; 92f90
ld hl, wc70e
ld a, [wc702]
cp [hl]
ret nz
ld hl, wc704
cp [hl]
call z, Function92fb0
ret
; 92fa0
Function92fa0: ; 92fa0
ld hl, wc710
ld a, [wc702]
cp [hl]
ret nz
ld hl, wc705
cp [hl]
call z, Function92fb0
ret
; 92fb0
Function92fb0: ; 92fb0
ld [wc70d], a
ret
; 92fb4
Function92fb4: ; 92fb4
ld de, wc70e
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
ret
; 92fc0
Function92fc0: ; 92fc0
ld hl, $0003
add hl, bc
ld a, [hl]
push af
push hl
call Function92fcf
pop hl
pop af
ld [hl], a
ld a, e
ret
; 92fcf
Function92fcf: ; 92fcf
ld a, [wc709]
and a
jr nz, .asm_92fe8
ld e, $0
.asm_92fd7
ld hl, $0003
add hl, bc
inc [hl]
inc e
push de
call Function92f1d
pop de
jr nc, .asm_92fd7
and a
jr nz, .asm_92fd7
ret
.asm_92fe8
call Random
and $7
cp $4
jr c, .asm_92fe8
ld e, a
.asm_92ff2
ld a, e
inc e
ld hl, $0003
add hl, bc
add [hl]
ld [hl], a
push de
call Function92f1d
pop de
jr c, .asm_92ff2
ret
; 93002
Function93002: ; 93002 (24:7002)
ld a, [wc709]
and a
ret z
ld hl, Unknown_93023
ld a, [ScriptVar]
and a
jr z, .asm_93013
ld hl, Unknown_93031
.asm_93013
call Random
ld c, a
.asm_93017
ld a, [hli]
cp c
jr nc, .asm_9301e
inc hl
jr .asm_93017
.asm_9301e
ld a, [hl]
ld [wc709], a
ret
; 93023 (24:7023)
Unknown_93023: ; 93023
db $01, $00
db $03, $04
db $0a, $14
db $14, $10
db $28, $0c
db $30, $08
db $ff, $ff
; 93031
Unknown_93031: ; 93031
db $02, $00
db $03, $04
db $08, $14
db $10, $10
db $1e, $0c
db $50, $08
db $ff, $ff
; 9303f
Function9303f: ; 9303f (24:703f)
ld b, $14
ld a, [wc70a]
dec a
jr z, asm_93066
dec a
jr z, asm_9305a
jr asm_9304e
Function9304c: ; 9304c (24:704c)
ld b, $23
asm_9304e: ; 9304e (24:704e)
hlcoord 3, 2
call Function93069
hlcoord 3, 10
call Function93069
asm_9305a: ; 9305a (24:705a)
hlcoord 3, 4
call Function93069
hlcoord 3, 8
call Function93069
asm_93066: ; 93066 (24:7066)
hlcoord 3, 6
Function93069: ; 93069 (24:7069)
ld a, b
ld [hl], a
ld de, $d
add hl, de
ld [hl], a
ld de, $7
add hl, de
inc a
ld [hl], a
ld de, $d
add hl, de
ld [hl], a
ret
Function9307c: ; 9307c (24:707c)
ld hl, UnknownText_0x930c7
call PrintText
ld hl, MenuDataHeader_0x930d6
call LoadMenuDataHeader
call InterpretMenu2
call WriteBackup
ret c
ld a, [wcfa9]
ld b, a
ld a, $4
sub b
ld [wc70a], a
ld hl, Coins
ld c, a
ld a, [hli]
and a
jr nz, .asm_930ad
ld a, [hl]
cp c
jr nc, .asm_930ad
ld hl, UnknownText_0x930d1
call PrintText
jr Function9307c
.asm_930ad
ld hl, Coins + 1
ld a, [hl]
sub c
ld [hld], a
jr nc, .asm_930b6
dec [hl]
.asm_930b6
call WaitSFX
ld de, SFX_PAY_DAY
call PlaySFX
ld hl, UnknownText_0x930cc
call PrintText
and a
ret
; 930c7 (24:70c7)
UnknownText_0x930c7: ; 0x930c7
; Bet how many coins?
text_jump UnknownText_0x1c5049
db "@"
; 0x930cc
UnknownText_0x930cc: ; 0x930cc
; Start!
text_jump UnknownText_0x1c505e
db "@"
; 0x930d1
UnknownText_0x930d1: ; 0x930d1
; Not enough coins.
text_jump UnknownText_0x1c5066
db "@"
; 0x930d6
MenuDataHeader_0x930d6: ; 0x930d6
db $40 ; flags
db 10, 14 ; start coords
db 17, 19 ; end coords
dw MenuData2_0x930de
db 1 ; default option
; 0x930de
MenuData2_0x930de: ; 0x930de
db $80 ; flags
db 3 ; items
db " 3@"
db " 2@"
db " 1@"
; 0x930e9
Function930e9: ; 930e9 (24:70e9)
ld hl, Coins
ld a, [hli]
or [hl]
jr nz, .asm_930fd
ld hl, UnknownText_9311a
call PrintText
ld c, $3c
call DelayFrames
jr .asm_93118
.asm_930fd
ld hl, UnknownText_9311f
call PrintText
call LoadMenuTextBox
lb bc, 14, 12
call PlaceYesNoBox
ld a, [wcfa9]
dec a
call WriteBackup
and a
jr nz, .asm_93118
and a
ret
.asm_93118
scf
ret
; 9311a (24:711a)
UnknownText_9311a: ; 9311a
TX_FAR UnknownText_0x1c5079
db "@"
UnknownText_9311f: ; 9311f
TX_FAR UnknownText_0x1c5092
db "@"
Function93124: ; 93124 (24:7124)
ld a, [EffectFailed]
cp $ff
jr z, .asm_93151
srl a
ld e, a
ld d, 0
ld hl, .data_93145
add hl, de
ld a, [hli]
ld [PlayerUsedMoves], a
ld e, a
ld a, [hl]
ld [wc711], a
ld d, a
callba Function105fe3
ret
.data_93145
db $2c, $01
db $32, $00
db $06, $00
db $08, $00
db $0a, $00
db $0f, $00
.asm_93151
ld hl, wc711
xor a
ld [hli], a
ld [hl], a
ret
Function93158: ; 93158 (24:7158)
ld a, [EffectFailed]
cp $ff
jr nz, .asm_9316c
ld hl, UnknownText_0x931e0
call PrintText
callba Function105fd0
ret
.asm_9316c
srl a
ld e, a
ld d, 0
ld hl, Unknown_93195
rept 3
add hl, de
endr
ld de, StringBuffer2
ld bc, $4
call CopyBytes
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .asm_93188
push de
jp [hl]
.asm_93188
ld hl, UnknownText_0x931b9
call PrintText
callba Function105f9f
ret
; 93195 (24:7195)
Unknown_93195: ; 93195
db "300@"
dw Function931e5
db "50@@"
dw Function9320b
db "6@@@"
dw Function93214
db "8@@@"
dw Function93214
db "10@@"
dw Function93214
db "15@@"
dw Function93214
; 931b9
UnknownText_0x931b9: ; 0x931b9
start_asm
; 0x931ba
Function931ba: ; 931ba
ld a, [EffectFailed]
add $25
ld [TileMap + 2 + 13 * SCREEN_WIDTH], a
inc a
ld [TileMap + 2 + 14 * SCREEN_WIDTH], a
inc a
ld [TileMap + 3 + 13 * SCREEN_WIDTH], a
inc a
ld [TileMap + 3 + 14 * SCREEN_WIDTH], a
hlcoord 18, 17
ld [hl], $ee
ld hl, UnknownText_0x931db
rept 4
inc bc
endr
ret
; 931db
UnknownText_0x931db: ; 0x931db
; lined up! Won @ coins!
text_jump UnknownText_0x1c509f
db "@"
; 0x931e0
UnknownText_0x931e0: ; 0x931e0
; Darn!
text_jump UnknownText_0x1c50bb
db "@"
; 0x931e5
Function931e5: ; 931e5
ld a, SFX_2ND_PLACE
call Function9331e
call WaitSFX
ld a, [wd002]
and a
jr nz, .asm_931ff
call Random
and $14
ret z
ld a, $ff
ld [wc709], a
ret
.asm_931ff
call Random
and $1c
ret z
ld a, $ff
ld [wc709], a
ret
; 9320b
Function9320b: ; 9320b
ld a, SFX_3RD_PLACE
call Function9331e
call WaitSFX
ret
; 93214
Function93214: ; 93214
ld a, SFX_PRESENT
call Function9331e
call WaitSFX
ret
; 9321d
Function9321d: ; 9321d (24:721d)
ld hl, $b
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Jumptable_9322d
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Jumptable_9322d: ; 9322d (24:722d)
dw Function93233
dw Function93259
dw Function93289
Function93233: ; 93233 (24:7233)
ld hl, $e
add hl, bc
ld a, [hl]
and a
jr nz, .asm_93247
ld a, $2
ld [wcf64], a
ld hl, $0
add hl, bc
ld [hl], $0
ret
.asm_93247
dec [hl]
ld hl, $b
add hl, bc
inc [hl]
ld hl, $c
add hl, bc
ld [hl], $30
ld hl, $6
add hl, bc
ld [hl], $0
Function93259: ; 93259 (24:7259)
ld hl, $c
add hl, bc
ld a, [hl]
cp $20
jr c, .asm_93273
dec [hl]
ld e, a
ld d, $70
callba Functionce765
ld a, e
ld hl, $7
add hl, bc
ld [hl], a
ret
.asm_93273
ld hl, $b
add hl, bc
inc [hl]
ld hl, $d
add hl, bc
ld [hl], $2
ld a, $1
ld [wcf64], a
ld a, SFX_PLACE_PUZZLE_PIECE_DOWN
call Function9331e
ret
Function93289: ; 93289 (24:7289)
ld hl, $6
add hl, bc
ld a, [hl]
rept 2
inc [hl]
endr
cp $48
jr nc, .asm_932a3
and $3
ret nz
ld hl, $d
add hl, bc
ld a, [hl]
xor $ff
inc a
ld [hl], a
ld [hSCY], a ; $ff00+$d0
ret
.asm_932a3
ld hl, $b
add hl, bc
xor a
ld [hl], a
ld [hSCY], a ; $ff00+$d0
ret
Function932ac: ; 932ac (24:72ac)
ld hl, $b
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Jumptable_932bc
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Jumptable_932bc: ; 932bc (24:72bc)
dw Function932c2
dw Function932e0
dw Function932fc
Function932c2: ; 932c2 (24:72c2)
ld hl, $4
add hl, bc
ld a, [hl]
inc [hl]
cp $68
jr z, .asm_932d6
and $f
ret nz
ld de, SFX_JUMP_OVER_LEDGE
call PlaySFX
ret
.asm_932d6
ld hl, $b
add hl, bc
inc [hl]
ld a, $1
ld [wcf64], a
Function932e0: ; 932e0 (24:72e0)
ld a, [wcf64]
cp $2
jr z, .asm_932f1
cp $5
ret nz
ld hl, $0
add hl, bc
ld [hl], $0
ret
.asm_932f1
ld hl, $b
add hl, bc
inc [hl]
ld hl, $c
add hl, bc
ld [hl], $8
Function932fc: ; 932fc (24:72fc)
ld hl, $c
add hl, bc
ld a, [hl]
and a
jr z, .asm_93306
dec [hl]
ret
.asm_93306
ld hl, $b
add hl, bc
dec [hl]
push bc
ld de, $606c
ld a, $8
call Function3b2a
pop bc
ret
; 93316 (24:7316)
Function93316: ; 93316
push bc
ld c, $10
call DelayFrames
pop bc
ret
; 9331e
Function9331e: ; 9331e (24:731e)
push de
ld e, a
ld d, 0
call PlaySFX
pop de
ret
; 93327 (24:7327)
Unknown_93327: ; 93327
db $00, $08, $14, $0c, $10, $00, $08, $14, $0c, $10, $04, $08, $14, $0c, $10, $00, $08, $14
Unknown_93339: ; 93339
db $00, $0c, $08, $10, $14, $04, $0c, $08, $10, $14, $04, $0c, $08, $10, $14, $00, $0c, $08
Unknown_9334b: ; 9334b
db $00, $0c, $08, $10, $14, $0c, $08, $10, $14, $0c, $04, $08, $10, $14, $0c, $00, $0c, $08
; 9335d
SlotsTilemap: ; 9335d
INCBIN "gfx/slots.tilemap"
; 9344d
Slots1LZ: ; 9344d
INCBIN "gfx/slots_1.2bpp.lz"
; 935cd
Slots2LZ: ; 935cd
INCBIN "gfx/slots_2.2bpp.lz"
; 9382d
Slots3LZ: ; 9382d
INCBIN "gfx/slots_3.2bpp.lz"
; 93a3d
SECTION "bank28", ROMX, BANK[$28]
INCLUDE "engine/more_phone_scripts.asm"
INCLUDE "engine/buena_phone_scripts.asm"
INCLUDE "text/phone/buena.asm"
SECTION "bank29", ROMX, BANK[$29]
INCLUDE "text/phone/anthony_overworld.asm"
INCLUDE "text/phone/todd_overworld.asm"
INCLUDE "text/phone/gina_overworld.asm"
INCLUDE "text/phone/irwin_overworld.asm"
INCLUDE "text/phone/arnie_overworld.asm"
INCLUDE "text/phone/alan_overworld.asm"
INCLUDE "text/phone/dana_overworld.asm"
INCLUDE "text/phone/chad_overworld.asm"
INCLUDE "text/phone/derek_overworld.asm"
INCLUDE "text/phone/tully_overworld.asm"
INCLUDE "text/phone/brent_overworld.asm"
INCLUDE "text/phone/tiffany_overworld.asm"
INCLUDE "text/phone/vance_overworld.asm"
INCLUDE "text/phone/wilton_overworld.asm"
INCLUDE "text/phone/kenji_overworld.asm"
INCLUDE "text/phone/parry_overworld.asm"
INCLUDE "text/phone/erin_overworld.asm"
SECTION "Tileset Data 5", ROMX, BANK[TILESETS_5]
INCLUDE "tilesets/data_5.asm"
SECTION "bank2E", ROMX, BANK[$2E]
ReturnFromMapSetupScript:: ; b8000
xor a
ld [hBGMapMode], a
callba Functionb800a
ret
; b800a
Functionb800a: ; b800a
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
ld [wc2d9], a
call Functionb8089
jr z, .asm_b8024
call GetMapPermission
cp $6
jr nz, .asm_b8029
.asm_b8024
ld a, $ff
ld [wc2d9], a
.asm_b8029
ld hl, wd83e
bit 1, [hl]
res 1, [hl]
jr nz, .asm_b8054
call Functionb8064
jr z, .asm_b8054
ld a, [wc2d9]
ld [wc2d8], a
call Functionb8070
jr z, .asm_b8054
ld a, $3c
ld [wc2da], a
call Functionb80c6
call Functionb80d3
callba Function104303
ret
.asm_b8054
ld a, [wc2d9]
ld [wc2d8], a
ld a, $90
ld [rWY], a
ld [hWY], a
xor a
ld [hLCDStatCustom], a
ret
; b8064
Functionb8064: ; b8064
ld a, [wc2d9]
ld c, a
ld a, [wc2d8]
cp c
ret z
cp $0
ret
; b8070
Functionb8070: ; b8070
cp -1
ret z
cp SPECIAL_MAP
ret z
cp RADIO_TOWER
ret z
cp LAV_RADIO_TOWER
ret z
cp UNDERGROUND
ret z
cp INDIGO_PLATEAU
ret z
cp POWER_PLANT
ret z
ld a, $1
and a
ret
; b8089
Functionb8089: ; b8089
ld a, [MapGroup]
cp GROUP_ROUTE_35_NATIONAL_PARK_GATE
ret nz
ld a, [MapNumber]
cp MAP_ROUTE_35_NATIONAL_PARK_GATE
ret z
cp MAP_ROUTE_36_NATIONAL_PARK_GATE
ret
; b8098
Functionb8098:: ; b8098 (2e:4098)
ld hl, wc2da
ld a, [hl]
and a
jr z, .asm_b80bc
dec [hl]
cp $3c
ret z
cp $3b
jr nz, .asm_b80b3
call Functionb80d3
call Functionb80e1
callba Function104303
.asm_b80b3
ld a, $80
ld a, $70
ld [rWY], a ; $ff00+$4a
ld [hWY], a ; $ff00+$d2
ret
.asm_b80bc
ld a, $90
ld [rWY], a ; $ff00+$4a
ld [hWY], a ; $ff00+$d2
xor a
ld [hLCDStatCustom], a ; $ff00+$c6
ret
Functionb80c6: ; b80c6
ld de, GFX_f9344
ld hl, $9600
lb bc, BANK(GFX_f9344), $e
call Get2bpp
ret
; b80d3
Functionb80d3: ; b80d3
hlcoord 0, 0
ld b, $2
ld c, $12
call Functionb8115
call Functionb812f
ret
; b80e1
Functionb80e1: ; b80e1 (2e:40e1)
ld a, [wc2d9]
ld e, a
callba GetLandmarkName
call Functionb8101
ld a, $14
sub c
srl a
ld b, $0
ld c, a
hlcoord 0, 2
add hl, bc
ld de, StringBuffer1
call PlaceString
ret
Functionb8101: ; b8101 (2e:4101)
ld c, $0
push hl
ld hl, StringBuffer1
.loop
ld a, [hli]
cp $50
jr z, .stop
cp $25
jr z, .loop
inc c
jr .loop
.stop
pop hl
ret
Functionb8115: ; b8115
ld de, AttrMap - TileMap
add hl, de
rept 2
inc b
endr
rept 2
inc c
endr
ld a, $87
.loop
push bc
push hl
.inner_loop
ld [hli], a
dec c
jr nz, .inner_loop
pop hl
ld de, SCREEN_WIDTH
add hl, de
pop bc
dec b
jr nz, .loop
ret
; b812f
Functionb812f: ; b812f
hlcoord 0, 0
ld a, $61
ld [hli], a
ld a, $62
call .Fill5Words
ld a, $64
ld [hli], a
ld a, $65
ld [hli], a
call .Fill18Bytes
ld a, $6b
ld [hli], a
ld a, $66
ld [hli], a
call .Fill18Bytes
ld a, $6c
ld [hli], a
ld a, $67
ld [hli], a
ld a, $68
call .Fill5Words
ld a, $6a
ld [hl], a
ret
; b815b
.Fill18Bytes: ; b815b
ld c, 18
ld a, $6d
.loop
ld [hli], a
dec c
jr nz, .loop
ret
; b8164
.Fill5Words: ; b8164
ld c, 5
jr .enterloop
.continueloop
rept 2
ld [hli], a
endr
.enterloop
inc a
rept 2
ld [hli], a
endr
dec a
dec c
jr nz, .continueloop
ret
; b8172
CheckForSignpostItems: ; b8172
; Checks to see if there are hidden items on the screen that have not yet been found. If it finds one, returns carry.
call GetMapScriptHeaderBank
ld [Buffer1], a
; Get the coordinate of the bottom right corner of the screen, and load it in wd1ec/wd1ed.
ld a, [XCoord]
add SCREEN_WIDTH / 4
ld [wd1ed], a
ld a, [YCoord]
add SCREEN_HEIGHT / 4
ld [wd1ec], a
; Get the pointer for the first signpost header in the map...
ld hl, wdc02
ld a, [hli]
ld h, [hl]
ld l, a
; ... before even checking to see if there are any signposts on this map.
ld a, [wCurrentMapSignpostCount]
and a
jr z, .nosignpostitems
; For i = 1:wCurrentMapSignpostCount...
.loop
; Store the counter in Buffer2, and store the signpost header pointer in the stack.
ld [Buffer2], a
push hl
; Get the Y coordinate of the signpost.
call .GetFarByte
ld e, a
; Is the Y coordinate of the signpost on the screen? If not, go to the next signpost.
ld a, [wd1ec]
sub e
jr c, .next
cp SCREEN_HEIGHT / 2
jr nc, .next
; Is the X coordinate of the signpost on the screen? If not, go to the next signpost.
call .GetFarByte
ld d, a
ld a, [wd1ed]
sub d
jr c, .next
cp SCREEN_WIDTH / 2
jr nc, .next
; Is this signpost a hidden item? If not, go to the next signpost.
call .GetFarByte
cp SIGNPOST_ITEM
jr nz, .next
; Has this item already been found? If not, set off the Itemfinder.
ld a, [Buffer1]
call GetFarHalfword
ld a, [Buffer1]
call GetFarHalfword
ld d, h
ld e, l
ld b, CHECK_FLAG
call EventFlagAction
ld a, c
and a
jr z, .itemnearby
.next
; Restore the signpost header pointer and increment it by the length of a signpost header.
pop hl
ld bc, 5
add hl, bc
; Restore the signpost counter and decrement it. If it hits zero, there are no hidden items in range.
ld a, [Buffer2]
dec a
jr nz, .loop
.nosignpostitems
xor a
ret
.itemnearby
pop hl
scf
ret
; b81e2
.GetFarByte: ; b81e2
ld a, [Buffer1]
call GetFarByte
inc hl
ret
; b81ea
TreeMonEncounter: ; b81ea
callba Function1060ef
xor a
ld [wd22e], a
ld [CurPartyLevel], a
ld hl, TreeMonMaps
call GetTreeMonSet
jr nc, .no_battle
call GetTreeMons
jr nc, .no_battle
call GetTreeMon
jr nc, .no_battle
ld a, BATTLETYPE_TREE
ld [BattleType], a
ld a, 1
ld [ScriptVar], a
ret
.no_battle
xor a
ld [ScriptVar], a
ret
; b8219
RockMonEncounter: ; b8219
xor a
ld [wd22e], a
ld [CurPartyLevel], a
ld hl, RockMonMaps
call GetTreeMonSet
jr nc, .no_battle
call GetTreeMons
jr nc, .no_battle
ld a, 10
call RandomRange
cp 4
jr nc, .no_battle
call SelectTreeMon
jr nc, .no_battle
ret
.no_battle
xor a
ret
; b823e
db $05 ; ????
GetTreeMonSet: ; b823f
; Return carry and treemon set in a
; if the current map is in table hl.
ld a, [MapNumber]
ld e, a
ld a, [MapGroup]
ld d, a
.loop
ld a, [hli]
cp -1
jr z, .not_in_table
cp d
jr nz, .skip2
ld a, [hli]
cp e
jr nz, .skip1
jr .in_table
.skip2
inc hl
.skip1
inc hl
jr .loop
.not_in_table
xor a
ret
.in_table
ld a, [hl]
scf
ret
; b825e
TreeMonMaps: ; b825e
treemon_map: macro
map \1
db \2 ; treemon set
endm
treemon_map ROUTE_26, 4
treemon_map ROUTE_27, 4
treemon_map ROUTE_28, 0
treemon_map ROUTE_29, 3
treemon_map ROUTE_30, 3
treemon_map ROUTE_31, 3
treemon_map ROUTE_32, 4
treemon_map ROUTE_33, 2
treemon_map ROUTE_34, 3
treemon_map ROUTE_35, 3
treemon_map ROUTE_36, 3
treemon_map ROUTE_37, 3
treemon_map ROUTE_38, 3
treemon_map ROUTE_39, 3
treemon_map ROUTE_40, 0
treemon_map ROUTE_41, 0
treemon_map ROUTE_42, 2
treemon_map ROUTE_43, 5
treemon_map ROUTE_44, 1
treemon_map ROUTE_45, 1
treemon_map ROUTE_46, 1
treemon_map NEW_BARK_TOWN, 0
treemon_map CHERRYGROVE_CITY, 0
treemon_map VIOLET_CITY, 0
treemon_map AZALEA_TOWN, 2
treemon_map CIANWOOD_CITY, 0
treemon_map GOLDENROD_CITY, 0
treemon_map OLIVINE_CITY, 0
treemon_map ECRUTEAK_CITY, 0
treemon_map MAHOGANY_TOWN, 0
treemon_map LAKE_OF_RAGE, 5
treemon_map BLACKTHORN_CITY, 0
treemon_map SILVER_CAVE_OUTSIDE, 0
treemon_map ILEX_FOREST, 6
db -1
; b82c5
RockMonMaps: ; b82c5
treemon_map CIANWOOD_CITY, 7
treemon_map ROUTE_40, 7
treemon_map DARK_CAVE_VIOLET_ENTRANCE, 7
treemon_map SLOWPOKE_WELL_B1F, 7
db -1
; b82d2
GetTreeMons: ; b82d2
; Return the address of TreeMon table a in hl.
; Return nc if table a doesn't exist.
cp 8
jr nc, .quit
and a
jr z, .quit
ld e, a
ld d, 0
ld hl, TreeMons
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
scf
ret
.quit
xor a
ret
; b82e8
TreeMons: ; b82e8
dw TreeMons1
dw TreeMons1
dw TreeMons2
dw TreeMons3
dw TreeMons4
dw TreeMons5
dw TreeMons6
dw RockMons
dw TreeMons1
; Two tables each (normal, rare).
; Structure:
; db %, species, level
TreeMons1: ; b82fa
db 50, SPEAROW, 10
db 15, SPEAROW, 10
db 15, SPEAROW, 10
db 10, AIPOM, 10
db 5, AIPOM, 10
db 5, AIPOM, 10
db -1
db 50, SPEAROW, 10
db 15, HERACROSS, 10
db 15, HERACROSS, 10
db 10, AIPOM, 10
db 5, AIPOM, 10
db 5, AIPOM, 10
db -1
TreeMons2: ; b8320
db 50, SPEAROW, 10
db 15, EKANS, 10
db 15, SPEAROW, 10
db 10, AIPOM, 10
db 5, AIPOM, 10
db 5, AIPOM, 10
db -1
db 50, SPEAROW, 10
db 15, HERACROSS, 10
db 15, HERACROSS, 10
db 10, AIPOM, 10
db 5, AIPOM, 10
db 5, AIPOM, 10
db -1
TreeMons3: ; b8346
db 50, HOOTHOOT, 10
db 15, SPINARAK, 10
db 15, LEDYBA, 10
db 10, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db -1
db 50, HOOTHOOT, 10
db 15, PINECO, 10
db 15, PINECO, 10
db 10, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db -1
TreeMons4: ; b836c
db 50, HOOTHOOT, 10
db 15, EKANS, 10
db 15, HOOTHOOT, 10
db 10, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db -1
db 50, HOOTHOOT, 10
db 15, PINECO, 10
db 15, PINECO, 10
db 10, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db -1
TreeMons5: ; b8392
db 50, HOOTHOOT, 10
db 15, VENONAT, 10
db 15, HOOTHOOT, 10
db 10, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db -1
db 50, HOOTHOOT, 10
db 15, PINECO, 10
db 15, PINECO, 10
db 10, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db 5, EXEGGCUTE, 10
db -1
TreeMons6: ; b83b8
db 50, HOOTHOOT, 10
db 15, PINECO, 10
db 15, PINECO, 10
db 10, NOCTOWL, 10
db 5, BUTTERFREE, 10
db 5, BEEDRILL, 10
db -1
db 50, HOOTHOOT, 10
db 15, CATERPIE, 10
db 15, WEEDLE, 10
db 10, HOOTHOOT, 10
db 5, METAPOD, 10
db 5, KAKUNA, 10
db -1
RockMons: ; b83de
db 90, KRABBY, 15
db 10, SHUCKLE, 15
db -1
; b83e5
GetTreeMon: ; b83e5
push hl
call GetTreeScore
pop hl
and a
jr z, .bad
cp 1
jr z, .good
cp 2
jr z, .rare
ret
.bad
ld a, 10
call RandomRange
and a
jr nz, NoTreeMon
jr SelectTreeMon
.good
ld a, 10
call RandomRange
cp 5
jr nc, NoTreeMon
jr SelectTreeMon
.rare
ld a, 10
call RandomRange
cp 8
jr nc, NoTreeMon
jr .skip
.skip
ld a, [hli]
cp -1
jr nz, .skip
call SelectTreeMon
ret
; b841f
SelectTreeMon: ; b841f
; Read a TreeMons table and pick one monster at random.
ld a, 100
call RandomRange
.loop
sub [hl]
jr c, .ok
rept 3
inc hl
endr
jr .loop
.ok
ld a, [hli]
cp $ff
jr z, NoTreeMon
ld a, [hli]
ld [wd22e], a
ld a, [hl]
ld [CurPartyLevel], a
scf
ret
NoTreeMon: ; b843b
xor a
ld [wd22e], a
ld [CurPartyLevel], a
ret
; b8443
GetTreeScore: ; b8443
call .CoordScore
ld [Buffer1], a
call .OTIDScore
ld [Buffer2], a
ld c, a
ld a, [Buffer1]
sub c
jr z, .rare
jr nc, .ok
add 10
.ok
cp 5
jr c, .good
.bad
xor a
ret
.good
ld a, 1
ret
.rare
ld a, 2
ret
; b8466
.CoordScore: ; b8466
call GetFacingTileCoord
ld hl, 0
ld c, e
ld b, 0
ld a, d
and a
jr z, .next
.loop
add hl, bc
dec a
jr nz, .loop
.next
add hl, bc
ld c, d
add hl, bc
ld a, h
ld [hDividend], a
ld a, l
ld [hDividend + 1], a
ld a, 5
ld [hDivisor], a
ld b, 2
call Divide
ld a, [hQuotient + 1]
ld [hDividend], a
ld a, [hQuotient + 2]
ld [hDividend + 1], a
ld a, 10
ld [hDivisor], a
ld b, 2
call Divide
ld a, [hQuotient + 3]
ret
; b849d
.OTIDScore: ; b849d
ld a, [PlayerID]
ld [hDividend], a
ld a, [PlayerID + 1]
ld [hDividend + 1], a
ld a, 10
ld [hDivisor], a
ld b, 2
call Divide
ld a, [hQuotient + 3]
ret
; b84b3
Functionb84b3: ; b84b3
ld a, [rVBK]
push af
ld a, $1
ld [rVBK], a
ld de, FishingGFX
ld a, [PlayerGender]
bit 0, a
jr z, .asm_b84c7
ld de, KrisFishingGFX
.asm_b84c7
ld hl, $8020
call Functionb84e3
ld hl, $8060
call Functionb84e3
ld hl, $80a0
call Functionb84e3
ld hl, $9000 - $40
call Functionb84e3
pop af
ld [rVBK], a
ret
; b84e3
Functionb84e3: ; b84e3
lb bc, BANK(FishingGFX), 2
push de
call Get2bpp
pop de
ld hl, $20
add hl, de
ld d, h
ld e, l
ret
; b84f2
FishingGFX: ; b84f2
INCBIN "gfx/unknown/0b84f2.2bpp"
; b8582
KrisFishingGFX: ; b8582
INCBIN "gfx/unknown/0b8582.2bpp"
; b8612
INCLUDE "engine/radio.asm"
Functionb9229: ; b9229
ld a, [CurPartyMon]
ld hl, $a600
ld bc, $002f
call AddNTimes
ld d, h
ld e, l
Functionb9237: ; b9237
push de
call WhiteBGMap
call ClearSprites
call ClearTileMap
call DisableLCD
call Functione5f
pop de
push de
ld a, $0
call GetSRAMBank
callba Function1de5c8
call CloseSRAM
ld a, c
ld de, GFX_1de5e6
or a
jr z, .asm_b9268
ld de, GFX_1de9e6
sub $3
jr c, .asm_b9268
ld de, GFX_1dede6
.asm_b9268
ld hl, VTiles1
lb bc, BANK(GFX_1de5e6), $80
call Get1bpp
pop de
call Functionb92b8
call EnableLCD
call WaitBGMap
ld a, [wd1ec]
ld e, a
callba Function8cb4
call Function32f9
xor a
ld [hJoyPressed], a
call Functionb929a
call WhiteBGMap
call DisableLCD
call Functione51
jp EnableLCD
; b929a
Functionb929a: ; b929a
.asm_b929a
call GetJoypad
ld a, [hJoyPressed]
and A_BUTTON | B_BUTTON | START
jr z, .asm_b929a
and START
jr nz, .asm_b92a8
ret
.asm_b92a8
ld a, [wcf63]
push af
callab Function845d4
pop af
ld [wcf63], a
jr .asm_b929a
; b92b8
Functionb92b8: ; b92b8
ld h, d
ld l, e
push hl
ld a, $0
call GetSRAMBank
ld de, $002b
add hl, de
ld a, [hli]
ld [Buffer1], a
ld a, [hli]
ld [Buffer2], a
ld a, [hli]
ld [CurPartySpecies], a
ld b, [hl]
call CloseSRAM
ld hl, Unknown_b92f8
ld c, 0
.asm_b92d9
ld a, [hli]
cp b
jr z, .asm_b92ea
cp $ff
jr z, .asm_b92e6
inc c
rept 2
inc hl
endr
jr .asm_b92d9
.asm_b92e6
ld hl, Unknown_b92f8
inc hl
.asm_b92ea
ld a, c
ld [wd1ec], a
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .done
pop bc
push de
jp [hl]
.done
ret
; b92f8
Unknown_b92f8: ; b92f8
dbw FLOWER_MAIL, Functionb963e
dbw SURF_MAIL, Functionb9317
dbw LITEBLUEMAIL, Functionb9335
dbw PORTRAITMAIL, Functionb96ca
dbw LOVELY_MAIL, Functionb944b
dbw EON_MAIL, Functionb93d2
dbw MORPH_MAIL, Functionb94d6
dbw BLUESKY_MAIL, Functionb9582
dbw MUSIC_MAIL, Functionb9710
dbw MIRAGE_MAIL, Functionb9776
db $ff
; b9317
Functionb9317: ; b9317
push bc
ld hl, $9310
ld de, Unknown_b9d46
ld c, $40
call Functionb9915
ld de, MailLaprasGFX
ld c, $30
call Functionb991e
ld de, Unknown_b994e
ld c, $8
call Functionb9915
jr Functionb9351
Functionb9335: ; b9335
push bc
ld hl, $9310
ld de, Unknown_b9dc6
ld c, $40
call Functionb9915
ld de, MailDratiniGFX
ld c, $30
call Functionb991e
ld de, Unknown_b995e
ld c, $8
call Functionb9915
Functionb9351: ; b9351
ld de, Unknown_b9976
ld c, $10
call Functionb9915
ld c, $10
call Functionb990c
ld de, Unknown_b9c3e
ld c, $40
call Functionb990c
ld c, $40
call Functionb9915
call Functionb9858
hlcoord 2, 15
ld a, $3f
call Functionb98d4
ld a, $39
hlcoord 15, 14
call Functionb98fc
ld a, $44
hlcoord 2, 2
call Functionb98ee
hlcoord 15, 11
call Functionb98ee
ld a, $4c
hlcoord 3, 12
call Functionb98ee
hlcoord 15, 2
call Functionb98ee
ld a, $50
hlcoord 6, 3
call Functionb98ee
ld a, $40
hlcoord 13, 2
ld [hli], a
hlcoord 6, 14
ld [hl], a
ld a, $41
hlcoord 4, 5
ld [hli], a
hlcoord 17, 5
ld [hli], a
hlcoord 13, 12
ld [hl], a
ld a, $42
hlcoord 9, 2
ld [hli], a
hlcoord 14, 5
ld [hli], a
hlcoord 3, 10
ld [hl], a
ld a, $43
hlcoord 6, 11
ld [hli], a
pop hl
jp Functionb9803
; b93d2
Functionb93d2: ; b93d2
push bc
ld hl, $9310
ld de, Unknown_b997e
ld c, $8
call Functionb9915
ld de, Unknown_b998e
ld c, $8
call Functionb990c
ld de, Unknown_b998e
ld c, $8
call Functionb990c
ld de, Unknown_b997e
ld c, $8
call Functionb9915
ld de, Unknown_b9d76
ld c, $8
call Functionb9915
ld de, MailPikaGFX
ld c, $30
call Functionb991e
ld hl, $93d0
ld de, Unknown_b9c9e
ld c, $20
call Functionb990c
ld de, Unknown_b998e
ld c, $8
call Functionb9915
ld a, $31
hlcoord 0, 0
call Functionb98a8
hlcoord 1, 17
call Functionb98a8
ld a, $33
hlcoord 0, 1
call Functionb98ba
hlcoord 19, 0
call Functionb98ba
hlcoord 2, 15
ld a, $35
call Functionb98d4
inc a
hlcoord 15, 14
call Functionb98fc
call Functionb9491
pop hl
jp Functionb9803
; b944b
Functionb944b: ; b944b
push bc
ld hl, $9310
ld de, Unknown_b9e26
ld c, $28
call Functionb9915
ld de, MailPoliwagGFX
ld c, $30
call Functionb991e
ld de, Unknown_b9966
ld c, $8
call Functionb9915
ld de, Unknown_b9c5e
ld c, $20
call Functionb9915
ld de, Unknown_b996e
ld c, $8
call Functionb990c
call Functionb987b
hlcoord 2, 15
ld a, $3c
call Functionb98d4
ld a, $36
hlcoord 15, 14
call Functionb98fc
call Functionb9491
pop hl
jp Functionb9803
; b9491
Functionb9491: ; b9491
ld a, $3d
hlcoord 2, 2
call Functionb98ee
hlcoord 16, 2
call Functionb98ee
hlcoord 9, 4
call Functionb98ee
hlcoord 2, 11
call Functionb98ee
hlcoord 6, 12
call Functionb98ee
hlcoord 12, 11
call Functionb98ee
ld a, $41
hlcoord 5, 4
ld [hl], a
hlcoord 6, 2
ld [hl], a
hlcoord 12, 4
ld [hl], a
hlcoord 14, 2
ld [hl], a
hlcoord 3, 13
ld [hl], a
hlcoord 9, 11
ld [hl], a
hlcoord 16, 12
ld [hl], a
ret
; b94d6
Functionb94d6: ; b94d6
push bc
ld hl, $9310
ld bc, $0028
call Functionb97f8
ld de, Unknown_b9c96
ld c, 8
call Functionb9915
ld de, Unknown_b9c7e
ld c, 8
call Functionb9915
ld de, Unknown_b993e
ld c, 8
call Functionb9915
ld de, Unknown_b997e
ld c, 8
call Functionb990c
ld de, Unknown_b9926
ld c, 8
call Functionb9915
ld de, MailDittoGFX
ld c, $30
call Functionb991e
call Functionb987b
ld a, $31
hlcoord 1, 1
call Functionb98ee
hlcoord 17, 15
call Functionb98ee
hlcoord 1, 3
ld [hl], a
hlcoord 3, 1
ld [hl], a
hlcoord 16, 16
ld [hl], a
hlcoord 18, 14
ld [hl], a
ld a, $36
hlcoord 1, 4
ld [hl], a
hlcoord 2, 3
ld [hl], a
hlcoord 3, 2
ld [hl], a
hlcoord 4, 1
ld [hl], a
inc a
hlcoord 15, 16
ld [hl], a
hlcoord 16, 15
ld [hl], a
hlcoord 17, 14
ld [hl], a
hlcoord 18, 13
ld [hl], a
inc a
hlcoord 2, 15
ld b, $e
call Functionb98de
inc a
hlcoord 2, 11
call Functionb98d4
hlcoord 2, 5
call Functionb98d4
inc a
hlcoord 6, 1
call Functionb98d0
hlcoord 1, 16
call Functionb98d0
inc a
hlcoord 3, 13
call Functionb98fc
pop hl
jp Functionb9803
; b9582
Functionb9582: ; b9582
push bc
ld hl, $9310
ld de, Unknown_b997e
ld c, $8
call Functionb9915
ld a, $ff
ld bc, $0010
call ByteFill
ld de, Unknown_b992e
ld c, $8
call Functionb991e
ld de, MailDragoniteGFX
ld c, $b8
call Functionb991e
ld de, MailCloudGFX
ld c, $30
call Functionb990c
ld de, Unknown_b9db6
ld c, $8
call Functionb990c
ld de, MailCloudGFX
ld c, $8
call Functionb990c
ld de, Unknown_b9d26
ld c, $10
call Functionb990c
ld de, Unknown_b9d3e
ld c, $8
call Functionb990c
ld a, $31
hlcoord 0, 0
call Functionb98dc
hlcoord 0, 1
call Functionb98e3
hlcoord 19, 1
call Functionb98e3
inc a
hlcoord 0, 17
call Functionb98dc
inc a
hlcoord 0, 16
call Functionb98dc
inc a
hlcoord 2, 2
call Functionb9636
hlcoord 3, 3
call Functionb9636
hlcoord 4, 4
call Functionb9636
dec hl
ld [hl], $7f
dec a
hlcoord 15, 14
call Functionb98ee
add $4
hlcoord 15, 16
ld [hli], a
inc a
ld [hl], a
inc a
push af
hlcoord 12, 1
call Functionb98fc
pop af
hlcoord 15, 4
call Functionb98fc
inc a
hlcoord 2, 11
call Functionb98d4
inc a
hlcoord 10, 3
call Functionb98ee
pop hl
jp Functionb9803
; b9636
Functionb9636: ; b9636
ld b, $6
.asm_b9638
ld [hli], a
inc a
dec b
jr nz, .asm_b9638
ret
; b963e
Functionb963e: ; b963e
push bc
ld hl, $9310
ld de, Unknown_b9d86
ld c, $40
call Functionb990c
ld de, MailOddishGFX
ld c, $20
call Functionb991e
ld de, Unknown_b9db6
ld c, $8
call Functionb9915
ld de, Unknown_b9cbe
ld c, $20
call Functionb990c
ld c, $20
call Functionb9915
call Functionb9858
hlcoord 2, 15
ld a, $3d
call Functionb98d4
ld a, $39
hlcoord 16, 13
call Functionb98ee
hlcoord 2, 13
call Functionb98ee
ld a, $3e
hlcoord 2, 2
call Functionb98ee
hlcoord 5, 3
call Functionb98ee
hlcoord 10, 2
call Functionb98ee
hlcoord 16, 3
call Functionb98ee
hlcoord 5, 11
call Functionb98ee
hlcoord 16, 10
call Functionb98ee
ld a, $42
hlcoord 3, 4
call Functionb98ee
hlcoord 12, 3
call Functionb98ee
hlcoord 14, 2
call Functionb98ee
hlcoord 2, 10
call Functionb98ee
hlcoord 14, 11
call Functionb98ee
pop hl
jp Functionb9803
; b96ca
Functionb96ca: ; b96ca
push bc
ld hl, $9310
ld de, Unknown_b9e4e
ld c, $28
call Functionb9915
ld de, Unknown_b995e
ld c, $8
call Functionb9915
ld hl, $93d0
ld de, Unknown_b9bfe
ld c, $20
call Functionb990c
ld de, Unknown_b9936
ld c, $8
call Functionb9915
call Functionb987b
hlcoord 8, 15
ld a, $36
ld b, $a
call Functionb98de
call Functionb9491
ld a, $1
ld [UnownLetter], a
hlcoord 1, 10
call Function3786
pop hl
jp Functionb9803
; b9710
Functionb9710: ; b9710
push bc
ld hl, $9310
ld de, Unknown_b9e06
ld c, $20
call Functionb9915
ld de, Unknown_b993e
ld c, $10
call Functionb9915
ld de, Unknown_b9996
ld c, $30
call Functionb991e
xor a
ld bc, $0010
call ByteFill
ld de, Unknown_b9cfe
ld c, $18
call Functionb990c
ld de, Unknown_b9946
ld c, $8
call Functionb990c
ld a, $31
hlcoord 0, 0
call Functionb98a8
hlcoord 1, 17
call Functionb98a8
ld a, $33
hlcoord 0, 1
call Functionb98ba
hlcoord 19, 0
call Functionb98ba
ld a, $35
hlcoord 2, 15
call Functionb989e
ld a, $37
hlcoord 15, 14
call Functionb98fc
call Functionb9491
pop hl
jp Functionb9803
; b9776
Functionb9776: ; b9776
push bc
ld hl, $9310
ld bc, $0028
call Functionb97f8
ld de, Unknown_b992e
ld c, $8
call Functionb9915
ld de, MailMewGFX
ld c, $90
call Functionb9915
ld de, Unknown_b9dce
ld c, $8
call Functionb990c
ld de, Unknown_b9df6
ld c, $8
call Functionb990c
call Functionb987b
ld a, $36
hlcoord 1, 16
call Functionb98d8
inc a
hlcoord 15, 14
call Functionb98fc
inc a
hlcoord 15, 16
ld [hli], a
inc a
ld [hl], a
ld a, $3f
hlcoord 1, 1
call Functionb98a8
ld a, $41
hlcoord 0, 2
call Functionb98b5
ld a, $43
hlcoord 19, 2
call Functionb98b5
ld a, $45
hlcoord 0, 1
ld [hl], a
inc a
hlcoord 19, 1
ld [hl], a
inc a
hlcoord 0, 16
ld [hl], a
inc a
hlcoord 19, 16
ld [hl], a
inc a
hlcoord 2, 5
call Functionb98d4
inc a
hlcoord 2, 11
call Functionb98d4
pop hl
jp Functionb9803
; b97f8
Functionb97f8: ; b97f8
.asm_b97f8
xor a
ld [hli], a
ld a, $ff
ld [hli], a
dec bc
ld a, b
or c
jr nz, .asm_b97f8
ret
; b9803
Functionb9803: ; b9803
ld bc, $002f
ld de, wd002
ld a, $0
call GetSRAMBank
call CopyBytes
call CloseSRAM
ld hl, wd023
ld de, wd050
ld bc, $000a
call CopyBytes
ld a, $50
ld [wd023], a
ld [wd05a], a
ld de, wd002
hlcoord 2, 7
call PlaceString
ld de, wd050
ld a, [de]
and a
ret z
ld a, [wd1ec]
hlcoord 8, 14
cp $3
jr z, .asm_b984b
hlcoord 6, 14
cp $6
jr z, .asm_b984b
hlcoord 5, 14
.asm_b984b
jp PlaceString
; b984e
Functionb984e: ; b984e
.asm_b984e
ld a, [hl]
xor $ff
ld [hli], a
dec bc
ld a, b
or c
jr nz, .asm_b984e
ret
; b9858
Functionb9858: ; b9858
hlcoord 0, 0
ld a, $31
ld [hli], a
inc a
call Functionb98d8
inc a
ld [hli], a
inc a
call Functionb98e3
ld a, $36
ld [hli], a
inc a
call Functionb98d8
hlcoord 19, 1
ld a, $35
call Functionb98e3
ld a, $38
ld [hl], a
ret
; b987b
Functionb987b: ; b987b
hlcoord 0, 0
ld a, $31
ld [hli], a
inc a
call Functionb98d8
ld [hl], $31
inc hl
inc a
call Functionb98e3
ld [hl], $31
inc hl
inc a
call Functionb98d8
hlcoord 19, 1
ld a, $35
call Functionb98e3
ld [hl], $31
ret
; b989e
Functionb989e: ; b989e
push af
ld b, $7
jr Functionb98ab
Functionb98a3: ; b98a3
push af
ld b, $8
jr Functionb98ab
Functionb98a8: ; b98a8
push af
ld b, $9
Functionb98ab: ; b98ab
ld [hli], a
inc a
ld [hli], a
dec a
dec b
jr nz, Functionb98ab
ld [hl], a
pop af
ret
; b98b5
Functionb98b5: ; b98b5
push af
ld b, $7
jr Functionb98bd
Functionb98ba: ; b98ba
push af
ld b, $8
Functionb98bd: ; b98bd
ld [hl], a
ld de, SCREEN_WIDTH
add hl, de
inc a
ld [hl], a
add hl, de
dec a
dec b
jr nz, Functionb98bd
ld [hl], a
pop af
ret
; b98cc
Functionb98cc: ; b98cc
ld b, $7
jr Functionb98de
Functionb98d0: ; b98d0
ld b, $d
jr Functionb98de
Functionb98d4: ; b98d4
ld b, $10
jr Functionb98de
Functionb98d8: ; b98d8
ld b, $12
jr Functionb98de
Functionb98dc: ; b98dc
ld b, $14
Functionb98de: ; b98de
ld [hli], a
dec b
jr nz, Functionb98de
ret
; b98e3
Functionb98e3: ; b98e3
ld b, $10
ld de, SCREEN_WIDTH
.asm_b98e8
ld [hl], a
add hl, de
dec b
jr nz, .asm_b98e8
ret
; b98ee
Functionb98ee: ; b98ee
push af
ld [hli], a
inc a
ld [hl], a
ld bc, $0013
add hl, bc
inc a
ld [hli], a
inc a
ld [hl], a
pop af
ret
; b98fc
Functionb98fc: ; b98fc
ld [hli], a
inc a
ld [hli], a
inc a
ld [hl], a
ld bc, SCREEN_HEIGHT
add hl, bc
inc a
ld [hli], a
inc a
ld [hli], a
inc a
ld [hl], a
ret
; b990c
Functionb990c: ; b990c
.asm_b990c
ld a, [de]
inc de
ld [hli], a
xor a
ld [hli], a
dec c
jr nz, .asm_b990c
ret
; b9915
Functionb9915: ; b9915
.asm_b9915
xor a
ld [hli], a
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_b9915
ret
; b991e
Functionb991e: ; b991e
.asm_b991e
ld a, [de]
inc de
rept 2
ld [hli], a
endr
dec c
jr nz, .asm_b991e
ret
; b9926
Unknown_b9926: ; b9926
INCBIN "gfx/unknown/0b9926.1bpp"
Unknown_b992e: ; b992e
INCBIN "gfx/unknown/0b992e.1bpp"
Unknown_b9936: ; b9936
INCBIN "gfx/unknown/0b9936.1bpp"
Unknown_b993e: ; b993e
INCBIN "gfx/unknown/0b993e.1bpp"
Unknown_b9946: ; b9946
INCBIN "gfx/unknown/0b9946.1bpp"
Unknown_b994e: ; b994e
INCBIN "gfx/unknown/0b994e.1bpp"
Unknown_b995e: ; b995e
INCBIN "gfx/unknown/0b995e.1bpp"
Unknown_b9966: ; b9966
INCBIN "gfx/unknown/0b9966.1bpp"
Unknown_b996e: ; b996e
INCBIN "gfx/unknown/0b996e.1bpp"
Unknown_b9976: ; b9976
INCBIN "gfx/unknown/0b9976.1bpp"
Unknown_b997e: ; b997e
INCBIN "gfx/unknown/0b997e.1bpp"
Unknown_b998e: ; b998e
INCBIN "gfx/unknown/0b998e.1bpp"
Unknown_b9996: ; b9996
INCBIN "gfx/unknown/0b9996.1bpp"
MailDratiniGFX: ; b99c6
INCBIN "gfx/unknown/0b99c6.1bpp"
MailPoliwagGFX: ; b99f6
INCBIN "gfx/unknown/0b99f6.1bpp"
MailLaprasGFX: ; b9a26
INCBIN "gfx/unknown/0b9a26.1bpp"
MailPikaGFX: ; b9a56
INCBIN "gfx/unknown/0b9a56.1bpp"
MailDittoGFX: ; b9a86
INCBIN "gfx/unknown/0b9a86.1bpp"
MailMewGFX: ; b9ab6
INCBIN "gfx/unknown/0b9ab6.1bpp"
MailDragoniteGFX: ; b9b46
INCBIN "gfx/unknown/0b9b46.1bpp"
MailSentretGFX: ; b9bce
INCBIN "gfx/unknown/0b9bce.1bpp"
Unknown_b9bee: ; b9bee
INCBIN "gfx/unknown/0b9bee.1bpp"
Unknown_b9bfe: ; b9bfe
INCBIN "gfx/unknown/0b9bfe.1bpp"
MailOddishGFX: ; b9c1e
INCBIN "gfx/unknown/0b9c1e.1bpp"
Unknown_b9c3e: ; b9c3e
INCBIN "gfx/unknown/0b9c3e.1bpp"
Unknown_b9c5e: ; b9c5e
INCBIN "gfx/unknown/0b9c5e.1bpp"
Unknown_b9c7e: ; b9c7e
INCBIN "gfx/unknown/0b9c7e.1bpp"
Unknown_b9c96: ; b9c96
INCBIN "gfx/unknown/0b9c96.1bpp"
Unknown_b9c9e: ; b9c9e
INCBIN "gfx/unknown/0b9c9e.1bpp"
Unknown_b9cbe: ; b9cbe
INCBIN "gfx/unknown/0b9cbe.1bpp"
Unknown_b9cde: ; b9cde
INCBIN "gfx/unknown/0b9cde.1bpp"
Unknown_b9cfe: ; b9cfe
INCBIN "gfx/unknown/0b9cfe.1bpp"
MailCloudGFX: ; b9d16
INCBIN "gfx/unknown/0b9d16.1bpp"
Unknown_b9d26: ; b9d26
INCBIN "gfx/unknown/0b9d26.1bpp"
Unknown_b9d3e: ; b9d3e
INCBIN "gfx/unknown/0b9d3e.1bpp"
Unknown_b9d46: ; b9d46
INCBIN "gfx/unknown/0b9d46.1bpp"
Unknown_b9d76: ; b9d76
INCBIN "gfx/unknown/0b9d76.1bpp"
Unknown_b9d86: ; b9d86
INCBIN "gfx/unknown/0b9d86.1bpp"
Unknown_b9db6: ; b9db6
INCBIN "gfx/unknown/0b9db6.1bpp"
Unknown_b9dc6: ; b9dc6
INCBIN "gfx/unknown/0b9dc6.1bpp"
Unknown_b9dce: ; b9dce
INCBIN "gfx/unknown/0b9dce.1bpp"
Unknown_b9df6: ; b9df6
INCBIN "gfx/unknown/0b9df6.1bpp"
Unknown_b9e06: ; b9e06
INCBIN "gfx/unknown/0b9e06.1bpp"
Unknown_b9e26: ; b9e26
INCBIN "gfx/unknown/0b9e26.1bpp"
Unknown_b9e4e: ; b9e4e
INCBIN "gfx/unknown/0b9e4e.1bpp"
ItemIsMail: ; b9e76
ld a, d
ld hl, .items
ld de, 1
jp IsInArray
; b9e80
.items
db FLOWER_MAIL
db SURF_MAIL
db LITEBLUEMAIL
db PORTRAITMAIL
db LOVELY_MAIL
db EON_MAIL
db MORPH_MAIL
db BLUESKY_MAIL
db MUSIC_MAIL
db MIRAGE_MAIL
db $ff
; b9e8b
SECTION "bank2F", ROMX, BANK[$2F]
INCLUDE "engine/std_scripts.asm"
INCLUDE "engine/phone_scripts.asm"
SECTION "bank30", ROMX, BANK[$30]
INCLUDE "gfx/overworld/sprites_1.asm"
SECTION "bank31", ROMX, BANK[$31]
INCLUDE "gfx/overworld/sprites_2.asm"
SECTION "bank32", ROMX, BANK[$32]
INCLUDE "battle/bg_effects.asm"
INCLUDE "battle/anims.asm"
Functioncbcdd: ; cbcdd
call Functioncbce5
ld a, [hCGB]
and a
ret nz
ret
; cbce5
Functioncbce5: ; cbce5
ld a, [hCGB]
and a
jr nz, .asm_cbd06
ld a, [TimeOfDayPal]
and $3
cp $3
ld a, $0
jr z, .asm_cbcf7
ld a, $aa
.asm_cbcf7
call DmgToCgbBGPals
ld c, $4
call DelayFrames
callba _UpdateTimePals
ret
.asm_cbd06
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, BGPals
ld c, $20
.asm_cbd12
ld a, $bc
ld [hli], a
ld a, $7e
ld [hli], a
dec c
jr nz, .asm_cbd12
pop af
ld [rSVBK], a
ld a, $1
ld [hCGBPalUpdate], a
ld c, $4
call DelayFrames
callba _UpdateTimePals
ret
; cbd2e
TheEndGFX:: ; cbd2e
INCBIN "gfx/credits/theend.2bpp"
; cbe2e
SECTION "bank33", ROMX, BANK[$33]
Functioncc000: ; cc000
call WhiteBGMap
call ClearTileMap
call ClearSprites
call Functione58
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
hlcoord 0, 0
ld b, 4
ld c, 13
call TextBox
hlcoord 0, 6
ld b, 4
ld c, 13
call TextBox
hlcoord 2, 0
ld de, .Stock
call PlaceString
hlcoord 2, 6
ld de, .This
call PlaceString
hlcoord 5, 4
ld de, .Health
call PlaceString
hlcoord 5, 10
ld de, .Health
call PlaceString
ld a, [wdf9c]
ld [wd265], a
call GetPokemonName
ld de, StringBuffer1
hlcoord 1, 2
call PlaceString
ld h, b
ld l, c
ld a, [wContestMonLevel]
ld [TempMonLevel], a
call PrintLevel
ld de, EnemyMonNick
hlcoord 1, 8
call PlaceString
ld h, b
ld l, c
ld a, [EnemyMonLevel]
ld [TempMonLevel], a
call PrintLevel
hlcoord 11, 4
ld de, wContestMonMaxHP
ld bc, $0203
call PrintNum
hlcoord 11, 10
ld de, EnemyMonMaxHP
call PrintNum
ld hl, SwitchMonText
call PrintText
pop af
ld [Options], a
call WaitBGMap
ld b, $8
call GetSGBLayout
call Function32f9
ret
; cc0a7
.Health
db "HEALTH@"
.Stock
db " STOCK ", $4a, " @"
.This
db " THIS ", $4a, " @"
SwitchMonText: ; cc0c2
; Switch #MON?
text_jump UnknownText_0x1c10cf
db "@"
; cc0c7
Functioncc0c7: ; cc0c7
call GetPokemonName
ld hl, AlreadyCaughtText
jp PrintText
; cc0d0
AlreadyCaughtText: ; 0xcc0d0
; You already caught a @ .
text_jump UnknownText_0x1c10dd
db "@"
; 0xcc0d5
Predef2F:
Predef38:
Predef39: ; cc0d5
ret
; cc0d6
INCLUDE "battle/anim_commands.asm"
INCLUDE "battle/anim_objects.asm"
SECTION "Pic Animations 1", ROMX, BANK[$34]
INCLUDE "gfx/pics/animation.asm"
; Pic animations are assembled in 3 parts:
; Top-level animations:
; frame #, duration: Frame 0 is the original pic (no change)
; setrepeat #: Sets the number of times to repeat
; dorepeat #: Repeats from command # (starting from 0)
; end
; Bitmasks:
; Layered over the pic to designate affected tiles
; Frame definitions:
; first byte is the bitmask used for this frame
; following bytes are tile ids mapped to each bit in the mask
; Main animations (played everywhere)
INCLUDE "gfx/pics/anim_pointers.asm"
INCLUDE "gfx/pics/anims.asm"
; Extra animations, appended to the main animation
; Used in the status screen (blinking, tail wags etc.)
INCLUDE "gfx/pics/extra_pointers.asm"
INCLUDE "gfx/pics/extras.asm"
; Unown has its own animation data despite having an entry in the main tables
INCLUDE "gfx/pics/unown_anim_pointers.asm"
INCLUDE "gfx/pics/unown_anims.asm"
INCLUDE "gfx/pics/unown_extra_pointers.asm"
INCLUDE "gfx/pics/unown_extras.asm"
; Bitmasks
INCLUDE "gfx/pics/bitmask_pointers.asm"
INCLUDE "gfx/pics/bitmasks.asm"
INCLUDE "gfx/pics/unown_bitmask_pointers.asm"
INCLUDE "gfx/pics/unown_bitmasks.asm"
SECTION "Pic Animations 2", ROMX, BANK[$35]
INCLUDE "gfx/pics/frame_pointers.asm"
INCLUDE "gfx/pics/kanto_frames.asm"
SECTION "bank36", ROMX, BANK[$36]
FontInversed: INCBIN "gfx/misc/font_inversed.1bpp"
SECTION "Pic Animations 3", ROMX, BANK[$36]
INCLUDE "gfx/pics/johto_frames.asm"
INCLUDE "gfx/pics/unown_frame_pointers.asm"
INCLUDE "gfx/pics/unown_frames.asm"
SECTION "Tileset Data 6", ROMX, BANK[TILESETS_6]
INCLUDE "tilesets/data_6.asm"
SECTION "bank38", ROMX, BANK[$38]
Functione0000: ; e0000
push de
xor a
call GetSRAMBank
ld hl, $a000
ld bc, $0000
.asm_e000b
push bc
push hl
push bc
ld de, wd002
call Functione004e
call Functione0057
ld hl, Unknown_e008b
pop bc
rept 2
add hl, bc
endr
ld a, [hli]
ld e, a
ld d, [hl]
ld hl, wd012
call Functione004e
pop hl
ld bc, $0010
add hl, bc
pop bc
inc c
ld a, c
cp $31
jr c, .asm_e000b
ld hl, OverworldMap
ld de, $a000
ld bc, $0310
call CopyBytes
pop hl
ld de, $a000
ld c, $31
ld a, [hROMBank]
ld b, a
call Get2bpp
call CloseSRAM
ret
; e004e
Functione004e: ; e004e
ld c, $10
.asm_e0050
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_e0050
ret
; e0057
Functione0057: ; e0057
ld hl, wd012
ld e, $80
ld d, $8
.asm_e005e
push hl
ld hl, wd002
call Functione0078
pop hl
ld a, b
ld [hli], a
push hl
ld hl, wd003
call Functione0078
pop hl
ld a, b
ld [hli], a
srl e
dec d
jr nz, .asm_e005e
ret
; e0078
Functione0078: ; e0078
ld b, $0
ld c, $8
.asm_e007c
ld a, [hli]
and e
jr z, .asm_e0083
scf
jr .asm_e0084
.asm_e0083
and a
.asm_e0084
rr b
inc hl
dec c
jr nz, .asm_e007c
ret
; e008b
Unknown_e008b: ; e008b
dw wcaa0, wca30, wc9c0, wc950, wc8e0, wc870, wc800
dw wcab0, wca40, wc9d0, wc960, wc8f0, wc880, wc810
dw wcac0, wca50, wc9e0, wc970, wc900, wc890, wc820
dw wcad0, wca60, wc9f0, wc980, wc910, wc8a0, wc830
dw wcae0, wca70, wca00, wc990, wc920, wc8b0, wc840
dw wcaf0, wca80, wca10, wc9a0, wc930, wc8c0, wc850
dw wcb00, wca90, wca20, wc9b0, wc940, wc8d0, wc860
; e00ed
Unknown_e00ed:
; Graphics for an unused Game Corner
; game were meant to be here.
Functione00ed: ; e00ed (38:40ed)
ret
; e00ee (38:40ee)
_CardFlip: ; e00ee (38:40ee)
ld hl, Options
set 4, [hl]
call WhiteBGMap
call ClearTileMap
call ClearSprites
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
call DisableLCD
call Functione51
call Functione5f
ld hl, LZ_e0d16
ld de, $9000
call Decompress
ld hl, LZ_e0ea8
ld de, $93e0
call Decompress
ld hl, LZ_e0cdb
ld de, $8000
call Decompress
ld hl, GFX_e0cf6
ld de, $8ef0
ld bc, $10
call CopyBytes
ld hl, GFX_e0d06
ld de, $8f50
ld bc, $10
call CopyBytes
call Functione0521
call Functione04c1
call Functione0c37
call EnableLCD
call Function3200
ld a, $e4
call DmgToCgbBGPals
ld de, $e4e4
call DmgToCgbObjPals
call DelayFrame
xor a
ld [wcf63], a
ld a, $2
ld [wcf64], a
ld [wcf65], a
ld de, MUSIC_GAME_CORNER
call PlayMusic
.MasterLoop
ld a, [wcf63]
bit 7, a
jr nz, .leavethegame
call .CardFlip
jr .MasterLoop
.leavethegame
call WaitSFX
ld de, SFX_QUIT_SLOTS
call PlaySFX
call WaitSFX
call WhiteBGMap
ld hl, Options
res 4, [hl]
ret
.CardFlip: ; e0191 (38:4191)
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, .Jumptable
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e01a0 (38:41a0)
.Jumptable: ; e01a0
dw .AskPlayWithThree
dw .DeductCoins
dw .ChooseACard
dw .PlaceYourBet
dw .CheckTheCard
dw .TabulateTheResult
dw .PlayAgain
dw .Quit
; e01b0
.Increment: ; e01b0
ld hl, wcf63
inc [hl]
ret
; e01b5
.AskPlayWithThree: ; e01b5
ld hl, .PlayWithThreeCoinsText
call Functione0489
call YesNoBox
jr c, .SaidNo
call Functione0366
call .Increment
ret
.SaidNo
ld a, $7
ld [wcf63], a
ret
; e01cd
.PlayWithThreeCoinsText: ; 0xe01cd
; Play with three coins?
text_jump UnknownText_0x1c5793
db "@"
; 0xe01d2
.DeductCoins: ; e01d2
ld a, [Coins]
ld h, a
ld a, [Coins + 1]
ld l, a
ld a, h
and a
jr nz, .deduct ; You have at least 256 coins.
ld a, l
cp 3
jr nc, .deduct ; You have at least 3 coins.
ld hl, .NotEnoughCoinsText
call Functione0489
ld a, $7
ld [wcf63], a
ret
.deduct
ld de, -3
add hl, de
ld a, h
ld [Coins], a
ld a, l
ld [Coins + 1], a
ld de, SFX_TRANSACTION
call PlaySFX
xor a
ld [hBGMapMode], a
call Functione049c
ld a, $1
ld [hBGMapMode], a
call WaitSFX
call .Increment
ret
; e0212
.NotEnoughCoinsText: ; 0xe0212
; Not enough coins…
text_jump UnknownText_0x1c57ab
db "@"
; 0xe0217
.ChooseACard: ; e0217
xor a
ld [hBGMapMode], a
hlcoord 0, 0
ld bc, $0c09
call Functione04e5
hlcoord 9, 0
ld bc, SCREEN_WIDTH
ld a, [wc6e8]
call AddNTimes
ld [hl], $f5
ld a, $1
ld [hBGMapMode], a
ld c, $14
call DelayFrames
hlcoord 2, 0
call Functione03c1
ld a, $1
ld [hBGMapMode], a
ld c, $14
call DelayFrames
hlcoord 2, 6
call Functione03c1
call WaitBGMap
ld hl, .ChooseACardText
call Functione0489
xor a
ld [wcf66], a
.loop
call Functiona57
ld a, [$ffa9]
and $1
jr nz, .next
ld de, SFX_KINESIS
call PlaySFX
call Functione0849
ld c, $4
call DelayFrames
ld hl, wcf66
ld a, [hl]
xor $1
ld [hl], a
jr .loop
.next
ld de, SFX_SLOT_MACHINE_START
call PlaySFX
ld a, $3
.loop2
push af
call Functione0849
ld c, $4
call DelayFrames
call ClearSprites
ld c, $4
call DelayFrames
pop af
dec a
jr nz, .loop2
ld hl, wcf66
ld a, [hl]
push af
xor $1
ld [hl], a
call Functione03ac
ld bc, $0605
call Functione04e5
pop af
ld [wcf66], a
call .Increment
ret
; e02b2
.ChooseACardText: ; 0xe02b2
; Choose a card.
text_jump UnknownText_0x1c57be
db "@"
; 0xe02b7
.PlaceYourBet: ; e02b7
ld hl, .PlaceYourBetText
call Functione0489
.betloop
call Functiona57
ld a, [$ffa9]
and $1
jr nz, .betdone
call Functione089c
call Functione0960
call DelayFrame
jr .betloop
.betdone
call .Increment
ret
; e02d5
.PlaceYourBetText: ; 0xe02d5
; Place your bet.
text_jump UnknownText_0x1c57ce
db "@"
; 0xe02da
.CheckTheCard: ; e02da
xor a
ld [$ff9b], a
call Functione0960
call WaitSFX
ld de, SFX_CHOOSE_A_CARD
call PlaySFX
call WaitSFX
ld a, [wc6e8]
ld e, a
ld d, $0
ld hl, wc6d0
rept 2
add hl, de
endr
ld a, [wcf66]
ld e, a
add hl, de
ld a, [hl]
ld [CurEnemyMoveNum], a
ld e, a
ld hl, wc6ea
add hl, de
ld [hl], $1
call Functione03ac
call Functione03ec
call Function3200
call .Increment
ret
; e0314
.TabulateTheResult: ; e0314
call Functione0637
call Functiona80
call .Increment
ret
; e031e
.PlayAgain: ; e031e
call ClearSprites
ld hl, .PlayAgainText
call Functione0489
call YesNoBox
jr nc, .Continue
call .Increment
ret
.Continue
ld a, [wc6e8]
inc a
ld [wc6e8], a
cp $c
jr c, .KeepTheCurrentDeck
call Functione04c1
ld a, $1
ld [hBGMapMode], a
call Functione0366
ld hl, .CardsShuffledText
call PrintText
jr .LoopAround
.KeepTheCurrentDeck
call Functione0534
.LoopAround
ld a, $1
ld [wcf63], a
ret
; e0356
.PlayAgainText: ; 0xe0356
; Want to play again?
text_jump UnknownText_0x1c57df
db "@"
; 0xe035b
.CardsShuffledText: ; 0xe035b
; The cards have been shuffled.
text_jump UnknownText_0x1c57f4
db "@"
; 0xe0360
.Quit: ; e0360
ld hl, wcf63
set 7, [hl]
ret
; e0366
Functione0366: ; e0366
ld hl, wc6d0
ld bc, $0018
xor a
call ByteFill
ld de, wc6d0
ld c, $17
.asm_e0375
call Random
and $1f
cp $18
jr nc, .asm_e0375
ld l, a
ld h, $0
add hl, de
ld a, [hl]
and a
jr nz, .asm_e0375
ld [hl], c
dec c
jr nz, .asm_e0375
xor a
ld [wc6e8], a
ld hl, wc6ea
ld bc, $0018
call ByteFill
ret
; e0398
Functione0398: ; e0398
ld hl, $0000
ld bc, $0006
ld a, [wcf64]
call AddNTimes
ld b, $0
ld a, [wcf65]
ld c, a
add hl, bc
ret
; e03ac
Functione03ac: ; e03ac
ld a, [wcf66]
and a
jr nz, .asm_e03ba
hlcoord 2, 0
ld bc, $1018
jr .asm_e03c0
.asm_e03ba
hlcoord 2, 6
ld bc, $4018
.asm_e03c0
ret
; e03c1
Functione03c1: ; e03c1
xor a
ld [hBGMapMode], a
ld de, Unknown_e03ce
lb bc, 6, 5
call Functione04f7
ret
; e03ce
Unknown_e03ce: ; e03ce
db $08, $09, $09, $09, $0a
db $0b, $28, $2b, $28, $0c
db $0b, $2c, $2d, $2e, $0c
db $0b, $2f, $30, $31, $0c
db $0b, $32, $33, $34, $0c
db $0d, $0e, $0e, $0e, $0f
; e03ec
Functione03ec: ; e03ec
xor a
ld [hBGMapMode], a
push hl
push hl
ld de, Unknown_e043b
lb bc, 6, 5
call Functione04f7
ld a, [CurEnemyMoveNum]
ld e, a
ld d, 0
ld hl, Unknown_e0459
rept 2
add hl, de
endr
ld a, [hli]
ld e, a
ld d, [hl]
pop hl
ld bc, $0017
add hl, bc
ld [hl], e
ld bc, SCREEN_HEIGHT
add hl, bc
ld a, d
ld de, SCREEN_WIDTH
ld b, $3
.asm_e0418
push hl
ld c, $3
.asm_e041b
ld [hli], a
inc a
dec c
jr nz, .asm_e041b
pop hl
add hl, de
dec b
jr nz, .asm_e0418
pop hl
ld a, [hCGB]
and a
ret z
ld de, AttrMap - TileMap
add hl, de
ld a, [CurEnemyMoveNum]
and 3
inc a
lb bc, 6, 5
call Functione04e7
ret
; e043b
Unknown_e043b: ; e043b
db $18, $19, $19, $19, $1a
db $1b, $35, $7f, $7f, $1c
db $0b, $28, $28, $28, $0c
db $0b, $28, $28, $28, $0c
db $0b, $28, $28, $28, $0c
db $1d, $1e, $1e, $1e, $1f
; e0459
Unknown_e0459: ; e0459
db $f7,$4e, $f7,$57, $f7,$69, $f7,$60
db $f8,$4e, $f8,$57, $f8,$69, $f8,$60
db $f9,$4e, $f9,$57, $f9,$69, $f9,$60
db $fa,$4e, $fa,$57, $fa,$69, $fa,$60
db $fb,$4e, $fb,$57, $fb,$69, $fb,$60
db $fc,$4e, $fc,$57, $fc,$69, $fc,$60
; e0489
Functione0489: ; e0489
push hl
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
pop hl
call PrintTextBoxText
call Functione049c
ret
; e049c
Functione049c: ; e049c
hlcoord 9, 15
ld b, $1
ld c, $9
call TextBox
hlcoord 10, 16
ld de, String_e04bc
call PlaceString
hlcoord 15, 16
ld de, Coins
ld bc, $8204
call PrintNum
ret
; e04bc
String_e04bc:
db "COIN@"
; e04c1
Functione04c1: ; e04c1 (38:44c1)
xor a
ld [hBGMapMode], a ; $ff00+$d4
hlcoord 0, 0
ld bc, $168
ld a, $29
call ByteFill
hlcoord 9, 0
ld de, Unknown_e110c
lb bc, 12, 11
call Functione04f7
hlcoord 0, 12
ld bc, $412
call TextBox
ret
; e04e5 (38:44e5)
Functione04e5: ; e04e5
ld a, $29
Functione04e7: ; e04e7 (38:44e7)
push bc
push hl
.asm_e04e9
ld [hli], a
dec c
jr nz, .asm_e04e9
pop hl
ld bc, $14
add hl, bc
pop bc
dec b
jr nz, Functione04e7
ret
Functione04f7: ; e04f7 (38:44f7)
push bc
push hl
.asm_e04f9
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_e04f9
pop hl
ld bc, $14
add hl, bc
pop bc
dec b
jr nz, Functione04f7
ret
; e0509 (38:4509)
Functione0509: ; e0509
ld de, Sprites
ld a, [hli]
.asm_e050d
push af
ld a, [hli]
add b
ld [de], a
inc de
ld a, [hli]
add c
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
pop af
dec a
jr nz, .asm_e050d
ret
; e0521
Functione0521: ; e0521 (38:4521)
ld de, $8f60
ld hl, $8f62
ld bc, $9e
call CopyBytes
ld hl, $8ffe
xor a
ld [hli], a
ld [hl], a
ret
; e0534 (38:4534)
Functione0534: ; e0534
xor a
ld [hBGMapMode], a
ld a, [CurEnemyMoveNum]
ld e, a
ld d, 0
and 3
ld c, a
ld b, 0
ld a, e
and $1c
srl a
add Jumptable_e0553 % $100
ld l, a
ld a, 0
adc Jumptable_e0553 / $100
ld h, a
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e0553
Jumptable_e0553: ; e0553
dw Functione055f
dw Functione0583
dw Functione05a7
dw Functione05cb
dw Functione05ef
dw Functione0613
; e055f
Functione055f: ; e055f
ld hl, wc6e6 + 8
add hl, de
ld a, [hl]
and a
jr nz, .asm_e0575
hlcoord 13, 3
rept 2
add hl, bc
endr
ld [hl], $36
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $37
ret
.asm_e0575
hlcoord 13, 3
rept 2
add hl, bc
endr
ld [hl], $36
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3d
ret
; e0583
Functione0583: ; e0583
ld hl, wc6e6
add hl, de
ld a, [hl]
and a
jr nz, .asm_e0599
hlcoord 13, 4
rept 2
add hl, bc
endr
ld [hl], $3b
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3a
ret
.asm_e0599
hlcoord 13, 4
rept 2
add hl, bc
endr
ld [hl], $3d
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3a
ret
; e05a7
Functione05a7: ; e05a7
ld hl, wc6e6 + 8
add hl, de
ld a, [hl]
and a
jr nz, .asm_e05bd
hlcoord 13, 6
rept 2
add hl, bc
endr
ld [hl], $36
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $38
ret
.asm_e05bd
hlcoord 13, 6
rept 2
add hl, bc
endr
ld [hl], $36
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3d
ret
; e05cb
Functione05cb: ; e05cb
ld hl, wc6e6
add hl, de
ld a, [hl]
and a
jr nz, .asm_e05e1
hlcoord 13, 7
rept 2
add hl, bc
endr
ld [hl], $3c
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3a
ret
.asm_e05e1
hlcoord 13, 7
rept 2
add hl, bc
endr
ld [hl], $3d
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3a
ret
; e05ef
Functione05ef: ; e05ef
ld hl, wc6e6 + 8
add hl, de
ld a, [hl]
and a
jr nz, .asm_e0605
hlcoord 13, 9
rept 2
add hl, bc
endr
ld [hl], $36
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $39
ret
.asm_e0605
hlcoord 13, 9
rept 2
add hl, bc
endr
ld [hl], $36
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3d
ret
; e0613
Functione0613: ; e0613
ld hl, wc6e6
add hl, de
ld a, [hl]
and a
jr nz, .asm_e0629
hlcoord 13, 10
rept 2
add hl, bc
endr
ld [hl], $3c
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3a
ret
.asm_e0629
hlcoord 13, 10
rept 2
add hl, bc
endr
ld [hl], $3d
ld bc, SCREEN_WIDTH
add hl, bc
ld [hl], $3a
ret
; e0637
Functione0637: ; e0637
call Functione0398
add hl, hl
ld de, Jumptable_e0643
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e0643
Jumptable_e0643: ; e0643
dw Functione06a3
dw Functione06a3
dw Functione06a6
dw Functione06a6
dw Functione06b0
dw Functione06b0
dw Functione06a3
dw Functione06a3
dw Functione06ec
dw Functione06f6
dw Functione0702
dw Functione070e
dw Functione06c2
dw Functione0722
dw Functione0770
dw Functione0774
dw Functione0778
dw Functione077c
dw Functione06c2
dw Functione072c
dw Functione0780
dw Functione0784
dw Functione0788
dw Functione078c
dw Functione06cc
dw Functione0738
dw Functione0790
dw Functione0794
dw Functione0798
dw Functione079c
dw Functione06cc
dw Functione0744
dw Functione07a0
dw Functione07a4
dw Functione07a8
dw Functione07ac
dw Functione06d8
dw Functione0750
dw Functione07b0
dw Functione07b4
dw Functione07b8
dw Functione07bc
dw Functione06d8
dw Functione075c
dw Functione07c0
dw Functione07c4
dw Functione07c8
dw Functione07cc
; e06a3
Functione06a3: ; e06a3
jp Functione07db
; e06a6
Functione06a6: ; e06a6
ld a, [CurEnemyMoveNum]
and $2
jp nz, Functione07db
jr Functione06ba
Functione06b0: ; e06b0
ld a, [CurEnemyMoveNum]
and $2
jr nz, Functione06ba
jp Functione07db
Functione06ba: ; e06ba
ld c, $6
ld de, SFX_2ND_PLACE
jp Functione07eb
; e06c2
Functione06c2: ; e06c2
ld a, [CurEnemyMoveNum]
and $18
jr z, Functione06e4
jp Functione07db
Functione06cc: ; e06cc
ld a, [CurEnemyMoveNum]
and $18
cp $8
jr z, Functione06e4
jp Functione07db
Functione06d8: ; e06d8
ld a, [CurEnemyMoveNum]
and $18
cp $10
jr z, Functione06e4
jp Functione07db
Functione06e4: ; e06e4
ld c, $9
ld de, SFX_2ND_PLACE
jp Functione07eb
; e06ec
Functione06ec: ; e06ec
ld a, [CurEnemyMoveNum]
and $3
jr z, Functione071a
jp Functione07db
Functione06f6: ; e06f6
ld a, [CurEnemyMoveNum]
and $3
cp $1
jr z, Functione071a
jp Functione07db
Functione0702: ; e0702
ld a, [CurEnemyMoveNum]
and $3
cp $2
jr z, Functione071a
jp Functione07db
Functione070e: ; e070e
ld a, [CurEnemyMoveNum]
and $3
cp $3
jr z, Functione071a
jp Functione07db
Functione071a: ; e071a
ld c, $c
ld de, SFX_2ND_PLACE
jp Functione07eb
; e0722
Functione0722: ; e0722
ld a, [CurEnemyMoveNum]
and $1c
jr z, Functione0768
jp Functione07db
Functione072c: ; e072c
ld a, [CurEnemyMoveNum]
and $1c
cp $4
jr z, Functione0768
jp Functione07db
Functione0738: ; e0738
ld a, [CurEnemyMoveNum]
and $1c
cp $8
jr z, Functione0768
jp Functione07db
Functione0744: ; e0744
ld a, [CurEnemyMoveNum]
and $1c
cp $c
jr z, Functione0768
jp Functione07db
Functione0750: ; e0750
ld a, [CurEnemyMoveNum]
and $1c
cp $10
jr z, Functione0768
jp Functione07db
Functione075c: ; e075c
ld a, [CurEnemyMoveNum]
and $1c
cp $14
jr z, Functione0768
jp Functione07db
Functione0768: ; e0768
ld c, $12
ld de, SFX_2ND_PLACE
jp Functione07eb
; e0770
Functione0770: ; e0770
ld e, $0
jr Functione07ce
Functione0774: ; e0774
ld e, $1
jr Functione07ce
Functione0778: ; e0778
ld e, $2
jr Functione07ce
Functione077c: ; e077c
ld e, $3
jr Functione07ce
Functione0780: ; e0780
ld e, $4
jr Functione07ce
Functione0784: ; e0784
ld e, $5
jr Functione07ce
Functione0788: ; e0788
ld e, $6
jr Functione07ce
Functione078c: ; e078c
ld e, $7
jr Functione07ce
Functione0790: ; e0790
ld e, $8
jr Functione07ce
Functione0794: ; e0794
ld e, $9
jr Functione07ce
Functione0798: ; e0798
ld e, $a
jr Functione07ce
Functione079c: ; e079c
ld e, $b
jr Functione07ce
Functione07a0: ; e07a0
ld e, $c
jr Functione07ce
Functione07a4: ; e07a4
ld e, $d
jr Functione07ce
Functione07a8: ; e07a8
ld e, $e
jr Functione07ce
Functione07ac: ; e07ac
ld e, $f
jr Functione07ce
Functione07b0: ; e07b0
ld e, $10
jr Functione07ce
Functione07b4: ; e07b4
ld e, $11
jr Functione07ce
Functione07b8: ; e07b8
ld e, $12
jr Functione07ce
Functione07bc: ; e07bc
ld e, $13
jr Functione07ce
Functione07c0: ; e07c0
ld e, $14
jr Functione07ce
Functione07c4: ; e07c4
ld e, $15
jr Functione07ce
Functione07c8: ; e07c8
ld e, $16
jr Functione07ce
Functione07cc: ; e07cc
ld e, $17
Functione07ce: ; e07ce
ld a, [CurEnemyMoveNum]
cp e
jr nz, Functione07db
ld c, $48
ld de, SFX_2ND_PLACE
jr Functione07eb
Functione07db: ; e07db
ld de, SFX_WRONG
call PlaySFX
ld hl, UnknownText_0xe0816
call Functione0489
call WaitSFX
ret
Functione07eb: ; e07eb
push bc
push de
ld hl, UnknownText_0xe0811
call Functione0489
pop de
call PlaySFX
call WaitSFX
pop bc
.asm_e07fb
push bc
call Functione0833
jr c, .asm_e0804
call Functione081b
.asm_e0804
call Functione049c
ld c, $2
call DelayFrames
pop bc
dec c
jr nz, .asm_e07fb
ret
; e0811
UnknownText_0xe0811: ; 0xe0811
; Yeah!
text_jump UnknownText_0x1c5813
db "@"
; 0xe0816
UnknownText_0xe0816: ; 0xe0816
; Darn…
text_jump UnknownText_0x1c581a
db "@"
; 0xe081b
Functione081b: ; e081b
ld a, [Coins]
ld h, a
ld a, [Coins + 1]
ld l, a
inc hl
ld a, h
ld [Coins], a
ld a, l
ld [Coins + 1], a
ld de, SFX_PAY_DAY
call PlaySFX
ret
; e0833
Functione0833: ; e0833
ld a, [Coins]
cp 9999 / $100
jr c, .asm_e0847
jr z, .asm_e083e
jr .asm_e0845
.asm_e083e
ld a, [Coins + 1]
cp 9999 % $100
jr c, .asm_e0847
.asm_e0845
scf
ret
.asm_e0847
and a
ret
; e0849
Functione0849: ; e0849
call Functione03ac
ld hl, Unknown_e0853
call Functione0509
ret
; e0853
Unknown_e0853: ; e0853
db 18
db $00, $00, $04, $00
db $00, $08, $06, $00
db $00, $10, $06, $00
db $00, $18, $06, $00
db $00, $20, $04, $20
db $08, $00, $05, $00
db $08, $20, $05, $20
db $10, $00, $05, $00
db $10, $20, $05, $20
db $18, $00, $05, $00
db $18, $20, $05, $20
db $20, $00, $05, $00
db $20, $20, $05, $20
db $28, $00, $04, $40
db $28, $08, $06, $40
db $28, $10, $06, $40
db $28, $18, $06, $40
db $28, $20, $04, $60
; e089c
Functione089c: ; e089c
ld hl, $ffa9
ld a, [hl]
and D_LEFT
jp nz, Functione08b8
ld a, [hl]
and D_RIGHT
jp nz, Functione08ef
ld a, [hl]
and D_UP
jp nz, Functione090a
ld a, [hl]
and D_DOWN
jp nz, Functione093d
ret
; e08b8
Functione08b8: ; e08b8
ld hl, wcf65
ld a, [wcf64]
and a
jr z, .asm_e08d5
cp $1
jr z, .asm_e08cc
ld a, [hl]
and a
ret z
dec [hl]
jp Functione0959
.asm_e08cc
ld a, [hl]
cp $3
jr c, .asm_e08e2
dec [hl]
jp Functione0959
.asm_e08d5
ld a, [hl]
and $e
ld [hl], a
cp $3
jr c, .asm_e08e2
rept 2
dec [hl]
endr
jp Functione0959
.asm_e08e2
ld a, $2
ld [wcf64], a
ld a, $1
ld [wcf65], a
jp Functione0959
; e08ef
Functione08ef: ; e08ef
ld hl, wcf65
ld a, [wcf64]
and a
jr z, .asm_e08ff
ld a, [hl]
cp $5
ret nc
inc [hl]
jr Functione0959
.asm_e08ff
ld a, [hl]
and $e
ld [hl], a
cp $4
ret nc
rept 2
inc [hl]
endr
jr Functione0959
Functione090a: ; e090a
ld hl, wcf64
ld a, [wcf65]
and a
jr z, .asm_e0925
cp $1
jr z, .asm_e091d
ld a, [hl]
and a
ret z
dec [hl]
jr Functione0959
.asm_e091d
ld a, [hl]
cp $3
jr c, .asm_e0931
dec [hl]
jr Functione0959
.asm_e0925
ld a, [hl]
and $e
ld [hl], a
cp $3
jr c, .asm_e0931
rept 2
dec [hl]
endr
jr Functione0959
.asm_e0931
ld a, $1
ld [wcf64], a
ld a, $2
ld [wcf65], a
jr Functione0959
Functione093d: ; e093d
ld hl, wcf64
ld a, [wcf65]
and a
jr z, .asm_e0950
ld hl, wcf64
ld a, [hl]
cp $7
ret nc
inc [hl]
jr Functione0959
.asm_e0950
ld a, [hl]
and $e
ld [hl], a
cp $6
ret nc
rept 2
inc [hl]
endr
Functione0959: ; e0959
ld de, SFX_POKEBALLS_PLACED_ON_TABLE
call PlaySFX
ret
; e0960
Functione0960: ; e0960
call ClearSprites
ld a, [hCGB]
and a
jr nz, .asm_e096d
ld a, [$ff9b]
and $4
ret nz
.asm_e096d
call Functione0398
rept 2
add hl, hl
endr
ld de, Unknown_e0981
add hl, de
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
ld a, [hli]
ld h, [hl]
ld l, a
call Functione0509
ret
; e0981
Unknown_e0981: ; e0981
dbbw $58, $10, Unknown_e0c26
dbbw $60, $10, Unknown_e0c26
dbbw $68, $10, Unknown_e0b8d
dbbw $68, $10, Unknown_e0b8d
dbbw $88, $10, Unknown_e0b8d
dbbw $88, $10, Unknown_e0b8d
dbbw $58, $18, Unknown_e0c26
dbbw $60, $18, Unknown_e0c26
dbbw $68, $18, Unknown_e0a5a
dbbw $78, $18, Unknown_e0a5a
dbbw $88, $18, Unknown_e0a5a
dbbw $98, $18, Unknown_e0a5a
dbbw $58, $28, Unknown_e0b14
dbbw $60, $28, Unknown_e0ac3
dbbw $68, $28, Unknown_e0a41
dbbw $78, $28, Unknown_e0a41
dbbw $88, $28, Unknown_e0a41
dbbw $98, $28, Unknown_e0a41
dbbw $58, $28, Unknown_e0b14
dbbw $60, $34, Unknown_e0ac3
dbbw $68, $34, Unknown_e0a41
dbbw $78, $34, Unknown_e0a41
dbbw $88, $34, Unknown_e0a41
dbbw $98, $34, Unknown_e0a41
dbbw $58, $40, Unknown_e0b14
dbbw $60, $40, Unknown_e0ac3
dbbw $68, $40, Unknown_e0a41
dbbw $78, $40, Unknown_e0a41
dbbw $88, $40, Unknown_e0a41
dbbw $98, $40, Unknown_e0a41
dbbw $58, $40, Unknown_e0b14
dbbw $60, $4c, Unknown_e0ac3
dbbw $68, $4c, Unknown_e0a41
dbbw $78, $4c, Unknown_e0a41
dbbw $88, $4c, Unknown_e0a41
dbbw $98, $4c, Unknown_e0a41
dbbw $58, $58, Unknown_e0b14
dbbw $60, $58, Unknown_e0ac3
dbbw $68, $58, Unknown_e0a41
dbbw $78, $58, Unknown_e0a41
dbbw $88, $58, Unknown_e0a41
dbbw $98, $58, Unknown_e0a41
dbbw $58, $58, Unknown_e0b14
dbbw $60, $64, Unknown_e0ac3
dbbw $68, $64, Unknown_e0a41
dbbw $78, $64, Unknown_e0a41
dbbw $88, $64, Unknown_e0a41
dbbw $98, $64, Unknown_e0a41
; e0a41
Unknown_e0a41: ; e0a41
db 6
db $00, $ff, $00, $80
db $00, $00, $02, $80
db $00, $08, $03, $80
db $05, $ff, $00, $c0
db $05, $00, $02, $c0
db $05, $08, $03, $80
Unknown_e0a5a: ; e0a5a
db 26
db $00, $ff, $00, $80
db $00, $00, $02, $80
db $00, $08, $00, $a0
db $08, $ff, $01, $80
db $08, $08, $01, $a0
db $10, $ff, $01, $80
db $10, $08, $03, $80
db $18, $ff, $01, $80
db $18, $08, $03, $80
db $20, $ff, $01, $80
db $20, $08, $03, $80
db $28, $ff, $01, $80
db $28, $08, $03, $80
db $30, $ff, $01, $80
db $30, $08, $03, $80
db $38, $ff, $01, $80
db $38, $08, $03, $80
db $40, $ff, $01, $80
db $40, $08, $03, $80
db $48, $ff, $01, $80
db $48, $08, $03, $80
db $50, $ff, $01, $80
db $50, $08, $03, $80
db $51, $ff, $00, $c0
db $51, $00, $02, $c0
db $51, $08, $03, $80
Unknown_e0ac3: ; e0ac3
db 20
db $00, $ff, $00, $80
db $00, $00, $02, $80
db $00, $08, $02, $80
db $00, $10, $03, $80
db $00, $18, $02, $80
db $00, $20, $03, $80
db $00, $28, $02, $80
db $00, $30, $03, $80
db $00, $38, $02, $80
db $00, $40, $03, $80
db $05, $ff, $00, $c0
db $05, $00, $02, $c0
db $05, $08, $02, $c0
db $05, $10, $03, $80
db $05, $18, $02, $c0
db $05, $20, $03, $80
db $05, $28, $02, $c0
db $05, $30, $03, $80
db $05, $38, $02, $c0
db $05, $40, $03, $80
Unknown_e0b14: ; e0b14
db 30
db $00, $00, $00, $80
db $00, $08, $02, $80
db $00, $10, $02, $80
db $00, $18, $03, $80
db $00, $20, $02, $80
db $00, $28, $03, $80
db $00, $30, $02, $80
db $00, $38, $03, $80
db $00, $40, $02, $80
db $00, $48, $03, $80
db $08, $00, $01, $80
db $08, $18, $03, $80
db $08, $28, $03, $80
db $08, $38, $03, $80
db $08, $48, $03, $80
db $10, $00, $01, $80
db $10, $18, $03, $80
db $10, $28, $03, $80
db $10, $38, $03, $80
db $10, $48, $03, $80
db $11, $00, $00, $c0
db $11, $08, $02, $c0
db $11, $10, $02, $c0
db $11, $18, $03, $80
db $11, $20, $03, $80
db $11, $28, $03, $80
db $11, $30, $03, $80
db $11, $38, $03, $80
db $11, $40, $03, $80
db $11, $48, $03, $80
Unknown_e0b8d: ; e0b8d
db 38
db $00, $ff, $00, $80
db $00, $18, $00, $a0
db $08, $ff, $01, $80
db $08, $18, $01, $a0
db $10, $ff, $01, $80
db $10, $18, $01, $a0
db $18, $ff, $01, $80
db $18, $08, $03, $80
db $18, $18, $03, $80
db $20, $ff, $01, $80
db $20, $08, $03, $80
db $20, $18, $03, $80
db $28, $ff, $01, $80
db $28, $08, $03, $80
db $28, $18, $03, $80
db $30, $ff, $01, $80
db $30, $08, $03, $80
db $30, $18, $03, $80
db $38, $ff, $01, $80
db $38, $08, $03, $80
db $38, $18, $03, $80
db $40, $ff, $01, $80
db $40, $08, $03, $80
db $40, $18, $03, $80
db $48, $ff, $01, $80
db $48, $08, $03, $80
db $48, $18, $03, $80
db $50, $ff, $01, $80
db $50, $08, $03, $80
db $50, $18, $03, $80
db $58, $ff, $01, $80
db $58, $08, $03, $80
db $58, $18, $03, $80
db $59, $ff, $00, $c0
db $59, $00, $02, $c0
db $59, $08, $03, $c0
db $59, $10, $02, $c0
db $59, $18, $03, $e0
Unknown_e0c26: ; e0c26
db 4
db $00, $00, $00, $80
db $00, $08, $00, $a0
db $08, $00, $00, $c0
db $08, $08, $00, $e0
; e0c37
Functione0c37: ; e0c37 (38:4c37)
ld a, [hCGB] ; $ff00+$e6
and a
ret z
hlcoord 0, 0, AttrMap
ld bc, $168
xor a
call ByteFill
hlcoord 12, 1, AttrMap
ld bc, $202
ld a, $1
call Functione04e7
hlcoord 14, 1, AttrMap
ld bc, $202
ld a, $2
call Functione04e7
hlcoord 16, 1, AttrMap
ld bc, $202
ld a, $3
call Functione04e7
hlcoord 18, 1, AttrMap
ld bc, $202
ld a, $4
call Functione04e7
hlcoord 9, 0, AttrMap
ld bc, $c01
ld a, $1
call Functione04e7
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e0c93
ld de, Unkn1Pals
ld bc, $48
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
ret
; e0c93 (38:4c93)
Palette_e0c93: ; e0c93
RGB 31, 31, 31
RGB 17, 07, 31
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 29, 25, 00
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 13, 30
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 08, 17, 30
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 08, 31, 08
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 17, 07, 31
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 17, 07, 31
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 17, 07, 31
RGB 06, 19, 08
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 00, 00
RGB 31, 00, 00
; e0cdb
LZ_e0cdb: ; e0cdb
INCBIN "gfx/unknown/0e0cdb.2bpp.lz"
GFX_e0cf6: ; e0cf6
INCBIN "gfx/unknown/0e0cf6.2bpp"
GFX_e0d06: ; e0d06
INCBIN "gfx/unknown/0e0d06.2bpp"
LZ_e0d16: ; e0d16
INCBIN "gfx/unknown/0e0d16.2bpp.lz"
LZ_e0ea8: ; e0ea8
INCBIN "gfx/unknown/0e0ea8.2bpp.lz"
Unknown_e110c: ; e110c
db $ef, $15, $27, $2a, $2a, $06, $27, $2a, $2a, $06, $27
db $ef, $07, $27, $3e, $3f, $42, $43, $46, $47, $4a, $4b
db $ef, $17, $26, $40, $41, $44, $45, $48, $49, $4c, $4d
db $ef, $25, $04, $00, $01, $00, $01, $00, $01, $00, $01
db $ef, $05, $14, $10, $11, $10, $11, $10, $11, $10, $11
db $ef, $16, $24, $20, $21, $20, $21, $20, $21, $20, $21
db $ef, $25, $04, $00, $02, $00, $02, $00, $02, $00, $02
db $ef, $05, $14, $10, $12, $10, $12, $10, $12, $10, $12
db $ef, $16, $24, $20, $22, $20, $22, $20, $22, $20, $22
db $ef, $25, $04, $00, $03, $00, $03, $00, $03, $00, $03
db $ef, $05, $14, $10, $13, $10, $13, $10, $13, $10, $13
db $ef, $16, $24, $20, $23, $20, $23, $20, $23, $20, $23
; e1190
Functione1190: ; e1190
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
call WhiteBGMap
call ClearTileMap
call ClearSprites
xor a
ld [hBGMapMode], a
call DisableLCD
ld hl, wc608
ld bc, $01e0
xor a
call ByteFill
ld hl, GFX_e17c5
ld de, $8e00
ld bc, $0040
call CopyBytes
ld hl, LZ_e1805
ld de, $8ed0
call Decompress
call Functione17a3
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $ee
call ByteFill
hlcoord 4, 3
ld bc, $0c0c
ld a, $ef
call Functione13ee
call Functione124e
call Functione13fe
call Functione127d
xor a
ld [hSCY], a
ld [hSCX], a
ld [rWY], a
ld [wcf63], a
ld [wcf64], a
ld [wcf65], a
ld [wcf66], a
ld a, $93
ld [rLCDC], a
call WaitBGMap
ld b, $18
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
ld a, $24
call Functioncf8
xor a
ld [wd0ec], a
call DelayFrame
.asm_e1217
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_e123d
call Functione12ca
ld a, [wcf64]
and a
jr nz, .asm_e1230
ld a, [$ff9b]
and $10
jr z, .asm_e1235
.asm_e1230
call Functione14d9
jr .asm_e1238
.asm_e1235
call ClearSprites
.asm_e1238
call DelayFrame
jr .asm_e1217
.asm_e123d
pop af
ld [$ffaa], a
call WhiteBGMap
call ClearTileMap
call ClearSprites
ld a, $e3
ld [rLCDC], a
ret
; e124e
Functione124e: ; e124e
ld c, $1
ld b, $10
.asm_e1252
call Random
and $f
ld hl, Unknown_e126d
ld e, a
ld d, $0
add hl, de
ld e, [hl]
ld hl, wc6d0
add hl, de
ld a, [hl]
and a
jr nz, .asm_e1252
ld [hl], c
inc c
dec b
jr nz, .asm_e1252
ret
; e126d
Unknown_e126d: ; e126d
db $00, $01, $02, $03
db $04, $05, $06, $0b
db $0c, $11, $12, $17
db $18, $1d, $1e, $23
; e127d
Functione127d: ; e127d
call Functione128d
hlcoord 5, 16
ld a, $f6
ld c, $a
.asm_e1287
ld [hli], a
inc a
dec c
jr nz, .asm_e1287
ret
; e128d
Functione128d: ; e128d
hlcoord 4, 15
ld a, $f0
ld [hli], a
ld bc, $000a
ld a, $f1
call ByteFill
hlcoord 15, 15
ld a, $f2
ld [hli], a
hlcoord 4, 16
ld a, $f3
ld [hli], a
ld bc, $000a
ld a, $ef
call ByteFill
hlcoord 15, 16
ld a, $f3
ld [hli], a
hlcoord 4, 17
ld a, $f4
ld [hli], a
ld bc, $000a
ld a, $f1
call ByteFill
hlcoord 15, 17
ld a, $f5
ld [hl], a
ret
; e12ca
Functione12ca: ; e12ca
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_e12d9
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e12d9
Jumptable_e12d9: ; e12d9
dw Functione12db
; e12db
Functione12db: ; e12db
ld a, [hJoyPressed]
and $8
jp nz, Functione13de
ld a, [hJoyPressed]
and A_BUTTON
jp nz, Functione1376
ld hl, $ffa9
ld a, [hl]
and $40
jr nz, .asm_e1301
ld a, [hl]
and $80
jr nz, .asm_e130d
ld a, [hl]
and $20
jr nz, .asm_e1325
ld a, [hl]
and $10
jr nz, .asm_e1345
ret
.asm_e1301
ld hl, wcf65
ld a, [hl]
cp $6
ret c
sub $6
ld [hl], a
jr .asm_e1364
.asm_e130d
ld hl, wcf65
ld a, [hl]
cp $19
ret z
cp $1a
ret z
cp $1b
ret z
cp $1c
ret z
cp $1e
ret nc
add $6
ld [hl], a
jr .asm_e1364
.asm_e1325
ld hl, wcf65
ld a, [hl]
and a
ret z
cp $6
ret z
cp $c
ret z
cp $12
ret z
cp $18
ret z
cp $1e
ret z
cp $23
jr z, .asm_e1341
dec [hl]
jr .asm_e1364
.asm_e1341
ld [hl], $1e
jr .asm_e1364
.asm_e1345
ld hl, wcf65
ld a, [hl]
cp $5
ret z
cp $b
ret z
cp $11
ret z
cp $17
ret z
cp $1d
ret z
cp $23
ret z
cp $1e
jr z, .asm_e1362
inc [hl]
jr .asm_e1364
.asm_e1362
ld [hl], $23
.asm_e1364
ld a, [wcf64]
and a
jr nz, .asm_e136f
ld de, SFX_POUND
jr .asm_e1372
.asm_e136f
ld de, SFX_MOVE_PUZZLE_PIECE
.asm_e1372
call PlaySFX
ret
; e1376
Functione1376: ; e1376
ld a, [wcf64]
and a
jr nz, .asm_e139f
call Functione1475
and a
jr z, Functione13e4
ld de, SFX_MEGA_KICK
call PlaySFX
ld [hl], $0
ld [wcf66], a
call Functione14d9
call Functione1441
call WaitBGMap
call WaitSFX
ld a, $1
ld [wcf64], a
ret
.asm_e139f
call Functione1475
and a
jr nz, Functione13e4
ld de, SFX_PLACE_PUZZLE_PIECE_DOWN
call PlaySFX
ld a, [wcf66]
ld [hl], a
call Functione141f
call WaitBGMap
xor a
ld [wcf66], a
call Functione14d9
xor a
ld [wcf64], a
call WaitSFX
call Functione14a0
ret nc
call Functione128d
call ClearSprites
ld de, SFX_1ST_PLACE
call PlaySFX
call WaitSFX
call Functionaa5
ld a, $1
ld [wd0ec], a
Functione13de: ; e13de
ld hl, wcf63
set 7, [hl]
ret
Functione13e4: ; e13e4
ld de, SFX_WRONG
call PlaySFX
call WaitSFX
ret
; e13ee
Functione13ee: ; e13ee
ld de, SCREEN_WIDTH
.asm_e13f1
push bc
push hl
.asm_e13f3
ld [hli], a
dec c
jr nz, .asm_e13f3
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_e13f1
ret
; e13fe
Functione13fe: ; e13fe
xor a
ld [wcf65], a
ld c, $24
.asm_e1404
push bc
call Functione1475
ld [wcf66], a
and a
jr z, .asm_e1413
call Functione141f
jr .asm_e1416
.asm_e1413
call Functione1441
.asm_e1416
ld hl, wcf65
inc [hl]
pop bc
dec c
jr nz, .asm_e1404
ret
; e141f
Functione141f: ; e141f
ld a, $2
call Functione1463
ld a, [hli]
ld h, [hl]
ld l, a
push hl
call Functione1481
pop hl
ld de, SCREEN_WIDTH
ld b, $3
.asm_e1431
ld c, $3
push hl
.asm_e1434
ld [hli], a
inc a
dec c
jr nz, .asm_e1434
add $9
pop hl
add hl, de
dec b
jr nz, .asm_e1431
ret
; e1441
Functione1441: ; e1441
ld a, $2
call Functione1463
ld a, [hli]
ld h, [hl]
ld l, a
push hl
ld a, $4
call Functione1463
ld a, [hl]
pop hl
ld de, SCREEN_WIDTH
ld b, $3
.asm_e1456
ld c, $3
push hl
.asm_e1459
ld [hli], a
dec c
jr nz, .asm_e1459
pop hl
add hl, de
dec b
jr nz, .asm_e1456
ret
; e1463
Functione1463: ; e1463
ld e, a
ld d, 0
ld hl, Unknown_e1559
add hl, de
ld a, [wcf65]
ld e, a
rept 4
add hl, de
endr
rept 2
add hl, de
endr
ret
; e1475
Functione1475: ; e1475
ld hl, wc6d0
ld a, [wcf65]
ld e, a
ld d, $0
add hl, de
ld a, [hl]
ret
; e1481
Functione1481: ; e1481
ld a, [wcf66]
ld hl, Unknown_e148f
add l
ld l, a
ld a, $0
adc h
ld h, a
ld a, [hl]
ret
; e148f
Unknown_e148f: ; e148f
db $e0
db $00, $03, $06, $09
db $24, $27, $2a, $2d
db $48, $4b, $4e, $51
db $6c, $6f, $72, $75
; e14a0
Functione14a0: ; e14a0
ld hl, Unknown_e14b5
ld de, wc6d0
ld c, $24
.asm_e14a8
ld a, [de]
cp [hl]
jr nz, .asm_e14b3
inc de
inc hl
dec c
jr nz, .asm_e14a8
scf
ret
.asm_e14b3
and a
ret
; e14b5
Unknown_e14b5: ; e14b5
db $00, $00, $00, $00, $00, $00
db $00, $01, $02, $03, $04, $00
db $00, $05, $06, $07, $08, $00
db $00, $09, $0a, $0b, $0c, $00
db $00, $0d, $0e, $0f, $10, $00
db $00, $00, $00, $00, $00, $00
; e14d9
Functione14d9: ; e14d9
call Functione1481
ld [DefaultFlypoint], a
xor a
call Functione1463
ld a, [hli]
ld b, [hl]
ld c, a
ld a, [DefaultFlypoint]
cp $e0
jr z, .asm_e14f2
ld hl, Unknown_e150f
jr .asm_e14f5
.asm_e14f2
ld hl, Unknown_e1534
.asm_e14f5
ld de, Sprites
.asm_e14f8
ld a, [hli]
cp $ff
ret z
add b
ld [de], a
inc de
ld a, [hli]
add c
ld [de], a
inc de
ld a, [DefaultFlypoint]
add [hl]
ld [de], a
inc hl
inc de
ld a, [hli]
ld [de], a
inc de
jr .asm_e14f8
; e150f
Unknown_e150f: ; e150f
db $f4, $f4, $00, $00
db $f4, $fc, $01, $00
db $f4, $04, $02, $00
db $fc, $f4, $0c, $00
db $fc, $fc, $0d, $00
db $fc, $04, $0e, $00
db $04, $f4, $18, $00
db $04, $fc, $19, $00
db $04, $04, $1a, $00
db $ff
Unknown_e1534: ; e1534
db $f4, $f4, $00, $00
db $f4, $fc, $01, $00
db $f4, $04, $00, $20
db $fc, $f4, $02, $00
db $fc, $fc, $03, $00
db $fc, $04, $02, $20
db $04, $f4, $00, $40
db $04, $fc, $01, $40
db $04, $04, $00, $60
db $ff
Unknown_e1559: ; e1559
macro_e1559: macro
db \1, \2
dwcoord \3, \4
db \5, \6
endm
macro_e1559 $1c, $1c, 1, 0, $ee, $00
macro_e1559 $34, $1c, 4, 0, $ee, $00
macro_e1559 $4c, $1c, 7, 0, $ee, $00
macro_e1559 $64, $1c, 10, 0, $ee, $00
macro_e1559 $7c, $1c, 13, 0, $ee, $00
macro_e1559 $94, $1c, 16, 0, $ee, $00
macro_e1559 $1c, $34, 1, 3, $ee, $00
macro_e1559 $34, $34, 4, 3, $ef, $00
macro_e1559 $4c, $34, 7, 3, $ef, $00
macro_e1559 $64, $34, 10, 3, $ef, $00
macro_e1559 $7c, $34, 13, 3, $ef, $00
macro_e1559 $94, $34, 16, 3, $ee, $00
macro_e1559 $1c, $4c, 1, 6, $ee, $00
macro_e1559 $34, $4c, 4, 6, $ef, $00
macro_e1559 $4c, $4c, 7, 6, $ef, $00
macro_e1559 $64, $4c, 10, 6, $ef, $00
macro_e1559 $7c, $4c, 13, 6, $ef, $00
macro_e1559 $94, $4c, 16, 6, $ee, $00
macro_e1559 $1c, $64, 1, 9, $ee, $00
macro_e1559 $34, $64, 4, 9, $ef, $00
macro_e1559 $4c, $64, 7, 9, $ef, $00
macro_e1559 $64, $64, 10, 9, $ef, $00
macro_e1559 $7c, $64, 13, 9, $ef, $00
macro_e1559 $94, $64, 16, 9, $ee, $00
macro_e1559 $1c, $7c, 1, 12, $ee, $00
macro_e1559 $34, $7c, 4, 12, $ef, $00
macro_e1559 $4c, $7c, 7, 12, $ef, $00
macro_e1559 $64, $7c, 10, 12, $ef, $00
macro_e1559 $7c, $7c, 13, 12, $ef, $00
macro_e1559 $94, $7c, 16, 12, $ee, $00
macro_e1559 $1c, $94, 1, 15, $ee, $00
macro_e1559 $34, $94, 4, 15, $ee, $00
macro_e1559 $4c, $94, 7, 15, $ee, $00
macro_e1559 $64, $94, 10, 15, $ee, $00
macro_e1559 $7c, $94, 13, 15, $ee, $00
macro_e1559 $94, $94, 16, 15, $ee, $00
Functione1631: ; e1631
ld hl, VTiles2
ld de, VTiles0
ld b, $6
.asm_e1639
push bc
push hl
push hl
call Functione1654
pop hl
ld bc, $0008
add hl, bc
call Functione1654
pop hl
ld bc, $0060
add hl, bc
pop bc
dec b
jr nz, .asm_e1639
call Functione16c7
ret
; e1654
Functione1654: ; e1654
ld c, $6
.asm_e1656
push bc
push hl
push hl
ld c, $4
.asm_e165b
push bc
ld a, [hli]
and $f0
swap a
call Functione16aa
ld c, a
ld a, [hli]
and $f0
swap a
call Functione16aa
ld b, a
ld a, c
ld [de], a
inc de
ld a, b
ld [de], a
inc de
ld a, c
ld [de], a
inc de
ld a, b
ld [de], a
inc de
pop bc
dec c
jr nz, .asm_e165b
pop hl
ld c, $4
.asm_e1681
push bc
ld a, [hli]
and $f
call Functione16aa
ld c, a
ld a, [hli]
and $f
call Functione16aa
ld b, a
ld a, c
ld [de], a
inc de
ld a, b
ld [de], a
inc de
ld a, c
ld [de], a
inc de
ld a, b
ld [de], a
inc de
pop bc
dec c
jr nz, .asm_e1681
pop hl
ld bc, $0010
add hl, bc
pop bc
dec c
jr nz, .asm_e1656
ret
; e16aa
Functione16aa: ; e16aa
push hl
ld hl, Unknown_e16b7
add l
ld l, a
ld a, 0
adc h
ld h, a
ld a, [hl]
pop hl
ret
; e16b7
Unknown_e16b7: ; e16b7
db $00, $03, $0c, $0f
db $30, $33, $3c, $3f
db $c0, $c3, $cc, $cf
db $f0, $f3, $fc, $ff
; e16c7
Functione16c7: ; e16c7
ld hl, Unknown_e1703
ld a, $8
.asm_e16cc
push af
push hl
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld h, [hl]
ld l, a
call Functione16e2
pop hl
rept 4
inc hl
endr
pop af
dec a
jr nz, .asm_e16cc
ret
; e16e2
Functione16e2: ; e16e2
lb bc, 4, 4
.asm_e16e5
push bc
.asm_e16e6
push de
push hl
ld b, $10
.asm_e16ea
ld a, [de]
or [hl]
ld [hli], a
inc de
dec b
jr nz, .asm_e16ea
pop hl
ld de, $0030
add hl, de
pop de
dec c
jr nz, .asm_e16e6
ld bc, $0180
add hl, bc
pop bc
dec b
jr nz, .asm_e16e5
ret
; e1703
Unknown_e1703: ; e1703
dw GFX_e1723 + $00, $8000
dw GFX_e1723 + $10, $8010
dw GFX_e1723 + $20, $8020
dw GFX_e1723 + $30, $80c0
dw GFX_e1723 + $40, $80e0
dw GFX_e1723 + $50, $8180
dw GFX_e1723 + $60, $8190
dw GFX_e1723 + $70, $81a0
; e1723
GFX_e1723: ; e1723
INCBIN "gfx/unknown/0e1723.2bpp"
Functione17a3: ; e17a3
ld a, [ScriptVar]
and 3
ld e, a
ld d, 0
ld hl, Unknown_e17bd
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, VTiles2
call Decompress
call Functione1631
ret
; e17bd
Unknown_e17bd: ; e17bd
dw LZ_e1bab
dw LZ_e1c9b
dw LZ_e19fb
dw LZ_e18ab
; e17c5
GFX_e17c5: ; e17c5
INCBIN "gfx/unknown/0e17c5.2bpp"
LZ_e1805: ; e1805
INCBIN "gfx/unknown/0e1805.2bpp.lz"
LZ_e18ab: ; e18ab
INCBIN "gfx/unknown/0e18ab.2bpp.lz"
LZ_e19fb: ; e19fb
INCBIN "gfx/unknown/0e19fb.2bpp.lz"
LZ_e1bab: ; e1bab
INCBIN "gfx/unknown/0e1bab.2bpp.lz"
LZ_e1c9b: ; e1c9b
INCBIN "gfx/unknown/0e1c9b.2bpp.lz"
_DummyGame: ; e1e5b (38:5e5b)
call Functione1e67
call DelayFrame
.asm_e1e61
call Functione1ebb
jr nc, .asm_e1e61
ret
Functione1e67: ; e1e67 (38:5e67)
call DisableLCD
ld b, $8
call GetSGBLayout
callab Function8cf53
ld hl, LZ_e2221
ld de, $9000
call Decompress
ld hl, Unknown_e00ed
ld de, $8000
ld bc, $40
ld a, BANK(Unknown_e00ed)
call FarCopyBytes
ld a, $8
ld hl, wc300
ld [hli], a
ld [hl], $0
hlcoord 0, 0
ld bc, $168
xor a
call ByteFill
xor a
ld [hSCY], a ; $ff00+$d0
ld [hSCX], a ; $ff00+$cf
ld [rWY], a ; $ff00+$4a
ld [wcf63], a
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ld a, $e3
ld [rLCDC], a ; $ff00+$40
ld a, $e4
call DmgToCgbBGPals
ld a, $e0
call Functioncf8
ret
Functione1ebb: ; e1ebb (38:5ebb)
ld a, [wcf63]
bit 7, a
jr nz, .asm_e1ed0
call Functione1ed2
callab Function8cf69
call DelayFrame
and a
ret
.asm_e1ed0
scf
ret
Functione1ed2: ; e1ed2 (38:5ed2)
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_e1ee1
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e1ee1 (38:5ee1)
Jumptable_e1ee1: ; e1ee1
dw Functione1ef3
dw Functione1efb
dw Functione1f1c
dw Functione1f42
dw Functione1f61
dw Functione1f8b
dw Functione1fba
dw Functione1fcc
dw Functione2000
; e1ef3
Functione1ef3: ; e1ef3
call Functione2152
ld hl, wcf63
inc [hl]
ret
; e1efb
Functione1efb: ; e1efb
call Functione00ed
jr nc, .asm_e1f06
ld hl, wcf63
set 7, [hl]
ret
.asm_e1f06
call Functione209d
ld hl, wcf63
inc [hl]
xor a
ld [wc708], a
ld hl, wc703
rept 4
ld [hli], a
endr
ld [hl], a
ld [wc709], a
Functione1f1c: ; e1f1c
ld hl, wc708
ld a, [hl]
cp $2d
jr nc, .asm_e1f30
inc [hl]
call Functione2183
xor a
ld [wc6fd], a
call Functione2128
ret
.asm_e1f30
ld de, $341c
ld a, $c
call Function3b2a
ld a, $5
ld [wc702], a
ld hl, wcf63
inc [hl]
ret
; e1f42
Functione1f42: ; e1f42
ld a, [wc702]
hlcoord 17, 0
add $f6
ld [hl], a
ld hl, wc702
ld a, [hl]
and a
jr nz, .asm_e1f58
ld a, $7
ld [wcf63], a
ret
.asm_e1f58
dec [hl]
xor a
ld [wcf64], a
ld hl, wcf63
inc [hl]
Functione1f61: ; e1f61
ld a, [wcf64]
and a
ret z
dec a
ld e, a
ld d, $0
ld hl, wc6d0
add hl, de
ld a, [hl]
cp $ff
ret z
ld [wc6fd], a
ld [wc6fe], a
ld a, e
ld [EnemyScreens], a
call Functione2183
call Functione2128
xor a
ld [wcf64], a
ld hl, wcf63
inc [hl]
ret
; e1f8b
Functione1f8b: ; e1f8b
ld a, [wcf64]
and a
ret z
dec a
ld hl, EnemyScreens
cp [hl]
ret z
ld e, a
ld d, $0
ld hl, wc6d0
add hl, de
ld a, [hl]
cp $ff
ret z
ld [wc6fd], a
ld [PlayerScreens], a
ld a, e
ld [wc701], a
call Functione2183
call Functione2128
ld a, $40
ld [wc708], a
ld hl, wcf63
inc [hl]
Functione1fba: ; e1fba
ld hl, wc708
ld a, [hl]
and a
jr z, .asm_e1fc3
dec [hl]
ret
.asm_e1fc3
call Functione2010
ld a, $3
ld [wcf63], a
ret
; e1fcc
Functione1fcc: ; e1fcc
ld a, [hJoypadPressed]
and A_BUTTON
ret z
xor a
ld [wc708], a
.asm_e1fd5
ld hl, wc708
ld a, [hl]
cp $2d
jr nc, .asm_e1ff9
inc [hl]
push af
call Functione2183
pop af
push hl
ld e, a
ld d, $0
ld hl, wc6d0
add hl, de
ld a, [hl]
pop hl
cp $ff
jr z, .asm_e1fd5
ld [wc6fd], a
call Functione2128
jr .asm_e1fd5
.asm_e1ff9
call Functiona80
ld hl, wcf63
inc [hl]
Functione2000: ; e2000
call Functione00ed
jr nc, .asm_e200b
ld hl, wcf63
set 7, [hl]
ret
.asm_e200b
xor a
ld [wcf63], a
ret
; e2010
Functione2010: ; e2010
ld hl, wc6fe
ld a, [hli]
cp [hl]
jr nz, .asm_e2066
ld a, [EnemyScreens]
call Functione2183
call Functione2142
ld a, [wc701]
call Functione2183
call Functione2142
ld a, [EnemyScreens]
ld e, a
ld d, $0
ld hl, wc6d0
add hl, de
ld [hl], $ff
ld a, [wc701]
ld e, a
ld d, $0
ld hl, wc6d0
add hl, de
ld [hl], $ff
ld hl, wc703
.asm_e2044
ld a, [hli]
and a
jr nz, .asm_e2044
dec hl
ld a, [wc6fe]
ld [hl], a
ld [wc6fd], a
ld hl, wc709
ld e, [hl]
rept 2
inc [hl]
endr
ld d, $0
hlcoord 5, 0
add hl, de
call Functione2128
ld hl, UnknownText_0xe2083
call PrintText
ret
.asm_e2066
xor a
ld [wc6fd], a
ld a, [EnemyScreens]
call Functione2183
call Functione2128
ld a, [wc701]
call Functione2183
call Functione2128
ld hl, UnknownText_0xe2098
call PrintText
ret
; e2083
UnknownText_0xe2083: ; 0xe2083
start_asm
; 0xe2084
Functione2084: ; e2084
push bc
hlcoord 2, 13
call Functione2128
ld hl, UnknownText_0xe2093
pop bc
rept 3
inc bc
endr
ret
; e2093
UnknownText_0xe2093: ; 0xe2093
; , yeah!
text_jump UnknownText_0x1c1a5b
db "@"
; 0xe2098
UnknownText_0xe2098: ; 0xe2098
; Darn…
text_jump UnknownText_0x1c1a65
db "@"
; 0xe209d
Functione209d: ; e209d
ld hl, wc6d0
ld bc, $002d
xor a
call ByteFill
call Functione2101
ld c, $2
ld b, [hl]
call Functione20e5
ld c, $8
ld b, [hl]
call Functione20e5
ld c, $4
ld b, [hl]
call Functione20e5
ld c, $7
ld b, [hl]
call Functione20e5
ld c, $3
ld b, [hl]
call Functione20e5
ld c, $6
ld b, [hl]
call Functione20e5
ld c, $1
ld b, [hl]
call Functione20e5
ld c, $5
ld hl, wc6d0
ld b, $2d
.asm_e20db
ld a, [hl]
and a
jr nz, .asm_e20e0
ld [hl], c
.asm_e20e0
inc hl
dec b
jr nz, .asm_e20db
ret
; e20e5
Functione20e5: ; e20e5
push hl
ld de, wc6d0
.asm_e20e9
call Random
and $3f
cp $2d
jr nc, .asm_e20e9
ld l, a
ld h, $0
add hl, de
ld a, [hl]
and a
jr nz, .asm_e20e9
ld [hl], c
dec b
jr nz, .asm_e20e9
pop hl
inc hl
ret
; e2101
Functione2101: ; e2101
ld a, [wcfa9]
dec a
ld l, a
ld h, 0
rept 3
add hl, hl
endr
ld de, Unknown_e2110
add hl, de
ret
; e2110
Unknown_e2110: ; e2110
db $02, $03, $06, $06, $06, $08, $08, $06
db $02, $02, $04, $06, $06, $08, $08, $09
db $02, $02, $02, $04, $07, $08, $08, $0c
; e2128
Functione2128: ; e2128
ld a, [wc6fd]
sla a
sla a
add $4
ld [hli], a
inc a
ld [hld], a
inc a
ld bc, SCREEN_WIDTH
add hl, bc
ld [hli], a
inc a
ld [hl], a
ld c, $3
call DelayFrames
ret
; e2142
Functione2142: ; e2142
ld a, $1
ld [hli], a
ld [hld], a
ld bc, SCREEN_WIDTH
add hl, bc
ld [hli], a
ld [hl], a
ld c, $3
call DelayFrames
ret
; e2152
Functione2152: ; e2152
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $1
call ByteFill
hlcoord 0, 0
ld de, String_e2177
call PlaceString
hlcoord 15, 0
ld de, String_e217d
call PlaceString
ld hl, UnknownText_0xe2176
call PrintText
ret
; e2176
UnknownText_0xe2176: ; 0xe2176
db "@"
; 0xe2177
String_e2177: db "とったもの@"
String_e217d: db "あと かい@"
; e2183
Functione2183: ; e2183
ld d, $0
.asm_e2185
sub $9
jr c, .asm_e218c
inc d
jr .asm_e2185
.asm_e218c
add $9
ld e, a
hlcoord 1, 2
ld bc, $0028
.asm_e2195
ld a, d
and a
jr z, .asm_e219d
add hl, bc
dec d
jr .asm_e2195
.asm_e219d
sla e
add hl, de
ret
; e21a1
Functione21a1: ; e21a1 (38:61a1)
ld a, [wcf63]
cp $7
jr nc, .asm_e21c8
call Functiona57
ld hl, hJoypadPressed ; $ffa3
ld a, [hl]
and A_BUTTON
jr nz, .asm_e21cf
ld a, [hl]
and D_LEFT
jr nz, .asm_e21d9
ld a, [hl]
and D_RIGHT
jr nz, .asm_e21e9
ld a, [hl]
and D_UP
jr nz, .asm_e21fa
ld a, [hl]
and D_DOWN
jr nz, .asm_e220d
ret
.asm_e21c8
ld hl, $0
add hl, bc
ld [hl], $0
ret
.asm_e21cf
ld hl, $c
add hl, bc
ld a, [hl]
inc a
ld [wcf64], a
ret
.asm_e21d9
ld hl, $6
add hl, bc
ld a, [hl]
and a
ret z
sub $10
ld [hl], a
ld hl, $c
add hl, bc
dec [hl]
ret
.asm_e21e9
ld hl, $6
add hl, bc
ld a, [hl]
cp $80
ret z
add $10
ld [hl], a
ld hl, $c
add hl, bc
inc [hl]
ret
.asm_e21fa
ld hl, $7
add hl, bc
ld a, [hl]
and a
ret z
sub $10
ld [hl], a
ld hl, $c
add hl, bc
ld a, [hl]
sub $9
ld [hl], a
ret
.asm_e220d
ld hl, $7
add hl, bc
ld a, [hl]
cp $40
ret z
add $10
ld [hl], a
ld hl, $c
add hl, bc
ld a, [hl]
add $9
ld [hl], a
ret
; e2221 (38:6221)
LZ_e2221: ; e2221
INCBIN "gfx/unknown/0e2221.2bpp.lz"
Functione2391: ; e2391 (38:6391)
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
ld a, [VramState]
push af
xor a
ld [VramState], a
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
xor a
ld [$ffde], a
call Functione2963
xor a
ld [wcb2e], a
call DelayFrame
.asm_e23b4
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_e23c6
call Functione23d5
call DelayFrame
jr .asm_e23b4
.asm_e23c6
call ClearSprites
pop af
ld [$ffaa], a
pop af
ld [VramState], a
pop af
ld [Options], a
ret
Functione23d5: ; e23d5 (38:63d5)
ld a, [wcf63]
ld hl, Jumptable_e23df
call Functione33df
jp [hl]
Jumptable_e23df: ; e23df (38:63df)
dw Functione23e9
dw Functione241a
dw Functione245d
dw Functione247d
dw Functione2992
Functione23e9: ; e23e9 (38:63e9)
xor a
ld [hBGMapMode], a ; $ff00+$d4
call ClearSprites
call Functione2d30
call Functione2a8e
ld de, String_e34dd
call Functione2a6e
ld a, $5
ld [wcb2d], a
call Functione2c2c
call PCMonInfo
ld a, $ff
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
call WaitBGMap
call Functione2e01
call Functione298d
ret
Functione241a: ; e241a (38:641a)
ld hl, hJoyPressed ; $ffa7
ld a, [hl]
and B_BUTTON
jr nz, .asm_e2457
ld a, [hl]
and A_BUTTON
jr nz, .asm_e2443
call Functione29b5
and a
ret z
call Functione2e01
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Functione2c2c
call PCMonInfo
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
ret
.asm_e2443
call Functione2def
and a
ret z
cp $ff
jr z, .asm_e2457
ld a, $2
ld [wcf63], a
ret
; e2452 (38:6452)
.asm_e2452
ld hl, wcf63
dec [hl]
ret
.asm_e2457
ld a, $4
ld [wcf63], a
ret
Functione245d: ; e245d (38:645d)
xor a
ld [hBGMapMode], a ; $ff00+$d4
call ClearSprites
call Functione2def
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
ld de, String_e34ea
call Functione2a6e
ld a, $1
ld [wcfa9], a
call Functione298d
ret
Functione247d: ; e247d (38:647d)
ld hl, BillsPCDepositMenuDataHeader
call CopyMenuDataHeader
ld a, [wcfa9]
call Function1d4b
call InterpretMenu2
jp c, BillsPCDepositFuncCancel
ld a, [wcfa9]
dec a
and $3
ld e, a
ld d, 0
ld hl, BillsPCDepositJumptable
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
BillsPCDepositJumptable: ; e24a1 (38:64a1)
dw BillsPCDepositFuncDeposit ; Deposit Pokemon
dw BillsPCDepositFuncStats ; Pokemon Stats
dw BillsPCDepositFuncRelease ; Release Pokemon
dw BillsPCDepositFuncCancel ; Cancel
BillsPCDepositFuncDeposit: ; e24a9 (38:64a9)
call Functione2f18
jp c, BillsPCDepositFuncCancel
call Functione307c
jr c, .asm_e24c1
ld a, $0
ld [wcf63], a
xor a
ld [wcb2b], a
ld [wcb2a], a
ret
.asm_e24c1
ld de, String_e34ea
call Functione2a6e
ret
BillsPCDepositFuncStats: ; e24c8 (38:64c8)
call Function1d6e
call Functione2f7e
call ExitMenu
call PCMonInfo
call Functione2def
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
ret
BillsPCDepositFuncRelease: ; e24e0 (38:64e0)
call Functione2f18
jr c, BillsPCDepositFuncCancel
call Functione2f5f
jr c, BillsPCDepositFuncCancel
ld a, [wcfa9]
push af
ld de, String_e34f4
call Functione2a6e
call Function1d6e
lb bc, 14, 11
call PlaceYesNoBox
ld a, [wcfa9]
dec a
call ExitMenu
and a
jr nz, .asm_e252c
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
xor a
ld [wd10b], a
callba Functione039
call Functione3180
ld a, $0
ld [wcf63], a
xor a
ld [wcb2b], a
ld [wcb2a], a
pop af
ret
.asm_e252c
ld de, String_e34ea
call Functione2a6e
pop af
ld [wcfa9], a
ret
BillsPCDepositFuncCancel: ; e2537 (38:6537)
ld a, $0
ld [wcf63], a
ret
; e253d (38:653d)
BillsPCDepositMenuDataHeader: ; 0xe253d (38:653d)
db $40 ; flags
db 04, 09 ; start coords
db 13, 19 ; end coords
dw BillsPCDepositMenuData
db 1 ; default option
; 0xe2545
BillsPCDepositMenuData: ; 0xe2545 (38:6545)
db $80 ; flags
db 4 ; items
db "DEPOSIT@"
db "STATS@"
db "RELEASE@"
db "CANCEL@"
; 0xe2564 (38:6564)
Functione2564: ; e2564
hlcoord 0, 0
ld b, $4
ld c, $8
call ClearBox
hlcoord 0, 4
ld b, $a
ld c, $9
call ClearBox
hlcoord 0, 14
ld b, $2
ld c, $8
call ClearBox
ret
; e2583
Functione2583: ; e2583 (38:6583)
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
ld a, [VramState]
push af
xor a
ld [VramState], a
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
xor a
ld [$ffde], a
call Functione2963
ld a, $f
ld [wcb2e], a
call DelayFrame
.asm_e25a7
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_e25b9
call Functione25c8
call DelayFrame
jr .asm_e25a7
.asm_e25b9
call ClearSprites
pop af
ld [$ffaa], a
pop af
ld [VramState], a
pop af
ld [Options], a
ret
Functione25c8: ; e25c8 (38:65c8)
ld a, [wcf63]
ld hl, Jumptable_e25d2
call Functione33df
jp [hl]
Jumptable_e25d2: ; e25d2 (38:65d2)
dw Functione25dc
dw Functione2612
dw Functione2655
dw Functione2675
dw Functione2992
Functione25dc: ; e25dc (38:65dc)
ld a, $f
ld [wcb2e], a
xor a
ld [hBGMapMode], a ; $ff00+$d4
call ClearSprites
call Functione2d30
call Functione2a8e
ld de, String_e34dd
call Functione2a6e
ld a, $5
ld [wcb2d], a
call Functione2c2c
call PCMonInfo
ld a, $ff
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
call WaitBGMap
call Functione2e01
call Functione298d
ret
Functione2612: ; e2612 (38:6612)
ld hl, hJoyPressed ; $ffa7
ld a, [hl]
and B_BUTTON
jr nz, .asm_e264f
ld a, [hl]
and A_BUTTON
jr nz, .asm_e263b
call Functione29b5
and a
ret z
call Functione2e01
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Functione2c2c
call PCMonInfo
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
ret
.asm_e263b
call Functione2def
and a
ret z
cp $ff
jr z, .asm_e264f
ld a, $2
ld [wcf63], a
ret
; e264a (38:664a)
.asm_e264a
ld hl, wcf63
dec [hl]
ret
.asm_e264f
ld a, $4
ld [wcf63], a
ret
; e2655
Functione2655: ; e2655 (38:6655)
xor a
ld [hBGMapMode], a ; $ff00+$d4
call ClearSprites
call Functione2def
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
ld de, String_e34ea
call Functione2a6e
ld a, $1
ld [wcfa9], a
call Functione298d
ret
Functione2675: ; e2675 (38:6675)
ld hl, BillsPCWithdrawMenuDataHeader
call CopyMenuDataHeader
ld a, [wcfa9]
call Function1d4b
call InterpretMenu2
jp c, BillsPCWithdrawFuncCancel
ld a, [wcfa9]
dec a
and 3
ld e, a
ld d, 0
ld hl, BillsPCWithdrawJumptable
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
BillsPCWithdrawJumptable: ; e2699 (38:6699) #mark
dw BillsPCWithdrawFuncWithdraw ; Withdraw
dw BillsPCWithdrawFuncStats ; Stats
dw BillsPCWithdrawFuncRelease ; Release
dw BillsPCWithdrawFuncCancel ; Cancel
BillsPCWithdrawFuncWithdraw: ; e26a1 (38:66a1)
call Functione2f18
jp c, BillsPCWithdrawFuncCancel
call Functione30fa
jr c, .asm_e26b9
ld a, $0
ld [wcf63], a
xor a
ld [wcb2b], a
ld [wcb2a], a
ret
.asm_e26b9
ld de, String_e34ea
call Functione2a6e
ret
BillsPCWithdrawFuncStats: ; e26c0 (38:66c0)
call Function1d6e
call Functione2f7e
call ExitMenu
call PCMonInfo
call Functione2def
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
ret
BillsPCWithdrawFuncRelease: ; e26d8 (38:66d8)
ld a, [wcfa9]
push af
call Functione2f5f
jr c, .asm_e2720
ld de, String_e34f4
call Functione2a6e
call Function1d6e
lb bc, 14, 11
call PlaceYesNoBox
ld a, [wcfa9]
dec a
call ExitMenu
and a
jr nz, .asm_e2720
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
ld a, $1
ld [wd10b], a
callba Functione039
call Functione3180
ld a, $0
ld [wcf63], a
xor a
ld [wcb2b], a
ld [wcb2a], a
pop af
ret
.asm_e2720
ld de, String_e34ea
call Functione2a6e
pop af
ld [wcfa9], a
ret
BillsPCWithdrawFuncCancel: ; e272b (38:672b)
ld a, $0
ld [wcf63], a
ret
; e2731 (38:6731)
BillsPCWithdrawMenuDataHeader: ; 0xe2731
db $40 ; flags
db 04, 09 ; start coords
db 13, 19 ; end coords
dw BillsPCWithdrawMenuData
db 1 ; default option
; 0xe2739
BillsPCWithdrawMenuData: ; 0xe2739
db $80 ; flags
db 4 ; items
db "WITHDRAW@"
db "STATS@"
db "RELEASE@"
db "CANCEL@"
; 0xe2759
Functione2759: ; e2759
ld hl, Options
ld a, [hl]
push af
set 4, [hl]
ld a, [VramState]
push af
xor a
ld [VramState], a
ld a, [$ffaa]
push af
ld a, $1
ld [$ffaa], a
xor a
ld [$ffde], a
call Functione2963
ld a, [wCurBox]
and $f
inc a
ld [wcb2e], a
call DelayFrame
.asm_e2781
call Functiona57
ld a, [wcf63]
bit 7, a
jr nz, .asm_e2793
call Functione27a2
call DelayFrame
jr .asm_e2781
.asm_e2793
call ClearSprites
pop af
ld [$ffaa], a
pop af
ld [VramState], a
pop af
ld [Options], a
ret
; e27a2
Functione27a2: ; e27a2
ld a, [wcf63]
ld hl, Jumptable_e27ac
call Functione33df
jp [hl]
; e27ac
Jumptable_e27ac: ; e27ac
dw Functione27ba
dw Functione27eb
dw Functione283d
dw Functione285d
dw Functione28df
dw Functione2903
dw Functione2992
; e27ba
Functione27ba: ; e27ba
xor a
ld [hBGMapMode], a
call ClearSprites
call Functione2d30
ld de, String_e34dd
call Functione2a6e
ld a, $5
ld [wcb2d], a
call Functione2c2c
call Functione2a80
call PCMonInfo
ld a, $ff
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
call WaitBGMap
call Functione2e01
call Functione298d
ret
; e27eb
Functione27eb: ; e27eb
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .asm_e2837
ld a, [hl]
and A_BUTTON
jr nz, .asm_e2823
call Functione29d0
jr c, .asm_e2816
and a
ret z
call Functione2e01
xor a
ld [hBGMapMode], a
call Functione2c2c
call PCMonInfo
ld a, $1
ld [hBGMapMode], a
call DelayFrame
call DelayFrame
ret
.asm_e2816
xor a
ld [wcb2b], a
ld [wcb2a], a
ld a, $0
ld [wcf63], a
ret
.asm_e2823
call Functione2def
and a
ret z
cp $ff
jr z, .asm_e2837
ld a, $2
ld [wcf63], a
ret
ld hl, wcf63
dec [hl]
ret
.asm_e2837
ld a, $6
ld [wcf63], a
ret
; e283d
Functione283d: ; e283d
xor a
ld [hBGMapMode], a
call ClearSprites
call Functione2def
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
ld de, String_e34ea
call Functione2a6e
ld a, $1
ld [wcfa9], a
call Functione298d
ret
; e285d
Functione285d: ; e285d
ld hl, MenuDataHeader_0xe28c3
call CopyMenuDataHeader
ld a, [wcfa9]
call Function1d4b
call InterpretMenu2
jp c, Functione28bd
ld a, [wcfa9]
dec a
and 3
ld e, a
ld d, 0
ld hl, Jumptable_e2881
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e2881
Jumptable_e2881: ; e2881
dw Functione2887
dw Functione28a5
dw Functione28bd
; e2887
Functione2887: ; e2887
call Functione2f18
jp c, Functione28bd
ld a, [wcb2a]
ld [wcb2f], a
ld a, [wcb2b]
ld [wcb30], a
ld a, [wcb2e]
ld [wcb31], a
ld a, $4
ld [wcf63], a
ret
; e28a5
Functione28a5: ; e28a5
call Function1d6e
call Functione2f7e
call ExitMenu
call PCMonInfo
call Functione2def
ld [CurPartySpecies], a
ld a, $17
call Functione33d0
ret
; e28bd
Functione28bd: ; e28bd
ld a, $0
ld [wcf63], a
ret
; e28c3
MenuDataHeader_0xe28c3: ; 0xe28c3
db $40 ; flags
db 04, 09 ; start coords
db 13, 19 ; end coords
dw MenuData2_0xe28cb
db 1 ; default option
; 0xe28cb
MenuData2_0xe28cb: ; 0xe28cb
db $80 ; flags
db 3 ; items
db "MOVE@"
db "STATS@"
db "CANCEL@"
; 0xe28df
Functione28df: ; e28df
xor a
ld [hBGMapMode], a
call Functione2d30
ld de, String_e3500
call Functione2a6e
ld a, $5
ld [wcb2d], a
call Functione2c2c
call Functione2a80
call ClearSprites
call Functione2e8c
call WaitBGMap
call Functione298d
ret
; e2903
Functione2903: ; e2903
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .asm_e294b
ld a, [hl]
and A_BUTTON
jr nz, .asm_e2938
call Functione29f4
jr c, .asm_e292b
and a
ret z
call Functione2e8c
xor a
ld [hBGMapMode], a
call Functione2c2c
ld a, $1
ld [hBGMapMode], a
call DelayFrame
call DelayFrame
ret
.asm_e292b
xor a
ld [wcb2b], a
ld [wcb2a], a
ld a, $4
ld [wcf63], a
ret
.asm_e2938
call Functione2ee5
jr c, .asm_e2946
call Functione31e7
ld a, $0
ld [wcf63], a
ret
.asm_e2946
ld hl, wcf63
dec [hl]
ret
.asm_e294b
ld a, [wcb2f]
ld [wcb2a], a
ld a, [wcb30]
ld [wcb2b], a
ld a, [wcb31]
ld [wcb2e], a
ld a, $0
ld [wcf63], a
ret
; e2963
Functione2963: ; e2963 (38:6963)
call WhiteBGMap
call ClearSprites
call ClearTileMap
call Functione33e8
ld hl, OverworldMap
ld bc, $338
xor a
call ByteFill
xor a
ld [wcf63], a
ld [wcf64], a
ld [wcf65], a
ld [wcf66], a
ld [wcb2b], a
ld [wcb2a], a
ret
Functione298d: ; e298d (38:698d)
ld hl, wcf63
inc [hl]
ret
Functione2992: ; e2992 (38:6992)
ld hl, wcf63
set 7, [hl]
ret
Functione2998: ; e2998 (38:6998)
ld a, [wcb2d]
ld d, a
ld a, [wcb2c]
and a
jr z, .asm_e29b2
dec a
cp $1
jr z, .asm_e29b2
ld e, a
ld a, [hl]
and D_UP
jr nz, Functione2a18
ld a, [hl]
and D_DOWN
jr nz, Functione2a2c
.asm_e29b2
jp Functione2a65
Functione29b5: ; e29b5 (38:69b5)
ld hl, $ffa9
ld a, [wcb2d]
ld d, a
ld a, [wcb2c]
ld e, a
and a
jr z, .asm_e29cd
ld a, [hl]
and D_UP
jr nz, Functione2a18
ld a, [hl]
and D_DOWN
jr nz, Functione2a2c
.asm_e29cd
jp Functione2a65
; e29d0 (38:69d0)
Functione29d0: ; e29d0
ld hl, $ffa9
ld a, [wcb2d]
ld d, a
ld a, [wcb2c]
ld e, a
and a
jr z, .asm_e29e8
ld a, [hl]
and D_UP
jr nz, Functione2a18
ld a, [hl]
and D_DOWN
jr nz, Functione2a2c
.asm_e29e8
ld a, [hl]
and D_LEFT
jr nz, Functione2a48
ld a, [hl]
and D_RIGHT
jr nz, Functione2a56
jr Functione2a65
Functione29f4: ; e29f4
ld hl, $ffa9
ld a, [wcb2d]
ld d, a
ld a, [wcb2c]
ld e, a
and a
jr z, .asm_e2a0c
ld a, [hl]
and D_UP
jr nz, Functione2a18
ld a, [hl]
and D_DOWN
jr nz, Functione2a2c
.asm_e2a0c
ld a, [hl]
and D_LEFT
jr nz, Functione2a48
ld a, [hl]
and D_RIGHT
jr nz, Functione2a56
jr Functione2a65
Functione2a18: ; e2a18 (38:6a18)
ld hl, wcb2b
ld a, [hl]
and a
jr z, .asm_e2a22
dec [hl]
jr Functione2a68
.asm_e2a22
ld hl, wcb2a
ld a, [hl]
and a
jr z, Functione2a65
dec [hl]
jr Functione2a68
Functione2a2c: ; e2a2c (38:6a2c)
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
inc a
cp e
jr nc, Functione2a65
ld hl, wcb2b
ld a, [hl]
inc a
cp d
jr nc, .asm_e2a42
inc [hl]
jr Functione2a68
.asm_e2a42
ld hl, wcb2a
inc [hl]
jr Functione2a68
; e2a48 (38:6a48)
Functione2a48: ; e2a48
ld hl, wcb2e
ld a, [hl]
and a
jr z, .asm_e2a52
dec [hl]
jr Functione2a6c
.asm_e2a52
ld [hl], $e
jr Functione2a6c
Functione2a56: ; e2a56
ld hl, wcb2e
ld a, [hl]
cp $e
jr z, .asm_e2a61
inc [hl]
jr Functione2a6c
.asm_e2a61
ld [hl], $0
jr Functione2a6c
Functione2a65: ; e2a65 (38:6a65)
xor a
and a
ret
Functione2a68: ; e2a68 (38:6a68)
ld a, $1
and a
ret
; e2a6c (38:6a6c)
Functione2a6c: ; e2a6c
scf
ret
; e2a6e
Functione2a6e: ; e2a6e (38:6a6e)
push de
hlcoord 0, 15
ld bc, $112
call TextBox
pop de
hlcoord 1, 16
call PlaceString
ret
; e2a80 (38:6a80)
Functione2a80: ; e2a80
call Functione2a8e
hlcoord 8, 1
ld [hl], $5f
hlcoord 19, 1
ld [hl], $5e
ret
; e2a8e
Functione2a8e: ; e2a8e (38:6a8e)
hlcoord 8, 0
lb bc, 1, 10
call TextBox
ld a, [wcb2e]
and a
jr z, .party
cp NUM_BOXES + 1
jr nz, .gotbox
ld a, [wCurBox]
inc a
.gotbox
dec a
ld hl, wBoxNames
ld bc, 9
call AddNTimes
ld e, l
ld d, h
jr .print
.party
ld de, String_e2abd
.print
hlcoord 10, 1
call PlaceString
ret
; e2abd (38:6abd)
String_e2abd:
db "PARTY ", $e1, $e2, "@"
; e2ac6
PCMonInfo: ; e2ac6 (38:6ac6)
; Display a monster's pic and
; attributes when highlighting
; it in a PC menu.
; Includes the neat cascading
; effect when showing the pic.
; Example: Species, level, gender,
; whether it's holding an item.
hlcoord 0, 0
lb bc, 15, 8
call ClearBox
hlcoord 8, 14
lb bc, 1, 3
call ClearBox
call Functione2def
and a
ret z
cp $ff
ret z
ld [wd265], a
hlcoord 1, 4
xor a
ld b, 7
.asm_e2ae9
ld c, 7
push af
push hl
.asm_e2aed
ld [hli], a
add 7
dec c
jr nz, .asm_e2aed
pop hl
ld de, 20
add hl, de
pop af
inc a
dec b
jr nz, .asm_e2ae9
call Functione2b6d
ld a, [wd265]
ld [CurPartySpecies], a
ld [CurSpecies], a
ld hl, TempMonDVs
predef GetUnownLetter
call GetBaseData
ld de, $9000
predef GetFrontpic
xor a
ld [wcb32], a
ld a, [CurPartySpecies]
ld [wd265], a
cp EGG
ret z
call GetBasePokemonName
hlcoord 1, 14
call PlaceString
hlcoord 1, 12
call PrintLevel
ld a, $3
ld [MonType], a
callba GetGender
jr c, .asm_e2b4f
ld a, "♂"
jr nz, .printgender
ld a, "♀"
.printgender
hlcoord 5, 12
ld [hl], a
.asm_e2b4f
ld a, [TempMonItem]
and a
ret z
ld d, a
callab ItemIsMail
jr c, .mail
ld a, $5d ; item icon
jr .printitem
.mail
ld a, $1
ld [wcb32], a
ld a, $5c ; mail icon
.printitem
hlcoord 7, 12
ld [hl], a
ret
Functione2b6d: ; e2b6d (38:6b6d)
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld e, a
ld d, $0
ld hl, wc801
rept 3
add hl, de
endr
ld a, [hl]
and a
jr z, .asm_e2bc6
cp $f
jr z, .asm_e2bf5
ld b, a
call Functione3396
ld a, b
call GetSRAMBank
push hl
ld bc, $35
add hl, bc
ld bc, $20
ld a, e
call AddNTimes
ld a, [hl]
ld [TempMonLevel], a
pop hl
push hl
ld bc, $17
add hl, bc
ld bc, $20
ld a, e
call AddNTimes
ld a, [hl]
ld [TempMonItem], a
pop hl
ld bc, $2b
add hl, bc
ld bc, $20
ld a, e
call AddNTimes
ld de, TempMonDVs
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
call CloseSRAM
ret
.asm_e2bc6
ld hl, PartyMon1Level
ld bc, $30
ld a, e
call AddNTimes
ld a, [hl]
ld [TempMonLevel], a
ld hl, PartyMon1Item
ld bc, $30
ld a, e
call AddNTimes
ld a, [hl]
ld [TempMonItem], a
ld hl, PartyMon1DVs
ld bc, $30
ld a, e
call AddNTimes
ld de, TempMonDVs
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
ret
.asm_e2bf5
ld a, $1
call GetSRAMBank
ld hl, $ad45
ld bc, $20
ld a, e
call AddNTimes
ld a, [hl]
ld [TempMonLevel], a
ld hl, $ad27
ld bc, $20
ld a, e
call AddNTimes
ld a, [hl]
ld [TempMonItem], a
ld hl, $ad3b
ld bc, $20
ld a, e
call AddNTimes
ld de, TempMonDVs
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
call CloseSRAM
ret
Functione2c2c: ; e2c2c (38:6c2c)
hlcoord 8, 2
lb bc, 10, 10
call TextBox
hlcoord 8, 2
ld [hl], "└"
hlcoord 19, 2
ld [hl], "┘"
ld a, [wcb2a]
ld e, a
ld d, 0
ld hl, OverworldMap
rept 3
add hl, de
endr
ld e, l
ld d, h
hlcoord 9, 4
ld a, [wcb2d]
.asm_e2c53
push af
push de
push hl
call Functione2c6e
pop hl
ld de, $28
add hl, de
pop de
rept 3
inc de
endr
pop af
dec a
jr nz, .asm_e2c53
ret
; e2c67 (38:6c67)
String_e2c67:
db "CANCEL@"
; e2c6e
Functione2c6e: ; e2c6e (38:6c6e)
ld a, [de]
and a
ret z
cp $ff
jr nz, .asm_e2c7c
ld de, String_e2c67
call PlaceString
ret
.asm_e2c7c
inc de
ld a, [de]
ld b, a
inc de
ld a, [de]
ld e, a
ld a, b
and a
jr z, .asm_e2cc8
cp $f
jr z, .asm_e2cf1
push hl
call Functione3396
ld a, b
call GetSRAMBank
push hl
ld bc, $16
add hl, bc
ld bc, $20
ld a, e
call AddNTimes
ld a, [hl]
pop hl
and a
jr z, .asm_e2cc2
ld bc, $372
add hl, bc
ld bc, $b
ld a, e
call AddNTimes
ld de, StringBuffer1
ld bc, $b
call CopyBytes
call CloseSRAM
pop hl
ld de, StringBuffer1
call PlaceString
ret
.asm_e2cc2
call CloseSRAM
pop hl
jr .asm_e2d23
.asm_e2cc8
push hl
ld hl, PartySpecies
ld d, $0
add hl, de
ld a, [hl]
and a
jr z, .asm_e2cee
ld hl, PartyMonNicknames
ld bc, $b
ld a, e
call AddNTimes
ld de, StringBuffer1
ld bc, $b
call CopyBytes
pop hl
ld de, StringBuffer1
call PlaceString
ret
.asm_e2cee
pop hl
jr .asm_e2d23
.asm_e2cf1
push hl
ld a, $1
call GetSRAMBank
ld hl, $ad11
ld d, $0
add hl, de
ld a, [hl]
and a
jr z, .asm_e2d1f
ld hl, $b082
ld bc, $b
ld a, e
call AddNTimes
ld de, StringBuffer1
ld bc, $b
call CopyBytes
call CloseSRAM
pop hl
ld de, StringBuffer1
call PlaceString
ret
.asm_e2d1f
call CloseSRAM
pop hl
.asm_e2d23
ld de, String_e2d2a
call PlaceString
ret
; e2d2a (38:6d2a)
String_e2d2a:
db "-----@"
; e2d30
Functione2d30: ; e2d30 (38:6d30)
xor a
ld hl, OverworldMap
ld bc, $5a
call ByteFill
ld de, OverworldMap
xor a
ld [wd003], a
ld [wd004], a
ld a, [wcb2e]
and a
jr z, .asm_e2d87
cp $f
jr z, .asm_e2db7
ld b, a
call Functione3396
ld a, b
call GetSRAMBank
inc hl
.asm_e2d57
ld a, [hl]
cp $ff
jr z, .asm_e2d79
and a
jr z, .asm_e2d79
ld [de], a
inc de
ld a, [wcb2e]
ld [de], a
inc de
ld a, [wd003]
ld [de], a
inc a
ld [wd003], a
inc de
inc hl
ld a, [wd004]
inc a
ld [wd004], a
jr .asm_e2d57
.asm_e2d79
call CloseSRAM
ld a, $ff
ld [de], a
ld a, [wd004]
inc a
ld [wcb2c], a
ret
.asm_e2d87
ld hl, PartySpecies
.asm_e2d8a
ld a, [hl]
cp $ff
jr z, .asm_e2dac
and a
jr z, .asm_e2dac
ld [de], a
inc de
ld a, [wcb2e]
ld [de], a
inc de
ld a, [wd003]
ld [de], a
inc a
ld [wd003], a
inc de
inc hl
ld a, [wd004]
inc a
ld [wd004], a
jr .asm_e2d8a
.asm_e2dac
ld a, $ff
ld [de], a
ld a, [wd004]
inc a
ld [wcb2c], a
ret
.asm_e2db7
ld a, $1
call GetSRAMBank
ld hl, $ad11
.asm_e2dbf
ld a, [hl]
cp $ff
jr z, .asm_e2de1
and a
jr z, .asm_e2de1
ld [de], a
inc de
ld a, [wcb2e]
ld [de], a
inc de
ld a, [wd003]
ld [de], a
inc a
ld [wd003], a
inc de
inc hl
ld a, [wd004]
inc a
ld [wd004], a
jr .asm_e2dbf
.asm_e2de1
call CloseSRAM
ld a, $ff
ld [de], a
ld a, [wd004]
inc a
ld [wcb2c], a
ret
Functione2def: ; e2def (38:6def)
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld e, a
ld d, $0
ld hl, OverworldMap
rept 3
add hl, de
endr
ld a, [hl]
ret
Functione2e01: ; e2e01 (38:6e01)
ld a, [wcb2c]
and a
jr nz, .asm_e2e0b
call ClearSprites
ret
.asm_e2e0b
ld hl, Unknown_e2e2b
ld de, Sprites
.asm_e2e11
ld a, [hl]
cp $ff
ret z
ld a, [wcb2b]
and $7
swap a
add [hl]
inc hl
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
jr .asm_e2e11
; e2e2b (38:6e2b)
Unknown_e2e2b: ; e2e2b
db $26, $50, $00, $00
db $26, $58, $00, $00
db $26, $60, $00, $00
db $26, $68, $00, $00
db $26, $70, $00, $00
db $26, $78, $00, $00
db $26, $80, $00, $00
db $26, $88, $00, $00
db $26, $90, $00, $00
db $26, $97, $00, $00
db $39, $50, $00, $40
db $39, $58, $00, $40
db $39, $60, $00, $40
db $39, $68, $00, $40
db $39, $70, $00, $40
db $39, $78, $00, $40
db $39, $80, $00, $40
db $39, $88, $00, $40
db $39, $90, $00, $40
db $39, $97, $00, $40
db $2e, $4e, $01, $00
db $31, $4e, $01, $40
db $2e, $99, $01, $20
db $31, $99, $01, $60
db $ff
; e2e8c
Functione2e8c: ; e2e8c
ld hl, Unknown_e2eac
ld de, Sprites
.asm_e2e92
ld a, [hl]
cp $ff
ret z
ld a, [wcb2b]
and $7
swap a
add [hl]
inc hl
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
jr .asm_e2e92
; e2eac
Unknown_e2eac: ; e2eac
db $27, $50, $06, $00
db $2b, $58, $00, $40
db $2b, $60, $00, $40
db $2b, $68, $00, $40
db $2b, $70, $00, $40
db $2b, $78, $00, $40
db $2b, $80, $00, $40
db $2b, $88, $00, $40
db $2b, $90, $00, $40
db $27, $98, $07, $00
db $ff
; e2ed5
Functione2ed5: ; e2ed5
.asm_e2ed5
push bc
push hl
.asm_e2ed7
ld [hli], a
dec c
jr nz, .asm_e2ed7
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .asm_e2ed5
ret
; e2ee5
Functione2ee5: ; e2ee5
ld hl, wcb2e
ld a, [wcb31]
cp [hl]
jr z, .asm_e2f00
ld a, [wcb2e]
and a
jr z, .asm_e2ef8
ld e, $15
jr .asm_e2efa
.asm_e2ef8
ld e, $7
.asm_e2efa
ld a, [wcb2c]
cp e
jr nc, .asm_e2f02
.asm_e2f00
and a
ret
.asm_e2f02
ld de, String_e3521
call Functione2a6e
ld de, SFX_WRONG
call WaitPlaySFX
call WaitSFX
ld c, 50
call DelayFrames
scf
ret
; e2f18
Functione2f18: ; e2f18 (38:6f18)
ld a, [wcb2e]
and a
jr nz, .asm_e2f3d
ld a, [wcb2c]
cp $3
jr c, .asm_e2f49
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
callba Functione538
jr c, .asm_e2f44
ld a, [wcb32]
and a
jr nz, .asm_e2f3f
.asm_e2f3d
and a
ret
.asm_e2f3f
ld de, String_e3544
jr .asm_e2f4c
.asm_e2f44
ld de, String_e3531
jr .asm_e2f4c
.asm_e2f49
ld de, String_e350f
.asm_e2f4c
call Functione2a6e
ld de, SFX_WRONG
call WaitPlaySFX
call WaitSFX
ld c, 50
call DelayFrames
scf
ret
Functione2f5f: ; e2f5f (38:6f5f)
ld a, [CurPartySpecies]
cp EGG
jr z, .asm_e2f68
and a
ret
.asm_e2f68
ld de, String_e3597
call Functione2a6e
ld de, SFX_WRONG
call WaitPlaySFX
call WaitSFX
ld c, 50
call DelayFrames
scf
ret
Functione2f7e: ; e2f7e (38:6f7e)
call LowVolume
call Functione2fd6
ld a, $3
ld [MonType], a
predef StatsScreenInit
call Functione33e8
call MaxVolume
ret
Functione2f95: ; e2f95 (38:6f95)
ld hl, hJoyPressed ; $ffa7
ld a, [hl]
and A_BUTTON | B_BUTTON | D_RIGHT + D_LEFT
ld [wcf73], a
jr nz, .asm_e2fd0
ld a, [hl]
and D_DOWN | D_UP
ld [wcf73], a
jr nz, .asm_e2faa
jr .asm_e2fd0
.asm_e2faa
call Functione2998
and a
jr z, .asm_e2fd1
call Functione2def
ld [wd265], a
call Functione2b6d
ld a, [wd265]
ld [CurPartySpecies], a
ld [CurSpecies], a
ld hl, TempMonDVs
predef GetUnownLetter
call GetBaseData
call Functione2fd6
.asm_e2fd0
ret
.asm_e2fd1
xor a
ld [wcf73], a
ret
Functione2fd6: ; e2fd6 (38:6fd6)
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
ld a, [wcb2e]
and a
jr z, .asm_e3020
cp $f
jr nz, .asm_e3048
ld a, $1
call GetSRAMBank
ld hl, $ad11
call Functione3357
ld hl, $b082
call Functione3363
ld hl, $afa6
call Functione3376
ld hl, $ad26
ld bc, $20
ld a, [CurPartyMon]
call AddNTimes
ld de, wd018
ld bc, $30
call CopyBytes
call CloseSRAM
callba Function5088b
ret
.asm_e3020
ld hl, PartySpecies
call Functione3357
ld hl, PartyMonNicknames
call Functione3363
ld hl, PartyMonOT ; wddff (aliases: PartyMonOT)
call Functione3376
ld hl, PartyMons ; wdcdf (aliases: PartyMon1, PartyMon1Species)
ld bc, $30
ld a, [CurPartyMon]
call AddNTimes
ld de, wd018
ld bc, $30
call CopyBytes
ret
.asm_e3048
ld b, a
call Functione3396
ld a, b
call GetSRAMBank
push hl
inc hl
call Functione3357
pop hl
push hl
ld bc, $372
add hl, bc
call Functione3363
pop hl
push hl
ld bc, $296
add hl, bc
call Functione3376
pop hl
ld bc, $16
add hl, bc
ld bc, $20
call Functione3389
call CloseSRAM
callba Function5088b
ret
Functione307c: ; e307c (38:707c)
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
ld hl, PartyMonNicknames
ld a, [CurPartyMon]
call GetNick
ld a, $1
ld [wd10b], a
predef Functiondb3f
jr c, .asm_e30e4
xor a
ld [wd10b], a
callba Functione039
ld a, [CurPartySpecies]
call PlayCry
hlcoord 0, 0
ld bc, $f08
call ClearBox
hlcoord 8, 14
ld bc, $103
call ClearBox
hlcoord 0, 15
ld bc, $112
call TextBox
call WaitBGMap
hlcoord 1, 16
ld de, String_e3563
call PlaceString
ld l, c
ld h, b
ld de, StringBuffer1
call PlaceString
ld a, "!"
ld [bc], a
ld c, 50
call DelayFrames
and a
ret
.asm_e30e4
ld de, String_e3575
call Functione2a6e
ld de, SFX_WRONG
call WaitPlaySFX
call WaitSFX
ld c, 50
call DelayFrames
scf
ret
Functione30fa: ; e30fa (38:70fa)
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
ld a, $1
call GetSRAMBank
ld a, [CurPartyMon]
ld hl, $b082
call GetNick
call CloseSRAM
xor a
ld [wd10b], a
predef Functiondb3f
jr c, .asm_e316a
ld a, $1
ld [wd10b], a
callba Functione039
ld a, [CurPartySpecies]
call PlayCry
hlcoord 0, 0
ld bc, $f08
call ClearBox
hlcoord 8, 14
ld bc, $103
call ClearBox
hlcoord 0, 15
ld bc, $112
call TextBox
call WaitBGMap
hlcoord 1, 16
ld de, String_e356b
call PlaceString
ld l, c
ld h, b
ld de, StringBuffer1
call PlaceString
ld a, $e7
ld [bc], a
ld c, 50
call DelayFrames
and a
ret
.asm_e316a
ld de, String_e3586
call Functione2a6e
ld de, SFX_WRONG
call WaitPlaySFX
call WaitSFX
ld c, 50
call DelayFrames
scf
ret
Functione3180: ; e3180 (38:7180)
hlcoord 0, 0
ld bc, $f08
call ClearBox
hlcoord 8, 14
ld bc, $103
call ClearBox
hlcoord 0, 15
ld bc, $112
call TextBox
call WaitBGMap
ld a, [CurPartySpecies]
call GetCryIndex
jr c, .asm_e31ab
ld e, c
ld d, b
call PlayCryHeader
.asm_e31ab
ld a, [CurPartySpecies]
ld [wd265], a
call GetPokemonName
hlcoord 1, 16
ld de, String_e3551
call PlaceString
ld c, 80
call DelayFrames
hlcoord 0, 15
ld bc, $112
call TextBox
hlcoord 1, 16
ld de, String_e355e
call PlaceString
ld l, c
ld h, b
inc hl
ld de, StringBuffer1
call PlaceString
ld l, c
ld h, b
ld [hl], $e7
ld c, 50
call DelayFrames
ret
; e31e7 (38:71e7)
Functione31e7: ; e31e7
push hl
push de
push bc
push af
hlcoord 0, 15
ld bc, $0112
call TextBox
hlcoord 1, 16
ld de, String_e3233
call PlaceString
ld c, 20
call DelayFrames
pop af
pop bc
pop de
pop hl
ld a, [wCurBox]
push af
ld bc, 0
ld a, [wcb31]
and a
jr nz, .asm_e3215
set 0, c
.asm_e3215
ld a, [wcb2e]
and a
jr nz, .asm_e321d
set 1, c
.asm_e321d
ld hl, Jumptable_e3245
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ld de, Functione322a
push de
jp [hl]
; e322a
Functione322a: ; e322a
pop af
ld e, a
callba Function14ad5
ret
; e3233
String_e3233:
db "Saving… Leave ON!@"
; e3245
Jumptable_e3245: ; e3245
dw Functione324d
dw Functione3267
dw Functione327d
dw Functione3284
; e324d
Functione324d: ; e324d
ld hl, wcb31
ld a, [wcb2e]
cp [hl]
jr z, .asm_e325d
call Functione32b0
call Functione32fa
ret
.asm_e325d
call Functione32b0
call Functione328e
call Functione32fa
ret
; e3267
Functione3267: ; e3267
call Functione3316
ld a, $1
ld [wc2cd], a
callba Function14b85
xor a
ld [wc2cd], a
call Functione32fa
ret
; e327d
Functione327d: ; e327d
call Functione32b0
call Functione3346
ret
; e3284
Functione3284: ; e3284
call Functione3316
call Functione328e
call Functione3346
ret
; e328e
Functione328e: ; e328e
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld e, a
ld a, [wcb30]
ld hl, wcb2f
add [hl]
cp e
ret nc
ld hl, wcb2b
ld a, [hl]
and a
jr z, .asm_e32a8
dec [hl]
ret
.asm_e32a8
ld hl, wcb2a
ld a, [hl]
and a
ret z
dec [hl]
ret
; e32b0
Functione32b0: ; e32b0
ld a, [wcb31]
dec a
ld e, a
callba Function14ac2
ld a, [wcb30]
ld hl, wcb2f
add [hl]
ld [CurPartyMon], a
ld a, $1
call GetSRAMBank
ld hl, sBoxSpecies
call Functione3357
ld hl, sBoxMonNicknames
call Functione3363
ld hl, sBoxMonOT
call Functione3376
ld hl, sBoxMons
ld bc, sBoxMon1End - sBoxMon1
call Functione3389
call CloseSRAM
callba Function5088b
ld a, $1
ld [wd10b], a
callba Functione039
ret
; e32fa
Functione32fa: ; e32fa
ld a, [wcb2e]
dec a
ld e, a
callba Function14ac2
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
callba Function51322
ret
; e3316
Functione3316: ; e3316
ld a, [wcb30]
ld hl, wcb2f
add [hl]
ld [CurPartyMon], a
ld hl, PartySpecies
call Functione3357
ld hl, PartyMonNicknames
call Functione3363
ld hl, PartyMonOT
call Functione3376
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
call Functione3389
xor a
ld [wd10b], a
callba Functione039
ret
; e3346
Functione3346: ; e3346
ld a, [wcb2b]
ld hl, wcb2a
add [hl]
ld [CurPartyMon], a
callba Function5138b
ret
; e3357
Functione3357: ; e3357 (38:7357)
ld a, [CurPartyMon]
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld [CurPartySpecies], a
ret
Functione3363: ; e3363 (38:7363)
ld bc, $b
ld a, [CurPartyMon]
call AddNTimes
ld de, DefaultFlypoint
ld bc, $b
call CopyBytes
ret
Functione3376: ; e3376 (38:7376)
ld bc, $b
ld a, [CurPartyMon]
call AddNTimes
ld de, wd00d
ld bc, $b
call CopyBytes
ret
Functione3389: ; e3389 (38:7389)
ld a, [CurPartyMon]
call AddNTimes
ld de, wd018
call CopyBytes
ret
Functione3396: ; e3396 (38:7396)
dec b
ld c, b
ld b, 0
ld hl, Unknown_e33a6
rept 3
add hl, bc
endr
ld a, [hli]
ld b, a
ld a, [hli]
ld h, [hl]
ld l, a
ret
; e33a6 (38:73a6)
Unknown_e33a6: ; e33a6
; bank, address
dbw $02, $a000
dbw $02, $a450
dbw $02, $a8a0
dbw $02, $acf0
dbw $02, $b140
dbw $02, $b590
dbw $02, $b9e0
dbw $03, $a000
dbw $03, $a450
dbw $03, $a8a0
dbw $03, $acf0
dbw $03, $b140
dbw $03, $b590
dbw $03, $b9e0
; e33d0
Functione33d0: ; e33d0 (38:73d0)
ld b, a
call GetSGBLayout
ld a, $e4
call DmgToCgbBGPals
ld a, $fc
call Functioncf8
ret
Functione33df: ; e33df (38:73df)
ld e, a
ld d, $0
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
ret
Functione33e8: ; e33e8 (38:73e8)
call DisableLCD
ld hl, $9000
ld bc, $310
xor a
call ByteFill
call Functione51
call Functione58
ld hl, PCMailGFX
ld de, $95c0
ld bc, $40
call CopyBytes
ld hl, PCSelectLZ
ld de, $8000
call Decompress
ld a, 6
call SkipMusic
call EnableLCD
ret
; e3419 (38:7419)
PCSelectLZ: INCBIN "gfx/pc.2bpp.lz"
PCMailGFX: INCBIN "gfx/pc_mail.2bpp"
; e34dd
String_e34dd: db "Choose a ", $e1, $e2, ".@"
String_e34ea: db "What's up?@"
String_e34f4: db "Release ", $e1, $e2, "?@"
String_e3500: db "Move to where?@"
String_e350f: db "It's your last ", $e1, $e2, "!@"
String_e3521: db "There's no room!@"
String_e3531: db "No more usable ", $e1, $e2, "!@"
String_e3544: db "Remove MAIL.@"
String_e3551: db "Released ", $e1, $e2, ".@"
String_e355e: db "Bye,@"
String_e3563: db "Stored @"
String_e356b: db "Got @"
String_e3570: db "Non.@"
String_e3575: db "The BOX is full.@"
String_e3586: db "The party's full!@"
String_e3597: db "No releasing EGGS!@"
; e35aa
Functione35aa: ; e35aa (38:75aa)
call Function1d6e
call Functione35e2
.asm_e35b0
xor a
ld [hBGMapMode], a ; $ff00+$d4
call Functione36cf
call Functione379c
ld hl, MenuDataHeader_0xe35f1
call CopyMenuDataHeader
xor a
ld [wd0e4], a
hlcoord 0, 4
ld bc, $809
call TextBox
call Function350c
ld a, [wcf73]
cp $2
jr z, .asm_e35de
call Functione37af
call Functione36f9
jr .asm_e35b0
.asm_e35de
call WriteBackup
ret
Functione35e2: ; e35e2 (38:75e2)
xor a
ld [hBGMapMode], a ; $ff00+$d4
hlcoord 0, 0
ld bc, $168
ld a, $7f
call ByteFill
ret
; e35f1 (38:75f1)
MenuDataHeader_0xe35f1: ; 0xe35f1
db $40 ; flags
db 05, 01 ; start coords
db 12, 09 ; end coords
dw MenuData2_0xe35f9
db 1 ; default option
; 0xe35f9
MenuData2_0xe35f9: ; 0xe35f9
db $22 ; flags
db 4, 0
db 1
dbw BANK(Unknown_e3609), Unknown_e3609
dbw BANK(Functione3619), Functione3619
dbw BANK(NULL), NULL
dbw BANK(Functione3632), Functione3632
; e3609
Unknown_e3609: ; e3609
db 14
db 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
db -1
; e3619
Functione3619: ; e3619
push de
ld a, [MenuSelection]
dec a
call Functione3626
pop hl
call PlaceString
ret
; e3626
Functione3626: ; e3626 (38:7626)
ld bc, 9
ld hl, wBoxNames
call AddNTimes
ld d, h
ld e, l
ret
; e3632 (38:7632)
Functione3632: ; e3632
hlcoord 11, 7
ld bc, $0507
call TextBox
ld a, [MenuSelection]
cp $ff
ret z
hlcoord 12, 9
ld de, String_e3663
call PlaceString
call Functione366c
ld [wd265], a
hlcoord 13, 11
ld de, wd265
ld bc, $0102
call PrintNum
ld de, String_e3668
call PlaceString
ret
; e3663
String_e3663: ; e3663
db "#MON@"
; e3668
String_e3668: ; e3668
db "/"
db "0" + MONS_PER_BOX / 10
db "0" + MONS_PER_BOX % 10
db "@"
; e366c
Functione366c: ; e366c (38:766c)
ld a, [wCurBox]
ld c, a
ld a, [MenuSelection]
dec a
cp c
jr z, .asm_e3697
ld c, a
ld b, 0
ld hl, Unknown_e36a5
rept 3
add hl, bc
endr
ld a, [hli]
ld b, a
call GetSRAMBank
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
call CloseSRAM
ld c, a
ld a, [wd4b4]
and a
jr z, .asm_e3695
ld a, c
ret
.asm_e3695
xor a
ret
.asm_e3697
ld a, 1
ld b, a
call GetSRAMBank
ld hl, $ad10
ld a, [hl]
call CloseSRAM
ret
; e36a5 (38:76a5)
Unknown_e36a5: ; e36a5
; bank, address
dbw $02, $a000
dbw $02, $a450
dbw $02, $a8a0
dbw $02, $acf0
dbw $02, $b140
dbw $02, $b590
dbw $02, $b9e0
dbw $03, $a000
dbw $03, $a450
dbw $03, $a8a0
dbw $03, $acf0
dbw $03, $b140
dbw $03, $b590
dbw $03, $b9e0
; e36cf
Functione36cf: ; e36cf (38:76cf)
hlcoord 0, 0
ld b, $2
ld c, $12
call TextBox
hlcoord 1, 2
ld de, String_e36f1
call PlaceString
ld a, [wCurBox]
and $f
call Functione3626
hlcoord 11, 2
call PlaceString
ret
; e36f1 (38:76f1)
String_e36f1: ; e36f1
db "CURRENT@"
; e36f9
Functione36f9: ; e36f9 (38:76f9)
ld hl, MenuDataHeader_0xe377b
call LoadMenuDataHeader
call InterpretMenu2
call ExitMenu
ret c
ld a, [wcfa9]
cp $1
jr z, .asm_e3734
cp $2
jr z, .asm_e3745
cp $3
jr z, .asm_e3717
and a
ret
.asm_e3717
call Functione366c
and a
jr z, .asm_e372f
ld e, l
ld d, h
ld a, [MenuSelection]
dec a
ld c, a
callba Function844bc
call Functione35e2
and a
ret
.asm_e372f
call Functione37be
and a
ret
.asm_e3734
ld a, [MenuSelection]
dec a
ld e, a
ld a, [wCurBox]
cp e
ret z
callba Function14a83
ret
.asm_e3745
ld b, $4
ld de, DefaultFlypoint
callba Function116c1
call ClearTileMap
call Functione51
call Functione58
ld a, [MenuSelection]
dec a
call Functione3626
ld e, l
ld d, h
ld hl, DefaultFlypoint
ld c, $8
call InitString
ld a, [MenuSelection]
dec a
call Functione3626
ld de, DefaultFlypoint
call CopyName2
ret
; e3778 (38:7778)
hlcoord 11, 7 ; XXX
MenuDataHeader_0xe377b: ; 0xe377b
db $40 ; flags
db 04, 11 ; start coords
db 13, 19 ; end coords
dw MenuData2_0xe3783
db 1 ; default option
; 0xe3783
MenuData2_0xe3783: ; 0xe3783
db $80 ; flags
db 4 ; items
db "SWITCH@"
db "NAME@"
db "PRINT@"
db "QUIT@"
; 0xe379c
Functione379c: ; e379c (38:779c)
ld de, String_e37a1
jr Functione37e3
; e37a1 (38:77a1)
String_e37a1: ; e37a1
db "Choose a BOX.@"
; e37af
Functione37af: ; e37af (38:77af)
ld de, String_e37b4
jr Functione37e3
; e37b4 (38:77b4)
String_e37b4: ; e37b4
db "What's up?@"
; e37be
Functione37be: ; e37be (38:77be)
ld de, String_e37d3
call Functione37e3
ld de, SFX_WRONG
call WaitPlaySFX
call WaitSFX
ld c, 50
call DelayFrames
ret
; e37d3 (38:77d3)
String_e37d3: ; e37d3
db "There's no #MON.@"
; e37e3
Functione37e3: ; e37e3 (38:77e3)
push de
hlcoord 0, 14
ld bc, $212
call TextBox
pop de
hlcoord 1, 16
call PlaceString
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
SECTION "bank39", ROMX, BANK[$39]
CopyrightGFX:: ; e4000
INCBIN "gfx/misc/copyright.2bpp"
; e41d0
_OptionsMenu: ; e41d0
ld hl, $ffaa
ld a, [hl]
push af
ld [hl], $1
call WhiteBGMap
hlcoord 0, 0
ld b, $10
ld c, $12
call TextBox
hlcoord 2, 2
ld de, StringOptions
call PlaceString
xor a
ld [wcf63], a
ld c, $6 ;number of items on the menu minus 1 (for cancel)
.asm_e41f3 ;this next will display the settings of each option when the menu is opened
push bc
xor a
ld [$ffa9], a
call GetOptionPointer
pop bc
ld hl, wcf63
inc [hl]
dec c
jr nz, .asm_e41f3
call Functione4512
xor a
ld [wcf63], a
inc a
ld [hBGMapMode], a
call WaitBGMap
ld b, $8
call GetSGBLayout
call Function32f9
.asm_e4217
call Functiona57
ld a, [hJoyPressed]
and $a
jr nz, .ExitOptions
call OptionsControl
jr c, .asm_e422a
call GetOptionPointer
jr c, .ExitOptions
.asm_e422a
call Functione455c
ld c, $3
call DelayFrames
jr .asm_e4217
.ExitOptions
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
pop af
ld [$ffaa], a
ret
; e4241
StringOptions: ; e4241
db "TEXT SPEED", $22
db " :", $22
db "BATTLE SCENE", $22
db " :", $22
db "BATTLE STYLE", $22
db " :", $22
db "SOUND", $22
db " :", $22
db "PRINT", $22
db " :", $22
db "MENU ACCOUNT", $22
db " :", $22
db "FRAME", $22
db " :TYPE", $22
db "CANCEL@"
; e42d6
GetOptionPointer: ; e42d6
ld a, [wcf63] ;load the cusror position to a
ld e, a ;copy it to de
ld d, 0
ld hl, .Pointers
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl] ;jump to the code of the current highlighted item
; e42e5
.Pointers
dw Options_TextSpeed
dw Options_BattleScene
dw Options_BattleStyle
dw Options_Sound
dw Options_Print
dw Options_MenuAccount
dw Options_Frame
dw Options_Cancel
; e42f5
Options_TextSpeed: ; e42f5
call GetTextSpeed
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr z, .NonePressed
ld a, c ;right pressed
cp $2
jr c, .Increase
ld c, $ff
.Increase
inc c
ld a, e
jr .Save
.LeftPressed
ld a, c
and a
jr nz, .Decrease
ld c, $3
.Decrease
dec c
ld a, d
.Save
ld b, a
ld a, [Options]
and $f0
or b
ld [Options], a
.NonePressed
ld b, 0
ld hl, .Strings
rept 2
add hl, bc
endr
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 11, 3
call PlaceString
and a
ret
; e4331
.Strings
dw .Fast
dw .Mid
dw .Slow
.Fast
db "FAST@"
.Mid
db "MID @"
.Slow
db "SLOW@"
; e4346
GetTextSpeed: ; e4346
ld a, [Options] ;This converts the number of frames, to 0,1,2 representing speed
and 7
cp 5 ;5 frames of delay is slow
jr z, .slow
cp 1 ;1 frame of delay is fast
jr z, .fast
ld c, 1 ;set it to mid if not one of the above
lb de, 1, 5
ret
.slow
ld c, 2
lb de, 3, 1
ret
.fast
ld c, 0
lb de, 5, 3
ret
; e4365
Options_BattleScene: ; e4365
ld hl, Options
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr z, .NonePressed
bit 7, [hl]
jr nz, .ToggleOn
jr .ToggleOff
.LeftPressed
bit 7, [hl]
jr z, .ToggleOff
jr .ToggleOn
.NonePressed
bit 7, [hl]
jr z, .ToggleOn
jr .ToggleOff
.ToggleOn
res 7, [hl]
ld de, .On
jr .Display
.ToggleOff
set 7, [hl]
ld de, .Off
.Display
hlcoord 11, 5
call PlaceString
and a
ret
; e4398
.On
db "ON @"
.Off
db "OFF@"
; e43a0
Options_BattleStyle: ; e43a0
ld hl, Options
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr z, .NonePressed
bit 6, [hl]
jr nz, .ToggleShift
jr .ToggleSet
.LeftPressed
bit 6, [hl]
jr z, .ToggleSet
jr .ToggleShift
.NonePressed
bit 6, [hl]
jr nz, .ToggleSet
.ToggleShift
res 6, [hl]
ld de, .Shift
jr .Display
.ToggleSet
set 6, [hl]
ld de, .Set
.Display
hlcoord 11, 7
call PlaceString
and a
ret
; e43d1
.Shift
db "SHIFT@"
.Set
db "SET @"
; e43dd
Options_Sound: ; e43dd
ld hl, Options
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr z, .NonePressed
bit 5, [hl]
jr nz, .SetMono
jr .SetStereo
.LeftPressed
bit 5, [hl]
jr z, .SetStereo
jr .SetMono
.NonePressed
bit 5, [hl]
jr nz, .ToggleStereo
jr .ToggleMono
.SetMono
res 5, [hl]
call RestartMapMusic
.ToggleMono
ld de, .Mono
jr .Display
.SetStereo
set 5, [hl]
call RestartMapMusic
.ToggleStereo
ld de, .Stereo
.Display
hlcoord 11, 9
call PlaceString
and a
ret
; e4416
.Mono
db "MONO @"
.Stereo
db "STEREO@"
; e4424
Options_Print: ; e4424
call GetPrinterSetting
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr z, .NonePressed
ld a, c
cp $4
jr c, .Increase
ld c, $ff
.Increase
inc c
ld a, e
jr .Save
.LeftPressed
ld a, c
and a
jr nz, .Decrease
ld c, $5
.Decrease
dec c
ld a, d
.Save
ld b, a
ld [GBPrinter], a
.NonePressed
ld b, $0
ld hl, .Strings
rept 2
add hl, bc
endr
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 11, 11
call PlaceString
and a
ret
; e445a
.Strings
dw .Lightest
dw .Lighter
dw .Normal
dw .Darker
dw .Darkest
.Lightest
db "LIGHTEST@"
.Lighter
db "LIGHTER @"
.Normal
db "NORMAL @"
.Darker
db "DARKER @"
.Darkest
db "DARKEST @"
; e4491
GetPrinterSetting: ; e4491
ld a, [GBPrinter] ;converts from the stored printer setting to 0,1,2,3,4
and a
jr z, .IsLightest
cp $20
jr z, .IsLight
cp $60
jr z, .IsDark
cp $7f
jr z, .IsDarkest
ld c, $2 ;normal if none of the above
ld de, $2060 ;the 2 values next to this setting
ret
.IsLightest
ld c, $0
ld de, $7f20 ;the 2 values next to this setting
ret
.IsLight
ld c, $1
ld de, $0040 ;the 2 values next to this setting
ret
.IsDark
ld c, $3
ld de, $407f ;the 2 values next to this setting
ret
.IsDarkest
ld c, $4
ld de, $6000 ;the 2 values next to this setting
ret
; e44c1
Options_MenuAccount: ; e44c1
ld hl, Options2
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr z, .NonePressed
bit 0, [hl]
jr nz, .ToggleOff
jr .ToggleOn
.LeftPressed
bit 0, [hl]
jr z, .ToggleOn
jr .ToggleOff
.NonePressed
bit 0, [hl]
jr nz, .ToggleOn
.ToggleOff
res 0, [hl]
ld de, .Off
jr .Display
.ToggleOn
set 0, [hl]
ld de, .On
.Display
hlcoord 11, 13
call PlaceString
and a
ret
; e44f2
.Off
db "OFF@"
.On
db "ON @"
; e44fa
Options_Frame: ; e44fa
ld hl, TextBoxFrame
ld a, [hJoyPressed]
bit 5, a
jr nz, .LeftPressed
bit 4, a
jr nz, .RightPressed
and a
ret
.RightPressed
ld a, [hl]
inc a
jr .Save
.LeftPressed
ld a, [hl]
dec a
.Save
and $7
ld [hl], a
; fallthrough
; e4512
Functione4512: ; e4512
ld a, [TextBoxFrame]
hlcoord 16, 15 ;where on the screen the number is drawn
add "1"
ld [hl], a
call Functione5f
and a
ret
; e4520
Options_Cancel: ; e4520
ld a, [hJoyPressed]
and A_BUTTON
jr nz, .Exit
and a
ret
.Exit
scf
ret
; e452a
OptionsControl: ; e452a
ld hl, wcf63
ld a, [$ffa9]
cp $80
jr z, .DownPressed
cp $40
jr z, .UpPressed
and a
ret
.DownPressed
ld a, [hl] ;load the cursor position to a
cp $7 ;maximum number of items in option menu
jr nz, .CheckFive
ld [hl], $0
scf
ret
.CheckFive ;I have no idea why this exists...
cp $5
jr nz, .Increase
ld [hl], $5
.Increase
inc [hl]
scf
ret
.UpPressed
ld a, [hl]
cp $6
jr nz, .NotSix
ld [hl], $5 ;Another thing where I'm not sure why it exists
scf
ret
.NotSix
and a
jr nz, .Decrease
ld [hl], $8 ;number of option items +1
.Decrease
dec [hl]
scf
ret
; e455c
Functione455c: ; e455c
hlcoord 1, 1
ld de, SCREEN_WIDTH
ld c, $10
.asm_e4564
ld [hl], $7f
add hl, de
dec c
jr nz, .asm_e4564
hlcoord 1, 2
ld bc, $0028
ld a, [wcf63]
call AddNTimes
ld [hl], $ed
ret
; e4579
Functione4579: ; e4579
ld de, MUSIC_NONE
call PlayMusic
call WhiteBGMap
call ClearTileMap
ld a, $98
ld [$ffd7], a
xor a
ld [hBGMapAddress], a
ld [hJoyDown], a
ld [hSCX], a
ld [hSCY], a
ld a, $90
ld [hWY], a
call WaitBGMap
ld b, $19
call GetSGBLayout
call Function32f9
ld c, 10
call DelayFrames
callab Copyright
call WaitBGMap
ld c, $64
call DelayFrames
call ClearTileMap
callba GBCOnlyScreen
call Functione45e8
.asm_e45c0
call Functiona57
ld a, [$ffa9]
and $f
jr nz, .asm_e45de
ld a, [wcf63]
bit 7, a
jr nz, .asm_e45e3
call Functione4670
callba Function8cf69
call DelayFrame
jr .asm_e45c0
.asm_e45de
call Functione465e
scf
ret
.asm_e45e3
call Functione465e
and a
ret
; e45e8
Functione45e8: ; e45e8
ld de, GameFreakLogo
ld hl, VTiles2
lb bc, BANK(GameFreakLogo), $1c
call Get1bpp
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld hl, IntroLogoGFX
ld de, w6_d000
ld a, BANK(IntroLogoGFX)
call FarDecompress
ld hl, VTiles0
ld de, w6_d000
ld bc, $0180
call Request2bpp
ld hl, VTiles1
ld de, w6_d000 + $800
ld bc, $0180
call Request2bpp
pop af
ld [rSVBK], a
callba Function8cf53
ld de, $5458
ld a, $3
call Function3b2a
ld hl, $0007
add hl, bc
ld [hl], $a0
ld hl, $000c
add hl, bc
ld [hl], $60
ld hl, $000d
add hl, bc
ld [hl], $30
xor a
ld [wcf63], a
ld [wcf64], a
ld [wcf65], a
ld [hSCX], a
ld [hSCY], a
ld a, $1
ld [hBGMapMode], a
ld a, $90
ld [hWY], a
ld de, $e4e4
call DmgToCgbObjPals
ret
; e465e
Functione465e: ; e465e
callba Function8cf53
call ClearTileMap
call ClearSprites
ld c, $10
call DelayFrames
ret
; e4670
Functione4670: ; e4670
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, Jumptable_e467f
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e467f
Jumptable_e467f: ; e467f
dw Functione468c
dw Functione468d
dw Functione46ba
dw Functione46dd
; e4687
Functione4687: ; e4687
ld hl, wcf63
inc [hl]
ret
; e468c
Functione468c: ; e468c
ret
; e468d
Functione468d: ; e468d
ld hl, wcf65
ld a, [hl]
cp $20
jr nc, .asm_e4697
inc [hl]
ret
.asm_e4697
ld [hl], 0
ld hl, .GAME_FREAK
decoord 5, 10
ld bc, .end - .GAME_FREAK
call CopyBytes
call Functione4687
ld de, SFX_GAME_FREAK_PRESENTS
call PlaySFX
ret
; e46af
.GAME_FREAK
; G A M E _ F R E A K
db 0, 1, 2, 3, 13, 4, 5, 3, 1, 6
.end
db "@"
; e46ba
Functione46ba: ; e46ba
ld hl, wcf65
ld a, [hl]
cp $40
jr nc, .asm_e46c4
inc [hl]
ret
.asm_e46c4
ld [hl], 0
ld hl, .presents
decoord 7,11
ld bc, .end - .presents
call CopyBytes
call Functione4687
ret
; e46d6
.presents
db 7, 8, 9, 10, 11, 12
.end
db "@"
; e46dd
Functione46dd: ; e46dd
ld hl, wcf65
ld a, [hl]
cp $80
jr nc, .asm_e46e7
inc [hl]
ret
.asm_e46e7
ld hl, wcf63
set 7, [hl]
ret
; e46ed
Functione46ed: ; e46ed (39:46ed)
ld hl, $b
add hl, bc
ld e, [hl]
ld d, 0
ld hl, Jumptable_e46fd
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
Jumptable_e46fd: ; e46fd (39:46fd)
dw Functione4707
dw Functione470d
dw Functione4759
dw Functione4776
dw Functione47ab
Functione4707: ; e4707 (39:4707)
ld hl, $b
add hl, bc
inc [hl]
ret
Functione470d: ; e470d (39:470d)
ld hl, $c
add hl, bc
ld a, [hl]
and a
jr z, .asm_e4747
ld d, a
ld hl, $d
add hl, bc
ld a, [hl]
and $3f
cp $20
jr nc, .asm_e4723
add $20
.asm_e4723
ld e, a
callba Functionce765
ld hl, $7
add hl, bc
ld [hl], e
ld hl, $d
add hl, bc
ld a, [hl]
dec [hl]
and $1f
ret nz
ld hl, $c
add hl, bc
ld a, [hl]
sub $30
ld [hl], a
ld de, SFX_DITTO_BOUNCE
call PlaySFX
ret
.asm_e4747
ld hl, $b
add hl, bc
inc [hl]
ld hl, $d
add hl, bc
ld [hl], $0
ld de, SFX_DITTO_POP_UP
call PlaySFX
ret
Functione4759: ; e4759 (39:4759)
ld hl, $d
add hl, bc
ld a, [hl]
cp $20
jr nc, .asm_e4764
inc [hl]
ret
.asm_e4764
ld hl, $b
add hl, bc
inc [hl]
ld hl, $d
add hl, bc
ld [hl], $0
ld de, SFX_DITTO_TRANSFORM
call PlaySFX
ret
Functione4776: ; e4776 (39:4776)
ld hl, $d
add hl, bc
ld a, [hl]
cp $40
jr z, .asm_e47a3
inc [hl]
srl a
srl a
ld e, a
ld d, $0
ld hl, Unknown_e47ac
rept 2
add hl, de
endr
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld a, [hli]
ld [OBPals + 12], a
ld a, [hli]
ld [OBPals + 13], a
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
ret
.asm_e47a3
ld hl, $b
add hl, bc
inc [hl]
call Functione4687
Functione47ab: ; e47ab (39:47ab)
ret
; e47ac (39:47ac)
Unknown_e47ac: ; e47ac
; Ditto's color as it turns into the Game Freak logo.
; Fade from pink to orange.
; One color per step.
RGB 23, 12, 28
RGB 23, 12, 27
RGB 23, 13, 26
RGB 23, 13, 24
RGB 24, 14, 22
RGB 24, 14, 20
RGB 24, 15, 18
RGB 24, 15, 16
RGB 25, 16, 14
RGB 25, 16, 12
RGB 25, 17, 10
RGB 25, 17, 08
RGB 26, 18, 06
RGB 26, 18, 04
RGB 26, 19, 02
RGB 26, 19, 00
;' e47cc
GameFreakLogo: ; e47cc
INCBIN "gfx/splash/logo.1bpp"
; e48ac
Functione48ac: ; e48ac
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, [$ffaa]
push af
ld a, [hVBlank]
push af
call Functione4901
Functione48bc: ; e48bc
call Functiona57
ld a, [$ffa9]
and $f
jr nz, .asm_e48db
ld a, [wcf63]
bit 7, a
jr nz, .asm_e48e1
call Functione490f
callba Function8cf69
call DelayFrame
jp Functione48bc
.asm_e48db
ld de, MUSIC_NONE
call PlayMusic
.asm_e48e1
call WhiteBGMap
call ClearSprites
call ClearTileMap
xor a
ld [hSCX], a
ld [hSCY], a
ld a, $7
ld [hWX], a
ld a, $90
ld [hWY], a
pop af
ld [hVBlank], a
pop af
ld [$ffaa], a
pop af
ld [rSVBK], a
ret
; e4901
Functione4901: ; e4901
xor a
ld [hVBlank], a
ld a, $1
ld [$ffaa], a
xor a
ld [$ffde], a
ld [wcf63], a
ret
; e490f
Functione490f: ; e490f
ld a, [wcf63]
ld e, a
ld d, 0
ld hl, IntroScenes
rept 2
add hl, de
endr
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; e491e
IntroScenes: ; e491e (39:491e)
dw IntroScene1
dw IntroScene2
dw IntroScene3
dw IntroScene4
dw IntroScene5
dw IntroScene6
dw IntroScene7
dw IntroScene8
dw IntroScene9
dw IntroScene10
dw IntroScene11
dw IntroScene12
dw IntroScene13
dw IntroScene14
dw IntroScene15
dw IntroScene16
dw IntroScene17
dw IntroScene18
dw IntroScene19
dw IntroScene20
dw IntroScene21
dw IntroScene22
dw IntroScene23
dw IntroScene24
dw IntroScene25
dw IntroScene26
dw IntroScene27
dw IntroScene28
NextIntroScene: ; e4956 (39:4956)
ld hl, wcf63
inc [hl]
ret
IntroScene1: ; e495b (39:495b)
; Setup the next scene.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap001
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroUnownsGFX
ld de, $9000
call Functione54c2
ld hl, IntroPulseGFX
ld de, $8000
call Functione54c2
ld hl, IntroTilemap002
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_365ad
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_365ad
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene2: ; e49d6 (39:49d6)
; First Unown (A) fades in, pulses, then fades out.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $80
jr nc, .asm_e49f9
cp $60
jr nz, .asm_e49f1
push af
ld de, $5858
call Functione51dc
ld de, SFX_INTRO_UNOWN_1
call PlaySFX
pop af
.asm_e49f1
ld [wcf65], a
xor a
call Functione5223
ret
.asm_e49f9
call NextIntroScene
ret
IntroScene3: ; e49fd (39:49fd)
; More setup. Transition to the outdoor scene.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap003
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroBackgroundGFX
ld de, $9000
call Functione54c2
ld hl, IntroTilemap004
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e5edd
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e5edd
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
call Functione5516
call Functione549e
xor a
ld [wcf64], a
call NextIntroScene
ret
IntroScene4: ; e4a69 (39:4a69)
; Scroll the outdoor panorama for a bit.
call Functione552f
ld hl, wcf64
ld a, [hl]
cp $80
jr z, .asm_e4a76
inc [hl]
ret
.asm_e4a76
call NextIntroScene
ret
IntroScene5: ; e4a7a (39:4a7a)
; Go back to the Unown.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld [hLCDStatCustom], a ; $ff00+$c6
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap005
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroUnownsGFX
ld de, $9000
call Functione54c2
ld hl, IntroPulseGFX
ld de, $8000
call Functione54c2
ld hl, IntroTilemap006
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_365ad
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_365ad
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene6: ; e4af7 (39:4af7)
; Two more Unown (I, H) fade in.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $80
jr nc, .asm_e4b3b
cp $60
jr z, .asm_e4b24
cp $40
jr nc, .asm_e4b32
cp $20
jr z, .asm_e4b0e
jr .asm_e4b1c
.asm_e4b0e
push af
ld de, $3878
call Functione51dc
ld de, SFX_INTRO_UNOWN_2
call PlaySFX
pop af
.asm_e4b1c
ld [wcf65], a
xor a
call Functione5223
ret
.asm_e4b24
push af
ld de, $7030
call Functione51dc
ld de, SFX_INTRO_UNOWN_1
call PlaySFX
pop af
.asm_e4b32
ld [wcf65], a
ld a, $1
call Functione5223
ret
.asm_e4b3b
call NextIntroScene
ret
IntroScene7: ; e4b3f (39:4b3f)
; Back to the outdoor scene.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap003
ld de, $9800
call Functione54fa
ld hl, IntroPichuWooperGFX
ld de, $8000
call Functione54c2
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroSuicuneRunGFX
ld de, $8000
call Functione54de
ld hl, IntroBackgroundGFX
ld de, $9000
call Functione54c2
ld hl, IntroTilemap004
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e5edd
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e5edd
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
call Functione5516
callba Function8cf53
ld de, $6cd8
ld a, $26
call Function3b2a
ld a, $f0
ld [wc3c0], a
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene8: ; e4bd3 (39:4bd3)
; Scroll the scene, then show Suicune running across the screen.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $40
jr z, .asm_e4be2
jr nc, .asm_e4be8
call Functione552f
ret
.asm_e4be2
ld de, SFX_INTRO_SUICUNE_3
call PlaySFX
.asm_e4be8
ld a, [wc3c0]
and a
jr z, .asm_e4bf4
sub $8
ld [wc3c0], a
ret
.asm_e4bf4
ld de, SFX_INTRO_SUICUNE_2
call PlaySFX
callba Function8d03d
call NextIntroScene
ret
IntroScene9: ; e4c04 (39:4c04)
; Set up the next scene (same bg).
xor a
ld [hLCDStatCustom], a ; $ff00+$c6
call ClearSprites
hlcoord 0, 0, AttrMap
ld bc, $f0
ld a, $1
call ByteFill
ld bc, $3c
ld a, $2
call ByteFill
ld bc, $3c
ld a, $3
call ByteFill
ld a, $2
ld [hBGMapMode], a ; $ff00+$d4
call DelayFrame
call DelayFrame
call DelayFrame
ld a, $c
ld [hBGMapAddress], a ; $ff00+$d6
call DelayFrame
call DelayFrame
call DelayFrame
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld [hBGMapAddress], a ; $ff00+$d6
ld [wc3c0], a
xor a
ld [wcf64], a
call NextIntroScene
ret
IntroScene10: ; e4c4f (39:4c4f)
; Wooper and Pichu enter.
call Functione546d
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $c0
jr z, .done
cp $20
jr z, .wooper
cp $40
jr z, .pichu
ret
.pichu
lb de, $a9, $80
ld a, $27
call Function3b2a
ld de, SFX_INTRO_PICHU
call PlaySFX
ret
.wooper
lb de, $b0, $30
ld a, $28
call Function3b2a
ld de, SFX_INTRO_PICHU
call PlaySFX
ret
.done
call NextIntroScene
ret
IntroScene11: ; e4c86 (39:4c86)
; Back to Unown again.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld [hLCDStatCustom], a ; $ff00+$c6
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap007
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroUnownsGFX
ld de, $9000
call Functione54c2
ld hl, IntroTilemap008
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_365ad
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_365ad
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene12: ; e4cfa (39:4cfa)
; Even more Unown.
call Functione4d36
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $c0
jr nc, .asm_e4d32
cp $80
jr nc, .asm_e4d1d
ld c, a
and $1f
sla a
ld [wcf65], a
ld a, c
and $e0
srl a
swap a
call Functione5223
ret
.asm_e4d1d
ld c, a
and $f
sla a
sla a
ld [wcf65], a
ld a, c
and $70
or $40
swap a
call Functione5223
ret
.asm_e4d32
call NextIntroScene
ret
Functione4d36: ; e4d36 (39:4d36)
ld a, [wcf64]
ld c, a
ld hl, Unknown_e4d54
.asm_e4d3d
ld a, [hli]
cp $ff
ret z
cp c
jr z, .asm_e4d48
rept 2
inc hl
endr
jr .asm_e4d3d
.asm_e4d48
ld a, [hli]
ld d, [hl]
ld e, a
push de
call SFXChannelsOff
pop de
call PlaySFX
ret
; e4d54 (39:4d54)
Unknown_e4d54: ; e4d54
dbw $00, SFX_INTRO_UNOWN_3
dbw $20, SFX_INTRO_UNOWN_2
dbw $40, SFX_INTRO_UNOWN_1
dbw $60, SFX_INTRO_UNOWN_2
dbw $80, SFX_INTRO_UNOWN_3
dbw $90, SFX_INTRO_UNOWN_2
dbw $a0, SFX_INTRO_UNOWN_1
dbw $b0, SFX_INTRO_UNOWN_2
db $ff
; e4d6d
IntroScene13: ; e4d6d (39:4d6d)
; Switch scenes again.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap003
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroSuicuneRunGFX
ld de, $8000
call Functione54de
ld hl, IntroBackgroundGFX
ld de, $9000
call Functione54c2
ld hl, IntroTilemap004
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e5edd
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e5edd
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
lb de, $6c, $58
ld a, $26
call Function3b2a
ld de, MUSIC_CRYSTAL_OPENING
call PlayMusic
xor a
ld [wc3c0], a
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene14: ; e4dfa (39:4dfa)
; Suicune runs then jumps.
ld a, [hSCX] ; $ff00+$cf
sub 10
ld [hSCX], a ; $ff00+$cf
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $80
jr z, .done
cp $60
jr z, .jump
jr nc, .asm_e4e1a
cp $40
jr nc, .asm_e4e33
ret
.jump
ld de, SFX_INTRO_SUICUNE_4
call PlaySFX
.asm_e4e1a
ld a, $1
ld [wcf65], a
ld a, [wc3c0]
cp $88
jr c, .asm_e4e2c
sub $8
ld [wc3c0], a
ret
.asm_e4e2c
callba Function8d03d
ret
.asm_e4e33
ld a, [wc3c0]
sub $2
ld [wc3c0], a
ret
.done
call NextIntroScene
ret
IntroScene15: ; e4e40 (39:4e40)
; Transition to a new scene.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap009
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroSuicuneJumpGFX
ld de, $9000
call Functione54c2
ld hl, IntroUnownBackGFX
ld de, $8000
call Functione54c2
ld de, GFX_e7a5d
ld hl, $8800
lb bc, BANK(GFX_e7a5d), 1
call Request2bpp
ld hl, IntroTilemap010
ld de, $9800
call Functione54fa
call Functione541b
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e77dd
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e77dd
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld a, $90
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
call Functione549e
lb de, $40, $28
ld a, $2a
call Function3b2a
lb de, $60, $00
ld a, $2b
call Function3b2a
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene16: ; e4edc (39:4edc)
; Suicune shows its face. An Unown appears in front.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $80
jr nc, .done
call Functione5441
ld a, [hSCY] ; $ff00+$d0
and a
ret z
add 8
ld [hSCY], a ; $ff00+$d0
ret
.done
call NextIntroScene
ret
IntroScene17: ; e4ef5 (39:4ef5)
; ...
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap011
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroSuicuneCloseGFX
ld de, $8800
call Functione54de
ld hl, IntroTilemap012
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e6d6d
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e6d6d
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene18: ; e4f67 (39:4f67)
; Suicune close up.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $60
jr nc, .done
ld a, [hSCX] ; $ff00+$cf
cp $60
ret z
add 8
ld [hSCX], a ; $ff00+$cf
ret
.done
call NextIntroScene
ret
IntroScene19: ; e4f7e (39:4f7e)
; More setup.
call Functione54a3
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap013
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroSuicuneBackGFX
ld de, $9000
call Functione54c2
ld hl, IntroUnownsGFX
ld de, $8800
call Functione54c2
ld de, GFX_e7a5d
ld hl, $8ff0
lb bc, BANK(GFX_e7a5d), 1
call Request2bpp
ld hl, IntroTilemap014
ld de, $9800
call Functione54fa
call Functione541b
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e77dd
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e77dd
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld a, $d8
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
ld hl, wc300
xor a
ld [hli], a
ld [hl], $7f
call Functione549e
lb de, $60, $00
ld a, $2b
call Function3b2a
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene20: ; e5019 (39:5019)
; Suicune running away. A bunch of Unown appear.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $98
jr nc, .asm_e5059
cp $58
ret nc
cp $40
jr nc, .asm_e5032
cp $28
ret nc
ld a, [hSCY] ; $ff00+$d0
inc a
ld [hSCY], a ; $ff00+$d0
ret
.asm_e5032
sub $18
ld c, a
and $3
cp $3
ret nz
ld a, c
and $1c
srl a
srl a
ld [wcf65], a
xor a
call Functione5348
ret
; e5049 (39:5049)
ld a, c
and $1c
srl a
srl a
ld [wcf65], a
ld a, 1
call Functione5348
ret
.asm_e5059
call NextIntroScene
ret
IntroScene21: ; e505d (39:505d)
; Suicune gets more distant and turns black.
call Functione5451
ld c, $3
call DelayFrames
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene22: ; e5072 (39:5072)
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $8
jr nc, .done
ret
.done
callba Function8d03d
call NextIntroScene
ret
IntroScene23: ; e5086 (39:5086)
xor a
ld [wcf64], a
call NextIntroScene
ret
IntroScene24: ; e508e (39:508e)
; Fade to white.
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $20
jr nc, .done
ld c, a
and $3
ret nz
ld a, c
and $1c
sla a
call Functione5172
ret
.done
ld a, $40
ld [wcf64], a
call NextIntroScene
ret
IntroScene25: ; e50ad (39:50ad)
; Wait around a bit.
ld a, [wcf64]
dec a
jr z, .done
ld [wcf64], a
ret
.done
call NextIntroScene
ret
IntroScene26: ; e50bb (39:50bb)
; Load the final scene.
call WhiteBGMap
call ClearSprites
call ClearTileMap
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, IntroTilemap015
ld de, $9800
call Functione54fa
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, IntroCrystalUnownsGFX
ld de, $9000
call Functione54c2
ld hl, IntroTilemap017
ld de, $9800
call Functione54fa
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, Palette_e679d
ld de, Unkn1Pals
ld bc, $80
call CopyBytes
ld hl, Palette_e679d
ld de, BGPals
ld bc, $80
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
xor a
ld [hSCX], a ; $ff00+$cf
ld [hSCY], a ; $ff00+$d0
ld a, $7
ld [hWX], a ; $ff00+$d1
ld a, $90
ld [hWY], a ; $ff00+$d2
callba Function8cf53
call Functione549e
xor a
ld [wcf64], a
ld [wcf65], a
call NextIntroScene
ret
IntroScene27: ; e512d (39:512d)
; Spell out C R Y S T A L with Unown.
ld hl, wcf65
inc [hl]
ld hl, wcf64
ld a, [hl]
inc [hl]
cp $80
jr nc, .done
ld c, a
and $f
ld [wcf65], a
ld a, c
and $70
swap a
call Functione539d
ret
.done
call NextIntroScene
ld a, $80
ld [wcf64], a
ret
IntroScene28: ; e5152 (39:5152)
; Cut out when the music ends, and lead into the title screen.
ld hl, wcf64
ld a, [hl]
and a
jr z, .done
dec [hl]
cp $18
jr z, .clear
cp $8
ret nz
ld de, SFX_UNKNOWN_CB
call PlaySFX
ret
.clear
call WhiteBGMap
ret
.done
ld hl, wcf63
set 7, [hl]
ret
Functione5172: ; e5172 (39:5172)
ld hl, Unknown_e519c
add l
ld l, a
ld a, $0
adc h
ld h, a
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld de, BGPals
ld b, $8
.asm_e5187
push hl
ld c, $8
.asm_e518a
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_e518a
pop hl
dec b
jr nz, .asm_e5187
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
ret
; e519c (39:519c)
Unknown_e519c: ; e519c
; Fade to white.
RGB 24, 12, 09
RGB 31, 31, 31
RGB 12, 00, 31
RGB 00, 00, 00
RGB 31, 19, 05
RGB 31, 31, 31
RGB 15, 05, 31
RGB 07, 07, 07
RGB 31, 21, 09
RGB 31, 31, 31
RGB 18, 09, 31
RGB 11, 11, 11
RGB 31, 23, 13
RGB 31, 31, 31
RGB 21, 13, 31
RGB 15, 15, 15
RGB 31, 25, 17
RGB 31, 31, 31
RGB 25, 17, 31
RGB 19, 19, 19
RGB 31, 27, 21
RGB 31, 31, 31
RGB 27, 21, 31
RGB 23, 23, 23
RGB 31, 29, 25
RGB 31, 31, 31
RGB 29, 26, 31
RGB 27, 27, 27
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
; e51dc
Functione51dc: ; e51dc (39:51dc)
push de
ld a, $29
call Function3b2a
ld hl, $c
add hl, bc
ld [hl], $8
ld a, $3c
call Function3b3c
pop de
push de
ld a, $29
call Function3b2a
ld hl, $c
add hl, bc
ld [hl], $18
ld a, $3b
call Function3b3c
pop de
push de
ld a, $29
call Function3b2a
ld hl, $c
add hl, bc
ld [hl], $28
ld a, $39
call Function3b3c
pop de
ld a, $29
call Function3b2a
ld hl, $c
add hl, bc
ld [hl], $38
ld a, $3a
call Function3b3c
ret
Functione5223: ; e5223 (39:5223)
rept 3
add a
endr
ld e, a
ld d, $0
ld hl, BGPals
add hl, de
rept 2
inc hl
endr
ld a, [wcf65]
and $3f
cp $1f
jr z, .asm_e523e
jr c, .asm_e523e
ld c, a
ld a, $3f
sub c
.asm_e523e
ld c, a
ld b, $0
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
push hl
push bc
ld hl, BGPals
ld bc, $40
xor a
call ByteFill
pop bc
pop hl
push hl
ld hl, Unknown_e5288
rept 2
add hl, bc
endr
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
ld a, e
ld [hli], a
ld a, d
ld [hli], a
push hl
ld hl, Unknown_e52c8
rept 2
add hl, bc
endr
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
ld a, e
ld [hli], a
ld a, d
ld [hli], a
push hl
ld hl, Unknown_e5308
rept 2
add hl, bc
endr
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
ld a, e
ld [hli], a
ld a, d
ld [hli], a
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
ret
; e5288 (39:5288)
Unknown_e5288: ; e5288
; Fade between black and white.
hue = 0
rept 32
RGB hue, hue, hue
hue = hue + 1
endr
; e52c8
Unknown_e52c8: ; e52c8
; Fade between black and light blue.
hue = 0
rept 32
RGB 0, hue / 2, hue
hue = hue + 1
endr
; e5308
Unknown_e5308: ; e5308
; Fade between black and blue.
hue = 0
rept 32
RGB 0, 0, hue
hue = hue + 1
endr
; e5348
Functione5348: ; e5348 (39:5348)
and a
jr nz, .asm_e5350
ld hl, Palette_e538d
jr .asm_e5353
.asm_e5350
ld hl, Palette_e5395
.asm_e5353
ld a, [wcf65]
and $7
rept 3
add a
endr
ld c, a
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
push bc
ld de, BGPals
ld a, c
add e
ld e, a
ld a, $0
adc d
ld d, a
ld bc, $8
call CopyBytes
pop bc
ld de, Unkn1Pals
ld a, c
add e
ld e, a
ld a, $0
adc d
ld d, a
ld bc, $8
call CopyBytes
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
ret
; e538d (39:538d)
Palette_e538d: ; e538d
RGB 24, 12, 09
RGB 31, 31, 31
RGB 12, 00, 31
RGB 00, 00, 00
; e5395
Palette_e5395: ; e5395
RGB 24, 12, 09
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
; e539d
Functione539d: ; e539d (39:539d)
rept 3
add a
endr
ld e, a
ld d, $0
ld hl, BGPals
add hl, de
rept 4
inc hl
endr
ld a, [wcf65]
add a
ld c, a
ld b, $0
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
push hl
ld hl, Palette_e53db
add hl, bc
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
ld a, e
ld [hli], a
ld a, d
ld [hli], a
push hl
ld hl, Palette_e53fb
add hl, bc
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
ld a, e
ld [hli], a
ld a, d
ld [hli], a
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
ret
; e53db (39:53db)
Palette_e53db: ; e53db
hue = 31
rept 8
RGB hue, hue, hue
hue = hue + -1
RGB hue, hue, hue
hue = hue + -2
endr
; e53fb
Palette_e53fb: ; e53fb
hue = 31
rept 16
RGB hue, hue, hue
hue = hue + -1
endr
; e541b
Functione541b: ; e541b (39:541b)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $6
ld [rSVBK], a ; $ff00+$70
ld hl, Unkn1Pals
decoord 0, 0
ld b, $12
.asm_e542a
ld c, $14
.asm_e542c
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_e542c
ld a, $c
add l
ld l, a
ld a, $0
adc h
ld h, a
dec b
jr nz, .asm_e542a
pop af
ld [rSVBK], a ; $ff00+$70
ret
Functione5441: ; e5441 (39:5441)
ld a, [wcf64]
and $3
jr z, Functione5451
cp $3
jr z, .asm_e544d
ret
.asm_e544d
xor a
ld [hBGMapMode], a ; $ff00+$d4
ret
Functione5451: ; e5451 (39:5451)
hlcoord 0, 0
ld bc, $168
.asm_e5457
ld a, [hl]
and a
jr z, .asm_e5462
cp $80
jr nc, .asm_e5462
xor $8
ld [hl], a
.asm_e5462
inc hl
dec bc
ld a, c
or b
jr nz, .asm_e5457
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
Functione546d: ; e546d (39:546d)
ld a, [wcf64]
cp $24
ret nc
and $c
srl a
ld e, a
ld d, $0
ld hl, Unknown_e5496
add hl, de
ld a, [hli]
ld [Requested2bppSource], a
ld a, [hli]
ld [Requested2bppSource + 1], a
ld a, $9090 % $100
ld [Requested2bppDest], a
ld a, $9090 / $100
ld [Requested2bppDest + 1], a
ld a, $4
ld [Requested2bpp], a
ret
; e5496 (39:5496)
Unknown_e5496: ; e5496
dw GFX_e799d
dw GFX_e79dd
dw GFX_e7a1d
dw GFX_e79dd
; e549e
Functione549e: ; e549e (39:549e)
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
ret
Functione54a3: ; e54a3 (39:54a3)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, BGPals
ld bc, $80
xor a
call ByteFill
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $1
ld [hCGBPalUpdate], a ; $ff00+$e5
call DelayFrame
call DelayFrame
ret
Functione54c2: ; e54c2 (39:54c2)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $6
ld [rSVBK], a ; $ff00+$70
push de
ld de, Unkn1Pals
call Decompress
pop hl
ld de, Unkn1Pals
ld bc, $180
call Request2bpp
pop af
ld [rSVBK], a ; $ff00+$70
ret
Functione54de: ; e54de (39:54de)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $6
ld [rSVBK], a ; $ff00+$70
push de
ld de, Unkn1Pals
call Decompress
pop hl
ld de, Unkn1Pals
ld bc, $1ff
call Request2bpp
pop af
ld [rSVBK], a ; $ff00+$70
ret
Functione54fa: ; e54fa (39:54fa)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $6
ld [rSVBK], a ; $ff00+$70
push de
ld de, Unkn1Pals
call Decompress
pop hl
ld de, Unkn1Pals
ld bc, $140
call Request2bpp
pop af
ld [rSVBK], a ; $ff00+$70
ret
Functione5516: ; e5516 (39:5516)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld hl, LYOverrides
ld bc, $90
xor a
call ByteFill
pop af
ld [rSVBK], a ; $ff00+$70
ld a, $43
ld [hLCDStatCustom], a ; $ff00+$c6
ret
Functione552f: ; e552f (39:552f)
ld a, [rSVBK] ; $ff00+$70
push af
ld a, $5
ld [rSVBK], a ; $ff00+$70
ld a, [wcf64]
and $1
jr z, .asm_e5548
ld hl, LYOverrides
ld a, [hl]
inc a
ld bc, $5f
call ByteFill
.asm_e5548
ld hl, LYOverrides + $5f
ld a, [hl]
rept 2
inc a
endr
ld bc, $31
call ByteFill
ld a, [LYOverrides + 0]
ld [hSCX], a ; $ff00+$cf
pop af
ld [rSVBK], a ; $ff00+$70
ret
IntroSuicuneRunGFX: ; e555d
INCBIN "gfx/intro/suicune_run.2bpp.lz"
; e592d
IntroPichuWooperGFX: ; e592d
INCBIN "gfx/intro/pichu_wooper.2bpp.lz"
; e5c7d
IntroBackgroundGFX: ; e5c7d
INCBIN "gfx/intro/background.2bpp.lz"
; e5e6d
IntroTilemap004: ; e5e6d
INCBIN "gfx/intro/004.tilemap.lz"
; e5ecd
IntroTilemap003: ; e5ecd
INCBIN "gfx/intro/003.tilemap.lz"
; e5edd
Palette_e5edd: ; e5edd
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 0, 4, 5
RGB 1, 8, 5
RGB 4, 12, 9
RGB 24, 12, 9
RGB 0, 4, 5
RGB 9, 6, 8
RGB 8, 16, 5
RGB 5, 10, 4
RGB 31, 31, 31
RGB 9, 6, 8
RGB 18, 9, 9
RGB 13, 8, 9
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 31, 31, 31
RGB 2, 5, 22
RGB 1, 5, 12
RGB 31, 31, 31
RGB 31, 10, 25
RGB 31, 21, 0
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 21, 31
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
IntroUnownsGFX: ; e5f5d
INCBIN "gfx/intro/unowns.2bpp.lz"
; e634d
IntroPulseGFX: ; e634d
INCBIN "gfx/intro/pulse.2bpp.lz"
; e63dd
IntroTilemap002: ; e63dd
INCBIN "gfx/intro/002.tilemap.lz"
; e641d
IntroTilemap001: ; e641d
INCBIN "gfx/intro/001.tilemap.lz"
; e642d
IntroTilemap006: ; e642d
INCBIN "gfx/intro/006.tilemap.lz"
; e647d
IntroTilemap005: ; e647d
INCBIN "gfx/intro/005.tilemap.lz"
; e649d
IntroTilemap008: ; e649d
INCBIN "gfx/intro/008.tilemap.lz"
; e655d
IntroTilemap007: ; e655d
INCBIN "gfx/intro/007.tilemap.lz"
; e65ad
Palette_365ad: ; e65ad
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 31, 31, 31
RGB 10, 0, 10
RGB 19, 0, 19
RGB 31, 0, 31
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
IntroCrystalUnownsGFX: ; e662d
INCBIN "gfx/intro/crystal_unowns.2bpp.lz"
; e672d
IntroTilemap017: ; e672d
INCBIN "gfx/intro/017.tilemap.lz"
; e676d
IntroTilemap015: ; e676d
INCBIN "gfx/intro/015.tilemap.lz"
; e679d
Palette_e679d: ; e679d
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
IntroSuicuneCloseGFX: ; e681d
INCBIN "gfx/intro/suicune_close.2bpp.lz"
; e6c3d
IntroTilemap012: ; e6c3d
INCBIN "gfx/intro/012.tilemap.lz"
; e6d0d
IntroTilemap011: ; e6d0d
INCBIN "gfx/intro/011.tilemap.lz"
; e6d6d
Palette_e6d6d: ; e6d6d
RGB 24, 12, 9
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 24, 12, 9
RGB 31, 31, 31
RGB 8, 9, 31
RGB 0, 0, 0
RGB 24, 12, 9
RGB 12, 20, 31
RGB 19, 8, 31
RGB 0, 0, 0
RGB 12, 20, 31
RGB 8, 9, 31
RGB 19, 8, 31
RGB 0, 0, 0
RGB 31, 31, 31
RGB 12, 20, 31
RGB 8, 9, 31
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
IntroSuicuneJumpGFX: ; e6ded
INCBIN "gfx/intro/suicune_jump.2bpp.lz"
; e72ad
IntroSuicuneBackGFX: ; e72ad
INCBIN "gfx/intro/suicune_back.2bpp.lz"
; e764d
IntroTilemap010: ; e764d
INCBIN "gfx/intro/010.tilemap.lz"
; e76ad
IntroTilemap009: ; e76ad
INCBIN "gfx/intro/009.tilemap.lz"
; e76bd
IntroTilemap014: ; e76bd
INCBIN "gfx/intro/014.tilemap.lz"
; e778d
IntroTilemap013: ; e778d
INCBIN "gfx/intro/013.tilemap.lz"
; e77dd
Palette_e77dd: ; e77dd
RGB 24, 12, 9
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 24, 12, 9
RGB 31, 31, 31
RGB 8, 9, 31
RGB 0, 0, 0
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 24, 12, 9
RGB 31, 31, 31
RGB 31, 31, 31
RGB 12, 0, 31
RGB 0, 0, 0
RGB 31, 31, 31
RGB 21, 9, 0
RGB 21, 9, 0
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
RGB 31, 31, 31
RGB 20, 20, 20
RGB 11, 11, 11
RGB 0, 0, 0
IntroUnownBackGFX: ; e785d
INCBIN "gfx/intro/unown_back.2bpp.lz"
; e799d
GFX_e799d: ; e799d
INCBIN "gfx/unknown/0e799d.2bpp"
GFX_e79dd: ; e79dd
INCBIN "gfx/unknown/0e79dd.2bpp"
GFX_e7a1d: ; e7a1d
INCBIN "gfx/unknown/0e7a1d.2bpp"
GFX_e7a5d: ; e7a5d
INCBIN "gfx/unknown/0e7a5d.2bpp"
SECTION "bank3E", ROMX, BANK[$3E]
FontExtra:
INCBIN "gfx/misc/font_extra.2bpp"
Font:
INCBIN "gfx/misc/font.1bpp"
FontBattleExtra:
INCBIN "gfx/misc/font_battle_extra.2bpp"
Frames: ; f8800
INCBIN "gfx/frames/1.1bpp"
INCBIN "gfx/frames/2.1bpp"
INCBIN "gfx/frames/3.1bpp"
INCBIN "gfx/frames/4.1bpp"
INCBIN "gfx/frames/5.1bpp"
INCBIN "gfx/frames/6.1bpp"
INCBIN "gfx/frames/7.1bpp"
INCBIN "gfx/frames/8.1bpp"
INCBIN "gfx/frames/9.1bpp"
; f89b0
; TODO: Various misc graphics here.
GFX_f89b0: ; f89b0
INCBIN "gfx/unknown/0f89b0.2bpp"
; f8a90
ShinyIcon: ; f8a90
INCBIN "gfx/stats/shiny.2bpp"
GFX_f8aa0: ; f8aa0
INCBIN "gfx/unknown/0f8aa0.2bpp"
; f8ac0
GFX_f8ac0: ; f8ac0
INCBIN "gfx/unknown/0f8ac0.2bpp"
; f8ae0
GFX_f8ae0: ; f8ae0
INCBIN "gfx/unknown/0f8ae0.2bpp"
; f8b10
GFX_f8b10: ; f8b10
INCBIN "gfx/unknown/0f8b10.2bpp"
; f8ba0
TownMapGFX: ; f8ba0
INCBIN "gfx/misc/town_map.2bpp.lz"
; f8ea4
GFX_f8ea4: ; f8ea4
INCBIN "gfx/unknown/0f8ea4.2bpp"
; f8f24
GFX_f8f24: ; f8f24
INCBIN "gfx/unknown/0f8f24.2bpp"
; f8f34
GFX_f8f34: ; f8f34
INCBIN "gfx/unknown/0f8f34.2bpp"
; f9204
GFX_f9204: ; f9204
INCBIN "gfx/unknown/0f9204.2bpp"
; f9214
GFX_f9214: ; f9214
INCBIN "gfx/unknown/0f9214.2bpp"
; f9344
GFX_f9344: ; f9344
INCBIN "gfx/unknown/0f9344.2bpp"
; f9424
GFX_f9424: ; f9424
INCBIN "gfx/unknown/0f9424.2bpp"
; f9434
Footprints: ; f9434
INCBIN "gfx/misc/footprints.1bpp"
; fb434
Unknown_fb434:
db 0
Functionfb435: ; 4b435
ld a, [Unknown_fb434]
and a
jp nz, Functionddc
jp Get1bpp
; fb43f
Functionfb43f: ; fb43f
ld a, [Unknown_fb434]
and a
jp nz, Functiondc9
jp Get2bpp
; fb449
Functionfb449:: ; fb449
ld de, Font
ld hl, VTiles1
lb bc, BANK(Font), $400 / 8
ld a, [rLCDC]
bit 7, a
jp z, Copy1bpp
ld de, Font
ld hl, VTiles1
lb bc, BANK(Font), $100 / 8
call Functionddc
ld de, Font + $100
ld hl, VTiles1 + $200
lb bc, BANK(Font), $100 / 8
call Functionddc
ld de, Font + $200
ld hl, VTiles1 + $400
lb bc, BANK(Font), $100 / 8
call Functionddc
ld de, Font + $300
ld hl, VTiles1 + $600
lb bc, BANK(Font), $100 / 8
call Functionddc
ret
; fb48a
Functionfb48a:: ; fb48a
ld de, GFX_f9214
ld hl, $9600
lb bc, BANK(GFX_f9214), 1
call Functionddc
ld de, GFX_f8f24
ld hl, $9620
lb bc, BANK(GFX_f8f24), 1
call Functiondc9
ld de, FontExtra + $30
ld hl, $9630
lb bc, BANK(FontExtra), $16
call Functiondc9
jr Functionfb4cc
; fb4b0
Functionfb4b0:: ; fb4b0
ld de, GFX_f9424
ld hl, $9610
ld b, BANK(GFX_f9424)
ld c, 1
call Functiondc9
ret
; fb4be
Functionfb4be:: ; fb4be
ld de, FontBattleExtra
ld hl, $9600
lb bc, BANK(FontBattleExtra), $19
call Functiondc9
jr Functionfb4cc
; fb4cc
Functionfb4cc: ; fb4cc
ld a, [TextBoxFrame]
and 7
ld bc, $0030
ld hl, Frames
call AddNTimes
ld d, h
ld e, l
ld hl, $9790
lb bc, BANK(Frames), 6
call Functionddc
ld hl, $97f0
ld de, GFX_f9204
lb bc, BANK(GFX_f9204), 1
call Functionddc
ret
; fb4f2
Functionfb4f2: ; fb4f2
ld de, FontBattleExtra
ld hl, $9600
lb bc, BANK(FontBattleExtra), $c
call Functiondc9
ld hl, $9700
ld de, FontBattleExtra + $100
lb bc, BANK(FontBattleExtra), 3
call Functiondc9
call Functionfb4cc
Functionfb50d: ; fb50d
ld de, GFX_f8ac0
ld hl, $96c0
lb bc, BANK(GFX_f8ac0), 4
call Functionddc
ld de, GFX_f8ae0
ld hl, $9730
lb bc, BANK(GFX_f8ae0), 6
call Functionddc
ld de, GFX_f8b10
ld hl, $9550
lb bc, BANK(GFX_f8b10), 9
call Functiondc9
ld de, GFX_f9214 + $90
ld hl, $95e0
lb bc, BANK(GFX_f9214), 2
call Functiondc9
ret
; fb53e
Functionfb53e: ; fb53e
call Functionfb4be
ld de, GFX_f8ac0
ld hl, $96c0
lb bc, BANK(GFX_f8ac0), 4
call Functionddc
ld de, GFX_f8ae0
ld hl, $9780
lb bc, BANK(GFX_f8ae0), 1
call Functionddc
ld de, GFX_f8ae0 + $18
ld hl, $9760
lb bc, BANK(GFX_f8ae0), 2
call Functionddc
ld de, GFX_f8b10
ld hl, $9550
lb bc, BANK(GFX_f8b10), 8
call Functiondc9
Functionfb571: ; fb571
ld de, GFX_f89b0
ld hl, $9310
lb bc, BANK(GFX_f89b0), $11
call Functiondc9
ret
; fb57e
Functionfb57e: ; fb57e
ld a, [wd003]
ld hl, OTPartyMon1Species
call GetPartyLocation
push hl
ld a, [wd003]
inc a
ld c, a
ld b, 0
ld hl, OTPartyCount
add hl, bc
ld a, [hl]
pop hl
cp EGG
jr z, .asm_fb59c
cp [hl]
jr nz, .asm_fb5db
.asm_fb59c
ld b, h
ld c, l
ld hl, OTPartyMon1Level - OTPartyMon1
add hl, bc
ld a, [hl]
cp 101
jr nc, .asm_fb5db
ld a, [InLinkBattle]
cp $1
jr nz, .asm_fb5d9
ld hl, OTPartySpecies
ld a, [wd003]
ld c, a
ld b, 0
add hl, bc
ld a, [hl]
; Magnemite and Magneton's types changed
; from Electric to Electric/Steel.
cp MAGNEMITE
jr z, .asm_fb5d9
cp MAGNETON
jr z, .asm_fb5d9
ld [CurSpecies], a
call GetBaseData
ld hl, wcbea
rept 2
add hl, bc
endr
ld a, [BaseType1]
cp [hl]
jr nz, .asm_fb5db
inc hl
ld a, [BaseType2]
cp [hl]
jr nz, .asm_fb5db
.asm_fb5d9
and a
ret
.asm_fb5db
scf
ret
; fb5dd
Functionfb5dd: ; fb5dd
ld a, [DefaultFlypoint]
ld d, a
ld a, [PartyCount]
ld b, a
ld c, $0
.asm_fb5e7
ld a, c
cp d
jr z, .asm_fb5f8
push bc
ld a, c
ld hl, PartyMon1HP
call GetPartyLocation
pop bc
ld a, [hli]
or [hl]
jr nz, .asm_fb60b
.asm_fb5f8
inc c
dec b
jr nz, .asm_fb5e7
ld a, [wd003]
ld hl, OTPartyMon1HP
call GetPartyLocation
ld a, [hli]
or [hl]
jr nz, .asm_fb60b
scf
ret
.asm_fb60b
and a
ret
; fb60d
Functionfb60d: ; fb60d
hlcoord 4, 0
ld de, PlayerName
call PlaceString
ld a, $14
ld [bc], a
hlcoord 4, 8
ld de, wd26b
call PlaceString
ld a, $14
ld [bc], a
hlcoord 7, 1
ld de, PartySpecies
call Functionfb634
hlcoord 7, 9
ld de, OTPartySpecies
Functionfb634: ; fb634
ld c, $0
.asm_fb636
ld a, [de]
cp $ff
ret z
ld [wd265], a
push bc
push hl
push de
push hl
ld a, c
ld [hProduct], a
call GetPokemonName
pop hl
call PlaceString
pop de
inc de
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
inc c
jr .asm_fb636
; fb656
KantoMonSpecials: ; fb656
; The original special base stat for
; each Kanto monster from Red/Blue.
db 65 ; BULBASAUR
db 80 ; IVYSAUR
db 100 ; VENUSAUR
db 50 ; CHARMANDER
db 65 ; CHARMELEON
db 85 ; CHARIZARD
db 50 ; SQUIRTLE
db 65 ; WARTORTLE
db 85 ; BLASTOISE
db 20 ; CATERPIE
db 25 ; METAPOD
db 80 ; BUTTERFREE
db 20 ; WEEDLE
db 25 ; KAKUNA
db 45 ; BEEDRILL
db 35 ; PIDGEY
db 50 ; PIDGEOTTO
db 70 ; PIDGEOT
db 25 ; RATTATA
db 50 ; RATICATE
db 31 ; SPEAROW
db 61 ; FEAROW
db 40 ; EKANS
db 65 ; ARBOK
db 50 ; PIKACHU
db 90 ; RAICHU
db 30 ; SANDSHREW
db 55 ; SANDSLASH
db 40 ; NIDORAN_F
db 55 ; NIDORINA
db 75 ; NIDOQUEEN
db 40 ; NIDORAN_M
db 55 ; NIDORINO
db 75 ; NIDOKING
db 60 ; CLEFAIRY
db 85 ; CLEFABLE
db 65 ; VULPIX
db 100 ; NINETALES
db 25 ; JIGGLYPUFF
db 50 ; WIGGLYTUFF
db 40 ; ZUBAT
db 75 ; GOLBAT
db 75 ; ODDISH
db 85 ; GLOOM
db 100 ; VILEPLUME
db 55 ; PARAS
db 80 ; PARASECT
db 40 ; VENONAT
db 90 ; VENOMOTH
db 45 ; DIGLETT
db 70 ; DUGTRIO
db 40 ; MEOWTH
db 65 ; PERSIAN
db 50 ; PSYDUCK
db 80 ; GOLDUCK
db 35 ; MANKEY
db 60 ; PRIMEAPE
db 50 ; GROWLITHE
db 80 ; ARCANINE
db 40 ; POLIWAG
db 50 ; POLIWHIRL
db 70 ; POLIWRATH
db 105 ; ABRA
db 120 ; KADABRA
db 135 ; ALAKAZAM
db 35 ; MACHOP
db 50 ; MACHOKE
db 65 ; MACHAMP
db 70 ; BELLSPROUT
db 85 ; WEEPINBELL
db 100 ; VICTREEBEL
db 100 ; TENTACOOL
db 120 ; TENTACRUEL
db 30 ; GEODUDE
db 45 ; GRAVELER
db 55 ; GOLEM
db 65 ; PONYTA
db 80 ; RAPIDASH
db 40 ; SLOWPOKE
db 80 ; SLOWBRO
db 95 ; MAGNEMITE
db 120 ; MAGNETON
db 58 ; FARFETCH_D
db 35 ; DODUO
db 60 ; DODRIO
db 70 ; SEEL
db 95 ; DEWGONG
db 40 ; GRIMER
db 65 ; MUK
db 45 ; SHELLDER
db 85 ; CLOYSTER
db 100 ; GASTLY
db 115 ; HAUNTER
db 130 ; GENGAR
db 30 ; ONIX
db 90 ; DROWZEE
db 115 ; HYPNO
db 25 ; KRABBY
db 50 ; KINGLER
db 55 ; VOLTORB
db 80 ; ELECTRODE
db 60 ; EXEGGCUTE
db 125 ; EXEGGUTOR
db 40 ; CUBONE
db 50 ; MAROWAK
db 35 ; HITMONLEE
db 35 ; HITMONCHAN
db 60 ; LICKITUNG
db 60 ; KOFFING
db 85 ; WEEZING
db 30 ; RHYHORN
db 45 ; RHYDON
db 105 ; CHANSEY
db 100 ; TANGELA
db 40 ; KANGASKHAN
db 70 ; HORSEA
db 95 ; SEADRA
db 50 ; GOLDEEN
db 80 ; SEAKING
db 70 ; STARYU
db 100 ; STARMIE
db 100 ; MR__MIME
db 55 ; SCYTHER
db 95 ; JYNX
db 85 ; ELECTABUZZ
db 85 ; MAGMAR
db 55 ; PINSIR
db 70 ; TAUROS
db 20 ; MAGIKARP
db 100 ; GYARADOS
db 95 ; LAPRAS
db 48 ; DITTO
db 65 ; EEVEE
db 110 ; VAPOREON
db 110 ; JOLTEON
db 110 ; FLAREON
db 75 ; PORYGON
db 90 ; OMANYTE
db 115 ; OMASTAR
db 45 ; KABUTO
db 70 ; KABUTOPS
db 60 ; AERODACTYL
db 65 ; SNORLAX
db 125 ; ARTICUNO
db 125 ; ZAPDOS
db 125 ; MOLTRES
db 50 ; DRATINI
db 70 ; DRAGONAIR
db 100 ; DRAGONITE
db 154 ; MEWTWO
db 100 ; MEW
; fb6ed
INCLUDE "event/name_rater.asm"
Functionfb841: ; fb841
ld a, [ScriptVar]
call LoadCryHeader
jr c, .done
ld hl, CryPitch
ld a, [hli]
ld h, [hl]
ld l, a
ld bc, -$140
add hl, bc
ld a, l
ld [CryPitch], a
ld a, h
ld [CryPitch + 1], a
ld hl, CryLength
ld a, [hli]
ld h, [hl]
ld l, a
ld bc, $60
add hl, bc
ld a, l
ld [CryLength], a
ld a, h
ld [CryLength + 1], a
callba _PlayCryHeader
call WaitSFX
.done
ret
; fb877
Functionfb877: ; fb877
ld a, [$ffde]
push af
xor a
ld [$ffde], a
call LowVolume
call WhiteBGMap
call ClearTileMap
call DrawOnMap
call ClearSprites
ld a, [wPokedexStatus]
push af
ld a, [hSCX]
add $5
ld [hSCX], a
xor a
ld [wPokedexStatus], a
callba Function41a7f
call Functiona80
ld a, $1
ld [wPokedexStatus], a
callba Function4424d
call Functiona80
pop af
ld [wPokedexStatus], a
call MaxVolume
call FadeToWhite
ld a, [hSCX]
add $fb
ld [hSCX], a
call Functionfb8c8
pop af
ld [$ffde], a
ret
; fb8c8
Functionfb8c8: ; fb8c8
call ClearTileMap
call Functione5f
call Functione51
callba Function40ab2
call Function3200
callba Function3da97
ld a, [hli]
ld [TempMonDVs], a
ld a, [hl]
ld [TempMonDVs + 1], a
ld b, $1c
call GetSGBLayout
call Function32f9
ret
; fb8f1
ConvertMon_2to1: ; fb8f1
; Takes the Gen-2 Pokemon number stored in wd265, finds it in the Pokered_MonIndices table, and returns its index in wd265.
push bc
push hl
ld a, [wd265]
ld b, a
ld c, 0
ld hl, Pokered_MonIndices
.loop
inc c
ld a, [hli]
cp b
jr nz, .loop
ld a, c
ld [wd265], a
pop hl
pop bc
ret
; fb908
ConvertMon_1to2: ; fb908
; Takes the Gen-1 Pokemon number stored in wd265 and returns the corresponding value from Pokered_MonIndices in wd265.
push bc
push hl
ld a, [wd265]
dec a
ld hl, Pokered_MonIndices
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
ld [wd265], a
pop hl
pop bc
ret
; fb91c
Pokered_MonIndices: ; fb91c
db RHYDON
db KANGASKHAN
db NIDORAN_M
db CLEFAIRY
db SPEAROW
db VOLTORB
db NIDOKING
db SLOWBRO
db IVYSAUR
db EXEGGUTOR
db LICKITUNG
db EXEGGCUTE
db GRIMER
db GENGAR
db NIDORAN_F
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 SCIZOR
db SHUCKLE
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 HERACROSS
db MAGMAR
db HO_OH
db ELECTABUZZ
db MAGNETON
db KOFFING
db SNEASEL
db MANKEY
db SEEL
db DIGLETT
db TAUROS
db TEDDIURSA
db URSARING
db SLUGMA
db FARFETCH_D
db VENONAT
db DRAGONITE
db MAGCARGO
db SWINUB
db PILOSWINE
db DODUO
db POLIWAG
db JYNX
db MOLTRES
db ARTICUNO
db ZAPDOS
db DITTO
db MEOWTH
db KRABBY
db CORSOLA
db REMORAID
db OCTILLERY
db VULPIX
db NINETALES
db PIKACHU
db RAICHU
db DELIBIRD
db MANTINE
db DRATINI
db DRAGONAIR
db KABUTO
db KABUTOPS
db HORSEA
db SEADRA
db SKARMORY
db HOUNDOUR
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 HOUNDOOM
db DODRIO
db PRIMEAPE
db DUGTRIO
db VENOMOTH
db DEWGONG
db KINGDRA
db PHANPY
db CATERPIE
db METAPOD
db BUTTERFREE
db MACHAMP
db DONPHAN
db GOLDUCK
db HYPNO
db GOLBAT
db MEWTWO
db SNORLAX
db MAGIKARP
db PORYGON2
db STANTLER
db MUK
db SMEARGLE
db KINGLER
db CLOYSTER
db TYROGUE
db ELECTRODE
db CLEFABLE
db WEEZING
db PERSIAN
db MAROWAK
db HITMONTOP
db HAUNTER
db ABRA
db ALAKAZAM
db PIDGEOTTO
db PIDGEOT
db STARMIE
db BULBASAUR
db VENUSAUR
db TENTACRUEL
db SMOOCHUM
db GOLDEEN
db SEAKING
db ELEKID
db MAGBY
db MILTANK
db BLISSEY
db PONYTA
db RAPIDASH
db RATTATA
db RATICATE
db NIDORINO
db NIDORINA
db GEODUDE
db PORYGON
db AERODACTYL
db RAIKOU
db MAGNEMITE
db ENTEI
db SUICUNE
db CHARMANDER
db SQUIRTLE
db CHARMELEON
db WARTORTLE
db CHARIZARD
db LARVITAR
db PUPITAR
db TYRANITAR
db LUGIA
db ODDISH
db GLOOM
db VILEPLUME
db BELLSPROUT
db WEEPINBELL
db VICTREEBEL
db CHIKORITA
db BAYLEEF
db MEGANIUM
db CYNDAQUIL
db QUILAVA
db TYPHLOSION
db TOTODILE
db CROCONAW
db FERALIGATR
db SENTRET
db FURRET
db HOOTHOOT
db NOCTOWL
db LEDYBA
db LEDIAN
db SPINARAK
db ARIADOS
db CROBAT
db CHINCHOU
db LANTURN
db PICHU
db CLEFFA
db IGGLYBUFF
db TOGEPI
db TOGETIC
db NATU
db XATU
db MAREEP
db FLAAFFY
db AMPHAROS
db BELLOSSOM
db MARILL
db AZUMARILL
db SUDOWOODO
db POLITOED
db HOPPIP
db SKIPLOOM
db JUMPLUFF
db AIPOM
db SUNKERN
db SUNFLORA
db YANMA
db WOOPER
db QUAGSIRE
db ESPEON
db UMBREON
db MURKROW
db SLOWKING
db MISDREAVUS
db UNOWN
db WOBBUFFET
db GIRAFARIG
db PINECO
db FORRETRESS
db DUNSPARCE
db GLIGAR
db STEELIX
db SNUBBULL
db GRANBULL
db QWILFISH
db WOBBUFFET
db WOBBUFFET
; fba18
Functionfba18: ; fba18
ld a, [UnownLetter]
ld c, a
ld b, 26
ld hl, UnownDex
.asm_fba21
ld a, [hli]
and a
jr z, .asm_fba2b
cp c
ret z
dec b
jr nz, .asm_fba21
ret
.asm_fba2b
dec hl
ld [hl], c
ret
; fba2e
Functionfba2e: ; fba2e (3e:7a2e)
hlcoord 4, 15
ld bc, $c
ld a, $7f
call ByteFill
ld a, [wc7dd]
ld e, a
ld d, 0
ld hl, UnownDex
add hl, de
ld a, [hl]
ld e, a
ld d, 0
ld hl, UnownWords
rept 2
add hl, de
endr
ld a, [hli]
ld e, a
ld d, [hl]
hlcoord 4, 15
.asm_fba52
ld a, [de]
cp $ff
ret z
inc de
ld [hli], a
jr .asm_fba52
; fba5a (3e:7a5a)
UnownWords: ; fba5a
dw UnownWord1
dw UnownWord1
dw UnownWord2
dw UnownWord3
dw UnownWord4
dw UnownWord5
dw UnownWord6
dw UnownWord7
dw UnownWord8
dw UnownWord9
dw UnownWord10
dw UnownWord11
dw UnownWord12
dw UnownWord13
dw UnownWord14
dw UnownWord15
dw UnownWord16
dw UnownWord17
dw UnownWord18
dw UnownWord19
dw UnownWord20
dw UnownWord21
dw UnownWord22
dw UnownWord23
dw UnownWord24
dw UnownWord25
dw UnownWord26
; fba90
unownword: macro
x = 1
rept STRLEN(\1)
db STRSUB(\1, x, 1) - $40
x = x + 1
endr
db -1
endm
UnownWord1: unownword "ANGRY"
UnownWord2: unownword "BEAR"
UnownWord3: unownword "CHASE"
UnownWord4: unownword "DIRECT"
UnownWord5: unownword "ENGAGE"
UnownWord6: unownword "FIND"
UnownWord7: unownword "GIVE"
UnownWord8: unownword "HELP"
UnownWord9: unownword "INCREASE"
UnownWord10: unownword "JOIN"
UnownWord11: unownword "KEEP"
UnownWord12: unownword "LAUGH"
UnownWord13: unownword "MAKE"
UnownWord14: unownword "NUZZLE"
UnownWord15: unownword "OBSERVE"
UnownWord16: unownword "PERFORM"
UnownWord17: unownword "QUICKEN"
UnownWord18: unownword "REASSURE"
UnownWord19: unownword "SEARCH"
UnownWord20: unownword "TELL"
UnownWord21: unownword "UNDO"
UnownWord22: unownword "VANISH"
UnownWord23: unownword "WANT"
UnownWord24: unownword "XXXXX"
UnownWord25: unownword "YIELD"
UnownWord26: unownword "ZOOM"
; fbb32
Special_CheckMagikarpLength: ; fbb32
callba SelectMonFromParty
jr c, .declined
ld a, [CurPartySpecies]
cp MAGIKARP
jr nz, .not_magikarp
ld a, [CurPartyMon]
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
call AddNTimes
push hl
ld bc, MON_DVS
add hl, bc
ld d, h
ld e, l
pop hl
ld bc, MON_ID
add hl, bc
ld b, h
ld c, l
call CalcMagikarpLength
call Functionfbbdb
callba Function105f33
ld hl, UnknownText_0xfbba9
call PrintText
ld hl, Buffer1
ld de, wdfe8
ld c, $2
call StringCmp
jr nc, .not_long_enough
ld hl, Buffer1
ld de, wdfe8
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
ld a, [CurPartyMon]
ld hl, PartyMonOT
call SkipNames
call CopyBytes
ld a, $3
ld [ScriptVar], a
ret
.not_long_enough
ld a, $2
ld [ScriptVar], a
ret
.declined
ld a, $1
ld [ScriptVar], a
ret
.not_magikarp
xor a
ld [ScriptVar], a
ret
; fbba9
UnknownText_0xfbba9: ; 0xfbba9
; Let me measure that MAGIKARP. …Hm, it measures @ .
text_jump UnknownText_0x1c1203
db "@"
; 0xfbbae
Functionfbbae: ; fbbae
ld hl, $96e0
ld de, GFX_fbbbb
lb bc, BANK(GFX_fbbbb), $02
call Request2bpp
ret
; fbbbb
GFX_fbbbb: ; fbbb
INCBIN "gfx/unknown/0fbbbb.2bpp"
; fbbdb
Functionfbbdb: ; fbbdb
call Functionfbbae
ld hl, StringBuffer1
ld de, Buffer1
ld bc, $4102
call PrintNum
ld [hl], $6e
inc hl
ld de, Buffer2
ld bc, $4102
call PrintNum
ld [hl], $6f
inc hl
ld [hl], "@"
ret
; fbbfc
INCLUDE "battle/magikarp_length.asm"
Special_MagikarpHouseSign: ; fbcd2
ld a, [wdfe8]
ld [Buffer1], a
ld a, [wdfe9]
ld [Buffer2], a
call Functionfbbdb
ld hl, UnknownText_0xfbce8
call PrintText
ret
; fbce8
UnknownText_0xfbce8: ; 0xfbce8
; "CURRENT RECORD"
text_jump UnknownText_0x1c123a
db "@"
; 0xfbced
INCLUDE "battle/hidden_power.asm"
Functionfbd54: ; fbd54
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, [hBattleTurn] ; $ff00+$e4
and a
jr z, .asm_fbd61
call Functionfbd96
jr .asm_fbd64
.asm_fbd61
call Functionfbd9d
.asm_fbd64
call ClearBox
jr Functionfbd91
Functionfbd69: ; fbd69 (3e:7d69)
callba BattleCommanda6
jr Functionfbd77
Functionfbd71: ; fbd71 (3e:7d71)
callba BattleCommanda7
Functionfbd77: ; fbd77 (3e:7d77)
xor a
ld [hBGMapMode], a ; $ff00+$d4
ld a, [hBattleTurn] ; $ff00+$e4
and a
jr z, .asm_fbd85
call Functionfbd96
xor a
jr .asm_fbd8a
.asm_fbd85
call Functionfbd9d
ld a, $31
.asm_fbd8a
ld [$ffad], a
predef FillBox
Functionfbd91: ; fbd91 (3e:7d91)
ld a, $1
ld [hBGMapMode], a ; $ff00+$d4
ret
Functionfbd96: ; fbd96 (3e:7d96)
hlcoord 12, 0
ld bc, $707
ret
Functionfbd9d: ; fbd9d (3e:7d9d)
hlcoord 2, 6
ld bc, $606
ret
DoWeatherModifiers: ; fbda4
ld de, .WeatherTypeModifiers
ld a, [Weather]
ld b, a
ld a, [wd265] ; move type
ld c, a
.CheckWeatherType
ld a, [de]
inc de
cp $ff
jr z, .asm_fbdc0
cp b
jr nz, .NextWeatherType
ld a, [de]
cp c
jr z, .ApplyModifier
.NextWeatherType
rept 2
inc de
endr
jr .CheckWeatherType
.asm_fbdc0
ld de, .WeatherMoveModifiers
ld a, BATTLE_VARS_MOVE_EFFECT
call GetBattleVar
ld c, a
.CheckWeatherMove
ld a, [de]
inc de
cp $ff
jr z, .done
cp b
jr nz, .NextWeatherMove
ld a, [de]
cp c
jr z, .ApplyModifier
.NextWeatherMove
rept 2
inc de
endr
jr .CheckWeatherMove
.ApplyModifier
xor a
ld [hMultiplicand], a
ld hl, CurDamage
ld a, [hli]
ld [$ffb5], a
ld a, [hl]
ld [$ffb6], a
inc de
ld a, [de]
ld [hMultiplier], a
call Multiply
ld a, 10
ld [hMultiplier], a
ld b, $4
call Divide
ld a, [hMultiplicand]
and a
ld bc, $ffff
jr nz, .Update
ld a, [$ffb5]
ld b, a
ld a, [$ffb6]
ld c, a
or b
jr nz, .Update
ld bc, 1
.Update
ld a, b
ld [CurDamage], a
ld a, c
ld [CurDamage + 1], a
.done
ret
.WeatherTypeModifiers
db WEATHER_RAIN, WATER, 15
db WEATHER_RAIN, FIRE, 05
db WEATHER_SUN, FIRE, 15
db WEATHER_SUN, WATER, 05
db $ff
.WeatherMoveModifiers
db WEATHER_RAIN, EFFECT_SOLARBEAM, 05
db $ff
; fbe24
DoBadgeTypeBoosts: ; fbe24
ld a, [InLinkBattle]
and a
ret nz
ld a, [wcfc0]
and a
ret nz
ld a, [hBattleTurn]
and a
ret nz
push de
push bc
ld hl, .BadgeTypes
ld a, [KantoBadges]
ld b, a
ld a, [JohtoBadges]
ld c, a
.CheckBadge
ld a, [hl]
cp $ff
jr z, .done
srl b
rr c
jr nc, .NextBadge
ld a, [wd265] ; move type
cp [hl]
jr z, .ApplyBoost
.NextBadge
inc hl
jr .CheckBadge
.ApplyBoost
ld a, [CurDamage]
ld h, a
ld d, a
ld a, [CurDamage + 1]
ld l, a
ld e, a
srl d
rr e
srl d
rr e
srl d
rr e
ld a, e
or d
jr nz, .asm_fbe6f
ld e, 1
.asm_fbe6f
add hl, de
jr nc, .Update
ld hl, $ffff
.Update
ld a, h
ld [CurDamage], a
ld a, l
ld [CurDamage + 1], a
.done
pop bc
pop de
ret
.BadgeTypes
db FLYING ; zephyrbadge
db BUG ; hivebadge
db NORMAL ; plainbadge
db GHOST ; fogbadge
db STEEL ; mineralbadge
db FIGHTING ; stormbadge
db ICE ; glacierbadge
db DRAGON ; risingbadge
db ROCK ; boulderbadge
db WATER ; cascadebadge
db ELECTRIC ; thunderbadge
db GRASS ; rainbowbadge
db POISON ; soulbadge
db PSYCHIC ; marshbadge
db FIRE ; volcanobadge
db GROUND ; earthbadge
db $ff
; fbe91
SECTION "bank3F", ROMX, BANK[$3F]
INCLUDE "tilesets/animations.asm"
; Trade struct
TRADE_DIALOG EQU 0
TRADE_GIVEMON EQU 1
TRADE_GETMON EQU 2
TRADE_NICK EQU 3
TRADE_DVS EQU 14
TRADE_ITEM EQU 16
TRADE_OT_ID EQU 17
TRADE_OT_NAME EQU 19
TRADE_GENDER EQU 30
TRADE_PADDING EQU 31
; Trade dialogs
TRADE_INTRO EQU 0
TRADE_CANCEL EQU 1
TRADE_WRONG EQU 2
TRADE_COMPLETE EQU 3
TRADE_AFTER EQU 4
NPCTrade:: ; fcba8
ld a, e
ld [wcf63], a
call Functionfcc59
ld b, CHECK_FLAG
call TradeFlagAction
ld a, TRADE_AFTER
jr nz, .done
ld a, TRADE_INTRO
call PrintTradeText
call YesNoBox
ld a, TRADE_CANCEL
jr c, .done
; Select givemon from party
ld b, $6
callba Function5001d
ld a, TRADE_CANCEL
jr c, .done
ld e, TRADE_GIVEMON
call GetTradeAttribute
ld a, [CurPartySpecies]
cp [hl]
ld a, TRADE_WRONG
jr nz, .done
call CheckTradeGender
ld a, TRADE_WRONG
jr c, .done
ld b, SET_FLAG
call TradeFlagAction
ld hl, ConnectLinkCableText
call PrintText
call Functionfcc63
call Functionfcc07
call GetTradeMonNames
ld hl, TradedForText
call PrintText
call RestartMapMusic
ld a, TRADE_COMPLETE
.done
call PrintTradeText
ret
; fcc07
Functionfcc07: ; fcc07
call Function2ed3
ld a, [wcf63]
push af
ld a, [wcf64]
push af
predef Function28f24
pop af
ld [wcf64], a
pop af
ld [wcf63], a
call Function2b74
ret
; fcc23
CheckTradeGender: ; fcc23
xor a
ld [MonType], a
ld e, TRADE_GENDER
call GetTradeAttribute
ld a, [hl]
and a
jr z, .asm_fcc46
cp 1
jr z, .asm_fcc3e
callba GetGender
jr nz, .asm_fcc48
jr .asm_fcc46
.asm_fcc3e
callba GetGender
jr z, .asm_fcc48
.asm_fcc46
and a
ret
.asm_fcc48
scf
ret
; fcc4a
TradeFlagAction: ; fcc4a
ld hl, wd960
ld a, [wcf63]
ld c, a
predef FlagPredef
ld a, c
and a
ret
; fcc59
Functionfcc59: ; fcc59
ld e, TRADE_DIALOG
call GetTradeAttribute
ld a, [hl]
ld [wcf64], a
ret
; fcc63
Functionfcc63: ; fcc63
ld e, TRADE_GIVEMON
call GetTradeAttribute
ld a, [hl]
ld [wc6d0], a
ld e, TRADE_GETMON
call GetTradeAttribute
ld a, [hl]
ld [wc702], a
ld a, [wc6d0]
ld de, wc6d1
call Functionfcde8
call Functionfcdf4
ld a, [wc702]
ld de, wc703
call Functionfcde8
call Functionfcdf4
ld hl, PartyMonOT
ld bc, $000b
call Functionfcdd7
ld de, wc6f2
call Functionfcdf4
ld hl, PlayerName
ld de, wc6e7
call Functionfcdf4
ld hl, PartyMon1ID
ld bc, PartyMon2 - PartyMon1
call Functionfcdd7
ld de, wc6ff
call Functionfce0f
ld hl, PartyMon1DVs
ld bc, PartyMon2 - PartyMon1
call Functionfcdd7
ld de, wc6fd
call Functionfce0f
ld hl, PartyMon1Species
ld bc, PartyMon2 - PartyMon1
call Functionfcdd7
ld b, h
ld c, l
callba GetCaughtGender
ld a, c
ld [wc701], a
ld e, TRADE_DIALOG
call GetTradeAttribute
ld a, [hl]
cp TRADE_COMPLETE
ld a, 1
jr c, .asm_fcce6
ld a, 2
.asm_fcce6
ld [wc733], a
ld hl, PartyMon1Level
ld bc, PartyMon2 - PartyMon1
call Functionfcdd7
ld a, [hl]
ld [CurPartyLevel], a
ld a, [wc702]
ld [CurPartySpecies], a
xor a
ld [MonType], a
ld [wd10b], a
callab Functione039
predef Functiond88c
ld e, TRADE_DIALOG
call GetTradeAttribute
ld a, [hl]
cp TRADE_COMPLETE
ld b, 0
jr c, .asm_fcd1c
ld b, 1
.asm_fcd1c
callba Function4dba3
ld e, TRADE_NICK
call GetTradeAttribute
ld de, wc70e
call Functionfcdf4
ld hl, PartyMonNicknames
ld bc, PKMN_NAME_LENGTH
call Functionfcdde
ld hl, wc70e
call Functionfcdf4
ld e, TRADE_OT_NAME
call GetTradeAttribute
push hl
ld de, wc724
call Functionfcdf4
pop hl
ld de, wc719
call Functionfcdf4
ld hl, PartyMonOT
ld bc, $000b
call Functionfcdde
ld hl, wc724
call Functionfcdf4
ld e, TRADE_DVS
call GetTradeAttribute
ld de, wc72f
call Functionfce0f
ld hl, PartyMon1DVs
ld bc, PartyMon2 - PartyMon1
call Functionfcdde
ld hl, wc72f
call Functionfce0f
ld e, TRADE_OT_ID
call GetTradeAttribute
ld de, wc732
call Functionfce15
ld hl, PartyMon1ID
ld bc, PartyMon2 - PartyMon1
call Functionfcdde
ld hl, wc731
call Functionfce0f
ld e, TRADE_ITEM
call GetTradeAttribute
push hl
ld hl, PartyMon1Item
ld bc, PartyMon2 - PartyMon1
call Functionfcdde
pop hl
ld a, [hl]
ld [de], a
push af
push bc
push de
push hl
ld a, [CurPartyMon]
push af
ld a, [PartyCount]
dec a
ld [CurPartyMon], a
callba Functione134
pop af
ld [CurPartyMon], a
pop hl
pop de
pop bc
pop af
ret
; fcdc2
GetTradeAttribute: ; 0xfcdc2
ld d, 0
push de
ld a, [wcf63]
and $f
swap a
ld e, a
ld d, 0
ld hl, NPCTrades
rept 2
add hl, de
endr
pop de
add hl, de
ret
; 0xfcdd7
Functionfcdd7: ; fcdd7
ld a, [CurPartyMon]
call AddNTimes
ret
; fcdde
Functionfcdde: ; fcdde
ld a, [PartyCount]
dec a
call AddNTimes
ld e, l
ld d, h
ret
; fcde8
Functionfcde8: ; fcde8
push de
ld [wd265], a
call GetBasePokemonName
ld hl, StringBuffer1
pop de
ret
; fcdf4
Functionfcdf4: ; fcdf4
ld bc, $000b
call CopyBytes
ret
; fcdfb
Functionfcdfb: ; fcdfb
ld bc, $0004
call CopyBytes
ld a, $50
ld [de], a
ret
; fce05
Functionfce05: ; fce05
ld bc, $0003
call CopyBytes
ld a, $50
ld [de], a
ret
; fce0f
Functionfce0f: ; fce0f
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
ret
; fce15
Functionfce15: ; fce15
ld a, [hli]
ld [de], a
dec de
ld a, [hl]
ld [de], a
ret
; fce1b
GetTradeMonNames: ; fce1b
ld e, TRADE_GETMON
call GetTradeAttribute
ld a, [hl]
call Functionfcde8
ld de, StringBuffer2
call Functionfcdf4
ld e, TRADE_GIVEMON
call GetTradeAttribute
ld a, [hl]
call Functionfcde8
ld de, wd050
call Functionfcdf4
ld hl, StringBuffer1
.loop
ld a, [hli]
cp "@"
jr nz, .loop
dec hl
push hl
ld e, TRADE_GENDER
call GetTradeAttribute
ld a, [hl]
pop hl
and a
ret z
cp 1
ld a, "♂"
jr z, .done
ld a, "♀"
.done
ld [hli], a
ld [hl], "@"
ret
; fce58
NPCTrades: ; fce58
db 0, ABRA, MACHOP, "MUSCLE@@@@@", $37, $66, GOLD_BERRY, $54, $92, "MIKE@@@@@@@", 0, 0
db 0, BELLSPROUT, ONIX, "ROCKY@@@@@@", $96, $66, BITTER_BERRY, $1e, $bf, "KYLE@@@@@@@", 0, 0
db 1, KRABBY, VOLTORB, "VOLTY@@@@@@", $98, $88, PRZCUREBERRY, $05, $72, "TIM@@@@@@@@", 0, 0
db 3, DRAGONAIR, DODRIO, "DORIS@@@@@@", $77, $66, SMOKE_BALL, $1b, $01, "EMY@@@@@@@@", 2, 0
db 2, HAUNTER, XATU, "PAUL@@@@@@@", $96, $86, MYSTERYBERRY, $00, $3d, "CHRIS@@@@@@", 0, 0
db 3, CHANSEY, AERODACTYL, "AEROY@@@@@@", $96, $66, GOLD_BERRY, $7b, $67, "KIM@@@@@@@@", 0, 0
db 0, DUGTRIO, MAGNETON, "MAGGIE@@@@@", $96, $66, METAL_COAT, $a2, $c3, "FOREST@@@@@", 0, 0
; fcf38
PrintTradeText: ; fcf38
push af
call GetTradeMonNames
pop af
ld bc, 2 * 4
ld hl, TradeTexts
call AddNTimes
ld a, [wcf64]
ld c, a
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
call PrintText
ret
; fcf53
TradeTexts: ; fcf53
; intro
dw TradeIntroText1
dw TradeIntroText2
dw TradeIntroText3
dw TradeIntroText4
; cancel
dw TradeCancelText1
dw TradeCancelText2
dw TradeCancelText3
dw TradeCancelText4
; wrong mon
dw TradeWrongText1
dw TradeWrongText2
dw TradeWrongText3
dw TradeWrongText4
; completed
dw TradeCompleteText1
dw TradeCompleteText2
dw TradeCompleteText3
dw TradeCompleteText4
; after
dw TradeAfterText1
dw TradeAfterText2
dw TradeAfterText3
dw TradeAfterText4
; fcf7b
ConnectLinkCableText: ; 0xfcf7b
; OK, connect the Game Link Cable.
text_jump UnknownText_0x1bd407
db "@"
; 0xfcf80
TradedForText: ; 0xfcf80
; traded givemon for getmon
text_jump UnknownText_0x1bd429
start_asm
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
ld hl, .done
ret
.done
; sound0x0A
; interpret_data
text_jump UnknownText_0x1bd445
db "@"
; 0xfcf97
TradeIntroText1: ; 0xfcf97
; I collect #MON. Do you have @ ? Want to trade it for my @ ?
text_jump UnknownText_0x1bd449
db "@"
; 0xfcf9c
TradeCancelText1: ; 0xfcf9c
; You don't want to trade? Aww…
text_jump UnknownText_0x1bd48c
db "@"
; 0xfcfa1
TradeWrongText1: ; 0xfcfa1
; Huh? That's not @ . What a letdown…
text_jump UnknownText_0x1bd4aa
db "@"
; 0xfcfa6
TradeCompleteText1: ; 0xfcfa6
; Yay! I got myself @ ! Thanks!
text_jump UnknownText_0x1bd4d2
db "@"
; 0xfcfab
TradeAfterText1: ; 0xfcfab
; Hi, how's my old @ doing?
text_jump UnknownText_0x1bd4f4
db "@"
; 0xfcfb0
TradeIntroText2:
TradeIntroText3: ; 0xfcfb0
; Hi, I'm looking for this #MON. If you have @ , would you trade it for my @ ?
text_jump UnknownText_0x1bd512
db "@"
; 0xfcfb5
TradeCancelText2:
TradeCancelText3: ; 0xfcfb5
; You don't have one either? Gee, that's really disappointing…
text_jump UnknownText_0x1bd565
db "@"
; 0xfcfba
TradeWrongText2:
TradeWrongText3: ; 0xfcfba
; You don't have @ ? That's too bad, then.
text_jump UnknownText_0x1bd5a1
db "@"
; 0xfcfbf
TradeCompleteText2: ; 0xfcfbf
; Great! Thank you! I finally got @ .
text_jump UnknownText_0x1bd5cc
db "@"
; 0xfcfc4
TradeAfterText2: ; 0xfcfc4
; Hi! The @ you traded me is doing great!
text_jump UnknownText_0x1bd5f4
db "@"
; 0xfcfc9
TradeIntroText4: ; 0xfcfc9
; 's cute, but I don't have it. Do you have @ ? Want to trade it for my @ ?
text_jump UnknownText_0x1bd621
db "@"
; 0xfcfce
TradeCancelText4: ; 0xfcfce
; You don't want to trade? Oh, darn…
text_jump UnknownText_0x1bd673
db "@"
; 0xfcfd3
TradeWrongText4: ; 0xfcfd3
; That's not @ . Please trade with me if you get one.
text_jump UnknownText_0x1bd696
db "@"
; 0xfcfd8
TradeCompleteText4: ; 0xfcfd8
; Wow! Thank you! I always wanted @ !
text_jump UnknownText_0x1bd6cd
db "@"
; 0xfcfdd
TradeAfterText4: ; 0xfcfdd
; How is that @ I traded you doing? Your @ 's so cute!
text_jump UnknownText_0x1bd6f5
db "@"
; 0xfcfe2
TradeCompleteText3: ; 0xfcfe2
; Uh? What happened?
text_jump UnknownText_0x1bd731
db "@"
; 0xfcfe7
TradeAfterText3: ; 0xfcfe7
; Trading is so odd… I still have a lot to learn about it.
text_jump UnknownText_0x1bd745
db "@"
; 0xfcfec
Functionfcfec:: ; fcfec
ld a, [wd45c]
and a
ret nz
call GetMapHeaderPhoneServiceNybble
and a
ret nz
xor a
ld [wdc18], a
call CheckBalance_MomItem2
ret nc
call Functionfd0c3
ret nc
ld b, BANK(UnknownScript_0xfd00f)
ld de, UnknownScript_0xfd00f
callba Function97c4f
scf
ret
; fd00f
UnknownScript_0xfd00f: ; 0xfd00f
callasm Functionfd017
farjump UnknownScript_0x90241
; 0xfd017
Functionfd017: ; fd017
call MomBuysItem_DeductFunds
call Functionfd0eb
ld a, [wdc18]
and a
jr nz, .ok
ld hl, wdc17
inc [hl]
.ok
ld a, 1
ld [wdbf9], a
ld bc, wd03f
ld hl, 0
add hl, bc
ld [hl], 0
inc hl
ld [hl], 1
ld hl, 9
add hl, bc
ld a, $3f
ld [hli], a
ld a, e
ld [hli], a
ld a, d
ld [hl], a
ret
; fd044
CheckBalance_MomItem2: ; fd044
ld a, [wdc17]
cp 10
jr nc, .nope
call GetItemFromMom
ld a, [hli]
ld [hMoneyTemp], a
ld a, [hli]
ld [$ffc4], a
ld a, [hli]
ld [$ffc5], a
ld de, wd851
ld bc, hMoneyTemp
callba CheckMoney
jr nc, .have_enough_money
.nope
jr .check_have_2300
.have_enough_money
scf
ret
.check_have_2300
ld hl, hMoneyTemp
ld [hl], (2300 / $10000) ; $00
inc hl
ld [hl], ((2300 % $10000) / $100) ; $08
inc hl
ld [hl], (2300 % $100) ; $fc
.loop
ld de, wdc19
ld bc, wd851
callba CheckMoney
jr z, .exact
jr nc, .less_than
call Functionfd099
jr .loop
.less_than
xor a
ret
.exact
call Functionfd099
ld a, 5
call RandomRange
inc a
ld [wdc18], a
scf
ret
; fd099
Functionfd099: ; fd099
ld de, wdc19
ld bc, hMoneyTemp
callba Function16053
ret
; fd0a6
MomBuysItem_DeductFunds: ; fd0a6 (3f:50a6)
call GetItemFromMom
ld de, 3
add hl, de
ld a, [hli]
ld [hMoneyTemp], a
ld a, [hli]
ld [$ffc4], a
ld a, [hli]
ld [$ffc5], a
ld de, wd851
ld bc, hMoneyTemp
callba TakeMoney
ret
Functionfd0c3: ; fd0c3
call GetItemFromMom
ld de, 6
add hl, de
ld a, [hli]
cp 1
jr z, .not_doll
ld a, [hl]
ld c, a
ld b, 1
callba DecorationFlagAction_c
scf
ret
.not_doll
ld a, [hl]
ld [CurItem], a
ld a, $1
ld [wd10c], a
ld hl, PCItems
call ReceiveItem
ret
; fd0eb
Functionfd0eb: ; fd0eb (3f:50eb)
call GetItemFromMom
ld de, 6 ; field
add hl, de
ld a, [hli]
ld de, Script_MomBoughtItem
cp 1
ret z
ld de, Script_MomBoughtDoll
ret
; fd0fd (3f:50fd)
Script_MomBoughtItem: ; 0xfd0fd
writetext _MomText_HiHowAreYou
writetext _MomText_FoundAnItem
writetext _MomText_BoughtWithYourMoney
writetext _MomText_ItsInPC
end
; 0xfd10a
Script_MomBoughtDoll: ; 0xfd10a
writetext _MomText_HiHowAreYou
writetext _MomText_FoundADoll
writetext _MomText_BoughtWithYourMoney
writetext _MomText_ItsInRoom
end
; 0xfd117
GetItemFromMom: ; fd117
ld a, [wdc18]
and a
jr z, .zero
dec a
ld de, MomItems_1
jr .incave
.zero
ld a, [wdc17]
cp 10 ; length of MomItems_2
jr c, .ok
xor a
.ok
ld de, MomItems_2
.incave
ld l, a
ld h, 0
rept 3 ; multiply hl by 8
add hl, hl
endr
add hl, de
ret
; fd136
momitem: macro
; money to trigger, cost, kind, item
dt \1
dt \2
db \3, \4
ENDM
MomItems_1: ; fd136
momitem 0, 600, MOM_ITEM, SUPER_POTION
momitem 0, 90, MOM_ITEM, ANTIDOTE
momitem 0, 180, MOM_ITEM, POKE_BALL
momitem 0, 450, MOM_ITEM, ESCAPE_ROPE
momitem 0, 500, MOM_ITEM, GREAT_BALL
; fd15e
MomItems_2: ; fd15e
momitem 900, 600, MOM_ITEM, SUPER_POTION
momitem 4000, 270, MOM_ITEM, REPEL
momitem 7000, 600, MOM_ITEM, SUPER_POTION
momitem 10000, 1800, MOM_DOLL, DECO_CHARMANDER_DOLL
momitem 15000, 3000, MOM_ITEM, MOON_STONE
momitem 19000, 600, MOM_ITEM, SUPER_POTION
momitem 30000, 4800, MOM_DOLL, DECO_CLEFAIRY_DOLL
momitem 40000, 900, MOM_ITEM, HYPER_POTION
momitem 50000, 8000, MOM_DOLL, DECO_PIKACHU_DOLL
momitem 100000, 22800, MOM_DOLL, DECO_BIG_SNORLAX_DOLL
; fd1ae
db 0, 0, 0 ; XXX
_MomText_HiHowAreYou: ; 0xfd1b1
; Hi, ! How are you?
text_jump UnknownText_0x1bc615
db "@"
; 0xfd1b6
_MomText_FoundAnItem: ; 0xfd1b6
; I found a useful item shopping, so
text_jump UnknownText_0x1bc62a
db "@"
; 0xfd1bb
_MomText_BoughtWithYourMoney: ; 0xfd1bb
; I bought it with your money. Sorry!
text_jump UnknownText_0x1bc64e
db "@"
; 0xfd1c0
_MomText_ItsInPC: ; 0xfd1c0
; It's in your PC. You'll like it!
text_jump UnknownText_0x1bc673
db "@"
; 0xfd1c5
_MomText_FoundADoll: ; 0xfd1c5
; While shopping today, I saw this adorable doll, so
text_jump UnknownText_0x1bc693
db "@"
; 0xfd1ca
_MomText_ItsInRoom: ; 0xfd1ca
; It's in your room. You'll love it!
text_jump UnknownText_0x1bc6c7
db "@"
; 0xfd1cf
db 0 ; XXX
Functionfd1d0: ; fd1d0
ret
; fd1d1
ret ; XXX
INCLUDE "misc/mobile_40.asm"
SECTION "bank41", ROMX, BANK[$41]
Function104000:: ; 104000
ld hl, Function104006
jp Function104177
; 104006
Function104006: ; 104006
decoord 0, 0, AttrMap
ld hl, w6_d000 + $400
call Function104263
decoord 0, 0
ld hl, w6_d000
call Function10425f
ld a, $0
ld [rVBK], a
ld hl, w6_d000
call Function10419d
ld a, $1
ld [rVBK], a
ld hl, w6_d000 + $400
call Function10419d
ret
; 10402d
Function10402d:: ; 10402d
ld hl, Function104033
jp Function104177
; 104033
Function104033: ; 104033
decoord 0, 0
ld hl, w6_d000
call Function10425f
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, w6_d000
call Function10419d
ret
; 104047
Function104047: ; 104047
ld hl, Function10404d
jp Function104177
; 10404d
Function10404d: ; 10404d
decoord 0, 0, AttrMap
ld hl, $d400
call Function104263
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, $d400
call Function10419d
ret
; 104061
Function104061:: ; 104061
ld hl, Function104067
jp Function104177
; 104067
Function104067: ; 104067
decoord 0, 0, AttrMap
ld hl, $d400
call Function104263
decoord 0, 0
ld hl, w6_d000
call Function10425f
call DelayFrame
di
ld a, [rVBK] ; $ff00+$4f
push af
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, $d400
call Function1041ad
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, w6_d000
call Function1041ad
pop af
ld [rVBK], a ; $ff00+$4f
ei
ret
Function104099: ; 104099
ld hl, Function104061
ld hl, Function1040a2
jp Function104177
; 1040a2
Function1040a2: ; 1040a2
decoord 0, 0, AttrMap
ld hl, $d400
call Function104263
decoord 0, 0
ld hl, w6_d000
call Function10425f
call DelayFrame
di
ld a, [rVBK]
push af
ld a, $1
ld [rVBK], a
ld hl, $d400
call Function1041c1
ld a, $0
ld [rVBK], a
ld hl, w6_d000
call Function1041c1
pop af
ld [rVBK], a
ei
ret
; 1040d4
Function1040d4: ; 1040d4
ld hl, Function1040da
jp Function104177
; 1040da
Function1040da: ; 1040da
ld a, $1
ld [rVBK], a
ld a, $3
ld [rSVBK], a
ld de, $d800
ld a, [$ffd7]
ld [rHDMA1], a
ld a, [hBGMapAddress]
ld [rHDMA2], a
ld a, d
ld [rHDMA3], a
ld a, e
ld [rHDMA4], a
ld a, $23
ld [hDMATransfer], a
call Function1041a4
ret
; 1040fb
Function1040fb: ; 1040fb
ld hl, Function104101
jp Function104177
; 104101
Function104101: ; 104101
ld a, $1
ld [rVBK], a
ld a, $3
ld [rSVBK], a
ld hl, $d800
call Function10419d
ret
; 104110
Function104110:: ; 104110
ld hl, Function104116
jp Function104177
; 104116
Function104116: ; 104116
decoord 0, 0, AttrMap
ld hl, $d400
call Function104263
decoord 0, 0
ld hl, w6_d000
call Function10425f
call DelayFrame
di
ld a, [rVBK] ; $ff00+$4f
push af
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld hl, $d400
call Function1041b7
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld hl, w6_d000
call Function1041b7
pop af
ld [rVBK], a ; $ff00+$4f
ei
ret
; 104148
Function104148: ; 104148 (41:4148)
ld hl, Function10414e
jp Function104177
; 10414e (41:414e)
Function10414e: ; 10414e
decoord 0, 0, AttrMap
ld hl, $d400
call Function104263
ld c, $ff
decoord 0, 0
ld hl, w6_d000
call Function104265
ld a, $1
ld [rVBK], a
ld hl, $d400
call Function1041ad
ld a, $0
ld [rVBK], a
ld hl, w6_d000
call Function1041ad
ret
; 104177
Function104177: ; 104177
ld a, [hBGMapMode]
push af
ld a, [$ffde]
push af
xor a
ld [hBGMapMode], a
ld [$ffde], a
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld a, [rVBK]
push af
call Function10419c
pop af
ld [rVBK], a
pop af
ld [rSVBK], a
pop af
ld [$ffde], a
pop af
ld [hBGMapMode], a
ret
; 10419c
Function10419c: ; 10419c
jp [hl]
; 10419d
Function10419d: ; 10419d (41:419d)
call Function10424e
ld a, $23
ld [hDMATransfer], a ; $ff00+$e8
Function1041a4: ; 104a14
.asm_1041a4
call DelayFrame
ld a, [hDMATransfer] ; $ff00+$e8
and a
jr nz, .asm_1041a4
ret
Function1041ad: ; 1041ad (41:41ad)
ld a, [$ffd7]
ld d, a
ld a, [hBGMapAddress] ; $ff00+$d6
ld e, a
ld c, $24
jr Function104209
Function1041b7: ; 1041b7 (41:41b7)
ld a, [$ffd7]
ld d, a
ld a, [hBGMapAddress] ; $ff00+$d6
ld e, a
ld c, $24
jr asm_104205
; 1041c1 (41:41c1)
Function1041c1: ; 1041c1
ld a, [$ffd7]
ld d, a
ld a, [hBGMapAddress]
ld e, a
ld c, $24
ld a, h
ld [rHDMA1], a
ld a, l
and $f0
ld [rHDMA2], a
ld a, d
and $1f
ld [rHDMA3], a
ld a, e
and $f0
ld [rHDMA4], a
ld a, c
dec c
or $80
ld b, a
ld a, $7f
sub c
ld d, a
.asm_1041e4
ld a, [rLY]
cp d
jr nc, .asm_1041e4
.asm_1041e9
ld a, [rSTAT]
and $3
jr z, .asm_1041e9
ld a, b
ld [rHDMA5], a
ld a, [rLY]
inc c
ld hl, rLY
.asm_1041f8
cp [hl]
jr z, .asm_1041f8
ld a, [hl]
dec c
jr nz, .asm_1041f8
ld hl, rHDMA5
res 7, [hl]
ret
; 104205
asm_104205:
ld b, $7b
jr asm_10420b
Function104209: ; 104209
ld b, $7f
asm_10420b:
ld a, h
ld [rHDMA1], a
ld a, l
and $f0
ld [rHDMA2], a
ld a, d
and $1f
ld [rHDMA3], a
ld a, e
and $f0
ld [rHDMA4], a
ld a, c
dec c
or $80
ld e, a
ld a, b
sub c
ld d, a
.asm_104225
ld a, [rLY]
cp d
jr nc, .asm_104225
di
.asm_10422b
ld a, [rSTAT]
and $3
jr nz, .asm_10422b
.asm_104231
ld a, [rSTAT]
and $3
jr z, .asm_104231
ld a, e
ld [rHDMA5], a
ld a, [rLY]
inc c
ld hl, rLY
.asm_104240
cp [hl]
jr z, .asm_104240
ld a, [hl]
dec c
jr nz, .asm_104240
ld hl, rHDMA5
res 7, [hl]
ei
ret
; 10424e
Function10424e: ; 10424e (41:424e)
ld a, h
ld [rHDMA1], a ; $ff00+$51
ld a, l
ld [rHDMA2], a ; $ff00+$52
ld a, [$ffd7]
and $1f
ld [rHDMA3], a ; $ff00+$53
ld a, [hBGMapAddress] ; $ff00+$d6
ld [rHDMA4], a ; $ff00+$54
ret
Function10425f: ; 10425f (41:425f)
ld c, $7f
jr Function104265
Function104263: ; 104263 (41:4263)
ld c, $0
Function104265: ; 104265 (41:4265)
ld a, [$ffaf]
push af
ld a, c
ld [$ffaf], a
ld c, $12
.asm_10426d
ld b, $14
.asm_10426f
ld a, [de]
inc de
ld [hli], a
dec b
jr nz, .asm_10426f
ld a, [$ffaf]
ld b, $c
.asm_104279
ld [hli], a
dec b
jr nz, .asm_104279
dec c
jr nz, .asm_10426d
pop af
ld [$ffaf], a
ret
Function104284:: ; 104284
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push bc
push hl
ld a, b
ld l, c
ld h, $0
rept 4
add hl, hl
endr
ld b, h
ld c, l
ld h, d
ld l, e
ld de, w6_d000
call FarCopyBytes
pop hl
pop bc
push bc
call DelayFrame
pop bc
ld d, h
ld e, l
ld hl, w6_d000
call Function104209
pop af
ld [rSVBK], a
ret
; 1042b2
Function1042b2:: ; 1042b2
.asm_1042b2
ld a, c
cp $10
jp c, Function1042d6
jp z, Function1042d6
push bc
push hl
push de
ld c, $10
call Function1042d6
pop de
ld hl, $0080
add hl, de
ld d, h
ld e, l
pop hl
ld bc, $100
add hl, bc
pop bc
ld a, c
sub $10
ld c, a
jr .asm_1042b2
; 1042d6
Function1042d6: ; 1042d6
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push bc
push hl
ld a, b
ld l, c
ld h, $0
rept 3
add hl, hl
endr
ld c, l
ld b, h
ld h, d
ld l, e
ld de, w6_d000
call Functiondef
pop hl
pop bc
push bc
call DelayFrame
pop bc
ld d, h
ld e, l
ld hl, w6_d000
call Function104209
pop af
ld [rSVBK], a
ret
; 104303
Function104303: ; 104303
ld hl, Function104309
jp Function104177
; 104309
Function104309:
ld hl, w6_d000
decoord 0, 0
call Function10433a
ld hl, w6_d000 + $80
decoord 0, 0, AttrMap
call Function10433a
ld a, $1
ld [rVBK], a ; $ff00+$4f
ld c, $8
ld hl, w6_d000 + $80
ld de, $9c00
call Function104209
ld a, $0
ld [rVBK], a ; $ff00+$4f
ld c, $8
ld hl, w6_d000
ld de, $9c00
call Function104209
ret
Function10433a: ; 10433a (41:433a)
ld b, $4
.asm_10433c
ld c, $14
.asm_10433e
ld a, [de]
ld [hli], a
inc de
dec c
jr nz, .asm_10433e
ld a, l
add $c
ld l, a
ld a, h
adc $0
ld h, a
dec b
jr nz, .asm_10433c
ret
; 104350
ShockEmote: INCBIN "gfx/emotes/shock.2bpp"
QuestionEmote: INCBIN "gfx/emotes/question.2bpp"
HappyEmote: INCBIN "gfx/emotes/happy.2bpp"
SadEmote: INCBIN "gfx/emotes/sad.2bpp"
HeartEmote: INCBIN "gfx/emotes/heart.2bpp"
BoltEmote: INCBIN "gfx/emotes/bolt.2bpp"
SleepEmote: INCBIN "gfx/emotes/sleep.2bpp"
FishEmote: INCBIN "gfx/emotes/fish.2bpp"
FishingRodGFX: INCBIN "gfx/misc/fishing.2bpp"
RunCallback_05_03: ; 1045b0
call Clearwc7e8
call ResetMapBufferEventFlags
call ResetFlashIfOutOfCave
call GetCurrentMapTrigger
call ResetBikeFlags
ld a, $5
call RunMapCallback
RunCallback_03: ; 1045c4
callba Function97df9
ld a, $3
call RunMapCallback
call GetMapHeaderTimeOfDayNybble
ld [wc2d0], a
ret
EnterMapConnection: ; 1045d6
; Return carry if a connection has been entered.
ld a, [wd151]
and a
jp z, EnterSouthConnection
cp 1
jp z, EnterNorthConnection
cp 2
jp z, EnterWestConnection
cp 3
jp z, EnterEastConnection
ret
; 1045ed
EnterWestConnection: ; 1045ed
ld a, [WestConnectedMapGroup]
ld [MapGroup], a
ld a, [WestConnectedMapNumber]
ld [MapNumber], a
ld a, [WestConnectionStripXOffset]
ld [XCoord], a
ld a, [WestConnectionStripYOffset]
ld hl, YCoord
add [hl]
ld [hl], a
ld c, a
ld hl, WestConnectionWindow
ld a, [hli]
ld h, [hl]
ld l, a
srl c
jr z, .asm_10461e
ld a, [WestConnectedMapWidth]
add 6
ld e, a
ld d, 0
.asm_10461a
add hl, de
dec c
jr nz, .asm_10461a
.asm_10461e
ld a, l
ld [wd194], a
ld a, h
ld [wd195], a
jp EnteredConnection
; 104629
EnterEastConnection: ; 104629
ld a, [EastConnectedMapGroup]
ld [MapGroup], a
ld a, [EastConnectedMapNumber]
ld [MapNumber], a
ld a, [EastConnectionStripXOffset]
ld [XCoord], a
ld a, [EastConnectionStripYOffset]
ld hl, YCoord
add [hl]
ld [hl], a
ld c, a
ld hl, EastConnectionWindow
ld a, [hli]
ld h, [hl]
ld l, a
srl c
jr z, .asm_10465a
ld a, [EastConnectedMapWidth]
add 6
ld e, a
ld d, 0
.asm_104656
add hl, de
dec c
jr nz, .asm_104656
.asm_10465a
ld a, l
ld [wd194], a
ld a, h
ld [wd195], a
jp EnteredConnection
; 104665
EnterNorthConnection: ; 104665
ld a, [NorthConnectedMapGroup]
ld [MapGroup], a
ld a, [NorthConnectedMapNumber]
ld [MapNumber], a
ld a, [NorthConnectionStripYOffset]
ld [YCoord], a
ld a, [NorthConnectionStripXOffset]
ld hl, XCoord
add [hl]
ld [hl], a
ld c, a
ld hl, NorthConnectionWindow
ld a, [hli]
ld h, [hl]
ld l, a
ld b, 0
srl c
add hl, bc
ld a, l
ld [wd194], a
ld a, h
ld [wd195], a
jp EnteredConnection
; 104696
EnterSouthConnection: ; 104696
ld a, [SouthConnectedMapGroup]
ld [MapGroup], a
ld a, [SouthConnectedMapNumber]
ld [MapNumber], a
ld a, [SouthConnectionStripYOffset]
ld [YCoord], a
ld a, [SouthConnectionStripXOffset]
ld hl, XCoord
add [hl]
ld [hl], a
ld c, a
ld hl, SouthConnectionWindow
ld a, [hli]
ld h, [hl]
ld l, a
ld b, 0
srl c
add hl, bc
ld a, l
ld [wd194], a
ld a, h
ld [wd195], a
; fallthrough
; 1046c4
EnteredConnection: ; 1046c4
scf
ret
; 1046c6
LoadWarpData: ; 1046c6
call Function1046df
call Function104718
ld a, [wd146]
ld [WarpNumber], a
ld a, [wd147]
ld [MapGroup], a
ld a, [wd148]
ld [MapNumber], a
ret
Function1046df: ; 1046df (41:46df)
call GetMapPermission
call CheckOutdoorMap
ret nz
ld a, [wd147]
ld b, a
ld a, [wd148]
ld c, a
call GetAnyMapPermission
call CheckIndoorMap
ret nz
ld a, [wd14a]
cp $f
jr nz, .asm_104705
ld a, [wd14b]
cp $a
ret z
cp $c
ret z
.asm_104705
ld a, [wd149]
ld [wdca9], a
ld a, [wd14a]
ld [wdcaa], a
ld a, [wd14b]
ld [wdcab], a
ret
Function104718: ; 104718 (41:4718)
call GetMapPermission
call CheckOutdoorMap
ret nz
ld a, [wd147]
ld b, a
ld a, [wd148]
ld c, a
call GetAnyMapPermission
call CheckIndoorMap
ret nz
ld a, [wd147]
ld b, a
ld a, [wd148]
ld c, a
call GetAnyMapTileset
ld a, c
cp $7
jr z, .asm_104743
cp $15
jr z, .asm_104743
ret
.asm_104743
ld a, [wd14a]
ld [wdcb2], a
ld a, [wd14b]
ld [wdcb3], a
ret
LoadMapTimeOfDay: ; 104750
ld hl, VramState
res 6, [hl]
ld a, $1
ld [wc2ce], a
callba Function8c0e5
callba Function8c001
call Function2173
call Function104770
call Function1047a3
ret
Function104770: ; 104770 (41:4770)
ld a, $98
ld [wd153], a
xor a
ld [wd152], a
ld [hSCY], a ; $ff00+$d0
ld [hSCX], a ; $ff00+$cf
callba Function5958
ld a, [rVBK] ; $ff00+$4f
push af
ld a, $1
ld [rVBK], a ; $ff00+$4f
xor a
ld bc, $400
ld hl, $9800
call ByteFill
pop af
ld [rVBK], a ; $ff00+$4f
ld a, $60
ld bc, $400
ld hl, $9800
call ByteFill
ret
Function1047a3: ; 1047a3 (41:47a3)
decoord 0, 0
call Function1047b4
ld a, [hCGB] ; $ff00+$e6
and a
ret z
decoord 0, 0, AttrMap
ld a, $1
ld [rVBK], a ; $ff00+$4f
Function1047b4: ; 1047b4 (41:47b4)
ld hl, $9800
ld c, $14
ld b, $12
.asm_1047bb
push bc
.asm_1047bc
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_1047bc
ld bc, $c
add hl, bc
pop bc
dec b
jr nz, .asm_1047bb
ld a, $0
ld [rVBK], a ; $ff00+$4f
ret
LoadGraphics: ; 1047cf
call LoadTilesetHeader
call Function2821
xor a
ld [$ffde], a
xor a
ld [hTileAnimFrame], a ; $ff00+$df
callba Function14168
call Functione5f
callba Function106594
ret
LoadMapPalettes: ; 1047eb
ld b, $9
jp GetSGBLayout
; 1047f0
RefreshMapSprites: ; 1047f0
call ClearSprites
callba ReturnFromMapSetupScript
call Function2914
callba Function579d
callba Function154f7
ld hl, wd45b
bit 6, [hl]
jr nz, .asm_104817
ld hl, VramState
set 0, [hl]
call Function2e31
.asm_104817
ld a, [wd45b]
and $1c
ld [wd45b], a
ret
CheckMovingOffEdgeOfMap:: ; 104820 (41:4820)
ld a, [wd151]
cp STANDING
ret z
and a
jr z, .down
cp UP
jr z, .up
cp LEFT
jr z, .left
cp RIGHT
jr z, .right
and a
ret
.down
ld a, [MapY]
sub 4
ld b, a
ld a, [MapHeight]
add a
cp b
jr z, .ok
and a
ret
.up
ld a, [MapY]
sub 4
cp -1
jr z, .ok
and a
ret
.left
ld a, [MapX]
sub $4
cp -1
jr z, .ok
and a
ret
.right
ld a, [MapX]
sub 4
ld b, a
ld a, [MapWidth]
add a
cp b
jr z, .ok
and a
ret
.ok
scf
ret
GetCoordOfUpperLeftCorner:: ; 10486d
ld hl, OverworldMap
ld a, [XCoord]
bit 0, a
jr nz, .asm_10487d
srl a
add $1
jr .asm_104881
.asm_10487d
add $1
srl a
.asm_104881
ld c, a
ld b, $0
add hl, bc
ld a, [MapWidth]
add $6
ld c, a
ld b, $0
ld a, [YCoord]
bit 0, a
jr nz, .asm_10489a
srl a
add $1
jr .asm_10489e
.asm_10489a
add $1
srl a
.asm_10489e
call AddNTimes
ld a, l
ld [wd194], a
ld a, h
ld [wd195], a
ld a, [YCoord]
and $1
ld [wd196], a
ld a, [XCoord]
and $1
ld [wd197], a
ret
; 1048ba
DoMysteryGift: ; 1048ba (41:48ba)
call ClearTileMap
call ClearSprites
call WaitBGMap
call Function105153
hlcoord 3, 8
ld de, String_1049cd
call PlaceString
call WaitBGMap
callba Function2c642
call Function1050fb
ld a, $2
ld [wca01], a
ld a, $14
ld [wca02], a
ld a, [rIE] ; $ff00+$ff
push af
call Function104a95
ld d, a
xor a
ld [rIF], a ; $ff00+$f
pop af
ld [rIE], a ; $ff00+$ff
push de
call ClearTileMap
call EnableLCD
call WaitBGMap
ld b, $8
call GetSGBLayout
call Function32f9
pop de
hlcoord 2, 8
ld a, d
ld de, UnknownText_0x1049fd
cp $10
jp z, Function1049af
cp $6c
jp nz, Function1049b4
ld a, [wc900]
cp $3
jr z, .asm_10492f
call Function104a25
ld hl, UnknownText_0x104a11
jp nc, Function1049c5
call Function104a30
ld hl, UnknownText_0x104a16
jp c, Function1049c5
.asm_10492f
ld a, [wc962]
and a
jp nz, Function1049bd
ld a, [wc912]
and a
jp nz, Function1049c2
ld a, [wc900]
cp $3
jr z, .asm_104963
call Function104a56
ld a, [wc900]
cp $4
jr z, .asm_104963
call Function104a71
callba Function10619d
callba Function1060a9
callba Function106187
.asm_104963
ld a, [wc90f]
and a
jr z, .asm_104990
ld a, [wc911]
ld c, a
callba Function2c715
push bc
call Function105069
pop bc
jr nz, .asm_104990
callab GetDecorationName_c
ld h, d
ld l, e
ld de, StringBuffer1
ld bc, $d
call CopyBytes
ld hl, UnknownText_0x104a20
jr Function1049c5
.asm_104990
call Function105106
ld a, [wc910]
ld c, a
callba Function2c708
ld a, c
ld [$abe4], a
ld [wd265], a
call CloseSRAM
call GetItemName
ld hl, UnknownText_0x104a1b
jr Function1049c5
Function1049af: ; 1049af (41:49af)
ld hl, UnknownText_0x1049fd
jr Function1049c5
Function1049b4: ; 1049b4 (41:49b4)
ld hl, UnknownText_0x104a02
call PrintText
jp DoMysteryGift
Function1049bd: ; 1049bd (41:49bd)
ld hl, UnknownText_0x104a07
jr Function1049c5
Function1049c2: ; 1049c2 (41:49c2)
ld hl, UnknownText_0x104a0c
Function1049c5: ; 1049c5 (41:49c5)
call PrintText
ld a, $e3
ld [rLCDC], a ; $ff00+$40
ret
; 1049cd (41:49cd)
String_1049cd: ; 1049cd
db "Press A to"
next "link IR-Device"
next "Press B to"
next "cancel it."
db "@"
; 1049fd
UnknownText_0x1049fd: ; 1049fd
text_jump UnknownText_0x1c0436
db "@"
; 104a02
UnknownText_0x104a02: ; 104a02
text_jump UnknownText_0x1c0454
db "@"
; 104a07
UnknownText_0x104a07: ; 104a07
text_jump UnknownText_0x1c046a
db "@"
; 104a0c
UnknownText_0x104a0c: ; 104a0c
text_jump UnknownText_0x1c048e
db "@"
; 104a11
UnknownText_0x104a11: ; 104a11
text_jump UnknownText_0x1c04a7
db "@"
; 104a16
UnknownText_0x104a16: ; 104a16
text_jump UnknownText_0x1c04c6
db "@"
; 104a1b
UnknownText_0x104a1b: ; 104a1b
text_jump UnknownText_0x1c04e9
db "@"
; 104a20
UnknownText_0x104a20: ; 104a20
text_jump UnknownText_0x1c04fa
db "@"
; 104a25
Function104a25: ; 104a25 (41:4a25)
call Function105106
ld a, [$abe5]
cp $5
jp CloseSRAM
Function104a30: ; 104a30 (41:4a30)
call Function105106
ld a, [wc901]
ld b, a
ld a, [wc902]
ld c, a
ld a, [$abe5]
ld d, a
ld hl, $abe6
.asm_104a42
ld a, d
and a
jr z, .asm_104a53
ld a, [hli]
cp b
jr nz, .asm_104a4e
ld a, [hl]
cp c
jr z, .asm_104a52
.asm_104a4e
inc hl
dec d
jr .asm_104a42
.asm_104a52
scf
.asm_104a53
jp CloseSRAM
Function104a56: ; 104a56 (41:4a56)
call Function105106
ld hl, $abe5
ld a, [hl]
inc [hl]
ld hl, $abe6
ld e, a
ld d, $0
rept 2
add hl, de
endr
ld a, [wc901]
ld [hli], a
ld a, [wc902]
ld [hl], a
jp CloseSRAM
Function104a71: ; 104a71 (41:4a71)
call Function105106
ld a, $1
ld [$abfd], a
ld hl, wc903
ld de, $abfe
ld bc, $b
call CopyBytes
ld a, $1
ld [de], a
inc de
ld hl, wc850
ld bc, $26
call CopyBytes
jp CloseSRAM
Function104a95: ; 104a95 (41:4a95)
di
callba ClearChannels
call Function104d5e
.asm_104a9f
call Function104d96
call Function104ddd
ld a, [$ffbc]
cp $10
jp z, Function104bd0
cp $6c
jr nz, .asm_104a9f
ld a, [$ffbb]
cp $2
jr z, Function104b22
ld hl, $ffb3
ld b, $1
call Function104d56
jr nz, .asm_104ac8
call Function104b49
jp nz, Function104bd0
jr asm_104b0a
.asm_104ac8
ld a, [rLY] ; $ff00+$44
cp $90
jr c, .asm_104ac8
ld c, $56
ld a, $c0
ld [$ff00+c], a
ld b, $f0
.asm_104ad5
push bc
call Function105038
ld b, $2
ld c, $56
.asm_104add
ld a, [$ff00+c]
and b
ld b, a
ld a, [rLY] ; $ff00+$44
cp $90
jr nc, .asm_104add
.asm_104ae6
ld a, [$ff00+c]
and b
ld b, a
ld a, [rLY] ; $ff00+$44
cp $90
jr c, .asm_104ae6
ld a, b
pop bc
dec b
jr z, .asm_104a9f
or a
jr nz, .asm_104a9f
ld a, [$ffc4]
bit 1, a
jr z, .asm_104ad5
ld a, $10
ld [$ffbc], a
jp Function104bd0
Function104b04: ; 104b04 (41:4b04)
call Function104b40
jp nz, Function104bd0
asm_104b0a: ; 104b0a (41:4b0a)
call Function104d38
jp nz, Function104bd0
call Function104b88
jp nz, Function104bd0
call Function104d43
jp nz, Function104bd0
call Function105033
jp Function104bd0
Function104b22: ; 104b22 (41:4b22)
call Function104b88
jp nz, Function104bd0
call Function104d43
jp nz, Function104bd0
call Function104b40
jp nz, Function104bd0
call Function104d38
jp nz, Function104bd0
call Function10502e
jp Function104bd0
Function104b40: ; 104b40 (41:4b40)
ld hl, $ffb3
ld b, $1
call Function104d56
ret nz
Function104b49: ; 104b49 (41:4b49)
call Function105033
ld a, [$ffbc]
cp $6c
ret nz
ld a, [$ffb3]
cp $96
jp nz, Function104d32
ld a, $90
ld [$ffb3], a
call Function104d38
ret nz
ld hl, $ffb3
ld b, $1
call Function104d4e
ret nz
call Function10502e
ld a, [$ffbc]
cp $6c
ret nz
call Function104d43
ret nz
ld hl, wc850
ld a, [wca02]
ld b, a
call Function104d56
ret nz
call Function105033
ld a, [$ffbc]
cp $6c
ret
Function104b88: ; 104b88 (41:4b88)
ld a, $96
ld [$ffb3], a
ld hl, $ffb3
ld b, $1
call Function104d4e
ret nz
call Function10502e
ld a, [$ffbc]
cp $6c
ret nz
call Function104d43
ret nz
ld hl, $ffb3
ld b, $1
call Function104d56
ret nz
call Function105033
ld a, [$ffbc]
cp $6c
ret nz
ld a, [$ffb3]
cp $90
jp nz, Function104d32
call Function104d38
ret nz
ld hl, OverworldMap
ld a, [wca02]
ld b, a
call Function104d4e
ret nz
call Function10502e
ld a, [$ffbc]
cp $6c
ret
Function104bd0: ; 104bd0 (41:4bd0)
nop
ld a, [$ffbc]
cp $10
jr z, .asm_104c18
cp $6c
jr nz, .asm_104c18
ld hl, wca01
dec [hl]
jr z, .asm_104c18
ld hl, wc850
ld de, wc900
ld bc, $14
call CopyBytes
ld a, [wc850]
cp $3
jr nc, .asm_104c18
callba Function10510b
call Function1050fb
ld a, $26
ld [wca02], a
ld a, [$ffbb]
cp $2
jr z, .asm_104c10
call Function104d43
jr nz, Function104bd0
jp Function104b04
.asm_104c10
call Function104d38
jr nz, Function104bd0
jp Function104b22
.asm_104c18
ld a, [$ffbc]
push af
call Function104da0
xor a
ld [rIF], a ; $ff00+$f
ld a, [rIE] ; $ff00+$ff
or $1
ld [rIE], a ; $ff00+$ff
ei
call DelayFrame
pop af
ret
Function104c2d: ; 104c2d (41:4c2d)
di
callba ClearChannels
call Function104d5e
.asm_104c37
call Function104d96
call Function104ddd
ld a, [$ffbc]
cp $10
jp z, Function104d1c
cp $6c
jr nz, .asm_104c37
ld a, [$ffbb]
cp $2
jr z, .asm_104c6c
call Function104c8a
jp nz, Function104d1c
call Function104d38
jp nz, Function104d1c
call Function104cd2
jp nz, Function104d1c
call Function104d43
jp nz, Function104d1c
call Function105033
jp Function104d1c
.asm_104c6c
call Function104cd2
jp nz, Function104d1c
call Function104d43
jp nz, Function104d1c
call Function104c8a
jp nz, Function104d1c
call Function104d38
jp nz, Function104d1c
call Function10502e
jp Function104d1c
Function104c8a: ; 104c8a (41:4c8a)
ld hl, $ffb3
ld b, $1
call Function104d56
ret nz
call Function105033
ld a, [$ffbc]
cp $6c
ret nz
ld a, [$ffb3]
cp $3c
jp nz, Function104d32
swap a
ld [$ffb3], a
call Function104d38
ret nz
ld hl, $ffb3
ld b, $1
call Function104d4e
ret nz
call Function10502e
ld a, [$ffbc]
cp $6c
ret nz
call Function104d43
ret nz
ld hl, wc850
ld a, [wca02]
ld b, a
call Function104d56
ret nz
call Function105033
ld a, [$ffbc]
cp $6c
ret
Function104cd2: ; 104cd2 (41:4cd2)
ld a, $3c
ld [$ffb3], a
ld hl, $ffb3
ld b, $1
call Function104d4e
ret nz
call Function10502e
ld a, [$ffbc]
cp $6c
ret nz
call Function104d43
ret nz
ld hl, $ffb3
ld b, $1
call Function104d56
ret nz
call Function105033
ld a, [$ffbc]
cp $6c
ret nz
ld a, [$ffb3]
swap a
cp $3c
jp nz, Function104d32
call Function104d38
ret nz
ld hl, OverworldMap
ld a, [wca02]
ld b, a
call Function104d4e
ret nz
call Function10502e
ld a, [$ffbc]
cp $6c
ret
Function104d1c: ; 104d1c (41:4d1c)
nop
ld a, [$ffbc]
push af
call Function104da0
xor a
ld [rIF], a ; $ff00+$f
ld a, [rIE] ; $ff00+$ff
or $1
ld [rIE], a ; $ff00+$ff
ei
call DelayFrame
pop af
ret
Function104d32: ; 104d32 (41:4d32)
ld a, $80
ld [$ffbc], a
and a
ret
Function104d38: ; 104d38 (41:4d38)
call Function104d96
call Function104e46
ld a, [$ffbc]
cp $6c
ret
Function104d43: ; 104d43 (41:4d43)
call Function104d96
call Function104dfe
ld a, [$ffbc]
cp $6c
ret
Function104d4e: ; 104d4e (41:4d4e)
call Function104e93
ld a, [$ffbc]
cp $6c
ret
Function104d56: ; 104d56 (41:4d56)
call Function104f57
ld a, [$ffbc]
cp $6c
ret
Function104d5e: ; 104d5e (41:4d5e)
call Function104d74
ld a, $4
ld [rIE], a ; $ff00+$ff
xor a
ld [rIF], a ; $ff00+$f
call Function104d96
xor a
ld b, a
.asm_104d6d
inc a
jr nz, .asm_104d6d
inc b
jr nz, .asm_104d6d
ret
Function104d74: ; 104d74 (41:4d74)
xor a
ld [rTAC], a ; $ff00+$7
ld a, $fe
ld [rTMA], a ; $ff00+$6
ld [rTIMA], a ; $ff00+$5
ld a, $2
ld [rTAC], a ; $ff00+$7
or $4
ld [rTAC], a ; $ff00+$7
ret
Function104d86: ; 104d86 (41:4d86)
xor a
ld [rTAC], a ; $ff00+$7
ld [rTMA], a ; $ff00+$6
ld [rTIMA], a ; $ff00+$5
ld a, $2
ld [rTAC], a ; $ff00+$7
or $4
ld [rTAC], a ; $ff00+$7
ret
Function104d96: ; 104d96 (41:4d96)
ld a, $c0
call Function104e8c
ld a, $1
ld [$ffbb], a
ret
Function104da0: ; 104da0 (41:4da0)
xor a
call Function104e8c
ld a, $2
ld [rTAC], a ; $ff00+$7
ret
Function104da9: ; 104da9 (41:4da9)
inc d
ret z
xor a
ld [rIF], a ; $ff00+$f
halt
ld a, [$ff00+c]
bit 1, a
jr z, Function104da9
or a
ret
Function104db7: ; 104db7 (41:4db7)
inc d
ret z
xor a
ld [rIF], a ; $ff00+$f
halt
ld a, [$ff00+c]
bit 1, a
jr nz, Function104db7
or a
ret
Function104dc5: ; 104dc5 (41:4dc5)
ld a, $c1
ld [$ff00+c], a
.asm_104dc8
dec d
ret z
xor a
ld [rIF], a ; $ff00+$f
halt
jr .asm_104dc8
Function104dd1: ; 104dd1 (41:4dd1)
ld a, $c0
ld [$ff00+c], a
.asm_104dd4
dec d
ret z
xor a
ld [rIF], a ; $ff00+$f
halt
jr .asm_104dd4
Function104ddd: ; 104ddd (41:4ddd)
ld d, $0
ld e, d
ld a, $1
ld [$ffbb], a
.asm_104de4
call Function105038
ld b, $2
ld c, $56
ld a, [$ffc4]
bit 1, a
jr z, .asm_104df6
ld a, $10
ld [$ffbc], a
ret
.asm_104df6
bit 0, a
jr nz, asm_104e3a
ld a, [$ff00+c]
and b
jr nz, .asm_104de4
Function104dfe: ; 104dfe (41:4dfe)
ld c, $56
ld d, $0
ld e, d
call Function104db7
jp z, Function104f42
ld d, e
call Function104da9
jp z, Function104f42
call Function104db7
jp z, Function104f42
call Function104da9
jp z, Function104f42
ld a, $6c
ld [$ffbc], a
ld d, $3d
call Function104dd1
ld d, $5
call Function104dc5
ld d, $15
call Function104dd1
ld d, $5
call Function104dc5
ld d, $5
call Function104dd1
ret
asm_104e3a: ; 104e3a (41:4e3a)
call Random
ld e, a
and $f
ld d, a
.asm_104e41
dec de
ld a, d
or e
jr nz, .asm_104e41
Function104e46: ; 104e46 (41:4e46)
ld a, $2
ld [$ffbb], a
ld c, $56
ld d, $0
ld e, d
ld d, $3d
call Function104dd1
ld d, $5
call Function104dc5
ld d, $15
call Function104dd1
ld d, $5
call Function104dc5
ld d, $5
call Function104dd1
ld d, e
call Function104db7
jp z, Function104f42
ld d, e
call Function104da9
jp z, Function104f42
call Function104db7
jp z, Function104f42
call Function104da9
jp z, Function104f42
ld d, $3d
call Function104dd1
ld a, $6c
ld [$ffbc], a
ret
Function104e8c: ; 104e8c (41:4e8c)
ld [rRP], a ; $ff00+$56
ld a, $ff
ld [$ffbc], a
ret
Function104e93: ; 104e93 (41:4e93)
xor a
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld [hMathBuffer], a ; $ff00+$b8
push hl
push bc
ld c, $56
ld d, $3d
call Function104dd1
ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand)
ld a, $5a
ld [hli], a
ld [hl], b
dec hl
ld b, $2
call Function104ed6
pop bc
pop hl
call Function104ed6
ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier)
ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand)
ld a, [hMathBuffer] ; $ff00+$b8
ld [$ffb5], a
push hl
ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand)
ld b, $2
call Function104ed6
ld hl, $ffbc
ld b, $1
call Function104faf
ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand)
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld a, [$ffb5]
ld [hMathBuffer], a ; $ff00+$b8
pop hl
ret
Function104ed6: ; 104ed6 (41:4ed6)
ld c, $56
ld d, $5
call Function104dd1
ld d, $5
call Function104dc5
ld d, $15
call Function104dd1
ld a, b
cpl
ld b, a
ld a, $f4
ld [rTMA], a ; $ff00+$6
.asm_104eee
inc b
jr z, .asm_104f2e
ld a, $8
ld [$ffb6], a
ld a, [hli]
ld e, a
ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier)
add e
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld a, [hMathBuffer] ; $ff00+$b8
adc $0
ld [hMathBuffer], a ; $ff00+$b8
.asm_104f02
xor a
ld [rIF], a ; $ff00+$f
halt
ld a, $c1
ld [rRP], a ; $ff00+$56
ld d, $1
ld a, e
rlca
ld e, a
jr nc, .asm_104f13
inc d
.asm_104f13
ld a, [rTIMA] ; $ff00+$5
cp $f8
jr c, .asm_104f13
ld a, $c0
ld [rRP], a ; $ff00+$56
dec d
jr z, .asm_104f25
xor a
ld [rIF], a ; $ff00+$f
halt
.asm_104f25
ld a, [$ffb6]
dec a
jr z, .asm_104eee
ld [$ffb6], a
jr .asm_104f02
.asm_104f2e
ld a, $fe
ld [rTMA], a ; $ff00+$6
xor a
ld [rIF], a ; $ff00+$f
halt
ld d, $5
call Function104dc5
ld d, $11
call Function104dd1
ret
Function104f42: ; 104f42 (41:4f42)
ld a, [$ffbc]
or $2
ld [$ffbc], a
ret
Function104f49: ; 104f49 (41:4f49)
ld a, [$ffbc]
or $1
ld [$ffbc], a
ret
Function104f50: ; 104f50 (41:4f50)
ld a, [$ffbc]
or $80
ld [$ffbc], a
ret
Function104f57: ; 104f57 (41:4f57)
xor a
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld [hMathBuffer], a ; $ff00+$b8
push bc
push hl
ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand)
ld b, $2
call Function104faf
ld a, [$ffb5]
ld [$ffba], a
ld b, a
pop hl
pop af
cp b
jp c, Function104f50
ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand)
cp $5a
jp nz, Function104f50
call Function104faf
ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier)
ld d, a
ld a, [hMathBuffer] ; $ff00+$b8
ld e, a
push hl
push de
ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand)
ld b, $2
call Function104faf
pop de
ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand)
ld a, [hli]
xor d
ld b, a
ld a, [hl]
xor e
or b
call nz, Function104f49
push de
ld d, $3d
call Function104dd1
ld hl, $ffbc
ld b, $1
call Function104ed6
pop de
pop hl
ld a, d
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld a, e
ld [hMathBuffer], a ; $ff00+$b8
ret
Function104faf: ; 104faf (41:4faf)
ld c, $56
ld d, $0
call Function104db7
jp z, Function104f42
ld d, $0
call Function104da9
jp z, Function104f42
ld d, $0
call Function104db7
jp z, Function104f42
ld a, b
cpl
ld b, a
xor a
ld [$ffc5], a
call Function104d86
.asm_104fd2
inc b
jr z, .asm_10501a
ld a, $8
ld [$ffb6], a
.asm_104fd9
ld d, $0
.asm_104fdb
inc d
jr z, .asm_104fe5
ld a, [$ff00+c]
bit 1, a
jr z, .asm_104fdb
ld d, $0
.asm_104fe5
inc d
jr z, .asm_104fed
ld a, [$ff00+c]
bit 1, a
jr nz, .asm_104fe5
.asm_104fed
ld a, [$ffc5]
ld d, a
ld a, [rTIMA] ; $ff00+$5
ld [$ffc5], a
sub d
cp $12
jr c, .asm_104ffd
set 0, e
jr .asm_104fff
.asm_104ffd
res 0, e
.asm_104fff
ld a, [$ffb6]
dec a
ld [$ffb6], a
jr z, .asm_10500b
ld a, e
rlca
ld e, a
jr .asm_104fd9
.asm_10500b
ld a, e
ld [hli], a
ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier)
add e
ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier)
ld a, [hMathBuffer] ; $ff00+$b8
adc $0
ld [hMathBuffer], a ; $ff00+$b8
jr .asm_104fd2
.asm_10501a
call Function104d74
xor a
ld [rIF], a ; $ff00+$f
ld d, $0
call Function104da9
jp z, Function104f42
ld d, $10
call Function104dd1
ret
Function10502e: ; 10502e (41:502e)
ld b, $0
jp Function104e93
Function105033: ; 105033 (41:5033)
ld b, $0
jp Function104f57
Function105038: ; 105038 (41:5038)
ld a, $20
ld [rJOYP], a ; $ff00+$0
rept 2
ld a, [rJOYP] ; $ff00+$0
endr
cpl
and $f
swap a
ld b, a
ld a, $10
ld [rJOYP], a ; $ff00+$0
rept 6
ld a, [rJOYP] ; $ff00+$0
endr
cpl
and $f
or b
ld c, a
ld a, [hMoneyTemp]
xor c
and c
ld [$ffc4], a
ld a, c
ld [hMoneyTemp], a
ld a, $30
ld [rJOYP], a ; $ff00+$0
ret
Function105069: ; 105069 (41:5069)
call Function105106
ld d, $0
ld b, $2
ld hl, $abf0
predef_id FlagPredef
push hl
push bc
call Predef
call CloseSRAM
ld a, c
and a
pop bc
pop hl
ret nz
call Function105106
ld b, $1
predef FlagPredef
call CloseSRAM
xor a
ret
Function105091: ; 105091 (41:5091)
call Function105106
ld c, $0
.asm_105096
push bc
ld d, $0
ld b, $2
ld hl, $abf0
predef FlagPredef
ld a, c
and a
pop bc
jr z, .asm_1050b0
push bc
callab SetSpecificDecorationFlag
pop bc
.asm_1050b0
inc c
ld a, c
cp $2b
jr c, .asm_105096
jp CloseSRAM
Special_UnlockMysteryGift: ; 1050b9
call Function105106
ld hl, $abe3
ld a, [hl]
inc a
jr nz, .ok
ld [hld], a
ld [hl], a
.ok
jp CloseSRAM
; 1050c8
Function1050c8: ; 1050c8
call Function105106
ld a, [$abe5]
cp $ff
jr z, .asm_1050d6
xor a
ld [$abe5], a
.asm_1050d6
jp CloseSRAM
; 1050d9
Function1050d9: ; 1050d9
call Function105106
ld hl, $abe2
ld de, $abe4
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
jp CloseSRAM
; 1050ea
Function1050ea: ; 1050ea (41:50ea)
call Function105106
ld hl, $abe4
ld de, $abe2
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
jp CloseSRAM
Function1050fb: ; 1050fb (41:50fb)
ld hl, wc850
xor a
ld b, $26
.asm_105101
ld [hli], a
dec b
jr nz, .asm_105101
ret
Function105106: ; 105106
ld a, $0
jp GetSRAMBank
; 10510b
Function10510b: ; 10510b (41:510b)
ld a, $1
call GetSRAMBank
ld de, OverworldMap
ld bc, $a86d
ld hl, $a866
.asm_105119
ld a, [hli]
cp $ff
jr z, .asm_105148
cp $fd
jr z, .asm_10513e
push hl
ld hl, $1f
add hl, bc
ld a, [hl]
ld [de], a
inc de
ld hl, $0
add hl, bc
ld a, [hl]
ld [de], a
inc de
ld hl, $2
add hl, bc
push bc
ld bc, $4
call CopyBytes
pop bc
pop hl
.asm_10513e
push hl
ld hl, $30
add hl, bc
ld b, h
ld c, l
pop hl
jr .asm_105119
.asm_105148
ld a, $ff
ld [de], a
ld a, $26
ld [wca00], a
jp CloseSRAM
Function105153: ; 105153 (41:5153)
call WhiteBGMap
call DisableLCD
ld hl, MysteryGiftGFX
ld de, $9000
ld a, BANK(MysteryGiftGFX)
ld bc, $430
call FarCopyBytes
hlcoord 0, 0
ld a, $42
ld bc, $168
call ByteFill
hlcoord 3, 7
ld bc, $90f
call ClearBox
hlcoord 0, 0
ld a, $0
ld [hli], a
inc a
ld [hl], a
hlcoord 0, 1
inc a
ld [hli], a
inc a
ld [hl], a
hlcoord 7, 1
ld a, $12
call Function10522e
hlcoord 2, 2
ld a, $17
call Function105236
hlcoord 2, 3
ld a, $27
call Function105236
hlcoord 9, 4
ld a, $37
ld [hli], a
inc a
ld [hl], a
hlcoord 1, 2
ld [hl], $4
hlcoord 1, 3
ld a, $5
call Function105246
ld a, $9
hlcoord 18, 5
call Function105242
hlcoord 2, 5
ld a, $b
call Function105251
hlcoord 2, 16
ld a, $7
call Function105251
hlcoord 2, 5
ld a, $d
call Function10522e
hlcoord 7, 5
ld [hl], $c
hlcoord 18, 5
ld [hl], $a
hlcoord 18, 16
ld [hl], $8
hlcoord 1, 16
ld [hl], $6
hlcoord 2, 6
ld a, $3a
call Function105251
hlcoord 2, 15
ld a, $40
call Function105251
hlcoord 2, 6
ld a, $3c
call Function10523e
hlcoord 17, 6
ld a, $3e
call Function10523e
hlcoord 2, 6
ld [hl], $39
hlcoord 17, 6
ld [hl], $3b
hlcoord 2, 15
ld [hl], $3f
hlcoord 17, 15
ld [hl], $41
call EnableLCD
call WaitBGMap
ld b, $1d
call GetSGBLayout
call Function32f9
ret
Function10522e: ; 10522e (41:522e)
ld b, $5
jr asm_105238
; 105232 (41:5232)
Function105232: ; unreferenced
ld b, 6
jr asm_105238
Function105236: ; 105236 (41:5236)
ld b, $10
asm_105238: ; 105238 (41:5238)
ld [hli], a
inc a
dec b
jr nz, asm_105238
ret
Function10523e: ; 10523e (41:523e)
ld b, $9
jr asm_105248
Function105242: ; 105242 (41:5242)
ld b, $b
jr asm_105248
Function105246: ; 105246 (41:5246)
ld b, $e
asm_105248: ; 105248 (41:5248)
ld [hl], a
ld de, $14
add hl, de
dec b
jr nz, asm_105248
ret
Function105251: ; 105251 (41:5251)
ld b, $10
.asm_105253
ld [hli], a
dec b
jr nz, .asm_105253
ret
MysteryGiftGFX: ; 105258
INCBIN "gfx/misc/mystery_gift.2bpp"
Function105688: ; 105688 (41:5688)
call ClearTileMap
call ClearSprites
call WaitBGMap
call Function1057d7
hlcoord 3, 8
ld de, String_10572e
call PlaceString
call WaitBGMap
call Function10578c
call Function1050fb
ld a, $24
ld [wca02], a
ld a, [rIE] ; $ff00+$ff
push af
call Function104c2d
ld d, a
xor a
ld [rIF], a ; $ff00+$f
pop af
ld [rIE], a ; $ff00+$ff
ld a, d
cp $10
jp z, Function105712
cp $6c
jp nz, Function10571a
call Function1056eb
ld c, $3c
call DelayFrames
call Function105777
ld hl, Text_10575e
call PrintText
ld de, wc850
callba Function8ac70
ld a, c
ld [wd265], a
ld hl, Text_105768
jr c, asm_105726
ld hl, Text_105763
jr asm_105726
Function1056eb: ; 1056eb (41:56eb)
ld c, $10
.asm_1056ed
ld hl, Sprites
ld b, $8
.asm_1056f2
dec [hl]
rept 4
inc hl
endr
dec b
jr nz, .asm_1056f2
ld hl, Sprites + $20
ld b, $8
.asm_1056ff
inc [hl]
rept 4
inc hl
endr
dec b
jr nz, .asm_1056ff
dec c
ret z
push bc
ld c, $4
call DelayFrames
pop bc
jr .asm_1056ed
Function105712: ; 105712 (41:5712)
call Function105777
ld hl, Text_10576d
jr asm_105726
Function10571a: ; 10571a (41:571a)
call Function105777
ld hl, Text_105772
call PrintText
jp Function105688
asm_105726: ; 105726 (41:5726)
call PrintText
ld a, $e3
ld [rLCDC], a ; $ff00+$40
ret
; 10572e (41:572e)
String_10572e: ; 10572e
db "エーボタン", $1f, "おすと"
next "つうしん", $4a, "おこなわれるよ!"
next "ビーボタン", $1f, "おすと"
next "つうしん", $1f, "ちゅうし します"
db "@"
; 10575e
Text_10575e: ; 10575e
text_jump UnknownText_0x1c051a
db "@"
Text_105763: ; 105763
text_jump UnknownText_0x1c0531
db "@"
Text_105768: ; 105768
text_jump UnknownText_0x1c0555
db "@"
Text_10576d: ; 10576d
text_jump UnknownText_0x1c0573
db "@"
Text_105772: ; 105772
text_jump UnknownText_0x1c0591
db "@"
; 105777
Function105777: ; 105777 (41:5777)
call ClearSprites
call ClearTileMap
call EnableLCD
call WaitBGMap
ld b, $8
call GetSGBLayout
call Function32f9
ret
Function10578c: ; 10578c (41:578c)
ld de, OverworldMap
ld a, $1
call GetSRAMBank
ld hl, $a00b
ld bc, $b
call CopyBytes
ld hl, $a009
ld bc, $2
call CopyBytes
ld hl, $a3d8
ld bc, $2
call CopyBytes
call CloseSRAM
ld a, $1
call GetSRAMBank
ld a, [$be3d]
ld [de], a
inc de
ld a, $4
call GetSRAMBank
ld hl, $a603
ld bc, $8
call CopyBytes
ld hl, $a007
ld bc, $c
call CopyBytes
call CloseSRAM
ret
Function1057d7: ; 1057d7 (41:57d7)
call WhiteBGMap
call DisableLCD
ld hl, MysteryGiftJP_GFX
ld de, $9000
ld a, BANK(MysteryGiftJP_GFX)
ld bc, $400
call FarCopyBytes
ld hl, MysteryGiftJP_GFX + $400
ld de, $8000
ld a, BANK(MysteryGiftJP_GFX)
ld bc, $80
call FarCopyBytes
hlcoord 0, 0
ld a, $3f
ld bc, $168
call ByteFill
hlcoord 3, 7
ld bc, $90f
call ClearBox
hlcoord 0, 0
ld a, $0
ld [hli], a
inc a
ld [hl], a
hlcoord 0, 1
inc a
ld [hli], a
inc a
ld [hl], a
hlcoord 4, 2
ld a, $13
call Function1058ca
hlcoord 4, 3
ld a, $1e
call Function1058ce
hlcoord 4, 4
ld a, $2a
call Function1058ce
hlcoord 1, 2
ld [hl], $4
hlcoord 1, 3
ld a, $5
call Function1058de
ld a, $9
hlcoord 18, 5
call Function1058da
hlcoord 2, 5
ld a, $b
call Function1058e9
hlcoord 2, 16
ld a, $7
call Function1058e9
hlcoord 2, 5
ld a, $d
call Function1058c6
hlcoord 8, 5
ld [hl], $c
hlcoord 18, 5
ld [hl], $a
hlcoord 18, 16
ld [hl], $8
hlcoord 1, 16
ld [hl], $6
hlcoord 2, 6
ld a, $37
call Function1058e9
hlcoord 2, 15
ld a, $3d
call Function1058e9
hlcoord 2, 6
ld a, $39
call Function1058d6
hlcoord 17, 6
ld a, $3b
call Function1058d6
hlcoord 2, 6
ld [hl], $36
hlcoord 17, 6
ld [hl], $38
hlcoord 2, 15
ld [hl], $3c
hlcoord 17, 15
ld [hl], $3e
ld de, Sprites
ld hl, OAM_1058f0
ld bc, $40
call CopyBytes
call EnableLCD
call WaitBGMap
ld b, $2
callba Function4930f
jp Function32f9
Function1058c6: ; 1058c6 (41:58c6)
ld b, $6
jr asm_1058d0
Function1058ca: ; 1058ca (41:58ca)
ld b, $b
jr asm_1058d0
Function1058ce: ; 1058ce (41:58ce)
ld b, $c
asm_1058d0: ; 1058d0 (41:58d0)
ld [hli], a
inc a
dec b
jr nz, asm_1058d0
ret
Function1058d6: ; 1058d6 (41:58d6)
ld b, $9
jr asm_1058e0
Function1058da: ; 1058da (41:58da)
ld b, $b
jr asm_1058e0
Function1058de: ; 1058de (41:58de)
ld b, $e
asm_1058e0: ; 1058e0 (41:58e0)
ld [hl], a
ld de, $14
add hl, de
dec b
jr nz, asm_1058e0
ret
Function1058e9: ; 1058e9 (41:58e9)
ld b, $10
.asm_1058eb
ld [hli], a
dec b
jr nz, .asm_1058eb
ret
; 1058f0 (41:58f0)
OAM_1058f0: ; 1058f0
db $11, $34, $00, $00
db $11, $3c, $01, $00
db $11, $44, $02, $00
db $11, $4c, $03, $00
db $19, $34, $04, $00
db $19, $3c, $05, $00
db $19, $44, $06, $00
db $19, $4c, $07, $00
db $01, $5c, $00, $00
db $01, $64, $01, $00
db $01, $6c, $02, $00
db $01, $74, $03, $00
db $09, $5c, $04, $00
db $09, $64, $05, $00
db $09, $6c, $06, $00
db $09, $74, $07, $00
; japanese mystery gift gfx
MysteryGiftJP_GFX: ; 105930
INCBIN "gfx/misc/mystery_gift_jp.2bpp"
DisplayUsedMoveText: ; 105db0
; battle command 03
ld hl, UsedMoveText
call BattleTextBox
jp WaitBGMap
; 105db9
UsedMoveText: ; 105db9
; this is a stream of text and asm from 105db9 to 105ef6
text_jump _ActorNameText
start_asm
ld a, [hBattleTurn]
and a
jr nz, .start
ld a, [wPlayerMoveStruct + MOVE_ANIM]
call UpdateUsedMoves
.start
ld a, BATTLE_VARS_LAST_MOVE
call GetBattleVarAddr
ld d, h
ld e, l
ld a, BATTLE_VARS_LAST_COUNTER_MOVE
call GetBattleVarAddr
ld a, BATTLE_VARS_MOVE_ANIM
call GetBattleVar
ld [wd265], a
push hl
callba Function34548
pop hl
jr nz, .grammar
; update last move
ld a, [wd265]
ld [hl], a
ld [de], a
.grammar
call GetMoveGrammar
; wd265 now contains MoveGrammar
; everything except 'instead' made redundant in localization
; check obedience
ld a, [AlreadyDisobeyed]
and a
ld hl, UsedMove2Text
ret nz
; check move grammar
ld a, [wd265]
cp $3
ld hl, UsedMove2Text
ret c
ld hl, UsedMove1Text
ret
; 105e04
UsedMove1Text: ; 105e04
text_jump _UsedMove1Text
start_asm
jr Function105e10
; 105e0b
UsedMove2Text: ; 105e0b
text_jump _UsedMove2Text
start_asm
; 105e10
Function105e10: ; 105e10
; check obedience
ld a, [AlreadyDisobeyed]
and a
jr z, GetMoveNameText
; print "instead,"
ld hl, UsedInsteadText
ret
; 105e1a
UsedInsteadText: ; 105e1a
text_jump _UsedInsteadText
start_asm
; 105e1f
GetMoveNameText: ; 105e1f
ld hl, MoveNameText
ret
; 105e23
MoveNameText: ; 105e23
text_jump _MoveNameText
start_asm
; 105e28
GetUsedMoveTextEnder: ; 105e28
; get start address
ld hl, .endusedmovetexts
; get move id
ld a, [wd265]
; 2-byte pointer
add a
; seek
push bc
ld b, $0
ld c, a
add hl, bc
pop bc
; get pointer to usedmovetext ender
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 105e39
.endusedmovetexts ; 105e39
dw EndUsedMove1Text
dw EndUsedMove2Text
dw EndUsedMove3Text
dw EndUsedMove4Text
dw EndUsedMove5Text
; 105e43
EndUsedMove1Text: ; 105e43
text_jump _EndUsedMove1Text
db "@"
; 105e48
EndUsedMove2Text: ; 105e48
text_jump _EndUsedMove2Text
db "@"
; 105e4d
EndUsedMove3Text: ; 105e4d
text_jump _EndUsedMove3Text
db "@"
; 105e52
EndUsedMove4Text: ; 105e52
text_jump _EndUsedMove4Text
db "@"
; 105e57
EndUsedMove5Text: ; 105e57
text_jump _EndUsedMove5Text
db "@"
; 105e5c
GetMoveGrammar: ; 105e5c
; store move grammar type in wd265
push bc
; c = move id
ld a, [wd265]
ld c, a
ld b, $0
; read grammar table
ld hl, MoveGrammar
.loop
ld a, [hli]
; end of table?
cp $ff
jr z, .end
; match?
cp c
jr z, .end
; advance grammar type at $00
and a
jr nz, .loop
; next grammar type
inc b
jr .loop
.end
; wd265 now contains move grammar
ld a, b
ld [wd265], a
; we're done
pop bc
ret
; 105e7a
MoveGrammar: ; 105e7a
; made redundant in localization
; each move is given an identifier for what usedmovetext to use (0-4):
; 0
db SWORDS_DANCE
db GROWTH
db STRENGTH
db HARDEN
db MINIMIZE
db SMOKESCREEN
db WITHDRAW
db DEFENSE_CURL
db EGG_BOMB
db SMOG
db BONE_CLUB
db FLASH
db SPLASH
db ACID_ARMOR
db BONEMERANG
db REST
db SHARPEN
db SUBSTITUTE
db MIND_READER
db SNORE
db PROTECT
db SPIKES
db ENDURE
db ROLLOUT
db SWAGGER
db SLEEP_TALK
db HIDDEN_POWER
db PSYCH_UP
db EXTREMESPEED
db 0 ; end set
; 1
db RECOVER
db TELEPORT
db BIDE
db SELFDESTRUCT
db AMNESIA
db FLAIL
db 0 ; end set
; 2
db MEDITATE
db AGILITY
db MIMIC
db DOUBLE_TEAM
db BARRAGE
db TRANSFORM
db STRUGGLE
db SCARY_FACE
db 0 ; end set
; 3
db POUND
db SCRATCH
db VICEGRIP
db WING_ATTACK
db FLY
db BIND
db SLAM
db HORN_ATTACK
db WRAP
db THRASH
db TAIL_WHIP
db LEER
db BITE
db GROWL
db ROAR
db SING
db PECK
db ABSORB
db STRING_SHOT
db EARTHQUAKE
db FISSURE
db DIG
db TOXIC
db SCREECH
db METRONOME
db LICK
db CLAMP
db CONSTRICT
db POISON_GAS
db BUBBLE
db SLASH
db SPIDER_WEB
db NIGHTMARE
db CURSE
db FORESIGHT
db CHARM
db ATTRACT
db ROCK_SMASH
db 0 ; end set
; all other moves = 4
db $ff ; end
; 105ed0
UpdateUsedMoves: ; 105ed0
; append move a to PlayerUsedMoves unless it has already been used
push bc
; start of list
ld hl, PlayerUsedMoves
; get move id
ld b, a
; next count
ld c, NUM_MOVES
.loop
; get move from the list
ld a, [hli]
; not used yet?
and a
jr z, .add
; already used?
cp b
jr z, .quit
; next byte
dec c
jr nz, .loop
; if the list is full and the move hasn't already been used
; shift the list back one byte, deleting the first move used
; this can occur with struggle or a new learned move
ld hl, PlayerUsedMoves + 1
; 1 = 2
ld a, [hld]
ld [hli], a
; 2 = 3
inc hl
ld a, [hld]
ld [hli], a
; 3 = 4
inc hl
ld a, [hld]
ld [hl], a
; 4 = new move
ld a, b
ld [PlayerUsedMoves + 3], a
jr .quit
.add
; go back to the byte we just inced from
dec hl
; add the new move
ld [hl], b
.quit
; list updated
pop bc
ret
; 105ef6
SECTION "bank41_2", ROMX, BANK[$41]
Mobile_HallOfFame2:: mobile ; 0x105ef6
ld a, $5
call GetSRAMBank
ld hl, GameTimeHours
ld de, $a001
ld bc, $0004
call CopyBytes
ld hl, $a010
ld de, $a005
ld bc, $0004
call CopyBytes
ld hl, $a039
ld de, $a009
ld bc, $0004
call CopyBytes
ld hl, $a01b
ld de, $a00d
ld bc, $0003
call CopyBytes
call Function106162
call CloseSRAM
ret
; 105f33
Function105f33: mobile ; 105f33
ld a, $5
call GetSRAMBank
ld de, Buffer1
ld hl, $a07b
ld a, [de]
cp [hl]
jr z, .asm_105f47
jr nc, .asm_105f4f
jr .asm_105f55
.asm_105f47
inc hl
inc de
ld a, [de]
cp [hl]
dec hl
dec de
jr c, .asm_105f55
.asm_105f4f
ld a, [de]
inc de
ld [hli], a
ld a, [de]
dec de
ld [hl], a
.asm_105f55
ld hl, $a07d
ld a, [hli]
or [hl]
dec hl
jr z, .asm_105f6d
ld a, [de]
cp [hl]
jr z, .asm_105f65
jr c, .asm_105f6d
jr .asm_105f72
.asm_105f65
inc hl
inc de
ld a, [de]
cp [hl]
jr nc, .asm_105f72
dec hl
dec de
.asm_105f6d
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
.asm_105f72
call Function106162
call CloseSRAM
ret
; 105f79
Function105f79: mobile ; 105f79
ld a, $5
call GetSRAMBank
ld a, [hProduct]
ld hl, $a07f
cp [hl]
jr z, .asm_105f8b
jr nc, .asm_105f92
jr .asm_105f98
.asm_105f8b
inc hl
ld a, [hMultiplicand]
cp [hl]
jr c, .asm_105f98
dec hl
.asm_105f92
ld a, [hProduct]
ld [hli], a
ld a, [hMultiplicand]
ld [hl], a
.asm_105f98
call Function106162
call CloseSRAM
ret
; 105f9f
Function105f9f: mobile ; 105f9f
ld a, $5
call GetSRAMBank
ld hl, $a070
inc [hl]
jr nz, .asm_105fae
dec hl
inc [hl]
inc hl
.asm_105fae
dec hl
ld a, [$a071]
cp [hl]
jr z, .asm_105fb9
jr c, .asm_105fc1
jr .asm_105fc9
.asm_105fb9
inc hl
ld a, [$a072]
cp [hl]
jr nc, .asm_105fc9
dec hl
.asm_105fc1
ld a, [hli]
ld [$a071], a
ld a, [hl]
ld [$a072], a
.asm_105fc9
call Function106162
call CloseSRAM
ret
; 105fd0
Function105fd0: mobile ; 105fd0
ld a, $5
call GetSRAMBank
ld hl, $a06f
xor a
ld [hli], a
ld [hl], a
call Function106162
call CloseSRAM
ret
; 105fe3
Function105fe3: mobile ; 105fe3
ld a, $5
call GetSRAMBank
ld hl, $a076
ld a, e
add [hl]
ld [hld], a
ld a, d
adc [hl]
ld [hld], a
jr nc, .asm_106001
inc [hl]
jr nz, .asm_106001
dec hl
inc [hl]
jr nz, .asm_106001
ld a, $ff
rept 3
ld [hli], a
endr
ld [hl], a
.asm_106001
call Function106162
call CloseSRAM
ret
; 106008
Function106008: mobile ; 106008
ld a, $5
call GetSRAMBank
ld hl, $a07a
ld a, [bc]
dec bc
add [hl]
ld [hld], a
ld a, [bc]
dec bc
adc [hl]
ld [hld], a
ld a, [bc]
adc [hl]
ld [hld], a
jr nc, .asm_106027
inc [hl]
jr nz, .asm_106027
ld a, $ff
rept 3
ld [hli], a
endr
ld [hl], a
.asm_106027
call Function106162
call CloseSRAM
ret
; 10602e
Function10602e: mobile ; 10602e (41:602e)
ld hl, $a010
jp Function106117
Function106035: mobile ; 106035
ld a, $5
call GetSRAMBank
ld a, [$aa8d]
and a
call CloseSRAM
ret nz
ld hl, $a014
jp Function106123
Function106049: mobile ; 106049
ld hl, $a018
jp Function10611d
Function106050: mobile ; 106050
ld a, [BattleType]
cp BATTLETYPE_TUTORIAL
ret z
ld hl, $a01b
jp Function10611d
Function10605d: mobile ; 10605d
ld a, [BattleType]
cp BATTLETYPE_TUTORIAL
ret z
ld hl, $a01e
jp Function10611d
Function10606a: mobile ; 10606a
ld hl, $a021
jp Function10611d
Function106071: mobile ; 106071
ld hl, $a024
jp Function10611d
Mobile_HallOfFame:: mobile ; 0x106078
ld hl, $a027
jp Function10611d
Function10607f: mobile ; 10607f (41:607f)
ld hl, $a02a
jp Function10611d
Function106086: mobile ; 106086
ld hl, $a02d
jp Function10611d
Function10608d: mobile ; 10608d (41:608d)
ld hl, $a030
jp Function10611d
Function106094: mobile ; 106094
ld hl, $a033
jp Function10611d
Function10609b: mobile ; 10609b
ld hl, $a036
jp Function10611d
Mobile_HealParty: mobile ; 1060a2
ld hl, $a039
jp Function10611d
Function1060a9: mobile ; 1060a9 (41:60a9)
ld hl, $a03c
jr Function10611d
Function1060af: mobile ; 1060af
ld hl, $a03f
jr Function10611d
Function1060b5: mobile ; 1060b5
ld hl, $a042
jr Function10611d
Function1060bb: mobile ; 1060bb
ld hl, $a045
jr Function10611d
Function1060c1: mobile ; 1060c1
ld hl, $a048
jr Function10611d
Function1060c7: mobile ; 1060c7
ld hl, $a04b
jr Function10611d
Function1060cd: mobile ; 1060cd
ld hl, $a04e
jr Function106123
Function1060d3: mobile ; 1060d3
ld hl, $a051
jr Function10611d
Function1060d9: mobile ; 1060df
ld hl, $a054
jr Function10611d
Function1060df: mobile ; 1060df
ld hl, $a057
jr Function10611d
Function1060e5: mobile ; 1060e5
ld a, [hBattleTurn]
and a
ret nz
ld hl, $a05a
jr Function10611d
Function1060ef: mobile ; 1060ef
ld hl, $a05d
jr Function10611d
Function1060f5: mobile ; 1060f5
ld hl, $a060
jr Function10611d
Function1060fb: mobile ; 1060fb
ld hl, $a063
jr Function10611d
Function106101: mobile ; 106101
ld hl, $a066
jr Function10611d
; 106107
Function106107: mobile ; 106107
ld hl, $a069
jr Function10611d
; 10610d
Function10610d: mobile ; 10610d
ld a, [hBattleTurn]
and a
ret nz
ld hl, $a06c
jr Function10611d
; 106117
Function106117: ; 106117
push bc
ld bc, 3
jr Function10612d
; 10611d
Function10611d: ; 10611d
push bc
ld bc, 2
jr Function10612d
; 106123
Function106123: ; 106123
push bc
ld bc, 1
jr Function10612d
; 106129
Function106129: ; 106129
push bc
ld bc, 0
Function10612d: ; 10612d
ld a, $5
call GetSRAMBank
push hl
push de
ld e, c
inc e
.asm_106136
ld a, [hli]
inc a
jr nz, .asm_10613d
dec e
jr nz, .asm_106136
.asm_10613d
pop de
pop hl
jr z, .asm_10614d
add hl, bc
.asm_106142
inc [hl]
jr nz, .asm_10614d
ld a, c
and a
jr z, .asm_10614d
dec hl
dec c
jr .asm_106142
.asm_10614d
call Function106162
call CloseSRAM
pop bc
ret
; 106155
Function106155: mobile ; 106155
ld a, $5
call GetSRAMBank
call Function106162
call CloseSRAM
ret
; 106162
Function106162: ; 106162
push de
call Function10616e
ld hl, $a081
ld [hl], d
inc hl
ld [hl], e
pop de
ret
; 10616e
Function10616e: ; 10616e
push bc
ld hl, $a001
ld bc, $0080
xor a
ld de, $0000
.asm_106179
ld a, e
add [hl]
ld e, a
jr nc, .asm_10617f
inc d
.asm_10617f
inc hl
dec bc
ld a, b
or c
jr nz, .asm_106179
pop bc
ret
; 106187
Function106187: ; 106187
ld a, $1
call GetSRAMBank
ld a, [$be3c]
push af
ld a, $1
call GetSRAMBank
pop af
ld [$be44], a
call CloseSRAM
ret
; 10619d
Function10619d: ; 10619d (41:619d)
ld a, $1
call GetSRAMBank
ld a, [$be44]
push af
ld a, $1
call GetSRAMBank
pop af
ld [$be3c], a
call CloseSRAM
ret
; 1061b3 (41:61b3)
Function1061b3: ; 1061b3
call Function10616e
ld hl, $a081
ld a, d
cp [hl]
ret nz
inc hl
ld a, e
cp [hl]
ret
; 1061c0
Function1061c0: ; 1061c0 (41:61c0)
ld a, $1
call GetSRAMBank
xor a
ld [$be3c], a
call CloseSRAM
ret
; 1061cd (41:61cd)
Function1061cd: ; 1061cd
ld hl, $a001
ld bc, $0082
xor a
call ByteFill
ld hl, $a07d
ld a, $3
ld [hli], a
ld [hl], $e8
call Function106162
ld hl, $a001
ld de, $a084
ld bc, $0082
call CopyBytes
ret
; 1061ef
Function1061ef:: ; 1061ef
push bc
xor a
ld [hProduct], a
ld [hMultiplicand], a
ld [$ffb5], a
ld a, b
and $f
cp $1
jr z, .asm_106212
cp $2
jr z, .asm_10620e
cp $3
jr z, .asm_10620a
ld a, [de]
ld [hProduct], a
inc de
.asm_10620a
ld a, [de]
ld [hMultiplicand], a
inc de
.asm_10620e
ld a, [de]
ld [$ffb5], a
inc de
.asm_106212
ld a, [de]
ld [$ffb6], a
inc de
push de
xor a
ld [$ffbb], a
ld a, b
ld [$ffbc], a
ld a, c
cp 2
jr z, .asm_10626a
ld de, ._2
cp 3
jr z, .asm_106256
ld de, ._3
cp 4
jr z, .asm_106256
ld de, ._4
cp 5
jr z, .asm_106256
ld de, ._5
cp 6
jr z, .asm_106256
ld de, ._6
cp 7
jr z, .asm_106256
ld de, ._7
cp 8
jr z, .asm_106256
ld de, ._8
cp 9
jr z, .asm_106256
ld de, ._9
.asm_106256
rept 3
inc de
endr
rept 2
dec a
endr
.asm_10625b
push af
call Function1062b2
call Function1062ff
rept 4
inc de
endr
pop af
dec a
jr nz, .asm_10625b
.asm_10626a
ld c, 0
ld a, [$ffb6]
.asm_10626e
cp 10
jr c, .asm_106277
sub 10
inc c
jr .asm_10626e
.asm_106277
ld b, a
ld a, [$ffbb]
or c
ld [$ffbb], a
jr nz, .asm_106284
call Function1062f7
jr .asm_106288
.asm_106284
ld a, "0"
add c
ld [hl], a
.asm_106288
call Function1062ff
ld a, "0"
add b
ld [hli], a
pop de
pop bc
ret
; 106292
._9 dd 1000000000
._8 dd 100000000
._7 dd 10000000
._6 dd 1000000
._5 dd 100000
._4 dd 10000
._3 dd 1000
._2 dd 100
; 1062b2
Function1062b2: ; 1062b2
ld c, $0
.asm_1062b4
ld a, [de]
dec de
ld b, a
ld a, [$ffb6]
sub b
ld [$ffba], a
ld a, [de]
dec de
ld b, a
ld a, [$ffb5]
sbc b
ld [$ffb9], a
ld a, [de]
dec de
ld b, a
ld a, [hMultiplicand]
sbc b
ld [hMathBuffer], a
ld a, [de]
rept 3
inc de
endr
ld b, a
ld a, [hProduct]
sbc b
ld [hMultiplier], a
jr c, .asm_1062eb
ld a, [hMultiplier]
ld [hProduct], a
ld a, [hMathBuffer]
ld [hMultiplicand], a
ld a, [$ffb9]
ld [$ffb5], a
ld a, [$ffba]
ld [$ffb6], a
inc c
jr .asm_1062b4
.asm_1062eb
ld a, [$ffbb]
or c
jr z, Function1062f7
ld a, $f6
add c
ld [hl], a
ld [$ffbb], a
ret
Function1062f7
ld a, [$ffbc]
bit 7, a
ret z
ld [hl], $f6
ret
; 1062ff
Function1062ff: ; 1062ff
ld a, [$ffbc]
bit 7, a
jr nz, .asm_10630d
bit 6, a
jr z, .asm_10630d
ld a, [$ffbb]
and a
ret z
.asm_10630d
inc hl
ret
; 10630f
Function10630f: ; 10630f
xor a
ld [ScriptVar], a
ret
; 106314
Function106314: mobile ; 106314
ld a, $4
call GetSRAMBank
ld a, c
cpl
ld [$b000], a
call CloseSRAM
ld a, $7
call GetSRAMBank
ld a, c
ld [$a800], a
call CloseSRAM
ret
; 10632f
Function10632f: ; 10632f
or a
mobile
ld a, $4
call GetSRAMBank
ld a, [$b000]
cpl
ld b, a
call CloseSRAM
ld a, $7
call GetSRAMBank
ld a, [$a800]
ld c, a
call CloseSRAM
ld a, c
cp b
jr nz, .asm_106359
and a
jr z, .asm_106359
and $8f
cp c
jr nz, .asm_106359
ld c, a
scf
ret
.asm_106359
xor a
ld c, a
ret
; 10635c
Function10635c: ; 10635c
ld a, [wcd25]
bit 7, a
ret nz
ld a, [wcd25]
ld hl, Jumptable_10636a
rst JumpTable
ret
; 10636a
Jumptable_10636a: ; 10636a
dw Function10637c
dw Function106392
dw Function1063cc
dw Function1063d8
dw Function1063e5
dw Function1063f3
dw Function106403
dw Function106442
dw Function106453
; 10637c
Function10637c: ; 10637c
ld de, wcd30
ld hl, $0041
ld bc, $0041
ld a, $40
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 106392
Function106392: ; 106392
xor a
ld [wcf64], a
ld a, [wc821]
bit 1, a
jr nz, .asm_1063a2
bit 0, a
jr z, .asm_1063bf
ret
.asm_1063a2
call Function10632f
ld a, c
and a
jr nz, .asm_1063b4
ld a, $b
ld [wcf64], a
ld a, $7
ld [wcd25], a
ret
.asm_1063b4
ld a, $7
ld [wcf64], a
ld a, $7
ld [wcd25], a
ret
.asm_1063bf
ld a, $1
ld [wcf64], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1063cc
Function1063cc: ; 1063cc
ld a, $78
ld [wcd42], a
ld a, [wcd25]
inc a
ld [wcd25], a
Function1063d8: ; 1063d8
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1063e5
Function1063e5: ; 1063e5
ld a, [wcf64]
cp $3
ret nz
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1063f3
Function1063f3: ; 1063f3
ld de, wcd31
ld a, $32
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 106403
Function106403: ; 106403
ld a, [wc821]
bit 1, a
jr nz, .asm_106426
bit 0, a
jr z, .asm_10640f
ret
.asm_10640f
ld a, [wcd31]
and $80
ld c, a
ld a, [wcd30]
or c
inc a
ld c, a
call Function106314
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_106426
call Function10632f
ld a, c
and a
jr z, .asm_106435
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_106435
ld c, $0
call Function106314
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 106442
Function106442: ; 106442
ld a, $36
call Function3e32
xor a
ld [$ffe9], a
ld [$ffc9], a
ld a, [wcd25]
inc a
ld [wcd25], a
Function106453: ; 106453
ld a, [wcd25]
set 7, a
ld [wcd25], a
nop
ld a, $4
ld [wcf64], a
ret
; 106462
Function106462: ; 106462
ret
; 106463
Function106463: ; 106463
ret
; 106464
Function106464:: ; 106464
ld de, GFX_f9214
ld hl, $9600
lb bc, BANK(GFX_f9214), 1
call Get2bpp
ld de, GFX_f9424
ld hl, $9610
lb bc, BANK(GFX_f9424), 1
call Get2bpp
ld de, GFX_106514
ld hl, $9620
ld c, 9
ld b, BANK(GFX_106514)
call Get2bpp
ld de, $40b0
ld hl, $96b0
ld b, $f ; XXX no graphics at 0f:40b0
call Get2bpp
callba Functionfb4cc
ret
; 10649b
Function10649b: ; 10649b
ld a, [TextBoxFrame]
and $7
ld bc, $0030
ld hl, Frames
call AddNTimes
ld d, h
ld e, l
ld hl, $9790
ld c, $6
ld b, BANK(Frames)
call Function1064c3
ld hl, $97f0
ld de, GFX_f9204
ld c, $1
ld b, BANK(GFX_f9204)
call Function1064c3
ret
; 1064c3
Function1064c3: ; 1064c3
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push bc
push hl
ld hl, Function3f88
ld a, b
rst FarCall
pop hl
pop bc
pop af
ld [rSVBK], a
jr asm_1064ed
Function1064d8: ; 1064d8
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push bc
push hl
ld hl, Function3f9f
ld a, b
rst FarCall
pop hl
pop bc
pop af
ld [rSVBK], a
jr asm_1064ed
asm_1064ed
ld de, w6_d000
ld b, $0
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld a, [rVBK]
push af
ld a, $1
ld [rVBK], a
call Get2bpp
pop af
ld [rVBK], a
pop af
ld [rSVBK], a
ret
; 10650a
Function10650a: ; 10650a
ld de, GFX_f9214 + $20
lb bc, BANK(GFX_f9214), $11
call Get2bpp
ret
; 106514
GFX_106514:
INCBIN "gfx/unknown/106514.2bpp"
Function106594:: ; 106594
ld de, GFX_1065ad
ld hl, VTiles1
lb bc, BANK(GFX_1065ad), $80
call Get2bpp
ld de, GFX_1065ad + $800
ld hl, $97f0
lb bc, BANK(GFX_1065ad), 1
call Get2bpp
ret
; 1065ad
GFX_1065ad:
INCBIN "gfx/unknown/1065ad.2bpp"
INCLUDE "misc/mobile_42.asm"
SECTION "Intro Logo", ROMX, BANK[$42]
IntroLogoGFX: ; 109407
INCBIN "gfx/intro/logo.2bpp.lz"
; 109847
INCLUDE "misc/unused_title.asm"
INCLUDE "engine/title.asm"
INCLUDE "misc/mobile_45.asm"
SECTION "bank5D", ROMX, BANK[$5D]
INCLUDE "text/phone/extra3.asm"
SECTION "bank5E", ROMX, BANK[$5E]
Function178000:
callba DrawPlayerHUD
ld hl, PlayerHPPal
call SetHPPal
callba DrawEnemyHUD
ld hl, EnemyHPPal
call SetHPPal
callba Function3ee27
ret
; 17801f (5e:401f)
INCLUDE "misc/mobile_5f.asm"
SECTION "Common Text 1", ROMX, BANK[$6C]
INCLUDE "text/common.asm"
INCLUDE "text/phone/jack_overworld.asm"
INCLUDE "text/phone/beverly_overworld.asm"
INCLUDE "text/phone/huey_overworld.asm"
INCLUDE "text/phone/gaven_overworld.asm"
INCLUDE "text/phone/beth_overworld.asm"
INCLUDE "text/phone/jose_overworld.asm"
INCLUDE "text/phone/reena_overworld.asm"
INCLUDE "text/phone/joey_overworld.asm"
INCLUDE "text/phone/wade_overworld.asm"
INCLUDE "text/phone/ralph_overworld.asm"
INCLUDE "text/phone/liz_overworld.asm"
SECTION "bank6D", ROMX, BANK[$6D]
INCLUDE "text/phone/mom.asm"
INCLUDE "text/phone/bill.asm"
INCLUDE "text/phone/elm.asm"
INCLUDE "text/phone/trainers1.asm"
SECTION "Common Text 2", ROMX, BANK[$6F]
INCLUDE "text/common_2.asm"
SECTION "Common Text 3", ROMX, BANK[$70]
INCLUDE "text/common_3.asm"
SECTION "Common Text 4", ROMX, BANK[$71]
INCLUDE "text/common_4.asm"
SECTION "bank72", ROMX, BANK[$72]
ItemNames::
INCLUDE "items/item_names.asm"
INCLUDE "items/item_descriptions.asm"
MoveNames::
INCLUDE "battle/move_names.asm"
INCLUDE "engine/landmarks.asm"
SECTION "bank75", ROMX, BANK[$75]
SECTION "bank76", ROMX, BANK[$76]
SECTION "bank77", ROMX, BANK[$77]
UnownFont: ; 1dc000
INCBIN "gfx/misc/unown_font.2bpp"
; 1dc1b0
Function1dc1b0: ; 1dc1b0
hlcoord 0, 0
ld de, wca90
ld bc, $0154
call CopyBytes
ld hl, wcab5
ld a, $62
ld [hli], a
inc a
ld [hl], a
ld hl, wcac9
ld a, $64
ld [hli], a
inc a
ld [hl], a
ld hl, wcb45
ld a, $7f
ld [hli], a
ld [hl], a
ld hl, wcb59
ld a, $61
ld [hli], a
ld [hl], a
ld hl, wcb6e
ld bc, $0512
call ClearBox
ld a, [wd265]
dec a
call CheckCaughtMon
push af
ld a, [wd265]
ld b, a
ld c, $1
callba Function44355
pop af
ld a, b
ld hl, wcb6d
call nz, FarString
ld hl, wcaa3
ld [hl], $35
ld de, SCREEN_WIDTH
add hl, de
ld b, $f
.asm_1dc20a
ld [hl], $37
add hl, de
dec b
jr nz, .asm_1dc20a
ld [hl], $3a
ret
; 1dc213
Function1dc213: ; 1dc213
ld hl, wca90
ld bc, $00a0
ld a, $7f
call ByteFill
ld hl, wca90
ld a, $36
ld b, $6
call Function1dc26a
ld hl, wcaa3
ld a, $37
ld b, $6
call Function1dc26a
ld hl, wcb08
ld [hl], $38
inc hl
ld a, $39
ld bc, SCREEN_HEIGHT
call ByteFill
ld [hl], $3a
ld hl, wcb1c
ld bc, SCREEN_WIDTH
ld a, $32
call ByteFill
ld a, [wd265]
dec a
call CheckCaughtMon
push af
ld a, [wd265]
ld b, a
ld c, $2
callba Function44355
pop af
ld hl, wcaa5
ld a, b
call nz, FarString
ret
; 1dc26a
Function1dc26a: ; 1dc26a
push de
ld de, SCREEN_WIDTH
.asm_1dc26e
ld [hl], a
add hl, de
dec b
jr nz, .asm_1dc26e
pop de
ret
; 1dc275
GBPrinterStrings:
String_1dc275: db "@"
String_1dc276: next " CHECKING LINK...@"
String_1dc289: next " TRANSMITTING...@"
String_1dc29c: next " PRINTING...@"
String_1dc2ad:
db " Printer Error 1"
next ""
next "Check the Game Boy"
next "Printer Manual."
db "@"
String_1dc2e2:
db " Printer Error 2"
next ""
next "Check the Game Boy"
next "Printer Manual."
db "@"
String_1dc317:
db " Printer Error 3"
next ""
next "Check the Game Boy"
next "Printer Manual."
db "@"
String_1dc34c:
db " Printer Error 4"
next ""
next "Check the Game Boy"
next "Printer Manual."
db "@"
; 1dc381
Function1dc381: ; 1dc381
call WhiteBGMap
call ClearTileMap
call ClearSprites
xor a
ld [hBGMapMode], a
call Functione58
ld de, MobileHPIcon
ld hl, $9710
lb bc, BANK(MobileHPIcon), 1
call Request1bpp
ld de, MobileLvIcon
ld hl, $96e0
lb bc, BANK(MobileLvIcon), 1
call Request1bpp
ld de, ShinyIcon
ld hl, $93f0
lb bc, BANK(ShinyIcon), 1
call Get2bpp
xor a
ld [MonType], a
callba Function5084a
hlcoord 0, 7
ld b, $9
ld c, $12
call TextBox
hlcoord 8, 2
ld a, [TempMonLevel]
call Function383d
hlcoord 12, 2
ld [hl], $71
inc hl
ld de, TempMonMaxHP
ld bc, $0203
call PrintNum
ld a, [CurPartySpecies]
ld [wd265], a
ld [CurSpecies], a
ld hl, PartyMonNicknames
call Function1dc50e
hlcoord 8, 4
call PlaceString
hlcoord 9, 6
ld [hl], $f3
call GetPokemonName
hlcoord 10, 6
call PlaceString
hlcoord 8, 0
ld [hl], $74
inc hl
ld [hl], $e8
inc hl
ld de, wd265
ld bc, $8103
call PrintNum
hlcoord 1, 9
ld de, String1dc550
call PlaceString
ld hl, PartyMonOT
call Function1dc50e
hlcoord 4, 9
call PlaceString
hlcoord 1, 11
ld de, String1dc559
call PlaceString
hlcoord 4, 11
ld de, TempMonID
ld bc, $8205
call PrintNum
hlcoord 1, 14
ld de, String1dc554
call PlaceString
hlcoord 7, 14
ld a, [TempMonMoves + 0]
call Function1dc51a
call Function1dc52c
ld hl, TempMonDVs
predef GetUnownLetter
ld hl, wc2c6
xor a
ld [hl], a
ld a, [CurPartySpecies]
cp UNOWN
jr z, .asm_1dc469
inc [hl]
.asm_1dc469
hlcoord 0, 0
call Function378b
call WaitBGMap
ld b, $3
call GetSGBLayout
call Function32f9
ret
; 1dc47b
Function1dc47b: ; 1dc47b
call WhiteBGMap
call ClearTileMap
call ClearSprites
xor a
ld [hBGMapMode], a
call Functione58
xor a
ld [MonType], a
callba Function5084a
hlcoord 0, 0
ld b, 15
ld c, 18
call TextBox
ld bc, SCREEN_WIDTH
decoord 0, 0
hlcoord 0, 1
call CopyBytes
hlcoord 7, 0
ld a, [TempMonMoves + 1]
call Function1dc51a
hlcoord 7, 2
ld a, [TempMonMoves + 2]
call Function1dc51a
hlcoord 7, 4
ld a, [TempMonMoves + 3]
call Function1dc51a
hlcoord 7, 7
ld de, String1dc55d
call PlaceString
hlcoord 16, 7
ld de, TempMonAttack
call Function1dc507
hlcoord 16, 9
ld de, TempMonDefense
call Function1dc507
hlcoord 16, 11
ld de, TempMonSpclAtk
call Function1dc507
hlcoord 16, 13
ld de, TempMonSpclDef
call Function1dc507
hlcoord 16, 15
ld de, TempMonSpeed
call Function1dc507
call WaitBGMap
ld b, $3
call GetSGBLayout
call Function32f9
ret
; 1dc507
Function1dc507: ; 1dc507
ld bc, $0203
call PrintNum
ret
; 1dc50e
Function1dc50e: ; 1dc50e
ld bc, $000b
ld a, [CurPartyMon]
call AddNTimes
ld e, l
ld d, h
ret
; 1dc51a
Function1dc51a: ; 1dc51a
and a
jr z, .asm_1dc525
ld [wd265], a
call GetMoveName
jr .asm_1dc528
.asm_1dc525
ld de, String1dc584
.asm_1dc528
call PlaceString
ret
; 1dc52c
Function1dc52c: ; 1dc52c
callba GetGender
ld a, $7f
jr c, .asm_1dc53c
ld a, $ef
jr nz, .asm_1dc53c
ld a, $f5
.asm_1dc53c
hlcoord 17, 2
ld [hl], a
ld bc, TempMonDVs
callba CheckShininess
ret nc
hlcoord 18, 2
ld [hl], $3f
ret
; 1dc550
String1dc550: ; 1dc550
db "OT/@"
String1dc554: ; 1dc554
db "MOVE@"
String1dc559: ; 1dc559
db $73, "№.@"
String1dc55d: ; 1dc55d
db "ATTACK"
next "DEFENSE"
next "SPCL.ATK"
next "SPCL.DEF"
next "SPEED"
db "@"
String1dc584: ; 1dc584
db "------------@"
; 1dc591
MobileHPIcon: ; 1dc591
INCBIN "gfx/mobile/hp.1bpp"
MobileLvIcon: ; 1dc599
INCBIN "gfx/mobile/lv.1bpp"
SECTION "Tileset Data 7", ROMX, BANK[TILESETS_7]
INCLUDE "tilesets/data_7.asm"
SECTION "bank77_2", ROMX, BANK[$77]
Function1dd6a9: ; 1dd6a9
ld a, b
ld b, c
ld c, a
push bc
push de
ld hl, [sp+$2]
ld d, h
ld e, l
pop hl
ld bc, $8205
call PrintNum
pop bc
ret
; 1dd6bb
Function1dd6bb: ; 1dd6bb (77:56bb)
ld a, b
cp $c
push af
jr c, .asm_1dd6c7
jr z, .asm_1dd6cc
sub $c
jr .asm_1dd6cc
.asm_1dd6c7
or a
jr nz, .asm_1dd6cc
ld a, $c
.asm_1dd6cc
ld b, a
push bc
ld hl, [sp+$1]
push de
push hl
pop de
pop hl
ld [hl], $7f
ld bc, $102
call PrintNum
ld [hl], $9c
inc hl
ld d, h
ld e, l
ld hl, [sp+$0]
push de
push hl
pop de
pop hl
ld bc, $8102
call PrintNum
pop bc
ld de, String_1dd6fc
pop af
jr c, .asm_1dd6f7
ld de, String_1dd6ff
.asm_1dd6f7
inc hl
call PlaceString
ret
; 1dd6fc (77:56fc)
String_1dd6fc: db "AM@"
String_1dd6ff: db "PM@"
; 1dd702
INCLUDE "engine/diploma.asm"
Function1ddf1c: ; 1ddf1c
ld hl, LZ_1ddf33
ld de, $9310
call Decompress
ret
; 1ddf26
Function1ddf26: ; 1ddf26 (77:5f26)
ld hl, LZ_1ddf33
ld de, $9310
lb bc, BANK(LZ_1ddf33), $3a
call Functione73
ret
; 1ddf33 (77:5f33)
LZ_1ddf33: ; 1ddf33
INCBIN "gfx/unknown/1ddf33.2bpp.lz"
; 1de0d7
Function1de0d7: ; 1de0d7
ld hl, LZ_1de0e1
ld de, $a000
call Decompress
ret
; 1de0e1
LZ_1de0e1: ; 1de0e1
INCBIN "gfx/unknown/1de0e1.2bpp.lz"
; 1de171
Function1de171: ; 1de171 (77:6171)
ld a, $32
hlcoord 0, 17
ld bc, $c
call ByteFill
hlcoord 0, 1
ld bc, $f0b
call ClearBox
ld a, $34
hlcoord 0, 0
ld bc, $b
call ByteFill
ld a, $39
hlcoord 0, 16
ld bc, $b
call ByteFill
hlcoord 5, 0
ld [hl], $3f
hlcoord 5, 16
ld [hl], $40
ld a, [wc7d4]
cp $1
jr z, .asm_1de1bf
hlcoord 11, 0
ld [hl], $50
ld a, $51
hlcoord 11, 1
ld b, $f
call Function1de27f
ld [hl], $52
jr .asm_1de1d0
.asm_1de1bf
hlcoord 11, 0
ld [hl], $66
ld a, $67
hlcoord 11, 1
ld b, $f
call Function1de27f
ld [hl], $68
.asm_1de1d0
ret
Function1de1d1: ; 1de1d1 (77:61d1)
ld a, $34
hlcoord 0, 0
ld bc, $b
call ByteFill
ld a, $39
hlcoord 0, 10
ld bc, $b
call ByteFill
hlcoord 5, 0
ld [hl], $3f
hlcoord 5, 10
ld [hl], $40
hlcoord 11, 0
ld [hl], $66
ld a, $67
hlcoord 11, 1
ld b, $9
call Function1de27f
ld [hl], $68
ld a, $34
hlcoord 0, 11
ld bc, $b
call ByteFill
ld a, $39
hlcoord 0, 17
ld bc, $b
call ByteFill
hlcoord 11, 11
ld [hl], $66
ld a, $67
hlcoord 11, 12
ld b, $5
call Function1de27f
ld [hl], $68
hlcoord 0, 12
lb bc, 5, 11
call ClearBox
ld de, String_1de23c
hlcoord 0, 12
call PlaceString
ret
; 1de23c (77:623c)
String_1de23c: ; 1de23c
; At a glance, this is less coherent in the Japanese charset.
db "ESULTS"
db $4e
db $4e
db "D!@"
; 1de247
Function1de247: ; 1de247
ld a, [hBGMapAddress]
ld l, a
ld a, [$ffd7]
ld h, a
push hl
inc hl
ld a, l
ld [hBGMapAddress], a
ld a, h
ld [$ffd7], a
hlcoord 19, 0
ld [hl], $66
hlcoord 19, 1
ld a, $67
ld b, $f
call Function1de27f
ld [hl], $68
hlcoord 19, 17
ld [hl], $3c
xor a
ld b, $12
hlcoord 19, 0, AttrMap
call Function1de27f
call Function3200
pop hl
ld a, l
ld [hBGMapAddress], a
ld a, h
ld [$ffd7], a
ret
; 1de27f
Function1de27f: ; 1de27f
push de
ld de, SCREEN_WIDTH
.asm_1de283
ld [hl], a
add hl, de
dec b
jr nz, .asm_1de283
pop de
ret
; 1de28a
Function1de28a:: ; 1de28a
ld hl, DudeAutoInput_A
jr Function1de299
; 1de28f
Function1de28f: ; 1de28f
ld hl, DudeAutoInput_RightA
jr Function1de299
; 1de294
Function1de294: ; 1de294
ld hl, DudeAutoInput_DownA
jr Function1de299
; 1de299
Function1de299: ; 1de299
ld a, BANK(DudeAutoInputs)
call StartAutoInput
ret
; 1de29f
DudeAutoInputs:
DudeAutoInput_A: ; 1de29f
db NO_INPUT, $50
db A_BUTTON, $00
db NO_INPUT, $ff ; end
; 1de2a5
DudeAutoInput_RightA: ; 1de2a5
db NO_INPUT, $08
db D_RIGHT, $00
db NO_INPUT, $08
db A_BUTTON, $00
db NO_INPUT, $ff ; end
; 1de2af
DudeAutoInput_DownA: ; 1de2af
db NO_INPUT, $fe
db NO_INPUT, $fe
db NO_INPUT, $fe
db NO_INPUT, $fe
db D_DOWN, $00
db NO_INPUT, $fe
db NO_INPUT, $fe
db NO_INPUT, $fe
db NO_INPUT, $fe
db A_BUTTON, $00
db NO_INPUT, $ff ; end
; 1de2c5
Function1de2c5: ; 1de2c5
ld hl, StringBuffer1
.asm_1de2c8
ld a, [hl]
cp $50
jr z, .asm_1de2da
cp $25
jr z, .asm_1de2d8
cp $1f
jr z, .asm_1de2d8
inc hl
jr .asm_1de2c8
.asm_1de2d8
ld [hl], $22
.asm_1de2da
ld de, StringBuffer1
hlcoord 9, 0
call PlaceString
ret
; 1de2e4
PokegearGFX: ; 1de2e4
INCBIN "gfx/misc/pokegear.2bpp.lz"
; 1de5c8
Function1de5c8: ; 1de5c8
ld c, $0
ld hl, $0029
add hl, de
ld a, [hli]
cp $84
ret nz
ld a, [hli]
inc c
cp $85
ret z
inc c
cp $86
ret z
inc c
cp $88
ret z
inc c
cp $92
ret z
ld c, $0
ret
; 1de5e6
; The regular font.
GFX_1de5e6: ; 1de5e6
INCBIN "gfx/unknown/1de5e6.2bpp"
; An extended font.
GFX_1de9e6: ; 1de9e6
INCBIN "gfx/unknown/1de9e6.2bpp"
; An even more extended font.
GFX_1dede6: ; 1dede6
INCBIN "gfx/unknown/1dede6.2bpp"
Function1df1e6: ; 1df1e6
ld b, $21
ld h, d
ld l, e
.asm_1df1ea
ld a, [hl]
cp $dc
jr nz, .asm_1df1f3
ld a, $d4
jr .asm_1df1fd
.asm_1df1f3
sub $d4
jr c, .asm_1df1fe
cp $3
jr nc, .asm_1df1fe
add $cd
.asm_1df1fd
ld [hl], a
.asm_1df1fe
inc hl
dec b
jr nz, .asm_1df1ea
ret
; 1df203
Function1df203: ; 1df203
ld b, $21
ld h, d
ld l, e
.asm_1df207
ld a, [hl]
cp $d4
jr nz, .asm_1df210
ld a, $dc
jr .asm_1df21a
.asm_1df210
sub $cd
jr c, .asm_1df21b
cp $3
jr nc, .asm_1df21b
add $d4
.asm_1df21a
ld [hl], a
.asm_1df21b
inc hl
dec b
jr nz, .asm_1df207
ret
; 1df220
Function1df220: ; 1df220
ld b, $21
ld h, d
ld l, e
.asm_1df224
ld a, [hl]
and $f0
cp $d0
jr nz, .asm_1df233
ld a, [hl]
add $8
and $f
or $d0
ld [hl], a
.asm_1df233
inc hl
dec b
jr nz, .asm_1df224
ret
; 1df238
SECTION "Tileset Data 8", ROMX, BANK[TILESETS_8]
INCLUDE "tilesets/data_8.asm"
SECTION "bank79", ROMX, BANK[$79]
SECTION "bank7A", ROMX, BANK[$7A]
SECTION "bank7B", ROMX, BANK[$7B]
INCLUDE "text/battle_tower.asm"
SECTION "bank7C", ROMX, BANK[$7C]
INCBIN "unknown/1f0000.bin"
SECTION "bank7D", ROMX, BANK[$7D]
db $cc, $6b, $1e ; XXX
Function1f4003: ; 1f4003
ld a, $6
call GetSRAMBank
ld hl, Unknown_1f4018
ld de, $a000
ld bc, $1000
call CopyBytes
call CloseSRAM
ret
; 1f4018
Unknown_1f4018:
INCBIN "unknown/1f4018.bin"
Function1f4dbe: ; 1f4dbe
ld a, $6
call GetSRAMBank
ld hl, Unknown_1f4dd3
ld de, $a000
ld bc, $1000
call CopyBytes
call CloseSRAM
ret
; 1f4dd3
Unknown_1f4dd3:
INCBIN "unknown/1f4dd3.bin"
Function1f5d9f: ; 1f5d9f
ld a, $6
call GetSRAMBank
ld hl, Unknown_1f5db4
ld de, $a000
ld bc, $1000
call CopyBytes
call CloseSRAM
ret
; 1f5db4
Unknown_1f5db4:
INCBIN "unknown/1f5db4.bin"
SECTION "bank7E", ROMX, BANK[$7E]
INCLUDE "data/battle_tower.asm"
INCLUDE "data/odd_eggs.asm"
SECTION "bank7F", ROMX, BANK[$7F]
SECTION "stadium2", ROMX[$8000-$220], BANK[$7F]
IF DEF(CRYSTAL11)
INCBIN "misc/stadium2_2.bin"
ELSE
INCBIN "misc/stadium2_1.bin"
ENDC