2015-12-13 19:15:16 +00:00
|
|
|
|
TMHMPocket: ; 2c76f (b:476f)
|
|
|
|
|
|
ld a, $1
|
|
|
|
|
|
ld [hInMenu], a
|
|
|
|
|
|
call TMHM_PocketLoop
|
|
|
|
|
|
ld a, $0
|
|
|
|
|
|
ld [hInMenu], a
|
|
|
|
|
|
ret nc
|
2015-12-18 03:31:16 +00:00
|
|
|
|
call PlaceHollowCursor
|
2015-12-13 19:15:16 +00:00
|
|
|
|
call WaitBGMap
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
dec a
|
2015-12-18 03:31:16 +00:00
|
|
|
|
ld [CurItemQuantity], a
|
2015-12-13 19:15:16 +00:00
|
|
|
|
ld hl, TMsHMs
|
|
|
|
|
|
ld c, a
|
|
|
|
|
|
ld b, 0
|
|
|
|
|
|
add hl, bc
|
|
|
|
|
|
ld a, [hl]
|
|
|
|
|
|
ld [wItemQuantityBuffer], a
|
|
|
|
|
|
call .ConvertItemToTMHMNumber
|
|
|
|
|
|
scf
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
.ConvertItemToTMHMNumber: ; 2c798 (b:4798)
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
ld c, a
|
|
|
|
|
|
callab GetNumberedTMHM
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
ld [CurItem], a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
ConvertCurItemIntoCurTMHM: ; 2c7a7 (b:47a7)
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
ld c, a
|
|
|
|
|
|
callab GetTMHMNumber
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
ld [wCurTMHM], a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
GetTMHMItemMove: ; 2c7b6 (b:47b6)
|
|
|
|
|
|
call ConvertCurItemIntoCurTMHM
|
|
|
|
|
|
predef GetTMHMMove
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
AskTeachTMHM: ; 2c7bf (b:47bf)
|
|
|
|
|
|
ld hl, Options
|
|
|
|
|
|
ld a, [hl]
|
|
|
|
|
|
push af
|
|
|
|
|
|
res NO_TEXT_SCROLL, [hl]
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
cp TM01
|
|
|
|
|
|
jr c, .NotTMHM
|
|
|
|
|
|
call GetTMHMItemMove
|
|
|
|
|
|
ld a, [wCurTMHM]
|
|
|
|
|
|
ld [wPutativeTMHMMove], a
|
|
|
|
|
|
call GetMoveName
|
|
|
|
|
|
call CopyName1
|
|
|
|
|
|
ld hl, Text_BootedTM ; Booted up a TM
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
cp HM01
|
|
|
|
|
|
jr c, .TM
|
|
|
|
|
|
ld hl, Text_BootedHM ; Booted up an HM
|
|
|
|
|
|
.TM
|
|
|
|
|
|
call PrintText
|
|
|
|
|
|
ld hl, Text_ItContained
|
|
|
|
|
|
call PrintText
|
|
|
|
|
|
call YesNoBox
|
|
|
|
|
|
.NotTMHM
|
|
|
|
|
|
pop bc
|
|
|
|
|
|
ld a, b
|
|
|
|
|
|
ld [Options], a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
ChooseMonToLearnTMHM: ; 2c7fb
|
|
|
|
|
|
ld hl, StringBuffer2
|
|
|
|
|
|
ld de, wd066
|
|
|
|
|
|
ld bc, 12
|
|
|
|
|
|
call CopyBytes
|
|
|
|
|
|
call ClearBGPalettes
|
|
|
|
|
|
ChooseMonToLearnTMHM_NoRefresh: ; 2c80a
|
|
|
|
|
|
callba LoadPartyMenuGFX
|
|
|
|
|
|
callba InitPartyMenuWithCancel
|
|
|
|
|
|
callba InitPartyMenuGFX
|
|
|
|
|
|
ld a, $3
|
|
|
|
|
|
ld [PartyMenuActionText], a
|
|
|
|
|
|
.loopback
|
|
|
|
|
|
callba WritePartyMenuTilemap
|
|
|
|
|
|
callba PrintPartyMenuText
|
|
|
|
|
|
call WaitBGMap
|
|
|
|
|
|
call SetPalettes
|
|
|
|
|
|
call DelayFrame
|
|
|
|
|
|
callba PartyMenuSelect
|
|
|
|
|
|
push af
|
|
|
|
|
|
ld a, [CurPartySpecies]
|
|
|
|
|
|
cp EGG
|
|
|
|
|
|
pop bc ; now contains the former contents of af
|
|
|
|
|
|
jr z, .egg
|
|
|
|
|
|
push bc
|
|
|
|
|
|
ld hl, wd066
|
|
|
|
|
|
ld de, StringBuffer2
|
|
|
|
|
|
ld bc, 12
|
|
|
|
|
|
call CopyBytes
|
|
|
|
|
|
pop af ; now contains the original contents of af
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
.egg
|
|
|
|
|
|
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 .loopback
|
|
|
|
|
|
; 2c867
|
|
|
|
|
|
|
|
|
|
|
|
TeachTMHM: ; 2c867
|
|
|
|
|
|
predef CanLearnTMHMMove
|
|
|
|
|
|
|
|
|
|
|
|
push bc
|
|
|
|
|
|
ld a, [CurPartyMon]
|
|
|
|
|
|
ld hl, PartyMonNicknames
|
|
|
|
|
|
call GetNick
|
|
|
|
|
|
pop bc
|
|
|
|
|
|
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr nz, .compatible
|
|
|
|
|
|
push de
|
|
|
|
|
|
ld de, SFX_WRONG
|
|
|
|
|
|
call PlaySFX
|
|
|
|
|
|
pop de
|
|
|
|
|
|
ld hl, Text_TMHMNotCompatible
|
|
|
|
|
|
call PrintText
|
|
|
|
|
|
jr .nope
|
|
|
|
|
|
|
|
|
|
|
|
.compatible
|
|
|
|
|
|
callab KnowsMove
|
|
|
|
|
|
jr c, .nope
|
|
|
|
|
|
|
|
|
|
|
|
predef LearnMove
|
|
|
|
|
|
ld a, b
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr z, .nope
|
|
|
|
|
|
|
|
|
|
|
|
callba MobileFn_106049
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
call IsHM
|
|
|
|
|
|
ret c
|
|
|
|
|
|
|
|
|
|
|
|
ld c, HAPPINESS_LEARNMOVE
|
|
|
|
|
|
callab ChangeHappiness
|
|
|
|
|
|
call ConsumeTM
|
|
|
|
|
|
jr .learned_move
|
|
|
|
|
|
|
|
|
|
|
|
.nope
|
|
|
|
|
|
and a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
.unused
|
|
|
|
|
|
ld a, 2
|
|
|
|
|
|
ld [wItemEffectSucceeded], a
|
|
|
|
|
|
.learned_move
|
|
|
|
|
|
scf
|
|
|
|
|
|
ret
|
|
|
|
|
|
; 2c8bf (b:48bf)
|
|
|
|
|
|
|
|
|
|
|
|
Text_BootedTM: ; 0x2c8bf
|
|
|
|
|
|
; Booted up a TM.
|
|
|
|
|
|
text_jump UnknownText_0x1c0373
|
|
|
|
|
|
db "@"
|
|
|
|
|
|
; 0x2c8c4
|
|
|
|
|
|
|
|
|
|
|
|
Text_BootedHM: ; 0x2c8c4
|
|
|
|
|
|
; Booted up an HM.
|
|
|
|
|
|
text_jump UnknownText_0x1c0384
|
|
|
|
|
|
db "@"
|
|
|
|
|
|
; 0x2c8c9
|
|
|
|
|
|
|
|
|
|
|
|
Text_ItContained: ; 0x2c8c9
|
|
|
|
|
|
; It contained @ . Teach @ to a #MON?
|
|
|
|
|
|
text_jump UnknownText_0x1c0396
|
|
|
|
|
|
db "@"
|
|
|
|
|
|
; 0x2c8ce
|
|
|
|
|
|
|
|
|
|
|
|
Text_TMHMNotCompatible: ; 0x2c8ce
|
|
|
|
|
|
; is not compatible with @ . It can't learn @ .
|
|
|
|
|
|
text_jump UnknownText_0x1c03c2
|
|
|
|
|
|
db "@"
|
|
|
|
|
|
; 0x2c8d3
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_PocketLoop: ; 2c8d3 (b:48d3)
|
|
|
|
|
|
xor a
|
|
|
|
|
|
ld [hBGMapMode], a
|
|
|
|
|
|
call TMHM_DisplayPocketItems
|
|
|
|
|
|
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, .okay
|
|
|
|
|
|
dec a
|
|
|
|
|
|
.okay
|
|
|
|
|
|
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, [wTMHMPocketCursor]
|
|
|
|
|
|
inc a
|
2015-12-15 23:59:49 +00:00
|
|
|
|
ld [wMenuCursorY], a
|
2015-12-13 19:15:16 +00:00
|
|
|
|
ld a, $1
|
2015-12-15 23:59:49 +00:00
|
|
|
|
ld [wMenuCursorX], a
|
2015-12-13 19:15:16 +00:00
|
|
|
|
jr TMHM_ShowTMMoveDescription
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_JoypadLoop: ; 2c915 (b:4915)
|
|
|
|
|
|
call TMHM_DisplayPocketItems
|
2015-12-15 23:59:49 +00:00
|
|
|
|
call StaticMenuJoypad
|
2015-12-13 19:15:16 +00:00
|
|
|
|
ld b, a
|
2015-12-15 23:59:49 +00:00
|
|
|
|
ld a, [wMenuCursorY]
|
2015-12-13 19:15:16 +00:00
|
|
|
|
dec a
|
|
|
|
|
|
ld [wTMHMPocketCursor], a
|
|
|
|
|
|
xor a
|
|
|
|
|
|
ld [hBGMapMode], a
|
|
|
|
|
|
ld a, [wcfa6]
|
|
|
|
|
|
bit 7, a
|
|
|
|
|
|
jp nz, TMHM_ScrollPocket
|
|
|
|
|
|
ld a, b
|
|
|
|
|
|
ld [wMenuJoypad], a
|
|
|
|
|
|
bit A_BUTTON_F, a
|
|
|
|
|
|
jp nz, TMHM_ChooseTMorHM
|
|
|
|
|
|
bit B_BUTTON_F, a
|
|
|
|
|
|
jp nz, TMHM_ExitPack
|
|
|
|
|
|
bit D_RIGHT_F, a
|
|
|
|
|
|
jp nz, TMHM_ExitPocket
|
|
|
|
|
|
bit D_LEFT_F, a
|
|
|
|
|
|
jp nz, TMHM_ExitPocket
|
|
|
|
|
|
TMHM_ShowTMMoveDescription: ; 2c946 (b:4946)
|
|
|
|
|
|
call TMHM_CheckHoveringOverCancel
|
|
|
|
|
|
jp nc, TMHM_ExitPocket
|
|
|
|
|
|
hlcoord 0, 12
|
|
|
|
|
|
ld b, 4
|
|
|
|
|
|
ld c, SCREEN_WIDTH - 2
|
|
|
|
|
|
call TextBox
|
|
|
|
|
|
ld a, [CurItem]
|
|
|
|
|
|
cp NUM_TMS + NUM_HMS + 1
|
|
|
|
|
|
jr nc, TMHM_JoypadLoop
|
|
|
|
|
|
ld [wd265], a
|
|
|
|
|
|
predef GetTMHMMove
|
|
|
|
|
|
ld a, [wd265]
|
|
|
|
|
|
ld [CurSpecies], a
|
|
|
|
|
|
hlcoord 1, 14
|
|
|
|
|
|
call PrintMoveDesc
|
|
|
|
|
|
jp TMHM_JoypadLoop
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_ChooseTMorHM: ; 2c974 (b:4974)
|
|
|
|
|
|
call TMHM_PlaySFX_ReadText2
|
|
|
|
|
|
call CountTMsHMs ; This stores the count to wd265.
|
2015-12-15 23:59:49 +00:00
|
|
|
|
ld a, [wMenuCursorY]
|
2015-12-13 19:15:16 +00:00
|
|
|
|
dec a
|
|
|
|
|
|
ld b, a
|
|
|
|
|
|
ld a, [wTMHMPocketScrollPosition]
|
|
|
|
|
|
add b
|
|
|
|
|
|
ld b, a
|
|
|
|
|
|
ld a, [wd265]
|
|
|
|
|
|
cp b
|
|
|
|
|
|
jr z, _TMHM_ExitPack ; our cursor was hovering over CANCEL
|
|
|
|
|
|
TMHM_CheckHoveringOverCancel: ; 2c98a (b:498a)
|
|
|
|
|
|
call TMHM_GetCurrentPocketPosition
|
2015-12-15 23:59:49 +00:00
|
|
|
|
ld a, [wMenuCursorY]
|
2015-12-13 19:15:16 +00:00
|
|
|
|
ld b, a
|
|
|
|
|
|
.loop
|
|
|
|
|
|
inc c
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
cp NUM_TMS + NUM_HMS + 1
|
|
|
|
|
|
jr nc, .okay
|
|
|
|
|
|
ld a, [hli]
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr z, .loop
|
|
|
|
|
|
dec b
|
|
|
|
|
|
jr nz, .loop
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
.okay
|
|
|
|
|
|
ld [CurItem], a
|
|
|
|
|
|
cp -1
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_ExitPack: ; 2c9a5 (b:49a5)
|
|
|
|
|
|
call TMHM_PlaySFX_ReadText2
|
|
|
|
|
|
_TMHM_ExitPack: ; 2c9a8 (b:49a8)
|
|
|
|
|
|
ld a, $2
|
|
|
|
|
|
ld [wMenuJoypad], a
|
|
|
|
|
|
and a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_ExitPocket: ; 2c9af (b:49af)
|
|
|
|
|
|
and a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_ScrollPocket: ; 2c9b1 (b:49b1)
|
|
|
|
|
|
ld a, b
|
|
|
|
|
|
bit 7, a
|
|
|
|
|
|
jr nz, .skip
|
|
|
|
|
|
ld hl, wTMHMPocketScrollPosition
|
|
|
|
|
|
ld a, [hl]
|
|
|
|
|
|
and a
|
|
|
|
|
|
jp z, TMHM_JoypadLoop
|
|
|
|
|
|
dec [hl]
|
|
|
|
|
|
call TMHM_DisplayPocketItems
|
|
|
|
|
|
jp TMHM_ShowTMMoveDescription
|
|
|
|
|
|
|
|
|
|
|
|
.skip
|
|
|
|
|
|
call TMHM_GetCurrentPocketPosition
|
|
|
|
|
|
ld b, 5
|
|
|
|
|
|
.loop
|
|
|
|
|
|
inc c
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
cp NUM_TMS + NUM_HMS + 1
|
|
|
|
|
|
jp nc, TMHM_JoypadLoop
|
|
|
|
|
|
ld a, [hli]
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr z, .loop
|
|
|
|
|
|
dec b
|
|
|
|
|
|
jr nz, .loop
|
|
|
|
|
|
ld hl, wTMHMPocketScrollPosition
|
|
|
|
|
|
inc [hl]
|
|
|
|
|
|
call TMHM_DisplayPocketItems
|
|
|
|
|
|
jp TMHM_ShowTMMoveDescription
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_DisplayPocketItems: ; 2c9e2 (b:49e2)
|
|
|
|
|
|
ld a, [BattleType]
|
|
|
|
|
|
cp BATTLETYPE_TUTORIAL
|
|
|
|
|
|
jp z, Tutorial_TMHMPocket
|
|
|
|
|
|
|
|
|
|
|
|
hlcoord 5, 2
|
|
|
|
|
|
lb bc, 10, 15
|
|
|
|
|
|
ld a, " "
|
|
|
|
|
|
call ClearBox
|
|
|
|
|
|
call TMHM_GetCurrentPocketPosition
|
|
|
|
|
|
ld d, $5
|
|
|
|
|
|
.loop2
|
|
|
|
|
|
inc c
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
cp NUM_TMS + NUM_HMS + 1
|
|
|
|
|
|
jr nc, .NotTMHM
|
|
|
|
|
|
ld a, [hli]
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr z, .loop2
|
|
|
|
|
|
ld b, a
|
|
|
|
|
|
ld a, c
|
|
|
|
|
|
ld [wd265], a
|
|
|
|
|
|
push hl
|
|
|
|
|
|
push de
|
|
|
|
|
|
push bc
|
|
|
|
|
|
call TMHMPocket_GetCurrentLineCoord
|
|
|
|
|
|
push hl
|
|
|
|
|
|
ld a, [wd265]
|
|
|
|
|
|
cp NUM_TMS + 1
|
|
|
|
|
|
jr nc, .HM
|
|
|
|
|
|
ld de, wd265
|
|
|
|
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
|
|
|
|
|
call PrintNum
|
|
|
|
|
|
jr .okay
|
|
|
|
|
|
|
|
|
|
|
|
.HM
|
|
|
|
|
|
push af
|
|
|
|
|
|
sub NUM_TMS
|
|
|
|
|
|
ld [wd265], a
|
|
|
|
|
|
ld [hl], "H"
|
|
|
|
|
|
inc hl
|
|
|
|
|
|
ld de, wd265
|
|
|
|
|
|
lb bc, PRINTNUM_RIGHTALIGN | 1, 2
|
|
|
|
|
|
call PrintNum
|
|
|
|
|
|
pop af
|
|
|
|
|
|
ld [wd265], a
|
|
|
|
|
|
.okay
|
|
|
|
|
|
predef GetTMHMMove
|
|
|
|
|
|
ld a, [wd265]
|
|
|
|
|
|
ld [wPutativeTMHMMove], 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 NUM_TMS + 1
|
|
|
|
|
|
jr nc, .hm2
|
|
|
|
|
|
ld bc, SCREEN_WIDTH + 9
|
|
|
|
|
|
add hl, bc
|
|
|
|
|
|
ld [hl], "×"
|
|
|
|
|
|
inc hl
|
|
|
|
|
|
ld a, "0" ; why are we doing this?
|
|
|
|
|
|
pop bc
|
|
|
|
|
|
push bc
|
|
|
|
|
|
ld a, b
|
|
|
|
|
|
ld [wd265], a
|
|
|
|
|
|
ld de, wd265
|
|
|
|
|
|
lb bc, 1, 2
|
|
|
|
|
|
call PrintNum
|
|
|
|
|
|
.hm2
|
|
|
|
|
|
pop bc
|
|
|
|
|
|
pop de
|
|
|
|
|
|
pop hl
|
|
|
|
|
|
dec d
|
|
|
|
|
|
jr nz, .loop2
|
|
|
|
|
|
jr .done
|
|
|
|
|
|
|
|
|
|
|
|
.NotTMHM
|
|
|
|
|
|
call TMHMPocket_GetCurrentLineCoord
|
|
|
|
|
|
rept 3
|
|
|
|
|
|
inc hl
|
|
|
|
|
|
endr
|
|
|
|
|
|
push de
|
|
|
|
|
|
ld de, TMHM_String_Cancel
|
|
|
|
|
|
call PlaceString
|
|
|
|
|
|
pop de
|
|
|
|
|
|
.done
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
TMHMPocket_GetCurrentLineCoord: ; 2ca86 (b:4a86)
|
|
|
|
|
|
hlcoord 5, 0
|
|
|
|
|
|
ld bc, 2 * SCREEN_WIDTH
|
|
|
|
|
|
ld a, 6
|
|
|
|
|
|
sub d
|
|
|
|
|
|
ld e, a
|
|
|
|
|
|
; AddNTimes
|
|
|
|
|
|
.loop
|
|
|
|
|
|
add hl, bc
|
|
|
|
|
|
dec e
|
|
|
|
|
|
jr nz, .loop
|
|
|
|
|
|
ret
|
|
|
|
|
|
; 2ca95 (b:4a95)
|
|
|
|
|
|
|
|
|
|
|
|
Function2ca95: ; 2ca95
|
|
|
|
|
|
; unreferenced
|
|
|
|
|
|
pop hl
|
|
|
|
|
|
ld bc, 3
|
|
|
|
|
|
add hl, bc
|
|
|
|
|
|
predef GetTMHMMove
|
|
|
|
|
|
ld a, [wd265]
|
|
|
|
|
|
ld [wPutativeTMHMMove], a
|
|
|
|
|
|
call GetMoveName
|
|
|
|
|
|
push hl
|
|
|
|
|
|
call PlaceString
|
|
|
|
|
|
pop hl
|
|
|
|
|
|
ret
|
|
|
|
|
|
; 2caae
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_String_Cancel: ; 2caae
|
|
|
|
|
|
db "CANCEL@"
|
|
|
|
|
|
; 2cab5
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_GetCurrentPocketPosition: ; 2cab5 (b:4ab5)
|
|
|
|
|
|
ld hl, TMsHMs
|
|
|
|
|
|
ld a, [wTMHMPocketScrollPosition]
|
|
|
|
|
|
ld b, a
|
|
|
|
|
|
inc b
|
|
|
|
|
|
ld c, 0
|
|
|
|
|
|
.loop
|
|
|
|
|
|
inc c
|
|
|
|
|
|
ld a, [hli]
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr z, .loop
|
|
|
|
|
|
dec b
|
|
|
|
|
|
jr nz, .loop
|
|
|
|
|
|
dec hl
|
|
|
|
|
|
dec c
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
Tutorial_TMHMPocket: ; 2caca (b:4aca)
|
|
|
|
|
|
hlcoord 9, 3
|
|
|
|
|
|
push de
|
|
|
|
|
|
ld de, TMHM_String_Cancel
|
|
|
|
|
|
call PlaceString
|
|
|
|
|
|
pop de
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
TMHM_PlaySFX_ReadText2: ; 2cad6 (b:4ad6)
|
|
|
|
|
|
push de
|
|
|
|
|
|
ld de, SFX_READ_TEXT_2
|
|
|
|
|
|
call PlaySFX
|
|
|
|
|
|
pop de
|
|
|
|
|
|
ret
|
|
|
|
|
|
; 2cadf (b:4adf)
|
|
|
|
|
|
|
|
|
|
|
|
Function2cadf: ; 2cadf
|
|
|
|
|
|
; unreferenced
|
|
|
|
|
|
call ConvertCurItemIntoCurTMHM
|
|
|
|
|
|
call .CheckHaveRoomForTMHM
|
|
|
|
|
|
ld hl, .NoRoomText
|
|
|
|
|
|
jr nc, .print
|
|
|
|
|
|
ld hl, .ReceivedText
|
|
|
|
|
|
.print
|
|
|
|
|
|
jp PrintText
|
|
|
|
|
|
; 2caf0
|
|
|
|
|
|
|
|
|
|
|
|
.NoRoomText: ; 0x2caf0
|
|
|
|
|
|
; You have no room for any more @ S.
|
|
|
|
|
|
text_jump UnknownText_0x1c03fa
|
|
|
|
|
|
db "@"
|
|
|
|
|
|
; 0x2caf5
|
|
|
|
|
|
|
|
|
|
|
|
.ReceivedText: ; 0x2caf5
|
|
|
|
|
|
; You received @ !
|
|
|
|
|
|
text_jump UnknownText_0x1c0421
|
|
|
|
|
|
db "@"
|
|
|
|
|
|
; 0x2cafa
|
|
|
|
|
|
|
|
|
|
|
|
.CheckHaveRoomForTMHM: ; 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
|
|
|
|
|
|
|
|
|
|
|
|
ConsumeTM: ; 2cb0c (b:4b0c)
|
|
|
|
|
|
call ConvertCurItemIntoCurTMHM
|
|
|
|
|
|
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, [wTMHMPocketScrollPosition]
|
|
|
|
|
|
and a
|
|
|
|
|
|
ret z
|
|
|
|
|
|
dec a
|
|
|
|
|
|
ld [wTMHMPocketScrollPosition], a
|
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
CountTMsHMs: ; 2cb2a (b:4b2a)
|
|
|
|
|
|
ld b, 0
|
|
|
|
|
|
ld c, NUM_TMS + NUM_HMS
|
|
|
|
|
|
ld hl, TMsHMs
|
|
|
|
|
|
.loop
|
|
|
|
|
|
ld a, [hli]
|
|
|
|
|
|
and a
|
|
|
|
|
|
jr z, .skip
|
|
|
|
|
|
inc b
|
|
|
|
|
|
.skip
|
|
|
|
|
|
dec c
|
|
|
|
|
|
jr nz, .loop
|
|
|
|
|
|
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
|
