Here we go:
SCAR Code:
program powerminer;
{.include SRL/SRL.scar}
const
rockcolor1= 472123;//set the color of the rock
rockcolor2= 567243;//set color of rock (these aren't the real colors)
var x,y,randomm: integer;
IronOre: integer;
var tx,ty,randommm: integer;
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='username';//Username
Players[0].Pass :='pass';//Password
Players[0].Nick :='ser';//3-4 Letters from your username NOT THE FIRST
Players[0].Active:=True;//Autoing? True/False
end;
////////////////////////////////////////////////////////////////////////////////
procedure DTMs;
begin
IronOre := DTMFromString('78DA6314616060E06740011EBA0A0C5C409A1' +
'188FF0301A3009021CD801530C26876202148408D1C9010439755' +
'4055230F24B8B09B0057230E245809A801F9898D801A4E20C18D5' +
'F0D006EB005D8');
end;
Procedure Randoms;
Begin
FindTalk;
FindNormalRandoms;
SolveChatRandom;
FindLamp('Mining');
SolvePinball;
DwarfItem;
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
SetAngle(True);
Randoms;
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
MoveMouseSmoothEx(x,y, 20,40,45,25,20);
FTWait(1);
clickmouse(x,y,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
procedure drop;
begin
if(FindDTM(IronOre, tx, ty, 550, 210, 730, 462)) then
begin
Mouse(tx,ty,5,5,False);
ChooseOption('rop');
end;
end;
begin
SetupSRL;
DTMs;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until(IsFKeyDown(3));
FreeDTM(IronOre);
End.
Things I Changed!
- For every Begin you need an end (Added an 'end');
- Your MainLoop can't be a procedure

- Sorted out the standards a bit
Hope I Helped