SRL Archive - Archive

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

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


Programming Knowledge
HTML

Other Communitys
Just-Another-Scar-Forum

How Long have You Played Runescape
1 Year

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

Hi.
I think I‘m ready to become a SRL member. I have proved that I am not a leecher and want to post my work on this forum. I have submitted two scripts to SRL Forums so far. I have learned radialwalk, DTMs Bitmaps and all the basic SRL stuff. The reason I want to become a SRL member is so I can help contribute more and for the title. I have never ever plagiarised. I promise I won’t hold grudges against people who don’t vote me in.
Thankyou for your time.

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

CutNSell - Cuts and sells logs in lumbridge.

program CutNSell;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}


{ By Jahuro
  Cuts and sells logs in lumbridge.
  V2.5
  Thanks to JAD, Hobbit
  and ~alex~ }


/////////////////////////////////////////////////
////////////////////{SETUP}//////////////////////
/////////////////////////////////////////////////

const
  Color = 2132088;
  TreeTime = 2000; {Time it takes to cut Oak}
  ShopKeep = 2971004; {Color of shop keeper}

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

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

var LogDTM, crossbmp, WoodLoads, i: Integer;


function FindFastRandoms: Boolean;
begin
  for i := 1 to 16 do
  begin
    case I of
      1: CloseWindow;
      2: if FindTalk then
          Result := True;
      3: if FindDead then
          Result := True;
      4: if FindMod then
          Result := True;
      5: if FindMime then
          Result := True;
      6: if FindMaze then
          Result := True;
      7: if FindQuiz then
          Result := True;
      8: if FindDemon then
          Result := True;
      9: if FindScapeRune then
          Result := True;
      10: if FindTalk then
          Result := True;
      11: if FindLamp(LampSkill) then
          Result := True;
      12: if (FindNewBox) then
        begin
          Result := True;
          if (UseBoxSolver) then
            SolveBox
          else
            GambleNewBox;
        end;

      14:
        begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      16: if RC then
          Result := True;
    end;
    Wait(1);
  end;
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure TheAntiBan;
begin
  RotateEvery(1 + random(4));
  RandomChatEvery(2 + random(4));
  RandomRClickEvery(3 + random(4));
  LeaveScreenEvery(1 + random(4));
  AntiBan;
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure Report;
begin
  Writeln('[]-------------------------------------------[]');
  Writeln('[]------------JAHURO WOOD WHACKER------------[]');
  Writeln('Worked For : ' + ScriptTime2(2));
  Writeln('Cut-N-Sold ' + IntToStr(WoodLoads) + ' Loads');
  Writeln('[]-------------------------------------------[]');
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure ClickTree;
var x, y: integer;
begin
  repeat
    if (FindObj(x, y, 'Oak', color, 5)) then
      MMouse(x, y, 0, 0);
    wait(100 + random(50));
    Mouse(x, y, 0, 0, true);
    Report;
    FindFastRandoms;
    wait(TreeTime + random(50));
    TheAntiban;
  until (InvFull);
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure Shopwalk;
var x, y: integer;
begin
  if (FindSymbol(x, y, 'shop')) then
  begin
    Mouse(x, y, 5, 5, true)
      Flag;
    wait(1000 + random(50));
  end;
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure CloseShop;
begin
  begin
    crossbmp := BitmapFromString(6, 6, 'z78DA33373033343133A798' +
      '3473327531318690062060082191C571A92159A589A9B90916125' +
      '90D00DAB82C47');
  end;
  begin
    if (FindBitmap(crossbmp, x, y)) then
    begin
      FindBitmap(crossbmp, x, y)
        Mouse(x, y, 6, 6, True)
        Wait(1000);
    end else
    begin
      WriteLn('didnt find cross bmp, blind clicking')
        MMouse(484, 41, 2, 2)
        wait(100)
        if (IsUpText('lose')) then
      begin
        Mouse(484, 41, 2, 2, true)
      end else
      begin
        Writeln('I dont think we are in a shop..')
          Writeln('Not clicking')
      end;
    end;
  end;
  wait(10)
    FreeBitmap(crossbmp);
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure Sell;
var x, y: integer;
begin
  if (FindObj(x, y, 'hop K', ShopKeep, 5)) then
    MMouse(x, y, 0, 0);
  begin
    Mouse(x, y, 0, 0, False);
    wait(100 + random(50));
    ChooseOption(x, y, 'rade');
    Wait(3000 + random(150));
    if FindDTM(LogDTM, X, Y, 555, 205, 740, 464) then
    begin
      Mouse(x, y, 0, 0, False);
      Wait(100 + random(5));
      ChooseOption(x, y, 'ell 10');
      CloseShop;
    end;
  end;
  RadialWalk(612139, 297, 585, 48, 1, 1);
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

procedure LoadDTMS;
begin
  LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
    '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
    '22604E23500D0F0135C94035DCF8D50000507909F5');
end;

/////////////////////////////////////////////////
/////////////////////////////////////////////////

begin
  setupsrl;
  LoadDTMS;
  DeclarePlayers;
  LoginPlayer;
  Report;
  SRLRandomsReport;
  TheAntiBan;
  repeat
    ClickTree;
    Report;
    shopwalk;
    Sell;
    Report;
    SRLRandomsReport;
    MakeCompass('N');
  until false;
end.

/////////////////////////////////////////////////
/////////////////////////////////////////////////

Wood Whacker - Just a normal powerchopper

program WoodWhacker;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

// This is my first script
//
// Woodwhacker by Jahuro
// V1.6
//
// Special thanks to
//- mage of begu
//- Smartzkid

////////////////////////////////////////////////////////////////
////////////////////////////SETUP///////////////////////////////
////////////////////////////////////////////////////////////////

const
  Color = 2132088;
  TreeName = 'ak'; {Oak = ak Tree = ree ect}
  TreeName2 = 'ree'; {If you want to cut different trees.}
  TreeTime = 2000; {Time it takes to cut tree}

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

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;

////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////

var WoodLoads, i: Integer;

function FindFastRandoms: Boolean;
begin
  for i := 1 to 16 do
  begin
    case I of
      1: CloseWindow;
      2: if FindTalk then
          Result := True;
      3: if FindDead then
          Result := True;
      4: if FindMod then
          Result := True;
      5: if FindMime then
          Result := True;
      6: if FindMaze then
          Result := True;
      7: if FindQuiz then
          Result := True;
      8: if FindDemon then
          Result := True;
      9: if FindScapeRune then
          Result := True;
      10: if FindTalk then
          Result := True;
      11: if FindLamp(LampSkill) then
          Result := True;
      12: if (FindNewBox) then
        begin
          Result := True;
          if (UseBoxSolver) then
            SolveBox
          else
            GambleNewBox;
        end;
      14:
        begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      16: if RC then
          Result := True;
    end;
    Wait(1);
  end;
end;

////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////

procedure TheAntiBan;
begin
  RotateEvery(1 + random(4));
  RandomChatEvery(2 + random(4));
  RandomRClickEvery(3 + random(4));
  LeaveScreenEvery(1 + random(4));
  AntiBan;
end;

////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////

procedure Report;
begin
  Writeln('[]-------------------------------------------[]');
  Writeln('[]------------JAHURO WOOD WHACKER------------[]');
  Writeln('Worked For : ' + ScriptTime2(2));
  Writeln('Cut ' + IntToStr(WoodLoads) + ' Loads');
  Writeln('[]-------------------------------------------[]');
end;

////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////

procedure ClickTree;
begin
  repeat
    if (FindColor(x, y, color, 0, 0, 400, 500)) then
      MMouse(x, y, 0, 0);
    wait(100 + random(50));
    if (IsUpTextMulti('own ', TreeName, 'own')) or
      (IsUpTextMulti('wn ', TreeName2, 'wn')) then
      Mouse(x, y, 0, 0, true);
    Report;
    FindFastRandoms;
    wait(TreeTime + random(50));
    TheAntiban;
  until (InvFull);
end;

////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////

procedure Drop;
begin
  DropAllLogs;
  FindFastRandoms;
  WoodLoads := WoodLoads + 1;
  TheAntiBan;
end;

////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////

begin
  setupsrl;
  DeclarePlayers;
  LoginPlayer;
  Report;
  SRLRandomsReport;
  TheAntiBan;
  repeat
    ClickTree;
    Report;
    Drop;
    Report;
    SRLRandomsReport;
    MakeCompass('N');
  until false;
end.

////////////////////////////////////////////////////////////////

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

Player switching?

Also, I've notticed your style. I think you have to learn about SRL functions some more.

For an example, the symbols are never found if something/one is on it. WHICH is why you make a FindSymbol Tolerance, (SymbalAccuracy:= 0.3) what ever number. The lesser to less accurate.

BUT I still may vote for you, but It will wait on my vote.

Add multiplayer and you might get a yes from me

Edit: Went ahead with yes

just a post for myself to know that iv already voted here

From: YoHoJo
just a post for myself to know that iv already voted here

I've always wondered why you posted on every application besides copybusting people.

From: TheGodfather
Also, I've notticed your style. I think you have to learn about SRL functions some more.

For an example, the symbols are never found if something/one is on it. WHICH is why you make a FindSymbol Tolerance, (SymbalAccuracy:= 0.3) what ever number. The lesser to less accurate.

BUT I still may vote for you, but It will wait on my vote.

Thats correct, but if you have it that low, it can misclick any symbol on the minimap. I learned that the hard way… For example, a symbolacc of 3 can mistake a fish symbol for a quest symbol. Once it even mistaked a fish symbol for a bank symbol. Anyway, The script posted above isnt that bad, but player switching would of gotten a yes for me… Ill have to think about it.

If i wait a month and try again with player switching is there a good chance i will get in?

hell yeah.

Ok i will update my scripts and re-submit in about 2 weeks if i dont get in,which i proberly wont :(

I voted yes - This guy has 2 decent scripts and sounds like a good member

Thanks.

CutNSell is now multiplayer.

Ill say yes..

Thankyou. I will make sure you wont regret it. :)

Jahuro I like your devotedness :)

Case you've forgotten I was near one of the first posts on the app, and I will vote yes for you becuase you seem like a good guy.

Thankyou. How long is the poll open for? Ive forgotten. Remember seeing it somewhere. :duh:

This poll will close on 04-13-2007 at 01:14 AM

Right at the top of the post if you're wondering :p

Somewhat basic scripts, and I would like it better if Cut 'N Sell could run multiple loads at a time on one player, but since you posted two scripts, and showed that you know how to do [basic] multiplayer, and a good amount of SRL functions, I will vote yes

PS: I like the nice standards, too

Thankyou.

Like the originality of the scripts, cutNsell looks good, nice functions, dtm usage. Original idea.
Cool.

works for me i vote yes…

Ill vote yes but you should really make the player switching work.
Other than that it looks nice.

Would have been nice if you could have credited me for the CloseShop procedure I wrote you… :(

Was that you? Im so sorry i thought ~alex~ wrote that. I will update it when the next version is released. Sorry.

I think he gets in , in his next app.

i think they looks good,
-srl
-anti random
-now mulitplayers

i vote yes

Shouldnt the poll have closed by now?

Nar it wasnt ~alex~.
http://www.srl-forums.com/forum/showpost.php?p=85200&postcount=9

When Fawaki decides to pop in im sure the poll will be over :)

Come on Fawaki :)

When will this be finished?

Rofl, this is taking a long time……..

I know. Its been 2 weeks. :(

Terribly sorry. I am just to preoccupied :(

In!