source: Daodan/src/Daodan_BSL.c @ 443

Last change on this file since 443 was 443, checked in by rossy, 13 years ago
File size: 5.5 KB
Line 
1#include <stdio.h>
2#include <time.h>
3#include <ffi.h>
4
5#include "Daodan_BSL.h"
6#include "BFW_ScriptingLanguage.h"
7#include "Oni.h"
8#include "Oni_Character.h"
9#include "dSFMT\dSFMT.h"
10
11uint16_t ONICALL bsl_int32mul(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
12{
13        if (numargs < 2)
14                return 1;
15        ret->value_int32 = args[0].value_int32 * args[1].value_int32;
16        ret->type = sl_int32;
17        return 0;
18}
19
20uint16_t ONICALL bsl_mul(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
21{
22        if (numargs < 2)
23                return 1;
24       
25        double val1;
26        double val2;
27       
28        if (args[0].type == sl_int32)
29                val1 = args[0].value_int32;
30        else
31                val1 = args[0].value_float;
32       
33        if (args[1].type == sl_int32)
34                val2 = args[1].value_int32;
35        else
36                val2 = args[1].value_float;
37       
38        ret->value_float = (float)(val1 * val2);
39        ret->type = sl_float;
40        return 0;
41}
42
43uint16_t ONICALL bsl_int32div(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
44{
45        if (numargs < 2)
46                return 1;
47        ret->value_int32 = args[0].value_int32 / args[1].value_int32;
48        ret->type = sl_int32;
49        return 0;
50}
51
52uint16_t ONICALL bsl_div(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
53{
54        if (numargs < 2)
55                return 1;
56       
57        double val1;
58        double val2;
59       
60        if (args[0].type == sl_int32)
61                val1 = args[0].value_int32;
62        else
63                val1 = args[0].value_float;
64       
65        if (args[1].type == sl_int32)
66                val2 = args[1].value_int32;
67        else
68                val2 = args[1].value_float;
69       
70        ret->value_float = (float)(val1 / val2);
71        ret->type = sl_float;
72        return 0;
73}
74
75uint16_t ONICALL bsl_int32rand(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
76{
77        if (numargs < 2)
78                return 1;
79       
80        int32_t start = 0;
81        int32_t end = 0;
82       
83        if (args[0].value_int32 == args[1].value_int32)
84                return 1;
85        else if (args[0].value_int32 > args[1].value_int32)
86        {
87                start = args[1].value_int32;
88                end = args[0].value_int32;
89        }
90        else
91        {
92                start = args[0].value_int32;
93                end = args[1].value_int32;
94        }
95       
96        ret->value_int32 = start + (dsfmt_gv_genrand_uint32() % (uint32_t)(end - start + 1));
97        ret->type = sl_int32;
98        return 0;
99}
100
101uint16_t ONICALL bsl_getkills(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
102{
103        int index;
104        if (numargs == 0) index = 0;
105        else index = args[0].value_int32;
106        int* killcount = ONgGameState + index * 0x16A0 + 0x1260 + 0x1670;
107        ret->value_int32 = *killcount;
108        ret->type = sl_int32;
109        return 0;
110}
111
112uint16_t ONICALL bsl_getdamage(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
113{
114        int index;
115        if (numargs == 0) index = 0;
116        else index = args[0].value_int32;
117        int* killcount = ONgGameState + index * 0x16A0 + 0x1260 + 0x1674;
118        ret->value_int32 = *killcount;
119        ret->type = sl_int32;
120        return 0;
121}
122
123uint16_t ONICALL bsl_sprintf(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
124{
125        if (numargs < 2)
126                return 1;
127
128        char output[255];
129        char temp[255];
130        int i = 1;
131        for(i; i < numargs; i++)        {
132                sprintf(output, args[0].value_str32, args[i].value_str32);/*
133                if(args[i].type == sl_int32 || args[i].type == sl_bool) {
134                        sprintf(temp, "%i",args[i].value_int32);
135                        sprintf(output, args[0].value_str32, temp); }
136                else if(args[i].type == sl_float) {
137                        sprintf(temp, "%f",args[i].value_float);
138                        sprintf(output, args[0].value_str32, temp); }
139                else*/
140        }
141       
142        ret->value_str32 = output;
143        ret->type = sl_str32;
144        return 0;
145}
146/*
147char* sprintf_return = NULL;
148uint16_t ONICALL bsl_sprintf(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
149{
150        if (!sprintf_return)
151                sprintf_return = malloc(4096);
152       
153        ffi_cif cif;
154        ffi_type *ffi_args[256];
155        void *values[256];
156        int ffi_ret;
157       
158        ffi_args[0] = &ffi_type_pointer;
159        values[0] = sprintf_return;
160        ffi_args[1] = &ffi_type_uint32;
161        values[1] = (void*)4095;
162       
163        int i;
164        for(i = 2; i < numargs + 2; i ++)
165        {
166                ffi_args[i] = &ffi_type_pointer;
167                values[i] = args[i - 2].value;
168        }
169       
170        ffi_prep_cif(&cif, FFI_DEFAULT_ABI, i, &ffi_type_sint32, ffi_args);
171        ffi_call(&cif, (void*)snprintf, (void*)&ffi_ret, values);
172       
173        ret->value_str32 = sprintf_return;
174        ret->type = sl_str32;
175        return 0;
176}
177*/
178
179void SLrDaodan_Initalize()
180{
181        SLrScript_Command_Register_ReturnType("int32mul", "Multiplies two numbers", "n1:int n2:int", sl_int32, bsl_int32mul);
182        SLrScript_Command_Register_ReturnType("mul", "Multiplies two numbers", "[int1:int|float1:float] [int2:int|float2:float]", sl_float, bsl_mul);
183       
184        SLrScript_Command_Register_ReturnType("int32div", "Divides two numbers", "n1:int n2:int", sl_int32, bsl_int32div);
185        SLrScript_Command_Register_ReturnType("div", "Divides two numbers", "[int1:int|float1:float] [int2:int|float2:float]", sl_float, bsl_div);
186       
187        dsfmt_gv_init_gen_rand((uint32_t)time(NULL));
188        SLrScript_Command_Register_ReturnType("int32rand", "Returns a pseudo-random number between two numbers (inclusive).", "start:int end:int", sl_int32, bsl_int32rand);
189       
190        SLrScript_Command_Register_ReturnType("chr_getkills","Gets the number of kills a character has", "[chrindex:int]", sl_int32, bsl_getkills);
191        SLrScript_Command_Register_ReturnType("chr_getdamage","Gets the amount of damage a character has caused", "[chrindex:int]", sl_int32, bsl_getdamage);
192       
193        SLrScript_Command_Register_ReturnType("sprintf", "C-style sprintf.", "str1:format", sl_str32, bsl_sprintf);
194}
Note: See TracBrowser for help on using the repository browser.