Code:
program softclaymaker;
{ Flamingvenom's First Script
[Smart]Soft Clay Maker V1.0
Instructions: You Need Clay +
Bucket Of Water In Your BANK!
Remeber This Script Works In
Vorrock East BANK. Then
Put The Clay In 4th Row First
Slot And Bucket Of Water In
4th Row Second Slot..Fill In
Your BUCKETCOLOR And Start!
Enjoy And Report Bugs And Post
Proggies Thanks :)
Note: ( No AntiRandoms Yet :P)
}
{.include srl/srl/misc/smart.scar}
{.include SRL\SRL.Scar}
Const
CLAY=6064803;
BUCKETT=URBUCKETCOLOR;
var
x, y, h, m , s:integer;
LoadsDone, LoadsToDo: Integer;
smartworld : string;
procedure declareplayers;
begin
howmanyplayers:=1; //how many players
numberofplayers(howmanyplayers);
players[0].name:='Username'; //your runescape name
players[0].pass:='Password'; //your runescape pass
players[0].nick:='US'; //a few letters from your name (use correct capitals)
players[0].active:=true;
players[0].worked:=0;
end;
procedure init;
begin
smartworld:='world96'; //the world you want to use
end;
procedure getclay;
begin
repeat
MakeCompass('n')
OpenBank('veb',true,true);
wait(1500);
DepositAll;
if (FindColorSpiralTolerance(x, y, CLAY, MSX1, MSY1, MSX2, MSY2, 3)) Then
Mouse(x, y, 1, 1, false);
wait(1000);
mouse(57, 326, 1, 1,true);
wait(1500);
TypeSend('14')
if (FindColorSpiralTolerance(x, y, BUCKETT, MSX1, MSY1, MSX2, MSY2, 3)) Then
Mouse(x, y, 1, 1, false);
wait(500);
mouse(57, 326, 1, 1,true);
wait(1500);
TypeSend('14')
CloseBank;
mouse(575, 229, 1, 1, true);
wait(1000);
mouse(704, 442, 1, 1, true);
wait(1500);
mouse(257, 447, 1, 1, false);
wait(1000);
mouse(241, 480, 1, 1, true);
wait(18000);
LoadsDone := LoadsDone +1;
wait(1000);
converttime(gettimerunning,h,m,s);
writeln('#### progress ####');
writeln('#### time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
writeln('#### loads: ' + inttostr(LoadsDone));
writeln('#### total claymade: ' + inttostr(LoadsDone * 14 ));
writeln('##################');
Until LoadsToDo=LoadsDone
end;
Begin
cleardebug;
init;
smartsetup(smartworld,false,true,false);
settargetdc(smartgetdc);
SetupSRL;
lampskill:='prayer';
declareplayers;
currentplayer:=0;
logout;
loginplayer;
getclay;
LoadsDone:=0;
End.