SRL Archive - OSR Help

? What title says ^

On-screen paint? You'll need to be more specific.

Like when I run my script, i would like to make it a paint that says:

? I need a paint that includes:


Franju GhoulKiller

Time running:
Exp per hour:
Ghouls killed:

use bitmaps. You can easily find a script and learn from it. Also pls dont post the same qns in more than 1 section ;)

From: riwu
use bitmaps. You can easily find a script and learn from it. Also pls dont post the same qns in more than 1 section ;)

That didnt answer my question at all lol… anyone else?? :l

Yeah, you can make it yourself using Photoshop. Get the size you want and get working on it.

Make one yourself or if you can't then check the link in my sig.

Once that's done, you can check the other link in my sig to create progress reports.

Finally, once you've created a progress report, at the bottom of that tutorial you will find a link to another guide which will tell you how to get it OnScreen :)

Oh I see where this thread is going lol, what i need to know is:

How do I add a paint to my script ~ I already got the paint done

http://villavu.com/forum/showthread.php?t=68856

A very well written guide to using paint with SMART.

program PaintStuff;
  {$define SMART}
  {$i srl/srl.simba}
  {$i SRL/SRL/misc/paintsmart.simba}

  Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
  var
    mx, my, Pic, I, B, H, TPH, Numb: Integer;
    TTP: TPointArray;
    Canvas: TCanvas;
  begin
    SmartSetDebug(True);
    GetClientDimensions(mx, my);
    Pic := BitmapFromString(mx, my, '');
    TPH := High(TP);
    for I := 0 to TPH do
    begin
      TTP := LoadTextTPA(TP[i], SmallChars, H);
      for B := 0 to High(TTP) do
      begin
        Numb := ((I + 1) * 13);
        FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
        FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
      end;
    end;
    Canvas := TCANVAS.Create;
    Canvas.Handle := SmartGetDebugDC;
    DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
    FreeBitmap(Pic);
  end;

  Procedure DoThePainting;
  begin
    PrintOnSmart(['A painted canvas', 'by Flight'], Point(40, 50), 255);
  end;

begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;  //This must be called before any canvas painting

  DoThePainting;       [B]Trace this backwards.[/B]

end.           

Only updated the .scar extensions because that is all you have to do to make his guide up to date more or less.

yeah the function is called paintsmart…. uhm are you familliar with the smart debug? if you are you can write texts aswell and then u make a funk that writes your highscore!!!!!