JustIce
09-30-2007, 05:05 PM
When I try to run The Claw's west swamp miners, or any other miners that use the gasfinder function in the mining.scar script, I get this error: [Runtime Error] : Exception: Access violation at address 00728DB9 in module 'scar.exe'. Read of address 02ECE2F4 in line 131 in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/skill/mining.scar
That line is: CountData[n] := CountColorTolerance(Color[i], Gx - 20, Gy - 20, Gx + 20, Gy + 20, 20);
And the mining.scar itself:
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- Mining routines --//
//-----------------------------------------------------------------//
//
// * Function GasColors(gx, gy: Integer): Boolean; // *By RSN
// * Function GasFound(gx, gy: Integer): Boolean; // *By RSN
// * Function FindOreColors(refrencecol, tol, tol2: Integer): Boolean;// *By Stupid3ooo
// * Procedure SetRandomOreColor; // *By Stupid3ooo
// * Function FindRockBounds(var xstart, ystart, sx, sy: Integer): Boolean;// *By Stupid3ooo
// * Procedure DisplayWindow(xs, ys, xe, ye, WindowLength, WindowHeight: Integer);
// * Function GasCheck(gx, gy: integer): Boolean; // *By Piv
// * Function FindGas(fx, fy: Integer): Boolean; // *By Stupid3ooo
// * Function FindPickHeadColor: Boolean; // *By Sky Scripter
// * Function FindPick: Boolean; // *By Stupid3ooo/WT-Fakawi
// * Function CheckOre(OreX,OreY,RefColor,Tol:LongInt):Integer; // *By Wizzup?
// * Function OreColorCount(OreX,OreY,RefColor,Tol,MinCount:Long Int):Boolean;// *By Wizzup?
// * Function FindObjOre(var cx, cy: Integer; Text: String; color, tolerance, Count: Integer): Boolean;// *By Wizzup?
// * Procedure LoadMiningBitMaps; // *By Stupid3ooo
// * Procedure SetupMining; // *By WT-Fakawi
var
PickHandle, PickHead, Ore, PickAxe, PickAxeSteel: Integer; // Random Handlers.
var
hc1, hc2, hc3, hc4, hc5: Integer; // Pickaxe colors.
var
NoPick, EquipPick: Boolean; // Random Handler & Wielding.
//const GasColor = 8166047; //Reference color of gas.
const
GasTolerance = 15; //Tolerance to find gas color.
{************************************************* ******************************
procedure DisplayWindow(xs, ys, xe, ye, WindowLength, WindowHeight: Integer);
By:
Description: Displays Debug Window.
************************************************** *****************************}
procedure DisplayWindow(xs, ys, xe, ye, WindowLength, WindowHeight: Integer);
var
DebugCanvas, ClientCanvas: TCanvas;
begin
DisplayDebugImgWindow(WindowLength, WindowHeight);
DebugCanvas := GetDebugCanvas;
ClientCanvas := GetClientCanvas;
CopyCanvas(ClientCanvas, DebugCanvas, xs, ys, xe, ye, 0, 0, WindowLength,
WindowHeight);
end;
{************************************************* ******************************
function GasCheck(gx, gy: Integer): Boolean;
By: piv
Description: Pivs GasChecker.
************************************************** *****************************}
function GasCheck(gx, gy: Integer): Boolean;
var
clientcanvas, gascanvas1, gascanvas2: TCanvas;
xG, yG, count: Integer;
pic1, pic2: Integer;
begin
if(gx < 20)then
gx := 20;
if(gy < 20)then
gy := 20;
if (FindColorTolerance(xG, yG, 8296866, gx - 20, gy - 20, gx + 20, gy + 20,
20)) then
begin
pic1 := BitmapFromString(40, 40, '');
pic2 := BitmapFromString(40, 40, '');
gascanvas1 := GetBitmapCanvas(pic1);
gascanvas2 := GetBitmapCanvas(pic2);
clientcanvas := getclientcanvas;
CopyCanvas(clientcanvas, gascanvas1, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
Wait(100);
CopyCanvas(clientcanvas, gascanvas2, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
count := 0;
for yG := 1 to 40 do
for xG := 1 to 40 do
if ((gascanvas1.pixels[xG, yG]) <> (gascanvas2.pixels[xG, yG])) then
count := count + 1;
WriteLn(IntToStr(Trunc(((count) / 1024) * 100)) + '% change.');
if (count > 150) then //if more than 15% change
Result := True;
FreeBitmap(pic1);
FreeBitmap(pic2);
end;
end;
{************************************************* ******************************
function FindGas(fx, fy: Integer): Boolean;
By: Stupid3ooo
Description: fx,fy are the coordinates of the found ore color
************************************************** *****************************}
function FindGas(fx, fy: Integer): Boolean;
begin
Result := GasCheck(fx, fy);
end;
{************************************************* ******************************
function GasFound(fx, fy : Integer) : Boolean;
By: SKy Scirpter
Description: finds gas my way, then uses piv's.
should not detect any clothing...
************************************************** *****************************}
function GasFound(fx, fy : Integer) : Boolean;
var
Color : array [1..2] of integer;
CountData : array of Integer;
i, Gx, Gy, count, n, FindTimes : Integer;
begin
Color[1] := 8296866;
Color[2] := 8951705;
Gx := fx;
Gy := fy;
FindTimes := 3;
for i := 1 to 2 do
begin
if (FindColorSpiralTolerance(Gx, Gy, Color[i], fx - 30, fy - 30,
fx + 30, fy + 30, 20)) then
begin
SetArrayLength(CountData, FindTimes);
while (n < FindTimes) do
begin
CountData[n] := CountColorTolerance(Color[i], Gx - 20, Gy - 20, Gx + 20, Gy + 20, 20);
n := n + 1;
if (n = FindTimes) then Break; // No need to Wait(100) again...
Wait(100);
end;
BubbleSort(CountData);
Count := iAbs(CountData[Length(CountData)-1] - CountData[0]);
if (Count > 40) then
begin
Result := FindGas(gx, gy);
if (Result) then
Writeln('** Found Gas ** Pixel Count Change is [' + inttostr(Count) + ']' );
end;
Gx := fx;
Gy := fy;
end;
end;
end;
{************************************************* ******************************
function FindPickHeadColor: Boolean;
By: Sky Scripter
Description: Finds PickHead colors. Returns hc1,2,3,4 & 5.
************************************************** *****************************}
function FindPickHeadColor: Boolean;
var Count, Pick, ix, iy : Integer;
Done : Boolean;
label lbl;
begin
Pick := DTMFromString('78DA6334616260B8CD8006189148206D0E5 4F' +
'391801A2FA09A0704D4B802D55C23A0C60AA8E6060135B640 3577' +
'08A8B101AA798C5F0D00537C07EA');
Count := 5;
NoPick := True;
lbl :
GameTab(Count);
Wait(100 + Random(100));
if (FindDTM(Pick, ix, iy, MIX1, MIY1, MIX2, MIY2)) and (NoPick) then
begin
Hc1 := GetColor(ix + 1, iy);
Hc2 := GetColor(ix + 3, iy);
Hc3 := GetColor(ix + 6, iy);
Hc4 := GetColor(ix + 10, iy);
Hc5 := GetColor(ix + 16, iy);
Writeln('PickColors = ['+inttostr(hc1)+','+inttostr(hc2)+','
+inttostr(hc3)+',' +inttostr(hc4)+',' +inttostr(hc5)+'];');
NoPick := False;
Result := True;
end;
Done := (Count = 4);
Count := Count - 1;
if (not(Done)) then goto Lbl;
FreeDTM(Pick);
end;
{************************************************* ******************************
function FindPick: Boolean;
By: Stupid3ooo/WT-Fakawi
Description: Finds and Attaches Pickhead. ONLY WORKS PROPERLY WHEN WIELDED
************************************************** *****************************}
function FindPick: Boolean;
var
c, XH, YH, BR, dx, dy, ex, ey, x, y: Integer;
ReequipPick: Boolean;
begin
GameTab(4);
Result := True;
if (FindBitmapSpiralTolerance(PickHandle, x, y, 550, 200, 745, 465, 30)) or
(GetColor(461, 378) = 0) and (GetColor(486, 388) = 0) then
// "you need a pickaxe to mine this rock"
begin
// PerfectNorth;
GameTab(5);
Wait(1000);
if (GetColor(604, 300) = 65536) and (GetColor(601, 298) = 65536) then
begin
NoPick := True;
WriteLn('Broken Pickaxe. NoPick:=True;');
GameTab(4);
Result := False;
BR := 1 + Random(5);
case BR of
1: TypeSend('arg');
2: TypeSend('aarg');
3: TypeSend('arghh');
4: TypeSend('dam');
5: TypeSend('sjee.');
end;
Exit;
end;
GameTab(4);
Wait(2000 + Random(100));
if InvFull then
begin
if (FindBitmapSpiralTolerance(Ore, x, y, 559, 210, 735, 460, 25)) then
begin
Mouse(x, y, 5, 5, False);
ChooseOption('Drop');
end;
end;
repeat
if not (LoggedIn) then Exit;
c := c + 1;
x := Random(510) + 5;
y := Random(330) + 5;
if (FindColorSpiral(x, y, hc1, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc2, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc3, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc4, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc5, 3, 3, 515, 338)) then
begin
MMouse(x, y, 2, 2);
if IsUpTextMulti('Take', 'pick', 'head') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
end;
Flag;
Wait(1000 + Random(100));
end;
until ((FindBitmapSpiralTolerance(PickHead, x, y, 550, 200, 745, 465, 50))
or (c >= 10));
if not (FindBitmapSpiralTolerance(PickHead, x, y, 550, 200, 745, 465, 50)) then
begin
NoPick := True;
Result := False;
Exit;
end;
WriteLn('Found Head');
GameTab(5);
Wait(250);
if FindBitmapSpiralTolerance(PickHandle, XH, YH, 560, 280, 615, 322, 50) then
begin
WriteLn('Found Handle');
Mouse(XH, YH, 0, 0, True); // remove the handle, if any.
ReequipPick := True;
end;
Wait(250);
GameTab(4);
Wait(250);
if FindBitmapToleranceIn(Pickhead, dx, dy, MIX1, MIY1, MIX2, MIY2, 50)
and FindBitmapToleranceIn(PickHandle, ex, ey, MIX1, MIY1, MIX2, MIY2, 50) then
// if (FindItemBmpTol(PickHead, 50)) and (FindItemBmpTol(PickHandle, 50)) then
begin
Mouse(dx, dy, 0, 0, True); // dx dy = PickHead coords
// ClickItemBmpTol(PickHead, 50, True);
Wait(1000);
Mouse(ex, ey, 0, 0, True); // ex ey = PickHandle coords
// ClickItemBmpTol(PickHandle, 50, True);
PickAxeAttached := PickAxeAttached + 1;
WriteLn('Attached Head & Handle');
NoPick := False;
Result := True;
if ((EquipPick) or (ReequipPick)) then
begin
Wait(3000);
if FindColor(dx, dy, hc1, MIX1, MIY1, MIX2, MIY2) then
Mouse(dx, dy, 0, 0, True);
//ClickItemColor(hc1, True);
end;
end;
end;
end;
{************************************************* ******************************
function CheckOre(OreX, OreY, RefColor, Tol: LongInt): Integer;
By: Wizzup?
Description: Checks the certain ore. Returns how many colors match.
************************************************** *****************************}
function CheckOre(OreX, OreY, RefColor, tol: LongInt): Integer;
var
OreColors: array[1..16] of LongInt;
var
I, R, Count: Integer;
begin
OreColors[1] := GetColor(OreX - 1, OreY - 1);
OreColors[2] := GetColor(OreX + 1, OreY + 1)
OreColors[3] := GetColor(OreX + 1, OreY - 1)
OreColors[4] := GetColor(OreX - 1, OreY + 1)
OreColors[5] := GetColor(OreX - 2, OreY - 2)
OreColors[6] := GetColor(OreX + 2, OreY + 2)
OreColors[7] := GetColor(OreX - 2, OreY + 2)
OreColors[8] := GetColor(OreX + 2, OreY - 2)
OreColors[9] := GetColor(OreX - 3, OreY - 3);
OreColors[10] := GetColor(OreX + 3, OreY + 3)
OreColors[11] := GetColor(OreX + 3, OreY - 3)
OreColors[12] := GetColor(OreX - 3, OreY + 3)
OreColors[13] := GetColor(OreX - 4, OreY - 4)
OreColors[14] := GetColor(OreX + 4, OreY + 4)
OreColors[15] := GetColor(OreX - 4, OreY + 4)
OreColors[16] := GetColor(OreX + 4, OreY - 4)
for I := 1 to 16 do
begin
if SimilarColors(RefColor, OreColors[I], tol) then
begin
Count := Count + 1;
R := I;
end;
end;
Result := Count;
end;
{************************************************* ******************************
function OreColorCount(OreX, OreY, RefColor, Tol, MinCount: LongInt): Boolean;
By: Wizzup?
Description: Checks the certain ore, uses CheckOre.
If Count >= MinCount, the result is true.
************************************************** *****************************}
function OreColorCount(OreX, OreY, RefColor, tol, MinCount: LongInt): Boolean;
var
Count: LongInt;
begin
Count := CheckOre(OreX, OreY, RefColor, tol)
if Count >= MinCount then Result := True;
end;
{************************************************* ******************************
function FindObjOre(var cx, cy: Integer; Text: String; color, tolerance, Count: Integer): Boolean;
By: A findobj by stupid3ooo modded by Wizzup?
Description: Finds Object.
************************************************** *****************************}
function FindObjOre(var cx, cy: Integer; Text: string; color, tolerance,
MinCount: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
if FindColorSpiralTolerance(x, y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (LoggedIn)) then
Break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
if OreColorCount(x, y, color, 15, MinCount) then
begin
MMouse(x, y, 0, 0);
cx := x;
cy := y;
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
{************************************************* ******************************
function FindObjOre2(var cx, cy: Integer; Text: String; color, tolerance, Count: Integer): Boolean;
By: A findobj by stupid3ooo modded by Wizzup?
Description: Finds Object.
************************************************** *****************************}
function FindObjOre2(var cx, cy: Integer; Text: string; color, tolerance,
MinCount: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
if FindColorSpiralTolerance(x, y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (LoggedIn)) then
Break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
if OreColorCount(x, y, color, 15, MinCount) then
begin
MMouse(x, y, 6, 6);
GetMousePos(x, y);
cx := x;
cy := y;
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
{************************************************* ******************************
procedure LoadMiningBitMaps;
By: Stupid3ooo
Description: Declares Mining Bitmap.
************************************************** *****************************}
procedure LoadMiningBitMaps;
begin
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
'564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
'544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
'5951455951455951450000012F20002F20003624000000013 02020' +
'564D41544A3C544A3C595145564D41595145564D415951455 95145' +
'0000012F2000362400362400000001302020564D41564D415 64D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
'544A3C544A3C0000012F20003624003624003624000000013 02020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
'2F2000362400362400000001302020302020564D41564D415 64D41' +
'595145564D41564D41564D410000012F20003624003624000 00001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
'0000012F2000362400362400362400000001302020564D415 64D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
'362400000001302020302020564D41564D41544A3C544A3C5 95145' +
'595145564D410000012F20003624003624003624000000013 02020' +
'564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
'2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
'564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
'564D410000012F20002F20002F20000000013020203020205 44A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
'2F2000000001302020302020595145544A3C564D415951455 95145' +
'595145564D41564D410000012F20002F20002F20000000013 02020' +
'595145595145564D41564D415951455951455951455951450 00001' +
'2F20002F20002F20000000013020203020205951455951455 95145' +
'595145564D41564D41564D41564D410000012F20002F20002 F2000' +
'000001302020564D41595145595145595145595145564D415 64D41' +
'544A3C0000012F20002F20002F20000000013020203020205 64D41' +
'595145595145544A3C544A3C564D41595145564D410000012 F2000' +
'2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
'544A3C564D41564D41564D410000012F20002F20000000013 02020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
'000001271B002F20002F2000000001302020595145544A3C5 64D41' +
'595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
'000001302020302020595145544A3C564D415951455951455 95145' +
'564D41564D41564D410000011D15001D15000000013020205 95145' +
'544A3C544A3C564D415951455951455951455951455951455 44A3C' +
'0000011D15001D1500000001302020564D415951455951455 95145' +
'595145564D41595145595145564D41544A3C564D410000010 00001' +
'302020302020595145595145595145595145544A3C564D415 95145' +
'544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002 E1F00' +
'352400000001483E331D14001D1400261A002E1F000000013 02020' +
'0000010000010000010000013020203020203020203020203 02020' +
'302020302020483E33');
PickAxe :=BitmapFromString(30, 14, 'z78DA3330A03E70C3010C' +
'0625C0EF36FAB8DC8D2C407F37D32E36A96B267D521DB56C1 9A8D' +
'C41B9FBDDA80406732C0F8F544A7C0C0E6CBA25AF641BD8B2 11BF' +
'AB28C94DB47039ADC307D3FDB42B2107674D34185A1400863 DFCA' +
'8');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B0000010000010000010 00001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B5 44A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D425 64D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012 D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D425 64D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D44385 44A3B' +
'564D42564D420000010000010000010000010000010000010 00001' +
'0000010000015C5656686060756D6C8278780000013020205 64D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B5 64D42' +
'4D44384D4438564D420000010000015953535953535953535 95353' +
'595353595353595353595353595353575151615A596A62627 56D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D425 64D42' +
'544A3B544A3B564D42544A3B0000010000015C56565953535 75151' +
'5751515751515751515751515751515751515751515751511 C1400' +
'251900827878756D6C000001000001564D42544A3B564D425 64D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595 F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E5 44E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A62620 00001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B5 64D42' +
'544A3B0000010000010000010000010000010000010000010 00001' +
'0000010000010000010000011C14002D1E002D1E007970707 56D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D425 64D42' +
'544A3B544A3B564D42544A3B4D44383020203020203020203 02020' +
'3020203020203020203020203020200000011C14002519002 D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C6 86060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B0 00001' +
'1C14002D1E002D1E002D1E000000010000010000016860606 35D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B5 64D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D425 44A3B' +
'564D420000011C14002519002D1E002D1E000000013020203 02020' +
'302020000001000001000001595353524B4B544E4E5953530 00001' +
'302020564D42564D42564D42564D42544A3B544A3B564D425 64D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E000 00001' +
'302020302020544A3B544A3B544A3B3020203020200000010 00001' +
'0000014D47465F5858000001544A3B564D42564D42564D425 44A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002 D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D425 64D42' +
'544A3B544A3B302020302020000001000001665E5E0000015 64D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D425 64D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B5 44A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D423 02020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B5 44A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E000000013 02020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B5 44A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
Ore := BitmapFromString(8, 11,
'564D42564D42564D42564D42564D42564D420000010000015 64D42' +
'564D42564D42544A3B544A3B0000013D312254442F564D425 64D42' +
'564D42564D420000012D2518443827584731564D42544A3B5 44A3B' +
'564D42000001201B124034257A6346564D42544A3B4D44385 64D42' +
'000001483B297D6547806748564D42564D42544A3B564D420 00001' +
'7D6547806748000001564D42564D42544A3B544A3B544A3B0 00001' +
'000001302020000001000001000001000001000001544A3B3 02020' +
'3020202D2518382D1E403425483B2951412D000001544A3B5 44A3B' +
'5847315C4A345E4D366552395E4D360000013020200000015 C4A34' +
'5E4D3665523968543B655239000001302020000001');
end;
{************************************************* ******************************
procedure SetupMining;
By: WT-Fakawi
Description: Loads Mining bitmap into memory.
************************************************** *****************************}
procedure SetupMining;
begin
LoadMiningBitMaps;
end;
Is there a solution to solve this problem? Thanks for helping me.
That line is: CountData[n] := CountColorTolerance(Color[i], Gx - 20, Gy - 20, Gx + 20, Gy + 20, 20);
And the mining.scar itself:
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- Mining routines --//
//-----------------------------------------------------------------//
//
// * Function GasColors(gx, gy: Integer): Boolean; // *By RSN
// * Function GasFound(gx, gy: Integer): Boolean; // *By RSN
// * Function FindOreColors(refrencecol, tol, tol2: Integer): Boolean;// *By Stupid3ooo
// * Procedure SetRandomOreColor; // *By Stupid3ooo
// * Function FindRockBounds(var xstart, ystart, sx, sy: Integer): Boolean;// *By Stupid3ooo
// * Procedure DisplayWindow(xs, ys, xe, ye, WindowLength, WindowHeight: Integer);
// * Function GasCheck(gx, gy: integer): Boolean; // *By Piv
// * Function FindGas(fx, fy: Integer): Boolean; // *By Stupid3ooo
// * Function FindPickHeadColor: Boolean; // *By Sky Scripter
// * Function FindPick: Boolean; // *By Stupid3ooo/WT-Fakawi
// * Function CheckOre(OreX,OreY,RefColor,Tol:LongInt):Integer; // *By Wizzup?
// * Function OreColorCount(OreX,OreY,RefColor,Tol,MinCount:Long Int):Boolean;// *By Wizzup?
// * Function FindObjOre(var cx, cy: Integer; Text: String; color, tolerance, Count: Integer): Boolean;// *By Wizzup?
// * Procedure LoadMiningBitMaps; // *By Stupid3ooo
// * Procedure SetupMining; // *By WT-Fakawi
var
PickHandle, PickHead, Ore, PickAxe, PickAxeSteel: Integer; // Random Handlers.
var
hc1, hc2, hc3, hc4, hc5: Integer; // Pickaxe colors.
var
NoPick, EquipPick: Boolean; // Random Handler & Wielding.
//const GasColor = 8166047; //Reference color of gas.
const
GasTolerance = 15; //Tolerance to find gas color.
{************************************************* ******************************
procedure DisplayWindow(xs, ys, xe, ye, WindowLength, WindowHeight: Integer);
By:
Description: Displays Debug Window.
************************************************** *****************************}
procedure DisplayWindow(xs, ys, xe, ye, WindowLength, WindowHeight: Integer);
var
DebugCanvas, ClientCanvas: TCanvas;
begin
DisplayDebugImgWindow(WindowLength, WindowHeight);
DebugCanvas := GetDebugCanvas;
ClientCanvas := GetClientCanvas;
CopyCanvas(ClientCanvas, DebugCanvas, xs, ys, xe, ye, 0, 0, WindowLength,
WindowHeight);
end;
{************************************************* ******************************
function GasCheck(gx, gy: Integer): Boolean;
By: piv
Description: Pivs GasChecker.
************************************************** *****************************}
function GasCheck(gx, gy: Integer): Boolean;
var
clientcanvas, gascanvas1, gascanvas2: TCanvas;
xG, yG, count: Integer;
pic1, pic2: Integer;
begin
if(gx < 20)then
gx := 20;
if(gy < 20)then
gy := 20;
if (FindColorTolerance(xG, yG, 8296866, gx - 20, gy - 20, gx + 20, gy + 20,
20)) then
begin
pic1 := BitmapFromString(40, 40, '');
pic2 := BitmapFromString(40, 40, '');
gascanvas1 := GetBitmapCanvas(pic1);
gascanvas2 := GetBitmapCanvas(pic2);
clientcanvas := getclientcanvas;
CopyCanvas(clientcanvas, gascanvas1, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
Wait(100);
CopyCanvas(clientcanvas, gascanvas2, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
count := 0;
for yG := 1 to 40 do
for xG := 1 to 40 do
if ((gascanvas1.pixels[xG, yG]) <> (gascanvas2.pixels[xG, yG])) then
count := count + 1;
WriteLn(IntToStr(Trunc(((count) / 1024) * 100)) + '% change.');
if (count > 150) then //if more than 15% change
Result := True;
FreeBitmap(pic1);
FreeBitmap(pic2);
end;
end;
{************************************************* ******************************
function FindGas(fx, fy: Integer): Boolean;
By: Stupid3ooo
Description: fx,fy are the coordinates of the found ore color
************************************************** *****************************}
function FindGas(fx, fy: Integer): Boolean;
begin
Result := GasCheck(fx, fy);
end;
{************************************************* ******************************
function GasFound(fx, fy : Integer) : Boolean;
By: SKy Scirpter
Description: finds gas my way, then uses piv's.
should not detect any clothing...
************************************************** *****************************}
function GasFound(fx, fy : Integer) : Boolean;
var
Color : array [1..2] of integer;
CountData : array of Integer;
i, Gx, Gy, count, n, FindTimes : Integer;
begin
Color[1] := 8296866;
Color[2] := 8951705;
Gx := fx;
Gy := fy;
FindTimes := 3;
for i := 1 to 2 do
begin
if (FindColorSpiralTolerance(Gx, Gy, Color[i], fx - 30, fy - 30,
fx + 30, fy + 30, 20)) then
begin
SetArrayLength(CountData, FindTimes);
while (n < FindTimes) do
begin
CountData[n] := CountColorTolerance(Color[i], Gx - 20, Gy - 20, Gx + 20, Gy + 20, 20);
n := n + 1;
if (n = FindTimes) then Break; // No need to Wait(100) again...
Wait(100);
end;
BubbleSort(CountData);
Count := iAbs(CountData[Length(CountData)-1] - CountData[0]);
if (Count > 40) then
begin
Result := FindGas(gx, gy);
if (Result) then
Writeln('** Found Gas ** Pixel Count Change is [' + inttostr(Count) + ']' );
end;
Gx := fx;
Gy := fy;
end;
end;
end;
{************************************************* ******************************
function FindPickHeadColor: Boolean;
By: Sky Scripter
Description: Finds PickHead colors. Returns hc1,2,3,4 & 5.
************************************************** *****************************}
function FindPickHeadColor: Boolean;
var Count, Pick, ix, iy : Integer;
Done : Boolean;
label lbl;
begin
Pick := DTMFromString('78DA6334616260B8CD8006189148206D0E5 4F' +
'391801A2FA09A0704D4B802D55C23A0C60AA8E6060135B640 3577' +
'08A8B101AA798C5F0D00537C07EA');
Count := 5;
NoPick := True;
lbl :
GameTab(Count);
Wait(100 + Random(100));
if (FindDTM(Pick, ix, iy, MIX1, MIY1, MIX2, MIY2)) and (NoPick) then
begin
Hc1 := GetColor(ix + 1, iy);
Hc2 := GetColor(ix + 3, iy);
Hc3 := GetColor(ix + 6, iy);
Hc4 := GetColor(ix + 10, iy);
Hc5 := GetColor(ix + 16, iy);
Writeln('PickColors = ['+inttostr(hc1)+','+inttostr(hc2)+','
+inttostr(hc3)+',' +inttostr(hc4)+',' +inttostr(hc5)+'];');
NoPick := False;
Result := True;
end;
Done := (Count = 4);
Count := Count - 1;
if (not(Done)) then goto Lbl;
FreeDTM(Pick);
end;
{************************************************* ******************************
function FindPick: Boolean;
By: Stupid3ooo/WT-Fakawi
Description: Finds and Attaches Pickhead. ONLY WORKS PROPERLY WHEN WIELDED
************************************************** *****************************}
function FindPick: Boolean;
var
c, XH, YH, BR, dx, dy, ex, ey, x, y: Integer;
ReequipPick: Boolean;
begin
GameTab(4);
Result := True;
if (FindBitmapSpiralTolerance(PickHandle, x, y, 550, 200, 745, 465, 30)) or
(GetColor(461, 378) = 0) and (GetColor(486, 388) = 0) then
// "you need a pickaxe to mine this rock"
begin
// PerfectNorth;
GameTab(5);
Wait(1000);
if (GetColor(604, 300) = 65536) and (GetColor(601, 298) = 65536) then
begin
NoPick := True;
WriteLn('Broken Pickaxe. NoPick:=True;');
GameTab(4);
Result := False;
BR := 1 + Random(5);
case BR of
1: TypeSend('arg');
2: TypeSend('aarg');
3: TypeSend('arghh');
4: TypeSend('dam');
5: TypeSend('sjee.');
end;
Exit;
end;
GameTab(4);
Wait(2000 + Random(100));
if InvFull then
begin
if (FindBitmapSpiralTolerance(Ore, x, y, 559, 210, 735, 460, 25)) then
begin
Mouse(x, y, 5, 5, False);
ChooseOption('Drop');
end;
end;
repeat
if not (LoggedIn) then Exit;
c := c + 1;
x := Random(510) + 5;
y := Random(330) + 5;
if (FindColorSpiral(x, y, hc1, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc2, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc3, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc4, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc5, 3, 3, 515, 338)) then
begin
MMouse(x, y, 2, 2);
if IsUpTextMulti('Take', 'pick', 'head') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
end;
Flag;
Wait(1000 + Random(100));
end;
until ((FindBitmapSpiralTolerance(PickHead, x, y, 550, 200, 745, 465, 50))
or (c >= 10));
if not (FindBitmapSpiralTolerance(PickHead, x, y, 550, 200, 745, 465, 50)) then
begin
NoPick := True;
Result := False;
Exit;
end;
WriteLn('Found Head');
GameTab(5);
Wait(250);
if FindBitmapSpiralTolerance(PickHandle, XH, YH, 560, 280, 615, 322, 50) then
begin
WriteLn('Found Handle');
Mouse(XH, YH, 0, 0, True); // remove the handle, if any.
ReequipPick := True;
end;
Wait(250);
GameTab(4);
Wait(250);
if FindBitmapToleranceIn(Pickhead, dx, dy, MIX1, MIY1, MIX2, MIY2, 50)
and FindBitmapToleranceIn(PickHandle, ex, ey, MIX1, MIY1, MIX2, MIY2, 50) then
// if (FindItemBmpTol(PickHead, 50)) and (FindItemBmpTol(PickHandle, 50)) then
begin
Mouse(dx, dy, 0, 0, True); // dx dy = PickHead coords
// ClickItemBmpTol(PickHead, 50, True);
Wait(1000);
Mouse(ex, ey, 0, 0, True); // ex ey = PickHandle coords
// ClickItemBmpTol(PickHandle, 50, True);
PickAxeAttached := PickAxeAttached + 1;
WriteLn('Attached Head & Handle');
NoPick := False;
Result := True;
if ((EquipPick) or (ReequipPick)) then
begin
Wait(3000);
if FindColor(dx, dy, hc1, MIX1, MIY1, MIX2, MIY2) then
Mouse(dx, dy, 0, 0, True);
//ClickItemColor(hc1, True);
end;
end;
end;
end;
{************************************************* ******************************
function CheckOre(OreX, OreY, RefColor, Tol: LongInt): Integer;
By: Wizzup?
Description: Checks the certain ore. Returns how many colors match.
************************************************** *****************************}
function CheckOre(OreX, OreY, RefColor, tol: LongInt): Integer;
var
OreColors: array[1..16] of LongInt;
var
I, R, Count: Integer;
begin
OreColors[1] := GetColor(OreX - 1, OreY - 1);
OreColors[2] := GetColor(OreX + 1, OreY + 1)
OreColors[3] := GetColor(OreX + 1, OreY - 1)
OreColors[4] := GetColor(OreX - 1, OreY + 1)
OreColors[5] := GetColor(OreX - 2, OreY - 2)
OreColors[6] := GetColor(OreX + 2, OreY + 2)
OreColors[7] := GetColor(OreX - 2, OreY + 2)
OreColors[8] := GetColor(OreX + 2, OreY - 2)
OreColors[9] := GetColor(OreX - 3, OreY - 3);
OreColors[10] := GetColor(OreX + 3, OreY + 3)
OreColors[11] := GetColor(OreX + 3, OreY - 3)
OreColors[12] := GetColor(OreX - 3, OreY + 3)
OreColors[13] := GetColor(OreX - 4, OreY - 4)
OreColors[14] := GetColor(OreX + 4, OreY + 4)
OreColors[15] := GetColor(OreX - 4, OreY + 4)
OreColors[16] := GetColor(OreX + 4, OreY - 4)
for I := 1 to 16 do
begin
if SimilarColors(RefColor, OreColors[I], tol) then
begin
Count := Count + 1;
R := I;
end;
end;
Result := Count;
end;
{************************************************* ******************************
function OreColorCount(OreX, OreY, RefColor, Tol, MinCount: LongInt): Boolean;
By: Wizzup?
Description: Checks the certain ore, uses CheckOre.
If Count >= MinCount, the result is true.
************************************************** *****************************}
function OreColorCount(OreX, OreY, RefColor, tol, MinCount: LongInt): Boolean;
var
Count: LongInt;
begin
Count := CheckOre(OreX, OreY, RefColor, tol)
if Count >= MinCount then Result := True;
end;
{************************************************* ******************************
function FindObjOre(var cx, cy: Integer; Text: String; color, tolerance, Count: Integer): Boolean;
By: A findobj by stupid3ooo modded by Wizzup?
Description: Finds Object.
************************************************** *****************************}
function FindObjOre(var cx, cy: Integer; Text: string; color, tolerance,
MinCount: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
if FindColorSpiralTolerance(x, y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (LoggedIn)) then
Break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
if OreColorCount(x, y, color, 15, MinCount) then
begin
MMouse(x, y, 0, 0);
cx := x;
cy := y;
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
{************************************************* ******************************
function FindObjOre2(var cx, cy: Integer; Text: String; color, tolerance, Count: Integer): Boolean;
By: A findobj by stupid3ooo modded by Wizzup?
Description: Finds Object.
************************************************** *****************************}
function FindObjOre2(var cx, cy: Integer; Text: string; color, tolerance,
MinCount: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
if FindColorSpiralTolerance(x, y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (LoggedIn)) then
Break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
if OreColorCount(x, y, color, 15, MinCount) then
begin
MMouse(x, y, 6, 6);
GetMousePos(x, y);
cx := x;
cy := y;
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
{************************************************* ******************************
procedure LoadMiningBitMaps;
By: Stupid3ooo
Description: Declares Mining Bitmap.
************************************************** *****************************}
procedure LoadMiningBitMaps;
begin
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
'564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
'544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
'5951455951455951450000012F20002F20003624000000013 02020' +
'564D41544A3C544A3C595145564D41595145564D415951455 95145' +
'0000012F2000362400362400000001302020564D41564D415 64D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
'544A3C544A3C0000012F20003624003624003624000000013 02020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
'2F2000362400362400000001302020302020564D41564D415 64D41' +
'595145564D41564D41564D410000012F20003624003624000 00001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
'0000012F2000362400362400362400000001302020564D415 64D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
'362400000001302020302020564D41564D41544A3C544A3C5 95145' +
'595145564D410000012F20003624003624003624000000013 02020' +
'564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
'2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
'564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
'564D410000012F20002F20002F20000000013020203020205 44A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
'2F2000000001302020302020595145544A3C564D415951455 95145' +
'595145564D41564D410000012F20002F20002F20000000013 02020' +
'595145595145564D41564D415951455951455951455951450 00001' +
'2F20002F20002F20000000013020203020205951455951455 95145' +
'595145564D41564D41564D41564D410000012F20002F20002 F2000' +
'000001302020564D41595145595145595145595145564D415 64D41' +
'544A3C0000012F20002F20002F20000000013020203020205 64D41' +
'595145595145544A3C544A3C564D41595145564D410000012 F2000' +
'2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
'544A3C564D41564D41564D410000012F20002F20000000013 02020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
'000001271B002F20002F2000000001302020595145544A3C5 64D41' +
'595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
'000001302020302020595145544A3C564D415951455951455 95145' +
'564D41564D41564D410000011D15001D15000000013020205 95145' +
'544A3C544A3C564D415951455951455951455951455951455 44A3C' +
'0000011D15001D1500000001302020564D415951455951455 95145' +
'595145564D41595145595145564D41544A3C564D410000010 00001' +
'302020302020595145595145595145595145544A3C564D415 95145' +
'544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002 E1F00' +
'352400000001483E331D14001D1400261A002E1F000000013 02020' +
'0000010000010000010000013020203020203020203020203 02020' +
'302020302020483E33');
PickAxe :=BitmapFromString(30, 14, 'z78DA3330A03E70C3010C' +
'0625C0EF36FAB8DC8D2C407F37D32E36A96B267D521DB56C1 9A8D' +
'C41B9FBDDA80406732C0F8F544A7C0C0E6CBA25AF641BD8B2 11BF' +
'AB28C94DB47039ADC307D3FDB42B2107674D34185A1400863 DFCA' +
'8');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B0000010000010000010 00001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B5 44A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D425 64D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012 D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D425 64D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D44385 44A3B' +
'564D42564D420000010000010000010000010000010000010 00001' +
'0000010000015C5656686060756D6C8278780000013020205 64D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B5 64D42' +
'4D44384D4438564D420000010000015953535953535953535 95353' +
'595353595353595353595353595353575151615A596A62627 56D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D425 64D42' +
'544A3B544A3B564D42544A3B0000010000015C56565953535 75151' +
'5751515751515751515751515751515751515751515751511 C1400' +
'251900827878756D6C000001000001564D42544A3B564D425 64D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595 F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E5 44E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A62620 00001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B5 64D42' +
'544A3B0000010000010000010000010000010000010000010 00001' +
'0000010000010000010000011C14002D1E002D1E007970707 56D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D425 64D42' +
'544A3B544A3B564D42544A3B4D44383020203020203020203 02020' +
'3020203020203020203020203020200000011C14002519002 D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C6 86060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B0 00001' +
'1C14002D1E002D1E002D1E000000010000010000016860606 35D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B5 64D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D425 44A3B' +
'564D420000011C14002519002D1E002D1E000000013020203 02020' +
'302020000001000001000001595353524B4B544E4E5953530 00001' +
'302020564D42564D42564D42564D42544A3B544A3B564D425 64D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E000 00001' +
'302020302020544A3B544A3B544A3B3020203020200000010 00001' +
'0000014D47465F5858000001544A3B564D42564D42564D425 44A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002 D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D425 64D42' +
'544A3B544A3B302020302020000001000001665E5E0000015 64D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D425 64D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B5 44A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D423 02020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B5 44A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E000000013 02020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B5 44A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
Ore := BitmapFromString(8, 11,
'564D42564D42564D42564D42564D42564D420000010000015 64D42' +
'564D42564D42544A3B544A3B0000013D312254442F564D425 64D42' +
'564D42564D420000012D2518443827584731564D42544A3B5 44A3B' +
'564D42000001201B124034257A6346564D42544A3B4D44385 64D42' +
'000001483B297D6547806748564D42564D42544A3B564D420 00001' +
'7D6547806748000001564D42564D42544A3B544A3B544A3B0 00001' +
'000001302020000001000001000001000001000001544A3B3 02020' +
'3020202D2518382D1E403425483B2951412D000001544A3B5 44A3B' +
'5847315C4A345E4D366552395E4D360000013020200000015 C4A34' +
'5E4D3665523968543B655239000001302020000001');
end;
{************************************************* ******************************
procedure SetupMining;
By: WT-Fakawi
Description: Loads Mining bitmap into memory.
************************************************** *****************************}
procedure SetupMining;
begin
LoadMiningBitMaps;
end;
Is there a solution to solve this problem? Thanks for helping me.