inline bool
SkyLinesTracking::Glue::IsConnected() const
{
switch (GetNetState()) {
case NetState::UNKNOWN:
case NetState::DISCONNECTED:
return false;
case NetState::CONNECTED:
return true;
case NetState::ROAMING:
return roaming;
}
assert(false);
gcc_unreachable();
}
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 CClient::r_WriteVal( LPCTSTR pszKey, CGString & sVal, CTextConsole * pSrc )
{
ADDTOCALLSTACK("CClient::r_WriteVal");
EXC_TRY("WriteVal");
int index;
if ( !strnicmp("CTAG.", pszKey, 5) ) // CTAG.xxx - client tag
{
if ( pszKey[4] != '.' )
return( false );
pszKey += 5;
CVarDefCont *vardef = m_TagDefs.GetKey(pszKey);
sVal = vardef ? vardef->GetValStr() : "";
return true;
}
if ( !strnicmp("CTAG0.", pszKey, 6) ) // CTAG0.xxx - client tag
{
if ( pszKey[5] != '.' )
return( false );
pszKey += 6;
CVarDefCont *vardef = m_TagDefs.GetKey(pszKey);
sVal = vardef ? vardef->GetValStr() : "0";
return true;
}
if ( !strnicmp( "TARGP", pszKey, 5 ) && ( pszKey[5] == '\0' || pszKey[5] == '.' ) )
index = CC_TARGP;
else if ( !strnicmp( "SCREENSIZE", pszKey, 10 ) && ( pszKey[10] == '\0' || pszKey[10] == '.' ) )
index = CC_SCREENSIZE;
else if ( !strnicmp( "REPORTEDCLIVER", pszKey, 14 ) && ( pszKey[14] == '\0' || pszKey[14] == '.' ) )
index = CC_REPORTEDCLIVER;
else
index = FindTableSorted( pszKey, sm_szLoadKeys, COUNTOF(sm_szLoadKeys)-1 );
switch (index)
{
case CC_ALLMOVE:
sVal.FormatVal( IsPriv( PRIV_ALLMOVE ));
break;
case CC_ALLSHOW:
sVal.FormatVal( IsPriv( PRIV_ALLSHOW ));
break;
case CC_CLIENTIS3D:
sVal.FormatVal( GetNetState()->isClient3D() );
break;
case CC_CLIENTISKR:
sVal.FormatVal( GetNetState()->isClientKR() );
break;
case CC_CLIENTISSA:
sVal.FormatVal( GetNetState()->isClientSA() );
break;
case CC_CLIENTVERSION:
{
TCHAR szVersion[ 128 ];
sVal = m_Crypt.WriteClientVer( szVersion );
}
break;
case CC_DEBUG:
sVal.FormatVal( IsPriv( PRIV_DEBUG ));
break;
case CC_DETAIL:
sVal.FormatVal( IsPriv( PRIV_DETAIL ));
break;
case CC_GM: // toggle your GM status on/off
sVal.FormatVal( IsPriv( PRIV_GM ));
break;
case CC_HEARALL:
sVal.FormatVal( IsPriv( PRIV_HEARALL ));
break;
case CC_LASTEVENT:
sVal.FormatLLVal( m_timeLastEvent.GetTimeRaw() );
break;
case CC_PRIVSHOW:
// Show my priv title.
sVal.FormatVal( ! IsPriv( PRIV_PRIV_NOSHOW ));
break;
case CC_REPORTEDCLIVER:
{
pszKey += strlen(sm_szLoadKeys[index]);
GETNONWHITESPACE( pszKey );
int iCliVer = (GetNetState()->getReportedVersion() & 0xFFFFFF0);
if ( pszKey[0] != '\0' )
iCliVer = GetNetState()->getReportedVersion();
TCHAR szVersion[128];
sVal = CCrypt::WriteClientVerString( iCliVer, szVersion );
}
break;
case CC_SCREENSIZE:
{
if ( pszKey[10] == '.' )
{
pszKey += strlen(sm_szLoadKeys[index]);
SKIP_SEPARATORS(pszKey);
if ( !strnicmp("X", pszKey, 1) )
sVal.Format( "%lu", m_ScreenSize.x );
else if ( !strnicmp("Y", pszKey, 1) )
sVal.Format( "%lu", m_ScreenSize.y );
else
return( false );
}
else
sVal.Format( "%lu,%lu", m_ScreenSize.x, m_ScreenSize.y );
} break;
case CC_TARG:
sVal.FormatHex(m_Targ_UID);
break;
case CC_TARGP:
if ( pszKey[5] == '.' )
{
return m_Targ_p.r_WriteVal( pszKey+6, sVal );
}
sVal = m_Targ_p.WriteUsed();
break;
case CC_TARGPROP:
sVal.FormatHex(m_Prop_UID);
break;
case CC_TARGPRV:
sVal.FormatHex(m_Targ_PrvUID);
break;
case CC_TARGTXT:
sVal = m_Targ_Text;
break;
default:
return( CScriptObj::r_WriteVal( pszKey, sVal, pSrc ));
}
return true;
EXC_CATCH;
EXC_DEBUG_START;
EXC_ADD_KEYRET(pSrc);
EXC_DEBUG_END;
return false;
}
bool CClient::xProcessClientSetup( CEvent * pEvent, size_t iLen )
{
ADDTOCALLSTACK("CClient::xProcessClientSetup");
// If this is a login then try to process the data and figure out what client it is.
// try to figure out which client version we are talking to.
// (CEvent::ServersReq) or (CEvent::CharListReq)
// NOTE: Anything else we get at this point is tossed !
ASSERT( GetConnectType() == CONNECT_CRYPT );
ASSERT( !m_Crypt.IsInit());
ASSERT( pEvent != NULL );
ASSERT( iLen > 0 );
// Try all client versions on the msg.
CEvent bincopy; // in buffer. (from client)
ASSERT( iLen <= sizeof(bincopy));
memcpy( bincopy.m_Raw, pEvent->m_Raw, iLen );
if ( !m_Crypt.Init( m_net->m_seed, bincopy.m_Raw, iLen, GetNetState()->isClientKR() ) )
{
DEBUG_MSG(( "%x:Odd login message length %" PRIuSIZE_T "?\n", GetSocketID(), iLen ));
#ifdef _DEBUG
xRecordPacketData(this, (const byte *)pEvent, iLen, "client->server");
#endif
addLoginErr( PacketLoginError::BadEncLength );
return false;
}
GetNetState()->detectAsyncMode();
SetConnectType( m_Crypt.GetConnectType() );
if ( !xCanEncLogin() )
{
addLoginErr((uchar)((m_Crypt.GetEncryptionType() == ENC_NONE? PacketLoginError::EncNoCrypt : PacketLoginError::EncCrypt) ));
return false;
}
else if ( m_Crypt.GetConnectType() == CONNECT_LOGIN && !xCanEncLogin(true) )
{
addLoginErr( PacketLoginError::BadVersion );
return false;
}
byte lErr = PacketLoginError::EncUnknown;
m_Crypt.Decrypt( pEvent->m_Raw, bincopy.m_Raw, iLen );
tchar szAccount[MAX_ACCOUNT_NAME_SIZE+3];
switch ( pEvent->Default.m_Cmd )
{
case XCMD_ServersReq:
{
if ( iLen < sizeof( pEvent->ServersReq ))
return false;
lErr = Login_ServerList( pEvent->ServersReq.m_acctname, pEvent->ServersReq.m_acctpass );
if ( lErr == PacketLoginError::Success )
{
Str_GetBare( szAccount, pEvent->ServersReq.m_acctname, sizeof(szAccount)-1 );
CAccountRef pAcc = g_Accounts.Account_Find( szAccount );
if (pAcc)
{
pAcc->m_TagDefs.SetNum("clientversion", m_Crypt.GetClientVer());
pAcc->m_TagDefs.SetNum("reportedcliver", GetNetState()->getReportedVersion());
}
else
{
// If i can't set the tag is better to stop login now
lErr = PacketLoginError::Invalid;
}
}
break;
}
case XCMD_CharListReq:
{
if ( iLen < sizeof( pEvent->CharListReq ))
return false;
lErr = Setup_ListReq( pEvent->CharListReq.m_acctname, pEvent->CharListReq.m_acctpass, true );
if ( lErr == PacketLoginError::Success )
{
// pass detected client version to the game server to make valid cliver used
Str_GetBare( szAccount, pEvent->CharListReq.m_acctname, sizeof(szAccount)-1 );
CAccountRef pAcc = g_Accounts.Account_Find( szAccount );
if (pAcc)
{
dword tmSid = 0x7f000001;
dword tmVer = (dword)(pAcc->m_TagDefs.GetKeyNum("clientversion"));
dword tmVerReported = (dword)(pAcc->m_TagDefs.GetKeyNum("reportedcliver"));
pAcc->m_TagDefs.DeleteKey("clientversion");
pAcc->m_TagDefs.DeleteKey("reportedcliver");
if ( g_Cfg.m_fUseAuthID )
{
tmSid = (dword)(pAcc->m_TagDefs.GetKeyNum("customerid"));
pAcc->m_TagDefs.DeleteKey("customerid");
}
DEBUG_MSG(("%x:xProcessClientSetup for %s, with AuthId %u and CliVersion %u / CliVersionReported %u\n", GetSocketID(), pAcc->GetName(), tmSid, tmVer, tmVerReported));
if ( tmSid != 0 && tmSid == pEvent->CharListReq.m_Account )
{
// request client version if the client has not reported it to server yet
if ( tmVerReported == 0 )
new PacketClientVersionReq(this);
if ( tmVerReported != 0 )
{
GetNetState()->m_reportedVersion = tmVerReported;
}
else if ( tmVer != 0 )
{
m_Crypt.SetClientVerEnum(tmVer, false);
GetNetState()->m_clientVersion = tmVer;
}
// client version change may toggle async mode, it's important to flush pending data to the client before this happens
GetNetState()->detectAsyncMode();
if ( !xCanEncLogin(true) )
lErr = PacketLoginError::BadVersion;
}
else
{
lErr = PacketLoginError::BadAuthID;
}
}
else
{
lErr = PacketLoginError::Invalid;
}
}
break;
}
#ifdef _DEBUG
default:
{
DEBUG_ERR(("Unknown/bad packet to receive at this time: 0x%X\n", pEvent->Default.m_Cmd));
}
#endif
}
xRecordPacketData(this, (const byte *)pEvent, iLen, "client->server");
if ( lErr != PacketLoginError::Success ) // it never matched any crypt format.
{
addLoginErr( lErr );
}
return( lErr == PacketLoginError::Success );
}
bool CClient::addLoginErr(byte code)
{
ADDTOCALLSTACK("CClient::addLoginErr");
// code
// 0 = no account
// 1 = account used.
// 2 = blocked.
// 3 = no password
// LOGIN_ERR_OTHER
if (code == PacketLoginError::Success)
return true;
// console message to display for each login error code
static lpctstr const sm_Login_ErrMsg[] =
{
"Account does not exist",
"The account entered is already being used",
"This account or IP is blocked",
"The password entered is not correct",
"Timeout / Wrong encryption / Unknown error",
"Invalid client version. See the CLIENTVERSION setting in " SPHERE_FILE ".ini",
"Invalid character selected (chosen character does not exist)",
"AuthID is not correct. This normally means that the client did not log in via the login server",
"The account details entered are invalid (username or password is too short, too long or contains invalid characters). This can sometimes be caused by incorrect/missing encryption keys",
"The account details entered are invalid (username or password is too short, too long or contains invalid characters). This can sometimes be caused by incorrect/missing encryption keys",
"Encryption error (packet length does not match what was expected)",
"Encryption error (unknown encryption or bad login packet)",
"Encrypted client not permitted. See the USECRYPT setting in " SPHERE_FILE ".ini",
"Unencrypted client not permitted. See the USENOCRYPT setting in " SPHERE_FILE ".ini",
"Another character on this account is already ingame",
"Account is full. Cannot create a new character",
"Character creation blocked.",
"This IP is blocked",
"The maximum number of clients has been reached. See the CLIENTMAX setting in " SPHERE_FILE ".ini",
"The maximum number of guests has been reached. See the GUESTSMAX setting in " SPHERE_FILE ".ini",
"The maximum number of password tries has been reached"
};
if (code >= CountOf(sm_Login_ErrMsg))
code = PacketLoginError::Other;
g_Log.EventWarn( "%x:Bad Login %d (%s)\n", GetSocketID(), code, sm_Login_ErrMsg[(size_t)(code)] );
// translate the code into a code the client will understand
switch (code)
{
case PacketLoginError::Invalid:
code = PacketLoginError::Invalid;
break;
case PacketLoginError::InUse:
case PacketLoginError::CharIdle:
code = PacketLoginError::InUse;
break;
case PacketLoginError::Blocked:
case PacketLoginError::BlockedIP:
case PacketLoginError::MaxClients:
case PacketLoginError::MaxGuests:
code = PacketLoginError::Blocked;
break;
case PacketLoginError::BadPass:
case PacketLoginError::BadAccount:
case PacketLoginError::BadPassword:
code = PacketLoginError::BadPass;
break;
case PacketLoginError::Other:
case PacketLoginError::BadVersion:
case PacketLoginError::BadCharacter:
case PacketLoginError::BadAuthID:
case PacketLoginError::BadEncLength:
case PacketLoginError::EncCrypt:
case PacketLoginError::EncNoCrypt:
case PacketLoginError::TooManyChars:
case PacketLoginError::MaxPassTries:
case PacketLoginError::EncUnknown:
default:
code = PacketLoginError::Other;
break;
}
new PacketLoginError(this, static_cast<PacketLoginError::Reason>(code));
GetNetState()->markReadClosed();
return false;
}
bool CClient::Cmd_SecureTrade( CChar *pChar, CItem *pItem )
{
ADDTOCALLSTACK("CClient::Cmd_SecureTrade");
// Begin secure trading with a char. (Make the initial offer)
if ( !pChar || pChar == m_pChar )
return false;
// Make sure both clients can see each other, because trade window is an container
// and containers can be opened only after the object is already loaded on screen
if ( !m_pChar->CanSee(pChar) || !pChar->CanSee(m_pChar) )
return false;
if ( pItem && (IsTrigUsed(TRIGGER_DROPON_CHAR) || IsTrigUsed(TRIGGER_ITEMDROPON_CHAR)) )
{
CScriptTriggerArgs Args(pChar);
if ( pItem->OnTrigger(ITRIG_DROPON_CHAR, m_pChar, &Args) == TRIGRET_RET_TRUE )
return false;
}
if ( pChar->m_pNPC ) // NPC's can't use trade windows
return pItem ? pChar->NPC_OnItemGive(m_pChar, pItem) : false;
if ( !pChar->IsClient() ) // and also offline players
return false;
if ( pChar->GetDefNum("REFUSETRADES", true) )
{
SysMessagef(g_Cfg.GetDefaultMsg(DEFMSG_MSG_TRADE_REFUSE), pChar->GetName());
return false;
}
// Check if the trade window is already open
for ( CItem *pItemCont = m_pChar->GetContentHead(); pItemCont != NULL; pItemCont = pItemCont->GetNext() )
{
if ( !pItemCont->IsType(IT_EQ_TRADE_WINDOW) )
continue;
CItem *pItemPartner = pItemCont->m_uidLink.ItemFind();
if ( !pItemPartner )
continue;
CChar *pCharPartner = dynamic_cast<CChar *>(pItemPartner->GetParent());
if ( pCharPartner != pChar )
continue;
if ( pItem )
{
if ( IsTrigUsed(TRIGGER_DROPON_TRADE) )
{
CScriptTriggerArgs Args1(pChar);
if ( pItem->OnTrigger(ITRIG_DROPON_TRADE, this, &Args1) == TRIGRET_RET_TRUE )
return false;
}
CItemContainer *pCont = dynamic_cast<CItemContainer *>(pItemCont);
if ( pCont )
pCont->ContentAdd(pItem);
}
return true;
}
// Open new trade window
if ( IsTrigUsed(TRIGGER_TRADECREATE) )
{
CScriptTriggerArgs Args(pItem);
if ( (m_pChar->OnTrigger(CTRIG_TradeCreate, pChar, &Args) == TRIGRET_RET_TRUE) || (pChar->OnTrigger(CTRIG_TradeCreate, m_pChar, &Args) == TRIGRET_RET_TRUE) )
return false;
}
if ( IsTrigUsed(TRIGGER_DROPON_TRADE) && pItem )
{
CScriptTriggerArgs Args1(pChar);
if ( pItem->OnTrigger(ITRIG_DROPON_TRADE, this, &Args1) == TRIGRET_RET_TRUE )
return false;
}
CItem *pItem1 = CItem::CreateBase(ITEMID_Bulletin1);
if ( !pItem1 )
return false;
CItemContainer *pCont1 = static_cast<CItemContainer *>(pItem1);
if ( !pCont1 )
{
DEBUG_ERR(("Item 0%x must be a container type to enable player trading.\n", ITEMID_Bulletin1));
pItem1->Delete();
return false;
}
CItemContainer *pCont2 = static_cast<CItemContainer *>(CItem::CreateBase(ITEMID_Bulletin1));
ASSERT(pCont2);
pCont1->SetName("Trade Window");
pCont1->SetType(IT_EQ_TRADE_WINDOW);
pCont1->m_itEqTradeWindow.m_iWaitTime = 0;
pCont1->m_itEqTradeWindow.m_bCheck = 0;
pCont1->m_uidLink = pCont2->GetUID();
m_pChar->LayerAdd(pCont1, LAYER_SPECIAL);
pCont2->SetName("Trade Window");
pCont2->SetType(IT_EQ_TRADE_WINDOW);
pCont2->m_itEqTradeWindow.m_iWaitTime = 0;
pCont2->m_itEqTradeWindow.m_bCheck = 0;
pCont2->m_uidLink = pCont1->GetUID();
pChar->LayerAdd(pCont2, LAYER_SPECIAL);
PacketTradeAction cmd(SECURE_TRADE_OPEN);
cmd.prepareContainerOpen(pChar, pCont1, pCont2);
cmd.send(this);
cmd.prepareContainerOpen(m_pChar, pCont2, pCont1);
cmd.send(pChar->GetClient());
if ( g_Cfg.m_iFeatureTOL & FEATURE_TOL_VIRTUALGOLD )
{
PacketTradeAction cmd2(SECURE_TRADE_UPDATELEDGER);
if ( GetNetState()->isClientVersion(MINCLIVER_NEWSECURETRADE) )
{
cmd2.prepareUpdateLedger(pCont1, static_cast<DWORD>(m_pChar->m_virtualGold % 1000000000), static_cast<DWORD>(m_pChar->m_virtualGold / 1000000000));
cmd2.send(this);
}
if ( pChar->GetClient()->GetNetState()->isClientVersion(MINCLIVER_NEWSECURETRADE) )
{
cmd2.prepareUpdateLedger(pCont2, static_cast<DWORD>(pChar->m_virtualGold % 1000000000), static_cast<DWORD>(pChar->m_virtualGold / 1000000000));
cmd2.send(pChar->GetClient());
}
}
LogOpenedContainer(pCont2);
pChar->GetClient()->LogOpenedContainer(pCont1);
if ( pItem )
{
if ( IsTrigUsed(TRIGGER_DROPON_TRADE) )
{
CScriptTriggerArgs Args1(pChar);
if ( pItem->OnTrigger(ITRIG_DROPON_TRADE, this, &Args1) == TRIGRET_RET_TRUE )
{
pCont1->Delete();
pCont2->Delete();
return false;
}
}
pCont1->ContentAdd(pItem, pCont1->GetUnkPoint());
}
return true;
}
void
SkyLinesTracking::Glue::Tick(const NMEAInfo &basic)
{
if (!client.IsDefined())
return;
if (!basic.time_available) {
clock.Reset();
#ifdef HAVE_SKYLINES_TRACKING_HANDLER
traffic_clock.Reset();
#endif
return;
}
bool connected = false;
switch (GetNetState()) {
case NetState::UNKNOWN:
case NetState::DISCONNECTED:
break;
case NetState::CONNECTED:
connected = true;
break;
case NetState::ROAMING:
connected = roaming;
break;
}
if (!connected) {
/* queue the packet, send it later */
if (queue == nullptr)
queue = new Queue();
queue->Push(ToFix(client.GetKey(), basic));
return;
}
if (queue != nullptr) {
/* send queued fix packets, 8 at a time */
unsigned n = 8;
while (n-- > 0) {
const auto &packet = queue->Peek();
if (!client.SendPacket(packet))
break;
queue->Pop();
if (queue->IsEmpty()) {
delete queue;
queue = nullptr;
break;
}
}
return;
} else if (clock.CheckAdvance(basic.time, fixed(interval)))
client.SendFix(basic);
#ifdef HAVE_SKYLINES_TRACKING_HANDLER
if (traffic_enabled && traffic_clock.CheckAdvance(basic.time, fixed(60)))
client.SendTrafficRequest(true, true);
#endif
}
