treeCircle.qsrc 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  1. # treeCircle
  2. ! The Magical Teleport Tree Circle
  3. !
  4. ! ARGS[0] is your entrance point as those listed below. If the user doesn''t have the magical ability,
  5. ! they will only be allowed to leave back from their entry point.
  6. ! Locations
  7. $tpLocations[0] = 'CentralPark'
  8. $tpLocations[1] = 'PavlovskPark'
  9. $tpLocations[2] = 'GadForest'
  10. $tpLocations[3] = 'PushkinPark'
  11. $tpLocations[4] = 'Village'
  12. ! Build Info Arrays for Locations
  13. ! treeCircName = The Pretty Name of the Location
  14. ! treeCircLoc = The Location to send the user to when leaving Circle
  15. ! treeCircArg = An argument to get the user to the right spot in the location.
  16. !Central Park Location
  17. $treeCircName['CentralPark'] = 'Central Park'
  18. $treeCircLoc['CentralPark'] = 'city_park'
  19. $treeCircArg['CentralPark'] = 'start'
  20. !Pavlovsk Park Location
  21. $treeCircName['PavlovskPark'] = 'Pavlovsk Park'
  22. $treeCircLoc['PavlovskPark'] = 'placer_pav_park'
  23. $treeCircArg['PavlovskPark'] = ''
  24. !Gadukino Forest Location
  25. $treeCircName['GadForest'] = 'Gadukino Forest'
  26. $treeCircLoc['GadForest'] = 'gadforest'
  27. $treeCircArg['GadForest'] = 'forest_edge'
  28. !Pushkin Park Location
  29. $treeCircName['PushkinPark'] = 'Pushkin Park'
  30. $treeCircLoc['PushkinPark'] = 'lug'
  31. $treeCircArg['PushkinPark'] = 'prut2'
  32. !Communal Village Spring Location
  33. $treeCircName['Village'] = 'Communal Village Spring'
  34. $treeCircLoc['Village'] = 'etoexhib'
  35. $treeCircArg['Village'] = 'pos6'
  36. $EntryPoint = $ARGS[0]
  37. *clr & cla
  38. '<center><h2>Mysterious Circle of Trees</h2></center>'
  39. '<center><img <<$set_imgh>> src="images/locations/shared/park/tree_circle.jpg"></center>'
  40. 'The small clearing in the center of the tree circle is two body lengths wide. The ground is covered with a soft, spongy moss. Everything is surprisingly visible considering you can barely see the sky through the overhead cover of leaves and branches. As you look to the outside of the circle, everything seems to be vague and indistinct. This makes it hard to comprehend what lies outside the ring.'
  41. *nl
  42. if pcs_inhib >= 30 and pcs_horny > 60:
  43. act 'Masturbate to clear your head':
  44. *nl
  45. '<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'
  46. *nl
  47. 'That''s better!'
  48. $orgasm_or = 'yes'
  49. gs 'arousal', 'masturbate', 15
  50. gs 'arousal', 'end'
  51. gs 'stat'
  52. cla
  53. act 'Head cleared': gt 'treeCircle', $EntryPoint
  54. end
  55. end
  56. ! Determine if this user can teleport at all.
  57. canTeleport = 0
  58. if spellKnown['teleport'] = 1:
  59. 'You take the fairy''s advice and get to know this circle.'
  60. minut += 15
  61. if pcs_mana > spellMana['teleport']:
  62. canTeleport = 1
  63. else
  64. *nl
  65. 'You feel too tired to pull off a shift right now.'
  66. end
  67. else
  68. 'You can feel something strange and powerful in this place, but you can''t quite put your finger on it. It is intriguing though, so you take your time and look the place over to try to understand it.'
  69. minut += 15
  70. end
  71. ! Learn the current entry point
  72. tpKnown[$EntryPoint] = 1
  73. ! Setup Actions for locations when applicable
  74. i = 0
  75. :LocLoop
  76. if i < ARRSIZE('$tpLocations'):
  77. if $EntryPoint ! $tpLocations[i]:
  78. gs 'treeCircActs', $tpLocations[i]
  79. end
  80. i += 1
  81. jump 'LocLoop'
  82. end
  83. killvar 'i'
  84. gs 'treeCircActs', $EntryPoint
  85. --- treeCircle ---------------------------------