1
0

treeCircActs.qsrc 773 B

1234567891011121314151617181920212223242526
  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. ! ARGS[1] = Localtion Label ['Central Park']
  6. ! ARGS[2] = location leaving to ['park']
  7. ! ARGS[3] = parameter for prev ['start']
  8. if $EntryPoint = $ARGS[0]:
  9. act 'Leave the circle to <<$treeCircName[$ARGS[0]]>>':
  10. if $treeCircArg['<<$ARGS[0]>>'] = '':
  11. gt $treeCircLoc['<<$ARGS[0]>>']
  12. else:
  13. gt $treeCircLoc['<<$ARGS[0]>>'], $treeCircArg['<<$ARGS[0]>>']
  14. end
  15. end
  16. else:
  17. if canTeleport = 1 and tpKnown[$ARGS[0]] = 1:
  18. $dynAction = "act 'Will yourself to <<$treeCircName[$ARGS[0]]>>': gs 'spellTeleport', '<<$ARGS[0]>>'"
  19. dynamic $dynAction
  20. end
  21. end
  22. --- treeCircActs ---------------------------------