/*
 * OpenClonk, http://www.openclonk.org
 *
 * Copyright (c) 2001-2002, 2004-2008  Sven Eberhardt
 * Copyright (c) 2004  Matthes Bender
 * Copyright (c) 2004, 2006-2008  Peter Wortmann
 * Copyright (c) 2005-2008  G?nther Brammer
 * Copyright (c) 2001-2009, RedWolf Design GmbH, http://www.clonk.de
 *
 * Portions might be copyrighted by other authors who have contributed
 * to OpenClonk.
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 * See isc_license.txt for full license and disclaimer.
 *
 * "Clonk" is a registered trademark of Matthes Bender.
 * See clonk_trademark_license.txt for full license.
 */
// game object lists

#include <C4Include.h>
#include <C4GameObjects.h>

#ifndef BIG_C4INCLUDE
#include <C4Object.h>
#include <C4ObjectCom.h>
#include <C4Random.h>
#include <C4SolidMask.h>
#include <C4Network2Stats.h>
#include <C4Game.h>
#include <C4Log.h>
#include <C4PlayerList.h>
#include <C4Record.h>
#endif

C4GameObjects::C4GameObjects()
	{
	Default();
	}

C4GameObjects::~C4GameObjects()
	{
	Sectors.Clear();
	}

void C4GameObjects::Default()
	{
	ResortProc=NULL;
	Sectors.Clear();
	LastUsedMarker = 0;
	BackObjects.Default();
	ForeObjects.Default();
	}

void C4GameObjects::Init(int32_t iWidth, int32_t iHeight)
	{
	// init sectors
	Sectors.Init(iWidth, iHeight);
	}

bool C4GameObjects::Add(C4Object *nObj)
	{
	// add inactive objects to the inactive list only
	if (nObj->Status == C4OS_INACTIVE)
		return InactiveObjects.Add(nObj, C4ObjectList::stMain);
	// if this is a background object, add it to the list
	if (nObj->Category & C4D_Background)
		::Objects.BackObjects.Add(nObj, C4ObjectList::stMain);
	// if this is a foreground object, add it to the list
	if (nObj->Category & C4D_Foreground)
		::Objects.ForeObjects.Add(nObj, C4ObjectList::stMain);
	// manipulate main list
	if(!C4ObjectList::Add(nObj, C4ObjectList::stMain))
		return false;
	// add to sectors
	Sectors.Add(nObj, this);
	return true;
	}


bool C4GameObjects::Remove(C4Object *pObj)
	{
	// if it's an inactive object, simply remove from the inactiv elist
	if (pObj->Status == C4OS_INACTIVE) return InactiveObjects.Remove(pObj);
	// remove from sectors
	Sectors.Remove(pObj);
	// remove from backlist
	::Objects.BackObjects.Remove(pObj);
	// remove from forelist
	::Objects.ForeObjects.Remove(pObj);
	// manipulate main list
	return C4ObjectList::Remove(pObj);
	}

C4ObjectList &C4GameObjects::ObjectsAt(int ix, int iy)
	{
	return Sectors.SectorAt(ix, iy)->ObjectShapes;
	}

void C4GameObjects::CrossCheck() // Every Tick1 by ExecObjects
	{
	C4Object *obj1,*obj2;
	DWORD ocf1,ocf2,focf,tocf;

	// AtObject-Check: Checks for first match of obj1 at obj2

	// Checks for this frame
	focf=tocf=OCF_None;
	// Medium level: Fight
	if (!::Game.iTick5)
		{ focf|=OCF_FightReady; tocf|=OCF_FightReady; }
	// Very low level: Incineration
	if (!::Game.iTick35)
		{ focf|=OCF_OnFire; tocf|=OCF_Inflammable; }

	if (focf && tocf)
		for (C4ObjectList::iterator iter=begin(); iter != end() && (obj1=*iter); ++iter)
			if (obj1->Status && !obj1->Contained)
				if (obj1->OCF & focf)
					{
					ocf1=obj1->OCF; ocf2=tocf;
					if (obj2=AtObject(obj1->GetX(),obj1->GetY(),ocf2,obj1))
						{
						// Incineration
						if ((ocf1 & OCF_OnFire) && (ocf2 & OCF_Inflammable))
							if (!Random(obj2->Def->ContactIncinerate))
								{ obj2->Incinerate(obj1->GetFireCausePlr(), false, obj1); continue; }
						// Fight
						if ((ocf1 & OCF_FightReady) && (ocf2 & OCF_FightReady))
							if (::Players.Hostile(obj1->Owner,obj2->Owner))
								{
								// RejectFight callback
								C4AulParSet parset1(C4VObj(obj2) );
								C4AulParSet parset2(C4VObj(obj1) );
								if(obj1->Call(PSF_RejectFight, &parset1).getBool() ) continue;
								if(obj2->Call(PSF_RejectFight, &parset2).getBool() ) continue;
								ObjectActionFight(obj1,obj2);
								ObjectActionFight(obj2,obj1);
								continue;
								}
						}
					}

	// Reverse area check: Checks for all obj2 at obj1

	focf=tocf=OCF_None;
	// High level: Collection, Hit
	if (!::Game.iTick3)
		{ focf|=OCF_Collection; tocf|=OCF_Carryable; }
	focf|=OCF_Alive;	    tocf|=OCF_HitSpeed2;

	if (focf && tocf)
		for (C4ObjectList::iterator iter=begin(); iter != end() && (obj1=*iter); ++iter)
			if (obj1->Status && !obj1->Contained && (obj1->OCF & focf))
				{
				unsigned int Marker = ++LastUsedMarker;
				C4LSector *pSct;
				for (C4ObjectList *pLst=obj1->Area.FirstObjects(&pSct); pLst; pLst=obj1->Area.NextObjects(pLst, &pSct))
					for (C4ObjectList::iterator iter2=pLst->begin(); iter2 != pLst->end() && (obj2=*iter2); ++iter2)
						if (obj2->Status && !obj2->Contained && (obj2!=obj1) && (obj2->OCF & tocf))
							if (Inside<int32_t>(obj2->GetX()-(obj1->GetX()+obj1->Shape.x),0,obj1->Shape.Wdt-1))
								if (Inside<int32_t>(obj2->GetY()-(obj1->GetY()+obj1->Shape.y),0,obj1->Shape.Hgt-1))
									if (obj1->pLayer == obj2->pLayer)
										{
										// handle collision only once
										if (obj2->Marker == Marker) continue;
										obj2->Marker = Marker;
										// Hit
										if ((obj2->OCF & OCF_HitSpeed2) && (obj1->OCF & OCF_Alive) && (obj2->Category & C4D_Object))
											if(!obj1->Call(PSF_QueryCatchBlow, &C4AulParSet(C4VObj(obj2))))
												{
												if(true /* "realistic" hit energy */)
													{
													FIXED dXDir = obj2->xdir - obj1->xdir, dYDir = obj2->ydir - obj1->ydir;
													int32_t iHitEnergy = fixtoi((dXDir * dXDir + dYDir * dYDir) * obj2->Mass / 5 );
													iHitEnergy = Max<int32_t>(iHitEnergy/3, !!iHitEnergy); // hit energy reduced to 1/3rd, but do not drop to zero because of this division
													obj1->DoEnergy(-iHitEnergy/5, false, C4FxCall_EngObjHit, obj2->Controller);
													int tmass=Max<int32_t>(obj1->Mass,50);
													if (!::Game.iTick3 || (obj1->Action.pActionDef && obj1->Action.pActionDef->GetPropertyInt(P_Procedure) != DFA_FLIGHT))
														obj1->Fling(obj2->xdir*50/tmass,-Abs(obj2->ydir/2)*50/tmass, false);
													obj1->Call(PSF_CatchBlow,&C4AulParSet(C4VInt(-iHitEnergy/5),
																																C4VObj(obj2)));
													}
												else
													{
													obj1->DoEnergy(-obj2->Mass/5, false, C4FxCall_EngObjHit, obj2->Controller);
													int tmass=Max<int32_t>(obj1->Mass,50);
													obj1->Fling(obj2->xdir*50/tmass,
														-Abs(obj2->ydir/2)*50/tmass, false);
													obj1->Call(PSF_CatchBlow,&C4AulParSet(C4VInt(-obj2->Mass/5),
																																C4VObj(obj2)));
													}
												// obj1 might have been tampered with
												if (!obj1->Status || obj1->Contained || !(obj1->OCF & focf))
													goto out1;
												continue;
												}
										// Collection
										if ((obj1->OCF & OCF_Collection) && (obj2->OCF & OCF_Carryable))
											if (Inside<int32_t>(obj2->GetX()-(obj1->GetX()+obj1->Def->Collection.x),0,obj1->Def->Collection.Wdt-1))
												if (Inside<int32_t>(obj2->GetY()-(obj1->GetY()+obj1->Def->Collection.y),0,obj1->Def->Collection.Hgt-1))
													{
													//if(!pLst->First) BREAKPOINT_HERE;
													obj1->Collect(obj2);
													//if(!pLst->First)  BREAKPOINT_HERE;
													// obj1 might have been tampered with
													if (!obj1->Status || obj1->Contained || !(obj1->OCF & focf))
														goto out1;
													}
										}
				out1: ;
				}

	// Contained-Check: Checks for matching Contained

	// Checks for this frame
	focf=tocf=OCF_None;
	// Low level: Fight
	if (!::Game.iTick10)
		{ focf|=OCF_FightReady; tocf|=OCF_FightReady; }

	if (focf && tocf)
		for (C4ObjectList::iterator iter = begin(); iter != end() && (obj1=*iter); ++iter)
			if (obj1->Status && obj1->Contained && (obj1->OCF & focf))
				{
				for (C4ObjectList::iterator iter2 = obj1->Contained->Contents.begin(); iter2 != end() && (obj2=*iter2); ++iter2)
					if (obj2->Status && obj2->Contained && (obj2!=obj1) && (obj2->OCF & tocf))
						if (obj1->pLayer == obj2->pLayer)
							{
							ocf1=obj1->OCF; ocf2=obj2->OCF;
							// Fight
							if ((ocf1 & OCF_FightReady) && (ocf2 & OCF_FightReady))
								if (::Players.Hostile(obj1->Owner,obj2->Owner))
									{
									ObjectActionFight(obj1,obj2);
									ObjectActionFight(obj2,obj1);
									// obj1 might have been tampered with
									if (!obj1->Status || obj1->Contained || !(obj1->OCF & focf))
										goto out2;
									continue;
									}
							}
				out2: ;
				}
	}

C4Object* C4GameObjects::AtObject(int ctx, int cty, DWORD &ocf, C4Object *exclude)
	{
	DWORD cocf;
	C4Object *cObj; C4ObjectLink *clnk;

	for (clnk=ObjectsAt(ctx,cty).First; clnk && (cObj=clnk->Obj); clnk=clnk->Next)
		if (!exclude || (cObj!=exclude && exclude->pLayer == cObj->pLayer)) if (cObj->Status)
			{
			cocf=ocf | OCF_Exclusive;
			if (cObj->At(ctx,cty,cocf))
				{
				// Search match
				if (cocf & ocf) { ocf=cocf; return cObj; }
				// EXCLUSIVE block
				else return NULL;
				}
			}
	return NULL;
	}

void C4GameObjects::Synchronize()
	{
	// synchronize unsorted objects
	ResortUnsorted();
	ExecuteResorts();
	// synchronize solidmasks
	RemoveSolidMasks();
	PutSolidMasks();
	}

C4Object *C4GameObjects::FindInternal(C4ID id)
	{
	// search list of system objects (searches global list)
	return ObjectsInt().Find(id);
	}

C4Object *C4GameObjects::ObjectPointer(int32_t iNumber)
	{
	// search own list
	C4PropList *pObj = PropLists.Get(iNumber);
	if (pObj) return pObj->GetObject();
	return 0;
	}

int32_t C4GameObjects::ObjectNumber(C4PropList *pObj)
	{
	if(!pObj) return 0;
	C4PropList * const * p = PropLists.First();
	while (p)
		{
		if(*p == pObj) return (*p)->Number;
		p = PropLists.Next(p);
		}
	return 0;
	}

C4Object *C4GameObjects::SafeObjectPointer(int32_t iNumber)
	{
	C4Object *pObj = ObjectPointer(iNumber); 
	if (pObj) if (!pObj->Status) return NULL;
	return pObj;
	}

const uint32_t C4EnumPointer1 = 1000000000;
C4Object* C4GameObjects::Enumerated(C4Object *pObj)
	{
	uint32_t iPtrNum;
	// If object is enumerated, convert to enumerated pointer
	if (iPtrNum = ObjectNumber(pObj)) 
		return (C4Object*) (C4EnumPointer1 + iPtrNum);
	// Oops!
	return (C4Object*)-1;
	}

C4Object* C4GameObjects::Denumerated(C4Object *pObj)
	{
	// convert to pointer
	return ObjectPointer((uint32_t)(intptr_t) pObj - C4EnumPointer1);
	}

C4ObjectList &C4GameObjects::ObjectsInt()
	{
	// some time ago, only objects in the topleft corner used to be recognized
	// this is an unnecessary restriction though...
	//return ::Landscape.Sectors.First()->Objects;
	return *this;
	}

void C4GameObjects::RemoveSolidMasks()
	{
  C4ObjectLink *cLnk;
  for (cLnk=First; cLnk; cLnk=cLnk->Next)
		if (cLnk->Obj->Status)
			if (cLnk->Obj->pSolidMaskData)
				cLnk->Obj->pSolidMaskData->Remove(false, false);
	}

void C4GameObjects::PutSolidMasks()
	{
  C4ObjectLink *cLnk;
  for (cLnk=First; cLnk; cLnk=cLnk->Next)
		if (cLnk->Obj->Status)
			cLnk->Obj->UpdateSolidMask(false);
	}

void C4GameObjects::DeleteObjects(bool fDeleteInactive)
	{
	C4ObjectList::DeleteObjects();
	BackObjects.Clear();
	ForeObjects.Clear();
	if (fDeleteInactive) InactiveObjects.DeleteObjects();
	}

void C4GameObjects::Clear(bool fClearInactive)
  {
  DeleteObjects(fClearInactive);
  if(fClearInactive)
    InactiveObjects.Clear();
  ResortProc = NULL;
	LastUsedMarker = 0;
  }

/* C4ObjResort */

C4ObjResort::C4ObjResort()
	{
	Category=0;
	OrderFunc=NULL;
	Next=NULL;
	pSortObj = pObjBefore = NULL;
	fSortAfter = false;
	}

C4ObjResort::~C4ObjResort()
	{
	}

void C4ObjResort::Execute()
	{
	// no order func: resort given objects
	if (!OrderFunc)
		{
		// no objects given?
		if (!pSortObj || !pObjBefore) return;
		// object to be resorted died or changed category
		if (pSortObj->Status != C4OS_NORMAL || pSortObj->Unsorted) return;
		// exchange
		if (fSortAfter)
			::Objects.OrderObjectAfter(pSortObj, pObjBefore);
		else
			::Objects.OrderObjectBefore(pSortObj, pObjBefore);
		// done
		return;
		}
	else if (pSortObj)
		{
		// sort single object
		SortObject();
		return;
		}
	// get first link to start sorting
	C4ObjectLink *pLnk=::Objects.Last; if (!pLnk) return;
	// sort all categories given; one by one (sort by category is ensured by C4ObjectList::Add)
	for (int iCat=1; iCat<C4D_SortLimit; iCat<<=1)
		if (iCat & Category)
			{
			// get first link of this category
			while (!(pLnk->Obj->Status && (pLnk->Obj->Category & iCat) ))
				if (!(pLnk=pLnk->Prev))
					// no more objects to sort: done
					break;
			// first link found?
			if (pLnk)
				{
				// get last link of this category
				C4ObjectLink *pNextLnk=pLnk;
				while (!pLnk->Obj->Status || (pNextLnk->Obj->Category & iCat))
					if (!(pNextLnk=pNextLnk->Prev))
						// no more objects: end of list reached
						break;
				// get previous link, which is the last in the list of this category
				C4ObjectLink *pLastLnk;
				if (pNextLnk) pLastLnk=pNextLnk->Next; else pLastLnk=::Objects.First;
				// get next valid (there must be at least one: pLnk; so this loop should be safe)
				while (!pLastLnk->Obj->Status) pLastLnk=pLastLnk->Next;
				// now sort this portion of the list
				Sort(pLastLnk, pLnk);
				// start searching at end of this list next time
				// if the end has already been reached: stop here
				if (!(pLnk=pNextLnk)) return;
				}
			// continue with next category
			}
	}

void C4ObjResort::SortObject()
	{
	// safety
	if (pSortObj->Status != C4OS_NORMAL || pSortObj->Unsorted) return;
	// pre-build parameters
	C4AulParSet Pars;
	Pars[1].Set(C4VObj(pSortObj));
	// first, check forward in list
	C4ObjectLink *pMoveLink=NULL;
	C4ObjectLink *pLnk = ::Objects.GetLink(pSortObj);
	C4ObjectLink *pLnkBck = pLnk;
	C4Object *pObj2; int iResult;
	if (!pLnk) return;
	while(pLnk = pLnk->Next)
		{
		// get object
		pObj2 = pLnk->Obj;
		if (!pObj2->Status) continue;
		// does the category still match?
		if (!(pObj2->Category & pSortObj->Category)) break;
		// perform the check
		Pars[0].Set(C4VObj(pObj2));
		iResult = OrderFunc->Exec(NULL, &Pars).getInt();
		if (iResult > 0) break;
		if (iResult < 0) pMoveLink=pLnk;
		}
	// check if movement has to be done
	if (pMoveLink)
		{
		// move link directly after pMoveLink
		// FIXME: Inform C4ObjectList that this is a reorder, not a remove+insert
		// move out of current position
		::Objects.RemoveLink(pLnkBck);
		// put into new position
		::Objects.InsertLink(pLnkBck, pMoveLink);
		}
	else
		{
		// no movement yet: check backwards in list
		Pars[0].Set(C4VObj(pSortObj));
		pLnk = pLnkBck;
		while (pLnk = pLnk->Prev)
			{
			// get object
			pObj2 = pLnk->Obj;
			if (!pObj2->Status) continue;
			// does the category still match?
			if (!(pObj2->Category & pSortObj->Category)) break;
			// perform the check
			Pars[1].Set(C4VObj(pObj2));
			iResult = OrderFunc->Exec(NULL, &Pars).getInt();
			if (iResult > 0) break;
			if (iResult < 0) pMoveLink=pLnk;
			}
		// no movement to be done? finish
		if (!pMoveLink) return;
		// move link directly before pMoveLink
		// move out of current position
		::Objects.RemoveLink(pLnkBck);
		// put into new position
		::Objects.InsertLinkBefore(pLnkBck, pMoveLink);
		}
	// object has been resorted: resort into area lists, too
	::Objects.UpdatePosResort(pSortObj);
	// done
	}

void C4ObjResort::Sort(C4ObjectLink *pFirst, C4ObjectLink *pLast)
	{
#ifdef _DEBUG
	assert(::Objects.Sectors.CheckSort());
#endif
	// do a simple insertion-like sort
	C4ObjectLink *pCurr; // current link to analyse
	C4ObjectLink *pCurr2; // second (previous) link to analyse
	C4ObjectLink *pNewFirst; // next link to be first

	C4ObjectLink *pFirstBck=pFirst; // backup of first link

	// pre-build parameters
	C4AulParSet Pars;

	// loop until there's nothing left to sort
	while (pFirst != pLast)
		{
		// start from the very end of the list
		pCurr=pNewFirst=pLast;
		// loop the checks up to the first list item to check
		while (pCurr != pFirst)
			{
			// get second check item
			pCurr2=pCurr->Prev;
			while (!pCurr2->Obj->Status) pCurr2=pCurr2->Prev;
			// perform the check
			Pars[0].Set(C4VObj(pCurr->Obj)); Pars[1].Set(C4VObj(pCurr2->Obj));
			if (OrderFunc->Exec(NULL, &Pars).getInt() < 0)
				{
				// so there's something to be reordered: swap the links
				// FIXME: Inform C4ObjectList about this reorder
				C4Object *pObj=pCurr->Obj; pCurr->Obj=pCurr2->Obj; pCurr2->Obj=pObj;
				// and readd to sector lists
				pCurr->Obj->Unsorted=pCurr2->Obj->Unsorted=true;
				// grow list section to scan next
				pNewFirst=pCurr;
				}
			// advance in list
			pCurr=pCurr2;
			}
		//reduce area to be checked
		pFirst=pNewFirst;
		}
#ifdef _DEBUG
	assert(::Objects.Sectors.CheckSort());
#endif
	// resort objects in sector lists
	for (pCurr=pFirstBck; pCurr!=pLast->Next; pCurr=pCurr->Next)
		{
		C4Object *pObj=pCurr->Obj;
		if (pObj->Status && pObj->Unsorted)
			{
			pObj->Unsorted=false;
			::Objects.UpdatePosResort(pObj);
			}
		}
#ifdef _DEBUG
	assert(::Objects.Sectors.CheckSort());
#endif
	}


#define C4CV_Section_Object "[Object]"

int C4GameObjects::Load(C4Group &hGroup, bool fKeepInactive)
	{
	Clear(!fKeepInactive);

	// Load data component
  StdStrBuf Source;
	if (!hGroup.LoadEntryString(C4CFN_ScenarioObjects, Source))
    return 0;

  // Compile
	StdStrBuf Name = hGroup.GetFullName() + DirSep C4CFN_ScenarioObjects;
  if(!CompileFromBuf_LogWarn<StdCompilerINIRead>(
      mkParAdapt(*this, false),
      Source,
      Name.getData()))
    return 0;

	// Process objects
  C4ObjectLink *cLnk;
  C4Object *pObj;
  bool fObjectNumberCollision = false;
  int32_t iMaxObjectNumber = 0;
  for(cLnk = Last; cLnk; cLnk = cLnk->Prev)
    {
    C4Object *pObj = cLnk->Obj;
		// check object number collision with inactive list
		if (fKeepInactive)
			{
			for (C4ObjectLink *clnk = InactiveObjects.First; clnk; clnk=clnk->Next)
				if (clnk->Obj->Number == pObj->Number) fObjectNumberCollision = true;
			}
		// keep track of numbers
		iMaxObjectNumber = Max<long>(iMaxObjectNumber, pObj->Number);
		// add to list of backobjects
		if (pObj->Category & C4D_Background)
			::Objects.BackObjects.Add(pObj, C4ObjectList::stMain, this);
		// add to list of foreobjects
		if (pObj->Category & C4D_Foreground)
			::Objects.ForeObjects.Add(pObj, C4ObjectList::stMain, this);
		// Unterminate end
		}

  // Denumerate pointers
	// if object numbers collideded, numbers will be adjusted afterwards
	// so fake inactive object list empty meanwhile
	C4ObjectLink *pInFirst;
	if (fObjectNumberCollision) { pInFirst = InactiveObjects.First; InactiveObjects.First = NULL; }
	// denumerate pointers
	Denumerate();
	// update object enumeration index now, because calls like UpdateTransferZone might create objects
	Game.ObjectEnumerationIndex = Max(Game.ObjectEnumerationIndex, iMaxObjectNumber);
	// end faking and adjust object numbers
	if (fObjectNumberCollision)
		{
		InactiveObjects.First=pInFirst;
		// simply renumber all inactive objects
	  for (cLnk=InactiveObjects.First; cLnk; cLnk=cLnk->Next)
			if ((pObj=cLnk->Obj)->Status)
				pObj->Number = ++Game.ObjectEnumerationIndex;
		}

	// special checks:
	// -contained/contents-consistency
	// -StaticBack-objects zero speed
	for (cLnk=First; cLnk; cLnk=cLnk->Next)
		if ((pObj=cLnk->Obj)->Status)
			{
			// staticback must not have speed
			if (pObj->Category & C4D_StaticBack)
				{
				pObj->xdir = pObj->ydir = 0;
				}
			// contained must be in contents list
			if (pObj->Contained)
				if (!pObj->Contained->Contents.GetLink(pObj))
					{
					DebugLogF("Error in Objects.txt: Container of #%d is #%d, but not found in contents list!", pObj->Number, pObj->Contained->Number);
					pObj->Contained->Contents.Add(pObj, C4ObjectList::stContents);
					}
			// all contents must have contained set; otherwise, remove them!
			C4Object *pObj2;
			for (C4ObjectLink *cLnkCont=pObj->Contents.First; cLnkCont; cLnkCont=cLnkCont->Next)
				{
				// check double links
				if (pObj->Contents.GetLink(cLnkCont->Obj) != cLnkCont)
					{
					DebugLogF("Error in Objects.txt: Double containment of #%d by #%d!", cLnkCont->Obj->Number, pObj->Number);
					// this remove-call will only remove the previous (dobuled) link, so cLnkCont should be save
					pObj->Contents.Remove(cLnkCont->Obj);
					// contents checked already
					continue;
					}
				// check contents/contained-relation
				if ((pObj2=cLnkCont->Obj)->Status)
					if (pObj2->Contained != pObj)
						{
						DebugLogF("Error in Objects.txt: Object #%d not in container #%d as referenced!", pObj2->Number, pObj->Number);
						pObj2->Contained = pObj;
						}
				}
			}
	// sort out inactive objects
  C4ObjectLink *cLnkNext;
	for (cLnk=First; cLnk; cLnk=cLnkNext)
		{
		cLnkNext = cLnk->Next;
		if (cLnk->Obj->Status == C4OS_INACTIVE)
			{
			if (cLnk->Prev) cLnk->Prev->Next=cLnkNext; else First=cLnkNext;
			if (cLnkNext) cLnkNext->Prev=cLnk->Prev; else Last=cLnk->Prev;
			if (cLnk->Prev = InactiveObjects.Last)
				InactiveObjects.Last->Next = cLnk;
			else
				InactiveObjects.First = cLnk;
			InactiveObjects.Last = cLnk; cLnk->Next = NULL;
			Mass-=pObj->Mass;
			}
		}

	{
		C4DebugRecOff DBGRECOFF; // - script callbacks that would kill DebugRec-sync for runtime start
		// update graphics
		UpdateGraphics(false);
		// Update faces
		UpdateFaces(false);
		// Update ocf
		SetOCF();
	}

	// make sure list is sorted by category - after sorting out inactives, because inactives aren't sorted into the main list
	FixObjectOrder();

	//Sectors.Dump();

	// misc updates
  for (cLnk=First; cLnk; cLnk=cLnk->Next)
		if ((pObj=cLnk->Obj)->Status)
			{
			// add to plrview
			pObj->PlrFoWActualize();
			// update flipdir (for old objects.txt with no flipdir defined)
			// assigns Action.DrawDir as well
			pObj->UpdateFlipDir();
			}
	// Done
	return ObjectCount();
	}

bool C4GameObjects::Save(C4Group &hGroup, bool fSaveGame, bool fSaveInactive)
	{
	// Save to temp file
	char szFilename[_MAX_PATH+1]; SCopy( Config.AtTempPath(C4CFN_ScenarioObjects), szFilename );
	if (!Save(szFilename,fSaveGame,fSaveInactive)) return false;

	// Move temp file to group
	hGroup.Move(szFilename, NULL); // check?
	// Success
	return true;
	}

bool C4GameObjects::Save(const char *szFilename, bool fSaveGame, bool fSaveInactive)
	{
	// Enumerate
	Enumerate();
	InactiveObjects.Enumerate();

	// Decompile objects to buffer
  StdStrBuf Buffer;
  bool fSuccess = DecompileToBuf_Log<StdCompilerINIWrite>(mkParAdapt(*this, false, !fSaveGame), &Buffer, szFilename);

  // Decompile inactives
  if(fSaveInactive)
    {
    StdStrBuf InactiveBuffer;
    fSuccess &= DecompileToBuf_Log<StdCompilerINIWrite>(mkParAdapt(InactiveObjects, false, !fSaveGame), &InactiveBuffer, szFilename);
    Buffer.Append("\r\n");
    Buffer.Append(InactiveBuffer);
    }

  // Denumerate
	InactiveObjects.Denumerate();
	Denumerate();

  // Error?
  if(!fSuccess)
    return false;

  // Write
  return Buffer.SaveToFile(szFilename);
	}

void C4GameObjects::UpdateScriptPointers()
	{
	// call in sublists
	C4ObjectList::UpdateScriptPointers();
	InactiveObjects.UpdateScriptPointers();
	// adjust global effects
	if (Game.pGlobalEffects) Game.pGlobalEffects->ReAssignAllCallbackFunctions();
	}

void C4GameObjects::UpdatePos(C4Object *pObj)
	{
	// Position might have changed. Update sector lists
	Sectors.Update(pObj, this);
	}

void C4GameObjects::UpdatePosResort(C4Object *pObj)
	{
	// Object order for this object was changed. Readd object to sectors
	Sectors.Remove(pObj);
	Sectors.Add(pObj, this);
	}

bool C4GameObjects::OrderObjectBefore(C4Object *pObj1, C4Object *pObj2)
	{
	// check that this won't screw the category sort
	if((pObj1->Category & C4D_SortLimit) < (pObj2->Category & C4D_SortLimit))
		return false;
	// reorder
	if(!C4ObjectList::OrderObjectBefore(pObj1, pObj2))
		return false;
	// update area lists
	UpdatePosResort(pObj1);
	// done, success
	return true;
	}

bool C4GameObjects::OrderObjectAfter(C4Object *pObj1, C4Object *pObj2)
	{
	// check that this won't screw the category sort
	if((pObj1->Category & C4D_SortLimit) > (pObj2->Category & C4D_SortLimit))
		return false;
	// reorder
	if(!C4ObjectList::OrderObjectAfter(pObj1, pObj2))
		return false;
	// update area lists
	UpdatePosResort(pObj1);
	// done, success
	return true;
	}

void C4GameObjects::FixObjectOrder()
	{
	// fixes the object order so it matches the global object order sorting constraints
	C4ObjectLink *pLnk0=First, *pLnkL=Last;
	while (pLnk0 != pLnkL)
		{
		C4ObjectLink *pLnk1stUnsorted=NULL, *pLnkLastUnsorted=NULL, *pLnkPrev=NULL, *pLnk;
		C4Object *pLastWarnObj = NULL;
		// forward fix
		uint32_t dwLastCategory = C4D_SortLimit;
		for (pLnk = pLnk0; pLnk!=pLnkL->Next; pLnk=pLnk->Next)
			{
			C4Object *pObj = pLnk->Obj;
			if (pObj->Unsorted || !pObj->Status) continue;
			DWORD dwCategory = pObj->Category & C4D_SortLimit;
			// must have exactly one SortOrder-bit set
			if (!dwCategory)
				{
				DebugLogF("Objects.txt: Object #%d is missing sorting category!", (int) pObj->Number);
				++pObj->Category; dwCategory = 1;
				}
			else
				{
				DWORD dwCat2=dwCategory; int i=0;
				while (~dwCat2&1) { dwCat2 = dwCat2>>1; ++i; }
				if (dwCat2 != 1)
					{
					DebugLogF("Objects.txt: Object #%d has invalid sorting category %x!", (int) pObj->Number, (unsigned int) dwCategory);
					dwCategory = (1<<i);
					pObj->Category = (pObj->Category & ~C4D_SortLimit) | dwCategory;
					}
				}
			// fix order
			if (dwCategory > dwLastCategory)
				{
				// SORT ERROR! (note that pLnkPrev can't be 0)
				if (pLnkPrev->Obj != pLastWarnObj)
					{
					DebugLogF("Objects.txt: Wrong object order of #%d-#%d! (down)", (int) pObj->Number, (int) pLnkPrev->Obj->Number);
					pLastWarnObj = pLnkPrev->Obj;
					}
				pLnk->Obj = pLnkPrev->Obj;
				pLnkPrev->Obj = pObj;
				pLnkLastUnsorted = pLnkPrev;
				}
			else
				dwLastCategory = dwCategory;
			pLnkPrev = pLnk;
			}
		if (!pLnkLastUnsorted) break; // done
		pLnkL = pLnkLastUnsorted;
		// backwards fix
		dwLastCategory = 0;
		for (pLnk = pLnkL; pLnk!=pLnk0->Prev; pLnk=pLnk->Prev)
			{
			C4Object *pObj = pLnk->Obj;
			if (pObj->Unsorted || !pObj->Status) continue;
			DWORD dwCategory = pObj->Category & C4D_SortLimit;
			if (dwCategory < dwLastCategory)
				{
				// SORT ERROR! (note that pLnkPrev can't be 0)
				if (pLnkPrev->Obj != pLastWarnObj)
					{
					DebugLogF("Objects.txt: Wrong object order of #%d-#%d! (up)", (int) pObj->Number, (int) pLnkPrev->Obj->Number);
					pLastWarnObj = pLnkPrev->Obj;
					}
				pLnk->Obj = pLnkPrev->Obj;
				pLnkPrev->Obj = pObj;
				pLnk1stUnsorted = pLnkPrev;
				}
			else
				dwLastCategory = dwCategory;
			pLnkPrev = pLnk;
			}
		if (!pLnk1stUnsorted) break; // done
		pLnk0 = pLnk1stUnsorted;
		}
	// objects fixed!
	}

void C4GameObjects::ResortUnsorted()
	{
  C4ObjectLink *clnk=First; C4Object *cObj;
  while (clnk && (cObj=clnk->Obj))
    {
    clnk=clnk->Next;
    if (cObj->Unsorted)
      {
			// readd to main object list
      Remove(cObj);
			cObj->Unsorted=false;
			if (!Add(cObj))
				{
				// readd failed: Better kill object to prevent leaking...
				Game.ClearPointers(cObj);
				delete cObj;
				}
      }
    }
  }

void C4GameObjects::ExecuteResorts()
	{
	// custom object sort
	C4ObjResort *pRes = ResortProc;
	while (pRes)
		{
		C4ObjResort *pNextRes=pRes->Next;
		pRes->Execute();
		delete pRes;
		pRes=pNextRes;
		}
	ResortProc=NULL;
	}

bool C4GameObjects::ValidateOwners()
	{
	// validate in sublists
	bool fSucc = true;
	if (!C4ObjectList::ValidateOwners()) fSucc = false;
	if (!InactiveObjects.ValidateOwners()) fSucc = false;
	return fSucc;
	}

bool C4GameObjects::AssignInfo()
	{
	// assign in sublists
	bool fSucc = true;
	if (!C4ObjectList::AssignInfo()) fSucc = false;
	if (!InactiveObjects.AssignInfo()) fSucc = false;
	return fSucc;
	}

void C4GameObjects::AssignPlrViewRange()
	{
	C4ObjectLink *cLnk;
	for (cLnk=Last; cLnk; cLnk=cLnk->Prev)
		if (cLnk->Obj->Status)
			cLnk->Obj->AssignPlrViewRange();
	}

void C4GameObjects::SortByCategory()
	{
	C4ObjectLink *cLnk;
	bool fSorted;
	// Sort by category
	do
		{
		fSorted = true;
		for (cLnk=First; cLnk && cLnk->Next; cLnk=cLnk->Next)
			if ((cLnk->Obj->Category & C4D_SortLimit) < (cLnk->Next->Obj->Category & C4D_SortLimit))
				{			
				RemoveLink(cLnk);
				InsertLink(cLnk,cLnk->Next);
				fSorted = false;
				break;
				}
		}
	while (!fSorted);
	}

void C4GameObjects::SyncClearance()
	{
	C4ObjectLink *cLnk;
	for (cLnk=First; cLnk; cLnk=cLnk->Next)
		if (cLnk->Obj)
			cLnk->Obj->SyncClearance();
	}

void C4GameObjects::UpdateTransferZones()
	{
	C4Object *cobj; C4ObjectLink *clnk;
	for (clnk=First; clnk && (cobj=clnk->Obj); clnk=clnk->Next)
		cobj->Call(PSF_UpdateTransferZone);
	}

void C4GameObjects::ResetAudibility()
	{
	C4Object *cobj; C4ObjectLink *clnk;
	for (clnk=First; clnk && (cobj=clnk->Obj); clnk=clnk->Next)
		cobj->Audible=cobj->AudiblePan=0;
	}

void C4GameObjects::SetOCF()
	{
	C4ObjectLink *cLnk;
	for (cLnk=First; cLnk; cLnk=cLnk->Next)
		if (cLnk->Obj->Status)
			cLnk->Obj->SetOCF();
	}

C4GameObjects Objects;