mmmvvvbbb
2013-02-25 02:11:25
It's for 07. This is my first day coding, this is what I made it works.
program PowerMiner;
{$I SRL\SRL.Simba}
{$I P07Include.Simba}
var x, y: integer;
procedure MineOre;
begin
repeat
FindColorTolerance(x, y, 5077417, 0, 0, 520, 340, 4)
MoveMouse (x, y);
wait(200)
if (P07_GetUpText = 'Mine Rocks')then
ClickMouse (x,y,1);
Wait(10000)
until(P07_InvFull)
end;
begin
repeat
mineOre;
P07_DropAll;
until(false);
end.