mirror of https://github.com/pret/pokecrystal.git
155 lines
2.4 KiB
NASM
155 lines
2.4 KiB
NASM
DoPoisonStep::
|
|
ld a, [wPartyCount]
|
|
and a
|
|
jr z, .no_faint
|
|
|
|
xor a
|
|
ld c, 7
|
|
ld hl, wEngineBuffer1
|
|
.loop_clearEngineBuffer1
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loop_clearEngineBuffer1
|
|
|
|
xor a
|
|
ld [wCurPartyMon], a
|
|
.loop_check_poison
|
|
call .DamageMonIfPoisoned
|
|
jr nc, .not_poisoned
|
|
; the output flag is stored in c, copy it to the ([wCurPartyMon] + 2)nd EngineBuffer
|
|
; and set the corresponding flag in wEngineBuffer1
|
|
ld a, [wCurPartyMon]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, wEngineBuffer2
|
|
add hl, de
|
|
ld [hl], c
|
|
ld a, [wEngineBuffer1]
|
|
or c
|
|
ld [wEngineBuffer1], a
|
|
|
|
.not_poisoned
|
|
ld a, [wPartyCount]
|
|
ld hl, wCurPartyMon
|
|
inc [hl]
|
|
cp [hl]
|
|
jr nz, .loop_check_poison
|
|
|
|
ld a, [wEngineBuffer1]
|
|
and %10
|
|
jr nz, .someone_has_fainted
|
|
ld a, [wEngineBuffer1]
|
|
and %01
|
|
jr z, .no_faint
|
|
call .PlayPoisonSFX
|
|
xor a
|
|
ret
|
|
|
|
.someone_has_fainted
|
|
ld a, BANK(.Script_MonFaintedToPoison)
|
|
ld hl, .Script_MonFaintedToPoison
|
|
call CallScript
|
|
scf
|
|
ret
|
|
|
|
.no_faint
|
|
xor a
|
|
ret
|
|
|
|
.DamageMonIfPoisoned:
|
|
; check if mon is poisoned, return if not
|
|
ld a, MON_STATUS
|
|
call GetPartyParamLocation
|
|
ld a, [hl]
|
|
and 1 << PSN
|
|
ret z
|
|
|
|
; check if mon is already fainted, return if so
|
|
ld a, MON_HP
|
|
call GetPartyParamLocation
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld c, [hl]
|
|
or c
|
|
ret z
|
|
|
|
; do 1 HP damage
|
|
dec bc
|
|
ld [hl], c
|
|
dec hl
|
|
ld [hl], b
|
|
|
|
; check if mon has fainted as a result of poison damage
|
|
ld a, b
|
|
or c
|
|
jr nz, .not_fainted
|
|
|
|
; the mon has fainted, reset its status, set carry, and return %10
|
|
ld a, MON_STATUS
|
|
call GetPartyParamLocation
|
|
ld [hl], 0
|
|
ld c, %10
|
|
scf
|
|
ret
|
|
|
|
.not_fainted
|
|
; set carry and return %01
|
|
ld c, %01
|
|
scf
|
|
ret
|
|
|
|
.PlayPoisonSFX:
|
|
ld de, SFX_POISON
|
|
call PlaySFX
|
|
ld b, $2
|
|
predef LoadPoisonBGPals
|
|
call DelayFrame
|
|
ret
|
|
|
|
.Script_MonFaintedToPoison:
|
|
callasm .PlayPoisonSFX
|
|
opentext
|
|
callasm .CheckWhitedOut
|
|
iffalse .whiteout
|
|
closetext
|
|
end
|
|
|
|
.whiteout
|
|
farjump Script_OverworldWhiteout
|
|
|
|
.CheckWhitedOut:
|
|
xor a
|
|
ld [wCurPartyMon], a
|
|
ld de, wEngineBuffer2
|
|
.party_loop
|
|
push de
|
|
ld a, [de]
|
|
and %10
|
|
jr z, .mon_not_fainted
|
|
ld c, HAPPINESS_POISONFAINT
|
|
farcall ChangeHappiness
|
|
farcall GetPartyNick
|
|
ld hl, .PoisonFaintText
|
|
call PrintText
|
|
|
|
.mon_not_fainted
|
|
pop de
|
|
inc de
|
|
ld hl, wCurPartyMon
|
|
inc [hl]
|
|
ld a, [wPartyCount]
|
|
cp [hl]
|
|
jr nz, .party_loop
|
|
predef CheckPlayerPartyForFitMon
|
|
ld a, d
|
|
ld [wScriptVar], a
|
|
ret
|
|
|
|
.PoisonFaintText:
|
|
text_far UnknownText_0x1c0acc
|
|
db "@"
|
|
|
|
.PoisonWhiteOutText:
|
|
text_far UnknownText_0x1c0ada
|
|
db "@"
|