treeCircActs.qsrc 790 B

123456789101112131415161718192021222324252627
  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':
  7. if $treeCircLoc['<<$ARGS[0]>>'] = 'pav_parkev':
  8. cla
  9. act 'Park entrance': gt 'pav_park', 'start'
  10. act 'Deeper into the park': gt 'pav_park', 'deeper_park'
  11. elseif $treeCircArg['<<$ARGS[0]>>'] = '':
  12. gt $treeCircLoc['<<$ARGS[0]>>']
  13. else
  14. gt $treeCircLoc['<<$ARGS[0]>>'], $treeCircArg['<<$ARGS[0]>>']
  15. end
  16. end
  17. else
  18. if canTeleport = 1 and tpKnown[$ARGS[0]] = 1:
  19. $dynAction = "act 'Will yourself to <<$treeCircName[$ARGS[0]]>>': gs 'castSpell', 'teleport', '<<$ARGS[0]>>'"
  20. dynamic $dynAction
  21. end
  22. end
  23. --- treeCircActs ---------------------------------