Jump to content

Moving Through A Path


Recommended Posts

How does the moving through path option in the interface work? I want to move through different chambers whenever the bot finishes the mobs in the actual one. And if you make a path when it finishes does it go back through the same route or does it finishes in the last point? I want to know if I can configure the bot interface to move in circles. If it can't be done with the interface how would it be with a script?

Is autotarget the right check? It could target a mob that is being hit by other player and I wouldn't want to count that.

procedure  StakatoNest;
begin
  if  not User.InRange (89701, -44683, -2136, 10000, 10000)  then begin
    TeleportTo ('swamp of screams');
  end;
  if  User.InRange (89701, -44683, -2136, 500, 200)  then begin
    //move to the nest
  end;
  // when in the first chamber
  if  User.InRange (85004, -42461, -4616, 500, 200)  then begin
    Engine.FaceControl (0, true);
    while  Engine.Status = lsOnline  do begin
      Engine.LoadZone (exepath + 'Zmaps\StakatoNest1st.zmap');
      while  Engine.AutoTarget  do begin
        Print ('Stay in the first chamber');
        Delay (15 * 1000);
      end;
      Print ('moving to second chamber');
      Engine.MoveTo (79428, -46165, -5129);
      Engine.MoveTo (79284, -46526, -5128);
      Engine.MoveTo (79373, -47022, -5160);
      Engine.LoadZone ('chamber1');
      Engine.LoadZone (exepath + 'Zmaps\StakatoNest2nd');
      while Engine.AutoTarget do begin
        Delay (10 * 1000);
      end;
      Print ('moving to first chamber');
      Engine.MoveTo (79373, -47022, -5160);
      Engine.MoveTo (79284, -46526, -5128);
      Engine.MoveTo (79428, -46165, -5129);
    end;
  end;
end;

BEGIN
  StakatoNest;
END.
if  User.InRange (85004, -42461, -4616, 20000, 8000)  then
  begin
    Print ('Inside the nest');
    if  (User.DistTo (79915, -48867, -5120) < User.DistTo (79915, -46316, -5120))  then
      chamber := 2
    else chamber := 1;
    Engine.FaceControl (0, true);
    while  Engine.Status = lsOnline  do
    begin
      if  ( chamber = 1 )  then
      begin
        Engine.LoadZone (exepath + 'Zmaps\StakatoNest1st.zmap');
        thereAreMobs := true;
        while  thereAreMobs  do begin
          for  i := 0  to  NpcList.Count-1  do begin
            if  NpcList.Items(i).Attackable  then begin
              continue;
              thereAreMobs := false;
            end else begin 
              Print ('Stay in the first chamber');
              Delay (3 * 1000);
            end;
          end;
        end;
        Print ('moving to second chamber');
        Engine.MoveTo (79428, -46165, -5129);
        Engine.MoveTo (79284, -46526, -5128);
        Engine.MoveTo (79373, -47022, -5160);
      end;
      Engine.LoadZone (exepath + 'Zmaps\StakatoNest2nd.zmap');
      thereAreMobs := true;
      while  thereAreMobs  do begin
        for  i := 0  to  NpcList.Count-1  do begin
          if  NpcList.Items(i).Attackable  then begin
            continue;
            thereAreMobs := false;
          end else begin 
            Print ('Stay in the first chamber');
            Delay (3 * 1000);
          end;
        end;
      end;
      Print ('moving to first chamber');
      Engine.MoveTo (79373, -47022, -5160);
	    Engine.MoveTo (79284, -46526, -5128);
      Engine.MoveTo (79428, -46165, -5129);
    end;
  end else  Print ('You aren''t in the nest');
end;
Edited by darknesscrysis
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...