Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2020
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.68 KB | None | 0 0
  1. (defrule
  2. (true)
  3. =>
  4. (up-full-reset-search)
  5. (set-strategic-number sn-focus-player-number 1)
  6. (set-goal temporary-goal 0) ; some temporary goal to keep track of the loop index.
  7. )
  8. (defrule
  9. (players-stance focus-player enemy) ; make sure our current focus player is an enemy.
  10. (strategic-number sn-focus-player-number != my-player-number) ; make sure this focus player is not us.
  11.  
  12. =>
  13. (up-find-remote c: town-center c: 40)
  14. (up-get-search-state gl-local-total)
  15. )
  16. (defrule
  17. (strategic-number sn-focus-player-number < 8) ; loop through all players
  18. =>
  19. (up-modify-sn sn-focus-player-number c:+ 1)
  20. (up-jump-rule -2)
  21. )
  22. (defrule
  23. (up-set-target-object search-remote g: temporary-goal) ; see if there is an object at this index.
  24. =>
  25. (up-reset-search 1 1 0 0) ; reset our local list.
  26. (up-get-point position-object gl-point-x) ; get the position of this tc.
  27. (up-set-target-point gl-object-x)
  28. (up-filter-distance c: -1 c: 10)
  29. (up-find-local c: all-units-class c: 240) ; find our guys.
  30. (up-get-search-state gl-local-total)
  31. )
  32. (defrule
  33. (up-set-target-object search-remote g: temporary-goal) ; see if there is an object at this index.
  34. (up-compare-goal gl-local-total > 0) ; we found guys near this enemy tc.
  35. =>
  36. (up-set-target-object search-local c: 0)
  37. (up-get-point position-object gl-object-x)
  38. (up-lerp-tiles gl-object-x gl-point-x c: -5) ; move them away from this tc.
  39. (up-bound-point gl-object-x gl-object-x)
  40. (up-target-point gl-object-x action-move -1 stance-stand-ground) ; issue the move command.
  41. )
  42. (defrule
  43. (up-compare-goal temporary-goal g:< gl-remote-total)
  44. =>
  45. (up-modify-goal temporary-goal c:+ 1) ; increase the loop index for the remote list.
  46. (up-jump-rule -3)
  47. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement