PDA

View Full Version : [RS07]AutoCurser problem running script



rsbots2013
03-28-2013, 06:20 AM
CurseRelease2.simba(21:2): Identifier expected at line 20

procedure CheckInvo;
begin
mmouse(735,212,5,5);
wait(randomrange(10,150));
clickmouse2(mouse_left);
wait(randomrange(500,5000));
mmouse(835,206,5,5);
wait(randomrange(25,50));
clickmouse2(mouse_left);
//end;

Can someone help please

tealc
03-28-2013, 06:30 AM
that was script was before the no anti leech rule. i'll post the fixed version if thats allowed

edit: no one?

here it is. It compiles now and shouldn't gave an error.

program Curser;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}


var
x,y:Integer;
procedure Friendchat;
begin
mmouse(671,509,5,5);
wait(randomrange(10,100));
clickmouse2(mouse_left);
wait(randomrange(500,5000));
mmouse(833,209,5,5);
wait(randomrange(10,50));
clickmouse2(mouse_left);
end;

procedure CheckInvo;
begin
mmouse(735,212,5,5);
wait(randomrange(10,150));
clickmouse2(mouse_left);
wait(randomrange(500,5000));
mmouse(835,206,5,5);
wait(randomrange(25,50));
clickmouse2(mouse_left);
end;


procedure ClickCurse;

begin
WriteLn('Clicking curse');
mmouse(659,261,5,5);
clickmouse2(mouse_Left);
wait(randomrange(50,200));
end;
procedure CurseMonk;
begin
if P07_FindObj(x,y, 'onk',3423118,5) then
begin
mmouse(x,y,2,2);
clickmouse2(mouse_left);
wait(randomrange(1000,2000));
end;
end;
Function AntiBan: Boolean;
begin
case random(300) of
1: FriendChat;
2: P07_MakeCameraAngleHigh;
3: P07_MakeCompassSouth;
4: P07_MakeCompassEast;
5: P07_MakeCompassWest;
6: MMouse(random(700), random(400), 0, 0);
7: CheckInvo;
end;
end;


begin
SetupP07Include;
ActivateClient;
wait(randomrange(500,2000));
repeat
ClickCurse;
CurseMonk;
antiban;
until(false)


end.

Runehack123
03-28-2013, 06:54 AM
Does it still give you an erroR? I can help you over skype teamviewer if need