exercise 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609
  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 (pcs_stam >=15 or pcs_stam >= 10 and bookYog + obruch > 0):
  14. 'There is enough space in the room to <a href="exec: gt ''exercise'', ''workout''">exercise</a>.'
  15. else
  16. 'There is enough space in the room for a variety of exercises, but you don''t have the energy to work out now.'
  17. end
  18. end
  19. if $ARGS[0] = 'workout':
  20. cla
  21. $sportloc = $ARGS[2]
  22. if $ARGS[1] = 'nude':
  23. if $sportloc = 'Meadow':
  24. 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.'
  25. clothesAtLocation = FUNC('lost_clothes_here',$sportloc)
  26. gs 'arousal', 'foreplay', 15, 'exhibitionism'
  27. gs 'arousal', 'end'
  28. minut -= 15
  29. end
  30. end
  31. gs 'stat'
  32. *nl
  33. '<a href="exec:gt ''exercise'', ''setup''">Click here</a> to set up your automated exercise options.'
  34. if clothesAtLocation = 1:
  35. act 'End workout and get dressed':
  36. cla
  37. minut += 5
  38. gs 'underwear', 'wear'
  39. gs 'clothing', 'recover_lost_clothes', $sportloc, 1
  40. gt $loc, $metka
  41. end
  42. else
  43. if $sportloc = 'Meadow': gs 'underwear', 'wear'
  44. act 'Leave': gt $loc, $metka
  45. end
  46. act 'Manual': gt 'exercise', 'manual'
  47. if exer_stam[1] ! 0 and pcs_stam > exer_stam[1]: act '<<$excer_name[1]>> - (<<exer_stam[1]>> stamina)': exercisex = 1 & gt 'exercise', 'auto'
  48. if exer_stam[2] ! 0 and pcs_stam > exer_stam[2]: act '<<$excer_name[2]>> - (<<exer_stam[2]>> stamina)': exercisex = 2 & gt 'exercise', 'auto'
  49. if exer_stam[3] ! 0 and pcs_stam > exer_stam[3]: act '<<$excer_name[3]>> - (<<exer_stam[3]>> stamina)': exercisex = 3 & gt 'exercise', 'auto'
  50. if exer_stam[4] ! 0 and pcs_stam > exer_stam[4]: act '<<$excer_name[4]>> - (<<exer_stam[4]>> stamina)': exercisex = 4 & gt 'exercise', 'auto'
  51. end
  52. if $ARGS[0] = 'auto':
  53. exer_auto = 1
  54. if exer_rout0[exercisex] > 0:
  55. timemult = exer_rout0[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'push', 'auto'
  56. elseif exer_rout1[exercisex] > 0:
  57. timemult = exer_rout1[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'press', 'auto'
  58. elseif exer_rout2[exercisex] > 0:
  59. timemult = exer_rout2[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'auto'
  60. elseif exer_rout3[exercisex] > 0:
  61. timemult = exer_rout3[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'auto'
  62. elseif exer_rout4[exercisex] > 0:
  63. timemult = exer_rout4[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'auto'
  64. end
  65. end
  66. if $ARGS[0] = 'auto1':
  67. if exer_rout1[exercisex] > 0:
  68. timemult = exer_rout1[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'press', 'auto'
  69. elseif exer_rout2[exercisex] > 0:
  70. timemult = exer_rout2[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'auto'
  71. elseif exer_rout3[exercisex] > 0:
  72. timemult = exer_rout3[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'auto'
  73. elseif exer_rout4[exercisex] > 0:
  74. timemult = exer_rout4[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'auto'
  75. end
  76. end
  77. if $ARGS[0] = 'auto2':
  78. if exer_rout2[exercisex] > 0:
  79. timemult = exer_rout2[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'auto'
  80. elseif exer_rout3[exercisex] > 0:
  81. timemult = exer_rout3[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'auto'
  82. elseif exer_rout4[exercisex] > 0:
  83. timemult = exer_rout4[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'auto'
  84. else
  85. gt 'exercise', 'auto_end'
  86. end
  87. end
  88. if $ARGS[0] = 'auto3':
  89. if exer_rout3[exercisex] > 0:
  90. timemult = exer_rout3[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'auto'
  91. elseif exer_rout4[exercisex] > 0:
  92. timemult = exer_rout4[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'auto'
  93. else
  94. gt 'exercise', 'auto_end'
  95. end
  96. end
  97. if $ARGS[0] = 'auto4':
  98. if exer_rout4[exercisex] > 0:
  99. timemult = exer_rout4[exercisex] & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'auto'
  100. else
  101. gt 'exercise', 'auto_end'
  102. end
  103. end
  104. if $ARGS[0] = 'auto_end':
  105. exer_auto = 0
  106. if clothesAtLocation = 1:
  107. cla
  108. minut += 5
  109. gs 'underwear', 'wear'
  110. gs 'clothing', 'recover_lost_clothes', $sportloc, 1
  111. gt $loc, $metka
  112. else
  113. if $sportloc = 'Meadow': gs 'underwear', 'wear'
  114. gt $loc, $metka
  115. end
  116. end
  117. if $ARGS[0] = 'manual':
  118. cla
  119. if pcs_stam >= 15:
  120. Act 'Do pushups for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'push', 'manual'
  121. Act 'Do crunches for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'press', 'manual'
  122. if skak > 0 and $sportloc ! 'Meadow':
  123. Act 'Jump rope for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'manual'
  124. end
  125. end
  126. if pcs_stam >= 10:
  127. if bookYog > 0:
  128. Act 'Do yoga for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'manual'
  129. end
  130. if obruch > 0 and $sportloc ! 'Meadow':
  131. Act 'Use your hula hoop for 15 minutes': timemult = 1 & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'manual'
  132. end
  133. end
  134. if pcs_stam >= 30:
  135. Act 'Do pushups for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'push', 'manual'
  136. Act 'Do crunches for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'press', 'manual'
  137. if skak > 0 and $sportloc ! 'Meadow':
  138. Act 'Jump rope for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'manual'
  139. end
  140. end
  141. if pcs_stam >= 20:
  142. if bookYog > 0:
  143. Act 'Do yoga for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'manual'
  144. end
  145. if obruch > 0 and $sportloc ! 'Meadow':
  146. Act 'Use your hula hoop for 30 minutes': timemult = 2 & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'manual'
  147. end
  148. end
  149. if pcs_stam >= 45:
  150. Act 'Do pushups for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'push', 'manual'
  151. Act 'Do crunches for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'press', 'manual'
  152. if skak > 0 and $sportloc ! 'Meadow':
  153. Act 'Jump rope for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'manual'
  154. end
  155. end
  156. if pcs_stam >= 30:
  157. if bookYog > 0:
  158. Act 'Do yoga for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'manual'
  159. end
  160. if obruch > 0 and $sportloc ! 'Meadow':
  161. Act 'Use your hula hoop for 45 minutes': timemult = 3 & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'manual'
  162. end
  163. end
  164. if pcs_stam >= 60:
  165. Act 'Do pushups for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'push', 'manual'
  166. Act 'Do crunches for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'press', 'manual'
  167. if skak > 0 and $sportloc ! 'Meadow':
  168. Act 'Jump rope for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'rope', 'manual'
  169. end
  170. end
  171. if pcs_stam >= 40:
  172. if bookYog > 0:
  173. Act 'Do yoga for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'yoga', 'manual'
  174. end
  175. if obruch > 0 and $sportloc ! 'Meadow':
  176. Act 'Use your hula hoop for 60 minutes': timemult = 4 & gs 'exercise', 'timestring' & gt 'exercise', 'hula', 'manual'
  177. end
  178. end
  179. if pcs_stam < 10 or pcs_stam < 15 and bookYog + obruch = 0:
  180. 'You don''t have the energy to work out anymore now.'
  181. end
  182. if clothesAtLocation = 1:
  183. act 'End workout and get dressed':
  184. cla
  185. minut += 5
  186. gs 'underwear', 'wear'
  187. gs 'clothing', 'recover_lost_clothes', $sportloc, 1
  188. gt $loc, $metka
  189. end
  190. else
  191. if $sportloc = 'Meadow': gs 'underwear', 'wear'
  192. act 'Leave': gt $loc, $metka
  193. end
  194. end
  195. if $ARGS[0] = 'setup':
  196. *clr
  197. cla
  198. '<center><b>Define up to 4 automated exercise routines.</b></center>'
  199. *nl
  200. *nl
  201. *nl
  202. *nl
  203. '<center><table><TH></TH><TH></TH><TH>Push ups</TH><TH>Crunches</TH><TH>Jump rope</TH><TH>Yoga</TH><TH>Hula hoop</TH>'
  204. '<TR><TD><<$excer_name[1]>></TD><TD><a href="exec:$excer_name[1] = input (''Enter name for exercise routine 1'') & gt ''exercise'', ''blank''">rename</a></TD><TD><<exer_rout0[1]*15>> minutes</TD><TD><<exer_rout1[1]*15>> minutes</TD><TD><<exer_rout2[1]*15>> minutes</TD><TD><<exer_rout3[1]*15>> minutes</TD><TD><<exer_rout4[1]*15>> minutes</TD>'
  205. '<TR><TD><<$excer_name[2]>></TD><TD><a href="exec:$excer_name[2] = input (''Enter name for exercise routine 2'') & gt ''exercise'', ''blank''">rename</a></TD><TD><<exer_rout0[2]*15>> minutes</TD><TD><<exer_rout1[2]*15>> minutes</TD><TD><<exer_rout2[2]*15>> minutes</TD><TD><<exer_rout3[2]*15>> minutes</TD><TD><<exer_rout4[2]*15>> minutes</TD>'
  206. '<TR><TD><<$excer_name[3]>></TD><TD><a href="exec:$excer_name[3] = input (''Enter name for exercise routine 3'') & gt ''exercise'', ''blank''">rename</a></TD><TD><<exer_rout0[3]*15>> minutes</TD><TD><<exer_rout1[3]*15>> minutes</TD><TD><<exer_rout2[3]*15>> minutes</TD><TD><<exer_rout3[3]*15>> minutes</TD><TD><<exer_rout4[3]*15>> minutes</TD>'
  207. '<TR><TD><<$excer_name[4]>></TD><TD><a href="exec:$excer_name[4] = input (''Enter name for exercise routine 4'') & gt ''exercise'', ''blank''">rename</a></TD><TD><<exer_rout0[4]*15>> minutes</TD><TD><<exer_rout1[4]*15>> minutes</TD><TD><<exer_rout2[4]*15>> minutes</TD><TD><<exer_rout3[4]*15>> minutes</TD><TD><<exer_rout4[4]*15>> minutes</TD>'
  208. '</table></center>'
  209. act 'Return': gt 'exercise', 'workout'
  210. act 'Define <<$excer_name[1]>>':i = 1 & gt 'exercise', 'matrix'
  211. act 'Define <<$excer_name[2]>>':i = 2 & gt 'exercise', 'matrix'
  212. act 'Define <<$excer_name[3]>>':i = 3 & gt 'exercise', 'matrix'
  213. act 'Define <<$excer_name[4]>>':i = 4 & gt 'exercise', 'matrix'
  214. !!exer_rout1 = default
  215. end
  216. if $ARGS[0] = 'blank':
  217. cla
  218. *clr
  219. act 'Return': gt 'exercise', 'setup'
  220. end
  221. if $ARGS[0] = 'matrix':
  222. *clr
  223. cla
  224. exer_stam[i] = exer_stam0[i] + exer_stam1[i] + exer_stam2[i] + exer_stam3[i] + exer_stam4[i]
  225. act'Confirm':
  226. gt 'exercise', 'setup'
  227. end
  228. 'Choose your exercise options from the following table:'
  229. '<center><table border=0 cellspacing=0 cellpadding=10 width=1000><TH>Exercise</TH><TH>None</TH><TH>15 mins</TH><TH>30 mins</TH><TH>45 mins</TH><TH>60 mins</TH>'
  230. gs 'exercise', 'matrixdata', 0, 'Push ups'
  231. gs 'exercise', 'matrixdata', 1, 'Crunches'
  232. if skak > 0 and $sportloc ! 'Meadow': gs 'exercise', 'matrixdata', 2, 'Jump rope'
  233. if bookYog > 0: gs 'exercise', 'matrixdata', 3, 'Yoga'
  234. if obruch > 0 and $sportloc ! 'Meadow': gs 'exercise', 'matrixdata', 4, 'Hula hoop'
  235. '</center></table>'
  236. *nl
  237. 'Total stamina required - <<exer_stam[i]>>'
  238. end
  239. if $ARGS[0] = 'matrixdata':
  240. '<TR>'
  241. *p '<TD><<$ARGS[2]>></TD>'
  242. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 0:
  243. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 0'
  244. *p '<TD>Selected</TD>'
  245. else
  246. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 0'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  247. end
  248. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 1:
  249. if ARGS[1] >= 3:
  250. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 10'
  251. else
  252. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 15'
  253. end
  254. *p '<TD>Selected</TD>'
  255. else
  256. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 1'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  257. end
  258. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 2:
  259. if ARGS[1] >= 3:
  260. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 20'
  261. else
  262. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 30'
  263. end
  264. *p '<TD>Selected</TD>'
  265. else
  266. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 2'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  267. end
  268. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 3:
  269. if ARGS[1] >= 3:
  270. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 30'
  271. else
  272. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 45'
  273. end
  274. *p '<TD>Selected</TD>'
  275. else
  276. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 3'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  277. end
  278. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 4:
  279. if ARGS[1] >= 3:
  280. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 40'
  281. else
  282. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 60'
  283. end
  284. *p '<TD>Selected</TD>'
  285. else
  286. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 4'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  287. end
  288. exer_stam[i] = exer_stam0[i] + exer_stam1[i] + exer_stam2[i] + exer_stam3[i] + exer_stam4[i]
  289. end
  290. if $ARGS[0] = 'hula':
  291. cla
  292. *clr
  293. loopcount = 1
  294. :timeloophula
  295. gs 'exercise', 'tier2', 0, 'agil_exp', 'react_exp'
  296. if loopcount < timemult: loopcount += 1 & jump 'timeloophula'
  297. loopcount = 0
  298. timemult = 0
  299. if $clothingworntype ! 'nude':
  300. if $location_type = 'secluded':
  301. if month >=5 and month <= 9:
  302. '<center><img <<$set_imgh>> src="images/pc/activities/hulaoutdoors.jpg"></center>'
  303. else
  304. '<center><video autoplay loop src="images/pc/activities/hulawinter.mp4"></video></center>'
  305. end
  306. else
  307. '<center><video autoplay loop src="images/pc/activities/huladressed.mp4"></video></center>'
  308. end
  309. elseif $pantyworntype ! 'none':
  310. '<center><video autoplay loop src="images/pc/activities/hula_underwear.mp4"></video></center>'
  311. else
  312. '<center><video autoplay loop src="images/pc/activities/obruch.mp4"></video></center>'
  313. end
  314. 'You improve your dexterity by using your hula hoop for <<$timestring>> minutes.'
  315. gs 'stat'
  316. if exer_auto = 1:
  317. act 'Continue': gt 'exercise', 'auto_end'
  318. else
  319. act 'Continue': gt 'exercise', 'manual'
  320. end
  321. end
  322. if $ARGS[0] = 'yoga':
  323. cla
  324. *clr
  325. loopcount = 1
  326. :timeloopyoga
  327. gs 'exercise', 'tier2', 0, 'sprt_exp', 'agil_exp', 'pcs_willpwr'
  328. if loopcount < timemult: loopcount += 1 & jump 'timeloopyoga'
  329. loopcount = 0
  330. timemult = 0
  331. if $clothingworntype ! 'nude':
  332. if $location_type = 'secluded':
  333. '<center><img <<$set_imgh>> src="images/pc/activities/yoga_dressed.jpg"></center>'
  334. else
  335. '<center><video autoplay loop src="images/pc/activities/yoga_dressed.mp4"></video></center>'
  336. end
  337. elseif $pantyworntype ! 'none':
  338. '<center><video autoplay loop src="images/pc/activities/yoga_underwear.mp4"></video></center>'
  339. else
  340. '<center><video autoplay loop src="images/pc/activities/yoga_naked.mp4"></video></center>'
  341. end
  342. 'You meditate for <<$timestring>> minutes, improving your will.'
  343. gs 'stat'
  344. if exer_auto = 1:
  345. act 'Continue': gt 'exercise', 'auto4'
  346. else
  347. act 'Continue': gt 'exercise', 'manual'
  348. end
  349. end
  350. if $ARGS[0] = 'rope':
  351. cla
  352. *clr
  353. loopcount = 1
  354. :timelooprope
  355. gs 'exercise', 'tier3', 0, 'agil_exp', 'react_exp'
  356. if loopcount < timemult: loopcount += 1 & jump 'timelooprope'
  357. loopcount = 0
  358. timemult = 0
  359. if $clothingworntype ! 'nude':
  360. '<center><video autoplay loop src="images/pc/activities/rope_dressed.mp4"></video></center>'
  361. elseif $pantyworntype ! 'none':
  362. '<center><img <<$set_imgh>> src="images/pc/activities/rope_underwear.jpg"></center>'
  363. else
  364. '<center><video autoplay loop src="images/pc/activities/rope_naked.mp4"></video></center>'
  365. end
  366. 'You jump rope for <<$timestring>> minutes, improving your speed.'
  367. gs 'stat'
  368. if exer_auto = 1:
  369. act 'Continue': gt 'exercise', 'auto3'
  370. else
  371. act 'Continue': gt 'exercise', 'manual'
  372. end
  373. end
  374. if $ARGS[0] = 'press':
  375. cla
  376. *clr
  377. loopcount = 1
  378. :timelooppress
  379. gs 'exercise', 'tier3', 0, 'vital_exp'
  380. if loopcount < timemult: loopcount += 1 & jump 'timelooppress'
  381. loopcount = 0
  382. timemult = 0
  383. if $clothingworntype ! 'nude':
  384. '<center><video autoplay loop src="images/pc/activities/abdominal_dressed.mp4"></video></center>'
  385. elseif $pantyworntype ! 'none':
  386. '<center><video autoplay loop src="images/pc/activities/abdominal_underwear.mp4"></video></center>'
  387. else
  388. '<center><video autoplay loop src="images/pc/activities/abdominal_naked.mp4"></video></center>'
  389. end
  390. 'You do a series of abdominal exercises for <<$timestring>> minutes, improving your endurance.'
  391. gs 'stat'
  392. if exer_auto = 1:
  393. act 'Continue': gt 'exercise', 'auto2'
  394. else
  395. act 'Continue': gt 'exercise', 'manual'
  396. end
  397. end
  398. if $ARGS[0] = 'push':
  399. cla
  400. *clr
  401. loopcount = 1
  402. :timelooppush
  403. gs 'exercise', 'tier3', 0, 'stren_exp'
  404. if loopcount < timemult: loopcount += 1 & jump 'timelooppush'
  405. loopcount = 0
  406. timemult = 0
  407. if $clothingworntype ! 'nude':
  408. '<center><video autoplay loop src="images/pc/activities/push_dressed.mp4"></video></center>'
  409. elseif $pantyworntype ! 'none':
  410. '<center><video autoplay loop src="images/pc/activities/push_underwear.mp4"></video></center>'
  411. else
  412. '<center><video autoplay loop src="images/pc/activities/push_naked.mp4"></video></center>'
  413. end
  414. 'You do push-ups for <<$timestring>> minutes, improving your strength.'
  415. if pcs_energy < 40: energypushtemp = RAND(1,10)
  416. pushnum = (pcs_stren * (pcs_sleep / 67) * (pcs_health / healthmax)) - energypushtemp + rand(-5,5)
  417. if pushnum < 1: pushnum = rand(1,5)
  418. KILLVAR 'energypushtemp'
  419. '<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
  420. if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
  421. gs 'stat'
  422. if exer_auto = 1:
  423. act 'Continue': gt 'exercise', 'auto1'
  424. else
  425. act 'Continue': gt 'exercise', 'manual'
  426. end
  427. end
  428. if $ARGS[0] = 'tier1':
  429. if ARGS[1] = 0:
  430. minut += 15
  431. else
  432. minut += ARGS[1]
  433. end
  434. pcs_stam -= 5
  435. pcs_sweat += 3
  436. fat -= 1
  437. pcs_mood += 3
  438. pcs_willpwr += 3
  439. if $ARGS[3] = '':
  440. dynamic '<<$ARGS[2]>> += 1'
  441. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  442. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  443. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  444. end
  445. else
  446. i = 2
  447. :exploop
  448. if $ARGS[i] ! '':
  449. dynamic '<<$ARGS[i]>> += rand(0,1)'
  450. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  451. i += 1
  452. jump 'exploop'
  453. else
  454. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  455. killvar 'steroidcheck'
  456. killvar 'i'
  457. exit
  458. end
  459. end
  460. end
  461. if $ARGS[0] = 'tier2':
  462. if ARGS[1] = 0:
  463. minut += 15
  464. else
  465. minut += ARGS[1]
  466. end
  467. pcs_stam -= 10
  468. pcs_sweat += 10
  469. fat -= 2
  470. pcs_mood += 5
  471. pcs_willpwr += 5
  472. if $ARGS[3] = '':
  473. dynamic '<<$ARGS[2]>> += rand(2,3)'
  474. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  475. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  476. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  477. end
  478. else
  479. i = 2
  480. :exploop2
  481. if $ARGS[i] ! '':
  482. dynamic '<<$ARGS[i]>> += rand(1,2)'
  483. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  484. i += 1
  485. jump 'exploop2'
  486. else
  487. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  488. killvar 'steroidcheck'
  489. killvar 'i'
  490. end
  491. end
  492. end
  493. if $ARGS[0] = 'tier3':
  494. if ARGS[1] = 0:
  495. minut += 15
  496. else
  497. minut += ARGS[1]
  498. end
  499. pcs_stam -= 15
  500. pcs_sweat += 15
  501. fat -= 3
  502. pcs_mood += 5
  503. pcs_willpwr += 5
  504. if $ARGS[3] = '':
  505. dynamic '<<$ARGS[2]>> += rand(3,5)'
  506. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  507. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  508. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  509. end
  510. else
  511. i = 2
  512. :exploop3
  513. if $ARGS[i] ! '':
  514. dynamic '<<$ARGS[i]>> += rand(2,3)'
  515. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  516. i += 1
  517. jump 'exploop3'
  518. else
  519. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  520. killvar 'steroidcheck'
  521. killvar 'i'
  522. end
  523. end
  524. end
  525. if $ARGS[0] = 'tier4':
  526. if ARGS[1] = 0:
  527. minut += 15
  528. else
  529. minut += ARGS[1]
  530. end
  531. pcs_stam -= 25
  532. pcs_sweat += 25
  533. fat -= 4
  534. pcs_mood += 5
  535. pcs_willpwr += 5
  536. if $ARGS[3] = '':
  537. dynamic '<<$ARGS[2]>> += rand(7,10)'
  538. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  539. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  540. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  541. end
  542. else
  543. i = 2
  544. :exploop4
  545. if $ARGS[i] ! '':
  546. dynamic '<<$ARGS[i]>> += rand(3,5)'
  547. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  548. i += 1
  549. jump 'exploop4'
  550. else
  551. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  552. killvar 'steroidcheck'
  553. killvar 'i'
  554. end
  555. end
  556. end
  557. if $ARGS[0] = 'timestring':
  558. if timemult = 1: $timestring = 'fifteen'
  559. if timemult = 2: $timestring = 'thirty'
  560. if timemult = 3: $timestring = 'forty-five'
  561. if timemult = 4: $timestring = 'sixty'
  562. end
  563. --- exercise ---------------------------------