Leahnaya/pokeyellow
1
0
Fork 0
mirror of https://github.com/pret/pokeyellow.git synced 2026-03-21 17:34:31 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity
ca019eac8f
pokeyellow/engine/debug/debug_menu.asm

1650 lines
24 KiB
NASM
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

DebugMenu:
IF DEF(_DEBUG)
call ClearScreen
; These debug names are used for TestBattle.
; StartNewGameDebug uses the debug names from PrepareOakSpeech.
ld hl, DebugBattlePlayerName
ld de, wPlayerName
ld bc, NAME_LENGTH
call CopyData
ld hl, DebugBattleRivalName
ld de, wRivalName
ld bc, NAME_LENGTH
call CopyData
call LoadFontTilePatterns
call LoadHpBarAndStatusTilePatterns
call ClearSprites
call RunDefaultPaletteCommand
hlcoord 5, 6
lb bc, 3, 9
call TextBoxBorder
hlcoord 7, 7
ld de, DebugMenuOptions
call PlaceString
ld a, TEXT_DELAY_MEDIUM
ld [wOptions], a
ld a, PAD_A | PAD_B | PAD_START
ld [wMenuWatchedKeys], a
xor a
ld [wMenuJoypadPollCount], a
inc a
ld [wMaxMenuItem], a
ld a, 7
ld [wTopMenuItemY], a
dec a
ld [wTopMenuItemX], a
xor a
ld [wCurrentMenuItem], a
ld [wLastMenuItem], a
ld [wMenuWatchMovingOutOfBounds], a
call HandleMenuInput
bit B_PAD_B, a
ld hl, DisplayTitleScreen
ret nz
ld a, [wCurrentMenuItem]
and a ; FIGHT?
jp z, TestBattle
; DEBUG
ld hl, wStatusFlags6
set BIT_DEBUG_MODE, [hl]
ld hl, StartNewGameDebug
ret
DebugBattlePlayerName:
db "Tom@"
DebugBattleRivalName:
db "Juerry@"
DebugMenuOptions:
db "FIGHT"
next "DEBUG@"
TestBattle: ; unreferenced except in _DEBUG
ld a, 1
ldh [hJoy7], a
; Don't mess around with obedience.
ld a, 1 << BIT_EARTHBADGE
ld [wObtainedBadges], a
ld hl, wStatusFlags7
set BIT_TEST_BATTLE, [hl]
ld hl, wNumBagItems
ld de, Data_feded
.loop
ld a, [de]
cp -1
jr z, .done
inc de
ld [wCurItem], a
ld a, [de]
inc de
ld [wItemQuantity], a
push de
call AddItemToInventory
pop de
jr .loop
.done
call LoadHpBarAndStatusTilePatterns
call ClearScreen
call ClearSprites
hlcoord 0, 0
lb bc, 1, 18
call TextBoxBorder
hlcoord 6, 1
ld de, Text_fed18
call PlaceString
hlcoord 4, 4
ld de, Text_fed21
call PlaceString
hlcoord 1, 6
ld de, Text_fed30
call PlaceString
xor a
ld [wWhichPokemon], a
ld [wEnemyMon], a
ld [wEnemyMonLevel], a
ld [wTrainerClass], a
ld [wGrassMons + 1], a
ld b, a
ld c, a
ld hl, wEnemyPartySpecies
call Func_fe809
ld hl, wPartyCount
call Func_fe809
ld de, wPartySpecies
hlcoord 4, 6
; fallthrough
Func_fe7ca:
push hl
push bc
dec hl
ld a, "▶"
ld [hl], a
ld bc, 11
add hl, bc
ld a, " "
ld [hl], a
push de
pop de
pop bc
pop hl
; fallthrough
Func_fe7db:
push bc
push de
call JoypadLowSensitivity
pop de
pop bc
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_fe812
bit B_PAD_B, a
jp nz, Func_fe850
bit B_PAD_SELECT, a
jp nz, DebugMenu
bit B_PAD_START, a
jp nz, Func_fe97f
bit B_PAD_RIGHT, a
jp nz, Func_fe8a1
bit B_PAD_UP, a
jp nz, Func_fe85d
bit B_PAD_DOWN, a
jp nz, Func_fe880
jr Func_fe7db
Func_fe809:
xor a
ld [hli], a
ld [hli], a
ld [hli], a
ld [hli], a
ld [hli], a
ld [hli], a
ld [hl], a
ret
Func_fe812:
inc b
ld a, b
cp NUM_POKEMON_INDEXES + 1
jr c, Func_fe81a
xor a
ld b, a
; fallthrough
Func_fe81a:
ld [de], a
ld [wTempByteValue], a
push bc
push hl
push de
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
inc hl
push hl
ld de, Text_fed9c
call PlaceString
ld bc, hSavedMapTextPtr
add hl, bc
ld de, Text_fed9c
call PlaceString
pop hl
ld a, [wNamedObjectIndex]
and a
jr nz, .asm_fe845
ld de, Text_feda2
jr .asm_fe848
.asm_fe845
call GetMonName
.asm_fe848
call PlaceString
pop de
pop hl
pop bc
jr Func_fe7db
Func_fe850:
dec b
ld a, b
cp OPP_ID_OFFSET + 1
jp c, Func_fe81a
ld a, NUM_POKEMON_INDEXES
ld b, a
jp Func_fe81a
Func_fe85d:
ld a, [wWhichPokemon]
dec a
cp -1
jp z, Func_fe7db
ld [wWhichPokemon], a
dec de
dec hl
ld a, " "
ld [hl], a
push bc
ld bc, hMovingBGTilesCounter1
add hl, bc
pop bc
ld a, "▶"
ld [hl], a
inc hl
push hl
call Func_fe964
pop hl
jp Func_fe7db
Func_fe880:
ld a, [wWhichPokemon]
inc a
cp 6
jp nc, Func_fe7db
ld [wWhichPokemon], a
inc de
dec hl
ld a, " "
ld [hl], a
ld bc, SCREEN_WIDTH * 2
add hl, bc
ld a, "▶"
ld [hl], a
inc hl
push hl
call Func_fe964
pop hl
jp Func_fe7db
Func_fe8a1:
push hl
push bc
dec hl
ld a, " "
ld [hl], a
ld bc, 11
add hl, bc
ld a, "▶"
ld [hl], a
pop bc
pop hl
; fallthrough
Func_fe8b0:
push bc
push de
call JoypadLowSensitivity
pop de
pop bc
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_fe8d9
bit B_PAD_B, a
jp nz, Func_fe902
bit B_PAD_START, a
jp nz, Func_fe97f
bit B_PAD_LEFT, a
jp nz, Func_fe7ca
bit B_PAD_UP, a
jp nz, Func_fe912
bit B_PAD_DOWN, a
jp nz, Func_fe93b
jr Func_fe8b0
Func_fe8d9:
inc c
ld a, c
cp MAX_LEVEL + 1
jr c, Func_fe8e2
ld a, 1
ld c, a
; fallthrough
Func_fe8e2:
ld a, [wWhichPokemon]
push de
ld de, wEnemyPartySpecies
add e
ld e, a
jr nc, .asm_fe8ee
inc d
.asm_fe8ee
ld a, c
ld [de], a
push bc
push hl
ld bc, 11
add hl, bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
pop hl
pop bc
pop de
jp Func_fe8b0
Func_fe902:
dec c
ld a, c
cp MAX_LEVEL + 1
jr nc, .asm_fe90c
and a
jp nz, Func_fe8e2
.asm_fe90c
ld a, MAX_LEVEL
ld c, a
jp Func_fe8e2
Func_fe912:
ld a, [wWhichPokemon]
dec a
cp -1
jp z, Func_fe8b0
ld [wWhichPokemon], a
dec de
push hl
ld bc, 10
add hl, bc
ld a, " "
ld [hl], a
pop hl
ld bc, hMovingBGTilesCounter1
add hl, bc
push hl
ld bc, 10
add hl, bc
ld a, "▶"
ld [hl], a
call Func_fe964
pop hl
jp Func_fe8b0
Func_fe93b:
ld a, [wWhichPokemon]
inc a
cp 6
jp nc, Func_fe8b0
ld [wWhichPokemon], a
inc de
push hl
ld bc, 10
add hl, bc
ld a, " "
ld [hl], a
pop hl
ld bc, SCREEN_WIDTH * 2
add hl, bc
push hl
ld bc, 10
add hl, bc
ld a, "▶"
ld [hl], a
call Func_fe964
pop hl
jp Func_fe8b0
Func_fe964:
ld hl, wPartySpecies
ld a, [wWhichPokemon]
add l
ld l, a
jr nc, .asm_fe96f
inc h
.asm_fe96f
ld a, [hl]
ld b, a
ld hl, wEnemyPartySpecies
ld a, [wWhichPokemon]
add l
ld l, a
jr nc, .asm_fe97c
inc h
.asm_fe97c
ld a, [hl]
ld c, a
ret
Func_fe97f:
ld hl, wPartyCount
ld de, wEnemyPartyCount
xor a
ld [hl], a
inc hl
ld a, [hli]
ld b, a
ld c, 6
xor a
ld [wIsInBattle], a
.asm_fe990
ld a, b
ld [wCurPartySpecies], a
ld a, [hl]
ld b, a
inc de
ld a, [de]
and a
jr z, .asm_fe9ab
ld [wCurEnemyLevel], a
xor a
ld [wMonDataLocation], a
ld a, [wCurPartySpecies]
and a
jr z, .asm_fe9ab
call AddPartyMon
.asm_fe9ab
inc hl
dec c
jr nz, .asm_fe990
ld b, 7
ld hl, wPartySpecies
ld de, wEnemyPartyCount
.asm_fe9b7
inc de
dec b
jp z, TestBattle
ld a, [hli]
and a
jr z, .asm_fe9b7
ld a, [de]
and a
jr z, .asm_fe9b7
hlcoord 0, 3
lb bc, 15, 20
call ClearScreenArea
hlcoord 0, 3
lb bc, 15, 20
call ClearScreenArea
hlcoord 0, 3
lb bc, 15, 20
call ClearScreenArea
ld c, 20
call DelayFrames
ld a, 1
ld [wIsInBattle], a
ld de, Text_feda8
ld a, [wGrassMons + 1]
cp MAX_LEVEL + 1
jr c, .asm_fe9fb
ld a, 2
ld [wIsInBattle], a
ld de, Text_fedb2
.asm_fe9fb
hlcoord 1, 4
call PlaceString
hlcoord 1, 6
ld de, Text_fedbc
call PlaceString
ld a, [wEnemyMon]
ld b, a
ld a, [wIsInBattle]
dec a
jr z, .asm_fea40
ld a, [wTrainerClass]
ld [wTempByteValue], a
ld b, a
ld de, wTempByteValue
hlcoord 1, 8
push bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
hlcoord 5, 8
ld de, Text_fede2
call PlaceString
call GetTrainerName
hlcoord 5, 8
ld de, wTrainerName
call PlaceString
pop bc
jr .asm_fea65
.asm_fea40
ld a, b
and a
jr z, .asm_fea65
ld de, wTempByteValue
ld [de], a
hlcoord 1, 8
push bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
hlcoord 5, 8
ld de, Text_fede2
call PlaceString
call GetMonName
hlcoord 5, 8
call PlaceString
pop bc
.asm_fea65
ld a, [wEnemyMonLevel]
ld c, a
ld de, wTempByteValue
ld [de], a
hlcoord 16, 8
push bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
pop bc
; fallthrough
Func_fea78:
ld a, " "
ldcoord_a 0, 8
ldcoord_a 15, 8
ld a, "▶"
ldcoord_a 0, 4
; fallthrough
Func_fea85:
push bc
call JoypadLowSensitivity
pop bc
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_fea9d
bit B_PAD_START, a
jp nz, Func_fec10
bit B_PAD_DOWN, a
jp nz, Func_feae4
jr Func_fea85
Func_fea9d:
hlcoord 1, 8
ld de, Text_fedcf
call PlaceString
hlcoord 5, 7
ld de, Text_fede2
call PlaceString
xor a
ld b, a
ld c, a
ld a, [wIsInBattle]
dec a
jr nz, .asm_feace
ld a, 2
ld [wIsInBattle], a
ld a, " "
ldcoord_a 4, 3
hlcoord 1, 4
ld de, Text_fedb2
call PlaceString
jp Func_fea85
.asm_feace
ld a, 1
ld [wIsInBattle], a
ld a, " "
ldcoord_a 1, 3
hlcoord 1, 4
ld de, Text_feda8
call PlaceString
jp Func_fea85
Func_feae4:
ld a, "▶"
ldcoord_a 0, 8
ld a, " "
ldcoord_a 15, 8
ldcoord_a 0, 4
; fallthrough
Func_feaf1:
push bc
call JoypadLowSensitivity
pop bc
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_feb13
bit B_PAD_B, a
jp nz, Func_feb82
bit B_PAD_START, a
jp nz, Func_fec10
bit B_PAD_RIGHT, a
jp nz, Func_febba
bit B_PAD_UP, a
jp nz, Func_fea78
jr Func_feaf1
Func_feb13:
push bc
hlcoord 5, 7
ld de, Text_fede2
call PlaceString
hlcoord 5, 8
ld de, Text_fede2
call PlaceString
pop bc
ld a, [wIsInBattle]
dec a
jr z, Func_feb35.asm_feb5c
inc b
ld a, b
cp 48
jr c, Func_feb35
ld b, 1
; fallthrough
Func_feb35:
ld a, b
ld [wTempByteValue], a
ld de, wTempByteValue
hlcoord 1, 8
push bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
ld a, [wTempByteValue]
ld [wTrainerClass], a
call GetTrainerName
hlcoord 5, 8
ld de, wTrainerName
call PlaceString
pop bc
jp Func_feaf1
.asm_feb5c
inc b
ld a, b
cp NUM_POKEMON_INDEXES + 1
jr c, Func_feb64
ld b, 1
; fallthrough
Func_feb64:
ld a, b
ld [wTempByteValue], a
ld de, wTempByteValue
hlcoord 1, 8
push bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
call GetMonName
hlcoord 5, 8
call PlaceString
pop bc
jp Func_feaf1
Func_feb82:
push bc
hlcoord 5, 7
ld de, Text_fede2
call PlaceString
hlcoord 5, 8
ld de, Text_fede2
call PlaceString
pop bc
ld a, [wIsInBattle]
dec a
jr z, .asm_febab
dec b
ld a, b
cp 48
jr nc, .asm_feba6
and a
jp nz, Func_feb35
.asm_feba6
ld b, 47
jp Func_feb35
.asm_febab
dec b
ld a, b
cp NUM_POKEMON_INDEXES + 1
jr nc, .asm_febb5
and a
jp nz, Func_feb64
.asm_febb5
ld b, NUM_POKEMON_INDEXES
jp Func_feb64
Func_febba:
ld a, " "
ldcoord_a 0, 8
ld a, "▶"
ldcoord_a 15, 8
; fallthrough
Func_febc4:
push bc
call JoypadLowSensitivity
pop bc
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_febe6
bit B_PAD_B, a
jp nz, Func_fec01
bit B_PAD_START, a
jp nz, Func_fec10
bit B_PAD_LEFT, a
jp nz, Func_feae4
bit B_PAD_UP, a
jp nz, Func_fea78
jr Func_febc4
Func_febe6:
inc c
ld a, c
cp MAX_LEVEL + 1
jr c, Func_febee
ld c, 1
Func_febee:
hlcoord 16, 8
ld a, c
ld de, wCurEnemyLevel
ld [de], a
push bc
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
pop bc
jp Func_febc4
Func_fec01:
dec c
ld a, c
cp MAX_LEVEL + 1
jr nc, .asm_fec0b
and a
jp nz, Func_febee
.asm_fec0b
ld c, MAX_LEVEL
jp Func_febee
Func_fec10:
ld a, b
and a
jp z, Func_fea78
ld a, c
and a
jp z, Func_fea78
ld a, [wIsInBattle]
dec a
jr z, .asm_fec28
ld a, b
add OPP_ID_OFFSET
ld b, a
ld a, c
ld [wTrainerNo], a
.asm_fec28
ld a, c
ld [wCurEnemyLevel], a
ld a, b
ld [wCurOpponent], a
xor a
ld [wStatusFlags3], a
predef InitOpponent
xor a
ld [wNumRunAttempts], a
ld hl, wPlayerStatsToDouble
ld bc, wEnemyStatsToDouble - wPlayerStatsToDouble
call FillMemory
ld hl, wEnemyStatsToDouble
ld bc, wPlayerNumAttacksLeft - wEnemyStatsToDouble
call FillMemory
call LoadFontTilePatterns
call ClearScreen
call ClearSprites
ld a, %11100100
ldh [rBGP], a
ldh [rOBP0], a
ldh [rOBP1], a
call UpdateCGBPal_BGP
call UpdateCGBPal_OBP0
call UpdateCGBPal_OBP1
hlcoord 0, 0
lb bc, 1, 18
call TextBoxBorder
hlcoord 6, 1
ld de, Text_fed18
call PlaceString
hlcoord 4, 4
ld de, Text_fed21
call PlaceString
hlcoord 1, 6
ld de, Text_fed30
call PlaceString
ld de, wPartyCount
xor a
ld [de], a
ld [wWhichPokemon], a
inc de
hlcoord 4, 6
push de
push hl
; fallthrough
Func_fec9b:
ld a, [wWhichPokemon]
ld de, wPartySpecies
add e
ld e, a
jr nc, .asm_feca6
inc d
.asm_feca6
ld a, [de]
cp -1
jp z, Func_fed01
ld [wTempByteValue], a
push hl
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
inc hl
ld de, Text_fed9c
call PlaceString
call GetMonName
call PlaceString
pop hl
push hl
ld bc, 11
add hl, bc
push hl
ld a, [wWhichPokemon]
ld hl, wPartyMon1Level
ld bc, wPartyMon2 - wPartyMon1
call AddNTimes
ld d, h
ld e, l
ld a, [de]
ld [wCurEnemyLevel], a
pop hl
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
ld a, [wWhichPokemon]
ld de, wEnemyPartySpecies
add e
ld e, a
jr nc, .asm_fecee
inc d
.asm_fecee
ld a, [wCurEnemyLevel]
ld [de], a
pop hl
ld a, [wWhichPokemon]
inc a
ld [wWhichPokemon], a
ld bc, SCREEN_WIDTH * 2
add hl, bc
jp Func_fec9b
Func_fed01:
pop hl
pop de
ld a, [wPartyMon1]
ld b, a
ld a, [wPartyMon1Level]
ld c, a
xor a
ld [wWhichPokemon], a
jp Func_fe7ca
Text_fed12:
db "けんしろう@" ; "KENSHIROU@"
Text_fed18:
db "テスト ファイト@" ; "FIGHT TEST@"
Text_fed21:
db "№． なまえ レべル@" ; "№． NAME LEVEL@"
Text_fed30:
db "１．▶０００ ーーーーー ０００"
next "２． ０００ ーーーーー ０００"
next "３． ０００ ーーーーー ０００"
next "４． ０００ ーーーーー ０００"
next "５． ０００ ーーーーー ０００"
next "６． ０００ ーーーーー ０００@"
Text_fed9c:
db " @"
Text_feda2:
db "ーーーーー@"
Text_feda8:
db "ワイルドモンスター@" ; "WILD #MON@"
Text_fedb2:
db "ディーラー @" ; "TRAINER @"
Text_fedbc:
db "№． なまえ レべル" ; "№． NAME LABEL"
next ""
Text_fedcf:
db "０００ ーーーーーーーーーー ０００@"
Text_fede2:
db " @"
Data_feded:
db GREAT_BALL, 99
db POKE_BALL, 99
db ANTIDOTE, 99
db FULL_RESTORE, 99
db MAX_POTION, 99
db HYPER_POTION, 99
db SUPER_POTION, 99
db POTION, 99
db -1 ; end
Func_fedfe:
ld a, [wBoxCount]
cp 30
jp nc, Func_ff1ad
call ClearScreen
call UpdateSprites
ld a, [wLetterPrintingDelayFlags]
push af
xor a
ld [wLetterPrintingDelayFlags], a
ld hl, wEnemyMonOT
ld [hli], a
ld [hli], a
ld [hl], a
inc a
ldh [hJoy7], a
ld [wCurPartySpecies], a
ld [wCurEnemyLevel], a
; fallthrough
Func_fee23:
hlcoord 0, 3
ld [hl], " "
hlcoord 0, 1
ld [hl], "▶"
call Func_fee60
.asm_fee30
call DelayFrame
call JoypadLowSensitivity
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_fee49
bit B_PAD_B, a
jp nz, Func_fee56
bit B_PAD_DOWN, a
jp nz, Func_fee96
jr .asm_fee30
Func_fee49:
ld hl, wCurPartySpecies
inc [hl]
ld a, [hl]
cp NUM_POKEMON + 1
jr c, Func_fee23
ld [hl], DEX_BULBASAUR
jr Func_fee23
Func_fee56:
ld hl, wCurPartySpecies
dec [hl]
jr nz, Func_fee23
ld [hl], DEX_MEW
jr Func_fee23
Func_fee60:
hlcoord 1, 0
lb bc, 2, 9
call ClearScreenArea
hlcoord 1, 1
ld de, wCurPartySpecies
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
inc hl
push hl
ld a, [wCurPartySpecies]
ld [wPokedexNum], a
callfar PokedexToIndex
call GetMonName
pop hl
call PlaceString
ld a, [wPokedexNum]
ld [wCurSpecies], a
call GetMonHeader
ret
Func_fee96:
hlcoord 0, 1
ld [hl], " "
hlcoord 0, 3
ld [hl], "▶"
hlcoord 0, 5
ld [hl], " "
call Func_feee2
call Func_feeef
.asm_feeab
call DelayFrame
call JoypadLowSensitivity
ld hl, wCurEnemyLevel
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_feed1
bit B_PAD_B, a
jp nz, Func_feedb
bit B_PAD_START, a
jp nz, Func_ff12c
bit B_PAD_UP, a
jp nz, Func_fee23
bit B_PAD_DOWN, a
jp nz, Func_fef60
jr .asm_feeab
Func_feed1:
inc [hl]
ld a, [hl]
cp MAX_LEVEL + 1
jr c, Func_fee96
ld [hl], 1
jr Func_fee96
Func_feedb:
dec [hl]
jr nz, Func_fee96
ld [hl], MAX_LEVEL
jr Func_fee96
Func_feee2:
hlcoord 1, 3
ld de, wCurEnemyLevel
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
ret
Func_feeef:
hlcoord 1, 4
lb bc, 8, 11
call ClearScreenArea
ld a, [wCurPartySpecies]
push af
ld [wPokedexNum], a
ld hl, BaseStats + 15
dec a
ld bc, BASE_DATA_SIZE
call AddNTimes
ld de, wMoves
ld bc, NUM_MOVES
ld a, BANK(BaseStats)
call FarCopyData
callfar PokedexToIndex
ld a, [wPokedexNum]
ld [wCurPartySpecies], a
xor a
ld [wChangeMonPicEnemyTurnSpecies], a
ld de, wMoves
predef WriteMonMoves
hlcoord 1, 5
ld de, wMoves
ld b, NUM_MOVES
.asm_fef36
ld a, [de]
inc de
and a
jr z, .asm_fef5b
push de
push bc
push hl
ld [wTempByteValue], a
ld de, wTempByteValue
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
inc hl
call GetMoveName
call PlaceString
pop hl
ld bc, SCREEN_WIDTH * 2
add hl, bc
pop bc
pop de
dec b
jr nz, .asm_fef36
.asm_fef5b
pop af
ld [wCurPartySpecies], a
ret
Func_fef60:
ld de, wMoves
hlcoord 0, 5
ld b, 1
; fallthrough
Func_fef68:
call Func_fefc5
.asm_fef6b
call DelayFrame
push de
push bc
call JoypadLowSensitivity
pop bc
pop de
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_fef92
bit B_PAD_B, a
jp nz, Func_fef9e
bit B_PAD_START, a
jp nz, Func_ff12c
bit B_PAD_UP, a
jp nz, Func_fefa8
bit B_PAD_DOWN, a
jp nz, Func_fefb5
jr .asm_fef6b
Func_fef92:
ld a, [de]
inc a
ld [de], a
cp NUM_ATTACKS
jr c, Func_fef68
ld a, 1
ld [de], a
jr Func_fef68
Func_fef9e:
ld a, [de]
dec a
ld [de], a
jr nz, Func_fef68
ld a, NUM_ATTACKS - 1
ld [de], a
jr Func_fef68
Func_fefa8:
dec de
dec b
jp z, Func_fee96
push bc
ld bc, hMovingBGTilesCounter1
add hl, bc
pop bc
jr Func_fef68
Func_fefb5:
inc de
inc b
ld a, b
cp 5
jp z, Func_ff03b
push bc
ld bc, SCREEN_WIDTH * 2
add hl, bc
pop bc
jr Func_fef68
Func_fefc5:
push hl
push de
push bc
push hl
push de
ld bc, hSpriteMapYCoord
add hl, bc
lb bc, 2, 11
call ClearScreenArea
pop de
pop hl
push hl
ld [hl], "▶"
ld bc, hMovingBGTilesCounter1
add hl, bc
ld [hl], " "
ld bc, SCREEN_WIDTH * 4
add hl, bc
ld [hl], " "
pop hl
inc hl
ld a, [de]
ld de, wTempByteValue
ld [de], a
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
ld a, [wTempByteValue]
and a
jr z, .asm_ff002
call Func_ff006
inc hl
call GetMoveName
call PlaceString
.asm_ff002
pop bc
pop de
pop hl
ret
Func_ff006:
ld a, [wCurPartySpecies]
push af
ld a, [wPokedexNum]
push af
push hl
ld a, [wCurPartySpecies]
ld [wPokedexNum], a
callfar PokedexToIndex
ld a, [wPokedexNum]
ld [wCurPartySpecies], a
pop hl
pop af
ld [wPokedexNum], a
push hl
callfar Func_3b079
pop hl
jr c, .asm_ff036
ld [hl], "×"
.asm_ff036
pop af
ld [wCurPartySpecies], a
ret
Func_ff03b:
ld de, wEnemyMonOT
hlcoord 0, 13
ld b, 1
; fallthrough
Func_ff043:
call Func_ff09e
.asm_ff046
call DelayFrame
push de
push bc
call JoypadLowSensitivity
pop bc
pop de
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_ff06d
bit B_PAD_B, a
jp nz, Func_ff072
bit B_PAD_START, a
jp nz, Func_ff12c
bit B_PAD_UP, a
jp nz, Func_ff077
bit B_PAD_DOWN, a
jp nz, Func_ff08f
jr .asm_ff046
Func_ff06d:
ld a, [de]
inc a
ld [de], a
jr Func_ff043
Func_ff072:
ld a, [de]
dec a
ld [de], a
jr Func_ff043
Func_ff077:
dec de
dec b
jp z, Func_ff084
push bc
ld bc, hMovingBGTilesCounter1
add hl, bc
pop bc
jr Func_ff043
Func_ff084:
ld de, wMoves + 3
hlcoord 0, 11
ld b, NUM_MOVES
jp Func_fef68
Func_ff08f:
ld a, b
cp 3
jr z, Func_ff043
inc b
inc de
push bc
ld bc, SCREEN_WIDTH * 2
add hl, bc
pop bc
jr Func_ff043
Func_ff09e:
push hl
push de
push bc
push hl
ld [hl], "▶"
ld bc, hMovingBGTilesCounter1
add hl, bc
ld [hl], " "
ld bc, SCREEN_WIDTH * 4
add hl, bc
ld [hl], " "
pop hl
inc hl
ld a, [de]
ld de, wTempByteValue
ld [de], a
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
call Func_ff0c4
pop bc
pop de
pop hl
ret
Func_ff0c4:
hlcoord 12, 0
lb bc, 18, 8
call ClearScreenArea
hlcoord 13, 1
ld de, Text_ff113
call PlaceString
ld b, 10
ld hl, wLoadedMonHPExp
ld a, [wEnemyMonOT + 2]
.asm_ff0de
ld [hli], a
dec b
jr nz, .asm_ff0de
ld a, [wEnemyMonOT]
ld [hli], a
ld a, [wEnemyMonOT + 1]
ld [hl], a
ld hl, wLoadedMonExp + 2
ld de, wLoadedMonStats
ld b, 1
call CalcStats
hlcoord 17, 1
ld de, wLoadedMonStats
ld b, 5
.asm_ff0fd
push bc
push de
push hl
lb bc, LEADING_ZEROES | 2, 3
call PrintNumber
pop hl
ld bc, SCREEN_WIDTH * 2
add hl, bc
pop de
inc de
inc de
pop bc
dec b
jr nz, .asm_ff0fd
ret
Text_ff113:
db "たいりき" ; hp
next "こうげき" ; attack
next "ぼうぎょ" ; defense
next "すばやさ" ; speed
next "とくしゅ@" ; special
Func_ff12c:
ld a, [wCurEnemyLevel]
ld [wEnemyMonLevel], a
ld a, [wCurPartySpecies]
ld [wPokedexNum], a
callfar PokedexToIndex
ld a, [wPokedexNum]
ld [wCurPartySpecies], a
ld [wCurSpecies], a
call GetMonHeader
ld hl, wEnemyMon
ld a, [wCurPartySpecies]
ld [hli], a
ld a, [wLoadedMonStats]
ld [hli], a
ld a, [wLoadedMonStats + 1]
ld [hli], a
xor a
ld [hli], a
ld [hli], a
ld a, [wMonHTypes]
ld [hli], a
ld a, [wMonHType2]
ld [hli], a
ld a, [wMonHCatchRate]
ld [hli], a
ld a, [wMoves]
ld [hli], a
ld a, [wMoves + 1]
ld [hli], a
ld a, [wMoves + 2]
ld [hli], a
ld a, [wMoves + 3]
ld [hl], a
ld hl, wEnemyMonPP
xor a
ld [hli], a
ld [hli], a
ld [hli], a
ld [hl], a
ld a, [wEnemyMonOT]
ld [wEnemyMonDVs], a
ld a, [wEnemyMonOT + 1]
ld [wEnemyMonDVs + 1], a
callfar SendNewMonToBox
ld b, 10
ld hl, wBoxMon1HPExp
ld a, [wEnemyMonOT + 2]
.asm_ff19e
ld [hli], a
dec b
jr nz, .asm_ff19e
ld a, 1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
pop af
ld [wLetterPrintingDelayFlags], a
jr Func_ff1b3
Func_ff1ad:
ld hl, Text_ff1b4
call PrintText
Func_ff1b3:
ret
Text_ff1b4:
text_far _BoxFullDebugText
text_end
Func_ff1b9:
ld a, 1
ldh [hJoy7], a
ld a, 2
ld [wCurEnemyLevel], a
ld hl, Text_ff290
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jp nz, Func_ff286
ld hl, Text_ff28f
call PrintText
callfar EmptyAllSRAMBoxes
ld hl, wBoxCount
xor a
ld [hli], a
dec a
ld [hl], a
; fallthrough
Func_ff1e7:
hlcoord 2, 13
ld [hl], "ﾞ"
hlcoord 1, 14
ld [hl], "レ"
inc hl
ld [hl], "へ"
inc hl
ld [hl], "ル"
inc hl
inc hl
ld de, wCurEnemyLevel
lb bc, LEADING_ZEROES | 1, 3
call PrintNumber
call DelayFrame
call JoypadLowSensitivity
ldh a, [hJoy5]
bit B_PAD_A, a
jp nz, Func_ff21b
bit B_PAD_B, a
jp nz, Func_ff227
bit B_PAD_START, a
jp nz, Func_ff236
jr Func_ff1e7
Func_ff21b:
ld a, [wCurEnemyLevel]
inc a
cp MAX_LEVEL + 1
jr c, Func_ff231
ld a, 2
jr Func_ff231
Func_ff227:
ld a, [wCurEnemyLevel]
dec a
cp 2
jr nc, Func_ff231
ld a, MAX_LEVEL
Func_ff231:
ld [wCurEnemyLevel], a
jr Func_ff1e7
Func_ff236:
ld c, 0
ld d, 0
.asm_ff23a
push bc
push de
call Func_ff295
ld hl, wChangeMonPicEnemyTurnSpecies
inc [hl]
pop de
pop bc
ld b, 30
.asm_ff247
inc c
push bc
push de
ld a, c
ld [wPokedexNum], a
callfar PokedexToIndex
ld a, [wPokedexNum]
ld [wEnemyMonSpecies2], a
ld [wCurPartySpecies], a
xor a
ld [wEnemyBattleStatus3], a
callfar LoadEnemyMonData
ld a, [wEnemyMonSpecies2]
ld [wCurPartySpecies], a
callfar SendNewMonToBox
pop de
pop bc
ld a, c
cp NUM_POKEMON
jr z, Func_ff286
dec b
jr nz, .asm_ff247
inc d
jr .asm_ff23a
; fallthrough
Func_ff286:
ld a, 1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
xor a
ldh [hJoy7], a
ret
Text_ff28f:
text_end
Text_ff290:
text_far _BoxWillBeClearedText
text_end
Func_ff295:
push de
ld a, SFX_SAVE
call PlaySoundWaitForCurrent
call WaitForSoundToFinish
call Func_ff2d1
ld e, l
ld d, h
ld hl, wBoxCount
call Func_ff2f3
pop de
ld a, d
set BIT_HAS_CHANGED_BOXES, a
ld [wCurrentBoxNum], a
push de
call Func_ff2d1
ld de, wBoxCount
call Func_ff2f3
ld a, [wLetterPrintingDelayFlags]
push af
ld a, 1 << BIT_FAST_TEXT_DELAY
ld [wLetterPrintingDelayFlags], a
callfar SaveSAVtoSRAM
pop af
ld [wLetterPrintingDelayFlags], a
pop de
ret
Func_ff2d1:
ld hl, Data_ff2eb
ld a, [wCurrentBoxNum]
and %01111111
cp 4
ld b, 2
jr c, .asm_ff2e2
inc b
and 3
.asm_ff2e2
ld e, a
ld d, 0
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ret
Data_ff2eb:
dw sBox1
dw sBox2
dw sBox3
dw sBox4
Func_ff2f3:
push hl
call DebugEnableSRAM
ld a, b
ld [rRAMB], a
ld bc, sBox2 - sBox1
call CopyData
pop hl
xor a
ld [hli], a
dec a
ld [hl], a
ld hl, sBox1
ld bc, sBox5 - sBox1 + 1
call Func_ff32a
ld [sBox5], a
call DebugDisableSRAM
ret
DebugEnableSRAM: ; duplicate of EnableSRAM
ld a, BMODE_ADVANCED
ld [rBMODE], a
ld a, RAMG_SRAM_ENABLE
ld [rRAMG], a
ret
DebugDisableSRAM: ; duplicate of DisableSRAM
ld a, 0
ld [rBMODE], a
ld [rRAMG], a
ret
Func_ff32a:
ld d, 0
.asm_ff32c
ld a, [hli]
add d
ld d, a
dec bc
ld a, b
or c
jr nz, .asm_ff32c
ld a, d
cpl
ret
ELSE
ret
ENDC
Reference in New Issue View Git Blame Copy Permalink