Jump to content

Recommended Posts

Posted (edited)

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

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...