Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defrule
- (true)
- =>
- (up-full-reset-search)
- (set-strategic-number sn-focus-player-number 1)
- (set-goal temporary-goal 0) ; some temporary goal to keep track of the loop index.
- )
- (defrule
- (players-stance focus-player enemy) ; make sure our current focus player is an enemy.
- (strategic-number sn-focus-player-number != my-player-number) ; make sure this focus player is not us.
- =>
- (up-find-remote c: town-center c: 40)
- (up-get-search-state gl-local-total)
- )
- (defrule
- (strategic-number sn-focus-player-number < 8) ; loop through all players
- =>
- (up-modify-sn sn-focus-player-number c:+ 1)
- (up-jump-rule -2)
- )
- (defrule
- (up-set-target-object search-remote g: temporary-goal) ; see if there is an object at this index.
- =>
- (up-reset-search 1 1 0 0) ; reset our local list.
- (up-get-point position-object gl-point-x) ; get the position of this tc.
- (up-set-target-point gl-object-x)
- (up-filter-distance c: -1 c: 10)
- (up-find-local c: all-units-class c: 240) ; find our guys.
- (up-get-search-state gl-local-total)
- )
- (defrule
- (up-set-target-object search-remote g: temporary-goal) ; see if there is an object at this index.
- (up-compare-goal gl-local-total > 0) ; we found guys near this enemy tc.
- =>
- (up-set-target-object search-local c: 0)
- (up-get-point position-object gl-object-x)
- (up-lerp-tiles gl-object-x gl-point-x c: -5) ; move them away from this tc.
- (up-bound-point gl-object-x gl-object-x)
- (up-target-point gl-object-x action-move -1 stance-stand-ground) ; issue the move command.
- )
- (defrule
- (up-compare-goal temporary-goal g:< gl-remote-total)
- =>
- (up-modify-goal temporary-goal c:+ 1) ; increase the loop index for the remote list.
- (up-jump-rule -3)
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement