Untitled

program symbol;
{.include srl/srl.scar}

function GetSymbolBackgroundColor:integer;
var
  TmpBmp,lilbmp,MyX,MyY:integer;
  MyColor,tx,ty: integer;
  MyCanvas:tcanvas;
  TmpBool:boolean;
  MyH,MyS,MyL:extended;
begin
  TmpBmp:= BitmapFromString(100,90,'');
  lilbmp:=bitmapfromstring(2,2,' ');
  MyCanvas:=GetBitmapCanvas(TmpBmp)

  CopyCanvas(GetClientCanvas,MyCanvas,598,39,698,129,0,0,100,90)
  for MyY:=0 to 99 do
  begin
   for MyX:=0 to 89 do
    begin
      MyColor:= MyCanvas.pixels[MyX,MyY];
      ColortoHSL(MyColor,MyH,MyS,MyL);
      if MyS  <40.0 then
      begin
        if MyL > 65.0 then
        begin
          if MyH<60.0 then
          begin
            if MyL<100.0then
            begin
              if MyH>0.0 then
              begin
                FastDrawClear(lilbmp,MyColor);
                if FindBitmapIn(lilbmp,tx,ty,mmx1,mmy1,mmx2,mmy2) then
                  TmpBool:=true;
              end;
            end;
          end;
        end;
      end;
      if TmpBool then break;
    end;
    if TmpBool then break;
  end;
if TmpBool then result:=MyColor;
end;
var SymbolBackgroundColor,t:integer;
begin
t:=getsystemtime;
SymbolBackgroundColor:=GetSymbolBackgroundColor;
writeln(inttostr(SymbolBackgroundColor));
if SymbolBackgroundColor=0 then writeln('there are no symbols on the minimap');
writeln(inttostr(getsystemtime-t)+'ms');
end.