Line 79. Error is semicolon expected. Hy I really need your help with this drop procedure. :P
SCAR Code:
program FirstAttemptAtAnyUsefulScript;
{.include SRL/SRL.scar}
const
SRLStatsID = 'Enter Yours';
SRLStatsPass = 'You Stats Pass';
const
Rockcolour1= 111111; //The main color of rock
RockColour2= 222222; //A secondary color of the rock
var x, y, Tries: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberofPlayers (HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := 'Username'; //Username of account your using
Players[0].Pass := 'Password'; //The password...
Players[0].Nick := 'user' //3 to 4 letters of your username. They should be next to eachother
Players[0].Active := True; //If its gonna mine...
end;
procedure AntiRandoms;
begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Mining');
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: hoverSkill('Woodcutting',False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(400 +Random(90));
end;
end;
procedure RockMining;
begin
if not LoggedIn then
Exit;
if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 20)then
begin
Logout;
Exit;
end else
if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
repeat
case (Random(2)) of
1: begin
Mouse(x, y, 4, 4,false);
ChooseOption('ine');
end;
2: Mouse(x, y, 4, 4, True);
end
until (InvFull)
end;
procedure DropDe(f,t: integer)
var Hmm: integer; HERE!!!@@@!!!
begin
Hmm := MouseSpeed;
MouseSpeed := 25+Random(7);
for i := 2 to 28 do
DropeItem(i);
WriteLn('All Dropped!');
MouseSpeed := Hmm;
Loads := Loads + 1;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\');
Writelm('[]------>Proggy<------[]');
Writeln('[]-->Mined' + IntToStr(Loads) + 'Loads<--[]');
Writeln('\/\/\/\/\/\/\/\/\/\/\/\/');
end;
begin
SetupSRL;
ScriptId := '745';
SRLID := SRLStatsPass;
SRLPassword := SRLStatsPass;
repeat
RockMining;
DropDe(f,t: integer)
AntiBan;
ProgressReport;
until (False)
end.