pokered/engine/battle/move_effects/paralyze.asm

ParalyzeEffect_:
	ld hl, wEnemyMonStatus
	ld de, wPlayerMoveType
	ldh a, [hWhoseTurn]
	and a
	jp z, .next
	ld hl, wBattleMonStatus
	ld de, wEnemyMoveType
.next
	ld a, [hl]
	and a ; does the target already have a status ailment?
	jr nz, .didntAffect
; check if the target is immune due to types
	ld a, [de]
	cp ELECTRIC
	jr nz, .hitTest
	ld b, h
	ld c, l
	inc bc
	ld a, [bc]
	cp GROUND
	jr z, .doesntAffect
	inc bc
	ld a, [bc]
	cp GROUND
	jr z, .doesntAffect
.hitTest
	push hl
	callfar MoveHitTest
	pop hl
	ld a, [wMoveMissed]
	and a
	jr nz, .didntAffect
	set PAR, [hl]
	callfar QuarterSpeedDueToParalysis
	ld c, 30
	call DelayFrames
	callfar PlayCurrentMoveAnimation
	jpfar PrintMayNotAttackText
.didntAffect
	ld c, 50
	call DelayFrames
	jpfar PrintDidntAffectText
.doesntAffect
	ld c, 50
	call DelayFrames
	jpfar PrintDoesntAffectText
remove address comments 2016-06-12 00:24:04 +00:00			`ParalyzeEffect_:`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld hl, wEnemyMonStatus`
No more W_ 2015-08-31 02:38:41 +00:00			`ld de, wPlayerMoveType`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hWhoseTurn]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
commented battle stuff 2015-02-08 00:24:16 +00:00			`jp z, .next`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld hl, wBattleMonStatus`
No more W_ 2015-08-31 02:38:41 +00:00			`ld de, wEnemyMoveType`
commented battle stuff 2015-02-08 00:24:16 +00:00			`.next`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hl]`
commented battle stuff 2015-02-08 00:24:16 +00:00			`and a ; does the target already have a status ailment?`
			`jr nz, .didntAffect`
			`; check if the target is immune due to types`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [de]`
commented battle stuff 2015-02-08 00:24:16 +00:00			`cp ELECTRIC`
			`jr nz, .hitTest`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, h`
			`ld c, l`
			`inc bc`
			`ld a, [bc]`
commented battle stuff 2015-02-08 00:24:16 +00:00			`cp GROUND`
			`jr z, .doesntAffect`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc bc`
			`ld a, [bc]`
commented battle stuff 2015-02-08 00:24:16 +00:00			`cp GROUND`
			`jr z, .doesntAffect`
			`.hitTest`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push hl`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`callfar MoveHitTest`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop hl`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wMoveMissed]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
commented battle stuff 2015-02-08 00:24:16 +00:00			`jr nz, .didntAffect`
add constants for volatile statuses and more battle labels/commentary/constants 2015-02-03 19:51:53 +00:00			`set PAR, [hl]`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`callfar QuarterSpeedDueToParalysis`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld c, 30`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrames`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`callfar PlayCurrentMoveAnimation`
			`jpfar PrintMayNotAttackText`
commented battle stuff 2015-02-08 00:24:16 +00:00			`.didntAffect`
			`ld c, 50`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrames`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`jpfar PrintDidntAffectText`
commented battle stuff 2015-02-08 00:24:16 +00:00			`.doesntAffect`
			`ld c, 50`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrames`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`jpfar PrintDoesntAffectText`