SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Town, I think

Programming Knowledge
Very basic vB and C++

Other Communitys
RSF, Sythe, Warez-bb, Halo3Forum, Photoshoptechniques.com

How Long have You Played Runescape
Since 2003, but I don't play anymore.

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

[Same paragraph as first app] Hmm, well i've been a part of RS cheating for a long time (2003). I never wrote scripts or anything back then, but I used them. I only used bots for RSC, like StS, autorunepaint, ect. I tryed using SCAR but I never understood it. Then one day I decided i'll try to learn it. I then found out how to use scripts. Then (I think) Town told me to go here, because it has alot more scripts ect. Then I came here and I had to change a script a little bit to get it to work but I didn't know how, so I posted and people told me to learn the very basics of SCAR to get it to work. I did, and it worked. But I didn't want to stop there so I kept reading tuts and learning, while asking alot of questions along the way. And now I am here, with my first script finished…
[/Same paragraph as first app]

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

Okay well this is my maple chopper, i've added everything that I think is neccassary to become an SRL member (Fail safes, multiplayer ect.) On my last update I added alot of walking fail safes and writelns, and I don't think I did them 100% correct but none the less this is just about the coding.. right? I've also written a simple auto talker/tut, even though you said it's not worth it to post autotalkers ect. I thought it might improve my chances.

/////////////-----------------------/////////////
////////////Zeta's Maple Masher v0.6////////////
///////////-------------------------///////////
//////////-----Big thanks to...-----//////////
/////////---------------------------/////////
////////-------------Town-----------////////
///////-----------------------------///////
//////-----------Santa_Clause-------//////
/////-------------------------------/////
////--------------Kevin Wolf--------////
///---------------------------------///
//----------------YoHoJo------------//

{INSTRUCTIONS:
-Start in seers bank
-Fill out lines 22-56
-Low detail
-Highest brightness
-Logged in or out
-Axe weilded or not
-32-bit color mode
-Press play
-Get maples
-Post proggies!!}

program ZetasMapleMasher;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

const
  Maple = 19058; //the colors of the maples
  Maple2 = 16760;
  Maple3 = 9548;
  Tol = 10; //tolerance to find the maple
  AntiBanAmount= 75; //Set this for the chance of Antiban to do something.
  //75 is default, lower for more antiban, higher for less.

var
Loads:integer;


procedure DeclarePlayers;
begin
  HowManyPlayers := 3; //How many players there are
  NumberOfPlayers(HowManyPlayers); //Leave this alone
  CurrentPlayer := 0;  //The player to start with

  Players[0].Name := ''; //Player's username
  Players[0].Pass := ''; //Player's password
  Players[0].Nick := ''; //3-4 characters of player's username, no capitals or spaces
  Players[0].Booleans[1] := True; //Is the axe wielded?
  Players[0].Pin := 0000; //Your pin if you have one, if not just don't touch it.
  Players[0].Active := True; //Do you want to use this player?
  Players[0].Integers[0] := 3; //Loads for player to do


  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Booleans[1] := True;
  Players[1].Pin := 0000;
  Players[1].Active := True;
  Players[1].Integers[0] := 2;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Booleans[1] := True;
  Players[2].Pin := 0000;
  Players[2].Active := False;
  Players[2].Integers[0] := 2;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  Writeln ('There are ' + Inttostr(HowManyPlayers)+ ' Players');
end;


function RadialToleranceWalk(TheColor: Integer; StartRadial, EndRadial: Integer;
  Radius: Integer; Xmod, Ymod, Tol: Integer): Boolean; // By Wizzup? and WT-Fakawi.
var
  i, X1, Y1, x, y: Integer;
begin
  if (RoadColorChecker) then
    if (DebugRadialRoad) then
      WriteLn(' THROUGH RADIALROADWALK=  ---> ' + IntToStr(RoadColor));
  if (StartRadial = EndRadial) then
  begin
    WriteLn('Using LinearRoadWalk, equal values.')
      if LinearRoadWalk(TheColor, StartRadial, Radius, Xmod, Ymod) then
      Result := True;
  end
  else if (StartRadial < EndRadial) then
  begin
    repeat
      for i := StartRadial to EndRadial do
      begin
        x1 := Round(Radius * Sine(i)) + 646;
        y1 := Round(-Radius * Cose(i)) + 84;
        if Not LoggedIn then Exit;
        if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
        begin
          MouseFindNoFlag(X,Y,Xmod,Ymod);
          Result := True;
          CountFlag(10);
          Exit;
        end;
      end;
      Radius := Radius - 4;
    until (Radius <= 1);
  end else
    if (StartRadial > EndRadial) then
    begin
      repeat
        for i := StartRadial downto EndRadial do
        begin
          x1 := Round(Radius * Sine(i)) + 646;
          y1 := Round(-Radius * Cose(i)) + 84;
          if Not LoggedIn then Exit;
          if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
          begin
            MouseFindNoFlag(X,Y,Xmod,Ymod);
            Result := True;
            CountFlag(10);
            Exit;
          end;
        end;
        Radius := Radius - 4;
      until (Radius <= 1);
    end
end;



function MyOpenBank: Boolean;
var
x, y, fs, tries, fs2: Integer;
begin
  if not BankScreen then
    repeat
if FindObjCustom(x, y, ['ank booth'], [980573, 3691619], 4) then
        Mouse(x, y, 4, 4, False)
      else if (FindObj(x, y, 'Use Bank', 2842230, 5)) then
        Mouse(x, y, 4, 4, False)
      else if (FindObj(x, y, 'Use Bank', 12611, 5)) then
        Tries:=Tries+1;
        Mouse(x, y, 4, 4, False);
      Wait(250+random(100));
      if (ClickOption('quickly', 1)) then
      begin
        FFlag(0);
        repeat
          Wait(100);
          Inc(fs);
        until (BankScreen) or (fs >= 50) or (Tries = 8);
        begin
        if (Tries = 8) then
        Writeln('Tried to find the bank booth 8 times, something went wrong, next player.');
        Logout;
        Exit;
        end;
      end;
      Inc(fs2);
    until (BankScreen) or (fs2 > 5);
  Result := BankScreen;
end;



procedure SetupClient;
begin
  if (not(LoggedIn)) then Exit;;
  Writeln('Setting chats and run');
  SetChat('on', 1);
  Wait(400+random(500));
  SetChat('off', 2);
  Wait(400+random(500));
  SetChat('off', 3);
  Wait(400+random(500));
  SetChat('off', 4);
  Wait(400+random(500));
  Setrun(true);
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.
Var
  i: Integer;
Begin
if not LoggedIn then Exit;
  For I := 1 To 10 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;
       2:  If FindMime Then
             Result := True;
       3:  If FindMaze Then
             Result := True;
       4:  If FindQuiz Then
             Result := True;
       5:  If FindDemon Then
             Result := True;
       6: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Players[CurrentPlayer].Active := False;
               Logout;
               Exit;
             End;
           End;
       7 : If RC Then
              Result:=True;
       8 : If FindFight Then
                Result := True;
       9 : If FindTalk Then
             Result := True;
       10: If FindCerter Then
             Result := True;
    End;
    Wait(1);
  End;
End;


procedure AntiRandoms;
begin
if not LoggedIn then Exit;
    FindTalk;
    FindNormalRandoms;
    FindFastRandoms;;
    FindLamp('Woodcutting');
    SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('W', True);
    Wait(6000 +Random(6423));
    RunBack;
  end;
end;



Procedure AntiBan1;
begin
if not LoggedIn then Exit;

  case Random(AntiBanAmount) of
    0: MMouse(300, 300, 500, 500);
    1: begin
         HoverSkill('Woodcutting',false);
         wait(2364+Random(413));
         GameTab(4);
       end;
    2: PickUpMouse;
    3: begin
         MakeCompass('N');
         wait(10+random(5));
         MakeCompass('S');
         wait(10+random(5));
         MakeCompass('N');
         end;

    9: begin
         HoverSkill('Random',false);
         wait(2364+Random(413));
         GameTab(4);
         end;

    4:   MMouse(300, 300, 500, 500);
    5:   begin
         LowestAngle;
         wait(10+random(74));
         HighestAngle;
         end;

    6: SleepAndMoveMouse(5000+random(3000));
    7: MMouse(300, 300, 600, 600);
    8: begin
       GameTab(1 + Random(12));
       wait(800+random(1100));
       end;

    end;
  end;


procedure WalkToMaples;
var
  x, y: integer;
begin
  if(not LoggedIn) then Exit;
  SymbolAccuracy := 0.2;
  MakeCompass('N');
  HighestAngle;
  AntiRandoms;
  Writeln('Trying to walk to maples..');
  if(RadialToleranceWalk(98061, 330, 384, 65, 10, 12, 20)) then
  begin
    Antirandoms;
    Flag;
  end else
    Writeln('Could not radial walk for some reason, trying to find tree symbol.');
  begin
  if (not(FindSymbol(x, y, 'tree'))) then
  begin
  Writeln('Did not find tree symbol either, next player.');
  Logout;
  Exit;
  end;
    Mouse(x, y, 10, 10, true);
    AntiRandoms;
    Flag;
    Writeln('Found the symbol, :D');
    end;
  Writeln('Correctly walked to maples.');
 end;


procedure ChopMaples;
var
x, y, ChopMark: Integer;
begin
if not LoggedIn then Exit;
  repeat
      if FindObjCustom(x, y, ['aple tree'], [Maple, Maple2, Maple3], Tol) then
    begin
      Writeln('Found a maple... chopping');
      if not(FindEnt(x,y,true)) then
      Mouse(x, y, 0, 0, True);
      AntiRandoms;
      MarkTime(ChopMark);
      repeat
        Wait(500 + Random(250));
        AntiRandoms;
        Antiban1;
      until(TimeFromMark(ChopMark) >= (8000 + Random(2000))) or (InvFull) or (not (LoggedIn));
      end;
  until (InvFull);
end;

procedure WalkToBank;
var
x,y: integer;
begin
if not LoggedIn then Exit;
    SymbolAccuracy:= 0.1;
    Makecompass('N');
    HighestAngle;
  begin
    if (FindSymbol(x, y, 'bank')) then
    begin
      Writeln('Found bank symbol... walking to bank');
      Mouse(x, y, 50, 50, true);
      AntiRandoms;
      Flag;
      end else
      Writeln('Could not find the bank symbol, trying to radial walk');
      if (not(RadialToleranceWalk(7368572 , 210, 141, 52, 0, 0, 5))) then
      begin
      Writeln('Couldnt radial walk either.. next player.');
      Logout;
      Exit;
      end;
      AntiRandoms;
      Flag;
      Writeln('Yes! Radial walk was successful');
      end;
      Writeln('Correctly walked to bank');
  end;

procedure Bank;

begin
if not LoggedIn then Exit;
   Writeln('Trying to find bankbooth');
   MyOpenBank;
   if(PinScreen) then
   begin
   InPin(IntToStr(Players[CurrentPlayer].Pin))
   end;
   if (BankScreen) then
   Writeln('Found bankbooth... banking');
   FixBank;
   begin
     if (Players[CurrentPlayer].Booleans[1] = True) then
       begin
         Deposit(1,28,2);
         Writeln('Correctly deposited');
         Closebank;
         Writeln('Correctly closed bank');
         MakeCompass('N');
         Writeln('Made compass north');
         Loads:=Loads+1;
        end;
     end;

   begin
        if (Players[CurrentPlayer].Booleans[1] = False) then
        begin
            Deposit(2, 28, 2);
            Writeln('Correctly deposited');
            CloseBank;
            Writeln('Correctly closed bank');
            MakeCompass('N');
            Writeln('Made compass north');
            Loads:=Loads+1;
          end;
        end;
   Writeln('Correctly banked.');
end;


procedure Proggy;
begin
  Writeln('~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!');
  Writeln('~!~Zetas Maple Masher Proggy Report~!~!~');
  Writeln('~!~Script has run for ' + (TimeRunning) + '~!~');
  Writeln('~!~Did ' + IntToStr(Loads)+ ' loads.~!~!~!~!~!');
  Writeln('~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!');
end;


procedure MainLoop;
label
  Chopping;
begin
  ActivateClient;
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  SetupClient;
  Chopping:
  repeat
if not LoggedIn then Break;
     WalkToMaples;
     ChopMaples;
     WalkToBank;
     Bank;
  until(Loads >= Players[CurrentPlayer].Integers[0]) or (not(LoggedIn));
  Proggy;
  if (Loads >= Players[CurrentPlayer].Integers[0]) then
  NextPlayer(True);
  if (not(LoggedIn)) then
  NextPlayer(False);
  if ((CurrentPlayer + 1) >= HowManyPlayers) then TerminateScript
  begin
    goto Chopping;
  end;
end;

begin
MainLoop;
end.

{
INSTRUCTIONS:
1. Fill out the messages to what you want them to say.
2. Fill out the colors and effects you want
3. Drag crosshair to runescape.
4. Press F4 for message 1, F5 for 2, F6 for 3, F7 for 4 and F8 for 5.
5. Press F10 to stop the script.
}



program SimpleAutoTalker; //The program name
{.include SRL/SRL.scar}

const //Constants, these stay the same throughout the whole script
Color = ('white'); //Red, cyan, green, white, flash 1, flash 2, flash 3
Effect = ('shake'); //Wave, wave 2, shake, scroll, slide
Message1 =('This is the first message');
Message2 =('This is the second message');
Message3 =('This is the third message');
Message4 =('This is the fourth message');
Message5 =('This is the fifth message');

procedure Talk; //The procedure name
begin //Begin the procedure
  if(IsFKeyDown(4))then //If the key F4 is down it will..
  begin //Begin this part of procedure
   TypeSend(Color + ':' + Effect + ':' + Message1);  //Types message1, and the color and effect
   Talks:=Talks+1;  //Everytime we talk it adds 1 to the times talked
  end; //Ends this part of procedure

  if(IsFKeyDown(5))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message2);
   Talks:=Talks+1;
  end;
  
  if(IsFKeyDown(6))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message3);
   Talks:=Talks+1;
  end;
  
  if(IsFKeyDown(7))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message4);
   Talks:=Talks+1;
  end;
  
  if(IsFKeyDown(8))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message5);
   Talks:=Talks+1;
  end;
end; //Ends the whole procedure

procedure Proggy;
begin
  Writeln('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]'); //Writes text in the debug box
  Writeln('Talked ' + IntToStr(Talks) + ' Times' + '    ');
  Writeln('Script has been running for ' +  TimeRunning);
  Writeln('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]');
end;


Procedure MainLoop;
begin
  ActivateClient;  //This minimizes SCAR and goes to the runescape screen.
  SetupSRL; //Sets up SRL so it can be used.
 repeat
   Talk;  //Uses the talk procedure
 until(IsFKeyDown(10));  //Stops script when F10 is pressed.
  Proggy; //Does the progress report
end;

begin //The begin of the real mainloop
MainLoop;
end. //The end of the mainloop, and the end of the whole script.

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

Hmmm.. It looks okay by me, I am holding vote though ;) I think you will get in.

Ill say yes, you script better than most, though you have an interesting way of doing stuff… one thing i saw, rather than doing a repeat until(Number >5) do

for i := 0 to 5 do
begin
if(StuffHappens)then
Break;
end;

you have got the basics down, and i think you deserve membership.

pretty nice script

Yes from me :)

Your standards are a bit odd though :p

From: Santa_Clause
Yes from me :)

Your standards are a bit odd though :p

So are mine, you got a problem with that?
lol

your right, he does switch from having his ifs and thens capitalized to having them lowercase

Edit: who voted no?

No.

Like Macrosoft said, you have the basics down. This is both a blessing and a curse. You're further than many, but basics won't get you into srl.

   if (BankScreen) then
   Writeln('Found bankbooth... banking');
   FixBank;
   begin
     if (Players[CurrentPlayer].Booleans[1] = True) then
       begin
         Deposit(1,28,2);
         Writeln('Correctly deposited');
         Closebank;
         Writeln('Correctly closed bank');
         MakeCompass('N');
         Writeln('Made compass north');
         Loads:=Loads+1;
        end;
     end;
 
   begin
        if (Players[CurrentPlayer].Booleans[1] = False) then
        begin
            Deposit(2, 28, 2);
            Writeln('Correctly deposited');
            CloseBank;
            Writeln('Correctly closed bank');
            MakeCompass('N');
            Writeln('Made compass north');
            Loads:=Loads+1;
          end;
        end;
   Writeln('Correctly banked.');

1) If it doesn't find the bankscreen, it just won't write 'Found bankbooth… banking' to the debug box, and will go on with the rest of the procedure.

2) Why have the exact same code, minus one line, in your script twice? Join the common code, and put an if with each deposit.

Also, you don't have to use begin/end with every if. If you're just using an if to execute one line of code, you can leave out the begin and end.

You have a good attitude, you are receptive to criticism…you have made improvements since your last application…A little more polishing and I think you will be putting out some quality scripts….I usually don't vote, but i will give you a YES, as long as you do get members, you will continue to learn, grow and be helpful :)

Good Luck,

~RAM

yes if i get accepted i'm going to continue making scripts and contributing, and like i said, some of the writelns/fail safes are a little messed up but i didn't know how to fix them

yes, but fix standaards plox =]

hmmm, looks good, correct…, but it's not for real using, if you click on tree, it will wait repeat 8000 + Random(2000) or not logged in, or inv full, but not try to find ent in it… it does checks for ent before clicking:D
i'm happy you made some failsafes… btw what did you changed in radial tolerancewalk?

yes for me,just because no major mistakes

Script looks good :). like what SM said. some thing needs to be fixed tough.
but i can life with it :p yes.

Welcome!