SRL Archive - Non-RuneScape Scripts

Hey guys so I'm trying to use simba to auto fight on a game called fantasy online http://www.fantasy-mmorpg.com/ this is what I found.

program AutoFighter;

var
x,y: Integer;

const

procedure Attack;
begin
  If FindColorTolerance(x, y, 181213210, 16, 54, 768, 487, 5) then
 begin
 Writeln('Found NPC > Attacking!')
  MoveMouse(x,y+random(3));
wait(randomrange(25,50));
  ClickMouse(x,y,mouse_Left);

  Wait(5000); //MS to wait. 1000 = 1sec
 end;
end;

begin
 repeat

 Attack; //Procedure Attack

 until(false);
end.     

problem is I'll click run and get this error message

[Error] (9:1): Identifier expected at line 8
Compiling failed.

Help me out? :D

you don't need const if you aren't using any

program AutoFighter;

var
x,y: Integer;

procedure Attack;
begin
  If FindColorTolerance(x, y, 181213210, 16, 54, 768, 487, 5) then
 begin
 Writeln('Found NPC > Attacking!')
  MoveMouse(x,y+random(3));
wait(randomrange(25,50));
  ClickMouse(x,y,mouse_Left);

  Wait(5000); //MS to wait. 1000 = 1sec
 end;
end;

begin
 repeat

 Attack; //Procedure Attack

 until(false);
end.

That code is from me lol, someone requested a start :P

Did it help you anyways?

I've worked on it as my first script.. Bas's original looks alot like it was mostly taken from procedures from YohoJo's Video tut#1.. Tried to build one from scratch and it looked pretty similar..
I'm a few days into it(study'ing pascal), but it mostly functions as far as fighting a particular npc.. long way from any AIO's. Depending on what client you're using, or if you can bring the game screen into it's own window, some of the co-ords need to be modified. After I get it to be a little less buggy, I'll make another one to post here, cuz I don't want a ton of ppl in my grinding spots. :norris: :D
:spot: