SCAR Code:
Procedure Drop_Ore_28(Color:Integer);//If Droping 28 Ore
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(900);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
TotalOres:= TotalOres + 28;
DropLoads:= DropLoads + 1;
end;
FreeDtm(Drop);
end;
Procedure Drop_Ore_27(Color:Integer);//If Droping 27 Ore
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(900);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
TotalOres:= TotalOres + 27;
DropLoads:= DropLoads + 1;
end;
FreeDtm(Drop);
end;
Procedure Drop_Ore;
Begin
if(EquipPick)=True then
Begin
Drop_Ore_28(Ore_In_Inv)
end;end;
Procedure Drop_Ore2;
Begin
if(EquipPick)=False then
Begin
Drop_Ore_27(Ore_In_Inv)
end;end;
//----------------------------------------------------------------------------//
Procedure Mining;
Begin
Repeat
While(InvCount < i) do
Begin
FindNormalRandoms;
wait(25);
FindPick;
Wait(25);
MineOre;
Wait(25);
End;
Drop_Ore;
Drop_Ore2;
ProgressReport;
If (NoPick)=True then NextPlayer(False);
Until(not LoggedIn)or(DropLoads = MaxLoads + RandomLoads);
NextPlayer(Players[CurrentPlayer].Active);
EquipPick:= Players[CurrentPlayer].Boolean1;
FindPickHeadColor
DeclarePick;
End;