Хищники и жертвы

[Balthazar]

напишите пожалуйста кто-нибудь фрагмент кода программы на Visual Basic про хищника и жертву.нужет тот фрагмент где хищник поедает жертву,догоняя её.

[lxa85]

:lol: У меня VBA под руками нет, но как-то так:
function catch(pr,vic) as boolean:
if pr.x=vic.x then catch=true
else catch=false:
end function

procedure eat(pr,vic) :
pr.eat=pr.eat+1:
Vic.killed=true:
end procedure:

if Catch(Predator, Victim) then Eat(Predator, Victim)
помогло? :)

[Balthazar]

да, немного.спасибо!)