1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
Poison50PercentEffect: ; 2c000 (b:4000)
text_de PoisonCheckText
call TossCoin_BankB
ret nc
PoisonEffect: ; 2c007 (b:4007)
lb bc, $0f, POISONED
jr applyEffect
lb bc, $0f, DOUBLE_POISONED
jr applyEffect
Paralysis50PercentEffect: ; 2c011 (b:4011)
text_de ParalysisCheckText
call TossCoin_BankB
ret nc
lb bc, $f0, PARALYZED
jr applyEffect
Confusion50PercentEffect: ; 2c01d (b:401d)
text_de ConfusionCheckText
call TossCoin_BankB
ret nc
lb bc, $f0, CONFUSED
jr applyEffect
text_de SleepCheckText
call TossCoin_BankB
ret nc
SleepEffect: ; 2c030 (b:4030)
lb bc, $f0, ASLEEP
jr applyEffect
applyEffect
ldh a, [hWhoseTurn]
ld hl, wcc05
cp [hl]
jr nz, .canInduceStatus
ld a, [wTempNonTurnDuelistCardId]
cp CLEFAIRY_DOLL
jr z, .cantInduceStatus
cp MYSTERIOUS_FOSSIL
jr z, .cantInduceStatus
; snorlax's thick skinned prevents it from being statused...
cp SNORLAX
jr nz, .canInduceStatus
call SwapTurn
xor a
; ...unless already so, or if affected by muk's toxic gas
call CheckIfUnderAnyCannotUseStatus2
call SwapTurn
jr c, .canInduceStatus
.cantInduceStatus
ld a, c
ld [wccf1], a
call Func_2c09c
or a
ret
.canInduceStatus
ld hl, wcccd
push hl
ld e, [hl]
ld d, $0
ld hl, wccce
add hl, de
call SwapTurn
ldh a, [hWhoseTurn]
ld [hli], a
call SwapTurn
ld [hl], b
inc hl
ld [hl], c
pop hl
inc [hl]
inc [hl]
inc [hl]
scf
ret
; 0x2c07e
TossCoin_BankB: ; 2c07e (b:407e)
call TossCoin
ret
; 0x2c082
INCBIN "baserom.gbc",$2c082,$2c09c - $2c082
Func_2c09c: ; 2c09c (b:409c)
ld a, $1
ld [wcced], a
ret
; 0x2c0a2
INCBIN "baserom.gbc",$2c0a2,$2c149 - $2c0a2
; apply a status condition identified by register a to the target if able
ApplySubstatus2ToDefendingCard: ; 2c149 (b:4149)
push af
call CheckNoDamageOrEffect
jr c, .noDamageOrEffect
ld a, DUELVARS_ARENA_CARD_SUBSTATUS2
call GetNonTurnDuelistVariable
pop af
ld [hl], a
ld l, $f6
ld [hl], a
ret
.noDamageOrEffect
pop af
push hl
bank1call $4f9d
pop hl
ld a, l
or h
call nz, DrawWideTextBox_PrintText
ret
; 0x2c166
INCBIN "baserom.gbc",$2c166,$2c6f8 - $2c166
SpitPoison_Poison50PercentEffect: ; 2c6f8 (b:46f8)
text_de PoisonCheckText
call TossCoin_BankB
jp c, PoisonEffect
ld a, $8c
ld [wLoadedMoveAnimation], a
call Func_2c09c
ret
; 0x2c70a
INCBIN "baserom.gbc",$2c70a,$2c77e - $2c70a
AcidEffect: ; 2c77e (b:477e)
text_de AcidCheckText
call TossCoin_BankB
ret nc
ld a, SUBSTATUS2_UNABLE_RETREAT
call ApplySubstatus2ToDefendingCard
ret
; 0x2c78b
INCBIN "baserom.gbc",$2c78b,$30000 - $2c78b
|
