I am trying to read the price under "Price Per Item:" and save it in a String.
The code I am trying to use is:
The only output I am getting looks like this:Code:procedure getText; var x,y : Integer; begin FindColor(x, y, 6400255,290,180,445,200); WriteLn(x); WriteLn(y); writeln((GetTextAtEx(x,y,50,UpChars,false,false,0,5,6400255,15,false,tr_AllChars))); end;
The text appears to be UpChars after looking at the pictures in the Scar 3.21\Fonts\ directory and I know that the color is right. But I still can't seem to get the right output.Code:Successfully compiled (1698 ms) SRL Compiled in 16 msec 320 186 ' ' í Successfully executed
Any suggestions would be greatly appreciated. Thanks.
I cropped the picture so that the top left corner is supposed to be 0,0




Reply With Quote








