treeCircle.qsrc 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  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'] = 'park'
  19. $treeCircArg['CentralPark'] = 'start'
  20. !Pavlovsk Park Location
  21. $treeCircName['PavlovskPark'] = 'Pavlovsk Park'
  22. $treeCircLoc['PavlovskPark'] = 'placer_gskver'
  23. $treeCircArg['PavlovskPark'] = ''
  24. !Gadukino Forest Location
  25. $treeCircName['GadForest'] = 'Gadukino Forest'
  26. $treeCircLoc['GadForest'] = 'gadforest'
  27. $treeCircArg['GadForest'] = '1'
  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, sponging moss. Everything is surprisingly visible considering you cna 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. ! Determine if this user can teleport at all.
  43. canTeleport = 0
  44. if spellKnown['teleport'] = 1:
  45. 'You take the Fairy''s advice and get to know this Circle.'
  46. minut += 15
  47. if pcs_mana > spellMana['teleport']:
  48. canTeleport = 1
  49. else
  50. *nl
  51. 'You feel too tired to pull off a shift right now.'
  52. end
  53. else
  54. '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 loook the place over to try to understand it.'
  55. minut += 15
  56. end
  57. ! Learn the current entry point
  58. tpKnown[$EntryPoint] = 1
  59. ! Setup Actions for locations when applicable
  60. i = 0
  61. :LocLoop
  62. if i < ARRSIZE('$tpLocations'):
  63. gs 'treeCircActs', $tpLocations[i]
  64. i += 1
  65. jump 'LocLoop'
  66. end
  67. killvar 'i'
  68. if pcs_inhib >= 30 and pcs_horny > 60:
  69. act 'Masturbate to clear your head.':
  70. *nl
  71. '<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'
  72. *nl
  73. 'That''s better!'
  74. $orgasm_or = 'yes'
  75. gs 'arousal', 'masturbate', 15
  76. gs 'arousal', 'end'
  77. gs 'stat'
  78. cla
  79. act 'Head Cleared.': gt 'treeCircle', $EntryPoint
  80. end
  81. end
  82. --- treeCircle ---------------------------------