mirror of https://github.com/pret/pokecrystal.git
Move trainer item AI into battle/ai/items.asm.
This commit is contained in:
yenatch
parent
c7f11f7591
commit
e6271ca450
|
|
@ -0,0 +1,848 @@
|
|||
Function38000: ; 38000
|
||||
and a
|
||||
ld a, [IsInBattle]
|
||||
dec a
|
||||
ret z
|
||||
ld a, [InLinkBattle]
|
||||
and a
|
||||
ret nz
|
||||
callba Function3e8d1
|
||||
ret nz
|
||||
ld a, [PlayerSubStatus5]
|
||||
bit SUBSTATUS_CANT_RUN, a
|
||||
jr nz, Function38041
|
||||
ld a, [$c731]
|
||||
and a
|
||||
jr nz, Function38041
|
||||
ld hl, TrainerClassAttributes + 5
|
||||
ld a, [$cfc0]
|
||||
and a
|
||||
jr nz, .asm_38032
|
||||
ld a, [TrainerClass]
|
||||
dec a
|
||||
ld bc, 7
|
||||
call AddNTimes
|
||||
|
||||
.asm_38032
|
||||
bit 0, [hl]
|
||||
jp nz, Function38045
|
||||
bit 1, [hl]
|
||||
jp nz, Function38083
|
||||
bit 2, [hl]
|
||||
jp nz, Function380c1
|
||||
; fallthrough
|
||||
; 38041
|
||||
|
||||
Function38041: ; 38041
|
||||
call Function38105
|
||||
ret
|
||||
; 38045
|
||||
|
||||
Function38045: ; 38045
|
||||
callab Function34941
|
||||
ld a, [$c717]
|
||||
and $f0
|
||||
jp z, Function38041
|
||||
cp $10
|
||||
jr nz, .asm_38061
|
||||
call Random
|
||||
cp $80
|
||||
jr c, .asm_38077
|
||||
jp Function38041
|
||||
|
||||
.asm_38061
|
||||
cp $20
|
||||
jr nz, .asm_3806f
|
||||
call Random
|
||||
cp $c8
|
||||
jr c, .asm_38077
|
||||
jp Function38041
|
||||
|
||||
.asm_3806f
|
||||
call Random
|
||||
cp $a
|
||||
jp c, Function38041
|
||||
|
||||
.asm_38077
|
||||
ld a, [$c717]
|
||||
and $f
|
||||
inc a
|
||||
ld [$c718], a
|
||||
jp Function3844b
|
||||
; 38083
|
||||
|
||||
Function38083: ; 38083
|
||||
callab Function34941
|
||||
ld a, [$c717]
|
||||
and $f0
|
||||
jp z, Function38041
|
||||
cp $10
|
||||
jr nz, .asm_3809f
|
||||
call Random
|
||||
cp $14
|
||||
jr c, .asm_380b5
|
||||
jp Function38041
|
||||
|
||||
.asm_3809f
|
||||
cp $20
|
||||
jr nz, .asm_380ad
|
||||
call Random
|
||||
cp $1e
|
||||
jr c, .asm_380b5
|
||||
jp Function38041
|
||||
|
||||
.asm_380ad
|
||||
call Random
|
||||
cp $c8
|
||||
jp c, Function38041
|
||||
|
||||
.asm_380b5
|
||||
ld a, [$c717]
|
||||
and $f
|
||||
inc a
|
||||
ld [$c718], a
|
||||
jp Function3844b
|
||||
; 380c1
|
||||
|
||||
Function380c1: ; 380c1
|
||||
callab Function34941
|
||||
ld a, [$c717]
|
||||
and $f0
|
||||
jp z, Function38041
|
||||
cp $10
|
||||
jr nz, .asm_380dd
|
||||
call Random
|
||||
cp $32
|
||||
jr c, .asm_380f3
|
||||
jp Function38041
|
||||
|
||||
.asm_380dd
|
||||
cp $20
|
||||
jr nz, .asm_380eb
|
||||
call Random
|
||||
cp $80
|
||||
jr c, .asm_380f3
|
||||
jp Function38041
|
||||
|
||||
.asm_380eb
|
||||
call Random
|
||||
cp $32
|
||||
jp c, Function38041
|
||||
|
||||
.asm_380f3
|
||||
ld a, [$c717]
|
||||
and $f
|
||||
inc a
|
||||
ld [$c718], a
|
||||
jp Function3844b
|
||||
; 380ff
|
||||
|
||||
|
||||
Function380ff: ; 380ff
|
||||
ld a, [EnemySubStatus5]
|
||||
bit SUBSTATUS_CANT_RUN, a
|
||||
ret
|
||||
; 38105
|
||||
|
||||
|
||||
Function38105: ; 38105
|
||||
ld a, [$cfc0]
|
||||
and a
|
||||
ret nz
|
||||
ld a, [$c650]
|
||||
ld b, a
|
||||
ld a, [$c651]
|
||||
or b
|
||||
ret z
|
||||
call Function38170
|
||||
ret nc
|
||||
ld a, [TrainerClass]
|
||||
dec a
|
||||
ld hl, TrainerClassAttributes + 5
|
||||
ld bc, 7
|
||||
call AddNTimes
|
||||
ld b, h
|
||||
ld c, l
|
||||
ld hl, Unknown_38196
|
||||
ld de, $c650
|
||||
.asm_3812c
|
||||
ld a, [hl]
|
||||
and a
|
||||
inc a
|
||||
ret z
|
||||
ld a, [de]
|
||||
cp [hl]
|
||||
jr z, .asm_3813f
|
||||
inc de
|
||||
ld a, [de]
|
||||
cp [hl]
|
||||
jr z, .asm_3813f
|
||||
dec de
|
||||
inc hl
|
||||
inc hl
|
||||
inc hl
|
||||
jr .asm_3812c
|
||||
|
||||
.asm_3813f
|
||||
inc hl
|
||||
push hl
|
||||
push de
|
||||
ld de, .asm_3814a
|
||||
push de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
jp [hl]
|
||||
|
||||
.asm_3814a
|
||||
pop de
|
||||
pop hl
|
||||
inc hl
|
||||
inc hl
|
||||
jr c, .asm_3812c
|
||||
xor a
|
||||
ld [de], a
|
||||
inc a
|
||||
ld [$c70f], a
|
||||
ld hl, EnemySubStatus3 ; $c66f
|
||||
res SUBSTATUS_BIDE, [hl]
|
||||
xor a
|
||||
ld [EnemyFuryCutterCount], a ; $c680
|
||||
ld [$c681], a
|
||||
ld [$c72c], a
|
||||
ld hl, EnemySubStatus4 ; $c670
|
||||
res SUBSTATUS_RAGE, [hl]
|
||||
xor a
|
||||
ld [LastPlayerCounterMove], a ; $c6f9
|
||||
scf
|
||||
ret
|
||||
|
||||
|
||||
Function38170: ; 38170
|
||||
ld a, [OTPartyCount]
|
||||
ld d, a
|
||||
ld e, 0
|
||||
ld hl, OTPartyMon1Level
|
||||
ld bc, OTPartyMon2 - OTPartyMon1
|
||||
.asm_3817c
|
||||
ld a, [hl]
|
||||
cp e
|
||||
jr c, .asm_38181
|
||||
ld e, a
|
||||
.asm_38181
|
||||
add hl, bc
|
||||
dec d
|
||||
jr nz, .asm_3817c
|
||||
|
||||
ld a, [CurOTMon]
|
||||
ld hl, OTPartyMon1Level
|
||||
call AddNTimes
|
||||
ld a, [hl]
|
||||
cp e
|
||||
jr nc, .asm_38194
|
||||
and a
|
||||
ret
|
||||
|
||||
.asm_38194
|
||||
scf
|
||||
ret
|
||||
; 38196
|
||||
|
||||
Unknown_38196: ; 39196
|
||||
dbw FULL_RESTORE, Function38208
|
||||
dbw MAX_POTION, Function38220
|
||||
dbw HYPER_POTION, Function38284
|
||||
dbw SUPER_POTION, Function38292
|
||||
dbw POTION, Function382a0
|
||||
dbw X_ACCURACY, Function382f9
|
||||
dbw FULL_HEAL, Function381be
|
||||
dbw GUARD_SPEC, Function38305
|
||||
dbw DIRE_HIT, Function38311
|
||||
dbw X_ATTACK, Function3831d
|
||||
dbw X_DEFEND, Function38329
|
||||
dbw X_SPEED, Function38335
|
||||
dbw X_SPECIAL, Function38341
|
||||
db $ff
|
||||
; 381be
|
||||
|
||||
Function381be: ; 381be
|
||||
call Function381ca
|
||||
jp c, Function38383
|
||||
call Function383a3
|
||||
jp Function38385
|
||||
; 381ca
|
||||
|
||||
; known jump sources: 381be (e:41be), 38214 (e:4214)
|
||||
Function381ca: ; 381ca (e:41ca)
|
||||
ld a, [EnemyMonStatus] ; $d214
|
||||
and a
|
||||
jp z, Function38383
|
||||
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jr nz, .asm_381e7
|
||||
ld a, [bc]
|
||||
bit 4, a
|
||||
jp nz, Function38385
|
||||
call Random
|
||||
cp $32
|
||||
jp c, Function38385
|
||||
jp Function38383
|
||||
|
||||
.asm_381e7
|
||||
ld a, [EnemySubStatus5]
|
||||
bit SUBSTATUS_TOXIC, a
|
||||
jr z, .asm_381fd
|
||||
ld a, [$c67c]
|
||||
cp $4
|
||||
jr c, .asm_381fd
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38385
|
||||
.asm_381fd
|
||||
ld a, [EnemyMonStatus]
|
||||
and 1 << FRZ | SLP
|
||||
jp z, Function38383
|
||||
jp Function38385
|
||||
; 38208
|
||||
|
||||
Function38208: ; 38208
|
||||
call Function3822c
|
||||
jp nc, Function3821a
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jp z, Function38383
|
||||
call Function381ca
|
||||
jp c, Function38383
|
||||
|
||||
; known jump sources: 3820b (e:420b)
|
||||
Function3821a: ; 3821a (e:421a)
|
||||
call Function383b5
|
||||
jp Function38385
|
||||
; 38220
|
||||
|
||||
Function38220: ; 38220
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
call Function383ae
|
||||
jp Function38385
|
||||
|
||||
; known jump sources: 38208 (e:4208), 38220 (e:4220), 38284 (e:4284)
|
||||
Function3822c: ; 3822c (e:422c)
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jr nz, Function38267
|
||||
callab AICheckEnemyHalfHP
|
||||
jp c, Function38383
|
||||
ld a, [bc]
|
||||
bit 5, a
|
||||
jp nz, Function38254
|
||||
callab AICheckEnemyQuarterHP
|
||||
jp nc, Function38281
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38281
|
||||
jp Function38383
|
||||
|
||||
Function38254: ; 38254 (e:4254)
|
||||
callab AICheckEnemyQuarterHP
|
||||
jp c, Function38383
|
||||
call Random
|
||||
cp $32
|
||||
jp c, Function38383
|
||||
jr Function38281
|
||||
|
||||
Function38267: ; 38267 (e:4267)
|
||||
callab AICheckEnemyHalfHP
|
||||
jp c, Function38383
|
||||
callab AICheckEnemyQuarterHP
|
||||
jp nc, Function38281
|
||||
call Random
|
||||
cp $32
|
||||
jp nc, Function38383
|
||||
|
||||
Function38281: ; 38281 (e:4281)
|
||||
jp Function38385
|
||||
; 38284
|
||||
|
||||
Function38284: ; 38284
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
ld b, 200
|
||||
call Function383f4
|
||||
jp Function38385
|
||||
; 38292 (e:4292)
|
||||
|
||||
Function38292: ; 38292
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
|
||||
Function38298: ; 38298
|
||||
ld b, 50
|
||||
call Function383ee
|
||||
jp Function38385
|
||||
; 382a0
|
||||
|
||||
Function382a0: ; 382a0
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
ld b, 20
|
||||
call Function383e8
|
||||
jp Function38385
|
||||
; 382ae
|
||||
|
||||
Function382ae: ; 382ae
|
||||
callab AICheckEnemyMaxHP
|
||||
jr c, .asm_382e4
|
||||
push bc
|
||||
ld de, EnemyMonMaxHP + 1
|
||||
ld hl, EnemyMonHP + 1
|
||||
ld a, [de]
|
||||
sub [hl]
|
||||
jr z, .asm_382e7
|
||||
dec hl
|
||||
dec de
|
||||
ld c, a
|
||||
sbc [hl]
|
||||
and a
|
||||
jr nz, .asm_382e7
|
||||
ld a, c
|
||||
cp b
|
||||
jp c, .asm_382d5
|
||||
callab AICheckEnemyQuarterHP
|
||||
jr c, .asm_382e7
|
||||
|
||||
.asm_382d5
|
||||
pop bc
|
||||
ld a, [bc]
|
||||
bit 5, a
|
||||
jp z, Function38385
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38385
|
||||
|
||||
.asm_382e4
|
||||
jp Function38383
|
||||
|
||||
.asm_382e7
|
||||
pop bc
|
||||
ld a, [bc]
|
||||
bit 5, a
|
||||
jp z, Function38383
|
||||
call Random
|
||||
cp $64
|
||||
jp c, Function38385
|
||||
jp Function38383
|
||||
; 382f9
|
||||
|
||||
Function382f9: ; 382f9
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function384f7
|
||||
jp Function38385
|
||||
; 38305
|
||||
|
||||
Function38305: ; 38305
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38504
|
||||
jp Function38385
|
||||
; 38311
|
||||
|
||||
Function38311: ; 38311
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38511
|
||||
jp Function38385
|
||||
; 3831d (e:431d)
|
||||
|
||||
Function3831d: ; 3831d
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38541
|
||||
jp Function38385
|
||||
; 38329
|
||||
|
||||
Function38329: ; 38329
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38547
|
||||
jp Function38385
|
||||
; 38335
|
||||
|
||||
Function38335: ; 38335
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function3854d
|
||||
jp Function38385
|
||||
; 38341
|
||||
|
||||
Function38341: ; 38341
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38553
|
||||
jp Function38385
|
||||
; 3834d
|
||||
|
||||
; known jump sources: 38311 (e:4311)
|
||||
Function3834d: ; 3834d (e:434d)
|
||||
ld a, [EnemyTurnsTaken] ; $c6dc
|
||||
and a
|
||||
jr nz, .asm_38372
|
||||
ld a, [bc]
|
||||
bit 4, a
|
||||
jp nz, Function38385
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38383
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jp nz, Function38385
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38383
|
||||
jp Function38385
|
||||
.asm_38372
|
||||
ld a, [bc]
|
||||
bit 4, a
|
||||
jp z, Function38383
|
||||
call Random
|
||||
cp $32
|
||||
jp nc, Function38383
|
||||
jp Function38385
|
||||
|
||||
Function38383: ; 38383 (e:4383)
|
||||
scf
|
||||
ret
|
||||
|
||||
Function38385: ; 38385 (e:4385)
|
||||
and a
|
||||
ret
|
||||
|
||||
|
||||
Function38387: ; 38387
|
||||
call UpdateEnemyMonInParty
|
||||
callba Function3e036
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
ld hl, $c6e6
|
||||
dec [hl]
|
||||
scf
|
||||
ret
|
||||
; 3839a
|
||||
|
||||
Function3839a: ; 3839a
|
||||
push de
|
||||
ld de, SFX_FULL_HEAL
|
||||
call PlaySFX
|
||||
pop de
|
||||
ret
|
||||
; 383a3
|
||||
|
||||
|
||||
; known jump sources: 381c4 (e:41c4)
|
||||
Function383a3: ; 383a3 (e:43a3)
|
||||
call Function3839a
|
||||
call Function384e0
|
||||
ld a, FULL_HEAL
|
||||
jp Function38568
|
||||
|
||||
; known jump sources: 38226 (e:4226)
|
||||
Function383ae: ; 383ae (e:43ae)
|
||||
ld a, $f
|
||||
ld [$d1f1], a
|
||||
jr asm_383c6
|
||||
|
||||
; known jump sources: 3821a (e:421a)
|
||||
Function383b5: ; 383b5 (e:43b5)
|
||||
call Function384e0
|
||||
ld a, $e
|
||||
ld [$d1f1], a
|
||||
ld hl, EnemySubStatus3 ; $c66f
|
||||
res SUBSTATUS_CONFUSED, [hl]
|
||||
xor a
|
||||
ld [EnemyConfuseCount], a ; $c67b
|
||||
asm_383c6: ; 383c6 (e:43c6)
|
||||
ld de, $d1ec
|
||||
ld hl, EnemyMonHP + 1 ; $d217
|
||||
ld a, [hld]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld a, [hl]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld hl, EnemyMonMaxHP + 1 ; $d219
|
||||
ld a, [hld]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld [Buffer1], a ; $d1ea (aliases: MagikarpLength)
|
||||
ld [EnemyMonHP + 1], a ; $d217
|
||||
ld a, [hl]
|
||||
ld [de], a
|
||||
ld [Buffer2], a ; $d1eb (aliases: MovementType)
|
||||
ld [EnemyMonHP], a ; $d216 (aliases: EnemyMonHP)
|
||||
jr asm_38436
|
||||
; 383e8 (e:43e8)
|
||||
|
||||
Function383e8: ; 383e8
|
||||
ld a, POTION
|
||||
ld b, 20
|
||||
jr Function383f8
|
||||
|
||||
Function383ee: ; 383ee
|
||||
ld a, SUPER_POTION
|
||||
ld b, 50
|
||||
jr Function383f8
|
||||
|
||||
; known jump sources: 3828c (e:428c)
|
||||
Function383f4: ; 383f4 (e:43f4)
|
||||
ld a, HYPER_POTION
|
||||
ld b, 200
|
||||
|
||||
Function383f8: ; 383f8
|
||||
ld [$d1f1], a
|
||||
ld hl, EnemyMonHP + 1 ; $d217
|
||||
ld a, [hl]
|
||||
ld [$d1ec], a
|
||||
add b
|
||||
ld [hld], a
|
||||
ld [$d1ee], a
|
||||
ld a, [hl]
|
||||
ld [$d1ed], a
|
||||
ld [$d1ef], a
|
||||
jr nc, .asm_38415
|
||||
inc a
|
||||
ld [hl], a
|
||||
ld [$d1ef], a
|
||||
.asm_38415
|
||||
inc hl
|
||||
ld a, [hld]
|
||||
ld b, a
|
||||
ld de, EnemyMonMaxHP + 1 ; $d219
|
||||
ld a, [de]
|
||||
dec de
|
||||
ld [Buffer1], a ; $d1ea (aliases: MagikarpLength)
|
||||
sub b
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [de]
|
||||
ld [Buffer2], a ; $d1eb (aliases: MovementType)
|
||||
sbc b
|
||||
jr nc, asm_38436
|
||||
inc de
|
||||
ld a, [de]
|
||||
dec de
|
||||
ld [hld], a
|
||||
ld [$d1ee], a
|
||||
ld a, [de]
|
||||
ld [hl], a
|
||||
ld [$d1ef], a
|
||||
asm_38436: ; 38436 (e:4436)
|
||||
call Function38571
|
||||
hlcoord 2, 2
|
||||
xor a
|
||||
ld [$d10a], a
|
||||
call Function3839a
|
||||
ld a, $b
|
||||
call Predef
|
||||
jp Function38387
|
||||
|
||||
|
||||
Function3844b: ; 3844b
|
||||
ld a, [OTPartyCount]
|
||||
ld c, a
|
||||
ld hl, OTPartyMon1HP
|
||||
ld d, 0
|
||||
.asm_38454
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [hld]
|
||||
or b
|
||||
jr z, .asm_3845b
|
||||
inc d
|
||||
|
||||
.asm_3845b
|
||||
push bc
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
add hl, bc
|
||||
pop bc
|
||||
dec c
|
||||
jr nz, .asm_38454
|
||||
ld a, d
|
||||
cp $2
|
||||
jp nc, Function3846c
|
||||
and a
|
||||
ret
|
||||
; 3846c
|
||||
|
||||
Function3846c: ; 3846c
|
||||
ld a, $1
|
||||
ld [$c711], a
|
||||
ld [$c70f], a
|
||||
ld hl, EnemySubStatus4
|
||||
res SUBSTATUS_RAGE, [hl]
|
||||
xor a
|
||||
ld [hBattleTurn], a
|
||||
callab Function3dc5b
|
||||
push af
|
||||
ld a, [CurOTMon]
|
||||
ld hl, OTPartyMon1Status
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
call AddNTimes
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld hl, EnemyMonStatus
|
||||
ld bc, $0004
|
||||
call CopyBytes
|
||||
pop af
|
||||
jr c, .asm_384a3
|
||||
ld hl, UnknownText_0x384d0
|
||||
call PrintText
|
||||
|
||||
.asm_384a3
|
||||
ld a, $1
|
||||
ld [$d264], a
|
||||
callab NewEnemyMonStatus
|
||||
callab ResetEnemyStatLevels
|
||||
ld hl, PlayerSubStatus1
|
||||
res SUBSTATUS_IN_LOVE, [hl]
|
||||
callba Function3d4e1
|
||||
callba Function3d57a
|
||||
xor a
|
||||
ld [$d264], a
|
||||
ld a, [InLinkBattle]
|
||||
and a
|
||||
ret nz
|
||||
scf
|
||||
ret
|
||||
; 384d0
|
||||
|
||||
UnknownText_0x384d0: ; 384d0
|
||||
text_jump UnknownText_0x1bcf9c
|
||||
db "@"
|
||||
; 384d5
|
||||
|
||||
Function384d5: ; 384d5
|
||||
call Function3839a
|
||||
call Function384e0
|
||||
ld a, X_SPEED
|
||||
jp Function38568
|
||||
; 384e0
|
||||
|
||||
Function384e0: ; 384e0
|
||||
ld a, [CurOTMon]
|
||||
ld hl, OTPartyMon1Status
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
call AddNTimes
|
||||
xor a
|
||||
ld [hl], a
|
||||
ld [EnemyMonStatus], a
|
||||
ld hl, EnemySubStatus5
|
||||
res SUBSTATUS_TOXIC, [hl]
|
||||
ret
|
||||
; 384f7
|
||||
|
||||
Function384f7: ; 384f7
|
||||
call Function3839a
|
||||
ld hl, EnemySubStatus4
|
||||
set SUBSTATUS_UNLEASH, [hl]
|
||||
ld a, X_ACCURACY
|
||||
jp Function38568
|
||||
; 38504
|
||||
|
||||
Function38504: ; 38504
|
||||
call Function3839a
|
||||
ld hl, EnemySubStatus4
|
||||
set SUBSTATUS_MIST, [hl]
|
||||
ld a, GUARD_SPEC
|
||||
jp Function38568
|
||||
; 38511
|
||||
|
||||
Function38511: ; 38511
|
||||
call Function3839a
|
||||
ld hl, EnemySubStatus4
|
||||
set SUBSTATUS_FOCUS_ENERGY, [hl]
|
||||
ld a, DIRE_HIT
|
||||
jp Function38568
|
||||
; 3851e
|
||||
|
||||
Function3851e: ; 3851e
|
||||
ld [hMultiplier], a
|
||||
ld hl, EnemyMonMaxHP
|
||||
ld a, [hli]
|
||||
ld [hProduct], a
|
||||
ld a, [hl]
|
||||
ld [hMultiplicand], a
|
||||
ld b, $2
|
||||
call Divide
|
||||
ld a, [$ffb6]
|
||||
ld c, a
|
||||
ld a, [$ffb5]
|
||||
ld b, a
|
||||
ld hl, EnemyMonHP + 1
|
||||
ld a, [hld]
|
||||
ld e, a
|
||||
ld a, [hl]
|
||||
ld d, a
|
||||
ld a, d
|
||||
sub b
|
||||
ret nz
|
||||
ld a, e
|
||||
sub c
|
||||
ret
|
||||
; 38541
|
||||
|
||||
Function38541: ; 38541
|
||||
ld b, ATTACK
|
||||
ld a, X_ATTACK
|
||||
jr Function38557
|
||||
; 38547
|
||||
|
||||
Function38547: ; 38547
|
||||
ld b, DEFENSE
|
||||
ld a, X_DEFEND
|
||||
jr Function38557
|
||||
; 3854d
|
||||
|
||||
Function3854d: ; 3854d
|
||||
ld b, SPEED
|
||||
ld a, X_SPEED
|
||||
jr Function38557
|
||||
; 38553
|
||||
|
||||
Function38553: ; 38553
|
||||
ld b, SP_ATTACK
|
||||
ld a, X_SPECIAL
|
||||
|
||||
Function38557
|
||||
ld [$d1f1], a
|
||||
push bc
|
||||
call Function38571
|
||||
pop bc
|
||||
callba Function361ef
|
||||
jp Function38387
|
||||
; 38568
|
||||
|
||||
|
||||
Function38568: ; 38568
|
||||
ld [$d1f1], a
|
||||
call Function38571
|
||||
jp Function38387
|
||||
; 38571
|
||||
|
||||
Function38571: ; 38571
|
||||
ld a, [$d1f1]
|
||||
ld [$d265], a
|
||||
call GetItemName
|
||||
ld hl, StringBuffer1
|
||||
ld de, $d050
|
||||
ld bc, $000d
|
||||
call CopyBytes
|
||||
ld hl, UnknownText_0x3858c
|
||||
jp PrintText
|
||||
; 3858c
|
||||
|
||||
UnknownText_0x3858c: ; 3858c
|
||||
text_jump UnknownText_0x1bcfaf
|
||||
db "@"
|
||||
; 38591
|
||||
850
main.asm
850
main.asm
|
|
@ -43530,855 +43530,7 @@ INCLUDE "battle/effect_commands.asm"
|
|||
|
||||
SECTION "bankE", ROMX, BANK[$E]
|
||||
|
||||
Function38000: ; 38000
|
||||
and a
|
||||
ld a, [IsInBattle]
|
||||
dec a
|
||||
ret z
|
||||
ld a, [InLinkBattle]
|
||||
and a
|
||||
ret nz
|
||||
callba Function3e8d1
|
||||
ret nz
|
||||
ld a, [PlayerSubStatus5]
|
||||
bit SUBSTATUS_CANT_RUN, a
|
||||
jr nz, Function38041
|
||||
ld a, [$c731]
|
||||
and a
|
||||
jr nz, Function38041
|
||||
ld hl, TrainerClassAttributes + 5
|
||||
ld a, [$cfc0]
|
||||
and a
|
||||
jr nz, .asm_38032
|
||||
ld a, [TrainerClass]
|
||||
dec a
|
||||
ld bc, 7
|
||||
call AddNTimes
|
||||
|
||||
.asm_38032
|
||||
bit 0, [hl]
|
||||
jp nz, Function38045
|
||||
bit 1, [hl]
|
||||
jp nz, Function38083
|
||||
bit 2, [hl]
|
||||
jp nz, Function380c1
|
||||
; fallthrough
|
||||
; 38041
|
||||
|
||||
Function38041: ; 38041
|
||||
call Function38105
|
||||
ret
|
||||
; 38045
|
||||
|
||||
Function38045: ; 38045
|
||||
callab Function34941
|
||||
ld a, [$c717]
|
||||
and $f0
|
||||
jp z, Function38041
|
||||
cp $10
|
||||
jr nz, .asm_38061
|
||||
call Random
|
||||
cp $80
|
||||
jr c, .asm_38077
|
||||
jp Function38041
|
||||
|
||||
.asm_38061
|
||||
cp $20
|
||||
jr nz, .asm_3806f
|
||||
call Random
|
||||
cp $c8
|
||||
jr c, .asm_38077
|
||||
jp Function38041
|
||||
|
||||
.asm_3806f
|
||||
call Random
|
||||
cp $a
|
||||
jp c, Function38041
|
||||
|
||||
.asm_38077
|
||||
ld a, [$c717]
|
||||
and $f
|
||||
inc a
|
||||
ld [$c718], a
|
||||
jp Function3844b
|
||||
; 38083
|
||||
|
||||
Function38083: ; 38083
|
||||
callab Function34941
|
||||
ld a, [$c717]
|
||||
and $f0
|
||||
jp z, Function38041
|
||||
cp $10
|
||||
jr nz, .asm_3809f
|
||||
call Random
|
||||
cp $14
|
||||
jr c, .asm_380b5
|
||||
jp Function38041
|
||||
|
||||
.asm_3809f
|
||||
cp $20
|
||||
jr nz, .asm_380ad
|
||||
call Random
|
||||
cp $1e
|
||||
jr c, .asm_380b5
|
||||
jp Function38041
|
||||
|
||||
.asm_380ad
|
||||
call Random
|
||||
cp $c8
|
||||
jp c, Function38041
|
||||
|
||||
.asm_380b5
|
||||
ld a, [$c717]
|
||||
and $f
|
||||
inc a
|
||||
ld [$c718], a
|
||||
jp Function3844b
|
||||
; 380c1
|
||||
|
||||
Function380c1: ; 380c1
|
||||
callab Function34941
|
||||
ld a, [$c717]
|
||||
and $f0
|
||||
jp z, Function38041
|
||||
cp $10
|
||||
jr nz, .asm_380dd
|
||||
call Random
|
||||
cp $32
|
||||
jr c, .asm_380f3
|
||||
jp Function38041
|
||||
|
||||
.asm_380dd
|
||||
cp $20
|
||||
jr nz, .asm_380eb
|
||||
call Random
|
||||
cp $80
|
||||
jr c, .asm_380f3
|
||||
jp Function38041
|
||||
|
||||
.asm_380eb
|
||||
call Random
|
||||
cp $32
|
||||
jp c, Function38041
|
||||
|
||||
.asm_380f3
|
||||
ld a, [$c717]
|
||||
and $f
|
||||
inc a
|
||||
ld [$c718], a
|
||||
jp Function3844b
|
||||
; 380ff
|
||||
|
||||
|
||||
Function380ff: ; 380ff
|
||||
ld a, [EnemySubStatus5]
|
||||
bit SUBSTATUS_CANT_RUN, a
|
||||
ret
|
||||
; 38105
|
||||
|
||||
|
||||
Function38105: ; 38105
|
||||
ld a, [$cfc0]
|
||||
and a
|
||||
ret nz
|
||||
ld a, [$c650]
|
||||
ld b, a
|
||||
ld a, [$c651]
|
||||
or b
|
||||
ret z
|
||||
call Function38170
|
||||
ret nc
|
||||
ld a, [TrainerClass]
|
||||
dec a
|
||||
ld hl, TrainerClassAttributes + 5
|
||||
ld bc, 7
|
||||
call AddNTimes
|
||||
ld b, h
|
||||
ld c, l
|
||||
ld hl, Unknown_38196
|
||||
ld de, $c650
|
||||
.asm_3812c
|
||||
ld a, [hl]
|
||||
and a
|
||||
inc a
|
||||
ret z
|
||||
ld a, [de]
|
||||
cp [hl]
|
||||
jr z, .asm_3813f
|
||||
inc de
|
||||
ld a, [de]
|
||||
cp [hl]
|
||||
jr z, .asm_3813f
|
||||
dec de
|
||||
inc hl
|
||||
inc hl
|
||||
inc hl
|
||||
jr .asm_3812c
|
||||
|
||||
.asm_3813f
|
||||
inc hl
|
||||
push hl
|
||||
push de
|
||||
ld de, .asm_3814a
|
||||
push de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
jp [hl]
|
||||
|
||||
.asm_3814a
|
||||
pop de
|
||||
pop hl
|
||||
inc hl
|
||||
inc hl
|
||||
jr c, .asm_3812c
|
||||
xor a
|
||||
ld [de], a
|
||||
inc a
|
||||
ld [$c70f], a
|
||||
ld hl, EnemySubStatus3 ; $c66f
|
||||
res SUBSTATUS_BIDE, [hl]
|
||||
xor a
|
||||
ld [EnemyFuryCutterCount], a ; $c680
|
||||
ld [$c681], a
|
||||
ld [$c72c], a
|
||||
ld hl, EnemySubStatus4 ; $c670
|
||||
res SUBSTATUS_RAGE, [hl]
|
||||
xor a
|
||||
ld [LastPlayerCounterMove], a ; $c6f9
|
||||
scf
|
||||
ret
|
||||
|
||||
|
||||
Function38170: ; 38170
|
||||
ld a, [OTPartyCount]
|
||||
ld d, a
|
||||
ld e, 0
|
||||
ld hl, OTPartyMon1Level
|
||||
ld bc, OTPartyMon2 - OTPartyMon1
|
||||
.asm_3817c
|
||||
ld a, [hl]
|
||||
cp e
|
||||
jr c, .asm_38181
|
||||
ld e, a
|
||||
.asm_38181
|
||||
add hl, bc
|
||||
dec d
|
||||
jr nz, .asm_3817c
|
||||
|
||||
ld a, [CurOTMon]
|
||||
ld hl, OTPartyMon1Level
|
||||
call AddNTimes
|
||||
ld a, [hl]
|
||||
cp e
|
||||
jr nc, .asm_38194
|
||||
and a
|
||||
ret
|
||||
|
||||
.asm_38194
|
||||
scf
|
||||
ret
|
||||
; 38196
|
||||
|
||||
Unknown_38196: ; 39196
|
||||
dbw FULL_RESTORE, Function38208
|
||||
dbw MAX_POTION, Function38220
|
||||
dbw HYPER_POTION, Function38284
|
||||
dbw SUPER_POTION, Function38292
|
||||
dbw POTION, Function382a0
|
||||
dbw X_ACCURACY, Function382f9
|
||||
dbw FULL_HEAL, Function381be
|
||||
dbw GUARD_SPEC, Function38305
|
||||
dbw DIRE_HIT, Function38311
|
||||
dbw X_ATTACK, Function3831d
|
||||
dbw X_DEFEND, Function38329
|
||||
dbw X_SPEED, Function38335
|
||||
dbw X_SPECIAL, Function38341
|
||||
db $ff
|
||||
; 381be
|
||||
|
||||
Function381be: ; 381be
|
||||
call Function381ca
|
||||
jp c, Function38383
|
||||
call Function383a3
|
||||
jp Function38385
|
||||
; 381ca
|
||||
|
||||
; known jump sources: 381be (e:41be), 38214 (e:4214)
|
||||
Function381ca: ; 381ca (e:41ca)
|
||||
ld a, [EnemyMonStatus] ; $d214
|
||||
and a
|
||||
jp z, Function38383
|
||||
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jr nz, .asm_381e7
|
||||
ld a, [bc]
|
||||
bit 4, a
|
||||
jp nz, Function38385
|
||||
call Random
|
||||
cp $32
|
||||
jp c, Function38385
|
||||
jp Function38383
|
||||
|
||||
.asm_381e7
|
||||
ld a, [EnemySubStatus5]
|
||||
bit SUBSTATUS_TOXIC, a
|
||||
jr z, .asm_381fd
|
||||
ld a, [$c67c]
|
||||
cp $4
|
||||
jr c, .asm_381fd
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38385
|
||||
.asm_381fd
|
||||
ld a, [EnemyMonStatus]
|
||||
and 1 << FRZ | SLP
|
||||
jp z, Function38383
|
||||
jp Function38385
|
||||
; 38208
|
||||
|
||||
Function38208: ; 38208
|
||||
call Function3822c
|
||||
jp nc, Function3821a
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jp z, Function38383
|
||||
call Function381ca
|
||||
jp c, Function38383
|
||||
|
||||
; known jump sources: 3820b (e:420b)
|
||||
Function3821a: ; 3821a (e:421a)
|
||||
call Function383b5
|
||||
jp Function38385
|
||||
; 38220
|
||||
|
||||
Function38220: ; 38220
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
call Function383ae
|
||||
jp Function38385
|
||||
|
||||
; known jump sources: 38208 (e:4208), 38220 (e:4220), 38284 (e:4284)
|
||||
Function3822c: ; 3822c (e:422c)
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jr nz, Function38267
|
||||
callab AICheckEnemyHalfHP
|
||||
jp c, Function38383
|
||||
ld a, [bc]
|
||||
bit 5, a
|
||||
jp nz, Function38254
|
||||
callab AICheckEnemyQuarterHP
|
||||
jp nc, Function38281
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38281
|
||||
jp Function38383
|
||||
|
||||
Function38254: ; 38254 (e:4254)
|
||||
callab AICheckEnemyQuarterHP
|
||||
jp c, Function38383
|
||||
call Random
|
||||
cp $32
|
||||
jp c, Function38383
|
||||
jr Function38281
|
||||
|
||||
Function38267: ; 38267 (e:4267)
|
||||
callab AICheckEnemyHalfHP
|
||||
jp c, Function38383
|
||||
callab AICheckEnemyQuarterHP
|
||||
jp nc, Function38281
|
||||
call Random
|
||||
cp $32
|
||||
jp nc, Function38383
|
||||
|
||||
Function38281: ; 38281 (e:4281)
|
||||
jp Function38385
|
||||
; 38284
|
||||
|
||||
Function38284: ; 38284
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
ld b, 200
|
||||
call Function383f4
|
||||
jp Function38385
|
||||
; 38292 (e:4292)
|
||||
|
||||
Function38292: ; 38292
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
|
||||
Function38298: ; 38298
|
||||
ld b, 50
|
||||
call Function383ee
|
||||
jp Function38385
|
||||
; 382a0
|
||||
|
||||
Function382a0: ; 382a0
|
||||
call Function3822c
|
||||
jp c, Function38383
|
||||
ld b, 20
|
||||
call Function383e8
|
||||
jp Function38385
|
||||
; 382ae
|
||||
|
||||
Function382ae: ; 382ae
|
||||
callab AICheckEnemyMaxHP
|
||||
jr c, .asm_382e4
|
||||
push bc
|
||||
ld de, EnemyMonMaxHP + 1
|
||||
ld hl, EnemyMonHP + 1
|
||||
ld a, [de]
|
||||
sub [hl]
|
||||
jr z, .asm_382e7
|
||||
dec hl
|
||||
dec de
|
||||
ld c, a
|
||||
sbc [hl]
|
||||
and a
|
||||
jr nz, .asm_382e7
|
||||
ld a, c
|
||||
cp b
|
||||
jp c, .asm_382d5
|
||||
callab AICheckEnemyQuarterHP
|
||||
jr c, .asm_382e7
|
||||
|
||||
.asm_382d5
|
||||
pop bc
|
||||
ld a, [bc]
|
||||
bit 5, a
|
||||
jp z, Function38385
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38385
|
||||
|
||||
.asm_382e4
|
||||
jp Function38383
|
||||
|
||||
.asm_382e7
|
||||
pop bc
|
||||
ld a, [bc]
|
||||
bit 5, a
|
||||
jp z, Function38383
|
||||
call Random
|
||||
cp $64
|
||||
jp c, Function38385
|
||||
jp Function38383
|
||||
; 382f9
|
||||
|
||||
Function382f9: ; 382f9
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function384f7
|
||||
jp Function38385
|
||||
; 38305
|
||||
|
||||
Function38305: ; 38305
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38504
|
||||
jp Function38385
|
||||
; 38311
|
||||
|
||||
Function38311: ; 38311
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38511
|
||||
jp Function38385
|
||||
; 3831d (e:431d)
|
||||
|
||||
Function3831d: ; 3831d
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38541
|
||||
jp Function38385
|
||||
; 38329
|
||||
|
||||
Function38329: ; 38329
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38547
|
||||
jp Function38385
|
||||
; 38335
|
||||
|
||||
Function38335: ; 38335
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function3854d
|
||||
jp Function38385
|
||||
; 38341
|
||||
|
||||
Function38341: ; 38341
|
||||
call Function3834d
|
||||
jp c, Function38383
|
||||
call Function38553
|
||||
jp Function38385
|
||||
; 3834d
|
||||
|
||||
; known jump sources: 38311 (e:4311)
|
||||
Function3834d: ; 3834d (e:434d)
|
||||
ld a, [EnemyTurnsTaken] ; $c6dc
|
||||
and a
|
||||
jr nz, .asm_38372
|
||||
ld a, [bc]
|
||||
bit 4, a
|
||||
jp nz, Function38385
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38383
|
||||
ld a, [bc]
|
||||
bit 6, a
|
||||
jp nz, Function38385
|
||||
call Random
|
||||
cp $80
|
||||
jp c, Function38383
|
||||
jp Function38385
|
||||
.asm_38372
|
||||
ld a, [bc]
|
||||
bit 4, a
|
||||
jp z, Function38383
|
||||
call Random
|
||||
cp $32
|
||||
jp nc, Function38383
|
||||
jp Function38385
|
||||
|
||||
Function38383: ; 38383 (e:4383)
|
||||
scf
|
||||
ret
|
||||
|
||||
Function38385: ; 38385 (e:4385)
|
||||
and a
|
||||
ret
|
||||
|
||||
|
||||
Function38387: ; 38387
|
||||
call UpdateEnemyMonInParty
|
||||
callba Function3e036
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
ld hl, $c6e6
|
||||
dec [hl]
|
||||
scf
|
||||
ret
|
||||
; 3839a
|
||||
|
||||
Function3839a: ; 3839a
|
||||
push de
|
||||
ld de, SFX_FULL_HEAL
|
||||
call PlaySFX
|
||||
pop de
|
||||
ret
|
||||
; 383a3
|
||||
|
||||
|
||||
; known jump sources: 381c4 (e:41c4)
|
||||
Function383a3: ; 383a3 (e:43a3)
|
||||
call Function3839a
|
||||
call Function384e0
|
||||
ld a, FULL_HEAL
|
||||
jp Function38568
|
||||
|
||||
; known jump sources: 38226 (e:4226)
|
||||
Function383ae: ; 383ae (e:43ae)
|
||||
ld a, $f
|
||||
ld [$d1f1], a
|
||||
jr asm_383c6
|
||||
|
||||
; known jump sources: 3821a (e:421a)
|
||||
Function383b5: ; 383b5 (e:43b5)
|
||||
call Function384e0
|
||||
ld a, $e
|
||||
ld [$d1f1], a
|
||||
ld hl, EnemySubStatus3 ; $c66f
|
||||
res SUBSTATUS_CONFUSED, [hl]
|
||||
xor a
|
||||
ld [EnemyConfuseCount], a ; $c67b
|
||||
asm_383c6: ; 383c6 (e:43c6)
|
||||
ld de, $d1ec
|
||||
ld hl, EnemyMonHP + 1 ; $d217
|
||||
ld a, [hld]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld a, [hl]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld hl, EnemyMonMaxHP + 1 ; $d219
|
||||
ld a, [hld]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld [Buffer1], a ; $d1ea (aliases: MagikarpLength)
|
||||
ld [EnemyMonHP + 1], a ; $d217
|
||||
ld a, [hl]
|
||||
ld [de], a
|
||||
ld [Buffer2], a ; $d1eb (aliases: MovementType)
|
||||
ld [EnemyMonHP], a ; $d216 (aliases: EnemyMonHP)
|
||||
jr asm_38436
|
||||
; 383e8 (e:43e8)
|
||||
|
||||
Function383e8: ; 383e8
|
||||
ld a, POTION
|
||||
ld b, 20
|
||||
jr Function383f8
|
||||
|
||||
Function383ee: ; 383ee
|
||||
ld a, SUPER_POTION
|
||||
ld b, 50
|
||||
jr Function383f8
|
||||
|
||||
; known jump sources: 3828c (e:428c)
|
||||
Function383f4: ; 383f4 (e:43f4)
|
||||
ld a, HYPER_POTION
|
||||
ld b, 200
|
||||
|
||||
Function383f8: ; 383f8
|
||||
ld [$d1f1], a
|
||||
ld hl, EnemyMonHP + 1 ; $d217
|
||||
ld a, [hl]
|
||||
ld [$d1ec], a
|
||||
add b
|
||||
ld [hld], a
|
||||
ld [$d1ee], a
|
||||
ld a, [hl]
|
||||
ld [$d1ed], a
|
||||
ld [$d1ef], a
|
||||
jr nc, .asm_38415
|
||||
inc a
|
||||
ld [hl], a
|
||||
ld [$d1ef], a
|
||||
.asm_38415
|
||||
inc hl
|
||||
ld a, [hld]
|
||||
ld b, a
|
||||
ld de, EnemyMonMaxHP + 1 ; $d219
|
||||
ld a, [de]
|
||||
dec de
|
||||
ld [Buffer1], a ; $d1ea (aliases: MagikarpLength)
|
||||
sub b
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [de]
|
||||
ld [Buffer2], a ; $d1eb (aliases: MovementType)
|
||||
sbc b
|
||||
jr nc, asm_38436
|
||||
inc de
|
||||
ld a, [de]
|
||||
dec de
|
||||
ld [hld], a
|
||||
ld [$d1ee], a
|
||||
ld a, [de]
|
||||
ld [hl], a
|
||||
ld [$d1ef], a
|
||||
asm_38436: ; 38436 (e:4436)
|
||||
call Function38571
|
||||
hlcoord 2, 2
|
||||
xor a
|
||||
ld [$d10a], a
|
||||
call Function3839a
|
||||
ld a, $b
|
||||
call Predef
|
||||
jp Function38387
|
||||
|
||||
|
||||
Function3844b: ; 3844b
|
||||
ld a, [OTPartyCount]
|
||||
ld c, a
|
||||
ld hl, OTPartyMon1HP
|
||||
ld d, 0
|
||||
.asm_38454
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [hld]
|
||||
or b
|
||||
jr z, .asm_3845b
|
||||
inc d
|
||||
|
||||
.asm_3845b
|
||||
push bc
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
add hl, bc
|
||||
pop bc
|
||||
dec c
|
||||
jr nz, .asm_38454
|
||||
ld a, d
|
||||
cp $2
|
||||
jp nc, Function3846c
|
||||
and a
|
||||
ret
|
||||
; 3846c
|
||||
|
||||
Function3846c: ; 3846c
|
||||
ld a, $1
|
||||
ld [$c711], a
|
||||
ld [$c70f], a
|
||||
ld hl, EnemySubStatus4
|
||||
res SUBSTATUS_RAGE, [hl]
|
||||
xor a
|
||||
ld [hBattleTurn], a
|
||||
callab Function3dc5b
|
||||
push af
|
||||
ld a, [CurOTMon]
|
||||
ld hl, OTPartyMon1Status
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
call AddNTimes
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld hl, EnemyMonStatus
|
||||
ld bc, $0004
|
||||
call CopyBytes
|
||||
pop af
|
||||
jr c, .asm_384a3
|
||||
ld hl, UnknownText_0x384d0
|
||||
call PrintText
|
||||
|
||||
.asm_384a3
|
||||
ld a, $1
|
||||
ld [$d264], a
|
||||
callab NewEnemyMonStatus
|
||||
callab ResetEnemyStatLevels
|
||||
ld hl, PlayerSubStatus1
|
||||
res SUBSTATUS_IN_LOVE, [hl]
|
||||
callba Function3d4e1
|
||||
callba Function3d57a
|
||||
xor a
|
||||
ld [$d264], a
|
||||
ld a, [InLinkBattle]
|
||||
and a
|
||||
ret nz
|
||||
scf
|
||||
ret
|
||||
; 384d0
|
||||
|
||||
UnknownText_0x384d0: ; 384d0
|
||||
text_jump UnknownText_0x1bcf9c
|
||||
db "@"
|
||||
; 384d5
|
||||
|
||||
Function384d5: ; 384d5
|
||||
call Function3839a
|
||||
call Function384e0
|
||||
ld a, X_SPEED
|
||||
jp Function38568
|
||||
; 384e0
|
||||
|
||||
Function384e0: ; 384e0
|
||||
ld a, [CurOTMon]
|
||||
ld hl, OTPartyMon1Status
|
||||
ld bc, PartyMon2 - PartyMon1
|
||||
call AddNTimes
|
||||
xor a
|
||||
ld [hl], a
|
||||
ld [EnemyMonStatus], a
|
||||
ld hl, EnemySubStatus5
|
||||
res SUBSTATUS_TOXIC, [hl]
|
||||
ret
|
||||
; 384f7
|
||||
|
||||
Function384f7: ; 384f7
|
||||
call Function3839a
|
||||
ld hl, EnemySubStatus4
|
||||
set SUBSTATUS_UNLEASH, [hl]
|
||||
ld a, X_ACCURACY
|
||||
jp Function38568
|
||||
; 38504
|
||||
|
||||
Function38504: ; 38504
|
||||
call Function3839a
|
||||
ld hl, EnemySubStatus4
|
||||
set SUBSTATUS_MIST, [hl]
|
||||
ld a, GUARD_SPEC
|
||||
jp Function38568
|
||||
; 38511
|
||||
|
||||
Function38511: ; 38511
|
||||
call Function3839a
|
||||
ld hl, EnemySubStatus4
|
||||
set SUBSTATUS_FOCUS_ENERGY, [hl]
|
||||
ld a, DIRE_HIT
|
||||
jp Function38568
|
||||
; 3851e
|
||||
|
||||
Function3851e: ; 3851e
|
||||
ld [hMultiplier], a
|
||||
ld hl, EnemyMonMaxHP
|
||||
ld a, [hli]
|
||||
ld [hProduct], a
|
||||
ld a, [hl]
|
||||
ld [hMultiplicand], a
|
||||
ld b, $2
|
||||
call Divide
|
||||
ld a, [$ffb6]
|
||||
ld c, a
|
||||
ld a, [$ffb5]
|
||||
ld b, a
|
||||
ld hl, EnemyMonHP + 1
|
||||
ld a, [hld]
|
||||
ld e, a
|
||||
ld a, [hl]
|
||||
ld d, a
|
||||
ld a, d
|
||||
sub b
|
||||
ret nz
|
||||
ld a, e
|
||||
sub c
|
||||
ret
|
||||
; 38541
|
||||
|
||||
Function38541: ; 38541
|
||||
ld b, ATTACK
|
||||
ld a, X_ATTACK
|
||||
jr Function38557
|
||||
; 38547
|
||||
|
||||
Function38547: ; 38547
|
||||
ld b, DEFENSE
|
||||
ld a, X_DEFEND
|
||||
jr Function38557
|
||||
; 3854d
|
||||
|
||||
Function3854d: ; 3854d
|
||||
ld b, SPEED
|
||||
ld a, X_SPEED
|
||||
jr Function38557
|
||||
; 38553
|
||||
|
||||
Function38553: ; 38553
|
||||
ld b, SP_ATTACK
|
||||
ld a, X_SPECIAL
|
||||
|
||||
Function38557
|
||||
ld [$d1f1], a
|
||||
push bc
|
||||
call Function38571
|
||||
pop bc
|
||||
callba Function361ef
|
||||
jp Function38387
|
||||
; 38568
|
||||
|
||||
|
||||
Function38568: ; 38568
|
||||
ld [$d1f1], a
|
||||
call Function38571
|
||||
jp Function38387
|
||||
; 38571
|
||||
|
||||
Function38571: ; 38571
|
||||
ld a, [$d1f1]
|
||||
ld [$d265], a
|
||||
call GetItemName
|
||||
ld hl, StringBuffer1
|
||||
ld de, $d050
|
||||
ld bc, $000d
|
||||
call CopyBytes
|
||||
ld hl, UnknownText_0x3858c
|
||||
jp PrintText
|
||||
; 3858c
|
||||
|
||||
UnknownText_0x3858c: ; 3858c
|
||||
text_jump UnknownText_0x1bcfaf
|
||||
db "@"
|
||||
; 38591
|
||||
|
||||
INCLUDE "battle/ai/items.asm"
|
||||
|
||||
AIScoring: ; 38591
|
||||
INCLUDE "battle/ai/scoring.asm"
|
||||
|
|
|
|||
Loading…
Reference in New Issue