pokecrystal/home.asm

1406 lines
19 KiB
NASM
Raw Normal View History

2013-11-29 07:30:08 +00:00
INCLUDE "includes.asm"
2017-12-16 02:32:43 +00:00
SECTION "NULL", ROM0
NULL::
2013-11-29 07:30:08 +00:00
2013-11-29 07:30:08 +00:00
INCLUDE "rst.asm"
2013-11-29 07:30:08 +00:00
INCLUDE "interrupts.asm"
2017-12-16 02:32:43 +00:00
SECTION "Header", ROM0
2013-11-29 07:30:08 +00:00
Start::
2013-11-29 07:30:08 +00:00
nop
jp _Start
2017-12-16 02:32:43 +00:00
SECTION "Home", ROM0
2013-11-29 07:30:08 +00:00
INCLUDE "home/init.asm"
INCLUDE "home/vblank.asm"
INCLUDE "home/delay.asm"
INCLUDE "home/rtc.asm"
INCLUDE "home/fade.asm"
INCLUDE "home/lcd.asm"
INCLUDE "home/time.asm"
INCLUDE "home/serial.asm"
INCLUDE "home/joypad.asm"
INCLUDE "home/decompress.asm"
INCLUDE "home/palettes.asm"
INCLUDE "home/copy.asm"
INCLUDE "home/text.asm"
INCLUDE "home/video.asm"
INCLUDE "home/map_objects.asm"
INCLUDE "home/sine.asm"
INCLUDE "home/movement.asm"
INCLUDE "home/tilemap.asm"
INCLUDE "home/menu.asm"
INCLUDE "home/handshake.asm"
INCLUDE "home/game_time.asm"
INCLUDE "home/map.asm"
InexplicablyEmptyFunction:: ; 2d43
2013-11-29 07:30:08 +00:00
; Inexplicably empty.
; Seen in PredefPointers.
rept 16
2013-11-29 07:30:08 +00:00
nop
endr
2013-11-29 07:30:08 +00:00
ret
; 2d54
INCLUDE "home/farcall.asm"
INCLUDE "home/predef.asm"
INCLUDE "home/window.asm"
INCLUDE "home/flag.asm"
Function2ebb:: ; 2ebb
; unreferenced
ld a, [wMonStatusFlags]
2013-11-29 07:30:08 +00:00
bit 1, a
ret z
2015-09-09 23:27:07 +00:00
2013-11-29 07:30:08 +00:00
ld a, [hJoyDown]
bit B_BUTTON_F, a
2013-11-29 07:30:08 +00:00
ret
; 2ec6
xor_a:: ; 2ec6
2013-11-29 07:30:08 +00:00
xor a
ret
; 2ec8
xor_a_dec_a:: ; 2ec8
2013-11-29 07:30:08 +00:00
xor a
dec a
ret
; 2ecb
Function2ecb:: ; 2ecb
; unreferenced
2013-11-29 07:30:08 +00:00
push hl
ld hl, wMonStatusFlags
2013-11-29 07:30:08 +00:00
bit 1, [hl]
pop hl
ret
; 2ed3
2015-10-24 14:34:19 +00:00
DisableSpriteUpdates:: ; 0x2ed3
2013-11-29 07:30:08 +00:00
; disables overworld sprite updating?
xor a
2015-11-05 19:06:03 +00:00
ld [hMapAnims], a
2013-11-29 07:30:08 +00:00
ld a, [VramState]
res 0, a
ld [VramState], a
ld a, $0
2015-11-25 15:16:29 +00:00
ld [wSpriteUpdatesEnabled], a
2013-11-29 07:30:08 +00:00
ret
; 0x2ee4
2015-10-24 14:34:19 +00:00
EnableSpriteUpdates:: ; 2ee4
2013-11-29 07:30:08 +00:00
ld a, $1
2015-11-25 15:16:29 +00:00
ld [wSpriteUpdatesEnabled], a
2013-11-29 07:30:08 +00:00
ld a, [VramState]
set 0, a
ld [VramState], a
ld a, $1
2015-11-05 19:06:03 +00:00
ld [hMapAnims], a
2013-11-29 07:30:08 +00:00
ret
; 2ef6
INCLUDE "home/string.asm"
IsInJohto:: ; 2f17
2013-11-29 07:30:08 +00:00
; Return 0 if the player is in Johto, and 1 in Kanto.
ld a, [MapGroup]
ld b, a
ld a, [MapNumber]
ld c, a
call GetWorldMapLocation
cp FAST_SHIP
jr z, .Johto
cp SPECIAL_MAP
jr nz, .CheckRegion
ld a, [BackupMapGroup]
ld b, a
ld a, [BackupMapNumber]
ld c, a
call GetWorldMapLocation
.CheckRegion:
2013-11-29 07:30:08 +00:00
cp KANTO_LANDMARK
jr nc, .Kanto
.Johto:
2013-11-29 07:30:08 +00:00
xor a
ret
.Kanto:
2013-11-29 07:30:08 +00:00
ld a, 1
ret
; 2f3e
2015-10-24 14:34:19 +00:00
ret_2f3e:: ; 2f3e
2013-11-29 07:30:08 +00:00
ret
; 2f3f
INCLUDE "home/item.asm"
INCLUDE "home/random.asm"
INCLUDE "home/sram.asm"
; Register aliases
_hl_:: ; 2fec
jp hl
2013-11-29 07:30:08 +00:00
; 2fed
_de_:: ; 2fed
2013-11-29 07:30:08 +00:00
push de
ret
; 2fef
INCLUDE "home/double_speed.asm"
ClearSprites:: ; 300b
2013-11-29 07:30:08 +00:00
; Erase OAM data
ld hl, Sprites
ld b, SpritesEnd - Sprites
xor a
.loop
ld [hli], a
dec b
jr nz, .loop
ret
; 3016
HideSprites:: ; 3016
2013-11-29 07:30:08 +00:00
; Set all OAM y-positions to 160 to hide them offscreen
ld hl, Sprites
ld de, 4 ; length of an OAM struct
ld b, (SpritesEnd - Sprites) / 4 ; number of OAM structs
ld a, 160 ; y
.loop
ld [hl], a
add hl, de
dec b
jr nz, .loop
ret
; 3026
INCLUDE "home/copy2.asm"
2015-09-09 23:27:07 +00:00
LoadTileMapToTempTileMap:: ; 309d
; Load TileMap into TempTileMap
2013-11-29 07:30:08 +00:00
ld a, [rSVBK]
push af
2015-11-07 14:48:32 +00:00
ld a, BANK(TempTileMap)
2013-11-29 07:30:08 +00:00
ld [rSVBK], a
hlcoord 0, 0
2015-11-07 14:48:32 +00:00
decoord 0, 0, TempTileMap
2014-05-21 20:21:46 +00:00
ld bc, TileMapEnd - TileMap
2013-11-29 07:30:08 +00:00
call CopyBytes
pop af
ld [rSVBK], a
ret
; 30b4
2015-09-09 23:27:07 +00:00
Call_LoadTempTileMapToTileMap:: ; 30b4
2013-11-29 07:30:08 +00:00
xor a
ld [hBGMapMode], a
2015-09-09 23:27:07 +00:00
call LoadTempTileMapToTileMap
2013-11-29 07:30:08 +00:00
ld a, 1
ld [hBGMapMode], a
ret
; 30bf
2015-09-09 23:27:07 +00:00
LoadTempTileMapToTileMap:: ; 30bf
; Load TempTileMap into TileMap
2013-11-29 07:30:08 +00:00
ld a, [rSVBK]
push af
2015-11-07 14:48:32 +00:00
ld a, BANK(TempTileMap)
2013-11-29 07:30:08 +00:00
ld [rSVBK], a
2015-11-07 14:48:32 +00:00
hlcoord 0, 0, TempTileMap
decoord 0, 0
2014-05-21 20:21:46 +00:00
ld bc, TileMapEnd - TileMap
2013-11-29 07:30:08 +00:00
call CopyBytes
pop af
ld [rSVBK], a
ret
; 30d6
CopyName1:: ; 30d6
; Copies the name from de to StringBuffer2
2013-11-29 07:30:08 +00:00
ld hl, StringBuffer2
CopyName2:: ; 30d9
; Copies the name from de to hl
2013-11-29 07:30:08 +00:00
.loop
ld a, [de]
inc de
ld [hli], a
cp "@"
jr nz, .loop
ret
; 30e1
IsInArray:: ; 30e1
2013-11-29 07:30:08 +00:00
; Find value a for every de bytes in array hl.
; Return index in b and carry if found.
ld b, 0
ld c, a
.loop
ld a, [hl]
cp -1
2013-11-29 07:30:08 +00:00
jr z, .NotInArray
cp c
jr z, .InArray
inc b
add hl, de
jr .loop
.NotInArray:
2013-11-29 07:30:08 +00:00
and a
ret
.InArray:
2013-11-29 07:30:08 +00:00
scf
ret
; 30f4
SkipNames:: ; 0x30f4
2014-05-21 20:21:46 +00:00
; Skip a names.
ld bc, NAME_LENGTH
2013-11-29 07:30:08 +00:00
and a
ret z
.loop
add hl, bc
dec a
jr nz, .loop
ret
; 0x30fe
INCLUDE "home/math.asm"
PrintLetterDelay:: ; 313d
2013-11-29 07:30:08 +00:00
; Wait before printing the next letter.
; The text speed setting in Options is actually a frame count:
; fast: 1 frame
; mid: 3 frames
; slow: 5 frames
; TextBoxFlags[!0] and A or B override text speed with a one-frame delay.
; Options[4] and TextBoxFlags[!1] disable the delay.
2013-11-29 07:30:08 +00:00
ld a, [Options]
2013-12-18 23:04:55 +00:00
bit NO_TEXT_SCROLL, a
2013-11-29 07:30:08 +00:00
ret nz
; non-scrolling text?
ld a, [TextBoxFlags]
2013-11-29 07:30:08 +00:00
bit 1, a
ret z
push hl
push de
push bc
ld hl, hOAMUpdate
ld a, [hl]
push af
; orginally turned oam update off...
; ld a, 1
ld [hl], a
; force fast scroll?
ld a, [TextBoxFlags]
2013-11-29 07:30:08 +00:00
bit 0, a
jr z, .fast
; text speed
ld a, [Options]
and %111
jr .updatedelay
.fast
ld a, 1
.updatedelay
ld [TextDelayFrames], a
.checkjoypad
call GetJoypad
2013-11-29 07:30:08 +00:00
; input override
2016-05-05 19:07:37 +00:00
ld a, [wDisableTextAcceleration]
2013-11-29 07:30:08 +00:00
and a
jr nz, .wait
; Wait one frame if holding A or B.
ld a, [hJoyDown]
bit 0, a ; A_BUTTON
jr z, .checkb
jr .delay
.checkb
bit 1, a ; B_BUTTON
jr z, .wait
.delay
call DelayFrame
jr .end
.wait
ld a, [TextDelayFrames]
and a
jr nz, .checkjoypad
.end
pop af
ld [hOAMUpdate], a
pop bc
pop de
pop hl
ret
; 318c
CopyDataUntil:: ; 318c
2014-05-21 20:21:46 +00:00
; Copy [hl .. bc) to de.
2013-11-29 07:30:08 +00:00
; In other words, the source data is
; from hl up to but not including bc,
; and the destination is de.
ld a, [hli]
ld [de], a
inc de
ld a, h
cp b
jr nz, CopyDataUntil
ld a, l
cp c
jr nz, CopyDataUntil
ret
; 0x3198
PrintNum:: ; 3198
2016-05-27 14:41:59 +00:00
homecall _PrintNum
2013-11-29 07:30:08 +00:00
ret
; 31a4
2015-11-05 19:06:03 +00:00
MobilePrintNum:: ; 31a4
2016-05-27 14:41:59 +00:00
homecall _MobilePrintNum
2013-11-29 07:30:08 +00:00
ret
; 31b0
FarPrintText:: ; 31b0
2013-11-29 07:30:08 +00:00
ld [hBuffer], a
ld a, [hROMBank]
push af
ld a, [hBuffer]
rst Bankswitch
call PrintText
pop af
rst Bankswitch
ret
; 31be
CallPointerAt:: ; 31be
2013-11-29 07:30:08 +00:00
ld a, [hROMBank]
push af
ld a, [hli]
rst Bankswitch
ld a, [hli]
ld h, [hl]
ld l, a
call _hl_
pop hl
ld a, h
rst Bankswitch
ret
; 31cd
2015-11-01 17:44:30 +00:00
QueueScript:: ; 31cd
; Push pointer hl in the current bank to wQueuedScriptBank.
2013-11-29 07:30:08 +00:00
ld a, [hROMBank]
2015-11-01 17:44:30 +00:00
FarQueueScript:: ; 31cf
; Push pointer a:hl to wQueuedScriptBank.
ld [wQueuedScriptBank], a
2013-11-29 07:30:08 +00:00
ld a, l
2015-11-01 17:44:30 +00:00
ld [wQueuedScriptAddr], a
2013-11-29 07:30:08 +00:00
ld a, h
2015-11-01 17:44:30 +00:00
ld [wQueuedScriptAddr + 1], a
2013-11-29 07:30:08 +00:00
ret
; 31db
StringCmp:: ; 31db
2013-11-29 07:30:08 +00:00
; Compare c bytes at de and hl.
; Return z if they all match.
.loop
2013-11-29 07:30:08 +00:00
ld a, [de]
cp [hl]
ret nz
inc de
inc hl
dec c
jr nz, .loop
2013-11-29 07:30:08 +00:00
ret
; 0x31e4
CompareLong:: ; 31e4
2013-11-29 07:30:08 +00:00
; Compare bc bytes at de and hl.
; Return carry if they all match.
ld a, [de]
cp [hl]
jr nz, .Diff
inc de
inc hl
dec bc
ld a, b
or c
jr nz, CompareLong
scf
ret
.Diff:
2013-11-29 07:30:08 +00:00
and a
ret
; 31f3
2015-11-12 04:38:57 +00:00
ClearBGPalettes:: ; 31f3
2013-11-29 07:30:08 +00:00
call ClearPalettes
WaitBGMap:: ; 31f6
2013-11-29 07:30:08 +00:00
; Tell VBlank to update BG Map
ld a, 1 ; BG Map 0 tiles
ld [hBGMapMode], a
; Wait for it to do its magic
ld c, 4
call DelayFrames
ret
; 3200
2015-12-11 21:59:40 +00:00
WaitBGMap2:: ; 0x3200
2013-11-29 07:30:08 +00:00
ld a, [hCGB]
and a
2014-05-21 20:21:46 +00:00
jr z, .bg0
2013-11-29 07:30:08 +00:00
ld a, 2
ld [hBGMapMode], a
ld c, 4
call DelayFrames
2014-05-21 20:21:46 +00:00
.bg0
2013-11-29 07:30:08 +00:00
ld a, 1
ld [hBGMapMode], a
ld c, 4
call DelayFrames
ret
; 0x3218
2015-11-11 19:12:46 +00:00
IsCGB:: ; 3218
2013-11-29 07:30:08 +00:00
ld a, [hCGB]
and a
ret
; 321c
2015-11-25 15:16:29 +00:00
ApplyTilemap:: ; 321c
2013-11-29 07:30:08 +00:00
ld a, [hCGB]
and a
2014-05-21 20:21:46 +00:00
jr z, .dmg
2013-11-29 07:30:08 +00:00
2015-11-25 15:16:29 +00:00
ld a, [wSpriteUpdatesEnabled]
2013-11-29 07:30:08 +00:00
cp 0
2014-05-21 20:21:46 +00:00
jr z, .dmg
2013-11-29 07:30:08 +00:00
ld a, 1
ld [hBGMapMode], a
jr CopyTilemapAtOnce
2013-11-29 07:30:08 +00:00
2014-05-21 20:21:46 +00:00
.dmg
2015-11-11 19:12:46 +00:00
; WaitBGMap
2013-11-29 07:30:08 +00:00
ld a, 1
ld [hBGMapMode], a
ld c, 4
call DelayFrames
ret
; 3238
CGBOnly_CopyTilemapAtOnce:: ; 3238
2013-11-29 07:30:08 +00:00
ld a, [hCGB]
and a
jr z, WaitBGMap
CopyTilemapAtOnce:: ; 323d
jr .CopyTilemapAtOnce
2013-11-29 07:30:08 +00:00
; 323f
2016-01-27 17:25:12 +00:00
; XXX
2017-12-24 17:47:30 +00:00
farcall HDMATransferAttrMapAndTileMapToWRAMBank3
2013-11-29 07:30:08 +00:00
ret
; 3246
.CopyTilemapAtOnce: ; 3246
2013-11-29 07:30:08 +00:00
ld a, [hBGMapMode]
push af
xor a
ld [hBGMapMode], a
2015-10-24 14:34:19 +00:00
2015-11-05 19:06:03 +00:00
ld a, [hMapAnims]
2013-11-29 07:30:08 +00:00
push af
xor a
2015-11-05 19:06:03 +00:00
ld [hMapAnims], a
2015-10-24 14:34:19 +00:00
2014-05-21 20:21:46 +00:00
.wait
2013-11-29 07:30:08 +00:00
ld a, [rLY]
cp $7f
2014-05-21 20:21:46 +00:00
jr c, .wait
2013-11-29 07:30:08 +00:00
di
ld a, BANK(VTiles3)
2013-11-29 07:30:08 +00:00
ld [rVBK], a
hlcoord 0, 0, AttrMap
2015-11-11 19:12:46 +00:00
call .StackPointerMagic
ld a, BANK(VTiles0)
2013-11-29 07:30:08 +00:00
ld [rVBK], a
hlcoord 0, 0
2015-11-11 19:12:46 +00:00
call .StackPointerMagic
2015-10-24 14:34:19 +00:00
2014-05-21 20:21:46 +00:00
.wait2
2013-11-29 07:30:08 +00:00
ld a, [rLY]
cp $7f
2014-05-21 20:21:46 +00:00
jr c, .wait2
2013-11-29 07:30:08 +00:00
ei
2014-05-21 20:21:46 +00:00
2013-11-29 07:30:08 +00:00
pop af
2015-11-05 19:06:03 +00:00
ld [hMapAnims], a
2013-11-29 07:30:08 +00:00
pop af
ld [hBGMapMode], a
ret
; 327b
.StackPointerMagic: ; 327b
2015-10-24 14:34:19 +00:00
; Copy all tiles to VBGMap
2013-11-29 07:30:08 +00:00
ld [hSPBuffer], sp
ld sp, hl
ld a, [hBGMapAddress + 1]
2013-11-29 07:30:08 +00:00
ld h, a
2014-09-30 18:19:33 +00:00
ld l, 0
2015-10-24 14:34:19 +00:00
ld a, SCREEN_HEIGHT
2015-11-05 19:06:03 +00:00
ld [hTilesPerCycle], a
2014-09-30 18:19:33 +00:00
ld b, 1 << 1 ; not in v/hblank
ld c, rSTAT % $100
2013-11-29 07:30:08 +00:00
2014-05-21 20:21:46 +00:00
.loop
2015-10-24 14:34:19 +00:00
rept SCREEN_WIDTH / 2
2014-05-21 20:21:46 +00:00
pop de
2015-10-24 14:34:19 +00:00
; if in v/hblank, wait until not in v/hblank
2013-11-29 07:30:08 +00:00
.loop\@
ld a, [$ff00+c]
and b
jr nz, .loop\@
2015-10-24 14:34:19 +00:00
; load BGMap0
2013-11-29 07:30:08 +00:00
ld [hl], e
inc l
ld [hl], d
inc l
endr
ld de, BG_MAP_WIDTH - SCREEN_WIDTH
2013-11-29 07:30:08 +00:00
add hl, de
2015-11-05 19:06:03 +00:00
ld a, [hTilesPerCycle]
2013-11-29 07:30:08 +00:00
dec a
2015-11-05 19:06:03 +00:00
ld [hTilesPerCycle], a
2014-05-21 20:21:46 +00:00
jr nz, .loop
2013-11-29 07:30:08 +00:00
ld a, [hSPBuffer]
ld l, a
2014-05-21 20:21:46 +00:00
ld a, [hSPBuffer + 1]
2013-11-29 07:30:08 +00:00
ld h, a
ld sp, hl
ret
; 32f9
2015-09-09 23:27:07 +00:00
SetPalettes:: ; 32f9
; Inits the Palettes
; depending on the system the monochromes palettes or color palettes
2013-11-29 07:30:08 +00:00
ld a, [hCGB]
and a
2015-09-09 23:27:07 +00:00
jr nz, .SetPalettesForGameBoyColor
2016-01-27 17:25:12 +00:00
ld a, %11100100
2013-11-29 07:30:08 +00:00
ld [rBGP], a
2016-01-27 17:25:12 +00:00
ld a, %11010000
2013-11-29 07:30:08 +00:00
ld [rOBP0], a
ld [rOBP1], a
ret
.SetPalettesForGameBoyColor:
2013-11-29 07:30:08 +00:00
push de
2016-01-27 17:25:12 +00:00
ld a, %11100100
2013-11-29 07:30:08 +00:00
call DmgToCgbBGPals
2016-01-27 17:25:12 +00:00
lb de, %11100100, %11100100
2013-11-29 07:30:08 +00:00
call DmgToCgbObjPals
pop de
ret
; 3317
ClearPalettes:: ; 3317
2013-11-29 07:30:08 +00:00
; Make all palettes white
; CGB: make all the palette colors white
ld a, [hCGB]
and a
jr nz, .cgb
2013-11-29 07:30:08 +00:00
; DMG: just change palettes to 0 (white)
xor a
ld [rBGP], a
ld [rOBP0], a
ld [rOBP1], a
ret
2013-11-29 07:30:08 +00:00
.cgb
ld a, [rSVBK]
push af
ld a, BANK(BGPals)
2013-11-29 07:30:08 +00:00
ld [rSVBK], a
; Fill BGPals and OBPals with $ffff (white)
ld hl, BGPals
2016-01-27 17:25:12 +00:00
ld bc, 16 palettes
2013-11-29 07:30:08 +00:00
ld a, $ff
call ByteFill
pop af
ld [rSVBK], a
; Request palette update
ld a, 1
ld [hCGBPalUpdate], a
ret
; 333e
2015-11-20 20:15:32 +00:00
GetMemSGBLayout:: ; 333e
ld b, SCGB_RAM
GetSGBLayout:: ; 3340
2013-11-29 07:30:08 +00:00
; load sgb packets unless dmg
ld a, [hCGB]
and a
jr nz, .sgb
2013-11-29 07:30:08 +00:00
ld a, [hSGB]
and a
ret z
.sgb
predef_jump Predef_LoadSGBLayout ; LoadSGBLayout
2013-11-29 07:30:08 +00:00
; 334e
SetHPPal:: ; 334e
2013-11-29 07:30:08 +00:00
; Set palette for hp bar pixel length e at hl.
call GetHPPal
ld [hl], d
ret
; 3353
GetHPPal:: ; 3353
2013-11-29 07:30:08 +00:00
; Get palette for hp bar pixel length e in d.
ld d, HP_GREEN
2013-11-29 07:30:08 +00:00
ld a, e
2016-05-27 14:41:59 +00:00
cp (50 * 48 / 100)
2013-11-29 07:30:08 +00:00
ret nc
inc d ; HP_YELLOW
2016-05-27 14:41:59 +00:00
cp (21 * 48 / 100)
2013-11-29 07:30:08 +00:00
ret nc
inc d ; HP_RED
2013-11-29 07:30:08 +00:00
ret
; 335f
CountSetBits:: ; 0x335f
2013-11-29 07:30:08 +00:00
; Count the number of set bits in b bytes starting from hl.
2015-02-10 23:14:41 +00:00
; Return in a, c and [wd265].
2013-11-29 07:30:08 +00:00
ld c, 0
.next
ld a, [hli]
ld e, a
ld d, 8
.count
srl e
ld a, 0
adc c
ld c, a
dec d
jr nz, .count
dec b
jr nz, .next
ld a, c
2015-02-10 23:14:41 +00:00
ld [wd265], a
2013-11-29 07:30:08 +00:00
ret
; 0x3376
GetWeekday:: ; 3376
2013-11-29 07:30:08 +00:00
ld a, [CurDay]
.mod
sub 7
jr nc, .mod
add 7
ret
; 3380
INCLUDE "home/pokedex_flags.asm"
INCLUDE "home/names.asm"
2013-11-29 07:30:08 +00:00
2015-12-18 03:31:16 +00:00
ScrollingMenu:: ; 350c
call CopyMenuData2
2013-11-29 07:30:08 +00:00
ld a, [hROMBank]
push af
2014-09-30 18:19:33 +00:00
2015-12-18 03:31:16 +00:00
ld a, BANK(_ScrollingMenu)
2013-11-29 07:30:08 +00:00
rst Bankswitch
2015-12-18 03:31:16 +00:00
call _InitScrollingMenu
call .UpdatePalettes
call _ScrollingMenu
2014-09-30 18:19:33 +00:00
2013-11-29 07:30:08 +00:00
pop af
rst Bankswitch
2015-12-15 23:59:49 +00:00
ld a, [wMenuJoypad]
2013-11-29 07:30:08 +00:00
ret
; 3524
.UpdatePalettes: ; 3524
2013-11-29 07:30:08 +00:00
ld hl, VramState
bit 0, [hl]
jp nz, UpdateTimePals
2015-09-09 23:27:07 +00:00
jp SetPalettes
2013-11-29 07:30:08 +00:00
; 352f
2015-11-17 20:54:03 +00:00
InitScrollingMenu:: ; 352f
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderTopCoord]
2013-11-29 07:30:08 +00:00
dec a
ld b, a
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderBottomCoord]
2013-11-29 07:30:08 +00:00
sub b
ld d, a
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderLeftCoord]
2013-11-29 07:30:08 +00:00
dec a
ld c, a
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderRightCoord]
2013-11-29 07:30:08 +00:00
sub c
ld e, a
push de
call Coord2Tile
2013-11-29 07:30:08 +00:00
pop bc
jp TextBox
; 354b
JoyTextDelay_ForcehJoyDown:: ; 354b joypad
2013-11-29 07:30:08 +00:00
call DelayFrame
2014-09-30 18:19:33 +00:00
2015-10-16 17:35:43 +00:00
ld a, [hInMenu]
2013-11-29 07:30:08 +00:00
push af
ld a, $1
2015-10-16 17:35:43 +00:00
ld [hInMenu], a
call JoyTextDelay
2013-11-29 07:30:08 +00:00
pop af
2015-10-16 17:35:43 +00:00
ld [hInMenu], a
2014-09-30 18:19:33 +00:00
2015-10-16 17:35:43 +00:00
ld a, [hJoyLast]
2014-09-30 18:19:33 +00:00
and D_RIGHT + D_LEFT + D_UP + D_DOWN
2013-11-29 07:30:08 +00:00
ld c, a
ld a, [hJoyPressed]
2014-09-30 18:19:33 +00:00
and A_BUTTON + B_BUTTON + SELECT + START
2013-11-29 07:30:08 +00:00
or c
ld c, a
ret
; 3567
2015-11-19 04:16:25 +00:00
HandleStoneQueue:: ; 3567
2013-11-29 07:30:08 +00:00
ld a, [hROMBank]
push af
2014-09-30 18:19:33 +00:00
call SwitchToMapScriptHeaderBank
2015-11-19 04:16:25 +00:00
call .WarpAction
2014-09-30 18:19:33 +00:00
2013-11-29 07:30:08 +00:00
pop bc
ld a, b
rst Bankswitch
ret
; 3574
.WarpAction: ; 3574
2015-11-19 04:16:25 +00:00
ld hl, OBJECT_MAP_OBJECT_INDEX
2013-11-29 07:30:08 +00:00
add hl, de
ld a, [hl]
cp $ff
2015-11-19 04:16:25 +00:00
jr z, .nope
2014-09-30 18:19:33 +00:00
2013-11-29 07:30:08 +00:00
ld l, a
push hl
call .IsObjectOnWarp
2013-11-29 07:30:08 +00:00
pop hl
2015-11-19 04:16:25 +00:00
jr nc, .nope
2013-11-29 07:30:08 +00:00
ld d, a
ld e, l
2015-11-19 04:16:25 +00:00
call .IsObjectInStoneTable
jr nc, .nope
2015-11-05 20:08:00 +00:00
call CallMapScript
2017-12-24 17:47:30 +00:00
farcall EnableScriptMode
2013-11-29 07:30:08 +00:00
scf
ret
2015-11-19 04:16:25 +00:00
.nope
2013-11-29 07:30:08 +00:00
and a
ret
; 3599
.IsObjectOnWarp: ; 3599
2013-11-29 07:30:08 +00:00
push de
2014-09-30 18:19:33 +00:00
2015-11-19 04:16:25 +00:00
ld hl, OBJECT_NEXT_MAP_X
2013-11-29 07:30:08 +00:00
add hl, de
ld a, [hl]
2015-11-19 04:16:25 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2013-11-29 07:30:08 +00:00
add hl, de
ld e, [hl]
2014-09-30 18:19:33 +00:00
sub 4
2013-11-29 07:30:08 +00:00
ld d, a
ld a, e
2014-09-30 18:19:33 +00:00
sub 4
2013-11-29 07:30:08 +00:00
ld e, a
2015-11-19 04:16:25 +00:00
call .check_on_warp
2014-09-30 18:19:33 +00:00
2013-11-29 07:30:08 +00:00
pop de
ret
; 35b0
2015-11-19 04:16:25 +00:00
.check_on_warp ; 35b0
ld hl, wCurrMapWarpHeaderPointer
2013-11-29 07:30:08 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
2015-11-19 04:16:25 +00:00
ld a, [wCurrMapWarpCount]
2013-11-29 07:30:08 +00:00
and a
2015-11-19 04:16:25 +00:00
jr z, .nope2
2014-09-30 18:19:33 +00:00
.loop
2013-11-29 07:30:08 +00:00
push af
ld a, [hl]
cp e
2015-11-19 04:16:25 +00:00
jr nz, .not_on_warp
2013-11-29 07:30:08 +00:00
inc hl
ld a, [hld]
cp d
2015-11-19 04:16:25 +00:00
jr nz, .not_on_warp
jr .found_warp
2013-11-29 07:30:08 +00:00
2015-11-19 04:16:25 +00:00
.not_on_warp
ld a, 5
2013-11-29 07:30:08 +00:00
add l
ld l, a
2015-11-19 04:16:25 +00:00
jr nc, .no_carry
2013-11-29 07:30:08 +00:00
inc h
2015-11-19 04:16:25 +00:00
.no_carry
2014-09-30 18:19:33 +00:00
2013-11-29 07:30:08 +00:00
pop af
dec a
2014-09-30 18:19:33 +00:00
jr nz, .loop
2013-11-29 07:30:08 +00:00
2015-11-19 04:16:25 +00:00
.nope2
2013-11-29 07:30:08 +00:00
and a
ret
2015-11-19 04:16:25 +00:00
.found_warp
2013-11-29 07:30:08 +00:00
pop af
ld d, a
2015-11-19 04:16:25 +00:00
ld a, [wCurrMapWarpCount]
2013-11-29 07:30:08 +00:00
sub d
inc a
scf
ret
; 35de
.IsObjectInStoneTable: ; 35de
2013-11-29 07:30:08 +00:00
inc e
2015-11-19 04:16:25 +00:00
ld hl, CMDQUEUE_ADDR
2013-11-29 07:30:08 +00:00
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
2015-11-19 04:16:25 +00:00
.loop2
2013-11-29 07:30:08 +00:00
ld a, [hli]
cp $ff
2015-11-19 04:16:25 +00:00
jr z, .nope3
2013-11-29 07:30:08 +00:00
cp d
2015-11-19 04:16:25 +00:00
jr nz, .next_inc3
2013-11-29 07:30:08 +00:00
ld a, [hli]
cp e
2015-11-19 04:16:25 +00:00
jr nz, .next_inc2
2013-11-29 07:30:08 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
2015-11-19 04:16:25 +00:00
jr .yes
2013-11-29 07:30:08 +00:00
2015-11-19 04:16:25 +00:00
.next_inc3
2013-11-29 07:30:08 +00:00
inc hl
2015-11-19 04:16:25 +00:00
.next_inc2
2013-11-29 07:30:08 +00:00
inc hl
2015-12-27 02:59:03 +00:00
inc hl
2015-11-19 04:16:25 +00:00
jr .loop2
2013-11-29 07:30:08 +00:00
2015-11-19 04:16:25 +00:00
.nope3
2013-11-29 07:30:08 +00:00
and a
ret
2015-11-19 04:16:25 +00:00
.yes
2013-11-29 07:30:08 +00:00
scf
ret
; 3600
INCLUDE "home/trainers.asm"
2013-11-29 07:30:08 +00:00
IsAPokemon:: ; 3741
2013-11-29 07:30:08 +00:00
; Return carry if species a is not a Pokemon.
and a
jr z, .NotAPokemon
cp EGG
jr z, .Pokemon
cp NUM_POKEMON + 1
jr c, .Pokemon
.NotAPokemon:
2013-11-29 07:30:08 +00:00
scf
ret
.Pokemon:
2013-11-29 07:30:08 +00:00
and a
ret
; 3750
2015-11-08 15:59:28 +00:00
DrawBattleHPBar:: ; 3750
2013-11-29 07:30:08 +00:00
; Draw an HP bar d tiles long at hl
; Fill it up to e pixels
push hl
push de
push bc
; Place 'HP:'
ld a, $60
ld [hli], a
ld a, $61
ld [hli], a
; Draw a template
push hl
ld a, $62 ; empty bar
.template
ld [hli], a
dec d
jr nz, .template
ld a, $6b ; bar end
add b
ld [hl], a
pop hl
; Safety check # pixels
ld a, e
and a
jr nz, .fill
ld a, c
and a
jr z, .done
ld e, 1
.fill
; Keep drawing tiles until pixel length is reached
ld a, e
sub TILE_WIDTH
jr c, .lastbar
ld e, a
ld a, $6a ; full bar
ld [hli], a
ld a, e
and a
jr z, .done
jr .fill
.lastbar
ld a, $62 ; empty bar
add e ; + e
ld [hl], a
.done
pop bc
pop de
pop hl
ret
; 3786
2015-11-11 21:11:08 +00:00
PrepMonFrontpic:: ; 3786
2013-11-29 07:30:08 +00:00
ld a, $1
ld [wBoxAlignment], a
2013-11-29 07:30:08 +00:00
2015-11-11 21:11:08 +00:00
_PrepMonFrontpic:: ; 378b
2013-11-29 07:30:08 +00:00
ld a, [CurPartySpecies]
call IsAPokemon
jr c, .not_pokemon
2013-11-29 07:30:08 +00:00
push hl
ld de, VTiles2
predef GetMonFrontpic
2013-11-29 07:30:08 +00:00
pop hl
xor a
2016-01-12 17:46:18 +00:00
ld [hGraphicStartTile], a
lb bc, 7, 7
2016-01-12 17:46:18 +00:00
predef PlaceGraphic
2013-11-29 07:30:08 +00:00
xor a
ld [wBoxAlignment], a
2013-11-29 07:30:08 +00:00
ret
.not_pokemon
2013-11-29 07:30:08 +00:00
xor a
ld [wBoxAlignment], a
2013-11-29 07:30:08 +00:00
inc a
ld [CurPartySpecies], a
ret
; 37b6
2014-07-18 17:26:15 +00:00
INCLUDE "home/cry.asm"
2013-11-29 07:30:08 +00:00
PrintLevel:: ; 382d
2013-11-29 07:30:08 +00:00
; Print TempMonLevel at hl
ld a, [TempMonLevel]
2015-10-17 21:18:52 +00:00
ld [hl], "<LV>"
2013-11-29 07:30:08 +00:00
inc hl
; How many digits?
ld c, 2
cp 100
jr c, Print8BitNumRightAlign
2013-11-29 07:30:08 +00:00
; 3-digit numbers overwrite the :L.
dec hl
inc c
jr Print8BitNumRightAlign
2013-11-29 07:30:08 +00:00
; 383d
PrintLevel_Force3Digits:: ; 383d
2013-11-29 07:30:08 +00:00
; Print :L and all 3 digits
2015-10-17 21:18:52 +00:00
ld [hl], "<LV>"
2013-11-29 07:30:08 +00:00
inc hl
ld c, 3
; 3842
Print8BitNumRightAlign:: ; 3842
2015-02-10 23:14:41 +00:00
ld [wd265], a
ld de, wd265
ld b, PRINTNUM_RIGHTALIGN | 1
2013-11-29 07:30:08 +00:00
jp PrintNum
; 384d
Function384d:: ; 384d
; XXX
; GetNthMove
2015-10-17 21:18:52 +00:00
ld hl, wListMoves_MoveIndicesBuffer
2013-11-29 07:30:08 +00:00
ld c, a
2014-09-30 18:19:33 +00:00
ld b, 0
2013-11-29 07:30:08 +00:00
add hl, bc
ld a, [hl]
ret
; 3856
GetBaseData:: ; 3856
2013-11-29 07:30:08 +00:00
push bc
push de
push hl
ld a, [hROMBank]
push af
ld a, BANK(BaseData)
rst Bankswitch
2013-11-29 07:30:08 +00:00
; Egg doesn't have BaseData
ld a, [CurSpecies]
cp EGG
jr z, .egg
; Get BaseData
dec a
ld bc, BASE_DATA_SIZE
2013-11-29 07:30:08 +00:00
ld hl, BaseData
call AddNTimes
ld de, CurBaseData
ld bc, BASE_DATA_SIZE
2013-11-29 07:30:08 +00:00
call CopyBytes
jr .end
2013-11-29 07:30:08 +00:00
.egg
; ????
ld de, UnknownEggPic
2013-11-29 07:30:08 +00:00
; Sprite dimensions
ld b, $55 ; 5x5
ld hl, BasePicSize
ld [hl], b
2013-11-29 07:30:08 +00:00
; ????
ld hl, BasePadding
ld [hl], e
inc hl
ld [hl], d
inc hl
ld [hl], e
inc hl
ld [hl], d
jr .end
2013-11-29 07:30:08 +00:00
.end
; Replace Pokedex # with species
ld a, [CurSpecies]
ld [BaseDexNo], a
2013-11-29 07:30:08 +00:00
pop af
rst Bankswitch
pop hl
pop de
pop bc
ret
; 389c
GetCurNick:: ; 389c
2013-11-29 07:30:08 +00:00
ld a, [CurPartyMon]
ld hl, PartyMonNicknames
GetNick:: ; 38a2
2013-11-29 07:30:08 +00:00
; Get nickname a from list hl.
push hl
push bc
call SkipNames
ld de, StringBuffer1
push de
ld bc, PKMN_NAME_LENGTH
call CopyBytes
pop de
2017-12-24 17:47:30 +00:00
callfar CheckNickErrors
2013-11-29 07:30:08 +00:00
pop bc
pop hl
ret
; 38bb
PrintBCDNumber:: ; 38bb
2013-11-29 07:30:08 +00:00
; function to print a BCD (Binary-coded decimal) number
; de = address of BCD number
; hl = destination address
; c = flags and length
; bit 7: if set, do not print leading zeroes
; if unset, print leading zeroes
; bit 6: if set, left-align the string (do not pad empty digits with spaces)
; if unset, right-align the string
; bit 5: if set, print currency symbol at the beginning of the string
; if unset, do not print the currency symbol
; bits 0-4: length of BCD number in bytes
; Note that bits 5 and 7 are modified during execution. The above reflects
; their meaning at the beginning of the functions's execution.
ld b, c ; save flags in b
res 7, c
res 6, c
res 5, c ; c now holds the length
bit 5, b
jr z, .loop
bit 7, b
2015-11-11 19:12:46 +00:00
jr nz, .loop ; skip currency symbol
2013-11-29 07:30:08 +00:00
ld [hl], "¥"
inc hl
.loop
ld a, [de]
swap a
call PrintBCDDigit ; print upper digit
ld a, [de]
call PrintBCDDigit ; print lower digit
inc de
dec c
jr nz, .loop
bit 7, b ; were any non-zero digits printed?
jr z, .done ; if so, we are done
.numberEqualsZero ; if every digit of the BCD number is zero
bit 6, b ; left or right alignment?
jr nz, .skipRightAlignmentAdjustment
dec hl ; if the string is right-aligned, it needs to be moved back one space
.skipRightAlignmentAdjustment
bit 5, b
jr z, .skipCurrencySymbol
ld [hl], "¥" ; currency symbol
inc hl
.skipCurrencySymbol
ld [hl], "0"
call PrintLetterDelay
inc hl
.done
ret
; 0x38f2
PrintBCDDigit:: ; 38f2
and %00001111
2013-11-29 07:30:08 +00:00
and a
jr z, .zeroDigit
.nonzeroDigit
bit 7, b ; have any non-space characters been printed?
jr z, .outputDigit
; if bit 7 is set, then no numbers have been printed yet
bit 5, b ; print the currency symbol?
jr z, .skipCurrencySymbol
ld [hl], "¥"
inc hl
res 5, b
.skipCurrencySymbol
res 7, b ; unset 7 to indicate that a nonzero digit has been reached
.outputDigit
add "0"
2013-11-29 07:30:08 +00:00
ld [hli], a
jp PrintLetterDelay
2015-11-11 19:12:46 +00:00
2013-11-29 07:30:08 +00:00
.zeroDigit
bit 7, b ; either printing leading zeroes or already reached a nonzero digit?
jr z, .outputDigit ; if so, print a zero digit
bit 6, b ; left or right alignment?
ret nz
ld a, " "
ld [hli], a ; if right-aligned, "print" a space by advancing the pointer
ret
; 0x3917
GetPartyParamLocation:: ; 3917
2013-11-29 07:30:08 +00:00
; Get the location of parameter a from CurPartyMon in hl
push bc
ld hl, PartyMons
ld c, a
ld b, 0
2013-11-29 07:30:08 +00:00
add hl, bc
ld a, [CurPartyMon]
call GetPartyLocation
pop bc
ret
; 3927
GetPartyLocation:: ; 3927
2013-11-29 07:30:08 +00:00
; Add the length of a PartyMon struct to hl a times.
ld bc, PARTYMON_STRUCT_LENGTH
2013-11-29 07:30:08 +00:00
jp AddNTimes
; 392d
Function392d:: ; 392d
; XXX
; GetDexNumber
; Probably used in gen 1 to convert index number to dex number
; Not required in gen 2 because index number == dex number
2013-11-29 07:30:08 +00:00
push hl
ld a, b
dec a
ld b, 0
2013-11-29 07:30:08 +00:00
add hl, bc
ld hl, BaseData + BASE_DEX_NO
ld bc, BASE_DATA_SIZE
2013-11-29 07:30:08 +00:00
call AddNTimes
ld a, BANK(BaseData)
2013-11-29 07:30:08 +00:00
call GetFarHalfword
ld b, l
ld c, h
pop hl
ret
; 3945
INCLUDE "home/battle.asm"
2013-11-29 07:30:08 +00:00
PushLYOverrides:: ; 3b0c
2014-05-21 20:21:46 +00:00
2016-06-14 02:53:33 +00:00
ld a, [hLCDCPointer]
2013-11-29 07:30:08 +00:00
and a
ret z
2013-12-08 21:22:35 +00:00
ld a, LYOverridesBackup % $100
2013-11-29 07:30:08 +00:00
ld [Requested2bppSource], a
2013-12-08 21:22:35 +00:00
ld a, LYOverridesBackup / $100
2013-11-29 07:30:08 +00:00
ld [Requested2bppSource + 1], a
2013-12-08 21:22:35 +00:00
ld a, LYOverrides % $100
2013-11-29 07:30:08 +00:00
ld [Requested2bppDest], a
2013-12-08 21:22:35 +00:00
ld a, LYOverrides / $100
2013-11-29 07:30:08 +00:00
ld [Requested2bppDest + 1], a
2013-12-08 21:22:35 +00:00
ld a, (LYOverridesEnd - LYOverrides) / 16
2013-11-29 07:30:08 +00:00
ld [Requested2bpp], a
ret
; 3b2a
2015-11-13 15:48:49 +00:00
_InitSpriteAnimStruct:: ; 3b2a
2014-05-21 20:21:46 +00:00
2015-12-04 13:46:11 +00:00
ld [wSpriteAnimIDBuffer], a
2013-11-29 07:30:08 +00:00
ld a, [hROMBank]
push af
2014-05-21 20:21:46 +00:00
2015-11-13 15:48:49 +00:00
ld a, BANK(InitSpriteAnimStruct)
2013-11-29 07:30:08 +00:00
rst Bankswitch
2015-12-04 13:46:11 +00:00
ld a, [wSpriteAnimIDBuffer]
2014-05-21 20:21:46 +00:00
2015-11-13 15:48:49 +00:00
call InitSpriteAnimStruct
2014-05-21 20:21:46 +00:00
2013-11-29 07:30:08 +00:00
pop af
rst Bankswitch
ret
; 3b3c
2015-12-05 20:38:25 +00:00
ReinitSpriteAnimFrame:: ; 3b3c
2014-05-21 20:21:46 +00:00
2015-12-04 13:46:11 +00:00
ld [wSpriteAnimIDBuffer], a
2013-11-29 07:30:08 +00:00
ld a, [hROMBank]
push af
2014-05-21 20:21:46 +00:00
2015-12-05 20:38:25 +00:00
ld a, BANK(_ReinitSpriteAnimFrame)
2013-11-29 07:30:08 +00:00
rst Bankswitch
2015-12-04 13:46:11 +00:00
ld a, [wSpriteAnimIDBuffer]
2014-05-21 20:21:46 +00:00
2015-12-05 20:38:25 +00:00
call _ReinitSpriteAnimFrame
2014-05-21 20:21:46 +00:00
2013-11-29 07:30:08 +00:00
pop af
rst Bankswitch
ret
; 3b4e
INCLUDE "home/audio.asm"
INCLUDE "home/mobile.asm"