1
0

exercise.qsrc 25 KB

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