1
0

exercise.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635
  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. if $loc ! 'experiment': 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'', ''setup''">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'', ''setup''">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'', ''setup''">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'', ''setup''">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] = 'matrix':
  220. *clr
  221. cla
  222. exer_stam[i] = exer_stam0[i] + exer_stam1[i] + exer_stam2[i] + exer_stam3[i] + exer_stam4[i]
  223. act'Confirm':
  224. gt 'exercise', 'setup'
  225. end
  226. 'Choose your exercise options from the following table:'
  227. '<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>'
  228. gs 'exercise', 'matrixdata', 0, 'Push ups'
  229. gs 'exercise', 'matrixdata', 1, 'Crunches'
  230. if skak > 0 and $sportloc ! 'Meadow': gs 'exercise', 'matrixdata', 2, 'Jump rope'
  231. if bookYog > 0: gs 'exercise', 'matrixdata', 3, 'Yoga'
  232. if obruch > 0 and $sportloc ! 'Meadow': gs 'exercise', 'matrixdata', 4, 'Hula hoop'
  233. '</center></table>'
  234. *nl
  235. 'Total stamina required - <<exer_stam[i]>>'
  236. end
  237. if $ARGS[0] = 'matrixdata':
  238. '<TR>'
  239. *p '<TD><<$ARGS[2]>></TD>'
  240. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 0:
  241. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 0'
  242. *p '<TD>Selected</TD>'
  243. else
  244. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 0'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  245. end
  246. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 1:
  247. if ARGS[1] >= 3:
  248. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 10'
  249. else
  250. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 15'
  251. end
  252. *p '<TD>Selected</TD>'
  253. else
  254. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 1'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  255. end
  256. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 2:
  257. if ARGS[1] >= 3:
  258. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 20'
  259. else
  260. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 30'
  261. end
  262. *p '<TD>Selected</TD>'
  263. else
  264. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 2'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  265. end
  266. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 3:
  267. if ARGS[1] >= 3:
  268. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 30'
  269. else
  270. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 45'
  271. end
  272. *p '<TD>Selected</TD>'
  273. else
  274. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 3'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  275. end
  276. if dyneval('RESULT = exer_rout<<ARGS[1]>>[<<i>>]') = 4:
  277. if ARGS[1] >= 3:
  278. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 40'
  279. else
  280. dynamic 'exer_stam<<ARGS[1]>>[<<i>>] = 60'
  281. end
  282. *p '<TD>Selected</TD>'
  283. else
  284. *p '<TD><a href="exec:dynamic ''exer_rout<<ARGS[1]>>[i] = 4'' & gt ''exercise'', ''matrix''">Select</a></TD>'
  285. end
  286. exer_stam[i] = exer_stam0[i] + exer_stam1[i] + exer_stam2[i] + exer_stam3[i] + exer_stam4[i]
  287. end
  288. if $ARGS[0] = 'hula':
  289. cla
  290. *clr
  291. loopcount = 1
  292. :timeloophula
  293. gs 'exercise', 'tier2', 0, 'agil_exp', 'react_exp'
  294. if loopcount < timemult: loopcount += 1 & jump 'timeloophula'
  295. loopcount = 0
  296. timemult = 0
  297. if $clothingworntype ! 'nude':
  298. if $location_type = 'secluded':
  299. if month >=5 and month <= 9:
  300. '<center><img <<$set_imgh>> src="images/pc/activities/hulaoutdoors.jpg"></center>'
  301. else
  302. '<center><video autoplay loop src="images/pc/activities/hulawinter.mp4"></video></center>'
  303. end
  304. else
  305. '<center><video autoplay loop src="images/pc/activities/huladressed.mp4"></video></center>'
  306. end
  307. elseif $pantyworntype ! 'none':
  308. '<center><video autoplay loop src="images/pc/activities/hula_underwear.mp4"></video></center>'
  309. else
  310. '<center><video autoplay loop src="images/pc/activities/obruch.mp4"></video></center>'
  311. end
  312. 'You improve your dexterity by using your hula hoop for <<$timestring>> minutes.'
  313. gs 'stat'
  314. if exer_auto = 1:
  315. act 'Continue': gt 'exercise', 'auto_end'
  316. else
  317. act 'Continue': gt 'exercise', 'manual'
  318. end
  319. end
  320. if $ARGS[0] = 'yoga':
  321. cla
  322. *clr
  323. loopcount = 1
  324. :timeloopyoga
  325. gs 'exercise', 'tier2', 0, 'sprt_exp', 'agil_exp', 'pcs_willpwr'
  326. if loopcount < timemult: loopcount += 1 & jump 'timeloopyoga'
  327. loopcount = 0
  328. timemult = 0
  329. if $clothingworntype ! 'nude':
  330. if $location_type = 'secluded':
  331. '<center><img <<$set_imgh>> src="images/pc/activities/yoga_dressed_outdoor.jpg"></center>'
  332. else
  333. '<center><video autoplay loop src="images/pc/activities/yoga_dressed.mp4"></video></center>'
  334. end
  335. elseif $pantyworntype ! 'none':
  336. '<center><video autoplay loop src="images/pc/activities/yoga_underwear.mp4"></video></center>'
  337. else
  338. '<center><video autoplay loop src="images/pc/activities/yoga_naked.mp4"></video></center>'
  339. end
  340. 'You meditate for <<$timestring>> minutes, improving your will.'
  341. gs 'stat'
  342. if exer_auto = 1:
  343. act 'Continue': gt 'exercise', 'auto4'
  344. else
  345. act 'Continue': gt 'exercise', 'manual'
  346. end
  347. end
  348. if $ARGS[0] = 'rope':
  349. cla
  350. *clr
  351. loopcount = 1
  352. :timelooprope
  353. gs 'exercise', 'tier3', 0, 'agil_exp', 'react_exp'
  354. if loopcount < timemult: loopcount += 1 & jump 'timelooprope'
  355. loopcount = 0
  356. timemult = 0
  357. if $clothingworntype ! 'nude':
  358. '<center><video autoplay loop src="images/pc/activities/rope_dressed.mp4"></video></center>'
  359. elseif $pantyworntype ! 'none':
  360. '<center><img <<$set_imgh>> src="images/pc/activities/rope_underwear.jpg"></center>'
  361. else
  362. '<center><video autoplay loop src="images/pc/activities/rope_naked.mp4"></video></center>'
  363. end
  364. 'You jump rope for <<$timestring>> minutes, improving your speed.'
  365. gs 'stat'
  366. if exer_auto = 1:
  367. act 'Continue': gt 'exercise', 'auto3'
  368. else
  369. act 'Continue': gt 'exercise', 'manual'
  370. end
  371. end
  372. if $ARGS[0] = 'press':
  373. cla
  374. *clr
  375. loopcount = 1
  376. :timelooppress
  377. gs 'exercise', 'tier3', 0, 'vital_exp'
  378. if loopcount < timemult: loopcount += 1 & jump 'timelooppress'
  379. loopcount = 0
  380. timemult = 0
  381. if $clothingworntype ! 'nude':
  382. '<center><video autoplay loop src="images/pc/activities/abdominal_dressed.mp4"></video></center>'
  383. elseif $pantyworntype ! 'none':
  384. '<center><video autoplay loop src="images/pc/activities/abdominal_underwear.mp4"></video></center>'
  385. else
  386. '<center><video autoplay loop src="images/pc/activities/abdominal_naked.mp4"></video></center>'
  387. end
  388. 'You do a series of abdominal exercises for <<$timestring>> minutes, improving your endurance.'
  389. gs 'stat'
  390. if exer_auto = 1:
  391. act 'Continue': gt 'exercise', 'auto2'
  392. else
  393. act 'Continue': gt 'exercise', 'manual'
  394. end
  395. end
  396. if $ARGS[0] = 'push':
  397. cla
  398. *clr
  399. loopcount = 1
  400. :timelooppush
  401. gs 'exercise', 'tier3', 0, 'stren_exp'
  402. if loopcount < timemult: loopcount += 1 & jump 'timelooppush'
  403. loopcount = 0
  404. timemult = 0
  405. if $clothingworntype ! 'nude':
  406. '<center><video autoplay loop src="images/pc/activities/push_dressed.mp4"></video></center>'
  407. elseif $pantyworntype ! 'none':
  408. '<center><video autoplay loop src="images/pc/activities/push_underwear.mp4"></video></center>'
  409. else
  410. '<center><video autoplay loop src="images/pc/activities/push_naked.mp4"></video></center>'
  411. end
  412. 'You do push-ups for <<$timestring>> minutes, improving your strength.'
  413. randpushfact = rand(-5,5)
  414. if pcs_energy < 40: randpushfact -= RAND(1,10)
  415. pushnum = (pcs_stren * pcs_sleep * pcs_health) / ( 1 * 67 * healthmax) + randpushfact
  416. if pushnum < 1: pushnum = rand(1,5)
  417. KILLVAR 'randpushfact'
  418. '<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
  419. if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
  420. gs 'stat'
  421. if exer_auto = 1:
  422. act 'Continue': gt 'exercise', 'auto1'
  423. else
  424. act 'Continue': gt 'exercise', 'manual'
  425. end
  426. end
  427. if $ARGS[0] = 'tier1':
  428. if ARGS[1] = 0:
  429. minut += 15
  430. else
  431. minut += ARGS[1]
  432. end
  433. gs 'exercise', 'get_sport_clothes_exercise_bonus'
  434. pcs_stam -= (5 * (10 - sport_clothes_exercise_bonus)) / 10
  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. gs 'exercise', 'get_sport_clothes_exercise_bonus'
  468. pcs_stam -= (10 * (10 - sport_clothes_exercise_bonus)) / 10
  469. pcs_sweat += 10
  470. fat -= 2
  471. pcs_mood += 5
  472. pcs_willpwr += 5
  473. if $ARGS[3] = '':
  474. dynamic '<<$ARGS[2]>> += rand(2,3)'
  475. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  476. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  477. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  478. end
  479. else
  480. i = 2
  481. :exploop2
  482. if $ARGS[i] ! '':
  483. dynamic '<<$ARGS[i]>> += rand(1,2)'
  484. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  485. i += 1
  486. jump 'exploop2'
  487. else
  488. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  489. killvar 'steroidcheck'
  490. killvar 'i'
  491. end
  492. end
  493. end
  494. if $ARGS[0] = 'tier3':
  495. if ARGS[1] = 0:
  496. minut += 15
  497. else
  498. minut += ARGS[1]
  499. end
  500. gs 'exercise', 'get_sport_clothes_exercise_bonus'
  501. pcs_stam -= (15 * (10 - sport_clothes_exercise_bonus)) / 10
  502. pcs_sweat += 15
  503. fat -= 3
  504. pcs_mood += 5
  505. pcs_willpwr += 5
  506. if $ARGS[3] = '':
  507. dynamic '<<$ARGS[2]>> += rand(3,5)'
  508. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  509. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  510. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  511. end
  512. else
  513. i = 2
  514. :exploop3
  515. if $ARGS[i] ! '':
  516. dynamic '<<$ARGS[i]>> += rand(2,3)'
  517. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  518. i += 1
  519. jump 'exploop3'
  520. else
  521. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  522. killvar 'steroidcheck'
  523. killvar 'i'
  524. end
  525. end
  526. end
  527. if $ARGS[0] = 'tier4':
  528. if ARGS[1] = 0:
  529. minut += 15
  530. else
  531. minut += ARGS[1]
  532. end
  533. gs 'exercise', 'get_sport_clothes_exercise_bonus'
  534. pcs_stam -= (25 * (10 - sport_clothes_exercise_bonus)) / 10
  535. pcs_sweat += 25
  536. fat -= 4
  537. pcs_mood += 5
  538. pcs_willpwr += 5
  539. if $ARGS[3] = '':
  540. dynamic '<<$ARGS[2]>> += rand(7,10)'
  541. if $ARGS[2] = 'vital_exp' or $ARGS[2] = 'stren_exp':
  542. dynamic '<<$ARGS[2]>> += rand(0,steroid_dose)'
  543. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  544. end
  545. else
  546. i = 2
  547. :exploop4
  548. if $ARGS[i] ! '':
  549. dynamic '<<$ARGS[i]>> += rand(3,5)'
  550. if $ARGS[i] = 'vital_exp' or $ARGS[i] = 'stren_exp': dynamic '<<$ARGS[i]>> += rand(0,steroid_dose) & steroidcheck = 1'
  551. i += 1
  552. jump 'exploop4'
  553. else
  554. if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1)
  555. killvar 'steroidcheck'
  556. killvar 'i'
  557. end
  558. end
  559. end
  560. if $ARGS[0] = 'timestring':
  561. if timemult = 1: $timestring = 'fifteen'
  562. if timemult = 2: $timestring = 'thirty'
  563. if timemult = 3: $timestring = 'forty-five'
  564. if timemult = 4: $timestring = 'sixty'
  565. end
  566. if $ARGS[0] = 'get_sport_clothes_exercise_bonus':
  567. sport_clothes_exercise_bonus = 0
  568. if $braworntype = 'sport':
  569. sport_clothes_exercise_bonus = sport_clothes_exercise_bonus + 1
  570. end
  571. if $pantyworntype = 'sport':
  572. sport_clothes_exercise_bonus = sport_clothes_exercise_bonus + 1
  573. end
  574. if $clothingworntype = 'exercise':
  575. sport_clothes_exercise_bonus = sport_clothes_exercise_bonus + 1
  576. end
  577. if $shoeworntype = 'trainers':
  578. sport_clothes_exercise_bonus = sport_clothes_exercise_bonus + 1
  579. end
  580. end
  581. --- exercise ---------------------------------