pokered/engine/battle/moveEffects/haze_effect.asm

HazeEffect_:
	ld a, $7
; store 7 on every stat mod
	ld hl, wPlayerMonAttackMod
	call ResetStatMods
	ld hl, wEnemyMonAttackMod
	call ResetStatMods
; copy unmodified stats to battle stats
	ld hl, wPlayerMonUnmodifiedAttack
	ld de, wBattleMonAttack
	call ResetStats
	ld hl, wEnemyMonUnmodifiedAttack
	ld de, wEnemyMonAttack
	call ResetStats
	ld hl, wEnemyMonStatus
	ld de, wEnemySelectedMove
	ld a, [H_WHOSETURN]
	and a
	jr z, .cureStatuses
	ld hl, wBattleMonStatus
	dec de ; wPlayerSelectedMove

.cureStatuses
	ld a, [hl]
	ld [hl], $0
	and SLP | (1 << FRZ)
	jr z, .cureVolatileStatuses
; prevent the Pokemon from executing a move if it was asleep or frozen
	ld a, $ff
	ld [de], a

.cureVolatileStatuses
	xor a
	ld [wPlayerDisabledMove], a
	ld [wEnemyDisabledMove], a
	ld hl, wPlayerDisabledMoveNumber
	ld [hli], a
	ld [hl], a
	ld hl, wPlayerBattleStatus1
	call CureVolatileStatuses
	ld hl, wEnemyBattleStatus1
	call CureVolatileStatuses
	ld hl, PlayCurrentMoveAnimation
	call CallBankF
	ld hl, StatusChangesEliminatedText
	jp PrintText

CureVolatileStatuses:
; only cures statuses of the Pokemon not using Haze
	res Confused, [hl]
	inc hl ; BATTSTATUS2
	ld a, [hl]
	; clear UsingXAccuracy, ProtectedByMist, GettingPumped, and Seeded statuses
	and $ff ^((1 << UsingXAccuracy) | (1 << ProtectedByMist) | (1 << GettingPumped) | (1 << Seeded))
	ld [hli], a ; BATTSTATUS3
	ld a, [hl]
	and %11110000 | (1 << Transformed) ; clear Bad Poison, Reflect and Light Screen statuses
	ld [hl], a
	ret

ResetStatMods:
	ld b, $8
.loop
	ld [hli], a
	dec b
	jr nz, .loop
	ret

ResetStats:
	ld b, $8
.loop
	ld a, [hli]
	ld [de], a
	inc de
	dec b
	jr nz, .loop
	ret

StatusChangesEliminatedText:
	TX_FAR _StatusChangesEliminatedText
	db "@"
remove address comments 2016-06-12 00:24:04 +00:00			`HazeEffect_:`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld a, $7`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; store 7 on every stat mod`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld hl, wPlayerMonAttackMod`
			`call ResetStatMods`
			`ld hl, wEnemyMonAttackMod`
			`call ResetStatMods`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; copy unmodified stats to battle stats`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld hl, wPlayerMonUnmodifiedAttack`
			`ld de, wBattleMonAttack`
			`call ResetStats`
			`ld hl, wEnemyMonUnmodifiedAttack`
			`ld de, wEnemyMonAttack`
			`call ResetStats`
			`ld hl, wEnemyMonStatus`
			`ld de, wEnemySelectedMove`
			`ld a, [H_WHOSETURN]`
			`and a`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr z, .cureStatuses`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld hl, wBattleMonStatus`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`dec de ; wPlayerSelectedMove`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.cureStatuses`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld a, [hl]`
			`ld [hl], $0`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`and SLP \| (1 << FRZ)`
			`jr z, .cureVolatileStatuses`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; prevent the Pokemon from executing a move if it was asleep or frozen`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld a, $ff`
			`ld [de], a`

Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.cureVolatileStatuses`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`xor a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wPlayerDisabledMove], a`
			`ld [wEnemyDisabledMove], a`
Document DisableEffect and CheckEnemyStatusConditions basically copy/paste comments and labels from CheckPlayerStatusConditions 2015-04-08 23:17:56 +00:00			`ld hl, wPlayerDisabledMoveNumber`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld [hli], a`
			`ld [hl], a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld hl, wPlayerBattleStatus1`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`call CureVolatileStatuses`
No more W_ 2015-08-31 02:38:41 +00:00			`ld hl, wEnemyBattleStatus1`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`call CureVolatileStatuses`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld hl, PlayCurrentMoveAnimation`
			`call CallBankF`
			`ld hl, StatusChangesEliminatedText`
			`jp PrintText`

remove address comments 2016-06-12 00:24:04 +00:00			`CureVolatileStatuses:`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`; only cures statuses of the Pokemon not using Haze`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`res Confused, [hl]`
			`inc hl ; BATTSTATUS2`
			`ld a, [hl]`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`; clear UsingXAccuracy, ProtectedByMist, GettingPumped, and Seeded statuses`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`and $ff ^((1 << UsingXAccuracy) \| (1 << ProtectedByMist) \| (1 << GettingPumped) \| (1 << Seeded))`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld [hli], a ; BATTSTATUS3`
			`ld a, [hl]`
			`and %11110000 \| (1 << Transformed) ; clear Bad Poison, Reflect and Light Screen statuses`
			`ld [hl], a`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`ResetStatMods:`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld b, $8`
			`.loop`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld [hli], a`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`dec b`
			`jr nz, .loop`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`ResetStats:`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`ld b, $8`
			`.loop`
			`ld a, [hli]`
			`ld [de], a`
			`inc de`
			`dec b`
			`jr nz, .loop`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`StatusChangesEliminatedText:`
Rename battle files and split move effects Part 1 1.asm, 4.asm, and 4_2.asm 2015-04-01 09:23:27 +00:00			`TX_FAR _StatusChangesEliminatedText`
			`db "@"`