mirror of https://github.com/pret/pokecrystal.git
Add missing files in engine/ and battle/
This commit is contained in:
PikalaxALT
parent
93ab6985d2
commit
77d0a8a396
|
|
@ -0,0 +1,457 @@
|
|||
EvolutionAnimation: ; 4e5e1
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
ld a, [CurSpecies]
|
||||
push af
|
||||
ld a, [rOBP0]
|
||||
push af
|
||||
ld a, [BaseDexNo]
|
||||
push af
|
||||
|
||||
call _EvolutionAnimation
|
||||
|
||||
pop af
|
||||
ld [BaseDexNo], a
|
||||
pop af
|
||||
ld [rOBP0], a
|
||||
pop af
|
||||
ld [CurSpecies], a
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
|
||||
ld a, [wd1ed]
|
||||
and a
|
||||
ret z
|
||||
|
||||
scf
|
||||
ret
|
||||
; 4e607
|
||||
|
||||
_EvolutionAnimation: ; 4e607
|
||||
ld a, $e4
|
||||
ld [rOBP0], a
|
||||
|
||||
ld de, MUSIC_NONE
|
||||
call PlayMusic
|
||||
|
||||
callba Function8cf53
|
||||
|
||||
ld de, EvolutionGFX
|
||||
ld hl, VTiles0
|
||||
lb bc, BANK(EvolutionGFX), 8
|
||||
call Request2bpp
|
||||
|
||||
xor a
|
||||
ld [Danger], a
|
||||
call WaitBGMap
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
ld a, [Buffer1]
|
||||
ld [PlayerHPPal], a
|
||||
|
||||
ld c, $0
|
||||
call Function4e703
|
||||
ld a, [Buffer1]
|
||||
ld [CurPartySpecies], a
|
||||
ld [CurSpecies], a
|
||||
call Function4e708
|
||||
|
||||
ld de, VTiles2
|
||||
ld hl, VTiles2 tile $31
|
||||
ld bc, $31
|
||||
call Request2bpp
|
||||
|
||||
ld a, $31
|
||||
ld [wd1ec], a
|
||||
call Evolution_FlashFrontpics
|
||||
ld a, [Buffer2]
|
||||
ld [CurPartySpecies], a
|
||||
ld [CurSpecies], a
|
||||
call Function4e711
|
||||
ld a, [Buffer1]
|
||||
ld [CurPartySpecies], a
|
||||
ld [CurSpecies], a
|
||||
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
call Function4e794
|
||||
jr c, .skip_cry
|
||||
|
||||
ld a, [Buffer1]
|
||||
call PlayCry
|
||||
|
||||
.skip_cry
|
||||
ld de, MUSIC_EVOLUTION
|
||||
call PlayMusic
|
||||
|
||||
ld c, 80
|
||||
call DelayFrames
|
||||
|
||||
ld c, $1
|
||||
call Function4e703
|
||||
call Function4e726
|
||||
jr c, .pressed_b
|
||||
|
||||
ld a, $cf
|
||||
ld [wd1ec], a
|
||||
|
||||
call Evolution_FlashFrontpics
|
||||
xor a
|
||||
ld [wd1ed], a
|
||||
|
||||
ld a, [Buffer2]
|
||||
ld [PlayerHPPal], a
|
||||
|
||||
ld c, $0
|
||||
call Function4e703
|
||||
call Function4e7a6
|
||||
callba Function8cf53
|
||||
call Function4e794
|
||||
jr c, .asm_4e6de
|
||||
|
||||
ld a, [wc2c6]
|
||||
push af
|
||||
ld a, $1
|
||||
ld [wc2c6], a
|
||||
ld a, [CurPartySpecies]
|
||||
push af
|
||||
|
||||
ld a, [PlayerHPPal]
|
||||
ld [CurPartySpecies], a
|
||||
hlcoord 7, 2
|
||||
ld d, $0
|
||||
ld e, ANIM_MON_EVOLVE
|
||||
predef AnimateFrontpic
|
||||
|
||||
pop af
|
||||
ld [CurPartySpecies], a
|
||||
pop af
|
||||
ld [wc2c6], a
|
||||
ret
|
||||
|
||||
.asm_4e6de
|
||||
ret
|
||||
|
||||
.pressed_b
|
||||
ld a, $1
|
||||
ld [wd1ed], a
|
||||
|
||||
ld a, [Buffer1]
|
||||
ld [PlayerHPPal], a
|
||||
|
||||
ld c, $0
|
||||
call Function4e703
|
||||
call Function4e7a6
|
||||
callba Function8cf53
|
||||
call Function4e794
|
||||
ret c
|
||||
|
||||
ld a, [PlayerHPPal]
|
||||
call PlayCry
|
||||
ret
|
||||
; 4e703
|
||||
|
||||
Function4e703: ; 4e703
|
||||
ld b, $b
|
||||
jp GetSGBLayout
|
||||
; 4e708
|
||||
|
||||
Function4e708: ; 4e708
|
||||
call GetBaseData
|
||||
hlcoord 7, 2
|
||||
jp Function3786
|
||||
; 4e711
|
||||
|
||||
Function4e711: ; 4e711
|
||||
call GetBaseData
|
||||
ld a, $1
|
||||
ld [wc2c6], a
|
||||
ld de, VTiles2
|
||||
predef Function5108b
|
||||
xor a
|
||||
ld [wc2c6], a
|
||||
ret
|
||||
; 4e726
|
||||
|
||||
Function4e726: ; 4e726
|
||||
call ClearJoypad
|
||||
lb bc, 1, 14
|
||||
.loop
|
||||
push bc
|
||||
call Evolution_CheckPressedB
|
||||
pop bc
|
||||
jr c, .pressed_b
|
||||
push bc
|
||||
call Evolution_NextFrame
|
||||
pop bc
|
||||
inc b
|
||||
rept 2
|
||||
dec c
|
||||
endr
|
||||
jr nz, .loop
|
||||
and a
|
||||
ret
|
||||
|
||||
.pressed_b
|
||||
scf
|
||||
ret
|
||||
; 4e741
|
||||
|
||||
Evolution_NextFrame: ; 4e741
|
||||
.loop
|
||||
ld a, -49
|
||||
ld [wd1ec], a
|
||||
call Evolution_FlashFrontpics
|
||||
ld a, 49
|
||||
ld [wd1ec], a
|
||||
call Evolution_FlashFrontpics
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
; 4e755
|
||||
|
||||
Evolution_FlashFrontpics: ; 4e755
|
||||
push bc
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
hlcoord 7, 2
|
||||
lb bc, 7, 7
|
||||
ld de, $d
|
||||
.loop1
|
||||
push bc
|
||||
.loop2
|
||||
ld a, [wd1ec]
|
||||
add [hl]
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .loop2
|
||||
pop bc
|
||||
add hl, de
|
||||
dec b
|
||||
jr nz, .loop1
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
call WaitBGMap
|
||||
pop bc
|
||||
ret
|
||||
; 4e779
|
||||
|
||||
Evolution_CheckPressedB: ; 4e779
|
||||
.loop
|
||||
call DelayFrame
|
||||
push bc
|
||||
call JoyTextDelay
|
||||
ld a, [hJoyDown]
|
||||
pop bc
|
||||
and B_BUTTON
|
||||
jr nz, .pressed_b
|
||||
.loop2
|
||||
dec c
|
||||
jr nz, .loop
|
||||
and a
|
||||
ret
|
||||
|
||||
.pressed_b
|
||||
ld a, [wd1e9]
|
||||
and a
|
||||
jr nz, .loop2
|
||||
scf
|
||||
ret
|
||||
; 4e794
|
||||
|
||||
Function4e794: ; 4e794
|
||||
ld a, [CurPartyMon]
|
||||
ld hl, PartyMon1Species
|
||||
call GetPartyLocation
|
||||
ld b, h
|
||||
ld c, l
|
||||
callba CheckFaintedFrzSlp
|
||||
ret
|
||||
; 4e7a6
|
||||
|
||||
Function4e7a6: ; 4e7a6
|
||||
ld a, [wd1ed]
|
||||
and a
|
||||
ret nz
|
||||
ld de, SFX_EVOLVED
|
||||
call PlaySFX
|
||||
ld hl, wJumptableIndex
|
||||
ld a, [hl]
|
||||
push af
|
||||
ld [hl], $0
|
||||
.asm_4e7b8
|
||||
call Function4e7cf
|
||||
jr nc, .asm_4e7c2
|
||||
call Function4e80c
|
||||
jr .asm_4e7b8
|
||||
|
||||
.asm_4e7c2
|
||||
ld c, $20
|
||||
.asm_4e7c4
|
||||
call Function4e80c
|
||||
dec c
|
||||
jr nz, .asm_4e7c4
|
||||
pop af
|
||||
ld [wJumptableIndex], a
|
||||
ret
|
||||
; 4e7cf
|
||||
|
||||
Function4e7cf: ; 4e7cf
|
||||
ld hl, wJumptableIndex
|
||||
ld a, [hl]
|
||||
cp $20
|
||||
ret nc
|
||||
ld d, a
|
||||
inc [hl]
|
||||
and $1
|
||||
jr nz, .asm_4e7e6
|
||||
ld e, $0
|
||||
call Function4e7e8
|
||||
ld e, $10
|
||||
call Function4e7e8
|
||||
|
||||
.asm_4e7e6
|
||||
scf
|
||||
ret
|
||||
; 4e7e8
|
||||
|
||||
Function4e7e8: ; 4e7e8
|
||||
push de
|
||||
ld de, $4858
|
||||
ld a, $13
|
||||
call Function3b2a
|
||||
ld hl, $b
|
||||
add hl, bc
|
||||
ld a, [wJumptableIndex]
|
||||
and $e
|
||||
sla a
|
||||
pop de
|
||||
add e
|
||||
ld [hl], a
|
||||
ld hl, $3
|
||||
add hl, bc
|
||||
ld [hl], $0
|
||||
ld hl, $c
|
||||
add hl, bc
|
||||
ld [hl], $10
|
||||
ret
|
||||
; 4e80c
|
||||
|
||||
Function4e80c: ; 4e80c
|
||||
push bc
|
||||
callab Function8cf69
|
||||
ld a, [$ff9b]
|
||||
and $e
|
||||
srl a
|
||||
rept 2
|
||||
inc a
|
||||
endr
|
||||
and $7
|
||||
ld b, a
|
||||
ld hl, Sprites + 3
|
||||
ld c, $28
|
||||
.asm_4e823
|
||||
ld a, [hl]
|
||||
or b
|
||||
ld [hli], a
|
||||
rept 3
|
||||
inc hl
|
||||
endr
|
||||
dec c
|
||||
jr nz, .asm_4e823
|
||||
pop bc
|
||||
call DelayFrame
|
||||
ret
|
||||
; 4e831
|
||||
|
||||
|
||||
EvolutionGFX:
|
||||
INCBIN "gfx/evo/bubble_large.2bpp"
|
||||
INCBIN "gfx/evo/bubble.2bpp"
|
||||
|
||||
Function4e881: ; 4e881
|
||||
call WhiteBGMap
|
||||
call ClearTileMap
|
||||
call ClearSprites
|
||||
call DisableLCD
|
||||
call LoadStandardFont
|
||||
call LoadFontsBattleExtra
|
||||
ld hl, VBGMap0
|
||||
ld bc, VBGMap1 - VBGMap0
|
||||
ld a, " "
|
||||
call ByteFill
|
||||
hlcoord 0, 0, AttrMap
|
||||
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
||||
xor a
|
||||
call ByteFill
|
||||
xor a
|
||||
ld [hSCY], a
|
||||
ld [hSCX], a
|
||||
call EnableLCD
|
||||
ld hl, UnknownText_0x4e8bd
|
||||
call PrintText
|
||||
call Function3200
|
||||
call SetPalettes
|
||||
ret
|
||||
; 4e8bd
|
||||
|
||||
UnknownText_0x4e8bd: ; 0x4e8bd
|
||||
; SAVING RECORD… DON'T TURN OFF!
|
||||
text_jump UnknownText_0x1bd39e
|
||||
db "@"
|
||||
; 0x4e8c2
|
||||
|
||||
|
||||
Function4e8c2: ; 4e8c2
|
||||
call WhiteBGMap
|
||||
call ClearTileMap
|
||||
call ClearSprites
|
||||
call DisableLCD
|
||||
call LoadStandardFont
|
||||
call LoadFontsBattleExtra
|
||||
ld hl, VBGMap0
|
||||
ld bc, VBGMap1 - VBGMap0
|
||||
ld a, " "
|
||||
call ByteFill
|
||||
hlcoord 0, 0, AttrMap
|
||||
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
||||
xor a
|
||||
call ByteFill
|
||||
ld hl, wd000
|
||||
ld c, $40
|
||||
.asm_4e8ee
|
||||
ld a, -1
|
||||
ld [hli], a
|
||||
ld a, " "
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .asm_4e8ee
|
||||
xor a
|
||||
ld [hSCY], a
|
||||
ld [hSCX], a
|
||||
call EnableLCD
|
||||
call Function3200
|
||||
call SetPalettes
|
||||
ret
|
||||
; 4e906
|
||||
|
||||
Function4e906: ; 4e906
|
||||
ld a, [rSVBK]
|
||||
push af
|
||||
ld a, $6
|
||||
ld [rSVBK], a
|
||||
ld hl, w6_d000
|
||||
ld bc, w6_d400 - w6_d000
|
||||
ld a, " "
|
||||
call ByteFill
|
||||
ld hl, VBGMap0
|
||||
ld de, w6_d000
|
||||
ld b, $0
|
||||
ld c, $40
|
||||
call Request2bpp
|
||||
pop af
|
||||
ld [rSVBK], a
|
||||
ret
|
||||
; 4e929
|
||||
|
|
@ -0,0 +1,940 @@
|
|||
SelectMonFromParty: ; 50000
|
||||
call DisableSpriteUpdates
|
||||
xor a
|
||||
ld [PartyMenuActionText], a
|
||||
call WhiteBGMap
|
||||
call Function5003f
|
||||
call WaitBGMap
|
||||
call Function32f9
|
||||
call DelayFrame
|
||||
call PartyMenuSelect
|
||||
call Function2b74
|
||||
ret
|
||||
; 5001d
|
||||
|
||||
|
||||
Function5001d: ; 5001d
|
||||
ld a, b
|
||||
ld [PartyMenuActionText], a
|
||||
call DisableSpriteUpdates
|
||||
call WhiteBGMap
|
||||
call Function5003f
|
||||
call WaitBGMap
|
||||
ld b, $a
|
||||
call GetSGBLayout
|
||||
call Function32f9
|
||||
call DelayFrame
|
||||
call PartyMenuSelect
|
||||
call Function2b74
|
||||
ret
|
||||
; 5003f
|
||||
|
||||
Function5003f: ; 5003f
|
||||
call Function5004f
|
||||
call Function50405
|
||||
call Function503e0
|
||||
call WritePartyMenuTilemap
|
||||
call PrintPartyMenuText
|
||||
ret
|
||||
; 5004f
|
||||
|
||||
Function5004f: ; 5004f
|
||||
call LoadFontsBattleExtra
|
||||
callab Function8ad1 ; engine/color.asm
|
||||
callab InefficientlyClear121BytesAtwc300
|
||||
ret
|
||||
; 5005f
|
||||
|
||||
|
||||
WritePartyMenuTilemap: ; 0x5005f
|
||||
ld hl, Options
|
||||
ld a, [hl]
|
||||
push af
|
||||
set 4, [hl] ; Disable text delay
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
hlcoord 0, 0
|
||||
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
||||
ld a, " "
|
||||
call ByteFill ; blank the tilemap
|
||||
call Function50396 ; This reads from a pointer table???
|
||||
.loop
|
||||
ld a, [hli]
|
||||
cp -1
|
||||
jr z, .asm_50084 ; 0x5007a $8
|
||||
push hl
|
||||
ld hl, .jumptable
|
||||
rst JumpTable
|
||||
pop hl
|
||||
jr .loop ; 0x50082 $f3
|
||||
|
||||
.asm_50084
|
||||
pop af
|
||||
ld [Options], a
|
||||
ret
|
||||
; 0x50089
|
||||
|
||||
.jumptable: ; 50089
|
||||
dw .displaynicks ; 0
|
||||
dw .drawhpbars ; 1
|
||||
dw Function50138 ; 2
|
||||
dw Function50176 ; 3
|
||||
dw Function501b2 ; 4
|
||||
dw Function501e0 ; 5
|
||||
dw Function5022f ; 6
|
||||
dw Function502b1 ; 7
|
||||
dw Function50307 ; 8
|
||||
; 5009b
|
||||
|
||||
.displaynicks: ; 5009b
|
||||
hlcoord 3, 1
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
jr z, .done
|
||||
ld c, a
|
||||
ld b, $0
|
||||
.loop2
|
||||
push bc
|
||||
push hl
|
||||
push hl
|
||||
ld hl, PartyMonNicknames
|
||||
ld a, b
|
||||
call GetNick
|
||||
pop hl
|
||||
call PlaceString
|
||||
pop hl
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .loop2
|
||||
|
||||
.done
|
||||
rept 2
|
||||
dec hl
|
||||
endr
|
||||
ld de, .cancelstring
|
||||
call PlaceString
|
||||
ret
|
||||
; 500c8
|
||||
|
||||
.cancelstring: ; 500c8
|
||||
db "CANCEL@"
|
||||
; 500cf
|
||||
|
||||
|
||||
.drawhpbars: ; 500cf
|
||||
xor a
|
||||
ld [wcda9], a
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, $0
|
||||
hlcoord 11, 2
|
||||
.loop3
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .skip
|
||||
push hl
|
||||
call _fillhpbar
|
||||
pop hl
|
||||
ld d, 6
|
||||
ld b, 0
|
||||
call DrawHPBar
|
||||
ld hl, wcd9b
|
||||
ld a, [wcda9]
|
||||
ld c, a
|
||||
ld b, $0
|
||||
add hl, bc
|
||||
call SetHPPal
|
||||
ld b, $fc
|
||||
call GetSGBLayout
|
||||
|
||||
.skip
|
||||
ld hl, wcda9
|
||||
inc [hl]
|
||||
pop hl
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .loop3
|
||||
ld b, $a
|
||||
call GetSGBLayout
|
||||
ret
|
||||
; 50117
|
||||
|
||||
_fillhpbar: ; 50117
|
||||
ld a, b
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
ld hl, PartyMon1HP
|
||||
call AddNTimes
|
||||
ld a, [hli]
|
||||
or [hl]
|
||||
jr nz, .notfainted
|
||||
xor a
|
||||
ld e, a
|
||||
ld c, a
|
||||
ret
|
||||
|
||||
.notfainted
|
||||
dec hl
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [hli]
|
||||
ld c, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
predef ComputeHPBarLength
|
||||
ret
|
||||
; 50138
|
||||
|
||||
Function50138: ; 50138
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, $0
|
||||
hlcoord 13, 1
|
||||
.asm_50143
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .asm_5016b
|
||||
push hl
|
||||
ld a, b
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
ld hl, PartyMon1HP
|
||||
call AddNTimes
|
||||
ld e, l
|
||||
ld d, h
|
||||
pop hl
|
||||
push de
|
||||
lb bc, 2, 3
|
||||
call PrintNum
|
||||
pop de
|
||||
ld a, $f3
|
||||
ld [hli], a
|
||||
rept 2
|
||||
inc de
|
||||
endr
|
||||
lb bc, 2, 3
|
||||
call PrintNum
|
||||
|
||||
.asm_5016b
|
||||
pop hl
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_50143
|
||||
ret
|
||||
; 50176
|
||||
|
||||
Function50176: ; 50176
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, 0
|
||||
hlcoord 8, 2
|
||||
.asm_50181
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .asm_501a7
|
||||
push hl
|
||||
ld a, b
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
ld hl, PartyMon1Level
|
||||
call AddNTimes
|
||||
ld e, l
|
||||
ld d, h
|
||||
pop hl
|
||||
ld a, [de]
|
||||
cp 100 ; This is distinct from MAX_LEVEL.
|
||||
jr nc, .asm_501a1
|
||||
ld a, "<LV>"
|
||||
ld [hli], a
|
||||
ld bc, $4102
|
||||
.asm_501a1
|
||||
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
|
||||
call PrintNum
|
||||
|
||||
.asm_501a7
|
||||
pop hl
|
||||
ld de, SCREEN_WIDTH * 2
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_50181
|
||||
ret
|
||||
; 501b2
|
||||
|
||||
Function501b2: ; 501b2
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, 0
|
||||
hlcoord 5, 2
|
||||
.asm_501bd
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .asm_501d5
|
||||
push hl
|
||||
ld a, b
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
ld hl, PartyMon1Status
|
||||
call AddNTimes
|
||||
ld e, l
|
||||
ld d, h
|
||||
pop hl
|
||||
call Function50d0a
|
||||
|
||||
.asm_501d5
|
||||
pop hl
|
||||
ld de, SCREEN_WIDTH * 2
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_501bd
|
||||
ret
|
||||
; 501e0
|
||||
|
||||
Function501e0: ; 501e0
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, 0
|
||||
hlcoord 12, 2
|
||||
.asm_501eb
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .asm_5020a
|
||||
push hl
|
||||
ld hl, PartySpecies
|
||||
ld e, b
|
||||
ld d, 0
|
||||
add hl, de
|
||||
ld a, [hl]
|
||||
ld [CurPartySpecies], a
|
||||
predef CanLearnTMHMMove
|
||||
pop hl
|
||||
call Function50215
|
||||
call PlaceString
|
||||
|
||||
.asm_5020a
|
||||
pop hl
|
||||
ld de, SCREEN_WIDTH * 2
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_501eb
|
||||
ret
|
||||
; 50215
|
||||
|
||||
Function50215: ; 50215
|
||||
ld a, c
|
||||
and a
|
||||
jr nz, .asm_5021d
|
||||
ld de, String_50226
|
||||
ret
|
||||
|
||||
.asm_5021d
|
||||
ld de, String_50221
|
||||
ret
|
||||
; 50221
|
||||
|
||||
String_50221: ; 50221
|
||||
db "ABLE@"
|
||||
; 50226
|
||||
|
||||
String_50226: ; 50226
|
||||
db "NOT ABLE@"
|
||||
; 5022f
|
||||
|
||||
|
||||
Function5022f: ; 5022f
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, 0
|
||||
hlcoord 12, 2
|
||||
.asm_5023a
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .asm_5025d
|
||||
push hl
|
||||
ld a, b
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
ld hl, PartyMon1Species
|
||||
call AddNTimes
|
||||
ld a, [hl]
|
||||
dec a
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, EvosAttacksPointers
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
call Function50268
|
||||
pop hl
|
||||
call PlaceString
|
||||
|
||||
.asm_5025d
|
||||
pop hl
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_5023a
|
||||
ret
|
||||
; 50268
|
||||
|
||||
Function50268: ; 50268
|
||||
ld de, StringBuffer1
|
||||
ld a, BANK(EvosAttacksPointers)
|
||||
ld bc, 2
|
||||
call FarCopyBytes
|
||||
ld hl, StringBuffer1
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld de, StringBuffer1
|
||||
ld a, BANK(EvosAttacks)
|
||||
ld bc, $a
|
||||
call FarCopyBytes
|
||||
ld hl, StringBuffer1
|
||||
.asm_50287
|
||||
ld a, [hli]
|
||||
and a
|
||||
jr z, .asm_5029f
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
cp EVOLVE_ITEM
|
||||
jr nz, .asm_50287
|
||||
rept 2
|
||||
dec hl
|
||||
endr
|
||||
ld a, [CurItem]
|
||||
cp [hl]
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
jr nz, .asm_50287
|
||||
ld de, String_502a3
|
||||
ret
|
||||
|
||||
.asm_5029f
|
||||
ld de, String_502a8
|
||||
ret
|
||||
; 502a3
|
||||
|
||||
String_502a3: ; 502a3
|
||||
db "ABLE@"
|
||||
; 502a8
|
||||
String_502a8: ; 502a8
|
||||
db "NOT ABLE@"
|
||||
; 502b1
|
||||
|
||||
|
||||
Function502b1: ; 502b1
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, 0
|
||||
hlcoord 12, 2
|
||||
.asm_502bc
|
||||
push bc
|
||||
push hl
|
||||
call Function50389
|
||||
jr z, .asm_502e3
|
||||
ld [CurPartySpecies], a
|
||||
push hl
|
||||
ld a, b
|
||||
ld [CurPartyMon], a
|
||||
xor a
|
||||
ld [MonType], a
|
||||
call GetGender
|
||||
ld de, String_502fe
|
||||
jr c, .asm_502df
|
||||
ld de, String_502ee
|
||||
jr nz, .asm_502df
|
||||
ld de, String_502f5
|
||||
|
||||
.asm_502df
|
||||
pop hl
|
||||
call PlaceString
|
||||
|
||||
.asm_502e3
|
||||
pop hl
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_502bc
|
||||
ret
|
||||
; 502ee
|
||||
|
||||
String_502ee: ; 502ee
|
||||
db "♂…MALE@"
|
||||
; 502f5
|
||||
|
||||
String_502f5: ; 502f5
|
||||
db "♀…FEMALE@"
|
||||
; 502fe
|
||||
|
||||
String_502fe: ; 502fe
|
||||
db "…UNKNOWN@"
|
||||
; 50307
|
||||
|
||||
|
||||
Function50307: ; 50307
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
ld b, 0
|
||||
hlcoord 12, 1
|
||||
.asm_50312
|
||||
push bc
|
||||
push hl
|
||||
ld de, String_50372
|
||||
call PlaceString
|
||||
pop hl
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
pop bc
|
||||
inc b
|
||||
dec c
|
||||
jr nz, .asm_50312
|
||||
ld a, l
|
||||
ld e, $b
|
||||
sub e
|
||||
ld l, a
|
||||
ld a, h
|
||||
sbc $0
|
||||
ld h, a
|
||||
ld de, String_50379
|
||||
call PlaceString
|
||||
ld b, $3
|
||||
ld c, $0
|
||||
ld hl, DefaultFlypoint
|
||||
ld a, [hl]
|
||||
.asm_5033b
|
||||
push hl
|
||||
push bc
|
||||
hlcoord 12, 1
|
||||
.asm_50340
|
||||
and a
|
||||
jr z, .asm_5034a
|
||||
ld de, $0028
|
||||
add hl, de
|
||||
dec a
|
||||
jr .asm_50340
|
||||
|
||||
.asm_5034a
|
||||
ld de, String_5036b
|
||||
push hl
|
||||
call PlaceString
|
||||
pop hl
|
||||
pop bc
|
||||
push bc
|
||||
push hl
|
||||
ld a, c
|
||||
ld hl, Strings_50383
|
||||
call GetNthString
|
||||
ld d, h
|
||||
ld e, l
|
||||
pop hl
|
||||
call PlaceString
|
||||
pop bc
|
||||
pop hl
|
||||
inc hl
|
||||
ld a, [hl]
|
||||
inc c
|
||||
dec b
|
||||
ret z
|
||||
jr .asm_5033b
|
||||
; 5036b
|
||||
|
||||
String_5036b: ; 5036b
|
||||
db " ばんめ @" ; Place
|
||||
; 50372
|
||||
String_50372: ; 50372
|
||||
db "さんかしない@" ; Cancel
|
||||
; 50379
|
||||
String_50379: ; 50379
|
||||
db "けってい やめる@" ; Quit
|
||||
; 50383
|
||||
Strings_50383: ; 50383
|
||||
db "1@", "2@", "3@" ; 1st, 2nd, 3rd
|
||||
; 50389
|
||||
|
||||
|
||||
Function50389: ; 50389
|
||||
ld a, PartySpecies % $100
|
||||
add b
|
||||
ld e, a
|
||||
ld a, PartySpecies / $100
|
||||
adc 0
|
||||
ld d, a
|
||||
ld a, [de]
|
||||
cp EGG
|
||||
ret
|
||||
; 50396
|
||||
|
||||
Function50396: ; 50396
|
||||
ld a, [PartyMenuActionText]
|
||||
and $f0
|
||||
jr nz, .override
|
||||
ld a, [PartyMenuActionText]
|
||||
and $f
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, .selectmonmenuoptions
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ret
|
||||
|
||||
.override
|
||||
ld hl, .default
|
||||
ret
|
||||
; 503b2
|
||||
|
||||
.selectmonmenuoptions: ; 503b2
|
||||
dw .default
|
||||
dw .default
|
||||
dw .default
|
||||
dw .unknown1
|
||||
dw .default
|
||||
dw .unknown2
|
||||
dw .trade
|
||||
dw .trade
|
||||
dw .default
|
||||
dw .unknown3
|
||||
; 503c6
|
||||
|
||||
.default: db 0, 1, 2, 3, 4, -1
|
||||
.unknown1: db 0, 5, 3, 4, -1
|
||||
.unknown2: db 0, 6, 3, 4, -1
|
||||
.trade: db 0, 7, 3, 4, -1
|
||||
.unknown3: db 0, 8, 3, 4, -1
|
||||
; 503e0
|
||||
|
||||
Function503e0: ; 503e0
|
||||
ld hl, PartyCount
|
||||
ld a, [hli]
|
||||
and a
|
||||
ret z
|
||||
ld c, a
|
||||
xor a
|
||||
ld [hConnectedMapWidth], a
|
||||
.asm_503ea
|
||||
push bc
|
||||
push hl
|
||||
ld hl, Function8e83f
|
||||
ld a, BANK(Function8e83f)
|
||||
ld e, $0
|
||||
rst FarCall
|
||||
ld a, [hConnectedMapWidth]
|
||||
inc a
|
||||
ld [hConnectedMapWidth], a
|
||||
pop hl
|
||||
pop bc
|
||||
dec c
|
||||
jr nz, .asm_503ea
|
||||
callab Function8cf69
|
||||
ret
|
||||
; 50405
|
||||
Function50405: ; 50405
|
||||
xor a
|
||||
ld [wd0e3], a
|
||||
ld de, Unknown_5044f
|
||||
call Function1bb1
|
||||
ld a, [PartyCount]
|
||||
inc a
|
||||
ld [wcfa3], a
|
||||
dec a
|
||||
ld b, a
|
||||
ld a, [wd0d8]
|
||||
and a
|
||||
jr z, .asm_50422
|
||||
inc b
|
||||
cp b
|
||||
jr c, .asm_50424
|
||||
|
||||
.asm_50422
|
||||
ld a, $1
|
||||
|
||||
.asm_50424
|
||||
ld [wcfa9], a
|
||||
ld a, $3
|
||||
ld [wcfa8], a
|
||||
ret
|
||||
; 5042d
|
||||
|
||||
Function5042d: ; 0x5042d
|
||||
ld de, Unknown_5044f
|
||||
call Function1bb1
|
||||
ld a, [PartyCount]
|
||||
ld [wcfa3], a
|
||||
ld b, a
|
||||
ld a, [wd0d8]
|
||||
and a
|
||||
jr z, .asm_50444
|
||||
inc b
|
||||
cp b
|
||||
jr c, .asm_50446
|
||||
.asm_50444
|
||||
ld a, $1
|
||||
.asm_50446
|
||||
ld [wcfa9], a
|
||||
ld a, $3
|
||||
ld [wcfa8], a
|
||||
ret
|
||||
; 5044f (14:444f)
|
||||
|
||||
Unknown_5044f: ; 5044f
|
||||
; cursor y
|
||||
; cursor x
|
||||
; list length
|
||||
; ?
|
||||
; bit 6: animate sprites bit 5: wrap around
|
||||
; ?
|
||||
; distance between items (hi: y, lo: x)
|
||||
; allowed buttons (mask)
|
||||
db $01, $00, $00, $01, $60, $00, $20, $00
|
||||
; 50457
|
||||
|
||||
PartyMenuSelect: ; 0x50457
|
||||
; sets carry if exitted menu.
|
||||
call Function1bc9
|
||||
call Function1bee
|
||||
ld a, [PartyCount]
|
||||
inc a
|
||||
ld b, a
|
||||
ld a, [wcfa9] ; menu selection?
|
||||
cp b
|
||||
jr z, .exitmenu ; CANCEL
|
||||
ld [wd0d8], a
|
||||
ld a, [hJoyLast]
|
||||
ld b, a
|
||||
bit 1, b
|
||||
jr nz, .exitmenu ; B button?
|
||||
ld a, [wcfa9]
|
||||
dec a
|
||||
ld [CurPartyMon], a
|
||||
ld c, a
|
||||
ld b, $0
|
||||
ld hl, PartySpecies
|
||||
add hl, bc
|
||||
ld a, [hl]
|
||||
ld [CurPartySpecies], a
|
||||
|
||||
ld de, SFX_READ_TEXT_2
|
||||
call PlaySFX
|
||||
call WaitSFX
|
||||
and a
|
||||
ret
|
||||
|
||||
.exitmenu
|
||||
ld de, SFX_READ_TEXT_2
|
||||
call PlaySFX
|
||||
call WaitSFX
|
||||
scf
|
||||
ret
|
||||
; 0x5049a
|
||||
|
||||
|
||||
PrintPartyMenuText: ; 5049a
|
||||
hlcoord 0, 14
|
||||
ld bc, $0212
|
||||
call TextBox
|
||||
ld a, [PartyCount]
|
||||
and a
|
||||
jr nz, .haspokemon
|
||||
ld de, YouHaveNoPKMNString
|
||||
jr .gotstring
|
||||
.haspokemon ; 504ae
|
||||
ld a, [PartyMenuActionText]
|
||||
and $f ; drop high nibble
|
||||
ld hl, PartyMenuStrings
|
||||
ld e, a
|
||||
ld d, $0
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
ld a, [hli]
|
||||
ld d, [hl]
|
||||
ld e, a
|
||||
.gotstring ; 504be
|
||||
ld a, [Options]
|
||||
push af
|
||||
set 4, a ; disable text delay
|
||||
ld [Options], a
|
||||
hlcoord 1, 16 ; Coord
|
||||
call PlaceString
|
||||
pop af
|
||||
ld [Options], a
|
||||
ret
|
||||
; 0x504d2
|
||||
|
||||
PartyMenuStrings: ; 0x504d2
|
||||
dw ChooseAMonString
|
||||
dw UseOnWhichPKMNString
|
||||
dw WhichPKMNString
|
||||
dw TeachWhichPKMNString
|
||||
dw MoveToWhereString
|
||||
dw UseOnWhichPKMNString
|
||||
dw ChooseAMonString ; Probably used to be ChooseAFemalePKMNString
|
||||
dw ChooseAMonString ; Probably used to be ChooseAMalePKMNString
|
||||
dw ToWhichPKMNString
|
||||
|
||||
ChooseAMonString: ; 0x504e4
|
||||
db "Choose a #MON.@"
|
||||
UseOnWhichPKMNString: ; 0x504f3
|
||||
db "Use on which <PK><MN>?@"
|
||||
WhichPKMNString: ; 0x50504
|
||||
db "Which <PK><MN>?@"
|
||||
TeachWhichPKMNString: ; 0x5050e
|
||||
db "Teach which <PK><MN>?@"
|
||||
MoveToWhereString: ; 0x5051e
|
||||
db "Move to where?@"
|
||||
ChooseAFemalePKMNString: ; 0x5052d ; UNUSED
|
||||
db "Choose a ♀<PK><MN>.@"
|
||||
ChooseAMalePKMNString: ; 0x5053b ; UNUSED
|
||||
db "Choose a ♂<PK><MN>.@"
|
||||
ToWhichPKMNString: ; 0x50549
|
||||
db "To which <PK><MN>?@"
|
||||
|
||||
YouHaveNoPKMNString: ; 0x50556
|
||||
db "You have no <PK><MN>!@"
|
||||
|
||||
|
||||
Function50566: ; 50566
|
||||
ld a, [CurPartyMon]
|
||||
ld hl, PartyMonNicknames
|
||||
call GetNick
|
||||
ld a, [PartyMenuActionText]
|
||||
and $f
|
||||
ld hl, Unknown_5057b
|
||||
call Function505c1
|
||||
ret
|
||||
; 5057b
|
||||
|
||||
Unknown_5057b: ; 5057b
|
||||
dw UnknownText_0x50594
|
||||
dw UnknownText_0x5059e
|
||||
dw UnknownText_0x505a3
|
||||
dw UnknownText_0x505a8
|
||||
dw UnknownText_0x50599
|
||||
dw UnknownText_0x5058f
|
||||
dw UnknownText_0x505ad
|
||||
dw UnknownText_0x505b2
|
||||
dw UnknownText_0x505b7
|
||||
dw UnknownText_0x505bc
|
||||
; 5058f
|
||||
|
||||
UnknownText_0x5058f: ; 0x5058f
|
||||
; recovered @ HP!
|
||||
text_jump UnknownText_0x1bc0a2
|
||||
db "@"
|
||||
; 0x50594
|
||||
|
||||
UnknownText_0x50594: ; 0x50594
|
||||
; 's cured of poison.
|
||||
text_jump UnknownText_0x1bc0bb
|
||||
db "@"
|
||||
; 0x50599
|
||||
|
||||
UnknownText_0x50599: ; 0x50599
|
||||
; 's rid of paralysis.
|
||||
text_jump UnknownText_0x1bc0d2
|
||||
db "@"
|
||||
; 0x5059e
|
||||
|
||||
UnknownText_0x5059e: ; 0x5059e
|
||||
; 's burn was healed.
|
||||
text_jump UnknownText_0x1bc0ea
|
||||
db "@"
|
||||
; 0x505a3
|
||||
|
||||
UnknownText_0x505a3: ; 0x505a3
|
||||
; was defrosted.
|
||||
text_jump UnknownText_0x1bc101
|
||||
db "@"
|
||||
; 0x505a8
|
||||
|
||||
UnknownText_0x505a8: ; 0x505a8
|
||||
; woke up.
|
||||
text_jump UnknownText_0x1bc115
|
||||
db "@"
|
||||
; 0x505ad
|
||||
|
||||
UnknownText_0x505ad: ; 0x505ad
|
||||
; 's health returned.
|
||||
text_jump UnknownText_0x1bc123
|
||||
db "@"
|
||||
; 0x505b2
|
||||
|
||||
UnknownText_0x505b2: ; 0x505b2
|
||||
; is revitalized.
|
||||
text_jump UnknownText_0x1bc13a
|
||||
db "@"
|
||||
; 0x505b7
|
||||
|
||||
UnknownText_0x505b7: ; 0x505b7
|
||||
; grew to level @ !@ @
|
||||
text_jump UnknownText_0x1bc14f
|
||||
db "@"
|
||||
; 0x505bc
|
||||
|
||||
UnknownText_0x505bc: ; 0x505bc
|
||||
; came to its senses.
|
||||
text_jump UnknownText_0x1bc16e
|
||||
db "@"
|
||||
; 0x505c1
|
||||
|
||||
Function505c1: ; 505c1
|
||||
ld e, a
|
||||
ld d, 0
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld a, [Options]
|
||||
push af
|
||||
set 4, a
|
||||
ld [Options], a
|
||||
call PrintText
|
||||
pop af
|
||||
ld [Options], a
|
||||
ret
|
||||
; 505da
|
||||
Loading…
Reference in New Issue