|
@@ -46,21 +46,6 @@ $EntryPoint = $ARGS[0]
|
|
|
'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.'
|
|
|
*nl
|
|
|
|
|
|
-if pcs_inhib >= 30 and pcs_horny > 60:
|
|
|
- act 'Masturbate to clear your head':
|
|
|
- *nl
|
|
|
- '<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'
|
|
|
- *nl
|
|
|
- 'That''s better!'
|
|
|
- $orgasm_or = 'yes'
|
|
|
- gs 'arousal', 'masturbate', 15
|
|
|
- gs 'arousal', 'end'
|
|
|
- gs 'stat'
|
|
|
- cla
|
|
|
- act 'Head cleared': gt 'treeCircle', $EntryPoint
|
|
|
- end
|
|
|
-end
|
|
|
-
|
|
|
! Determine if this user can teleport at all.
|
|
|
canTeleport = 0
|
|
|
if spellKnown['teleport'] = 1:
|
|
@@ -80,6 +65,8 @@ end
|
|
|
! Learn the current entry point
|
|
|
tpKnown[$EntryPoint] = 1
|
|
|
|
|
|
+gs 'treeCircActs', $EntryPoint
|
|
|
+
|
|
|
! Setup Actions for locations when applicable
|
|
|
i = 0
|
|
|
:LocLoop
|
|
@@ -91,6 +78,20 @@ if i < ARRSIZE('$tpLocations'):
|
|
|
jump 'LocLoop'
|
|
|
end
|
|
|
killvar 'i'
|
|
|
-gs 'treeCircActs', $EntryPoint
|
|
|
+
|
|
|
+if pcs_inhib >= 30 and pcs_horny > 60:
|
|
|
+ act 'Masturbate to clear your head':
|
|
|
+ *nl
|
|
|
+ '<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'
|
|
|
+ *nl
|
|
|
+ 'That''s better!'
|
|
|
+ $orgasm_or = 'yes'
|
|
|
+ gs 'arousal', 'masturbate', 15
|
|
|
+ gs 'arousal', 'end'
|
|
|
+ gs 'stat'
|
|
|
+ cla
|
|
|
+ act 'Head cleared': gt 'treeCircle', $EntryPoint
|
|
|
+ end
|
|
|
+end
|
|
|
|
|
|
--- treeCircle ---------------------------------
|