SRL Archive - OSR Script Requests

help with small problem


hkbell

2014-01-22 07:03:40

begin
try
Result := TMufasaBitmap.Create;
Result.SetSize(120, 120);

c := getTClient;
Result.CopyClientToBitmap(
c.IOManager, false, 0, 0, MMCX-60, MMCY-60, MMCX+60, MMCY+60
);

except
Writeln('SPS_GatherMinimap ERROR: '+ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

procedure SPS_FilterMinimap07(var Minimap: TMufasaBitmap);
var
W, H, x, y: integer;




That's the code, it keeps saying Exception in Script: Unknown declaration "getTClient" at line 52, column 10

kazhual

2014-01-22 09:30:01

Which Simba Verion are you using?
I guess you use 1.0 looking at your join date.

0.99 still uses Pascal which is used for OSR.


program new;
var
c : Integer ;
begin
c := GetTClient ;
end.

That script Compiles without any errors for me on Version .99

You can download 0.99 right here

And the OSR install is explained here

slacky

2014-01-22 09:42:00

If the code above does not compile, then (in the menubar) click "Script -> Interpreter -> PascalScript"

kazhual

2014-01-22 09:52:31

From: warpie
If the code above does not compile, then (in the menubar) click "Script -> Interpreter -> PascalScript"


Thats also an option, my simba used to crash when doing so.