PDA

View Full Version : Al-kharid Mine Powerminer



The_Pac_Man
08-24-2007, 07:26 PM
well yeah.. here it is.. it has problems and wont run.. needs a good tune up...

//Put out by The_Pac_Man
//Used Travis AKA Born2Code's AutoDropper

program KharidMiner;
{.include srl/srl.scar}

const
startat = 1; //item number to start dropping at


procedure Mine;
begin
MoveMouse(263, 192)
wait(100+random(45))
ClickMouse(263,192, true)
wait(2450)
MoveMouse(230, 231)
wait(100+random(20)
ClickMouse(230, 231, true)
wait(2400+Random(50))
MoveMouse(278, 265)
wait(100+random(30))
ClickMouse(278, 265, true)
wait(2400+random(30))
end;

procedure mine2;
MoveMouse(232, 234)
wait(100+random(20)
ClickMouse(23, 234, true)
wait(2400+Random(50))

procedure info;
begin
cleardebug;
wait(300);
end;

procedure drop;
begin
status('Dropping');
if (invfull = true) then
mousespeed:=10;
dropto(startat,28);
wait(1500+random(100));
end;


begin
mine;
mine;
mine;
mine;
mine;
mine;
mine;
mine;
mine;
mine2;
info;
drop;
wait(2000);
end.

Dangerous Garden Tools
08-25-2007, 01:04 AM
clickmouse=ban, change it to mouse
add repeat to it throw in the normal srl randoms and it will be fine

Timer
08-25-2007, 01:47 AM
Here Its Not the best But it'll do!

//Put out by The_Pac_Man
//Used Travis AKA Born2Code's AutoDropper

program KharidMiner;
{.include SRL/SRL.scar}

var x,y,c:integer;

const
startat = 1; //item number to start dropping at
ore = 0; //Ore Color
oret = 5; //How Long In Seconds To w8 bettween Rocks...

procedure Miner;
begin
If(FindColorTolerance(x,y,ore,12,47,522,378,10))Th en
begin
MMouse(x,y,0,0)
Wait(100)
mouse(x,y,2,2,true)
Wait(oret*1000)
end;
end;

procedure info;
begin
cleardebug;
wait(300);
end;

procedure drop;
begin
status('Dropping');
if (invfull) then
mousespeed:=10;
DropToPosition(startat,28);
wait(1500+random(100));
end;


begin
repeat;
info;
repeat;
Miner;
C:=C+1;
until(Invfull) or (c>30);
findnormalrandoms;
C:=0;
drop;
until(false)
end.

Pwnt by Pwnt
08-30-2007, 10:26 AM
:) looks good, add proggy, not bad for a first :D keep up the good work

harent
09-03-2007, 06:21 PM
Mine has a few mishaps when it tries to drop, but it sorts itself out after a while, good script, keep up the hard work

kornthebldgd
09-03-2007, 08:44 PM
im going to try to fix that