SRL Archive - First Scripts

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.

clickmouse=ban, change it to mouse
add repeat to it throw in the normal srl randoms and it will be fine

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))Then
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.

:) looks good, add proggy, not bad for a first :D keep up the good work

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

im going to try to fix that