SRL Archive - OSR Advanced Scripting Tutorials

Everything about canvases
Note: this tutoral is long, if you have a short attention span, press “back” on your browser now

Ill get straight to the point, Canvases are for drawing- have SCAR open while reading this tutorail

Try this program before you start

 program FastDrawExample;
var Buffer,Line,x:integer;
begin
Buffer:=BitmapFromString(400,200,'');
Line:=BitmapFromString(100,50,'');
FastDrawClear(Line,1088528);
DisplayDebugImgWindow(400,200);
repeat
FastDrawClear(Buffer,255);
FastDrawTransparent(x,100,Line,Buffer);
x:= x+1;
SafeDrawBitmap(Buffer,getdebugcanvas,0,0);
wait(10);
until(x>=300);
writeln('Ta-da');
PlaySound('C:\\windows\media\tada.wav');
end.

got this? Ok, that’s an example of what you can do with a canvas
another thing I made was the SCAR-game, Ice Magicks
another example is a utiluty I made ,the link is in my signature

glossery
Canvas = a surface on which programs can draw things onto

First get familiar with the debug canvas
If you call the procedure
“DisplayDebugImgWindow(w,h:integer);”

A debug image will be displayed, this is the first canvas you meet, the debug image is SCAR’s own persional canvas
The next canvas is the bitmap canvas, this is simply the canvas of a specified bitmap, for example, make a bitmap called “item1”, with canvases, you can draw over this bitmap

When using canvases, you have to get their handle first, the handle of a canvas is not an integer like bitmaps, chars or DTMs, a canvas handle is stored in a variable “TCanvas” these functions return the handle of a canvas

“Getdebugcanvas:TCanvas;” returns the canvas of the debug image
“GetBitmapCanvas(Bitmap:integer):TCanvas;” returns the canvas of a specified bitmap

Finally doing something with canvases
“Copycanvas”
This is where things finally get juicy, CopyCanvas takes a part of one canvas, and draws it onto another. See the example below

Copy this into scar

 
Program canvas;
//handle for the bitmap
Var bmp:integer; DebugCanvas,BmpCanvas:TCanvas;
begin
DisplayDebugImgWindow(300,300) //to show the canvas
Bmp:=LoadBitmap('C://windows\blue lace 16.bmp')//loads a bitmap
DebugCanvas:=getdebugcanvas //gets the referance to the debug image and stores in that varaible
BmpCanvas:=GetBitmapCanvas(Bmp)//gets the regerance to the bmp and stores in that variable
//CopyCanvas(Source,Dest:TCanvas;sx1,sy1,sx2,sy2,dx1,dy1,dx2,dy2:integer);
Copycanvas(BmpCanvas,DebugCanvas,0,0,30,30,10,10,40,40)
//copys the part of the bitmap canvas in the square 0,0,30,30 to a square on the debug canvas 10,10,40,40
End.

There you go, possibly the first example of canvas use you’ve seen
more
There is a third canvas, possible the most useful
Getclientcanvas:TCanvas;

Remember when you use that crosshairWhatever you drag it to, that becomes the “client”, all mouse co-ordinates start at 0,0 on the top left corner and findcolors and bitmaps start in there

With this, you can copy a part of the runescape window onto another canvas, on a bitmap canvas for example, if you save it, it becomes a procedure also known as SaveScreenshot(path:string);

Heres an example of its use

 program clientcanvas;
var x,y:integer;
begin
DisplayDebugImgWindow(100,100)//displays debug image
repeat
GetMousePos(x,y);//gets mouse cords
CopyCanvas(getclientcanvas,getdebugcanvas,x-50,y-50,x+50,y+50,0,0,100,100);
wait(10);//copies the client canvas onto the debug image
until(false);
end.

using copy canvas
The first two arguments of the procedure are for specifying the source and destination TCanvases, the next 8 arguments are for specifying the source and destinations postions and size, see the below example for the explanation for size

 program clientcanvas;
var x,y:integer;
begin
DisplayDebugImgWindow(100,100);//displays debug image
repeat
GetMousePos(x,y)//you really should know about this procedure…
CopyCanvas(GetClientCanvas,getdebugcanvas,x-50,y-50,x+50,y+50,0,0,200,200);
wait(10);//copies the client canvas onto the debug image and changes size
until(false);
end.

if the area of the destination is different to the source, copycanvas will s-t-r-e-t-c-h or compress the canvas being copied.

Well done, you’ve read to the end of part 1, stay tuned for the next section, FastDrawing

Fast Drawing
Fast drawing is another way of using canvases, the procedures use a different way of copying the canvas, as a result, it is faster (hence the name) and it can support some colors becoming transparent (you can see whatever is behind them)

The way fast drawing is meant to be used is that you make a bitmap called “buffer”, then you fast draw all the other bitmaps into this 1, finnaly you use another procedure to draw the buffer onto the debug image. here are the advantages to this
1.speed – the path between bitmap-bitmap is much faster then bitmap-debug
2.flickering – if you draw everything individually on the debug image, the picture will flicker and look really rubbish

fast draw functions
Procedure Settransparentcolor(bitmap,color:integer); makes the chosen color transparent on the chosen bitmap, when I draw images to go into scar, I always make the transparent color to be black, so I just put 0 as the color

procedure Fastdrawtransparent(x,y:integer;sourcebmp,targetbmp:integer); draws the source bitmap onto the target bitmap at the cords x,y. if the source bitmap has been run though “settransparentcolor” the chosen color will be transparent and parts of the target bitmap will be shown behind the source

procedure Fastdrawsizetransarent(x1,y1,x2,y2:integer;sourcebmp,targetbmp:integer); same as fastdrawtransparent but can specify the 4 cords, the source bitmap will be stretched or compressed to fit into the square

procedure Fastdrawclear(bitmap,color:integer); totally overwrites the selected bitmap and fills it with the specified color, I use this mostly on the buffer bitmap if I want the background to be a color other than black, e.g. on the program at the beginning of the tutorial, I used this procedure to make the background green

procedure Safedrawbitmap(source:integer;dest:tcanvas;x,y:integer); at the end of the fast drawing, use this procedure to draw the buffer on the debug image, e.g. “safedrawbitmap(buffer,getdebugcanvas,0,0)”

procedure Safecopycanvas(same arguments as copycanvas); exactly the same as copycavas but is called in another thread (called thread-safe) I don’t think this procedure is very useful for fast drawing, you have to fill out many more arguments which is pointless because if you wanted to change the size, you would do it in fastdrawsizetransparent. But it could be useful for people who want to use copycanvas in a thread-safe way

function Fastgetpixel(bitmap,x,y:integer):integer; similar to Getcolor(x,y):integer; but gets the color of the specified bitmap, I don’t have much to say about it because I dont use it so much, but its used in RadialRoadWalk to get the new road color

procedure Fastsetpixel(bitmap,x,y,c:integer); replaces the pixel x,y on the specified bitmap with color c. I suppose it could be used as a less destructive fastdrawclear, only coloring half of the bitmap or something

slightly more advanced canvases
a variable which contains a canvas contains more than a reference to it. A TCanvas variable is also an array for all its pixels
the pixel array generally looks like this ”tcanvas.pixels[x,y]:integer;”

 program pixelarray;
var 
  pic,x,y:integer;
  color: integer;
  piccanvas:tcanvas;
begin
Pic:= BitmapFromString(20,20,'');
PicCanvas:=GetBitmapCanvas(pic)
CopyCanvas(GetClientCanvas,PicCanvas,0,0,20,100,0,0,20,20)
for y:=0 to 19 do
 for x:=0 to 19 do
  begin
  color:= piccanvas.pixels[x,y];
  writeln('pixels : '+inttostr(x)+','+inttostr(y)+' = '+inttostr(color));
  end
end.

the above program writes every pixel into the debug log

a practical use for this is in the SRL mining include {.include SRL\SRL\Skills\Mining.scar} it is for checking gas, Piv cleverly used this to check if a canvas copied from client is different from a canvas copied 100 milliseconds later, therefore meaning that gas is coming from the rock

 copycanvas(clientcanvas,gascanvas1,gx-20,gy-20,gx+20,gy+20,0,0,40,40);
  wait(100);
  copycanvas(clientcanvas,gascanvas2,gx-20,gy-20,gx+20,gy+20,0,0,40,40);
  count:=0;
  for yG:=1 to 40 do
    for xG:=1 to 40 do
      if((gascanvas1.pixels[xG,yG])<>(gascanvas2.pixels[xG,yG]))then
        count:=count+1;
  writeln(inttostr(trunc(((count)/1024)*100))+'% change.');

as you can see, this function compairs the pixels from two canvases,
you may notice that FastGetPixel does exactly the same thing except it only works for bitmap canvases

conclusion
Although canvases do not have very many uses for RS scirpting, for the things they are used for, they are very effective, the canvas used in RadialRoadWalk can pick the drasticly changing roadcolor :D

I know this is a lot of writing, and i wonder how many of you will acctually read the entire thing

My last
kaitneiks has this section in his form tutoral in the scar manual (copy into scar)

program fastdrawscar;
var 
  truck,truck2,buffer,f,x,y,t:integer;
  dir:string;
begin
  truck := BitmapFromString(49, 41, 'z78DAED5A5976DC480EBC52E' +
       'ECB67AEF73FD22002C92ABA556A4BF64C8FE536F11E542A952866' +
       '30020824B5B79163FF833938DB2477BB8CF1D3967FF6AFFF9AF97' +
       'E786F83313344C9DB277967C42058B960D6B79FFCF760A26B2FC3' +
       '0B5BEAF0F2BADB20D06C9BF8F9245F568FD398D643B83E539CF7C' +
       '608DBDAEF8B5B30B64A4EB61B93AD1B8243030E8AC947F25C5150' +
       '4DD195EB3C7ED8FCDBA869A0C2CC1665456BC6F5E0CC48E13328E' +
       'D9E844BDBC47D9D67F408660E6BBF26BBF40805D75FBBC7FB1EAB' +
       'FB04261FC86B2741BEB52C684761EBD744293690A62DEF6445352' +
       'A13A091103BB9E43F85CC4A15393766601E8A9C79D42A3985F845' +
       '51923A2BD71F2C18D537B01A6C60B30579679767ADFE184AE0CC5' +
       'EDD210FC97334D4288BAA6EBAA95FB39E87087CD2800B8AC5CACD' +
       '8E09392759A2992E806326A05E65F4FDDD6EB8AD8CD7AB6666D4A' +
       '258058D12F0CBA947F94C1C4190B180FC0BD7F05CE10FEB74828C' +
       '4B281CD2DBA4AF0978825BB50E5DBE3BA8727A0BACA223C7A4036' +
       'E573CEA73959F0E5745A12D09F9A2EF3ED8E63A63230CBC41FBBA' +
       '3D4E516A0B28493F134C5A813A64A1B276D78198702BC2694BC93' +
       '2BD10AB829A333DF8E3875BF04860A06B2E89AD2A29A7D022A207' +
       '842B882FE61813D62B600826DD213707947C234A51BE4A7582BEC' +
       '2843FF4996E61E3A7A2476068E18B96CFC29F129D20990D5DD696' +
       'B3B55EAB18F5BEBBC9B9F2703C7E7D27201A90357AD69C345DBF1' +
       'C91D69C9A819254A8809562D57D78E86EC9F24DD033AC53EDE528' +
       '19155EBAA1D49C615898A3CBACFF134CAB01F34B95A926EFE4A58' +
       'F0E2B1C135E4AD88AF8D59813586174FE9A931C48ECF21D8EF12D' +
       '4AD2AEE51D714EA8BA42110C6C4F7CF8FD416979388792817FB64' +
       '6DEA1F932C37A39FF40972CC24C9975E4EC5D204B083DDE5EE7C7' +
       'D7F5F3C808AF31235420A39DAB6CCC0B73B14F39741C993BECE58' +
       '5DEA204E5708ED3A1E5E5A128CD844A2ECA94BFEFCE8C036249E9' +
       '925C036693BC80A11D54EB102ECFBEB250AC8624BC4A52B8EC463' +
       '994E988F11637E13DD612313DD9697E72DED13B2E6B96AF522FC1' +
       'FF0C7CDEE6518E5E805E47AF6F1E539B9FDC0FC1B5181729C8483' +
       '9BD83D2584049AB9C1E168B45179033E702360A1698E6161DBEF1' +
       'F49C096E536E15EBFFF2A6BA9C4590D5772B4602FDD40DE7AF754' +
       '5079C3B3AA591D97BFD1C8B3C1D9B2845AE3C7B602E0EEF652E0B' +
       'D5690C5DA9C7EB858E36333CF32CC5A2A7836982D4FC144A1BBAA' +
       'B5C63EFAEB15259A01126BDFD204A4FAF25D293CB69595CED1C75' +
       '4ABB284D3E3352C5FDCAB877FF5D9402EF3AAEE07B393BAEC5832' +
       'D3561CE6D0DF55CAA16D6E281CF9898E94A47E52E166B14D826CB' +
       '527DD4250BDF9817D49932149187A37BC7B5AC18B0AB5070865DE' +
       'F5E3415A2541F53CCC27D115FAA199FF170A7CDCADD3639A22624' +
       '8FEB4C097F45BAEDFED19A76508A8240926B96DA20593ADB37390' +
       '997F20BDCB823D41DD8DEAB43E7CA1E5E7A65DCFD884165342825' +
       '50CB953ADD09DCD059667AF88779BDCF4EC79F164E8551914993C' +
       '8707E297CA7284A9CFBD2BA2149D63578DA82F7E5DE38BA3BB88E' +
       '826B70D56967693F8092B844BB70AB05102996C9DE73AA2EBAF88' +
       '2637A0DAACA84AA52065559C11FD18B47C6AC3A7D068B6A368F59' +
       '9898EC4835E96BBE5FB397774285FA66CAF9AF98E8C4A7B829262' +
       '9DF50525582BA05D5C0D06D099F12981078D79A05AFA0E84FA034' +
       '3111E412A5E7E795A74441A485888C94834492A2E9EBC9C566FB8' +
       'A5D167EFBA8B282E78D1C9B1D68AC484751819B4C76F6B13A2A4B' +
       'DFCF7450D205A0C16BD544095E547068AFE6E55155E3F0FF9A336' +
       '7F03C8086E636896A18F25349E3537B20A089CBE31615913A226C' +
       '847A95EC118A5E6AF826A17CDA93DF536506C7BA8167D0CA2C940' +
       '9DC6D8B0F952DBC9E0E9D44F06F40093544EBFC8BDD27EED4892A' +
       'E395CBF0F9FA2DCD8ACCB73B0FA8003B62832FA5F029944416121' +
       '8B9AEC88CC2C88DA1EC6A88839B8F3966B14B3B6ECDA961E67AA9' +
       '4A7BE951BB7C69E449F67C6A0027A9D549BAA7FF184A8DB64CBC8' +
       '7BF72F670FED23BEC95171DFE5F76B180CC6047EE10BF589BEFEE' +
       'C91C3F3910875190915516C9E4F9881C19FC2605C6646C866124A' +
       'A7290639A8B9578811B27BBA3CA0E4C9A87E31A1EF3EF5B9446C2' +
       '6C28FD315EF9A829A1CB6BEE26BCB7BFA79AD53C9EFAED9C438BF' +
       'B204A150136C4DD1C4235150683543B58AD5BA82A074219C831C2' +
       'B380056563EABEF926B5553AF0C9EFA9D2A3BAB64D6F60811E36E' +
       '2B8C3803B1E808CA3FFD5AC13F74B4CE273E733F547075C85AF6B' +
       'BB76B40E4A137B3876DBFA3DDDD986081551068263A5CD1DA1C4E' +
       '136468FF619CAA2A34A227698A6B8E967C417C5247A1C71684EDC' +
       '3B7AC1AE4255B28289936011877B771DDE3B37B4E14107A5F9859' +
       'ABEF154453DC37CE64AF41A3B669F57DF5C0DBE62843AD8F5FCDF' +
       '4E2812BA93131945BF9988EC10E87F319C8AA45A231AA93CE3B0E' +
       '8AE4A7EE6A8D8315228A1881E85A027F396C479F658D0732B9C4C' +
       '9C96730AE72332EA2526F9A626B2259339957BA18D6EB38D1B627' +
       'C5DF593F1E1513B50AA9C8042F7FD9506AFE1016127428B906255' +
       '0B42D70836C4513742D7AE1C3BAA047162DEB760E557548F2A2D3' +
       'D98FE01456FF8E9D1EDC49F0A6F9C0C2E74CBD2EF1ADD547F474D' +
       'ED39D91DB6A89AC68D39CCBD3DD0D3F34C3E057351679F86599E2' +
       'EC5A19E573AB4EF542A16142E2569BD121E221C828412AAE1A806' +
       '41773555AD5AC7B40B68283E4795EC92876954ABF233197E5D405' +
       'B7A156AD7FB2871BDA824172BBE5113B5D65571E1C696FEA85197' +
       '378377E24E699AD87F9069194AEFEE87F70DAC7B868AE630CD323' +
       '6E2A8924798885419DA2BDB33EEAABCFC2A83A7C62C24D3D05B94' +
       '0E678E9AEC4D4DF586D87A322AFB1B2674A77858D506CE59169C5' +
       '50CD6FE6FF6E58E2A074231292833A136845627AD6CB523D4851E' +
       'A6F1387DF0D6251537F512B623E2B6DDC4E1D0D7C46DF2C96FBED' +
       '593B7CCC94F37AECF94033CA7384FCC831B67288ED36EF9911DBC' +
       '1FC44D55C9A07168A4805577AAAF15BDC33462727C85AA7222B48' +
       '71E6CB573B2B485E89D1BA2BFC0670A91D35FBB7AF7D5BF74BE53' +
       'F46E6A0AD891909968524D953B54857B83FFF7FF3A388AF408171' +
       '0876924DFF115AA4A2DF1EAF059D3CEB4C8BEA02ECB0F84E5CE79' +
       '0B980197D7BA74D4F474E399FFE7A36A5A98CBCAA69A50DF7EE9E' +
       '72C6AC38F2A599FD528D481D07A1E1642B97482186A55F7056107' +
       'F7B2AAD3E7C58FAA2B950A0858CE719C040B9E6819FE63D417FBB' +
       'F8B53C1183A019162CE6BA9AADC55D0E986E4D2DAA536EDEC63D3' +
       '673AEEEB168F49796C3899BAB1A3921676D9A50057CE32E977F91' +
       'F27AB8796AD8538D58CCCD1E76EEF3EED6AD88FCD91C8F4DF0793' +
       'EFA8F29DE3E3BFFBE77F32FFE43FF94FFE77E6FF00511B1787');
Truck2:=CreateMirroredBitmap(Truck);
SetTransparentColor(truck,255);
SetTransparentColor(truck2,255);
Buffer:=BitmapFromString(300,300,'');
DisplayDebugImgWindow(300,300);
Dir:='right';
t:=truck;
x:=10;
y:=10;
repeat
FastDrawClear(buffer,1610776);
for f:=0 to 50 do
 begin
 FastDrawTransparent(random(350)-50,random(350)-50,truck,buffer);
 FastDrawTransparent(random(350)-50,random(350)-50,truck2,buffer);
 end
FastDrawSizeTransparent(x,y,x+86,y+76,t,buffer);
if(dir='right')then
 begin
 x:=x+2;
 if(x>=226)then
  begin
  dir:='left';
  t:=truck2;
  end
 end
if(dir='left')then
 begin
 x:=x-2;
 if(8>=x)then
  begin
  dir:='right';
  t:=truck;
  y:=10;
  end
 end
y:=y+1
SafeDrawBitmap(Buffer,getdebugcanvas,0,0);
wait(1);
until(false);
end.

EDIT: who gave me the tutoral writers award? :D

I'll read this. Thanks alot for making it, Yak. :eek: :D (Canvas has been always confusing the heck out of me)

how come no-ones replying, i spent ages on this tutoral, and i see other people get 5 or 6 replys for teaching about something that doesnt even effect a script, :fiery:

my tutoral is detailed, i didnt think it could become too detailed :duh:

Well done, i cant remember ever seeing a tut on canvass for scar so this is quite useful at that… When i was tryin to figure out canvases i had to research delphi canvases and experment with them until i figured out what workd for scar… But bravo good work on the tut :)

i changed some things about the tutoral to make it slightly easier to read

btw you didnt mention 2 hidden delphi features that work in scar

  TCanvas.Free;
 TCanvas:=nil;

either way will destory your canvas contents :P not sure how useful they are but they work…

thanks for that dankness, i didnt know about them, but when i tried to use them, i couldnt get them to do anything, the scripts compiled ok but a got some strange runtime errors which iv never seen before, something about a problem with a dll, and it caused scar to crash, then i tried ThreadSafeCalling them but it wouldnt compile saying that there were in invalid number of parimiters,

i think if there are canvases that need destroying, you can just write over them, use FastDrawClear for bitmaps and just copy blank bitmaps over other types of canvases, :f:

I've always wondered how to do this, nice tut. :)

Thank God you made this. I've never really even had an idea of what to do with a canvas until now.

That was a great tutorial, I read the whole thing! :D

This is a usefull tutorial.
I have been doing alot of stuff with canvasses',
and most of the time I get stuck alot.

I was wondering, if I would like to pick 500 Colors, would it be worth copying the client to bmpcanvas and then use FastGetPixel?

i tried to make a progress report style of canvas by using

CreateBitmapMaskFromText('*TEXT*', UpChars);

i got it to say hello and stuff then i got too annoyed and gave up …

sorry i havent seen this tutorial for a while

wizzup, yes, fastgetpixel is a lot faster than getcolor, if you've doing a lot of getcolors, use a canvas instead

jukka, i dont understand you question, please rephrase it :p

From: Yakman
jukka, i dont understand you question, please rephrase it :p

It wasnt a question silly :) he was just saying he made a sorta progress report in the debug window ;)

Very nice.

Good Job Yakman… Ill I have an odd feeling ill need to use Canvas's sometime in the future *Bookmarks this page*

simple noobish question cant get it to work but here it is anyways..

How do i make normal colored window example i want a red window how would i do that?

im assuming you mean the debug image

this is the way i would have done it when i wrote this tutorial

const
 Width= 400; //size of your window
 Height= 400;
 ColorRed= 255; //which shade of red?

var
 bmp:integer;

bmp:= BitmapFromString(Width,Height,'');
FastDrawClear(bmp,ColorRed);
DisplayDebugImgWindow(Width,Height);
CopyCanvas(GetBitmapCanvas(bmp),GetDebugCanvas,0,0,Width,Height,0,0,Width,Height);
//FreeBitmap(bmp);

this is the way i do it now

const
 Width= 400;
 Height= 400;
 ColorRed= 255;

var
 Canvas:TCanvas;

DisplayDebugImgWindow(Width,Height);
Canvas:= GetDebugCanvas;
Canvas.Pen.Color:= ColorRed;
Canvas.Pen.Width:= 1;
Canvas.Brush.Color:= ColorRed;
Canvas.Brush.Style:= bsSolid;
Canvas.Rectangle(0,0,Width,Height);

WOW yakman, this is Awesome! Awesome tut, and canvases are awesome too :) thanks for making, I'm going to do some messing around with canvases.

Nice,
Canvas Are a blast :D

i feel like learning sumting :) Plz answer the pm i sent u

yay page 2,
answered your pm

Oooh, nice tut :p

I only really understood the first part of the tutorial, but I am gonna go and try to understand the second half once I'm done posting this ;)

program New;
begin
DisplayDebugImgWindow(50, 50);
repeat
CopyCanvas(GetClientCanvas, GetDebugCanvas, 12, 17, 62, 67, 0, 0, 50, 50);
Wait(10);
until(false);
end.

http://www.srl-forums.com/forum/images/smilies/google.gif

Thanks, mate ;)

*rep*

THANK YOU! i now understand canvases more. now all as i gotta do is figure out how the box solver works and figure out what processpicture does. do you know how process picture works? if so can you explain it to me via pm? thanks again for the great tut.

whats the use of canvases?

1 Displaying
2 Taking a snap shot and searching on them later

From: XcanadamanX
THANK YOU! i now understand canvases more. now all as i gotta do is figure out how the box solver works and figure out what processpicture does. do you know how process picture works? if so can you explain it to me via pm? thanks again for the great tut.

well processpicture is in pup's plugin, you really need the source to see what that does, but heres a basic overview,
it finds the center, then moves outwards and counts the number of corners, that tells it the shape, it also looks for the number, but i dont know how it does that, im not that good at delphi

thanks. and again good tut!
edit: too bad i couldnt get the source of the box plugin. could help me in my little project:stirthepot:

Thanks Yakman. Please run this :p

~Raymond

program New;
var
Test:TCanvas;
I,K,Buffer:integer;

Function ChangeTheColor:integer;
begin;
  If(I=7) Then I:=1;
  Case I of
     1: result:= clred;
     2: result:= clblue;
     3: result:= clpurple;
     4: result:= clBlack;
     5: result:= clyellow;
     6: result:= clgreen;
  end;
  I:=I+1;
end;

begin
  I:=1;
  Buffer:=BitmapFromString(250,35,'');
  FastDrawClear(Buffer,clwhite);
  DisplayDebugImgWindow(250,35);
  SafeDrawBitmap(buffer,getdebugcanvas,0,0);
  Test:=GetDebugCanvas;
  Test.Font.name:='Arial';
  Test.Font.Size:=20;
  Repeat
    Test.Font.Color:=ChangeTheColor;
    Test.TextOut(0,0,'Thank you Yakman');
    Wait(100)
  until(false)
end.

Nice tut men but i still having alot of trouble lerning it i get the stuff but u should put more pics for more better tut if u do it would be the best tut ever! really but thanks its kind make sense but i dont know how to make one :rolleyes: :confused: well anyweys thank you and pm if u can help me how to make one :) :D

Srry for gravedigging (I figured no one would really care because no one really posts too much in this board…) , but I just wanted to thank Yakman for this brilliant tutorial! It really helped me a lot, and it is going to help me a lot too!

Nice one…
Now I understand what canvases are…

Maybe in next century I'll make compiling script with canvases:D
Thx Yakman

good tut but i have a question:

how do i make the background an actual image, not a plain color one without leaving a trail where the moving bitmap goes



Heres the script:

program New;
var
background,moving,x: Integer;
procedure LoadBmps;
begin
  background := BitmapFromString(506, 491, 'beNrt3dmS5TiORVH//5/2fmir' +
     'tLAIHzSQIIZ1Hqsy/BIHwBYlUeTnJxERERERERF9vBMDiYhKgD3h3yQiojccn' +
     'vDTRETTCG9gREQIb8BERLWYKQoiIpAXFxERGIqUiAj6xE5EFMM6PrCCiMCNLU' +
     'REgMYiIqKcHGMCr4jIfJWYRkSQxUAiIphiJhERNDGWiAiOmExEdItCTOA2EZl' +
     'tEtuJyCST+E9E5pYkEURkSkkyQkTAIi9ERJAiO0RE/5IETKSJiEwaSb6ICDpI' +
     '1ogINEjuiAguSAaJaB8lgEIqiciEkOSUiGCBZJaIAIHkl4iggGSZiECA5JqIt' +
     'D/JOBFpfJJ3Il1P8k5EWp5kn4g0O6kBItLmpBKISIOTeiAirU2qgoj0NakKIt' +
     'LUpDaItDORCiHSyKROiEgLk2ohIs1LaoaIdC6pGSLStqRyiEjDkvohIt1K6od' +
     'IqxKpIiJ9SqSKiDQpkVoi0qGklohIe5KKIiK9SSqKiDQmqSsi0pWkroi0JBNI' +
     'dRHpRyLVRXS8lb6TZiTAJ+rB85+b6Mo/1IYE+ERJIF/07xOhPdGV2XhYAwb/K' +
     'AE+Ecgf7z7YJ7QnagP5K60H+wT4RKs4X6LvMJ/Qnqgo5x80HeYT4BNVBOazkW' +
     'A+oT1RLUi+GQ/mE9oTlQDjkiFhPgE+UXIYLhwY5hPak2KeMzzNSwqGTOmHNJp' +
     'JPgE+KeA5g9TCpFRI9Q4Zpy4mdUJKd8g4NTKpE1K0Q4aqkUmRULNyrVWxkaP1' +
     '3pbQntTqnAHraFIepEqHjFlHk9ogJTpk2JqaFAapzyEj19ekKkhxDhm51iZVQ' +
     'cpyyOC1NikJUpNDxq+7ST2QmkR70llECrLN+DU4qQdSikNC0OCkGEgdDolCj5' +
     'NKIEU4JBBtTsqAVOCQWHQ6qQFSgWhPeo1I+bWJRbOTGiCFNyQcza7pmEAKD+1' +
     'J0xGpujYR6Xd9R6Tq0J70HZGSaxOUltd6REoO7UnrEam3NkHpeg1IpNjQnjQg' +
     'kUprE5eu14NEKg3tSQ8SKbM2oWn8NuX3TKwjbEF7KgT2x0l3CSBgmROd7q7F9' +
     'oCM4z+hCtpTMOSTZBz2CVXQnqpAfknGYZ8gpXSAmncC5NemG/YJ7Q2ebtEy3v' +
     'y1v+jxPqG9wVPOKfG+X4d9mpD96jHq0PaQj8w17KO9GI1f/Y8aj7pS7WI0/jl' +
     'T+uG5NslHezEaP87PyTXmQ70whYDzcxKN+TAoTCHg/JxEYz4MClMIOD8n0ZiP' +
     'gSIVBc7PyTLmY6BIRcGuOcNWeNpBsEIwpR+SYpN89BCsEEBpTooxX2kJVgj8m' +
     'ROCOlRaghUCc4ZEoRSVlmCFwJkhgahGpSVYIbBlSCwKUrIEK4QwQ5p5UvHrAG' +
     'WptMRr/NwYEpHKlCAhC4EPQ4JSmbIjZCEwwb0nSY2QZe1u+I0d6FGfmK+0hCw' +
     'EsQ8JEPBlRMhCEPiQGAFfOkQta6IeEiPgy4WoZU3IQ8IEfIkQtayJd0ikgC8L' +
     'opY1wQ4JFvBlQdTyJd4JkaK9LIhavgQ7JFjAr5uCj3dSeFpGpNPiBfwS/i/H9' +
     'Vn+o70whSxMNfYljWNGEvmLjqgWo5AFO7nMkjxpCRgJ2gtQ1OKdZnuex+m/jl' +
     'C9ob2oxUvZJs/5x1yx5KzTE7WoO02wt062//rLdae47/1Be6EJXODBVF/7T27' +
     'hscGHpY+xj/biErvYMz9/uPU3L15Qxppc7kGWlhc7B4ZA/tavXF9LP7Z40F5Q' +
     'wmfCS/bGj//x056uN1NoLyjhM+EsYRJebrpi5EpcVWKHeuGzwlC/g9vk6f115' +
     'qO9oITPiipT+h/G0Gx+u8ki7SAiDnCjLudbzm832VVlXqG7hc8QnH//T0Ztpf' +
     'v4kVfM2MrtII11HGjpSZJH9Mv/7fCdOsLCfwbt6x9WlLgWAB0HkjtTdEp/8Y/' +
     'M3GZ29w4Sq8D7fo8Ip8lgGmfGjgHw/4p6Sfg7oLp1uyRHyUA9fyZcbtI+vj7i' +
     '7ZJDG4uWn3Nk0J4/GVITdqjH8O1K7n6A3BWPu7dghTI8z+nShCecgH/xwnrk0' +
     'cfxu1pnCkB9e6NGvcz6L1jV+N2C/FPOZFsdinUc6Ee/gYUB+H85f3wFS87Fk6' +
     'MOFIB6tG85ALRPAvkSfLDVKto3cCzDk9Kz9o5divnnE63jwC+0gc/Fg3WAi1K' +
     'ZpsGLfom/NuQM5/Z22vQb6ziQzTeonwb8K4CauRhsx6UTsiiJe1A/qj5v7Qt6' +
     '6o15D3uxjgOp3IP6OSX67BzDOWvsl1vtiT1io33yYph8Xu2XDoxaAAz4stnSQ' +
     '6gfMsl874BtZB6HM5P5UJ/KRqjfAck2IcTvFNqV9jOZj/Zo/+k41DqXqkjg90' +
     'b9NOZDfSozob5l0S6HSQzwp50825v5UI/2aF9xtGi/L6LGS78gOo+fUN9szGE' +
     'HAezw5GA17jvN9vpK1yGPsGgU7YuWQf5+PLJapsTLo8cHlL882fxuUJ0WgIFz' +
     'KmOhvg3wIwe2A/g7Ph4JOHjl11958NM91oDBcipvob4H8I+MZy3w1342cvbUl' +
     'b9+/eU5v1BPRWnfowxS7Yec6kOJU3V45PDEmCFVXAkGyNlMNrFvML3Ptq9RMO' +
     '3zb0ew5JgAi8GoHO2bbXtyfF6d83ITUIeF9pz58hPaxk/yoR7tP1tvezK8p94' +
     'A/0HRFiqkH4b6mPlQTw/ctnXtqohcN58B/2659nuC/SAoW8XS7jmVSsgA/MzE' +
     'u7tJ5q1a7b005cEG1A79oZy0H/JJuD0hrxsy4dvS3Q+pUq0+wt7k0wnFcOTxR' +
     'WMPL9L+4kOemZ8X3QrcGmC0h/qzwG92fORC4F8xp81eMS+/NUs4bYN6tJ9cCW' +
     '+mr109/A740/aBDNtKwjlEaI/2ZwOM3Dsxsy0XP0yw/eMbWywDRnuorwv86vS' +
     '7vmCp61key3f+SVUwUI/2aL/EhGa7Ce2+A+qN+oS37VDfmz/q4c3ltejKuoUz' +
     '0lVbAU+mfRLgQz3ao33kf1bIlu92hpm2WKsB8IecmY72UP8+2CtnJDWb0n/3P' +
     '05+fV8U+DiP9gpj1SeT7Q95ufIYH+0XTrMnLwPGn7A65Pbdbm3w3ei05fQZIo' +
     '0B/t27132HuRPa1+3rBo1w66vPOV2fZ+Xb8pOzHvPchSC4AKAe8OM5/3nhpa1' +
     '6yAb8f28/9yUO9ncUwPGXR7r7u39YqNpfrilNdapvj0ZYDvy/DliMvFVBfrTv' +
     '193fvatNW+oPxvbz2kufVkVegh88fi9Xb/iD9oVon7DU34zk19VH9kwI+93rz' +
     '9UbTDPw53P8Bux5Yn+2ziG+v16+krjyf9kP7Tjwqzw/wXy0L9fdb57zby34hX' +
     '//LnbsdXwE+P+lu9YZCpiP9iW6e+FGuA/Ws8WsiH720tA5JsHAL/29G+Cfov1' +
     'w57MdLXd2YfPLHYF6fFOcfAwVp/Qm+WhfqLvtGHDxv+y0t3+2YfzJ+cb7MuHP' +
     'vlL0GIdFy29z6nZxTtr/y/lm70qsCQwoRRdWLj2L8eLWOtVP5s0wki/n8/1q0' +
     'rf8aH+8wKD+/Y1ArUUj2Sa9jXdeNclH+zytDfUL7wVKmJlqbj/kVIXJUAqjvX' +
     'fiA1tpYYxb7wiGo+bXkyIBH+1ZivZhBbBke0acuWKRs+DRnp9VrEb7Ksw//i3' +
     'tg0f0gA9BzHzsANSH/YVsVh/cFe3KYZEDgT/5PIVVsUP9ZNR/hh+E9wZ0jWl/' +
     '6/SosR09NjS0R/s82V9+s3kc+8H7Y9z60cmvmWY+rUL7rT5DfYYqOov94H1KF' +
     '+7LB/j9IsrwxNXEXtcEOHYE+zu+aln1hZRVZGiP9ib2B1EWM+ww8i/f13rtb5' +
     'neoz3av3TAy9kqtbSb/O8PrNm6/9LwD8AHHp1zcKW0ib1OyePbjlMArvfgm5/' +
     'e9xWz5zloj/Ym9hN2zH5/EMyX5bH2srL7nwM+2kP9lw5AffvW+3inhHYB/pyD' +
     '0tAe7dF+sldo/1n/rMaASD3GgXpN1+DKCPhoj/Zoj/Y5Iwr+0sH0vtPIY86hg' +
     'HodgfZF/ybgdxp2yxMlwuxFe7RHe8nqSnsTe6jXcfHhHHwRAPidxhzztN/EXi' +
     'OY3qM92p8dMNqb2KN95oiOvyIH/E6jvf5vZ9LexF6vdaW96T3ao72JPdpnCCr' +
     'Jpp2A32mcMRvsmNirf7TPZgva1wozbBYxjfZQr8va017voz3ao70uOxhXNv9N' +
     '75sNz/saqEd7tDe9HzK84Scd/Bwp2qN9TFw5z9I1ve83th/+4OR0Qz3ah4V25' +
     'ABHwE8eY/Bue5NzjfZoj/Zo33JgM+e3UI/2x0M74oaPbvLHiPZo36DU0T6DG6' +
     'b3Y2n/+b/jOOd0pRcWaJ8hOrRH+1ND+vNXZq6d8BgH7cOiO2iFhzmZY4z/1G7' +
     'mN49oj/Zoj/ZzxvP/vzVzr0K0R/sJIEX7tDEeacmBZwxBPdrPASngo30/4F8P' +
     'BO3RPizA4z6gfc4YD3Zl9UQ7rgvt3UiifZUYjz/cKzrJvzts+/lDfWSkhWjvj' +
     'mzCGP5akFnowJdC37mg/UBvy7HF9H4U7Usw//HwHMuI9pHBVpxJmt7PvNb0+9' +
     'YY7dEe7dEe7dfOolNN6dEe7cfOl9A+T4Al6uHjDx0h/KqfRnu0R3u0n0z7z5v' +
     'LtAKwv+NXZqL+017H56IuugLErhe9++JZSewA8r5LCQqh/UDam96j/cKRfHyj' +
     'tf8EhdC+nNVoryMSWrpjMB/fa/i1Fe3RHu3RftrdjQDRvqvb1Z/TaorGHSG/A' +
     'ufzQgcm0P7jqeY0xcATEkWH9mhfmvZroX32EoD2aC9wPi80oceKu0gUh/1o/B' +
     'GByCAu0xi0T5WXPzGb5GOBHdhHe7QXO5/XYqpKDXwJ1WzLSBZaGnarggzi6ho' +
     '+2iek/a+7YJXbFLHKflloLy60Z/vBYVx/Kp4fVo/JHxBaiV7o17AQZCYzeXr/' +
     '58l0XT+zuhudz/bRHu35vAOzhTBYPacZblsKmYb2aM/nHsB//+t1c3rqiJmK1' +
     '0es4wCTF9oS/9XDkp8undbvJvkNlvHrXCBCe7Rfu5CyQVojV5aivXDQnvOfIW' +
     '8Gl09l26R11c1OS686NS8QWYGQxPl9nNn0mLrfxG/TQqnqj7yADu2ZvNyZHWe' +
     '9bc1Oy2UbjkBFe8BncoAzS+y6iKz3v9V1kd4q5vfwRxRoz+FN5oTNt9H+54jc' +
     '+KA92nM4J+3vzkjR/teIRn19hvZoz+H8wD+1IcyQFXqNt5WYEw4WbfWBvW8sC' +
     'nggg/a3wsmz0w5aqtVUVvA2Bi9nnzNMm8HGvPtGS+NHe8BfaDLaP4tlX0YA0+' +
     'ArWsHYgPlkhhUjMz+0rHXCi74GpStufPwoxoYV4V+G5zmeaexn9cszgpmGHW/' +
     'IrdOL8p9Y2m9KmW1OPnmdYbYD5WET7Z9NVx7/W8bGP0NA+1NRDKx2m3k24PyS' +
     '9Xhc3VeK5vbZaDBwbo/2bXIH+DlLce1TYm/k30cx9rl90aSD0vJH7n8+zGHvq' +
     'mrcscGCPnqJ+uFIQfsG4a9d6QH4uwHy5vmDPnoWgtVoFSMdy6JNx1t8d/nA/K' +
     '0X3+P7t4yi/eRvaUtHuuoZ9bMV6Wmj3jFdBPytd0bB+142S+4On629rzjUlzD' +
     'Pdi3YNzPZfUbStN7Ztwcm2j/mgEcHdcP84clDDJDj4b8JCG5v1yZo3/72Dl19' +
     'MEuxFL8Z7TM8e9k9hn33oadmlWh/12e0vzV4Z1e1CTPtA/Ydo9p3H3r2obHeu' +
     'T4jdYrBrcuiXeMahJn8LeqmoSaZrqN9wNz+O2Sh/ZVhH59oAf6OCXO59aKP6z' +
     'DVi1fA/9WZ5bRJ8oQwOZ32ueQBfjAnO1VpzMOTfctsAP9XT3asnIGyH9wOWJI' +
     'B+AfBWP3tUsC70U3uof2VeeamuwYrMD8PbfEB+Adh2OMbwCOLCpxeHdAj+7ap' +
     'XIu4olumxL+58wC/6KS3CvN3YNlahZju2L2V/djjqw6u0AD8U0ls5vymM6T2P' +
     'U8G/M+QHSd+XWc4Z1V5ks9qFPaRi3U/53ecIbVvrQjU73bp+n3usybyZY3Kj4' +
     'zR68Lv4kL7Bu0QPPG+C8Zan9XkGS3gh03pJ3i+/E2ctRynYj+10vUK9gt9h55' +
     'wqOo8Ej69ab/WKFusHAz87DOW/Aj99cKUsNI8wI8v4wkmLzEc7c9GnWGTimzP' +
     'Ri4+dMr8uEnBh/kzhParDPcwp0rxB2/WHbZf94MfzVxjTrmKfJgwh/afK05k4' +
     'H+VG9v470PXntez6q+V2PlQ5cd4Mor2Szzvem8VdspYAO2DP2Z87GqA4WhfLl' +
     'jb960N7aXnRZvxDV5WoSlgaYHdAMp1N+DHWDGT9u89r/LRfcyD5Yu/EnCVjK9' +
     'nL0CB6Fm/HDGh9wdWd/+D4Jdf+x7QHTznPaaYw46mgnoD3h1ytoO5+9H+8/XZ' +
     'Rql2wkz4dfyf49m3HvJgGedcxN7sLK32wM/zmqk37V96noH2JQ6d3DrI+JZJ2' +
     'zuNz0OfMMNnciTwg91bskKvViI2Ddv+vZ9djqswt+fw1tBeeh78Dyveqm89At' +
     'Xcvk0Xj12c47l9QGirvoIP2wqgwRGoayM6u4mBDYTFsjBMa3L2hbbW8N2P/eu' +
     'mKfIw9+AL4vGk1H0nO5n2Zzev80VtPPBvvVNojPrHMR7f7zED6mfeko964MDe' +
     '3dO/gCfqDxaItu/cWx87XNmyoCuU+k3p0T7MhDn2Bli9ZCuMHu286aKZ5Lbo4' +
     'Mdrk591mPzw9tfoInd0eXPv0Kadl5wbteTP9uiaIZxvDKU8a/AcWRgG/FoHDJ' +
     '2tqIU7TpfevNTO2CY/DrG6blES4A9B/WfKI+CXL/I3pUf74F5wQO0VW059LXt' +
     'lGNbRBU9sUm1whPO9obTjOUyes26zcf4s8H+dnXa9q1r+p3ZcQZIcGLpwYKpo' +
     'SBTvD0fryvmXMe57hmDtwa2/E3Ow+JFOAfmW3ZF2GfCEDfQOmpNhP/bSqA+bV' +
     'EeeZQPyoHRknlB0D5awidn7+6a/toLUoc/+SMyXUzseCZrGz6H9kV2bgg9jSg' +
     'v5Jbh4v9h7QpvHLDYLnjgtPMkXw9E+Ax5HHYoRcHzJd09vzO2XXIXP7nK86mR' +
     '26kf7bOfHFfJ2Xwfte9715V8OeOdYGvVV7pdBmOG1xvzlPCTV6Qxh06Tl88nr' +
     'rxettP+stpYM7dG+9IDz3IGeGsaq7SufrbTsxPwj+z456w3tjfYN9o+8BcsQ/' +
     'rOcvn8+Nmp/4+XBOugN8A31zWiXv3sq8TLryvD+fNl65b+Mn+6mLfV9ATr3B+' +
     '2Nc+GYP96pohVvwolfI5q52qufMAL1KDqK9nR3Hvv+WtNmklC9dPUFKPUrD1W' +
     '9aiq79v6inBtHRu6IN7Q3QoUdPJvd8XOZsf/vZ0edqldHIFLX8lDbb4wK28Vl' +
     '5vcRRwpYR4AS2qvAs9adZWzmV/CljyakQimwM/PMIsywFdJW9n73K2kX0+oFt' +
     'IdKFd6M9j9j+fq14Nk/RHuaSSQHbM2sw7ofTb+/Keg979ILiNS+NhT5LXjqxJ' +
     'Zj0wVqbEJtqHNeNYgd7VWarlfq5vZDimTmYc0qTeWrdrRHe/Wv0uBRwT/zB+3' +
     '7DVLlq7Rp5aHmL/oz1ii0J7Rn8qjyQ/tO41TzKg3tCe3RnoZXWu/yUPxXPBno' +
     'UstjQ1W7ekN7+tkQtO8xYNWu3oZXiBZA+wm0V+fqTYXogitWTHOp5fm5Kly9q' +
     'RCNgPa9aa/C1RsM6gUzw07xfjdsFa7eMFA7XHdAPRQdttpWbwCoI9Ae7Um9uX' +
     'kXO9o3GDnUqzf0Ey/aoz2pt7F1YpcA5nSiPdSrN9wT+IOQ0b7W4KFevYGewB+' +
     'HPMcctCe05zza8yT/4KFevSGe8NF+yNyepEzBCP9xpGwxtye05z/ay36eketf' +
     '9aavOYD2aE/qDe2nmXA3QLQvNGwtrN70NR/QvmWwvqJVaSjHCrRvn3enCas0f' +
     'OMG2qM9qTRNPdmQZ0F5dF9oqBpZpelonqB9m0gdUKjSkI0taN8+3c6XVGmwxh' +
     'a0R3uNrNJ0NGfQvkGwDpdUY5jGHLRvn2sH0KgxQOMP2rdPtANo1BiasQjt22f' +
     'ZDtVqDMq4hPbtU2wXOzWGY4wKGLxTvWqNRyOrMXXCJRP7iiG7QKsuHGMU2rfP' +
     'r5SpLhDjFXToRylTXWjPLrSvntw3A9DI6kqRDHcM7atE/fLXNbK6UiTDTUP7E' +
     'lG//2mNrK4UyXDf0D5/4Et+VCOrKEUy3Dq0Tx74ql/UyCpKkQx3D+0zB77w5z' +
     'SyilIkww30nU7a8Nf+kEYGB3USY2D1LXPVQ2T4ywtGC6O9UmEj2mfL446/r4U' +
     'xQalwEu1TJXHTH9fCgKBUmIn2E5gsZVCgVPiJ9kkyWPGWgVomRbU09tO5GMfT' +
     'V/FdAKE9Xbe04sZ3KmGtDzFlIGuIqloYi/YHE1d06T61z4iC6Wqsw6yPZC3ST' +
     'InT9Qomj7cl9ldUA0vciE+3xGGpguHwrZ9WA+8NqbuvGo1Kh7Lp6vCV35X995' +
     '7U3TCZ0J52mJxz+if7L2+LMl/KSS6UzRDmo/0+644vtZU4CFU53L7+W/L+zJz' +
     'SB5fT8Fwonq6TfLRfa12Sr+ckDjwVD9vRfp97zpWmBolQPI0n+ZmfSFTpi1Qn' +
     '18gaciohzL+VWRlPcjnWqlBv5MCC9sfT4WQKapkIVdSS+d+9bWT1xRSY21O/L' +
     'Kiirsz/90/J9S3bPbSnfllQSy2Zn3ZtSRWr0Z7QnkowH+3f21vxkBqSAuU0kP' +
     'l/LiZk5gNLfVRFaE8lmI/27220YQL1S4GiKgGrB2cRDs/sy0WVaE9oTyXwlXP' +
     '1eH7IJ2kNXQmM4qKLQJuW002fR9nQHuqFRnkQN3xuvztS5xJCvQAp27T2r5ez' +
     'vecnkXsdOHAc6oVJyTHYbP3Ywd1swn5UGx68P51jvjJrlsezeGxAeLRPUsYYK' +
     'Fi6ksH/Jvkl4J95nMfPoxlbxi2f16E97cjgl5eADFxNMowkDaL7DtJ+7HJlxd' +
     'Ysdxd3hvlBC3le/flS/Ek0w4sZ6sVOt7L2fqe1Z9Igmu5l1cEdB+hWviQ0eYN' +
     'IENAxgVblS07TNojUAB0faGGmJDRtg0gNxHGD1uZIQhM2iKSAG09oR3YkNFWD' +
     'SAescYY25UU2UzWIdAAafwhhXHkJylhEHiAkzIh3KJ0SBC/UJhcSejA1zIcvj' +
     'lFkFiT0SILYDlx8o3j/JTQ4TQyHLO7REedlc1+yLu5HSsEpIIgY67lshmWN1R' +
     'jFTDrrtmwGeMtkdHKjRBlMlkqdAvXE2yHeSiXaaxni8BBXpXKfpZjvkgpNlMp' +
     'PqdxqJijhPEBRHielcreNHFarLrIMTGKgVO52j8NK1NWWb4Y0J4+QhfPAxTED' +
     'm5NH+GKUvDAK8OdcsrUMc+SIOYY6xx9WM2TynIcnxjzNFohjgsSxAvDnGDLZb' +
     'ZUGdMIXxSgfPv6nUa4qMG0iZBGNjb03BkFeywhTdOL9DozVnW8TCMHFnDKeEG' +
     'nOGCvSEuExv1P2ZxZz71sYCAV5Ug/qufFlzsxZU1BMhRSaU6nnZsyvHsXHP+r' +
     '6o2TCb8bCIpn9GcVvwlz714iytaGq7mra2Mx+PJXCpk53iyp8n5/GQ0TL5yc7' +
     '/iHVnUvLL9HAawFzhkywJZ2IqME9mts0IiLXAiIiIiIiIiIiIiIiIiIiIiIiI' +
     'iIiIiIiIiIiIorW/wExb18d');
     
  moving:=BitmapFromString(20,20,'');
end;
procedure Draw;
begin
FastDrawClear(moving,255);
DisplayDebugImgWindow(506,491);
repeat
FastDrawTransparent(x,100,moving,background);
SafeDrawBitmap(background,getDebugCanvas,0,0)
x:= x+1;
wait(10);
until(x>=486);
end;
begin
LoadBmps;
Draw;
end.

I don't know if i'm gravedigging, lol

But i'm not 100% sure on how i would draw a dtm to canvas :S

i tried, i really did, but i couldn't get anywhere with it XDD

Nice guide, but please could you give a demonstration / example on how you'd draw dtm to a canvas please >.<!

Ty :)

Very nice tutorial indeed
Thanks Yakman

Your last example (fastdrawscar) doesn't compile in scar build 3.15B. Says it's expecting a semi-colon on line 117 (even though one is there).

This tutorial is awesome! I learned alot when reading and trying.
Thank you!

EDIT: How do I turn a canvas into a bitmap? :)

the debug window disapears after like half a second… Can u see if im doing anything wrong??

Code:
[LEFT]program New;
var w,h:integer;
begin
GetClientDimensions(w,h)
CopyCanvas(GetClientCanvas, GetDebugCanvas,0,0,w,h,0,0,100,100)
DisplayDebugImgWindow(100,100);
wait(10000);
end.
[/LEFT]

From: g0tp0t
the debug window disapears after like half a second… Can u see if im doing anything wrong??

Code:
[LEFT]program New;
var w,h:integer;
begin
GetClientDimensions(w,h)
CopyCanvas(GetClientCanvas, GetDebugCanvas,0,0,w,h,0,0,100,100)
DisplayDebugImgWindow(100,100);
wait(10000);
end.
[/LEFT]

You need to use "DisplayDebugImgWindow" before "GetDebugCanvas" =)

program New;

var
  w, h: integer;

begin
  DisplayDebugImgWindow(100, 100);
  GetClientDimensions(w, h);
  CopyCanvas(GetClientCanvas, GetDebugCanvas, 0, 0, w, h, 0, 0, 100, 100);
  Wait(10000);
end.

Just what I was looking for, thanks.

Hmm nice tutorial, gotta check it out from Beginning till the end :D

gona sleep after some mins though :p

+rep

This may be a gravedig but I really think it would be cool if you knew how to use canvases in simba.

I don't have any of those functions/procedures. There all unkown. I have the lastest SRL and Reflection.

From: death12652
I don't have any of those functions/procedures. There all unkown. I have the lastest SRL and Reflection.

That's cause this was made in 2006 man xD

Well I was reading Masterkills tut too. Ah well lol. Need knew tutorial I guess.