Context Navigation

source: Daodan/src/Daodan_BSL.c@ 483

Last change on this file since 483 was 481, checked in by gumby, 15 years ago
Added d_distance and d_location
File size: 26.0 KB

Rev	Line
[443]	1	#include <stdio.h>
[451]	2	#include <stdbool.h>
[440]	3	#include <time.h>
[443]	4	#include <ffi.h>
[481]	5	#include <math.h>
[451]	6	#include "inifile.h"
	7
[439]	8	#include "Daodan_BSL.h"
[444]	9	#include "Daodan_Utility.h"
[447]	10	#include "Daodan_Patch.h"
[444]	11	#include "Daodan_Console.h"
[445]	12	#include "BFW_ScriptLang.h"
[441]	13	#include "Oni.h"
	14	#include "Oni_Character.h"
[447]	15	#include "oni_gl.h"
[440]	16	#include "dSFMT\dSFMT.h"
[446]	17	#include "Daodan_Character.h"
[440]	18
[474]	19	uint16_t ONICALL bsl_int32mul(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[439]	20	{
	21	ret->value_int32 = args[0].value_int32 * args[1].value_int32;
	22	ret->type = sl_int32;
	23	return 0;
	24	}
	25
[474]	26	uint16_t ONICALL bsl_mul(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[439]	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
[474]	46	uint16_t ONICALL bsl_int32div(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[439]	47	{
	48	ret->value_int32 = args[0].value_int32 / args[1].value_int32;
	49	ret->type = sl_int32;
	50	return 0;
	51	}
	52
[474]	53	uint16_t ONICALL bsl_div(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[439]	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	}
[443]	72
[474]	73	uint16_t ONICALL bsl_int32rand(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[443]	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
[474]	96	uint16_t ONICALL bsl_getkills(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[443]	97	{
	98	int index;
	99	if (numargs == 0) index = 0;
[446]	100	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
[443]	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
[474]	108	uint16_t ONICALL bsl_getdamage(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[443]	109	{
	110	int index;
	111	if (numargs == 0) index = 0;
[446]	112	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
[443]	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	}
[446]	119
[474]	120	uint16_t ONICALL bsl_returnoffset(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[470]	121	{
	122	//int offset = 140;
	123	//if (== 1) offset = 148;
	124	//else index = args[0].value_int32;
	125	int* killcount = ONgGameState + args[0].value_int32;
	126	ret->value_int32 = *killcount;
	127	ret->type = sl_int32;
	128	return 0;
	129	}
	130
	131
[474]	132	uint16_t ONICALL bsl_powerup(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	133	{
	134	int index;
	135	if (numargs < 2 \|\| args[1].type != sl_str32) return 1;
	136	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	137	else index = args[0].value_int32;
[450]	138	void* returnval;
	139	bool is_lsi = 0;
	140	Character* Chr = ONgGameState + 0x1260;
	141	if(!strcmp(args[1].value_str32,"ammo"))
[446]	142	{
[450]	143	returnval = &(Chr[index].Inventory_.AmmoUsed);
	144	}
	145	else if(!strcmp(args[1].value_str32,"hypo"))
	146	{
	147	returnval = &(Chr[index].Inventory_.HypoUsed);
	148	}
	149	else if(!strcmp(args[1].value_str32,"cells"))
	150	{
	151	returnval = &(Chr[index].Inventory_.CellsUsed);
	152	}
	153	else if(!strcmp(args[1].value_str32,"invis"))
	154	{
	155	returnval = &(Chr[index].Inventory_.CloakUsed);
	156	}
	157	else if(!strcmp(args[1].value_str32,"shield"))
	158	{
	159	returnval = &(Chr[index].Inventory_.ShieldUsed);
	160	}
	161	else if(!strcmp(args[1].value_str32,"lsi"))
	162	{
	163	returnval = &(Chr[index].Inventory_.hasLSI);
	164	is_lsi = 1;
	165	}
[451]	166	// else if(!strcmp(args[1].value_str32,"bossshield"))
	167	// {
	168	// ret->value_int32 = Chr[index].Flags & char_bossshield;
	169	// ret->type = sl_int32;
	170	// if (numargs >=3) {
	171	// if (Chr[index].Flags & char_bossshield) Chr[index].Flags = Chr[index].Flags & ~char_bossshield;
	172	// else Chr[index].Flags = Chr[index].Flags \| char_bossshield;
	173	// }
	174	// return 0;
	175	// }
[450]	176	else return 1;
[446]	177	//todo, add setting
	178
[450]	179	if(is_lsi) ret->value_int32 = (int)(bool)returnval;
	180	else ret->value_int32 = (int)returnval;
	181	ret->type = sl_int32;
	182
	183	if (numargs >= 3)
[446]	184	{
[450]	185	if(is_lsi) (bool)returnval = args[2].value_int32;
	186	else (int)returnval = args[2].value_int32;
[446]	187	}
[450]	188
	189
[446]	190	return 0;
	191	}
	192
[474]	193	uint16_t ONICALL bsl_health(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	194	{
	195	int index;
	196	if (numargs == 0) index = 0;
	197	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	198	else index = args[0].value_int32;
	199	Character* Chr = ONgGameState + 0x1260 ;
	200	int* health = &Chr[index].Health;
	201
	202	ret->value_int32 = *health;
	203	ret->type = sl_int32;
	204
	205	if (numargs >= 2) {
	206	*health = args[1].value_int32;
	207	}
	208	ret->value_int32 = *health;
	209	ret->type = sl_int32;
	210	return 0;
	211	}
	212
[474]	213	uint16_t ONICALL bsl_regen(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[470]	214	{
	215	int index;
	216	if (numargs == 0) index = 0;
	217	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	218	else index = args[0].value_int32;
	219	Character* Chr = ONgGameState + 0x1260 ;
[481]	220	int* health = (int)&Chr[index] + 0x144;
[470]	221
	222	ret->value_int32 = *health;
	223	ret->type = sl_int32;
	224
	225	if (numargs >= 2) {
	226	*health = args[1].value_int32;
	227	}
	228	return 0;
	229	}
	230
[481]	231	uint16_t ONICALL bsl_distance(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret) {
	232
	233	if (numargs < 2) return 1;
	234	int index;
	235	int index2;
	236	if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	237	else index = args[0].value_int32;
	238	if (index == -1) index = args[0].value_int32;
[470]	239
[481]	240	if (args[1].type == sl_str32) index2 = DDrGetCharacterIndexFromName(args[1].value_str32);
	241	else index2 = args[1].value_int32;
	242	if (index2 == -1) index2 = args[1].value_int32;
	243
	244	Character* Chr = ONgGameState + 0x1260;
	245	Character* Char1 = &Chr[index];
	246	Character* Char2 = &Chr[index2];
	247
	248	ret->value_float = sqrt( pow((Char1->Location.X - Char2->Location.X), 2) + pow((Char1->Location.Y - Char2->Location.Y), 2) + pow((Char1->Location.Z - Char2->Location.Z),2));
	249	ret->type = sl_float;
	250	return 0;
	251	}
	252	uint16_t ONICALL bsl_location(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret) {
	253	int index;
	254	if (numargs < 2) return 1;
	255	if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	256	else index = args[0].value_int32;
	257	if (index == -1) index = args[0].value_int32;
	258	Character* Chr = ONgGameState + 0x1260;
	259	float* loc;
	260	if (!strcmp(args[1].value_str32,"X") \|\| !strcmp(args[1].value_str32,"x"))
	261	loc = &(Chr[index].Position.X);
	262	else if (!strcmp(args[1].value_str32,"Y") \|\| !strcmp(args[1].value_str32,"y"))
	263	loc = &(Chr[index].Position.Y);
	264	else if (!strcmp(args[1].value_str32,"Z") \|\| !strcmp(args[1].value_str32,"z"))
	265	loc = &(Chr[index].Position.Z);
	266	else if (numargs == 4) {
	267	//currently broken. crashes oni.
	268	Chr[index].Position.X = args[1].value_float;
	269	Chr[index].Position.Y = args[2].value_float;
	270	Chr[index].Position.Z = args[3].value_float;
	271	ret->value_float = 1;
	272	ret->type = sl_float;
	273	return 0;
	274	}
	275	else return 1;
	276
	277	ret->value_float = *loc;
	278	ret->type = sl_float;
	279
	280	if(numargs == 3) {
	281	//currently broken, does nothing.
	282	*loc = args[2].value_float;
	283	}
	284	return 0;
	285	}
	286
[474]	287	uint16_t ONICALL bsl_maxhealth(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	288	{
	289	int index;
	290	if (numargs == 0) index = 0;
	291	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	292	else index = args[0].value_int32;
	293	Character* Chr = ONgGameState + 0x1260 ;
	294	int* maxhealth = &Chr[index].MaxHealth;
	295	int oldmaxhealth = Chr[index].MaxHealth;
	296	int oldhealth = Chr->Health;
	297	if (numargs >= 2) {
	298	*maxhealth = args[1].value_int32;
	299	}
	300	if (numargs >= 3 && args[2].value_bool) {
	301	Chr->Health = (int)(((float)args[1].value_int32 / (float)oldmaxhealth) * (float)oldhealth);
	302	}
	303	ret->value_int32 = oldmaxhealth;
	304	ret->type = sl_int32;
	305	return 0;
	306	}
	307
[474]	308	uint16_t ONICALL bsl_getattacker(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	309	{
[470]	310	//broken
	311
[446]	312	int index;
[450]	313	if (numargs == 0) index = 0;
	314	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
[446]	315	else index = args[0].value_int32;
	316
[450]	317	Character* Chr = ONgGameState + 0x1260;
	318	ActiveCharacter* Active = (ActiveCharacter*)ONrGetActiveCharacter(&Chr[index]);
	319	if ((int)Active == 0) return 1;
[451]	320	// ret->value_int32 = Active->LastDamageSourceCharacter;
[446]	321	ret->type = sl_int32;
	322	return 0;
	323	}
	324
	325
[450]	326
[474]	327	uint16_t ONICALL bsl_chrname(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	328	{
	329	int index;
	330	if (numargs == 0) index = 0;
	331	else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	332	else index = args[0].value_int32;
	333	if (index == -1) {
	334	ret->type = sl_str32;
	335	ret->value_str32 = "NULL";
	336	return 0;
	337	}
	338	char* name = ONgGameState + 0x1260 + index * 0x16A0 + 0x14;
	339	if (numargs == 2) {
	340	strncpy(name, (char*)args[1].value_str32, 31);
	341	}
	342
	343	ret->type = sl_str32;
	344	ret->value_str32 = name;
	345
	346	return 0;
	347	}
	348
	349
[474]	350	uint16_t ONICALL bsl_count(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	351	{
	352	//testing numargs...
	353	ret->type = sl_int32;
	354	ret->value_int32 = numargs;
	355	return 0;
	356	}
	357
[474]	358	uint16_t ONICALL bsl_dprintcolored(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	359	{
	360	//TODO: figure out why our implementation of dprint shows after dev mode is turned off
	361	RGBA color;
	362	RGBA shade;
	363
	364	if(numargs == 0) return 0;
	365	if(numargs > 1 ) color.R = (char)args[1].value_int32;
	366	else color.R = 255;
	367	if(numargs > 2 ) color.G = (char)args[2].value_int32;
	368	else color.G = 255;
	369	if(numargs > 3 ) color.B = (char)args[3].value_int32;
	370	else color.B = 255;
	371	color.A = 0;
	372	if(numargs > 5 ) shade.R = (char)args[5].value_int32;
	373	else shade.R = 0x3F;
	374	if(numargs > 6 ) shade.G = (char)args[6].value_int32;
	375	else shade.G = 0x3F;
	376	if(numargs > 7 ) shade.B = (char)args[7].value_int32;
	377	else shade.B = 0x3F;
	378	shade.A = 0;
	379
	380	DDrConsole_PrintColored(args[0].value_str32, 1, color, shade);
	381	return 0;
	382	}
	383
	384
[474]	385	uint16_t ONICALL bsl_nametoindex(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[446]	386	{
[481]	387
[446]	388	ret->type = sl_int32;
	389	ret->value_int32 = DDrGetCharacterIndexFromName(args[0].value_str32);
[481]	390
[446]	391	return 0;
	392	}
[450]	393
[474]	394	uint16_t ONICALL bsl_getactiveoffset(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[450]	395	{
	396	DDrConsole_PrintF("Character: 0x%x",(int)ONgGameState + 0x1260);
	397	DDrConsole_PrintF("ActiveChar: 0x%x",(int)ONrGetActiveCharacter((void*)((int)ONgGameState + 0x1260)));
	398	return 0;
	399	}
[470]	400	typedef struct {
	401	char Name[16];
	402	int Bit;
	403	} KeyBit;
	404
	405	KeyBit Actions1[32] = {
	406	{"Escape", Action_Escape},
	407	{"Console", Action_Console},
	408	{"PauseScreen", Action_PauseScreen},
	409	{"Cutscene1", Action_Cutscene_1 },
	410	{"Cutscene2", Action_Cutscene_2 },
	411	{"F4", Action_F4 },
	412	{"F5", Action_F5 },
	413	{"F6", Action_F6 },
	414	{"F7", Action_F7 },
	415	{"F8", Action_F8 },
	416	{"StartRecorn", Action_StartRecord },
	417	{"StopRecord", Action_StopRecord },
	418	{"PlayRecord", Action_PlayRecord },
	419	{"F12", Action_F12 },
	420	{"Unknown1", Action_Unknown1 },
	421	{"LookMode", Action_LookMode },
	422	{"Screenshot", Action_Screenshot },
	423	{"Unknown2", Action_Unknown2 },
	424	{"Unknown3", Action_Unknown3 },
	425	{"Unknown4", Action_Unknown4 },
	426	{"Unknown5", Action_Unknown5 },
	427	{"Forward", Action_Forward },
	428	{"Backward", Action_Backward },
	429	{"TurnLeft", Action_TurnLeft },
	430	{"TurnRight", Action_TurnRight },
	431	{"StepLeft", Action_StepLeft },
	432	{"StepRight", Action_StepRight },
	433	{"Jump", Action_Jump },
	434	{"Crouch", Action_Crouch },
	435	{"Punch",Action_Punch },
	436	{"Kick", Action_Kick },
	437	{"Block", Action_Block }
	438	};
	439
	440	KeyBit Actions2[9] = {
	441	{"Walk", Action2_Walk},
	442	{"Action", Action2_Action},
	443	{"Hypo", Action2_Hypo},
	444	{"Reload", Action2_Reload },
	445	{"Swap", Action2_Swap },
	446	{"Drop", Action2_Drop },
	447	{"Fire1", Action2_Fire1 },
	448	{"Fire2", Action2_Fire2 },
	449	{"Fire3", Action2_Fire3 }
	450	};
[474]	451	uint16_t ONICALL bsl_holdkey(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[470]	452	{
	453	int index;
[481]	454
	455	if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
[470]	456	else index = args[0].value_int32;
[481]	457
[470]	458	Character* Chr = ONgGameState + 0x1260;
	459	ActiveCharacter* Active = (ActiveCharacter*)ONrGetActiveCharacter(&Chr[index]);
	460	if ((int)Active == 0) return 1;
	461	int i = 2;
	462	int j = 0;
	463	int Input1 = 0;
	464	int Input2 = 0;
[481]	465	for(i = 1; i < numargs - 1; i++) {
[470]	466	for(j = 0; j < 32; j++) {
[481]	467	if(!strcmp(args[i].value_str32, Actions1[j].Name)) {
	468	Input1 = Input1 \| Actions1[j].Bit;
	469	}
[470]	470	}
	471	for(j = 0; j < 9; j++) {
[481]	472	if(!strcmp(args[i].value_str32, Actions2[j].Name)) {
	473	Input2 = Input2 \| Actions2[j].Bit;
	474	}
[470]	475	}
	476	}
[481]	477	Active->Input.Current.Actions1 = Active->Input.Current.Actions1 \| Input1;
	478	Active->Input.Current.Actions2 = Active->Input.Current.Actions1 \| Input2;
	479	if( Input1 + Input2 == 0 ) {
	480	DDrConsole_PrintF("Func \"%s\", File \"%s\", Line %d: semantic error, \"%s\": No valid keys given.", callinfo->name, callinfo->calllocation, callinfo->linenumber, callinfo->name);
	481	return 0;
	482	}
	483	if ( args[numargs - 1].value_int32 <= 0) {
	484	return 0;
	485	}
	486	else {
	487	args[numargs - 1].value_int32 -= 1;
	488	*dontuse2 = 1;
	489	*dontuse1 = 1;
	490	}
[470]	491	return 0;
	492	}
	493
[474]	494	uint16_t ONICALL bsl_isheld(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[470]	495	{
	496	// int index;
	497	// if (numargs < 4) index = 0;
	498	// else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	499	// else index = args[0].value_int32;
	500
	501	// Character* Chr = ONgGameState + 0x1260;
	502	// ActiveCharacter* Active = (ActiveCharacter*)ONrGetActiveCharacter(&Chr[index]);
	503	// if ((int)Active == 0) return 1;
	504	int i = 2;
	505	int j = 0;
	506	int Input1 = 0;
	507	int Input2 = 0;
	508	for(i = 0; i < numargs; i++) {
	509	for(j = 0; j < 32; j++) {
	510	//DDrConsole_PrintF("Testing %s against %s 0x%x", args[i].value_str32, Actions1[j].Name, Actions1[j].Bit);
	511	if(!strcmp(args[i].value_str32, Actions1[j].Name)) {
	512	Input1 = Input1 \| Actions1[j].Bit;
	513	//DDrConsole_PrintF("Success!");
	514	}
	515
	516	}
	517	for(j = 0; j < 9; j++) {
	518	if(!strcmp(args[i].value_str32, Actions2[j].Name)) Input2 = Input2 \| Actions2[j].Bit;
	519
	520	}
	521	}
	522	//DDrConsole_PrintF("Testing: 0x%x Input: 0x%x",Input1, (int)(ONgGameState + 0xB8 + 0x10));
	523	ret->value_int32 = 0;
	524	ret->type = sl_int32;
	525	if ( (((int)(ONgGameState + 0xB8 + 0x10) & Input1) == Input1) && (((int)(ONgGameState + 0xB8 + 0x14) & Input2) == Input2)) ret->value_int32 = 1;
	526	return 0;
	527	}
	528
	529	uint16_t ONICALL bsl_waitforkey(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
	530	{
	531	// int index;
	532	// if (numargs < 4) index = 0;
	533	// else if (args[0].type == sl_str32) index = DDrGetCharacterIndexFromName(args[0].value_str32);
	534	// else index = args[0].value_int32;
	535
	536	// Character* Chr = ONgGameState + 0x1260;
	537	// ActiveCharacter* Active = (ActiveCharacter*)ONrGetActiveCharacter(&Chr[index]);
	538	// if ((int)Active == 0) return 1;
	539	int i = 2;
	540	int j = 0;
	541	int Input1 = 0;
	542	int Input2 = 0;
	543	for(i = 0; i < numargs; i++) {
	544	for(j = 0; j < 32; j++) {
	545	//DDrConsole_PrintF("Testing %s against %s 0x%x", args[i].value_str32, Actions1[j].Name, Actions1[j].Bit);
	546	if(!strcmp(args[i].value_str32, Actions1[j].Name)) {
	547	Input1 = Input1 \| Actions1[j].Bit;
	548	//DDrConsole_PrintF("Success!");
	549	}
	550
	551	}
	552	for(j = 0; j < 9; j++) {
	553	if(!strcmp(args[i].value_str32, Actions2[j].Name)) Input2 = Input2 \| Actions2[j].Bit;
	554
	555	}
	556	}
	557	//DDrConsole_PrintF("Waiting...");
	558	if ( (((int)(ONgGameState + 0xB8 + 0x10) & Input1) == Input1) && (((int)(ONgGameState + 0xB8 + 0x14) & Input2) == Input2)) {
	559	}
	560	else {
	561	//else (int)*ret = 1;
	562	*dontuse2 = 1;
	563	*dontuse1 = 1;
	564	}
[444]	565	/*
[470]	566	__asm__(
	567	"movl 0x10(%esp), %edx\n\t"
	568	"movl $1,(%eax)\n\t"
	569	);
	570	//ret->type = sl_void
	571	*/ return 0;
	572	}
	573
	574	/*
[474]	575	uint16_t ONICALL bsl_sprintf(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[441]	576	{
	577	if (numargs < 2)
	578	return 1;
[445]	579
[441]	580	char output[255];
[444]	581	int i;
	582	for(i = 1; i < numargs; i++) {
	583	sprintf(output, args[0].value_str32, args[i].value_str32);
[441]	584	}
	585
	586	ret->value_str32 = output;
	587	ret->type = sl_str32;
	588	return 0;
	589	}
[444]	590	*/
[474]	591	uint16_t ONICALL bsl_sprintf(sl_callinfo* callinfo, uint32_t numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[440]	592	{
[445]	593	if (numargs < 1 \|\| args[0].type != sl_str32)
	594	{
	595	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);
	596	return 0;
	597	}
	598
	599	if (!args[0].value_str32)
	600	args[0].value_str32 = "";
	601
[444]	602	int ffi_ret;
	603	char* str = NULL;
	604	int size = 0;
[440]	605
[443]	606	ffi_cif cif;
[444]	607	ffi_type* ffi_args[256];
	608	void* values[256];
[440]	609
[443]	610	ffi_args[0] = &ffi_type_pointer;
[444]	611	values[0] = &str;
[443]	612	ffi_args[1] = &ffi_type_uint32;
[444]	613	values[1] = &size;
[443]	614
	615	int i;
	616	for(i = 2; i < numargs + 2; i ++)
[440]	617	{
[444]	618	if (args[i - 2].type == sl_float)
	619	{
	620	float value_float = args[i - 2].value_float;
	621	double* value_double = (double*)&(args[i - 2]);
	622	*value_double = value_float;
	623
	624	ffi_args[i] = &ffi_type_double;
	625	values[i] = value_double;
	626	}
	627	else
	628	{
	629	ffi_args[i] = &ffi_type_pointer;
	630	values[i] = &(args[i - 2].value);
	631	}
[440]	632	}
	633
[444]	634	if (ffi_prep_cif(&cif, FFI_DEFAULT_ABI, i, &ffi_type_sint32, ffi_args) != FFI_OK)
[445]	635	return 1;
[443]	636	ffi_call(&cif, (void)snprintf, (void)&ffi_ret, values);
[444]	637	str = malloc(ffi_ret + 1);
	638	size = ffi_ret + 1;
	639	ffi_call(&cif, (void)snprintf, (void)&ffi_ret, values);
	640	ret->value_str32 = str;
[443]	641	ret->type = sl_str32;
[440]	642	return 0;
	643	}
	644
[447]	645	// Widescreen patch for talking heads.
[474]	646	uint16_t ONICALL cinematic_start_patch(sl_callinfo* callinfo, unsigned int numargs, sl_arg args[], int* dontuse1, int* dontuse2, sl_arg* ret)
[447]	647	{
	648	args[1].value_int32 = (double)args[1].value_int32 / (double)(gl->DisplayMode.Width) * (4.0 / 3.0 * (double)(gl->DisplayMode.Height));
	649	return ((sl_func)(OniExe + 0x000f3830))(callinfo, numargs, args, dontuse1, dontuse2, ret);
	650	}
	651
[451]	652	bool ini_inbsl = false;
	653	bool SLrIniCallback(char* section, bool newsection, char* name, char* value)
	654	{
	655	if (newsection && !stricmp(section, "bsl"))
	656	ini_inbsl = true;
	657
	658	if (ini_inbsl)
	659	{
	660	bool isptr = false;
	661	sl_type bsl_type;
	662
	663	if (value[0] == 'p' && value[1] == 't' && value[2] == 'r' && value[3] == ':')
	664	{
	665	isptr = true;
	666	value += 4;
	667	}
	668
	669	char* type = value;
	670
	671	for (; *type; type++)
	672	if (*type == ':')
	673	{
	674	*type = '\0';
	675	type++;
	676	break;
	677	}
	678
	679	if (!*type)
	680	DDrStartupMessage("badly formed bsl definition for \"%s\"", name);
	681
	682	if (!strcmp(type, "int"))
	683	bsl_type = sl_int32;
	684	else if (!strcmp(type, "string"))
	685	bsl_type = sl_str32;
	686	else if (!strcmp(type, "float"))
	687	bsl_type = sl_float;
	688	else if (!strcmp(type, "bool"))
	689	bsl_type = sl_bool;
	690	else
	691	{
	692	DDrStartupMessage("unknown type in bsl definition for \"%s\"", name);
	693	return true;
	694	}
	695
	696	if (isptr)
	697	{
	698	char* bsl_var = malloc(strlen(name) + 1);
	699	memcpy(bsl_var, name, strlen(name) + 1);
	700	switch (bsl_type)
	701	{
	702	case sl_int32:
	703	SLrGlobalVariable_Register_Int32(bsl_var, "see daodan.ini", (int32_t*)(uint32_t)inifile_parseint(value, false));
	704	break;
	705	case sl_float:
	706	SLrGlobalVariable_Register_Float(bsl_var, "see daodan.ini", (float*)(uint32_t)inifile_parseint(value, false));
	707	break;
	708	default:
	709	break;
	710	}
	711	}
	712	else
	713	{
	714	char* bsl_var = malloc(strlen(name) + 1 + sizeof(int32_t));
	715	int32_t* bsl_val = (int32_t*)bsl_var;
	716	bsl_var += sizeof(int32_t);
	717	memcpy(bsl_var, name, strlen(name) + 1);
	718
	719	switch (bsl_type)
	720	{
	721	case sl_int32:
	722	*bsl_val = inifile_parseint(value, false);
	723	SLrGlobalVariable_Register_Int32(bsl_var, "see daodan.ini", bsl_val);
	724	break;
	725	case sl_float:
	726	break;
	727	default:
	728	break;
	729	}
	730	}
	731	}
	732	return true;
	733	}
	734
	735	void SLrConfig()
	736	{
	737	DDrStartupMessage("re-parsing daodan.ini for bsl...");
	738	inifile_read("daodan.ini", SLrIniCallback);
	739	DDrStartupMessage("finished parsing");
	740	}
	741
[439]	742	void SLrDaodan_Initalize()
	743	{
[470]	744
	745	//const char regen_patch[] = {0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90};
	746	//DDrPatch_Const(OniExe + 0x0011BB6D, regen_patch);
	747
	748	//This one should work but doesn't.
	749	//const char regen_patch[] ={0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x8B, 0x86, 0x44};
	750	//DDrPatch_Const(OniExe + 0x0011BB64, regen_patch);
	751
[451]	752	SLrConfig();
[470]	753
[439]	754	SLrScript_Command_Register_ReturnType("int32mul", "Multiplies two numbers", "n1:int n2:int", sl_int32, bsl_int32mul);
	755	SLrScript_Command_Register_ReturnType("mul", "Multiplies two numbers", "[int1:int\|float1:float] [int2:int\|float2:float]", sl_float, bsl_mul);
	756
	757	SLrScript_Command_Register_ReturnType("int32div", "Divides two numbers", "n1:int n2:int", sl_int32, bsl_int32div);
	758	SLrScript_Command_Register_ReturnType("div", "Divides two numbers", "[int1:int\|float1:float] [int2:int\|float2:float]", sl_float, bsl_div);
[440]	759
[443]	760	dsfmt_gv_init_gen_rand((uint32_t)time(NULL));
	761	SLrScript_Command_Register_ReturnType("int32rand", "Returns a pseudo-random number between two numbers (inclusive).", "start:int end:int", sl_int32, bsl_int32rand);
	762
[446]	763	SLrScript_Command_Register_ReturnType("d_getkills","Gets the number of kills a character has", "[ai_name:str \| script_id:int]", sl_int32, bsl_getkills);
	764	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);
	765	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);
[481]	766	SLrScript_Command_Register_ReturnType("d_getindex","Converts a character's name to its index", "ai_name:string", sl_int32, bsl_nametoindex);
[446]	767	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);
[470]	768	SLrScript_Command_Register_ReturnType("d_regen","Gets or sets a character's health", "[ai_name:str \| script_id:int] [newhealth:int]", sl_str32, bsl_regen);
[446]	769	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);
	770	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);
[481]	771	SLrScript_Command_Register_ReturnType("d_holdkey","Makes a character hold a key", "[ai_name:string \| script_id:int] keys frames:int", sl_int32, bsl_holdkey);
	772	SLrScript_Command_Register_ReturnType("d_isheld","Checks if player is holding a key", "keys", sl_int32, bsl_isheld);
	773	SLrScript_Command_Register_ReturnType("d_location","Returns the X, Y or Z coord of a character", "ai_name:str \| script_id:int xyz:string [newlocation:float]", sl_float, bsl_location);
	774	SLrScript_Command_Register_ReturnType("d_distance","Returns the distance between two characters", "ai_name:str \| script_id:int ai_name:str \| script_id:int ", sl_float, bsl_distance);
	775	SLrScript_Command_Register_Void("d_waitforkey","Waits for a keypress from the player", "keys", bsl_waitforkey);
[470]	776
[481]	777	//broken, only works for one damage type.
	778	//SLrScript_Command_Register_ReturnType("d_getattacker","Gets the last person to hurt a character", "[ai_name:string \| script_id:int]", sl_int32, bsl_getattacker);
[441]	779
[481]	780	//used for debugging.
	781	SLrScript_Command_Register_ReturnType("d_active","Returns a hex offset. ;)", "[ai_name:string \| script_id:int]", sl_int32, bsl_getactiveoffset);
[450]	782
[445]	783	SLrScript_Command_Register_ReturnType("sprintf", "C-style sprintf.", "format:string arg1 arg2 ...", sl_str32, bsl_sprintf);
[451]	784
[450]	785	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);
[470]	786
	787	//SLrScript_Command_Register_ReturnType("d_offset", "a test", "thing:int", sl_int32, bsl_returnoffset);
[447]	788	}
[451]	789
[447]	790	void SLrDaodan_Patch()
	791	{
	792	DDrPatch_Int32(OniExe + 0x000f3755, (int)cinematic_start_patch);
	793	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: