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.
//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.