SRL Archive - News and General

Yes, mastaraymond is an SRL developer now!
Congratulations, my friend, you deserve it!

I've seen you making incredible functions and plugins (remember the floodfill :p), things that are really advanced.

Keep it up and congratz again!!

Regards,

-Stijn.

yeah he also told me;) all hail mastah!!!

From: Killerdou
yeah he also told me;) all hail mastah!!!

Bet his p inball solver is going to be added now:rolleyes:

-Stijn.

omg congratz ray!!!

/party @vent

Developer cup went to the guy who really deserved that.
Congratulations man!

Gratz w00t :) MastaMario ftw =D

you deserved it! gratz. :)

congratz ray, definitely deserved gj keep up the good work

GRATS x 10!!

Deserved + now we get a pinball solver that works extraordinarily good!

CHEERS Masta! Enjoy it :D

-Knives

Wow thank you guys! *thinks clear* Oh gosh, now i've got to do some work! Oh noez ^,^

WOOOW congratz man and loving the mario game :p

I saw this comming :p

Congratz Ray :D

congratz Ray =D

:D

u deserve this title very much

From: Pentti
Developer cup went to the guy who really deserved that.
Congratulations man!

I so agree.

Congratulations, Raymond!

Script for you guys ^,^

program New;
Function GetTPABounds(TPA: TPointArray): TBox;
var
  I,L : Integer;
begin;
  L := High(TPA);
  if L < 0 then exit;
  Result.x1 := TPA[0].x;
  Result.y1 := TPA[0].y;
  For I:= 0 to L do
  begin;
    if TPA[i].x > Result.x2 then
      Result.x2 := TPA[i].x
    else if TPA[i].x < Result.x1 then
      Result.x1 := TPA[i].x;
    if TPA[i].y > Result.y2 then
      Result.y2 := TPA[i].y
    else if TPA[i].y < Result.y1 then
      Result.y1 := TPA[i].y;
  end;
end;


procedure DrawTPA(TPA : TPointArray);   //Put in a TPA, and it returns you a debug image with the found points :-)
var
  TempBitmap,I,LengthA : integer;
  Size : TBox;
begin;
  Size :=  GetTPABounds(TPA);
  TempBitmap := BitmapFromString(Size.x2-Size.x1+1,Size.y2-Size.y1+1,'');
//  CopyClientToBitmap(TempBitmap,Size.x1,Size.y1,Size.x2,Size.y2);
  LengthA := High(TPA);
  For I:= 0 to LengthA do
    FastSetPixel(TempBitmap,TPA[I].x-Size.x1,TPA[I].y-Size.y1,clred);
  DisplayDebugImgWindow(Size.x2-Size.x1+1,Size.y2-Size.y1+1);
  SafeDrawBitmap(TempBitmap,GetDebugCanvas,0,0);
  FreeBitmap(TempBitmap);
end;

Function GetRosePoints(MaxSize,K : integer;CurveOffset,StepSize : extended): TPointArray;
var
  I : Extended;
  Len : integer;
begin
  SetLength(Result,Round(Maxsize / Stepsize) + 1);
  Repeat
    I := I + Stepsize
    Result[Len].x := Round(Cos(i) *  sin(K * i) * CurveOffset); //Round(Pow(Abs( cos(I) * I * CurveOffset),1.2));
    Result[Len].y := Round(Sin(i) *  sin(K * I) * CurveOffset);//Round(Pow(Abs(sin(I) * I * CurveOffset),1.2));
    Len := Len + 1;
  Until I >= maxsize
  SetLength(result,len);
end;
var
  Arr : TPointArray;
begin
  Arr := GetRosePoints(900,10,400,0.05);
  DrawTPA(Arr);
end.

From: mastaraymond
Script for you guys ^,^

program New;
Function GetTPABounds(TPA: TPointArray): TBox;
var
  I,L : Integer;
begin;
  L := High(TPA);
  if L < 0 then exit;
  Result.x1 := TPA[0].x;
  Result.y1 := TPA[0].y;
  For I:= 0 to L do
  begin;
    if TPA[i].x > Result.x2 then
      Result.x2 := TPA[i].x
    else if TPA[i].x < Result.x1 then
      Result.x1 := TPA[i].x;
    if TPA[i].y > Result.y2 then
      Result.y2 := TPA[i].y
    else if TPA[i].y < Result.y1 then
      Result.y1 := TPA[i].y;
  end;
end;


procedure DrawTPA(TPA : TPointArray);   //Put in a TPA, and it returns you a debug image with the found points :-)
var
  TempBitmap,I,LengthA : integer;
  Size : TBox;
begin;
  Size :=  GetTPABounds(TPA);
  TempBitmap := BitmapFromString(Size.x2-Size.x1+1,Size.y2-Size.y1+1,'');
//  CopyClientToBitmap(TempBitmap,Size.x1,Size.y1,Size.x2,Size.y2);
  LengthA := High(TPA);
  For I:= 0 to LengthA do
    FastSetPixel(TempBitmap,TPA[I].x-Size.x1,TPA[I].y-Size.y1,clred);
  DisplayDebugImgWindow(Size.x2-Size.x1+1,Size.y2-Size.y1+1);
  SafeDrawBitmap(TempBitmap,GetDebugCanvas,0,0);
  FreeBitmap(TempBitmap);
end;

Function GetRosePoints(MaxSize,K : integer;CurveOffset,StepSize : extended): TPointArray;
var
  I : Extended;
  Len : integer;
begin
  SetLength(Result,Round(Maxsize / Stepsize) + 1);
  Repeat
    I := I + Stepsize
    Result[Len].x := Round(Cos(i) *  sin(K * i) * CurveOffset); //Round(Pow(Abs( cos(I) * I * CurveOffset),1.2));
    Result[Len].y := Round(Sin(i) *  sin(K * I) * CurveOffset);//Round(Pow(Abs(sin(I) * I * CurveOffset),1.2));
    Len := Len + 1;
  Until I >= maxsize
  SetLength(result,len);
end;
var
  Arr : TPointArray;
begin
  Arr := GetRosePoints(900,10,400,0.05);
  DrawTPA(Arr);
end.

Haha, nice one!
It's beatifull! I also want to know how to make that, but I never did something with forms, nor canvases:p

Everybody, run it!

-Tsn.

From: the scar noob
Haha, nice one!
It's beatifull! I also want to know how to make that, but I never did something with forms, nor canvases:p

Everybody, run it!

-Tsn.

The source ^.^:
http://en.wikipedia.org/wiki/Rose_%28mathematics%29

Congratulations! You deserved this a long time ago!

yay netherlands!!! lol gratz ray

Grats! You left vent like 5 mins before I got back tho >.<

Gj nub =D You deserve it.

Congrats ray.

Congratulations! Extremely well deserved :D

But you know… that means you should be able to pwn me… You need some practice nub :p

Gratz!

I expect all randoms to be solved by the end of this week. :p

Grats! =D

Had to change you from an srl member to a dev on vent >_<"

You deserve it.

congrats!

Congratz man, you derserve it alot :)

Gj

From: mastaraymond
Script for you guys ^,^

program New;
Function GetTPABounds(TPA: TPointArray): TBox;
var
  I,L : Integer;
begin;
  L := High(TPA);
  if L < 0 then exit;
  Result.x1 := TPA[0].x;
  Result.y1 := TPA[0].y;
  For I:= 0 to L do
  begin;
    if TPA[i].x > Result.x2 then
      Result.x2 := TPA[i].x
    else if TPA[i].x < Result.x1 then
      Result.x1 := TPA[i].x;
    if TPA[i].y > Result.y2 then
      Result.y2 := TPA[i].y
    else if TPA[i].y < Result.y1 then
      Result.y1 := TPA[i].y;
  end;
end;


procedure DrawTPA(TPA : TPointArray);   //Put in a TPA, and it returns you a debug image with the found points :-)
var
  TempBitmap,I,LengthA : integer;
  Size : TBox;
begin;
  Size :=  GetTPABounds(TPA);
  TempBitmap := BitmapFromString(Size.x2-Size.x1+1,Size.y2-Size.y1+1,'');
//  CopyClientToBitmap(TempBitmap,Size.x1,Size.y1,Size.x2,Size.y2);
  LengthA := High(TPA);
  For I:= 0 to LengthA do
    FastSetPixel(TempBitmap,TPA[I].x-Size.x1,TPA[I].y-Size.y1,clred);
  DisplayDebugImgWindow(Size.x2-Size.x1+1,Size.y2-Size.y1+1);
  SafeDrawBitmap(TempBitmap,GetDebugCanvas,0,0);
  FreeBitmap(TempBitmap);
end;

Function GetRosePoints(MaxSize,K : integer;CurveOffset,StepSize : extended): TPointArray;
var
  I : Extended;
  Len : integer;
begin
  SetLength(Result,Round(Maxsize / Stepsize) + 1);
  Repeat
    I := I + Stepsize
    Result[Len].x := Round(Cos(i) *  sin(K * i) * CurveOffset); //Round(Pow(Abs( cos(I) * I * CurveOffset),1.2));
    Result[Len].y := Round(Sin(i) *  sin(K * I) * CurveOffset);//Round(Pow(Abs(sin(I) * I * CurveOffset),1.2));
    Len := Len + 1;
  Until I >= maxsize
  SetLength(result,len);
end;
var
  Arr : TPointArray;
begin
  Arr := GetRosePoints(900,10,400,0.05);
  DrawTPA(Arr);
end.

Awww I wanted a cookie!

Wait we are congratulating you. Grats man!

From: bullzeye95
Congratulations! Extremely well deserved :D

But you know… that means you should be able to pwn me… You need some practice nub :p

Shit, now I've got to redo all your work in the competition ;)

Gj with the function!

TPAs are taking over the world! Bwuahahaha , BWUAHAHAHAAAA!

Haha…I just remembered, it seems like Fawki was lying to n3ss3s when he said that no more developers were needed :p

Yes… True.

But I understand :)

EDIT: But he should've use some more time thinking, since Rs monkey got dev within a week :p

Hmm…do you have to be an SSRL to become a developer…? If so, then I guess we can predict the future developers.

From: RudeBoiAlex
WOOOW congratz man and loving the mario game :p

yeah, congratz, I'm in highscore in mario w/o cheats

xD
I cheated and made my mario always big :P

Gratz on Dev Ray

From: Kevin Wolf
xD
I cheated and made my mario always big :P

Gratz on Dev Ray

I can always put it in a plugin :rolleyes:.

congratulations!

well deserved

From: Santa_Clause
Hmm…do you have to be an SSRL to become a developer…? If so, then I guess we can predict the future developers.

No don't have to…

Yup, don't have to, and plus that, Santy how'd ya know who are *cough*:s since its prohibited to tell?

PARTY BOY!!!


Unce unce unce unce unce unce unce unce unce unce!!!


And remember: "In Soviet SRL-Forums, scripts develop YOU!!!"

From: n3ss3s
Yup, don't have to, and plus that, Santy how'd ya know who are *cough*:s since its prohibited to tell?

Pwnaz0r and The-UnNamed, since they posted in the SMART tutorial thread…

Good work Sherlock, I was about to deduce the same….

That doesn't necessarily mean they're SSRL…

The Claw…Nielsie's already said it, so no need to try cover it up anymore :)

From: R0b0t1
Good work Sherlock, I was about to deduce the same….

Enough sarcasm, n3ss3s asked a question and I answered it :p

Gratz man, you have made some truly amazing scripts. MastaMario was a work of art.

Congratulations mastaraymond!