pokered/engine/battle/moveEffects/pay_day_effect.asm

PayDayEffect_:
	xor a
	ld hl, wcd6d
	ld [hli], a
	ld a, [H_WHOSETURN]
	and a
	ld a, [wBattleMonLevel]
	jr z, .payDayEffect
	ld a, [wEnemyMonLevel]
.payDayEffect
; level * 2
	add a
	ld [H_DIVIDEND + 3], a
	xor a
	ld [H_DIVIDEND], a
	ld [H_DIVIDEND + 1], a
	ld [H_DIVIDEND + 2], a
; convert to BCD
	ld a, 100
	ld [H_DIVISOR], a
	ld b, $4
	call Divide
	ld a, [H_QUOTIENT + 3]
	ld [hli], a
	ld a, [H_REMAINDER]
	ld [H_DIVIDEND + 3], a
	ld a, 10
	ld [H_DIVISOR], a
	ld b, $4
	call Divide
	ld a, [H_QUOTIENT + 3]
	swap a
	ld b, a
	ld a, [H_REMAINDER]
	add b
	ld [hl], a
	ld de, wTotalPayDayMoney + 2
	ld c, $3
	predef AddBCDPredef
	ld hl, CoinsScatteredText
	jp PrintText

CoinsScatteredText:
	TX_FAR _CoinsScatteredText
	db "@"
remove address comments 2016-06-12 00:24:04 +00:00			`PayDayEffect_:`
Rename battle files and split move effects Part 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`xor a`
			`ld hl, wcd6d`
			`ld [hli], a`
			`ld a, [H_WHOSETURN]`
			`and a`
			`ld a, [wBattleMonLevel]`
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, .payDayEffect`
Rename battle files and split move effects Part 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`ld a, [wEnemyMonLevel]`
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			`.payDayEffect`
			`; level * 2`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`add a`
Rename battle files and split move effects Part 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`ld [H_DIVIDEND + 3], a`
			`xor a`
			`ld [H_DIVIDEND], a`
			`ld [H_DIVIDEND + 1], a`
			`ld [H_DIVIDEND + 2], a`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; convert to BCD`
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			`ld a, 100`
Rename battle files and split move effects Part 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`ld [H_DIVISOR], a`
			`ld b, $4`
			`call Divide`
			`ld a, [H_QUOTIENT + 3]`
$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 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`ld a, [H_REMAINDER]`
			`ld [H_DIVIDEND + 3], 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			`ld a, 10`
Rename battle files and split move effects Part 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`ld [H_DIVISOR], a`
			`ld b, $4`
			`call Divide`
			`ld a, [H_QUOTIENT + 3]`
			`swap a`
			`ld b, a`
			`ld a, [H_REMAINDER]`
			`add b`
			`ld [hl], a`
			`ld de, wTotalPayDayMoney + 2`
			`ld c, $3`
			`predef AddBCDPredef`
			`ld hl, CoinsScatteredText`
			`jp PrintText`

remove address comments 2016-06-12 00:24:04 +00:00			`CoinsScatteredText:`
Rename battle files and split move effects Part 3 b.asm, b_2.asm, c.asm, and d.asm 2015-04-01 14:16:43 +00:00			`TX_FAR _CoinsScatteredText`
			`db "@"`