//tag-playing children by Ralf Schemmann
//July 17th, 2002
//
//Minor additions by Elhimac
//Updated 22 July 2002
//
//if owner is chasing
void main()
{
int nUser = GetUserDefinedEventNumber();
if(nUser == 1001) //HEARTBEAT EVENT
{
object oPlayground = GetWaypointByTag("KidTagCenter");
object oTagArea = GetWaypointByTag("TagArea"+IntToString(Random(4)));
if (GetDistanceToObject(oPlayground) > 6.0f)
{
ClearAllActions();
ActionForceMoveToObject(oTagArea,TRUE, 0.0f);
}
if (GetDistanceToObject(oPlayground) < 6.0f)
{
if (GetLocalInt(OBJECT_SELF, "nChasing") == 1)
{
//Find kid to chase
object oChased = GetNearestObjectByTag("TAGCHILD");
//Is owner close enough to tag?
if (GetDistanceToObject(oChased) < 2.0f )
{
//Tag and switch roles
SpeakString("Tag!", TALKVOLUME_TALK);
AssignCommand(oChased, ClearAllActions());
SetLocalInt(OBJECT_SELF, "nChasing", 0);
SetLocalInt(oChased, "nTagged", 1);
//RemoveEffect(OBJECT_SELF, EffectHaste());
ClearAllActions();
ActionMoveAwayFromObject(oChased, TRUE);
}
//if still too far away, move after target
else
{
ActionForceMoveToObject(oChased, TRUE, 0.0f);
}
}
//owner is being chased
else
{
//If kid has been tagged, wait a hearbeat then start chasing
if (GetLocalInt(OBJECT_SELF, "nTagged") == 1)
{
SetLocalInt(OBJECT_SELF, "nTagged", 0);
SetLocalInt(OBJECT_SELF, "nChasing", 1);
//ApplyEffectToObject(DURATION _TYPE_INSTANT, EffectHaste(), OBJECT_SELF);
}
//if not been tagged, run away from chaser or move closer to other kids
else
{
//Find Nearest tag-playing child
object oChaser = GetNearestObjectByTag("TAGCHILD");
//if this is the chaser
if (GetLocalInt(oChaser, "nChasing") == 1)
//run away from chaser
ActionMoveAwayFromObject(oChaser, TRUE);
else
//run after other kid
ActionForceMoveToObject(oChaser, TRUE, 4.0f);
}
}
}
}
}

////////////////////////////// ////////////////////////////// /////////
//:Par Ralf Schemmann
//:July 17th, 2002

////////////////////////////// ////////////////////////////// /////////


void main()
{
    int nUser = GetUserDefinedEventNumber();
    if(nUser == 1001) //HEARTBEAT EVENT
    {
      object oPlayground = GetWaypointByTag("KidTagCenter");
      object oTagArea = GetWaypointByTag("TagArea"+IntToString(Random(4)));
      if (GetDistanceToObject(oPlayground) > 6.0f)
      {
          ClearAllActions();
          ActionForceMoveToObject(oTagArea,TRUE, 0.0f);
      }
      if (GetDistanceToObject(oPlayground) < 6.0f)
      {
            if (GetLocalInt(OBJECT_SELF, "nChasing") == 1)
            {
               
                object oChased = GetNearestObjectByTag("TAGCHILD");
               
                if (GetDistanceToObject(oChased) < 2.0f )
                {
                   
                    SpeakString("Chat!", TALKVOLUME_TALK);
                    AssignCommand(oChased, ClearAllActions());
                    SetLocalInt(OBJECT_SELF, "nChasing", 0);
                    SetLocalInt(oChased, "nTagged", 1);
                    //RemoveEffect(OBJECT_SELF, EffectHaste());
                    ClearAllActions();
                    ActionMoveAwayFromObject(oChased, TRUE);
                }
               
                else
                {
                    ActionForceMoveToObject(oChased, TRUE, 0.0f);
                }
            }
           
            else
            {
                //Si l'on lui a fait chat, attendre un heartbeat et chasser
                if (GetLocalInt(OBJECT_SELF, "nTagged") == 1)
                {
                    SetLocalInt(OBJECT_SELF, "nTagged", 0);
                    SetLocalInt(OBJECT_SELF, "nChasing", 1);
                    //ApplyEffectToObject(DURATION _TYPE_INSTANT, EffectHaste(), OBJECT_SELF);
                }
                //Si on ne lui a pas encore fait chat, eviter le chat et rejoindre les autres copains
                {
                    //Trouve le copain le plus proche
                    object oChaser = GetNearestObjectByTag("TAGCHILD");
                    //mais s'il est chat
                    if (GetLocalInt(oChaser, "nChasing") == 1)
                    //se sauver
                    ActionMoveAwayFromObject(oChaser, TRUE);
                    else
                   
                    ActionForceMoveToObject(oChaser, TRUE, 4.0f);
                }
            }
        }
    }
}

//:///////////////////////// /////////////////////
//:: enfrevient
//:: FileName
//:: Copyright (c) 2001 Bioware Corp.
//:///////////////////////// ////////////////////
/* Quand l'enfant sort de la zone, il y revient.

*/
//:///////////////////////// ////////////////////
//:: Created By: Maremick
//:: Created On: 27/05/2004
//:///////////////////////// ////////////////////

void main()
{
  object oZoneDeJeu = OBJECT_SELF;
  object oSortant = GetExitingObject();
  string sTagSortant = GetTag(oSortant);
  if (sTagSortant=="TAGCHILD")
  AssignCommand(oSortant, ActionMoveToObject(oZoneDeJeu, TRUE));
}

//:///////////////////////// /////////////////////
//:: enfrevient
//:: FileName
//:: Copyright (c) 2001 Bioware Corp.
//:///////////////////////// ////////////////////
/*
  Quand l'enfant sort de la zone, il y revient.
*/
//:///////////////////////// ////////////////////
//:: Created By: Maremick
//:: Created On: 27/05/2004
//:///////////////////////// ////////////////////

void main()
{
  object oZoneDeJeu = GetNearestObjectByTag("inzone");
  object oSortant = GetExitingObject();
  string sTagSortant = GetTag(oSortant);
  if (sTagSortant=="TAGCHILD")
  AssignCommand(oSortant, ActionForceMoveToObject(oZoneDeJeu, TRUE));
}