So ive followed the guide to chopping your first tree and tried to adapt it to clean ranarrs for me... so far i have:
program New;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0: PickUpMouse;
1: begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
procedure CleanUnid;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'nide', 348421, 35) then
begin
Mouse(x, y, 0, 0, True);
end;
repeat
wait(100+random(250));
AntiBan;
Until not IsUpText('nide');
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
CleanUnid
end.
it is saying errors on line 48 and 55 which are the last 2 "end;"s... how do i fix this? or have i done the whole script wrong? also, how would i go about adding banking + pot making? if you could help id be very greatful!


Reply With Quote
