SRL Archive - Help

Guys I know this is probably an easy fix, but this is what I really find hard (The ending)
Code:

program Fungus;
var
  time: integer;

Procedure ToBar;
var
  x, y:Integer;
begin
  if FindColorSpiralTolerance(x, y, 2190478, 556, 82, 723, 230, 5) then //bar
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
begin
  if FindColorSpiralTolerance(x, y, 730719, 556, 82, 723, 230, 5) then   // Plant
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
begin
  if FindColorSpiralTolerance(x, y, 999777, 556, 82, 723, 230, 5) then   //Swamp
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
begin
  if FindColorSpiralTolerance(x, y, 2969405, 556, 82, 723, 230, 5) then   //log
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
      end;

begin
  ToBar
  repeat
    ToBar;
  until(false);
  end.  

Error: [Error] (40:6): Identifier expected at line 39
Compiling failed.

For every begin, you need an end. Also, you can just do:

begin
  repeat
    ToBar;
  until(false);
 end.

there are so many missing "end;" i recommend you to don't use begin before MoveMouse.. and MoveMouse is really bot-like…

Use Mouse(x, y, 0, 0, True/False);

I fixed your standards and made it smaller:

program Fungus;
{$i SRL/SRL.simba}
// be sure to include SRL!

var
  time: Integer;

Procedure ToBar;
var
  Colors: TIntegerArray;
  i, x, y: Integer;
begin
  Colors := [2190478, 730719, 999777, 2969405]; // put all of the colors into an array
  for i := 0 to High(Colors) do
  begin
    if FindColorSpiralTolerance(x, y, Colors[i], 556, 82, 723, 230, 5) then // Colors[i] represents a single color
    begin
      {MoveMouse(x, y);
      ClickMouse(x, y, 1);}
      Mouse(x, y, 3, 3, mouse_left); // same as the above but less bot-like
      FFlag(2); // waits until it's close to the MM flag until continuing
      Wait(500+Random(500)); // randomness is good
    end;
  end;
end;

begin
  MarkTime(time);
  repeat
    ToBar;
  until(TimeFromMark(time) > (60 * 1000)); // 60 seconds
end.

It doesnt seem to do anything… The mouse just moves to the right by like a mm

Make sure SRL.simba is included:

{$i SRL/SRL.simba}

and also, you can use global coordinates for the minimap with your color-finding, like this:

if FindColorSpiralTolerance(x, y, Colors[i], MMX1, MMY1, MMX2, MMY2, 5) then

Umm I forgot to mention that this is for an rsps, if that makes a difference.

The only difference it makes is that you don't have to worry about using human-like movement. And basically play as a computer not human!

Can anyone trusted please tv me. Im having trouble, like I said aboce, when I click run the mouse just moves slowly to the right.

Any idea why this isnt doing anything? I select my rsps client using the cross hair, press run and doesnt do anything (Script is running)

program SPSTut;
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
  myPath:TPointArray;
begin
  SetupSRL;
  SPS_Setup(RUNESCAPE_SURFACE,['14_6']);//SPS Areas
  myPath := [Point(215, 341), Point(212, 316), Point(177, 331), Point(156, 348), Point(146, 377), Point(125, 399), Point(131, 422)];//Path
  SPS_WalkPath(myPath);
end.

begin
  MarkTime(time);
  until(false)
end.     

Umm, Are you sure you have the RSPS Client targeted with simba using this thing:

Yh, Im pretty sure. Im just wondering that it might be the actual code. Im still new to this. Does sps walking work with rsps? The rsps is a 714 source meaning it looks exactly like rs.

I dont understand what is wrong with thise:

program Fungus;
var
  time: integer;

Procedure ToBar;
var
  x, y, Time:Integer;
begin
  if FindColorSpiralTolerance(x, y, 2190478, 518, 1, 716, 165, 5) then //bar
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
begin
  if FindColorSpiralTolerance(x, y, 730719, 518, 1, 716, 165, 5) then   // Plant
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
begin
  if FindColorSpiralTolerance(x, y, 999777, 518, 1, 716, 165, 5) then   //Swamp
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
begin
  if FindColorSpiralTolerance(x, y, 2969405, 518, 1, 716, 165, 5) then   //log
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
      end;

begin

  until(false)
end. 

For every begin, you need an end. I thought that is answered. If your mouse is slow, try putting SetupSRL in your main loop before everything else. Or just set your mouse speed. I believe normal setupsrl mouse speed is 15.

MouseSpeed := 15;

Ok so I think I had it and then got an error on the Until

program Fungus;
var
  time: integer;

Procedure ToBar;
var
  x, y, Time:Integer;
begin
  if FindColorSpiralTolerance(x, y, 2190478, 518, 1, 716, 165, 5) then //bar
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
      end;
begin
  if FindColorSpiralTolerance(x, y, 730719, 518, 1, 716, 165, 5) then   // Plant
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
      end;
begin
  if FindColorSpiralTolerance(x, y, 999777, 518, 1, 716, 165, 5) then   //Swamp
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
      end;
begin
  if FindColorSpiralTolerance(x, y, 2969405, 518, 1, 716, 165, 5) then   //log
    begin
      MoveMouse(x, y);
      ClickMouse(x, y, 1);
      Wait(2000);
      end;

begin
   ToBar
until (false); //line 39
end.   

[Error] (40:4): Identifier expected at line 39
Compiling failed.

You got 9 begins, and only 5 ends.

And basically, all the solutions needed are already posted on this thread, just that you didn't read them?

From: CephaXz
You got 9 begins, and only 5 ends.

And basically, all the solutions needed are already posted on this thread, just that you didn't read them?

Yeah… take a look at the code I posted. It's (Length(your code) / 2) + speed.

The only reason why I tried to do it again is because when I use your code, whenever I click start and move my mouse anywhere, it just keeps moving by like a mm to a direction.

Thats why I asked if someone can tv me, I wanted to show what its doing.

You need to put in
SetupSRL;

Try reading the posts again, I already answered the solution to your problem.

Omgf sorry for not reading your thread :S I feel stupid. That fixed the problem :) Thank you so much.

Im truly sorry if I'm annoying or irritating but I really want to learn

Thank you both :) :) Reped