SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
pvh - SRL Member Application Form
pvh

What is the meaning to life?
Having fun with friends

Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
C++ a little bit

Other Communitys
none

How Long have You Played Runescape
for about 3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I have joined srl-forums a while ago.
I was searching on google for runescape hacks, and I found scar-scripts.com.
I saw a link to srl-forums, and I clicked it.
Thats is how I came here.
When I came here, I was excited about scripts, and I started liking it more and more.
We had a few basic programming lessons on school, about C++ (just floats and integers) and I really liked programming.
I started reading tutorials and viewing how peoples scripts worked.
Then, i started making a powerminer, tinterror…It was very bad, I was bored of it and i quitted programming that script.
I made a simple "lol-script".
BannMe, it spamms, and gets banned very fast (thats what it is supposed to do).
Than, I realised that if i really wanted to become a programmer later, I should really start scripting now, because there will be a lot of competition.
I downloaded a softclay script and I used it..and it did not work for me, as I wanted it to work.
I dicided to make my own.
After a few hours of hard work, I got it done.. I released it and people posted comments.
I knew there were some bugs in it.
Next day (today) I started fixing the bugs, and now everything works, as I want it to work. Someone said that I could apply to members on srl-forums.
I was surprised, because I tought it was not good enough.
I started fixing my standards (I had very weak ones), and now they are way better.

Please note:
My scripting skills are not that good at the moment, I am still learning how to script, and I will keep on scripting for sure!
If you think that I am not worth the member status on srl-forums, I understand it. I am only 13 years at the moment, so I got a long way for me:)

P.s.
Please forgive me for that other apply without a script..
I swear that was not me.
I was checking apply to members section… I went downstairs to talk to my mother.
In the meantime..My little brother applied for me.
Sorry for that!

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

My softclay script:

program ClaySoftenerEdge;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
{.include srl/srl/misc/users.scar}

{CREDITS TO hayhay89 for testing my script:)
and to Starblaster for his FindObjCustom2!}
{=========================================================================]
[                   PvH's ClaySoftenerEdge                                ]                               ]
[                                                                         ]
[           NAME        : PvH's ClaySoftenerEdge                          ]
[           WRITER      : PvH                                             ]
[           CATEGORY    : ClaySoftener                                    ]
[           DESCRIPTION : Softens Clay and makes awsome money             ]
[           AUTOCOLOR   : Yes                                             ]
[           NOTES       : My second Script                                ]
[           CONTACT     : [email]pvh@live.nl[/email]                                     ]
[=========================================================================}

/////////////////////////////////////////////////////////////////////
//                           HOW TO USE                            //
//                1.Setup your players in Edge Bank                //
//          With 14 buckets and 14 normal clay in inventory        //
//           2.Fill in your SRLStatsID and SRLStatsPassword        //
//                    3.Fill in RunDirection                       //
//                        4.Fill in Loads                          //
//                    5.Fill in DeclarePlayers                     //
//                  6. Fill in smart world                         //
//                  7. Fill in signed/unsigned                     //
//                  8.Hit start and have fun ^_^                   //
//           9.Post errors,bugs and proggies on my tread!          //
/////////////////////////////////////////////////////////////////////

var
x, y, sx, sy, SoftClay, Bucket, Clay, EdgeBank, Tries, SoftClayMade, Loadz, Loadzz, LoadsP,
Walks, SoftClayMadePlayer, LoadsLeft,loads, RandomSleep, TotalSleep:integer;
SRLStatsPassword,srlstatsid:string;

const
  RunDirection = 'N';//N = North, E = East, S = South, W = West
                    //this is the direction to run, if your in a fight
  SmartWorld = 155;//What world to load smart in
  Signed = True;  //False = unsigned, slower and for multiplayer
                 //True = signed, faster and for 1 player only
                          
                          
procedure DeclarePlayers;
// Special thanks to waddo for helping me with this form:)
// He explained things and setted up the form
// I made it compile and working
begin
  Status('Declaring Players');
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  SRLPlayerForm(True,['Sleep'],['Loads', 'Minutes to sleep', 'Random sleep in minutes'],['Srl-stats ID','Srl-stats PW', 'BankPin'],[]);
end;
procedure FromWellToBank; Forward;

procedure GetBucketsAndClayFromBank; Forward;

Procedure MainLoop; Forward;

procedure LoadDTMs;
begin
  Status('Loading DTMs');
  SoftClay := DTMFromString('78DA63146360601060400179C17C0CFF81342' +
       '310FF0702464E204398010D302291401A648E1401352A40829780' +
       '1A90196C04D4F001090EFC6A00A9C006B5');

  Bucket := DTMFromString('78DA63E4636060906240010B9ABD19FE03694' +
       '620FE0F048C3C40061B031A60442281B438909020A04600482811' +
       '50C30E241408A8610512A204D47000092E026A40EE15C0AF06003' +
       'A920797');
       
  Clay := DTMFromString('78DA63E4636060106240011BA7A7314802694' +
       '620FE0F048C2035220C6880118904D2EC40829F801A0120C14E40' +
       '8D0490E022A006E41601FC6A008F4C068A');
       
  EdgeBank := DTMFromString('78DA6364666060E06140011989490CFF81342' +
       '310FF070246901A210634C08844026916202145841A56CAD50000' +
       'C7E60689');
end;


procedure SetUpSmart;
begin
  Status('Setting up SMART!');
  smartSetupex(SmartWorld, False, Signed);
    While Not (SmartReady) Do
      Wait(100);
      SetTargetDC(SmartGetDC);
        If Not (LoggedIn) Then
          While Not (SmartGetColor(386, 249) = 65535) Do
            Wait(100);
end;

procedure DontGetBanned;
begin
  if not LoggedIn then
    Exit;
    Status('Performing Antiban');
  case Random(100) of
    0: HoverSkill('Mining', False);
    1: HoverSkill('Smithing', false);
    2:
      begin
        GameTab(1 + Random(12));
        wait(800 + random(500));
        GameTab(4)
      end;
    3: BoredHuman;
    4: AlmostLogout;
    5: DoEmote(400 + Random(90));
  end;
end;

Procedure FindFightEx;
Begin
  If(FindFight) then
  Begin
    Status('Fight found!');
    Writeln('Our player is being attacked!')
    Writeln('Lets run away!')
    Begin
      Status('Running away!');
      WriteLn('Running....')
      RunAway(RunDirection,False,1,8000+Random(3000))
      WriteLn('Successfully ran away from fight!')
    end;
  end;
end;

Procedure AntiRandoms;
var
i : Integer;
Begin
  Status('Doing AntiRandoms');
  for i := 0 to 3 do
  begin
    FindNormalRandoms;
    FindFightEx;
    FindNonInventoryRandoms;
    wait(1)
  end;
end;

procedure WalkToWell;
begin
  if (not(loggedIn)) then exit;
  status('Walking To Well');
  radialWalk(findVarrockRoadColor,300,320,60,2,2);
  DontGetBanned;
  AntiRandoms;
  FFlag(0);
end;

// BY Starblaster
function FindObjCustom2(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
  a, b, c, i, x1, y1, x2, y2: Integer;
  Start: Boolean;
begin
  for b := 0 to (GetArrayLength(Color)-1) do
  begin
    if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
    begin
      Start := True;
      Break;
    end;
  end;
  if(Start)then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if not(LoggedIn)then break;
      a := a + 1;
      if (a = 1) then
        c := c + 1
      else if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end else
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end else
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end else
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        for b := 0 to (GetArrayLength(Color)-1) do
        begin
          if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
          begin
            MMouse(cx, cy, 3, 3);
            Wait(5+Random(10));
            if (IsUpTextMultiCustom(Text)) then
            begin
              Result := True;
              Exit;
            end;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;


procedure FillTheBuckets;
var
Mark: Integer;
begin
  Status('Filling buckets!');
  if (FindDTM(Bucket, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,true);
  end else
  begin
    FromWellToBank;
    GetBucketsAndClayFromBank;
    mainloop;
  end;
  if FindObjCustom2(x, y, ['ell'], [3493725, 4548473, 5862274],10) then
  begin
    MarkTime(Mark)
    mouse(x,y,2,2,true);
    MarkTime(Mark)
    repeat
      AntiRandoms;
      DontGetBanned;
    until (TimeFromMark(mark) > 12000);
    GameTab(4);
    wait(1000+random(200));
  end else
  begin
    writeln('Could not find the well, switching players!');
    nextplayer(false);
    Loadz:= Loadz - Loadz;
    Loadzz:= Loadzz - Loadzz;
    Walks:= Walks - Walks;
    SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
    LoadsLeft:= LoadsLeft - LoadsLeft;
    mainloop;
  end;
end;

procedure BucketAndClay;
var
Mark: Integer;
begin
  if not LoggedIn then Exit;
begin
  GameTab(4);
  Status('Clicking buckets and clay');
    if (FindDTM(Clay, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
      mouse(x,y,2,2,true);
      wait(200+random(75));
    end else
    begin
      FromWellToBank;
      GetBucketsAndClayFromBank;
      mainloop;
    end;
    end;
  if (FindDTM(Bucket, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,2,2,true);
      repeat
        AntiRandoms;
        DontGetBanned;
      until (TimeFromMark(mark) > 1000)
  end else
  begin
    FromWellToBank;
    GetBucketsAndClayFromBank;
    mainloop;
  end;
end;

procedure CreateSoftClay;
var
Waits: Integer;
begin
  GameTab(4);
  Status('Creating Soft clay');
  wait(750+random(350));
  mmouse(250,421,10,10);
  wait(750+random(350));
  mouse(250,421,10,10,false);
  ChooseOption('All');
    repeat
      AntiRandoms;
      Wait(1000);
      waits:=waits+1;
    until waits >= 13;
  wait(1000+random(600));
end;

procedure WalkToEdgeBank;
begin
  GameTab(4);
    if (not(loggedIn)) then exit;
  status('Walking To bank');
  radialWalk(findVarrockRoadColor,155,180,60,2,2);
  DontGetBanned;
  AntiRandoms;
  FFlag(0);
    if DTMRotated(EdgeBank, x, y,  MMX1, MMY1, MMX2, MMY2) then
    begin
      Status('found bank dtm');
      wait(1000+random(250));
      mouse(x,y,3,2,true);
      FFlag(0);
    end else
    begin
      writeln('Could not find the dtm, entering by bank symbol clicking');
        if FindSymbol(sx, sy, 'bank') then
        begin
          mouse(sx,sy,3,3,true);
          FFlag(0);
        end else
        begin
          writeln('Could not find the bank dtm or bank symbol, we are lost!');
          writeln('Switching players!');
          nextplayer(false);
          Loadz:= Loadz - Loadz;
          Loadzz:= Loadzz - Loadzz;
          Walks:= Walks - Walks;
          SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
          LoadsLeft:= LoadsLeft - LoadsLeft;
          mainloop;
        end;
    end;
end;

procedure BankTheClay;
begin
  GameTab(4);
    if (not(loggedIn)) then exit;
    repeat
      OpenBankFast('eb');
      Tries := Tries + 1;
    Until ((BankScreen) Or (Tries > 5) or (PinScreen));

    if PinScreen then
    InPin(Players[CurrentPlayer].Strings[2]);
    
    If BankScreen Then
    Begin
      FixBank;
      Status('Found banking screen!');
        if (FindDTM(SoftClay, x, y, MIX1, MIY1, MIX2, MIY2)) then
        begin
          mouse(x,y,2,2,false);
          ChooseOption('All');
          Status('Banked all soft clay!');
          wait(1000+random(325));
        end else
        begin
          writeln('Could not find the Soft Clay, banking everything!');
          writeln('Trying to get new items from bank!');
          GetBucketsAndClayFromBank;
        end;
        if (FindDTM(Clay, x, y, msx1,msy1,msx2,msy2)) then
        begin
          Status('Getting new clay from bank');
          mouse(x,y,3,3,false);
          ChooseOption('All');
          wait(800+random(500));
        end else
        begin
          writeln('Could not find any clay in bank, switching players!');
          nextplayer(false);
          Loadz:= Loadz - Loadz;
          Loadzz:= Loadzz - Loadzz;
          Walks:= Walks - Walks;
          SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
          LoadsLeft:= LoadsLeft - LoadsLeft;
          mainloop;
        end;
    end;
      CloseBank;
      SoftClayMade:= SoftClayMade + 14;
      Loadz:= Loadz + 1;
      Loadzz:= Loadzz + 1;
      Walks:= Walks + 1;
      LoadsP:= LoadsP + 1;
      SoftClayMadePlayer:=SoftClayMadePlayer+14;
      LoadsLeft:=players[currentplayer].integers[0] - Loadz;
end;

procedure RunOrWalk;
begin
  if (not(loggedIn)) then exit;
  if Walks >= 0 then
  begin
    setrun(true);
    Walks:=Walks-20;
    Status('Running now');
    GameTab(4);
  end else
    exit;
end;

procedure FromWellToBank;
begin
  if (not(loggedIn)) then exit;
  begin
    writeln('Could not find buckets or clay!');
    writeln('So next time.. read instructions!');
    writeln('Getting new buckets/clay from bank');
    if DTMRotated(EdgeBank, x, y,  MMX1, MMY1, MMX2, MMY2) then
    begin
      Status('found bank dtm');
      wait(1000+random(250));
      mouse(x,y,3,2,true);
      FFlag(0);
    end else
    begin
      writeln('Could not find the dtm, entering by bank symbol clicking');
        if FindSymbol(sx, sy, 'bank') then
        begin
          mouse(sx,sy,3,3,true);
          FFlag(0);
        end else
        begin
          WalkToEdgeBank;
        end;
    end;
  end;
end;

procedure BankEverything;
begin
  writeln('banked everything!');
  Deposit(1,28,28);
end;

procedure GetCash;
var
Cash: TIntegerArray;
t: Integer;
begin
  if(not(LoggedIn))then Exit;
  writeln('No buckets in bank, going to general shop to buy them!');
  Cash := [2014952,2148340,1745606,2014437,1947358,2148854];
  for t := 0 to 2 do
  begin
    if(FindColorSpiralTolerance(x,y,Cash[t],76,70,111,85,3))then
    begin
      mouse(x,y,3,3,false);
      ChooseOption('X');
      wait(800+random(500));
      Typesend('28');
      wait(600+random(300));
      CloseBank;
      writeln('Got money from bank!');
      wait(1000+random(300));
      exit;
    end else
      writeln('Cant find money, switching players!');
      CloseBank;
      nextplayer(false);
      Loadz:= Loadz - Loadz;
      Loadzz:= Loadzz - Loadzz;
      Walks:= Walks - Walks;
      SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
      LoadsLeft:= LoadsLeft - LoadsLeft;
      mainloop;
    end;
end;

procedure WalkToGeneralStore;
begin
  if(not(LoggedIn))then Exit;
  radialWalk(findVarrockRoadColor,300,320,60,2,2);
  DontGetBanned;
  AntiRandoms;
  FFlag(0);
    if FindSymbol(sx, sy, 'store') then
    begin
      mouse(sx,sy,3,3,true);
      FFlag(0);
    end else
    begin
      writeln('Could not find the general shop!');
      writeln('Switching players!');
      nextplayer(false);
      Loadz:= Loadz - Loadz;
      Loadzz:= Loadzz - Loadzz;
      Walks:= Walks - Walks;
      SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
      LoadsLeft:= LoadsLeft - LoadsLeft;
      mainloop;
    end;
end;

procedure BuyTheBuckets;
begin
  if(not(LoggedIn))then Exit;
  if FindObjCustom2(x, y, ['hop'], [4347489, 5794690, 2574441, 1980497, 5794690],6) then
  begin
    writeln('Found the shopkeeper, buying the buckets!');
    Mouse(x,y,2,3,False);
    wait(1000+random(300));
    ChooseOption('rade');
    wait(6500+random(1600));
  end else
  begin
    writeln('Could not find the shopkeeper, switching players!');
    nextplayer(false);
    Loadz:= Loadz - Loadz;
    Loadzz:= Loadzz - Loadzz;
    Walks:= Walks - Walks;
    SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
    LoadsLeft:= LoadsLeft - LoadsLeft;
    mainloop;
  end;
    if (FindDTM(Bucket, x, y, msx1,msy1,msx2,msy2)) then
    begin
      Status('Buying buckets!');
      mouse(x,y,3,3,false);
      ChooseOption('X');
      wait(800+random(500));
      Typesend('14');
      wait(600+random(300));
      Mouse(486,40,2,2,True);
      wait(1000+random(200));
      exit;
    end else
    begin
      writeln('Could not find the buckets, switching players!');
      nextplayer(false);
      Loadz:= Loadz - Loadz;
      Loadzz:= Loadzz - Loadzz;
      Walks:= Walks - Walks;
      SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
      LoadsLeft:= LoadsLeft - LoadsLeft;
      mainloop;
    end;
end;

procedure GetBucketsAndClayFromBank;
begin
  GameTab(4);
    repeat
      OpenBankFast('eb');
      Tries := Tries + 1;
    Until ((BankScreen) Or (Tries > 5) or (PinScreen));
    
    if PinScreen then
    InPin(Players[CurrentPlayer].Strings[2]);

    If BankScreen Then
    Begin
      FixBank;
      Status('Found banking screen!');
      BankEverything;
      wait(1000+random(300));
        if (FindDTM(Bucket, x, y, msx1,msy1,msx2,msy2)) then
        begin
          Status('Getting new buckets from bank');
          mouse(x,y,3,3,false);
          ChooseOption('X');
          wait(800+random(500));
          Typesend('14');
          wait(600+random(300));
        end else
        begin
          wait(1000+random(300));
          GetCash;
          WalkToGeneralStore;
          BuyTheBuckets;
          WalkToEdgeBank;
          GetBucketsAndClayFromBank;
          mainloop;
          exit;
        end;
        if(FindDTM(Clay, x, y, msx1,msy1,msx2,msy2)) then
        begin
          Status('Getting new clay from bank');
          mouse(x,y,3,3,false);
          ChooseOption('All');
          wait(600+random(300));
          CloseBank;
          writeln('Got new clay from bank!');
          mainloop;
        end else
          writeln('Could not find any clay in bank!');
          writeln('Switching players!');
          nextplayer(false);
          Loadz:= Loadz - Loadz;
          Loadzz:= Loadzz - Loadzz;
          Walks:= Walks - Walks;
          SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
          LoadsLeft:= LoadsLeft - LoadsLeft;
          mainloop;
          exit;
    end;
end;

procedure proggy;
Begin
  cleardebug;
  Status('Writing proggie');
  WriteLn(' |+++++++++++++++++++++++++++++++++++++++++++++|')
  WriteLn(' | SoftClay made:= '+IntToStr(SoftClayMade)+'!                         |')
  WriteLn(' | Loads  := '+IntToStr(LoadsP)+'!                                |')
  WriteLn(' | Ran For := ' +TimeRunning);
  WriteLn(' |+++++++++++++++++++++++++++++++++++++++++++++|')
  WriteLn(' |               Player report:                |')
  WriteLn(' | Loads done:= '+IntToStr(Loadz)+'!                             |')
  WriteLn(' | SoftClay made:='+IntToStr(SoftClayMadePlayer)+'!                          |')
  WriteLn(' | Loads left:= '+IntToStr(LoadsLeft)+'!                             |')
  WriteLn(' |+++++++++++++++++++++++++++++++++++++++++++++|')
end;

procedure siggy;
begin
  Status('Writing siggy');
  cleardebug;
  writeln('======================================');
  writeln('|This script is made by              |');
  writeln('|PvH                                 |');
  writeln('|Please note:                        |');
  writeln('|NO PROGGYS/ERRORS POSTED MEANS:     |');
  writeln('|NO UPDATES!                         |');
  writeln('======================================');
  wait(5000+random(1000));
  cleardebug;
  writeln('======================================|');
  writeln('|       ---  |       __    \     /    |');
  writeln('|      /     |      /  \    \   /     |');
  writeln('|     |      |     |    |    \ /      |');
  writeln('|      \     |     |----|     |       |');
  writeln('|       ---  |_ _  |    |     |       |');
  writeln('|              SOFTENER               |');
  writeln('|               BY PVH                |');
  writeln('|=====================================|');
  wait(5000+random(1000));
end;

procedure SendSrlReport2;
begin
  if Loadzz >= 5 then
  begin
    ReportVars[0] := 5;
    ReportVars[1] := 70;
    ReportVars[2] := 70;
    srlrandomsreport;
    Loadzz:=Loadzz-5;
  end else
    exit;
end;

procedure srlstats;
begin;
  Status('Setting up srlstats');
  cleardebug;
  SetupSRL;
  ScriptID := '793';
    if ((players[currentplayer].strings[0] = '') or (players[currentplayer].strings[1] = ''))then
    begin
      SRLID:='3991';
      SRLPassword:='kuksoolwon596690';
      writeln('please do NOT leech!');
      writeln('go to [url]http://stats.srl-forums.com[/url] and create an account');
      writeln('script is started now');
    end else
    begin
      SRLID := players[currentplayer].strings[0];
      SRLPassword := players[currentplayer].strings[1];
    end;
end;

procedure mainloop;
begin
  Activateclient;
    Repeat
      If (Not (LoggedIn)) then
      Begin
        writeln('Not logged in, next player!');
        NextPlayer(True);
        Loadz:= Loadz - Loadz;
        Loadzz:= Loadzz - Loadzz;
        Walks:= Walks - Walks;
        SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
        LoadsLeft:= LoadsLeft - LoadsLeft;
        mainloop;
      end;
      if Loadz >= players[currentplayer].integers[0] then
      begin
        RandomSleep:=players[currentplayer].integers[2]*60000;
        TotalSleep:=players[currentplayer].integers[1]*60000;
        writeln('We did our loads, switching players!');
          if (players[currentplayer].Booleans[0]=false) then
          begin
            NextPlayer(True);
            Loadz:= Loadz - Loadz;
            Loadzz:= Loadzz - Loadzz;
            Walks:= Walks - Walks;
            SoftClayMadePlayer:= SoftClayMadePlayer - SoftClayMadePlayer;
            LoadsLeft:= LoadsLeft - LoadsLeft;
            mainloop;
          end;
          if (players[currentplayer].Booleans[0]=true) then
          begin
            logout;
            writeln('Sleeping now!');
            sleep(TotalSleep+random(RandomSleep));
            mainloop;
          end;
      end;
        SetAngle(true);
        MakeCompass('N');
        RunOrWalk;
        WalkToWell;
        FillTheBuckets;
        BucketAndClay;
        CreateSoftClay;
        WalkToEdgeBank;
        BankTheClay;
        proggy;
        SendSrlReport2;
    Until(Not LoggedIn);
    Disguise('FINISHED!');
end;

begin
  siggy;
  LoadDTMs;
  SetUpSmart;
  DeclarePlayers;
  srlstats;
  mainloop;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

nice.

change this:

procedure CreateSoftClay;
var
Waits: Integer;
begin
  GameTab(4);
  Status('Creating Soft clay');
  wait(750+random(350));
  mmouse(250,421,10,10);
  wait(750+random(350));
  mouse(250,421,10,10,false);
  ChooseOption('All');
    repeat
      AntiRandoms;
      Wait(1000);
      waits:=waits+1;
    until waits >= 13;
  wait(1000+random(600));
end;

to this:

procedure CreateSoftClay;
var
Waits: Integer;
begin
  GameTab(4);
  Status('Creating Soft clay');
  wait(750+random(350));
  ClickNPCChatText('texthere',clickright);
  ChooseOption('All');
    repeat
      AntiRandoms;
      Wait(1000);
      waits:=waits+1;
    until waits >= 13;
  wait(1000+random(600));
end;

yes btw.

From: skilld u
nice.

change this:

procedure CreateSoftClay;
var
Waits: Integer;
begin
  GameTab(4);
  Status('Creating Soft clay');
  wait(750+random(350));
  mmouse(250,421,10,10);
  wait(750+random(350));
  mouse(250,421,10,10,false);
  ChooseOption('All');
    repeat
      AntiRandoms;
      Wait(1000);
      waits:=waits+1;
    until waits >= 13;
  wait(1000+random(600));
end;

to this:

procedure CreateSoftClay;
var
Waits: Integer;
begin
  GameTab(4);
  Status('Creating Soft clay');
  wait(750+random(350));
  ClickNPCChatText('texthere',clickright);
  ChooseOption('All');
    repeat
      AntiRandoms;
      Wait(1000);
      waits:=waits+1;
    until waits >= 13;
  wait(1000+random(600));
end;

yes btw.

thanks for the feedback:)
I didn't know that clicknpcchattext would work also.
I reviewed a lot of scripts, also tought of some ways to click, and this is what I tought that would work the best.
I'll change it in the next version:D
I'll have to sleep now, and I'll be back on tomorrow;)
(No school:D)

Nice job on the clay softener, but stab stab stab for the banner! Horrible standards and too many options of typing!


Yes btw.

Note to self. Will look over this later :)

Nice, lol standards needs improvement. Other than that its good! It's a yes.

FindObjCustom2

Credits to Starblaster please :)

By the way, you'd be amazed about how young the majority of members / everyone here is. I'm only 15.

I thought ClickNPCChatText was removed from SRL, and now it's only FindNPCChatText?

Yes from me. I feel happy.

By the way, I'm only 13 ;)

that clay softener is pretty well written but the auto-banner is horrible.

BUT like you said there arent too many people who would use it so i wont count that one against you.

I'll say yes.

im 17 btw.

thanks everyone for the comments
I found a bug in the multiplayer.
I'll update it fast:)
I'll edit this when I am done:D

I forgot to set the variables after a player-switch back to zero, lol.
kinda dumb :duh:
I just realised it when I was in bed, lol.
It is fixed now..
I'll edit my script;)

EDIT:
I am also adding a player progress report:)
ADDED NOW:D

@Hy71194, I tought it was a srl fixed function, so I did not know who to credit.
sorry.. I credited now;)

EDIT:
fixed mainloop error

OMG STANDARDS STANDARDS THERE'S POOP ON THE STANDARDS.

…

*ahem*

…

Yes.

GoF i have to agree with you. :P

Note to c0de, i tested and it worked :P
Yes from here.

Yes. Good job :D

I've allways liked joo. Yas.

thanks for the comments everyone:)
is there anything that i should improve except for standards?

Procedure AntiRandoms;
var
i : Integer;
Begin
  Status('Doing AntiRandoms');
  for i := 0 to 3 do
    FindNormalRandoms;
    FindFightEx;
    FindNonInventoryRandoms;
    wait(1)
end;

Did you want this?:

Procedure AntiRandoms;
var
i : Integer;
Begin
  Status('Doing AntiRandoms');
  for i := 0 to 3 do
  begin
    FindNormalRandoms;
    FindFightEx;
    FindNonInventoryRandoms;
    wait(1)
  end;
end;

You need the begin and the end otherwise it will call FindNormalRandoms 4 times then call the rest once.

I'm not particularly fond of calling NextPlayer in the middle of a procedure. The reason being it could create a problem with the new player being stuck in the middle of the procedure that the previous player was in. But having said that the way you do it doesn't seem too bad although you can shorten it down a bit.

And yes work on your standards…

Hmmm… and what will I vote?…

ohh i didnt know that about antirandoms..
vote what you want;)
i will work on my standards..
and for that nextplayer thing..
it will always end the procedure and begin in the mainloop again.. and it will never get stuck… i tried it like 20 times:D

P.S.
I added srl playerform:)

i was just wondering why you would do this:

          Loadz:= Loadz - Loadz;
          Loadzz:= Loadzz - Loadzz;
          Walks:= Walks - Walks;

because x - x is always = 0;

so why not Loadz := 0; ? or did you expect to do something else?

nice intro btw. Turning next week 17, started programing bout the same age as you :p

~RM

From: Rasta Magician
i was just wondering why you would do this:

          Loadz:= Loadz - Loadz;
          Loadzz:= Loadzz - Loadzz;
          Walks:= Walks - Walks;

because x - x is always = 0;

so why not Loadz := 0; ? or did you expect to do something else?

nice intro btw. Turning next week 17, started programing bout the same age as you :p

~RM

Well… to be honest… I tought of that too..
And yes..I know it will always be 0.. and thats what it is ment to..
But i tought that I maybe wouldn't work… so I did this.. because I knew that this would work:)
Thanks for telling me;)

EDIT:
working on buying buckets in general store
will get cash from bank and things like that
will get clay if not found..
almost done:)

yes

A new version, including sleep, bucket buying, searching or clay/buckets if not found in inventory at bank, will be released later today:)

EDIT: NEW VERSION = RELEASED and I edited the script;)
EDIT2: fixed a bug, edited script
EDIT3: ADDED INPIN, FIXED PLAYER SWITCH BUG!
EDIT4: I will not be active for the next 2 weeks.. I am leaving for 2 weeks..
I go on vacation with my parants.
Thanks for everything!:)
I'll see you all in 2 weeks;)

Welcome, sir!