Advertisement
Guest User

Untitled

a guest
Sep 18th, 2017
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. If T>0 and Мой_ход = 1:
  2. act 'Залп Торпедами':
  3. T = T-1
  4. elseif Бр = 1:
  5. атака_текущая = DT
  6. '<font color=blue>Силовой Щит</font> против <font color=blue>Торпеды</font>?! Это смешно!'
  7. Здоровье_врага = Здоровье_врага-атака_текущая
  8. 'Вы нанесли <<$Враг>> урон <<атака_текущая>>.'
  9. '------------'
  10. elseif Бр = 2:
  11. атака_текущая = DT
  12. '<font color=blue><<$Враг>></font> попытался сделать <font color=blue>Противоракетный Маневр</font>, но обмануть систему наведения <font color=blue>Торпед</font> ему не удалось!'
  13. Здоровье_врага = Здоровье_врага-атака_текущая
  14. 'Вы нанесли <<$Враг>> урон <<атака_текущая>>.'
  15. '------------'
  16. elseif Бр = 3:
  17. атака_текущая = EDT
  18. '<font color=blue>Генератор помех</font> успешно отклонил <font color=blue>Торпеду</font> с курса, но несколько околков все же зацепили машину противника.'
  19. Здоровье_врага = Здоровье_врага-атака_текущая
  20. 'Вы нанесли <<$Враг>> урон <<атака_текущая>>.'
  21. '------------'
  22. ход_противника = 1
  23. мой_ход = 0
  24. XGOTO $CURLOC
  25. end
  26. else
  27.  Delact 'Залп Торпедами'  
  28. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement