SRL Archive - Help

I've looked at a thread and I cant figure out if theres an error in the 'end./;'

Heres my code:

program Theiving;

Procedure StartTheiving;

var
   x, y:Integer;

  begin
   if FindColorSpiralTolerance(x, y, 10263980, 354, 193, 865, 524, 5) then
     begin
     MoveMouse(x, y); //Moves to Coin Stall
     ClickMouse(x, y, 1);
     Wait(2000);
     end;

   begin
   if FindColorSpiralTolerance(x, y, 16777215, 435, 254, 827, 482, 5) then
  begin
     MoveMouse(853, 238); // Moves mouse to X
     ClickMouse(853, 238, 1);
     Wait(1000);
     end;
 StartTheiving;
  repeat
  StartTheiving;
 until(false);
  end;                                           

Error: [Error] (1:1): Unexpected end of file at line 0
Compiling failed.

program Theiving;

Procedure StartTheiving;
var
  x, y:Integer;
begin
  if FindColorSpiralTolerance(x, y, 10263980, 354, 193, 865, 524, 5) then
    begin
      MoveMouse(x, y); //Don't use Move Mouse  (see below)
      ClickMouse(x, y, 1);
      Wait(2000);
    end;

  if FindColorSpiralTolerance(x, y, 16777215, 435, 254, 827, 482, 5) then
    begin
      MoveMouse(853, 238); //Don't use Move Mouse  (see below)
      ClickMouse(853, 238, 1);
      Wait(1000);
    end;
  StartTheiving;
  repeat
    StartTheiving;
  until(false);
end;

begin     //This is your main procedure (the one that is run when you start the script) you use it to call other procedures

end.

I also fixed your standards (the indented parts) it makes it all easier to read


Don't use Move Mouse!!! this will get you banned Use MMouse instead

^ already told him, but this is for a private so he's okay.
Can you please just stick to one help thread instead of making multiple for the same script.

Ooo, Thank you so much putonajonny

Sorry yohoJo.

If you havent already, you can delete all the other threads. :)

Guys sorry if this is a nubby question, but my script isn't doing anything :S, it just says successfully compiled.

Did you put the procedure into your main procedure already?

From: spin3x
Guys sorry if this is a nubby question, but my script isn't doing anything :S, it just says successfully compiled.

You don't call SetupSRL (SMART doesn't load) and you don't log in a player. ;)

E: Didn't read private server anywhere. Disregard

And also you need to include srl and smart at the top of the script. Maybe compare how different is your script than others.

LOL @ all above.
script is for a PRIVATE SERVER so most/none of those things will work since SRL/SMART only work with latest Runescape interface.

Whops… My bad for not reading your post up there :p

So probably not putting anything in the main procedure?

Thank you for all you help,
Cut em2 it on skype really helped me. :)

Since I dont want to make a new thread, Ill just ask here.
Since I now done a very simple script which can run for hours :)

Is it possible to make a script which will do the following:
Start edge bank>
Go to mage book and teleport to CAnafis>
Run to the logs(No gates or anything)
Cast a spell to get an item and then use that item on the log to get fungus>
Once a full inventory is detected it teleports to edge>
Finds bank>
Deposits>
Repeat.

The edge could be replaced with another bank if easier.

I was wondering if that is possible to make on a RSPS, meaning that it can be the shittiest quality ever, just aslong as it runs. :)

Its very possible to make a mort myre fungus collector for RS, but I'm not sure for a private server since I never made one for it.

Do you think it would be easier or harder? I thought it would be easier as you cant get banned so no need for anti bans, it can be as robotic as I want.

How long do you think the code would be? According to my 1st post

Scripts like these needs efficiency, so even if I made one for RS, I wouldn't put antiban which will slow down the script.

It might be a little hard on the part where you have to stand on a fixed position to cast the spell, I'm not sure how you can walk to a fixed tile everytime though, wait for some experts to come in. As for the other parts, I don't think its hard.

It doesnt have to be a fixed position, you just run until you can see the 1st log, then you cast the sickle and use the items from inve onto the log. It would automatically go to the log from anywhere when you use the item on the log.

Thanks so much for your help :)

Guys can someone give me the best method to use for walking on a rsps.

I tried
My code:

program Fungus;
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
  MyPath:TPointArray;
begin
 SPS_Setup(RUNESCAPE_SURFACE,['14_6']);
 myPath := [Point(215, 352), Point(211, 311), Point(186, 319), Point(167, 333), Point(143, 345), Point(117, 355), Point(121, 374), Point(122, 392), Point(123, 406), Point(128, 423)];//Path
 SPS_WalkPath(myPath);
end.          

But it doesnt do anything for some reason.