exercise.qsrc 22 KB

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