SRL Archive - Junior's Lookout

I am intrigued by the amount of "skill" he shows for 10 posts (The amount he had when he created the script) His script shows a level of skill that is just amazing…

I don't believe he is ready yet, but I would like to have other people watching him sometimes, scripting wise he makes a great srl member but activity wise not so much. I want to get him to be more active, any ideas? I personally believe he would be a great asset to the SRL members group one day.

He obviously commits a lot of time to SRL; just want to see him "more" to see character show :P.
http://villavu.com/forum/showthread.php?t=81326
—

Didn't really know if this was the right place just to praise someone :p

very nice script i'd say

Is it possible that he is already a member on a different account and just wants to redo the road to Members for entertainment? Maybe run his IP?
I personally have thought of this, is it allowed?

From: JOEbot
Is it possible that he is already a member on a different account and just wants to redo the road to Members for entertainment? Maybe run his IP?
I personally have thought of this, is it allowed?

Or someone from the past who was banned and wanted to be back in. It's happened before anyway.

From: JOEbot
Is it possible that he is already a member on a different account and just wants to redo the road to Members for entertainment? Maybe run his IP?
I personally have thought of this, is it allowed?

From: PatDuffy
Or someone from the past who was banned and wanted to be back in. It's happened before anyway.

According to the rules, neither are allowed, but more often than not if the user isn't doing any harm an exception is made.

Mine was banned, shame Anyways, got to 180 posts -_-

From: Sin
Mine was banned, shame Anyways, got to 180 posts -_-

Your second account? Why did you create it in the first place?

From: Frement
Your second account? Why did you create it in the first place?

To get more posts of course :P
—

On a serious note, I am just stunned o.o I want Zmon to REALLY get active he would be so helpful if he can write something like that already.

No IP matches.

I'm guessing he is a veteran of programing and is familiar with pascal as well. Probably a college person or so, they come in now and then.

From: YoHoJo
No IP matches.

Maybe he is THAT good of a scripter to bypass IP.. or just uses a different computer.
Oh well, thanks for checking yohojo!
He is probably a really good scripter, you should probably contact him about this.

I don't believe he is a returning member. There are discrepancies in his code that any 'known' banned member of this community is quite hardly likely to do. I would imagine he just has previous programming experience.

He has my vote for jr. membs. With a little more activity I would vote yes for membs without a doubt.

This guy looks like experienced programmer.
I compared first and last version of his script. In first he didn't use TPAs ,everything was based on DTMs …it means he is learning ,so he didn't know Simba before.

From: beginner5
This guy looks like experienced programmer.
I compared first and last version of his script. In first he didn't use TPAs ,everything was based on DTMs …it means he is learning ,so he didn't know Simba before.

I'm pretty sure he left his name and password in his first version of it as well… but yeah, he has improved a lot. If I wasn't such a green SRL member, I would nominate him for a best newcomer cup.

Wow this is a huge amount of work from his script. I haven't seen new guys with scripts like that for a while. It's very interesting.

I agree, it is very impressive and he is definitely experienced with programming

make him a fricken member. Have you looked through the logic in his script?

function FindModel(Model : TPAModel) : TPointArray;
var RasterX : Integer;
var RasterY : Integer;
var X1, Y1, X2, Y2 : Integer;
var QuickMatchAll : Boolean;
var CurrentRasterInfo : TDenseColorInfoArray;
var OverlayCount : Integer;
var Index : Integer;
var ColorRasters : TDenseColorInfoArray;
var SumIndex : Integer;
var ResultCount : Integer;
var MaxCounter : Integer;
var MaxIndex : Integer;
var secondaryIndex : Integer;
var MaxRasterX : Integer;
var MaxRasterY : Integer;
begin
  // raster info
  OverlayCount := Length(Model.ColorToleranceDefinition);
  SetLength(CurrentRasterInfo, OverlayCount);
  SetLength(ColorRasters, 0);
  // go through screen
  MaxRasterX := ((MSX2-MSX1) shr 4);
  MaxRasterY := ((MSY2 - MSY1) shr 4);
  for RasterX := 0 to MaxRasterX do
  begin
    X1 := MSX1 + (RasterX shl 4) - 16;
    X2 := X1 + 32;
    if (X1 < MSX1) then X1 := MSX1;
    if (X2 > MSX2) then X2 := MSX2;
    for RasterY := 0 to MaxRasterY do
    begin
      Y1 := MSY1 + (RasterY shl 4) - 16;
      Y2 := Y1 + 32;
      if (Y1 < MSX1) then Y1 := MSY1;
      if (Y2 > MSY2) then Y2 := MSY2;
      // quick check
      QuickMatchAll := True;
      for Index := 0 to OverlayCount - 1 do
      begin
        if not TestDenseColorRaster(Model.ColorToleranceDefinition[Index],
          X1, Y1, X2, Y2) then
        begin
          QuickMatchAll := false;
          break;
        end;
      end;
      // check
      if not QuickMatchAll then continue;
      // now get rasters
      for Index := 0 to OverlayCount - 1 do
      begin
        CurrentRasterInfo[Index] := CalculateDenseColorInfo(Model.ColorToleranceDefinition[Index],
          X1, Y1, X2, Y2);
        // check
        if not CurrentRasterInfo[Index].Matching then
        begin
          QuickMatchAll := false;
          break;
        end;
      end;
      if not QuickMatchAll then continue;
      // calculate new raster
      SumIndex := Length(ColorRasters);
      SetLength(ColorRasters, SumIndex + 1);
      ColorRasters[SumIndex].Matching := true;
      ColorRasters[SumIndex].Pointcount := 0;
      ColorRasters[SumIndex].SumX := 0;
      ColorRasters[SumIndex].SumY := 0;
      for Index := 0 to OverlayCount - 1 do
      begin
        ColorRasters[SumIndex].Pointcount := ColorRasters[SumIndex].Pointcount + CurrentRasterInfo[Index].Pointcount;
        ColorRasters[SumIndex].SumX := ColorRasters[SumIndex].SumX + CurrentRasterInfo[Index].SumX;
        ColorRasters[SumIndex].SumY := ColorRasters[SumIndex].SumY + CurrentRasterInfo[Index].SumY;
      end;
    end;
  end;
  // now get the results
  ResultCount := MAX_MODEL_RESULTS;
  if (ResultCount > Length(ColorRasters)) then
  begin
    ResultCount := Length(ColorRasters);
  end;
  // build result
  SetLength(Result, ResultCount);
  for index := 0 to ResultCount - 1 do
  begin
    MaxCounter := -1;
    MaxIndex := -1;
    for secondaryIndex := 0 to Length(ColorRasters) - 1 do
    begin
      if not ColorRasters[secondaryIndex].Matching then continue;
      if ColorRasters[secondaryIndex].Pointcount < MaxCounter then continue;
      MaxCounter := ColorRasters[secondaryIndex].Pointcount;
      MaxIndex := secondaryIndex;
    end;
    // do it
    Result[index].x := ColorRasters[MaxIndex].SumX / ColorRasters[MaxIndex].Pointcount;
    Result[index].y := ColorRasters[MaxIndex].SumY / ColorRasters[MaxIndex].Pointcount;
    ColorRasters[MaxIndex].Matching := False;
  end;
end;

From: footballjds
make him a fricken member. Have you looked through the logic in his script?

function FindModel(Model : TPAModel) : TPointArray;
var RasterX : Integer;
var RasterY : Integer;
var X1, Y1, X2, Y2 : Integer;
var QuickMatchAll : Boolean;
var CurrentRasterInfo : TDenseColorInfoArray;
var OverlayCount : Integer;
var Index : Integer;
var ColorRasters : TDenseColorInfoArray;
var SumIndex : Integer;
var ResultCount : Integer;
var MaxCounter : Integer;
var MaxIndex : Integer;
var secondaryIndex : Integer;
var MaxRasterX : Integer;
var MaxRasterY : Integer;
begin
  // raster info
  OverlayCount := Length(Model.ColorToleranceDefinition);
  SetLength(CurrentRasterInfo, OverlayCount);
  SetLength(ColorRasters, 0);
  // go through screen
  MaxRasterX := ((MSX2-MSX1) shr 4);
  MaxRasterY := ((MSY2 - MSY1) shr 4);
  for RasterX := 0 to MaxRasterX do
  begin
    X1 := MSX1 + (RasterX shl 4) - 16;
    X2 := X1 + 32;
    if (X1 < MSX1) then X1 := MSX1;
    if (X2 > MSX2) then X2 := MSX2;
    for RasterY := 0 to MaxRasterY do
    begin
      Y1 := MSY1 + (RasterY shl 4) - 16;
      Y2 := Y1 + 32;
      if (Y1 < MSX1) then Y1 := MSY1;
      if (Y2 > MSY2) then Y2 := MSY2;
      // quick check
      QuickMatchAll := True;
      for Index := 0 to OverlayCount - 1 do
      begin
        if not TestDenseColorRaster(Model.ColorToleranceDefinition[Index],
          X1, Y1, X2, Y2) then
        begin
          QuickMatchAll := false;
          break;
        end;
      end;
      // check
      if not QuickMatchAll then continue;
      // now get rasters
      for Index := 0 to OverlayCount - 1 do
      begin
        CurrentRasterInfo[Index] := CalculateDenseColorInfo(Model.ColorToleranceDefinition[Index],
          X1, Y1, X2, Y2);
        // check
        if not CurrentRasterInfo[Index].Matching then
        begin
          QuickMatchAll := false;
          break;
        end;
      end;
      if not QuickMatchAll then continue;
      // calculate new raster
      SumIndex := Length(ColorRasters);
      SetLength(ColorRasters, SumIndex + 1);
      ColorRasters[SumIndex].Matching := true;
      ColorRasters[SumIndex].Pointcount := 0;
      ColorRasters[SumIndex].SumX := 0;
      ColorRasters[SumIndex].SumY := 0;
      for Index := 0 to OverlayCount - 1 do
      begin
        ColorRasters[SumIndex].Pointcount := ColorRasters[SumIndex].Pointcount + CurrentRasterInfo[Index].Pointcount;
        ColorRasters[SumIndex].SumX := ColorRasters[SumIndex].SumX + CurrentRasterInfo[Index].SumX;
        ColorRasters[SumIndex].SumY := ColorRasters[SumIndex].SumY + CurrentRasterInfo[Index].SumY;
      end;
    end;
  end;
  // now get the results
  ResultCount := MAX_MODEL_RESULTS;
  if (ResultCount > Length(ColorRasters)) then
  begin
    ResultCount := Length(ColorRasters);
  end;
  // build result
  SetLength(Result, ResultCount);
  for index := 0 to ResultCount - 1 do
  begin
    MaxCounter := -1;
    MaxIndex := -1;
    for secondaryIndex := 0 to Length(ColorRasters) - 1 do
    begin
      if not ColorRasters[secondaryIndex].Matching then continue;
      if ColorRasters[secondaryIndex].Pointcount < MaxCounter then continue;
      MaxCounter := ColorRasters[secondaryIndex].Pointcount;
      MaxIndex := secondaryIndex;
    end;
    // do it
    Result[index].x := ColorRasters[MaxIndex].SumX / ColorRasters[MaxIndex].Pointcount;
    Result[index].y := ColorRasters[MaxIndex].SumY / ColorRasters[MaxIndex].Pointcount;
    ColorRasters[MaxIndex].Matching := False;
  end;
end;

I know man, I almost came when I saw that.

From: ReadySteadyGo
I know man, I almost came when I saw that.

i did, just ordered a replacement keyboard for my laptop :P

Although the quick check routine actually slows it down. Might as well just Continue if CurrentRasterInfo[Index]'s PointCount = 0.

Holy crap that snippet that football posted just blew my mind!

He must have previous programming experience…

From: JOEbot
Maybe he is THAT good of a scripter to bypass IP..

There are so many things which are wrong about that comment :p

var RasterX : Integer;
var RasterY : Integer;
var X1, Y1, X2, Y2 : Integer;
var QuickMatchAll : Boolean;
var CurrentRasterInfo : TDenseColorInfoArray;
var OverlayCount : Integer;
var Index : Integer;
var ColorRasters : TDenseColorInfoArray;
var SumIndex : Integer;
var ResultCount : Integer;
var MaxCounter : Integer;
var MaxIndex : Integer;
var secondaryIndex : Integer;
var MaxRasterX : Integer;
var MaxRasterY : Integer;

This is a bit interesting. Anyway he seems to be very good at what he's doing :)

Like Narcle stated, he must have some mad skills in programming.
Also I agree to Jr Memb with the promising trophy :).

You guys did a scan of his IP range, not just his IP, right? The script looks pretty advanced for a newbie though, so what a great learner if he's not just returning from an old banned member.

I have a confession, this is my account for when im at school… I know i know i have mad secret. Skills…. Maybe you should put the trophy on this acc :p

I mean afterall i am super pro

-confusion-

That moment can't tell if he's lying or not. D:

From: NKN
-confusion-

That moment can't tell if he's lying or not. D:

ikr?

Its school ip then?

He is not Xtrapsp.

Definitely a very skilled scripter/programmer. Should definitely make him Jr. Memb with newcomer cup

From: Gucci
Definitely a very skilled scripter/programmer. Should definitely make him Jr. Memb with newcomer cup

I concur :D, also joe good idea.

Look @ his about me and this http://villavu.com/forum/converse.php?u=71647&u2=77028

:)

holy mother of…

From: R4nd0m
I concur :D, also joe good idea.

I'm full of those good ideas.

From: JOEbot
I would nominate him for a best newcomer cup.

Ahhh, clever girl guy….

Jokin, good idea :)

From: NCDS
I don't believe he is a returning member. There are discrepancies in his code that any 'known' banned member of this community is quite hardly likely to do. I would imagine he just has previous programming experience.

He has my vote for jr. membs. With a little more activity I would vote yes for membs without a doubt.

I agree completely with this. :)

From: abu_jwka
Ahhh, clever girl guy….

Jokin, good idea :)

I've posted enough picture memes for the week, so I'll refrain- but:

I see what you did there… :garfield:

Haha it wasnt me :3 and why is this thread still going? Hurry up and making him jr :p

He is Jr.

I have a feeling he'll be a full member soon enough, though.

He said he will be putting a 3d engine in his script o.o
I am flabbergasted at the amount of skill

This guy… I think he'll be something much more than just another scripter. He'll probably be a Dev or something, right?

Edit: If he stays, anyway.

K i take it back… He is me :p

No but seriously what would he implemt which is 3D to make his scripts better? I dont get what 3D will do?

From: xtrapsp
K i take it back… He is me :p

No but seriously what would he implemt which is 3D to make his scripts better? I dont get what 3D will do?

He's using 3D Projection, it's the same as what I do in my MMToMSTile. http://villavu.com/forum/showthread.php?t=72985

From: ReadySteadyGo
He's using 3D Projection, it's the same as what I do in my MMToMSTile. http://villavu.com/forum/showthread.php?t=72985

Jack, I'm genuinly really interested to learn all this 3D Projection, However the tuts seem a bit difficult.
Would you mind helping :3

assembly 3000, 65xx, Z80, 808X, 80X86 etc, Basic, C/C++, C#, Delphi, … damn whole alphabet

Anyone who knows ASM 80x86 definitely has my vote.. 1000% Honestly the hardest thing to learn ever!!
And he's still not a junior :S From the looks of his profile pic, he's older than most of us here.. well me at least.

Older than me too. I like his code.

From: Brandon
Anyone who knows ASM 80x86 definitely has my vote.. 1000% Honestly the hardest thing to learn ever!!
And he's still not a junior :S From the looks of his profile pic, he's older than most of us here.. well me at least.

I think under his name it says junior member but I'm on my phone so its difficult to check.

From: Yago
I think under his name it says junior member but I'm on my phone so its difficult to check.

Nope he's definitely RU. He's got the Promising Newcomer cup though.

From: Rich
Nope he's definitely RU. He's got the Promising Newcomer cup though.

If anything he should be made a Junior member by now, he is too solid of a RU

Oh wow, the other day I'm pretty sure i saw something say junior, but i might be delusional

edit: NKN even congratulated him on becoming a junior on his wall. I'm confuzzled

From: Yago
Oh wow, the other day I'm pretty sure i saw something say junior, but i might be delusional

edit: NKN even congratulated him on becoming a junior on his wall. I'm confuzzled

He was promoted to Junior, by title, but his name never switched to light green. I guess it wasn't an official promotion?

He's not a junior?

Well, he has the title, so he's a junior in my book. :P

He needs to be junior or SRL… Seriously He needs another push of motivation… I want him to do well… He's super nice to!

From: NKN
He's not a junior?

Well, he has the title, so he's a junior in my book. :P

From: xtrapsp
He needs to be junior or SRL… Seriously He needs another push of motivation… I want him to do well… He's super nice to!

You guys don't worry, he'll get in in no time:

zmon - SRL Member Application

Haha is in here now :P Let's see if he can find this topic :O

i did but what am i to say? i didn't think you were watching me that closely or i'd be writing higher quality code by releasing less often, at times i even released code without being able to fully test all scenarios and had to update it within hours once i detected issue that i didn't test for before…. but i guess if i wanted full test cycle, i'd be still working on proper login sequence :P

there are times to write code that never fails, but those take long time to test and with rs it's possible only when you work on code that does not directly rely upon what's on screen - because you can't write against moving target :P

speaking of moving target - the elevation of camera angle high in runescape differs by up to 1/2 the player height depending on location, i am not sure if they set min/max per location but it almost appears so

Only just read this thread and you seem to be the man in the spot light, zmon :p
It's quite funny how you finally get to post on this thread and no one replies, bit strange lol, but anyway… you seem like a great guy and an amazing scripter.
Congrats on members btw :) nice to have you on board and I hope you enjoy your stay.

Well it doesn't matter if no one is replying because we were all praising him!

^^ haha, im also glad to have you on board :)