Add more missing files
This commit is contained in:
@@ -1523,7 +1523,7 @@ RadioChannels:
|
||||
dbw 72, .LetsAllSing
|
||||
dbw 78, .PokeFluteRadio
|
||||
dbw 80, .EvolutionRadio
|
||||
db $ff
|
||||
db -1
|
||||
|
||||
.PkmnTalkAndPokedexShow
|
||||
; Pokédex Show in the morning
|
||||
|
49
engine/pokepic.asm
Executable file
49
engine/pokepic.asm
Executable file
@@ -0,0 +1,49 @@
|
||||
Pokepic:: ; 244e3
|
||||
ld hl, PokepicMenuDataHeader
|
||||
call CopyMenuDataHeader
|
||||
call MenuBox
|
||||
call UpdateSprites
|
||||
call ApplyTilemap
|
||||
ld b, SCGB_POKEPIC
|
||||
call GetSGBLayout
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
ld a, [CurPartySpecies]
|
||||
ld [CurSpecies], a
|
||||
call GetBaseData
|
||||
ld de, VTiles1
|
||||
predef GetFrontpic
|
||||
ld a, [wMenuBorderTopCoord]
|
||||
inc a
|
||||
ld b, a
|
||||
ld a, [wMenuBorderLeftCoord]
|
||||
inc a
|
||||
ld c, a
|
||||
call Coord2Tile
|
||||
ld a, $80
|
||||
ld [hGraphicStartTile], a
|
||||
lb bc, 7, 7
|
||||
predef PlaceGraphic
|
||||
call WaitBGMap
|
||||
ret
|
||||
|
||||
ClosePokepic:: ; 24528
|
||||
ld hl, PokepicMenuDataHeader
|
||||
call CopyMenuDataHeader
|
||||
call ClearMenuBoxInterior
|
||||
call WaitBGMap
|
||||
call GetMemSGBLayout
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
call OverworldTextModeSwitch
|
||||
call ApplyTilemap
|
||||
call UpdateSprites
|
||||
call LoadStandardFont
|
||||
ret
|
||||
|
||||
PokepicMenuDataHeader: ; 0x24547
|
||||
db $40 ; flags
|
||||
db 04, 06 ; start coords
|
||||
db 13, 14 ; end coords
|
||||
dw NULL
|
||||
db 1 ; default option
|
Reference in New Issue
Block a user