7b9e44ebbb
Initial upload. PRC8 has been added. Module compiles, PRC's default AI & treasure scripts have been integrated. Started work on top hak for SLA / Ability / Scripting modifications.
82 lines
3.2 KiB
Plaintext
82 lines
3.2 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//:: sc_farmer_field
|
|
//:://////////////////////////////////////////////
|
|
/*
|
|
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Almion the Bard
|
|
//:: Created On: 06/26/2002
|
|
//:://////////////////////////////////////////////
|
|
// This is a daily routine script for a farmer NPC. It checks the time of day
|
|
// and has him do animated tasks around the farm depending on the time. The
|
|
// tasks are based around waypoints that are placed in the different areas where
|
|
// you want him to perform the tasks.
|
|
//
|
|
// Placed in user defined area of the NPC's heartbeat event
|
|
//////////////////////////////////////////////////
|
|
void main()
|
|
{
|
|
int nUser = GetUserDefinedEventNumber();
|
|
|
|
object oFieldpoint = GetLocalObject(OBJECT_SELF, "FIELD_WAYPOINT");
|
|
|
|
// FIELD_WAYPOINT is the tag of all the waypoints in the field that the
|
|
// farmer will work
|
|
|
|
if (nUser == 1001) //OnHrtbt
|
|
{
|
|
|
|
if ((!IsInConversation(OBJECT_SELF))&&(!GetIsInCombat(OBJECT_SELF)))
|
|
{
|
|
int nRandom = d6();
|
|
while (nRandom == GetLocalInt (OBJECT_SELF, "LAST_FIELD_WAYPOINT"))
|
|
nRandom = d6();
|
|
|
|
if (!GetIsObjectValid(oFieldpoint) && GetLocalInt(OBJECT_SELF, "RPO_Flee") == FALSE)
|
|
{
|
|
oFieldpoint = GetNearestObject(OBJECT_TYPE_WAYPOINT, OBJECT_SELF, nRandom);
|
|
if (GetIsObjectValid(oFieldpoint) && oFieldpoint != OBJECT_SELF && FindSubString(GetTag(oFieldpoint),"FIELD") >=0 )
|
|
{
|
|
//Move to the Waypoint in the Field
|
|
SetLocalInt(OBJECT_SELF, "LAST_FIELD_WAYPOINT", nRandom);
|
|
SetLocalInt(OBJECT_SELF, "FARMER_STATE", 1);
|
|
SetLocalObject(OBJECT_SELF, "FIELD_WAYPOINT", oFieldpoint);
|
|
ActionMoveToObject(oFieldpoint);
|
|
ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW, 0.0,10.0);
|
|
ActionDoCommand(SetLocalObject(OBJECT_SELF, "FIELD_WAYPOINT", OBJECT_INVALID));
|
|
}
|
|
}
|
|
// Reset My Actions
|
|
SetLocalObject(OBJECT_SELF, "FIELD_WAYPOINT", OBJECT_INVALID);
|
|
SetLocalInt(OBJECT_SELF, "FARMER_STATE", 0);
|
|
|
|
}
|
|
|
|
}
|
|
else if(nUser == 1008) // DISTURBED
|
|
{
|
|
object oDisturber = GetLastDisturbed();
|
|
if (GetIsObjectValid(oDisturber))
|
|
{
|
|
ClearAllActions();
|
|
int nDisturbed = GetLocalInt(oDisturber, "RPO_Disturbed_" + GetName(OBJECT_SELF));
|
|
if (nDisturbed == 0)
|
|
ActionSpeakString("Leave me alone or I shall call them guards!");
|
|
else if (nDisturbed == 1)
|
|
ActionSpeakString("I told ya to leave me alone! Be warned scum!");
|
|
else
|
|
{
|
|
SetLocalInt(OBJECT_SELF, "RPO_Flee", TRUE);
|
|
ActionSpeakString("Guards! Guards! Protect me from this thief!", TALKVOLUME_SHOUT);
|
|
ActionMoveToObject(GetObjectByTag("OFFGuard"), TRUE);
|
|
ActionDoCommand(SetLocalInt(OBJECT_SELF, "RPO_Flee", FALSE));
|
|
AdjustReputation(oDisturber, GetObjectByTag("OFFGuard"), -100);
|
|
nDisturbed = -1;
|
|
}
|
|
nDisturbed++;
|
|
SetLocalInt(oDisturber, "RPO_Disturbed_" + GetName(OBJECT_SELF), nDisturbed);
|
|
}
|
|
}
|
|
}
|