actorio.cc

/*
 *	actorio.cc - I/O for the Actor class.
 *
 *  Copyright (C) 2000-2011  The Exult Team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#ifndef ALPHA_LINUX_CXX
#  include <cstring>
#endif
#include "gamewin.h"
#include "chunks.h"
#include "gamemap.h"
#include "game.h"
#include "monsters.h"
#include "utils.h"
#include "egg.h"
#include "schedule.h"
#include "objiter.h"
#include "databuf.h"
#include "npctime.h"
#include "ucmachine.h"
#include "shapeinf.h"
#include "monstinf.h"

using std::ios;
using std::cout;
using std::endl;
using std::istream;
using std::ostream;

/*
 *	Read in actor from a given file.
 */

void Actor::read
	(
	DataSource* nfile,		// 'npc.dat', generally.
	int num,			// NPC #, or -1.
	bool has_usecode,		// 1 if a 'type1' NPC.
	bool& fix_unused		// Old savegame, so 'unused' isn't
					//   valid.  Possibly set here.
		//June9,02:  +++++Fix_unused should go away in a few months.
	)
	{
	npc_num = num;

	// This is used to get around parts of the files that we don't know
	// what the uses are. 'fix_first' is used fix issues in the originals
	// files that cause problems for the extra info we save.
	bool fix_first = Game::is_new_game();
					
	init();				// Clear rest of stuff.
	unsigned locx = nfile->read1();	// Get chunk/tile coords.
	unsigned locy = nfile->read1();
					// Read & set shape #, frame #.
	unsigned short shnum = nfile->read2();

	if (num == 0 && Game::get_game_type() != BLACK_GATE && 
						(shnum & 0x3ff) < 12)
		set_shape((shnum & 0x3ff) | 0x400);
	else
		set_shape(shnum & 0x3ff);

	set_frame(shnum >> 10);
	
	int iflag1 = nfile->read2();	// Inventory flag.
					// We're going to use these bits.
					// iflag1:0 == has_contents.
					// iflag1:1 == sched. usecode follows,
					//   possibly empty.
					// iflag1:2 == usecode # assigned by
					//   ES, so always use it.
					// iflag1:3 == usecode fun name assigned
					//   by ES, so use it instead.
					// iflag1:4 == Extended skin number
	bool read_sched_usecode = !fix_first && (iflag1&2);
	bool usecode_name_used = !fix_first && (iflag1&8);
	if (usecode_name_used || (!fix_first && (iflag1&4)))
		usecode_assigned = true;
	bool extended_skin = !fix_first && (iflag1&16);

	int schunk = nfile->read1();	// Superchunk #.
					// For multi-map:
	int map_num = nfile->read1();
	if (fix_first)
		map_num = 0;
	Game_map *npcmap = gwin->get_map(map_num);
	int usefun = nfile->read2();	// Get usecode function #.
	set_lift(usefun >> 12);		// Lift is high 4 bits.
	usecode = usefun & 0xfff;
					// Need this for BG. (Not sure if SI.)
	if (npc_num >= 0 && npc_num < 256)
		usecode = 0x400 + npc_num;
					// Watch for new NPC's added.
	else if (usecode_name_used || (!has_usecode && !usecode_assigned &&
	          usecode != 0x400 + npc_num) ||
	         usecode == 0xfff)
		usecode = -1;		// Let's try this.
					// Guessing:  !!  (Want to get signed.)
	int health_val = static_cast<int>(static_cast<char>(nfile->read1()));
	set_property(static_cast<int>(Actor::health), health_val);
	nfile->skip(3);	// Skip 3 bytes.
	int iflag2 = nfile->read2();	// The 'used-in-game' flag.
	if (iflag2 == 0 && num >= 0 && !fix_unused)
		{
		if (num == 0)		// Old (bad) savegame?
			fix_unused = true;
		else
			unused = true;
#ifdef DEBUG
		cout << "NPC #" << num << " is unused" << endl;
#endif
		}

	bool has_contents = fix_first ? (iflag1 && !unused) : (iflag1&1);
	// Read first set of flags
	const int rflags = nfile->read2();
	
	if ((rflags >> 0x7) & 1) set_flag (Obj_flags::asleep);
	if ((rflags >> 0x8) & 1) set_flag (Obj_flags::charmed);
	if ((rflags >> 0x9) & 1) set_flag (Obj_flags::cursed);
	if ((rflags >> 0xB) & 1) set_flag (Obj_flags::in_party);
	if ((rflags >> 0xC) & 1) set_flag (Obj_flags::paralyzed);
	if ((rflags >> 0xD) & 1) set_flag (Obj_flags::poisoned);
	if ((rflags >> 0xE) & 1) set_flag (Obj_flags::protection);
	if (!fix_first && ((rflags >> 0xF) & 1)) 
		set_flag (Obj_flags::dead);

	// Guess
	if (((rflags >> 0xA) & 1))
		set_flag (Obj_flags::on_moving_barge);
	alignment = (rflags >> 3)&3;

	// Unknown, using for is_temporary (only when not fix_first)
	if ((rflags >> 0x6) & 1 && !fix_first) set_flag (Obj_flags::is_temporary);

	/*	Not used by exult

	Unknown in U7tech
	if ((rflags >> 0x5) & 1) set_flag (Obj_flags::unknown);
*/
	
					// Get char. atts.

	// In BG - Strength (0-5), skin colour(6-7)
	// In SI - Strength (0-4), skin colour(5-6), freeze (7)
	int strength_val = nfile->read1();

	if (Game::get_game_type() == BLACK_GATE)
	{
		set_property(static_cast<int>(Actor::strength), strength_val & 0x3F);

		if (num == 0)
		{
			if (!extended_skin)	// We will do it later for extended skins.
			{
				if (Game::get_avskin() >= 0)
					set_skin_color (Game::get_avskin());
				else
					set_skin_color (((strength_val >> 6)-1) & 0x3);
			}
		}
		else 
			set_skin_color (-1);
	}
	else
	{
		set_property(static_cast<int>(Actor::strength), strength_val & 0x1F);
		
		if (num == 0)
		{
			if (!extended_skin)	// We will do it later for extended skins.
			{
				if (Game::get_avskin() >= 0 && Game::get_avskin() <= 2)
					set_skin_color (Game::get_avskin());
				else
					set_skin_color ((strength_val >> 5) & 0x3);
			}
		}
		else 
			set_skin_color (-1);

		if ((strength_val << 7) & 1) set_flag (Obj_flags::freeze);
	}

	if (is_dying() &&		// Now we know health, strength.
	    npc_num > 0)		// DON'T do this for Avatar!
		set_flag(Obj_flags::dead);	// Fixes older savegames.
	// Dexterity
	set_property(static_cast<int>(Actor::dexterity), nfile->read1());


	// Intelligence (0-4), read(5), Tournament (6), polymorph (7)
	int intel_val = nfile->read1();

	set_property(static_cast<int>(Actor::intelligence), intel_val & 0x1F);
	if ((intel_val >> 5) & 1) set_flag (Obj_flags::read);
					// Tournament.
	if ((intel_val >> 6) & 1)
		set_flag (Obj_flags::tournament);
	if ((intel_val >> 7) & 1) set_flag (Obj_flags::polymorph);


	// Combat skill (0-6), Petra (7)
	int combat_val = nfile->read1();
	set_property(static_cast<int>(Actor::combat), combat_val & 0x7F);
	if ((combat_val << 7) & 1) set_flag (Obj_flags::petra);

	schedule_type = nfile->read1();
	int amode = nfile->read1();	// Default attack mode
					// Just stealing 2 spare bits:
	combat_protected = (amode&(1<<4)) != 0;
	user_set_attack = (amode&(1<<5)) != 0;
	attack_mode = (Attack_mode) (amode&0xf);

	nfile->skip(1); 		// Unknown
	int unk0 = nfile->read1();	// We set high bit of this value.
	int unk1 = nfile->read1();
	int magic = 0, mana= 0, temp, flags3, ident = 0;
	if (fix_first || unk0 == 0) {	// How U7 stored things.
		// If NPC 0: MaxMagic (0-4), TempHigh (5-7) and Mana(0-4), 
		//						TempLow (5-7)
		// Else: ID# (0-4), TempHigh (5-7) and Met (0), 
		//	No Spell Casting (1), Zombie (2), TempLow (5-7)
		int magic_val = nfile->read1();
		int mana_val = nfile->read1();
		temp = ((magic_val >> 2) & 0x38) + ((mana_val >> 5) & 7);
		if (num == 0) {
			magic = magic_val&0x1f;
			mana = mana_val&0x1f;
			flags3 = 1;		// Met.
		} else {
			ident = magic_val&0x1f;
			flags3 = mana_val;
		}
	} else {			// Exult stores magic for all NPC's.
		magic = unk0 & 0x7f;
		mana = unk1;
		temp = nfile->read1();
		flags3 = nfile->read1();
		ident = flags3 >> 3;
		flags3 &= 0x7;
	}
	set_property(static_cast<int>(Actor::magic), magic);
	// Need to make sure that mana is less than magic
	set_property(static_cast<int>(Actor::mana), mana<magic ? mana : magic);
	set_temperature (temp);
	set_ident(ident);
	if ((flags3 >> 0) & 1) 
		set_flag (Obj_flags::met);
	if ((flags3 >> 1) & 1) 
		set_flag(Obj_flags::no_spell_casting);
	if ((flags3 >> 2) & 1) 
		set_flag (Obj_flags::si_zombie);

	face_num = nfile->read2();	// NOTE:  Exult's using 2 bytes,
	if (fix_first)	// Not used in the original.
		//face_num &= 0xff;	// Just 1 byte in orig.
		face_num = npc_num;
	else if (!face_num && npc_num > 0)	// Fix older savegames.
		face_num = npc_num;
	nfile->skip(1);	// Unknown

	set_property(static_cast<int>(Actor::exp), nfile->read4());
	set_property(static_cast<int>(Actor::training), nfile->read1());


	nfile->skip (2);	// Primary Attacker
	nfile->skip (2);	// Secondary Attacker
	oppressor = nfile->read2();	// Oppressor NPC id.

	nfile->skip (4);	//I-Vr ??? (refer to U7tech.txt)

	schedule_loc.tx = nfile->read2();	//S-Vr Where npc is supposed to 
	schedule_loc.ty = nfile->read2();	//be for schedule)
	
	// Type flags 2
	int tflags = nfile->read2();

	// First time round, all the flags are garbage
	if (fix_first)
		{
		set_type_flags (1 << Actor::tf_walk);
		// Correct for SI, no problems for BG:
		if (tflags & (1 << Actor::tf_sex))
			clear_type_flag (Actor::tf_sex);
		else
			set_type_flag (Actor::tf_sex);
		}
	else
		set_type_flags (tflags);


	if (num == 0 && Game::get_avsex() == 0)
	{
		clear_type_flag (Actor::tf_sex);
	}
	else if (num == 0 && Game::get_avsex() == 1)
	{
		set_type_flag (Actor::tf_sex);
	}
	

	nfile->skip (5);	// Unknown

	next_schedule = nfile->read1();	// Acty ????? what is this??

	nfile->skip (1);	// SN ????? (refer to U7tech.txt)
	nfile->skip (2);	// V1 ????? (refer to U7tech.txt)
	nfile->skip (2);	// V2 ????? (refer to U7tech.txt)

	// 16 Bit Shape Numbers, allows for shapes > 1023
	shnum = nfile->read2();
	if (!fix_first && shnum)
	{
		// ++++ Testing
		if (npc_num == 0)
			set_actor_shape();
		else
			set_shape(shnum);		// 16 Bit Shape Number

		shnum = (sint16) nfile->read2();	// 16 Bit Polymorph Shape Number
		if (get_flag (Obj_flags::polymorph)) 
			{			// Try to fix messed-up flag.
			if (shnum != get_shapenum())
				set_polymorph(shnum);
			else
				clear_flag(Obj_flags::polymorph);
			}
	}
	else
	{
		nfile->skip (2);
		set_polymorph_default();
	}

	// More Exult stuff
	if (!fix_first)
	{
		uint32	f;

		// Flags
		f = nfile->read4();
		flags |= f;
		if (get_flag(Obj_flags::invisible))	/* Force timer.	*/
			need_timers()->start_invisibility();

		// Was SIFlags -- now used for schedule z coord
		schedule_loc.tz = nfile->read1();
		nfile->skip (1); // 1 free from old SIFLAGS

		// Flags2	But don't set polymorph.
		bool polym = get_flag(Obj_flags::polymorph)!= false;
		f = nfile->read4();
		flags2 |= f;
		if (!polym && get_flag(Obj_flags::polymorph))
			clear_flag(Obj_flags::polymorph);

		if (usecode_name_used)
			{	// Support for named functions.
			int funsize = nfile->read1();
			char *nm = new char[funsize+1];
			nfile->read(nm, funsize);
			nm[funsize] = 0;
			usecode_name = nm;
			usecode = ucmachine->find_function(nm);
			delete [] nm;
			}

		int skin = nfile->read1();
		if (extended_skin)
			{
			if (Game::get_avskin() >= 0)
				set_skin_color (Game::get_avskin());
			else
				set_skin_color(skin);
			}
	}
	else
	{
		// Flags
		nfile->skip (4);

		// SIFlags -- now used for schedule z coord
		nfile->skip (2);

		// Flags2 
		nfile->skip (4);

		// Extended skins
		nfile->skip (1);
	}

	// Skip 14
	nfile->skip (14);

					// Get (signed) food level.
	int food_read = static_cast<int>(static_cast<char>(nfile->read1()));
	if (fix_first) food_read = 18;
	set_property(static_cast<int>(Actor::food_level), food_read);

	// Skip 7
	nfile->skip(7);

	unsigned char namebuf[17];
	nfile->read(namebuf, 16);
	
	for (int i = 0; i < 16; i++)
		if (namebuf[i] == 0) 
			i = 16;
		/*	Used to also require namebuf[i] < 127 (jsf).	*/
		else if (namebuf[i] < ' ')
		{
			namebuf[0] = 0;
			break;
		}

	namebuf[16] = 0;		// Be sure it's 0-delimited.
//	cout << "Actor " << namebuf << " has alignment " << alignment << endl;
	
	if (num == 0 && Game::get_avname())
	{
		name = Game::get_avname();
	}
	else
		name = (char *)namebuf;		// Store copy of it.

					// Get abs. chunk. coords. of schunk.
	int scy = 16*(schunk/12);
	int scx = 16*(schunk%12);
	if (has_contents)		// Inventory?  Read.
		npcmap->read_ireg_objects(nfile, scx, scy, this);
	if (read_sched_usecode)		// Read in scheduled usecode.
		npcmap->read_special_ireg(nfile, this);
	int cx = locx >> 4;		// Get chunk indices within schunk.
	int cy = locy >> 4;
					// Get tile #'s.
	int tilex = locx & 0xf;
	int tiley = locy & 0xf;
	set_shape_pos(tilex, tiley);
	Map_chunk *olist = npcmap->get_chunk_safely(scx + cx, scy + cy);
	set_invalid();			// Not in world yet.
	if (olist && !is_dead() &&	// Valid & alive?  Put into chunk list.
	    !unused)
		{
#if 1
		move((scx + cx)*c_tiles_per_chunk + tilex,
		     (scy + cy)*c_tiles_per_chunk + tiley, 
			get_lift(), map_num);
#else
		olist->add(this);
#endif
		if (this == gwin->get_main_actor())
			gwin->set_map(map_num);
		}

	// We do this here because we need the NPC's final shape.
	if (health_val <= 0 && !unused)
		{
		// If a monster can't die, force it to have at least 1 hit point,
		// but only if the monster is used.
		// Maybe we should restore it to full health?
		Monster_info *minf = get_info().get_monster_info();
		if (minf && minf->cant_die())
			set_property(static_cast<int>(Actor::health),
				get_property(static_cast<int>(Actor::strength)));
		}

	// Only do ready best weapon if we are in BG, this is the first time
	// and we are the Avatar or Iolo
	if (Game::get_game_type() == BLACK_GATE && Game::get_avname() && (num == 0 || num == 1))
		ready_best_weapon();
	// Force Avatar and all party members to be friendly
	if (get_flag(Obj_flags::in_party) || num == 0)
		set_alignment(friendly);
#if defined(DEBUG) && 0

	cout << get_npc_num() << " Creating ";

	if (name.empty()) cout << get_name();
	else cout << name;

	cout << ", shape = " << 
		get_shapenum() <<
		", frame = " << get_framenum() << ", usecode = " <<
				usefun << endl;

	cout << "Chunk coords are (" << scx + cx << ", " << scy + cy << "), lift is "
		<< get_lift() << endl;

	cout << "Type Flags: ";
	if (get_type_flag(tf_fly)) cout << "fly ";
	if (get_type_flag(tf_swim)) cout << "swim ";
	if (get_type_flag(tf_walk)) cout << "walk ";
	if (get_type_flag(tf_ethereal)) cout << "ethereal ";
	if (get_type_flag(tf_in_party)) cout << "in party ";
	if (get_type_flag(tf_sex)) cout << "female ";
	cout << endl;

#endif
	}

/*
 *	Write out to given file.
 */

void Actor::write
	(
	DataSource* nfile			// Generally 'npc.dat'.
	)
	{
	int i;
	unsigned char buf4[4];		// Write coords., shape, frame.

	int old_shape = get_shapenum();	// Backup shape because we might change it
	set_shape( get_shape_real() );	// Change the shape out non polymorph one
	int shapenum = get_shapenum(), framenum = get_framenum();
	buf4[0] = ((get_cx()%16) << 4) | get_tx();
	buf4[1] = ((get_cy()%16) << 4) | get_ty();
	// ++++++Is this even needed anymore? We already save 16-bit shapes below.
	buf4[2] = shapenum&0xff;
	buf4[3] = ((shapenum>>8)&3) | (framenum<<2);

	nfile->write(reinterpret_cast<char*>(buf4), sizeof(buf4));

	set_shape( old_shape );		// Revert the shape to what it was

					// Inventory flag.
					// Bit0 = has_contents (our use).
					// Bit1 = our savegame, with sched.
					//   usecode script following this.
					// iflag1:2 == usecode # assigned by
					//   ES, so always use it.
					// iflag1:3 == usecode fun name assigned
					//   by ES, so use it instead.
					// iflag1:4 == Extended skin number
	int iflag1 = objects.is_empty() ? 0 : 1;
	iflag1 |= 2;			// We're always doing write_scheduled()
	if (usecode_assigned)	// # assigned by EStudio?
	{
		// If we have a name, use it instead of the usecode #.
		if (!usecode_name.empty())
			iflag1 |= 8;		// Set bit 3.
		else
			iflag1 |= 4;		// Set bit 2.
	}
	iflag1 |= 16;	// Set bit 4.

	nfile->write2(iflag1);
			// Superchunk #.
	nfile->write1((get_cy()/16)*12 + get_cx()/16);

	int map_num = get_map_num();
	if (map_num < 0)
		// we store all off-map actors in map 0
		map_num = 0;
	assert(map_num >= 0 && map_num < 256);
	nfile->write1(map_num);		// Borrowing for map #.
					// Usecode.
	int usefun = get_usecode() & 0xfff;
					// Lift is in high 4 bits.
	usefun |= ((get_lift()&15) << 12);
	nfile->write2(usefun);
	nfile->write1(get_property(Actor::health));
	nfile->write1(0);			// Unknown 3 bytes.
	nfile->write2(0);
	nfile->write2(unused ? 0 : 1);	// Write 0 if unused.

	//Write first set of flags
	int iout = 0;
	
	if (get_flag (Obj_flags::asleep)) iout |= 1 << 0x7;
	if (get_flag (Obj_flags::charmed)) iout |= 1 << 0x8;
	if (get_flag (Obj_flags::cursed)) iout |= 1 << 0x9;
	if (get_flag (Obj_flags::in_party)) iout |= 1 << 0xB;
	if (get_flag (Obj_flags::paralyzed)) iout |= 1 << 0xC;
	if (get_flag (Obj_flags::poisoned)) iout |= 1 << 0xD;
	if (get_flag (Obj_flags::protection)) iout |= 1 << 0xE;

	// Guess
	if (get_flag (Obj_flags::on_moving_barge)) iout |= 1 << 0xA;
					// Alignment is bits 3-4.

	// Unknownm using for is_temp
	if (get_flag (Obj_flags::is_temporary)) iout |= 1 << 0x6;

	iout |= ((alignment&3) << 3);

	nfile->write2(iout);
	
					// Write char. attributes.
	iout = get_property(Actor::strength);
	if (Game::get_game_type() != BLACK_GATE && npc_num == 0) iout |= (get_skin_color () & 3) << 5;
	else if (npc_num == 0) iout |= ((get_skin_color()+1) & 3) << 6;

	if (get_flag (Obj_flags::freeze)) iout |= 1 << 7;
	nfile->write1(iout);
	
	nfile->write1(get_property(Actor::dexterity));
	
	iout = get_property(Actor::intelligence);
	if (get_flag (Obj_flags::read)) iout |= 1 << 5;
					// Tournament
	if (get_flag (Obj_flags::tournament)) iout |= 1 << 6;
	if (get_flag (Obj_flags::polymorph)) iout |= 1 << 7;
	nfile->write1(iout);


	iout = get_property(Actor::combat);
	if (get_flag (Obj_flags::petra)) iout |= 1 << 7;
	nfile->write1(iout);
	
	nfile->write1(get_schedule_type());
	unsigned char amode = attack_mode | 
		(combat_protected ? (1<<4) : 0) |
		(user_set_attack ? (1<<5) : 0);
	nfile->write1(amode);
	nfile->write1(0);		// Skip 1.
	// Exult is using the 2 unknown bytes to store magic, mana for all
	//   NPC's, and to store temperature more simply.
	int magic = get_property(static_cast<int>(Actor::magic));
	nfile->write1(magic|0x80);	// Set high bit to flag new format.
	nfile->write1(get_property(static_cast<int>(Actor::mana)));
	nfile->write1(get_temperature());
	int flags3 = 0;
	if (get_flag (Obj_flags::met)) flags3 |= 1;
	if (get_flag (Obj_flags::no_spell_casting)) flags3 |= 1 << 1;
	if (get_flag (Obj_flags::si_zombie)) flags3 |= 1 << 2;
	flags3 |= (get_ident()<<3);
	nfile->write1 (flags3);

	nfile->write2(face_num);
	nfile->write1(0);		// Skip 2

	nfile->write4(get_property(Actor::exp));
	nfile->write1(get_property(Actor::training));
			// 0x40 unknown.

	nfile->write2(0);	// Skip 2*2
	nfile->write2(0);
	nfile->write2(oppressor);	// Oppressor.

	nfile->write4(0);	// Skip 2*2
	
	nfile->write2(old_schedule_loc.tx);	//S-Vr Where npc is supposed to 
	nfile->write2(old_schedule_loc.ty);	//be for schedule)
	//nfile->write4(0);

	nfile->write2(get_type_flags());	// Typeflags
	
	nfile->write4(0);	// Skip 5
	nfile->write1(0);

	nfile->write1(next_schedule);	// Acty ????? what is this??

	nfile->write1(0);		// Skip 1
	nfile->write2(0);	// Skip 2
	nfile->write2(0);	// Skip 2

	// 16 Bit Shapes
	if (get_flag (Obj_flags::polymorph))
	{
		nfile->write2(shape_save);	// 16 Bit Shape Num
		nfile->write2(get_shapenum());	// 16 Bit Polymorph Shape
	}
	else
	{
		nfile->write2(get_shapenum());	// 16 Bit Shape Num
		nfile->write2(0);		// 16 Bit Polymorph Shape
	}

	// Flags
	nfile->write4(flags);

	// was SIFlags -- now used for schedule z coord
	nfile->write1(old_schedule_loc.tz);
	nfile->write1(0); // 1 free from old SIFLAGS

	// flags2
	nfile->write4(flags2);

	if (usecode_assigned && !usecode_name.empty())
	{	// Support for named functions.
		int size = usecode_name.size();
		nfile->write1(size);
		char *nm = new char[size];
		std::strncpy(nm, usecode_name.c_str(), size);
		nfile->write(nm, size);
		delete [] nm;
	}

	nfile->write1((char)get_skin_color());

	// Skip 14
	for (i = 0; i < 14; i++)
		nfile->write1(0);
	
	// Food
	nfile->write1(get_property (Actor::food_level));

	// Skip 7
	for (i = 0; i < 7; i++)
		nfile->write1(0);

	char namebuf[17];		// Write 16-byte name.
	std::memset(namebuf, 0, 16);
	if (name.empty()) {
		std::string namestr = Game_object::get_name();
		std::strncpy(namebuf, namestr.c_str(), 16);
	} else
		std::strncpy(namebuf, name.c_str(), 16);
	nfile->write(namebuf, 16);
	write_contents(nfile);		// Write what he holds.
	namebuf[16] = 0;
	if (atts)
		{
		Actor::Atts_vector attlist;
		get_attributes(attlist);
		Game_map::write_attributes(nfile, attlist);
		}
					// Write scheduled usecode.
	Game_map::write_scheduled(nfile, this, true);
	}

/*
 *	Write out to given file.
 */

void Monster_actor::write
	(
	DataSource* nfile			// Generally 'npc.dat'.
	)
	{
	/*	// This is checked in Game_window::write_npcs.
	if (Actor::is_dead())		// Not alive?
		return;
	*/
	Actor::write(nfile);		// Now write.
	}

/*
 *	Write Inventory
 */

/*
 *	Write contents (if there is any).
 */

void Actor::write_contents
	(
	DataSource* out
	)
{
	if (!objects.is_empty())	// Now write out what's inside.
	{
		const int num_spots = static_cast<int>(sizeof(spots)/sizeof(spots[0]));
		int i;

		for (i = 0; i < num_spots; ++i)
		{
			// Spot Increment
			if (spots[i])
			{
				// Write 2 byte index id
				out->write1(0x02);
				out->write2(static_cast<uint8>(i));
				spots[i]->write_ireg(out);
			}
		}

		Game_object *obj;
		Object_iterator next(objects);

		while ((obj = next.get_next()) != 0)
		{
			for (i = 0; i < num_spots; ++i)
				if (spots[i] == obj)
					break;

			if (i == num_spots)
			{
				// Write 2 byte index id (-1 = no slot)
				i = -1;
				out->write1(0x02);
				out->write2(static_cast<uint8>(i));
				obj->write_ireg(out);
			}
		}
		out->write1(0x01);		// A 01 terminates the list.
	}
}