Advertisement
DPOH-VAR

test VarScript: DamageInfo.vs

Jul 14th, 2013
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.67 KB | None | 0 0
  1. ## объявляем функцию для обработки события
  2. %Listener{
  3.     ## если атакующий другой - выход
  4.     @Event:getDamager @Me = ! IF RETURN THEN
  5.     ## пишем информацию о дамаге
  6.     "Damage to " @Event:getEntity S+ " : " S+ @Event:getDamage S+ PRINT
  7. }
  8.  
  9. ## регистрируем событие атаки, получаем триггер
  10. @Listener "EntityDamageByEntityEvent" REGISTER %%trigger
  11. ## ждем 10 секунд
  12. 10 WAIT
  13. ## пишем о завершении
  14. "--- finish ---" PRINT
  15. ## по завершении программы все триггеры отключаются автоматически
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement