SRL Archive - News and General

hi all

first of all i do this because i will learn from it and that stuff and i will give the winner 100k feathers

rules:
1.make a function or procedure that clicks the fishing spot and then does somthing (antiban) or make it and make it so it will wait until the spot dissapeares
2. no plugins soz ;)

you will be judged on:(copied from the other competition:))
1. Techinque - The way you use it (X / 10)
2. Creativity - This could mean how ever it works.. i like this (X / 10)
3. Speed - Make it as fast as possible (X / 10)
4. Accuracy - I will be grading if you get the mouse right on it every time (x / 10)
5. Debugging - Make a debug i want to see whats really going on ''so i can learn from it'' (X / 10)

pls join!

i can learn from it!

Do you understand all of that more advanced stuff like HSL etc… So You can judge it if someone uses it.

yeah, 50%( more:))^^of it thats why you need to debug i will do my best,
yes i know the most and if not i will look whole weeks on it untill i get it,
make it extra hard! trust me it will take few days but i can do it,
any questions ask or pm me ;)

hermpie

Sorry buddy, but that is just total copy of pwnaz0rs competitions :(

Better you learn when you take part in his competition.

he's thing was a mining procedure though? and a dev made a copy of pownz0rs to so… and i only wanna learn from it. can i? can i??

You should understand the stuff before judging it.. (@ the learning from it part)

if people dont want to explain then i want to judge because if i ask some1 he says he will help you and he says then he will help you and he says then she will help you and she says then he will help you and he says then he will help you and he says then he will help you and he says then he will help you and he says then he will help you and he says then he will help you etc…

hermpie

Ill enter :). And what does it matter if he copied my competition? No one jumped on SKy Scripter and he talked to on msn about it for a few days(so you know he got the idea from me). Anyways, I want those feathers so I will join

100k feathers

Holy smokes, didnt see that!

No, its not that he copied it, no offense hermpie, but SKy knows a lot about these things, but anyways meh..

EDIT: Some tard is running my script again, soon I'll have to make 30k kills thread -.-

I could help you judge if you want; get on msn?

dude never say the sintence(w/e) ''get on msn'' because i am always on ;) or i am sleeping :)

From: hermpie
if people dont want to explain then i want to judge because if i ask some1 he says he will help you and he says then he will help you and he says then she will help you and she says then he will help you and he says then he will help you and he says then he will help you and he says then he will help you and he says then he will help you and he says then he will help you etc…

hermpie

I don't understand one thing you just said?

From: pwnaz0r
Ill enter :). And what does it matter if he copied my competition? No one jumped on SKy Scripter and he talked to on msn about it for a few days(so you know he got the idea from me). Anyways, I want those feathers so I will join

I jumped on him! :P

Also this competition is already over :stirthepot: since I've already got a head start, although I may just help grade if thats OK with you Hermpie.

But right now I think that there should only be 1 competition going on at a time, just too hectic and you can't get enough people involved if there are more than 1 at the same time.

First, I am not entering… But I see no use in another fishing competition, Starblaster100 already held one.

Try this….

findobjtpa(mscx, mscy, 15257001, 40, 2, 30, 30, 5, 'ishing');

Or just from my fisher..

{
<----------------------------------------------------------------->
Function FindFishingSpots: TPointArray;
Description:

  Finds all RuneScape 2 Fishing spots on the MainScreen.
  Mainscreen is defined by MSX1, MSY1, MSX2, MSY2.
  The spots are sorted by Distance, the first in the array
  is the one closest to the RS char (MSCX, MSCY).

  Made By: Wizzup?
<----------------------------------------------------------------->
}

Function FindFishingSpots: TPointArray;

Var
   Fish: TPointArray;
   Fishes: Array Of TPointArray;
   I, cts: Integer;

Begin
  If Not LoggedIn Then Exit;
  SetLength(Result, 0);
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MSCX, MSCY, Fish, 15257001, MSX1, MSY1, MSX2, MSY2, 40);
  DebugTPA(Fish, 'AllSpots');
  Fishes := TPAToATPA(Fish, 25);
  SetLength(Fish, 0);
  SetLength(Result, Length(Fishes));
  For I := 0 To High(Fishes) Do
  Begin
    If Length(Fishes[I]) < 5 Then
      Continue;
    Result[I] := MiddleTPA(Fishes[I]);
  End;
  SetLength(Fishes, 0);
  ColorToleranceSpeed(cts);
End;

{
<----------------------------------------------------------------->
Function FindFishingSpot(Var x, y: Integer): Boolean;
Description:

  Uses FindFishingSpots to find a fishing spot on the
  RuneScape mainscreen.
  Returns the coordinate of the fishing spot in x and y.
  Result Returns True if the spot is found.
  
  Made By: Wizzup?
<----------------------------------------------------------------->
}

Function FindFishingSpot(Var x, y: Integer): Boolean;

Var
   Fish: TPointArray;
   I: Integer;

Begin
  If Not LoggedIn Then Exit;
  Result := False;
  Fish := FindFishingSpots;
  For I := 0 To Length(Fish) - 1 Do
  Begin
    MMouse(Fish[I].X, Fish[I].Y, 0, 0);
    Wait(50 + Random(50));
    If IsUpText('Lure') Then
    Begin
      Result := True;
      x := Fish[I].X;
      y := Fish[I].Y;
      Exit;
    End;
  End;
End;

And a follow spot.

{
<----------------------------------------------------------------->
Function FollowSpot(Var x, y: integer): Boolean;
Description:

  Tracks the RuneScape fishing spot.
  Search in a small area around x and y.
  If a fishing spot if spotted, it will return the new coordinate.

  Made By: Wizzup?
<----------------------------------------------------------------->
}

Function FollowSpot(Var x, y: integer): Boolean;

Var
   FishP, FishP1, FishP2: TPointArray;
   P: TPoint;
   z: Integer;
Begin
  Result := False;
  If Not LoggedIn Then Exit
  z := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsTolerance(FishP1, 14796717, x - 20, y - 20, x + 20,  y + 20, 40);
  FindColorsTolerance(FishP2, 15257001, x - 20, y - 20, x + 20,  y + 20, 40);
  FishP := CombineTPA(FishP1, FishP2);
  If Length(FishP) > 3 Then
  Begin
    Result := True;
    P := MiddleTPA(FishP);
    x := P.X;
    y := P.Y;
  End;
  ColorToleranceSpeed(z);
End;

Hey wizzup, do you know if that ever gets a combined fishing spot meaning there are two fishing spots right next to eachother and it gets the middle of both? Also… apparently I've made something very similar to what you did with MiddleTPA and Debug TPA…

function Equalize(var Top, Bottom, Left, Right: Integer): Boolean;
var
  EqMod, W, H: Byte;
begin
  Writeln('Equalize');
  W:= Right - Left;
  H:= Bottom - Top;
  if(H <> W)then
  begin
    if((W < 10)or(H < 10)or(W > 38)or(H > 32))then Result:= False;
    if(W < H)then
    begin
      EqMod:= (H - W) div 2;
      if(EqMod > 9)then Result:= False;
      Left:= Left - EqMod;
      Right:= Right + EqMod;
      Result:= True;
    end else
    begin
      EqMod:= (W - H) div 2;
      if(EqMod > 9)then Result:= False;
      Top:= Top - EqMod;
      Bottom:= Bottom + EqMod;
      Result:= True;
    end;
  end else Result:= True;
end;

function FindFish(var Fx, Fy: Integer; Area: Integer; SkipBox: Boolean): Boolean;
var
  FPx, FPy, WorkTime, Top, Bottom, Right, Left: Integer;
  i, a, CCN, FPCount: Byte;
  ClosestSpot, NewColor, Resultz: Boolean;
  Sear: TBox;
  FS: array of TPoint;
  FSx, FSy: array of Integer;
label Start;
begin
  Writeln('FindFish');
  if(not(LoggedIn))then
  begin
    Writeln('Not Logged In');
    Exit;
  end;
  MarkTime(WorkTime);
  ColorToleranceSpeed(0);
  Start:
  for i:= 1 to Area do
  begin
    Sear.x1:= MSCX - Ceil(i * 51.3);
    Sear.y1:= MSCY - Ceil(i * 33.5);
    Sear.x2:= MSCX + Ceil(i * 51.3);
    Sear.y2:= MSCY + Ceil(i * 33.5);
    if(SkipBox)then Resultz:= FindColorSkipBoxArrayTolerance(FPx, FPy, 14858393, Sear.x1, Sear.y1, Sear.x2, Sear.y2, 33, FalseBox) else
    Resultz:= FindColorSpiralTolerance(FPx, FPy, 14858393, Sear.x1, Sear.y1, Sear.x2, Sear.y2, 33);
    if(Resultz)then
      begin
        FishingArea.x1:= (FPx - 12);
        FishingArea.y1:= (FPy - 12);
        FishingArea.x2:= (FPx + 12);
        FishingArea.y2:= (FPy + 12);
        FindColorsTolerance(FS, 14858393, FishingArea.x1, FishingArea.y1, FishingArea.x2, FishingArea.y2, 33);
        FPCount:= GetArrayLength(FS) - 1;
        if(FPCount < 2)then
        begin
          Wait(200 + Random(50));
          ClosestSpot:= False;
          NewColor:= True;
          Break;
        end;
        if(FPCount > 69)then
        begin
          Writeln('FPCount was too high');
          if(CCN > 9)then
          begin
            Result:= False;
            Exit;
          end;
          NewColor:= True;
          Wait(200 + Random(50));
          Inc(CCN);
          Break;
        end;
        CCN:= 0;
        if((FPCount > 1)and(FPCount < 70))then
        begin
          ClosestSpot:= True;
          NewColor:= False;
          Break;
        end;
      end else Writeln('Could not Find Fishing Spot');
  end;
  if(ClosestSpot)then
    begin
      SetArrayLength(FSx, Length(FS));
      SetArrayLength(FSy, Length(FS));
      for a:= 0 to Length(FS) - 1 do
      begin
        FSx[a]:= FS[a].x;
        FSy[a]:= FS[a].y;
      end;
      BubbleSort(FSx);
      BubbleSort(FSy);
      Left:= FSx[0];
      Right:= FSx[Length(FS) - 1];
      Top:= FSy[0];
      Bottom:= FSy[Length(FS) - 1];
      if(not(Equalize(Top, Bottom, Left, Right)))then goto Start;
      Fx:= (Left + Right) div 2;
      Fy:= (Top + Bottom) div 2;
      FishingArea.x1:= Left;
      Writeln('FishingArea.x1:= ' + inttostr(FishingArea.x1));
      Writeln('FishingArea.y1:= ' + inttostr(FishingArea.y1));
      Writeln('FishingArea.x2:= ' + inttostr(FishingArea.x2));
      Writeln('FishingArea.y2:= ' + inttostr(FishingArea.y2));
      FishingArea.y1:= Top;
      FishingArea.x2:= Right;
      FishingArea.y2:= Bottom;
      Result:= True;
    end else Result:= False;
  if(NewColor)then goto Start;
  ColorToleranceSpeed(1);
  Writeln('[FindFish] WorkTime: ' + inttostr(TimeFromMark(WorkTime)));
end;

Equalizing just helps find the edges if the box better… I may just trash mine for your though… just need to mess around with it a bit.

make your own functions and yes if your in or just pm me!

Sorry to say this hermpie, but I think some people are right about the judging.
I'm not sure if you will be able to judge the more advanced techniques.
However, I see special ed can teach me some stuff :D

-Tsn.

join or dont join or i delete :(

From: hermpie
join or dont join or i delete :(

What will you delete?

hermpie not to be mean but they are right about judging… it takes an experienced scripter.

HOWEVER

you do want to learn from this.

Smartz said he can lend a hand…


seems fine to me nothing stopping you from doing this dont let other people discourage you :p

nah i keep my 100k feathers and wont learn :(

thats exactly opposite of a scripters attitude :p

a scripter is just a complicated name for I am hungry for knowledge.

seems like your full hermpie…

so my advice is take a nice long poop and get hungry and learn form tutorials and ask questions that come to mind no matter how ridicules they are :)


you can keep your feathers people could care less (I hope XD)

just think of an original competition.

there no tuts about that weird functions with weird number :(

TEACH ME!:) TEACH ME TBOXES AND ALL THAT SHIT! HSL RGB !!!!

hungry enough?

lol do you know what a Tpoint is? do you know how to make multidimensional arrays? whats the most adv stuff you know?

Friken hungry, me outta food :D [/gkrammaer]

Nothing special about tboxes, you just do

"TBox.x1 := TopLeftCornerXCoordOfBox;"
"TBox.y1 := TopLeftCornerYCoordOfBox;"
"TBox.x2 := LowRightCornerXCoordOfBox;"
"TBox.y2 := LowRightCornerYCoordOfBox;"

And HSL, there is many ways to use it.

Some people (me for example) just use ColorToleranceSpeed(2) in better accuracy in Tolerance, some people like Lorax then do some crazy calculation color shit, go to Tutorials for advanced, there are HSL tuts.

Though I didnt understand a shit of them because none of the lines in functions werent commented and var names were like "Z", "Q", "HahaTryToUnderStandAShitBoutThisBitch", but cant know, people are different maybe some other people understand better.

Btw no offense tut writers…

EDIT:

multidimensional arrays

Btw in SKy's woodcutting competition I use a *behold* 3D array *funeral bells*

ehh

Mouse(x,y,0,0,true);

:p

tpoint are 2 variables like x and y?? im not sure but haves somthing do to with it

i just wanna know what tpa is and all that stuff that looks weird and advance without a function like findcolor(somthing here) how they do that i wanna know that :)


edit: n3ss3s so but when you need a more accur. tol speed? i know that its good to use fast if you need fast finding :)

Oh shit, now he is hungry! :D Run for your lives!

how they do that i wanna know that

By asking me ;) Jk/Jk

TPoint - do this "Var MyTPoint: TPoint;"

You just declared your TPoint variable , and now, how to use it -

"MyTPoint.x := XCoordinateOfPoint;"
"MyTPoint.y := YCoordinateofPoint;"

And TPoint array is an array that consists of many TPoints -

"Var MyTPointArray: TPointArray;"

"SetArrayLength(MyTPointArray, 1);"

"MyTPointArray[0].x := XCoord;"
"MyTPointArray[0].y := YCoord;"

And why the procs like mine (:D :D :D ) look so leet without many FindColor things etc, is because usually nowadays, we have only "FindColorsTolerance" which finds all the instances of the color on the screen and returns them into a TPointArray in the beginning of the script…

Sorry, but its hard to explain if you dont know the TPointArrays etc..

look in tuts they are there in like intermediates and stuff.


and RGB is just red blue green which are the three colors (waves right?) your eyes can understand mix the colors together in a certian way will result in a dif color…



hey tpoint is very easy


var
yourvar : tpoint;

now your var can hold two seperate values.


yourvar.x
and
yourvar.y


tpoint arrays are easy as well


yourvar : tpointarray


now its just like tpoint except it can now hold many more values on two points x and y under the same var yourvar.


so

yourvar[0].x
yourvar[0].y
yourvar[1].x
ect…

and arrays can hold lots of info.

understand or need more?

w00t headache here i come
edit:
so i can do to
yourvar.randomletter
yourvar.randomletter

or it has to be x or y?

and why should you use it?

it has to be x and y.

well first off it can equal two vars and not just one when you load it :p
there better for arrays…

would you like to load separate vars for an array or use tpointarray ?

dark_sniper lost the fishing competiton and needs to pay me 1 mil geepeez :p

thanks all :)

Information about:
RGB
HSL
In Dutch!! :D

-Tsn.

Shall I just lock this?

k sure :)

edit:
tsn thanks for the links :)

edit edit: you all just wanna kill me with, hsl and rgb dont you!!