SRL Archive - Other Scripts

Image Codes


Gwallunit

2007-04-18 06:38:33

Hey is it possible for scar to read an image code

and then enter it ?

Freddy1990

2007-04-18 08:40:28

Of course, if ur willing to script it…

SKy Scripter

2007-04-19 01:26:22

Yah i have done this before…. :D
but wow! does it laggg…….

Edit2: i hope this is what you mean….

Edit : here drag crosshair to somthing
program New;
Var
x, y : Integer;
Canvas : TCanvas;

Procedure CopyPast;
begin
Try
Canvas:= GetDebugCanvas;
Canvas.Brush.Color:= clBlack;
Canvas.Brush.Style:= bsSolid;
Canvas.Pen.Color:= clBlack;
Canvas.Rectangle(0, 0, 100, 50);
For y:= 1 to 50 do
For x:= 1 to 100 do
Canvas.Pixels[x, y] := GetColor(x, y);
except
Writeln('ERROR');
end;
end;

begin
CopyPast;
DisplayDebugImgWindow(100, 50);
end.