{.Script Info:
# ScriptName  = Chicktionary Winner
# Author      = Lardmaster
# Description = Winss club.live.com chicktionary
# Version     = 1.0
# Date        = now
# Comments    = good luck
/Script Info}
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/Conversions.scar}
const
alphabet='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
function getSlots(relx,rely:integer) :TBoxArray;
var
x1,y1,x2,y2 :array of integer;
i:integer;
begin
SetArrayLength(x1,7);
SetArrayLength(y1,7);
SetArrayLength(x2,7);
SetArrayLength(y2,7);
for i:=0 to 6 do
    begin
    x1[i]:=460+(i*55)-relx;
    y1[i]:=315-rely;
    x2[i]:=490+(i*55)-relx;
    y2[i]:=343-rely;
    end
result:=cboxarray2(x1,y1,x2,y2);
end;

procedure findRelative(var relativex, relativey:integer);
var relative:integer;
begin
relative:=LoadBitmap('C:\Program Files\SCAR 3.06\relative.bmp');
FindBitmap(relative,relativex,relativey);
FreeBitmap(relative);
end;

function loadChars:array of integer;
var i:integer;
temp:string;
begin
SetArrayLength(result,26);
for i:=0 to 25 do
    begin
    temp:='C:\Program Files\SCAR 3.06\Fonts\'+'.bmp'; //ERROR
    if (FileExists(temp)) then
         begin
              result[i]:=loadBitmap(temp);
         end else
         begin
              result[i]:=0;
         end
    end
end;

var
relativex,relativey,i,charnum,x1,y1:integer;
chickenLocations:tboxarray;
characters:array of integer;
accuracy:extended;
begin
SetupSRL;
findrelative(relativex,relativey);
writeln(IntToStr(relativex)+','+inttostr(relativey));
chickenLocations:=getSlots(relativex,relativey);
characters:=loadChars;
accuracy:=0.90;
for i:=0 to 6 do
    begin
    for charnum:=0 to 25 do
        begin
        if((not characters[i]=0) and FindDeformedBitmapToleranceIn(characters[i],x1,y1,chickenLocations[i].x1,chickenLocations[i].y1,chickenLocations[i].x2,chickenLocations[i].y2,5,2,true,accuracy)) then
            begin
            writeln(inttostr(i)+':'+inttostr(charnum));
            end
        end
    end
end.