Const
MonsterName = 'Toad'
while not terminated do
begin
updateworld;
for i:= 0 to creatures.count -1 do
begin
if Creatures.Creature.Name = MonsterName
then playsound('C:\Windows\Media\Notify.wav');
sleep(100);
end;
sleep(100);
end;