SRL Archive - Semi Stupid Pictures

Well this isnt really what I made and I assume that we all know what 2D graphics are I don't believe I need to explain that haha. Anyways I would like to know if anyone thinks they are good at making 2 dimensional graphics? If you think you are at least decent send me a pm or show some work here.

I am looking for someone who is willing to make some tile sets and possibly some sprite sheets. If you have no idea what im talking about but don't suck at 2d graphics still show me something pretty and I will talk to you.

I will provide more info on what im attempting later in the mean time if anyone is interested let me know.

Thank you.

From: c0de
Creating new game? :)

Pokemons maybe? :D

hah i get people adding me on msn asking me to make pokemon or mario..
fun.. :p

Edit : btw use Splines… ;)

Edit2 : then you can create like a simple animation.. :)

program new;


const
   RibbonWidth = 10;
   RibbonHeight = 100;
   DegreeTurn = 360;





type
   TRibbon = record
   Control : TPoint;
   Width, Height : Integer;
end;

var
  MainForm : TForm;
  Ribbon : TRibbon;
  Timer : TTIMER;
  Degree : Integer;



function DrawSplinePath(sx, sy, ex, ey, MinStep : Integer; Controls : TPointArray) : TPointArray;
var
  theta, inc, b1, b2, b3, b4 : Extended;
  Tempx, Tempy, Lastx, Lasty : Integer;
  Cntrls : array [1..4] of TPoint;
begin
  inc := (1.0 / (Distance(sx, sy, ex, ey) / 0.5));
  if (InRange(Length(Controls), 1, 3)) then
  begin
  Cntrls[1] := Controls[0];
  Cntrls[2] := Controls[1];
  Cntrls[3] := Controls[2];
  Cntrls[4] := Point(ex - sx, ey - sy);
   repeat
      theta := theta + inc;
      b1:= Pow(theta, 3);
      b2:= 3 * b1 * (1 - theta);
      b3:= 5 * (b1 / theta) * Sqr(1 - theta);
      b4:= 3 * (b1 / Pow(theta, 2)) * Pow(1 - theta, 2);
      Tempx := Trunc(Cntrls[1].x * b4 + Cntrls[2].x * b3 + Cntrls[3].x * b2 + Cntrls[4].x * b1 + sx);
      Tempy := Trunc(Cntrls[1].y * b4 + Cntrls[2].y * b3 + Cntrls[3].y * b2 + Cntrls[4].y * b1 + sy);
       if (iAbs(Lastx - Tempx) >= MinStep) and
          (iAbs(Lasty - Tempy) >= MinStep) then
       begin
         SetArrayLength(Result, Length(Result) + 1);
         Result[length(Result)-1] := Point(Tempx, Tempy);
         Lastx := Tempx;
         Lasty := Tempy;
       end;
   until (theta >= 1);
  end;
end;

procedure DrawRibbon(Ribbon : TRibbon);
var
   i : Integer;
   P : TPointArray;
begin
try
   P := DrawSplinePath(255, 100, 255, 100 + Ribbon.Height, 0, [Ribbon.Control, Ribbon.Control, Ribbon.Control]);

 for i := 0 to GetArrayLength(P)-1 do
 begin
   MainForm.Canvas.MoveTo(P[i].x, P[i].y);
   MainForm.Canvas.LineTo(P[i].x + Ribbon.Width, P[i].y);
   if (i mod 2 = 0) then
   MainForm.Canvas.Pen.Color := 255 * i;
 end;
except
end;
end;




procedure OnPaint(Sender : TObject);
begin
 DrawRibbon(Ribbon);
end;


procedure OnTimer(Sender : TObject);
var
  x, y : Integer;
begin
    Degree := Degree + 30;
    x := trunc(100 * Sin((Pi/DegreeTurn) * Degree));
    y := trunc(120 * Cos((Pi/DegreeTurn) * Degree));
    Ribbon.Control := Point(x, y);
    MainForm.Repaint;
end;


procedure InitForm;
begin
  MainForm := CreateForm;
  MainForm.SetBounds(0, 0, 500, 400);
  MainForm.POSITION:= poDesktopCenter;
  MainForm.BORDERICONS:= [biMinimize, biSystemMenu];
  MainForm.BORDERSTYLE:= bsSingle;
  MainForm.Caption := 'Splines!';
  MainForm.Canvas.Pen.Color := 255;
  MainForm.Canvas.Pen.Width := 4;
  MainForm.Canvas.Brush.Style := bsClear;
  MainForm.OnPaint := @OnPaint;

  Timer := TTIMER.Create(MainForm);
  Timer.INTERVAL := 100;
  Timer.ONTIMER := @OnTimer;

  MainForm.ShowModal;
end;

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


begin
  try
   Ribbon.Height := RibbonHeight;
   Ribbon.Width := RibbonWidth;

  SafeInitForm;

  finally
     FreeForm(MainForm)

  except
    Writeln('ERROR: With Loading');

  end;

end.

From: SKy Scripter
hah i get people adding me on msn asking me to make pokemon or mario..
fun.. :p

*Cartman voice* skyyyy… can you make a super mario game in scar?

im interested, but i dont know if im good enough:redface:

just post a little character or a tree or anything that you would see in runescape or a chrono trigger type game. Haha fuck scar games no offense but I am actually trying to make an amusing little game in c++ =p sure it will be 2d but hey i have to start someplace

u mean like rs minimap tree ?


or some wierd rs minimap berry bush?


or did u mean something else?

(note:together those took me 4 mins)

haha well those actually arent that bad at all in comparison to the horrible images i have produced XD. Contact me on aim

mutantsquirrle
or msn
[email]blurhenry@hotmail.com[/email]

yeah idc noobs can have my contacts lol just dont be stupid -_- (and dan im not calling you a noob)

From: dan cardin
u mean like rs minimap tree ?


or some wierd rs minimap berry bush?


or did u mean something else?

(note:together those took me 4 mins)

You forgot the white dots for RS Demon users! :p

From: born2code
You forgot the white dots for RS Demon users! :p

uhh right…well! im gonna be gone until the 18th as im putting in my sig so ye might want to find someone else till then, or wait(whichever)

Well more then one person is always welcome to join I am sure we will need all the help me can get haha

I would want to help but I can't. I'm not very good in these kinda things. :p

haha so what exactly was the point of your post…

Im on my new computer, all my cool stuff has gone, only paint to work with. i used to be a 2d artist but then i got into isometric and 3d mmocc's.
Ill be happy to help.Obviously, i'd get better as i instal my various programs i use, and it would be great fun to help. I have tons more on my old pc, but i cant get to that at this moment. I have more that i cant show you, as they're for a mmocc that im currently pixelling for. :D


Thanks,



Perri.:spongebob:

*claps* that is beautiful haha. Hey go ahead and add me on msn or aim and talk to me my addresses are in an above post