/*
 * $Id: mech.tech.saverepair.c,v 1.1.1.1 2005/01/11 21:18:26 kstevens Exp $
 *
 * Author: Markus Stenberg <fingon@iki.fi>
 *
 *  Copyright (c) 1997 Markus Stenberg
 *  Copyright (c) 1998-2002 Thomas Wouters
 *  Copyright (c) 2000-2002 Cord Awtry
 *       All rights reserved
 *
 * Created: Fri Mar 14 19:17:19 1997 fingon
 * Last modified: Thu Oct 30 18:42:58 1997 fingon
 *
 */

#include "mech.h"
#include "mech.events.h"
#include "mech.tech.h"

static FILE *cheat_file;
static int ev_type;

#define CHESA(var) fwrite(&var, sizeof(var), 1, cheat_file)
#define CHELO(var)  if (!fread(&var, sizeof(var), 1, f)) return

static void save_event(MUXEVENT * e)
{
	MECH *mech = (MECH *) e->data;
	int data = (int) e->data2;
	int t;

	t = e->tick - muxevent_tick;
	t = MAX(1, t);
	if(e->function == very_fake_func)
		t = 0 - t;
	CHESA(mech->mynum);
	CHESA(ev_type);
	CHESA(t);
	CHESA(data);
}

void saverepairs(FILE * f)
{
	int i;
	dbref d = -1;

	cheat_file = f;
	for(i = FIRST_TECH_EVENT; i <= LAST_TECH_EVENT; i++) {
		ev_type = i;
		muxevent_gothru_type(i, save_event);
	}
	CHESA(d);
}

void loadrepairs(FILE * f)
{
	dbref d, player;
	int type;
	int data;
	int time;
	MECH *mech;
	int loaded = 0;
	int fake;

	if(feof(f))
		return;
	fread(&d, sizeof(d), 1, f);
	while (d > 0 && !feof(f)) {
		loaded++;
		CHELO(type);
		CHELO(time);
		CHELO(data);
		fake = (time < 0);
		time = abs(time);
		if(!(mech = FindObjectsData(d)))
			continue;
		player = data / PLAYERPOS;
		data = data % PLAYERPOS;
		if(fake)
			FIXEVENT(time, mech, data, very_fake_func, type);
		else
			switch (type) {
			case EVENT_REPAIR_MOB:
				FIXEVENT(time, mech, data, muxevent_tickmech_mountbomb, type);
				break;
			case EVENT_REPAIR_UMOB:
				FIXEVENT(time, mech, data, muxevent_tickmech_umountbomb,
						 type);
				break;
			case EVENT_REPAIR_REPL:
				FIXEVENT(time, mech, data, muxevent_tickmech_repairpart,
						 type);
				break;
			case EVENT_REPAIR_REPLG:
				FIXEVENT(time, mech, data, muxevent_tickmech_replacegun,
						 type);
				break;
			case EVENT_REPAIR_REPAP:
				FIXEVENT(time, mech, data, muxevent_tickmech_repairpart,
						 type);
				break;
			case EVENT_REPAIR_REPENHCRIT:
				FIXEVENT(time, mech, data, muxevent_tickmech_repairenhcrit,
						 type);
				break;
			case EVENT_REPAIR_REPAG:
				FIXEVENT(time, mech, data, muxevent_tickmech_repairgun, type);
				break;
			case EVENT_REPAIR_REAT:
				FIXEVENT(time, mech, data, muxevent_tickmech_reattach, type);
				break;
			case EVENT_REPAIR_RELO:
				FIXEVENT(time, mech, data, muxevent_tickmech_reload, type);
				break;
			case EVENT_REPAIR_FIX:
				FIXEVENT(time, mech, data, muxevent_tickmech_repairarmor,
						 type);
				break;
			case EVENT_REPAIR_FIXI:
				FIXEVENT(time, mech, data, muxevent_tickmech_repairinternal,
						 type);
				break;
			case EVENT_REPAIR_SCRL:
				FIXEVENT(time, mech, data, muxevent_tickmech_removesection,
						 type);
				break;
			case EVENT_REPAIR_SCRG:
				FIXEVENT(time, mech, data, muxevent_tickmech_removegun, type);
				break;
			case EVENT_REPAIR_SCRP:
				FIXEVENT(time, mech, data, muxevent_tickmech_removepart,
						 type);
				break;
			case EVENT_REPAIR_REPSUIT:
				FIXEVENT(time, mech, data, muxevent_tickmech_replacesuit,
						 type);
				break;
			}
		CHELO(d);
	}
	if(loaded)
		fprintf(stderr, "LOADED: %d tech events.\n", loaded);
}