CoCalc -- drain

GitHub Repository: pret/pokered
Path: blob/master/engine/battle/move_effects/drain_hp.asm
¹²⁷¹ views
1
DrainHPEffect_:
2
	ld hl, wDamage
3
	ld a, [hl]
4
	srl a ; divide damage by 2
5
	ld [hli], a
6
	ld a, [hl]
7
	rr a
8
	ld [hld], a
9
	or [hl] ; is damage 0?
10
	jr nz, .getAttackerHP
11
; if damage is 0, increase to 1 so that the attacker gains at least 1 HP
12
	inc hl
13
	inc [hl]
14
.getAttackerHP
15
	ld hl, wBattleMonHP
16
	ld de, wBattleMonMaxHP
17
	ldh a, [hWhoseTurn]
18
	and a
19
	jp z, .addDamageToAttackerHP
20
	ld hl, wEnemyMonHP
21
	ld de, wEnemyMonMaxHP
22
.addDamageToAttackerHP
23
	ld bc, wHPBarOldHP+1
24
; copy current HP to wHPBarOldHP
25
	ld a, [hli]
26
	ld [bc], a
27
	ld a, [hl]
28
	dec bc
29
	ld [bc], a
30
; copy max HP to wHPBarMaxHP
31
	ld a, [de]
32
	dec bc
33
	ld [bc], a
34
	inc de
35
	ld a, [de]
36
	dec bc
37
	ld [bc], a
38
; add damage to attacker's HP and copy new HP to wHPBarNewHP
39
	ld a, [wDamage + 1]
40
	ld b, [hl]
41
	add b
42
	ld [hld], a
43
	ld [wHPBarNewHP], a
44
	ld a, [wDamage]
45
	ld b, [hl]
46
	adc b
47
	ld [hli], a
48
	ld [wHPBarNewHP+1], a
49
	jr c, .capToMaxHP ; if HP > 65,535, cap to max HP
50
; compare HP with max HP
51
	ld a, [hld]
52
	ld b, a
53
	ld a, [de]
54
	dec de
55
	sub b
56
	ld a, [hli]
57
	ld b, a
58
	ld a, [de]
59
	inc de
60
	sbc b
61
	jr nc, .next
62
.capToMaxHP
63
	ld a, [de]
64
	ld [hld], a
65
	ld [wHPBarNewHP], a
66
	dec de
67
	ld a, [de]
68
	ld [hli], a
69
	ld [wHPBarNewHP+1], a
70
	inc de
71
.next
72
	ldh a, [hWhoseTurn]
73
	and a
74
	hlcoord 10, 9
75
	ld a, $1
76
	jr z, .next2
77
	hlcoord 2, 2
78
	xor a
79
.next2
80
	ld [wHPBarType], a
81
	predef UpdateHPBar2
82
	predef DrawPlayerHUDAndHPBar
83
	predef DrawEnemyHUDAndHPBar
84
	callfar ReadPlayerMonCurHPAndStatus
85
	ld hl, SuckedHealthText
86
	ldh a, [hWhoseTurn]
87
	and a
88
	ld a, [wPlayerMoveEffect]
89
	jr z, .next3
90
	ld a, [wEnemyMoveEffect]
91
.next3
92
	cp DREAM_EATER_EFFECT
93
	jr nz, .printText
94
	ld hl, DreamWasEatenText
95
.printText
96
	jp PrintText
97

98
SuckedHealthText:
99
	text_far _SuckedHealthText
100
	text_end
101

102
DreamWasEatenText:
103
	text_far _DreamWasEatenText
104
	text_end
105

106
Product

Resources

Company
