- Some cleanup of int_homun.c

- Added homun saving/loading support to char-TXT. Note that this is completely untested, so it may be as good as broken.


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@8299 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 395 insertions, 0 deletions

diff --git a/src/char/int_homun.c b/src/char/int_homun.c
new file mode 100644
index 000000000..35b54c2fe
--- /dev/null
+++ b/src/char/int_homun.c
@@ -0,0 +1,395 @@
+// Copyright (c) Athena Dev Teams - Licensed under GNU GPL

+// For more information, see LICENCE in the main folder

+

+#include <stdio.h>

+#include <stdlib.h>

+#include <string.h>

+

+#include "../common/mmo.h"

+#include "../common/socket.h"

+#include "../common/db.h"

+#include "../common/lock.h"

+#include "../common/showmsg.h"

+#include "char.h"

+#include "inter.h"

+#include "int_homun.h"

+

+char homun_txt[1024]="save/homun.txt";

+

+static struct dbt *homun_db;

+static int homun_newid = 100;

+

+int inter_homun_tostr(char *str,struct s_homunculus *p)

+{

+	int i;

+

+	str+=sprintf(str,"%d,%d,%s\t%d,%d,%d,%d,%d,"

+		"%lu,%d,%d,%d,"

+		"%lu,%d,%d,"

+		"%d,%d,%d,%d,%d,%d\t",

+		p->hom_id, p->class_, p->name,

+		p->char_id, p->hp, p->max_hp, p->sp, p->max_sp,

+	  	p->intimacy, p->hunger, p->skillpts, p->level,

+		p->exp, p->rename_flag, p->vaporize,

+		p->str, p->agi, p->vit, p->int_, p->dex, p->luk);

+

+	for (i = 0; i < MAX_HOMUNSKILL; i++)

+	{

+		if (p->hskill[i].id && !p->hskill[i].flag)

+			str+=sprintf(str,"%d,%d,", p->hskill[i].id, p->hskill[i].lv);

+	}

+

+	return 0;

+}

+

+int inter_homun_fromstr(char *str,struct s_homunculus *p)

+{

+	int i, next, len;

+	int tmp_int[25];

+	unsigned int tmp_uint[5];

+	char tmp_str[256];

+

+	memset(p,0,sizeof(struct s_homunculus));

+

+	i=sscanf(str,"%d,%d,%[^\t]\t%d,%d,%d,%d,%d,"

+		"%u,%d,%d,%d,"

+		"%u,%d,%d,"

+		"%d,%d,%d,%d,%d,%d\t%n",

+		&tmp_int[0],&tmp_int[1],tmp_str,

+		&tmp_int[2],&tmp_int[3],&tmp_int[4],&tmp_int[5],&tmp_int[6],

+		&tmp_uint[0],&tmp_int[7],&tmp_int[8],&tmp_int[9],

+		&tmp_uint[1],&tmp_int[10],&tmp_int[11],

+		&tmp_int[12],&tmp_int[13],&tmp_int[14],&tmp_int[15],&tmp_int[16],&tmp_int[17],

+		&next);

+

+	if(i!=21)

+		return 1;

+

+	p->hom_id = tmp_int[0];

+	p->class_ = tmp_int[1];

+	memcpy(p->name, tmp_str, NAME_LENGTH-1);

+

+	p->char_id = tmp_int[2];

+  	p->hp = tmp_int[3];

+	p->max_hp = tmp_int[4];

+	p->sp = tmp_int[5];

+	p->max_sp = tmp_int[6];

+

+	p->intimacy = tmp_uint[0];

+	p->hunger = tmp_int[7];

+	p->skillpts = tmp_int[8];

+	p->level = tmp_int[9];

+

+	p->exp = tmp_uint[1];

+	p->rename_flag = tmp_int[10];

+	p->vaporize = tmp_int[11];

+

+	p->str = tmp_int[12];

+	p->agi = tmp_int[13];

+	p->vit = tmp_int[14];

+	p->int_= tmp_int[15];

+	p->dex = tmp_int[16];

+	p->luk = tmp_int[17];

+

+	//Read skills.

+	while(str[next]) {

+		if (sscanf(str+next, "%d,%d,%n", &tmp_int[0], &tmp_int[1], &len) != 2)

+			return 2;

+

+		if (tmp_int[0] >= HM_SKILLBASE && tmp_int[0] < HM_SKILLBASE+MAX_HOMUNSKILL)

+		{

+			i = tmp_int[0] - HM_SKILLBASE;

+			p->hskill[i].id = tmp_int[0];

+			p->hskill[i].lv = tmp_int[1];

+		} else

+			ShowError("Read Homun: Unsupported Skill ID %d for homunculus (Homun ID=%d\n", tmp_int[0], p->hom_id);

+		next += len;

+		if (str[next] == ' ')

+			next++;

+	}

+	return 0;

+}

+

+int inter_homun_init()

+{

+	char line[8192];

+	struct s_homunculus *p;

+	FILE *fp;

+	int c=0;

+

+	homun_db= db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_RELEASE_DATA,sizeof(int));

+

+	if( (fp=fopen(homun_txt,"r"))==NULL )

+		return 1;

+	while(fgets(line,sizeof(line),fp)){

+		p = (struct s_homunculus*)aCalloc(sizeof(struct s_homunculus), 1);

+		if(p==NULL){

+			ShowFatalError("int_homun: out of memory!\n");

+			exit(0);

+		}

+		if(inter_homun_fromstr(line,p)==0 && p->hom_id>0){

+			if( p->hom_id >= homun_newid)

+				homun_newid=p->hom_id+1;

+			idb_put(homun_db,p->hom_id,p);

+		}else{

+			ShowError("int_homun: broken data [%s] line %d\n",homun_txt,c);

+			aFree(p);

+		}

+		c++;

+	}

+	fclose(fp);

+//	printf("int_homun: %s read done (%d homuns)\n",homun_txt,c);

+	return 0;

+}

+

+void inter_homun_final()

+{

+	homun_db->destroy(homun_db, NULL);

+	return;

+}

+

+int inter_homun_save_sub(DBKey key,void *data,va_list ap)

+{

+	char line[8192];

+	FILE *fp;

+	inter_homun_tostr(line,(struct s_homunculus *)data);

+	fp=va_arg(ap,FILE *);

+	fprintf(fp,"%s" RETCODE,line);

+	return 0;

+}

+

+int inter_homun_save()

+{

+	FILE *fp;

+	int lock;

+	if( (fp=lock_fopen(homun_txt,&lock))==NULL ){

+		ShowError("int_homun: cant write [%s] !!! data is lost !!!\n",homun_txt);

+		return 1;

+	}

+	homun_db->foreach(homun_db,inter_homun_save_sub,fp);

+	lock_fclose(fp,homun_txt,&lock);

+//	printf("int_homun: %s saved.\n",homun_txt);

+	return 0;

+}

+

+int inter_homun_delete(int hom_id)

+{

+	struct s_homunculus *p;

+	p = idb_get(homun_db,hom_id);

+	if( p == NULL)

+		return 0;

+	idb_remove(homun_db,hom_id);

+	ShowInfo("Deleted homun (hom_id: %d)\n",hom_id);

+	return 1;

+}

+

+int mapif_homun_created(int fd,int account_id, int char_id, struct s_homunculus *p)

+{

+	WFIFOW(fd, 0) =0x3890;

+	WFIFOL(fd,2) = account_id;

+	WFIFOL(fd,6) = char_id;

+	if(p){

+		WFIFOW(fd,10)=1;

+		WFIFOL(fd,12)=p->hom_id;

+    } else{

+		WFIFOW(fd,10)=0;

+		WFIFOL(fd,12)=0;

+	}

+	WFIFOSET(fd, 16);

+

+	return 0;

+}

+

+int mapif_homun_info(int fd,int account_id,struct s_homunculus *p)

+{

+	WFIFOHEAD(fd, sizeof(struct s_homunculus)+9);

+	WFIFOW(fd,0) = 0x3891;

+	WFIFOW(fd,2) = sizeof(struct s_homunculus)+9;

+	WFIFOL(fd,4) = account_id;

+	WFIFOB(fd,8) = 1; // account loaded with success

+

+	memcpy(WFIFOP(fd,9), p, sizeof(struct s_homunculus));

+	WFIFOSET(fd,WFIFOW(fd,2));

+	return 0;

+}

+

+int mapif_homun_noinfo(int fd,int account_id)

+{

+	WFIFOHEAD(fd,sizeof(struct s_homunculus) + 9);

+	WFIFOW(fd,0)=0x3891;

+	WFIFOW(fd,2)=sizeof(struct s_homunculus) + 9;

+	WFIFOL(fd,4)=account_id;

+	WFIFOB(fd,8)=0;

+	memset(WFIFOP(fd,9),0,sizeof(struct s_homunculus));

+	WFIFOSET(fd,WFIFOW(fd,2));

+

+	return 0;

+}

+

+int mapif_save_homun_ack(int fd,int account_id,int flag)

+{

+	WFIFOHEAD(fd, 7);

+	WFIFOW(fd,0)=0x3892;

+	WFIFOL(fd,2)=account_id;

+	WFIFOB(fd,6)=flag;

+	WFIFOSET(fd,7);

+	return 0;

+}

+

+int mapif_delete_homun_ack(int fd,int flag)

+{

+	WFIFOHEAD(fd, 3);

+	WFIFOW(fd,0)=0x3893;

+	WFIFOB(fd,2)=flag;

+	WFIFOSET(fd,3);

+	return 0;

+}

+

+int mapif_rename_homun_ack(int fd, int account_id, int char_id, int flag, char *name){

+	WFIFOW(fd, 0) =0x3894;

+	WFIFOL(fd, 2) =account_id;

+	WFIFOL(fd, 6) =char_id;

+	WFIFOB(fd, 10) =flag;

+	memcpy(WFIFOP(fd, 11), name, NAME_LENGTH);

+	WFIFOSET(fd, NAME_LENGTH+12);

+

+	return 0;

+}

+

+int mapif_create_homun(int fd)

+{

+	struct s_homunculus *p;

+	int account_id = RFIFOL(fd,2);

+	int char_id = RFIFOL(fd,6);

+	p= (struct s_homunculus *) aCalloc(sizeof(struct s_homunculus), 1);

+	if(p==NULL){

+		ShowFatalError("int_homun: out of memory !\n");

+		mapif_homun_created(fd,account_id,char_id,NULL);

+		return 0;

+	}

+	/* Data from packet */

+	p->char_id = char_id;

+	p->class_ = RFIFOW(fd,10);

+	p->max_hp = RFIFOL(fd,12);

+	p->max_sp = RFIFOL(fd,16);

+	memcpy(p->name, (char*)RFIFOP(fd, 20), NAME_LENGTH-1);

+	p->str = RFIFOL(fd,44);

+	p->agi = RFIFOL(fd,48);

+	p->vit = RFIFOL(fd,52);

+	p->int_ = RFIFOL(fd,56);

+	p->dex = RFIFOL(fd,60);

+	p->luk = RFIFOL(fd,64);

+

+	/* Const data for each creation*/

+	p->hom_id = homun_newid++;

+	p->exp = 0;

+	p->hp = 10 ;

+	p->sp = 0 ;

+	p->rename_flag = 0;

+	p->skillpts =0;

+	p->hunger = 32;

+	p->level=1;

+	p->intimacy = 21;

+

+	idb_put(homun_db,p->hom_id,p);

+	mapif_homun_created(fd,account_id,char_id,p);

+	return 0;

+}

+

+int mapif_load_homun(int fd)

+{

+	struct s_homunculus *p;

+	int account_id = RFIFOL(fd,2);

+

+	p= idb_get(homun_db,RFIFOL(fd,6));

+	if(p==NULL) {

+		mapif_homun_noinfo(fd,account_id);

+		return 0;

+	}

+	mapif_homun_info(fd,account_id,p);

+	return 0;

+}

+

+static void* create_homun(DBKey key, va_list args) {

+	struct s_homunculus *p;

+	p=(struct s_homunculus *)aCalloc(sizeof(struct s_homunculus),1);

+	p->hom_id = key.i;

+	return p;

+}

+int mapif_save_homun(int fd,int account_id,struct s_homunculus *data)

+{

+	struct s_homunculus *p;

+	int hom_id;

+	RFIFOHEAD(fd);

+	

+	if (data->hom_id == 0)

+		data->hom_id = homun_newid++;

+	hom_id = data->hom_id;

+	p= idb_ensure(homun_db,hom_id,create_homun);

+	memcpy(p,data,sizeof(struct s_homunculus));

+	mapif_save_homun_ack(fd,account_id,0);

+	return 0;

+}

+

+int mapif_delete_homun(int fd,int hom_id)

+{

+	mapif_delete_homun_ack(fd,inter_homun_delete(hom_id));

+	return 0;

+}

+

+int mapif_rename_homun(int fd, int account_id, int char_id, char *name){

+	int i;

+

+	// Check Authorised letters/symbols in the name of the homun

+	if (char_name_option == 1) { // only letters/symbols in char_name_letters are authorised

+		for (i = 0; i < NAME_LENGTH && name[i]; i++)

+		if (strchr(char_name_letters, name[i]) == NULL) {

+			mapif_rename_homun_ack(fd, account_id, char_id, 0, name);

+			return 0;

+		}

+	} else if (char_name_option == 2) { // letters/symbols in char_name_letters are forbidden

+		for (i = 0; i < NAME_LENGTH && name[i]; i++)

+		if (strchr(char_name_letters, name[i]) != NULL) {

+			mapif_rename_homun_ack(fd, account_id, char_id, 0, name);

+			return 0;

+		}

+	}

+

+	mapif_rename_homun_ack(fd, account_id, char_id, 1, name);

+	return 0;

+}

+

+int mapif_parse_SaveHomun(int fd)

+{

+	RFIFOHEAD(fd);

+	mapif_save_homun(fd,RFIFOL(fd,4),(struct s_homunculus *)RFIFOP(fd,8));

+	return 0;

+}

+

+int mapif_parse_DeleteHomun(int fd)

+{

+	RFIFOHEAD(fd);

+	mapif_delete_homun(fd,RFIFOL(fd,2));

+	return 0;

+}

+

+int mapif_parse_RenameHomun(int fd){

+	mapif_rename_homun(fd, RFIFOL(fd, 2), RFIFOL(fd, 6), RFIFOP(fd, 10));

+	return 0;

+}

+

+int inter_homun_parse_frommap(int fd)

+{

+	RFIFOHEAD(fd);

+	switch(RFIFOW(fd,0)){

+	case 0x3080: mapif_create_homun(fd); break;

+	case 0x3081: mapif_load_homun(fd); break;

+	case 0x3082: mapif_parse_SaveHomun(fd); break;

+	case 0x3083: mapif_parse_DeleteHomun(fd); break;

+	case 0x3084: mapif_parse_RenameHomun(fd); break;

+	default:

+		return 0;

+	}

+	return 1;

+}

+