CItem * CWorld::CheckNaturalResource( const CPointMap & pt, IT_TYPE Type, bool fTest, CChar * pCharSrc )
{
ADDTOCALLSTACK("CWorld::CheckNaturalResource");
// RETURN:
// The resource tracking item.
// NULL = nothing here.
if ( !pt.IsValidPoint() )
return NULL;
EXC_TRY("CheckNaturalResource");
// Check/Decrement natural resources at this location.
// We create an invis object to time out and produce more.
// RETURN: Quantity they wanted. 0 = none here.
if ( fTest ) // Is the resource avail at all here ?
{
EXC_SET("is item near type");
if ((Type != IT_TREE) && (Type != IT_ROCK) )
{
if ( !g_World.IsTypeNear_Top(pt, Type, 0) )
return NULL;
}
else
{
if ( !g_World.IsItemTypeNear(pt, Type, 0, false) ) //cannot be used, because it does no Z check... what if there is a static tile 70 tiles under me?
return NULL;
}
}
// Find the resource object.
EXC_SET("find existant bit");
CItem * pResBit;
CWorldSearch Area(pt);
for (;;)
{
pResBit = Area.GetItem();
if ( !pResBit )
break;
// NOTE: ??? Not all resource objects are world gems. should they be ?
// I wanted to make tree stumps etc be the resource block some day.
if ( pResBit->IsType(Type) && pResBit->GetID() == ITEMID_WorldGem )
break;
}
// If none then create one.
if ( pResBit )
return pResBit;
// What type of ore is here ?
// NOTE: This is unrelated to the fact that we might not be skilled enough to find it.
// Odds of a vein of ore being present are unrelated to my skill level.
// Odds of my finding it are.
// RES_REGIONRESOURCE from RES_REGIONTYPE linked to RES_AREA
EXC_SET("get region");
CRegionWorld* pRegion = dynamic_cast<CRegionWorld*>( pt.GetRegion( REGION_TYPE_AREA ));
if ( !pRegion )
return NULL;
CWorldSearch AreaItems( pt );
AreaItems.SetAllShow(1);
for (;;)
{
CItem *pItem = AreaItems.GetItem();
if ( !pItem )
break;
if ( pItem->GetType() != Type )
return NULL;
}
// just use the background (default) region for this
if ( pRegion->m_Events.GetCount() <= 0 )
{
CPointMap ptZero(0,0,0,pt.m_map);
pRegion = dynamic_cast<CRegionWorld*>(ptZero.GetRegion(REGION_TYPE_AREA));
}
// Find RES_REGIONTYPE
EXC_SET("resource group");
const CRandGroupDef * pResGroup = pRegion->FindNaturalResource(Type);
if ( !pResGroup )
return NULL;
// Find RES_REGIONRESOURCE
EXC_SET("get random group element");
size_t id = pResGroup->GetRandMemberIndex(pCharSrc);
CRegionResourceDef * pOreDef;
if ( id == pResGroup->BadMemberIndex() )
{
pOreDef = dynamic_cast <CRegionResourceDef *> (g_Cfg.ResourceGetDefByName(RES_REGIONRESOURCE, "mr_nothing"));
}
else
{
RESOURCE_ID rid = pResGroup->GetMemberID( id );
pOreDef = dynamic_cast <CRegionResourceDef *>( g_Cfg.ResourceGetDef( rid ));
}
if ( !pOreDef )
return NULL;
EXC_SET("create bit");
pResBit = CItem::CreateScript(ITEMID_WorldGem, pCharSrc);
if ( !pResBit )
return NULL;
pResBit->SetType(Type);
pResBit->SetAttr(ATTR_INVIS|ATTR_MOVE_NEVER);
pResBit->m_itResource.m_rid_res = pOreDef->GetResourceID();
// Total amount of ore here.
int amount = pOreDef->m_Amount.GetRandom();
if ( Type == IT_ROCK && g_Cfg.m_iFeatureML & FEATURE_ML_RACIAL_BONUS && pCharSrc->IsHuman() && pCharSrc->GetTopMap() == 0 )
amount += 1; // Workhorse racial bonus, giving +1 ore to humans in Felucca.
if ( Type == IT_TREE && g_Cfg.m_iFeatureML & FEATURE_ML_RACIAL_BONUS && pCharSrc->IsHuman() && pCharSrc->GetTopMap() == 1 )
amount += 2; // Workhorse racial bonus, giving +2 logs to humans in Trammel.
pResBit->SetAmount( amount );
pResBit->MoveToDecay(pt, pOreDef->m_iRegenerateTime.GetRandom() * TICK_PER_SEC); // Delete myself in this amount of time.
EXC_SET("resourcefound");
if ( pCharSrc != NULL)
{
CScriptTriggerArgs Args(0, 0, pResBit);
TRIGRET_TYPE tRet = TRIGRET_RET_DEFAULT;
if ( IsTrigUsed(TRIGGER_REGIONRESOURCEFOUND) )
tRet = pCharSrc->OnTrigger(CTRIG_RegionResourceFound, pCharSrc, &Args);
if ( IsTrigUsed(TRIGGER_RESOURCEFOUND) )
tRet = pOreDef->OnTrigger("@ResourceFound", pCharSrc, &Args);
if (tRet == TRIGRET_RET_TRUE)
{
if ( pResBit->IsDisconnected() )
return NULL;
pResBit->SetAmount(0);
}
}
return pResBit;
EXC_CATCH;
EXC_DEBUG_START;
g_Log.EventDebug("point '%d,%d,%d,%d' type '%d' [0%lx]\n", pt.m_x, pt.m_y, pt.m_z, pt.m_map, static_cast<int>(Type),
pCharSrc ? static_cast<DWORD>(pCharSrc->GetUID()) : 0);
EXC_DEBUG_END;
return NULL;
}
