Jaysyn/REO-EE
Jaysyn/REO-EE
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
REO-EE/_module/nss/fky_chat_dm_comm.nss
Jaysyn904 f82740bbbd Initial commit 
Initial commit
2024-02-22 13:22:03 -05:00

1797 lines
132 KiB
Plaintext
Raw Permalink Blame History

//::////////////////////////////////////////////////////////////////////////:://
//:: SIMTools V3.0 Speech Integration & Management Tools Version 3.0 :://
//:: Created By: FunkySwerve :://
//:: Created On: April 4 2006 :://
//:: Last Updated: March 27 2007 :://
//:: With Thanks To: :://
//:: Dumbo - for his amazing plugin :://
//:: Virusman - for Linux versions, and for the reset plugin, and for :://
//:: his excellent events plugin, without which this update would not :://
//:: be possible :://
//:: Dazzle - for his script samples :://
//:: Butch - for the emote wand scripts :://
//:: The DMFI project - for the languages conversions and many of the emotes:://
//:: Lanessar and the players of the Myth Drannor PW - for the new languages:://
//:: The players and DMs of Higher Ground for their input and playtesting :://
//::////////////////////////////////////////////////////////////////////////:://
#include "fky_chat_inc"
void main ()
{
object oDMPC = OBJECT_SELF;
object oDMTarget = GetLocalObject(oDMPC, "FKY_CHAT_DMSHUNT_TARGET");
string sDMText = GetLocalString(oDMPC, "FKY_CHAT_DMSHUNT_TEXT");
DeleteLocalObject(oDMPC, "FKY_CHAT_DMSHUNT_TARGET");
DeleteLocalString(oDMPC, "FKY_CHAT_DMSHUNT_TEXT");
string sSort, sKey, sUppercase, sStore, sData, sRow, sReturn;
object oNewItem, oStorage;
effect eEffect;
int nText, nLang, nAppear, nColor, nRowCount;
location lLoc;
//this section is now handled earlier, with the other commands and channels
/*if (GetStringLowerCase(GetStringLeft(sDMText, 3)) == "dm_")//dm-only commands using tell targeting
{
if (VerifyDMKey(oDMPC) || VerifyAdminKey(oDMPC))//these commands are for DMs and Admins only
{*/
SetLocalString(oDMPC, "NWNX!CHAT!SUPRESS", "1");//don't want commands to show in text
sUppercase = GetStringRight(sDMText, GetStringLength(sDMText) - 3);
sDMText = GetStringLowerCase(sUppercase); //case insensitive
sSort = GetStringLeft(sDMText, 1);
nText = FindSubString("a b c f g h i j k l p r s t u v", sSort);
switch (nText) //0 2 4 6 8 1012141618202224262830
{
case -1: CommandRedirect(oDMPC, 11); break;
/*a*/ case 0:
if (GetStringLeft(sDMText, 6) == "align_")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
if (GetStringLeft(sDMText, 6) == "chaos ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
AdjustAlignment(oDMTarget, ALIGNMENT_CHAOTIC, StringToInt(sDMText));
FloatingTextStringOnCreature(COLOR_RED+ ALIGN1 + GetName(oDMTarget) + " " + sDMText + ALIGN2+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 5) == "evil ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 5);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
AdjustAlignment(oDMTarget, ALIGNMENT_EVIL, StringToInt(sDMText));
FloatingTextStringOnCreature(COLOR_RED+ ALIGN1 + GetName(oDMTarget) + " " + sDMText + ALIGN3+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 5) == "good ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 5);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
AdjustAlignment(oDMTarget, ALIGNMENT_GOOD, StringToInt(sDMText));
FloatingTextStringOnCreature(COLOR_RED+ ALIGN1 + GetName(oDMTarget) + " " + sDMText + ALIGN4+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 4) == "law ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
AdjustAlignment(oDMTarget, ALIGNMENT_LAWFUL, StringToInt(sDMText));
FloatingTextStringOnCreature(COLOR_RED+ ALIGN1 + GetName(oDMTarget) + " " + sDMText + ALIGN5+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else CommandRedirect(oDMPC, 14);
}
else if (GetStringLeft(sDMText, 2) == "al") CommandRedirect(oDMPC, 14);
else CommandRedirect(oDMPC, 11);
break;
/*b*/ case 2:
if (GetStringLeft(sDMText, 3) == "ban")
{
if (sDMText == "bandm")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
if ((VerifyDMKey(oDMTarget)) || (VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
FloatingTextStringOnCreature(COLOR_RED+NOBANDM+COLOR_END, oDMPC);
return;
}
SetLocalInt(oDMTarget, "FKY_CHT_BANDM", TRUE);//temp ban em
SendMessageToPC(oDMTarget, COLOR_RED+TEMPBANDM1+COLOR_END);//tell em
SendMessageToPC(oDMPC, COLOR_RED+TEMPBANGEN+ GetName(oDMTarget)+TEMPBANDM2+COLOR_END);
}
else if (sDMText == "banplayer_perm")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
if ((VerifyDMKey(oDMTarget)) || (VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
FloatingTextStringOnCreature(COLOR_RED+NOBANDM+COLOR_END, oDMPC);
return;
}
sKey = GetPCPublicCDKey(oDMTarget);
SetLocalInt(oDMTarget, "FKY_CHT_BANPLAYER", TRUE);//temp ban em
if (USING_NWNX_DB) SetPersistentInt(GetModule(), "FKY_CHT_BANPLAYER"+ sKey, TRUE);//permaban em
else SetCampaignInt("FKY_CHT", "FKY_CHT_BANPLAYER" + sKey, TRUE); //
FloatingTextStringOnCreature(COLOR_RED+PERMABAN1+COLOR_END, oDMTarget);//tell em
AssignCommand(GetModule(), DelayCommand(6.0, DoBoot(oDMTarget)));//boot em
SendMessageToPC(oDMPC, COLOR_RED+PERMABANGEN+ GetName(oDMTarget) +PERMABAN2+COLOR_END);
}
else if (sDMText == "banplayer_temp")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
if ((VerifyDMKey(oDMTarget)) || (VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
FloatingTextStringOnCreature(COLOR_RED+NOBANDM+COLOR_END, oDMPC);
return;
}
SetLocalInt(oDMTarget, "FKY_CHT_BANPLAYER", TRUE);//temp ban em
FloatingTextStringOnCreature(COLOR_RED+TEMPBAN+COLOR_END, oDMTarget);//tell em
AssignCommand(GetModule(), DelayCommand(6.0, DoBoot(oDMTarget)));//boot em
SendMessageToPC(oDMPC, COLOR_RED+TEMPBANGEN+GetName(oDMTarget) +TEMPBAN2+COLOR_END);
}
else if (sDMText == "banshout_temp")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
if ((VerifyDMKey(oDMTarget)) || (VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
FloatingTextStringOnCreature(COLOR_RED+NOBANDM+COLOR_END, oDMPC);
return;
}
SetLocalInt(oDMTarget, "FKY_CHT_BANSHOUT", TRUE);//temp ban em
SendMessageToPC(oDMTarget, COLOR_RED+TEMPBANSHT+COLOR_END);//tell em
SendMessageToPC(oDMPC, COLOR_RED+TEMPBANGEN+GetName(oDMTarget) +TEMPBANSHT2+COLOR_END);
if (GetLocalString(oDMTarget, "FKY_CHT_BANREASON") == "") SetLocalString(oDMTarget, "FKY_CHT_BANREASON", BANNEDBY + GetName(oDMPC));
}
else if (sDMText == "banshout_perm")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
if ((VerifyDMKey(oDMTarget)) || (VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
FloatingTextStringOnCreature(COLOR_RED+NOBANDM+COLOR_END, oDMPC);
return;
}
sKey = GetPCPublicCDKey(oDMTarget);
SetLocalInt(oDMTarget, "FKY_CHT_BANSHOUT", TRUE);//temp ban em
if (GetLocalString(oDMTarget, "FKY_CHT_BANREASON") == "") SetLocalString(oDMTarget, "FKY_CHT_BANREASON", BANNEDBY + GetName(oDMPC));
//capture the reason they were banned and by whom
if (USING_NWNX_DB) SetPersistentInt(GetModule(), "FKY_CHT_BANSHOUT"+ sKey, TRUE);//permaban em
else SetCampaignInt("FKY_CHT", "FKY_CHT_BANSHOUT" + sKey, TRUE); //
SendMessageToPC(oDMTarget, COLOR_RED+PERMBANSHT1+COLOR_END);//tell em
SendMessageToPC(oDMPC, COLOR_RED+PERMABANGEN+ GetName(oDMTarget) +PERMBANSHT2+COLOR_END);
}
else CommandRedirect(oDMPC, 16);
}
else if (GetStringLeft(sDMText, 2) == "ba") CommandRedirect(oDMPC, 16);
else if (sDMText == "boot")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase);
if (!GetIsObjectValid(oDMTarget)) return;
if ((VerifyDMKey(oDMTarget)) || (VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
FloatingTextStringOnCreature(COLOR_RED+NOBOOTDM+COLOR_END, oDMPC);
return;
}
DoBoot(oDMTarget);
FloatingTextStringOnCreature(COLOR_RED+BOOTED+GetName(oDMTarget)+ "!"+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 2) == "bo") CommandRedirect(oDMPC, 15);
else CommandRedirect(oDMPC, 11);
break;
/*c*/ case 4:
if (GetStringLeft(sDMText, 7) == "create ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
oNewItem = CreateItemOnObject(sDMText, oDMTarget);
if (GetIsObjectValid(oNewItem))
{
if (!GetIsPC(oDMTarget)) SetDroppableFlag(oNewItem, TRUE);//set to droppable so creature drops on death
SendMessageToPC(oDMPC, COLOR_RED+CREATE1+ GetName(oNewItem) +CREATE2+ GetName(oDMTarget) + "!"+COLOR_END);
}
else SendMessageToPC(oDMPC, COLOR_RED+CREATE3+COLOR_END);
}
else if (GetStringLeft(sDMText, 2) == "cr") CommandRedirect(oDMPC, 17);
else if (GetStringLeft(sDMText, 14) == "change_appear ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 14);
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if (GetIsPC(oDMTarget))
{
nAppear = GetLocalInt(oDMTarget, "FKY_CHAT_TRUEAPPEAR");
if (!nAppear)//if original appearance has not been stored
{
nAppear = GetAppearanceType(oDMTarget);
if (USING_NWNX_DB)//store the original appearance so it can be restored
{
SetLocalInt(oDMTarget, "FKY_CHAT_TRUEAPPEAR", nAppear);
SetPersistentInt(oDMTarget, "FKY_CHAT_TRUEAPPEAR", nAppear);
}
else if (ENABLE_LANGUAGES)
{
oStorage = GetItemPossessedBy(oDMTarget, TAG_OF_LANGUAGE_STORAGE_OBJECT);
SetLocalInt(oDMTarget, "FKY_CHAT_TRUEAPPEAR", nAppear);
SetLocalInt(oStorage, "FKY_CHAT_TRUEAPPEAR", nAppear);
ExportSingleCharacter(oDMTarget);
}
}
}
if ((VerifyDMKey(oDMTarget) || VerifyAdminKey(oDMTarget))&& (oDMTarget != oDMPC)) FloatingTextStringOnCreature(COLOR_RED+NO_DM_APPEAR+COLOR_END, oDMPC);
else
{
if (sDMText == "base")
{
if (GetIsPC(oDMTarget)) SetCreatureAppearanceType(oDMTarget, nAppear);
else FloatingTextStringOnCreature(COLOR_RED+NO_BASE_NPC+COLOR_END, oDMPC);
}
else
{
if (TestStringAgainstPattern("*n", sDMText))
{
SetCreatureAppearanceType(oDMTarget, StringToInt(sDMText));
FloatingTextStringOnCreature(COLOR_GREEN+APP_CHANGED+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
}
}
else if (GetStringLeft(sDMText, 2) == "ch") CommandRedirect(oDMPC, 13);
else CommandRedirect(oDMPC, 11);
break;
/*f*/ case 6:
if (GetStringLeft(sDMText, 4) == "fac_")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
sSort = GetStringLeft(sDMText, 2);
if (sSort == "a_")//area
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 2);
if (sDMText == "allally") {nText = 100; nLang = 100; nAppear = 100; nColor = 100;}//100 100 100 100
else if (sDMText == "allfoe") {nText = 0; nLang = 0; nAppear = 0; nColor = 0;} //0 0 0 0
else if (sDMText == "peace") {nText = 11; nLang = 50; nAppear = 91; nColor = 100;} //11 50 91 100
else if (sDMText == "reset") {nText = 0; nLang = 50; nAppear = 91; nColor = 100;}//0 50 91 100
else
{
CommandRedirect(oDMPC, 24);
return;
}
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
oNewItem = GetArea(oDMTarget);
oStorage = GetFirstObjectInArea(oNewItem);
while (GetIsObjectValid(oStorage))
{
if (GetObjectType(oStorage) == OBJECT_TYPE_CREATURE)
{
SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, nText, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, nLang, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_COMMONER, nAppear, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, nColor, oStorage);
}
oStorage = GetNextObjectInArea(oNewItem);
}
FloatingTextStringOnCreature(COLOR_RED+FACTION_REP+COLOR_END, oDMPC, FALSE);
}
else if (sSort == "c_")//character
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 2);
if (sDMText == "allally") {nText = 100; nLang = 100; nAppear = 100; nColor = 100;}//100 100 100 100
else if (sDMText == "allfoe") {nText = 0; nLang = 0; nAppear = 0; nColor = 0;} //0 0 0 0
else if (sDMText == "peace") {nText = 11; nLang = 50; nAppear = 91; nColor = 100;} //11 50 91 100
else if (sDMText == "reset") {nText = 0; nLang = 50; nAppear = 91; nColor = 100;}//0 50 91 100
else
{
CommandRedirect(oDMPC, 24);
return;
}
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, nText, oDMTarget);
SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, nLang, oDMTarget);
SetStandardFactionReputation(STANDARD_FACTION_COMMONER, nAppear, oDMTarget);
SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, nColor, oDMTarget);
FloatingTextStringOnCreature(COLOR_RED+FACTION_REP+COLOR_END, oDMPC, FALSE);
}
else if (sSort == "m_")//monsters (all in area not pc)
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 2);
if (sDMText == "allally") {nText = 100; nLang = 100; nAppear = 100; nColor = 100;}//100 100 100 100
else if (sDMText == "allfoe") {nText = 0; nLang = 0; nAppear = 0; nColor = 0;} //0 0 0 0
else if (sDMText == "peace") {nText = 11; nLang = 50; nAppear = 91; nColor = 100;} //11 50 91 100
else if (sDMText == "reset") {nText = 0; nLang = 50; nAppear = 91; nColor = 100;}//0 50 91 100
else
{
CommandRedirect(oDMPC, 24);
return;
}
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
oNewItem = GetArea(oDMTarget);
oStorage = GetFirstObjectInArea(oNewItem);
while (GetIsObjectValid(oStorage))
{
if ((GetObjectType(oStorage) == OBJECT_TYPE_CREATURE) && (!GetIsPC(oStorage)))
{
SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, nText, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, nLang, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_COMMONER, nAppear, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, nColor, oStorage);
}
oStorage = GetNextObjectInArea(oNewItem);
}
FloatingTextStringOnCreature(COLOR_RED+FACTION_REP+COLOR_END, oDMPC, FALSE);
}
else if (sSort == "p_")//party
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 2);
if (sDMText == "allally") {nText = 100; nLang = 100; nAppear = 100; nColor = 100;}//100 100 100 100
else if (sDMText == "allfoe") {nText = 0; nLang = 0; nAppear = 0; nColor = 0;} //0 0 0 0
else if (sDMText == "peace") {nText = 11; nLang = 50; nAppear = 91; nColor = 100;} //11 50 91 100
else if (sDMText == "reset") {nText = 0; nLang = 50; nAppear = 91; nColor = 100;}//0 50 91 100
else
{
CommandRedirect(oDMPC, 24);
return;
}
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, nText, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, nLang, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_COMMONER, nAppear, oStorage);
SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, nColor, oStorage);
oStorage = GetNextFactionMember(oDMTarget);
}
FloatingTextStringOnCreature(COLOR_RED+FACTION_REP+COLOR_END, oDMPC, FALSE);
}
else CommandRedirect(oDMPC, 24);
}
else if (GetStringLeft(sDMText, 2) == "fa") CommandRedirect(oDMPC, 24);
else if (sDMText == "freeze")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)))//these commands may not be used on dms
{
SetCommandable(FALSE, oDMTarget);
SendMessageToPC(oDMTarget, COLOR_RED+FREEZE1+COLOR_END);
SendMessageToPC(oDMPC, COLOR_RED+FREEZE2+ GetName(oDMTarget) + "!"+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+FREEZE3+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 2) == "fr") CommandRedirect(oDMPC, 15);
else if (GetStringLeft(sDMText, 2) == "fx")
{
if (GetStringLeft(sDMText, 3) == "fx ")
{
sDMText = GetStringLowerCase(GetStringRight(sDMText, GetStringLength(sDMText) - 3));
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
AssignCommand(oDMPC, DoVFX(oDMPC, sDMText, oDMTarget));//assigncommand ensures DM is creator
}
else if (GetStringLeft(sDMText, 7) == "fx_loc ")
{
lLoc = VerifyLocation(oDMPC, sUppercase);
if (!GetIsObjectValid(GetAreaFromLocation(lLoc))) return;
sDMText = GetStringLowerCase(GetStringRight(sDMText, GetStringLength(sDMText) - 7));
AssignCommand(oDMPC, DoVFX(oDMPC, sDMText, oDMTarget, TRUE));//assigncommand ensures DM is creator
}
else if (sDMText == "fx_rem")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
eEffect = GetFirstEffect(oDMTarget);
while (GetIsEffectValid(eEffect))
{
if (((GetEffectType(eEffect) == EFFECT_TYPE_VISUALEFFECT) || (GetEffectType(eEffect) == EFFECT_TYPE_BEAM)) && (GetEffectCreator(eEffect) == oDMPC))
{
DelayCommand(0.1, RemoveEffect(oDMTarget, eEffect));
}
eEffect = GetNextEffect(oDMTarget);
}
}
else if (GetStringLeft(sDMText, 8) == "fx_list_") // dur, bea, eye, imp, com, fnf
{
sDMText = GetStringLowerCase(GetStringRight(sDMText, GetStringLength(sDMText) - 8));
if (sDMText == "dur" || sDMText == "bea" || sDMText == "eye" || sDMText == "imp" || sDMText == "com" || sDMText == "fnf") ListFX(oDMPC, sDMText);
else CommandRedirect(oDMPC, 25);
}
else CommandRedirect(oDMPC, 25);
}
else CommandRedirect(oDMPC, 11);
break;
/*g*/ case 8:
if (GetStringLeft(sDMText, 6) == "getban")
{
if (sDMText == "getbanlist") GetBanList(oDMPC);
else if (sDMText == "getbanreason")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
sKey = GetLocalString(oDMTarget, "FKY_CHT_BANREASON");
if (sKey == "") SendMessageToPC(oDMPC, COLOR_RED+BANREASON1+COLOR_END);
else SendMessageToPC(oDMPC, COLOR_RED+BANREASON2+ sKey + COLOR_END);
}
else CommandRedirect(oDMPC, 16);
}
else if (GetStringLeft(sDMText, 4) == "getb") CommandRedirect(oDMPC, 16);
else if (GetStringLeft(sDMText, 6) == "getvar")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
sStore = GetStringRight(sUppercase, GetStringLength(sUppercase) - 6);
if (GetStringLeft(sDMText, 4) == "int ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 4);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
nLang = GetLocalInt(oDMTarget, sStore);
FloatingTextStringOnCreature(COLOR_GREEN+VARINT1+sStore+VARINT2+IntToString(nLang)+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_VAR_SPACE+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 6) == "float ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 6);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
FloatingTextStringOnCreature(COLOR_GREEN+VARINT3+sStore+VARINT2+FloatToString(GetLocalFloat(oDMTarget, sStore))+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_VAR_SPACE+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 7) == "string ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 7);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
FloatingTextStringOnCreature(COLOR_GREEN+VARINT4+sStore+VARINT2+GetLocalString(oDMTarget, sStore)+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_VAR_SPACE+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 3) == "mod")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 3);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 3);
if (GetStringLeft(sDMText, 4) == "int ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 4);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
nLang = GetLocalInt(GetModule(), sStore);
FloatingTextStringOnCreature(COLOR_GREEN+VARINT1+sStore+VARINT2+IntToString(nLang)+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_VAR_SPACE+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 6) == "float ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 6);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
FloatingTextStringOnCreature(COLOR_GREEN+VARINT3+sStore+VARINT2+FloatToString(GetLocalFloat(GetModule(), sStore))+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_VAR_SPACE+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 7) == "string ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 7);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
FloatingTextStringOnCreature(COLOR_GREEN+VARINT4+sStore+VARINT2+GetLocalString(GetModule(), sStore)+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_VAR_SPACE+COLOR_END, oDMPC);
}
else CommandRedirect(oDMPC, 22);
}
else CommandRedirect(oDMPC, 22);
}
else if (GetStringLeft(sDMText, 4) == "getv") CommandRedirect(oDMPC, 22);
else if (GetStringLeft(sDMText, 4) == "give")
{
if (GetStringLeft(sDMText, 7) == "givexp ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
GiveXPToCreature(oDMTarget, StringToInt(sDMText));
SendMessageToPC(oDMPC, COLOR_RED+XP1+ IntToString(StringToInt(sDMText))+XP2+GetName(oDMTarget) + "!"+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 10) == "givelevel ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 10);
if (TestStringAgainstPattern("*n", sDMText))
{
nColor = StringToInt(sDMText);
if (nColor == 1) sStore = XP12;
else sStore = XP13;
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
GiveLevel(oDMTarget, oDMPC, nColor);
SendMessageToPC(oDMPC, COLOR_RED+XP1+ IntToString(nColor)+sStore+GetName(oDMTarget) + "!"+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 12) == "givepartyxp ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 12);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
GiveXPToCreature(oStorage, StringToInt(sDMText));
oStorage = GetNextFactionMember(oDMTarget);
}
SendMessageToPC(oDMPC, COLOR_RED+XP1+ IntToString(StringToInt(sDMText))+XP2+GetName(oDMTarget) + XP11+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 15) == "givepartylevel ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 15);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstFactionMember(oDMTarget);
nColor = StringToInt(sDMText);
if (nColor == 1) sStore = XP12;
else sStore = XP13;
while (GetIsObjectValid(oStorage))
{
GiveLevel(oStorage, oDMPC, nColor, FALSE);//function has built-in message to each, FALSE stops it
oStorage = GetNextFactionMember(oDMTarget);
}
SendMessageToPC(oDMPC, COLOR_RED+XP1+ IntToString(StringToInt(sDMText))+sStore+GetName(oDMTarget) + XP11+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else CommandRedirect(oDMPC, 19);
}
else if (GetStringLeft(sDMText, 2) == "gi") CommandRedirect(oDMPC, 19);
else CommandRedirect(oDMPC, 11);
break;
/*h*/ case 10:
if (sDMText == "hide")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
ExploreAreaForPlayer(GetArea(oDMTarget), oDMTarget, FALSE);
FloatingTextStringOnCreature(COLOR_RED+EXPLORE2+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 2) == "hi") CommandRedirect(oDMPC, 20);
else if (sDMText == "help") ListDMHelp(oDMPC);
else if (GetStringLeft(sDMText, 2) == "he") CommandRedirect(oDMPC, 26);
else CommandRedirect(oDMPC, 11);
break;
/*i*/ case 12:
if (GetStringLeft(sDMText, 2) == "ig")
{
if (sDMText == "ignoredm")
{
if ((DM_PLAYERS_HEAR_DM && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_PLAYERS_HEAR_DM && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC))))
{
SetLocalInt(oDMPC, "FKY_CHT_IGNOREDM", TRUE);//they will not receive dm messages
SendMessageToPC(oDMPC, COLOR_RED+IGNORED+COLOR_END);
}
else CommandRedirect(oDMPC, 11);
}
else if (sDMText == "ignoremeta")
{
if ((DMS_HEAR_META && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_META && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_META && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_META && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC))))
{
SetLocalInt(oDMPC, "FKY_CHT_IGNOREMETA", TRUE);//they will not receive dm messages
SendMessageToPC(oDMPC, COLOR_RED+IGNOREM+COLOR_END);
}
else CommandRedirect(oDMPC, 11);
}
else if (sDMText == "ignoretells")
{
if ((DMS_HEAR_TELLS && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_TELLS && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_TELLS && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_TELLS && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC))))
{
SetLocalInt(oDMPC, "FKY_CHT_IGNORETELLS", TRUE);//they will not receive tells
SendMessageToPC(oDMPC, COLOR_RED+IGNORET+COLOR_END);
}
else CommandRedirect(oDMPC, 11);
}
else if ( ((DM_PLAYERS_HEAR_DM && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_PLAYERS_HEAR_DM && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC)))) ||
((DMS_HEAR_META && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_META && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_META && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_META && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC)))) ||
((DMS_HEAR_TELLS && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_TELLS && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_TELLS && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_TELLS && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC)))) ) CommandRedirect(oDMPC, 27);
else CommandRedirect(oDMPC, 11);
}
else if (sDMText == "invis")
{
AssignCommand(GetModule(), DoDMInvis(oDMPC));
SendMessageToPC(oDMPC, COLOR_RED+INVIS+COLOR_END);
}
else if (sDMText == "invuln")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
SetPlotFlag(oDMTarget, TRUE);
if (oDMTarget == oDMPC) SendMessageToPC(oDMPC, COLOR_RED+INVUL1+COLOR_END);
else
{
SendMessageToPC(oDMPC, COLOR_RED + GetName(oDMTarget) +INVUL2+COLOR_END);
if (GetIsPC(oDMPC)) SendMessageToPC(oDMTarget, COLOR_RED+INVUL1+COLOR_END);
}
}
else if (GetStringLeft(sDMText, 2) == "in") CommandRedirect(oDMPC, 15);
else if (GetStringLeft(sDMText, 5) == "item_")//id, destroy
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 5);
if (sDMText == "id")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstItemInInventory(oDMTarget);
while (GetIsObjectValid(oStorage))
{
SetIdentified(oStorage, TRUE);
oStorage = GetNextItemInInventory(oDMTarget);
}
FloatingTextStringOnCreature(COLOR_RED+ITEM_ID+GetName(oDMTarget)+ITEM_END+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 8) == "destroy_")
{
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 8);
if (sDMText == "all")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
for (nAppear = 0; nAppear < 14; nAppear++)//destroy all but skin/creature weaps
{
oStorage = GetItemInSlot(nAppear, oDMTarget);
DestroyObject(oStorage, 0.1);
}
oStorage = GetFirstItemInInventory(oDMTarget);
while (GetIsObjectValid(oStorage))
{
DestroyObject(oStorage, 0.1);
oStorage = GetNextItemInInventory(oDMTarget);
}
FloatingTextStringOnCreature(COLOR_RED+ITEM_DESTROY+GetName(oDMTarget)+ITEM_END+COLOR_END, oDMPC, FALSE);
}
else if (sDMText == "equip")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
for (nAppear = 0; nAppear < 14; nAppear++)//destroy all but skin/creature weaps
{
oStorage = GetItemInSlot(nAppear, oDMTarget);
DestroyObject(oStorage, 0.1);
}
FloatingTextStringOnCreature(COLOR_RED+ITEM_DESTROY+GetName(oDMTarget)+ITEM_END3+COLOR_END, oDMPC, FALSE);
}
else if (sDMText == "inv")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstItemInInventory(oDMTarget);
while (GetIsObjectValid(oStorage))
{
DestroyObject(oStorage, 0.1);
oStorage = GetNextItemInInventory(oDMTarget);
}
FloatingTextStringOnCreature(COLOR_RED+ITEM_DESTROY+GetName(oDMTarget)+ITEM_END2+COLOR_END, oDMPC, FALSE);
}
else CommandRedirect(oDMPC, 17);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
else CommandRedirect(oDMPC, 17);
}
else if (GetStringLeft(sDMText, 2) == "it") CommandRedirect(oDMPC, 17);
else CommandRedirect(oDMPC, 11);
break;
/*j*/ case 14:
if (sDMText == "jump")
{
lLoc = VerifyLocation(oDMPC, sUppercase);
if (!GetIsObjectValid(GetAreaFromLocation(lLoc))) return;
DeleteLocalLocation(oDMPC, "FKY_CHAT_LOCATION");
AssignCommand(oDMPC, JumpSafeToLocation(lLoc));
}
else if (GetStringLeft(sDMText, 2) == "ju") CommandRedirect(oDMPC, 18);
else CommandRedirect(oDMPC, 11);
break;
/*k*/ case 16:
if (sDMText == "kill")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)))//this command may not be used on dms or admins
{
SetPlotFlag(oDMTarget, FALSE);
ApplyEffectToObject(0, SupernaturalEffect(EffectDeath()), oDMTarget);
SendMessageToPC(oDMPC, COLOR_RED + GetName(oDMTarget)+KILL1+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+KILL2+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 2) == "ki") CommandRedirect(oDMPC, 15);
else CommandRedirect(oDMPC, 11);
break;
/*l*/ case 18:
if (sDMText == "listcommands") ListDMCommands(oDMPC);
else if (GetStringLeft(sDMText, 2) == "li") CommandRedirect(oDMPC, 26);
else if (ENABLE_LANGUAGES && (GetStringLeft(sDMText, 6) == "learn "))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
nLang = GetLanguageNumber(sDMText);
if (nLang == -1) FloatingTextStringOnCreature(COLOR_RED+LANG1+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (USING_NWNX_DB)
{
SetLocalInt(oDMTarget, "FKY_CHAT_LANG"+IntToString(nLang), TRUE);
SetPersistentInt(oDMTarget, "FKY_CHAT_LANG"+IntToString(nLang), TRUE);
}
else
{
oStorage = GetItemPossessedBy(oDMTarget, TAG_OF_LANGUAGE_STORAGE_OBJECT);
SetLocalInt(oDMTarget, "FKY_CHAT_LANG"+IntToString(nLang), TRUE);
SetLocalInt(oStorage, "FKY_CHAT_LANG"+IntToString(nLang), TRUE);
ExportSingleCharacter(oDMTarget);
}
FloatingTextStringOnCreature(COLOR_RED+LANG2+GetName(oDMTarget)+" "+GetNameOfLanguage(nLang)+"."+COLOR_END, oDMPC, FALSE);
}
}
else if (ENABLE_LANGUAGES && (GetStringLeft(sDMText, 2) == "le")) CommandRedirect(oDMPC, 26);
else CommandRedirect(oDMPC, 11);
break;
/*p*/ case 20:
if (GetStringLowerCase(GetStringLeft(sDMText, 4)) == "port")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
if (GetStringLowerCase(GetStringLeft(sDMText, 5)) == "party")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 5);
nText = FindSubString("here hell jail leader there town", sDMText);
switch(nText) //0 5 10 15 22 28
{
case -1:
if (GetStringLowerCase(GetStringLeft(sDMText, 4)) == "way ")
{
sDMText = GetStringRight(sUppercase, GetStringLength(sUppercase) - 13);
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
lLoc = GetLocation(GetWaypointByTag(sDMText));
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
AssignCommand(oStorage, JumpSafeToLocation(lLoc));
oStorage = GetNextFactionMember(oDMTarget);
}
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
else CommandRedirect(oDMPC, 18);
break;
case 0:
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
if (oStorage != oDMPC) AssignCommand(oStorage, JumpSafeToObject(oDMPC));
oStorage = GetNextFactionMember(oDMTarget);
}
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 5:
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
lLoc = GetLocation(GetWaypointByTag(LOCATION_HELL));
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
AssignCommand(oStorage, JumpSafeToLocation(lLoc));
oStorage = GetNextFactionMember(oDMTarget);
}
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 10:
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
lLoc = GetLocation(GetWaypointByTag(LOCATION_JAIL));
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
AssignCommand(oStorage, JumpSafeToLocation(lLoc));
oStorage = GetNextFactionMember(oDMTarget);
}
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 15:
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
if (GetFactionLeader(oDMTarget) != oStorage) AssignCommand(oStorage, JumpSafeToObject(GetFactionLeader(oDMTarget)));
oStorage = GetNextFactionMember(oDMTarget);
}
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 22:
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstFactionMember(oDMPC);
while (GetIsObjectValid(oStorage))
{
if (oDMTarget != oStorage) AssignCommand(oStorage, JumpSafeToObject(oDMTarget));
oStorage = GetNextFactionMember(oDMPC);
}
break;
case 28:
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
lLoc = GetLocation(GetWaypointByTag(LOCATION_TOWN));
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
AssignCommand(oStorage, JumpSafeToLocation(lLoc));
oStorage = GetNextFactionMember(oDMTarget);
}
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
}
}
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
nText = FindSubString("here hell jail leader there town", sDMText);
switch(nText) //0 5 10 15 22 28
{
case -1:
if (GetStringLowerCase(GetStringLeft(sDMText, 4)) == "way ")
{
sDMText = GetStringRight(sUppercase, GetStringLength(sUppercase) - 8);
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
lLoc = GetLocation(GetWaypointByTag(sDMText));
AssignCommand(oDMTarget, JumpSafeToLocation(lLoc));
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
else CommandRedirect(oDMPC, 18);
break;
case 0:
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC)) AssignCommand(oDMTarget, JumpSafeToObject(oDMPC));
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 5:
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC)) AssignCommand(oDMTarget, JumpSafeToLocation(GetLocation(GetWaypointByTag(LOCATION_HELL))));
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 10:
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC)) AssignCommand(oDMTarget, JumpSafeToLocation(GetLocation(GetWaypointByTag(LOCATION_JAIL))));
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 15:
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC)) AssignCommand(oDMTarget, JumpSafeToObject(GetFactionLeader(oDMTarget)));
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
case 22: AssignCommand(oDMPC, JumpSafeToObject(oDMTarget)); break;
case 28:
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC)) AssignCommand(oDMTarget, JumpSafeToLocation(GetLocation(GetWaypointByTag(LOCATION_TOWN))));
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
break;
}
}
}
else if (GetStringLeft(sDMText, 2) == "po") CommandRedirect(oDMPC, 18);
else CommandRedirect(oDMPC, 11);
break;
/*r*/ case 22:
if (sDMText == "rez")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if (((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget))) || (oDMTarget == oDMPC))
{
ApplyEffectToObject(0, EffectResurrection(), oDMTarget);
ApplyEffectToObject(0, EffectHeal(GetMaxHitPoints(oDMTarget)- GetCurrentHitPoints(oDMTarget)), oDMTarget);
FloatingTextStringOnCreature(COLOR_RED + GetName(oDMTarget)+DMREZ+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
else if (sDMText == "reset_mod")
{
DelayCommand(1.0, SetLocalString(GetModule(), "NWNX!RESETPLUGIN!SHUTDOWN", "1"));//this line is the entire nwscriptside of the reset plugin
}
else if (GetStringLeft(sDMText, 4) == "rese") CommandRedirect(oDMPC, 20);
else if (sDMText == "rest")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC)) ForceRest(oDMTarget);
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 3) == "res") CommandRedirect(oDMPC, 15);
else if (sDMText == "reveal")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
ExploreAreaForPlayer(GetArea(oDMTarget), oDMTarget, TRUE);
FloatingTextStringOnCreature(COLOR_RED+EXPLORE1+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 2) == "re") CommandRedirect(oDMPC, 20);
else CommandRedirect(oDMPC, 11);
break;
/*s*/ case 24:
if ((GetStringLeft(sDMText, 3) == "set") && (GetSubString(sDMText, 3, 1) != "v") && (GetSubString(sDMText, 3, 1) != "t") && (GetSubString(sDMText, 3, 2) != "we"))
{
if (GetStringLeft(sDMText, 7) == "setcha ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
if (nAppear < 3) nAppear = 3;
if (nAppear > 99) nAppear = 99;
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetStat(ABILITY_CHARISMA, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 7) == "setcon ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
if (nAppear < 3) nAppear = 3;
if (nAppear > 99) nAppear = 99;
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetStat(ABILITY_CONSTITUTION, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 7) == "setdex ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
if (nAppear < 3) nAppear = 3;
if (nAppear > 99) nAppear = 99;
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetStat(ABILITY_DEXTERITY, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 7) == "setint ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
if (nAppear < 3) nAppear = 3;
if (nAppear > 99) nAppear = 99;
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetStat(ABILITY_INTELLIGENCE, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 7) == "setstr ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
if (nAppear < 3) nAppear = 3;
if (nAppear > 99) nAppear = 99;
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetStat(ABILITY_STRENGTH, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 7) == "setwis ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
if (nAppear < 3) nAppear = 3;
if (nAppear > 99) nAppear = 99;
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetStat(ABILITY_WISDOM, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 8) == "setfort ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 8);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetSave(SAVING_THROW_FORT, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 10) == "setreflex ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 10);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetSave(SAVING_THROW_REFLEX, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else if (GetStringLeft(sDMText, 8) == "setwill ")
{
if (VAULTPATH_CHAT != "")//check if vault specified, command error otherwise
{
//check if admin only
if (LETO_FOR_ADMINS_ONLY && (!VerifyAdminKey(oDMPC))) FloatingTextStringOnCreature(COLOR_RED+ADMIN_ONLY+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
//check for prior pending leto edits
if (GetLocalString(oDMTarget, "LetoScript") != "") FloatingTextStringOnCreature(COLOR_RED+PENDING_EDIT+COLOR_END, oDMPC, FALSE);
else if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 8);
nAppear = StringToInt(sDMText);
if (TestStringAgainstPattern("*n", sDMText))
{
ExportSingleCharacter(oDMTarget);//export needed to ensure this .bic is the most recently edited
sDMText = SetSave(SAVING_THROW_WILL, nAppear);
DelayCommand(3.0, ApplyLeto(sDMText, oDMTarget));//delay to give export a chance to finish writing to the file
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMPC, FALSE);
FloatingTextStringOnCreature(COLOR_RED+LETO_CONFIRM+COLOR_END, oDMTarget, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_OTHER_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
}
else CommandRedirect(oDMPC, 11);
}
else CommandRedirect(oDMPC, 13);
}
else if (GetStringLeft(sDMText, 8) == "settime ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 8);
if (TestStringAgainstPattern("*n", sDMText))
{
SetTime(StringToInt(sDMText), 0, 0, 0);
FloatingTextStringOnCreature(COLOR_RED+TIME_SET+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 4) == "sett") CommandRedirect(oDMPC, 21);
else if (GetStringLeft(sDMText, 6) == "setvar")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
sStore = GetStringRight(sUppercase, GetStringLength(sUppercase) - 6);
if (GetStringLeft(sDMText, 4) == "int ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 4); //
nLang = FindSubString(sDMText, " ");
sKey = GetStringLeft(sStore, nLang);//name of variable //
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - (nLang + 1));
sStore = GetStringRight(sStore, GetStringLength(sStore) - (nLang + 1)); //
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
SetLocalInt(oDMTarget, sKey, StringToInt(sStore)); //
FloatingTextStringOnCreature(COLOR_GREEN+VARIABLE_SET+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 6) == "float ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 6);
nLang = FindSubString(sDMText, " ");
sKey = GetStringLeft(sStore, nLang);//name of variable
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - (nLang + 1));
sStore = GetStringRight(sStore, GetStringLength(sStore) - (nLang + 1));
if (TestStringAgainstPattern("*n.*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
SetLocalFloat(oDMTarget, sKey, StringToFloat(sStore));
FloatingTextStringOnCreature(COLOR_GREEN+VARIABLE_SET+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 7) == "string ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 7);
nLang = FindSubString(sDMText, " ");
sKey = GetStringLeft(sStore, nLang);//name of variable
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - (nLang + 1));
sStore = GetStringRight(sStore, GetStringLength(sStore) - (nLang + 1));
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
SetLocalString(oDMTarget, sKey, sStore);
FloatingTextStringOnCreature(COLOR_GREEN+VARIABLE_SET+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 3) == "mod")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 3);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 3);
if (GetStringLeft(sDMText, 4) == "int ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 4);
nLang = FindSubString(sDMText, " ");
sKey = GetStringLeft(sStore, nLang);//name of variable
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - (nLang + 1));
sStore = GetStringRight(sStore, GetStringLength(sStore) - (nLang + 1));
if (TestStringAgainstPattern("*n", sDMText))
{
SetLocalInt(GetModule(), sKey, StringToInt(sStore));
FloatingTextStringOnCreature(COLOR_GREEN+VARIABLE_SET+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 6) == "float ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 6);
nLang = FindSubString(sDMText, " ");
sKey = GetStringLeft(sStore, nLang);//name of variable
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - (nLang + 1));
sStore = GetStringRight(sStore, GetStringLength(sStore) - (nLang + 1));
if (TestStringAgainstPattern("*n.*n", sDMText))
{
SetLocalFloat(GetModule(), sKey, StringToFloat(sStore));
FloatingTextStringOnCreature(COLOR_GREEN+VARIABLE_SET+COLOR_END, oDMPC);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 7) == "string ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
sStore = GetStringRight(sStore, GetStringLength(sStore) - 7);
nLang = FindSubString(sDMText, " ");
sKey = GetStringLeft(sStore, nLang);//name of variable
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - (nLang + 1));
sStore = GetStringRight(sStore, GetStringLength(sStore) - (nLang + 1));
SetLocalString(GetModule(), sKey, sStore);
FloatingTextStringOnCreature(COLOR_GREEN+VARIABLE_SET+COLOR_END, oDMPC);
}
else CommandRedirect(oDMPC, 22);
}
else CommandRedirect(oDMPC, 22);
}
else if (GetStringLeft(sDMText, 4) == "setv") CommandRedirect(oDMPC, 22);
else if (GetStringLeft(sDMText, 11) == "setweather_")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 11);
if (GetStringLeft(sDMText, 2) == "a_")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, AREA_TARGET_OK);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetArea(oDMTarget);
}
else if (GetStringLeft(sDMText, 2) == "m_") oStorage = GetModule();
else
{
CommandRedirect(oDMPC, 21);
return;
}
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 2);
if (sDMText == "clear")
{
SetWeather(oStorage, WEATHER_CLEAR);
FloatingTextStringOnCreature(COLOR_RED+WEATHER_CHANGE+COLOR_END, oDMPC, FALSE);
}
else if (sDMText == "rain")
{
SetWeather(oStorage, WEATHER_RAIN);
FloatingTextStringOnCreature(COLOR_RED+WEATHER_CHANGE+COLOR_END, oDMPC, FALSE);
}
else if (sDMText == "reset")
{
SetWeather(oStorage, WEATHER_USE_AREA_SETTINGS);
FloatingTextStringOnCreature(COLOR_RED+WEATHER_CHANGE+COLOR_END, oDMPC, FALSE);
}
else if (sDMText == "snow")
{
SetWeather(oStorage, WEATHER_SNOW);
FloatingTextStringOnCreature(COLOR_RED+WEATHER_CHANGE+COLOR_END, oDMPC, FALSE);
}
else CommandRedirect(oDMPC, 21);
}
else if (GetStringLeft(sDMText, 4) == "setw") CommandRedirect(oDMPC, 21);
else if (GetStringLeft(sDMText, 6) == "spawn ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 6);
nLang = FindSubString(sDMText, " ");
if (nLang == -1)
{
lLoc = VerifyLocation(oDMPC, sUppercase);
if (!GetIsObjectValid(GetAreaFromLocation(lLoc))) return;
oStorage = CreateObject(OBJECT_TYPE_CREATURE, sDMText, lLoc);
if (GetIsObjectValid(oStorage)) FloatingTextStringOnCreature(COLOR_GREEN+SPAWNED+COLOR_END, oDMPC);
else FloatingTextStringOnCreature(COLOR_RED+NO_CRITTER_RESREF+COLOR_END, oDMPC);
DeleteLocalLocation(oDMPC, "FKY_CHAT_LOCATION");
}
else FloatingTextStringOnCreature(COLOR_RED+NO_RESREF_SPACE+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 2) == "sp") CommandRedirect(oDMPC, 23);
else if ((GetStringLeft(sDMText, 4) == "sql ") && VerifyAdminKey(oDMPC))
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 4);
sUppercase = GetStringRight(sUppercase, GetStringLength(sUppercase) - 4);
sStore = sUppercase;//store the string to execute later
if (GetStringLeft(sDMText, 7) == "select ")//if a select query we must parse the columns queried
{
if (GetStringLeft(sDMText, 8) == "select *")
{
FloatingTextStringOnCreature(COLOR_RED+NO_STAR+COLOR_END, oDMPC, FALSE);
return;
}
else if (GetStringRight(sDMText, 1) != ";")
{
FloatingTextStringOnCreature(COLOR_RED+REQ_SEMI+COLOR_END, oDMPC, FALSE);
return;
}
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
sUppercase = GetStringRight(sUppercase, GetStringLength(sUppercase) - 7);
nText = FindSubString(sDMText, " from ");//string before from
if (nText == -1) FloatingTextStringOnCreature(COLOR_RED+SELECT_NO_FROM+COLOR_END, oDMPC, FALSE);
else
{
sDMText = GetStringLeft(sDMText, nText);//text before the from
sUppercase = GetStringLeft(sUppercase, nText);//text before the from
nText = FindSubString(sUppercase, ",");//first comma
nLang = 0;
sKey = "";
while (nText != -1)
{
nLang ++;//count the commas
sSort = GetStringLeft(sUppercase, nText);//get the text to the left of the comma
while (GetStringLeft(sSort, 1) == " ") sSort = GetStringRight(sSort, GetStringLength(sSort) - 1);//parse out left spaces
while (GetStringRight(sSort, 1) == " ") sSort = GetStringLeft(sSort, GetStringLength(sSort) - 1);//parse out right spaces
if (GetStringLength(sSort) < 1)
{
FloatingTextStringOnCreature(COLOR_RED+NO_BLANK_COLUMN+COLOR_END, oDMPC, FALSE);
nLang = 1;
while (GetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang)) != "")
{
DeleteLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang));
nLang++;
}
return;
}
//else sKey += sSort + "<22>" + IntToString(nLang);//store the column names without spaces, with numbers for indexed retrieval
else SetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang), sSort);
sUppercase = GetStringRight(sUppercase, GetStringLength(sUppercase) - (nText+1));
nText = FindSubString(sUppercase, ",");//next comma
}
if (!nLang)//no commas, single column
{
sSort = sUppercase;//get the text to the left of the from
while (GetStringLeft(sSort, 1) == " ") sSort = GetStringRight(sSort, GetStringLength(sSort) - 1);//parse out left spaces
while (GetStringRight(sSort, 1) == " ") sSort = GetStringLeft(sSort, GetStringLength(sSort) - 1);//parse out right spaces
if (GetStringLength(sSort) < 1)
{
FloatingTextStringOnCreature(COLOR_RED+NO_BLANK_COLUMN+COLOR_END, oDMPC, FALSE);
return;
}
SQLExecDirect(sStore);
sReturn = "";
while(SQLFetch() != SQL_ERROR)
{
sData = SQLGetData(1);
sReturn += COLOR_YELLOW + sSort + ": " + COLOR_END + COLOR_WHITE + sData + COLOR_END + NEWLINE;
nLang ++;
}
sReturn += IntToString(nLang) + SQL_ROWS;
SendMessageToPC(oDMPC, sReturn);
}
else
{
nLang ++;//count the commas
sSort = sUppercase;//get last column
while (GetStringLeft(sSort, 1) == " ") sSort = GetStringRight(sSort, GetStringLength(sSort) - 1);//parse out left spaces
while (GetStringRight(sSort, 1) == " ") sSort = GetStringLeft(sSort, GetStringLength(sSort) - 1);//parse out right spaces
if (GetStringLength(sSort) < 1)
{
FloatingTextStringOnCreature(COLOR_RED+NO_BLANK_COLUMN+COLOR_END, oDMPC, FALSE);
nLang = 1;
while (GetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang)) != "")
{
DeleteLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang));
nLang++;
}
return;
}
//else sKey += sSort + "<22>" + IntToString(nLang);//store the column names without spaces, with numbers for indexed retrieval
else SetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang), sSort);
//output the return
SQLExecDirect(sStore);
sReturn = "";
nAppear = 1;
nRowCount = 0;
while(SQLFetch() != SQL_ERROR)
{
sRow = "";
nColor = 0;
for(nAppear = 1; nAppear <= nLang; nAppear++)//output the results on this row
{
nColor++;
if (nColor > 6) nColor = 1;
sData = SQLGetData(nAppear);
if (nAppear == nLang) sRow += GetColorStringForColumn(nColor) + GetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nAppear)) + ": " + COLOR_END + COLOR_WHITE + sData + ";" + COLOR_END + NEWLINE; //last column
else sRow += GetColorStringForColumn(nColor) + GetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nAppear)) + ": " + COLOR_END + COLOR_WHITE + sData + ", " + COLOR_END;//others
}
sReturn += sRow;
nRowCount ++;
}
sReturn += IntToString(nRowCount) + SQL_ROWS;
SendMessageToPC(oDMPC, sReturn);
nLang = 1;
while (GetLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang)) != "")
{
DeleteLocalString(oDMPC, "FKY_SQL_COLUMN_" + IntToString(nLang));
nLang++;
}
}
}
}
else
{
SQLExecDirect(sStore);//if not a SELECT query then just execute
FloatingTextStringOnCreature(COLOR_RED+SQL_SENT+COLOR_END, oDMPC, FALSE);
}
}
else if (GetStringLeft(sDMText, 2) == "sq") CommandRedirect(oDMPC, 20);
else if (sDMText == "stealth")
{
if (GetLocalInt(oDMPC, "FKY_CHAT_DMSTEALTH"))
{
DeleteLocalInt(oDMPC, "FKY_CHAT_DMSTEALTH");
SendMessageToPC(oDMPC, COLOR_RED+DMSTEALTH4+COLOR_END);
}
else
{
SetLocalInt(oDMPC, "FKY_CHAT_DMSTEALTH", TRUE);
SendMessageToPC(oDMPC, COLOR_RED+DMSTEALTH3+COLOR_END);
}
}
else if (GetStringLeft(sDMText, 2) == "st") CommandRedirect(oDMPC, 26);
else CommandRedirect(oDMPC, 11);
break;
/*t*/ case 26:
if (GetStringLeft(sDMText, 4) == "take")
{
if (GetStringLeft(sDMText, 7) == "takexp ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 7);
if (TestStringAgainstPattern("*n", sDMText))
{
nAppear = GetXP(oDMTarget)-StringToInt(sDMText);
if (nAppear < 0) nAppear = 0;
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
SetXP(oDMTarget, nAppear);
SendMessageToPC(oDMPC, COLOR_RED+XP8+ IntToString(StringToInt(sDMText))+XP9+GetName(oDMTarget) + "!"+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 10) == "takelevel ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 10);
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (TestStringAgainstPattern("*n", sDMText)) TakeLevel(oDMTarget, oDMPC, StringToInt(sDMText));
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 12) == "takepartyxp ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 12);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstFactionMember(oDMTarget);
while (GetIsObjectValid(oStorage))
{
nAppear = GetXP(oStorage)-StringToInt(sDMText);
if (nAppear < 0) nAppear = 0;
SetXP(oStorage, nAppear);
oStorage = GetNextFactionMember(oDMTarget);
}
SendMessageToPC(oDMPC, COLOR_RED+XP8+ IntToString(StringToInt(sDMText))+XP9+GetName(oDMTarget) + XP11+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else if (GetStringLeft(sDMText, 15) == "takepartylevel ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 15);
if (TestStringAgainstPattern("*n", sDMText))
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
oStorage = GetFirstFactionMember(oDMTarget);
nColor = StringToInt(sDMText);
if (nColor == 1) sStore = XP14;
else sStore = XP15;
while (GetIsObjectValid(oStorage))
{
TakeLevel(oDMTarget, oDMPC, nColor, FALSE);//function has built-in message to each, FALSE stops it
oStorage = GetNextFactionMember(oDMTarget);
}
SendMessageToPC(oDMPC, COLOR_RED+XP8+ IntToString(StringToInt(sDMText))+sStore+GetName(oDMTarget) + XP11+COLOR_END);
}
else FloatingTextStringOnCreature(COLOR_RED+REQUIRES_NUMBER+COLOR_END, oDMPC);
}
else CommandRedirect(oDMPC, 19);
}
else if (GetStringLeft(sDMText, 2) == "ta") CommandRedirect(oDMPC, 19);
else CommandRedirect(oDMPC, 11);
break;
/*u*/ case 28:
if (sDMText == "unbandm")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
DeleteLocalInt(oDMTarget, "FKY_CHT_BANDM");
SendMessageToPC(oDMTarget, COLOR_RED+UNBAN1+COLOR_END);
SendMessageToPC(oDMPC, COLOR_RED+UNBANGEN+ GetName(oDMTarget) +UNBAN2+COLOR_END);
}
else if (sDMText == "unbanshout")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
sKey = GetPCPublicCDKey(oDMTarget);
DeleteLocalInt(oDMTarget, "FKY_CHT_BANSHOUT");
DeleteLocalString(oDMTarget, "FKY_CHT_BANREASON");//delete the reason they were banned and by whom
if (USING_NWNX_DB) DeletePersistentVariable(GetModule(), "FKY_CHT_BANSHOUT"+ sKey);
else DeleteCampaignVariable("FKY_CHT", "FKY_CHT_BANSHOUT" + sKey);
SendMessageToPC(oDMTarget, COLOR_RED+UNBAN3+COLOR_END);
SendMessageToPC(oDMPC, COLOR_RED+UNBANGEN+ GetName(oDMTarget) +UNBAN4+COLOR_END);
}
else if (GetStringLeft(sDMText, 3) == "unb") CommandRedirect(oDMPC, 16);
else if (sDMText == "unfreeze")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if (!GetCommandable(oDMTarget)) SetCommandable(TRUE, oDMTarget);
if (GetIsPC(oDMTarget)) SendMessageToPC(oDMTarget, COLOR_RED+UNFREEZE1+COLOR_END);
SendMessageToPC(oDMPC, COLOR_RED+UNFREEZE2+ GetName(oDMTarget) + "."+COLOR_END);
}
else if (GetStringLeft(sDMText, 3) == "unf") CommandRedirect(oDMPC, 15);
else if (GetStringLeft(sDMText, 4) == "unig")
{
if (sDMText == "unignoredm") //if option
{
if ((DM_PLAYERS_HEAR_DM && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_PLAYERS_HEAR_DM && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC))))
{
DeleteLocalInt(oDMPC, "FKY_CHT_IGNOREDM");
SendMessageToPC(oDMPC, COLOR_RED+UNIGNORED+COLOR_END);
}
else CommandRedirect(oDMPC, 11);
}
else if (sDMText == "unignoremeta") //if option
{
if ((DMS_HEAR_META && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_META && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_META && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_META && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC))))
{
DeleteLocalInt(oDMPC, "FKY_CHT_IGNOREMETA");
SendMessageToPC(oDMPC, COLOR_RED+UNIGNOREM+COLOR_END);
}
else CommandRedirect(oDMPC, 11);
}
else if (sDMText == "unignoretells")//if option
{
if ((DMS_HEAR_TELLS && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_TELLS && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_TELLS && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_TELLS && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC))))
{
DeleteLocalInt(oDMPC, "FKY_CHT_IGNORETELLS");
SendMessageToPC(oDMPC, COLOR_RED+UNIGNORET+COLOR_END);
}
else CommandRedirect(oDMPC, 11);
}
else if ( ((DM_PLAYERS_HEAR_DM && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_PLAYERS_HEAR_DM && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC)))) ||
((DMS_HEAR_META && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_META && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_META && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_META && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC)))) ||
((DMS_HEAR_TELLS && VerifyDMKey(oDMPC) && GetIsDM(oDMPC)) || (DM_PLAYERS_HEAR_TELLS && VerifyDMKey(oDMPC) && (!GetIsDM(oDMPC))) || (ADMIN_DMS_HEAR_TELLS && VerifyAdminKey(oDMPC) && GetIsDM(oDMPC)) || (ADMIN_PLAYERS_HEAR_TELLS && VerifyAdminKey(oDMPC) && (!GetIsDM(oDMPC)))) ) CommandRedirect(oDMPC, 27);
else CommandRedirect(oDMPC, 11);
}
else if (sDMText == "uninvis")
{
AssignCommand(GetModule(), DoDMUninvis(oDMPC));
SendMessageToPC(oDMPC, COLOR_RED+UNINVIS+COLOR_END);
}
else if (sDMText == "uninvuln")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if ((!VerifyDMKey(oDMTarget)) && (!VerifyAdminKey(oDMTarget)) || (oDMTarget == oDMPC))
{
SetPlotFlag(oDMTarget, FALSE);
if (oDMTarget == oDMPC) SendMessageToPC(oDMPC, COLOR_RED+UNINVUL1+COLOR_END);
else
{
SendMessageToPC(oDMPC, COLOR_RED + GetName(oDMTarget) +UNINVUL2+COLOR_END);
if (GetIsPC(oDMTarget)) SendMessageToPC(oDMTarget, COLOR_RED+UNINVUL1+COLOR_END);
}
}
else FloatingTextStringOnCreature(COLOR_RED+UNINVUL3+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 4) == "unin") CommandRedirect(oDMPC, 15);
else if (GetStringLeft(sDMText, 8) == "unlearn ")
{
sDMText = GetStringRight(sDMText, GetStringLength(sDMText) - 8);
nLang = GetLanguageNumber(sDMText);
if (nLang == -1) FloatingTextStringOnCreature(COLOR_RED+LANG1+COLOR_END, oDMPC, FALSE);
else
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET);
if (!GetIsObjectValid(oDMTarget)) return;
if (USING_NWNX_DB)
{
DeleteLocalInt(oDMTarget, "FKY_CHAT_LANG"+IntToString(nLang));
DeletePersistentVariable(oDMTarget, "FKY_CHAT_LANG"+IntToString(nLang));
}
else
{
oStorage = GetItemPossessedBy(oDMTarget, TAG_OF_LANGUAGE_STORAGE_OBJECT);
DeleteLocalInt(oDMTarget, "FKY_CHAT_LANG"+IntToString(nLang));
DeleteLocalInt(oStorage, "FKY_CHAT_LANG"+IntToString(nLang));
ExportSingleCharacter(oDMTarget);
}
FloatingTextStringOnCreature(COLOR_RED+LANG3+GetNameOfLanguage(nLang)+LANG4+GetName(oDMTarget)+"."+COLOR_END, oDMPC, FALSE);
}
}
else if (GetStringLeft(sDMText, 3) == "unl") CommandRedirect(oDMPC, 26);
else CommandRedirect(oDMPC, 11);
break;
/*v*/ case 30:
if (sDMText == "vent")
{
oDMTarget = VerifyTarget(oDMTarget, oDMPC, sUppercase, OBJECT_TARGET, FALSE, FALSE);
if (!GetIsObjectValid(oDMTarget)) return;
if (!VerifyDMKey(oDMTarget) && !VerifyAdminKey(oDMTarget))
{
SetLocalObject(oDMPC, "FKY_CHT_VENTRILO", oDMTarget);
FloatingTextStringOnCreature(COLOR_GREEN+VENTRILO+COLOR_END, oDMPC, FALSE);
}
else FloatingTextStringOnCreature(COLOR_RED+NO_DM_TARGET+COLOR_END, oDMPC, FALSE);
}
else if (GetStringLeft(sDMText, 3) == "unl") CommandRedirect(oDMPC, 26);
else CommandRedirect(oDMPC, 11);
break;
}
}
Reference in New Issue View Git Blame Copy Permalink