treeCircEntry.qsrc 507 B

12345678910111213141516171819
  1. #treeCircEntry
  2. ! Use this to insert an Entry Point to the Tree Cicle
  3. ! ARGS[0] = the EntryPoint ID name from $tpLocations[]
  4. if MagikDostup = 0:
  5. ! Setup for teleport circle
  6. if tpKnown[$ARGS[0]] = 1:
  7. $EntryAction = "act 'Enter the hidden circle of trees': gt 'treeCircle', '<<$ARGS[0]>>'"
  8. else:
  9. $EntryAction = "act 'Investigate a mysterious copse of trees': gt 'treeCircle', '<<$ARGS[0]>>'"
  10. end
  11. dynamic $EntryAction
  12. killvar '$EntryAction'
  13. end
  14. --- treeCircEntry ---------------------------------