pokered/engine/battle/moveEffects/paralyze_effect.asm

ParalyzeEffect_: ; 52601 (14:6601)
	ld hl, wEnemyMonStatus
	ld de, W_PLAYERMOVETYPE
	ld a, [H_WHOSETURN]
	and a
	jp z, .next
	ld hl, wBattleMonStatus
	ld de, W_ENEMYMOVETYPE
.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
	callab MoveHitTest
	pop hl
	ld a, [W_MOVEMISSED]
	and a
	jr nz, .didntAffect
	set PAR, [hl]
	callab QuarterSpeedDueToParalysis
	ld c, 30
	call DelayFrames
	callab PlayCurrentMoveAnimation
	ld hl, PrintMayNotAttackText
	ld b, BANK(PrintMayNotAttackText)
	jp Bankswitch
.didntAffect
	ld c, 50
	call DelayFrames
	ld hl, PrintDidntAffectText
	ld b, BANK(PrintDidntAffectText)
	jp Bankswitch
.doesntAffect
	ld c, 50
	call DelayFrames
	ld hl, PrintDoesntAffectText
	ld b, BANK(PrintDoesntAffectText)
	jp Bankswitch
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ParalyzeEffect_: ; 52601 (14:6601)`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld hl, wEnemyMonStatus`
			`ld de, W_PLAYERMOVETYPE`
			`ld a, [H_WHOSETURN]`
$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`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld de, W_ENEMYMOVETYPE`
			`.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`
			`callab MoveHitTest`
			`pop hl`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld a, [W_MOVEMISSED]`
$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]`
Labelled many functions/variables 2014-08-09 05:39:13 +00:00			`callab 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`
commented battle stuff 2015-02-08 00:24:16 +00:00			`callab PlayCurrentMoveAnimation`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, PrintMayNotAttackText`
			`ld b, BANK(PrintMayNotAttackText)`
			`jp Bankswitch`
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`
			`ld hl, PrintDidntAffectText`
			`ld b, BANK(PrintDidntAffectText)`
			`jp Bankswitch`
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`
			`ld hl, PrintDoesntAffectText`
			`ld b, BANK(PrintDoesntAffectText)`
			`jp Bankswitch`