SRL Archive - Archive

How Long have You Played Runescape?
10 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I have taken a number of Java programming classes at school, I have taking some C++ as well as some HTML. I know a lot of programming in general.


Are you a member of any other communities?
I was a really good member of Powerbot and RSBuddy until the release of EOC.


Tell us about yourself…

From: PattyCakes
I'm 20 years of age and plan to major in computer programming in college. I spend a lot of my time at the computer playing Runescape and other games. I love to play volleyball. I'm a semi-sponsored snowboarder for "Smokin" Snowboards and I work at a ski resort in CA, USA.

Please show us one (or multiple) of your scripts.

(*****I have a Nature rune stealer for the ardougne chest and a willow chopper/banker for draynor.*****)

(************ NATURE STEALER ************)

program WhiteOutsNats;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I P07Include.Simba}

  var
  NumberOfRunes: Integer;
  x: Integer;
  y: Integer;
Procedure P07_DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';          // ***Username***
  Players[0].Pass := '';          // ***PW***
  Players[0].WorldInfo  := [];    // ***Desired World, leave blank if random***
  Players[0].Nick := '';          // ***Portion of display name, IMPORTANT FOR RANDOMS***
  Players[0].LampSkill := Skill_Slayer;
  Players[0].Active := True;
End;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'thieving';

  LevelUp;
end;

function Steal: Boolean;
begin
  if (FindColor(x, y, 49152, 0, 0, 300, 200)) then   //Poison gasses
  begin
    Wait(300)
    Mouse(345, 248, 0, 0, true);
    Wait(3000)
    Mouse(153, 115, 0, 0, true);
    WriteLn('Just skipped chest random')
    Wait(120000);
  end else
  begin                         //Getting nats
    inc(NumberOfRunes);
    P07_FindObj(x, y, 'hest', 2832974, 5)
    Mouse(x, y, 5, 0, False);
    Mouse(x, y, Random(2), Random(2), false);
    P07_ChooseOptionMulti(['earch']);
    WriteLn('Number of nats stolen = ' + IntToStr(NumberOfRunes));
  if (FindColor(x, y, 49152, 0, 0, 300, 200)) then    //Poison gasses
    begin
      Wait(300)
      Mouse(345, 248, 0, 0, true);
      Wait(3000)
      Mouse(153, 115, 0, 0, true);
      WriteLn('Just skipped chest random')
      Wait(120000);
    end;
     Wait(19000+random(2000))
  end;
end;
Function AntiBan: Boolean;
begin
  case random(300) of
  0: P07_HoverSkill('thieving', random(5000));
//  1: P07_TurnOnRun;
  2: P07_MakeCameraAngleHigh;
// 3: P07_MakeCompassSouth;
// 4: P07_MakeCompassEast;
// 5: P07_MakeCompassWest;
  6: MMouse(random(700), random(400), 0, 0);
  end;
end;

begin
  P07_DeclarePlayers;
  ClearDebug();
  SMART_FIXSPEED := TRUE;
  SetupSRL();
  SetScreenName(Players[0].Nick);
  SetupP07Include;
  ActivateClient;
repeat
  FindNormalRandoms;
  P07_MakeCameraAngleHigh;
  P07_MakeCompassWest;
  Steal;
  AntiBan;
until(NumberOfRunes = 1000);
end.


(**********WILLOW CHOPPER/BANKER************)


program WhiteOuTsWillows;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I P07Include.Simba}

var
  ChopWaitT, invcount1, invcount2, ChopWaitTime, WillowColor, Lagg, BankDTM, BankColor1: integer;

procedure DTM;
begin
Lagg := 750 + Random(500);
ChopWaitTime := 15000;
WillowColor := 2111538;
BankColor1 := 5857124;
BankDTM:= DTMFromString('mQwAAAHicY2ZgYGhmYmDohmIZBgiWAOK3bxGYiwGBGZEwEAAAMdAHog==');
end;

Procedure P07_DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';          // ***Username***
  Players[0].Pass := '';          // ***PW***
  Players[0].WorldInfo  := [];    // ***Desired World, leave blank if random***
  Players[0].Nick := '';          // ***Portion of display name, IMPORTANT FOR RANDOMS***
  Players[0].LampSkill := Skill_Slayer;
  Players[0].Active := True;
End;
procedure FreeDTMss;
begin
  FreeDTM(BankDTM);
end;

procedure GoToBank;
var x, y: integer;
begin
  P07_MakeCompassNorth;
  if(findDTM(BankDTM, x, y, 565, 7, 717, 157)) then
  begin
    Mouse(x + 12, y - 10, random(10), random(10), true);
  end;
  P07_FFlag;
  wait (Lagg);
end;

procedure BankLogs;
begin
  P07_Deposit(1, 28, True);
  wait (Lagg);
end;

procedure OpenBank1;
var x, y: integer;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassNorth;
  Repeat
    If P07_FindObj(x, y, 'ank booth', BankColor1, 10) Then
    begin
      Mouse(x, y, Random(2), Random(2), false);
      P07_ChooseOptionMulti(['ank']);
    end
    else
    begin
      P07_MakeCompassDegree(30);
      GoToBank;
    end;
    P07_FFlag;
    wait (Lagg);
  until(P07_BankScreen)
end;

procedure GoToTrees;
var x, y: integer;
begin
  P07_MakeCompassNorth;
  if(findDTM(BankDTM, x, y, 565, 7, 717, 157)) then
  begin
    Mouse(x - 12, y + 22, random(10), random(10), true);
  end;
  P07_FFlag;
  wait (Lagg);
end;

procedure ChopTree;
var x, y: integer;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassNorth;
    If P07_FindObj(x, y, 'illow', WillowColor, 5) Then
    begin
      if(CountColorTolerance(13093380, 0, 0, 243, 20, 30) > 1) then
        begin
          if Random(2) = 1 then
          begin
            Mouse(x, y, Random(2), Random(2), true);
          end
          else
          begin
            Mouse(x, y, Random(2), Random(2), false);
            P07_ChooseOptionMulti(['hop']);
          end;
      end;
    end
    else
    begin
      P07_MakeCompassDegree(30);
      GoToTrees;
    end;
    P07_FFlag;
    wait (Lagg);
end;

procedure TurnOnRun;
var x, y: integer;
begin
   Mouse(671, 482, random(3), random(3), true);
   if(FindColorTolerance(x, y, 4803917, 651, 422, 659, 430, 10)) then
   begin
     Mouse(640, 426, random(3), random(3), true);
   end;
   Mouse(644, 184, random(3), random(3), true);
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'thieving';

  LevelUp;
end;
Function isMoving1: Boolean;
  var
    PBox: TBox;
  begin
    PBox := IntToBox(237, 162, 282, 205);
    Result := (AveragePixelShift(PBox, 250, 500) > 90);
  end;
Function AntiBan: Boolean;
begin
  case random(300) of
  0: P07_HoverSkill('woodcutting', random(5000));
  1: TurnOnRun;
  2: P07_MakeCameraAngleHigh;
  3: P07_MakeCompassSouth;
  4: P07_MakeCompassEast;
  5: P07_MakeCompassWest;
  6: MMouse(random(700), random(400), 0, 0);
  end;
end;

begin
  P07_DeclarePlayers;
  ClearDebug();
  SMART_FIXSPEED := TRUE;
  SetupSRL();
  SetupP07Include;
  ActivateClient;
  Wait(2000);

  If (Not P07_LoggedIn) Then
  begin
    P07_LogInPlayer;
  end;

  P07_MakeCameraAngleHigh;
  P07_MakeCompassNorth;
  DTM;
  AddOnTerminate('FreeDTMss')
  TurnOnRun;
  MarkTime(ChopWaitT);
  invcount2 := 28;

  repeat
    invcount1 := P07_InvCount;
    if((TimeFromMark(ChopWaitT) > ChopWaitTime)) then
    begin
      invcount2 := P07_InvCount;
      MarkTime(ChopWaitT);
    end;

    AntiBan;
    AntiRandoms;

    if(P07_InvFull) then
    begin
      GoToBank;
      OpenBank1;
      BankLogs;
      GoToTrees;
    end
    else
    begin
      if((invcount2 >= invcount1) or not isMoving1) then
      begin
        ChopTree;
        invcount2 := 0;
      end
    end;
  until (Not P07_LoggedIn)
  TerminateScript;
end.

Be sure to read the members application tutorials out there, as they are very helpful to understand/know before applying. :)

I'm sorry, but I'm going to be voting no on your application.

First and foremost, Member is a community rank. With this being your absolute first post and you having joined about half an hour prior to applying, that doesn't imply very much of a community involvement.

As far as your script goes, you don't really have anything very impressive to wow anyone. You use static waits and - even worse - static co-ord clicking. There is no randomness to your actions and this will look exactly like a bot - not to mention if anything fails, you will be permanently failing since you lack any sort of checks for your click verifications.
You don't show any sort of knowledge of TPAs, you don't show any method of walking besides basing on symbols, your scripts are very short (it took me a while to realize you had 2 separate scripts in one tag, you should split them into separate tags for other people to view), and you lack any sort of failsafe if something doesn't succeed. I'm sorry but it looks like you need a lot of work to be a Member.

Please look to this guide for advice as well as to understand how we choose our members: http://villavu.com/forum/showthread.php?t=74195

Good luck in future applications, though!

Hey man. Unfortunately your scripts are far too simple for Members. Like the guys h e already said, take some time to have a read over some guides to widen your knowledge as well as having a look at scripts which have already been released.

Good luck next time.

Good attempt at a first script :) However, it is not really up to member standards. Most members would like to see your helpfulness around the forums and get to know you a bit also. Be sure to read the thread Kevin linked :)

Good first script :) More activity in the community would be nice.

Sorry a no from me. Would like to see you more active!

Didn't make it this time. Take the suggestions given to you above, check out the tutorial island section and feel free to apply in 4 weeks time. Good start though.

Cheers
Hobbit