NPC AI Wander Code working sorta...

$NPC::Attack=1;
$NPC::Defend=2;
$NPC::Spell=3;
$NPC::Arts=4;
$NPC::Item=5;
$NPC::Disabled=6;
$NPC::Waiting=7;
$NPC::Idle=8;
$NPC::Moving=9;
$NPC::PickDestionation=10;
$NPC::Init=15;
 datablock PlayerData(NPCMale : Player)  
 {  
      category= "NPC_CHARACTERS"; // Add to editor  
      shapeFile = "art/shapes/players/Tori/Tori.dts";

 };  

function NPCMale::onAdd(%this,%obj)  
{
   %this.schedule(50, "think",%obj);
}  
   
function PlayerData::create(%block)
{
  // The mission editor invokes this method when it
  // wants to create an object of the given datablock
  // type.  You only need one of these methods for any
  // class/datablock type (in this case StaticShape).
      %obj = new AIPlayer() {  
        dataBlock = NPCMale;  
        aiPlayer = true;  
        DestinationX=0;
        DestinationY=0;
        OriginX=0;
        OriginY=0;
        CurrentState = $NPC::Init;
        MovementRadius=10;
        MovementDistance=6;
        MovementSpeed=0.5;
        WaitTime=10000;
    };  
  return(%obj);
}

function NPCMale::WanderSomewhere(%this, %obj){
   %Xpos=0;
   %Ypos=0;
   
   %xfrm = %obj.getTransform();
   %charX=getWord(%xfrm,0);
   %charY=getWord(%xfrm,1);
   %distance=%obj.MovementDistance;
   
   %WanderMinX=%obj.OriginX-%obj.MovementRadius;
   %WanderMaxX=%obj.OriginX+%obj.MovementRadius;
   %WanderMinY=%obj.OriginY-%obj.MovementRadius;
   %WanderMaxY=%obj.OriginY+%obj.MovementRadius;
   
   while(1){
    %direction=(6.28/360)*(getRandom(0,360));
    %Xpos= mCos(%direction)*%distance;
    %Ypos= mSin(%direction)*%distance;
    
    if(
    %charX+%Xpos >= %WanderMinX &&
    %charX+%Xpos <= %WanderMaxX &&
    %charY+%Ypos >= %WanderMinY &&
    %charY+%Ypos <= %WanderMaxY )
    {
      %obj.DestinationX=%charX+%Xpos;
      %obj.DestinationY=%charY+%Ypos;
      %obj.setMoveDestination(" "@ %charX+%Xpos @" "@ %charY+%Ypos @" "@0,true);
      break;    
    }else{
      //Return to Origin
      %obj.setMoveDestination(" "@ %obj.OriginX @" "@ %obj.OriginY @" "@0,true);
      break;
    }
   }
}
function NPCMale::think(%this,%obj){
   %a=0;
   switch(%obj.CurrentState){
      case $NPC::Disabled :
         break;
      case $NPC::Waiting : 
         %obj.CurrentState=$NPC::PickDestionation;
         %this.schedule(%obj.WaitTime, "think",%obj);
         break;
      case $NPC::Idle :
         break;
      case $NPC::Moving :
         /*%xfrm = %obj.getTransform();
         %charX=getWord(%xfrm,0);
         %charY=getWord(%xfrm,1);
         %Vect1 = %charX@","@%charY@",0";
         %Vect2 = %obj.DestinationX@","@%obj.DestinationY@",0";
         %distance = VectorDist( %Vect1,%Vect2 );
         echo("%distance: "@%distance);
         if(%distance<2){
            %this.CurrentState=$NPC::Waiting;
         }else{
            %this.CurrentState=$NPC::Moving;
         }
         %this.schedule(50, "think",%obj);*/
         break;
      case $NPC::PickDestionation :
         %this.WanderSomewhere(%obj);
         %obj.CurrentState=$NPC::Moving;
         //%this.schedule(50, "think",%obj);
         break;
      case $NPC::Init :
         %xfrm = %obj.getTransform();
         %charX=getWord(%xfrm,0);
         %charY=getWord(%xfrm,1);
         %obj.OriginX=%charX;
         %obj.OriginY=%charY;
         %obj.setMoveSpeed(%obj.MovementSpeed);
         %obj.CurrentState=$NPC::Waiting;
         
         %this.schedule(50, "think",%obj);
         break;
   }
}

function NPCMale::onMoveStuck(%this, %obj){
   %obj.setMoveDestination(" "@ %obj.OriginX @" "@ %obj.OriginY @" "@0,true);
}
function NPCMale::onReachDestination(%this, %obj){
   %obj.CurrentState=$NPC::Waiting;
   %this.schedule(50, "think",%obj);
}

So I have the character in the Scripted objects section of the editor, and i can add the NPC to the field, with the custom fields in the object properties. So now all i have to add is the other NPC parts like speech, time of the day they will be displayed and things like that. My only problem is that I can only add 1 instance of this object. When I add another NPC the engine freezes.

The only thing I can thing that doing this is the face that the schedule is calling %this.Schedule instead of %obj.schedule but when I use %obj the function isn't called. I's there something I'm missing?

Also if someone is using this the onStuck is never called when NPC gets stuck on running into a fence so you can delete that.

Edit: HMM isn't not freezing now... maybe i had to delete my DSO's But still I should be able to do %obj.schedule to access my think function right?

As an added not i find it cool that I dropped one in the water and it started swiming ^^ Though he can't raise to the top of the water... Atleast he's swiming on the river floor.