iron power miner

[nolyfnoob]

okay, this is my second made script, im sorry for using movemouse and clickmouse

program ironpowerminer;
{By: nolyfnoob}
{pick the color of a iron rock and it will begin}
var
a,x,y,color,mine,full,iron_ore,drop: integer;
procedure rocksearch;
begin
sendarrowwait(1,250 + random(150));
if findcolortolerance(x,y,color,0,0,800,800,5)
then
begin
movemouse(x + random(3),y + random(3));
wait(150 + random(50));
clickmouse(x + random(3),y + random(3),false);
wait(250 + random(50));
end else
begin
sendarrowwait(1,250 + random(250));
end;
end;


procedure rockfindtrue;
begin
 mine := BitmapFromString(23, 7, 'beNoLcWdgYIgNcQciBjAAMv6jA' +
       'ogsBOESR9aIphIohSkOsQvNHGRD0NhwxXjUEDQEKxvZnWQbwoAEiP' +
       'EOprNxhTlm7OBhw7kojgEANCLqhQ==');
if findbitmaptolerancein(mine,x,y,0,0,800,800,5)
then
begin
movemouse(x + random(3),y + random(3));
wait(150 + random(50));
clickmouse(x + random(3),y + random(3),true);
wait(2000 + random(1000));
end else
begin
end;
end;




procedure ya;
begin
wait(500);
iron_ore := BitmapFromString(18, 11, 'beNqF0vFnw0AYxvH2LxjT' +
       'WVV0kU2VEllFbYtYpI2EstZm1Y3oKsSMUsaMUfqf78vDOfJDedTl3' +
       'Mf73nsdudXyrpyHb8W41WoHrsuv1zm7v+6xMGFfYb3Kgt06rl8ePp' +
       '4mQKOG3fN44BBZnS+SkPDJyb8qA1IOaJTvXEDSYZ+wYIfz0+hWav/' +
       '++LudfZcJ5YBGhVeXHM5HroIVlKLKzyYFHj8LYFPNfU9hrQsKEgj5' +
       'eo2MUntSi+BGSg0LcuxQ54S6J5U9VQgz4Y5S6qGpNFuaVyCEmdiK2' +
       'EqPaBQ7TEMx1XkFDUdKmxBehBfUYO1un1MfwmR0TfPH0CNC1Hn+Dz' +
       'yKYOs=');
if findbitmaptolerancein(iron_ore,x,y,0,0,800,800,10)
then
begin
movemouse(x + random(3),y + random(3));
wait(150 + random(50));
clickmouse(x + random(3),y + random(3),false);
wait(200 + random(500));
drop := BitmapFromString(24, 4, 'beNr7/x8CGBgYYkPc//9HcJFFI' +
       'FwIGyiIVRzTHLghyCIE2bhkB8YcAEzXqa4=');
if findbitmaptolerancein(drop,x,y,0,0,800,800,5)
then
begin
movemouse(x + random(3),y + random(3));
wait(150 + random(50));
clickmouse(x + random(3),y + random(3),true);
wait(300 + random(200));
end;
end;
end;


procedure fullthen;
begin
full := BitmapFromString(20, 7, 'beNo7vOjKYShiYPh/89jiKwfnA' +
       'BkoIkgMCBuuBagYgkCC2BhwXXBz4IYA0cV9s7HohSjDpheC4AoQTs' +
       'VkoLJRGEhuhpuG5jAIF+Q8VFmI8+AmIMIBhoBOhTsb4jvsWpDYZ/Y' +
       'uhKuEMpCDF0gCAJhhDZE=');
if findbitmaptolerancein(full,x,y,0,0,800,800,5)
then
repeat
ya;
a:= a + 1;
until(a = 26);
end;


begin
a:= 0;
pickcolor(color,x,y);
wait(2000);
repeat
rocksearch;
rockfindtrue;
fullthen;
until(false);
end.

[belgin_fish]

It looks decent, but is very likely to get you banned. I suggest you add some srl into it, and use function of srl like Mouse, MMouse, etc that seem more human like. Looks great for your first script :D

[ti.teg.tnod.I]

Please contain your script in SCAR tags like this:

[scar ] [/scar ]

But without the spaces so your script looks like this:

[scar]
program new;

begin
end.
[/scar]

[penguin114]

where you can get them codes like this one:iron_ore := BitmapFromString(18, 11, 'beNqF0vFnw0AYxvH2LxjT' +
       'WVV0kU2VEllFbYtYpI2EstZm1Y3oKsSMUsaMUfqf78vDOfJDedTl3' +
       'Mf73nsdudXyrpyHb8W41WoHrsuv1zm7v+6xMGFfYb3Kgt06rl8ePp' +
       '4mQKOG3fN44BBZnS+SkPDJyb8qA1IOaJTvXEDSYZ+wYIfz0+hWav/' +
       '++LudfZcJ5YBGhVeXHM5HroIVlKLKzyYFHj8LYFPNfU9hrQsKEgj5' +
       'eo2MUntSi+BGSg0LcuxQ54S6J5U9VQgz4Y5S6qGpNFuaVyCEmdiK2' +
       'EqPaBQ7TEMx1XkFDUdKmxBehBfUYO1un1MfwmR0TfPH0CNC1Hn+Dz' +
       'yKYOs=');

[joe hartwig]

i verry new to the website and i was wandering how to get the script on the scar
do i just copy and past the code someware or what?