1
0

fit.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778
  1. # fit
  2. CLOSE ALL
  3. if $ARGS[0] = 'start':
  4. *clr & cla
  5. $menu_loc = 'fit'
  6. $menu_arg = 'start'
  7. menu_off = 0
  8. minut += 5
  9. frost = 0
  10. gs 'stat'
  11. gs 'themes', 'indoors'
  12. '<center><b><font color="maroon">Fitness Center</font></b></center>'
  13. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/fit.jpg"></center>'
  14. 'This modern and well staffed fitness center provides all the latest equipment and trainers to help you make the most of them.'
  15. *nl
  16. 'Buy subscription for 30 classes (3,000 <b>₽</b>), pool use is free to members.'
  17. 'You must wear sportswear for all classes.'
  18. if abonement > 0:'Subscription is valid for <<abonement>> more classes.'
  19. act 'Leave':
  20. cla
  21. minut += 5
  22. gt 'down'
  23. end
  24. if money >= 3000:
  25. act 'Buy a subscription (3,000 <b>₽</b>)':
  26. cla
  27. money -= 3000
  28. abonement += 30
  29. 'You bought a subscription for 30 lessons, including free use of the pool.'
  30. act 'Move away from cashier':gt 'fit', 'start'
  31. end
  32. end
  33. if abonement > 0:
  34. act 'Go to the dressing room':
  35. cla
  36. gt 'fit', 'dressing room'
  37. end
  38. else
  39. act 'Use the pool (100 <b>₽</b>)': gt 'fit', 'dressing room'
  40. end
  41. end
  42. if $ARGS[0] = 'dressing room':
  43. $locM = 'fit'
  44. $metkaM = 'dressing room'
  45. $sexloc = 'fit'
  46. $loc = 'fit'
  47. $metka = 'dressing room'
  48. $menu_loc = 'fit'
  49. $menu_arg = 'dressing room'
  50. menu_off = 0
  51. $location_type = 'private'
  52. *clr & cla
  53. gs 'stat'
  54. '<center><b><font color="maroon">Dressing</font></b></center>'
  55. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd.jpg"></center>'
  56. 'Classifieds'
  57. 'Recruiting girls for local track team, the winners will receive cash prizes.'
  58. 'Attention, visitors to the sports section must wear sports outfits and shoes when using the facilities.'
  59. ! WD: Uninitialised ~ 'razdrand'
  60. ! if razdrand = 0 and tanznak = 0 and tanday ! daystart:
  61. if tanznak = 0 and tanday ! daystart:
  62. tanday = daystart
  63. 'In the locker room you notice <a href="exec:gt ''fit'', ''fitgirl''">cute girl</a>.'
  64. elseif tanznak = 2:
  65. cls
  66. tanznak = 3
  67. gs 'underwear', 'wear'
  68. gs 'panties', 'dispose'
  69. gs 'clothing', 'wear_last_worn'
  70. npc_rel['A218'] += 5
  71. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd4.jpg"></center>'
  72. '"You can at least tell me your name, maniac, seeing as you did not even have the decency to do so before you raped me." The girl says, catching her breath.'
  73. '"I am <<$pcs_nickname>>, and how can I rape someone so keen?" You ask trying to find your panties.'
  74. '"Looking for this?" asks the girl twirling your panties on her finger. "I''m Tanya, and you seduced me, I have never been with a girl before, and with very good reason. I live here with my parents, if you want to come for a visit."'
  75. '"Okay that would be nice, can I have my briefs?" you say holding out your hand.'
  76. '"Nope, no return, there must be something of a momento from my first girl." With these words, Tanya slips your panties in her pocket and leaves.'
  77. act 'Further':gt 'fit', 'dressing room'
  78. exit
  79. end
  80. act 'Take a shower (0:15)':
  81. cla
  82. *clr
  83. minut += 15
  84. pcs_horny += 1
  85. pcs_hairbsh = 0
  86. pcs_makeup = 1
  87. if pcs_inhib < 15:inhib_exp += rand(1,2)
  88. dynamic $showerdin
  89. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
  90. 'You go into the bathroom and turn on the shower. You lather your body and wash in the shower.'
  91. act 'Get out of the shower':gt 'fit', 'dressing room'
  92. end
  93. act 'Use mirror':
  94. cla
  95. gt 'mirror', 'start'
  96. end
  97. act 'Change outfit':
  98. cla
  99. gt 'wardrobe', 'start'
  100. end
  101. if $clothingworntype = 'swimwear':
  102. act 'Use the pool': gt 'bass', 'start'
  103. else
  104. act 'Change into swimwear': gt 'changingroom', 'view_swim_list'
  105. end
  106. gs 'wardrobe', 'sports_outfit'
  107. if abonement > 0:
  108. if $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and pcs_stam >= 40:
  109. act 'Go to the gym':
  110. cla
  111. gt 'fit', 'gym'
  112. end
  113. act 'Go to the dance studio':
  114. cla
  115. gt 'danceclass'
  116. end
  117. act 'Go to a crossfit workout':
  118. cla
  119. gt 'crossfit_north_box', 'box'
  120. end
  121. end
  122. if begsec = 0:
  123. act 'Join track team':
  124. cla
  125. *clr
  126. minut += 5
  127. begsec = 1
  128. 'You signed up for the track team.'
  129. act 'Leave':gt 'fit', 'dressing room'
  130. end
  131. elseif $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and pcs_stam >= 40:
  132. act 'Go to team practice':gt 'beg', 'start'
  133. if week = 6 and pcs_run >= 20 and run_comp_day ! daystart:
  134. act '<b>Enter competition race</b>':run_comp_day = daystart & gt 'beg1', 'start'
  135. end
  136. end
  137. end
  138. act 'Exit the locker room':
  139. if $clothingworntype ! 'nude':
  140. gt 'fit', 'start'
  141. else
  142. cla
  143. msg'<b><font color = red>You need to get dressed.</font></b>'
  144. act 'Return': gt 'fit', 'dressing room'
  145. end
  146. end
  147. end
  148. if $ARGS[0] = 'fitgirl':
  149. menu_off = 1
  150. 'The girl notices you looking and returns the smile. She undresses and taking some toiletries goes into the shower.'
  151. act 'Turn away':gt 'fit', 'dressing room'
  152. act 'Follow her':
  153. cls
  154. pcs_hairbsh = 0
  155. pcs_makeup = 1
  156. dynamic $showerdin
  157. shovertania += 1
  158. gs 'stat'
  159. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
  160. 'There''s no one in the shower, except this girl. The girl looks around and seeing you smiles again then turns away.'
  161. if pcs_dom > 10:
  162. act 'Molest her':
  163. cla
  164. *clr
  165. tanday = daystart
  166. gs 'stat'
  167. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd1.jpg"></center>'
  168. 'You walk up to a girl and place one hand on her buttock, she turns to face you.'
  169. gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
  170. gs 'stat'
  171. if pcs_apprnc < 80:
  172. 'The girl pushes you off, and shouts something very rude about you and each and everyone of your relatives, you run out to the locker room.'
  173. act 'Go':gt 'fit', 'dressing room'
  174. elseif pcs_apprnc >= 80:
  175. 'The girl grabs your hand squeezing her ass, but stops for a moment considering you. She probably expected to see a guy and isn''t sure what to do.'
  176. act 'Take advantage of the confusion':
  177. cla
  178. *clr
  179. gs 'underwear', 'remove'
  180. gs 'clothing', 'strip'
  181. gs 'stat'
  182. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd2.jpg"></center>'
  183. 'While she is trying to understand what is happening you pull up her shirt and begin fondling her nipples with your tongue, and then her hand strokes your ass.'
  184. gs 'arousal', 'foreplay', 10, 'dom', 'lesbian'
  185. gs 'stat'
  186. act 'Further':tanznak = 1 & gt 'lezbsex', 'start'
  187. end
  188. act 'Wait for her reaction':
  189. cls
  190. gs 'stat'
  191. if pcs_apprnc < 120:
  192. 'The girl smiles at you, but removes your hand and leaves, blowing you a kiss.'
  193. act '...':gt 'fit', 'dressing room'
  194. elseif pcs_apprnc >= 120:
  195. cla
  196. *clr
  197. gs 'underwear', 'remove'
  198. gs 'clothing', 'strip'
  199. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd3.jpg"></center>'
  200. 'The girl presses up to you even stronger and kisses your lips.'
  201. gs 'arousal', 'kiss', 5, 'dom', 'lesbian'
  202. gs 'stat'
  203. act 'Further':
  204. tanznak = 1
  205. gt 'lezbsex', 'start'
  206. end
  207. end
  208. end
  209. end
  210. end
  211. end
  212. act 'Leave the shower':gt 'fit', 'dressing room'
  213. end
  214. end
  215. if $ARGS[0] = 'gym':
  216. *clr & cla
  217. menu_off = 1
  218. minut += 5
  219. sportzalrand = RAND(0,20)
  220. gs 'stat'
  221. gs 'themes', 'indoors'
  222. '<center><b><font color="maroon">Fitness Center</font></b></center>'
  223. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/fit.jpg"></center>'
  224. 'In the fitness center there are a lot of different classes and clubs, designed to improve physical development.'
  225. if StoryLine = 1:
  226. if hour >= 10 and hour < 12 and week = 7 and centr = 1: 'In the hall you see <a href="exec:GT ''VolleyTrenCentr''">Mikhail Nikolaevich</a> talking with a strange man.'
  227. if hour >= 10 and hour < 12 and week = 7 and centr = 2 and ricewine < 2: 'In the hall you see <a href="exec:GT ''VolleyTrenCentr''">Guang</a>'
  228. end
  229. gs 'fit', 'exercise end'
  230. act 'Aerobics (Burn fat)':
  231. cla
  232. *clr
  233. abonement -= 1
  234. timemult = 2
  235. loopcount = 1
  236. :timeloop1
  237. gs 'exercise', 'tier3', 0, 'vital_exp', 'react_exp'
  238. if loopcount < timemult: loopcount += 1 & jump 'timeloop1'
  239. loopcount = 0
  240. timemult = 0
  241. if pcs_inhib < 30:inhib_exp += rand(1,2)
  242. '<center><img <<$set_imgh>> src="images/locations/shared/gym/fit1.jpg"></center>'
  243. 'You do very vigorous exercises to the music, and burn some fat.'
  244. if pcs_stam < 30:
  245. *nl
  246. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  247. gs 'fit', 'exercise end'
  248. else
  249. act'Continue': gt 'fit', 'gym'
  250. end
  251. end
  252. act 'Free weights (Build muscle)':
  253. cla
  254. *clr
  255. abonement -= 1
  256. timemult = 2
  257. loopcount = 1
  258. :timeloop2
  259. gs 'exercise', 'tier3', 0, 'stren_exp'
  260. if loopcount < timemult: loopcount += 1 & jump 'timeloop2'
  261. loopcount = 0
  262. timemult = 0
  263. if pcs_inhib < 30:inhib_exp += rand(1,2)
  264. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit2.jpg"></center>'
  265. 'You pump iron, building strength.'
  266. if pcs_stam < 30:
  267. *nl
  268. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  269. gs 'fit', 'exercise end'
  270. else
  271. act'Continue': gt 'fit', 'gym'
  272. end
  273. end
  274. act 'Cross trainer (endurance)':
  275. cla
  276. *clr
  277. abonement -= 1
  278. timemult = 2
  279. loopcount = 1
  280. :timeloop3
  281. gs 'exercise', 'tier3', 0, 'vital_exp'
  282. if loopcount < timemult: loopcount += 1 & jump 'timeloop3'
  283. loopcount = 0
  284. timemult = 0
  285. if pcs_inhib < 30:inhib_exp += rand(1,2)
  286. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit3.jpg"></center>'
  287. 'You spend a half hour doing reps on the cross trainer developing your endurance.'
  288. if pcs_stam < 30:
  289. *nl
  290. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  291. gs 'fit', 'exercise end'
  292. else
  293. act'Continue': gt 'fit', 'gym'
  294. end
  295. end
  296. act 'Tennis practice (agility)':
  297. cla
  298. *clr
  299. abonement -= 1
  300. timemult = 2
  301. loopcount = 1
  302. :timeloop4
  303. gs 'exercise', 'tier3', 0, 'agil_exp'
  304. if loopcount < timemult: loopcount += 1 & jump 'timeloop4'
  305. loopcount = 0
  306. timemult = 0
  307. if pcs_inhib < 30:inhib_exp += rand(1,2)
  308. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit4.jpg"></center>'
  309. 'You run tennis exercises, concentrating on defensive drills.'
  310. if pcs_stam < 30:
  311. *nl
  312. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  313. gs 'fit', 'exercise end'
  314. else
  315. act'Continue': gt 'fit', 'gym'
  316. end
  317. end
  318. act 'Tennis practice (reactions)':
  319. cla
  320. *clr
  321. abonement -= 1
  322. timemult = 2
  323. loopcount = 1
  324. :timeloop5
  325. gs 'exercise', 'tier3', 0, 'react_exp'
  326. if loopcount < timemult: loopcount += 1 & jump 'timeloop5'
  327. loopcount = 0
  328. timemult = 0
  329. if pcs_inhib < 30:inhib_exp += rand(1,2)
  330. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit4.jpg"></center>'
  331. 'You run tennis exercises, concentrating on court reactions.'
  332. if pcs_stam < 30:
  333. *nl
  334. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  335. gs 'fit', 'exercise end'
  336. else
  337. act'Continue': gt 'fit', 'gym'
  338. end
  339. end
  340. act 'Goto the kickboxing gym':gt 'fit', 'kickboxing'
  341. end
  342. if $ARGS[0] = 'exercise end':
  343. RESULT = rand(0, 19)
  344. act 'Leave':
  345. if RESULT = 0:
  346. cla
  347. *clr
  348. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal1.jpg"></center>'
  349. 'You see a nice guy on the weight machine.'
  350. act 'Continue':gt 'fit', 'dressing room'
  351. if pcs_dom > 0:
  352. act 'Flirt':
  353. cla
  354. *clr
  355. guy += 1
  356. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  357. gs 'boyStat', $npclastgenerated
  358. samecount = 1
  359. picrand = 17
  360. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal2.jpg"></center>'
  361. 'You go up to the guy lying on the machine, squat and start stroking his cock through his pants. The man rises and kisses you on the lips, then lowers his pants releasing his impressive size dick.'
  362. gs 'arousal', 'foreplay', 10, 'dom'
  363. gs 'stat'
  364. act 'Suck':gt 'sex', 'minet'
  365. end
  366. end
  367. elseif RESULT = 1:
  368. cla
  369. *clr
  370. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal3.jpg"></center>'
  371. 'As you finish training, a guy sits behind, caresses your breasts and kisses your ear, sucking the lobe.'
  372. if pcs_dom > 0:act 'Hit him in the balls':pcs_dom += 1 & gt 'fit', 'dressing room'
  373. act 'Enjoy':
  374. cla
  375. *clr
  376. guy += 1
  377. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  378. gs 'boyStat', $npclastgenerated
  379. picrand = 18
  380. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal4.jpg"></center>'
  381. 'Guy gets up and moves around to face you, he pulls out his cock and lays it on your chest, eventually moving the head to your mouth.'
  382. gs 'arousal', 'foreplay', 15, 'sub'
  383. gs 'stat'
  384. act 'Suck':gt 'sex', 'minet'
  385. end
  386. elseif RESULT = 2:
  387. cla
  388. 'As you finish training, a fit girl offers to play a little squash with her as she waits for her boyfriend to came.'
  389. act 'Refuse':gt 'fit', 'dressing room'
  390. act 'Agree':
  391. cla
  392. *clr
  393. picrand = 15
  394. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal5.jpg"></center>'
  395. 'You have fun playing with the girl, neither of you are any good, but it just amuses you. After some time, it appears as a man and looking at your clumsy attempts and offers to show you how to play correctly.'
  396. 'He stands just behind you and puts one hand on your hand, guiding your racket and showing you how to strike the ball. The other hand starts stroking your hips gradually approaching your crotch.'
  397. 'You feel his cock resting against your back and looking at the girl, you know that she understands what is going on and that the man is her boyfriend.'
  398. act 'Escape from these perverts':gt 'fit', 'dressing room'
  399. act 'Enjoy':
  400. guy += 1
  401. girl += 1
  402. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  403. gs 'boyStat', $npclastgenerated
  404. gt 'podrsex', 'suck'
  405. gs 'arousal', 'foreplay', 15, 'group', 'lesbian'
  406. gs 'stat'
  407. end
  408. end
  409. elseif RESULT = 3:
  410. cla
  411. *clr
  412. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal6.jpg"></center>'
  413. 'You train near to a girl and engage in conversation, two guys obviously take you for girlfriends and try to chat you up.'
  414. act 'Continue':gt 'fit', 'dressing room'
  415. act 'Flirt back':
  416. cla
  417. *clr
  418. picrand = 12
  419. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal7.jpg"></center>'
  420. 'You flirt with a guy, and notice that he is getting very excited and constantly glancing behind you. Turning, you see that the girl is already on her haunches and sucking the second guy with gusto.'
  421. act 'Leave':gt 'fit', 'dressing room'
  422. act 'Suck':
  423. guy += 2
  424. girl += 1
  425. gang += 1
  426. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  427. gs 'boyStat', $npclastgenerated
  428. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  429. gs 'boyStat', $npclastgenerated, 'a'
  430. gs 'arousal', 'bj', 15, 'group', 'lesbian'
  431. gs 'stat'
  432. gt 'sexdvanadva', 'var'
  433. end
  434. end
  435. else
  436. gt 'fit', 'dressing room'
  437. end
  438. end
  439. end
  440. if $ARGS[0] = 'kickboxing':
  441. cla
  442. *clr
  443. menu_off = 1
  444. minut += 5
  445. gs 'stat'
  446. gs 'razrKik'
  447. gs 'themes', 'indoors'
  448. '<center><b><font color="maroon">Kickboxing Gym</font></b></center>'
  449. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik.jpg"></center>'
  450. act 'Work on your jabs':
  451. cla
  452. *clr
  453. abonement -= 1
  454. timemult = 2
  455. loopcount = 1
  456. :timeloop6
  457. gs 'exercise', 'tier3', 0, 'jab_exp', 'react_exp'
  458. if loopcount < timemult: loopcount += 1 & jump 'timeloop6'
  459. loopcount = 0
  460. timemult = 0
  461. if pcs_inhib < 30:inhib_exp += rand(1,2)
  462. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  463. 'You practice your jabs on the speed bag and double-end bag, straight punches with a step forward. These strikes are not so powerful, but they are fast.'
  464. act 'Leave':gt 'fit', 'dressing room'
  465. end
  466. act 'Work on your heavy punches':
  467. cla
  468. *clr
  469. abonement -= 1
  470. timemult = 2
  471. loopcount = 1
  472. :timeloop7
  473. gs 'exercise', 'tier3', 0, 'stren_exp', 'punch_exp'
  474. if loopcount < timemult: loopcount += 1 & jump 'timeloop7'
  475. loopcount = 0
  476. timemult = 0
  477. if pcs_inhib < 30:inhib_exp += rand(1,2)
  478. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  479. 'You practice your power punches on the heavy bag. These are high impact and powerful, but they are hard to get to their target.'
  480. act 'Leave':gt 'fit', 'dressing room'
  481. end
  482. act 'Work on your kicking':
  483. cla
  484. *clr
  485. abonement -= 1
  486. timemult = 2
  487. loopcount = 1
  488. :timeloop8
  489. gs 'exercise', 'tier3', 0, 'stren_exp', 'kick_exp'
  490. if loopcount < timemult: loopcount += 1 & jump 'timeloop8'
  491. loopcount = 0
  492. timemult = 0
  493. if pcs_inhib < 30:inhib_exp += rand(1,2)
  494. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  495. 'You practice your powerful kicks on a kickboxing bag. These impacts are very powerful and able to cut down an opponant, but are very difficult to hit with.'
  496. act 'Leave':gt 'fit', 'dressing room'
  497. end
  498. act 'Work on defence':
  499. cla
  500. *clr
  501. abonement -= 1
  502. timemult = 2
  503. loopcount = 1
  504. :timeloop9
  505. gs 'exercise', 'tier3', 0, 'def_exp', 'agil_exp'
  506. if loopcount < timemult: loopcount += 1 & jump 'timeloop9'
  507. loopcount = 0
  508. timemult = 0
  509. if pcs_inhib < 30:inhib_exp += rand(1,2)
  510. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  511. 'You practice your defense movements.'
  512. act 'Leave':gt 'fit', 'dressing room'
  513. end
  514. act 'Sparing (training bout in the ring)':
  515. cla
  516. *clr
  517. 'You need to choose a partner for sparring'
  518. if pcs_inhib < 30:inhib_exp += rand(1,2)
  519. act 'Pick a random partner':
  520. abonement -= 1
  521. pcs_mood += 2
  522. timemult = 2
  523. loopcount = 1
  524. :timeloop10
  525. gs 'exercise', 'tier3', 0, 'jab_exp', 'punch_exp', 'kick_exp', 'def_exp'
  526. if loopcount < timemult: loopcount += 1 & jump 'timeloop10'
  527. loopcount = 0
  528. timemult = 0
  529. pointKik = 0
  530. pointKikV = 0
  531. round = 1
  532. minround = 0
  533. gs 'npcgeneratec', 0, 'sparring partner', rand(19,45)
  534. gs 'boyStat', $npclastgenerated
  535. strenV = rand(10, 20)
  536. speedV = rand(10, 20)
  537. agilV = rand(10, 20)
  538. reactV = rand(10, 20)
  539. vitalV = rand(10, 20)
  540. intelV = 10
  541. willV = 10
  542. !!skills
  543. JabV = rand(5, 20)
  544. PunchV = rand(5, 20)
  545. KikV = rand(5, 20)
  546. KikDefV = rand(5, 20)
  547. !!parameters
  548. healthV = vitalV * 10 + strenV * 5
  549. formula = 3
  550. sparing = 1
  551. gt 'kikbox', 'start'
  552. end
  553. end
  554. if week >= 5 and amateur_fight_day ! daystart:
  555. 'You can take part in an amateur fight.'
  556. act 'Amateur fight':
  557. amateur_fight_day = daystart
  558. pcs_mood += 2
  559. timemult = 2
  560. loopcount = 1
  561. :timeloop11
  562. gs 'exercise', 'tier3', 0, 'jab_exp', 'punch_exp', 'kick_exp', 'def_exp'
  563. if loopcount < timemult: loopcount += 1 & jump 'timeloop11'
  564. loopcount = 0
  565. timemult = 0
  566. pointKik = 0
  567. pointKikV = 0
  568. round = 1
  569. minround = 0
  570. razrand = rand(0, 1)
  571. if razradKik + razrand = 0:
  572. gs 'npcgeneratec', 0, 'useless rival', rand(19,45)
  573. gs 'boyStat', $npclastgenerated
  574. strenV = rand(10, 20)
  575. speedV = rand(10, 20)
  576. agilV = rand(10, 20)
  577. reactV = rand(10, 20)
  578. vitalV = rand(10, 20)
  579. intelV = 10
  580. willV = 10
  581. !!skills
  582. JabV = rand(10, 30)
  583. PunchV = rand(10, 30)
  584. KikV = rand(10, 30)
  585. KikDefV = rand(10, 30)
  586. !!parameters
  587. healthV = vitalV * 10 + strenV * 5
  588. formula = 3
  589. amateur = 1
  590. elseif razradKik + razrand = 1:
  591. gs 'npcgeneratec', 0, '3rd class rival', rand(19,45)
  592. gs 'boyStat', $npclastgenerated
  593. strenV = rand(15, 25)
  594. speedV = rand(15, 25)
  595. agilV = rand(15, 25)
  596. reactV = rand(15, 25)
  597. vitalV = rand(15, 25)
  598. intelV = 10
  599. willV = 10
  600. !!skills
  601. JabV = rand(15, 35)
  602. PunchV = rand(15, 35)
  603. KikV = rand(15, 35)
  604. KikDefV = rand(15, 35)
  605. !!parameters
  606. healthV = vitalV * 10 + strenV * 5
  607. formula = 3
  608. amateur = 1
  609. elseif razradKik + razrand = 2:
  610. gs 'npcgeneratec', 0, '2rd class rival', rand(19,45)
  611. gs 'boyStat', $npclastgenerated
  612. strenV = rand(20, 30)
  613. speedV = rand(20, 30)
  614. agilV = rand(20, 30)
  615. reactV = rand(20, 30)
  616. vitalV = rand(20, 30)
  617. intelV = 10
  618. willV = 10
  619. !!skills
  620. JabV = rand(30, 50)
  621. PunchV = rand(30, 50)
  622. KikV = rand(30, 50)
  623. KikDefV = rand(30, 50)
  624. !!parameters
  625. healthV = vitalV * 10 + strenV * 5
  626. formula = 3
  627. amateur = 1
  628. elseif razradKik + razrand = 3:
  629. gs 'npcgeneratec', 0, '1st class rival', rand(19,45)
  630. gs 'boyStat', $npclastgenerated
  631. strenV = rand(30, 40)
  632. speedV = rand(30, 40)
  633. agilV = rand(30, 40)
  634. reactV = rand(30, 40)
  635. vitalV = rand(30, 40)
  636. intelV = 10
  637. willV = 10
  638. !!skills
  639. JabV = rand(40, 60)
  640. PunchV = rand(40, 60)
  641. KikV = rand(40, 60)
  642. KikDefV = rand(40, 60)
  643. !!parameters
  644. healthV = vitalV * 10 + strenV * 5
  645. formula = 3
  646. amateur = 1
  647. elseif razradKik + razrand = 4:
  648. gs 'npcgeneratec', 0, 'excellent rival', rand(19,45)
  649. gs 'boyStat', $npclastgenerated
  650. strenV = rand(40, 60)
  651. speedV = rand(40, 60)
  652. agilV = rand(40, 60)
  653. reactV = rand(40, 60)
  654. vitalV = rand(40, 60)
  655. intelV = 10
  656. willV = 10
  657. !!skills
  658. JabV = rand(60, 80)
  659. PunchV = rand(60, 80)
  660. KikV = rand(60, 80)
  661. KikDefV = rand(60, 80)
  662. !!parameters
  663. healthV = vitalV * 10 + strenV * 5
  664. formula = 3
  665. amateur = 1
  666. elseif razradKik + razrand >= 5:
  667. gs 'npcgeneratec', 0, 'best rival in the gym', rand(19,45)
  668. gs 'boyStat', $npclastgenerated
  669. strenV = rand(60, 100)
  670. speedV = rand(60, 100)
  671. agilV = rand(60, 100)
  672. reactV = rand(60, 100)
  673. vitalV = rand(60, 100)
  674. intelV = 10
  675. willV = 10
  676. !!skills
  677. JabV = rand(80, 110)
  678. PunchV = rand(80, 110)
  679. KikV = rand(80, 110)
  680. KikDefV = rand(80, 110)
  681. !!parameters
  682. healthV = vitalV * 10 + strenV * 5
  683. formula = 3
  684. amateur = 1
  685. end
  686. gt 'kikbox', 'start'
  687. end
  688. end
  689. end
  690. --- fit ---------------------------------