exercise 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365
  1. # exercise
  2. !{This will centralize calls for exercise. For calls where you wish to allow multiple types of exercises, such as a bedroom or yard, use gs 'exercise', 'start'
  3. For direct calls use this format: gs 'exercise', $ARGS[0], ARG[1], $ARGS[2], $ARGS[3], $ARGS[4]
  4. $ARGS[0] is the workout tier and the higher the tier, the greater the workout intensity.
  5. Values: 'tier1' 'tier2' 'tier3' 'tier4'
  6. ARG[1] is the time override. By default the tiers are in 15 minute segments if being called from an event with predetermined time set this to 1
  7. Values: 0 (default of 15 minutes) 1 (time set to 0)
  8. $ARGS[2] and on are the stats to be affected by the workout NOTE: use the _exp variant, not the pcs_!!!!
  9. Values: 'stren_exp' 'vital_exp' 'agil_exp' 'sprt_exp' 'react_exp'
  10. Other stats can be added if desired - for a dance-a-thon you might use gs 'exercise', 'tier1', 0, 'agil_exp', 'danc_exp'
  11. }
  12. if $ARGS[0] = 'start':
  13. if $loc = 'Meadow':
  14. if sunWeather = 1:
  15. if pcs_stam >=30:
  16. if $clothingworntype ! 'exercise' and pcs_exhibition < 35:
  17. '<center>You could do some exercises here if you were wearing workout clothes.</center>'
  18. elseif $clothingworntype ! 'exercise' and pcs_exhibition >= 35 and Miraloc ! 2 and temper >= 10:
  19. '<center>Your meadow is a perfect place to do some exercises. There is no one around, so you could do it <a href="exec: gt ''exercise'', ''workout'', ''nude'', ''Meadow''"> in the nude</a>.</center>'
  20. else
  21. '<center>Your meadow is a perfect place to do some <a href="exec: gt ''exercise'', ''workout''">exercises</a>.</center>'
  22. end
  23. else
  24. '<center>Your meadow is a perfect place to do some exercises, but you don''t have the energy right now.</center>'
  25. end
  26. end
  27. elseif pcs_stam >=30 and $loc ! 'Meadow':
  28. '<center>There is enough space in the room to <a href="exec: gt ''exercise'', ''workout''">exercise</a>.</center>'
  29. else
  30. '<center>There is enough space in the room for a variety of exercises, but you don''t have the energy to work out now.</center>'
  31. end
  32. end
  33. if $ARGS[0] = 'workout':
  34. cla
  35. if $ARGS[2] ! '': $sportloc = $ARGS[2]
  36. gs 'stat'
  37. if $ARGS[1] = 'nude':
  38. gs 'clothing', 'strip', $sportloc
  39. gs 'arousal', 'foreplay', 15, 'exhibitionism'
  40. gs 'arousal', 'end'
  41. minut -= 15
  42. gs 'stat'
  43. if exhibitionQW < 3: 'Your cheeks feel hot with embarrassment as you strip off your clothes. You giggle nervously at the thought of getting caught in the nude - the thought terrifies you but it also excites you.'
  44. end
  45. if pcs_stam >= 30:
  46. Act 'Do pushups for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'push'
  47. Act 'Do crunches for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'press'
  48. if skak > 0 and $loc ! 'meadow':
  49. Act 'Jump rope for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'rope'
  50. end
  51. if bookYog > 0:
  52. Act 'Do yoga for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga'
  53. end
  54. if obruch > 0 and $loc ! 'meadow':
  55. Act 'Use your hula hoop for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'hula'
  56. end
  57. end
  58. if pcs_stam >= 40:
  59. Act 'Do pushups for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'push'
  60. Act 'Do crunches for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'press'
  61. if skak > 0 and $loc ! 'meadow':
  62. Act 'Jump rope for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'rope'
  63. end
  64. if bookYog > 0:
  65. Act 'Do yoga for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga'
  66. end
  67. if obruch > 0 and $loc ! 'meadow':
  68. Act 'Use your hula hoop for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'hula'
  69. end
  70. end
  71. if pcs_stam >= 50:
  72. Act 'Do pushups for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'push'
  73. Act 'Do crunches for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'press'
  74. if skak > 0 and $loc ! 'meadow':
  75. Act 'Jump rope for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'rope'
  76. end
  77. if bookYog > 0:
  78. Act 'Do yoga for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga'
  79. end
  80. if obruch > 0 and $loc ! 'meadow':
  81. Act 'Use your hula hoop for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'hula'
  82. end
  83. end
  84. if pcs_stam >= 60:
  85. Act 'Do pushups for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'push'
  86. Act 'Do crunches for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'press'
  87. if skak > 0 and $loc ! 'meadow':
  88. Act 'Jump rope for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'rope'
  89. end
  90. if bookYog > 0:
  91. Act 'Do yoga for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga'
  92. end
  93. if obruch > 0 and $loc ! 'meadow':
  94. Act 'Use your hula hoop for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'hula'
  95. end
  96. end
  97. if pcs_stam < 30:
  98. 'You don''t have the energy to work out anymore now.'
  99. end
  100. if clothesAtLocation = 1 and $clothingworntype = 'nude':
  101. Act 'End workout and get dressed':
  102. cla
  103. minut += 5
  104. gs 'clothing', 'recover_lost_clothes', $sportloc, 1
  105. gt $loc, $metka
  106. end
  107. else
  108. Act 'Leave': gt $loc, $metka
  109. end
  110. end
  111. if $ARGS[0] = 'hula':
  112. cla
  113. *clr
  114. loopcount = 1
  115. :timeloophula
  116. gs 'exercise', 'tier2', 0, 'agil_exp', 'react_exp'
  117. if loopcount < timemult: loopcount += 1 & jump 'timeloophula'
  118. loopcount = 0
  119. timemult = 0
  120. if $clothingworntype ! 'nude':
  121. if $location_type = 'secluded':
  122. if month >=5 and month <= 9:
  123. '<center><img src="images/pc/activities/hulaoutdoors.jpg"></center>'
  124. else
  125. '<center><img src="images/pc/activities/hulawinter.gif"></center>'
  126. end
  127. else
  128. '<center><img src="images/pc/activities/huladressed.gif"></center>'
  129. end
  130. else
  131. '<center><img src="images/pc/activities/obruch.gif"></center>'
  132. end
  133. 'You develop your dexterity by using your hula hoop for <<$timestring>> minutes.'
  134. Act 'Continue': gt 'exercise', 'workout'
  135. end
  136. if $ARGS[0] = 'yoga':
  137. cla
  138. *clr
  139. loopcount = 1
  140. :timeloopyoga
  141. gs 'exercise', 'tier2', 0, 'sprt_exp', 'agil_exp', 'pcs_willpwr'
  142. if loopcount < timemult: loopcount += 1 & jump 'timeloopyoga'
  143. loopcount = 0
  144. timemult = 0
  145. if $clothingworntype ! 'nude':
  146. '<center><img src="images/pc/activities/yoga_dressed.jpg"></center>'
  147. elseif tanga = 1:
  148. '<center><img src="images/pc/activities/yoga_underwear.jpg"></center>'
  149. else
  150. '<center><img src="images/pc/activities/yoga_naked.png"></center>'
  151. end
  152. 'You meditate for <<$timestring>> minutes, developing your will.'
  153. Act 'Continue': gt 'exercise', 'workout'
  154. end
  155. if $ARGS[0] = 'rope':
  156. cla
  157. *clr
  158. loopcount = 1
  159. :timelooprope
  160. gs 'exercise', 'tier3', 0, 'agil_exp', 'react_exp'
  161. if loopcount < timemult: loopcount += 1 & jump 'timelooprope'
  162. loopcount = 0
  163. timemult = 0
  164. if $clothingworntype ! 'nude':
  165. '<center><img src="images/pc/activities/rope_dressed.jpg"></center>'
  166. elseif tanga = 1:
  167. '<center><img src="images/pc/activities/rope_underwear.jpg"></center>'
  168. else
  169. '<center><img src="images/pc/activities/rope_naked.jpg"></center>'
  170. end
  171. 'You jump rope for <<$timestring>> minutes, developing your speed.'
  172. Act 'Continue': gt 'exercise', 'workout'
  173. end
  174. if $ARGS[0] = 'press':
  175. cla
  176. *clr
  177. loopcount = 1
  178. :timelooppress
  179. gs 'exercise', 'tier3', 0, 'vital_exp'
  180. if loopcount < timemult: loopcount += 1 & jump 'timelooppress'
  181. loopcount = 0
  182. timemult = 0
  183. if $clothingworntype ! 'nude':
  184. '<center><img src="images/pc/activities/abdominal_dressed.jpg"></center>'
  185. elseif tanga = 1:
  186. '<center><img src="images/pc/activities/abdominal_underwear.jpg"></center>'
  187. else
  188. '<center><img src="images/pc/activities/abdominal_naked.jpg"></center>'
  189. end
  190. 'You do a series of abdominal exercises for <<$timestring>> minutes, developing your endurance.'
  191. Act 'Continue': gt 'exercise', 'workout'
  192. end
  193. if $ARGS[0] = 'push':
  194. cla
  195. *clr
  196. loopcount = 1
  197. :timelooppush
  198. gs 'exercise', 'tier3', 0, 'stren_exp'
  199. if loopcount < timemult: loopcount += 1 & jump 'timelooppush'
  200. loopcount = 0
  201. timemult = 0
  202. if $clothingworntype ! 'nude':
  203. '<center><img src="images/pc/activities/push_dressed.jpg"></center>'
  204. elseif tanga = 1:
  205. '<center><img src="images/pc/activities/push_underwear.jpg"></center>'
  206. else
  207. '<center><img src="images/pc/activities/push_naked.jpg"></center>'
  208. end
  209. 'You do push-ups for <<$timestring>> minutes, developing your strength.'
  210. pushnum = pcs_stren * pcs_sleep * rand(1,3) / 200
  211. '<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
  212. if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
  213. Act 'Continue': gt 'exercise', 'workout'
  214. end
  215. if $ARGS[0] = 'tier1':
  216. if ARGS[1] = 0: minut += 15
  217. pcs_stam -= 5
  218. pcs_sweat += 3
  219. fat -= 1
  220. pcs_mood += 3
  221. pcs_willpwr += 3
  222. if $ARGS[3] = '':
  223. dynamic '<<$ARGS[2]>> += 1'
  224. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  225. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  226. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  227. end
  228. else
  229. i = 2
  230. :exploop
  231. if $ARGS[i] ! '':
  232. dynamic '<<$ARGS[i]>> += rand(0,1)'
  233. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  234. i += 1
  235. jump 'exploop'
  236. else
  237. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  238. killvar 'steroidcheck'
  239. killvar 'i'
  240. exit
  241. end
  242. end
  243. end
  244. if $ARGS[0] = 'tier2':
  245. if ARGS[1] = 0: minut += 15
  246. pcs_stam -= 10
  247. pcs_sweat += 10
  248. fat -= 2
  249. pcs_mood += 5
  250. pcs_willpwr += 5
  251. if $ARGS[3] = '':
  252. dynamic '<<$ARGS[2]>> += rand(2,3)'
  253. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  254. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  255. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  256. end
  257. else
  258. i = 2
  259. :exploop2
  260. if $ARGS[i] ! '':
  261. dynamic '<<$ARGS[i]>> += rand(1,2)'
  262. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  263. i += 1
  264. jump 'exploop2'
  265. else
  266. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  267. killvar 'steroidcheck'
  268. killvar 'i'
  269. end
  270. end
  271. end
  272. if $ARGS[0] = 'tier3':
  273. if ARGS[1] = 0: minut += 15
  274. pcs_stam -= 15
  275. pcs_sweat += 15
  276. fat -= 3
  277. pcs_mood += 5
  278. pcs_willpwr += 5
  279. if $ARGS[3] = '':
  280. dynamic '<<$ARGS[2]>> += rand(3,5)'
  281. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  282. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  283. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  284. end
  285. else
  286. i = 2
  287. :exploop3
  288. if $ARGS[i] ! '':
  289. dynamic '<<$ARGS[i]>> += rand(2,3)'
  290. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  291. i += 1
  292. jump 'exploop3'
  293. else
  294. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  295. killvar 'steroidcheck'
  296. killvar 'i'
  297. end
  298. end
  299. end
  300. if $ARGS[0] = 'tier4':
  301. if ARGS[1] = 0: minut += 15
  302. pcs_stam -= 25
  303. pcs_sweat += 25
  304. fat -= 4
  305. pcs_mood += 5
  306. pcs_willpwr += 5
  307. if $ARGS[3] = '':
  308. dynamic '<<$ARGS[2]>> += rand(7,10)'
  309. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  310. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  311. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  312. end
  313. else
  314. i = 2
  315. :exploop4
  316. if $ARGS[i] ! '':
  317. dynamic '<<$ARGS[i]>> += rand(3,5)'
  318. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  319. i += 1
  320. jump 'exploop4'
  321. else
  322. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  323. killvar 'steroidcheck'
  324. killvar 'i'
  325. end
  326. end
  327. end
  328. if $ARGS[0] = 'timestring':
  329. if timemult = 1: $timestring = 'fifteen'
  330. if timemult = 2: $timestring = 'thirty'
  331. if timemult = 3: $timestring = 'forty-five'
  332. if timemult = 4: $timestring = 'sixty'
  333. end
  334. --- exercise ---------------------------------