pokered/engine/battle/moveEffects/leech_seed_effect.asm

LeechSeedEffect_:
	callab MoveHitTest
	ld a, [wMoveMissed]
	and a
	jr nz, .moveMissed
	ld hl, wEnemyBattleStatus2
	ld de, wEnemyMonType1
	ld a, [H_WHOSETURN]
	and a
	jr z, .leechSeedEffect
	ld hl, wPlayerBattleStatus2
	ld de, wBattleMonType1
.leechSeedEffect
; miss if the target is grass-type or already seeded
	ld a, [de]
	cp GRASS
	jr z, .moveMissed
	inc de
	ld a, [de]
	cp GRASS
	jr z, .moveMissed
	bit Seeded, [hl]
	jr nz, .moveMissed
	set Seeded, [hl]
	callab PlayCurrentMoveAnimation
	ld hl, WasSeededText
	jp PrintText
.moveMissed
	ld c, 50
	call DelayFrames
	ld hl, EvadedAttackText
	jp PrintText

WasSeededText:
	TX_FAR _WasSeededText
	db "@"

EvadedAttackText:
	TX_FAR _EvadedAttackText
	db "@"
remove address comments 2016-06-12 00:24:04 +00:00			`LeechSeedEffect_:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`callab MoveHitTest`
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`
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 nz, .moveMissed`
No more W_ 2015-08-31 02:38:41 +00:00			`ld hl, wEnemyBattleStatus2`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld de, wEnemyMonType1`
			`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`
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, .leechSeedEffect`
No more W_ 2015-08-31 02:38:41 +00:00			`ld hl, wPlayerBattleStatus2`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld de, wBattleMonType1`
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			`.leechSeedEffect`
			`; miss if the target is grass-type or already seeded`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [de]`
			`cp GRASS`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`jr z, .moveMissed`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc de`
			`ld a, [de]`
			`cp GRASS`
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, .moveMissed`
add constants for volatile statuses and more battle labels/commentary/constants 2015-02-03 19:51:53 +00:00			`bit Seeded, [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			`jr nz, .moveMissed`
add constants for volatile statuses and more battle labels/commentary/constants 2015-02-03 19:51:53 +00:00			`set Seeded, [hl]`
commented battle stuff 2015-02-08 00:24:16 +00:00			`callab PlayCurrentMoveAnimation`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld hl, WasSeededText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp PrintText`
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			`.moveMissed`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`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`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld hl, EvadedAttackText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp PrintText`

remove address comments 2016-06-12 00:24:04 +00:00			`WasSeededText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _WasSeededText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`EvadedAttackText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _EvadedAttackText`
			`db "@"`