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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock