SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
HTML, C++ and some java

Other Communitys
nope

How Long have You Played Runescape
over 1 year, might be 2

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

well lets see i have recently started a uni couse for computing and networking, which is teaching me some more C++, i am also building a computer for the course which is great fun, we get to do what we want to the computer, that includes overclocking it and anything els we want.

i enjoy scripting and learning new way for doing things.

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

//chops trees at draynor village//
//just stand in the bank with an axe equiped//
//the script will check axe if broken//

program ChopperBanker;
{.include srl/srl.scar}
{.include srl/srl/Skill/WoodCutting.scar}
{.include srl/srl/extended/xObject.scar}
{.include srl/srl/extended/xtext.scar}
{.include srl/srl/extended/xbitmap.scar}
{.include srl/srl/extended/xDTM.scar}

Const TreeTop1 = 5211257;     //colour from tree top
Const TreeTop2 = 1665628;     //colour from tree top
Const TreeTop3 = 1929570;     //colour from tree top
Const BankSymbol1 = 4310247;  //colour from banksymbol on minimap
Const BankSymbol2 = 3642289;  //colour from banksymbol on minimap
Const BankSymbol3 = 11842237; //colour from banksymbol on minimap

Procedure DeclarePlayers;
begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := 'bobzilla69';
    Players[0].Pass := 'willy1';
    Players[0].Nick := 'bzil'; //3 or 4 letter from your username
    Players[0].Active :=True;

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

var
  RoadWalk:Integer;
  Road:Integer;
  i:Integer;
  b:Integer;
  RoadWalk2:Integer;
  RoadWalkDeform1:Integer;
  AxeDTM:Integer;
  BrokenAxeDTM:Integer;
  BankSymbolDTM:Integer;
  x,y:Integer;

procedure LoadDTM;
begin
  AxeDTM := DTMFromString('78DA6314666060606740018176AA0CFF81342' +
       '310FF07024649208397010D302291405A1A487012502301245808' +
       'A8110412CC04D4F001093622CC21E01E0069FF0686');

  BrokenAxeDTM := DTMFromString('78DA6314666060E06640019E160A0CFF81342' +
       '310FF07024649208383010D302291405A1C48F010502306240408' +
       'A81120C21C2122DC230824B8F0AB01006230068A');

  BankSymbolDTM := DTMFromString('78DA63E4646060E06140018F4E5A33FC07D28' +
       'C40FC1F0818F9810C7654358C8C8C101AC607A9E123A006649720' +
       '0135CC4498C304243809A86103122C44B8990DBF1A00777E07A4');
end;

procedure North;
begin
  PerfectNorth;
  Wait(387);
end;

procedure Angle;
begin
  HighestAngle;
  Wait(259);
end;

procedure AxeCheck;
begin
  GameTab(4);
  if FindInvDtm(x, y, BrokenAxeDTM) then
  begin
    Mouse(625, 96, 4, 8, True);
    Wait(2839);
    if FindColorSpiral(x, y, BankSymbol1, 564, 0, 743, 167) or
       FindColorSpiral(x, y, BankSymbol2, 564, 0, 743, 167) or
       FindColorSpiral(x, y, BankSymbol3, 564, 0, 743, 167) or
       FindSymbol(x, y, 'bank') or
       ClickMMDTM(BankSymbolDTM) then
    begin
      Mouse(x, y, 2, 4, True);
      Flag;
      Wait(483);
      OpenBank;
      if not bankscreen then OpenBankquiet('db');
      if BankScreen then
      begin
        FindInvDtm(x, y, BrokenAxeDTM);
        Mouse(x, y, 2, 2, True);
        Wait(535);
        ClickMSDTM(AxeDTM);
        Wait(436);
        CloseBank;
        Wait(372);
        FindInvDtm(x, y, AxeDTM);
        Wait(324);
        Mouse(x, y, 2, 2, True);
        Wait(492);
end;
  end;
    end;
      end;

procedure Fight;
begin
  if FindFight = True then
  begin
    Mouse(577, 70, 3, 6, True);
    wait(7626);
    flag;
    wait(3946);
    Mouse(696, 70, 4, 8, True);
    SRLRandomsReport;
    wait(357);
    SendSRLReport;
    wait(472);
    FindNormalRandoms;
    wait(434);
end;
  end;

procedure AntiBan;
begin
  case Random(12) of
    4: HoverSkill('woodcutting', False);
    9: BoredHuman;
    11: MMouse(-20, -13, -4, -8);
end;
  end;

procedure RoadBitmap;
begin
  RoadWalk := BitmapFromString2(False, 'a0528B78DAB58E4B0EC33' +
       '00844AF847160EC653EE6FE472A6337552A755B5B7AA0E1212122' +
       '1267428E96F0CADE8B266D1B2466DE1EC96062D79ED4B6B1376E5' +
       '9384D8A82CE020B2628E44E13039F04CA2D942359A49321A87E69' +
       '5FF4D32DFF8363BEDB817E3B2BBF9DDFD3A821E1C873148B7F9F8' +
       'A9B625DE59743EDCD397D01E79');
  RoadWalk2 := BitmapFromString2(False, 'a8416478DA858D410E80200C0' +
       '4BF548ABBC01114FEFF2429283131D1CB74DB4C5B11911C3B047B' +
       '076199DE322217356E9687836613AA2D8562F390AC61C1A20BDEE' +
       '8E937E65E12B2E2C9E69AABE441F0E234975F8759FF4C2D08727C' +
       '9BD3795E7E9BACD4FBE3F7F71376A');
  RoadWalkDeform1 := BitmapFromString2(False, 'aB271178DA4D8D410EC' +
       '0200804BF0428AC3DAAC5FF3FA96ED3985E06322C2022AA2A9BD5' +
       '36A34C52D97B4D128DA6FD4CD2F8DD376D306FADD2387B5FC13CE' +
       '3828B05BE68C02FD19944E21818B7A0E34C633839E3EC7E77CACD' +
       'A3C55F664C0FC303A29');
  Road := BitmapFromString2(False, 'aC38E378DAB58CC10DC030080' +
       '3572214307DA651D87FA4C65116E8A3423A90391011E9B9203E16' +
       'E2DA6CCAC026096E358DF376BC820E15C1CD062F266864A7A933F' +
       '67AC413A228CC2C8B0AACFAC8739B9EEA873FFC7C01D57');

  if FindBitmapSpiralTolerance(RoadWalk, x, y, 564, 0, 743, 167, 70) or
     FindBitmapSpiralTolerance(RoadWalk2, x, y, 564, 0, 743, 167, 70) or
     FindBitmapSpiralTolerance(RoadWalkDeform1, x, y, 564, 0, 743, 167, 70) or
     FindBitmapSpiralTolerance(Road, x, y, 564, 0, 743, 167, 60) then
  begin
    Mouse(x, y, 2, 1, True);
    Wait(528);
    FreeBitmap(RoadWalk);
    FreeBitmap(RoadWalk2);
    FreeBitmap(RoadWalkDeform1);
    FreeBitmap(Road);
    Flag;
    Wait(785);
end;
  end;

procedure ChopTree;
begin
  i:=0;
  AxeCheck;
  while(i<12) do
  begin
    i:=i+1;
    if FindColorSpiral(x, y, TreeTop1, 0, 0, 515, 337) or
       FindColorSpiral(x, y, TreeTop2, 0, 0, 515, 337) or
       FindColorSpiral(x, y, TreeTop3, 0, 0, 515, 337) then
    begin
      MoveMouseSmoothEx(x, y, 3, 9, 7, 25, 15);
      Wait(548);
      if IsUpTextMulti('hop', 'own', 'Oak') then
      begin
        Wait(357);
        Mouse(x, y, 1, 1, true);
        Wait(5384);
        FindEnt(x, y, True);
        FindNormalRandoms;
        Fight;
        Wait(8273);
        North;
        Wait(8283);
        Fight;
        FindNormalRandoms;
        Wait(6935);
        Fight;
        RoadBitmap;
        Wait(847);
        Wait(357);
        if Invfull = True then
        begin
        i:=30;
end;
  end;
    end;
      end;
        end;


procedure Bank;
begin
  Mouse(627, 75, 4, 4, True);
  Wait(2839);
  begin
    if FindColorSpiral(x, y, BankSymbol1, 564, 0, 743, 167) or
       FindColorSpiral(x, y, BankSymbol2, 564, 0, 743, 167) or
       FindColorSpiral(x, y, BankSymbol3, 564, 0, 743, 167) or
       FindSymbol(x, y, 'bank') or
       ClickMMDTM(BankSymbolDTM) then
    begin
      Mouse(x, y, 2, 4, True);
      Flag;
      Wait(483);
end;
  end;
    end;


procedure Open;
begin
  Wait(2875);
  OpenBank;
if not BankScreen then OpenBankquiet('db');
if BankScreen then
begin
  Wait(349);
  DepositAll;
  Wait(274);
  CloseBank;
  Wait(364);
  GameTab(4);
  Wait(284);
end;
  end;

procedure Time;
begin
  WriteLn('Bobzilla69''s Woodcutter Banker');
  WriteLn('Script has been running for : ' + TimeRunning);
  SRLRandomsReport;
  Wait(357);
  SendSRLReport;
  Wait(374);
end;

procedure Main;
begin
  b:=0;
  while(b<6) do
  begin
    SetupSRL;
    LoadDTM;
    DeclarePlayers;
    LoggedIn;
    if not LoggedIn then LoginPlayer;
    Wait(273);
    North;
    Angle;
    RoadBitmap;
    ChopTree;
    RoadBitmap;
    GameTab(2);
    HoverSkill('woodcutting', False);
    Time;
    Bank;
    Open;
end;
  end;

begin
  Main;
end.

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

Looks alright, a yes from me.

Sorry, no from me.

You left your password in the script. Check private messages.

Standards pl4wkx? then Ill look again. Leaning towards yes.

Hmm no from me its a little to short. But good script i suppose :D

Also your standards are wrong

Your doing

begin
  Example;
 begin
   Example;
  begin
    Example;
end;
 end;
  end;

Shouldnt it be:

begin
  Example;
 begin
   Example;
  begin
    Example;
  end;
 end;
end;

But its almost the same crap aint it :D

sry but no

waits should either be FTWait or have waits with randoms and in your fight procedure…you shouldnt have cord clicking = ban…just need to make some changes to make the script better…and just learn some more things about srl

It looks a bit simple, in my opinion.

Use some +random(something) in your waiting times, instead of just weird numbers.

Else, I can see you can use DTM's (YAY, gotta love 'em) and colors.

Another good thing would be less color-picks before script run, perhaps some autocolor, or tolerance.

The standards look fine, except for the ends.

PS: Santa Clause, there is almost no need to change his pass, since there should be no SRL-member wanting to scam anyone else from this community… But anyway, somewhere there's gotta be a black sheep.

EDIT: The script is outdated :S It has some extended routines included, which are no more in SRL… (Not for me at least)

-Knives

What is up with your waits :confused: use wait(100+random(100)) not your favourite random number :D

Sorry but no.
Bit short
And waits not randomed

But very good start. I think you have good potential

From: King of Knives
It looks a bit simple, in my opinion.

Use some +random(something) in your waiting times, instead of just weird numbers.

Else, I can see you can use DTM's (YAY, gotta love 'em) and colors.

Another good thing would be less color-picks before script run, perhaps some autocolor, or tolerance.

The standards look fine, except for the ends.

PS: Santa Clause, there is almost no need to change his pass, since there should be no SRL-member wanting to scam anyone else from this community… But anyway, somewhere there's gotta be a black sheep.

EDIT: The script is outdated :S It has some extended routines included, which are no more in SRL… (Not for me at least)

-Knives

It's happened before in members and it's bound to happen again.

ill vote yes because i think he has a decent knowledge of scripting and definately has potential. if he cleans up his script a bit and tweaks a few things it would be fine…

For I may forgive though for thy atrocious standards,
seek not repentance for your already forgiven.
Learn you the wise ways of the SRL,
and prosperous you shall be in said communitee

For I may forgive though for thy atrocious standards,
seek not repentance for your already forgiven.
Learn you the wise ways of the SRL,
and prosperous you shall be in said communitee

BenLand wannabe much?

[ifyoudontknowwhatthismeansorwhatthishastodowithappignorethen]

Haha, OWNED!

[/ifyoudontknowwhatthismeansorwhatthishastodowithappignorethen]

Sorry zilla, no from me.

no, great start, but not enough yet ;)

keep it up :)

Might want to PM your posts this to him please?
He somehow cannot view the thread. :)

I already did that yesterday :)

Writeln('..............YES............');

From: n3ss3s
BenLand wannabe much?

[ifyoudontknowwhatthismeansorwhatthishastodowithappignorethen]

Haha, OWNED!

[/ifyoudontknowwhatthismeansorwhatthishastodowithappignorethen]

Sorry zilla, no from me.

Is thou accusing me of copycat?
For I can tell you, you sonofabat!

I'll beat you're mom down,
while owning her rear,
and that be the end my small little friend.

Do not reply, I poke out you're eye,
for we all know the true victor is I.

From: rudeboialex

Writeln('..............YES............');

because pls say why>.<?

Is thou accusing me of copycat?
For I can tell you, you sonofabat!

I'll beat you're mom down,
while owning her rear,
and that be the end my small little friend.

Do not reply, I poke out you're eye,
for we all know the true victor is I.

What the fuck was that about?

r0b0t wants infraction lol..

Meh, only thing I was able to do was to sadly and immature ban you at KYAB lol..

And when did I accuse you of copying anything?

And then we went on topic again..

The looong waits in your script are very dangereous. Image what happens if a Random addresses you and you are in midst a long wait? You wont solve the random, you'd be tellied if you are lucky, and possibly you get a blackmark for ignoring a Talking Random.

From: n3ss3s
What the fuck was that about?

r0b0t wants infraction lol..

Meh, only thing I was able to do was to sadly and immature ban you at KYAB lol..

And when did I accuse you of copying anything?

ffs its poetry m8.. nothing offensive

and i'm going to havew to say know too short not enough scripting in there (yet!)

but ur nearly there!

dont give up

He still can't see what we place here.