2014-05-22 22:13:20 +00:00
|
|
|
AnimateHallOfFame: ; 701a0 (1c:41a0)
|
|
|
|
call Func_70423
|
|
|
|
call ClearScreen
|
2014-06-14 21:24:35 +00:00
|
|
|
ld c, 100
|
2014-05-22 22:13:20 +00:00
|
|
|
call DelayFrames
|
|
|
|
call LoadFontTilePatterns
|
|
|
|
call LoadTextBoxTilePatterns
|
|
|
|
call DisableLCD
|
2014-05-29 08:31:46 +00:00
|
|
|
ld hl,vBGMap0
|
2014-05-22 22:13:20 +00:00
|
|
|
ld bc, $800
|
|
|
|
ld a, $7f
|
|
|
|
call FillMemory
|
|
|
|
call EnableLCD
|
|
|
|
ld hl, rLCDC ; $ff40
|
|
|
|
set 3, [hl]
|
|
|
|
xor a
|
2014-06-14 21:24:35 +00:00
|
|
|
ld hl, wHallOfFame
|
|
|
|
ld bc, HOF_TEAM
|
2014-05-22 22:13:20 +00:00
|
|
|
call FillMemory
|
|
|
|
xor a
|
2014-09-13 07:50:56 +00:00
|
|
|
ld [wUpdateSpritesEnabled], a
|
2014-09-14 18:29:18 +00:00
|
|
|
ld [hTilesetType], a
|
2014-05-22 22:13:20 +00:00
|
|
|
ld [W_SPRITEFLIPPED], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd358], a
|
|
|
|
ld [wTrainerScreenY], a
|
2014-05-22 22:13:20 +00:00
|
|
|
inc a
|
|
|
|
ld [H_AUTOBGTRANSFERENABLED], a ; $ffba
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd5a2
|
2014-05-22 22:13:20 +00:00
|
|
|
ld a, [hl]
|
|
|
|
inc a
|
|
|
|
jr z, .asm_701eb
|
|
|
|
inc [hl]
|
|
|
|
.asm_701eb
|
|
|
|
ld a, $90
|
2014-09-23 22:02:03 +00:00
|
|
|
ld [hWY], a
|
2014-05-22 22:13:20 +00:00
|
|
|
ld c, BANK(Music_HallOfFame)
|
|
|
|
ld a, MUSIC_HALL_OF_FAME
|
|
|
|
call PlayMusic
|
2014-06-14 11:12:40 +00:00
|
|
|
ld hl, wPartySpecies
|
2014-05-22 22:13:20 +00:00
|
|
|
ld c, $ff
|
|
|
|
.asm_701fb
|
|
|
|
ld a, [hli]
|
|
|
|
cp $ff
|
|
|
|
jr z, .asm_70241
|
|
|
|
inc c
|
|
|
|
push hl
|
|
|
|
push bc
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wWhichTrade], a ; wWhichTrade
|
2014-05-22 22:13:20 +00:00
|
|
|
ld a, c
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wTrainerEngageDistance], a
|
2014-06-14 11:12:40 +00:00
|
|
|
ld hl, wPartyMon1Level ; wPartyMon1Level
|
2014-06-14 21:24:35 +00:00
|
|
|
ld bc, wPartyMon2 - wPartyMon1
|
2014-05-22 22:13:20 +00:00
|
|
|
call AddNTimes
|
|
|
|
ld a, [hl]
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wTrainerFacingDirection], a
|
2014-05-22 22:13:20 +00:00
|
|
|
call Func_70278
|
|
|
|
call Func_702e1
|
|
|
|
ld c, $50
|
|
|
|
call DelayFrames
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 2, 13
|
2014-05-22 22:13:20 +00:00
|
|
|
ld b, $3
|
|
|
|
ld c, $e
|
|
|
|
call TextBoxBorder
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 4, 15
|
2014-05-22 22:13:20 +00:00
|
|
|
ld de, HallOfFameText
|
|
|
|
call PlaceString
|
2014-06-14 21:24:35 +00:00
|
|
|
ld c, 180
|
2014-05-22 22:13:20 +00:00
|
|
|
call DelayFrames
|
2014-09-13 07:50:56 +00:00
|
|
|
call GBFadeOutToWhite
|
2014-05-22 22:13:20 +00:00
|
|
|
pop bc
|
|
|
|
pop hl
|
|
|
|
jr .asm_701fb
|
|
|
|
.asm_70241
|
|
|
|
ld a, c
|
|
|
|
inc a
|
2014-06-14 21:24:35 +00:00
|
|
|
ld hl, wHallOfFame
|
|
|
|
ld bc, HOF_MON
|
2014-05-22 22:13:20 +00:00
|
|
|
call AddNTimes
|
|
|
|
ld [hl], $ff
|
2014-06-14 21:24:35 +00:00
|
|
|
call SaveHallOfFameTeams
|
2014-05-22 22:13:20 +00:00
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wWhichTrade], a ; wWhichTrade
|
2014-05-22 22:13:20 +00:00
|
|
|
inc a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wTrainerScreenY], a
|
2014-05-22 22:13:20 +00:00
|
|
|
call Func_70278
|
|
|
|
call Func_70377
|
|
|
|
call Func_70423
|
|
|
|
xor a
|
2014-09-23 22:02:03 +00:00
|
|
|
ld [hWY], a
|
2014-05-22 22:13:20 +00:00
|
|
|
ld hl, rLCDC ; $ff40
|
|
|
|
res 3, [hl]
|
|
|
|
ret
|
|
|
|
|
|
|
|
HallOfFameText: ; 7026b (1c:426b)
|
|
|
|
db "HALL OF FAME@"
|
|
|
|
|
|
|
|
Func_70278: ; 70278 (1c:4278)
|
|
|
|
call ClearScreen
|
|
|
|
ld a, $d0
|
2015-02-07 10:43:08 +00:00
|
|
|
ld [hSCY], a
|
2014-05-22 22:13:20 +00:00
|
|
|
ld a, $c0
|
2015-02-07 10:43:08 +00:00
|
|
|
ld [hSCX], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wWhichTrade] ; wWhichTrade
|
|
|
|
ld [wcf91], a
|
|
|
|
ld [wd0b5], a
|
2014-06-14 11:12:40 +00:00
|
|
|
ld [wBattleMonSpecies2], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcf1d], a
|
|
|
|
ld a, [wTrainerScreenY]
|
2014-05-22 22:13:20 +00:00
|
|
|
and a
|
|
|
|
jr z, .asm_7029d
|
|
|
|
call Func_7033e
|
|
|
|
jr .asm_702ab
|
|
|
|
.asm_7029d
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 12, 5
|
2014-05-22 22:13:20 +00:00
|
|
|
call GetMonHeader
|
|
|
|
call LoadFrontSpriteByMonIndex
|
2014-06-16 20:57:26 +00:00
|
|
|
predef LoadMonBackPic
|
2014-05-22 22:13:20 +00:00
|
|
|
.asm_702ab
|
|
|
|
ld b, $b
|
|
|
|
ld c, $0
|
|
|
|
call GoPAL_SET
|
|
|
|
ld a, $e4
|
|
|
|
ld [rBGP], a ; $ff47
|
|
|
|
ld c, $31
|
|
|
|
call Func_7036d
|
|
|
|
ld d, $a0
|
|
|
|
ld e, $4
|
2014-09-13 07:50:56 +00:00
|
|
|
ld a, [wOnSGB]
|
2014-05-22 22:13:20 +00:00
|
|
|
and a
|
|
|
|
jr z, .asm_702c7
|
|
|
|
sla e
|
|
|
|
.asm_702c7
|
|
|
|
call .asm_702d5
|
|
|
|
xor a
|
2015-02-07 10:43:08 +00:00
|
|
|
ld [hSCY], a
|
2014-05-22 22:13:20 +00:00
|
|
|
ld c, a
|
|
|
|
call Func_7036d
|
|
|
|
ld d, $0
|
|
|
|
ld e, $fc
|
|
|
|
.asm_702d5
|
|
|
|
call DelayFrame
|
2015-02-07 10:43:08 +00:00
|
|
|
ld a, [hSCX]
|
2014-05-22 22:13:20 +00:00
|
|
|
add e
|
2015-02-07 10:43:08 +00:00
|
|
|
ld [hSCX], a
|
2014-05-22 22:13:20 +00:00
|
|
|
cp d
|
|
|
|
jr nz, .asm_702d5
|
|
|
|
ret
|
|
|
|
|
|
|
|
Func_702e1: ; 702e1 (1c:42e1)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wTrainerEngageDistance]
|
2014-06-14 11:12:40 +00:00
|
|
|
ld hl, wPartyMonNicks ; wPartyMonNicks
|
2014-05-22 22:13:20 +00:00
|
|
|
call GetPartyMonName
|
|
|
|
call Func_702f0
|
|
|
|
jp Func_70404
|
|
|
|
|
|
|
|
Func_702f0: ; 702f0 (1c:42f0)
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 0, 2
|
2014-05-22 22:13:20 +00:00
|
|
|
ld b, $9
|
|
|
|
ld c, $a
|
|
|
|
call TextBoxBorder
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 2, 6
|
2014-05-22 22:13:20 +00:00
|
|
|
ld de, HoFMonInfoText
|
|
|
|
call PlaceString
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 1, 4
|
2014-05-26 21:04:56 +00:00
|
|
|
ld de, wcd6d
|
2014-05-22 22:13:20 +00:00
|
|
|
call PlaceString
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wTrainerFacingDirection]
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 8, 7
|
2014-05-22 22:13:20 +00:00
|
|
|
call PrintLevelCommon
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wWhichTrade] ; wWhichTrade
|
|
|
|
ld [wd0b5], a
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 3, 9
|
2015-02-08 00:24:16 +00:00
|
|
|
predef PrintMonType
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wWhichTrade] ; wWhichTrade
|
2014-05-22 22:13:20 +00:00
|
|
|
jp PlayCry
|
|
|
|
|
|
|
|
HoFMonInfoText: ; 70329 (1c:4329)
|
|
|
|
db "LEVEL/"
|
|
|
|
next "TYPE1/"
|
|
|
|
next "TYPE2/@"
|
|
|
|
|
|
|
|
Func_7033e: ; 7033e (1c:433e)
|
|
|
|
ld de, RedPicFront ; $6ede
|
|
|
|
ld a, BANK(RedPicFront)
|
|
|
|
call UncompressSpriteFromDE
|
|
|
|
ld hl, S_SPRITEBUFFER1
|
|
|
|
ld de, $a000
|
|
|
|
ld bc, $310
|
|
|
|
call CopyData
|
2014-05-29 08:31:46 +00:00
|
|
|
ld de, vFrontPic
|
2014-05-22 22:13:20 +00:00
|
|
|
call InterlaceMergeSpriteBuffers
|
|
|
|
ld de, RedPicBack ; $7e0a
|
|
|
|
ld a, BANK(RedPicBack)
|
|
|
|
call UncompressSpriteFromDE
|
2014-06-16 20:57:26 +00:00
|
|
|
predef ScaleSpriteByTwo
|
2014-05-29 08:31:46 +00:00
|
|
|
ld de, vBackPic
|
2014-05-22 22:13:20 +00:00
|
|
|
call InterlaceMergeSpriteBuffers
|
|
|
|
ld c, $1
|
|
|
|
|
|
|
|
Func_7036d: ; 7036d (1c:436d)
|
|
|
|
ld b, $0
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 12, 5
|
2015-02-07 10:43:08 +00:00
|
|
|
predef_jump CopyTileIDsFromList
|
2014-05-22 22:13:20 +00:00
|
|
|
|
|
|
|
Func_70377: ; 70377 (1c:4377)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd747
|
2014-05-22 22:13:20 +00:00
|
|
|
set 3, [hl]
|
2014-06-16 20:57:26 +00:00
|
|
|
predef DisplayDexRating
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 0, 4
|
2014-05-22 22:13:20 +00:00
|
|
|
ld b, $6
|
|
|
|
ld c, $a
|
|
|
|
call TextBoxBorder
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 5, 0
|
2014-05-22 22:13:20 +00:00
|
|
|
ld b, $2
|
|
|
|
ld c, $9
|
|
|
|
call TextBoxBorder
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 7, 2
|
2014-06-14 11:12:40 +00:00
|
|
|
ld de, wPlayerName ; wd158
|
2014-05-22 22:13:20 +00:00
|
|
|
call PlaceString
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 1, 6
|
2014-05-22 22:13:20 +00:00
|
|
|
ld de, HoFPlayTimeText
|
|
|
|
call PlaceString
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 5, 7
|
2014-05-26 21:04:56 +00:00
|
|
|
ld de, W_PLAYTIMEHOURS + 1
|
2014-05-22 22:13:20 +00:00
|
|
|
ld bc, $103
|
|
|
|
call PrintNumber
|
|
|
|
ld [hl], $6d
|
|
|
|
inc hl
|
2014-05-26 21:04:56 +00:00
|
|
|
ld de, W_PLAYTIMEMINUTES + 1
|
2014-05-22 22:13:20 +00:00
|
|
|
ld bc, $8102
|
|
|
|
call PrintNumber
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 1, 9
|
2014-05-22 22:13:20 +00:00
|
|
|
ld de, HoFMoneyText
|
|
|
|
call PlaceString
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 4, 10
|
2014-05-26 21:04:56 +00:00
|
|
|
ld de, wPlayerMoney ; wPlayerMoney
|
2014-05-22 22:13:20 +00:00
|
|
|
ld c, $a3
|
|
|
|
call PrintBCDNumber
|
|
|
|
ld hl, DexSeenOwnedText
|
|
|
|
call Func_703e2
|
|
|
|
ld hl, DexRatingText
|
|
|
|
call Func_703e2
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wcc5d
|
2014-05-22 22:13:20 +00:00
|
|
|
|
|
|
|
Func_703e2: ; 703e2 (1c:43e2)
|
|
|
|
call PrintText
|
|
|
|
ld c, $78
|
|
|
|
jp DelayFrames
|
|
|
|
|
|
|
|
HoFPlayTimeText: ; 703ea (1c:43ea)
|
|
|
|
db "PLAY TIME@"
|
|
|
|
|
|
|
|
HoFMoneyText: ; 703f4 (1c:43f4)
|
|
|
|
db "MONEY@"
|
|
|
|
|
|
|
|
DexSeenOwnedText: ; 703fa (1c:43fa)
|
|
|
|
TX_FAR _DexSeenOwnedText
|
|
|
|
db "@"
|
|
|
|
|
|
|
|
DexRatingText: ; 703ff (1c:43ff)
|
|
|
|
TX_FAR _DexRatingText
|
|
|
|
db "@"
|
|
|
|
|
|
|
|
Func_70404: ; 70404 (1c:4404)
|
2014-06-14 21:24:35 +00:00
|
|
|
ld hl, wHallOfFame
|
|
|
|
ld bc, HOF_MON
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wTrainerEngageDistance]
|
2014-05-22 22:13:20 +00:00
|
|
|
call AddNTimes
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wWhichTrade] ; wWhichTrade
|
2014-05-22 22:13:20 +00:00
|
|
|
ld [hli], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wTrainerFacingDirection]
|
2014-05-22 22:13:20 +00:00
|
|
|
ld [hli], a
|
|
|
|
ld e, l
|
|
|
|
ld d, h
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wcd6d
|
2014-05-22 22:13:20 +00:00
|
|
|
ld bc, $b
|
|
|
|
jp CopyData
|
|
|
|
|
|
|
|
Func_70423: ; 70423 (1c:4423)
|
|
|
|
ld a, $a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcfc8], a
|
|
|
|
ld [wcfc9], a
|
2014-05-22 22:13:20 +00:00
|
|
|
ld a, $ff
|
|
|
|
ld [wMusicHeaderPointer], a
|
2014-09-13 07:50:56 +00:00
|
|
|
jp GBFadeOutToWhite
|