exercise.qsrc 22 KB

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