s3rgio2
2007-07-11 23:04:30
//////////////// power miner mines and drops //////////////
////////////////////////////by s3rgio2//////////////////////
///////////////////// special thanks to whocares357/////////
/////////////////////this is my first script!///////////
///////warning:might not work for higher lvls than 2.0 i am sorry i did the best i could////////
////if any1 knows how to fix please tell me as soon as possible //////////
program s3rgio2_ore_miner_and_dropper;
{ . include SRL/SRL.scar.}
Const
orecolour = 1449520 // fill in ore color using color picker ctrl+P
begin
repeat
findcolorspiral(x,y,orecolor,MSX1,MSY1,MSX2,MSY2)
DisguiseScar ('Internetextplorer7')
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(800))
mouse(x,y,1,1,true)
Mouse(x,y,1,1,true)
wait (3000+random(5000))
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))
mouse(x,y,1,1,true
until (false)
end.
:sasmokin: :spot: my first 1 !!!!!! w00t
////////////////////////////by s3rgio2//////////////////////
///////////////////// special thanks to whocares357/////////
/////////////////////this is my first script!///////////
///////warning:might not work for higher lvls than 2.0 i am sorry i did the best i could////////
////if any1 knows how to fix please tell me as soon as possible //////////
program s3rgio2_ore_miner_and_dropper;
{ . include SRL/SRL.scar.}
Const
orecolour = 1449520 // fill in ore color using color picker ctrl+P
begin
repeat
findcolorspiral(x,y,orecolor,MSX1,MSY1,MSX2,MSY2)
DisguiseScar ('Internetextplorer7')
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(800))
mouse(x,y,1,1,true)
Mouse(x,y,1,1,true)
wait (3000+random(5000))
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))
mouse(x,y,1,1,true
until (false)
end.
:sasmokin: :spot: my first 1 !!!!!! w00t