moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-26 03:02:15 -05:00
Code Issues Releases Wiki Activity

Fixes

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@566 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-02-28 13:03:16 +00:00
parent 462126a6bd
commit b6d3c56055
1 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
trunk/Units/MMLCore/finder.pas
View File

@ -1895,7 +1895,8 @@ var
clR,clG,clB : array of byte; clR,clG,clB : array of byte;
//Similar colors stuff //Similar colors stuff
hh,ss,ll,hmod,smod : extended; hh,ss,ll: array of extended;
hmod,smod: extended;
Ccts : integer; Ccts : integer;
// Bitwise // Bitwise
@ -1965,15 +1966,19 @@ begin
SetLength(clB,dtm.l); SetLength(clB,dtm.l);
for i := 0 to DTM.l - 1 do for i := 0 to DTM.l - 1 do
ColorToRGB(dtm.c[i],clR[i],clG[i],clB[i]); ColorToRGB(dtm.c[i],clR[i],clG[i],clB[i]);
SetLength(hh,dtm.l);
SetLength(ss,dtm.l);
SetLength(ll,dtm.l);
for i := 0 to DTM.l - 1 do
ColorToHSL(dtm.c[i],hh[i],ss[i],ll[i]);
GetToleranceSpeed2Modifiers(hMod, sMod);
ccts := CTS;
//Compiler hints //Compiler hints
HMod := 0;SMod := 0;hh := 0.0;ss := 0.0; ll := 0.0; HMod := 0;SMod := 0;
//NO HSL. //NO HSL.
CCTS := Self.CTS;
if CCTS > 1 then
begin
Writeln('CTS > 1, putting it temporary back to 1. For this (DTM)search');
CCTS := 1;
end;
// Retreive Client Data. // Retreive Client Data.
PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1); PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1);
@ -2008,7 +2013,7 @@ begin
// Checking point i now. (Store that we matched it) // Checking point i now. (Store that we matched it)
ch[xxx][yyy]:= ch[xxx][yyy] or (1 shl i); ch[xxx][yyy]:= ch[xxx][yyy] or (1 shl i);
if ColorSame(ccts,dtm.t[i],clR[i],clG[i],clB[i],cd[yyy][xxx].R, cd[yyy][xxx].G, cd[yyy][xxx].B,hh,ss,ll,hmod,smod) then if ColorSame(ccts,dtm.t[i],clR[i],clG[i],clB[i],cd[yyy][xxx].R, cd[yyy][xxx].G, cd[yyy][xxx].B,hh[i],ss[i],ll[i],hmod,smod) then
b[xxx][yyy] := b[xxx][yyy] or (1 shl i); b[xxx][yyy] := b[xxx][yyy] or (1 shl i);
end; end;
@ -2067,7 +2072,8 @@ var
clR,clG,clB : array of byte; clR,clG,clB : array of byte;
//Similar colors stuff //Similar colors stuff
hh,ss,ll,hmod,smod : extended; hh,ss,ll: array of extended;
hmod,smod: extended;
Ccts : integer; Ccts : integer;
// Bitwise // Bitwise
@ -2135,14 +2141,15 @@ begin
for i := 0 to _dtm.l - 1 do for i := 0 to _dtm.l - 1 do
ColorToRGB(_dtm.c[i],clR[i],clG[i],clB[i]); ColorToRGB(_dtm.c[i],clR[i],clG[i],clB[i]);
//Compiler hints //Compiler hints
HMod := 0;SMod := 0;hh := 0.0;ss := 0.0; ll := 0.0;
//NO HSL. SetLength(hh,dtm.l);
CCTS := Self.CTS; SetLength(ss,dtm.l);
if CCTS > 1 then SetLength(ll,dtm.l);
begin for i := 0 to DTM.l - 1 do
Writeln('CTS > 1, putting it temporary back to 1. For this (DTM)search'); ColorToHSL(dtm.c[i],hh[i],ss[i],ll[i]);
CCTS := 1;
end; GetToleranceSpeed2Modifiers(hMod, sMod);
ccts := CTS;
// Retreive Client Data. // Retreive Client Data.
PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1); PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1);
@ -2185,7 +2192,7 @@ begin
// Checking point i now. (Store that we matched it) // Checking point i now. (Store that we matched it)
ch[xxx][yyy]:= ch[xxx][yyy] or (1 shl i); ch[xxx][yyy]:= ch[xxx][yyy] or (1 shl i);
if ColorSame(ccts,dtm.t[i],clR[i],clG[i],clB[i],cd[yyy][xxx].R, cd[yyy][xxx].G, cd[yyy][xxx].B,hh,ss,ll,hmod,smod) then if ColorSame(ccts,dtm.t[i],clR[i],clG[i],clB[i],cd[yyy][xxx].R, cd[yyy][xxx].G, cd[yyy][xxx].B,hh[i],ss[i],ll[i],hmod,smod) then
b[xxx][yyy] := b[xxx][yyy] or (1 shl i); b[xxx][yyy] := b[xxx][yyy] or (1 shl i);
end; end;