SLIC-Reference : : IsInZOC  

SFN_ERROR Slic_IsInZOC::Call(SlicArgList *args)
{
	m_result.m_int = 0;
	if(args->Count() != 2) {
		return SFN_ERROR_NUM_ARGS;
	}

	sint32 player;
	MapPoint pos;

	if(!args->GetPlayer(0, player))
		return SFN_ERROR_TYPE_ARGS;

	if(!args->GetPos(1, pos))
		return SFN_ERROR_TYPE_ARGS;

	sint32 d;
	for(d = 0; d < sint32(NOWHERE); d++) {
		MapPoint n;
		if(pos.GetNeighborPosition((WORLD_DIRECTION)d, n)) {
			Cell *theCell = g_theWorld->GetCell(n);
			if(theCell->UnitArmy() && theCell->UnitArmy()->GetOwner() == player) {
				m_result.m_int = 1;
				return SFN_ERROR_OK;
			}
		}
	}
	m_result.m_int = 0;
	return SFN_ERROR_OK;
}