void MoveClient(unsigned int client, unsigned int targetBase)
{
// Ask that another plugin handle the beam.
CUSTOM_BASE_BEAM_STRUCT info;
info.iClientID = client;
info.iTargetBaseID = targetBase;
info.bBeamed = false;
Plugin_Communication(CUSTOM_BASE_BEAM, &info);
if (info.bBeamed)
return;
// No plugin handled it, do it ourselves.
unsigned int system;
pub::Player::GetSystem(client, system);
Universe::IBase* base = Universe::get_base(targetBase);
pub::Player::ForceLand(client, targetBase); // beam
// if not in the same system, emulate F1 charload
if (base->iSystemID != system)
{
Server.BaseEnter(targetBase, client);
Server.BaseExit(targetBase, client);
wstring wscCharFileName;
HkGetCharFileName(ARG_CLIENTID(client), wscCharFileName);
wscCharFileName += L".fl";
CHARACTER_ID cID;
strcpy(cID.szCharFilename, wstos(wscCharFileName.substr(0, 14)).c_str());
Server.CharacterSelect(cID, client);
}
}
/// Get online time.
HK_ERROR HkGetOnLineTime(const wstring &charname, int &iSecs)
{
wstring wscDir;
if(!HKHKSUCCESS(HkGetAccountDirName(charname, wscDir)))
return HKE_CHAR_DOES_NOT_EXIST;
wstring wscFile;
HkGetCharFileName(charname, wscFile);
string scCharFile = scAcctPath + wstos(wscDir) + "\\" + wstos(wscFile) + ".fl";
if (HkIsEncoded(scCharFile))
{
string scCharFileNew = scCharFile + ".ini";
if (!flc_decode(scCharFile.c_str(), scCharFileNew.c_str()))
return HKE_COULD_NOT_DECODE_CHARFILE;
iSecs = (int)IniGetF(scCharFileNew, "mPlayer", "total_time_played", 0.0f);
DeleteFile(scCharFileNew.c_str());
}
else
{
iSecs = (int)IniGetF(scCharFile, "mPlayer", "total_time_played", 0.0f);
}
return HKE_OK;
}
/* copy pasta from playercntl as to provide independance*/
string GetUserFilePath(const wstring &wscCharname, const string &scExtension)
{
// init variables
char szDataPath[MAX_PATH];
GetUserDataPath(szDataPath);
string scAcctPath = string(szDataPath) + "\\Accts\\MultiPlayer\\";
wstring wscDir;
wstring wscFile;
if (HkGetAccountDirName(wscCharname, wscDir) != HKE_OK)
return "";
if (HkGetCharFileName(wscCharname, wscFile) != HKE_OK)
return "";
return scAcctPath + wstos(wscDir) + "\\" + wstos(wscFile) + scExtension;
}
/**
Determine the path name of a file in the charname account directory with the
provided extension. The resulting path is returned in the path parameter.
*/
string GetUserFilePath(const wstring &charname)
{
// init variables
char datapath[MAX_PATH];
GetUserDataPath(datapath);
string scAcctPath = string(datapath) + "\\Accts\\MultiPlayer\\";
wstring wscDir;
wstring wscFile;
if (HkGetAccountDirName(charname, wscDir)!=HKE_OK)
return "";
if (HkGetCharFileName(charname, wscFile)!=HKE_OK)
return "";
return scAcctPath + wstos(wscDir) + "\\" + wstos(wscFile) + ".fl";
}
void LoadUserCharSettings(uint iClientID)
{
CAccount *acc = Players.FindAccountFromClientID(iClientID);
wstring wscDir;
HkGetAccountDirName(acc, wscDir);
string scUserFile = scAcctPath + wstos(wscDir) + "\\flhookuser.ini";
// read autobuy
wstring wscFilename;
HkGetCharFileName(ARG_CLIENTID(iClientID), wscFilename);
string scSection = "autobuy_" + wstos(wscFilename);
ClientInfo[iClientID].bAutoBuyMissiles = IniGetB(scUserFile, scSection, "missiles", false);
ClientInfo[iClientID].bAutoBuyMines = IniGetB(scUserFile, scSection, "mines", false);
ClientInfo[iClientID].bAutoBuyTorps = IniGetB(scUserFile, scSection, "torps", false);
ClientInfo[iClientID].bAutoBuyCD = IniGetB(scUserFile, scSection, "cd", false);
ClientInfo[iClientID].bAutoBuyCM = IniGetB(scUserFile, scSection, "cm", false);
ClientInfo[iClientID].bAutoBuyReload = IniGetB(scUserFile, scSection, "reload", false);
CALL_PLUGINS(PLUGIN_LoadUserCharSettings,(iClientID));
}
/**
Move a character from a remote account into this one.
*/
bool Rename::UserCmd_MoveChar(uint iClientID, const wstring &wscCmd, const wstring &wscParam, const wchar_t *usage)
{
HK_ERROR err;
// Don't indicate an error if moving is disabled.
if (!set_bEnableMoveChar)
return false;
// Indicate an error if the command does not appear to be formatted correctly
// and stop processing but tell FLHook that we processed the command.
if (wscParam.size()==0)
{
PrintUserCmdText(iClientID, L"ERR Invalid parameters");
PrintUserCmdText(iClientID, usage);
return true;
}
uint iBaseID;
pub::Player::GetBase(iClientID, iBaseID);
if (!iBaseID)
{
PrintUserCmdText(iClientID, L"ERR Not in base");
return true;
}
// Get the target account directory.
string scFile;
wstring wscMovingCharname = Trim(GetParam(wscParam, L' ', 0));
if (!GetUserFilePath(scFile, wscMovingCharname, "-movechar.ini"))
{
PrintUserCmdText(iClientID, L"ERR Character does not exist");
return true;
}
// Check the move char code.
wstring wscCode = Trim(GetParam(wscParam, L' ', 1));
wstring wscTargetCode = IniGetWS(scFile, "Settings", "Code", L"");
if (!wscTargetCode.length() || wscTargetCode!=wscCode)
{
PrintUserCmdText(iClientID, L"ERR Move character access denied");
return true;
}
// Get the character name for this connection.
wstring wscCharname = (const wchar_t*)Players.GetActiveCharacterName(iClientID);
for (map<wstring, LockedShipsStruct>::iterator i = MapLockedShips.begin(); i != MapLockedShips.end(); ++i)
{
if ((i->first == wscMovingCharname) && (i->second.LockLevel > 0))
{
PrintUserCmdText(iClientID, L"ERR This ship is locked. The FBI has been notified.");
wstring spurdoip;
HkGetPlayerIP(iClientID, spurdoip);
AddLog("SHIPLOCK: Attempt to movechar locked ship %s from IP %s", wstos(wscMovingCharname).c_str(), wstos(spurdoip).c_str());
ConPrint(L"SHIPLOCK: Attempt to movechar locked ship %s from IP %s\n", wscMovingCharname.c_str(), spurdoip.c_str());
return true;
}
}
// Prevent ships from banned accounts from being moved.
if (IsBanned(wscMovingCharname))
{
PrintUserCmdText(iClientID, L"ERR not permitted");
return true;
}
// Saving the characters forces an anti-cheat checks and fixes
// up a multitude of other problems.
HkSaveChar(wscCharname);
HkSaveChar(wscMovingCharname);
// Read the current number of credits for the player
// and check that the character has enough cash.
int iCash = 0;
if ((err = HkGetCash(wscCharname, iCash)) != HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
if (set_iMoveCost>0 && iCash<set_iMoveCost)
{
PrintUserCmdText(iClientID, L"ERR Insufficient credits");
return true;
}
// Check there is room in this account.
CAccount *acc=Players.FindAccountFromClientID(iClientID);
if (acc->iNumberOfCharacters >= 7)
{
PrintUserCmdText(iClientID, L"ERR Too many characters in account");
return true;
}
// Copy character file into this account with a temp name.
char szDataPath[MAX_PATH];
GetUserDataPath(szDataPath);
string scAcctPath = string(szDataPath) + "\\Accts\\MultiPlayer\\";
wstring wscDir;
wstring wscSourceDir;
wstring wscSourceFile;
if ((err = HkGetAccountDirName(wscCharname, wscDir))!=HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
if ((err = HkGetAccountDirName(wscMovingCharname, wscSourceDir))!=HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
if ((err = HkGetCharFileName(wscMovingCharname, wscSourceFile))!=HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
// Remove cash if we're charging for it.
if (set_iMoveCost>0)
HkAddCash(wscCharname, 0-set_iMoveCost);
HkSaveChar(wscCharname);
// Schedule the move
MOVE o;
o.wscDestinationCharname = wscCharname;
o.wscMovingCharname = wscMovingCharname;
o.scSourceFile = scAcctPath + wstos(wscSourceDir) + "\\" + wstos(wscSourceFile) + ".fl";
o.scDestFile = scAcctPath + wstos(wscDir) + "\\" + wstos(wscSourceFile) + ".fl";
o.scDestFileTemp = scAcctPath + wstos(wscDir) + "\\" + wstos(wscSourceFile) + ".fl.moving";
pendingMoves.push_back(o);
// Delete the move code
::DeleteFileA(scFile.c_str());
// Kick
HkKickReason(o.wscDestinationCharname, L"Moving character, please wait 10 seconds before reconnecting");
HkKickReason(o.wscMovingCharname, L"Moving character, please wait 10 seconds before reconnecting");
return true;
}
bool UserCmd_RenameMe(uint iClientID, const wstring &wscCmd, const wstring &wscParam, const wchar_t *usage)
{
HK_ERROR err;
// Don't indicate an error if moving is disabled.
if (!set_bEnableRenameMe)
return false;
// Indicate an error if the command does not appear to be formatted correctly
// and stop processing but tell FLHook that we processed the command.
if (wscParam.size()==0)
{
PrintUserCmdText(iClientID, L"ERR Invalid parameters");
PrintUserCmdText(iClientID, usage);
return true;
}
uint iBaseID;
pub::Player::GetBase(iClientID, iBaseID);
if (!iBaseID)
{
PrintUserCmdText(iClientID, L"ERR Not in base");
return true;
}
// If the new name contains spaces then flag this as an
// error.
wstring wscNewCharname = Trim(GetParam(wscParam, L' ', 0));
// Get the character name for this connection.
wstring wscCharname = (const wchar_t*)Players.GetActiveCharacterName(iClientID);
for (map<wstring, LockedShipsStruct>::iterator i = MapLockedShips.begin(); i != MapLockedShips.end(); ++i)
{
if ((i->first == wscCharname) && (i->second.LockLevel > 0))
{
PrintUserCmdText(iClientID, L"ERR This ship is locked. The FBI has been notified.");
wstring spurdoip;
HkGetPlayerIP(iClientID, spurdoip);
AddLog("SHIPLOCK: Attempt to rename locked ship %s from IP %s", wstos(wscCharname).c_str(), wstos(spurdoip).c_str());
ConPrint(L"SHIPLOCK: Attempt to rename locked ship %s from IP %s\n", wscCharname.c_str(), spurdoip.c_str());
return true;
}
}
if (wscNewCharname.find(L" ")!=-1)
{
PrintUserCmdText(iClientID, L"ERR Space characters not allowed in name");
return true;
}
if (HkGetAccountByCharname(wscNewCharname))
{
PrintUserCmdText(iClientID, L"ERR Name already exists");
return true;
}
if (wscNewCharname.length() > 23)
{
PrintUserCmdText(iClientID, L"ERR Name to long");
return true;
}
if (wscNewCharname.length() < MIN_CHAR_TAG_LEN)
{
PrintUserCmdText(iClientID, L"ERR Name to short");
return true;
}
if (set_bCharnameTags)
{
wstring wscPassword = Trim(GetParam(wscParam, L' ', 1));
for (std::map<wstring, TAG_DATA>::iterator i = mapTagToPassword.begin(); i != mapTagToPassword.end(); ++i)
{
if (wscNewCharname.find(i->first)==0
&& i->second.rename_password.size() != 0)
{
if (!wscPassword.length())
{
PrintUserCmdText(iClientID, L"ERR Name starts with an owned tag. Password is required.");
return true;
}
else if (wscPassword != i->second.master_password
&& wscPassword != i->second.rename_password)
{
PrintUserCmdText(iClientID, L"ERR Name starts with an owned tag. Password is wrong.");
return true;
}
// Password is valid for owned tag.
break;
}
}
}
// Saving the characters forces an anti-cheat checks and fixes
// up a multitude of other problems.
HkSaveChar(wscCharname);
if (!HkIsValidClientID(iClientID))
return true;
// Read the current number of credits for the player
// and check that the character has enough cash.
int iCash = 0;
if ((err = HkGetCash(wscCharname, iCash)) != HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
if (set_iRenameCost>0 && iCash<set_iRenameCost)
{
PrintUserCmdText(iClientID, L"ERR Insufficient credits");
return true;
}
// Read the last time a rename was done on this character
wstring wscDir;
if ((err = HkGetAccountDirName(wscCharname, wscDir))!=HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
string scRenameFile = scAcctPath + wstos(wscDir) + "\\" + "rename.ini";
int lastRenameTime = IniGetI(scRenameFile, "General", wstos(wscCharname), 0);
// If a rename was done recently by this player then reject the request.
// I know that time() returns time_t...shouldn't matter for a few years
// yet.
if ((lastRenameTime + 300) < (int)time(0))
{
if ((lastRenameTime + set_iRenameTimeLimit) > (int)time(0))
{
PrintUserCmdText(iClientID, L"ERR Rename time limit");
return true;
}
}
char szDataPath[MAX_PATH];
GetUserDataPath(szDataPath);
string scAcctPath = string(szDataPath) + "\\Accts\\MultiPlayer\\";
wstring wscSourceFile;
if ((err = HkGetCharFileName(wscCharname, wscSourceFile))!=HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
wstring wscDestFile;
if ((err = HkGetCharFileName(wscNewCharname, wscDestFile))!=HKE_OK)
{
PrintUserCmdText(iClientID, L"ERR "+HkErrGetText(err));
return true;
}
// Remove cash if we're charging for it.
if (set_iRenameCost>0)
HkAddCash(wscCharname, 0-set_iRenameCost);
RENAME o;
o.wscCharname = wscCharname;
o.wscNewCharname = wscNewCharname;
o.scSourceFile = scAcctPath + wstos(wscDir) + "\\" + wstos(wscSourceFile) + ".fl";
o.scDestFile = scAcctPath + wstos(wscDir) + "\\" + wstos(wscDestFile) + ".fl";
o.scDestFileTemp = scAcctPath + wstos(wscDir) + "\\" + wstos(wscSourceFile) + ".fl.renaming";
pendingRenames.push_back(o);
HkKickReason(o.wscCharname, L"Updating character, please wait 10 seconds before reconnecting");
IniWrite(scRenameFile, "General", wstos(o.wscNewCharname), itos((int)time(0)));
return true;
}
