SRL Archive - First Scripts

Everything works on this its awesome!
I edited it today to make it into [smart] so I could do other stuffs aswell
Here's the code enjoy and post proggies :)

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.

ummm hey dude, you don't need 2 threads for the same script, you can just put the updated version on your first thread.

Its horrible ;l Wheres the DTMS for items! AHH!~

managed to make a few soft clays for me

nice loooking forward to more of ur scripts

#### progress ####
#### time: 0:11:37
#### loads: 16
#### total claymade: 224

I love the script! Its fast and reliable. Thanks!

Edit: It cludders a bit in the start (takes kebab insted of clay etc.) but that doesen't take long. When I run out of clay, the script doesen't stop, it just goes on and on like nothing happended, and my char foolishly stands there saying "14" until i stop the script manually (it takes out 14 buckets and clay from the bank, and when there are no clay, the script still write "14" making my char saying it out loud.)

I`ll take it for my pure to make some cash Tnx :)

nice script but by any chance could it be altered to make other types of food or items?

just make your own cooker maybe? or request/find one…also put in

[./SCAR] tags...didn't run all that well...DTM's were abit off...and maybe make a Non-SMART version for them old sckewl scripters :)

Yes make it NON SMART alot easier, and yeah DTMs were off a little :)

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);


WHAT'S THIS? SACRILEGE!

You don't use coordinates, try to learn ddtms or RRW/RW. Much more reliable + efficient imo.

nice one

i get this error
Line 25: [Error] (16350:9): Unknown identifier '' in script
Failed when compiling
what did i do wrong?