I need help on my first script, it is a power miner.
Could someone please help me script the dropping part, thank you.
SCAR Code:
program RockSmasher;
{.include SRL/SRL.scar}
Const
Rockcolor1= 7960964;
Rockcolor2= 4342344;
var x,y,randomm: integer;
Procedure DeclarePlayers;
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 :='nick'; //NickName
Players[0].Active:=True;
end;
Procedure Randoms;
Begin
FindTalk;
FindNormalRandoms;
solveChatRandom;
FindLamp ('Mining') //Uses lamp on that skill
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)));
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 MineRocks;
Begin
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
Mouse(x,y,0,0,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(FindColor(x,y,Rockcolor1,0,0,600,600)) and
(FindColor(x,y,Rockcolor2,0,0,600,600)) then
begin