1
0

fit.qsrc 28 KB

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