1
0

exercise 21 KB

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