Jaysyn/HeroesStone_PRC8
1
0
Fork 0
generated from Jaysyn/ModuleTemplate
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
1eefc842010987b3ead1acf1a4cc4eab2e5dff4e
HeroesStone_PRC8/_module/nss/_on_playerchat.nss
Jaysyn904 1eefc84201 Initial Commit 
Initial Commit.
2025-09-14 15:40:46 -04:00

709 lines
28 KiB
Plaintext
Raw Blame History

// _on_playerchat
#include "mali_string_fns"
#include "sparky_inc"
#include "dmts_common_inc"
string ShowVector(vector vSomewhere)
{ string sVector = FloatToString(vSomewhere.x, 0, 2) + "x "
+ FloatToString(vSomewhere.y, 0, 2) + "y "
+ FloatToString(vSomewhere.z, 0, 2) + "z";
return sVector;
}
vector StringToVector(string sVector)
{ float fLocX = StringToFloat(FirstWord(sVector, "x"));
sVector = RestWords(sVector, "x");
float fLocY = StringToFloat(FirstWord(sVector, "y"));
sVector = RestWords(sVector, "y");
float fLocZ = StringToFloat(FirstWord(sVector, "z"));
return Vector(fLocX, fLocY, fLocZ);
}
string SparkyList(object oDB, string sListWhat)
{ int iEnc = 1;
string sEnc = "nyah";
string sEncVar;
string sList;
while (sEnc != "")
{ sEncVar = sListWhat + ((iEnc < 10) ? "_0" : "_") + IntToString(iEnc);
sEnc = GetLocalString(oDB, sEncVar);
if (sEnc != "")
{ sList += sEncVar + " = " + sEnc + "\n"; }
iEnc++;
}
if (sList == "")
{ sList = "No matching variables found."; }
return sList;
}
void main()
{
object oPC = GetPCChatSpeaker();
object oArea = GetArea(oPC);
string sChat = GetPCChatMessage();
object oTarget = GetLocalObject(oPC, "DM_Tool_Target");
string sTargetLoc = GetLocalString(oPC, "DM_Tool_TargetLoc");
// If speaker is a possessed NPC, make note of that on the possessing DM
if (GetIsDMPossessed(oPC))
{ SetLocalObject(GetMaster(oPC), "oPossessedNPC", oPC); }
else if (GetIsDM(oPC))
{ DeleteLocalObject(oPC, "oPossessedNPC"); }
// Not a valid command
if (GetStringLeft( sChat, 2) != "@@")
// Send it to the spy network
{ object oPlayer = GetFirstPC();
string sSpyHeard = "(" + GetName(GetArea(oPC)) + ") " + GetName(oPC) + ": " + sChat;
int iIsDM = 0;
object oPossessedNPC;
while (GetIsObjectValid(oPlayer))
{ iIsDM = (GetIsDM(oPlayer));
oPossessedNPC = GetLocalObject(oPlayer, "oPossessedNPC");
if (GetCampaignInt("dmfi", "dmfi_DMSpy", oPlayer) && iIsDM)
{ SendMessageToPC(oPlayer, sSpyHeard);
if (GetMaster(oPossessedNPC) == oPlayer)
{ SendMessageToPC(oPossessedNPC, sSpyHeard); }
}
oPlayer = GetNextPC();
}
return;
}
// It begins with @@, so let's not send it to everyone
SetPCChatMessage();
string sCommand = GetStringLowerCase(FirstWord(GetStringRight(sChat, GetStringLength(sChat) - 2)));
string sParameter = RestWords(sChat);
// PC commands
if (sCommand == "pclist")
{ ExecuteScript("zmal_pcl_list", oPC); return; }
if ((sCommand == "time") && (sParameter == ""))
{ int iHour = GetTimeHour();
int iMin = GetTimeMinute();
int iSec = GetTimeSecond();
string sTime = IntToString(iHour) + ((iMin < 10) ? ":0" : ":")
+ IntToString(iMin) + ((iSec < 10) ? ":0" : ":") + IntToString(iSec);
SendMessageToPC(oPC, "Current time is " + sTime);
return;
}
if ( !(GetIsDM(oPC) || GetIsDMPossessed(oPC)))
{ SendMessageToPC(oPC, "ERROR: Invalid command."); return; }
// DM commands
// Commands that don't require a target
if (sCommand == "help")
{ sParameter = GetStringLowerCase(sParameter);
if (TestStringAgainstPattern("@@**", sParameter))
{ sParameter = RestWords(sParameter, "@@"); }
string sHelp = "Valid commands: @@name, @@tag, @@retag, @@view, @@desc, @@app, @@deity, "
+ "@@shop, @@infinite, @@makeshop, @@copyshop, @@clone, @@dmspy, "
+ "@@copyfrom, @@copyto, @@time, @@location, @@findtag, @@sparky, "
+ "@@scribble, @@editdesc, @@swapdesc";
if (sParameter == "name")
{ sHelp = "@@name NewName: Renames the target.\n"
+ "@@name: With no parameter, resets the name to the original."; }
else if (sParameter == "tag")
{ sHelp = "@@tag: Displays the target's tag."; }
else if (sParameter == "retag")
{ sHelp = "@@retag: Changes the tag of placeables and items."; }
else if (sParameter == "view")
{ sHelp = "@@view: View the target's current description."; }
else if (sParameter == "desc")
{ sHelp = "@@desc NewDesc: Changes the target's description. Use %n for a carriage return.\n"
+ "@@desc: With no parameter, resets the description."; }
else if (sParameter == "app")
{ sHelp = "@@app: Displays the target's appearance number.\n"
+ "@@app AppNumber: Change the target's appearance."; }
else if (sParameter == "deity")
{ sHelp = "@@deity: Display the target's deity.\n"
+ "@@deity NewDeity: Change the target's deity."; }
else if (sParameter == "time")
{ sHelp = "@@time: Displays the current time.\n"
+ "@@time hour:min:sec : Sets the current time."; }
else if (sParameter == "dmspy")
{ sHelp = "@@dmspy: Toggles the status of the DM Spy Network, which "
+ "reports anything said anywhere on the server."; }
else if (sParameter == "clone")
{ sHelp = "@@clone Copies: Makes the specified number of copies of the target."
+ " Copies defaults to 1."; }
else if (sParameter == "copyfrom")
{ sHelp = "@@copyfrom: Copies items from the first container you "
+ " target to the second container you target."; }
else if (sParameter == "copyto")
{ sHelp = "@@copyto: Copies items from the second container you "
+ " target to the first container you target."; }
else if (sParameter == "makeshop")
{ sHelp = "@@makeshop: Opens a new store for the target NPC."
+ " Must already be set up with a merchant conversation.\n"
+ "@@makeshop ShopTag: Attempts to set up a shop for the targeted"
+ " NPC with the specified ShopTag. Use with stores on the pallete.\n"
+ "(shop commands only work if the shop has a tag of the form Shop_NPCtag)"; }
else if (sParameter == "copyshop")
{ sHelp = "@@copyshop: Copy the target NPC's shop to your current location.\n"
+ "@@copyshop NewTag: Copy the target NPC's shop, and change "
+ "its tag to NewTag.\n"
+ "(shop commands only work if the shop has a tag of the form Shop_NPCtag)"; }
else if (sParameter == "shop")
{ sHelp = "@@shop: Open the target NPC's store.\n"
+ "(shop commands only work if the shop has a tag of the form Shop_NPCtag)"; }
else if (sParameter == "infinite")
{ sHelp = "@@infinite: Sets a shop item to an infinite supply."; }
else if (sParameter == "finite")
{ sHelp = "@@finite: Sets a shop item to a finite supply."; }
else if (sParameter == "sparky")
{ sHelp = "@@sparky despawn: Removes all Sparky spawns from the area.\n"
+ "@@sparky force despawn: If the spawn script was aborted, or"
+ " creatures were spawned from the DM Encounter Spawn widget,"
+ " this command should despawn them when @@sparky despawn cannot.\n"
+ "@@sparky spawn: Removes any current Sparky spawns, and after a 2"
+ " second delay, forces the spawns to activate.\n"
+ "@@sparky list encounters: Lists the encounter variables on the current area.\n"
+ "@@sparky list table TableName: Lists the specified table.\n"
+ "@@sparky list group GroupName: Lists the specified group."
+ "After targeting a Sparky Spawn trigger, you may use these commands:\n"
+ "@@sparky trigger spawn: Removes any current Sparky spawns, and after a 2"
+ " second delay, forces the spawns on the trigger to activate.\n"
+ "@@sparky trigger list encounters: Lists the encounter variables on the trigger.\n"
+ "@@sparky trigger list table TableName: Lists the specified table.\n"
+ "@@sparky trigger list group GroupName: Lists the specified group."; }
else if (sParameter == "location")
{ sHelp = "@@location: Shows your current coordinates and facing."; }
else if (sParameter == "findtag")
{ sHelp = "@@findtag Tag: Displays the location (area and coordinates) of"
+ " all objects with the tag Tag. If the object is on a creature"
+ " or in a container, the name of the creature/container will be"
+ " displayed as well."; }
else if (sParameter == "scribble")
{ sHelp = "@@scribble Message: Writes the specified message on the floor "
+ "at the targeted location. A stage manager widget is provided, "
+ "ready to be boxed up."; }
else if (sParameter == "editdesc")
{ sHelp = "@@editdesc Delimiter SearchFor<Delimiter>ReplaceWith\n"
+ "Replaces all occurances of SearchFor with ReplaceWith in target's"
+ " description."; }
else if (sParameter == "swapdesc")
{ sHelp = "@@swapdesc\nSwaps the identified and unidentified descriptions of the target."; }
SendMessageToPC(oPC, sHelp);
return;
}
if (sCommand == "location")
{ SendMessageToPC(oPC, "Your location is: " + ShowVector(GetPosition(oPC))
+ ", facing " + FloatToString(GetFacing(oPC), 0,0));
return;
}
if (sCommand == "findtag")
{ object oFindee = oPC;
object oPossessor = oPC;
string sFindeeLocs = "";
int iLoop = 0;
while (GetIsObjectValid(oFindee))
{ oFindee = GetObjectByTag(sParameter, iLoop);
if (GetIsObjectValid(oFindee))
{ oPossessor = GetItemPossessor(oFindee);
if (GetIsObjectValid(oPossessor))
{ sFindeeLocs += "\n" + GetName(GetArea(oPossessor)) + ": "
+ ShowVector(GetPosition(oPossessor)) + " on "
+ GetName(oPossessor);
}
else
{ sFindeeLocs += "\n" + GetName(GetArea(oFindee)) + ": "
+ ShowVector(GetPosition(oFindee));
}
iLoop++;
}
}
if (iLoop = 0)
{ SendMessageToPC(oPC, "Nothing found."); }
else
{ SendMessageToPC(oPC, "Locations for tag " + sParameter + ":" + sFindeeLocs); }
return;
}
if (sCommand == "dmspy")
{ int iDMSpy = GetCampaignInt("dmfi", "dmfi_DMSpy", oPC);
int iToggle = abs(iDMSpy - 1);
SetCampaignInt("dmfi", "dmfi_DMSpy", iToggle, oPC);
string sStatus = iToggle ? "on" : "off";
SendMessageToPC(oPC, "DM Spy network " + sStatus + ".");
return;
}
if (sCommand == "time")
{ if (sParameter != "")
{ if (TestStringAgainstPattern("*n:*n:*n", sParameter))
{ int iHour = StringToInt(FirstWord(sParameter, ":"));
sParameter = RestWords(sParameter, ":");
int iMin = StringToInt(FirstWord(sParameter, ":"));
sParameter = RestWords(sParameter, ":");
int iSec = StringToInt(FirstWord(sParameter, ":"));
sParameter = RestWords(sParameter, ":");
SetTime(iHour, iMin, iSec, 0);
}
else
{ SendMessageToPC(oPC, "ERROR: Invalid time format."); return; }
}
int iHour = GetTimeHour();
int iMin = GetTimeMinute();
int iSec = GetTimeSecond();
string sTime = IntToString(iHour) + ((iMin < 10) ? ":0" : ":")
+ IntToString(iMin) + ((iSec < 10) ? ":0" : ":") + IntToString(iSec);
SendMessageToPC(oPC, "Current time is " + sTime);
return;
}
if (sCommand == "sparky")
{ sParameter = GetStringLowerCase(sParameter);
if (sParameter == "despawn")
{ SendMessageToPC(oPC, "Despawning...");
Despawn(oArea);
return;
}
if (sParameter == "force despawn")
{ SendMessageToPC(oPC, "Forcing a despawn...");
SetLocalInt(oArea, "iSparkySpawned", TRUE);
Despawn(oArea);
return;
}
object oDB = oArea;
if (FirstWord(sParameter) == "trigger")
{ if ( !( (GetObjectType(oTarget) == OBJECT_TYPE_TRIGGER) && (GetLocalInt(oTarget, "iSparkyTrigger")) ))
{ SendMessageToPC(oPC, "ERROR: Target is not a Sparky Spawn trigger!"); return; }
sParameter = RestWords(sParameter);
oDB = oTarget;
}
if ((sParameter == "respawn") || (sParameter == "spawn"))
{ SendMessageToPC(oPC, "Spawning...");
Despawn(oArea);
DelayCommand(2.0f, SpawnEncounters(oDB));
return;
}
if (FirstWord(sParameter) == "list")
{ sParameter = RestWords(sParameter);
string sListWhat = FirstWord(sParameter);
sParameter = FirstWord(RestWords(sParameter));
if (sListWhat == "encounters")
{ SendMessageToPC(oPC, SparkyList(oDB, "encounter")); return; }
if ((sListWhat != "table") && (sListWhat != "group"))
{ SendMessageToPC(oPC, "ERROR: Invalid Sparky list command."); return; }
if (sParameter == "")
{ SendMessageToPC(oPC, "ERROR: No " + GetStringLowerCase(sListWhat) + " name supplied."); return; }
SendMessageToPC(oPC, SparkyList(oDB, GetStringLowerCase(sListWhat + "_" + sParameter)));
return;
}
SendMessageToPC(oPC, "ERROR: Invalid Sparky command."); return;
}
if (sCommand == "areavar")
{ string sVarType = GetStringLowerCase(FirstWord(sParameter));
string sParameter2 = RestWords(sParameter);
string sVarName = FirstWord(sParameter2);
sParameter2 = RestWords(sParameter2);
if (sVarName == "")
{ SendMessageToPC(oPC, "ERROR: No variable name supplied."); return; }
if (sVarType == "int")
{ int iValue = StringToInt(sParameter2);
SetLocalInt(oArea, sVarName, iValue);
SendMessageToPC(oPC, "Variable " + sVarName + " set to: " + IntToString(iValue));
return;
}
if (sVarType == "float")
{ float fValue = StringToFloat(sParameter2);
SetLocalFloat(oArea, sVarName, fValue);
SendMessageToPC(oPC, "Variable " + sVarName + " set to: " + FloatToString(fValue));
return;
}
if (sVarType == "string")
{ SetLocalString(oArea, sVarName, sParameter2);
SendMessageToPC(oPC, "Variable " + sVarName + " set to: " + sParameter2);
return;
}
}
if ((sCommand == "scribble") || (sCommand == "scribblewall"))
{ if (sTargetLoc == "")
{ SendMessageToPC(oPC, "ERROR: Target a location first!"); return; }
vector vStart = StringToVector(sTargetLoc);
float fTheta = GetTheta(GetPosition(oPC), vStart);
location lStartLoc = Location(oArea, vStart, fTheta);
if (sParameter == "")
{ object oMarker = GetObjectByTag("ScribbleMarker_" + ObjectToString(oPC));
if (GetIsObjectValid(oMarker))
{ DestroyObject(oMarker);
SendMessageToPC(oPC, "Marker removed.");
}
else
{ SendMessageToPC(oPC, "Creating marker...");
oMarker = CreateObject(OBJECT_TYPE_PLACEABLE, "zep_os_sar_001", lStartLoc, FALSE, "ScribbleMarker_" + ObjectToString(oPC));
if (sCommand == "scribblewall")
{ SetLocalInt(oMarker, "iPlayAnimation", ANIMATION_PLACEABLE_CLOSE);
ExecuteScript("playanimation", oMarker);
}
}
return;
}
string sAlphabet_LC = "abcdefghijklmnopqrstuvwxyz";
string sAlphabet_UC = GetStringUpperCase(sAlphabet_LC);
string sNumbers = "0123456789";
string sSpecial = ".,-";
string sSpecialTag = "pdcmds";
string sLetter;
int iPlayAnimation = 0;
object oMarker = GetObjectByTag("ScribbleMarker_" + ObjectToString(oPC));
if (GetIsObjectValid(oMarker))
{ lStartLoc = GetLocation(oMarker);
iPlayAnimation = GetLocalInt(oMarker, "iPlayAnimation");
fTheta = GetFacing(oMarker);
DestroyObject(oMarker);
}
else
{ SendMessageToPC(oPC, "WARNING: Marker not found. Using target location..."); }
location lLoc = lStartLoc;
object oSM_widget = CreateItemOnObject("mali_dm_stage", oPC);
if (!GetIsObjectValid(oSM_widget))
{ SendMessageToPC(oPC, "Warning: Could not create a stage manager widget..."); }
object oLetter;
int iLoop;
for (iLoop = 0; iLoop < GetStringLength(sParameter); iLoop++)
{ sLetter = GetSubString(sParameter, iLoop, 1);
if (FindSubString(sAlphabet_LC + sNumbers, sLetter) != -1)
{ oLetter = CreateObject(OBJECT_TYPE_PLACEABLE, "zep_os_sn" + sLetter + "_001", lLoc);
if (iPlayAnimation)
{ SetLocalInt(oLetter, "iPlayAnimation", iPlayAnimation);
ExecuteScript("playanimation", oLetter);
}
lLoc = Location(oArea, GetChangedPosition(GetPositionFromLocation(lLoc), 0.25f, fTheta - 90.0f), fTheta);
if (GetIsObjectValid(oSM_widget))
{ SetLocalObject(oSM_widget, "oProp" + IntToString(iLoop + 1), oLetter);
SetLocalInt(oSM_widget, "iProp" + ObjectToString(oLetter), iLoop + 1);
SetLocalInt(oSM_widget, "iPropIndex", iLoop + 1);
}
}
else if (FindSubString(sAlphabet_UC, sLetter) != -1)
{ oLetter = CreateObject(OBJECT_TYPE_PLACEABLE, "zep_os_sn" + GetStringLowerCase(sLetter) + "_002", lLoc);
if (iPlayAnimation)
{ SetLocalInt(oLetter, "iPlayAnimation", iPlayAnimation);
ExecuteScript("playanimation", oLetter);
}
lLoc = Location(oArea, GetChangedPosition(GetPositionFromLocation(lLoc), 0.25f, fTheta - 90.0f), fTheta);
if (GetIsObjectValid(oSM_widget))
{ SetLocalObject(oSM_widget, "oProp" + IntToString(iLoop + 1), oLetter);
SetLocalInt(oSM_widget, "iProp" + ObjectToString(oLetter), iLoop + 1);
SetLocalInt(oSM_widget, "iPropIndex", iLoop + 1);
}
}
else if (FindSubString(sSpecial, sLetter) != -1)
{ oLetter = CreateObject(OBJECT_TYPE_PLACEABLE, "zep_os_s" + GetSubString(sSpecialTag, FindSubString(sSpecial, sLetter) * 2, 2) + "_001", lLoc);
if (iPlayAnimation)
{ SetLocalInt(oLetter, "iPlayAnimation", iPlayAnimation);
ExecuteScript("playanimation", oLetter);
}
lLoc = Location(oArea, GetChangedPosition(GetPositionFromLocation(lLoc), 0.25f, fTheta - 90.0f), fTheta);
if (GetIsObjectValid(oSM_widget))
{ SetLocalObject(oSM_widget, "oProp" + IntToString(iLoop + 1), oLetter);
SetLocalInt(oSM_widget, "iProp" + ObjectToString(oLetter), iLoop + 1);
SetLocalInt(oSM_widget, "iPropIndex", iLoop + 1);
}
}
else
{ lLoc = Location(oArea, GetChangedPosition(GetPositionFromLocation(lLoc), 0.5f, fTheta - 90.0f), fTheta); }
}
if (GetIsObjectValid(oSM_widget))
{ SetName(oSM_widget, "The Moving Finger");
SetDescription(oSM_widget, "Use this stage manager widget to enscribe the following message on the floor:\n\n" + sParameter);
}
return;
}
// Commands that require a target
if (!GetIsObjectValid(oTarget))
{ SendMessageToPC(oPC, "ERROR: Invalid target!"); return; }
string sTargetName = GetName(oTarget);
if (sCommand == "setstring")
{ string sVarName = FirstWord(sParameter);
sParameter = RestWords(sParameter);
if (sParameter == "")
{ SendMessageToPC(oPC, "ERROR: No variable name supplied!"); return; }
SetLocalString(oTarget, sVarName, sParameter);
SendMessageToPC(oPC, "Set.");
return;
}
if (sCommand == "areavar")
{ string sVarType = GetStringLowerCase(FirstWord(sParameter));
string sParameter2 = RestWords(sParameter);
string sVarName = FirstWord(sParameter2);
if (sVarType != "object")
{ SendMessageToPC(oPC, "ERROR: Invalid variable type."); return; }
SetLocalObject(oArea, sVarName, oTarget);
SendMessageToPC(oPC, "Variable " + sVarName + " set to: " + sTargetName);
return;
}
if (sCommand == "name")
{ if( GetIsDM(oTarget) || GetIsPC(oTarget))
{ SendMessageToPC(oPC, "ERROR: You can't rename a PC or DM."); return; }
else
{ SetName(oTarget, sParameter);
SendMessageToPC(oPC, sTargetName + "'s name set to: " + GetName(oTarget));
return;
}
}
if (sCommand == "view")
{ SendMessageToPC(oPC, sTargetName + "'s Description:\n" + GetDescription(oTarget)); return; }
if (sCommand == "desc")
{ SetDescription(oTarget, SearchAndReplace(sParameter, "%n", "\n")); return; }
if (sCommand == "editdesc")
{ string sDesc = GetDescription(oTarget);
string sDelimiter = FirstWord(sParameter);
sParameter = RestWords(sParameter);
string sSearch = FirstWord(sParameter, sDelimiter);
string sReplace = RestWords(sParameter, sDelimiter);
SetDescription(oTarget, SearchAndReplace(sDesc, sSearch, sReplace));
return;
}
if (sCommand == "swapdesc")
{ string sDesc = GetDescription(oTarget);
SetDescription(oTarget, GetDescription(oTarget, FALSE, FALSE));
SetDescription(oTarget, sDesc, FALSE);
return;
}
if (sCommand == "app")
{ int iApp = StringToInt(sParameter);
if (GetObjectType(oTarget) != OBJECT_TYPE_CREATURE)
{ SendMessageToPC(oPC, "ERROR: Invalid target. NPCs, players, or DMs only."); return; }
if (sParameter == "")
{ SendMessageToPC(oPC, sTargetName + "'s appearance: " + IntToString(GetAppearanceType(oTarget))); return; }
if ( ((sParameter != "0") && (iApp == 0)) || (iApp < 0) )
{ SendMessageToPC(oPC, "ERROR: Appearance must be a non-negative integer!"); return; }
SetCreatureAppearanceType(oTarget, iApp); return;
}
if (sCommand == "deity")
{ if (GetObjectType(oTarget) != OBJECT_TYPE_CREATURE)
{ SendMessageToPC(oPC, "ERROR: Invalid target."); return; }
if (sParameter == "")
{ SendMessageToPC(oPC, sTargetName + "'s deity: " + GetDeity(oTarget)); return; }
else
{ SetDeity(oTarget, sParameter);
SendMessageToPC(oPC, sTargetName + "'s deity set to: " + GetDeity(oTarget));
return;
}
}
if (sCommand == "tag")
{ SendMessageToPC(oPC, sTargetName + "'s tag: " + GetTag(oTarget)); return; }
if (sCommand == "retag")
{ if (GetObjectType(oTarget) == OBJECT_TYPE_PLACEABLE)
{ location lTargetLocation = GetLocation(oTarget);
oTarget = RecreateObjectAtLocation(oTarget, lTargetLocation, sParameter);
SetLocalInt(oTarget, "iRetagged", TRUE);
SetLocalObject(oPC, "DM_Tool_Target", oTarget);
SendMessageToPC(oPC, sTargetName + "'s tag is now: " + GetTag(oTarget));
return;
}
else if (GetObjectType(oTarget) == OBJECT_TYPE_ITEM)
{ object oNewItem = CopyObject(oTarget, GetLocation(oPC), oPC, sParameter);
if (GetIsObjectValid(oNewItem))
{ DestroyObject(oTarget);
SendMessageToPC(oPC, sTargetName + "'s tag is now: " + GetTag(oNewItem));
SetLocalObject(oPC, "DM_Tool_Target", oNewItem);
return; }
else
{ SendMessageToPC(oPC, "ERROR: Item not retagged. Reason unknown."); return; }
}
else
{ SendMessageToPC(oPC, "ERROR: Only placeables and items may be retagged."); return; }
}
if (sCommand == "shop")
{ if (GetObjectType(oTarget) == OBJECT_TYPE_STORE)
{ OpenStore(oTarget, oPC); return; }
if (GetIsPC(oTarget) || !(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE))
{ SendMessageToPC(oPC, "ERROR: Not an NPC!"); return; }
object oStore = GetNearestObjectByTag("Store_" + GetTag(oTarget), oTarget);
if (!GetIsObjectValid(oStore) || (GetObjectType(oStore) != OBJECT_TYPE_STORE))
{ SendMessageToPC(oPC, "ERROR: Could not find store!"); return; }
else
{ OpenStore(oStore, oPC); return; }
}
if (sCommand == "infinite")
{ if (GetObjectType(oTarget) != OBJECT_TYPE_ITEM)
{ SendMessageToPC(oPC, "ERROR: Must target an item!"); return; }
else if (GetObjectType(GetItemPossessor(oTarget)) != OBJECT_TYPE_STORE)
{ SendMessageToPC(oPC, "ERROR: Must target an item in a store!"); return; }
else
{ SetInfiniteFlag(oTarget);
SendMessageToPC(oPC, sTargetName + " is now set infinite."); return; }
}
if (sCommand == "finite")
{ if (GetObjectType(oTarget) != OBJECT_TYPE_ITEM)
{ SendMessageToPC(oPC, "ERROR: Must target an item!"); return; }
else if (GetObjectType(GetItemPossessor(oTarget)) != OBJECT_TYPE_STORE)
{ SendMessageToPC(oPC, "ERROR: Must target an item in a store!"); return; }
else
{ SetInfiniteFlag(oTarget, FALSE);
SendMessageToPC(oPC, sTargetName + " is now set finite."); return; }
}
if (sCommand == "makeshop")
{ if (GetIsPC(oTarget) || !(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE))
{ SendMessageToPC(oPC, "ERROR: Not an NPC!"); return; }
string sStoreTag = "Store_" + GetTag(oTarget);
string sStoreResRef = sStoreTag;
if (sParameter != "")
{ sStoreResRef = sParameter; }
object oStore = CreateObject(OBJECT_TYPE_STORE, sStoreResRef, GetLocation(oPC), FALSE, sStoreTag);
if (!GetIsObjectValid(oStore))
{ oStore = CreateObject(OBJECT_TYPE_STORE, "Empty_Store", GetLocation(oPC), FALSE, sStoreTag); }
if (GetIsObjectValid(oStore))
{ SetLocalObject(oPC, "DM_Tool_Target", oStore);
SendMessageToPC(oPC, "New target: " + GetName(oStore) + "\nTag: " + GetTag(oStore));
return;
}
else
{ SendMessageToPC(oPC, "ERROR: Store not created. Reason unknown."); return; }
}
if (sCommand == "copyshop")
{ if (GetIsPC(oTarget) || !(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE))
{ SendMessageToPC(oPC, "ERROR: Not an NPC!"); return; }
object oStore = GetNearestObjectByTag("Store_" + GetTag(oTarget), oTarget);
if (!GetIsObjectValid(oStore) || (GetObjectType(oStore) != OBJECT_TYPE_STORE))
{ SendMessageToPC(oPC, "ERROR: Could not find store!"); return; }
string sStoreName = GetName(oStore);
string sStoreTag = GetTag(oStore);
if (!(sParameter == ""))
{ sStoreTag = sParameter; }
object oNewStore = CreateObject(OBJECT_TYPE_STORE, "Empty_Store", GetLocation(oPC), FALSE, sStoreTag);
if (GetIsObjectValid(oNewStore))
{ object oMerchandise = GetFirstItemInInventory(oStore);
while (GetIsObjectValid(oMerchandise))
{ if (GetInfiniteFlag(oMerchandise))
{ CopyItem(oMerchandise, oNewStore, TRUE); }
oMerchandise = GetNextItemInInventory(oStore);
}
SetName(oNewStore, sStoreName);
SetLocalObject(oPC, "DM_Tool_Target", oNewStore);
SendMessageToPC(oPC, "New target: " + GetName(oNewStore) + "\nTag: " + GetTag(oNewStore));
return;
}
else
{ SendMessageToPC(oPC, "ERROR: Store not created. Reason unknown."); return; }
}
if (sCommand == "clone")
{ if ( !((GetObjectType(oTarget) == OBJECT_TYPE_ITEM) || (GetObjectType(oTarget) == OBJECT_TYPE_CREATURE)))
{ SendMessageToPC(oPC, "ERROR: You may only clone items and creatures."); return; }
int iCopies = StringToInt(sParameter);
if (sParameter == "")
{ iCopies = 1; }
if (iCopies < 1)
{ SendMessageToPC(oPC, "ERROR: Number of copies must be an integer greater than zero!"); return; }
int iLoop = 0;
while (iLoop < iCopies)
{ if (GetObjectType(oTarget) == OBJECT_TYPE_ITEM)
{ CopyObject(oTarget, GetLocation(oPC), oPC); }
else
{ CopyObject(oTarget, GetLocation(oTarget)); }
iLoop++;
}
return;
}
if ((sCommand == "copyfrom") || (sCommand == "copyto"))
{ object oSource;
object oDest;
object oThingie;
if (sCommand == "copyfrom")
{ oSource = GetLocalObject(oPC, "oDM_Bag1");
oDest = GetLocalObject(oPC, "oDM_Bag2");
}
else
{ oSource = GetLocalObject(oPC, "oDM_Bag2");
oDest = GetLocalObject(oPC, "oDM_Bag1");
}
if (!GetIsObjectValid(oSource) || !GetIsObjectValid(oDest))
{ SendMessageToPC(oPC, "ERROR: Invalid target. Re-target both containers."); return; }
if (!GetHasInventory(oSource) || !GetHasInventory(oDest))
{ SendMessageToPC(oPC, "ERROR: Command may only be used with containers."); return; }
CopyContents(oSource, oDest, sParameter);
return;
}
// Doesn't match anything
SendMessageToPC(oPC, "ERROR: Invalid command.");
}
Reference in New Issue View Git Blame Copy Permalink