Итак, есть некоторый код на языке DM:
Код: Выделить всё
obj/item/flasher/Pulse()
if(charge >= 100)
flick("FlashPulse",src)
for(var/mob/creature/victim in viewers(3,src))
if(haseye(victim) && !isblind(victim))
victim.flash(src)
Так вот, аналог на дельфях(примерно, пишу в блокноте):
Код: Выделить всё
type
flasher = class(item)
public
procedure Pulse();
begin
if(charge >= 100) then
begin
flick("pulse", self)
var victim:creature;
foreach(victim in viewers(3,self))
if((haseye(victim)) and (not isblind(victim))) then victim.flash(self);
end;
end;
end;
Код: Выделить всё
foreach(victim in viewers(3,self))