treeCircActs.qsrc 650 B

12345678910111213141516171819202122
  1. #treeCircActs
  2. ! Handles making Action Entries for Different Tree Circle Entry Points
  3. ! Call as a GoSub with ARGS:
  4. ! ARGS[0] = Location Identifier ['CentralPark']
  5. if $EntryPoint = $ARGS[0]:
  6. act 'Leave the circle to <<$treeCircName[$ARGS[0]]>>':
  7. if $treeCircArg['<<$ARGS[0]>>'] = '':
  8. gt $treeCircLoc['<<$ARGS[0]>>']
  9. else
  10. gt $treeCircLoc['<<$ARGS[0]>>'], $treeCircArg['<<$ARGS[0]>>']
  11. end
  12. end
  13. else
  14. if canTeleport = 1 and tpKnown[$ARGS[0]] = 1:
  15. $dynAction = "act 'Will yourself to <<$treeCircName[$ARGS[0]]>>': gs 'castSpell', 'teleport', '<<$ARGS[0]>>'"
  16. dynamic $dynAction
  17. end
  18. end
  19. --- treeCircActs ---------------------------------