SCAR Code:
program test;
var
rscc:array of integer;
const
offset = 97;
uptext_x = 4;
uptext_y = 4;
type return = record
character:string;
x:integer;
end;
procedure loadfont();
var
i:integer;
path:string;
begin
path := AppPath + 'fonts\classiccharsold\';
SetArrayLength(rscc, 26);
for i := 0 to 25 do
rscc[i] := LoadBitmap(path + inttostr(i+offset) + '.bmp');
end;
function letter(x,y,x2,y2:integer):return;
var i,p,o,w:integer;
begin
for w := -1 to 16 do
begin
w := w + 1
i := -1;
repeat
i := i + 1;
until (i = 25) or FindBitmapMaskTolerance(rscc[i],p,o,x+w,y,x2+w,y2,0,200)
if i < 25 then
begin
result.character := Chr(97 + i);
if w > 10 then
result.character := ' ' + result.character;
result.x := p;
exit;
end;
end;
end;
function uptext():string;
var
t:return;
x:integer;
tm:integer;
begin
x := uptext_x;
tm := GetSystemTime();
repeat
t := letter(x,uptext_y,x+9,uptext_y+20);
if t.x = 0 then
exit;
if x = t.x + 1 then
exit;
x := t.x + 1;
result := result + t.character;
until ((tm + 1000) < GetSystemTime);
end;
begin
loadfont;
writeln(uptext);
end.
this won't work unless the rsc client is targetted and the very top left of rsc screen is at 0,0 coords
edit: i dunno wut happen but it dun work nemore gonna try to fix lol had it working half an hour ago