SRL Archive - First Scripts

Version 1.0! It works awesome I just dont know how to upload this .scar file on srl forums I'll give the code.. Try it and Please post Proggies :) Thanks

program softclaymaker;
{              Flamingvenom's First Script
                    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.Scar}

Const
CLAY=6064803;
BUCKETT=URBUCKETCOLORHEREEE;

var
x, y, h, m , s:integer;
LoadsDone, LoadsToDo: Integer;


procedure getclay;
begin
repeat
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);
Clickmouse(57, 326, true);
wait(1500);
TypeSend('14')
if (FindColorSpiralTolerance(x, y, BUCKETT, MSX1, MSY1, MSX2, MSY2, 3)) Then
Mouse(x, y, 1, 1, false);
wait(500);
clickmouse(57, 326, true);
wait(1500);
TypeSend('14')
CloseBank;
clickmouse(575, 229, true);
wait(1000);
clickmouse(704, 442, true);
wait(1500);
clickmouse(257, 447, false);
wait(1000);
clickmouse(241, 480, 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
SetupSRL;
getclay;
LoadsDone:=0;
End.

Enjoy and tell me how to upload it on srl forums :D

Great idea, look at the SRL include help file more though, use ChooseOption, learn DTM's, keep at it :D

From: sirlaughsalot
Great idea, look at the SRL include help file more though, use ChooseOption, learn DTM's, keep at it :D

Ah sorry :P yea will learn how to use the choose option soon :D

ewwww don't use click mouse, just use mouse(x, y, 1, 1, True), looks good though mate, use DTM's for object finding (they're easier and more reliable), add some antirandoms, antiban, ect and your well on your way.

-Blumblebee

From: blumblebee
ewwww don't use click mouse, just use mouse(x, y, 1, 1, True), looks good though mate, use DTM's for object finding (they're easier and more reliable), add some antirandoms, antiban, ect and your well on your way.

-Blumblebee

im pretty sure he did that for chooseoption

From: sirlaughsalot
im pretty sure he did that for chooseoption

oh haha i didn't really erad the code in depth, i just glanced at it and saw it, haha but still he shouldn't have clickmouse in there at all

works great!thanks so much