Code:
//Notes:
//you must have all the clay and buckets(empty or full) to start with
//buckets and clay must be in the first 4 rows of your bank
//no bankpin (or already entered)
//you need as meny buckets as clay (there 7gp from GE dont be cheap)
//please have your man standing next to the counter in varrock east
//bank and press run. (this defantly insent un stoppable i dont
//segest any more than 10 lodes (140 clay) to be left alone as it
//dont like randoms.)
program New;
{.include SRL/SRL.scar}
var
Fullbucket, Emptybucket, Counter, Clay: integer;//DTMs
SoftClay, Road, Fountain, Fountain2, road2, bank: integer;//I like DTMs =P
X, Y, XX, YY, lodesdone: integer;
const
LodesToDo = 10; //number of lodes to do (14 clay to a lode)
countercolor = 1589583; // the color of the counter your working at
fountaincolor = 8739397; // the color of the water in the fountian
procedure DeclarePlayers;//not nessasery only used for findnormalrandoms;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'aplayer123';
Players[0].Pass := '1234';
Players[0].Nick := 'p123';
Players[0].Active := True;
end;
procedure checkrandoms;
begin
FindNormalRandoms;
FindNonInventoryRandoms;
end;
procedure setup;
begin
setupsrl;
ActivateClient;
declareplayers;
wait(1000);
makecompass('N');
lodesdone := 0
Fullbucket := DTMFromString('78DA63DCC9C0C090CF8002B243B519F881342' +
'310FF0702C67D404622031A60442281F46620914440CD26205146' +
'40CD2E20514940CD212051805F0D00EA360BF1');
Emptybucket := DTMFromString('78DA637CC6C0C090CF8002DAB3CD194480342' +
'310FF0702C6B740463AAA1A57633E30CD08E533DE0112690C6880' +
'1155CD3D205146400DC83D9504D480DC538C5F0D00F8CD0DCE');
Counter := DTMFromString('78DA633CCEC0C07094010558EA0B826946289' +
'FF10CA61A3B6361543587089B03008DC80621');
Clay := DTMFromString('78DA639CC2C4C010CCC8800C26947B33B0026' +
'990E87F20609C0954E38DAA06220B2381F40CA09A30026A2610A1' +
'A60FA82610BF1A00050809EF');
SoftClay := DTMFromString('78DA639CCAC4C010C0C8800CE25C381852803' +
'448F43F10302E00AAF142550391859140BA17A8C687809A6EA09A' +
'70026AA603D5441350331FA8260CBF1A004D3D0A9F');
road := DTMFromString('78DA630C6662603064400179D9A90CFC409A1' +
'188FF0301630C508D29AA9A101F6D30CD08E5334600D5581250E3' +
'8FA9A6202D0C450D009B320A4A');
fountain := DTMFromString('78DA632C646260B06040016611EF198C80342' +
'310FF0702C612A01A4354358C8C8C101AC6CF02AA3123A02617A8' +
'C696809A72A01A6BFC6A00B66A0916');
fountain2 := DTMFromString('78DA635CC8C0C0D0C680025CA35A19E480342' +
'310FF0702C6E5986ABC9326816946289F710190684255E319DF8B' +
'AA660E9068475563ED5B88AA06E49E4E54350E21B5286A00B5510' +
'F8A');
road2 := DTMFromString('78DA635CC7C4C090CB80024202B419F881342' +
'310FF0702C6B54035A5A86A9E3FFF04A619A17CC6A5403599A86A' +
'C2837551D52C01AA29C66F0E00ED9B0FA4');
bank := DTMFromString('78DA63AC64626068614001FFFE0933C801694' +
'620FE0F048CB5986AFEFC6102D38C503E631590DF89AA262F3B15' +
'450D0030E90C6F');
checkrandoms;
end;
procedure scriptterminate;
begin
freedtm(Fullbucket);
freedtm(Emptybucket);
freedtm(Counter);
freedtm(Clay);
freedtm(SoftClay);
freedtm(road);
freedtm(fountain);
freedtm(fountain2);
freedtm(road2);
freedtm(bank);
end;
function isbankopen: boolean;
begin
if(getcolor(242, 35) = 4106994)then result := True
else result := False
end;
procedure openbankv;
var
i : integer;
begin
if(not(loggedin))then
begin
writeln('Wasent loged in, so the script was ended.');
terminatescript;
end else
begin
if(isbankopen = false)then
begin
findbank('veb');
{repeat
makecompass('N');
sendarrowsilentwait(0, 2000);
if (findcolor(x,y, countercolor,180, 154, 458, 304))then
begin
writeln('opened bank');
mouse(x, y+10, 3, 3, false);
wait(500+random(500));
mouse(x, y+54, 3, 3, true);
wait(3000+random(1000));
if(isbankopen = true) then i := 3
end else
begin
i := i+1
wait(random(500));
makecompass('N');
end;
until(i = 3)
}end;
end;
end;
procedure closebank2;
begin
if(isbankopen = true) then
begin
mouse(488, 35, 3, 4, true);
checkrandoms;
end;
end;
procedure bankclay;
begin
if(not(loggedin))then
begin;
terminatescript;
end;
if(isbankopen = false)then
begin
openbankv;
end;
if(finddtm(SoftClay, x, y, MIX1, MIY1, MIX2, MIY2) = true)then
begin
mouse(x, y, 3, 3, false);
mouse(x, y+93, 3, 0, true);
writeln('banking soft clay')
end;
if(finddtm(Emptybucket, x, y, MIX1, MIY1, MIX2, MIY2) = true)then
begin
mouse(x, y, 3, 3, false);
mouse(x, y+100, 3, 0, true);
writeln('banking empty buckets');
end;
checkrandoms;
end;
procedure withdrawclay;
begin
if(not(loggedin))then
begin;
terminatescript;
end;
if(isbankopen = false)then
begin
openbankv;
end;
if(finddtm(clay, x, y, MSX1, MSY1, MSX2, MSY2) = true)then//withdraws clay
begin
mouse(x, y, 3, 3, false);
mouse(x, y+53, 3, 0, true);
mouse(x, y, 1, 1, true);
mouse(x, y, 1, 1, true);
mouse(x, y, 1, 1, true);
mouse(x, y, 1, 1, true);
end;
if(finddtm(Fullbucket, x, y, MSX1, MSY1, MSX2, MSY2) = true)then
begin
mouse(x, y, 3, 3, false);
mouse(x, y+100, 3, 0, true);
end;
checkrandoms;
end;
procedure MakeSoftClay;
begin
if(not(loggedin))then
begin;
terminatescript;
end;
if(finddtm(Fullbucket, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
mouse(x, y, 3, 3, true);
if(finddtm(Clay, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
mouse(x, y, 3, 3, true);
wait(1000+random(500));
mouse(255, 415, 5, 5, false);
mouse(255, 476, 3, 0, true);
wait(18000+random(2000));
writeln('made a lode');
lodesdone := lodesdone + 1
end else
begin
writeln('couldent find clay logging out');
logout;
terminatescript;
end;
end else
begin
writeln('couldent find buckets logging out');
logout;
terminatescript;
end;
end;
procedure WalkToFountain;
begin
Makecompass('S');
MakeCompass('N');
if(finddtm(road, x, y, 524, 0, 712, 166) = true)then
begin
mouse(x, y, 0, 0, true);
wait(5000+random(1000));
if(finddtm(fountain, x, y, 524, 0, 712, 166) = true)then
begin
mouse(x, y, 0, 0, true);
wait(5000+random(1000));
end else
begin
writeln('couldent find fountain, guessing insted.');
mouse(588, 53, 4, 4, true);
wait(5000+random(1000));
end;
end else
begin
writeln('couldent find road guessing');
radialwalk(3498342, 270, 360, 50, 0, -3);
wait(3000+random(1000));
mouse(633, 63, 2, 2, true);
wait(5000+random(2000));
end;
end;
procedure FillFromFountain;
begin
if(findcolor(x, y, fountaincolor, MSX1, MSY1, MSX2, MSY2) = false)then
begin
if(finddtm(fountain, x, y, 524, 0, 712, 166) = true)then
begin
mouse(x, y, 0, 0, true);
wait(5000+random(1000));
end else
begin
writeln('couldent find the fountain logging out');
terminatescript;
end;
end;
if(findcolor(x, y, fountaincolor, MSX1, MSY1, MSX2, MSY2) = true)then
begin
if(finddtm(emptyBucket, xx, yy, MIX1, MIY1, MIX2, MIY2) = true)then
begin
wait(3000);
mouse(xx, yy, 3, 3, true);
mouse(x, y, 3, 3, true);
wait(17000+random(2000));
end else
begin
writeln('no buckets going back to bank');
end;
end;
end;
procedure WalkToBank;
begin
if(finddtm(road2, x, y, 524, 0, 712, 166) = true)then
begin
mouse(x, y, 0, 0, true);
wait(7000+random(1000));
{if(finddtm(bank, x, y, 524, 0, 712, 166) = true)then
begin
mouse(x, y-5, 0, 0, true);
wait(5000+random(1000));
end else
begin
writeln('couldent find bank, guessing insted.');
mouse(632, 111, 0, 0, true);
wait(5000+random(1000));
end;}
end else
begin
writeln('couldent find road guessing');
mouse(685, 120, 0, 0, true);
wait(7000+random(1000));
end;
end;
procedure FillBuckets;
begin
if(isbankopen = false) then
begin
openbankv;
end;
while(finddtm(emptybucket, x, y, MSX1, MSY1, MSX2, MSY2) = true)Do
begin
mouse(x, y, 3, 3, false);
mouse(x, y+100, 3, 0, true);
closebank2;
WalkToFountain;
FillFromFountain;
WalkToBank;
openbankv;
wait(1000+random(2000));
if(finddtm(FullBucket, x, y, MIX1, MIY1, MIX2, MIY2) = true)then
begin
mouse(x, y, 3, 3, false);
mouse(x, y+100, 3, 0, true);
end else
begin
writeln('couldent bank bukets ammusing theres 1 in secound slot');
mouse(623, 231, 3, 3, false);
mouse(623, 331, 3, 0, true);
end;
wait(2000+random(2000));
end;
writeln('No more empty buckets! started making soft clay!');
end;
begin
setup;
FillBuckets;
repeat
if(isbankopen = false) then
begin
openbankv;
end;
bankclay;
withdrawclay;
closebank2;
MakeSoftClay;
until(LodesDone = LodesToDo);
end.
is my actual script (a nice soft clay maker that actuly works quite well