LoadChars

[Ndogg]

Is this close to the right way of reading text?

 

program New;
var
UpChars,x,y,text,text1:Integer;
begin

UpChars:=LoadCharsFromFont2('RuneScape Small Regular',3,False,False,False,False); //Loads a runescape font I downloaded

text:=CreateBitmapMaskFromText('Bank',UpChars);
WriteLn(FindBitmapMaskTolerance(text,x,y,0,0,300,100,130,130)); //Checks for Bank in the upper right hand corner

text1:=CreateBitmapMaskFromText('k',UpChars);
WriteLn(FindBitmapMaskTolerance(text1,x,y,0,0,300,100,130,130)); //Checks for k in the upper right hand corner

WriteLn(GetTextAtEx(9, 9, 130, UpChars, True, False, 0, 1, -1, 20, False, tr_Letters)); //Trys to read text
end.

 

Heres a link to the font...

https://sites.google.com/site/interactiverune/kits/fonts

The font I used is at the very bottom

 

 

This script just returns stuff like 'HEEHEEEEEEEEEEEEEEEE'

 

 

EDIT: and I cant use the OSI functions for this since I am playing on a Runescape private server.

Edited January 7, 2012 by Ndogg

[shadowrecon]

Wow, Way to much work bud, Just use IsupText(); example below

 
Program New;
{$DEFINE RS2}
{.include OSI\OSI.scar}

begin
If (isuptextMulti(['ew','hop']) = True) then       //or isuptest('Yew'); < instead of isuptextmulti();
  Writeln('Found Up Text Yew Tree')
 else
  Writeln('Didnt Find Yew Tree');
end.

[Ndogg]

I am playing on a runescape private server, so most of the OSI functions, including that one, dont work.