fit.qsrc 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871
  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. *nl
  15. 'This modern and well staffed fitness center provides all the latest equipment and trainers to help you make the most of them.'
  16. *nl
  17. 'At the reception you may buy '+iif(abonement > 0, 'a subscription package', 'an additional subscription package')+' for access to all available facilities.'
  18. if abonement > 0:'Your existing subscription package is valid for <<abonement>> more classes.'
  19. *nl
  20. '<b>Available Packages:</b>'
  21. if money >= 3000:
  22. '<a href="exec: money -= 3000 & abonement +=30 & gt ''fit'', ''start''">30 classes (3,000 <b>₽</b>)</a>'
  23. else
  24. '30 classes (3,000 <b>₽</b>)'
  25. end
  26. if money >= 2250:
  27. '<a href="exec: money -= 2250 & abonement +=20 & gt ''fit'', ''start''">20 classes (2,250 <b>₽</b>)</a>'
  28. else
  29. '20 classes (2,250 <b>₽</b>)'
  30. end
  31. if money >= 1500:
  32. '<a href="exec: money -= 1500 & abonement +=10 & gt ''fit'', ''start''">10 classes (1,500 <b>₽</b>)</a>'
  33. else
  34. '10 classes (1,500 <b>₽</b>)'
  35. end
  36. *nl
  37. '<b>Included classes:</b>'
  38. 'Running'
  39. 'Crossfit'
  40. 'Aerobics'
  41. 'Weights'
  42. 'Cross Trainer'
  43. 'Tennis'
  44. 'Kickboxing'
  45. 'Swimming pool.'
  46. *nl
  47. 'Sportswear is required for all available classes.'
  48. act 'Leave': minut += 5 & gt 'down'
  49. if abonement > 0:
  50. act 'Go to the dressing room': gt 'fit', 'dressing room'
  51. elseif money > 100:
  52. act 'Use the pool (100 <b>₽</b>)':
  53. money -= 100
  54. gs 'stat'
  55. gt 'fit', 'dressing room'
  56. end
  57. end
  58. if money >= 3000:
  59. act ''+iif(abonement > 0, 'Buy an extra','Buy')+' 30 classes (3,000 <b>₽</b>)':
  60. cla
  61. menu_off = 1
  62. money -= 3000
  63. abonement += 30
  64. 'You bought a subscription for 30 classes, and access to all facilities.'
  65. act 'Move away from cashier':gt 'fit', 'start'
  66. end
  67. end
  68. if money >= 2250:
  69. act ''+iif(abonement > 0, 'Buy an extra','Buy ')+' 20 classes (2,250 <b>₽</b>)':
  70. cla
  71. menu_off = 1
  72. money -= 2250
  73. abonement += 20
  74. 'You bought a subscription for 20 classes, and access to all facilities.'
  75. act 'Move away from cashier':gt 'fit', 'start'
  76. end
  77. end
  78. if money >= 1500:
  79. act ''+iif(abonement > 0, 'Buy an extra','Buy ')+' 10 classes (1,500 <b>₽</b>)':
  80. cla
  81. menu_off = 1
  82. money -= 1500
  83. abonement += 10
  84. 'You bought a subscription for 10 classes, and access to all facilities.'
  85. act 'Move away from cashier':gt 'fit', 'start'
  86. end
  87. end
  88. end
  89. if $ARGS[0] = 'dressing room':
  90. $locM = 'fit'
  91. $metkaM = 'dressing room'
  92. $sexloc = 'fit'
  93. $loc = 'fit'
  94. $metka = 'dressing room'
  95. $menu_loc = 'fit'
  96. $menu_arg = 'dressing room'
  97. menu_off = 0
  98. $location_type = 'private'
  99. *clr & cla
  100. gs 'stat'
  101. '<center><b><font color="maroon">Dressing</font></b></center>'
  102. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd.jpg"></center>'
  103. 'Recruiting girls for local track team, the winners will receive cash prizes.'
  104. 'Attention, visitors to the sports section must wear sports outfits and shoes when using the facilities.'
  105. *nl
  106. 'You can access your <a href="exec:gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  107. if nichTanyaKnown = 0 and (rand(1,100) <= 20 or nichDebug = 1):
  108. 'In the locker room you notice <a href="exec:gt ''fit'', ''fitgirl''">a cute girl</a>.'
  109. end
  110. act 'Exit the locker room':
  111. if $clothingworntype ! 'nude' and $clothingworntype ! 'swimwear':
  112. gt 'fit', 'start'
  113. else
  114. cla
  115. msg'<b><font color = red>You need to get dressed.</font></b>'
  116. act 'Return': gt 'fit', 'dressing room'
  117. end
  118. end
  119. if shampoo > 0:
  120. act 'Take a shower (0:15)':
  121. cla
  122. *clr
  123. menu_off = 1
  124. minut += 15
  125. pcs_horny += 1
  126. pcs_hairbsh = 0
  127. pcs_makeup = 1
  128. if pcs_inhib < 15:inhib_exp += rand(1,2)
  129. dynamic $showerdin
  130. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
  131. 'You go into the bathroom and turn on the shower. You lather your body and wash in the shower.'
  132. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
  133. act 'Get out of the shower':gt 'fit', 'dressing room'
  134. end
  135. else
  136. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  137. end
  138. act 'Use mirror':
  139. cla
  140. gt 'mirror', 'start'
  141. end
  142. act 'Change outfit':
  143. cla
  144. gt 'wardrobe', 'start'
  145. end
  146. if $clothingworntype = 'swimwear':
  147. act 'Use the pool': gt 'bass', 'start'
  148. else
  149. act 'Change into swimwear': gt 'changingroom', 'view_swim_list'
  150. end
  151. gs 'wardrobe', 'sports_outfit'
  152. if abonement > 0:
  153. if $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and pcs_stam >= 40:
  154. act 'Go to the gym':
  155. cla
  156. gt 'fit', 'gym'
  157. end
  158. act 'Go to the dance studio':
  159. cla
  160. gt 'danceclass'
  161. end
  162. act 'Go do a crossfit workout':
  163. cla
  164. gt 'crossfit_north_box', 'box'
  165. end
  166. end
  167. if begsec = 0:
  168. act 'Join track team':
  169. cla
  170. *clr
  171. minut += 5
  172. begsec = 1
  173. 'You signed up for the track team.'
  174. act 'Leave':gt 'fit', 'dressing room'
  175. end
  176. elseif $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and pcs_stam >= 40:
  177. act 'Go to team practice':gt 'beg', 'start'
  178. if week = 6 and pcs_run >= 20 and run_comp_day ! daystart:
  179. act '<b>Enter competition race</b>':run_comp_day = daystart & gt 'beg1', 'start'
  180. end
  181. end
  182. end
  183. if deodorant > 0 and deodorant_on = 0:
  184. 'Your deodorant will last you for <b><<deodorant>></b> more '+iif(deodorant = 1, 'application.', 'applications.')
  185. act 'Apply deodorant (0:01)':
  186. *clr & cla
  187. menu_off = 1
  188. minut += 1
  189. deodorant -= 1
  190. gs 'sweat', 'deo'
  191. iif(func('body_din','pregnancyVisibility') = 1, '<center><img <<$set_imgh>> src="images/shared/home/bathroom/deodorant_preg.jpg"></center>', '<center><img <<$set_imgh>> src="images/shared/home/bathroom/deodorant.jpg"></center>')
  192. 'You apply deodorant to your armpits. It will keep you feeling fresh and clean for longer.'
  193. act 'Continue': menu_off = 0 & gt $loc, $metka
  194. end
  195. end
  196. end
  197. if $ARGS[0] = 'fitgirl':
  198. menu_off = 1
  199. '<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/idle0.jpg"></center>'
  200. 'The girl notices you looking and returns the smile. She undresses and taking some toiletries goes into the shower.'
  201. act 'Turn away':gt 'fit', 'dressing room'
  202. act 'Follow her':
  203. *clr & cla
  204. pcs_hairbsh = 0
  205. pcs_makeup = 1
  206. noShampoo = 1
  207. dynamic $showerdin
  208. shovertania += 1
  209. gs 'stat'
  210. '<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower0.jpg"></center>'
  211. 'There''s no one in the shower, except this girl. The girl looks around and seeing you smiles again then turns away.'
  212. act 'Leave the shower':gt 'fit', 'dressing room'
  213. gs 'willpower', 'misc', 'force'
  214. if will_cost <= pcs_willpwr:
  215. act 'Molest her (<<will_cost>> Willpower)':
  216. *clr & cla
  217. gs 'willpower', 'pay', 'self'
  218. gs 'stat'
  219. '<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower_mol0.jpg"></center>'
  220. 'You walk up to the girl and gently place one hand on her right breast. She turns to face you.'
  221. gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
  222. gs 'stat'
  223. if pcs_apprnc < 80:
  224. '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.'
  225. act 'Go':gt 'fit', 'dressing room'
  226. elseif pcs_apprnc >= 80:
  227. 'The girl quickly turns around. She looks a little bit puzzled as she realizes that it was you who grabbed her. She probably expected to see a guy and isn''t sure what to do.'
  228. act 'Take advantage of the confusion':
  229. cla
  230. *clr
  231. gs 'underwear', 'remove'
  232. gs 'clothing', 'strip'
  233. '<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower_mol1.jpg"></center>'
  234. 'While she is trying to understand what is happening you begin fondling her sex with your fingers, and then her hand strokes your ass.'
  235. gs 'arousal', 'foreplay', 10, 'dom', 'lesbian'
  236. gs 'stat'
  237. act 'Further': gt 'fit', 'tanyaIntroduction'
  238. end
  239. act 'Wait for her reaction':
  240. *clr & cla
  241. gs 'stat'
  242. if pcs_apprnc < 100:
  243. 'The girl smiles at you, but removes your hand and leaves, blowing you a kiss.'
  244. act 'Continue':gt 'fit', 'dressing room'
  245. elseif pcs_apprnc >= 100:
  246. cla
  247. *clr
  248. gs 'underwear', 'remove'
  249. gs 'clothing', 'strip'
  250. '<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower_mol2.jpg"></center>'
  251. 'The girl presses up to you even stronger and kisses your lips.'
  252. gs 'arousal', 'kiss', 5, 'dom', 'lesbian'
  253. gs 'stat'
  254. act 'Further':
  255. gt 'fit', 'tanyaIntroduction'
  256. end
  257. end
  258. end
  259. end
  260. end
  261. else
  262. act 'Molest her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  263. end
  264. end
  265. end
  266. if $ARGS[0] = 'tanyaIntroduction':
  267. '<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower1.jpg"></center>'
  268. 'Just as the both of you are about to get more intimate a group of middleaged women enters the showers. They haven''t noticed you yet. The girl next to you is clearly afraid of being spotted in the shower with you and takes her first opportunity to quietely escape to the dressing room.'
  269. 'You follow her only a few seconds later. She has already begun to dress herself.'
  270. if $pantyworntype = 'none': gs 'underwear', 'wear'
  271. gs 'panties', 'dispose'
  272. gs 'clothing', 'wear_last_worn'
  273. nichTanyaRelationship = 1
  274. nichTanyaRelationshipState = 10
  275. nichTanyaKnown = 1
  276. npc_rel['A218'] += 5
  277. nichTanyaFuckLast = daystart
  278. '"You can at least tell me your name, seeing as you did not even have the decency to do so before you assaulted me." The girl says, catching her breath. Despite her words she doesn''t seem to be angry with you.'
  279. '"I am <<$pcs_nickname>>, and how can I assault someone so keen?" You ask trying to find your panties.'
  280. '"Looking for this?" asks the girl twirling your panties on her finger.'
  281. '"Yes, can I have them back, please?" you ask, while holding out your hand.'
  282. '"Nope. You seduced me. I have never been with a girl before and I think I earned this as a memento." With these words, Tanya slips your panties in her pocket.'
  283. '"My name is Tanya by the way. I live only a short distance from here with my parents. You might come over if you like. Usually I''m home in the late afternoon. We could continue were we left off." she winks at you and leaves.'
  284. '<i>You can now visit Tanya at her parents home in the Downtown area once a day after 16:00.</i>'
  285. act 'Back':gt 'fit', 'dressing room'
  286. end
  287. if $ARGS[0] = 'gym':
  288. *clr & cla
  289. menu_off = 1
  290. minut += 5
  291. sportzalrand = RAND(0,20)
  292. gs 'stat'
  293. gs 'themes', 'indoors'
  294. '<center><b><font color="maroon">Fitness Center</font></b></center>'
  295. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/fit.jpg"></center>'
  296. 'In the fitness center there are a lot of different classes and clubs, designed to improve physical development.'
  297. if StoryLine = 1:
  298. 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.'
  299. 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>'
  300. end
  301. gs 'fit', 'exercise end'
  302. act 'Aerobics (Burn fat)':
  303. cla
  304. *clr
  305. abonement -= 1
  306. timemult = 2
  307. loopcount = 1
  308. :timeloop1
  309. gs 'exercise', 'tier3', 0, 'vital_exp', 'react_exp'
  310. if loopcount < timemult: loopcount += 1 & jump 'timeloop1'
  311. loopcount = 0
  312. timemult = 0
  313. if pcs_inhib < 30:inhib_exp += rand(1,2)
  314. '<center><img <<$set_imgh>> src="images/locations/shared/gym/fit1.jpg"></center>'
  315. 'You do very vigorous exercises to the music, and burn some fat.'
  316. if pcs_stam < 30:
  317. *nl
  318. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  319. gs 'fit', 'exercise end'
  320. else
  321. act'Continue': gt 'fit', 'gym'
  322. end
  323. end
  324. act 'Free weights (Build muscle)':
  325. cla
  326. *clr
  327. abonement -= 1
  328. timemult = 2
  329. loopcount = 1
  330. :timeloop2
  331. gs 'exercise', 'tier3', 0, 'stren_exp'
  332. if loopcount < timemult: loopcount += 1 & jump 'timeloop2'
  333. loopcount = 0
  334. timemult = 0
  335. if pcs_inhib < 30:inhib_exp += rand(1,2)
  336. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit2.jpg"></center>'
  337. 'You pump iron, building strength.'
  338. if pcs_stam < 30:
  339. *nl
  340. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  341. gs 'fit', 'exercise end'
  342. else
  343. act'Continue': gt 'fit', 'gym'
  344. end
  345. end
  346. act 'Cross trainer (endurance)':
  347. cla
  348. *clr
  349. abonement -= 1
  350. timemult = 2
  351. loopcount = 1
  352. :timeloop3
  353. gs 'exercise', 'tier3', 0, 'vital_exp'
  354. if loopcount < timemult: loopcount += 1 & jump 'timeloop3'
  355. loopcount = 0
  356. timemult = 0
  357. if pcs_inhib < 30:inhib_exp += rand(1,2)
  358. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit3.jpg"></center>'
  359. 'You spend a half hour doing reps on the cross trainer developing your endurance.'
  360. if pcs_stam < 30:
  361. *nl
  362. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  363. gs 'fit', 'exercise end'
  364. else
  365. act'Continue': gt 'fit', 'gym'
  366. end
  367. end
  368. act 'Tennis practice (agility)':
  369. cla
  370. *clr
  371. abonement -= 1
  372. timemult = 2
  373. loopcount = 1
  374. :timeloop4
  375. gs 'exercise', 'tier3', 0, 'agil_exp'
  376. if loopcount < timemult: loopcount += 1 & jump 'timeloop4'
  377. loopcount = 0
  378. timemult = 0
  379. if pcs_inhib < 30:inhib_exp += rand(1,2)
  380. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit4.jpg"></center>'
  381. 'You run tennis exercises, concentrating on defensive drills.'
  382. if pcs_stam < 30:
  383. *nl
  384. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  385. gs 'fit', 'exercise end'
  386. else
  387. act'Continue': gt 'fit', 'gym'
  388. end
  389. end
  390. act 'Tennis practice (reactions)':
  391. cla
  392. *clr
  393. abonement -= 1
  394. timemult = 2
  395. loopcount = 1
  396. :timeloop5
  397. gs 'exercise', 'tier3', 0, 'react_exp'
  398. if loopcount < timemult: loopcount += 1 & jump 'timeloop5'
  399. loopcount = 0
  400. timemult = 0
  401. if pcs_inhib < 30:inhib_exp += rand(1,2)
  402. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit4.jpg"></center>'
  403. 'You run tennis exercises, concentrating on court reactions.'
  404. if pcs_stam < 30:
  405. *nl
  406. 'You are too tired to do any more exercise and will have to rest and regain some stamina.'
  407. gs 'fit', 'exercise end'
  408. else
  409. act'Continue': gt 'fit', 'gym'
  410. end
  411. end
  412. act 'Go to the kickboxing gym':gt 'fit', 'kickboxing'
  413. end
  414. if $ARGS[0] = 'exercise end':
  415. menu_off = 1
  416. RESULT = rand(0, 19)
  417. act 'Leave':
  418. if RESULT = 0:
  419. cla
  420. *clr
  421. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal1.jpg"></center>'
  422. 'You see a nice guy on the weight machine.'
  423. act 'Continue':gt 'fit', 'dressing room'
  424. act 'Flirt':
  425. cla
  426. *clr
  427. guy += 1
  428. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  429. gs 'boyStat', $npclastgenerated
  430. samecount = 1
  431. picrand = 17
  432. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal2.jpg"></center>'
  433. '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.'
  434. gs 'arousal', 'foreplay', 10, 'dom'
  435. gs 'stat'
  436. act 'Suck':gt 'sex', 'minet'
  437. end
  438. elseif RESULT = 1:
  439. cla
  440. *clr
  441. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal3.jpg"></center>'
  442. 'As you finish training, a guy sits behind, caresses your breasts and kisses your ear, sucking the lobe.'
  443. gs 'willpower', 'misc', 'self', 'medium'
  444. if will_cost <= pcs_willpwr:
  445. act 'Hit him in the balls (<<will_cost>> Willpower)':
  446. *clr & cla
  447. gs 'willpower', 'pay', 'self'
  448. gs 'stat'
  449. gt 'fit', 'dressing room'
  450. 'Event text'
  451. act 'Next action': gt 'farawayistan'
  452. end
  453. else
  454. act 'Hit him in the balls (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  455. end
  456. act 'Enjoy':
  457. cla
  458. *clr
  459. guy += 1
  460. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  461. gs 'boyStat', $npclastgenerated
  462. picrand = 18
  463. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal4.jpg"></center>'
  464. '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.'
  465. gs 'arousal', 'foreplay', 15, 'sub'
  466. gs 'stat'
  467. act 'Suck':gt 'sex', 'minet'
  468. end
  469. elseif RESULT = 2:
  470. cla
  471. 'As you finish training, a fit girl offers to play a little squash with her as she waits for her boyfriend to came.'
  472. act 'Refuse':gt 'fit', 'dressing room'
  473. act 'Agree':
  474. cla
  475. *clr
  476. picrand = 15
  477. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal5.jpg"></center>'
  478. '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.'
  479. '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.'
  480. '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.'
  481. act 'Escape from these perverts':gt 'fit', 'dressing room'
  482. act 'Enjoy':
  483. guy += 1
  484. girl += 1
  485. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  486. gs 'boyStat', $npclastgenerated
  487. gt 'podrsex', 'suck'
  488. gs 'arousal', 'foreplay', 15, 'group', 'lesbian'
  489. gs 'stat'
  490. end
  491. end
  492. elseif RESULT = 3:
  493. cla
  494. *clr
  495. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal6.jpg"></center>'
  496. 'You train near to a girl and engage in conversation, two guys obviously take you for girlfriends and try to chat you up.'
  497. act 'Continue':gt 'fit', 'dressing room'
  498. act 'Flirt back':
  499. cla
  500. *clr
  501. picrand = 12
  502. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/sex/zal7.jpg"></center>'
  503. '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.'
  504. act 'Leave':gt 'fit', 'dressing room'
  505. act 'Suck':
  506. guy += 2
  507. girl += 1
  508. gang += 1
  509. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  510. gs 'boyStat', $npclastgenerated
  511. gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
  512. gs 'boyStat', $npclastgenerated, 'a'
  513. gs 'arousal', 'bj', 15, 'group', 'lesbian'
  514. gs 'stat'
  515. gt 'sexdvanadva', 'var'
  516. end
  517. end
  518. else
  519. gt 'fit', 'dressing room'
  520. end
  521. end
  522. end
  523. if $ARGS[0] = 'kickboxing':
  524. cla
  525. *clr
  526. menu_off = 1
  527. minut += 5
  528. gs 'stat'
  529. gs 'razrKik'
  530. gs 'themes', 'indoors'
  531. '<center><b><font color="maroon">Kickboxing Gym</font></b></center>'
  532. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik.jpg"></center>'
  533. 'This section is dominated by the ring itself, square like a boxing ring and the only equipment that can''t be easily moved.'
  534. 'Around it there are various punching bags of different sizes and weights and a couple of coaches with practice pads.'
  535. 'You can try your luck in a fight here on Saturdays but safety concerns limit everyone to a maximum of 1 bout per week.'
  536. act 'Work on your jabs':
  537. cla
  538. *clr
  539. abonement -= 1
  540. timemult = 2
  541. loopcount = 1
  542. :timeloop6
  543. gs 'exercise', 'tier3', 0, 'jab_exp', 'react_exp'
  544. if loopcount < timemult: loopcount += 1 & jump 'timeloop6'
  545. loopcount = 0
  546. timemult = 0
  547. if pcs_inhib < 30:inhib_exp += rand(1,2)
  548. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  549. '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.'
  550. act 'Leave':gt 'fit', 'dressing room'
  551. end
  552. act 'Work on your heavy punches':
  553. cla
  554. *clr
  555. abonement -= 1
  556. timemult = 2
  557. loopcount = 1
  558. :timeloop7
  559. gs 'exercise', 'tier3', 0, 'stren_exp', 'punch_exp'
  560. if loopcount < timemult: loopcount += 1 & jump 'timeloop7'
  561. loopcount = 0
  562. timemult = 0
  563. if pcs_inhib < 30:inhib_exp += rand(1,2)
  564. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  565. 'You practice your power punches on the heavy bag. These are high impact and powerful, but they are hard to get to their target.'
  566. act 'Leave':gt 'fit', 'dressing room'
  567. end
  568. act 'Work on your kicking':
  569. cla
  570. *clr
  571. abonement -= 1
  572. timemult = 2
  573. loopcount = 1
  574. :timeloop8
  575. gs 'exercise', 'tier3', 0, 'stren_exp', 'kick_exp'
  576. if loopcount < timemult: loopcount += 1 & jump 'timeloop8'
  577. loopcount = 0
  578. timemult = 0
  579. if pcs_inhib < 30:inhib_exp += rand(1,2)
  580. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  581. '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.'
  582. act 'Leave':gt 'fit', 'dressing room'
  583. end
  584. act 'Work on defence':
  585. cla
  586. *clr
  587. abonement -= 1
  588. timemult = 2
  589. loopcount = 1
  590. :timeloop9
  591. gs 'exercise', 'tier3', 0, 'def_exp', 'agil_exp'
  592. if loopcount < timemult: loopcount += 1 & jump 'timeloop9'
  593. loopcount = 0
  594. timemult = 0
  595. if pcs_inhib < 30:inhib_exp += rand(1,2)
  596. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
  597. 'You practice your defense movements.'
  598. act 'Leave':gt 'fit', 'dressing room'
  599. end
  600. act 'Sparing (training bout in the ring)':
  601. cla
  602. *clr
  603. 'You need to choose a partner for sparring'
  604. if pcs_inhib < 30:inhib_exp += rand(1,2)
  605. act 'Pick a random partner':
  606. abonement -= 1
  607. pcs_mood += 2
  608. timemult = 2
  609. loopcount = 1
  610. :timeloop10
  611. gs 'exercise', 'tier3', 0, 'jab_exp', 'punch_exp', 'kick_exp', 'def_exp'
  612. if loopcount < timemult: loopcount += 1 & jump 'timeloop10'
  613. loopcount = 0
  614. timemult = 0
  615. pointKik = 0
  616. pointKikV = 0
  617. round = 1
  618. minround = 0
  619. gs 'npcgeneratec', 0, 'sparring partner', rand(19,45)
  620. gs 'boyStat', $npclastgenerated
  621. strenV = rand(10, 20)
  622. speedV = rand(10, 20)
  623. agilV = rand(10, 20)
  624. reactV = rand(10, 20)
  625. vitalV = rand(10, 20)
  626. intelV = 10
  627. willV = 10
  628. !!skills
  629. JabV = rand(5, 20)
  630. PunchV = rand(5, 20)
  631. KikV = rand(5, 20)
  632. KikDefV = rand(5, 20)
  633. !!parameters
  634. healthV = vitalV * 10 + strenV * 5
  635. formula = 3
  636. sparing = 1
  637. gt 'kikbox', 'start'
  638. end
  639. end
  640. if week >= 5 and amateur_fight_day ! daystart:
  641. 'You can take part in an amateur fight.'
  642. act 'Amateur fight':
  643. amateur_fight_day = daystart
  644. pcs_mood += 2
  645. timemult = 2
  646. loopcount = 1
  647. :timeloop11
  648. gs 'exercise', 'tier3', 0, 'jab_exp', 'punch_exp', 'kick_exp', 'def_exp'
  649. if loopcount < timemult: loopcount += 1 & jump 'timeloop11'
  650. loopcount = 0
  651. timemult = 0
  652. pointKik = 0
  653. pointKikV = 0
  654. round = 1
  655. minround = 0
  656. razrand = rand(0, 1)
  657. if razradKik + razrand = 0:
  658. gs 'npcgeneratec', 0, 'Useless rival', rand(19,45)
  659. gs 'boyStat', $npclastgenerated
  660. strenV = rand(10, 20)
  661. speedV = rand(10, 20)
  662. agilV = rand(10, 20)
  663. reactV = rand(10, 20)
  664. vitalV = rand(10, 20)
  665. intelV = 10
  666. willV = 10
  667. !!skills
  668. JabV = rand(10, 30)
  669. PunchV = rand(10, 30)
  670. KikV = rand(10, 30)
  671. KikDefV = rand(10, 30)
  672. !!parameters
  673. healthV = vitalV * 10 + strenV * 5
  674. formula = 3
  675. amateur = 1
  676. elseif razradKik + razrand = 1:
  677. gs 'npcgeneratec', 0, '3rd class rival', rand(19,45)
  678. gs 'boyStat', $npclastgenerated
  679. strenV = rand(15, 25)
  680. speedV = rand(15, 25)
  681. agilV = rand(15, 25)
  682. reactV = rand(15, 25)
  683. vitalV = rand(15, 25)
  684. intelV = 10
  685. willV = 10
  686. !!skills
  687. JabV = rand(15, 35)
  688. PunchV = rand(15, 35)
  689. KikV = rand(15, 35)
  690. KikDefV = rand(15, 35)
  691. !!parameters
  692. healthV = vitalV * 10 + strenV * 5
  693. formula = 3
  694. amateur = 1
  695. elseif razradKik + razrand = 2:
  696. gs 'npcgeneratec', 0, '2rd class rival', rand(19,45)
  697. gs 'boyStat', $npclastgenerated
  698. strenV = rand(20, 30)
  699. speedV = rand(20, 30)
  700. agilV = rand(20, 30)
  701. reactV = rand(20, 30)
  702. vitalV = rand(20, 30)
  703. intelV = 10
  704. willV = 10
  705. !!skills
  706. JabV = rand(30, 50)
  707. PunchV = rand(30, 50)
  708. KikV = rand(30, 50)
  709. KikDefV = rand(30, 50)
  710. !!parameters
  711. healthV = vitalV * 10 + strenV * 5
  712. formula = 3
  713. amateur = 1
  714. elseif razradKik + razrand = 3:
  715. gs 'npcgeneratec', 0, '1st class rival', rand(19,45)
  716. gs 'boyStat', $npclastgenerated
  717. strenV = rand(30, 40)
  718. speedV = rand(30, 40)
  719. agilV = rand(30, 40)
  720. reactV = rand(30, 40)
  721. vitalV = rand(30, 40)
  722. intelV = 10
  723. willV = 10
  724. !!skills
  725. JabV = rand(40, 60)
  726. PunchV = rand(40, 60)
  727. KikV = rand(40, 60)
  728. KikDefV = rand(40, 60)
  729. !!parameters
  730. healthV = vitalV * 10 + strenV * 5
  731. formula = 3
  732. amateur = 1
  733. elseif razradKik + razrand = 4:
  734. gs 'npcgeneratec', 0, 'Excellent rival', rand(19,45)
  735. gs 'boyStat', $npclastgenerated
  736. strenV = rand(40, 60)
  737. speedV = rand(40, 60)
  738. agilV = rand(40, 60)
  739. reactV = rand(40, 60)
  740. vitalV = rand(40, 60)
  741. intelV = 10
  742. willV = 10
  743. !!skills
  744. JabV = rand(60, 80)
  745. PunchV = rand(60, 80)
  746. KikV = rand(60, 80)
  747. KikDefV = rand(60, 80)
  748. !!parameters
  749. healthV = vitalV * 10 + strenV * 5
  750. formula = 3
  751. amateur = 1
  752. elseif razradKik + razrand >= 5:
  753. gs 'npcgeneratec', 0, 'Best rival in the gym', rand(19,45)
  754. gs 'boyStat', $npclastgenerated
  755. strenV = rand(60, 100)
  756. speedV = rand(60, 100)
  757. agilV = rand(60, 100)
  758. reactV = rand(60, 100)
  759. vitalV = rand(60, 100)
  760. intelV = 10
  761. willV = 10
  762. !!skills
  763. JabV = rand(80, 110)
  764. PunchV = rand(80, 110)
  765. KikV = rand(80, 110)
  766. KikDefV = rand(80, 110)
  767. !!parameters
  768. healthV = vitalV * 10 + strenV * 5
  769. formula = 3
  770. amateur = 1
  771. end
  772. gt 'kikbox', 'start'
  773. end
  774. end
  775. end
  776. --- fit ---------------------------------