Code:
//----------------------------------------------------------------------------//
Procedure CleanUpInventory;
var
x, y:Integer;
begin
if PickupBones then Bones := Bones + ClickAllItemsBmpTolWait(Bone, 'ury', 50, 250); // Buries Bones
ClickAllItemsBmpTolWait(Bone, 'ury', 50, 250);
if FindBitmapMaskTolerance(BeerMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
Beers := Beers + ClickAllItemsBmpMaskTolWait(BeerMask, 'rink', 50, 10, 250); // Drink Beers
if FindBitmapMaskTolerance(EmptyBeerMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
ClickAllItemsBmpMaskTolWait(EmptyBeerMask, 'rop', 50, 10, 250); // Drop EmptyBeers
if FindBitmapMaskTolerance(DaggerMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
Daggers := Daggers + ClickAllItemsBmpMaskTolWait(DaggerMask, 'rop', 50, 10, 250); // Drop Daggers
if FindBitmapMaskTolerance(ShieldMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
Shields := Shields + ClickAllItemsBmpMaskTolWait( ShieldMask, 'rop', 50, 10, 250); // Drops Shields
if FindBitmapMaskTolerance(HideMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
begin
Hides := Hides + ClickAllItemsBmpMaskTolWait(HideMask, 'rop', 50, 10, 250); // Drops hides
Callibrate('Fast');
end;
end;
//----------------------------------------------------------------------------//