Const
UH_ID = 3160 // Coloke o id Da Potion Ou da Uh
MF_ID = 2874 // Coloke o Id da Mana Potion ou Demais Manas
UH_Alert = 5 // ALerta Qnd Tiver com Menos que 5 Uh Ou Potion
MF_Alert = 10 // Alerta Qnd tiver com Menas que 10 Manas
While not terminated do
begin
UpdateWorld;
A:=0;
B:=0;
for i:= 0 to Self.Containers.Count -1 do
begin
for G:= 0 to Self.Containers.Container.Count -1 do
begin
if Self.Containers.Container.Item[G].ID = UH_ID
then A:= A +1;
if Self.Containers.Container.Item[G].ID = MF_ID then
if Self.Containers.Container.Item[G].amount = 10
then B:= B + 1;
Sleep(100);
end;
Sleep(100);
end;
if (A <= UH_Alert) or ( B <= MF_Alert ) then
PlaySound('C:\Windows\Media\Notify.wav');
sleep(100);
end;