Daodan/src/Daodan_BSL.c

#include <time.h>

#include "Daodan_BSL.h"
#include "BFW_ScriptingLanguage.h"
#include <stdio.h>
#include "Oni.h"
#include "Oni_Character.h"
#include "dSFMT\dSFMT.h"

uint16_t ONICALL bsl_int32mul(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{
        if (numargs < 2)
                return 1;
        ret->value_int32 = args[0].value_int32 * args[1].value_int32;
        ret->type = sl_int32;
        return 0;
}

uint16_t ONICALL bsl_getkills(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{

        //void* GS = (short int**)(ONgGameState);

        //if (numargs < 2)
        //      return 1;
        
        //fix the AC struct :(
        //ret->value_int32 = ((ActiveCharacter *)(ONgGameState+0xB6268))->NumberOfKills;
        //short int index =;
        //char temp_bitset[2];
        int index2;
        if (numargs == 0) index2 = 0;
        else index2 = args[0].value_int32;
        char* active_index = ONgGameState + index2 * 0x16A0 +  0x1260 + 2;
        //index = *(*()+ 0x1260 +2);
        //ret->value_int32 = *((signed int*)(ONgGameState)) +0xB6268+(*(((signed int*)(ONgGameState)) + 0xAC)+2)*0x2838+0x1670;
        //ret->value_int32 = *(int*)(ONgGameState +0xB6268 + index2 * 0x2838 + 0x1670);
        
        //TODO: Clean up this mess...
//      ret->value_int32 = *active_index;
        
        ret->value_int32 = ((uint32_t*)(ONgGameState +0xB6268+(int)(*active_index)*0x2838+0x1670));

        ret->type = sl_int32;
        return 0;
}


uint16_t ONICALL bsl_mul(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{
        if (numargs < 2)
                return 1;
        
        double val1;
        double val2;
        
        if (args[0].type == sl_int32)
                val1 = args[0].value_int32;
        else
                val1 = args[0].value_float;
        
        if (args[1].type == sl_int32)
                val2 = args[1].value_int32;
        else
                val2 = args[1].value_float;
        
        ret->value_float = (float)(val1 * val2);
        ret->type = sl_float;
        return 0;
}

uint16_t ONICALL bsl_int32div(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{
        if (numargs < 2)
                return 1;
        ret->value_int32 = args[0].value_int32 / args[1].value_int32;
        ret->type = sl_int32;
        return 0;
}

uint16_t ONICALL bsl_div(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{
        if (numargs < 2)
                return 1;
        
        double val1;
        double val2;
        
        if (args[0].type == sl_int32)
                val1 = args[0].value_int32;
        else
                val1 = args[0].value_float;
        
        if (args[1].type == sl_int32)
                val2 = args[1].value_int32;
        else
                val2 = args[1].value_float;
        
        ret->value_float = (float)(val1 / val2);
        ret->type = sl_float;
        return 0;
}
uint16_t ONICALL bsl_sprintf(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{
        if (numargs < 2)
                return 1;
        

<<<<<<< .mine
        char output[255];
        char temp[255];
        int i = 1;
        for(i; i < numargs; i++)        {
                sprintf(output, args[0].value_str32, args[i].value_str32);/*
                if(args[i].type == sl_int32 || args[i].type == sl_bool) {
                        sprintf(temp, "%i",args[i].value_int32);
                        sprintf(output, args[0].value_str32, temp); }
                else if(args[i].type == sl_float) {
                        sprintf(temp, "%f",args[i].value_float);
                        sprintf(output, args[0].value_str32, temp); }
                else */
        }
        
        ret->value_str32 = output;
        ret->type = sl_str32;
        return 0;
}


uint16_t ONICALL bsl_int32rand(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
{
        if (numargs < 2)
                return 1;
        
        int32_t start = 0;
        int32_t end = 0;
        
        if (args[0].value_int32 == args[1].value_int32)
                return 1;
        else if (args[0].value_int32 > args[1].value_int32)
        {
                start = args[1].value_int32;
                end = args[0].value_int32;
        }
        else
        {
                start = args[0].value_int32;
                end = args[1].value_int32;
        }
        
        ret->value_int32 = start + (dsfmt_gv_genrand_uint32() % (uint32_t)(end - start + 1));
        ret->type = sl_int32;
        return 0;
}


void SLrDaodan_Initalize()
{
        SLrScript_Command_Register_ReturnType("int32mul", "Multiplies two numbers", "n1:int n2:int", sl_int32, bsl_int32mul);
        SLrScript_Command_Register_ReturnType("mul", "Multiplies two numbers", "[int1:int|float1:float] [int2:int|float2:float]", sl_float, bsl_mul);
        
        SLrScript_Command_Register_ReturnType("int32div", "Divides two numbers", "n1:int n2:int", sl_int32, bsl_int32div);
        SLrScript_Command_Register_ReturnType("div", "Divides two numbers", "[int1:int|float1:float] [int2:int|float2:float]", sl_float, bsl_div);

        
        SLrScript_Command_Register_ReturnType("sprintf", "sprintf", "str1:format str2:value [str3:...]", sl_str32, bsl_sprintf);

        SLrScript_Command_Register_ReturnType("getkills","Gets the number of kills", "[n1:int]", sl_int32, bsl_getkills);

        
        dsfmt_gv_init_gen_rand((uint32_t)time(NULL));
        SLrScript_Command_Register_ReturnType("int32rand", "Returns a pseudo-random number between two numbers (inclusive).", "start:int end:int", sl_int32, bsl_int32rand);
>>>>>>> .r440
}
Revision:	441
Committed:	Sat Jul 18 00:55:15 2009 UTC (16 years, 4 months ago) by gumby
Content type:	text/x-csrc
File size:	4991 byte(s)
Log Message:
#	Content
1	#include <time.h>
2
3	#include "Daodan_BSL.h"
4	#include "BFW_ScriptingLanguage.h"
5	#include <stdio.h>
6	#include "Oni.h"
7	#include "Oni_Character.h"
8	#include "dSFMT\dSFMT.h"
9
10	uint16_t ONICALL bsl_int32mul(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
11	{
12	if (numargs < 2)
13	return 1;
14	ret->value_int32 = args[0].value_int32 * args[1].value_int32;
15	ret->type = sl_int32;
16	return 0;
17	}
18
19	uint16_t ONICALL bsl_getkills(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
20	{
21
22	//void* GS = (short int**)(ONgGameState);
23
24	//if (numargs < 2)
25	// return 1;
26
27	//fix the AC struct :(
28	//ret->value_int32 = ((ActiveCharacter *)(ONgGameState+0xB6268))->NumberOfKills;
29	//short int index =;
30	//char temp_bitset[2];
31	int index2;
32	if (numargs == 0) index2 = 0;
33	else index2 = args[0].value_int32;
34	char* active_index = ONgGameState + index2 * 0x16A0 + 0x1260 + 2;
35	//index = (()+ 0x1260 +2);
36	//ret->value_int32 = ((signed int)(ONgGameState)) +0xB6268+((((signed int)(ONgGameState)) + 0xAC)+2)*0x2838+0x1670;
37	//ret->value_int32 = (int)(ONgGameState +0xB6268 + index2 * 0x2838 + 0x1670);
38
39	//TODO: Clean up this mess...
40	// ret->value_int32 = *active_index;
41
42	ret->value_int32 = ((uint32_t)(ONgGameState +0xB6268+(int)(active_index)*0x2838+0x1670));
43
44	ret->type = sl_int32;
45	return 0;
46	}
47
48
49	uint16_t ONICALL bsl_mul(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
50	{
51	if (numargs < 2)
52	return 1;
53
54	double val1;
55	double val2;
56
57	if (args[0].type == sl_int32)
58	val1 = args[0].value_int32;
59	else
60	val1 = args[0].value_float;
61
62	if (args[1].type == sl_int32)
63	val2 = args[1].value_int32;
64	else
65	val2 = args[1].value_float;
66
67	ret->value_float = (float)(val1 * val2);
68	ret->type = sl_float;
69	return 0;
70	}
71
72	uint16_t ONICALL bsl_int32div(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
73	{
74	if (numargs < 2)
75	return 1;
76	ret->value_int32 = args[0].value_int32 / args[1].value_int32;
77	ret->type = sl_int32;
78	return 0;
79	}
80
81	uint16_t ONICALL bsl_div(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
82	{
83	if (numargs < 2)
84	return 1;
85
86	double val1;
87	double val2;
88
89	if (args[0].type == sl_int32)
90	val1 = args[0].value_int32;
91	else
92	val1 = args[0].value_float;
93
94	if (args[1].type == sl_int32)
95	val2 = args[1].value_int32;
96	else
97	val2 = args[1].value_float;
98
99	ret->value_float = (float)(val1 / val2);
100	ret->type = sl_float;
101	return 0;
102	}
103	uint16_t ONICALL bsl_sprintf(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
104	{
105	if (numargs < 2)
106	return 1;
107
108
109	<<<<<<< .mine
110	char output[255];
111	char temp[255];
112	int i = 1;
113	for(i; i < numargs; i++) {
114	sprintf(output, args[0].value_str32, args[i].value_str32);/*
115	if(args[i].type == sl_int32 \|\| args[i].type == sl_bool) {
116	sprintf(temp, "%i",args[i].value_int32);
117	sprintf(output, args[0].value_str32, temp); }
118	else if(args[i].type == sl_float) {
119	sprintf(temp, "%f",args[i].value_float);
120	sprintf(output, args[0].value_str32, temp); }
121	else */
122	}
123
124	ret->value_str32 = output;
125	ret->type = sl_str32;
126	return 0;
127	}
128
129
130	uint16_t ONICALL bsl_int32rand(void* dontuse0, uint32_t numargs, sl_arg args[], void* dontuse1, void* dontuse2, sl_arg* ret)
131	{
132	if (numargs < 2)
133	return 1;
134
135	int32_t start = 0;
136	int32_t end = 0;
137
138	if (args[0].value_int32 == args[1].value_int32)
139	return 1;
140	else if (args[0].value_int32 > args[1].value_int32)
141	{
142	start = args[1].value_int32;
143	end = args[0].value_int32;
144	}
145	else
146	{
147	start = args[0].value_int32;
148	end = args[1].value_int32;
149	}
150
151	ret->value_int32 = start + (dsfmt_gv_genrand_uint32() % (uint32_t)(end - start + 1));
152	ret->type = sl_int32;
153	return 0;
154	}
155
156
157	void SLrDaodan_Initalize()
158	{
159	SLrScript_Command_Register_ReturnType("int32mul", "Multiplies two numbers", "n1:int n2:int", sl_int32, bsl_int32mul);
160	SLrScript_Command_Register_ReturnType("mul", "Multiplies two numbers", "[int1:int\|float1:float] [int2:int\|float2:float]", sl_float, bsl_mul);
161
162	SLrScript_Command_Register_ReturnType("int32div", "Divides two numbers", "n1:int n2:int", sl_int32, bsl_int32div);
163	SLrScript_Command_Register_ReturnType("div", "Divides two numbers", "[int1:int\|float1:float] [int2:int\|float2:float]", sl_float, bsl_div);
164
165
166	SLrScript_Command_Register_ReturnType("sprintf", "sprintf", "str1:format str2:value [str3:...]", sl_str32, bsl_sprintf);
167
168	SLrScript_Command_Register_ReturnType("getkills","Gets the number of kills", "[n1:int]", sl_int32, bsl_getkills);
169
170
171	dsfmt_gv_init_gen_rand((uint32_t)time(NULL));
172	SLrScript_Command_Register_ReturnType("int32rand", "Returns a pseudo-random number between two numbers (inclusive).", "start:int end:int", sl_int32, bsl_int32rand);
173	>>>>>>> .r440
174	}