PDA

View Full Version : Updated ShopScreen



mat_de_b
10-04-2007, 05:59 PM
{************************************************* ******************************
function ShopScreen: Boolean;
By: mat_de_b
Description: Returns true if a shop interface is opened.
************************************************** *****************************}

function ShopScreen: Boolean;
var DTM: integer;
begin
DTM := DTMFromString('78DA637CCAC8C0A0C5800618914820FD0DC 89' +
'224A046888138351E8C84ED22A00600AF7603F6');
if (FindDTM(DTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
Result := True;
FreeDTM(DTM)
end;

{************************************************* ******************************
procedure ShopTab(Tab :integer);
By: mat_de_b
Description: Switches between shop tabs.
1 : Main Stock
2 : Player Stock
************************************************** *****************************}

procedure ShopTab(Tab: integer);
begin
if (ShopScreen) then
begin
case Tab of
1: if not (GetColor(44, 73) = 4478042) then
MouseBox(55, 68, 116, 79, True);
2: if not (GetColor(145, 73) = 4478042) then
MouseBox(154, 69, 223, 79, True);
end;
end;
end;

{************************************************* ******************************
procedure CloseShop;
By: mat_de_b
Description: Closes the Shop Interface
************************************************** *****************************}

procedure CloseShop;
var Close, Cx, Cy: integer;
begin
if (ShopScreen) then
begin
Close := BitmapFromString(10, 10, 'beNqLccmKIYAYGBiBCJcIhI2' +
'LiyyCKYWpAJftBDXishQPF78fsSAACNc+gQ==');
if (FindBitmap(Close, Cx, Cy)) then
begin
Mouse(Cx, Cy, 5, 5, True);
for Cx := 0 to 5 do
begin
wait(50 + random(50));
if not (ShopScreen) then
break;
end;
end;
FreeBitmap(Close);
end;
end;

Merry Christmas