oliver1205
2007-04-11 20:34:34
Heres another noob error, but ive spent 30 mins looking for it and i cant figure it out. lets see if you guys can catch it.
//*********************************************************************//
procedure ChangeGasPixels (var Gasx,GasY:Integer); // Thank You Wizzup?
var
tempX, TempY: Integer;
begin
if FlagPresent then
begin
if FindColorSpiralTolerance(x,y,SilverOre,MSX1,MSY1,MSX2,MSY2,4) then
begin
x := TempX;
y := TempY;
if CheckOre(x,y,GoldOre,4) > 2 then
begin
if Distance(MSCX,MSCY,TempX,Tempy) < 40 then
begin
GasX := x;
GasY := y;
end;
end;
end;
end;
end;
//**********************************************************************//
function FindTheOres1; // Modded A Bit From Charmz Thanks IT GIVES ME COLON ERROR HERE. COLON EXPECTED IN SCRIPT
begin
if(FindColorSpiralTolerance(za,zb,SilverOre,MSX1,MSX1,MSX2,MSX2,5)) then
begin
Result:=True;
end else
begin
Result:=False;
RelocateToMine;
end;
end;
//*********************************************************************//
function FindTheOres2; // Modded A Bit From Charmz Thanks
var zx,zy: Integer;
begin
if(FindColorSpiralTolerance(zx,zy,GoldOre,MSX1,MSX1,MSX2,MSX2,5)) then
begin
Result:=True;
end else
begin
Result:=False;
RelocateToMine;
end;
end;
//********************************************************************//