bool CSector::v_AllChars( CScript & s, CTextConsole * pSrc )
{
ADDTOCALLSTACK("CSector::v_AllChars");
CScript script(s.GetArgStr());
CChar * pChar = NULL;
bool fRet = false;
// Loop through all the characters in m_Chars_Active.
// We should start at the end incase some are removed during the loop.
size_t i = m_Chars_Active.GetCount();
while ( i > 0 )
{
pChar = static_cast<CChar *>(m_Chars_Active.GetAt(--i));
// Check that a character was returned and keep looking if not.
if (pChar == NULL)
continue;
// Execute the verb on the character
fRet |= pChar->r_Verb(script, pSrc);
}
return fRet;
}
bool CRegionWorld::r_LoadVal( CScript &s )
{
ADDTOCALLSTACK("CRegionWorld::r_LoadVal");
EXC_TRY("LoadVal");
// Load the values for the region from script.
switch ( FindTableHeadSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
case RWC_DEFNAME: // "DEFNAME" = for the speech system.
return SetResourceName( s.GetArgStr());
case RWC_RESOURCES:
SetModified( REGMOD_EVENTS );
return( m_Events.r_LoadVal( s, RES_REGIONTYPE ));
default:
break;
}
return(CRegionBase::r_LoadVal(s));
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CRandGroupDef::r_LoadVal( CScript &s )
{
ADDTOCALLSTACK("CRandGroupDef::r_LoadVal");
EXC_TRY("LoadVal");
// RES_SPAWN or RES_REGIONTYPE
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
case RGC_CATEGORY:
m_sCategory = s.GetArgStr();
break;
case RGC_SUBSECTION:
m_sSubsection = s.GetArgStr();
break;
case RGC_DESCRIPTION:
{
m_sDescription = s.GetArgStr();
if ( !strcmpi(m_sDescription, "@") )
m_sDescription = m_sSubsection;
}
break;
case RGC_DEFNAME: // "DEFNAME"
return SetResourceName( s.GetArgStr());
case RGC_ID: // "ID"
case RGC_CONTAINER:
{
TCHAR *ppCmd[2];
size_t iArgs = Str_ParseCmds(s.GetArgStr(), ppCmd, COUNTOF(ppCmd));
CResourceQty rec;
rec.SetResourceID(
g_Cfg.ResourceGetID(RES_CHARDEF, const_cast<LPCTSTR &>(reinterpret_cast<LPTSTR &>(ppCmd[0]))),
( iArgs > 1 && ppCmd[1][0] ) ? Exp_GetVal(ppCmd[1]) : 1 );
m_iTotalWeight += static_cast<int>(rec.GetResQty());
m_Members.Add(rec);
}
break;
case RGC_RESOURCES:
m_Members.Load(s.GetArgStr());
CalcTotalWeight();
break;
case RGC_WEIGHT: // Modify the weight of the last item.
if ( m_Members.GetCount() > 0 )
{
int iWeight = s.GetArgVal();
m_Members[m_Members.GetCount() - 1].SetResQty(iWeight);
CalcTotalWeight();
}
break;
//default:
//Ignore the rest
//return( CResourceDef::r_LoadVal( s ));
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
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 ) == false ) )
{
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 ) == false ) )
{
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())
{
// FindItemName ???
TCHAR * pszArgs = s.GetArgStr();
if ( !IsValidGameObjDef( static_cast<LPCTSTR>(pszArgs) ) )
{
g_Log.EventWarn("Invalid ADD argument '%s'\n", pszArgs);
SysMessageDefault( DEFMSG_CMD_INVALID );
return true;
}
RESOURCE_ID rid = g_Cfg.ResourceGetID( RES_QTY, const_cast<LPCTSTR &>(reinterpret_cast<LPTSTR &>(pszArgs)));
if (( rid.GetResType() == RES_CHARDEF ) || ( rid.GetResType() == RES_SPAWN ))
{
m_Targ_PrvUID.InitUID();
return Cmd_CreateChar(static_cast<CREID_TYPE>(rid.GetResIndex()), SPELL_Summon, false );
}
ITEMID_TYPE id = static_cast<ITEMID_TYPE>(rid.GetResIndex());
return Cmd_CreateItem( id );
}
else
{
if ( IsValidDef( "d_add" ) )
Dialog_Setup( CLIMODE_DIALOG, g_Cfg.ResourceGetIDType(RES_DIALOG, "d_add"), 0, this->GetChar() );
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 idx = 0; idx < 4; ++idx )
{
if ( !IsStrNumeric(ppArgs[idx]))
{
DEBUG_ERR(("Invalid AddBuff argument number %u\n", idx+1));
return true;
}
iArgs[idx] = Exp_GetVal( ppArgs[idx] );
}
if (iArgs[0] < BI_START || iArgs[0] > BI_QTY/* || iArgs[0] == 0x3EB || iArgs[0] == 0x3EC*/) { // 0x3eb and 0x3ec among some others does not exists now, which doesn't mean they won't fill them and, since nothing happens when wrong id is sent, we can let them be sent.
DEBUG_ERR(("Invalid AddBuff icon ID\n"));
break;
}
LPCTSTR Args[7];
size_t ArgsCount = 0;
for ( int i = 0; i < 7; ++i )
{
Args[i] = ppArgs[i + 4];
if ( Args[i] != NULL )
ArgsCount++;
}
addBuff(static_cast<BUFF_ICONS>(iArgs[0]), iArgs[1], iArgs[2], static_cast<WORD>(iArgs[3]), Args, ArgsCount);
}
break;
case CV_REMOVEBUFF:
{
BUFF_ICONS IconId = static_cast<BUFF_ICONS>(s.GetArgVal());
if (IconId < BI_START || IconId > BI_QTY/* || IconId == 0x3EB || IconId == 0x3EC*/) {
DEBUG_ERR(("Invalid RemoveBuff icon ID\n"));
break;
}
removeBuff(IconId);
}
break;
case CV_ADDCLILOC:
// Add cliloc in @ClientTooltip trigger
{
TCHAR * ppLocArgs[256];
size_t qty = Str_ParseCmds(s.GetArgRaw(), ppLocArgs, COUNTOF(ppLocArgs), ",");
DWORD clilocid = Exp_GetVal(ppLocArgs[0]);
CGString LocArgs;
for ( size_t y = 1 ; y < qty; y++ )
{
if ( LocArgs.GetLength() )
LocArgs += "\t";
LocArgs += ( !strcmp(ppLocArgs[y], "NULL") ? " " : ppLocArgs[y] );
}
if ( g_Cfg.m_wDebugFlags & DEBUGF_SCRIPTS )
g_Log.EventDebug("SCRIPT: addcliloc(%lu,'%s')\n", clilocid, static_cast<LPCTSTR>(LocArgs));
this->m_TooltipData.Add(new CClientTooltip(clilocid, LocArgs));
}
break;
case CV_ADDCONTEXTENTRY:
{
TCHAR * ppLocArgs[20];
if ( Str_ParseCmds(s.GetArgRaw(), ppLocArgs, COUNTOF(ppLocArgs), ",") > 4 )
{
DEBUG_ERR(("Bad AddContextEntry usage: Function takes maximum of 4 arguments!\n"));
return true;
}
if (m_pPopupPacket == NULL)
{
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(ppLocArgs[i]) )
continue;
if ( !IsStrNumeric(ppLocArgs[i]) )
{
DEBUG_ERR(("Bad AddContextEntry usage: Argument %d must be a number!\n", i+1));
return true;
}
}
int entrytag = Exp_GetVal(ppLocArgs[0]);
if ( entrytag < 100 )
{
DEBUG_ERR(("Bad AddContextEntry usage: TextEntry < 100 is reserved for server usage!\n"));
return true;
}
m_pPopupPacket->addOption(static_cast<WORD>(entrytag), static_cast<DWORD>(Exp_GetVal(ppLocArgs[1])), static_cast<WORD>(Exp_GetVal(ppLocArgs[2])), static_cast<WORD>(Exp_GetVal(ppLocArgs[3])));
}
break;
case CV_ARROWQUEST:
{
INT64 piVal[3];
Str_ParseCmds( s.GetArgRaw(), piVal, COUNTOF(piVal));
addArrowQuest( static_cast<int>(piVal[0]), static_cast<int>(piVal[1]), static_cast<int>(piVal[2]) );
#ifdef _ALPHASPHERE
// todo: should use a proper container for these, since the arrows are lost
// when the client logs out, and also newer clients support multiple
// arrows
if ( piVal[0] && piVal[1] && m_pChar )
{
m_pChar->SetKeyNum("ARROWQUEST_X", piVal[0]);
m_pChar->SetKeyNum("ARROWQUEST_Y", piVal[1]);
} else {
m_pChar->DeleteKey("ARROWQUEST_X");
m_pChar->DeleteKey("ARROWQUEST_Y");
}
#endif
}
break;
case CV_BADSPAWN:
{
// Loop the world searching for bad spawns
bool fFound = false;
for ( int m = 0; m < 256 && !fFound; m++ )
{
if ( !g_MapList.m_maps[m] ) continue;
for ( int d = 0; d < g_MapList.GetSectorQty(m) && !fFound; d++ )
{
CSector *pSector = g_World.GetSector(m, d);
if ( !pSector ) continue;
CItem *pNext;
CItem *pItem = STATIC_CAST <CItem*>(pSector->m_Items_Inert.GetHead());
for ( ; pItem != NULL && !fFound; pItem = pNext )
{
pNext = pItem->GetNext();
if ( pItem->IsType(IT_SPAWN_ITEM) || pItem->IsType(IT_SPAWN_CHAR) )
{
CItemSpawn *pSpawn = static_cast<CItemSpawn*>(pItem);
CResourceDef *pDef = pSpawn->FixDef();
if ( !pDef )
{
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", (DWORD)pItem->GetUID(), g_Cfg.ResourceGetName(rid));
fFound = true;
}
}
}
}
}
if ( ! fFound )
SysMessage(g_Cfg.GetDefaultMsg( DEFMSG_NO_BAD_SPAWNS ));
}
break;
case CV_BANKSELF: // open my own bank
addBankOpen( m_pChar, static_cast<LAYER_TYPE>(s.GetArgVal()));
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 == NULL)
return true;
CObjBase * pObjSrc = dynamic_cast<CObjBase *>(pSrc);
if ( IsSetMagicFlags( MAGICF_PRECAST ) && !pSpellDef->IsSpellType( SPELLFLAG_NOPRECAST ) )
{
int skill;
if (!pSpellDef->GetPrimarySkill(&skill, NULL))
return true;
m_tmSkillMagery.m_Spell = spell; // m_atMagery.m_Spell
m_pChar->m_atMagery.m_Spell = spell;
if (pObjSrc != NULL)
{
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>(skill));
break;
}
else
Cmd_Skill_Magery(spell, pObjSrc);
}
break;
case CV_CHARLIST:
{
// usually just a gm command
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:
{
CChar *pChar = m_pChar;
if ( s.HasArgs() )
{
CGrayUID uid = s.GetArgVal();
pChar = uid.CharFind();
}
if ( pChar )
closeUIWindow(pChar, 0x01);
}
break;
case CV_CLOSEPROFILE:
{
CChar *pChar = m_pChar;
if ( s.HasArgs() )
{
CGrayUID uid = s.GetArgVal();
pChar = uid.CharFind();
}
if ( pChar )
closeUIWindow(pChar, 0x08);
}
break;
case CV_CLOSESTATUS:
{
CChar *pChar = m_pChar;
if ( s.HasArgs() )
{
CGrayUID uid = s.GetArgVal();
pChar = uid.CharFind();
}
if ( pChar )
closeUIWindow(pChar, 0x02);
}
break;
case CV_DYE:
if ( s.HasArgs() )
{
CGrayUID uid(s.GetArgVal());
CObjBase *pObj = uid.ObjFind();
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
if ( ! s.HasArgs())
{
SysMessage( g_Cfg.GetDefaultMsg( DEFMSG_EXTRACT_USAGE ) );
}
else
{
TCHAR * ppArgs[2];
Str_ParseCmds( s.GetArgStr(), ppArgs, COUNTOF( ppArgs ));
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
if ( ! s.HasArgs())
{
SysMessage( g_Cfg.GetDefaultMsg( DEFMSG_UNEXTRACT_USAGE ) );
}
else
{
TCHAR * ppArgs[2];
Str_ParseCmds( s.GetArgStr(), ppArgs, COUNTOF( ppArgs ));
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 != NULL )
{
CPointMap po = pObj->GetTopLevelObj()->GetTopPoint();
CPointMap pnt = po;
pnt.MoveN( DIR_W, 3 );
DWORD wBlockFlags = m_pChar->GetMoveBlockFlags();
pnt.m_z = g_World.GetHeightPoint2( pnt, wBlockFlags ); // ??? Get Area
m_pChar->m_dirFace = pnt.GetDir( po, m_pChar->m_dirFace ); // Face the player
m_pChar->Spell_Teleport( pnt, 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 != NULL )
{
Event_Target(GetTargMode(), pObj->GetUID(), pObj->GetUnkPoint());
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_MENU:
Menu_Setup( g_Cfg.ResourceGetIDType( RES_MENU, s.GetArgStr()));
break;
case CV_MIDILIST:
{
INT64 piMidi[64];
size_t iQty = Str_ParseCmds( s.GetArgStr(), piMidi, COUNTOF(piMidi));
if ( iQty > 0 )
{
addMusic( static_cast<MIDI_TYPE>(piMidi[ Calc_GetRandVal( iQty ) ]) );
}
}
break;
case CV_NUDGE:
if ( ! s.HasArgs())
{
SysMessage( "Usage: NUDGE dx dy dz" );
}
else
{
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:
{
CChar *pChar = m_pChar;
if ( s.HasArgs() )
{
CGrayUID uid = s.GetArgVal();
pChar = uid.CharFind();
}
if ( pChar )
addCharPaperdoll(pChar);
}
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(GetNetState());
#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: // Just put up another menu.
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: // from the spell skill script.
// m_Targ_PrvUID should already be set.
return Cmd_CreateChar(static_cast<CREID_TYPE>(g_Cfg.ResourceGetIndexType( RES_CHARDEF, s.GetArgStr())), SPELL_Summon, true );
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 * pszArgs[4];
size_t iArgQty = Str_ParseCmds( s.GetArgRaw(), pszArgs, COUNTOF(pszArgs) );
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;
}
//strip quotes if any
if ( *pszArgs[0] == '"' )
pszArgs[0]++;
for (TCHAR * pEnd = pszArgs[0] + strlen( pszArgs[0] ) - 1; pEnd >= pszArgs[0]; pEnd-- )
{
if ( *pEnd == '"' )
{
*pEnd = '\0';
break;
}
}
SysMessagef( pszArgs[0], pszArgs[1], pszArgs[2] ? pszArgs[2] : 0, pszArgs[3] ? pszArgs[3] : 0);
}break;
case CV_SMSGU:
case CV_SYSMESSAGEUA:
{
TCHAR * pszArgs[5];
size_t iArgQty = Str_ParseCmds( s.GetArgRaw(), pszArgs, COUNTOF(pszArgs) );
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), pszArgs[4], -1 );
addBarkUNICODE( szBuffer, NULL, static_cast<HUE_TYPE>(Exp_GetVal(pszArgs[0])), TALKMODE_SYSTEM, FONT_NORMAL, pszArgs[3] );
}
}
break;
case CV_SMSGL:
case CV_SYSMESSAGELOC:
{
TCHAR * ppArgs[256];
size_t iArgQty = Str_ParseCmds( s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), "," );
if ( iArgQty > 1 )
{
int hue = -1;
if ( ppArgs[0] )
hue = Exp_GetVal( ppArgs[0] );
int iClilocId = Exp_GetVal( ppArgs[1] );
if ( hue == -1 ) hue = HUE_TEXT_DEF;
CGString CArgs;
for ( size_t i = 2; i < iArgQty; i++ )
{
if ( CArgs.GetLength() )
CArgs += "\t";
CArgs += ( !strcmp(ppArgs[i], "NULL") ? " " : ppArgs[i] );
}
addBarkLocalized(iClilocId, NULL, static_cast<HUE_TYPE>(hue), TALKMODE_SYSTEM, FONT_NORMAL, CArgs.GetPtr());
}
}
break;
case CV_SMSGLEX:
case CV_SYSMESSAGELOCEX:
{
TCHAR * ppArgs[256];
size_t iArgQty = Str_ParseCmds( s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), "," );
if ( iArgQty > 2 )
{
int hue = -1;
int affix = 0;
if ( ppArgs[0] )
hue = Exp_GetVal( ppArgs[0] );
int iClilocId = Exp_GetVal( ppArgs[1] );
if ( ppArgs[2] )
affix = Exp_GetVal( ppArgs[2] );
if ( hue == -1 ) hue = HUE_TEXT_DEF;
CGString CArgs;
for ( size_t i = 4; i < iArgQty; i++ )
{
if ( CArgs.GetLength() )
CArgs += "\t";
CArgs += ( !strcmp(ppArgs[i], "NULL") ? " " : ppArgs[i] );
}
addBarkLocalizedEx( iClilocId, NULL, static_cast<HUE_TYPE>(hue), TALKMODE_SYSTEM, FONT_NORMAL, static_cast<AFFIX_TYPE>(affix), ppArgs[3], CArgs.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" );
}
else
{
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: // "SHOW 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 ))
{
// if ( !s.IsKeyHead( "CTAG.", 5 ) && !s.IsKeyHead( "CTAG0.", 6 ) ) // We don't want output related to ctag
// SysMessagef( "%s = %s", (LPCTSTR) s.GetKey(), (LPCTSTR) sVal ); // feedback on what we just did.
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;
}
bool CServerDef::r_LoadVal( CScript & s )
{
ADDTOCALLSTACK("CServerDef::r_LoadVal");
EXC_TRY("LoadVal");
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, CountOf( sm_szLoadKeys )-1 ) )
{
case SC_ACCAPP:
case SC_ACCAPPS:
// Treat it as a value or a string.
if ( IsDigit( s.GetArgStr()[0] ))
m_eAccApp = static_cast<ACCAPP_TYPE>(s.GetArgVal() );
else
{
// Treat it as a string. "Manual","Automatic","Guest"
m_eAccApp = static_cast<ACCAPP_TYPE>(FindTable(s.GetArgStr(), sm_AccAppTable, CountOf(sm_AccAppTable)));
}
if ( m_eAccApp < 0 || m_eAccApp >= ACCAPP_QTY )
m_eAccApp = ACCAPP_Unspecified;
break;
case SC_AGE:
break;
case SC_CLIENTVERSION:
m_sClientVersion = s.GetArgRaw();
// m_ClientVersion.SetClientVer( s.GetArgRaw());
break;
case SC_CREATE:
m_timeCreate = CServerTime::GetCurrentTime() - ( s.GetArgLLVal() * TICK_PER_SEC );
break;
case SC_ADMINEMAIL:
if ( this != &g_Serv && !g_Serv.m_sEMail.IsEmpty() && strstr(s.GetArgStr(), g_Serv.m_sEMail) )
return false;
if ( !g_Cfg.IsValidEmailAddressFormat(s.GetArgStr()) )
return false;
if ( g_Cfg.IsObscene(s.GetArgStr()) )
return false;
m_sEMail = s.GetArgStr();
break;
case SC_LANG:
{
tchar szLang[ 32 ];
Str_GetBare( szLang, s.GetArgStr(), sizeof(szLang), "<>/\"\\" );
if ( g_Cfg.IsObscene(szLang) ) // Is the name unacceptable?
return false;
m_sLang = szLang;
}
break;
case SC_LASTVALIDDATE:
m_dateLastValid.Read( s.GetArgStr() );
break;
case SC_LASTVALIDTIME:
{
int iVal = s.GetArgVal() * TICK_PER_SEC;
if ( iVal < 0 )
m_timeLastValid = CServerTime::GetCurrentTime() + iVal;
else
m_timeLastValid = CServerTime::GetCurrentTime() - iVal;
}
break;
case SC_SERVIP:
m_ip.SetHostPortStr( s.GetArgStr() );
break;
case SC_NAME:
case SC_SERVNAME:
SetName( s.GetArgStr() );
break;
case SC_SERVPORT:
m_ip.SetPort( (word)s.GetArgVal() );
break;
case SC_ACCOUNTS:
SetStat( SERV_STAT_ACCOUNTS, s.GetArgVal() );
break;
case SC_CLIENTS:
{
int iClients = s.GetArgVal();
if ( iClients < 0 )
return false; // invalid
if ( iClients > FD_SETSIZE ) // Number is bugged !
return false;
SetStat( SERV_STAT_CLIENTS, iClients );
}
break;
case SC_ITEMS:
SetStat( SERV_STAT_ITEMS, s.GetArgVal() );
break;
case SC_CHARS:
SetStat( SERV_STAT_CHARS, s.GetArgVal() );
break;
case SC_TIMEZONE:
m_TimeZone = (char)s.GetArgVal();
break;
case SC_URL:
case SC_URLLINK:
// It is a basically valid URL ?
if ( this != &g_Serv )
{
if ( !g_Serv.m_sURL.IsEmpty() && strstr(s.GetArgStr(), g_Serv.m_sURL) )
return false;
}
if ( !strchr(s.GetArgStr(), '.' ) )
return false;
if ( g_Cfg.IsObscene( s.GetArgStr()) ) // Is the name unacceptable?
return false;
m_sURL = s.GetArgStr();
break;
default:
return CScriptObj::r_LoadVal(s);
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CChar::Player_OnVerb( CScript &s, CTextConsole * pSrc ) // Execute command from script
{
ADDTOCALLSTACK("CChar::Player_OnVerb");
if ( !m_pPlayer )
return false;
LPCTSTR pszKey = s.GetKey();
int cpVerb = FindTableSorted( pszKey, CCharPlayer::sm_szVerbKeys, COUNTOF(CCharPlayer::sm_szVerbKeys)-1 );
if ( cpVerb <= -1 )
{
if ( ( !strnicmp(pszKey, "GUILD", 5) ) || ( !strnicmp(pszKey, "TOWN", 4) ) )
{
bool bIsGuild = !strnicmp(pszKey, "GUILD", 5);
pszKey += bIsGuild ? 5 : 4;
if ( *pszKey == '.' )
{
pszKey += 1;
CItemStone *pMyGuild = Guild_Find(bIsGuild ? MEMORY_GUILD : MEMORY_TOWN);
if ( pMyGuild )
{
CScript sToParse(pszKey, s.GetArgRaw());
return pMyGuild->r_Verb(sToParse, pSrc);
}
}
return false;
}
}
switch ( cpVerb )
{
case CPV_KICK: // "KICK" = kick and block the account
return (IsClient() && GetClient()->addKick(pSrc));
case CPV_PASSWORD: // "PASSWORD"
{
// Set/Clear the password
if ( pSrc != this )
{
if ( pSrc->GetPrivLevel() <= GetPrivLevel() || pSrc->GetPrivLevel() < PLEVEL_Admin )
{
pSrc->SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_MSG_ACC_PRIV));
return false;
}
}
CAccount * pAccount = m_pPlayer->GetAccount();
ASSERT(pAccount != NULL);
if ( !s.HasArgs() )
{
pAccount->ClearPassword();
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_MSG_ACC_PASSCLEAR));
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_MSG_ACC_PASSCLEAR_RELOG));
g_Log.Event(LOGM_ACCOUNTS|LOGL_EVENT, "Account '%s', password cleared\n", pAccount->GetName());
}
else
{
if ( pAccount->SetPassword(s.GetArgStr()) )
{
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_MSG_ACC_ACCEPTPASS));
g_Log.Event(LOGM_ACCOUNTS|LOGL_EVENT, "Account '%s', password set to '%s'\n", pAccount->GetName(), s.GetArgStr());
return true;
}
SysMessage(g_Cfg.GetDefaultMsg(DEFMSG_MSG_ACC_INVALIDPASS));
}
break;
}
default:
return false;
}
return true;
}
bool CDialogDef::r_Verb( CScript & s, CTextConsole * pSrc ) // some command on this object as a target
{
ADDTOCALLSTACK("CDialogDef::r_Verb");
EXC_TRY("Verb");
// The first part of the key is GUMPCTL_TYPE
lpctstr pszKey = s.GetKey();
int index = FindTableSorted( pszKey, sm_szLoadKeys, CountOf(sm_szLoadKeys)-1 );
if ( index < 0 )
{
CSString sVal;
CScriptTriggerArgs Args(s.GetArgRaw());
if ( r_Call(s.GetKey(), pSrc, &Args, &sVal) )
return true;
if (!m_pObj)
return CResourceLink::r_Verb(s, pSrc);
return m_pObj->r_Verb(s, pSrc);
}
lpctstr pszArgs = s.GetArgStr();
switch( index )
{
case GUMPCTL_PAGE:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
GET_ABSOLUTE( page );
if ( page <= 0 ) return true;
int iNewPage;
if ( m_wPage == 0 || page > m_wPage || page == 0 )
iNewPage = page;
else if ( page == m_wPage )
iNewPage = 1;
else
iNewPage = page + 1;
m_sControls[m_uiControls].Format( "page %d", iNewPage );
++m_uiControls;
return true;
}
case GUMPCTL_BUTTON: // 7 = X,Y,Down gump,Up gump,pressable(1/0),page,id
case GUMPCTL_BUTTONTILEART: // 11 = X,Y,Down gump,Up gump,pressable(1/0),page,id,tileart,hue,X,Y
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( down );
GET_ABSOLUTE( up );
GET_ABSOLUTE( press );
GET_ABSOLUTE( page );
GET_ABSOLUTE( id );
int iNewPage;
if ( m_wPage == 0 || page > m_wPage || page == 0 )
iNewPage = page;
else if ( page == m_wPage )
iNewPage = 1;
else
iNewPage = page + 1;
if (index == GUMPCTL_BUTTON)
m_sControls[m_uiControls].Format( "button %d %d %d %d %d %d %d", x, y, down, up, press, iNewPage, id );
else
{
GET_ABSOLUTE( tileId );
GET_ABSOLUTE( tileHue );
GET_ABSOLUTE( tileX );
GET_ABSOLUTE( tileY );
m_sControls[m_uiControls].Format( "buttontileart %d %d %d %d %d %d %d %d %d %d %d", x, y, down, up, press, iNewPage, id, tileId, tileHue, tileX, tileY );
}
++m_uiControls;
return true;
}
case GUMPCTL_GUMPPIC:
{
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( id );
SKIP_ALL( pszArgs );
m_sControls[m_uiControls].Format( "gumppic %d %d %d%s%s", x, y, id, *pszArgs ? " hue=" : "", *pszArgs ? pszArgs : "" );
++m_uiControls;
return true;
}
case GUMPCTL_GUMPPICTILED:
{
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( sX );
GET_ABSOLUTE( sY );
GET_ABSOLUTE( id );
m_sControls[m_uiControls].Format( "gumppictiled %d %d %d %d %d", x, y, sX, sY, id );
++m_uiControls;
return true;
}
case GUMPCTL_RESIZEPIC:
{
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( id );
GET_ABSOLUTE( sX );
GET_ABSOLUTE( sY );
m_sControls[m_uiControls].Format( "resizepic %d %d %d %d %d", x, y, id, sX, sY );
++m_uiControls;
return true;
}
case GUMPCTL_TILEPIC:
case GUMPCTL_TILEPICHUE:
{
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( id );
SKIP_ALL( pszArgs );
// TilePic don't use args, TilePicHue yes :)
if ( index == GUMPCTL_TILEPIC )
m_sControls[m_uiControls].Format( "tilepic %d %d %d", x, y, id );
else
m_sControls[m_uiControls].Format( "tilepichue %d %d %d%s%s", x, y, id, *pszArgs ? " " : "", *pszArgs ? pszArgs : "" );
++m_uiControls;
return true;
}
case GUMPCTL_DTEXT:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
if ( m_uiTexts >= (CountOf(m_sText) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( hue );
SKIP_ALL( pszArgs )
if ( *pszArgs == '.' ) pszArgs++;
uint iText = GumpAddText( *pszArgs ? pszArgs : "" );
m_sControls[m_uiControls].Format( "text %d %d %d %u", x, y, hue, iText );
++m_uiControls;
return true;
}
case GUMPCTL_DCROPPEDTEXT:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
if ( m_uiTexts >= (CountOf(m_sText) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( w );
GET_ABSOLUTE( h );
GET_ABSOLUTE( hue );
SKIP_ALL( pszArgs )
if ( *pszArgs == '.' ) pszArgs++;
uint iText = GumpAddText( *pszArgs ? pszArgs : "" );
m_sControls[m_uiControls].Format( "croppedtext %d %d %d %d %d %u", x, y, w, h, hue, iText );
++m_uiControls;
return true;
}
case GUMPCTL_DHTMLGUMP:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
if ( m_uiTexts >= (CountOf(m_sText) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( w );
GET_ABSOLUTE( h );
GET_ABSOLUTE( bck );
GET_ABSOLUTE( options );
SKIP_ALL( pszArgs )
uint iText = GumpAddText( *pszArgs ? pszArgs : "" );
m_sControls[m_uiControls].Format( "htmlgump %d %d %d %d %u %d %d", x, y, w, h, iText, bck, options );
++m_uiControls;
return true;
}
case GUMPCTL_DTEXTENTRY:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
if ( m_uiTexts >= (CountOf(m_sText) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( w );
GET_ABSOLUTE( h );
GET_ABSOLUTE( hue );
GET_ABSOLUTE( id );
SKIP_ALL( pszArgs )
uint iText = GumpAddText( *pszArgs ? pszArgs : "" );
m_sControls[m_uiControls].Format( "textentry %d %d %d %d %d %d %u", x, y, w, h, hue, id, iText );
++m_uiControls;
return true;
}
case GUMPCTL_DTEXTENTRYLIMITED:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
if ( m_uiTexts >= (CountOf(m_sText) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( w );
GET_ABSOLUTE( h );
GET_ABSOLUTE( hue );
GET_ABSOLUTE( id );
GET_ABSOLUTE( charLimit );
SKIP_ALL( pszArgs )
uint iText = GumpAddText( *pszArgs ? pszArgs : "" );
m_sControls[m_uiControls].Format( "textentrylimited %d %d %d %d %d %d %u %d", x, y, w, h, hue, id, iText, charLimit );
++m_uiControls;
return true;
}
case GUMPCTL_CHECKBOX:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( down );
GET_ABSOLUTE( up );
GET_ABSOLUTE( state );
GET_ABSOLUTE( id );
m_sControls[m_uiControls].Format( "checkbox %d %d %d %d %d %d", x, y, down, up, state, id );
++m_uiControls;
return true;
}
case GUMPCTL_RADIO:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( down );
GET_ABSOLUTE( up );
GET_ABSOLUTE( state );
GET_ABSOLUTE( id );
m_sControls[m_uiControls].Format( "radio %d %d %d %d %d %d", x, y, down, up, state, id );
++m_uiControls;
return true;
}
case GUMPCTL_CHECKERTRANS:
{
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( width );
GET_ABSOLUTE( height );
m_sControls[m_uiControls].Format( "checkertrans %d %d %d %d", x, y, width, height );
++m_uiControls;
return true;
}
case GUMPCTL_DORIGIN:
{
// GET_RELATIVE( x, m_iOriginX );
// GET_RELATIVE( y, m_iOriginY );
// m_iOriginX = x;
// m_iOriginY = y;
SKIP_ALL( pszArgs );
if ( *pszArgs == '-' && (IsSpace( pszArgs[1] ) || !pszArgs[1]) ) pszArgs++;
else if ( *pszArgs == '*' ) m_iOriginX += Exp_GetSingle( ++pszArgs );
else m_iOriginX = Exp_GetSingle( pszArgs );
SKIP_ALL( pszArgs );
if ( *pszArgs == '-' && (IsSpace( pszArgs[1] ) || !pszArgs[1]) ) pszArgs++;
else if ( *pszArgs == '*' ) m_iOriginY += Exp_GetSingle( ++pszArgs );
else m_iOriginY = Exp_GetSingle( pszArgs );
return true;
}
case GUMPCTL_NODISPOSE:
m_fNoDispose = true;
break;
case GUMPCTL_CROPPEDTEXT:
case GUMPCTL_TEXT:
case GUMPCTL_TEXTENTRY:
case GUMPCTL_TEXTENTRYLIMITED:
break;
case GUMPCTL_XMFHTMLGUMP: // 7 = x,y,sx,sy, cliloc(1003000) hasBack canScroll
case GUMPCTL_XMFHTMLGUMPCOLOR: // 7 + color.
{
GET_RELATIVE( x, m_iOriginX );
GET_RELATIVE( y, m_iOriginY );
GET_ABSOLUTE( sX );
GET_ABSOLUTE( sY );
GET_ABSOLUTE( cliloc );
GET_ABSOLUTE( hasBack );
GET_ABSOLUTE( canScroll );
//SKIP_ALL( pszArgs )
if ( index == GUMPCTL_XMFHTMLGUMP ) // xmfhtmlgump doesn't use color
m_sControls[m_uiControls].Format( "xmfhtmlgump %d %d %d %d %d %d %d" , x, y, sX, sY, cliloc, hasBack, canScroll );
else
m_sControls[m_uiControls].Format( "xmfhtmlgumpcolor %d %d %d %d %d %d %d%s%s", x, y, sX, sY, cliloc, hasBack, canScroll, *pszArgs ? " " : "", *pszArgs ? pszArgs : "" );
++m_uiControls;
return true;
}
case GUMPCTL_XMFHTMLTOK: // 9 = x y width height has_background has_scrollbar color cliloc_id @args
{
GET_RELATIVE(x, m_iOriginX);
GET_RELATIVE(y, m_iOriginY);
GET_ABSOLUTE(sX);
GET_ABSOLUTE(sY);
GET_ABSOLUTE(hasBack);
GET_ABSOLUTE(canScroll);
GET_ABSOLUTE(color);
GET_ABSOLUTE(cliloc);
SKIP_ALL(pszArgs);
m_sControls[m_uiControls].Format("xmfhtmltok %d %d %d %d %d %d %d %d %s", x, y, sX, sY, hasBack, canScroll, color, cliloc, *pszArgs ? pszArgs : "");
++m_uiControls;
return true;
}
default:
break;
}
if ( m_uiControls >= (CountOf(m_sControls) - 1) )
return false;
m_sControls[m_uiControls].Format("%s %s", pszKey, pszArgs);
++m_uiControls;
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPTSRC;
EXC_DEBUG_END;
return false;
}
bool CResourceRefArray::r_LoadVal( CScript & s, RES_TYPE restype )
{
ADDTOCALLSTACK("CResourceRefArray::r_LoadVal");
EXC_TRY("LoadVal");
bool fRet = false;
// A bunch of CResourceLink (CResourceDef) pointers.
// Add or remove from the list.
// RETURN: false = it failed.
// ? "TOWN" and "REGION" are special !
TCHAR * pszCmd = s.GetArgStr();
TCHAR * ppBlocks[128]; // max is arbitrary
size_t iArgCount = Str_ParseCmds( pszCmd, ppBlocks, COUNTOF(ppBlocks));
for ( size_t i = 0; i < iArgCount; i++ )
{
pszCmd = ppBlocks[i];
if ( pszCmd[0] == '-' )
{
// remove a frag or all frags.
pszCmd ++;
if ( pszCmd[0] == '0' || pszCmd[0] == '*' )
{
RemoveAll();
fRet = true;
continue;
}
CResourceLink * pResourceLink = dynamic_cast<CResourceLink *>( g_Cfg.ResourceGetDefByName( restype, pszCmd ));
if ( pResourceLink == NULL )
{
fRet = false;
continue;
}
int iIndex = RemovePtr(pResourceLink);
fRet = ( iIndex >= 0 );
}
else
{
// Add a single knowledge fragment or appropriate group item.
if ( pszCmd[0] == '+' ) pszCmd ++;
CResourceLink * pResourceLink = dynamic_cast<CResourceLink *>( g_Cfg.ResourceGetDefByName( restype, pszCmd ));
if ( pResourceLink == NULL )
{
fRet = false;
DEBUG_ERR(( "Unknown '%s' Resource '%s'\n", CResourceBase::GetResourceBlockName(restype), pszCmd ));
continue;
}
// Is it already in the list ?
fRet = true;
if ( ContainsPtr(pResourceLink) )
{
continue;
}
if ( g_Cfg.m_pEventsPetLink.ContainsPtr(pResourceLink) )
{
DEBUG_ERR(("'%s' already defined in sphere.ini - skipping\n", pResourceLink->GetName()));
continue;
}
else if ( g_Cfg.m_pEventsPlayerLink.ContainsPtr(pResourceLink) )
{
DEBUG_ERR(("'%s' already defined in sphere.ini - skipping\n", pResourceLink->GetName()));
continue;
}
else if ( restype == RES_REGIONTYPE && g_Cfg.m_pEventsRegionLink.ContainsPtr(pResourceLink) )
{
DEBUG_ERR(("'%s' already defined in sphere.ini - skipping\n", pResourceLink->GetName()));
continue;
}
else if ( g_Cfg.m_iEventsItemLink.ContainsPtr(pResourceLink) )
{
DEBUG_ERR(("'%s' already defined in sphere.ini - skipping\n", pResourceLink->GetName()));
continue;
}
Add( pResourceLink );
}
}
return fRet;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CRegionBase::r_LoadVal( CScript & s )
{
ADDTOCALLSTACK("CRegionBase::r_LoadVal");
EXC_TRY("LoadVal");
if ( s.IsKeyHead( "TAG.", 4 ))
{
SetModified( REGMOD_TAGS );
bool fQuoted = false;
m_TagDefs.SetStr( s.GetKey()+ 4, fQuoted, s.GetArgStr( &fQuoted ), false );
return( true );
}
if ( s.IsKeyHead( "TAG0.", 5 ))
{
SetModified( REGMOD_TAGS );
bool fQuoted = false;
m_TagDefs.SetStr( s.GetKey()+ 5, fQuoted, s.GetArgStr( &fQuoted ), false );
return( true );
}
int index = FindTableSorted(s.GetKey(), sm_szLoadKeys, COUNTOF(sm_szLoadKeys) - 1);
if ( index < 0 )
return false;
switch ( index )
{
case RC_ANNOUNCE:
TogRegionFlags( REGION_FLAG_ANNOUNCE, ( ! s.HasArgs()) || s.GetArgVal());
break;
case RC_ARENA:
TogRegionFlags( REGION_FLAG_ARENA, s.GetArgVal() != 0);
break;
case RC_BUILDABLE:
TogRegionFlags( REGION_FLAG_NOBUILDING, ! s.GetArgVal());
break;
case RC_COLDCHANCE:
SendSectorsVerb( s.GetKey(), s.GetArgStr(), &g_Serv );
break;
case RC_EVENTS:
SetModified( REGMOD_EVENTS );
return( m_Events.r_LoadVal( s, RES_REGIONTYPE ));
case RC_FLAGS:
m_dwFlags = ( s.GetArgVal() &~REGION_FLAG_SHIP ) | ( m_dwFlags & REGION_FLAG_SHIP );
SetModified( REGMOD_FLAGS );
break;
case RC_GATE:
TogRegionFlags( REGION_ANTIMAGIC_GATE, ! s.GetArgVal());
break;
case RC_GROUP:
m_sGroup = s.GetArgStr();
SetModified( REGMOD_GROUP );
break;
case RC_GUARDED:
TogRegionFlags( REGION_FLAG_GUARDED, ( ! s.HasArgs()) || s.GetArgVal());
break;
case RC_MAGIC:
TogRegionFlags( REGION_ANTIMAGIC_ALL, ! s.GetArgVal());
break;
case RC_MAP:
m_pt.m_map = static_cast<unsigned char>(s.GetArgVal());
break;
case RC_MARK:
case RC_RECALLIN:
TogRegionFlags( REGION_ANTIMAGIC_RECALL_IN, ! s.GetArgVal());
break;
case RC_NAME:
SetName( s.GetArgStr());
SetModified( REGMOD_NAME );
break;
case RC_NODECAY:
TogRegionFlags( REGION_FLAG_NODECAY, s.GetArgVal() != 0);
break;
case RC_NOBUILD:
TogRegionFlags( REGION_FLAG_NOBUILDING, s.GetArgVal() != 0);
break;
case RC_NOPVP:
TogRegionFlags( REGION_FLAG_NO_PVP, s.GetArgVal() != 0);
break;
case RC_P:
m_pt.Read(s.GetArgStr());
break;
case RC_RAINCHANCE:
SendSectorsVerb( s.GetKey(), s.GetArgStr(), &g_Serv );
break;
case RC_RECALL:
case RC_RECALLOUT:
TogRegionFlags( REGION_ANTIMAGIC_RECALL_OUT, ! s.GetArgVal());
break;
case RC_RECT:
if ( m_iLinkedSectors )
return false;
{
CRectMap rect;
rect.Read(s.GetArgStr());
return( AddRegionRect( rect ));
}
case RC_SAFE:
TogRegionFlags( REGION_FLAG_SAFE, s.GetArgVal() != 0);
break;
case RC_UNDERGROUND:
TogRegionFlags( REGION_FLAG_UNDERGROUND, s.GetArgVal() != 0);
break;
default:
return false;
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CStoneMember::r_LoadVal( CScript & s ) // Load an item Script
{
ADDTOCALLSTACK("CStoneMember::r_LoadVal");
EXC_TRY("LoadVal");
STMM_TYPE iIndex = (STMM_TYPE) FindTableSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 );
if ( GetLinkUID().IsChar() )
{
switch ( iIndex )
{
case STMM_ACCOUNTGOLD:
SetAccountGold(s.GetArgVal());
break;
case STMM_LOYALTO:
{
CGrayUID uid = s.GetArgVal();
SetLoyalTo(uid.CharFind());
}
break;
case STMM_PRIV:
SetPriv(static_cast<STONEPRIV_TYPE>(s.GetArgVal()));
break;
case STMM_TITLE:
SetTitle(s.GetArgStr());
break;
case STMM_SHOWABBREV:
SetAbbrev( s.GetArgVal() ? 1 : 0 );
break;
default:
return false;
}
}
else if ( GetLinkUID().IsItem() )
{
switch ( iIndex )
{
case STMM_GUILD_THEYALLIANCE:
break;
case STMM_GUILD_THEYWAR:
SetTheyDeclared(s.GetArgVal() ? true : false);
break;
case STMM_GUILD_WEALLIANCE:
break;
case STMM_GUILD_WEWAR:
SetWeDeclared(s.GetArgVal() ? true : false);
break;
default:
return false;
}
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CItemStone::r_Verb( CScript & s, CTextConsole * pSrc ) // Execute command from script
{
ADDTOCALLSTACK("CItemStone::r_Verb");
EXC_TRY("Verb");
// NOTE:: ONLY CALL this from CChar::r_Verb !!!
// Little to no security checking here !!!
ASSERT(pSrc);
int index = FindTableSorted( s.GetKey(), sm_szVerbKeys, COUNTOF(sm_szVerbKeys)-1 );
if ( index < 0 )
{
return( CItem::r_Verb( s, pSrc ));
}
CChar * pCharSrc = pSrc->GetChar();
CStoneMember * pMember = GetMember(pCharSrc);
switch ( index )
{
case ISV_ALLGUILDS:
{
if ( s.HasArgs() )
{
TCHAR * pszArgs = s.GetArgRaw();
int iFlags = Exp_GetVal(pszArgs);
SKIP_ARGSEP(pszArgs);
if ( iFlags < 0 )
{
g_Log.EventError("ItemStone::AllGuilds invalid parameter '%i'.\n", iFlags);
return false;
}
else
{
if ( pszArgs[0] != '\0' )
{
pMember = STATIC_CAST <CStoneMember *>(GetHead());
CScript scriptVerb( pszArgs );
for (; pMember != NULL; pMember = pMember->GetNext())
{
if ( pMember->GetLinkUID().IsChar() )
continue;
if ( !iFlags )
{
pMember->r_Verb(scriptVerb, pSrc);
}
else if ( ( iFlags == 1 ) && ( pMember->GetWeDeclared() && !pMember->GetTheyDeclared() ) )
{
pMember->r_Verb(scriptVerb, pSrc);
}
else if ( ( iFlags == 2 ) && ( !pMember->GetWeDeclared() && pMember->GetTheyDeclared() ) )
{
pMember->r_Verb(scriptVerb, pSrc);
}
else if ( ( iFlags == 3 ) && ( pMember->GetWeDeclared() && pMember->GetTheyDeclared() ) )
{
pMember->r_Verb(scriptVerb, pSrc);
}
}
}
else
{
g_Log.EventError("ItemStone::AllGuilds empty args.\n");
return false;
}
}
}
}
break;
case ISV_ALLMEMBERS:
{
if ( s.HasArgs() )
{
TCHAR * pszArgs = s.GetArgRaw();
int iFlags = Exp_GetVal(pszArgs);
SKIP_ARGSEP(pszArgs);
if (( iFlags < -1 ) || ( iFlags > STONEPRIV_ACCEPTED ))
{
g_Log.EventError("ItemStone::AllMembers invalid parameter '%i'.\n", iFlags);
return false;
}
else
{
if ( pszArgs[0] != '\0' )
{
pMember = STATIC_CAST <CStoneMember *>(GetHead());
CScript scriptVerb( pszArgs );
for (; pMember != NULL; pMember = pMember->GetNext())
{
if ( !pMember->GetLinkUID().IsChar() )
continue;
if ( iFlags == -1 )
{
pMember->r_Verb(scriptVerb, pSrc);
}
else if ( pMember->GetPriv() == static_cast<STONEPRIV_TYPE>(iFlags) )
{
pMember->r_Verb(scriptVerb, pSrc);
}
}
}
else
{
g_Log.EventError("ItemStone::AllMembers empty args.\n");
return false;
}
}
}
}
break;
case ISV_APPLYTOJOIN:
if ( s.HasArgs())
{
CGrayUID pMemberUid = s.GetArgVal();
CChar * pMemberChar = pMemberUid.CharFind();
if ( pMemberChar )
{
AddRecruit( pMemberChar, STONEPRIV_CANDIDATE );
}
}
break;
case ISV_CHANGEALIGN:
if ( s.HasArgs())
{
SetAlignType(static_cast<STONEALIGN_TYPE>(s.GetArgVal()));
TCHAR *pszMsg = Str_GetTemp();
sprintf(pszMsg, "%s is now a %s %s\n", static_cast<LPCTSTR>(GetName()), static_cast<LPCTSTR>(GetAlignName()), static_cast<LPCTSTR>(GetTypeName()));
Speak(pszMsg);
}
break;
case ISV_DECLAREPEACE:
if ( s.HasArgs())
{
CGrayUID pMemberUid = s.GetArgVal();
WeDeclarePeace(pMemberUid);
}
break;
case ISV_DECLAREWAR:
if ( s.HasArgs())
{
CGrayUID pMemberUid = s.GetArgVal();
CItem * pEnemyItem = pMemberUid.ItemFind();
if ( pEnemyItem )
{
CItemStone * pNewEnemy = dynamic_cast<CItemStone*>(pEnemyItem);
if ( pNewEnemy )
{
WeDeclareWar(pNewEnemy);
}
}
}
break;
case ISV_ELECTMASTER:
ElectMaster();
break;
// Need to change FixWeirdness or rewrite how cstonemember guilds are handled.
case ISV_INVITEWAR:
{
if ( s.HasArgs() )
{
INT64 piCmd[2];
size_t iArgQty = Str_ParseCmds( s.GetArgStr(), piCmd, COUNTOF(piCmd));
if ( iArgQty == 2 )
{
CGrayUID pGuildUid = static_cast<unsigned long>(piCmd[0]);
bool bWeDeclared = (piCmd[1] != 0);
CItem * pEnemyItem = pGuildUid.ItemFind();
if ( pEnemyItem && (pEnemyItem->IsType(IT_STONE_GUILD) || pEnemyItem->IsType(IT_STONE_TOWN)) )
{
CStoneMember * pMemberGuild = GetMember( pEnemyItem );
if ( !pMemberGuild )
pMemberGuild = new CStoneMember(this, pGuildUid, STONEPRIV_ENEMY);
if ( bWeDeclared )
pMemberGuild->SetWeDeclared(true);
else
pMemberGuild->SetTheyDeclared(true);
}
}
}
} break;
case ISV_JOINASMEMBER:
if ( s.HasArgs())
{
CGrayUID pMemberUid = s.GetArgVal();
CChar * pMemberChar = pMemberUid.CharFind();
if ( pMemberChar )
{
AddRecruit( pMemberChar, STONEPRIV_MEMBER );
}
}
break;
case ISV_RESIGN:
if ( s.HasArgs())
{
CGrayUID pMemberUid = s.GetArgVal();
CChar * pMemberChar = pMemberUid.CharFind();
if ( pMemberChar )
{
CStoneMember * pMemberGuild = GetMember( pMemberChar );
if ( pMemberGuild )
{
delete pMemberGuild;
}
}
}
else
{
if ( pMember != NULL )
delete pMember;
}
break;
case ISV_TOGGLEABBREVIATION:
{
CGrayUID pMemberUid = pMember->GetLinkUID();
if ( s.HasArgs() )
pMemberUid = s.GetArgVal();
CChar * pMemberChar = pMemberUid.CharFind();
if ( pMemberChar )
{
CStoneMember * pMemberGuild = GetMember( pMemberChar );
if ( pMemberGuild )
{
pMemberGuild->ToggleAbbrev();
pMemberChar->ResendTooltip();
}
}
}
break;
default:
return( false );
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPTSRC;
EXC_DEBUG_END;
return false;
}
bool CImportFile::ImportSCP( CScript & s, word wModeFlags )
{
ADDTOCALLSTACK("CImportFile::ImportSCP");
// Import a SPHERE format SCP file.
while ( s.FindNextSection())
{
CheckLast();
if ( s.IsSectionType( "ACCOUNT" ))
{
g_Cfg.LoadResourceSection( &s );
continue;
}
else if ( s.IsSectionType( "WORLDCHAR" ) || s.IsSectionType("WC"))
{
ImportFix();
if ( wModeFlags & IMPFLAGS_CHARS )
{
m_pCurObj = CChar::CreateBasic(static_cast<CREID_TYPE>(g_Cfg.ResourceGetIndexType(RES_CHARDEF, s.GetArgStr())));
}
}
else if ( s.IsSectionType( "WORLDITEM" ) || s.IsSectionType("WI"))
{
if ( wModeFlags & IMPFLAGS_ITEMS )
{
m_pCurObj = CItem::CreateTemplate(static_cast<ITEMID_TYPE>(g_Cfg.ResourceGetIndexType(RES_ITEMDEF, s.GetArgStr())));
}
}
else
{
continue;
}
if ( m_pCurObj == NULL )
continue;
while ( s.ReadKeyParse())
{
if ( s.IsKey( "SERIAL"))
{
if ( m_pCurSer != NULL )
return false;
m_pCurSer = new CImportSer( s.GetArgVal());
m_pCurSer->m_pObj = m_pCurObj;
m_ListSer.InsertHead( m_pCurSer );
continue;
}
if ( m_pCurSer == NULL )
continue;
if ( s.IsKey( "CONT" ))
{
m_pCurSer->m_dwContSer = s.GetArgVal();
}
else if ( s.IsKey( "LAYER" ))
{
m_pCurSer->m_layer = static_cast<LAYER_TYPE>(s.GetArgVal());
}
else
{
m_pCurObj->r_LoadVal( s );
}
}
}
return true;
}
bool CVarDefMap::r_LoadVal( CScript & s )
{
ADDTOCALLSTACK("CVarDefMap::r_LoadVal");
bool fQuoted = false;
return( ( SetStr( s.GetKey(), fQuoted, s.GetArgStr( &fQuoted )) >= 0 ) ? true : false );
}
bool CVarDefContStr::r_LoadVal( CScript & s )
{
SetValStr( s.GetArgStr());
return( true );
}
bool CPartyDef::r_Verb( CScript &s, CTextConsole *pSrc )
{
ADDTOCALLSTACK("CPartyDef::r_Verb");
EXC_TRY("Verb");
ASSERT(pSrc);
LPCTSTR pszKey = s.GetKey();
CScriptObj *pRef;
if ( r_GetRef(pszKey, pRef) )
{
if ( pszKey[0] )
{
if ( !pRef )
return true;
CScript script(pszKey, s.GetArgStr());
return pRef->r_Verb(script, pSrc);
}
}
int iIndex = FindTableSorted(pszKey, sm_szVerbKeys, COUNTOF(sm_szVerbKeys) - 1);
switch ( iIndex )
{
case PDV_ADDMEMBER:
case PDV_ADDMEMBERFORCED:
{
bool bForced = (iIndex == PDV_ADDMEMBERFORCED);
CGrayUID toAdd = static_cast<CGrayUID>(s.GetArgVal());
CChar *pCharAdd = toAdd.CharFind();
CChar *pCharMaster = GetMaster().CharFind();
if ( !pCharAdd || IsInParty(pCharAdd) )
return false;
if ( pCharMaster && !bForced )
pCharMaster->SetKeyNum("PARTY_LASTINVITE", (long long)toAdd);
return CPartyDef::AcceptEvent(pCharAdd, GetMaster(), bForced);
} break;
case PDV_CLEARTAGS:
{
LPCTSTR pszArg = s.GetArgStr();
SKIP_SEPARATORS(pszArg);
m_TagDefs.ClearKeys(pszArg);
} break;
case PDV_CREATE:
return true;
case PDV_DISBAND:
return Disband(GetMaster());
case PDV_MESSAGE:
break;
case PDV_REMOVEMEMBER:
{
CGrayUID toRemove;
LPCTSTR pszArg = s.GetArgStr();
if ( *pszArg == '@' )
{
pszArg++;
size_t nMember = Exp_GetVal(pszArg);
if ( !m_Chars.IsValidIndex(nMember) )
return false;
toRemove = m_Chars.GetChar(nMember);
}
else
toRemove = static_cast<CGrayUID>(s.GetArgVal());
if ( toRemove )
return RemoveMember(toRemove, GetMaster());
return false;
} break;
case PDV_SETMASTER:
{
CGrayUID newMaster;
LPCTSTR pszArg = s.GetArgStr();
if ( *pszArg == '@' )
{
pszArg++;
size_t nMember = Exp_GetVal(pszArg);
if ( nMember == 0 || !m_Chars.IsValidIndex(nMember) )
return false;
newMaster = m_Chars.GetChar(nMember);
}
else
newMaster = static_cast<CGrayUID>(s.GetArgVal());
if ( newMaster )
return SetMaster(newMaster.CharFind());
return false;
} break;
case PDV_SYSMESSAGE:
{
CGrayUID toSysmessage;
LPCTSTR pszArg = s.GetArgStr();
TCHAR *pUid = Str_GetTemp();
size_t x = 0;
if ( *pszArg == '@' )
{
pszArg++;
if ( *pszArg != '@' )
{
LPCTSTR __pszArg = pszArg;
while ( *pszArg != ' ' )
{
pszArg++;
x++;
}
strcpylen(pUid, __pszArg, ++x);
size_t nMember = Exp_GetVal(pUid);
if ( !m_Chars.IsValidIndex(nMember) )
return false;
toSysmessage = m_Chars.GetChar(nMember);
}
}
else
{
LPCTSTR __pszArg = pszArg;
while ( *pszArg != ' ' )
{
pszArg++;
x++;
}
strcpylen(pUid, __pszArg, ++x);
toSysmessage = static_cast<CGrayUID>(Exp_GetVal(pUid));
}
SKIP_SEPARATORS(pszArg);
if ( toSysmessage )
{
CChar *pSend = toSysmessage.CharFind();
pSend->SysMessage(pszArg);
}
else
SysMessageAll(pszArg);
} break;
case PDV_TAGLIST:
m_TagDefs.DumpKeys(pSrc, "TAG.");
break;
default:
return false;
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPTSRC;
EXC_DEBUG_END;
return false;
}
bool CItemStone::r_LoadVal( CScript & s ) // Load an item Script
{
ADDTOCALLSTACK("CItemStone::r_LoadVal");
EXC_TRY("LoadVal");
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
case STC_ABBREV: // "ABBREV"
m_sAbbrev = s.GetArgStr();
return true;
case STC_ALIGN: // "ALIGN"
SetAlignType(static_cast<STONEALIGN_TYPE>(s.GetArgVal()));
return true;
case STC_MasterUid:
{
if ( s.HasArgs() )
{
CGrayUID pNewMasterUid = (DWORD) s.GetArgVal();
CChar * pChar = pNewMasterUid.CharFind();
if ( !pChar )
{
DEBUG_ERR(( "MASTERUID called on non char 0%lx uid.\n", (DWORD)pNewMasterUid ));
return( false );
}
CStoneMember * pNewMaster = GetMember( pChar );
if ( !pNewMaster )
{
DEBUG_ERR(( "MASTERUID called on char 0%lx (%s) that is not a valid member of stone with 0x%lx uid.\n", (DWORD)pNewMasterUid, pChar->GetName(), (DWORD)GetUID() ));
return( false );
}
CStoneMember * pMaster = GetMasterMember();
if ( pMaster )
{
if ( pMaster->GetLinkUID() == pNewMasterUid )
return( true );
pMaster->SetPriv(STONEPRIV_MEMBER);
//pMaster->SetLoyalTo(pChar);
}
//pNewMaster->SetLoyalTo(pChar);
pNewMaster->SetPriv(STONEPRIV_MASTER);
}
else
{
DEBUG_ERR(( "MASTERUID called without arguments.\n" ));
return( false );
}
}
return( true );
case STC_MEMBER: // "MEMBER"
{
TCHAR *Arg_ppCmd[8]; // Maximum parameters in one line
size_t Arg_Qty = Str_ParseCmds( s.GetArgStr(), Arg_ppCmd, COUNTOF( Arg_ppCmd ), "," );
if (Arg_Qty < 1) // must at least provide the member uid
return false;
new CStoneMember(
this,
ahextoi(Arg_ppCmd[0]), // Member's UID
Arg_Qty > 2 ? static_cast<STONEPRIV_TYPE>(ATOI(Arg_ppCmd[2])) : STONEPRIV_CANDIDATE, // Members priv level (use as a type)
Arg_Qty > 1 ? Arg_ppCmd[1] : "", // Title
ahextoi(Arg_ppCmd[3]), // Member is loyal to this
Arg_Qty > 4 ? (ATOI( Arg_ppCmd[4] ) != 0) : 0, // Paperdoll stone abbreviation (also if they declared war)
Arg_Qty > 5 ? (ATOI( Arg_ppCmd[5] ) != 0) : 0, // If we declared war
Arg_Qty > 6 ? ATOI( Arg_ppCmd[6] ) : 0); // AccountGold
}
return true;
case STC_WEBPAGE: // "WEBPAGE"
m_sWebPageURL = s.GetArgStr();
return true;
}
if ( s.IsKeyHead( sm_szLoadKeys[STC_CHARTER], 7 ))
{
unsigned int i = ATOI(s.GetKey() + 7);
if ( i >= COUNTOF(m_sCharter))
return( false );
m_sCharter[i] = s.GetArgStr();
return( true );
}
return CItem::r_LoadVal(s);
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
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;
}
bool CBaseBaseDef::r_LoadVal( CScript & s )
{
ADDTOCALLSTACK("CBaseBaseDef::r_LoadVal");
EXC_TRY("LoadVal");
if ( s.IsKeyHead( "TAG.", 4 ))
{
bool fQuoted = false;
m_TagDefs.SetStr( s.GetKey()+4, fQuoted, s.GetArgStr( &fQuoted ), false );
return( true );
}
if ( s.IsKeyHead( "TAG0.", 5 ))
{
bool fQuoted = false;
m_TagDefs.SetStr( s.GetKey()+5, fQuoted, s.GetArgStr( &fQuoted ), true );
return( true );
}
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
//Set as Strings
case OBC_HITSPELL:
case OBC_SLAYER:
case OBC_SLAYERLESSER:
case OBC_SLAYERMISC:
case OBC_SLAYERSUPER:
case OBC_ABILITYPRIMARY:
case OBC_ABILITYSECONDARY:
case OBC_MANABURST:
{
bool fQuoted = false;
SetDefStr(s.GetKey(), s.GetArgStr( &fQuoted ), fQuoted);
}
break;
//Set as number only
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:
{
SetDefNum(s.GetKey(),s.GetArgVal());
return true;
}
case OBC_CATEGORY://*
case OBC_SUBSECTION://*
case OBC_DESCRIPTION://*
{
bool fQuoted = false;
SetDefStr(s.GetKey(), s.GetArgStr( &fQuoted ), fQuoted);
if ( !strcmpi(GetDefStr(sm_szLoadKeys[OBC_DESCRIPTION]), "@") )
SetDefStr(sm_szLoadKeys[OBC_DESCRIPTION], GetDefStr(sm_szLoadKeys[OBC_SUBSECTION]));
}
return true;
case OBC_ARMOR:
{
INT64 piVal[2];
size_t iQty = Str_ParseCmds( s.GetArgStr(), piVal, COUNTOF(piVal));
m_defenseBase = static_cast<unsigned char>(piVal[0]);
if ( iQty > 1 )
{
m_defenseRange = static_cast<unsigned char>(piVal[1]) - m_defenseBase;
}
else
{
m_defenseRange = 0;
}
}
return( true );
case OBC_DAM:
{
INT64 piVal[2];
size_t iQty = Str_ParseCmds( s.GetArgStr(), piVal, COUNTOF(piVal));
m_attackBase = static_cast<unsigned char>(piVal[0]);
if ( iQty > 1 )
{
m_attackRange = static_cast<unsigned char>(piVal[1]) - m_attackBase;
}
else
{
m_attackRange = 0;
}
}
return( true );
case OBC_BASEID:
return( false );
case OBC_CAN:
m_Can = s.GetArgVal();// | ( m_Can & ( CAN_C_INDOORS|CAN_C_EQUIP|CAN_C_USEHANDS|CAN_C_NONHUMANOID )); //Fixed #2326 ?
return( true );
case OBC_DEFNAME:
case OBC_DEFNAME2:
return SetResourceName( s.GetArgStr());
case OBC_HEIGHT:
m_Height = static_cast<height_t>(s.GetArgVal());
return( true );
case OBC_INSTANCES:
return( false );
case OBC_NAME:
SetTypeName( s.GetArgStr());
return( true );
case OBC_RANGE:
{
INT64 piVal[2];
size_t iQty = Str_ParseCmds( s.GetArgStr(), piVal, COUNTOF(piVal));
if ( iQty > 1 )
{
INT64 iRange = ((piVal[0] & 0xff) << 8) & 0xff00;
iRange |= (piVal[1] & 0xff);
SetDefNum(s.GetKey(),iRange, false);
//m_range = ((piVal[0] & 0xff) << 8) & 0xff00;
//m_range |= (piVal[1] & 0xff);
}
else
{
SetDefNum(s.GetKey(),piVal[0], false);
//m_range = static_cast<WORD>(piVal[0]);
}
}
return( true );
case OBC_RESOURCES:
m_BaseResources.Load( s.GetArgStr());
return( true );
case OBC_RESLEVEL:
return( SetResLevel(static_cast<unsigned char>(s.GetArgVal())) );
case OBC_RESDISPDNHUE:
SetResDispDnHue(static_cast<HUE_TYPE>(s.GetArgVal()));
return( true );
case OBC_TEVENTS:
return( m_TEvents.r_LoadVal( s, RES_EVENTS ));
}
return( CScriptObj::r_LoadVal(s));
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CBaseBaseDef::r_LoadVal(CScript &s)
{
ADDTOCALLSTACK("CBaseBaseDef::r_LoadVal");
EXC_TRY("LoadVal");
if ( s.IsKeyHead("TAG.", 4) )
{
bool fQuoted = false;
m_TagDefs.SetStr(s.GetKey() + 4, fQuoted, s.GetArgStr(&fQuoted), false);
return true;
}
if ( s.IsKeyHead("TAG0.", 5) )
{
bool fQuoted = false;
m_TagDefs.SetStr(s.GetKey() + 5, fQuoted, s.GetArgStr(&fQuoted), true);
return true;
}
switch ( FindTableSorted(s.GetKey(), sm_szLoadKeys, COUNTOF(sm_szLoadKeys) - 1) )
{
// Set as numeric
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:
{
SetDefNum(s.GetKey(), s.GetArgVal());
return true;
}
case OBC_CATEGORY:
case OBC_SUBSECTION:
case OBC_DESCRIPTION:
{
bool fQuoted = false;
SetDefStr(s.GetKey(), s.GetArgStr(&fQuoted), fQuoted);
if ( !strcmpi(GetDefStr(sm_szLoadKeys[OBC_DESCRIPTION]), "@") )
SetDefStr(sm_szLoadKeys[OBC_DESCRIPTION], GetDefStr(sm_szLoadKeys[OBC_SUBSECTION]));
return true;
}
case OBC_ARMOR:
{
INT64 piVal[2];
size_t iQty = Str_ParseCmds(s.GetArgStr(), piVal, COUNTOF(piVal));
m_defenseBase = static_cast<WORD>(piVal[0]);
if ( iQty > 1 )
m_defenseRange = static_cast<WORD>(piVal[1]) - m_defenseBase;
else
m_defenseRange = 0;
return true;
}
case OBC_BASEID:
return false;
case OBC_CAN:
m_Can = s.GetArgVal(); //| (m_Can & (CAN_C_INDOORS|CAN_C_EQUIP|CAN_C_USEHANDS|CAN_C_NONHUMANOID)); //fixed #2326?
return true;
case OBC_DAM:
{
INT64 piVal[2];
size_t iQty = Str_ParseCmds(s.GetArgStr(), piVal, COUNTOF(piVal));
m_attackBase = static_cast<WORD>(piVal[0]);
if ( iQty > 1 )
m_attackRange = static_cast<WORD>(piVal[1]) - m_attackBase;
else
m_attackRange = 0;
return true;
}
case OBC_DAMCOLD:
m_DamCold = static_cast<int>(s.GetArgVal());
return true;
case OBC_DAMENERGY:
m_DamEnergy = static_cast<int>(s.GetArgVal());
return true;
case OBC_DAMFIRE:
m_DamFire = static_cast<int>(s.GetArgVal());
return true;
case OBC_DAMPHYSICAL:
m_DamPhysical = static_cast<int>(s.GetArgVal());
return true;
case OBC_DAMPOISON:
m_DamPoison = static_cast<int>(s.GetArgVal());
return true;
case OBC_DEFNAME:
case OBC_DEFNAME2:
return SetResourceName(s.GetArgStr());
case OBC_ENHANCEPOTIONS:
m_EnhancePotions = static_cast<int>(s.GetArgVal());
return true;
case OBC_FASTERCASTING:
m_FasterCasting = static_cast<int>(s.GetArgVal());
return true;
case OBC_FASTERCASTRECOVERY:
m_FasterCastRecovery = static_cast<int>(s.GetArgVal());
return true;
case OBC_HEIGHT:
m_Height = static_cast<height_t>(s.GetArgVal());
return true;
case OBC_HITLEECHLIFE:
m_HitLifeLeech = static_cast<int>(s.GetArgVal());
break;
case OBC_HITLEECHMANA:
m_HitManaLeech = static_cast<int>(s.GetArgVal());
break;
case OBC_HITLEECHSTAM:
m_HitStaminaLeech = static_cast<int>(s.GetArgVal());
break;
case OBC_HITMANADRAIN:
m_HitManaDrain = static_cast<int>(s.GetArgVal());
break;
case OBC_INCREASEDAM:
m_DamIncrease = static_cast<int>(s.GetArgVal());
return true;
case OBC_INCREASEDEFCHANCE:
m_DefChanceIncrease = static_cast<int>(s.GetArgVal());
return true;
case OBC_INCREASEDEFCHANCEMAX:
m_DefChanceIncreaseMax = static_cast<int>(s.GetArgVal());
return true;
case OBC_INCREASEHITCHANCE:
m_HitChanceIncrease = static_cast<int>(s.GetArgVal());
return true;
case OBC_INCREASESPELLDAM:
m_SpellDamIncrease = static_cast<int>(s.GetArgVal());
return true;
case OBC_INCREASESWINGSPEED:
m_SwingSpeedIncrease = static_cast<int>(s.GetArgVal());
return true;
case OBC_INSTANCES:
return false;
case OBC_LOWERMANACOST:
m_LowerManaCost = static_cast<int>(s.GetArgVal());
return true;
case OBC_LOWERREAGENTCOST:
m_LowerReagentCost = static_cast<int>(s.GetArgVal());
return true;
case OBC_LUCK:
m_Luck = static_cast<int>(s.GetArgVal());
return true;
case OBC_NAME:
SetTypeName(s.GetArgStr());
return true;
case OBC_NIGHTSIGHT:
m_NightSight = static_cast<int>(s.GetArgVal());
return true;
case OBC_REFLECTPHYSICALDAM:
m_ReflectPhysicalDamage = static_cast<int>(s.GetArgVal());
return true;
case OBC_RANGE:
{
INT64 piVal[2];
size_t iQty = Str_ParseCmds(s.GetArgStr(), piVal, COUNTOF(piVal));
if ( iQty > 1 )
{
INT64 iRange = ((piVal[0] & 0xFF) << 8) & 0xFF00;
iRange |= (piVal[1] & 0xFF);
SetDefNum(s.GetKey(), iRange, false);
//m_range = ((piVal[0] & 0xFF) << 8) & 0xFF00;
//m_range |= (piVal[1] & 0xFF);
}
else
{
SetDefNum(s.GetKey(), piVal[0], false);
//m_range = static_cast<WORD>(piVal[0]);
}
return true;
}
case OBC_RESCOLD:
m_ResCold = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESCOLDMAX:
m_ResColdMax = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESDISPDNHUE:
SetResDispDnHue(static_cast<HUE_TYPE>(s.GetArgVal()));
return true;
case OBC_RESENERGY:
m_ResEnergy = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESENERGYMAX:
m_ResEnergyMax = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESFIRE:
m_ResFire = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESFIREMAX:
m_ResFireMax = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESLEVEL:
return SetResLevel(minimum(maximum(s.GetArgVal(), RDS_NONE), RDS_QTY - 1));
case OBC_RESOURCES:
m_BaseResources.Load(s.GetArgStr());
return true;
case OBC_RESPHYSICAL:
m_ResPhysical = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESPHYSICALMAX:
m_ResPhysicalMax = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESPOISON:
m_ResPoison = static_cast<int>(s.GetArgVal());
return true;
case OBC_RESPOISONMAX:
m_ResPoisonMax = static_cast<int>(s.GetArgVal());
return true;
case OBC_TEVENTS:
return m_TEvents.r_LoadVal(s, RES_EVENTS);
}
return CScriptObj::r_LoadVal(s);
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CWebPageDef::r_Verb( CScript & s, CTextConsole * pSrc ) // some command on this object as a target
{
ADDTOCALLSTACK("CWebPageDef::r_Verb");
EXC_TRY("Verb");
ASSERT(pSrc);
sm_iListIndex = 0;
TCHAR *pszTmp2 = Str_GetTemp();
WV_TYPE iHeadKey = (WV_TYPE) FindTableSorted( s.GetKey(), sm_szVerbKeys, COUNTOF(sm_szVerbKeys)-1 );
switch ( iHeadKey )
{
case WV_WEBPAGE:
{
// serv a web page to the pSrc
CClient *pClient = dynamic_cast<CClient *>(pSrc);
if ( !pClient )
return false;
return ServPage(pClient, s.GetArgStr(), NULL);
}
case WV_CLIENTLIST:
{
ClientIterator it;
for ( CClient *pClient = it.next(); pClient != NULL; pClient = it.next() )
{
CChar *pChar = pClient->GetChar();
if ( !pChar )
continue;
if ( pChar->IsStatFlag(STATF_Insubstantial) && (pClient->GetPrivLevel() > PLEVEL_Player) )
continue;
sm_iListIndex++;
LPCTSTR pszArgs = s.GetArgStr();
if ( pszArgs[0] == '\0' )
pszArgs = "<tr><td>%NAME%</td><td>%REGION.NAME%</td></tr>\n";
strcpy(pszTmp2, pszArgs);
pChar->ParseText(Str_MakeFiltered(pszTmp2), &g_Serv, 1);
pSrc->SysMessage(pszTmp2);
}
break;
}
case WV_GUILDLIST:
case WV_TOWNLIST:
{
if ( !s.HasArgs() )
return false;
IT_TYPE needtype = (iHeadKey == WV_GUILDLIST) ? IT_STONE_GUILD : IT_STONE_TOWN;
for ( size_t i = 0; i < g_World.m_Stones.GetCount(); i++ )
{
CItemStone *pStone = g_World.m_Stones[i];
if ( !pStone || !pStone->IsType(needtype) )
continue;
sm_iListIndex++;
strcpy(pszTmp2, s.GetArgStr());
pStone->ParseText(Str_MakeFiltered(pszTmp2), &g_Serv, 1);
pSrc->SysMessage(pszTmp2);
}
break;
}
case WV_GMPAGELIST:
{
if ( !s.HasArgs() )
return false;
CGMPage *pPage = static_cast<CGMPage *>(g_World.m_GMPages.GetHead());
for ( ; pPage != NULL; pPage = pPage->GetNext() )
{
sm_iListIndex++;
strcpy(pszTmp2, s.GetArgStr());
pPage->ParseText(Str_MakeFiltered(pszTmp2), &g_Serv, 1);
pSrc->SysMessage(pszTmp2);
}
break;
}
default:
return CResourceLink::r_Verb(s, pSrc);
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPTSRC;
EXC_DEBUG_END;
return false;
}
TRIGRET_TYPE CScriptObj::OnTriggerForLoop( CScript &s, int iType, CTextConsole * pSrc, CScriptTriggerArgs * pArgs, CGString * pResult )
{
// loop from start here to the ENDFOR
// See WebPageScriptList for dealing with Arrays.
CScriptLineContext StartContext = s.GetContext();
CScriptLineContext EndContext = StartContext;
int LoopsMade = 0;
if ( iType & 8 ) // WHILE
{
TCHAR * pszCond;
TCHAR *pszOrig = Str_GetTemp();
TCHAR *pszTemp = Str_GetTemp();
int iWhile = 0;
strcpy( pszOrig, s.GetArgStr() );
while(true)
{
LoopsMade++;
if ( g_Cfg.m_iMaxLoopTimes && ( LoopsMade >= g_Cfg.m_iMaxLoopTimes ))
goto toomanyloops;
pArgs->m_VarsLocal.SetNum( "_WHILE", iWhile, false );
iWhile++;
strcpy( pszTemp, pszOrig );
pszCond = pszTemp;
ParseText( pszCond, pSrc, 0, pArgs );
if ( !Exp_GetVal( pszCond ) )
break;
TRIGRET_TYPE iRet = OnTriggerRun( s, TRIGRUN_SECTION_TRUE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
return( iRet );
}
EndContext = s.GetContext();
s.SeekContext( StartContext );
}
}
else
ParseText( s.GetArgStr(), pSrc, 0, pArgs );
if ( iType & 4 ) // FOR
{
int fCountDown = FALSE;
int iMin = 0;
int iMax = 0;
int i;
TCHAR * ppArgs[3];
int iQty = Str_ParseCmds( s.GetArgStr(), ppArgs, 3, ", " );
CGString sLoopVar = "_FOR";
switch( iQty )
{
case 1: // FOR x
iMin = 1;
iMax = Exp_GetSingle( ppArgs[0] );
break;
case 2:
if ( isdigit( *ppArgs[0] ) )
{
iMin = Exp_GetSingle( ppArgs[0] );
iMax = Exp_GetSingle( ppArgs[1] );
}
else
{
iMin = 1;
iMax = Exp_GetSingle( ppArgs[1] );
sLoopVar = ppArgs[0];
}
break;
case 3:
sLoopVar = ppArgs[0];
iMin = Exp_GetSingle( ppArgs[1] );;
iMax = Exp_GetSingle( ppArgs[2] );
break;
default:
iMin = iMax = 1;
break;
}
if ( iMin > iMax )
fCountDown = true;
if ( fCountDown )
for ( i = iMin; i >= iMax; --i )
{
LoopsMade++;
if ( g_Cfg.m_iMaxLoopTimes && ( LoopsMade >= g_Cfg.m_iMaxLoopTimes ))
goto toomanyloops;
pArgs->m_VarsLocal.SetNum( sLoopVar, i, false );
TRIGRET_TYPE iRet = OnTriggerRun( s, TRIGRUN_SECTION_TRUE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
return( iRet );
}
EndContext = s.GetContext();
s.SeekContext( StartContext );
}
else
for ( i = iMin; i <= iMax; ++i )
{
LoopsMade++;
if ( g_Cfg.m_iMaxLoopTimes && ( LoopsMade >= g_Cfg.m_iMaxLoopTimes ))
goto toomanyloops;
pArgs->m_VarsLocal.SetNum( sLoopVar, i, false );
TRIGRET_TYPE iRet = OnTriggerRun( s, TRIGRUN_SECTION_TRUE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
return( iRet );
}
EndContext = s.GetContext();
s.SeekContext( StartContext );
}
}
if ( (iType & 1) || (iType & 2) )
{
int iDist;
if ( s.HasArgs() )
iDist = s.GetArgVal();
else
iDist = UO_MAP_VIEW_SIZE;
CObjBaseTemplate * pObj = dynamic_cast <CObjBaseTemplate *>(this);
if ( pObj == NULL )
{
iType = 0;
DEBUG_ERR(( "FOR Loop trigger on non-world object '%s'\n", GetName()));
}
CObjBaseTemplate * pObjTop = pObj->GetTopLevelObj();
CPointMap pt = pObjTop->GetTopPoint();
if ( iType & 1 ) // FORITEM, FOROBJ
{
CWorldSearch AreaItems( pt, iDist );
while(true)
{
LoopsMade++;
if ( g_Cfg.m_iMaxLoopTimes && ( LoopsMade >= g_Cfg.m_iMaxLoopTimes ))
goto toomanyloops;
CItem * pItem = AreaItems.GetItem();
if ( pItem == NULL )
break;
TRIGRET_TYPE iRet = pItem->OnTriggerRun( s, TRIGRUN_SECTION_TRUE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
return( iRet );
}
EndContext = s.GetContext();
s.SeekContext( StartContext );
}
}
if ( iType & 2 ) // FORCHAR, FOROBJ
{
CWorldSearch AreaChars( pt, iDist );
while(true)
{
LoopsMade++;
if ( g_Cfg.m_iMaxLoopTimes && ( LoopsMade >= g_Cfg.m_iMaxLoopTimes ))
goto toomanyloops;
CChar * pChar = AreaChars.GetChar();
if ( pChar == NULL )
break;
if ( ( iType & 0x10 ) && ( ! pChar->IsClient() ) ) // FORCLIENTS
continue;
if ( ( iType & 0x20 ) && ( pChar->m_pPlayer == NULL ) ) // FORPLAYERS
continue;
TRIGRET_TYPE iRet = pChar->OnTriggerRun( s, TRIGRUN_SECTION_TRUE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
return( iRet );
}
EndContext = s.GetContext();
s.SeekContext( StartContext );
}
}
}
if ( g_Cfg.m_iMaxLoopTimes )
{
toomanyloops:
if ( LoopsMade >= g_Cfg.m_iMaxLoopTimes )
{
g_Log.EventError("Terminating loop cycle since it seems being dead-locked (%d iterations already passed)" DEBUG_CR, LoopsMade);
}
}
if ( EndContext.m_lOffset <= StartContext.m_lOffset )
{
// just skip to the end.
TRIGRET_TYPE iRet = OnTriggerRun( s, TRIGRUN_SECTION_FALSE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
return( iRet );
}
}
else
{
s.SeekContext( EndContext );
}
return( TRIGRET_ENDIF );
}
bool CCharPlayer::r_LoadVal( CChar * pChar, CScript &s )
{
ADDTOCALLSTACK("CCharPlayer::r_LoadVal");
EXC_TRY("LoadVal");
LPCTSTR pszKey = s.GetKey();
if ( !strnicmp(pszKey, "GMPAGE", 6) ) // GM pages
{
pszKey += 6;
if ( *pszKey == '.' ) // GMPAGE.*
{
SKIP_SEPARATORS(pszKey);
size_t index = Exp_GetVal(pszKey);
if ( index >= g_World.m_GMPages.GetCount() )
return false;
CGMPage* pPage = STATIC_CAST <CGMPage*> (g_World.m_GMPages.GetAt(index));
if ( pPage == NULL )
return false;
SKIP_SEPARATORS(pszKey);
if ( !strcmpi(pszKey, "HANDLE") )
{
CChar *ppChar = pChar;
LPCTSTR pszArgs = s.GetArgStr(); //Moved here because of error with quoted strings!?!?
if ( *pszArgs )
ppChar = dynamic_cast<CChar*>(g_World.FindUID(s.GetArgVal()));
if ( ppChar == NULL )
return false;
CClient *pClient = ppChar->GetClient();
if ( pClient == NULL )
return false;
pPage->SetGMHandler(pClient);
}
else if ( !strcmpi(pszKey, "DELETE") )
{
delete pPage;
}
else if ( pPage->FindGMHandler() )
{
CClient* pClient = pChar->GetClient();
if ( pClient != NULL && pClient->GetChar() != NULL )
pClient->Cmd_GM_PageCmd(pszKey);
}
else
{
return false;
}
return true;
}
return false;
}
else if ( ( !strnicmp(pszKey, "GUILD", 5) ) || ( !strnicmp(pszKey, "TOWN", 4) ) )
{
bool bIsGuild = !strnicmp(pszKey, "GUILD", 5);
pszKey += bIsGuild ? 5 : 4;
if ( *pszKey == '.' )
{
pszKey += 1;
CItemStone *pMyGuild = pChar->Guild_Find(bIsGuild ? MEMORY_GUILD : MEMORY_TOWN);
if ( pMyGuild ) return pMyGuild->r_SetVal(pszKey, s.GetArgRaw());
}
return false;
}
switch ( FindTableHeadSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
case CPC_DEATHS:
m_wDeaths = static_cast<WORD>(s.GetArgVal());
return true;
case CPC_DSPEECH:
return( m_Speech.r_LoadVal( s, RES_SPEECH ));
case CPC_KILLS:
m_wMurders = static_cast<WORD>(s.GetArgVal());
pChar->NotoSave_Update();
return true;
case CPC_KRTOOLBARSTATUS:
m_bKrToolbarEnabled = ( s.GetArgVal() != 0 );
if ( pChar->IsClient() )
pChar->GetClient()->addKRToolbar( m_bKrToolbarEnabled );
return true;
case CPC_LASTUSED:
m_timeLastUsed = CServTime::GetCurrentTime() - ( s.GetArgVal() * TICK_PER_SEC );
return( true );
case CPC_PFLAG:
{
m_pflag = s.GetArgVal();
} return( true );
case CPC_PROFILE:
m_sProfile = Str_MakeFiltered( s.GetArgStr());
return( true );
case CPC_REFUSETRADES:
pChar->SetDefNum(s.GetKey(), s.GetArgVal() > 0 ? 1 : 0, false);
return( true );
case CPC_SKILLCLASS:
return SetSkillClass( pChar, g_Cfg.ResourceGetIDType( RES_SKILLCLASS, s.GetArgStr()));
case CPC_SKILLLOCK:
{
SKILL_TYPE skill = Skill_GetLockType( s.GetKey());
if ( skill <= SKILL_NONE )
return false;
int bState = s.GetArgVal();
if ( bState < SKILLLOCK_UP || bState > SKILLLOCK_LOCK )
return false;
Skill_SetLock(skill, static_cast<SKILLLOCK_TYPE>(bState));
} return true;
case CPC_SPEEDMODE:
{
m_speedMode = static_cast<unsigned short>(s.GetArgVal());
pChar->UpdateSpeedMode();
} return true;
case CPC_STATLOCK:
{
STAT_TYPE stat = Stat_GetLockType( s.GetKey());
if (( stat <= STAT_NONE ) || ( stat >= STAT_BASE_QTY ))
return false;
int bState = s.GetArgVal();
if ( bState < SKILLLOCK_UP || bState > SKILLLOCK_LOCK )
return false;
Stat_SetLock(stat, static_cast<SKILLLOCK_TYPE>(bState));
} return true;
default:
// Just ignore any NPC type stuff.
if ( FindTableSorted( s.GetKey(), CCharNPC::sm_szLoadKeys, COUNTOF( CCharNPC::sm_szLoadKeys )-1 ) >= 0 )
{
return( true );
}
return( false );
}
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
TRIGRET_TYPE CScriptObj::OnTriggerRun( CScript &s, TRIGRUN_TYPE trigrun, CTextConsole * pSrc, CScriptTriggerArgs * pArgs, CGString * pResult )
{
// ARGS:
// TRIGRUN_SECTION_SINGLE = just this 1 line.
// RETURN:
// TRIGRET_RET_FALSE = 0 = return and continue processing.
// TRIGRET_RET_TRUE = 1 = return and handled. (halt further processing)
// TRIGRET_RET_DEFAULT = 2 = if process returns nothing specifically.
// CScriptFileContext set g_Log.m_pObjectContext is the current context (we assume)
// DEBUGCHECK( this == g_Log.m_pObjectContext );
static LPCTSTR const m_ExcKeys[] =
{
"parsing",
"parsing IF statement",
"parsing begin/loop cycle",
"foritem",
"forchar",
"forclients",
"forobjs",
"forplayers",
"for",
"while",
"forcharlayer/memorytype",
"forcont",
"forcontid/type",
"dorand/doswitch",
"return",
"CALLing a subfunction",
"VERBing a value",
};
#ifdef WIN32
EXC_TRY(("OnTriggerRun(%x,%i,%x,%x,%x)", s.GetKey(), trigrun, pSrc, pArgs, pResult));
#else
EXC_TRY(("OnTriggerRun(??,%i,%x,%x,%x)", trigrun, pSrc, pArgs, pResult));
#endif
bool fSectionFalse = (trigrun == TRIGRUN_SECTION_FALSE || trigrun == TRIGRUN_SINGLE_FALSE);
if ( trigrun == TRIGRUN_SECTION_EXEC || trigrun == TRIGRUN_SINGLE_EXEC ) // header was already read in.
goto jump_in;
EXC_SET(m_ExcKeys[0]);
while ( s.ReadKeyParse())
{
// Hit the end of the next trigger.
if ( s.IsKeyHead( "ON", 2 )) // done with this section.
break;
jump_in:
SK_TYPE iCmd = (SK_TYPE) FindTableSorted( s.GetKey(), sm_szScriptKeys, COUNTOF( sm_szScriptKeys )-1 );
TRIGRET_TYPE iRet;
switch ( iCmd )
{
case SK_ENDIF:
case SK_END:
case SK_ENDDO:
case SK_ENDFOR:
case SK_ENDRAND:
case SK_ENDSWITCH:
case SK_ENDWHILE:
return( TRIGRET_ENDIF );
case SK_ELIF:
case SK_ELSEIF:
return( TRIGRET_ELSEIF );
case SK_ELSE:
return( TRIGRET_ELSE );
}
if ( fSectionFalse )
{
// Ignoring this whole section. don't bother parsing it.
switch ( iCmd )
{
case SK_IF:
EXC_SET(m_ExcKeys[1]);
do
{
iRet = OnTriggerRun( s, TRIGRUN_SECTION_FALSE, pSrc, pArgs, pResult );
} while ( iRet == TRIGRET_ELSEIF || iRet == TRIGRET_ELSE );
break;
case SK_WHILE:
case SK_FOR:
case SK_FORCHARLAYER:
case SK_FORCHARMEMORYTYPE:
case SK_FORCHAR:
case SK_FORCLIENTS:
case SK_FORCONT:
case SK_FORCONTID:
case SK_FORCONTTYPE:
case SK_FORITEM:
case SK_FOROBJ:
case SK_FORPLAYERS:
case SK_DORAND:
case SK_DOSWITCH:
case SK_BEGIN:
EXC_SET(m_ExcKeys[2]);
iRet = OnTriggerRun( s, TRIGRUN_SECTION_FALSE, pSrc, pArgs, pResult );
break;
}
if ( trigrun >= TRIGRUN_SINGLE_EXEC )
return( TRIGRET_RET_DEFAULT );
continue; // just ignore it.
}
switch ( iCmd )
{
case SK_FORITEM: EXC_SET(m_ExcKeys[3]); iRet = OnTriggerForLoop( s, 1, pSrc, pArgs, pResult ); break;
case SK_FORCHAR: EXC_SET(m_ExcKeys[4]); iRet = OnTriggerForLoop( s, 2, pSrc, pArgs, pResult ); break;
case SK_FORCLIENTS: EXC_SET(m_ExcKeys[5]); iRet = OnTriggerForLoop( s, 0x12, pSrc, pArgs, pResult ); break;
case SK_FOROBJ: EXC_SET(m_ExcKeys[6]); iRet = OnTriggerForLoop( s, 3, pSrc, pArgs, pResult ); break;
case SK_FORPLAYERS: EXC_SET(m_ExcKeys[7]); iRet = OnTriggerForLoop( s, 0x22, pSrc, pArgs, pResult ); break;
case SK_FOR: EXC_SET(m_ExcKeys[8]); iRet = OnTriggerForLoop( s, 4, pSrc, pArgs, pResult ); break;
case SK_WHILE: EXC_SET(m_ExcKeys[9]); iRet = OnTriggerForLoop( s, 8, pSrc, pArgs, pResult ); break;
case SK_FORCHARLAYER:
case SK_FORCHARMEMORYTYPE:
{
EXC_SET(m_ExcKeys[10]);
CChar * pCharThis = dynamic_cast <CChar *> (this);
if ( pCharThis )
{
if ( s.HasArgs() )
{
if ( iCmd == SK_FORCHARLAYER )
iRet = pCharThis->OnCharTrigForLayerLoop( s, pSrc, pArgs, pResult, (LAYER_TYPE) s.GetArgVal() );
else
iRet = pCharThis->OnCharTrigForMemTypeLoop( s, pSrc, pArgs, pResult, s.GetArgVal() );
break;
}
}
}
case SK_FORCONT:
{
EXC_SET(m_ExcKeys[11]);
if ( s.HasArgs() )
{
TCHAR * ppArgs[2];
TCHAR * tempPoint;
TCHAR *porigValue = Str_GetTemp();
int iArgQty = Str_ParseCmds( (TCHAR*) s.GetArgRaw(), ppArgs, COUNTOF(ppArgs), " \t," );
if ( iArgQty >= 1 )
{
strcpy(porigValue, ppArgs[0]);
tempPoint = porigValue;
ParseText( tempPoint, pSrc, 0, pArgs );
CGrayUID pCurUid = (DWORD) Exp_GetVal(tempPoint);
if ( pCurUid.IsValidUID() )
{
CObjBase * pObj = pCurUid.ObjFind();
if ( pObj && pObj->IsContainer() )
{
CContainer * pContThis = dynamic_cast <CContainer *> (pObj);
CScriptLineContext StartContext = s.GetContext();
CScriptLineContext EndContext = StartContext;
iRet = pContThis->OnGenericContTriggerForLoop( s, pSrc, pArgs, pResult, StartContext, EndContext, ppArgs[1] != NULL ? Exp_GetVal(ppArgs[1]) : 255 );
break;
}
}
}
}
}
case SK_FORCONTID:
case SK_FORCONTTYPE:
{
EXC_SET(m_ExcKeys[12]);
CContainer * pCont = dynamic_cast <CContainer *> (this);
if ( pCont )
{
if ( s.HasArgs() )
{
LPCTSTR pszKey = s.GetArgRaw();
SKIP_SEPERATORS(pszKey);
TCHAR * ppArgs[2];
Str_ParseCmds( (TCHAR*) pszKey, ppArgs, COUNTOF(ppArgs), " \t," );
CScriptLineContext StartContext = s.GetContext();
CScriptLineContext EndContext = StartContext;
#ifdef _WIN32
iRet = pCont->OnContTriggerForLoop( s, pSrc, pArgs, pResult, StartContext, EndContext, g_Cfg.ResourceGetID( ( iCmd == SK_FORCONTID ) ? RES_ITEMDEF : RES_TYPEDEF, ppArgs[0] ), 0, ppArgs[1] != NULL ? Exp_GetVal( ppArgs[1] ) : 255 );
#else
iRet = pCont->OnContTriggerForLoop( s, pSrc, pArgs, pResult, StartContext, EndContext, g_Cfg.ResourceGetID( ( iCmd == SK_FORCONTID ) ? RES_ITEMDEF : RES_TYPEDEF, (const char*&) ppArgs[0] ), 0, ppArgs[1] != NULL ? Exp_GetVal( ppArgs[1] ) : 255 );
#endif
break;
}
}
}
default:
// Parse out any variables in it. (may act like a verb sometimes?)
EXC_SET(m_ExcKeys[0]);
ParseText( s.GetArgRaw(), pSrc, 0, pArgs );
}
switch ( iCmd )
{
case SK_FORITEM:
case SK_FORCHAR:
case SK_FORCHARLAYER:
case SK_FORCHARMEMORYTYPE:
case SK_FORCLIENTS:
case SK_FORCONT:
case SK_FORCONTID:
case SK_FORCONTTYPE:
case SK_FOROBJ:
case SK_FORPLAYERS:
case SK_FOR:
case SK_WHILE:
if ( iRet != TRIGRET_ENDIF )
{
if ( iRet > TRIGRET_RET_DEFAULT )
{
DEBUG_MSG(( "WARNING: Trigger Bad For Ret %d '%s','%s'\n", iRet, s.GetKey(), s.GetArgStr()));
}
return( iRet );
}
break;
case SK_DORAND: // Do a random line in here.
case SK_DOSWITCH:
{
EXC_SET(m_ExcKeys[13]);
int iVal = s.GetArgVal();
if ( iCmd == SK_DORAND )
iVal = Calc_GetRandVal(iVal);
for ( ;true; iVal-- )
{
iRet = OnTriggerRun( s, (!iVal) ? TRIGRUN_SINGLE_TRUE : TRIGRUN_SINGLE_FALSE, pSrc, pArgs, pResult );
if ( iRet == TRIGRET_RET_DEFAULT )
continue;
if ( iRet == TRIGRET_ENDIF )
break;
if ( iRet > TRIGRET_RET_DEFAULT )
{
DEBUG_MSG(( "WARNING: Trigger Bad Ret %d '%s','%s'\n", iRet, s.GetKey(), s.GetArgStr()));
}
return( iRet );
}
}
break;
case SK_RETURN: // Process the trigger.
EXC_SET(m_ExcKeys[14]);
if ( pResult )
{
pResult->Copy( s.GetArgStr() );
return (TRIGRET_TYPE) 1;
}
return ( (TRIGRET_TYPE) s.GetArgVal() );
case SK_IF:
{
EXC_SET(m_ExcKeys[1]);
bool fTrigger = s.GetArgVal() ? true : false;
bool fBeenTrue = false;
while (true)
{
iRet = OnTriggerRun( s, fTrigger ? TRIGRUN_SECTION_TRUE : TRIGRUN_SECTION_FALSE, pSrc, pArgs, pResult );
if ( iRet < TRIGRET_ENDIF )
return( iRet );
if ( iRet == TRIGRET_ENDIF )
break;
fBeenTrue |= fTrigger;
if ( fBeenTrue )
fTrigger = false;
else if ( iRet == TRIGRET_ELSE )
fTrigger = true;
else if ( iRet == TRIGRET_ELSEIF )
{
ParseText( s.GetArgStr(), pSrc, 0, pArgs );
fTrigger = s.GetArgVal() ? true : false;
}
}
}
break;
case SK_BEGIN:
// Do this block here.
{
EXC_SET(m_ExcKeys[2]);
iRet = OnTriggerRun( s, TRIGRUN_SECTION_TRUE, pSrc, pArgs, pResult );
if ( iRet != TRIGRET_ENDIF )
{
if ( iRet > TRIGRET_RET_DEFAULT )
{
DEBUG_MSG(( "WARNING: Trigger Bad Ret %d '%s','%s'\n", iRet, s.GetKey(), s.GetArgStr()));
}
return( iRet );
}
}
break;
default:
if ( IsSetEF( EF_Scripts_Parse_Verbs ) )
{
EXC_SET(m_ExcKeys[0]);
ParseText( s.GetKeyBuffer(), pSrc, 0, pArgs );
}
EXC_SET(m_ExcKeys[0]);
if ( pArgs && pArgs->r_Verb( s, pSrc ) )
;
else
{
bool fRes;
if ( !strcmpi( (char *)s.GetKey(), "call" ) )
{
EXC_SET(m_ExcKeys[15]);
LPCTSTR pszArgs = strchr( s.GetArgRaw(), ' ' );
if ( pszArgs )
GETNONWHITESPACE( pszArgs );
if ( !pszArgs || !*pszArgs )
{
fRes = this->r_Call( s.GetArgRaw(), pSrc, pArgs );
}
else
{
CScriptTriggerArgs Args( pszArgs );
if ( pArgs )
Args.m_VarsLocal = pArgs->m_VarsLocal;
fRes = this->r_Call( s.GetArgRaw(), pSrc, &Args );
if ( pArgs )
pArgs->m_VarsLocal = Args.m_VarsLocal;
}
}
else
{
EXC_SET(m_ExcKeys[16]);
fRes = r_Verb( s, pSrc );
}
if ( !fRes )
{
DEBUG_MSG(( "WARNING: Trigger Bad Verb '%s','%s'\n", s.GetKey(), s.GetArgStr()));
}
}
break;
}
if ( trigrun >= TRIGRUN_SINGLE_EXEC )
return( TRIGRET_RET_DEFAULT );
}
EXC_CATCH("running trigger line");
return( TRIGRET_RET_DEFAULT );
}
bool CCharNPC::r_LoadVal( CChar * pChar, CScript &s )
{
EXC_TRY("LoadVal");
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
//Set as Strings
case CNC_THROWDAM:
case CNC_THROWOBJ:
case CNC_THROWRANGE:
{
bool fQuoted = false;
pChar->SetDefStr(s.GetKey(), s.GetArgStr( &fQuoted ), fQuoted);
}
break;
//Set as numbers only
case CNC_BONDED:
m_bonded = (s.GetArgVal() > 0);
break;
case CNC_FOLLOWERSLOTS:
pChar->SetDefNum(s.GetKey(), s.GetArgVal(), false );
break;
case CNC_ACTPRI:
m_Act_Motivation = static_cast<unsigned char>(s.GetArgVal());
break;
case CNC_NPC:
m_Brain = static_cast<NPCBRAIN_TYPE>(s.GetArgVal());
break;
case CNC_HOMEDIST:
if ( ! pChar->m_ptHome.IsValidPoint())
{
pChar->m_ptHome = pChar->GetTopPoint();
}
m_Home_Dist_Wander = static_cast<WORD>(s.GetArgVal());
break;
case CNC_NEED:
case CNC_NEEDNAME:
{
TCHAR * pTmp = s.GetArgRaw();
m_Need.Load(pTmp);
}
break;
case CNC_SPEECH:
return( m_Speech.r_LoadVal( s, RES_SPEECH ));
case CNC_SPEECHCOLOR:
m_SpeechHue = static_cast<HUE_TYPE>(s.GetArgVal());
break;
case CNC_VENDCAP:
{
CItemContainer * pBank = pChar->GetBank();
if ( pBank )
pBank->m_itEqBankBox.m_Check_Restock = s.GetArgVal();
}
break;
case CNC_VENDGOLD:
{
CItemContainer * pBank = pChar->GetBank();
if ( pBank )
pBank->m_itEqBankBox.m_Check_Amount = s.GetArgVal();
}
break;
case CNC_SPELLADD:
{
INT64 ppCmd[255];
size_t count = Str_ParseCmds(s.GetArgStr(), ppCmd, COUNTOF(ppCmd));
if (count < 1)
return false;
for (size_t i = 0; i < count; i++)
Spells_Add(static_cast<SPELL_TYPE>(ppCmd[i]));
}
default:
// Just ignore any player type stuff.
if ( FindTableHeadSorted( s.GetKey(), CCharPlayer::sm_szLoadKeys, COUNTOF( CCharPlayer::sm_szLoadKeys )-1 ) >= 0 )
return( true );
return(false );
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CScriptObj::r_Verb( CScript & s, CTextConsole * pSrc ) // Execute command from script
{
LOCKDATA;
EXC_TRY(("r_Verb('%s %s',%x)", s.GetKey(), s.GetArgStr(), pSrc));
int index;
LPCTSTR pszKey = s.GetKey();
ASSERT( pSrc );
CScriptObj * pRef;
if ( r_GetRef( pszKey, pRef ))
{
if ( pszKey[0] )
{
if ( !pRef ) return true;
CScript script( pszKey, s.GetArgStr());
return pRef->r_Verb( script, pSrc );
}
// else just fall through. as they seem to be setting the pointer !?
}
if ( s.IsKeyHead( "SRC.", 4 ))
{
pszKey += 4;
pRef = dynamic_cast <CScriptObj*> (pSrc->GetChar()); // if it can be converted .
if ( ! pRef )
{
pRef = dynamic_cast <CScriptObj*> (pSrc);
if ( ! pRef )
return( false );
}
CScript script( pszKey, s.GetArgStr());
return pRef->r_Verb( script, pSrc );
}
index = FindTableSorted( s.GetKey(), sm_szVerbKeys, COUNTOF( sm_szVerbKeys )-1 );
switch (index)
{
case SSV_OBJ:
g_World.m_uidObj = s.GetArgVal();
if ( !g_World.m_uidObj.ObjFind() ) g_World.m_uidObj = 0;
return( true );
case SSV_NEW:
g_World.m_uidNew = s.GetArgVal();
if ( !g_World.m_uidNew.ObjFind() ) g_World.m_uidNew = 0;
return( true );
case SSV_DUMPKEYS:
r_DumpLoadKeys( pSrc );
return( true );
case SSV_DUMPVERBS:
r_DumpVerbKeys( pSrc );
return( true );
case SSV_SHOW:
{
CGString sVal;
if ( ! r_WriteVal( s.GetArgStr(), sVal, pSrc ))
return( false );
TCHAR *pszMsg = Str_GetTemp();
sprintf(pszMsg, "'%s' for '%s' is '%s'\n", (LPCTSTR) s.GetArgStr(), (LPCTSTR) GetName(), (LPCTSTR) sVal );
pSrc->SysMessage(pszMsg);
}
return( true );
case SSV_TRIGGER:
{
// This is effectively a goto to an alternate trigger. (for this same object)
TCHAR * pszVals[2];
// CScriptTriggerArgs * pArgs = NULL ?
if ( Str_ParseCmds( s.GetArgStr(), pszVals, COUNTOF(pszVals)))
{
TRIGRET_TYPE tRet = OnTrigger( pszVals[0], pSrc, NULL );
return( true );
}
}
return( false );
}
return r_LoadVal( s ); // default to loading values.
EXC_CATCH("CScriptObj");
return false;
}
bool CClient::r_LoadVal( CScript & s )
{
ADDTOCALLSTACK("CClient::r_LoadVal");
EXC_TRY("LoadVal");
if ( GetAccount() == NULL )
return( false );
LPCTSTR pszKey = s.GetKey();
if ( s.IsKeyHead( "CTAG.", 5 ) || s.IsKeyHead( "CTAG0.", 6 ) )
{
bool fZero = s.IsKeyHead( "CTAG0.", 6 );
bool fQuoted = false;
pszKey = pszKey + (fZero ? 6 : 5);
m_TagDefs.SetStr( pszKey, fQuoted, s.GetArgStr( &fQuoted ), fZero );
return( true );
}
switch ( FindTableSorted( pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys)-1 ))
{
case CC_ALLMOVE:
addRemoveAll(true, false);
GetAccount()->TogPrivFlags( PRIV_ALLMOVE, s.GetArgStr() );
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_ALLMOVE)? "Allmove ON" : "Allmove OFF" );
addPlayerView(NULL);
break;
case CC_ALLSHOW:
addRemoveAll(false, true);
GetAccount()->TogPrivFlags( PRIV_ALLSHOW, s.GetArgStr() );
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_ALLSHOW)? "Allshow ON" : "Allshow OFF" );
addPlayerView(NULL);
break;
case CC_DEBUG:
addRemoveAll(true, false);
GetAccount()->TogPrivFlags( PRIV_DEBUG, s.GetArgStr() );
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_DEBUG)? "Debug ON" : "Debug OFF" );
addPlayerView(NULL);
break;
case CC_DETAIL:
GetAccount()->TogPrivFlags( PRIV_DETAIL, s.GetArgStr() );
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_DETAIL)? "Detail ON" : "Detail OFF" );
break;
case CC_GM: // toggle your GM status on/off
if ( GetPrivLevel() >= PLEVEL_GM )
{
GetAccount()->TogPrivFlags( PRIV_GM, s.GetArgStr() );
m_pChar->ResendTooltip();
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_GM)? "GM ON" : "GM OFF" );
}
break;
case CC_HEARALL:
GetAccount()->TogPrivFlags( PRIV_HEARALL, s.GetArgStr() );
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_HEARALL)? "Hearall ON" : "Hearall OFF" );
break;
case CC_PRIVSHOW:
// Hide my priv title.
if ( GetPrivLevel() >= PLEVEL_Counsel )
{
if ( ! s.HasArgs())
{
GetAccount()->TogPrivFlags( PRIV_PRIV_NOSHOW, NULL );
}
else if ( s.GetArgVal() )
{
GetAccount()->ClearPrivFlags( PRIV_PRIV_NOSHOW );
}
else
{
GetAccount()->SetPrivFlags( PRIV_PRIV_NOSHOW );
}
m_pChar->ResendTooltip();
if ( IsSetOF( OF_Command_Sysmsgs ) )
m_pChar->SysMessage( IsPriv(PRIV_PRIV_NOSHOW)? "Privshow OFF" : "Privshow ON" );
}
break;
case CC_TARG:
m_Targ_UID = s.GetArgVal();
break;
case CC_TARGP:
m_Targ_p.Read( s.GetArgRaw());
if ( !m_Targ_p.IsValidPoint() )
{
m_Targ_p.ValidatePoint();
SysMessagef( "Invalid point: %s", s.GetArgStr() );
}
break;
case CC_TARGPROP:
m_Prop_UID = s.GetArgVal();
break;
case CC_TARGPRV:
m_Targ_PrvUID = s.GetArgVal();
break;
default:
return( false );
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CSpellDef::r_LoadVal( CScript &s )
{
ADDTOCALLSTACK("CSpellDef::r_LoadVal");
EXC_TRY("LoadVal");
// RES_SPELL
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, CountOf( sm_szLoadKeys )-1 ))
{
case SPC_CAST_TIME:
m_CastTime.Load( s.GetArgRaw());
break;
case SPC_DEFNAME:
return SetResourceName( s.GetArgStr());
case SPC_DURATION:
m_Duration.Load( s.GetArgRaw());
break;
case SPC_EFFECT:
m_Effect.Load( s.GetArgRaw());
break;
case SPC_EFFECT_ID:
m_idEffect = (ITEMID_TYPE)(g_Cfg.ResourceGetIndexType( RES_ITEMDEF, s.GetArgStr()));
break;
case SPC_FLAGS:
m_dwFlags = s.GetArgVal();
break;
case SPC_GROUP:
m_dwGroup = s.GetArgVal();
break;
case SPC_INTERRUPT:
m_Interrupt.Load( s.GetArgRaw());
break;
case SPC_LAYER:
m_idLayer = (LAYER_TYPE)(s.GetArgVal());
break;
case SPC_MANAUSE:
m_wManaUse = (word)(s.GetArgVal());
break;
case SPC_NAME:
m_sName = s.GetArgStr();
break;
case SPC_PROMPT_MSG:
m_sTargetPrompt = s.GetArgStr();
break;
case SPC_RESOURCES:
m_Reags.Load( s.GetArgStr());
break;
case SPC_RUNE_ITEM:
m_idSpell = (ITEMID_TYPE)(g_Cfg.ResourceGetIndexType( RES_ITEMDEF, s.GetArgStr()));
break;
case SPC_RUNES:
// This may only be basic chars !
m_sRunes = s.GetArgStr();
break;
case SPC_SCROLL_ITEM:
m_idScroll = (ITEMID_TYPE)(g_Cfg.ResourceGetIndexType( RES_ITEMDEF, s.GetArgStr()));
break;
case SPC_SKILLREQ:
m_SkillReq.Load( s.GetArgStr());
break;
case SPC_SOUND:
m_sound = (SOUND_TYPE)(s.GetArgVal());
break;
case SPC_TITHINGUSE:
m_wTithingUse = (word)(s.GetArgVal());
break;
default:
return( CResourceDef::r_LoadVal( s ) );
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
bool CItemMulti::r_Verb( CScript & s, CTextConsole * pSrc ) // Execute command from script
{
LOCKDATA;
EXC_TRY(("r_Verb('%s %s',%x)", s.GetKey(), s.GetArgStr(), pSrc));
// Speaking in this ships region.
// return: true = command for the ship.
//"One (direction*)", " (Direction*), one" Moves ship one tile in desired direction and stops.
//"Slow (direction*)" Moves ship slowly in desired direction (see below for possible directions).
int iCmd = FindTableSorted( s.GetKey(), sm_szVerbKeys, COUNTOF( sm_szVerbKeys )-1 );
if ( iCmd < 0 )
{
return( CItem::r_Verb( s, pSrc ));
}
if ( ! pSrc )
return( false );
switch ( iCmd )
{
case SHV_MULTICREATE:
{
CGrayUID uid( s.GetArgVal() );
CChar * pSrc = uid.CharFind();
Multi_Create( pSrc, 0 );
}
return true;
}
if ( IsAttr(ATTR_MOVE_NEVER) || ! IsTopLevel() )
return false;
CChar * pChar = pSrc->GetChar();
// Only key holders can command the ship ???
// if ( pChar && pChar->ContentFindKeyFor( pItem ))
// Find the tiller man object.
CItem * pTiller = Multi_GetSign();
ASSERT( pTiller );
// Get current facing dir.
DIR_TYPE DirFace = sm_Ship_FaceDir[ Ship_GetFaceOffset() ];
int DirMoveChange;
LPCTSTR pszSpeak = NULL;
switch ( iCmd )
{
case SHV_SHIPSTOP:
// "Furl sail"
// "Stop" Stops current ship movement.
if ( ! m_itShip.m_fSail )
return( false );
Ship_Stop();
break;
case SHV_SHIPFACE:
// Face this direction. do not change the direction of movement.
if ( ! s.HasArgs())
return( false );
return Ship_Face( GetDirStr( s.GetArgStr()));
case SHV_SHIPMOVE:
// Move one space in this direction.
// Does NOT protect against exploits !
if ( ! s.HasArgs())
return( false );
m_itShip.m_DirMove = GetDirStr( s.GetArgStr());
return Ship_Move( (DIR_TYPE) m_itShip.m_DirMove );
case SHV_SHIPGATE:
// Move the whole ship and contents to another place.
if ( ! s.HasArgs())
return( false );
{
CPointMap ptdelta = g_Cfg.GetRegionPoint( s.GetArgStr());
if ( ! ptdelta.IsValidPoint())
return( false );
ptdelta -= GetTopPoint();
return Ship_MoveDelta( ptdelta );
}
break;
case SHV_SHIPTURNLEFT:
// "Port",
// "Turn Left",
DirMoveChange = -2;
doturn:
if ( m_itShip.m_fAnchored )
{
anchored:
pszSpeak = "The anchor is down <SEX Sir/Mam>!";
break;
}
m_itShip.m_DirMove = GetDirTurn( DirFace, DirMoveChange );
Ship_Face( (DIR_TYPE) m_itShip.m_DirMove );
break;
case SHV_SHIPTURNRIGHT:
// "Turn Right",
// "Starboard", // Turn Right
DirMoveChange = 2;
goto doturn;
case SHV_SHIPDRIFTLEFT:
// "Left",
// "Drift Left",
DirMoveChange = -2;
dodirmovechange:
if ( m_itShip.m_fAnchored )
goto anchored;
if ( ! Ship_SetMoveDir( GetDirTurn( DirFace, DirMoveChange )))
return( false );
break;
case SHV_SHIPDRIFTRIGHT:
// "Right",
// "Drift Right",
DirMoveChange = 2;
goto dodirmovechange;
case SHV_SHIPBACK:
// "Back", // Move ship backwards
// "Backward", // Move ship backwards
// "Backwards", // Move ship backwards
DirMoveChange = 4;
goto dodirmovechange;
case SHV_SHIPFORE:
// "Forward"
// "Foreward", // Moves ship forward.
// "Unfurl sail", // Moves ship forward.
DirMoveChange = 0;
goto dodirmovechange;
case SHV_SHIPFORELEFT: // "Forward left",
DirMoveChange = -1;
goto dodirmovechange;
case SHV_SHIPFORERIGHT: // "forward right",
DirMoveChange = 1;
goto dodirmovechange;
case SHV_SHIPBACKLEFT:
// "backward left",
// "back left",
DirMoveChange = -3;
goto dodirmovechange;
case SHV_SHIPBACKRIGHT:
// "backward right",
// "back right",
DirMoveChange = 3;
goto dodirmovechange;
case SHV_SHIPANCHORRAISE: // "Raise Anchor",
if ( ! m_itShip.m_fAnchored )
{
pszSpeak = "The anchor is already up <SEX Sir/Mam>";
break;
}
m_itShip.m_fAnchored = false;
break;
case SHV_SHIPANCHORDROP: // "Drop Anchor",
if ( m_itShip.m_fAnchored )
{
pszSpeak = "The anchor is already down <SEX Sir/Mam>";
break;
}
m_itShip.m_fAnchored = true;
Ship_Stop();
break;
case SHV_SHIPTURN:
// "Turn around", // Turns ship around and proceeds.
// "Come about", // Turns ship around and proceeds.
DirMoveChange = 4;
goto doturn;
case SHV_SHIPUP: // "Up"
{
if ( ! IsAttr(ATTR_MAGIC ))
return( false );
CPointMap pt;
pt.m_z = PLAYER_HEIGHT;
if ( Ship_MoveDelta( pt ))
{
pszSpeak = "As you command <SEX Sir/Mam>";
}
else
{
pszSpeak = "Can't do that <SEX Sir/Mam>";
}
}
break;
case SHV_SHIPDOWN: // "Down"
{
if ( ! IsAttr(ATTR_MAGIC ))
return( false );
CPointMap pt;
pt.m_z = -PLAYER_HEIGHT;
if ( Ship_MoveDelta( pt ))
{
pszSpeak = "As you command <SEX Sir/Mam>";
}
else
{
pszSpeak = "Can't do that <SEX Sir/Mam>";
}
}
break;
case SHV_SHIPLAND: // "Land"
{
if ( ! IsAttr(ATTR_MAGIC ))
return( false );
signed char zold = GetTopZ();
CPointMap pt = GetTopPoint();
pt.m_z = zold;
SetTopZ( -UO_SIZE_Z ); // bottom of the world where i won't get in the way.
WORD wBlockFlags = CAN_I_WATER;
signed char z = g_World.GetHeightPoint( pt, wBlockFlags );
SetTopZ( zold ); // restore z for now.
pt.InitPoint();
pt.m_z = z - zold;
if ( pt.m_z )
{
Ship_MoveDelta( pt );
pszSpeak = "As you command <SEX Sir/Mam>";
}
else
{
pszSpeak = "We have landed <SEX Sir/Mam>";
}
}
break;
default:
return( false );
}
if ( pChar )
{
if ( pszSpeak == NULL )
{
static LPCTSTR const sm_pszAye[] =
{
"Aye",
"Aye Cap'n",
"Aye <SEX Sir/Mam>",
};
pszSpeak = sm_pszAye[ Calc_GetRandVal( COUNTOF( sm_pszAye )) ];
}
TCHAR szText[ MAX_TALK_BUFFER ];
strcpy( szText, pszSpeak );
pChar->ParseText( szText, &g_Serv );
pTiller->Speak( szText, 0, TALKMODE_SAY, FONT_NORMAL );
}
return false;
EXC_CATCH("CItemMulti");
return true;
}
bool CSkillDef::r_LoadVal( CScript &s )
{
ADDTOCALLSTACK("CSkillDef::r_LoadVal");
EXC_TRY("LoadVal");
switch ( FindTableSorted( s.GetKey(), sm_szLoadKeys, COUNTOF( sm_szLoadKeys )-1 ))
{
case SKC_ADV_RATE: // ADV_RATE=Chance at 100, Chance at 50, chance at 0
m_AdvRate.Load( s.GetArgStr());
break;
case SKC_BONUS_DEX: // "BONUS_DEX"
m_StatBonus[STAT_DEX] = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_BONUS_INT: // "BONUS_INT"
m_StatBonus[STAT_INT] = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_BONUS_STR: // "BONUS_STR"
m_StatBonus[STAT_STR] = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_DEFNAME: // "DEFNAME"
return SetResourceName( s.GetArgStr());
case SKC_DELAY:
m_Delay.Load( s.GetArgStr());
break;
case SKC_FLAGS:
m_dwFlags = s.GetArgVal();
break;
case SKC_GROUP:
m_dwGroup = s.GetArgVal();
break;
case SKC_EFFECT:
m_Effect.Load( s.GetArgStr());
break;
case SKC_KEY: // "KEY"
m_sKey = s.GetArgStr();
return SetResourceName( m_sKey );
case SKC_NAME: // "KEY"
m_sName = s.GetArgStr();
break;
case SKC_PROMPT_MSG: // "PROMPT_MSG"
m_sTargetPrompt = s.GetArgStr();
break;
case SKC_RANGE:
m_Range = s.GetArgVal();
break;
case SKC_BONUS_STATS: // "BONUS_STATS"
m_StatPercent = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_STAT_DEX: // "STAT_DEX"
m_Stat[STAT_DEX] = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_STAT_INT: // "STAT_INT"
m_Stat[STAT_INT] = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_STAT_STR: // "STAT_STR"
m_Stat[STAT_STR] = static_cast<unsigned char>(s.GetArgVal());
break;
case SKC_TITLE: // "TITLE"
m_sTitle = s.GetArgStr();
break;
case SKC_VALUES: // VALUES = 100,50,0 price levels.
m_Values.Load( s.GetArgStr() );
break;
case SKC_GAINRADIUS: // "GAINRADIUS"
m_GainRadius = s.GetArgVal();
break;
default:
return( CResourceDef::r_LoadVal( s ));
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_SCRIPT;
EXC_DEBUG_END;
return false;
}
