SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
ronny.m.p - SRL Member Application Form
ronny.m.p

What is the meaning to life?


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


Programming Knowledge
C++, PHP

Other Communitys
Sythe.org, Rsforums.org

How Long have You Played Runescape
about 2 years

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

I started programing when I was 8 years old. My dad encouraged me to learn C++ at this
young age to try and make me as computer litterate as possible when I got older.
After a couple years of C++ I joined runescape. About a year after I joined i found
out about SCAR and I fell in love. Pascal didn't have the same power as C++ but it was
different and I could do things I wouldnt have been able to do before in C++. About a
month after I found SCAR I found SRL. SRL was a huge step forward for me. At first I
was able to do simple SCAR scripts like AutoTalkers, Then i noticed that SRL unlocked another level of scripting.
I learned most of what I know from experimenting with SRL. I put a few functions in a loop and seen what
happend. After a few weeks of messing around I started to develope. It started out slow
but so do most things. Soon I finished an array of scripts. Some were good and some were
bad but they worked. Then for another few weeks I started developing functions. I liked
SRL but there are some things that I wanted to take a crack at makeing. Then we come to
now. Now all the work has paid off. I have a fresh shiney new Power Chopper with flawless
functions like FindColorSkipBoxArrayTolerance. Even I was surprised at it's power. And
best of all…it worked (very well). Well there is my history from start to finish in
programing. Somewhere between C++ and Pascal I also developed PHP skills.

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

//----------------------------------------------------------------------------//
// Ronny's Any Tree Power Chopper
//             by Ronny.m.p
//----------------------------------------------------------------------------//
// Instructions
//   1)  Fill in players line 47+
//   2)  Have Axe Equiped or in First Inv Slot
//   3)  Fill out form
//   4)  Press start and your done
//----------------------------------------------------------------------------//
// Credits to
//   WT-Fakawi : FindFastRandoms
//   SRL Dev Team : Where would i be without you?
//   JuKKa : Let me edit then use some AntiRandoms stuff.
//----------------------------------------------------------------------------//
// Information
//   Ronny's Any Tree Power Chopper is an advanced power
//   chopper useing the latest and greatest functions to
//   power it.  It shows it's true power within it's
//   awsome FindColorSkipBoxArrayTolerance cutting procedures.
//----------------------------------------------------------------------------//

program RATPC;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Fighting.Scar}

Var
StartedCutting, RonnyTree, LogsToCut : Integer;
  TreeName, TreeUpText : String;
  TSBox: TBoxArray;
  LogsCut, TC1: Integer;

Var
  frmDesign : TForm;
  ExecuteBttn1 : TButton;
  RadioButton1 : TRadioButton;
  RadioButton2 : TRadioButton;
  RadioButton3 : TRadioButton;
  Label1 : TLabel;
  EditBox1 : TEdit;
  Willow1: Integer;
  Oak1: Integer;
  NTree1: Integer;

Procedure DeclarePlayers;
Begin
  CurrentPlayer:=0;
  NumberOfPlayers(4);

  Players[0].Name  := ''; //Runescape Name
  Players[0].Pass  := ''; //Runescape Password
  Players[0].Nick  := ''; //3-4 letters of your RSN
  Players[0].Boolean1:= True; //is axe equipped?
  Players[0].Active:= True; //Is your player active?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Boolean1:= True;
  Players[1].Active:= True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Boolean1:= True;
  Players[2].Active:= True;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Boolean1:= True;
  Players[3].Active:= True;

End;

Function WaitRonny(Time : Integer) : Boolean;
Var Time1: Integer;
Begin
  Marktime(time1)
    Repeat
      Wait(50);
      If(FindTalk)Then
        Result := True;
    Until(result)or(TimeFromMark(Time1)>Time);
End;

Function FindFastRandoms: Boolean;   //by WT-Fakawi
var
  i: Integer;
begin
  for i:=1 to 9 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;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
    end;
    wait(1);
  end;
end;

Procedure AntiRandoms;
begin
    if infight then
      begin
        RunAwayDirection('W');
        Wait(5000+Random(3500));
        RunBack;
      end;
    FindFastRandoms;
    wait(5)
    UseBoxSolver := True
    UseCerterSolver := True
    UseSandwichSolver := True
    FindMaze;
    wait(5)
    Solvepinball;
    wait(5)
    TalkToRand;
    wait(5)
      if (FindQuiz) then
          SolveQuiz;
    FindNormalRandoms;
end;

function FindTreeEnt : boolean;
begin
  if Isuptext('own')then
    begin
      If FindColorSpiralTolerance(x, y, 55769, 85, 15, 115, 15, 20)then
        begin
          Result:= True;
          Writeln('Found Ent');
          EntsAvoided:= EntsAvoided + 1;
        end;
    end;
end;

Function FindTree: Boolean;
Var
  I, Tol: Integer;
Begin
  If(InvFull)Then Exit;
  SetArrayLength(TSBox,0);
  Repeat
    Tol:= 0;
    Repeat
      If(FindColorSkipBoxArrayTolerance(x,y,RonnyTree,MSX1,MSY1,MSX2,MSY2,Tol,TSBox))Then
        Break Else Tol:= Tol + 1;
      Wait(3);
    Until(False);
    If(Tol > 50)Then break
    Else
      Begin
        MMouse(x,y,5,5)
        WaitRonny(150+Random(20));
        If(FindColorSkipBoxArrayTolerance(x,y,TC1,MSX1,MSY1,MSX2,MSY2,Tol,TSBox))Then
          Begin
            MMouse(x,y,5,5)
            Wait(50+Random(50));
            If(IsUpText(TreeUpText))Then
              Begin
                Getmousepos(x,y)
                Result:= true;
                SetArrayLength(TSBox,0);
                exit;
              End Else
                Begin
                  i:= GetArrayLength(TSBox);
                  SetArrayLength(TSBox,i+1);
                  Getmousepos(x,y);
                  TSBox[i].x1:= x - 30;
                  TSBox[i].y1:= y - 30;
                  TSBox[i].x2:= x + 30;
                  TSBox[i].y2:= y + 30;
                End;
          End Else
            Begin
              If(IsUpText(TreeUpText))Then
                begin
                  Getmousepos(x,y)
                  Result:= true;
                  SetArrayLength(TSBox,0);
                  Exit;
                end else
                  begin
                    i:= GetArrayLength(TSBox);
                    SetArrayLength(TSBox,i+1);
                    Getmousepos(x,y);
                    TSBox[i].x1:= x - 30;
                    TSBox[i].y1:= y - 30;
                    TSBox[i].x2:= x + 30;
                    TSBox[i].y2:= y + 30;
                  end;
            End;
      End;
  Until(Result);
End;

Procedure EvadeEnt;
Var
  First : Integer;
Begin
  First := MouseSpeed;
  MouseSpeed := 3;
  Mouse(647,131,20,20,true)
  Flag;
  MouseSpeed := First;
End;

Function IsCutting: Boolean;
Begin
  If(Not Loggedin)Then Exit;
  If(InvFull)Then Exit;
  AntiRandoms;
  If(IsUpText(TreeName))Then
    Begin
      FindFastRandoms
      If(FindTreeEnt)Then
        Begin
          EvadeEnt;
        End Else
          Result:= True;
      If(TimeFromMark(StartedCutting)>10000+Random(5000))Then
        Begin
          GetMousePos(x,y)
          FindFastRandoms
          If(IsUpText(TreeName))Then
            Begin
              Mouse(x,y,0,0,true);
              Marktime(StartedCutting);
              FindFastRandoms;
            End;
        End;
    End;
End;

Procedure CutSpecificTree;
Begin
  If(Not Loggedin)Then Exit;
  If(InvFull)Then Exit;
  FindFastRandoms;
  If(FindTree)Then
    Begin
      If(FindTreeEnt)Then
        Begin
          EvadeEnt;
          Exit;
        End;
      GetMousePos(x,y)
      Mouse(x,y,0,0,true);
      Marktime(StartedCutting);
      FindFastRandoms
      Flag;
      FindFastRandoms
    End Else
End;

Procedure DropLogs;
Begin
  If(Not Loggedin)Then Exit;
  If(Not InvFull)Then Exit;
  If(Players[CurrentPlayer].Boolean1)Then
    Begin
      DropTo(1,28);
      LogsCut:= LogsCut + 28;
    End Else
      Begin
        DropTo(2,28);
        LogsCut:= LogsCut + 27;
      End;
End;

procedure Autoretaliate(act : boolean);  //credits jukka
begin
  Gametab(1)
  if FindColorTolerance(x,y,2106255,580, 364,715, 394, 10)then
    begin
      if not act then
          mouse(657, 376,30,10,true)
    end else
      begin
        if act then
            mouse(657, 376,30,10,true)
      end;
end;

Procedure LoadTreeVars;
Begin
  LogsToCut := strtoint(EditBox1.Text);
  Willow1:= 5085320;
  Oak1:= 2256992;
  NTree1:= 2256992;
End;

Procedure Setup;
Begin
  SetupSRL;
  ScriptId := '176';
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  ActivateClient;
  If(Not Loggedin)Then Loginplayer;
End;

Procedure SetUpPlayer;
Begin
  Autoretaliate(false);
  makeCompass('n');
  HighestAngle;
end;

Procedure ProgressReport;
var
Gained : integer;
Begin
  Gained:= LogsCut * 25;
  Writeln('=============== Progress Report ===============');
  Writeln(' Worked: ' + TimeRunning);
  Writeln('    Cut: ' + IntToStr(LogsCut) + ' Tree''s');
  Writeln(' Gained: ' + IntToStr(Gained) + ' Exp');
  Writeln('===============================================');
End;

procedure OnClick(Sender: TObject);
Begin
  LoadTreeVars;
  If(RadioButton1.Checked)Then
    Begin
      Writeln('You Chose Willow');
      TreeUpText := 'illow';
      RonnyTree:= 2926736;
      TC1 := Willow1;
    End;

  If(RadioButton2.Checked)Then
    Begin
      Writeln('You Chose Oak');
      TreeUpText := 'ak';
      RonnyTree:= 2256992;
      TC1:= Oak1;
    End;

  If(RadioButton3.Checked)Then
    Begin
      Writeln('You Chose Normal Trees');
      TreeUpText := 'own Tree';
      RonnyTree:= 2256992;
      TC1:= NTree1;
    End;
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
End;

procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 317;
frmDesign.Top := 136;
frmDesign.Width := 189;
frmDesign.Height := 133;
frmDesign.Caption := 'TreeSelecter';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 19;
Label1.Top := 74;
Label1.Width := 65;
Label1.Height := 13;
Label1.Caption := 'Trees To Cut:';
ExecuteBttn1 := TButton.Create(frmDesign);
ExecuteBttn1.OnClick := @OnClick;
ExecuteBttn1.Parent := frmDesign;
ExecuteBttn1.Left := 99;
ExecuteBttn1.Top := 9;
ExecuteBttn1.Width := 75;
ExecuteBttn1.Height := 57;
ExecuteBttn1.Caption := 'Start';
ExecuteBttn1.TabOrder := 8;
RadioButton1 := TRadioButton.Create(frmDesign);
RadioButton1.Parent := frmDesign;
RadioButton1.Left := 7;
RadioButton1.Top := 8;
RadioButton1.Width := 87;
RadioButton1.Height := 17;
RadioButton1.Caption := 'Willow Trees';
RadioButton1.TabOrder := 9;
RadioButton2 := TRadioButton.Create(frmDesign);
RadioButton2.Parent := frmDesign;
RadioButton2.Left := 7;
RadioButton2.Top := 26;
RadioButton2.Width := 85;
RadioButton2.Height := 17;
RadioButton2.Caption := 'Oak Trees';
RadioButton2.TabOrder := 10;
RadioButton3 := TRadioButton.Create(frmDesign);
RadioButton3.Parent := frmDesign;
RadioButton3.Left := 7;
RadioButton3.Top := 44;
RadioButton3.Width := 88;
RadioButton3.Height := 17;
RadioButton3.Caption := 'Normal Trees';
RadioButton3.TabOrder := 11;
EditBox1 := TEdit.Create(frmDesign);
EditBox1.Parent := frmDesign;
EditBox1.Left := 97;
EditBox1.Top := 72;
EditBox1.Width := 46;
EditBox1.Height := 20;
EditBox1.MaxLength := 4;
EditBox1.TabOrder := 12;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

Begin
  SafeInitForm;
  SafeShowFormModal;
  Setup;
    Repeat
      SetUpPlayer;
        Repeat
          If(Not Loggedin)Then break;
            CutSpecificTree;
          DropLogs;
          WaitRonny(150+random(50));
        Until(LogsCut >= LogsToCut);
      ProgressReport;
      If(Loggedin)Then NextPlayer(true)
      Else NextPlayer(false);
    Until(false);
End.

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

U certaintly know how to script, u have anti randoms, multiplayer, good standards, its a Yes from me.

I guess its a yes from me also. I don't think he copied this, I've seen him 'round the hood.

Thanks.

And JuKKa i'm glad you like it.

Hmm.. Well, the script isn't amazing, but it's ok.

I also don't like how you suggested banning me when I was accused of leaking members scripts…. ;)

I'll look it over a little more thoroughly and vote later. Not sure what it's going to be yet.

I've seen him 'round the hood.

cant be not loving that :D
being some time " 'round the hood." before applying is good.
And plus that, if you learned C++ 8 years age, you propably become uBER1337 gURU

Forgot to say that the script is good and yes from me.

No from me.

Why? Because two months ago, I was attacted to sythe because of a "Brand New Include!!!!!" thread written by non other than ronny m.p. The include was huge, but it turned out to be nothing else than Squig and SI combined. Ronny m.p. claimed it to be this creation and "the include that made all other includes useless". I pointed out it was an obvious scam, but ronny m.p. was rather rude to me. He was seeking rep, or pins or whatever and he tried to make people believe that I was the scammer.

I dont forget things easily, but the script looks ok. I do hope it is yours this time.

So what, I fail?

I realise I was in the fault then but that was longer then 2 months ago. I posted on Sythe asking for your forgiveness. Let me try and explain before you go and fail me.

You see back when I was learning but before the time that I knew about SRL I was looking for a way to make my scripts better. At the time I had no knowledge that SRL even exicted (but that thread is what showed me). I merged the 2 includes for an educational purpose then released them to Sythe (the only forms I was on at the time). It felt good to be getting credit for something. Then you came along and told me it was a scam and that it was just two existing scripts mixed. I was upset because you hadn't posted on sythe much at that time (post count 43 I beleive). I treated you like a "noob" and I am sorry. What am i sorry for? I am sorry for my actions and the bedlam i made of that thread.

That's all I can do to justify my actions. If you still hold a grudge to me for it then feel free to Decline my application. I just don't feel that one bad scene should be your impresion from me. I urge you to re-consider failing me. I think we might have got off on the wrong foot…let me try agian…

Hello Fawki, very nice to meet you.

PS: I am sure the thread was longer then 2 months ago because it was before Sythe got attacked and backed up. I am searching for an exact date now but it was before I joined here too…

I remember those.. Include projects of yours too and that "spreading SCAR virus that your friend stole and started putting to scripts (:p)" kind of stuff.. And you seem to try being smarter than you actually are (for example that "virus" thread of yours). The script is alright, but I'll still think before voting.

By the way, that include you tried selling was made after the backup atleast.. There was just a thread that said something like "I didnt say its verified" or something as such.

EDIT: I don't really like your standards.. Capitalizing the first letter of reserved words is really annoying in my opinion.

I was gonna vote definitely yes, but what Fakawi said makes me think… I don't vote yet, but gonna do that later.

Lol GoF that virus thing was real and the one i tried selling wasn't the one Fakawi is talking about. Vote what you want…i have a good script and a good background…this crap with Fakawi is ruining me…I hope he sees my post.

I know it isn't the one fakawi was talking about, it's just a other one of those include projects..

I understand WT-Fakawi's thinking, however, he knows that I regret what I did and he knows that at that point I didn't even know what SRL was, therefore I didn't know who he was. I might have dug myself a hole here. Hopefully Fakawi will see post #8 in this thread.

Ronny, your last post propably has no effect because, even you didnt know the person u r talking to is t3h g0d , you shouldnt treat anyone like a noob. (Except those who apply without script)

Well, my yes was there before fawki posted so…

Fawki voting no = me voting no. If your going to treat people like noobs, then your going to get treated like a noob to. Isn't it frustrating when the people you were mean to end up being your boss?

Sorry, no from me to.

A big fat no from me as well. All you have done is lied to me. You asked people for my ess miner even though you know it is a P2U script and they are not allowed to give it out.

You claimed to be a delphi teacher … even i know better delphi than you. And with you're apparently "Delphi knowledge" you decided to create an include. A big flop, that turned out to be.

:S you've also asked me to leak members scripts to u and that form TUT that you made does look a lot like the one from the SCAR manual. Although I must say you did tell me a function once for a form over MSN :) i'll hold my vote for now

Lol suddonly i'm geting the feeling that everyone hates me…Starblaster IDK what your talking about…i don't even know any delphi :s. And JAD you have no idea how frustrateing. And rkrox…it looks NOTHING like the scar manual lol…


EDIT: You know what just delete my stupid app. There is no point in keeping this going. 2 trusted members already aknowledge they hate me (even though i have no clue what starblaster is talking about). And as for this problem with fakawi…i'm sorry but seriously let it drop. It was old, stupid and didn't go anywhere. I wrote a good script and did not copy it. I have turned my act around seince the fakawi incident, i have helped people like rkroxpunk whenever they needed it…it's really quite sad how 1 person (fakawi) can turn a perfectly good app sour over the stupidest thing ever. I have proved myself as a screipter and as an aid to other scripters. If i lied once in this entire app it was talking about C++…it owns pascal any day! You are all acting like a bunch of little kids who folow there fathers and copy whatever they do…only the father is WT_Fakawi. This post pretty much guarentees i will never be a member but honestly…who cares? I applied to try and learn more stuff but so far the only thing i'v learnt is that even the people that you take time to help will turn around and backstab you just to look cool around people of a "higher level then them". I don't lie…i am trustworthy and ask anyone who I have put my time out to help (like JuKKa or anyother person). I honestly thought that the people here respected truthful and kind people. I don't think I could have been more wrong. Decline me, ban me hell you can even kill me but this is what i beleive and i have a right to it. And if this seems to be directed at how i dispise fakawi then well…its not. I don't dispise anyone. I don't like fakawi at some points but i will always respect him. Just like i will always respect this community.

I'm going to hold my vote for a while until all of this gets sorted out. Your script is good but their is all of this other stuff.

Don't bother…even if you do vote for me ill still be loseing the poll plus fakawi would never let me in anyways. I'v sent him a pm and i bet he hasn't even seen all the posts i'v made regardeing it so honestly he'll probably never even think about letting me be a mem.

Will think about it.

May go searching on sythe, too

Let me refresh your memory

From: ronny.m.p

From: Starblaster100

From: ronny.m.p

From: Starblaster100
Explain to me why you have been asking around for my script, and why i shouldn't ban you for doing so

Sure, i'm a teacher at All Saints High School. I teach a course on Pascal and other methodical programing. I thought that your script would be a good example of something to show my students. I thought this because it has everything you need when your working with the Pascal laguage. Includeing a good Form display and well written code. As well i here you changed some includes to match your script. This would be perfect as an example for an upcomeing project that my students are working on to create there own web browser. If you no longer wish for me to want your script then please let me know ASAP. Otherwise it would be great if you could send my a copy. I have no intention of useing it (I don't play games like Runescape) and your Identity codes would stop me anyways. Please get back to me ASAP and im sorry for an trouble.

Thanks,
Ronny

Then why were you asking other people for the script, why didn't you come to me first.

I had been informed that you were doing exams and wouldn't be on until Febuary, 1st. I needed it to show my kids for next day, tomarrow. Seeing as you have logged on know though I suppose i may ask you. May i please use your script (I think it's called an ecs miner or something) to show my students?

Correct If im wrong, but weren't you the guy who posted my PRO Autofighter on sythe, even that I said and declared to not to post it ?
Also the brand new include show.

Also your attitude and damn prickness on other SRL-members, Including WT-Fakawi makes me vote against.

No.

Well its pretty obvious how this is going, I'll save him anymore embarrassment.

I have been following this thread, and I well am aware of the influence I have on the general opinion ronny m.p., and I must admit you have been trying hard to get in. The script you made isnt bad at all, its the atmosphere surrounding it. There is just so much untrue in some of your posts, and most of that is blatantly obvious, that it is hard to make friends here…If you didnt see this coming you have a lot to learn.
But please… do hang around. Dont leave, keep making scripts for the sake of scripts, not for pitty money or respect. You already earned some of it back apologizing, but we cant admit you under these circumstances.