outlander
06-20-2007, 06:02 AM
my first auto miner, mines and drops.
/////////////////////////////////////////////////////////
/////////power ore miner (mines and drops ores)///////////
///////////////made by Outlander////////////////////////
//////////////////not for retail/////////////////////////
///start with 5 pickaxes in the first 5 slots/1 pick and other items.///////////
///////////////////version 1.0.2 public beta/////////////////////////
program outlanders_ore_miner_and_dropper;
{.include SRL/SRL.scar}
Const
Orecolour = 1582146; // fill in ore color using color picker
begin
repeat
FindColorSpiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2)
DisguiseScar('Internetexplorer7');
findcolorspiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2) ;
mmouse (x,y,2,2)
wait (300+random(800))
Mouse(x,y,1,1,true)
Mouse(x,y,1,1,true)
wait (3000+random(10000))
writeln ('now dropping ore...')
/////////////////////////////////////dropping ore
mmouse (627,265,2,2)
wait (500+random(1000))
mouse (627,265,1,1,false)
mmouse (606,307,2,2)
wait (500+random(1000))
findcolorspiral(x,y,65535,MSX1,MSY1,MSX2,MSY2);
mmouse (x,y,2,2)
wait (500+random(1000))
Mouse(x,y,1,1,true)
until (false)
end.
/////////////////////////////////////////////////////////
/////////power ore miner (mines and drops ores)///////////
///////////////made by Outlander////////////////////////
//////////////////not for retail/////////////////////////
///start with 5 pickaxes in the first 5 slots/1 pick and other items.///////////
///////////////////version 1.0.2 public beta/////////////////////////
program outlanders_ore_miner_and_dropper;
{.include SRL/SRL.scar}
Const
Orecolour = 1582146; // fill in ore color using color picker
begin
repeat
FindColorSpiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2)
DisguiseScar('Internetexplorer7');
findcolorspiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2) ;
mmouse (x,y,2,2)
wait (300+random(800))
Mouse(x,y,1,1,true)
Mouse(x,y,1,1,true)
wait (3000+random(10000))
writeln ('now dropping ore...')
/////////////////////////////////////dropping ore
mmouse (627,265,2,2)
wait (500+random(1000))
mouse (627,265,1,1,false)
mmouse (606,307,2,2)
wait (500+random(1000))
findcolorspiral(x,y,65535,MSX1,MSY1,MSX2,MSY2);
mmouse (x,y,2,2)
wait (500+random(1000))
Mouse(x,y,1,1,true)
until (false)
end.