Const
tItem = 'mana potions...';
iMin = 20; <---- jak ile zostanie pot?w zostanie ma si? w??czy? alar
AlertFrom = 'C:/Windows/Media/Notify.wav'; <-- ?cie?ka do pliku muzycznego
Var iItem : integer;
procedure Event_Notice(Text: String);
begin
if Pos(tItem, Text) = 0 then Exit;
Delete(Text, 1, 13);
iItem := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1));
end;
While not terminated do
begin
iItem := 0;
updateworld;
ProcessEvents;
if iItem <> 0 then
begin
if iItem < iMin then
begin
PlaySound(AlertFrom);
end;
end;
end;
tItem = 'mana potions...';
iMin = 20; <---- jak ile zostanie pot?w zostanie ma si? w??czy? alar
AlertFrom = 'C:/Windows/Media/Notify.wav'; <-- ?cie?ka do pliku muzycznego
Const
tItem = 'mana potions...';
iMin = 20; <---- jak ile zostanie pot?w zostanie ma si? w??czy? alar
AlertFrom = 'C:/Windows/Media/tada.wav'; <-- ?cie?ka do pliku muzycznego
Var iItem : integer;
procedure Event_Notice(Text: String);
begin
if Pos(tItem, Text) = 0 then Exit;
Delete(Text, 1, 13);
iItem := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1));
end;
While not terminated do
begin
iItem := 0;
updateworld;
ProcessEvents;
if iItem <> 0 then
begin
if iItem < iMin then
begin
PlaySound(AlertFrom);
end;
end;
end;
Const
tItem = 'mana potions...';
iMin = 20; <---- jak ile zostanie pot?w zostanie ma si? w??czy? alar
AlertFrom = 'C:/Windows/Media/tada.wav'; <-- ?cie?ka do pliku muzycznego
Var iItem : integer;
procedure Event_Notice(Text: String);
begin
if Pos(tItem, Text) = 0 then Exit;
Delete(Text, 1, 13);
iItem := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1));
end;
While not terminated do
begin
iItem := 0;
updateworld;
ProcessEvents;
if iItem <> 0 then
begin
if iItem < iMin then
begin
PlaySound(AlertFrom);
end;
end;
end;
Const
tItem = 'mana potions...'; //
iMin = 20; //Minimum potions
AlertFrom = 'C:/Windows/Media/tada.wav'
logout = 0 // 0-dzwiek, 1- logout, 2- exit
Var iItem : integer;
procedure Event_Notice(Text: String);
begin
if Pos(tItem, Text) = 0 then Exit;
Delete(Text, 1, 13);
iItem := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1));
end;
While not terminated do
begin
iItem := 0;
updateworld;
ProcessEvents;
if iItem <> 0 then
begin
if iItem < iMin then
begin
PlaySound(AlertFrom);
If logout = 1 then
self.Logout(False);
if logout = 2 then
self.Logout(True);
end;
end;
end;
AlertFrom = 'C:/Windows/Media/town.wav'
AlertFrom = 'D:/Windows/Media/town.wav'
w C:/Windows/Media nie mam takiego d?wi?ku ale mam np : plik o nazwie town , to jak to podmieni? ?eby dzia?a?o ?