BUILDIN_FUNC(sendmail)
{
	struct mail_message msg;
	const char* body; 
	const char* title; 
	int zeny, nameid, amount;
	struct script_data *data;


	memset(&msg, '\0', sizeof (msg));

	amount = script_getnum(st, 4);
	zeny = script_getnum(st, 5);
	title = script_getstr(st, 6);
	body = script_getstr(st, 7);

	if (script_hasdata(st, 8))
	{
		const char* sender_name = script_getstr(st, 8);

		if (strlen(sender_name) < 4)
			safestrncpy(msg.send_name, "Server", NAME_LENGTH);
		else
			safestrncpy(msg.send_name, sender_name, NAME_LENGTH);
	}
	else
	{
		TBL_PC *sender_sd = script_rid2sd(st);
		
		if (sender_sd == NULL)
			safestrncpy(msg.send_name, "Server", strlen("Server")+1);
		else
		{
			msg.send_id = sender_sd->status.char_id;
			safestrncpy(msg.send_name, sender_sd->status.name, NAME_LENGTH);
		}
	}
	
	data = script_getdata(st, 2);
	get_val(st, data);
	
	if ( data_isint(data) )
	{
		int char_id = conv_num(st, data);
		const char *name;
		
		msg.dest_id = char_id;
		
		if ( (name = map_charid2nick(char_id)) != NULL )
			safestrncpy(msg.dest_name, name, NAME_LENGTH);
		else
		{
			ShowError("buildin_sendmail: Nonexistant destination char_id %d requested.\n", char_id);
			return 1; 
		}
	}
	else if ( data_isstring(data) )
	{
		const char* destination_name = conv_str(st, data);
		
		if (strlen(destination_name) < 4 ) // bad dest? then it fails!
		{
			ShowError("buildin_sendmail: Bad destination player %s requested.\n", destination_name);
			script_pushint(st, -1);
			return 1;
		}
		else
			safestrncpy(msg.dest_name, destination_name, NAME_LENGTH);
	}
	
	
	data = script_getdata(st, 3);
	get_val(st, data);
	
	if ( data_isstring(data) )
	{
		const char *name=conv_str(st,data);
		struct item_data *item_data = itemdb_searchname(name);
		
		if( item_data == NULL )
		{
			ShowError("buildin_sendmail: Nonexistant item %s requested.\n", name);
			return 1; //No item created.
		}
		
		nameid = item_data->nameid;
	}	

	if ( strlen(title) < 1 )
		safestrncpy(msg.title, "Mail Scripting System", MAIL_TITLE_LENGTH);
	else
		safestrncpy(msg.title, title, MAIL_TITLE_LENGTH );
	
	if ( strlen(body) < 1 || strlen(body) > MAIL_BODY_LENGTH)
		memset(msg.body, 0, MAIL_BODY_LENGTH);
	else
		safestrncpy(msg.body, body, strlen(body)+1);
		
	msg.status = MAIL_NEW;
	msg.timestamp = time(NULL);
	msg.zeny = zeny;

	if (amount)
	{
		msg.item.nameid = nameid;
		msg.item.amount = amount;
		msg.item.identify = 1;
	}


	script_pushint(st, intif_Mail_send(0, &msg));

	return 0;
}



	BUILDIN_DEF(sendmail, "vviiss?"),