int CChar::NPC_GetTrainMax( const CChar * pStudent, SKILL_TYPE Skill ) const
{
ADDTOCALLSTACK("CChar::NPC_GetTrainMax");
// What is the max I can train to ?
int iMax;
int iMaxAllowed;
CVarDefCont * pValue = GetKey("OVERRIDE.TRAINSKILLMAXPERCENT",true);
if ( pValue )
{
iMax = static_cast<int>(IMULDIV( pValue->GetValNum(), Skill_GetBase(Skill), 100 ));
} else {
iMax = IMULDIV( g_Cfg.m_iTrainSkillPercent, Skill_GetBase(Skill), 100 );
}
pValue = GetKey("OVERRIDE.TRAINSKILLMAX",true);
if ( pValue )
{
iMaxAllowed = static_cast<int>(pValue->GetValNum());
} else {
iMaxAllowed = g_Cfg.m_iTrainSkillMax;
}
if ( iMax > iMaxAllowed )
return minimum(iMaxAllowed, pStudent->Skill_GetMax(Skill));
// Is this more that the student can take ?
return minimum(iMax, pStudent->Skill_GetMax(Skill));
}
// ---------------------------------------------------------
bool CPartyDef::DeclineEvent( CChar * pCharDecline, CGrayUID uidInviter ) // static
{
ADDTOCALLSTACK("CPartyDef::DeclineEvent");
// This should happen after a timeout as well.
// " You notify %s that you do not wish to join the party"
CChar * pCharInviter = uidInviter.CharFind();
if ( !pCharInviter || !pCharDecline )
return( false );
if ( uidInviter == pCharDecline->GetUID() )
return( false );
CVarDefCont * sTempVal = pCharInviter->GetTagDefs()->GetKey("PARTY_LASTINVITE");
if ( !sTempVal )
return( false );
if ((DWORD)sTempVal->GetValNum() != (DWORD)pCharDecline->GetUID())
return( false );
// Remove the key
pCharInviter->DeleteKey("PARTY_LASTINVITE");
TCHAR * sTemp = Str_GetTemp();
sprintf(sTemp, g_Cfg.GetDefaultMsg(DEFMSG_PARTY_DECLINE_2), static_cast<LPCTSTR>(pCharInviter->GetName()));
pCharDecline->SysMessage( sTemp );
sTemp = Str_GetTemp();
sprintf(sTemp, g_Cfg.GetDefaultMsg(DEFMSG_PARTY_DECLINE_1), static_cast<LPCTSTR>(pCharDecline->GetName()));
pCharInviter->SysMessage( sTemp );
return( true );
}
int CCharNPC::GetNpcAiFlags( const CChar *pChar ) const
{
CVarDefCont *pVar = pChar->GetKey( "OVERRIDE.NPCAI", true );
if (pVar != NULL)
return static_cast<int>(pVar->GetValNum());
return g_Cfg.m_iNpcAi;
}
void CVarDefMap::ClearKeys(LPCTSTR mask)
{
ADDTOCALLSTACK("CVarDefMap::ClearKeys");
if ( mask && *mask )
{
if ( !m_Container.size() )
return;
CGString sMask(mask);
sMask.MakeLower();
DefSet::iterator i = m_Container.begin();
CVarDefCont * pVarBase = NULL;
while ( i != m_Container.end() )
{
pVarBase = NULL;
pVarBase = (*i);
if ( pVarBase && ( strstr(pVarBase->GetKey(), sMask.GetPtr()) ) )
{
DeleteAtIterator(i);
i = m_Container.begin();
}
else
{
++i;
}
}
}
else
{
Empty();
}
}
LPCTSTR CVarDefMap::GetKeyStr( LPCTSTR pszKey, bool fZero ) const
{
ADDTOCALLSTACK("CVarDefMap::GetKeyStr");
CVarDefCont * pVar = GetKey(pszKey);
if ( pVar == NULL )
return (fZero ? "0" : "");
return pVar->GetValStr();
}
INT64 CVarDefMap::GetKeyNum( LPCTSTR pszKey, bool fZero ) const
{
ADDTOCALLSTACK("CVarDefMap::GetKeyNum");
CVarDefCont * pVar = GetKey(pszKey);
if ( pVar == NULL )
return (fZero ? 0 : NULL);
return pVar->GetValNum();
}
bool CVarDefMap::GetParseVal( LPCTSTR & pszArgs, long long * plVal ) const
{
ADDTOCALLSTACK("CVarDefMap::GetParseVal");
CVarDefCont * pVarBase = GetParseKey( pszArgs );
if ( pVarBase == NULL )
return( false );
*plVal = pVarBase->GetValNum();
return( true );
}
bool CResourceDef::SetResourceName( LPCTSTR pszName )
{
ADDTOCALLSTACK("CResourceDef::SetResourceName");
ASSERT(pszName);
// This is the global def for this item.
for ( size_t i = 0; pszName[i]; i++ )
{
if ( i >= EXPRESSION_MAX_KEY_LEN )
{
DEBUG_ERR(( "Too long DEFNAME=%s\n", pszName ));
return( false );
}
if ( ! _ISCSYM(pszName[i]))
{
DEBUG_ERR(( "Bad chars in DEFNAME=%s\n", pszName ));
return( false );
}
}
int iVarNum;
CVarDefCont * pVarKey = g_Exp.m_VarDefs.GetKey( pszName );
if ( pVarKey )
{
if ( (DWORD)pVarKey->GetValNum() == GetResourceID().GetPrivateUID() )
{
return( true );
}
if ( RES_GET_INDEX(pVarKey->GetValNum()) == GetResourceID().GetResIndex())
{
DEBUG_WARN(( "The DEFNAME=%s has a strange type mismatch? 0%llx!=0%lx\n", pszName, pVarKey->GetValNum(), GetResourceID().GetPrivateUID() ));
}
else
{
DEBUG_WARN(( "The DEFNAME=%s already exists! 0%llx!=0%x\n", pszName, RES_GET_INDEX(pVarKey->GetValNum()), GetResourceID().GetResIndex() ));
}
iVarNum = g_Exp.m_VarDefs.SetNum( pszName, GetResourceID().GetPrivateUID() );
}
else
{
iVarNum = g_Exp.m_VarDefs.SetNumNew( pszName, GetResourceID().GetPrivateUID() );
}
if ( iVarNum < 0 )
return( false );
SetResourceVar( dynamic_cast <const CVarDefContNum*>( g_Exp.m_VarDefs.GetAt( iVarNum )));
return( true );
}
int CChar::NPC_GetVendorMarkup( const CChar * pChar ) const
{
ADDTOCALLSTACK("CChar::NPC_GetVendorMarkup");
// This vendor marks stuff up/down this percentage.
// Base this on KARMA. Random is calculated at Restock time
// When vendor sells to players this is the markup value.
// fBuy: Client buying
// RETURN:
// 0-100
if ( !pChar || IsStatFlag(STATF_Pet) ) // Not on a hired vendor.
return( 0 );
CVarDefCont *pVar = NULL, *pVarCharDef = NULL;
CCharBase * pCharDef = Char_GetDef();
if ( pCharDef )
{
// get markup value of NPC-chardef
pVarCharDef = pCharDef->m_TagDefs.GetKey("VENDORMARKUP");
}
int iHostility = maximum(NPC_GetHostilityLevelToward(pChar), 0);
iHostility = minimum(iHostility + 15, 100);
pVar = m_TagDefs.GetKey("VENDORMARKUP");
if ( pVar )
{
iHostility += static_cast<int>(pVar->GetValNum());
// add NPC's markup to hostility made by karma difference
}
else
{
pVar = GetRegion()->m_TagDefs.GetKey("VENDORMARKUP");
if ( pVar )
{
iHostility += static_cast<int>(pVar->GetValNum());
// if NPC is unmarked, look if the region is
}
else
{
// neither NPC nor REGION are marked, so look for the chardef
if ( pVarCharDef )
{
iHostility += static_cast<int>(pVarCharDef->GetValNum());
}
}
}
return( iHostility );
}
LPCTSTR CStoneMember::GetPrivName() const
{
ADDTOCALLSTACK("CStoneMember::GetPrivName");
STONEPRIV_TYPE iPriv = GetPriv();
TemporaryString sDefname;
sprintf(sDefname, "STONECONFIG_PRIVNAME_PRIVID-%d", static_cast<int>(iPriv));
CVarDefCont * pResult = g_Exp.m_VarDefs.GetKey(sDefname);
if (pResult)
return pResult->GetValStr();
else
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_PRIVNAME_PRIVUNK");
return ( pResult == NULL ) ? "" : pResult->GetValStr();
}
int CVarDefMap::SetStr( LPCTSTR pszName, bool fQuoted, LPCTSTR pszVal, bool fZero )
{
ADDTOCALLSTACK("CVarDefMap::SetStr");
// ASSUME: This has been clipped of unwanted beginning and trailing spaces.
if ( !pszName || !pszName[0] )
return -1;
if ( pszVal == NULL || pszVal[0] == '\0' ) // but not if empty
{
DeleteAtKey(pszName);
return( -1 );
}
if ( !fQuoted && IsSimpleNumberString(pszVal))
{
// Just store the number and not the string.
return SetNum( pszName, Exp_GetLLVal( pszVal ), fZero);
}
CVarDefContTest * pVarSearch = new CVarDefContTest(pszName);
DefSet::iterator iResult = m_Container.find(pVarSearch);
delete pVarSearch;
CVarDefCont * pVarBase = NULL;
if ( iResult != m_Container.end() )
pVarBase = (*iResult);
if ( !pVarBase )
{
return SetStrNew( pszName, pszVal );
}
CVarDefContStr * pVarStr = dynamic_cast <CVarDefContStr *>( pVarBase );
if ( pVarStr )
{
pVarStr->SetValStr( pszVal );
}
else
{
if ( g_Serv.IsLoading())
{
DEBUG_ERR(( "Replace existing VarNum '%s' with %s\n", pVarBase->GetKey(), pszVal ));
}
return SetStrOverride( pszName, pszVal );
}
return static_cast<int>(std::distance(m_Container.begin(), iResult) );
}
bool IsValidGameObjDef( LPCTSTR pszTest )
{
if (!IsSimpleNumberString(pszTest))
{
CVarDefCont * pVarBase = g_Exp.m_VarDefs.CheckParseKey( pszTest );
if ( pVarBase == NULL )
return false;
TCHAR ch = *pVarBase->GetValStr();
if (( ! ch ) || ( ch == '<'))
return false;
RESOURCE_ID rid = g_Cfg.ResourceGetID( RES_QTY, pszTest);
if (( rid.GetResType() != RES_CHARDEF ) && ( rid.GetResType() != RES_ITEMDEF ) && ( rid.GetResType() != RES_SPAWN ) && ( rid.GetResType() != RES_TEMPLATE ))
return false;
}
return true;
}
int CVarDefMap::SetNum( LPCTSTR pszName, INT64 iVal, bool fZero )
{
ADDTOCALLSTACK("CVarDefMap::SetNum");
ASSERT(pszName);
if ( pszName[0] == '\0' )
return( -1 );
if ( fZero && (iVal == 0) )
{
DeleteAtKey(pszName);
return( -1 );
}
CVarDefContTest * pVarSearch = new CVarDefContTest(pszName);
DefSet::iterator iResult = m_Container.find(pVarSearch);
delete pVarSearch;
CVarDefCont * pVarBase = NULL;
if ( iResult != m_Container.end() )
pVarBase = (*iResult);
if ( !pVarBase )
{
return SetNumNew( pszName, iVal );
}
CVarDefContNum * pVarNum = dynamic_cast <CVarDefContNum *>( pVarBase );
if ( pVarNum )
{
pVarNum->SetValNum( iVal );
}
else
{
if ( g_Serv.IsLoading() )
{
DEBUG_ERR(( "Replace existing VarStr '%s'\n", pVarBase->GetKey()));
}
return SetNumOverride( pszName, iVal );
}
return static_cast<int>(std::distance(m_Container.begin(), iResult));
}
LPCTSTR CItemStone::GetTypeName() const
{
ADDTOCALLSTACK("CItemStone::GetTypeName");
CVarDefCont * pResult = NULL;
switch ( GetType() )
{
case IT_STONE_GUILD:
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_TYPENAME_GUILD");
break;
case IT_STONE_TOWN:
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_TYPENAME_TOWN");
break;
default:
break;
}
if ( pResult == NULL )
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_TYPENAME_UNK");
return ( pResult == NULL ) ? "" : pResult->GetValStr();
}
int CChar::NPC_GetVendorMarkup() const
{
ADDTOCALLSTACK("CChar::NPC_GetVendorMarkup");
// This vendor marks stuff up/down this percentage.
// When vendor sells to players this is the markup value.
//
// RETURN:
// +100% = double price
// 0% = default price
// -100% = free
if ( IsStatFlag(STATF_Pet) ) // not on a hired vendor
return 0;
// Use char value
CVarDefCont *pVar = m_TagDefs.GetKey("VENDORMARKUP");
if ( pVar )
return static_cast<int>(pVar->GetValNum());
// Use region value
if ( m_pArea )
{
pVar = m_pArea->m_TagDefs.GetKey("VENDORMARKUP");
if ( pVar )
return static_cast<int>(pVar->GetValNum());
}
// Use chardef value
CCharBase *pCharDef = Char_GetDef();
if ( pCharDef )
{
pVar = pCharDef->m_TagDefs.GetKey("VENDORMARKUP");
if ( pVar )
return static_cast<int>(pVar->GetValNum());
}
// Use default value
return 15;
}
bool CItemStone::r_WriteVal( LPCTSTR pszKey, CGString & sVal, CTextConsole * pSrc )
{
ADDTOCALLSTACK("CItemStone::r_WriteVal");
EXC_TRY("WriteVal");
CChar * pCharSrc = pSrc->GetChar();
if ( !strnicmp("member.",pszKey,7) )
{
LPCTSTR pszCmd = pszKey + 7;
if ( !strnicmp("COUNT",pszCmd,5) )
{
pszCmd = pszCmd + 5;
int i = 0;
CStoneMember * pMember = STATIC_CAST <CStoneMember *>(GetHead());
if ( *pszCmd )
{
SKIP_ARGSEP(pszCmd);
STONEPRIV_TYPE iPriv = static_cast<STONEPRIV_TYPE>(Exp_GetVal(pszCmd));
for (; pMember != NULL; pMember = pMember->GetNext())
{
if ( !pMember->GetLinkUID().IsChar() )
continue;
if ( pMember->GetPriv() != iPriv )
continue;
i++;
}
}
else
{
for (; pMember != NULL; pMember = pMember->GetNext())
{
if (!pMember->GetLinkUID().IsChar())
continue;
i++;
}
}
sVal.FormatVal(i);
return true;
}
int nNumber = Exp_GetVal(pszCmd);
SKIP_SEPARATORS(pszCmd);
CStoneMember * pMember = STATIC_CAST <CStoneMember *>(GetHead());
sVal.FormatVal(0);
for ( int i = 0 ; pMember != NULL; pMember = pMember->GetNext() )
{
if (!pMember->GetLinkUID().IsChar())
continue;
if ( nNumber == i )
{
if (!pszCmd[0])
return true;
return pMember->r_WriteVal(pszCmd, sVal, pSrc);
}
i++;
}
return true;
}
else if ( !strnicmp("memberfromuid.", pszKey, 14) )
{
LPCTSTR pszCmd = pszKey + 14;
sVal.FormatVal(0);
if ( !pszCmd[0] )
return true;
CGrayUID pMemberUid = static_cast<DWORD>(Exp_GetVal(pszCmd));
SKIP_SEPARATORS(pszCmd);
CChar * pMemberChar = pMemberUid.CharFind();
if ( pMemberChar )
{
CStoneMember * pMemberGuild = GetMember( pMemberChar );
if ( pMemberGuild )
{
return pMemberGuild->r_WriteVal(pszCmd, sVal, pSrc);
}
}
return true;
}
else if ( !strnicmp("guild.",pszKey,6) )
{
LPCTSTR pszCmd = pszKey + 6;
if ( !strnicmp("COUNT",pszCmd,5) )
{
pszCmd = pszCmd + 5;
int i = 0;
CStoneMember * pMember = STATIC_CAST <CStoneMember *>(GetHead());
if ( *pszCmd )
{
SKIP_ARGSEP(pszCmd);
int iToCheck = Exp_GetVal(pszCmd);
for (; pMember != NULL; pMember = pMember->GetNext())
{
if ( pMember->GetLinkUID().IsChar() )
continue;
if ( ( iToCheck == 1 ) && ( pMember->GetWeDeclared() && !pMember->GetTheyDeclared() ) )
i++;
else if ( ( iToCheck == 2 ) && ( !pMember->GetWeDeclared() && pMember->GetTheyDeclared() ) )
i++;
else if ( ( iToCheck == 3 ) && ( pMember->GetWeDeclared() && pMember->GetTheyDeclared() ) )
i++;
}
}
else
{
for (; pMember != NULL; pMember = pMember->GetNext())
{
if (pMember->GetLinkUID().IsChar())
continue;
i++;
}
}
sVal.FormatVal(i);
return true;
}
int nNumber = Exp_GetVal(pszCmd);
SKIP_SEPARATORS(pszCmd);
CStoneMember * pMember = STATIC_CAST <CStoneMember *>(GetHead());
sVal.FormatVal(0);
for ( int i = 0 ; pMember != NULL; pMember = pMember->GetNext() )
{
if (pMember->GetLinkUID().IsChar())
continue;
if ( nNumber == i )
{
if (!pszCmd[0])
return true;
return pMember->r_WriteVal(pszCmd, sVal, pSrc);
}
i++;
}
return true;
}
else if ( !strnicmp("guildfromuid.", pszKey, 13) )
{
LPCTSTR pszCmd = pszKey + 13;
sVal.FormatVal(0);
if ( !pszCmd[0] )
return true;
CGrayUID pGuildUid = static_cast<DWORD>(Exp_GetVal(pszCmd));
SKIP_SEPARATORS(pszCmd);
CItem * pMemberGuild = pGuildUid.ItemFind();
if ( pMemberGuild )
{
CStoneMember * pGuild = GetMember( pMemberGuild );
if ( pGuild )
{
return pGuild->r_WriteVal(pszCmd, sVal, pSrc);
}
}
return true;
}
else if ( !strnicmp(sm_szLoadKeys[STC_CHARTER], pszKey, 7) )
{
LPCTSTR pszCmd = pszKey + 7;
unsigned int i = ATOI(pszCmd);
if ( i >= COUNTOF(m_sCharter))
sVal = "";
else
sVal = m_sCharter[i];
return( true );
}
STC_TYPE iIndex = (STC_TYPE) FindTableSorted( pszKey, sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 );
switch ( iIndex )
{
case STC_ABBREV: // "ABBREV"
sVal = m_sAbbrev;
return true;
case STC_ALIGN:
sVal.FormatVal( GetAlignType());
return true;
case STC_WEBPAGE: // "WEBPAGE"
sVal = GetWebPageURL();
return true;
case STC_AbbreviationToggle:
{
CStoneMember * pMember = GetMember(pCharSrc);
CVarDefCont * pResult = NULL;
if ( pMember == NULL )
{
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_VARIOUSNAME_NONMEMBER");
}
else
{
pResult = pMember->IsAbbrevOn() ? g_Exp.m_VarDefs.GetKey("STONECONFIG_VARIOUSNAME_ABBREVON") :
g_Exp.m_VarDefs.GetKey("STONECONFIG_VARIOUSNAME_ABBREVOFF");
}
sVal = pResult ? pResult->GetValStr() : "";
}
return true;
case STC_AlignType:
sVal = GetAlignName();
return true;
case STC_LoyalTo:
{
CStoneMember * pMember = GetMember(pCharSrc);
CVarDefCont * pResult = NULL;
if ( pMember == NULL )
{
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_VARIOUSNAME_NONMEMBER");
}
else
{
CChar * pLoyalTo = pMember->GetLoyalToUID().CharFind();
if ((pLoyalTo == NULL) || (pLoyalTo == pCharSrc ))
{
pResult = g_Exp.m_VarDefs.GetKey("STONECONFIG_VARIOUSNAME_YOURSELF");
}
else
{
sVal = pLoyalTo->GetName();
return true;
}
}
sVal = pResult ? pResult->GetValStr() : "";
}
return( true );
case STC_Master:
{
CChar * pMaster = GetMaster();
sVal = (pMaster) ? pMaster->GetName() : g_Exp.m_VarDefs.GetKeyStr("STONECONFIG_VARIOUSNAME_PENDVOTE");
}
return( true );
case STC_MasterGenderTitle:
{
CChar * pMaster = GetMaster();
if ( pMaster == NULL )
sVal = ""; // If no master (vote pending)
else if ( pMaster->Char_GetDef()->IsFemale())
sVal = g_Exp.m_VarDefs.GetKeyStr("STONECONFIG_VARIOUSNAME_MASTERGENDERFEMALE");
else
sVal = g_Exp.m_VarDefs.GetKeyStr("STONECONFIG_VARIOUSNAME_MASTERGENDERMALE");
}
return( true );
case STC_MasterTitle:
{
CStoneMember * pMember = GetMasterMember();
sVal = (pMember) ? pMember->GetTitle() : "";
}
return( true );
case STC_MasterUid:
{
CChar * pMaster = GetMaster();
if ( pMaster )
sVal.FormatHex( (DWORD) pMaster->GetUID() );
else
sVal.FormatHex( (DWORD) 0 );
}
return( true );
default:
return( CItem::r_WriteVal( pszKey, sVal, pSrc ));
}
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
bool CClient::r_WriteVal( LPCTSTR pszKey, CGString & sVal, CTextConsole * pSrc )
{
ADDTOCALLSTACK("CClient::r_WriteVal");
EXC_TRY("WriteVal");
int index;
if ( !strnicmp("CTAG.", pszKey, 5) ) // CTAG.xxx - client tag
{
if ( pszKey[4] != '.' )
return( false );
pszKey += 5;
CVarDefCont *vardef = m_TagDefs.GetKey(pszKey);
sVal = vardef ? vardef->GetValStr() : "";
return true;
}
if ( !strnicmp("CTAG0.", pszKey, 6) ) // CTAG0.xxx - client tag
{
if ( pszKey[5] != '.' )
return( false );
pszKey += 6;
CVarDefCont *vardef = m_TagDefs.GetKey(pszKey);
sVal = vardef ? vardef->GetValStr() : "0";
return true;
}
if ( !strnicmp( "TARGP", pszKey, 5 ) && ( pszKey[5] == '\0' || pszKey[5] == '.' ) )
index = CC_TARGP;
else if ( !strnicmp( "SCREENSIZE", pszKey, 10 ) && ( pszKey[10] == '\0' || pszKey[10] == '.' ) )
index = CC_SCREENSIZE;
else if ( !strnicmp( "REPORTEDCLIVER", pszKey, 14 ) && ( pszKey[14] == '\0' || pszKey[14] == '.' ) )
index = CC_REPORTEDCLIVER;
else
index = FindTableSorted( pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys)-1 );
switch (index)
{
case CC_ALLMOVE:
sVal.FormatVal( IsPriv( PRIV_ALLMOVE ));
break;
case CC_ALLSHOW:
sVal.FormatVal( IsPriv( PRIV_ALLSHOW ));
break;
case CC_CLIENTIS3D:
sVal.FormatVal( GetNetState()->isClient3D() );
break;
case CC_CLIENTISKR:
sVal.FormatVal( GetNetState()->isClientKR() );
break;
case CC_CLIENTISSA:
sVal.FormatVal( GetNetState()->isClientSA() );
break;
case CC_CLIENTVERSION:
{
TCHAR szVersion[ 128 ];
sVal = m_Crypt.WriteClientVer( szVersion );
}
break;
case CC_DEBUG:
sVal.FormatVal( IsPriv( PRIV_DEBUG ));
break;
case CC_DETAIL:
sVal.FormatVal( IsPriv( PRIV_DETAIL ));
break;
case CC_GM: // toggle your GM status on/off
sVal.FormatVal( IsPriv( PRIV_GM ));
break;
case CC_HEARALL:
sVal.FormatVal( IsPriv( PRIV_HEARALL ));
break;
case CC_LASTEVENT:
sVal.FormatLLVal( m_timeLastEvent.GetTimeRaw() );
break;
case CC_PRIVSHOW:
// Show my priv title.
sVal.FormatVal( ! IsPriv( PRIV_PRIV_NOSHOW ));
break;
case CC_REPORTEDCLIVER:
{
pszKey += strlen(sm_szLoadKeys[index]);
GETNONWHITESPACE( pszKey );
int iCliVer = (GetNetState()->getReportedVersion() & 0xFFFFFF0);
if ( pszKey[0] != '\0' )
iCliVer = GetNetState()->getReportedVersion();
TCHAR szVersion[128];
sVal = CCrypt::WriteClientVerString( iCliVer, szVersion );
}
break;
case CC_SCREENSIZE:
{
if ( pszKey[10] == '.' )
{
pszKey += strlen(sm_szLoadKeys[index]);
SKIP_SEPARATORS(pszKey);
if ( !strnicmp("X", pszKey, 1) )
sVal.Format( "%lu", m_ScreenSize.x );
else if ( !strnicmp("Y", pszKey, 1) )
sVal.Format( "%lu", m_ScreenSize.y );
else
return( false );
}
else
sVal.Format( "%lu,%lu", m_ScreenSize.x, m_ScreenSize.y );
} break;
case CC_TARG:
sVal.FormatHex(m_Targ_UID);
break;
case CC_TARGP:
if ( pszKey[5] == '.' )
{
return m_Targ_p.r_WriteVal( pszKey+6, sVal );
}
sVal = m_Targ_p.WriteUsed();
break;
case CC_TARGPROP:
sVal.FormatHex(m_Prop_UID);
break;
case CC_TARGPRV:
sVal.FormatHex(m_Targ_PrvUID);
break;
case CC_TARGTXT:
sVal = m_Targ_Text;
break;
default:
return( CScriptObj::r_WriteVal( pszKey, sVal, pSrc ));
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
bool CClient::r_WriteVal(LPCTSTR pszKey, CGString &sVal, CTextConsole *pSrc)
{
ADDTOCALLSTACK("CClient::r_WriteVal");
EXC_TRY("WriteVal");
if ( !strnicmp("CTAG.", pszKey, 5) )
{
if ( pszKey[4] != '.' )
return false;
pszKey += 5;
CVarDefCont *pVar = m_TagDefs.GetKey(pszKey);
sVal = pVar ? pVar->GetValStr() : "";
return true;
}
if ( !strnicmp("CTAG0.", pszKey, 6) )
{
if ( pszKey[5] != '.' )
return false;
pszKey += 6;
CVarDefCont *pVar = m_TagDefs.GetKey(pszKey);
sVal = pVar ? pVar->GetValStr() : "0";
return true;
}
int index;
if ( !strnicmp("TARGP", pszKey, 5) && ((pszKey[5] == '\0') || (pszKey[5] == '.')) )
index = CC_TARGP;
else if ( !strnicmp("SCREENSIZE", pszKey, 10) && ((pszKey[10] == '\0') || (pszKey[10] == '.')) )
index = CC_SCREENSIZE;
else if ( !strnicmp("REPORTEDCLIVER", pszKey, 14) && ((pszKey[14] == '\0') || (pszKey[14] == '.')) )
index = CC_REPORTEDCLIVER;
else
index = FindTableSorted(pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys) - 1);
switch ( index )
{
case CC_ALLMOVE:
sVal.FormatVal(IsPriv(PRIV_ALLMOVE));
break;
case CC_ALLSHOW:
sVal.FormatVal(IsPriv(PRIV_ALLSHOW));
break;
case CC_CLIENTIS3D:
sVal.FormatVal(m_NetState->isClient3D());
break;
case CC_CLIENTISKR:
sVal.FormatVal(m_NetState->isClientKR());
break;
case CC_CLIENTISSA:
sVal.FormatVal(m_NetState->isClientEnhanced());
break;
case CC_CLIENTVERSION:
{
TCHAR szVersion[128];
sVal = m_Crypt.WriteClientVerString(m_Crypt.GetClientVer(), szVersion);
break;
}
case CC_DEBUG:
sVal.FormatVal(IsPriv(PRIV_DEBUG));
break;
case CC_DETAIL:
sVal.FormatVal(IsPriv(PRIV_DETAIL));
break;
case CC_GM:
sVal.FormatVal(IsPriv(PRIV_GM));
break;
case CC_HEARALL:
sVal.FormatVal(IsPriv(PRIV_HEARALL));
break;
case CC_LASTEVENT:
sVal.FormatLLVal(m_timeLastEvent.GetTimeRaw());
break;
case CC_PRIVSHOW:
sVal.FormatVal(!IsPriv(PRIV_PRIV_NOSHOW));
break;
case CC_REPORTEDCLIVER:
{
pszKey += 14;
GETNONWHITESPACE(pszKey);
DWORD dwCliVer = m_NetState->getReportedVersion();
if ( pszKey[0] == '\0' )
{
// Return full version string (eg: 5.0.2d)
TCHAR szVersion[128];
sVal = CCrypt::WriteClientVerString(dwCliVer, szVersion);
}
else
{
// Return raw version number (eg: 5.0.2d = 5000204)
sVal.FormatUVal(dwCliVer);
}
break;
}
case CC_SCREENSIZE:
{
if ( pszKey[10] == '.' )
{
pszKey += 10;
SKIP_SEPARATORS(pszKey);
if ( !strnicmp("X", pszKey, 1) )
sVal.Format("%hu", m_ScreenSize.x);
else if ( !strnicmp("Y", pszKey, 1) )
sVal.Format("%hu", m_ScreenSize.y);
else
return false;
}
else
sVal.Format("%hu,%hu", m_ScreenSize.x, m_ScreenSize.y);
break;
}
case CC_TARG:
sVal.FormatHex(m_Targ_UID);
break;
case CC_TARGP:
{
if ( pszKey[5] == '.' )
return m_Targ_p.r_WriteVal(pszKey + 6, sVal);
sVal = m_Targ_p.WriteUsed();
break;
}
case CC_TARGPROP:
sVal.FormatHex(m_Prop_UID);
break;
case CC_TARGPRV:
sVal.FormatHex(m_Targ_PrvUID);
break;
case CC_TARGTXT:
sVal = m_Targ_Text;
break;
default:
return CScriptObj::r_WriteVal(pszKey, sVal, pSrc);
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
bool CCharPlayer::r_WriteVal( CChar * pChar, LPCTSTR pszKey, CGString & sVal )
{
ADDTOCALLSTACK("CCharPlayer::r_WriteVal");
EXC_TRY("WriteVal");
if ( !pChar || !GetAccount() )
return false;
if ( !strnicmp(pszKey, "SKILLCLASS.", 11) )
{
return GetSkillClass()->r_WriteVal(pszKey + 11, sVal, pChar);
}
else if ( ( !strnicmp(pszKey, "GUILD", 5) ) || ( !strnicmp(pszKey, "TOWN", 4) ) )
{
bool bIsGuild = !strnicmp(pszKey, "GUILD", 5);
pszKey += bIsGuild ? 5 : 4;
if ( *pszKey == 0 )
{
CItemStone *pMyGuild = pChar->Guild_Find(bIsGuild ? MEMORY_GUILD : MEMORY_TOWN);
if ( pMyGuild ) sVal.FormatHex((DWORD)pMyGuild->GetUID());
else sVal.FormatVal(0);
return true;
}
else if ( *pszKey == '.' )
{
pszKey += 1;
CItemStone *pMyGuild = pChar->Guild_Find(bIsGuild ? MEMORY_GUILD : MEMORY_TOWN);
if ( pMyGuild ) return pMyGuild->r_WriteVal(pszKey, sVal, pChar);
}
return false;
}
switch ( FindTableHeadSorted( pszKey, sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
case CPC_ACCOUNT:
sVal = GetAccount()->GetName();
return( true );
case CPC_DEATHS:
sVal.FormatVal( m_wDeaths );
return( true );
case CPC_DSPEECH:
m_Speech.WriteResourceRefList( sVal );
return( true );
case CPC_KILLS:
sVal.FormatVal( m_wMurders );
return( true );
case CPC_KRTOOLBARSTATUS:
sVal.FormatVal( m_bKrToolbarEnabled );
return true;
case CPC_ISDSPEECH:
if ( pszKey[9] != '.' )
return( false );
pszKey += 10;
sVal = m_Speech.ContainsResourceName(RES_SPEECH, pszKey) ? "1" : "0";
return( true );
case CPC_LASTUSED:
sVal.FormatLLVal( - g_World.GetTimeDiff( m_timeLastUsed ) / TICK_PER_SEC );
return( true );
case CPC_PFLAG:
sVal.FormatVal(m_pflag);
return( true );
case CPC_PROFILE:
{
TCHAR szLine[SCRIPT_MAX_LINE_LEN-16];
Str_MakeUnFiltered( szLine, m_sProfile, sizeof(szLine));
sVal = szLine;
}
return( true );
case CPC_REFUSETRADES:
{
CVarDefCont * pVar = pChar->GetDefKey(pszKey, true);
sVal.FormatLLVal(pVar ? pVar->GetValNum() : 0);
}
return( true );
case CPC_SKILLCLASS:
sVal = GetSkillClass()->GetResourceName();
return( true );
case CPC_SKILLLOCK:
{
// "SkillLock[alchemy]"
SKILL_TYPE skill = Skill_GetLockType( pszKey );
if ( skill <= SKILL_NONE )
return( false );
sVal.FormatVal( Skill_GetLock( skill ));
} return( true );
case CPC_SPEEDMODE:
sVal.FormatVal( m_speedMode );
return( true );
case CPC_STATLOCK:
{
// "StatLock[str]"
STAT_TYPE stat = Stat_GetLockType( pszKey );
if (( stat <= STAT_NONE ) || ( stat >= STAT_BASE_QTY ))
return( false );
sVal.FormatVal( Stat_GetLock( stat ));
} return( true );
default:
if ( FindTableSorted( pszKey, CCharNPC::sm_szLoadKeys, COUNTOF( CCharNPC::sm_szLoadKeys )-1 ) >= 0 )
{
sVal = "0";
return( true );
}
return( false );
}
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pChar);
EXC_DEBUG_END;
return false;
}
bool CChar::Use_Train_Dummy( CItem * pItem, bool fSetup )
{
ADDTOCALLSTACK("CChar::Use_Train_Dummy");
// IT_TRAIN_DUMMY
// Dummy animation timer prevents over dclicking.
ASSERT(pItem);
SKILL_TYPE skill = Fight_GetWeaponSkill();
if ( g_Cfg.IsSkillFlag(skill, SKF_RANGED) ) // do not allow archery training on dummys
{
SysMessageDefault(DEFMSG_ITEMUSE_TDUMMY_ARCH);
return false;
}
char skilltag[32];
sprintf(skilltag, "OVERRIDE.PracticeMax.SKILL_%d", skill &~0xD2000000);
CVarDefCont *pSkillTag = pItem->GetKey(skilltag, true);
int iMaxSkill = pSkillTag ? static_cast<int>(pSkillTag->GetValNum()) : g_Cfg.m_iSkillPracticeMax;
if ( Skill_GetBase(skill) > iMaxSkill )
{
SysMessageDefault(DEFMSG_ITEMUSE_TDUMMY_SKILL);
return false;
}
if ( !pItem->IsTopLevel() )
{
baddumy:
SysMessageDefault(DEFMSG_ITEMUSE_TDUMMY_P);
return false ;
}
// Check location
int dx = GetTopPoint().m_x - pItem->GetTopPoint().m_x;
int dy = GetTopPoint().m_y - pItem->GetTopPoint().m_y;
if ( pItem->GetDispID() == ITEMID_DUMMY1 )
{
if ( !(!dx && abs(dy) < 2) )
goto baddumy;
}
else
{
if ( !(!dy && abs(dx) < 2) )
goto baddumy;
}
if ( fSetup )
{
if ( Skill_GetActive() == NPCACT_TRAINING )
return true;
UpdateAnimate(ANIM_ATTACK_WEAPON);
m_Act_TargPrv = m_uidWeapon;
m_Act_Targ = pItem->GetUID();
Skill_Start(NPCACT_TRAINING);
}
else
{
pItem->SetAnim(static_cast<ITEMID_TYPE>(pItem->GetID() + 1), 3 * TICK_PER_SEC);
pItem->Sound(0x033);
Skill_UseQuick(skill, Calc_GetRandLLVal(40));
}
return true;
}
bool CChar::Use_Train_ArcheryButte( CItem * pButte, bool fSetup )
{
ADDTOCALLSTACK("CChar::Use_Train_ArcheryButte");
// IT_ARCHERY_BUTTE
ASSERT(pButte);
ITEMID_TYPE AmmoID;
if ( GetDist(pButte) < 2 ) // if we are standing right next to the butte, retrieve the arrows/bolts
{
if ( pButte->m_itArcheryButte.m_AmmoCount == 0 )
{
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_EMPTY);
return true;
}
AmmoID = pButte->m_itArcheryButte.m_AmmoType;
CItemBase *pAmmoDef = CItemBase::FindItemBase(AmmoID);
if ( pAmmoDef )
{
TCHAR *pszMsg = Str_GetTemp();
sprintf(pszMsg, g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_REM), pAmmoDef->GetName(), (pButte->m_itArcheryButte.m_AmmoCount == 1) ? "" : g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_REMS));
Emote(pszMsg);
CItem *pRemovedAmmo = CItem::CreateBase(AmmoID);
ASSERT(pRemovedAmmo);
pRemovedAmmo->SetAmount(pButte->m_itArcheryButte.m_AmmoCount);
ItemBounce(pRemovedAmmo);
}
// Clear the target
pButte->m_itArcheryButte.m_AmmoType = ITEMID_NOTHING;
pButte->m_itArcheryButte.m_AmmoCount = 0;
return true;
}
SKILL_TYPE skill = Fight_GetWeaponSkill();
if ( !g_Cfg.IsSkillFlag(skill, SKF_RANGED) )
{
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_WS);
return true;
}
if ( Skill_GetBase(skill) > g_Cfg.m_iSkillPracticeMax )
{
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_SKILL);
return true;
}
// Make sure we have some ammo
CItem *pWeapon = m_uidWeapon.ItemFind();
ASSERT(pWeapon);
const CItemBase *pWeaponDef = pWeapon->Item_GetDef();
// Determine ammo type
CVarDefCont *pVarAmmoType = pWeapon->GetDefKey("AMMOTYPE", true);
RESOURCE_ID_BASE rid;
LPCTSTR t_Str;
if ( pVarAmmoType )
{
t_Str = pVarAmmoType->GetValStr();
rid = static_cast<RESOURCE_ID_BASE>(g_Cfg.ResourceGetID(RES_ITEMDEF, t_Str));
}
else
{
rid = pWeaponDef->m_ttWeaponBow.m_idAmmo;
}
AmmoID = static_cast<ITEMID_TYPE>(rid.GetResIndex());
// If there is a different ammo type on the butte currently, tell us to remove the current type first
if ( (pButte->m_itArcheryButte.m_AmmoType != ITEMID_NOTHING) && (pButte->m_itArcheryButte.m_AmmoType != AmmoID) )
{
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_X);
return true;
}
// We need to be correctly aligned with the target before we can use it
// For the south facing butte, we need to have the same X value and a Y > 2
// For the east facing butte, we need to have the same Y value and an X > 2
if ( !pButte->IsTopLevel() )
{
badalign:
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_P);
return true;
}
int targDistX = GetTopPoint().m_x - pButte->GetTopPoint().m_x;
int targDistY = GetTopPoint().m_y - pButte->GetTopPoint().m_y;
if ( (pButte->GetID() == ITEMID_ARCHERYBUTTE_S) || (pButte->GetID() == ITEMID_MONGBATTARGET_S) )
{
if ( !(targDistX == 0 && targDistY > 2) )
goto badalign;
}
else
{
if ( !(targDistY == 0 && targDistX > 2) )
goto badalign;
}
if ( !CanSeeLOS(pButte, LOS_NB_WINDOWS) ) //we should be able to shoot through a window
{
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_BLOCK);
return true;
}
if ( fSetup )
{
if ( Skill_GetActive() == NPCACT_TRAINING )
return true;
UpdateAnimate(ANIM_ATTACK_WEAPON);
m_Act_TargPrv = m_uidWeapon;
m_Act_Targ = pButte->GetUID();
Skill_Start(NPCACT_TRAINING);
return true;
}
CVarDefCont *pCont = pWeapon->GetDefKey("AMMOCONT",true);
if ( m_pPlayer && AmmoID )
{
int iFound = 1;
if ( pCont )
{
//check for UID
CGrayUID uidCont = static_cast<DWORD>(pCont->GetValNum());
CItemContainer *pNewCont = dynamic_cast<CItemContainer*>(uidCont.ItemFind());
if ( !pNewCont ) //if no UID, check for ITEMID_TYPE
{
t_Str = pCont->GetValStr();
RESOURCE_ID_BASE rContid = static_cast<RESOURCE_ID_BASE>(g_Cfg.ResourceGetID(RES_ITEMDEF, t_Str));
ITEMID_TYPE ContID = static_cast<ITEMID_TYPE>(rContid.GetResIndex());
if ( ContID )
pNewCont = dynamic_cast<CItemContainer*>(ContentFind(rContid));
}
if ( pNewCont )
iFound = pNewCont->ContentConsume(RESOURCE_ID(RES_ITEMDEF, AmmoID));
else
iFound = ContentConsume(RESOURCE_ID(RES_ITEMDEF, AmmoID));
}
else
iFound = ContentConsume(RESOURCE_ID(RES_ITEMDEF, AmmoID));
if ( iFound )
{
SysMessageDefault(DEFMSG_ITEMUSE_ARCHB_NOAMMO);
return(true);
}
}
// OK...go ahead and fire at the target
// Check the skill
bool fSuccess = Skill_UseQuick(skill, Calc_GetRandLLVal(40));
// determine animation parameters
CVarDefCont *pVarAnim = pWeapon->GetDefKey("AMMOANIM", true);
CVarDefCont *pVarAnimColor = pWeapon->GetDefKey("AMMOANIMHUE", true);
CVarDefCont *pVarAnimRender = pWeapon->GetDefKey("AMMOANIMRENDER", true);
ITEMID_TYPE AmmoAnim;
DWORD AmmoHue;
DWORD AmmoRender;
if ( pVarAnim )
{
t_Str = pVarAnim->GetValStr();
rid = static_cast<RESOURCE_ID_BASE>(g_Cfg.ResourceGetID(RES_ITEMDEF, t_Str));
AmmoAnim = static_cast<ITEMID_TYPE>(rid.GetResIndex());
}
else
AmmoAnim = static_cast<ITEMID_TYPE>(pWeaponDef->m_ttWeaponBow.m_idAmmoX.GetResIndex());
AmmoHue = pVarAnimColor ? static_cast<DWORD>(pVarAnimColor->GetValNum()) : 0;
AmmoRender = pVarAnimRender ? static_cast<DWORD>(pVarAnimRender->GetValNum()) : 0;
pButte->Effect(EFFECT_BOLT, AmmoAnim, this, 16, 0, false, AmmoHue, AmmoRender);
pButte->Sound(0x224);
// Did we destroy the ammo?
const CItemBase *pAmmoDef = NULL;
if ( AmmoID )
pAmmoDef = CItemBase::FindItemBase(AmmoID);
if ( !fSuccess )
{
// Small chance of destroying the ammo
if ( pAmmoDef && !Calc_GetRandVal(10) )
{
TCHAR *pszMsg = Str_GetTemp();
sprintf(pszMsg, g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_DEST), pAmmoDef->GetName());
Emote(pszMsg, NULL, true);
return true;
}
static LPCTSTR const sm_Txt_ArcheryButte_Failure[] =
{
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_MISS_1),
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_MISS_2),
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_MISS_3),
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_MISS_4)
};
Emote(sm_Txt_ArcheryButte_Failure[Calc_GetRandVal(COUNTOF(sm_Txt_ArcheryButte_Failure))]);
}
else
{
// Very small chance of destroying another arrow
if ( pAmmoDef && !Calc_GetRandVal(50) && pButte->m_itArcheryButte.m_AmmoCount )
{
TCHAR *pszMsg = Str_GetTemp();
sprintf(pszMsg, g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_SPLIT), pAmmoDef->GetName());
Emote(pszMsg, NULL, true);
return true;
}
static LPCTSTR const sm_Txt_ArcheryButte_Success[] =
{
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_HIT_1),
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_HIT_2),
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_HIT_3),
g_Cfg.GetDefaultMsg(DEFMSG_ITEMUSE_ARCHB_HIT_4)
};
Emote(sm_Txt_ArcheryButte_Success[Calc_GetRandVal(COUNTOF(sm_Txt_ArcheryButte_Success))]);
}
// Update the target
if ( AmmoID )
{
pButte->m_itArcheryButte.m_AmmoType = AmmoID;
pButte->m_itArcheryButte.m_AmmoCount++;
}
return true;
}
bool CRegionBase::r_WriteVal( LPCTSTR pszKey, CGString & sVal, CTextConsole * pSrc )
{
ADDTOCALLSTACK("CRegionBase::r_WriteVal");
EXC_TRY("WriteVal");
bool fZero = false;
int index = FindTableHeadSorted(pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys) - 1);
if ( index < 0 )
return CScriptObj::r_WriteVal(pszKey, sVal, pSrc);
switch ( index )
{
case RC_ANNOUNCE:
sVal.FormatVal( IsFlag(REGION_FLAG_ANNOUNCE));
break;
case RC_ARENA:
sVal.FormatVal( IsFlag(REGION_FLAG_ARENA));
break;
case RC_BUILDABLE:
sVal.FormatVal( ! IsFlag(REGION_FLAG_NOBUILDING));
break;
case RC_CLIENTS:
{
int i = 0;
size_t iClients = 0;
for ( ; ; i++ )
{
CSector *pSector = GetSector(i);
if ( pSector == NULL ) break;
iClients += pSector->m_Chars_Active.HasClients();
}
sVal.FormatVal(static_cast<long>(iClients));
break;
}
case RC_EVENTS:
m_Events.WriteResourceRefList( sVal );
break;
case RC_ISEVENT:
if ( pszKey[7] != '.' )
return( false );
pszKey += 8;
sVal.FormatVal(m_Events.ContainsResourceName(RES_EVENTS, pszKey));
return( true );
case RC_FLAGS:
sVal.FormatHex( GetRegionFlags() );
break;
case RC_GATE:
sVal.FormatVal( ! IsFlag(REGION_ANTIMAGIC_GATE));
break;
case RC_GROUP:
sVal = m_sGroup;
break;
case RC_GUARDED:
sVal.FormatVal( IsFlag(REGION_FLAG_GUARDED));
break;
case RC_MAGIC:
sVal.FormatVal( ! IsFlag(REGION_ANTIMAGIC_ALL));
break;
case RC_MAP:
sVal.FormatVal( m_pt.m_map );
break;
case RC_MARK:
case RC_RECALLIN:
sVal.FormatVal( ! IsFlag(REGION_ANTIMAGIC_RECALL_IN));
break;
case RC_NAME:
// The previous name was really the DEFNAME ???
sVal = GetName();
break;
case RC_NOBUILD:
sVal.FormatVal( IsFlag(REGION_FLAG_NOBUILDING));
break;
case RC_NODECAY:
sVal.FormatVal( IsFlag(REGION_FLAG_NODECAY));
break;
case RC_NOPVP:
sVal.FormatVal( IsFlag(REGION_FLAG_NO_PVP));
break;
case RC_P:
sVal = m_pt.WriteUsed();
break;
case RC_RECALL:
case RC_RECALLOUT:
sVal.FormatVal( ! IsFlag(REGION_ANTIMAGIC_RECALL_OUT));
break;
case RC_RECT:
{
size_t iQty = m_Rects.GetCount();
pszKey += 4;
if ( *pszKey == '\0' )
{
sVal.FormatVal( static_cast<long>(iQty));
return true;
}
SKIP_SEPARATORS( pszKey );
size_t iRect = Exp_GetVal( pszKey );
if ( iRect <= 0 )
{
sVal = m_rectUnion.Write();
return true;
}
iRect -= 1;
if ( !m_Rects.IsValidIndex( iRect ) )
{
sVal.FormatVal( 0 );
return true;
}
sVal = m_Rects[iRect].Write();
return( true );
}
case RC_SAFE:
sVal.FormatVal( IsFlag(REGION_FLAG_SAFE));
break;
case RC_TAGCOUNT:
sVal.FormatVal( static_cast<long>(m_TagDefs.GetCount()) );
break;
case RC_TAGAT:
{
pszKey += 5; // eat the 'TAGAT'
if ( *pszKey == '.' ) // do we have an argument?
{
SKIP_SEPARATORS( pszKey );
size_t iQty = static_cast<size_t>( Exp_GetVal( pszKey ) );
if ( iQty >= m_TagDefs.GetCount() )
return( false ); // trying to get non-existant tag
CVarDefCont * pTagAt = m_TagDefs.GetAt( iQty );
if ( !pTagAt )
return( false ); // trying to get non-existant tag
SKIP_SEPARATORS( pszKey );
if ( ! *pszKey )
{
sVal.Format("%s=%s", pTagAt->GetKey(), pTagAt->GetValStr());
return( true );
}
else if ( !strnicmp( pszKey, "KEY", 3 )) // key?
{
sVal = pTagAt->GetKey();
return( true );
}
else if ( !strnicmp( pszKey, "VAL", 3 )) // val?
{
sVal = pTagAt->GetValStr();
return( true );
}
}
return( false );
}
break;
case RC_TAG0:
fZero = true;
++pszKey;
// fall through
case RC_TAG: // "TAG" = get/set a local tag.
{
if ( pszKey[3] != '.' )
return( false );
pszKey += 4;
sVal = m_TagDefs.GetKeyStr( pszKey, fZero );
return( true );
}
case RC_TYPE:
{
const CItemBase * pBase = NULL;
const CItem * pItem = GetResourceID().ItemFind();
if (pItem != NULL)
pBase = pItem->Item_GetDef();
if (pBase != NULL)
sVal = pBase->GetResourceName();
else
sVal = "";
} break;
case RC_UID:
// Allow use of UID.x.KEY on the REGION object
if ( pszKey[3] == '.' )
return CScriptObj::r_WriteVal( pszKey, sVal, pSrc );
sVal.FormatHex( GetResourceID() );
break;
case RC_UNDERGROUND:
sVal.FormatVal( IsFlag(REGION_FLAG_UNDERGROUND));
break;
default:
return false;
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
g_Log.EventDebug("command '%s' ret '%s' [%p]\n", pszKey, static_cast<LPCTSTR>(sVal), static_cast<void *>(pSrc));
EXC_DEBUG_END;
return false;
}
bool CChar::NPC_Vendor_Restock(bool bForce, bool bFillStock)
{
ADDTOCALLSTACK("CChar::NPC_Vendor_Restock");
// Restock this NPC char.
// Then Set the next restock time for this .
if ( m_pNPC == NULL )
return false;
// Make sure that we're a vendor and not a pet
if ( IsStatFlag(STATF_Pet) || !NPC_IsVendor() )
return false;
bool bRestockNow = true;
if ( !bForce && m_pNPC->m_timeRestock.IsTimeValid() )
{
// Restock occurs every 10 minutes of inactivity (unless
// region tag specifies different time)
CRegionWorld *region = GetRegion();
int64 restockIn = 10 * 60 * TICK_PER_SEC;
if( region != NULL )
{
CVarDefCont *vardef = region->m_TagDefs.GetKey("RestockVendors");
if( vardef != NULL )
restockIn = vardef->GetValNum();
if ( region->m_TagDefs.GetKey("NoRestock") != NULL )
bRestockNow = false;
}
if ( m_TagDefs.GetKey("NoRestock") != NULL )
bRestockNow = false;
if (bRestockNow)
bRestockNow = ( CServerTime::GetCurrentTime().GetTimeDiff(m_pNPC->m_timeRestock) > restockIn );
}
// At restock the containers are actually emptied
if ( bRestockNow )
{
m_pNPC->m_timeRestock.Init();
for ( size_t i = 0; i < CountOf(sm_VendorLayers); ++i )
{
CItemContainer *pCont = GetBank(sm_VendorLayers[i]);
if ( !pCont )
return false;
pCont->Empty();
}
}
if ( bFillStock )
{
// An invalid restock time means that the containers are
// waiting to be filled
if ( !m_pNPC->m_timeRestock.IsTimeValid() )
{
if ( IsTrigUsed(TRIGGER_NPCRESTOCK) )
{
CCharBase *pCharDef = Char_GetDef();
ReadScriptTrig(pCharDef, CTRIG_NPCRestock, true);
}
// we need restock vendor money as well
GetBank()->Restock();
}
// remember that the stock was filled (or considered up-to-date)
m_pNPC->m_timeRestock.SetCurrentTime();
}
return true;
}
bool CPartyDef::r_WriteVal( LPCTSTR pszKey, CGString &sVal, CTextConsole *pSrc )
{
ADDTOCALLSTACK("CPartyDef::r_WriteVal");
EXC_TRY("WriteVal");
CScriptObj *pRef;
if ( r_GetRef(pszKey, pRef) )
{
if ( pRef == NULL ) // good command but bad link.
{
sVal = "0";
return true;
}
if ( pszKey[0] == '\0' ) // we where just testing the ref.
{
CObjBase *pObj = dynamic_cast<CObjBase *>(pRef);
if ( pObj )
sVal.FormatHex(static_cast<DWORD>(pObj->GetUID()));
else
sVal.FormatVal(1);
return true;
}
return pRef->r_WriteVal(pszKey, sVal, pSrc);
}
bool fZero = false;
switch ( FindTableHeadSorted(pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys) - 1) )
{
case PDC_ISSAMEPARTYOF:
{
pszKey += 13;
GETNONWHITESPACE(pszKey);
if ( pszKey[0] != '\0' )
{
CGrayUID uidToCheck = static_cast<CGrayUID>(Exp_GetVal(pszKey));
CChar *pCharToCheck = uidToCheck.CharFind();
sVal.FormatVal(pCharToCheck && (pCharToCheck->m_pParty == this));
}
else
return false;
} break;
case PDC_MEMBERS:
sVal.FormatVal(m_Chars.GetCharCount());
break;
case PDC_SPEECHFILTER:
sVal = m_pSpeechFunction.IsEmpty() ? "" : m_pSpeechFunction;
break;
case PDC_TAG0:
fZero = true;
pszKey++;
case PDC_TAG:
{
if ( pszKey[3] != '.' )
return false;
pszKey += 4;
sVal = m_TagDefs.GetKeyStr(pszKey, fZero);
} break;
case PDC_TAGAT:
{
pszKey += 5; // eat the 'TAGAT'
if ( *pszKey == '.' ) // do we have an argument?
{
SKIP_SEPARATORS(pszKey);
size_t iQty = static_cast<size_t>(Exp_GetVal(pszKey));
if ( iQty >= m_TagDefs.GetCount() )
return false; // trying to get non-existant tag
CVarDefCont *pTagAt = m_TagDefs.GetAt(iQty);
if ( !pTagAt )
return false; // trying to get non-existant tag
SKIP_SEPARATORS(pszKey);
if ( !*pszKey )
{
sVal.Format("%s=%s", pTagAt->GetKey(), pTagAt->GetValStr());
return true;
}
else if ( !strnicmp(pszKey, "KEY", 3) )
{
sVal = pTagAt->GetKey();
return true;
}
else if ( !strnicmp(pszKey, "VAL", 3) )
{
sVal = pTagAt->GetValStr();
return true;
}
}
return false;
}
case PDC_TAGCOUNT:
sVal.FormatVal(m_TagDefs.GetCount());
break;
default:
return false;
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
bool CPartyDef::AcceptEvent( CChar *pCharAccept, CGrayUID uidInviter, bool bForced ) // static
{
ADDTOCALLSTACK("CPartyDef::AcceptEvent");
// We are accepting the invite to join a party
// No security checks if bForced -> true !!!
// Party master is only one that can add ! GetChar(0)
CChar *pCharInviter = uidInviter.CharFind();
if ( !pCharInviter || !pCharInviter->m_pClient || !pCharAccept || !pCharAccept->m_pClient || (pCharInviter == pCharAccept) )
return false;
CPartyDef *pParty = pCharInviter->m_pParty;
if ( !bForced )
{
CVarDefCont *sTempVal = pCharInviter->GetTagDefs()->GetKey("PARTY_LASTINVITE");
if ( !sTempVal || (static_cast<CGrayUID>(sTempVal->GetValNum()) != pCharAccept->GetUID()) )
return false;
pCharInviter->DeleteKey("PARTY_LASTINVITE");
if ( !pCharInviter->CanSee(pCharAccept) )
return false;
}
if ( pCharAccept->m_pParty ) // already in a party
{
if ( pParty == pCharAccept->m_pParty ) // already in this party
return true;
if ( bForced )
{
pCharAccept->m_pParty->RemoveMember(pCharAccept->GetUID(), pCharAccept->GetUID());
pCharAccept->m_pParty = NULL;
}
else
return false;
}
TCHAR *pszMsg = Str_GetTemp();
sprintf(pszMsg, g_Cfg.GetDefaultMsg(DEFMSG_PARTY_JOINED), pCharAccept->GetName());
if ( !pParty )
{
// Create the party now.
pParty = new CPartyDef(pCharInviter, pCharAccept);
ASSERT(pParty);
g_World.m_Parties.InsertHead(pParty);
pCharInviter->SysMessage(pszMsg);
}
else
{
// Add to existing party
if ( pParty->IsPartyFull() || (!bForced && !pParty->IsPartyMaster(pCharInviter)) )
return false;
pParty->SysMessageAll(pszMsg); // tell everyone already in the party about this
pParty->AcceptMember(pCharAccept);
}
pCharAccept->SysMessageDefault(DEFMSG_PARTY_ADDED);
return true;
}
int CChar::NPC_GetVendorMarkup( const CChar * pChar ) const
{
ADDTOCALLSTACK("CChar::NPC_GetVendorMarkup");
// This vendor marks stuff up/down this percentage.
// Base this on KARMA. Random is calculated at Restock time
// When vendor sells to players this is the markup value.
// fBuy: Client buying
// RETURN:
// 0-100
if ( !pChar || IsStatFlag(STATF_Pet) ) // Not on a hired vendor.
return( 0 );
CVarDefCont *pVarRegion = NULL, *pVarCharDef = NULL, *pVarNPC = NULL, *pVarPlayer = NULL;
CCharBase * pCharDef = Char_GetDef(); // NPC CharDef
int iMarkUp = 0;
if ( pCharDef )
{
// get markup value of NPC-chardef
pVarCharDef = pCharDef->m_TagDefs.GetKey("VENDORMARKUP");
}
pVarPlayer = pChar->m_TagDefs.GetKey("VENDORMARKUP");
int iHostility = maximum(NPC_GetHostilityLevelToward(pChar), 0);
iHostility = minimum(iHostility + 15, 100);
// go thru all possible tweaks
// Region's markup
pVarRegion = GetRegion()->m_TagDefs.GetKey("VENDORMARKUP");
if ( pVarRegion )
{
iMarkUp = pVarRegion->GetValNum();
}
// NPC's CharDef's markup
if ( pVarCharDef )
{
iMarkUp += pVarCharDef->GetValNum();
}
// NPC's personal markup
pVarNPC = m_TagDefs.GetKey("VENDORMARKUP");
if ( pVarNPC )
{
iMarkUp += pVarNPC->GetValNum();
}
// finally: Player char's markup
pVarPlayer = pChar->m_TagDefs.GetKey("VENDORMARKUP");
if ( pVarPlayer )
{
iMarkUp += pVarPlayer->GetValNum();
}
// ensure that the return value is between -100 or positive
iMarkUp += iHostility;
if ( iMarkUp < -100 )
return (-100);
else
return ( iMarkUp );
}
