fit.qsrc 28 KB

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