Paper Mario DX
Paper Mario (N64) modding
 
Loading...
Searching...
No Matches
foliage.cpp
Go to the documentation of this file.
1#include "foliage.hpp"
2
3namespace foliage {
4
5void setup_shear_mtx(Matrix4f mtx, f32 scale, f32 xAmount, f32 zAmount) {
6 guMtxIdentF(mtx);
7 mtx[1][0] = scale * xAmount;
8 mtx[1][1] = 1.0f;
9 mtx[1][2] = scale * zAmount;
10}
11
17API_CALLABLE(TransformFoliage) {
18 Bytecode* args = script->ptrReadPos;
19 s32 modelListIndex = get_model_list_index_from_tree_index(evt_get_variable(script, *args++));
20 f32 scale = evt_get_float_variable(script, *args++);
21 f32 dx = evt_get_float_variable(script, *args++);
22 f32 dy = evt_get_float_variable(script, *args++);
23 f32 dz = evt_get_float_variable(script, *args++);
24 Model* model = get_model_from_list_index(modelListIndex);
25 Matrix4f mtx;
26
27 if (!(model->flags & MODEL_FLAG_HAS_TRANSFORM)) {
28 guTranslateF(model->userTransformMtx, 0.0f, dy, 0.0f);
29 setup_shear_mtx(mtx, scale, dx, dz);
30 guMtxCatF(mtx, model->userTransformMtx, model->userTransformMtx);
31 guTranslateF(mtx, 0.0f, -dy, 0.0f);
32 guMtxCatF(mtx, model->userTransformMtx, model->userTransformMtx);
33 model->flags |= (MODEL_FLAG_HAS_TRANSFORM | MODEL_FLAG_MATRIX_DIRTY);
34 } else {
35 guTranslateF(mtx, 0.0f, dy, 0.0f);
36 guMtxCatF(mtx, model->userTransformMtx, model->userTransformMtx);
37 setup_shear_mtx(mtx, scale, dx, dz);
38 guMtxCatF(mtx, model->userTransformMtx, model->userTransformMtx);
39 guTranslateF(mtx, 0.0f, -dy, 0.0f);
40 guMtxCatF(mtx, model->userTransformMtx, model->userTransformMtx);
41 }
42
43 return ApiStatus_DONE2;
44}
45
46EvtScript EVS_SearchBush = {
47 UseBuf(LVar0) // SearchBushConfig
48 BufRead4(LVar1, LVar2, LVar3, LVar4) // bush, drops, vectors, callback
49 Call(GetPlayerPos, LVar5, LVarF, LVar7)
50 Thread
51 Set(LFlag0, FALSE)
52 IfNe(LVar1, 0)
53 Loop(5)
54 UseBuf(LVar1) // FoliageVectorList bush
55 BufRead1(LVar2) // count
56 BufRead1(LVarD) // vectors
57 UseBuf(LVarD) // *vectors
58 Loop(LVar2)
59 BufRead1(LVar3)
60 Call(TransformFoliage, LVar3, Float(0.1), 1, LVarF, 0)
61 IfEq(LFlag0, FALSE)
62 Set(LFlag0, TRUE)
63 Call(PlaySoundAtModel, LVar3, SOUND_SEARCH_BUSH, SOUND_SPACE_DEFAULT)
64 EndIf
65 EndLoop
66 Wait(1)
67 UseBuf(LVar1) // FoliageVectorList bush
68 BufRead1(LVar2) // count
69 BufRead1(LVarD) // vectors
70 UseBuf(LVarD) // *vectors
71 Loop(LVar2)
72 BufRead1(LVar3)
73 Call(TransformFoliage, LVar3, Float(0.1), -1, LVarF, 0)
74 EndLoop
75 Wait(1)
76 EndLoop
77 UseBuf(LVar1) // FoliageVectorList bush
78 BufRead1(LVar2) // count
79 BufRead1(LVarD) // vectors
80 UseBuf(LVarD) // *vectors
81 Loop(LVar2)
82 BufRead1(LVar3)
83 Call(TranslateModel, LVar3, 0, 0, 0)
84 EndLoop
85 Wait(1)
86 EndIf
87 EndThread
88 Thread
89 IfNe(LVar2, 0)
90 UseBuf(LVar2) // FoliageDropList drops
91 BufRead1(LVar3) // count
92 BufRead1(LVarD) // vectors
93 UseBuf(LVarD) // *vectors
94 Loop(LVar3)
95 BufRead1(LVar4)
96 BufRead3(LVar5, LVar6, LVar7)
97 BufRead3(LVar8, LVar9, LVarA)
98 IfEq(LVarA, 0)
99 Call(DropItemEntity, LVar4, LVar5, LVar6, LVar7, LVar8, LVar9)
100 Else
101 Call(GetValueByRef, LVarA, LVarB)
102 IfEq(LVarB, 0)
103 Call(SetValueByRef, LVarA, 1)
104 Call(DropItemEntity, LVar4, LVar5, LVar6, LVar7, LVar8, LVar9)
105 EndIf
106 EndIf
107 EndLoop
108 EndIf
109 EndThread
110 Wait(15)
111 IfNe(LVar4, 0)
112 ExecWait(LVar4)
113 EndIf
114 Return
115 End
116};
117
118EvtScript EVS_ShakeTree = {
119 SetTimescale(Float(2.0))
120 UseBuf(LVar0) // ShakeTreeConfig
121 BufRead4(LVar1, LVar2, LVar3, LVar4) // leaves, trunk, drops, vectors
122 BufRead1(LVar5) // callback
123 Call(GetPlayerPos, LVar6, LVarF, LVar8)
124 //Call(PlaySound, SOUND_SMACK_TREE)
125 //Call(PlaySound, SOUND_SHAKE_TREE_LEAVES)
126 Thread
127 Set(LFlag0, FALSE)
128 IfNe(LVar1, 0)
129 Wait(1)
130 Loop(5)
131 UseBuf(LVar1) // FoliageModelList leaves
132 BufRead1(LVar2) // count
133 BufRead1(LVarD) // models
134 UseBuf(LVarD) // *models
135 Loop(LVar2)
136 BufRead1(LVar3)
137 Call(TransformFoliage, LVar3, Float(0.1), Float(0.2), LVarF, 0)
138 IfEq(LFlag0, FALSE)
139 Set(LFlag0, TRUE)
140 Call(PlaySoundAtModel, LVar3, SOUND_SHAKE_TREE_LEAVES, SOUND_SPACE_DEFAULT)
141 EndIf
142 EndLoop
143 Wait(1)
144 UseBuf(LVar1) // FoliageModelList leaves
145 BufRead1(LVar2) // count
146 BufRead1(LVarD) // models
147 UseBuf(LVarD) // *models
148 Loop(LVar2)
149 BufRead1(LVar3)
150 Call(TransformFoliage, LVar3, Float(0.1), Float(-0.2), LVarF, 0)
151 EndLoop
152 Wait(1)
153 EndLoop
154 UseBuf(LVar1) // FoliageModelList leaves
155 BufRead1(LVar2) // count
156 BufRead1(LVarD) // models
157 UseBuf(LVarD) // *models
158 Loop(LVar2)
159 BufRead1(LVar3)
160 Call(TranslateModel, LVar3, 0, 0, 0)
161 EndLoop
162 Wait(1)
163 EndIf
164 EndThread
165 Thread
166 Set(LFlag0, FALSE)
167 IfNe(LVar2, 0)
168 Loop(5)
169 UseBuf(LVar2) // FoliageModelList trunk
170 BufRead1(LVar3) // count
171 BufRead1(LVarD) // models
172 UseBuf(LVarD) // *models
173 Loop(LVar3)
174 BufRead1(LVar4)
175 Call(TransformFoliage, LVar4, Float(0.1), Float(0.2), LVarF, 0)
176 IfEq(LFlag0, FALSE)
177 Set(LFlag0, TRUE)
178 Call(PlaySoundAtModel, LVar4, SOUND_SMACK_TREE, SOUND_SPACE_DEFAULT)
179 EndIf
180 EndLoop
181 Wait(1)
182 UseBuf(LVar2) // FoliageModelList trunk
183 BufRead1(LVar3) // count
184 BufRead1(LVarD) // models
185 UseBuf(LVarD) // *models
186 Loop(LVar3)
187 BufRead1(LVar4)
188 Call(TransformFoliage, LVar4, Float(0.1), Float(-0.2), LVarF, 0)
189 EndLoop
190 Wait(1)
191 EndLoop
192 UseBuf(LVar2) // FoliageModelList trunk
193 BufRead1(LVar3) // count
194 BufRead1(LVarD) // models
195 UseBuf(LVarD) // *models
196 Loop(LVar3)
197 BufRead1(LVar4)
198 Call(TranslateModel, LVar4, 0, 0, 0)
199 EndLoop
200 Wait(1)
201 EndIf
202 EndThread
203 Thread
204 IfNe(LVar3, 0)
205 UseBuf(LVar3) // FoliageDropList drops
206 BufRead1(LVar4) // count
207 BufRead1(LVarD) // drops
208 UseBuf(LVarD) // *drops
209 Loop(LVar4)
210 BufRead1(LVar5)
211 BufRead3(LVar6, LVar7, LVar8)
212 BufRead3(LVar9, LVarA, LVarB)
213 IfEq(LVarB, 0)
214 Call(DropItemEntity, LVar5, LVar6, LVar7, LVar8, LVar9, LVarA)
215 Else
216 Call(GetValueByRef, LVarB, LVarC)
217 IfEq(LVarC, 0)
218 Call(SetValueByRef, LVarB, 1)
219 Call(DropItemEntity, LVar5, LVar6, LVar7, LVar8, LVar9, LVarA)
220 EndIf
221 EndIf
222 EndLoop
223 EndIf
224 EndThread
225 Thread
226 IfNe(LVar4, 0)
227 UseBuf(LVar4) // FoliageDropList vectors
228 BufRead1(LVar5) // count
229 BufRead1(LVarD) // vectors
230 UseBuf(LVarD) // *vectors
231 Loop(LVar5)
232 BufRead3(LVar6, LVar7, LVar8) // x y z
233 PlayEffect(EFFECT_DROP_LEAVES, 0, LVar6, LVar7, LVar8, 100)
234 EndLoop
235 EndIf
236 EndThread
237 IfNe(LVar5, 0)
238 ExecWait(LVar5)
239 EndIf
240 Wait(15)
241 Return
242 End
243};
244
245}; // namespace foliage
PopupMenu_SelectedIndex
BSS s32 PopupMenu_SelectedIndex
Definition 8a860_len_3f30.c:84
Matrix4f
f32 Matrix4f[4][4]
Definition common_structs.h:133
EvtScript
Bytecode EvtScript[]
Definition common_structs.h:14
guTranslateF
#define guTranslateF
Definition effect_shims.h:43
guMtxCatF
#define guMtxCatF
Definition effect_shims.h:46
MODEL_FLAG_HAS_TRANSFORM
@ MODEL_FLAG_HAS_TRANSFORM
Definition enums.h:4366
MODEL_FLAG_MATRIX_DIRTY
@ MODEL_FLAG_MATRIX_DIRTY
Definition enums.h:4368
SOUND_SMACK_TREE
@ SOUND_SMACK_TREE
Definition enums.h:787
SOUND_SEARCH_BUSH
@ SOUND_SEARCH_BUSH
Definition enums.h:773
SOUND_SHAKE_TREE_LEAVES
@ SOUND_SHAKE_TREE_LEAVES
Definition enums.h:788
SOUND_SPACE_DEFAULT
@ SOUND_SPACE_DEFAULT
Definition enums.h:1737
ApiStatus_DONE2
#define ApiStatus_DONE2
Definition evt.h:118
Bytecode
s32 Bytecode
Definition evt.h:7
evt_get_variable
s32 evt_get_variable(Evt *script, Bytecode var)
Definition evt.c:1689
get_model_list_index_from_tree_index
s32 get_model_list_index_from_tree_index(s32 treeIndex)
Definition model.c:3396
get_model_from_list_index
struct Model * get_model_from_list_index(s32 listIndex)
Definition model.c:3314
evt_get_float_variable
f32 evt_get_float_variable(Evt *script, Bytecode var)
Definition evt.c:1929
Model
Definition model.h:59
foliage::setup_shear_mtx
void setup_shear_mtx(Matrix4f mtx, f32 scale, f32 xAmount, f32 zAmount)
Definition foliage.cpp:5
foliage::EVS_SearchBush
EvtScript EVS_SearchBush
Definition foliage.cpp:46
foliage::EVS_ShakeTree
EvtScript EVS_ShakeTree
Definition foliage.cpp:118
PlaySoundAtModel
ApiStatus PlaySoundAtModel(Evt *script, b32 isInitialCall)
Plays the given sound at the given model.
TranslateModel
ApiStatus TranslateModel(Evt *script, b32 isInitialCall)
Translates the given model's position.
DropItemEntity
ApiStatus DropItemEntity(Evt *script, b32 isInitialCall)
SetValueByRef
ApiStatus SetValueByRef(Evt *script, b32 isInitialCall)
GetValueByRef
ApiStatus GetValueByRef(Evt *script, b32 isInitialCall)
GetPlayerPos
ApiStatus GetPlayerPos(Evt *script, b32 isInitialCall)
Else
#define Else
Marks the end of an if statement and the start of the else block.
Definition macros.h:295
LVar6
#define LVar6
Definition macros.h:154
Set
#define Set(VAR, INT_VALUE)
Sets the given variable to a given value casted to an integer.
Definition macros.h:365
LVarF
#define LVarF
Definition macros.h:163
IfNe
#define IfNe(LVAR, RVAR)
Marks the beginning of an if statement that only executes if LVAR != RVAR.
Definition macros.h:272
End
#define End
Signals the end of EVT script data. A script missing this will likely crash on load.
Definition macros.h:213
UseBuf
#define UseBuf(INT_PTR)
Loads a s32 pointer for use with subsequent EVT_BUF_READ commands.
Definition macros.h:389
EndLoop
#define EndLoop
Marks the end of a loop.
Definition macros.h:248
BufRead4
#define BufRead4(VAR1, VAR2, VAR3, VAR4)
Consumes the next four s32s from the buffer and stores them in the given variables.
Definition macros.h:401
LVarC
#define LVarC
Definition macros.h:160
BufRead1
#define BufRead1(VAR)
Consumes the next s32 from the buffer and stores it in the given variable.
Definition macros.h:392
Float
#define Float(DOUBLE)
Definition macros.h:51
BufRead3
#define BufRead3(VAR1, VAR2, VAR3)
Consumes the next three s32s from the buffer and stores them in the given variables.
Definition macros.h:398
EndIf
#define EndIf
Marks the end of an if statement or an else block.
Definition macros.h:298
LVar5
#define LVar5
Definition macros.h:153
SetTimescale
#define SetTimescale(TIMESCALE)
Sets the current thread's timescale. This is a multiplier applied to Wait and Wait_SECONDS.
Definition macros.h:516
LVarB
#define LVarB
Definition macros.h:159
ExecWait
#define ExecWait(EVT_SOURCE)
Launches a new child thread.
Definition macros.h:475
LVar7
#define LVar7
Definition macros.h:155
Thread
#define Thread
Marks the start of a thread block.
Definition macros.h:544
EndThread
#define EndThread
Marks the end of a thread block.
Definition macros.h:547
LVar8
#define LVar8
Definition macros.h:156
LVar2
#define LVar2
Definition macros.h:150
LVar1
#define LVar1
Definition macros.h:149
LFlag0
#define LFlag0
Definition macros.h:167
LVarA
#define LVarA
Definition macros.h:158
LVarD
#define LVarD
Definition macros.h:161
Wait
#define Wait(NUM_FRAMES)
Blocks for the given number of frames.
Definition macros.h:254
LVar9
#define LVar9
Definition macros.h:157
PlayEffect
#define PlayEffect(args...)
Definition macros.h:807
IfEq
#define IfEq(LVAR, RVAR)
Marks the beginning of an if statement that only executes if LVAR == RVAR.
Definition macros.h:269
Call
#define Call(FUNC, ARGS...)
Calls a given C EVT API function with any number of arguments.
Definition macros.h:576
Loop
#define Loop(TIMES)
Marks the beginning of a loop.
Definition macros.h:245
LVar4
#define LVar4
Definition macros.h:152
LVar3
#define LVar3
Definition macros.h:151
LVar0
#define LVar0
Definition macros.h:148
Return
#define Return
Kills the current EVT thread.
Definition macros.h:217