SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Pascal, Some PHP and a little HTML

Other Communitys
SRL is my only love

How Long have You Played Runescape
On and off 2 years.

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

I don't like writing about myself but I'll give it a go anyway. I came to SRL in search of RS cheats, but as I realized this community was more than that my opinions changed. SRL comes before most things in my life and I love using it and working with it.

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

program OakLiquidator;
{.Include SRL\SRL.SCAR}
{.include srl/srl/extended/xAntiban.scar}


// YoHoJo's Ent Finder Is In Here

{------------------------------------------------------------------------------}
{---------------------------Varrock East, Oak Liquidator-----------------------}
{---------------------------------By PassionDrive------------------------------}
{----------------------------------Instructions--------------------------------}
{------------------------------------------------------------------------------}
{---------------------- Start in Varrock East Bank, Axe------------------------}
{---------------------- wielded or not.                ------------------------}
{---------------------- Use Scar 3.11 and SRL 3.81     ------------------------}
{---------------------- V BRIGHT!!                     ------------------------}
{---------------------- Drag Crosshair onto rs         ------------------------}
{---------------------- Hit run and enjoy!             ------------------------}
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}


{------------------------------------------------------------------------------}
{------------------------------ Variables -------------------------------------}
{------------------------------------------------------------------------------}

var
  Log, Loads, Loads2: Integer;

{------------------------------------------------------------------------------}
{------------------------------ SetUpPlayers ----------------------------------}
{------------------------------------------------------------------------------}

procedure DeclarePlayers;
begin

  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'Nick'; // Three letters out of the middle of your username.
  Players[0].Active := True;
  Players[0].Integer1 := 1;

  Players[1].Name := 'Username';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'Nick'; // Three letters out of the middle of your username.
  Players[1].Active := True;
  Players[1].Integer1 := 1;

  Players[2].Name := 'Username';
  Players[2].Pass := 'Password';
  Players[2].Nick := 'Nick'; // Three letters out of the middle of your username.
  Players[2].Active := True;
  Players[2].Integer1 := 1;

  Players[3].Name := 'Username';
  Players[3].Pass := 'Password';
  Players[3].Nick := 'Nick'; // Three letters out of the middle of your username.
  Players[3].Active := True;
  Players[3].Integer1 := 1;

  Players[4].Name := 'Username';
  Players[4].Pass := 'Password';
  Players[4].Nick := 'Nick'; // Three letters out of the middle of your username.
  Players[4].Active := True;
  Players[4].Integer1 := 1;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

end;

{------------------------------------------------------------------------------}
{------------------------------ MiniSetUp -------------------------------------}
{------------------------------------------------------------------------------}

{------------------------------ LoadDTM's -------------------------------------}

procedure LoadDTM;
begin

  Log := DTMFromString('78DA637467626078C28002BAB2ED19FE03694' +
    '620FE0F048C2E40351F19D000231209A46D816ADE125063856917' +
    '861A57A09A3B44D8758F801A3FA09A9B04D40403D5DC27A0261CA' +
    '8E62511E6BC21A0C60BA8E61D7E3500A29E135A');

end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}

procedure MiniSetUp;
begin
  SetUpSRL;
  Wait(100 + Random(300));
  DeclarePlayers;
  ActivateClient;
  Wait(100 + Random(300));
  Wait(1000 + Random(200));
  if not loggedin then LoginPlayer;
end;


{------------------------------------------------------------------------------}
{-------------------------------- MainSetUp -----------------------------------}
{------------------------------------------------------------------------------}

procedure MainSetUp;
begin
  if not LoggedIn then LoginPlayer;
  Wait(100 + Random(300));
  HighestAngle;
  Wait(100 + Random(300));
  MakeCompass('N');
  Wait(100 + Random(300));
  MakeCompass('S');
  Wait(100 + Random(300));
end;

{------------------------------------------------------------------------------}
{-------------------------------- YoHoJoEntFinder -----------------------------------}
{------------------------------------------------------------------------------}

function EntThere: Boolean;
var CX, CY: Integer;
begin
  if (not (LoggedIn)) then Exit;
  Status('Yohojo8s Searching For Ent');
  if (IsUpText('Oak')) then
    if FindColorTolerance(CX, CY, 55769, 85, 15, 115, 15, 20) then
      Result := True;
end;

procedure StandStill;
begin
  if (not (LoggedIn)) then Exit;
  Status('Ent Found, Standing Still');
  MouseFindFlag(648, 83, 5, 5);
  Wait(15000 + Random(5000));
end;

procedure WaitForit;
var w: integer;
begin
  if (not (LoggedIn)) then Exit;
  Status('Waiting For Ent');
  repeat
    FTWait(7000 + Random(1000));
    W := W + 1;
  until (W > 7) or EntThere = False
end;

procedure SolveEntt;
begin
  if (not (LoggedIn)) then Exit;
  if (EntThere) then
  begin
    StandStill;
    WaitForIt;
  end;
end;

{------------------------------------------------------------------------------}
{--------------------------------- FawkiRandoms -------------------------------}
{------------------------------------------------------------------------------}

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);

  end;
end;

{------------------------------------------------------------------------------}
{-------------------------------- AntiBan -------------------------------------}
{------------------------------------------------------------------------------}

procedure AntiBans;
begin
  if (not (LoggedIn)) then Exit;
  case Random(9) of
    0: RandomRClickEvery(2 + Random(10));
    1: HoverSkill('woodcutting', false);
    2: HoverSkill('random', false);
    3: BoredEvery(9 + Random(21));
    4: PickUpMouse;
    5: LeaveScreenEvery(10 + Random(5));
    6: MMouse(MSX1, MSX2, 10, 10);
    7: HighestAngle;
    8: begin
        case Random(10) of
          0: TypeSend('Oaks, loveley oaks!');
          1: TypeSend('Im gonna sell these to my mates :[)');
          2: TypeSend('Jagex are amazing for making this game');
          3: TypeSend('Im bored :(');
          4: TypeSend('Seventior Disthine Molenko!, lol');
          5: TypeSend('Ive just finished rune mysteries');
          6: TypeSend('I want higher prayer');
          7: TypeSend('trainin combat is so borin');
          8: TypeSend('Meh');
          9: TypeSend('My main used to have full zammy...got hacked :@');
        end;
      end;
  end;
end;

{------------------------------------------------------------------------------}
{--------------------------------- AntiRandoms --------------------------------}
{------------------------------------------------------------------------------}

procedure AntiRandoms;
begin
  if (not (LoggedIn)) then Exit;
  FindFastRandoms;
  Wait(10);
  FindNormalRandoms;
  Wait(10);
  FindTalk;
  Wait(10);
  FindMaze;
  Wait(10);
  SolveBox;
  if (FindFight) then
  begin
    RunAwayDirection('W');
    Wait(8500 + random(3500));
    RunBack;
  end;
  AntiBans;
end;

{------------------------------------------------------------------------------}
{-------------------------------- WalkThere -----------------------------------}
{------------------------------------------------------------------------------}

procedure WalkThere;
begin
  if (not (LoggedIn)) then Exit;
  Wait(100 + Random(300));
  SetRun(True);
  if (not (LoggedIn)) then Exit;
  RadialRoadWalk(FindVarrockRoadColor, 209, 249, 61, 0, 0);
  Flag;
  Wait(100 + Random(300));
  if (not (LoggedIn)) then Exit;
  RadialRoadWalk(FindVarrockRoadColor, 247, 288, 51, 0, 0);
  Flag;
  Wait(100 + Random(300));
end;

{------------------------------------------------------------------------------}
{-------------------------------- ChopTree ------------------------------------}
{------------------------------------------------------------------------------}

const
  TreeColor = 3166535; // The color of the oak.

procedure ChopTree;
var ChoppingTime: Integer;
begin
  if (not (LoggedIn)) then Exit;
  SetRun(False);
  Wait(100 + Random(300));
  MakeCompass('N');
  Wait(100 + Random(300));
  HighestAngle;
  Wait(100 + Random(300));
  MarkTime(ChoppingTime);
  repeat
    if (not (LoggedIn)) then Exit;
    if (FindObj(x, y, 'Oak', TreeColor, 5)) then
      Mouse(x, y, 3, 3, true) else
    begin
      WriteLn('Couldnt find tree...Next player');
      Exit;
    end;
    SolveEntt;
    Wait(3000 + random(1500));
    SolveEntt;
    AntiRandoms;
  until (InvFull) or (TimeFromMark(ChoppingTime) > 400000 + random(10000));
end;

{------------------------------------------------------------------------------}
{-------------------------------- Walk Back -----------------------------------}
{------------------------------------------------------------------------------}

const
  BankerDot = 195836; // The color of the bankers "dot" on the mini map.
  {BankerDot may not need changing}

procedure WalkBack;
begin
  if (not (LoggedIn)) then Exit;
  MakeCompass('N');
  RadialRoadWalk(FindVarrockRoadColor, 242, 282, 44, 0, 0);
  Flag;
  RadialRoadWalk(FindVarrockRoadColor, 267, 282, 40, 0, 0);
  Flag;
  RadialRoadWalk(FindVarrockRoadColor, 267, 282, 20, 0, 0);
  Flag;
  RadialWalk(195836, 189, 168, 82, 0, 0);
end;

{------------------------------------------------------------------------------}
{-------------------------------- Banking -------------------------------------}
{------------------------------------------------------------------------------}

procedure Banking;
var Tries: Integer;
begin
  repeat
    if (not (LoggedIn)) then Exit;
    wait(10 + random(100));
    AntiRandoms;
    Tries := Tries + 1;
    if (Tries = 10) then
    begin
      Writeln('Couldnt find bank, next player');
      Exit;
    end;
  until (OpenBankQuiet('veb'));
  Wait(4000 + random(2000));
  if BankScreen then Wait(5) else
  begin
    Players[CurrentPlayer].Active := False;
    LogOut;
    Exit;
  end;
  if (FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2)) then
    Mouse(x, y, 3, 3, False);
  PopUp('All');
  CloseBank;
  Loads := Loads + 1
    Loads2 := Loads2 + 1
end;

procedure ProgressReport;
begin
  Writeln('    __________________________________________');
  Writeln('   ///////////////////// PD \\\\\\\\\\\\\\\\\\\');
  Writeln('  //++++++++++ VarrockOakLiquidator ++++++++++\\');
  Writeln(' //============= Progress  Report =============\\');
  Writeln('//______________________________________________\\');
  Writeln('      Worked for  :' + ScriptTime2(2))
    Writeln('      We Did      :' + IntToStr(Loads2) + ' Load(s)')
    Writeln('/\_____________________________________________/\');
end;

{------------------------------------------------------------------------------}
{-------------------------------- Main Loop -----------------------------------}
{------------------------------------------------------------------------------}

begin
  MiniSetUp;
  LoadDTM;
  repeat
    MainSetUp;
    WalkThere;
    ChopTree;
    WalkBack;
    Banking;
    ClearDebug;
    ProgressReport;
    if (Loads >= Players[CurrentPlayer].Integer1) and LoggedIn then
    begin
      Loads := 0;
      NextPlayer(True)
    end;
    if not LoggedIn then NextPlayer(False)
  until (false);
end.

{------------------------------------------------------------------------------}
{-------------------------------- End Of Script -------------------------------}
{------------------------------------------------------------------------------}
{------------------------ © PassionDrive Scripts 2007 © -----------------------}
{------------------------------------------------------------------------------}

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

Hm.. Not sure what to vote.. I'll think.

Vote honestly, I want to get in to SRL members so I can keep learning and prove to myself that I have achieved something.

Hmm , I can see only 2 if()then else there.
You failsafes mostly consists of if(not(LoggedIn))then Exit;
Id like more if we would instead use if(not(LoggedIn))then NextPlayer(blabla);

And, more advanced failsafes, not just exitting or nextplayering, like if(OutOfArea)then Callibrate, things like that.

There are 17 procedures / functions.
11 of them are setup, declaring or other peopels functions

I will not count antiban and antirandom as your procedures, since they dont have anything of your own.

Chopping, Banking, Walking and proggie are your own ones, but thats not enough for me, sorry.

No from me. (Its a no from me but I will not vote yet)

Ok, thanks for telling me how I can improve.

EDIT: Can everyone please say why they voted no? It will help me to improve.

I am not voting, I just wanna throw in that you can learn prettymuch the same stuff out of SRL then in. ;)

for how long does this script run? without helping…?

The walking is very unreliable. It's just a load of clicks…

Yeah,I'm going to have to say no. You need more failsafes.

But you've got the basic structure down :)

sry but i have to say no also alot of the script is setting up and other peoples stuff and it isn't that reliable but don't give up just try again after you get a little better also this isn't really that important but the script is pretty unoriginal there are alot of oak choppers already out there

one of the better apps tbh. im not going to vote but if you added more failsafes etc, it would be good. you have the layout so over the next 30 days just work on it and apply again. you should get in

From: SantaClause
The walking is very unreliable. It's just a load of clicks…

I used radial walk, what other options are there for a road?

The walking is very unreliable. It's just a load of clicks…

Since when have you been able to walk with keyboard in ScuneRape?

He uses RadialWalk and thats good. Its in "The List"…

&#305;m gone and he emed&#305;atly goes to apply lol(forget about the w&#305;erd &#305; &#305;m &#305;n turkey now) he &#305;snt ready for &#305;t but he &#305;s r&#305;ght &#305;n the leav&#305;ng out next player almost everywhere (only use &#305;t tw&#305;ce) next t&#305;me he w&#305;ll get &#305;t

Ok, Here's the "list"


* Scripting standards. Have Them

* DTMs and Bitmaps. Have DTMs

* Anti randoms Have It

* Anti ban. Have It

* Multi player. Have It


* Fail safes May only be basic, but I have them. I used TimeMarking and If Not Logged In

* for to do statements (Great for looping!) Don't have

* Important use of cases! Used in my anti ban.






If you want to improve your odds of getting accepted:


* Radial walking ( a huge ++ of your odds of getting accepted). Got it

* Bank Finding, opening and depotising. Got it

That's one thing out of the entire list I don't have. Just thought I'd point that out..

EDIT: I took the list from JADs tut ;)

Yeah, from me it would be a definite yes, but its pretty umm, simple :S
I go check the script again, if I've accidentally checked some other..

Yeh, the script aint very complex and the failsafes are a bit simple.

Id like to see some creativity in there in the failsafes like

if(WeAreLost)then
begin
if(FindSymbol('wuteveristhetreesymbol'))then
begin
Mouse(x, y, 4, 4, True);
FFlag(0);
end else
begin
if(WeAreDead)then
begin
if(DeathWalk)then
begin
StartDeathWalk;
end else
begin
NextPlayer(False);
Players[CurrentPlayer].loc := 'dead';
end;
end else
begin
if(THereAreAnyLandMarksYouHaveDTMsOrBitmapsOf)then
begin
Mouse(x, y, 2, 2, True);
ContinueWalkingByYourCoolDDTMs Or RW or Bitmaps anything;
MakeN3ss3sHappy;
end;
end;
end;
end;
end;

Sure, did you just vote no?

Yeah, since I thought that you propably wont make those things yet or sumting like that and you definetly get in when you apply next time(in a month)

Yeah ok, thanks for voting and posting :)

yeh, but you can still win. Thers more yes than no.

I like your atitude, and your activity. ALOT

I don't like your script very much, for the reasons already mentioned, but i think that you will make a good active, helpfull member.

i vote yes

From: n3ss3s
Hmm , I can see only 2 if()then else there.
You failsafes mostly consists of if(not(LoggedIn))then Exit;
Id like more if we would instead use if(not(LoggedIn))then NextPlayer(blabla);

NOOO!! NextPlayer should only be used at the end of the main loop. When something goes wrong, you log out. If you are logged out (meaning something has gone wrong), you skip that step (hence if not loggedin then exit). That means you skip everything and get to the bottom of the main loop, and then nextplayer false.

if not loggedin then exit isn't really a failsafe on it's own. The real failsafe is detecting something isn't right, and logging out.

NOOO!! NextPlayer should only be used at the end of the main loop. When something goes wrong, you log out. If you are logged out (meaning something has gone wrong), you skip that step (hence if not loggedin then exit). That means you skip everything and get to the bottom of the main loop, and then nextplayer false.

if not loggedin then exit isn't really a failsafe on it's own. The real failsafe is detecting something isn't right, and logging out.

SRy I forgot. I have a system in my half the way script that it detects if theres been a nextplayer(false) before the end of the mainloop and then it exits out of the main loop. Isnt it right that I can do it that way?

EDIT: *pwnd*

I don't care how you do it, just don't confuse applicants.

I don't care how you do it, just don't confuse applicants.

Youre right. And im glad you didnt ask me because you propably would find flaws easy :)

Lol, I only just figured out this had gone onto a second page :D

EDIT: Lordgreggreg makes me feel special :p
EDIT 2: I've released a new version of this script here it finds out if you have a broken axe, if so it will go to the bank and fetch you a new one!
EDIT 3: Added my own custom failsafes, and more anti ban!! :D

In!