bool CChar::FollowersUpdate( CChar * pChar, short iFollowerSlots, bool bCheckOnly )
{
ADDTOCALLSTACK("CChar::FollowersUpdate");
// Attemp to update followers on this character based on pChar
// bSustract = true for pet's release, shrink, etc ...
// This is supossed to be called only when OF_PetSlots is enabled, so no need to check it here.
if ( !bCheckOnly && IsTrigUsed(TRIGGER_FOLLOWERSUPDATE) )
{
CScriptTriggerArgs Args;
Args.m_iN1 = (iFollowerSlots > 0) ? 0 : 1;
Args.m_iN2 = abs(iFollowerSlots);
if ( OnTrigger(CTRIG_FollowersUpdate, pChar, &Args) == TRIGRET_RET_TRUE )
return false;
iFollowerSlots = static_cast<short>(Args.m_iN2);
}
short iCurFollower = static_cast<short>(GetDefNum("CURFOLLOWER", true, true));
short iMaxFollower = static_cast<short>(GetDefNum("MAXFOLLOWER", true, true));
short iSetFollower = iCurFollower + iFollowerSlots;
if ( (iSetFollower > iMaxFollower) && !IsPriv(PRIV_GM) )
return false;
if ( !bCheckOnly )
{
SetDefNum("CURFOLLOWER", maximum(iSetFollower, 0));
UpdateStatsFlag();
}
return true;
}
bool CChar::NPC_PetSetOwner( CChar * pChar )
{
ADDTOCALLSTACK("CChar::NPC_PetSetOwner");
// m_pNPC may not be set yet if this is a conjured creature.
if ( m_pPlayer || pChar == this || pChar == NULL )
return false;
CChar * pOwner = NPC_PetGetOwner();
if ( pOwner == pChar )
return false;
NPC_PetClearOwners(); // clear previous owner before set the new owner
m_ptHome.InitPoint(); // no longer homed
CItemSpawn * pSpawn = static_cast<CItemSpawn*>( m_uidSpawnItem.ItemFind() );
if ( pSpawn )
pSpawn->DelObj( GetUID() );
Memory_AddObjTypes(pChar, MEMORY_IPET);
NPC_Act_Follow();
if ( NPC_IsVendor() )
{
// Clear my cash total.
CItemContainer * pBank = GetBank();
pBank->m_itEqBankBox.m_Check_Amount = 0;
StatFlag_Set(STATF_INVUL);
}
if ( IsSetOF(OF_PetSlots) )
pChar->FollowersUpdate(this, static_cast<short>(maximum(1, GetDefNum("FOLLOWERSLOTS", true, true))));
return true;
}
void CChar::NPC_PetClearOwners(bool bResendTooltip)
{
ADDTOCALLSTACK("CChar::NPC_PetClearOwners");
CChar *pOwner = NPC_PetGetOwner();
Memory_ClearTypes(MEMORY_IPET|MEMORY_FRIEND);
if ( m_pNPC )
m_pNPC->m_bonded = 0; // pets without owner cannot be bonded
if ( NPC_IsVendor() )
{
StatFlag_Clear(STATF_INVUL);
if ( pOwner ) // give back to NPC owner all the stuff we are trying to sell
{
CItemContainer *pBankVendor = GetContainerCreate(LAYER_BANKBOX);
CItemContainer *pBankOwner = pOwner->GetContainerCreate(LAYER_BANKBOX);
pOwner->AddGoldToPack(pBankVendor->m_itEqBankBox.m_Check_Amount, pBankOwner);
pBankVendor->m_itEqBankBox.m_Check_Amount = 0;
for ( size_t i = 0; i < COUNTOF(sm_VendorLayers); i++ )
{
CItemContainer *pCont = GetContainerCreate(sm_VendorLayers[i]);
if ( !pCont )
continue;
CItem *pItemNext = NULL;
for ( CItem *pItem = pCont->GetContentHead(); pItem != NULL; pItem = pItemNext )
{
pItemNext = pItem->GetNext();
pBankOwner->ContentAdd(pItem);
}
}
}
}
if ( IsStatFlag(STATF_Ridden) )
{
CChar *pCharRider = Horse_GetMountChar();
if ( pCharRider )
pCharRider->Horse_UnMount();
}
if ( pOwner )
{
if ( IsSetOF(OF_PetSlots) )
pOwner->FollowersUpdate(this, static_cast<short>(-maximum(1, GetDefNum("FOLLOWERSLOTS", true))));
if ( bResendTooltip )
ResendTooltip();
}
}
bool CBaseBaseDef::r_WriteVal( LPCTSTR pszKey, CGString & sVal, CTextConsole * pSrc )
{
ADDTOCALLSTACK("CBaseBaseDef::r_WriteVal");
EXC_TRY("WriteVal");
bool fZero = false;
int index = FindTableHeadSorted( pszKey, sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 );
switch ( index )
{
//return as string or hex number or NULL if not set
case OBC_CATEGORY:
case OBC_DESCRIPTION:
case OBC_SUBSECTION:
case OBC_HITSPELL:
case OBC_SLAYER:
case OBC_SLAYERLESSER:
case OBC_SLAYERMISC:
case OBC_SLAYERSUPER:
case OBC_ABILITYPRIMARY:
case OBC_ABILITYSECONDARY:
case OBC_MANABURST:
sVal = GetDefStr(pszKey, false);
break;
//return as decimal number or 0 if not set
case OBC_BALANCED:
case OBC_BANE:
case OBC_BATTLELUST:
case OBC_BLOODDRINKER:
case OBC_CASTINGFOCUS:
case OBC_DAMCHAOS:
case OBC_DAMCOLD:
case OBC_DAMDIRECT:
case OBC_DAMENERGY:
case OBC_DAMFIRE:
case OBC_DAMMODIFIER:
case OBC_DAMPHYSICAL:
case OBC_DECREASEHITCHANCE:
case OBC_DAMPOISON:
case OBC_EATERCOLD:
case OBC_EATERDAM:
case OBC_EATERENERGY:
case OBC_EATERFIRE:
case OBC_EATERKINETIC:
case OBC_EATERPOISON:
case OBC_ENHANCEPOTIONS:
case OBC_EXPANSION:
case OBC_FASTERCASTING:
case OBC_FASTERCASTRECOVERY:
case OBC_HITAREACOLD:
case OBC_HITAREAENERGY:
case OBC_HITAREAFIRE:
case OBC_HITAREAPHYSICAL:
case OBC_HITAREAPOISON:
case OBC_HITCURSE:
case OBC_HITDISPEL:
case OBC_HITFATIGUE:
case OBC_HITFIREBALL:
case OBC_HITHARM:
case OBC_HITLEECHLIFE:
case OBC_HITLEECHMANA:
case OBC_HITLEECHSTAM:
case OBC_HITLIGHTNING:
case OBC_HITLOWERATK:
case OBC_HITLOWERDEF:
case OBC_HITMAGICARROW:
case OBC_HITMANADRAIN:
case OBC_INCREASEDAM:
case OBC_INCREASEDEFCHANCE:
case OBC_INCREASEDEFCHANCEMAX:
case OBC_INCREASEHITCHANCE:
case OBC_INCREASEGOLD:
case OBC_INCREASEKARMALOSS:
case OBC_INCREASESPELLDAM:
case OBC_INCREASESWINGSPEED:
case OBC_LOWERAMMOCOST:
case OBC_LOWERMANACOST:
case OBC_LOWERREAGENTCOST:
case OBC_LOWERREQ:
case OBC_LUCK:
case OBC_MANABURSTFREQUENCY:
case OBC_MANABURSTKARMA:
case OBC_NIGHTSIGHT:
case OBC_RAGEFOCUS:
case OBC_REACTIVEPARALYZE:
case OBC_REFLECTPHYSICALDAM:
case OBC_REGENFOOD:
case OBC_REGENHITS:
case OBC_REGENMANA:
case OBC_REGENSTAM:
case OBC_REGENVALFOOD:
case OBC_REGENVALHITS:
case OBC_REGENVALMANA:
case OBC_REGENVALSTAM:
case OBC_RESCOLD:
case OBC_RESFIRE:
case OBC_RESENERGY:
case OBC_RESPHYSICAL:
case OBC_RESPOISON:
case OBC_RESCOLDMAX:
case OBC_RESFIREMAX:
case OBC_RESENERGYMAX:
case OBC_RESPHYSICALMAX:
case OBC_RESPOISONMAX:
case OBC_RESONANCECOLD:
case OBC_RESONANCEENERGY:
case OBC_RESONANCEFIRE:
case OBC_RESONANCEKINETIC:
case OBC_RESONANCEPOISON:
case OBC_SOULCHARGE:
case OBC_SOULCHARGECOLD:
case OBC_SOULCHARGEENERGY:
case OBC_SOULCHARGEFIRE:
case OBC_SOULCHARGEKINETIC:
case OBC_SOULCHARGEPOISON:
case OBC_SPELLCONSUMPTION:
case OBC_SPELLFOCUSING:
case OBC_SPLINTERINGWEAPON:
case OBC_VELOCITY:
case OBC_SPELLCHANNELING:
case OBC_NAMELOC:
case OBC_HITSPELLSTR:
case OBC_WEIGHTREDUCTION:
case OBC_COMBATBONUSSTAT:
case OBC_COMBATBONUSPERCENT:
sVal.FormatLLVal(GetDefNum(pszKey, true));
break;
case OBC_DEFNAME:
sVal = GetResourceName();
break;
case OBC_ARMOR:
{
pszKey += strlen(sm_szLoadKeys[index]); // 9;
if ( *pszKey == '.' )
{
SKIP_SEPARATORS( pszKey );
if ( !strnicmp( pszKey, "LO", 2 ) )
{
sVal.Format( "%d", m_defenseBase );
}
else if ( !strnicmp( pszKey, "HI", 2 ) )
{
sVal.Format( "%d", m_defenseBase+m_defenseRange );
}
}
else
{
sVal.Format( "%d,%d", m_defenseBase, m_defenseBase+m_defenseRange );
}
} break;
case OBC_DAM:
{
pszKey += strlen(sm_szLoadKeys[index]); // 9;
if ( *pszKey == '.' )
{
SKIP_SEPARATORS( pszKey );
if ( !strnicmp( pszKey, "LO", 2 ) )
{
sVal.Format( "%d", m_attackBase );
}
else if ( !strnicmp( pszKey, "HI", 2 ) )
{
sVal.Format( "%d", m_attackBase+m_attackRange );
}
}
else
{
sVal.Format( "%d,%d", m_attackBase, m_attackBase+m_attackRange );
}
} break;
case OBC_BASEID:
sVal = g_Cfg.ResourceGetName( GetResourceID());
break;
case OBC_CAN:
sVal.FormatHex( m_Can );
break;
case OBC_HEIGHT:
{
//CBaseBaseDef * pBaseBaseDef = dynamic_cast<CBaseBaseDef*>(this);
//DEBUG_ERR(("OBC_HEIGHT - m_dwDispIndex %d GetHeight() %d pBaseBaseDef->GetHeight() %d pBaseBaseDef 0x%x\n",m_wDispIndex,GetHeight(),pBaseBaseDef->GetHeight(),pBaseBaseDef));
sVal.FormatVal( GetHeight() );
}
break;
case OBC_INSTANCES:
sVal.FormatVal( GetRefInstances());
break;
case OBC_NAME:
sVal = GetName();
break;
case OBC_RANGE:
if ( RangeH() == 0 ) sVal.Format( "%d", RangeL() );
else sVal.Format( "%d,%d", RangeH(), RangeL() );
break;
case OBC_RANGEL: // internally: rangel seems to be Range Highest value
sVal.FormatVal( RangeH() );
break;
case OBC_RANGEH: // but rangeh seems to be the Range Lowest value.
sVal.FormatVal( RangeL() );
break;
case OBC_RESOURCES: // Print the resources
{
pszKey += strlen(sm_szLoadKeys[index]); // 9;
if ( *pszKey == '.' )
{
SKIP_SEPARATORS( pszKey );
if ( !strnicmp( pszKey, "COUNT", 5 ))
{
sVal.FormatVal(m_BaseResources.GetCount());
}
else
{
bool fQtyOnly = false;
bool fKeyOnly = false;
index = Exp_GetVal( pszKey );
SKIP_SEPARATORS( pszKey );
if ( !strnicmp( pszKey, "KEY", 3 ))
fKeyOnly = true;
else if ( !strnicmp( pszKey, "VAL", 3 ))
fQtyOnly = true;
TCHAR *pszTmp = Str_GetTemp();
m_BaseResources.WriteKeys( pszTmp, index, fQtyOnly, fKeyOnly );
if ( fQtyOnly && pszTmp[0] == '\0' )
strcpy( pszTmp, "0" );
sVal = pszTmp;
}
}
else
{
TCHAR *pszTmp = Str_GetTemp();
m_BaseResources.WriteKeys( pszTmp );
sVal = pszTmp;
}
}
break;
case OBC_RESLEVEL:
sVal.FormatVal( GetResLevel() );
break;
case OBC_RESDISPDNHUE:
sVal.FormatHex( GetResDispDnHue() );
break;
case OBC_TAG0:
fZero = true;
pszKey++;
case OBC_TAG: // "TAG" = get/set a local tag.
if ( pszKey[3] != '.' )
return( false );
pszKey += 4;
sVal = m_TagDefs.GetKeyStr(pszKey, fZero );
break;
case OBC_TEVENTS:
m_TEvents.WriteResourceRefList( sVal );
break;
default:
return false;
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
void CChar::Use_Drink( CItem * pItem )
{
ADDTOCALLSTACK("CChar::Use_Drink");
// IT_POTION:
// IT_DRINK:
// IT_PITCHER:
// IT_WATER_WASH:
// IT_BOOZE:
if ( !CanMove(pItem) )
{
SysMessageDefault(DEFMSG_DRINK_CANTMOVE);
return;
}
const CItemBase *pItemDef = pItem->Item_GetDef();
ITEMID_TYPE idbottle = static_cast<ITEMID_TYPE>(RES_GET_INDEX(pItemDef->m_ttDrink.m_idEmpty));
if ( pItem->IsType(IT_BOOZE) )
{
// Beer wine and liquor. vary strength of effect.
int iAlcohol = Calc_GetRandVal(4);
CItem *pDrunkLayer = LayerFind(LAYER_FLAG_Drunk);
if ( !pDrunkLayer )
pDrunkLayer = Spell_Effect_Create(SPELL_Liquor, LAYER_FLAG_Drunk, 0, 5 * TICK_PER_SEC, this);
pDrunkLayer->m_itSpell.m_spellcharges += iAlcohol;
if ( pDrunkLayer->m_itSpell.m_spellcharges > 60 )
pDrunkLayer->m_itSpell.m_spellcharges = 60;
}
if ( pItem->IsType(IT_POTION) )
{
// Time limit on using potions.
if ( LayerFind(LAYER_FLAG_PotionUsed) )
{
SysMessageDefault(DEFMSG_DRINK_POTION_DELAY);
return;
}
// Convey the effect of the potion.
int iSkillQuality = pItem->m_itPotion.m_skillquality;
if ( g_Cfg.m_iFeatureAOS & FEATURE_AOS_UPDATE_B )
{
int iEnhance = static_cast<int>(GetDefNum("EnhancePotions", false));
if ( iEnhance )
iSkillQuality += IMULDIV(iSkillQuality, iEnhance, 100);
}
OnSpellEffect(static_cast<SPELL_TYPE>(RES_GET_INDEX(pItem->m_itPotion.m_Type)), this, iSkillQuality, pItem);
// Give me the marker that i've used a potion.
Spell_Effect_Create(SPELL_NONE, LAYER_FLAG_PotionUsed, iSkillQuality, 15 * TICK_PER_SEC, this);
}
if ( pItem->IsType(IT_DRINK) && IsSetOF(OF_DrinkIsFood) )
{
short iRestore = 0;
if ( pItem->m_itDrink.m_foodval )
iRestore = static_cast<short>(pItem->m_itDrink.m_foodval);
else
iRestore = static_cast<short>(pItem->Item_GetDef()->GetVolume());
if ( iRestore < 1 )
iRestore = 1;
if ( Stat_GetVal(STAT_FOOD) >= Stat_GetMax(STAT_FOOD) )
{
SysMessageDefault(DEFMSG_DRINK_FULL);
return;
}
Stat_SetVal(STAT_FOOD, Stat_GetVal(STAT_FOOD) + iRestore);
if ( pItem->m_itFood.m_poison_skill )
SetPoison(pItem->m_itFood.m_poison_skill * 10, 1 + (pItem->m_itFood.m_poison_skill / 50), this);
}
//Sound(sm_DrinkSounds[Calc_GetRandVal(COUNTOF(sm_DrinkSounds))]);
UpdateAnimate(ANIM_EAT);
pItem->ConsumeAmount();
// Create the empty bottle ?
if ( idbottle != ITEMID_NOTHING )
ItemBounce(CItem::CreateScript(idbottle, this), false);
}
bool CChar::NPC_OnHearPetCmdTarg( int iCmd, CChar *pSrc, CObjBase *pObj, const CPointMap &pt, LPCTSTR pszArgs )
{
ADDTOCALLSTACK("CChar::NPC_OnHearPetCmdTarg");
// Pet commands that required a target.
if ( m_fIgnoreNextPetCmd )
{
m_fIgnoreNextPetCmd = false;
return false;
}
switch ( iCmd )
{
case PC_FOLLOW:
case PC_STAY:
case PC_STOP:
{
// Pet friends can use only these commands
if ( Memory_FindObjTypes(pSrc, MEMORY_FRIEND) )
break;
}
default:
{
// All others commands are avaible only to pet owner
if ( !NPC_IsOwnedBy(pSrc, true) )
return false;
}
}
if ( IsStatFlag(STATF_DEAD) )
{
// Bonded NPCs still placed on world even when dead.
// They can listen to commands, but not to these commands below
if ( iCmd == PC_GUARD || iCmd == PC_GUARD_ME || iCmd == PC_ATTACK || iCmd == PC_KILL || iCmd == PC_TRANSFER || iCmd == PC_DROP || iCmd == PC_DROP_ALL )
return true;
}
bool bSuccess = false;
CItem *pItemTarg = dynamic_cast<CItem *>(pObj);
CChar *pCharTarg = dynamic_cast<CChar *>(pObj);
switch ( iCmd )
{
case PC_ATTACK:
case PC_KILL:
{
if ( !pCharTarg || pCharTarg == pSrc )
break;
bSuccess = pCharTarg->OnAttackedBy(pSrc, 1, true); // we know who told them to do this.
if ( bSuccess )
bSuccess = Fight_Attack(pCharTarg, true);
break;
}
case PC_FOLLOW:
if ( !pCharTarg )
break;
m_Act_Targ = pCharTarg->GetUID();
bSuccess = Skill_Start(NPCACT_FOLLOW_TARG);
break;
case PC_FRIEND:
{
if ( !pCharTarg || !pCharTarg->m_pPlayer || pCharTarg == pSrc )
{
Speak(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_CONFUSED));
break;
}
CItemMemory *pMemory = Memory_FindObjTypes(pCharTarg, MEMORY_FRIEND);
if ( pMemory )
{
pSrc->SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_FRIEND_ALREADY));
break;
}
pSrc->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_FRIEND_SUCCESS1), GetName(), pCharTarg->GetName());
pCharTarg->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_FRIEND_SUCCESS2), pSrc->GetName(), GetName());
Memory_AddObjTypes(pCharTarg, MEMORY_FRIEND);
m_Act_Targ = pCharTarg->GetUID();
bSuccess = Skill_Start(NPCACT_FOLLOW_TARG);
break;
}
case PC_UNFRIEND:
{
if ( !pCharTarg || !pCharTarg->m_pPlayer )
{
Speak(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_CONFUSED));
break;
}
CItemMemory *pMemory = Memory_FindObjTypes(pCharTarg, MEMORY_FRIEND);
if ( !pMemory )
{
pSrc->SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_UNFRIEND_NOTFRIEND));
break;
}
pSrc->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_UNFRIEND_SUCCESS1), GetName(), pCharTarg->GetName());
pCharTarg->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_UNFRIEND_SUCCESS2), pSrc->GetName(), GetName());
pMemory->Delete();
m_Act_Targ = pSrc->GetUID();
bSuccess = Skill_Start(NPCACT_FOLLOW_TARG);
break;
}
case PC_GO:
if ( !pt.IsValidPoint() )
break;
m_Act_p = pt;
bSuccess = Skill_Start(NPCACT_GOTO);
break;
case PC_GUARD:
if ( !pCharTarg )
break;
pCharTarg->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_GUARD_SUCCESS), GetName());
m_Act_Targ = pCharTarg->GetUID();
bSuccess = Skill_Start(NPCACT_GUARD_TARG);
break;
case PC_TRANSFER:
if ( !pCharTarg || !pCharTarg->IsClient() )
break;
if ( IsSetOF(OF_PetSlots) )
{
if ( !pCharTarg->FollowersUpdate(this, static_cast<short>(maximum(1, GetDefNum("FOLLOWERSLOTS", true, true))), true) )
{
pSrc->SysMessageDefault(DEFMSG_PETSLOTS_TRY_TRANSFER);
break;
}
}
bSuccess = NPC_PetSetOwner( pCharTarg );
break;
case PC_PRICE: // "PRICE" the vendor item.
if ( !pItemTarg || !NPC_IsVendor() || !pSrc->IsClient() )
break;
if ( IsDigit(pszArgs[0]) ) // did they name a price
return NPC_SetVendorPrice(pItemTarg, ATOI(pszArgs));
if ( !NPC_SetVendorPrice(pItemTarg, -1) ) // test if it can be priced
return false;
pSrc->m_pClient->addPromptConsole(CLIMODE_PROMPT_VENDOR_PRICE, g_Cfg.GetDefaultMsg(DEFMSG_NPC_VENDOR_SETPRICE_2), pItemTarg->GetUID(), GetUID());
return true;
default:
break;
}
// Make some sound to confirm we heard it
NPC_OnPetCommand(bSuccess, pSrc);
return bSuccess;
}
bool CBaseBaseDef::r_WriteVal(LPCTSTR pszKey, CGString &sVal, CTextConsole *pSrc)
{
ADDTOCALLSTACK("CBaseBaseDef::r_WriteVal");
EXC_TRY("WriteVal");
bool fZero = false;
switch ( FindTableHeadSorted(pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys) - 1) )
{
// Return as string or hex number (NULL if not set)
case OBC_CATEGORY:
case OBC_DESCRIPTION:
case OBC_SUBSECTION:
sVal = GetDefStr(pszKey, false);
break;
// Return as decimal number (0 if not set)
case OBC_COMBATBONUSPERCENT:
case OBC_COMBATBONUSSTAT:
case OBC_DAMCHAOS:
case OBC_DAMDIRECT:
case OBC_EXPANSION:
case OBC_NAMELOC:
case OBC_REGENFOOD:
case OBC_REGENHITS:
case OBC_REGENMANA:
case OBC_REGENSTAM:
case OBC_REGENVALFOOD:
case OBC_REGENVALHITS:
case OBC_REGENVALMANA:
case OBC_REGENVALSTAM:
sVal.FormatLLVal(GetDefNum(pszKey));
break;
case OBC_ARMOR:
{
pszKey += 5;
if ( *pszKey == '.' )
{
SKIP_SEPARATORS(pszKey);
if ( !strnicmp(pszKey, "LO", 2) )
sVal.Format("%hu", m_defenseBase);
else if ( !strnicmp(pszKey, "HI", 2) )
sVal.Format("%hu", m_defenseBase + m_defenseRange);
}
else
sVal.Format("%hu,%hu", m_defenseBase, m_defenseBase + m_defenseRange);
break;
}
case OBC_BASEID:
sVal = g_Cfg.ResourceGetName(GetResourceID());
break;
case OBC_CAN:
sVal.FormatHex(m_Can);
break;
case OBC_DAM:
{
pszKey += 3;
if ( *pszKey == '.' )
{
SKIP_SEPARATORS(pszKey);
if ( !strnicmp(pszKey, "LO", 2) )
sVal.Format("%hu", m_attackBase);
else if ( !strnicmp(pszKey, "HI", 2) )
sVal.Format("%hu", m_attackBase + m_attackRange);
}
else
sVal.Format("%hu,%hu", m_attackBase, m_attackBase + m_attackRange);
break;
}
case OBC_DAMCOLD:
sVal.FormatVal(m_DamCold);
break;
case OBC_DAMENERGY:
sVal.FormatVal(m_DamEnergy);
break;
case OBC_DAMFIRE:
sVal.FormatVal(m_DamFire);
break;
case OBC_DAMPHYSICAL:
sVal.FormatVal(m_DamPhysical);
break;
case OBC_DAMPOISON:
sVal.FormatVal(m_DamPoison);
break;
case OBC_DEFNAME:
sVal = GetResourceName();
break;
case OBC_ENHANCEPOTIONS:
sVal.FormatVal(m_EnhancePotions);
break;
case OBC_FASTERCASTING:
sVal.FormatVal(m_FasterCasting);
break;
case OBC_FASTERCASTRECOVERY:
sVal.FormatVal(m_FasterCastRecovery);
break;
case OBC_HEIGHT:
sVal.FormatVal(GetHeight());
break;
case OBC_HITLEECHLIFE:
sVal.FormatVal(m_HitLifeLeech);
break;
case OBC_HITLEECHMANA:
sVal.FormatVal(m_HitManaLeech);
break;
case OBC_HITLEECHSTAM:
sVal.FormatVal(m_HitStaminaLeech);
break;
case OBC_HITMANADRAIN:
sVal.FormatVal(m_HitManaDrain);
break;
case OBC_INCREASEDAM:
sVal.FormatVal(m_DamIncrease);
break;
case OBC_INCREASEDEFCHANCE:
sVal.FormatVal(m_DefChanceIncrease);
break;
case OBC_INCREASEDEFCHANCEMAX:
sVal.FormatVal(m_DefChanceIncreaseMax);
break;
case OBC_INCREASEHITCHANCE:
sVal.FormatVal(m_HitChanceIncrease);
break;
case OBC_INCREASESPELLDAM:
sVal.FormatVal(m_SpellDamIncrease);
break;
case OBC_INCREASESWINGSPEED:
sVal.FormatVal(m_SwingSpeedIncrease);
break;
case OBC_INSTANCES:
sVal.FormatUVal(GetRefInstances());
break;
case OBC_LOWERMANACOST:
sVal.FormatVal(m_LowerManaCost);
break;
case OBC_LOWERREAGENTCOST:
sVal.FormatVal(m_LowerReagentCost);
break;
case OBC_LUCK:
sVal.FormatVal(m_Luck);
break;
case OBC_NAME:
sVal = GetName();
break;
case OBC_NIGHTSIGHT:
sVal.FormatVal(m_NightSight);
break;
case OBC_REFLECTPHYSICALDAM:
sVal.FormatVal(m_ReflectPhysicalDamage);
break;
case OBC_RANGE:
if ( GetRangeH() == 0 )
sVal.Format("%hhu", GetRangeL());
else
sVal.Format("%hhu,%hhu", GetRangeH(), GetRangeL());
break;
case OBC_RANGEH:
sVal.FormatUVal(GetRangeL());
break;
case OBC_RANGEL:
sVal.FormatUVal(GetRangeH());
break;
case OBC_RESCOLD:
sVal.FormatVal(m_ResCold);
break;
case OBC_RESCOLDMAX:
sVal.FormatVal(m_ResColdMax);
break;
case OBC_RESDISPDNHUE:
sVal.FormatHex(GetResDispDnHue());
break;
case OBC_RESENERGY:
sVal.FormatVal(m_ResEnergy);
break;
case OBC_RESENERGYMAX:
sVal.FormatVal(m_ResEnergyMax);
break;
case OBC_RESFIRE:
sVal.FormatVal(m_ResFire);
break;
case OBC_RESFIREMAX:
sVal.FormatVal(m_ResFireMax);
break;
case OBC_RESLEVEL:
sVal.FormatUVal(GetResLevel());
break;
case OBC_RESOURCES:
{
pszKey += 9;
if ( *pszKey == '.' )
{
SKIP_SEPARATORS(pszKey);
if ( !strnicmp(pszKey, "COUNT", 5) )
sVal.FormatVal(m_BaseResources.GetCount());
else
{
size_t index = static_cast<size_t>(Exp_GetLLVal(pszKey));
SKIP_SEPARATORS(pszKey);
bool fQtyOnly = false;
bool fKeyOnly = false;
if ( !strnicmp(pszKey, "KEY", 3) )
fKeyOnly = true;
else if ( !strnicmp(pszKey, "VAL", 3) )
fQtyOnly = true;
TCHAR *pszTmp = Str_GetTemp();
m_BaseResources.WriteKeys(pszTmp, index, fQtyOnly, fKeyOnly);
if ( fQtyOnly && (pszTmp[0] == '\0') )
strcpy(pszTmp, "0");
sVal = pszTmp;
}
}
else
{
TCHAR *pszTmp = Str_GetTemp();
m_BaseResources.WriteKeys(pszTmp);
sVal = pszTmp;
}
break;
}
case OBC_RESPHYSICAL:
sVal.FormatVal(m_ResPhysical);
break;
case OBC_RESPHYSICALMAX:
sVal.FormatVal(m_ResPhysicalMax);
break;
case OBC_RESPOISON:
sVal.FormatVal(m_ResPoison);
break;
case OBC_RESPOISONMAX:
sVal.FormatVal(m_ResPoisonMax);
break;
case OBC_TAG0:
fZero = true;
++pszKey;
// fall through
case OBC_TAG:
if ( pszKey[3] != '.' )
return false;
pszKey += 4;
sVal = m_TagDefs.GetKeyStr(pszKey, fZero);
break;
case OBC_TEVENTS:
m_TEvents.WriteResourceRefList(sVal);
break;
default:
return false;
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
bool CChar::NPC_OnHearPetCmdTarg(int iCmd, CChar *pSrc, CObjBase *pObj, const CPointMap &pt, LPCTSTR pszArgs)
{
ADDTOCALLSTACK("CChar::NPC_OnHearPetCmdTarg");
// Pet commands that required a target.
if ( m_fIgnoreNextPetCmd )
{
m_fIgnoreNextPetCmd = false;
return false;
}
if ( !NPC_PetCheckAccess(iCmd, pSrc) )
return true;
bool bSuccess = false;
CItem *pItemTarg = dynamic_cast<CItem *>(pObj);
CChar *pCharTarg = dynamic_cast<CChar *>(pObj);
switch ( iCmd )
{
case PC_ATTACK:
case PC_KILL:
{
if ( !pCharTarg || (pCharTarg == this) || (pCharTarg == pSrc) )
break;
bSuccess = pCharTarg->OnAttackedBy(pSrc, true);
if ( bSuccess )
bSuccess = Fight_Attack(pCharTarg, true);
break;
}
case PC_FOLLOW:
if ( !pCharTarg || (pCharTarg == this) )
break;
m_Act_Targ = pCharTarg->GetUID();
bSuccess = Skill_Start(NPCACT_FOLLOW_TARG);
break;
case PC_FRIEND:
{
if ( !pCharTarg || !pCharTarg->m_pPlayer || (pCharTarg == pSrc) )
{
Speak(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_CONFUSED));
break;
}
CItemMemory *pMemory = Memory_FindObjTypes(pCharTarg, MEMORY_FRIEND);
if ( pMemory )
{
pSrc->SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_FRIEND_ALREADY));
break;
}
pSrc->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_FRIEND_SUCCESS1), GetName(), pCharTarg->GetName());
pCharTarg->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_FRIEND_SUCCESS2), pSrc->GetName(), GetName());
Memory_AddObjTypes(pCharTarg, MEMORY_FRIEND);
m_Act_Targ = pCharTarg->GetUID();
bSuccess = Skill_Start(NPCACT_FOLLOW_TARG);
break;
}
case PC_UNFRIEND:
{
if ( !pCharTarg || !pCharTarg->m_pPlayer )
{
Speak(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_CONFUSED));
break;
}
CItemMemory *pMemory = Memory_FindObjTypes(pCharTarg, MEMORY_FRIEND);
if ( !pMemory )
{
pSrc->SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_UNFRIEND_NOTFRIEND));
break;
}
pSrc->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_UNFRIEND_SUCCESS1), GetName(), pCharTarg->GetName());
pCharTarg->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_UNFRIEND_SUCCESS2), pSrc->GetName(), GetName());
pMemory->Delete();
m_Act_Targ = pSrc->GetUID();
bSuccess = Skill_Start(NPCACT_FOLLOW_TARG);
break;
}
case PC_GO:
if ( !pt.IsValidPoint() )
break;
m_Act_p = pt;
bSuccess = Skill_Start(NPCACT_GOTO);
break;
case PC_GUARD:
if ( !pCharTarg || (pCharTarg == this) )
break;
pCharTarg->SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_NPC_PET_TARG_GUARD_SUCCESS), GetName());
m_Act_Targ = pCharTarg->GetUID();
bSuccess = Skill_Start(NPCACT_GUARD_TARG);
break;
case PC_TRANSFER:
if ( !pCharTarg || !pCharTarg->m_pClient )
break;
if ( IsSetOF(OF_PetSlots) )
{
if ( !pCharTarg->FollowersUpdate(this, static_cast<short>(maximum(1, GetDefNum("FOLLOWERSLOTS", true))), true) )
{
pSrc->SysMessageDefault(DEFMSG_PETSLOTS_TRY_TRANSFER);
break;
}
}
bSuccess = NPC_PetSetOwner(pCharTarg);
break;
case PC_PRICE:
if ( !pItemTarg || !NPC_IsVendor() || !pSrc->m_pClient )
break;
if ( IsDigit(pszArgs[0]) ) // did they name a price
return NPC_SetVendorPrice(pItemTarg, ATOI(pszArgs));
if ( !NPC_SetVendorPrice(pItemTarg, -1) ) // test if it can be priced
return false;
pSrc->m_pClient->addPromptConsole(CLIMODE_PROMPT_VENDOR_PRICE, g_Cfg.GetDefaultMsg(DEFMSG_NPC_VENDOR_SETPRICE_2), pItemTarg->GetUID(), GetUID());
return true;
default:
break;
}
// Make some sound to confirm we heard it
NPC_PetConfirmCommand(bSuccess, pSrc);
return bSuccess;
}
bool CChar::NPC_OnHearPetCmdTarg( int iCmd, CChar * pSrc, CObjBase * pObj, const CPointMap & pt, LPCTSTR pszArgs )
{
ADDTOCALLSTACK("CChar::NPC_OnHearPetCmdTarg");
// Pet commands that required a target.
if ( iCmd == PC_FOLLOW || iCmd == PC_STAY || iCmd == PC_STOP )
{
// Pet friends can use only these commands
if ( ! NPC_IsOwnedBy( pSrc ) && Memory_FindObjTypes( pSrc, MEMORY_FRIEND ) == NULL )
return false;
}
else
{
// All others commands are avaible only to pet owner
if ( ! NPC_IsOwnedBy( pSrc, true ) )
return false;
}
if ( m_fIgnoreNextPetCmd == true )
{
m_fIgnoreNextPetCmd = false;
return(false);
}
bool fSuccess = false; // No they won't do it.
// Could be NULL
CItem * pItemTarg = dynamic_cast<CItem*>(pObj);
CChar * pCharTarg = dynamic_cast<CChar*>(pObj);
switch ( iCmd )
{
case PC_GO:
// Go to the location x,y
if ( ! pt.IsValidPoint())
break;
m_Act_p = pt;
fSuccess = Skill_Start( NPCACT_GOTO );
break;
case PC_GUARD:
if ( pObj == NULL )
break;
m_Act_Targ = pObj->GetUID();
fSuccess = Skill_Start( NPCACT_GUARD_TARG );
break;
case PC_TRANSFER:
// transfer ownership via the transfer command.
if ( pCharTarg == NULL )
break;
if ( pCharTarg->IsClient() )
{
if ( IsSetOF(OF_PetSlots) )
{
if ( !pCharTarg->FollowersUpdate(this, static_cast<short>(maximum(1, GetDefNum("FOLLOWERSLOTS", true, true))), true) )
{
pSrc->SysMessageDefault( DEFMSG_PETSLOTS_TRY_TRANSFER );
break;
}
}
fSuccess = NPC_PetSetOwner( pCharTarg );
}
break;
case PC_KILL:
case PC_ATTACK:
// Attack the target.
if ( pCharTarg == NULL )
break;
// refuse to attack friends.
if ( NPC_IsOwnedBy( pCharTarg, true ))
{
fSuccess = false; // take no commands
break;
}
fSuccess = pCharTarg->OnAttackedBy( pSrc, 1, true ); // we know who told them to do this.
if ( fSuccess )
{
fSuccess = Fight_Attack( pCharTarg, true );
}
break;
case PC_FOLLOW:
if ( pCharTarg == NULL )
break;
m_Act_Targ = pCharTarg->GetUID();
fSuccess = Skill_Start( NPCACT_FOLLOW_TARG );
break;
case PC_FRIEND:
// Not the same as owner,
if ( pCharTarg == NULL )
break;
Memory_AddObjTypes( pCharTarg, MEMORY_FRIEND );
break;
case PC_PRICE: // "PRICE" the vendor item.
if ( pItemTarg == NULL )
break;
if ( ! NPC_IsVendor())
break;
// did they name a price
if ( IsDigit( pszArgs[0] ))
{
return NPC_SetVendorPrice( pItemTarg, ATOI(pszArgs) );
}
// test if it is pricable.
if ( ! NPC_SetVendorPrice( pItemTarg, -1 ))
{
return false;
}
// Now set it's price.
if ( ! pSrc->IsClient())
break;
pSrc->m_pClient->addPromptConsole( CLIMODE_PROMPT_VENDOR_PRICE, g_Cfg.GetDefaultMsg( DEFMSG_NPC_VENDOR_SETPRICE_2 ), pItemTarg->GetUID(), GetUID() );
return( true );
default:
break;
}
// Make the yes/no noise.
NPC_OnPetCommand( fSuccess, pSrc );
return fSuccess;
}
bool CClient::r_Verb(CScript &s, CTextConsole *pSrc) // Execute command from script
{
ADDTOCALLSTACK("CClient::r_Verb");
EXC_TRY("Verb");
// NOTE: This can be called directly from a RES_WEBPAGE script.
// So do not assume we are a game client !
// NOTE: Mostly called from CChar::r_Verb
// NOTE: Little security here so watch out for dangerous scripts !
ASSERT(pSrc);
LPCTSTR pszKey = s.GetKey();
// Old ver
if ( s.IsKeyHead("SET", 3) && !g_Cfg.m_Functions.ContainsKey(pszKey) )
{
PLEVEL_TYPE ilevel = g_Cfg.GetPrivCommandLevel("SET");
if ( ilevel > GetPrivLevel() )
return false;
ASSERT(m_pChar);
addTargetVerb(pszKey + 3, s.GetArgRaw());
return true;
}
if ( (toupper(pszKey[0]) == 'X') && !g_Cfg.m_Functions.ContainsKey(pszKey) )
{
PLEVEL_TYPE ilevel = g_Cfg.GetPrivCommandLevel("SET");
if ( ilevel > GetPrivLevel() )
return false;
// Target this command verb on some other object.
ASSERT(m_pChar);
addTargetVerb(pszKey + 1, s.GetArgRaw());
return true;
}
int index = FindTableSorted(s.GetKey(), sm_szVerbKeys, COUNTOF(sm_szVerbKeys) - 1);
switch ( index )
{
case CV_ADD:
{
if ( s.HasArgs() )
{
TCHAR *ppArgs[2];
size_t iArgQty = Str_ParseCmds(s.GetArgStr(), ppArgs, COUNTOF(ppArgs));
if ( !IsValidGameObjDef(static_cast<LPCTSTR>(ppArgs[0])) )
{
g_Log.EventWarn("Invalid ADD argument '%s'\n", ppArgs[0]);
SysMessageDefault(DEFMSG_CMD_INVALID);
return true;
}
RESOURCE_ID rid = g_Cfg.ResourceGetID(RES_QTY, const_cast<LPCTSTR &>(ppArgs[0]));
m_tmAdd.m_id = rid.GetResIndex();
m_tmAdd.m_amount = (iArgQty > 1) ? static_cast<WORD>(maximum(ATOI(ppArgs[1]), 1)) : 1;
if ( (rid.GetResType() == RES_CHARDEF) || (rid.GetResType() == RES_SPAWN) )
{
m_Targ_PrvUID.InitUID();
return addTargetChars(CLIMODE_TARG_ADDCHAR, static_cast<CREID_TYPE>(m_tmAdd.m_id), false);
}
else
return addTargetItems(CLIMODE_TARG_ADDITEM, static_cast<ITEMID_TYPE>(m_tmAdd.m_id));
break;
}
if ( IsValidDef("d_add") )
Dialog_Setup(CLIMODE_DIALOG, g_Cfg.ResourceGetIDType(RES_DIALOG, "d_add"), 0, m_pChar);
else
Menu_Setup(g_Cfg.ResourceGetIDType(RES_MENU, "MENU_ADDITEM"));
break;
}
case CV_ADDBUFF:
{
TCHAR *ppArgs[11];
Str_ParseCmds(s.GetArgStr(), ppArgs, COUNTOF(ppArgs));
int iArgs[4];
for ( int i = 0; i < 4; ++i )
{
if ( !IsStrNumeric(ppArgs[i]) )
{
DEBUG_ERR(("Invalid AddBuff argument number %u\n", i + 1));
return true;
}
iArgs[i] = Exp_GetVal(ppArgs[i]);
}
if ( (iArgs[0] < 0) || (iArgs[0] > USHRT_MAX) )
{
DEBUG_ERR(("Invalid AddBuff icon ID\n"));
break;
}
LPCTSTR pszArgs[7];
size_t iArgQty = 0;
for ( int i = 0; i < 7; ++i )
{
pszArgs[i] = ppArgs[i + 4];
if ( pszArgs[i] != NULL )
++iArgQty;
}
addBuff(static_cast<BUFF_ICONS>(iArgs[0]), static_cast<DWORD>(iArgs[1]), static_cast<DWORD>(iArgs[2]), static_cast<WORD>(iArgs[3]), pszArgs, iArgQty);
break;
}
case CV_REMOVEBUFF:
{
BUFF_ICONS IconId = static_cast<BUFF_ICONS>(s.GetArgVal());
if ( (IconId < 0) || (IconId > USHRT_MAX) )
{
DEBUG_ERR(("Invalid RemoveBuff icon ID\n"));
break;
}
removeBuff(IconId);
break;
}
case CV_ADDCLILOC:
{
// Add cliloc in @ClientTooltip trigger
TCHAR *ppArgs[256];
size_t iArgQty = Str_ParseCmds(s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), ",");
DWORD dwClilocId = static_cast<DWORD>(Exp_GetLLVal(ppArgs[0]));
CGString sVal;
for ( size_t i = 1; i < iArgQty; ++i )
{
if ( sVal.GetLength() )
sVal += "\t";
sVal += !strcmp(ppArgs[i], "NULL") ? " " : ppArgs[i];
}
if ( g_Cfg.m_wDebugFlags & DEBUGF_SCRIPTS )
g_Log.EventDebug("SCRIPT: addcliloc(%lu,'%s')\n", dwClilocId, static_cast<LPCTSTR>(sVal));
m_TooltipData.Add(new CClientTooltip(dwClilocId, sVal));
break;
}
case CV_ADDCONTEXTENTRY:
{
TCHAR *ppArgs[20];
if ( Str_ParseCmds(s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), ",") > 4 )
{
DEBUG_ERR(("Bad AddContextEntry usage: Function takes maximum of 4 arguments!\n"));
return true;
}
if ( !m_pPopupPacket )
{
DEBUG_ERR(("Bad AddContextEntry usage: Not used under a @ContextMenuRequest/@itemContextMenuRequest trigger!\n"));
return true;
}
for ( int i = 0; i < 4; ++i )
{
if ( (i > 1) && IsStrEmpty(ppArgs[i]) )
continue;
if ( !IsStrNumeric(ppArgs[i]) )
{
DEBUG_ERR(("Bad AddContextEntry usage: Argument %d must be a number!\n", i + 1));
return true;
}
}
int iTextEntry = Exp_GetVal(ppArgs[0]);
if ( iTextEntry < 100 )
{
DEBUG_ERR(("Bad AddContextEntry usage: TextEntry < 100 is reserved for server usage!\n"));
return true;
}
m_pPopupPacket->addOption(static_cast<WORD>(iTextEntry), static_cast<DWORD>(Exp_GetLLVal(ppArgs[1])), static_cast<WORD>(Exp_GetLLVal(ppArgs[2])), static_cast<WORD>(Exp_GetLLVal(ppArgs[3])));
break;
}
case CV_ARROWQUEST:
{
INT64 piVal[3];
Str_ParseCmds(s.GetArgRaw(), piVal, COUNTOF(piVal));
addArrowQuest(static_cast<WORD>(piVal[0]), static_cast<WORD>(piVal[1]), static_cast<DWORD>(piVal[2]));
break;
}
case CV_BADSPAWN:
{
// Loop the world searching for bad spawns
bool fFound = false;
CItem *pItem = NULL;
CSector *pSector = NULL;
CResourceDef *pSpawnDef = NULL;
for ( int m = 0; (m < 256) && !fFound; ++m )
{
if ( !g_MapList.m_maps[m] )
continue;
for ( int s = 0; (s < g_MapList.GetSectorQty(m)) && !fFound; ++s )
{
pSector = g_World.GetSector(m, s);
if ( !pSector )
continue;
for ( pItem = static_cast<CItem *>(pSector->m_Items_Timer.GetHead()); (pItem != NULL) && !fFound; pItem = pItem->GetNext() )
{
if ( pItem->IsType(IT_SPAWN_ITEM) || pItem->IsType(IT_SPAWN_CHAR) )
{
pSpawnDef = static_cast<CItemSpawn *>(pItem)->FixDef();
if ( !pSpawnDef )
{
RESOURCE_ID_BASE rid = pItem->IsType(IT_SPAWN_ITEM) ? pItem->m_itSpawnItem.m_ItemID : pItem->m_itSpawnChar.m_CharID;
CPointMap pt = pItem->GetTopPoint();
m_pChar->Spell_Teleport(pt, true, false);
m_pChar->m_Act_Targ = pItem->GetUID();
SysMessagef("Bad spawn (0%lx, id=%s). Set as ACT", static_cast<DWORD>(pItem->GetUID()), g_Cfg.ResourceGetName(rid));
fFound = true;
}
}
}
}
}
if ( !fFound )
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_NO_BAD_SPAWNS));
break;
}
case CV_BANKSELF:
{
addBankOpen(m_pChar, LAYER_BANKBOX);
break;
}
case CV_CAST:
{
SPELL_TYPE spell = static_cast<SPELL_TYPE>(g_Cfg.ResourceGetIndexType(RES_SPELL, s.GetArgStr()));
const CSpellDef *pSpellDef = g_Cfg.GetSpellDef(spell);
if ( !pSpellDef )
return true;
CObjBase *pObjSrc = dynamic_cast<CObjBase *>(pSrc);
if ( IsSetMagicFlags(MAGICF_PRECAST) && !pSpellDef->IsSpellType(SPELLFLAG_NOPRECAST) )
{
int iSkill;
if ( !pSpellDef->GetPrimarySkill(&iSkill, NULL) )
return true;
m_tmSkillMagery.m_Spell = spell; // m_atMagery.m_Spell
m_pChar->m_atMagery.m_Spell = spell;
if ( pObjSrc )
{
m_Targ_UID = pObjSrc->GetUID(); // default target.
m_Targ_PrvUID = pObjSrc->GetUID();
}
else
{
m_Targ_UID.ClearUID();
m_Targ_PrvUID.ClearUID();
}
m_pChar->Skill_Start(static_cast<SKILL_TYPE>(iSkill));
break;
}
else
Cmd_Skill_Magery(spell, pObjSrc);
break;
}
case CV_CHANGEFACE: // open 'face selection' dialog (enhanced clients only)
{
addGumpDialog(CLIMODE_DIALOG, NULL, 0, NULL, 0, 0, 0, m_pChar, CLIMODE_DIALOG_FACESELECTION);
break;
}
case CV_CHARLIST: // usually just a gm command
{
if ( !PacketChangeCharacter::CanSendTo(m_NetState) )
break;
new PacketChangeCharacter(this);
CharDisconnect(); // since there is no undoing this in the client.
SetTargMode(CLIMODE_SETUP_CHARLIST);
break;
}
case CV_CTAGLIST:
{
if ( !strcmpi(s.GetArgStr(), "log") )
pSrc = &g_Serv;
m_TagDefs.DumpKeys(pSrc, "CTAG.");
break;
}
case CV_CLEARCTAGS:
{
if ( s.HasArgs() )
{
LPCTSTR pszArgs = s.GetArgStr();
SKIP_SEPARATORS(pszArgs);
m_TagDefs.ClearKeys(pszArgs);
}
else
m_TagDefs.ClearKeys();
break;
}
case CV_CLOSEPAPERDOLL:
{
const CChar *pChar = s.HasArgs() ? static_cast<CGrayUID>(s.GetArgVal()).CharFind() : m_pChar;
if ( pChar )
closeUIWindow(pChar, 0x1);
break;
}
case CV_CLOSEPROFILE:
{
const CChar *pChar = s.HasArgs() ? static_cast<CGrayUID>(s.GetArgVal()).CharFind() : m_pChar;
if ( pChar )
closeUIWindow(pChar, 0x8);
break;
}
case CV_CLOSESTATUS:
{
const CChar *pChar = s.HasArgs() ? static_cast<CGrayUID>(s.GetArgVal()).CharFind() : m_pChar;
if ( pChar )
closeUIWindow(pChar, 0x2);
break;
}
case CV_CODEXOFWISDOM:
{
INT64 piArgs[2];
size_t iArgQty = Str_ParseCmds(s.GetArgStr(), piArgs, COUNTOF(piArgs));
if ( iArgQty < 1 )
{
SysMessage("Usage: CODEXOFWISDOM TopicID [ForceOpen]");
break;
}
addCodexOfWisdom(static_cast<DWORD>(piArgs[0]), static_cast<bool>(piArgs[1]));
break;
}
case CV_DYE:
{
const CObjBase *pObj = s.HasArgs() ? static_cast<CGrayUID>(s.GetArgVal()).ObjFind() : NULL;
if ( pObj )
addDyeOption(pObj);
break;
}
case CV_EVERBTARG:
{
m_Prompt_Text = s.GetArgStr();
addPromptConsole(CLIMODE_PROMPT_TARG_VERB, m_Targ_Text.IsEmpty() ? "Enter the verb" : "Enter the text", m_Targ_UID);
break;
}
case CV_EXTRACT:
{
// sort of like EXPORT but for statics.
// Opposite of the "UNEXTRACT" command
TCHAR *ppArgs[2];
size_t iArgQty = Str_ParseCmds(s.GetArgStr(), ppArgs, COUNTOF(ppArgs));
if ( iArgQty < 2 )
{
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_EXTRACT_USAGE));
break;
}
m_Targ_Text = ppArgs[0]; // point at the options (if any)
m_tmTile.m_ptFirst.InitPoint(); // clear this first
m_tmTile.m_Code = CV_EXTRACT; // set extract code
m_tmTile.m_id = Exp_GetVal(ppArgs[1]); // extract id
addTarget(CLIMODE_TARG_TILE, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_EXTRACT_AREA), true);
break;
}
case CV_UNEXTRACT:
{
// Create item from script.
// Opposite of the "EXTRACT" command
TCHAR *ppArgs[2];
size_t iArgQty = Str_ParseCmds(s.GetArgStr(), ppArgs, COUNTOF(ppArgs));
if ( iArgQty < 2 )
{
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_UNEXTRACT_USAGE));
break;
}
m_Targ_Text = ppArgs[0]; // point at the options (if any)
m_tmTile.m_ptFirst.InitPoint(); // clear this first
m_tmTile.m_Code = CV_UNEXTRACT; // set extract code
m_tmTile.m_id = Exp_GetVal(ppArgs[1]); // extract id
addTarget(CLIMODE_TARG_UNEXTRACT, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_MULTI_POS), true);
break;
}
case CV_GMPAGE:
{
m_Targ_Text = s.GetArgStr();
if ( !m_Targ_Text.IsEmpty() && !strnicmp(m_Targ_Text, "ADD ", 4) )
{
Cmd_GM_Page(m_Targ_Text + 4);
break;
}
addPromptConsole(CLIMODE_PROMPT_GM_PAGE_TEXT, g_Cfg.GetDefaultMsg(DEFMSG_GMPAGE_PROMPT));
break;
}
case CV_GOTARG: // go to my (preselected) target.
{
ASSERT(m_pChar);
CObjBase *pObj = m_Targ_UID.ObjFind();
if ( pObj )
{
CPointMap pt = pObj->GetTopLevelObj()->GetTopPoint();
m_pChar->m_dirFace = m_pChar->GetDir(pObj, m_pChar->m_dirFace);
m_pChar->Spell_Teleport(pt, true, false);
}
break;
}
case CV_INFO:
{
// We could also get ground tile info.
addTarget(CLIMODE_TARG_OBJ_INFO, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_ITEM_INFO), true, false);
break;
}
case CV_INFORMATION:
{
SysMessage(g_Serv.GetStatusString(0x22));
SysMessage(g_Serv.GetStatusString(0x24));
break;
}
case CV_LAST: // fake previous target
{
if ( GetTargMode() >= CLIMODE_MOUSE_TYPE )
{
ASSERT(m_pChar);
CObjBase *pObj = m_pChar->m_Act_Targ.ObjFind();
if ( pObj )
{
Event_Target(GetTargMode(), pObj->GetUID(), pObj->GetTopPoint());
addTargetCancel();
}
break;
}
return false;
}
case CV_LINK: // link doors
{
m_Targ_UID.InitUID();
addTarget(CLIMODE_TARG_LINK, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_LINK_ITEM));
break;
}
case CV_MAPWAYPOINT:
{
INT64 piVal[2];
size_t iArgQty = Str_ParseCmds(s.GetArgRaw(), piVal, COUNTOF(piVal));
if ( iArgQty < 2 )
{
SysMessage("Usage: MAPWAYPOINT uid type");
break;
}
CObjBase *pObj = static_cast<CGrayUID>(piVal[0]).ObjFind();
addMapWaypoint(pObj, static_cast<MAPWAYPOINT_TYPE>(piVal[1]));
break;
}
case CV_MENU:
{
Menu_Setup(g_Cfg.ResourceGetIDType(RES_MENU, s.GetArgStr()));
break;
}
case CV_MIDILIST:
{
INT64 piMidi[64];
size_t iArgQty = Str_ParseCmds(s.GetArgStr(), piMidi, COUNTOF(piMidi));
if ( iArgQty > 0 )
addMusic(static_cast<MIDI_TYPE>(piMidi[Calc_GetRandVal(iArgQty)]));
break;
}
case CV_NUDGE:
{
if ( !s.HasArgs() )
{
SysMessage("Usage: NUDGE dx dy dz");
break;
}
m_Targ_Text = s.GetArgRaw();
m_tmTile.m_ptFirst.InitPoint(); // clear this first
m_tmTile.m_Code = CV_NUDGE;
addTarget(CLIMODE_TARG_TILE, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_NUDGE_AREA), true);
break;
}
case CV_NUKE:
{
m_Targ_Text = s.GetArgRaw();
m_tmTile.m_ptFirst.InitPoint(); // clear this first
m_tmTile.m_Code = CV_NUKE; // set nuke code
addTarget(CLIMODE_TARG_TILE, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_NUKE_AREA), true);
break;
}
case CV_NUKECHAR:
{
m_Targ_Text = s.GetArgRaw();
m_tmTile.m_ptFirst.InitPoint(); // clear this first
m_tmTile.m_Code = CV_NUKECHAR; // set nuke code
addTarget(CLIMODE_TARG_TILE, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_NUKE_CHAR_AREA), true);
break;
}
case CV_OPENPAPERDOLL:
{
const CChar *pChar = s.HasArgs() ? static_cast<CGrayUID>(s.GetArgVal()).CharFind() : m_pChar;
if ( pChar )
addCharPaperdoll(pChar);
break;
}
case CV_OPENTRADEWINDOW:
{
TCHAR *ppArgs[2];
Str_ParseCmds(s.GetArgStr(), ppArgs, COUNTOF(ppArgs));
CChar *pChar = ppArgs[0] ? static_cast<CGrayUID>(Exp_GetLLVal(ppArgs[0])).CharFind() : NULL;
if ( pChar )
{
CItem *pItem = ppArgs[1] ? static_cast<CGrayUID>(Exp_GetLLVal(ppArgs[1])).ItemFind() : NULL;
Cmd_SecureTrade(pChar, pItem);
}
break;
}
case CV_PAGE:
Cmd_GM_PageCmd(s.GetArgStr());
break;
case CV_REPAIR:
addTarget(CLIMODE_TARG_REPAIR, g_Cfg.GetDefaultMsg(DEFMSG_SELECT_ITEM_REPAIR));
break;
case CV_FLUSH:
#ifndef _MTNETWORK
g_NetworkOut.flush(this);
#else
g_NetworkManager.flush(m_NetState);
#endif
break;
case CV_RESEND:
addReSync();
break;
case CV_SAVE:
g_World.Save(s.GetArgVal() != 0);
break;
case CV_SCROLL:
// put a scroll up.
addScrollResource(s.GetArgStr(), SCROLL_TYPE_UPDATES);
break;
case CV_SENDPACKET:
SendPacket(s.GetArgStr());
break;
case CV_SELF: // fake self target
if ( GetTargMode() >= CLIMODE_MOUSE_TYPE )
{
ASSERT(m_pChar);
Event_Target(GetTargMode(), m_pChar->GetUID(), m_pChar->GetTopPoint());
addTargetCancel();
break;
}
return false;
case CV_SHOWSKILLS:
addSkillWindow(static_cast<SKILL_TYPE>(g_Cfg.m_iMaxSkill)); // reload the real skills
break;
case CV_SKILLMENU:
Cmd_Skill_Menu(g_Cfg.ResourceGetIDType(RES_SKILLMENU, s.GetArgStr()));
break;
case CV_SKILLSELECT:
Event_Skill_Use(g_Cfg.FindSkillKey(s.GetArgStr()));
break;
case CV_SUMMON:
{
ASSERT(m_pChar);
const CSpellDef *pSpellDef = g_Cfg.GetSpellDef(SPELL_Summon);
if ( !pSpellDef )
return false;
m_pChar->m_Act_Targ = m_pChar->GetUID();
m_pChar->m_Act_TargPrv = m_pChar->GetUID();
if ( pSpellDef->IsSpellType(SPELLFLAG_TARG_OBJ|SPELLFLAG_TARG_XYZ) )
{
m_tmSkillMagery.m_Spell = SPELL_Summon;
m_tmSkillMagery.m_SummonID = static_cast<CREID_TYPE>(g_Cfg.ResourceGetIndexType(RES_CHARDEF, s.GetArgStr()));
LPCTSTR pszPrompt = g_Cfg.GetDefaultMsg(DEFMSG_SELECT_MAGIC_TARGET);
if ( !pSpellDef->m_sTargetPrompt.IsEmpty() )
pszPrompt = pSpellDef->m_sTargetPrompt;
int iSpellTimeout = static_cast<int>(GetDefNum("SPELLTIMEOUT"));
if ( !iSpellTimeout )
iSpellTimeout = g_Cfg.m_iSpellTimeout * TICK_PER_SEC;
addTarget(CLIMODE_TARG_SKILL_MAGERY, pszPrompt, pSpellDef->IsSpellType(SPELLFLAG_TARG_XYZ), pSpellDef->IsSpellType(SPELLFLAG_HARM), iSpellTimeout);
break;
}
else
{
m_pChar->m_atMagery.m_Spell = SPELL_Summon;
m_pChar->m_atMagery.m_SummonID = static_cast<CREID_TYPE>(g_Cfg.ResourceGetIndexType(RES_CHARDEF, s.GetArgStr()));
if ( IsSetMagicFlags(MAGICF_PRECAST) && !pSpellDef->IsSpellType(SPELLFLAG_NOPRECAST) )
{
m_pChar->Spell_CastDone();
break;
}
else
{
int iSkill;
if ( !pSpellDef->GetPrimarySkill(&iSkill, NULL) )
return false;
m_pChar->Skill_Start(static_cast<SKILL_TYPE>(iSkill));
}
}
break;
}
case CV_SMSG:
case CV_SYSMESSAGE:
SysMessage(s.GetArgStr());
break;
case CV_SYSMESSAGEF: // there is still an issue with numbers not resolving properly when %i,%d,or other numeric format code is in use
{
TCHAR *ppArgs[4];
size_t iArgQty = Str_ParseCmds(s.GetArgRaw(), ppArgs, COUNTOF(ppArgs));
if ( iArgQty < 2 )
{
g_Log.EventError("SysMessagef with less than 1 args for the given text\n");
return false;
}
if ( iArgQty > 4 )
{
g_Log.EventError("Too many arguments given to SysMessagef (max = text + 3\n");
return false;
}
if ( *ppArgs[0] == '"' ) // skip quotes
++ppArgs[0];
for ( TCHAR *pEnd = ppArgs[0] + strlen(ppArgs[0]) - 1; pEnd >= ppArgs[0]; --pEnd )
{
if ( *pEnd == '"' ) // skip quotes
{
*pEnd = '\0';
break;
}
}
SysMessagef(ppArgs[0], ppArgs[1], ppArgs[2] ? ppArgs[2] : 0, ppArgs[3] ? ppArgs[3] : 0);
break;
}
case CV_SMSGU:
case CV_SYSMESSAGEUA:
{
TCHAR *ppArgs[5];
size_t iArgQty = Str_ParseCmds(s.GetArgRaw(), ppArgs, COUNTOF(ppArgs));
if ( iArgQty > 4 )
{
// Font and mode are actually ignored here, but they never made a difference anyway.. I'd like to keep the syntax similar to SAYUA
NCHAR szBuffer[MAX_TALK_BUFFER];
CvtSystemToNUNICODE(szBuffer, COUNTOF(szBuffer), ppArgs[4], -1);
addBarkUNICODE(szBuffer, NULL, static_cast<HUE_TYPE>(Exp_GetLLVal(ppArgs[0])), TALKMODE_SYSTEM, FONT_NORMAL, ppArgs[3]);
}
break;
}
case CV_SMSGL:
case CV_SYSMESSAGELOC:
{
TCHAR *ppArgs[256];
size_t iArgQty = Str_ParseCmds(s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), ",");
if ( iArgQty > 1 )
{
HUE_TYPE hue = HUE_TEXT_DEF;
if ( ATOI(ppArgs[0]) > 0 )
hue = static_cast<HUE_TYPE>(Exp_GetLLVal(ppArgs[0]));
DWORD dwClilocId = static_cast<DWORD>(Exp_GetLLVal(ppArgs[1]));
CGString sVal;
for ( size_t i = 2; i < iArgQty; ++i )
{
if ( sVal.GetLength() )
sVal += "\t";
sVal += !strcmp(ppArgs[i], "NULL") ? " " : ppArgs[i];
}
addBarkLocalized(dwClilocId, NULL, hue, TALKMODE_SYSTEM, FONT_NORMAL, sVal.GetPtr());
}
break;
}
case CV_SMSGLEX:
case CV_SYSMESSAGELOCEX:
{
TCHAR *ppArgs[256];
size_t iArgQty = Str_ParseCmds(s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), ",");
if ( iArgQty > 2 )
{
HUE_TYPE hue = HUE_TEXT_DEF;
AFFIX_TYPE affix = AFFIX_APPEND;
if ( ATOI(ppArgs[0]) > 0 )
hue = static_cast<HUE_TYPE>(Exp_GetLLVal(ppArgs[0]));
DWORD dwClilocId = static_cast<DWORD>(Exp_GetLLVal(ppArgs[1]));
if ( ppArgs[2] )
affix = static_cast<AFFIX_TYPE>(Exp_GetLLVal(ppArgs[2]));
CGString sVal;
for ( size_t i = 4; i < iArgQty; ++i )
{
if ( sVal.GetLength() )
sVal += "\t";
sVal += !strcmp(ppArgs[i], "NULL") ? " " : ppArgs[i];
}
addBarkLocalizedEx(dwClilocId, NULL, hue, TALKMODE_SYSTEM, FONT_NORMAL, affix, ppArgs[3], sVal.GetPtr());
}
break;
}
case CV_TELE:
Cmd_Skill_Magery(SPELL_Teleport, dynamic_cast<CObjBase *>(pSrc));
break;
case CV_TILE:
if ( !s.HasArgs() )
{
SysMessage("Usage: TILE z-height item1 item2 itemX");
break;
}
m_Targ_Text = s.GetArgStr(); // point at the options
m_tmTile.m_ptFirst.InitPoint(); // clear this first
m_tmTile.m_Code = CV_TILE;
addTarget(CLIMODE_TARG_TILE, "Pick 1st corner:", true);
break;
case CV_VERSION:
SysMessage(g_szServerDescription);
break;
case CV_WEBLINK:
addWebLaunch(s.GetArgStr());
break;
default:
if ( r_LoadVal(s) )
{
CGString sVal;
if ( r_WriteVal(s.GetKey(), sVal, pSrc) )
return true;
}
return CScriptObj::r_Verb(s, pSrc); // used in the case of web pages to access server level things
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPTSRC;
EXC_DEBUG_END;
return false;
}
