SCAR Code:
function FindRock(color: TIntegerArray; fx, fy: integer): boolean;
var
k: integer;
begin
if not LoggedIn or FindDead then Exit;
begin
for k := 0 to High(color) do
if FindColorSpiralTolerance(fx, fy, color[k], MSX1, MSY1, MSX2, MSY2, 15) then
begin
MMouse(fx, fy, 5, 5);
if IsUpText('ine') then
Result := True;
end;
end;
end;
procedure MineThem(Kind: string);
var
mx, my: integer;
begin
case Lowercase(Kind) of
'coal' : begin
if FindRock([3097925, 2372661, 1911595], mx, my) then
begin
SkilldGas;
case random(3) of
0, 1: Mouse(mx, my, 5, 5, true);
2: begin
Mouse(mx, my, 5, 5, false);
ChooseOption('ine');
end;
end;
FFlag(0);
repeat
Wait(500 + Random(500));
AntiBan;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
end;
'mith' : begin
if FindRock([5913917, 8739675, 7951186], mx, my) then
begin
SkilldGas;
case random(3) of
0, 1: Mouse(mx, my, 5, 5, true);
2: begin
Mouse(mx, my, 5, 5, false);
ChooseOption('ine');
end;
end;
FFlag(0);
repeat
Wait(500 + Random(500));
AntiBan;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
end;
'both' : begin
if (FindRock([3097925, 2372661, 1911595], mx, my)) or (FindRock([5913917, 8739675, 7951186], mx, my)) then
begin
SkilldGas;
case random(3) of
0, 1: Mouse(mx, my, 5, 5, true);
2: begin
Mouse(mx, my, 5, 5, false);
ChooseOption('ine');
end;
end;
FFlag(0);
repeat
Wait(500 + Random(500));
AntiBan;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
end;
end;
end;