1 | #include <stdio.h>
|
---|
2 | #include <stdbool.h>
|
---|
3 | #include <time.h>
|
---|
4 | #include <ffi.h>
|
---|
5 |
|
---|
6 | #include "inifile.h"
|
---|
7 |
|
---|
8 | #include "Daodan_BSL.h"
|
---|
9 | #include "Daodan_Utility.h"
|
---|
10 | #include "Daodan_Patch.h"
|
---|
11 | #include "Daodan_Console.h"
|
---|
12 | #include "BFW_ScriptLang.h"
|
---|
13 | #include "Oni.h"
|
---|
14 | #include "Oni_Character.h"
|
---|
15 | #include "oni_gl.h"
|
---|
16 | #include "dSFMT\dSFMT.h"
|
---|
17 | #include "Daodan_Character.h"
|
---|
18 |
|
---|
19 | uint16_t ONICALL bsl_int32mul(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
20 | {
|
---|
21 | ret->value_int32 = args[0].value_int32 * args[1].value_int32;
|
---|
22 | ret->type = sl_int32;
|
---|
23 | return 0;
|
---|
24 | }
|
---|
25 |
|
---|
26 | uint16_t ONICALL bsl_mul(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
27 | {
|
---|
28 | double val1;
|
---|
29 | double val2;
|
---|
30 |
|
---|
31 | if (args[0].type == sl_int32)
|
---|
32 | val1 = args[0].value_int32;
|
---|
33 | else
|
---|
34 | val1 = args[0].value_float;
|
---|
35 |
|
---|
36 | if (args[1].type == sl_int32)
|
---|
37 | val2 = args[1].value_int32;
|
---|
38 | else
|
---|
39 | val2 = args[1].value_float;
|
---|
40 |
|
---|
41 | ret->value_float = (float)(val1 * val2);
|
---|
42 | ret->type = sl_float;
|
---|
43 | return 0;
|
---|
44 | }
|
---|
45 |
|
---|
46 | uint16_t ONICALL bsl_int32div(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
47 | {
|
---|
48 | ret->value_int32 = args[0].value_int32 / args[1].value_int32;
|
---|
49 | ret->type = sl_int32;
|
---|
50 | return 0;
|
---|
51 | }
|
---|
52 |
|
---|
53 | uint16_t ONICALL bsl_div(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
54 | {
|
---|
55 | double val1;
|
---|
56 | double val2;
|
---|
57 |
|
---|
58 | if (args[0].type == sl_int32)
|
---|
59 | val1 = args[0].value_int32;
|
---|
60 | else
|
---|
61 | val1 = args[0].value_float;
|
---|
62 |
|
---|
63 | if (args[1].type == sl_int32)
|
---|
64 | val2 = args[1].value_int32;
|
---|
65 | else
|
---|
66 | val2 = args[1].value_float;
|
---|
67 |
|
---|
68 | ret->value_float = (float)(val1 / val2);
|
---|
69 | ret->type = sl_float;
|
---|
70 | return 0;
|
---|
71 | }
|
---|
72 |
|
---|
73 | uint16_t ONICALL bsl_int32rand(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
74 | {
|
---|
75 | int32_t start = 0;
|
---|
76 | int32_t end = 0;
|
---|
77 |
|
---|
78 | if (args[0].value_int32 == args[1].value_int32)
|
---|
79 | return 1;
|
---|
80 | else if (args[0].value_int32 > args[1].value_int32)
|
---|
81 | {
|
---|
82 | start = args[1].value_int32;
|
---|
83 | end = args[0].value_int32;
|
---|
84 | }
|
---|
85 | else
|
---|
86 | {
|
---|
87 | start = args[0].value_int32;
|
---|
88 | end = args[1].value_int32;
|
---|
89 | }
|
---|
90 |
|
---|
91 | ret->value_int32 = start + (dsfmt_gv_genrand_uint32() % (uint32_t)(end - start + 1));
|
---|
92 | ret->type = sl_int32;
|
---|
93 | return 0;
|
---|
94 | }
|
---|
95 |
|
---|
96 | uint16_t ONICALL bsl_getkills(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
97 | {
|
---|
98 | int index;
|
---|
99 | if (numargs == 0) index = 0;
|
---|
100 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
101 | else index = args[0].value_int32;
|
---|
102 | int* killcount = ONgGameState + index * 0x16A0 + 0x1260 + 0x1670;
|
---|
103 | ret->value_int32 = *killcount;
|
---|
104 | ret->type = sl_int32;
|
---|
105 | return 0;
|
---|
106 | }
|
---|
107 |
|
---|
108 | uint16_t ONICALL bsl_getdamage(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
109 | {
|
---|
110 | int index;
|
---|
111 | if (numargs == 0) index = 0;
|
---|
112 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
113 | else index = args[0].value_int32;
|
---|
114 | int* killcount = ONgGameState + index * 0x16A0 + 0x1260 + 0x1674;
|
---|
115 | ret->value_int32 = *killcount;
|
---|
116 | ret->type = sl_int32;
|
---|
117 | return 0;
|
---|
118 | }
|
---|
119 |
|
---|
120 | uint16_t ONICALL bsl_powerup(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
121 | {
|
---|
122 | int index;
|
---|
123 | if (numargs < 2 || args[1].type != sl_str32) return 1;
|
---|
124 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
125 | else index = args[0].value_int32;
|
---|
126 | void* returnval;
|
---|
127 | bool is_lsi = 0;
|
---|
128 | Character* Chr = ONgGameState + 0x1260;
|
---|
129 | if(!strcmp(args[1].value_str32,"ammo"))
|
---|
130 | {
|
---|
131 | returnval = &(Chr[index].Inventory_.AmmoUsed);
|
---|
132 | }
|
---|
133 | else if(!strcmp(args[1].value_str32,"hypo"))
|
---|
134 | {
|
---|
135 | returnval = &(Chr[index].Inventory_.HypoUsed);
|
---|
136 | }
|
---|
137 | else if(!strcmp(args[1].value_str32,"cells"))
|
---|
138 | {
|
---|
139 | returnval = &(Chr[index].Inventory_.CellsUsed);
|
---|
140 | }
|
---|
141 | else if(!strcmp(args[1].value_str32,"invis"))
|
---|
142 | {
|
---|
143 | returnval = &(Chr[index].Inventory_.CloakUsed);
|
---|
144 | }
|
---|
145 | else if(!strcmp(args[1].value_str32,"shield"))
|
---|
146 | {
|
---|
147 | returnval = &(Chr[index].Inventory_.ShieldUsed);
|
---|
148 | }
|
---|
149 | else if(!strcmp(args[1].value_str32,"lsi"))
|
---|
150 | {
|
---|
151 | returnval = &(Chr[index].Inventory_.hasLSI);
|
---|
152 | is_lsi = 1;
|
---|
153 | }
|
---|
154 | // else if(!strcmp(args[1].value_str32,"bossshield"))
|
---|
155 | // {
|
---|
156 | // ret->value_int32 = Chr[index].Flags & char_bossshield;
|
---|
157 | // ret->type = sl_int32;
|
---|
158 | // if (numargs >=3) {
|
---|
159 | // if (Chr[index].Flags & char_bossshield) Chr[index].Flags = Chr[index].Flags & ~char_bossshield;
|
---|
160 | // else Chr[index].Flags = Chr[index].Flags | char_bossshield;
|
---|
161 | // }
|
---|
162 | // return 0;
|
---|
163 | // }
|
---|
164 | else return 1;
|
---|
165 | //todo, add setting
|
---|
166 |
|
---|
167 | if(is_lsi) ret->value_int32 = (int)*(bool*)returnval;
|
---|
168 | else ret->value_int32 = *(int*)returnval;
|
---|
169 | ret->type = sl_int32;
|
---|
170 |
|
---|
171 | if (numargs >= 3)
|
---|
172 | {
|
---|
173 | if(is_lsi) *(bool*)returnval = args[2].value_int32;
|
---|
174 | else *(int*)returnval = args[2].value_int32;
|
---|
175 | }
|
---|
176 |
|
---|
177 |
|
---|
178 | return 0;
|
---|
179 | }
|
---|
180 |
|
---|
181 | uint16_t ONICALL bsl_health(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
182 | {
|
---|
183 | int index;
|
---|
184 | if (numargs == 0) index = 0;
|
---|
185 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
186 | else index = args[0].value_int32;
|
---|
187 | Character* Chr = ONgGameState + 0x1260 ;
|
---|
188 | int* health = &Chr[index].Health;
|
---|
189 |
|
---|
190 | ret->value_int32 = *health;
|
---|
191 | ret->type = sl_int32;
|
---|
192 |
|
---|
193 | if (numargs >= 2) {
|
---|
194 | *health = args[1].value_int32;
|
---|
195 | }
|
---|
196 | ret->value_int32 = *health;
|
---|
197 | ret->type = sl_int32;
|
---|
198 | return 0;
|
---|
199 | }
|
---|
200 |
|
---|
201 | uint16_t ONICALL bsl_maxhealth(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
202 | {
|
---|
203 | int index;
|
---|
204 | if (numargs == 0) index = 0;
|
---|
205 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
206 | else index = args[0].value_int32;
|
---|
207 | Character* Chr = ONgGameState + 0x1260 ;
|
---|
208 | int* maxhealth = &Chr[index].MaxHealth;
|
---|
209 | int oldmaxhealth = Chr[index].MaxHealth;
|
---|
210 | int oldhealth = Chr->Health;
|
---|
211 | if (numargs >= 2) {
|
---|
212 | *maxhealth = args[1].value_int32;
|
---|
213 | }
|
---|
214 | if (numargs >= 3 && args[2].value_bool) {
|
---|
215 | Chr->Health = (int)(((float)args[1].value_int32 / (float)oldmaxhealth) * (float)oldhealth);
|
---|
216 | }
|
---|
217 | ret->value_int32 = oldmaxhealth;
|
---|
218 | ret->type = sl_int32;
|
---|
219 | return 0;
|
---|
220 | }
|
---|
221 |
|
---|
222 | uint16_t ONICALL bsl_getattacker(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
223 | {
|
---|
224 | //broken...not only does it sometimes blam, but it returns a string when i want an int so i can study it :<
|
---|
225 | int index;
|
---|
226 | if (numargs == 0) index = 0;
|
---|
227 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
228 | else index = args[0].value_int32;
|
---|
229 |
|
---|
230 | Character* Chr = ONgGameState + 0x1260;
|
---|
231 | ActiveCharacter* Active = (ActiveCharacter*)ONrGetActiveCharacter(&Chr[index]);
|
---|
232 | if ((int)Active == 0) return 1;
|
---|
233 | // ret->value_int32 = Active->LastDamageSourceCharacter;
|
---|
234 | ret->type = sl_int32;
|
---|
235 | return 0;
|
---|
236 | }
|
---|
237 |
|
---|
238 |
|
---|
239 |
|
---|
240 | uint16_t ONICALL bsl_chrname(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
241 | {
|
---|
242 | int index;
|
---|
243 | if (numargs == 0) index = 0;
|
---|
244 | else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
245 | else index = args[0].value_int32;
|
---|
246 | if (index == -1) {
|
---|
247 | ret->type = sl_str32;
|
---|
248 | ret->value_str32 = "NULL";
|
---|
249 | return 0;
|
---|
250 | }
|
---|
251 | char* name = ONgGameState + 0x1260 + index * 0x16A0 + 0x14;
|
---|
252 | if (numargs == 2) {
|
---|
253 | strncpy(name, (char*)args[1].value_str32, 31);
|
---|
254 | }
|
---|
255 |
|
---|
256 | ret->type = sl_str32;
|
---|
257 | ret->value_str32 = name;
|
---|
258 |
|
---|
259 | return 0;
|
---|
260 | }
|
---|
261 |
|
---|
262 |
|
---|
263 | uint16_t ONICALL bsl_count(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
264 | {
|
---|
265 | //testing numargs...
|
---|
266 | ret->type = sl_int32;
|
---|
267 | ret->value_int32 = numargs;
|
---|
268 | return 0;
|
---|
269 | }
|
---|
270 |
|
---|
271 | uint16_t ONICALL bsl_dprintcolored(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
272 | {
|
---|
273 | //TODO: figure out why our implementation of dprint shows after dev mode is turned off
|
---|
274 | RGBA color;
|
---|
275 | RGBA shade;
|
---|
276 |
|
---|
277 | if(numargs == 0) return 0;
|
---|
278 | if(numargs > 1 ) color.R = (char)args[1].value_int32;
|
---|
279 | else color.R = 255;
|
---|
280 | if(numargs > 2 ) color.G = (char)args[2].value_int32;
|
---|
281 | else color.G = 255;
|
---|
282 | if(numargs > 3 ) color.B = (char)args[3].value_int32;
|
---|
283 | else color.B = 255;
|
---|
284 | color.A = 0;
|
---|
285 | if(numargs > 5 ) shade.R = (char)args[5].value_int32;
|
---|
286 | else shade.R = 0x3F;
|
---|
287 | if(numargs > 6 ) shade.G = (char)args[6].value_int32;
|
---|
288 | else shade.G = 0x3F;
|
---|
289 | if(numargs > 7 ) shade.B = (char)args[7].value_int32;
|
---|
290 | else shade.B = 0x3F;
|
---|
291 | shade.A = 0;
|
---|
292 |
|
---|
293 | DDrConsole_PrintColored(args[0].value_str32, 1, color, shade);
|
---|
294 | return 0;
|
---|
295 | }
|
---|
296 |
|
---|
297 |
|
---|
298 | uint16_t ONICALL bsl_nametoindex(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
299 | {
|
---|
300 | ret->type = sl_int32;
|
---|
301 | ret->value_int32 = DDrGetCharacterIndexFromName(args[0].value_str32);
|
---|
302 | return 0;
|
---|
303 | }
|
---|
304 |
|
---|
305 | uint16_t ONICALL bsl_getactiveoffset(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
306 | {
|
---|
307 | DDrConsole_PrintF("Character: 0x%x",(int)ONgGameState + 0x1260);
|
---|
308 | DDrConsole_PrintF("ActiveChar: 0x%x",(int)ONrGetActiveCharacter((void*)((int)ONgGameState + 0x1260)));
|
---|
309 | return 0;
|
---|
310 | }
|
---|
311 | /*
|
---|
312 | uint16_t ONICALL bsl_sprintf(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
313 | {
|
---|
314 | if (numargs < 2)
|
---|
315 | return 1;
|
---|
316 |
|
---|
317 | char output[255];
|
---|
318 | int i;
|
---|
319 | for(i = 1; i < numargs; i++) {
|
---|
320 | sprintf(output, args[0].value_str32, args[i].value_str32);
|
---|
321 | }
|
---|
322 |
|
---|
323 | ret->value_str32 = output;
|
---|
324 | ret->type = sl_str32;
|
---|
325 | return 0;
|
---|
326 | }
|
---|
327 | */
|
---|
328 | uint16_t ONICALL bsl_sprintf(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
329 | {
|
---|
330 | DDrConsole_PrintF("%d", numargs);
|
---|
331 |
|
---|
332 | if (numargs < 1 || args[0].type != sl_str32)
|
---|
333 | {
|
---|
334 | DDrConsole_PrintF("Func \"%s\", File \"%s\", Line %d: semantic error, \"%s\": parameter list does not match: format:string arg1 arg2 ...", callinfo->name, callinfo->calllocation, callinfo->linenumber, callinfo->name);
|
---|
335 | return 0;
|
---|
336 | }
|
---|
337 |
|
---|
338 | if (!args[0].value_str32)
|
---|
339 | args[0].value_str32 = "";
|
---|
340 |
|
---|
341 | int ffi_ret;
|
---|
342 | char* str = NULL;
|
---|
343 | int size = 0;
|
---|
344 |
|
---|
345 | ffi_cif cif;
|
---|
346 | ffi_type* ffi_args[256];
|
---|
347 | void* values[256];
|
---|
348 |
|
---|
349 | ffi_args[0] = &ffi_type_pointer;
|
---|
350 | values[0] = &str;
|
---|
351 | ffi_args[1] = &ffi_type_uint32;
|
---|
352 | values[1] = &size;
|
---|
353 |
|
---|
354 | int i;
|
---|
355 | for(i = 2; i < numargs + 2; i ++)
|
---|
356 | {
|
---|
357 | if (args[i - 2].type == sl_float)
|
---|
358 | {
|
---|
359 | float value_float = args[i - 2].value_float;
|
---|
360 | double* value_double = (double*)&(args[i - 2]);
|
---|
361 | *value_double = value_float;
|
---|
362 |
|
---|
363 | ffi_args[i] = &ffi_type_double;
|
---|
364 | values[i] = value_double;
|
---|
365 | }
|
---|
366 | else
|
---|
367 | {
|
---|
368 | ffi_args[i] = &ffi_type_pointer;
|
---|
369 | values[i] = &(args[i - 2].value);
|
---|
370 | }
|
---|
371 | }
|
---|
372 |
|
---|
373 | if (ffi_prep_cif(&cif, FFI_DEFAULT_ABI, i, &ffi_type_sint32, ffi_args) != FFI_OK)
|
---|
374 | return 1;
|
---|
375 | ffi_call(&cif, (void*)snprintf, (void*)&ffi_ret, values);
|
---|
376 | str = malloc(ffi_ret + 1);
|
---|
377 | size = ffi_ret + 1;
|
---|
378 | ffi_call(&cif, (void*)snprintf, (void*)&ffi_ret, values);
|
---|
379 | ret->value_str32 = str;
|
---|
380 | ret->type = sl_str32;
|
---|
381 | return 0;
|
---|
382 | }
|
---|
383 |
|
---|
384 | // Widescreen patch for talking heads.
|
---|
385 | uint16_t ONICALL cinematic_start_patch(sl_callinfo* callinfo, unsigned int numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
|
---|
386 | {
|
---|
387 | args[1].value_int32 = (double)args[1].value_int32 / (double)(gl->DisplayMode.Width) * (4.0 / 3.0 * (double)(gl->DisplayMode.Height));
|
---|
388 | return ((sl_func)(OniExe + 0x000f3830))(callinfo, numargs, args, dontuse1, dontuse2, ret);
|
---|
389 | }
|
---|
390 |
|
---|
391 | bool ini_inbsl = false;
|
---|
392 | bool SLrIniCallback(char* section, bool newsection, char* name, char* value)
|
---|
393 | {
|
---|
394 | if (newsection && !stricmp(section, "bsl"))
|
---|
395 | ini_inbsl = true;
|
---|
396 |
|
---|
397 | if (ini_inbsl)
|
---|
398 | {
|
---|
399 | bool isptr = false;
|
---|
400 | sl_type bsl_type;
|
---|
401 |
|
---|
402 | if (value[0] == 'p' && value[1] == 't' && value[2] == 'r' && value[3] == ':')
|
---|
403 | {
|
---|
404 | isptr = true;
|
---|
405 | value += 4;
|
---|
406 | }
|
---|
407 |
|
---|
408 | char* type = value;
|
---|
409 |
|
---|
410 | for (; *type; type++)
|
---|
411 | if (*type == ':')
|
---|
412 | {
|
---|
413 | *type = '\0';
|
---|
414 | type++;
|
---|
415 | break;
|
---|
416 | }
|
---|
417 |
|
---|
418 | if (!*type)
|
---|
419 | DDrStartupMessage("badly formed bsl definition for \"%s\"", name);
|
---|
420 |
|
---|
421 | if (!strcmp(type, "int"))
|
---|
422 | bsl_type = sl_int32;
|
---|
423 | else if (!strcmp(type, "string"))
|
---|
424 | bsl_type = sl_str32;
|
---|
425 | else if (!strcmp(type, "float"))
|
---|
426 | bsl_type = sl_float;
|
---|
427 | else if (!strcmp(type, "bool"))
|
---|
428 | bsl_type = sl_bool;
|
---|
429 | else
|
---|
430 | {
|
---|
431 | DDrStartupMessage("unknown type in bsl definition for \"%s\"", name);
|
---|
432 | return true;
|
---|
433 | }
|
---|
434 |
|
---|
435 | if (isptr)
|
---|
436 | {
|
---|
437 | char* bsl_var = malloc(strlen(name) + 1);
|
---|
438 | memcpy(bsl_var, name, strlen(name) + 1);
|
---|
439 | switch (bsl_type)
|
---|
440 | {
|
---|
441 | case sl_int32:
|
---|
442 | SLrGlobalVariable_Register_Int32(bsl_var, "see daodan.ini", (int32_t*)(uint32_t)inifile_parseint(value, false));
|
---|
443 | break;
|
---|
444 | case sl_float:
|
---|
445 | SLrGlobalVariable_Register_Float(bsl_var, "see daodan.ini", (float*)(uint32_t)inifile_parseint(value, false));
|
---|
446 | break;
|
---|
447 | default:
|
---|
448 | break;
|
---|
449 | }
|
---|
450 | }
|
---|
451 | else
|
---|
452 | {
|
---|
453 | char* bsl_var = malloc(strlen(name) + 1 + sizeof(int32_t));
|
---|
454 | int32_t* bsl_val = (int32_t*)bsl_var;
|
---|
455 | bsl_var += sizeof(int32_t);
|
---|
456 | memcpy(bsl_var, name, strlen(name) + 1);
|
---|
457 |
|
---|
458 | switch (bsl_type)
|
---|
459 | {
|
---|
460 | case sl_int32:
|
---|
461 | *bsl_val = inifile_parseint(value, false);
|
---|
462 | SLrGlobalVariable_Register_Int32(bsl_var, "see daodan.ini", bsl_val);
|
---|
463 | break;
|
---|
464 | case sl_float:
|
---|
465 | break;
|
---|
466 | default:
|
---|
467 | break;
|
---|
468 | }
|
---|
469 | }
|
---|
470 | }
|
---|
471 | return true;
|
---|
472 | }
|
---|
473 |
|
---|
474 | void SLrConfig()
|
---|
475 | {
|
---|
476 | DDrStartupMessage("re-parsing daodan.ini for bsl...");
|
---|
477 | inifile_read("daodan.ini", SLrIniCallback);
|
---|
478 | DDrStartupMessage("finished parsing");
|
---|
479 | }
|
---|
480 |
|
---|
481 | void SLrDaodan_Initalize()
|
---|
482 | {
|
---|
483 | SLrConfig();
|
---|
484 |
|
---|
485 | SLrScript_Command_Register_ReturnType("int32mul", "Multiplies two numbers", "n1:int n2:int", sl_int32, bsl_int32mul);
|
---|
486 | SLrScript_Command_Register_ReturnType("mul", "Multiplies two numbers", "[int1:int|float1:float] [int2:int|float2:float]", sl_float, bsl_mul);
|
---|
487 |
|
---|
488 | SLrScript_Command_Register_ReturnType("int32div", "Divides two numbers", "n1:int n2:int", sl_int32, bsl_int32div);
|
---|
489 | SLrScript_Command_Register_ReturnType("div", "Divides two numbers", "[int1:int|float1:float] [int2:int|float2:float]", sl_float, bsl_div);
|
---|
490 |
|
---|
491 | dsfmt_gv_init_gen_rand((uint32_t)time(NULL));
|
---|
492 | SLrScript_Command_Register_ReturnType("int32rand", "Returns a pseudo-random number between two numbers (inclusive).", "start:int end:int", sl_int32, bsl_int32rand);
|
---|
493 |
|
---|
494 | SLrScript_Command_Register_ReturnType("d_getkills","Gets the number of kills a character has", "[ai_name:str | script_id:int]", sl_int32, bsl_getkills);
|
---|
495 | SLrScript_Command_Register_ReturnType("d_getdamage","Gets the amount of damage a character has caused", "[ai_name:string | script_id:int]", sl_int32, bsl_getdamage);
|
---|
496 | SLrScript_Command_Register_ReturnType("d_name","Gets or sets a character's name", "[ai_name:str | script_id:int] [newname:string]", sl_str32, bsl_chrname);
|
---|
497 | SLrScript_Command_Register_ReturnType("d_getindex","Converts a character's name to its index", "script_id:int", sl_int32, bsl_nametoindex);
|
---|
498 | SLrScript_Command_Register_ReturnType("d_health","Gets or sets a character's health", "[ai_name:str | script_id:int] [newhealth:int]", sl_str32, bsl_health);
|
---|
499 | SLrScript_Command_Register_ReturnType("d_maxhealth","Gets or sets a character's maximum health", "[ai_name:str | script_id:int] [newmaxhealth:int] [scalehealth:bool]", sl_str32, bsl_maxhealth);
|
---|
500 | SLrScript_Command_Register_ReturnType("d_powerup","Gets or sets a character's powerups", "ai_name:str|script_id:int powerup:str", sl_int32, bsl_powerup);
|
---|
501 | //broken. sometimes crashes, and sometimes returns a string... : /
|
---|
502 | SLrScript_Command_Register_ReturnType("d_getattacker","Gets the last person to hurt a character", "[ai_name:string | script_id:int]", sl_int32, bsl_getattacker);
|
---|
503 |
|
---|
504 | SLrScript_Command_Register_ReturnType("d_active","Gets the last person to hurt a character", "[ai_name:string | script_id:int]", sl_int32, bsl_getactiveoffset);
|
---|
505 |
|
---|
506 | SLrScript_Command_Register_ReturnType("sprintf", "C-style sprintf.", "format:string arg1 arg2 ...", sl_str32, bsl_sprintf);
|
---|
507 | SLrScript_Command_Register_ReturnType("dprintcolor", "prints to console in color", "text:string [color: r b g] [color: r b g]", sl_void, bsl_dprintcolored);
|
---|
508 |
|
---|
509 | SLrScript_Command_Register_ReturnType("d_dprint", "prints to console in color", "text:string [color: r b g] [color: r b g]", sl_void, bsl_dprintcolored);
|
---|
510 | }
|
---|
511 |
|
---|
512 | void SLrDaodan_Patch()
|
---|
513 | {
|
---|
514 | DDrPatch_Int32(OniExe + 0x000f3755, (int)cinematic_start_patch);
|
---|
515 | }
|
---|