ref: 056cd5e871c823d45767c520cc169dcac5d986b3
dir: /engine/events/poisonstep.asm/
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_jump UnknownText_0x1c0acc db "@" .PoisonWhiteOutText: text_jump UnknownText_0x1c0ada db "@"