| jabol123 |
 Wysłany: Czw 21:18, 05 Mar 2009 Temat postu: Alarm gdy brak UH, MF |
|
Alarm właczy się gdy zostanie nam określona ilość uhów oraz mfów. Musi być otwarty BP
| Kod: |
Const
UH_ID = 3160 // Enter the UH ID.
MF_ID = 2874 // Enter here manafluid ID.
UH_Alert = 5 // when UH_Alert UH's left then it alets...
MF_Alert = 10 // when this number of MF left then it alerts....
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[i].Count -1 do
begin
if Self.Containers.Container[i].Item[G].ID = UH_ID
then A:= A +1;
if Self.Containers.Container[i].Item[G].ID = MF_ID then
if Self.Containers.Container[i].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;
|
|
|
