fit 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465
  1. # fit
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. '<center><b><font color="maroon">Fitness Center</font></b></center>'
  12. '<center><img src="images/etogame/fit.jpg"></center>'
  13. 'Subscribe to the 30 classes worth 3,000 rubles'
  14. 'Be sure to come to class in sportswear.'
  15. if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
  16. act 'Leave':
  17. cla
  18. minut += 5
  19. gt 'down'
  20. end
  21. if money >= 3000:
  22. act 'Buy a subscription (3,000 rubles)':
  23. cla
  24. money -= 3000
  25. abonement += 30
  26. 'You bought a ticket for 30 lessons'
  27. act 'Move away from cash':gt 'fit', 'start'
  28. end
  29. end
  30. if abonement > 0 and fitday ! day:
  31. act 'Walk in dressing room':
  32. cla
  33. frost = 0
  34. abonement -= 1
  35. fitday = day
  36. razdtumbler = 1
  37. gt 'fit', 'razd'
  38. end
  39. end
  40. end
  41. if $ARGS[0] = 'razd':
  42. $metkaM = $ARGS[0]
  43. $locM = $CURLOC
  44. clr
  45. minut += 5
  46. gs 'stat'
  47. '<center><b><font color="maroon">Dressing</font></b></center>'
  48. '<center><img src="images/etogame/razd.jpg"></center>'
  49. 'Classifieds'
  50. 'Recruited girls section races, the winners of the competition receive cash prizes.'
  51. 'Attention, visit the sports section razreshaetsya only with tracksuits.'
  52. if razdrand = 0 and tanznak = 0 and tanday ! day:
  53. tanday = day
  54. 'In the locker room you notice <a href="exec:gt ''fitgirl''">cute girl</a>.'
  55. elseif tanznak = 2:
  56. cls
  57. tanznak = 3
  58. tanga = 0
  59. nude = 1
  60. tanya += 5
  61. '<center><img src="images/img/centr/razd4.jpg"></center>'
  62. '"You at least as name, maniac, and then raped her and Chesney did not even had the" asked the girl caught her breath.'
  63. '"I am the <<$name>>, and I will not rape you herself was not against" you said trying to find the eyes of her panties.'
  64. '"Looking for this?" asked the girl twirling on his finger your panties "I''m Tanya, and yet you seduced me, I did not have before the girls, and as it turned out a very good reason, I live here with my parents, if you want to come for a visit."'
  65. '"Okay as anything the race, briefs is true" you said holding out his hand.'
  66. '"Nope, do not return, there must me something to stay on the memory of the first girl." With these words, Tanya slipped your panties in his pocket and left.'
  67. act 'Further':gt 'fit', 'razd'
  68. exit
  69. end
  70. if begsec = 0:act 'Join section running':gt 'fit', '1'
  71. if begsec > 0 and razdtumbler = 1 and sport > 0:act 'Go to section':gt 'beg', 'start'
  72. if begsec > 0 and razdtumbler = 1 and sport > 0 and beg >= 20 and week = 6:act '<b>Competitions on the run</b>':gt 'beg1', 'start'
  73. act 'Take a shower (0:15)':
  74. cla
  75. *clr
  76. minut += 15
  77. sweat = -3
  78. horny += 1
  79. hapri = 0
  80. mop = 1
  81. dynamic $showerdin
  82. '<center><img src="images/pics/dush.jpg"></center>'
  83. 'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
  84. act 'Get out of the shower':gt 'fit', 'razd'
  85. end
  86. act 'Mirror':
  87. cla
  88. fitMir = 1
  89. gt 'mirror', 'start'
  90. end
  91. act 'Cabinet':
  92. cla
  93. gt 'clothing', 'view_clothing_list', 'wardrobe'
  94. end
  95. if razdtumbler = 1 and sport > 0:
  96. act 'Go to the gym':
  97. cla
  98. gt 'fit', 'raz'
  99. end
  100. act 'Go to the dance studio.':
  101. cla
  102. gt 'danceclass'
  103. end
  104. elseif razdtumbler = 0 or sport = 0:
  105. act 'Exit of the locker room':
  106. cla
  107. gt 'fit', 'start'
  108. end
  109. end
  110. end
  111. if $ARGS[0] = 'raz':
  112. cla
  113. clr
  114. *clr
  115. minut += 5
  116. razdtumbler = 0
  117. sportzalrand = rand(0, 20)
  118. gs 'stat'
  119. fcolor = rgb(0, 0, 0)
  120. bcolor = rgb(255, 255, 255)
  121. lcolor = rgb(106, 90, 205)
  122. '<center><b><font color="maroon">Fitness Center</font></b></center>'
  123. '<center><img src="images/etogame/fit.jpg"></center>'
  124. 'In the fitness center a lot of different programs for the physical development of the organism.'
  125. act 'Aerobics (Squeegee fat)':
  126. cla
  127. *clr
  128. minut += 120
  129. fat -= 10
  130. reakt += rand(1, 3)
  131. manna -= 5
  132. sweat += 3
  133. gt 'zal', '<<sportzalrand>>'
  134. '<center><img src="images/etogame/fit1.jpg"></center>'
  135. 'You are very vigorously the exercises for the music ebbs fat.'
  136. act 'Leave':gt 'fit', 'razd'
  137. end
  138. act 'Trenazhorka (in force)':
  139. cla
  140. *clr
  141. minut += 120
  142. stren += rand(1, 3)
  143. fat -= 1
  144. manna -= 5
  145. sweat += 3
  146. gt 'zal', '<<sportzalrand>>'
  147. '<center><img src="images/etogame/fit2.jpg"></center>'
  148. 'Did you do with iron for strength.'
  149. act 'Leave':gt 'fit', 'razd'
  150. end
  151. act 'Trenazhorka (endurance)':
  152. cla
  153. *clr
  154. minut += 120
  155. vital += rand(1, 3)
  156. manna -= 5
  157. fat -= 2
  158. sweat += 3
  159. gt 'zal', '<<sportzalrand>>'
  160. '<center><img src="images/etogame/fit3.jpg"></center>'
  161. 'Trainers were you doing on the development of endurance.'
  162. act 'Leave':gt 'fit', 'razd'
  163. end
  164. act 'Tennis testing of protection (skill)':
  165. cla
  166. *clr
  167. minut += 120
  168. agil += rand(1, 3)
  169. fat -= 5
  170. manna -= 5
  171. sweat += 3
  172. TenisDef += 1
  173. gt 'zal', '<<sportzalrand>>'
  174. '<center><img src="images/etogame/fit4.jpg"></center>'
  175. 'You do tennis practicing defensive actions.'
  176. act 'Leave':gt 'fit', 'razd'
  177. end
  178. act 'Tennis working out attacks (velocity)':
  179. cla
  180. *clr
  181. minut += 120
  182. speed += rand(1, 3)
  183. manna -= 5
  184. fat -= 5
  185. sweat += 3
  186. TenisAt += 1
  187. gt 'zal', '<<sportzalrand>>'
  188. '<center><img src="images/etogame/fit4.jpg"></center>'
  189. 'You do practicing tennis attacking actions.'
  190. act 'Leave':gt 'fit', 'razd'
  191. end
  192. act 'Section kickboxing':gt 'fit', 'kik'
  193. end
  194. if $ARGS[0] = 'kik':
  195. cla
  196. clr
  197. *clr
  198. minut += 5
  199. gs 'stat'
  200. gs 'razrKik'
  201. fcolor = rgb(0, 0, 0)
  202. bcolor = rgb(255, 255, 255)
  203. lcolor = rgb(106, 90, 205)
  204. '<center><b><font color="maroon">Kickboxing Section</font></b></center>'
  205. '<center><img src="images/etogame/kik.jpg"></center>'
  206. ''
  207. act 'Testing jabs on pear':
  208. cla
  209. *clr
  210. minut += 120
  211. speed += rand(1, 3)
  212. manna -= 5
  213. fat -= 4
  214. sweat += 3
  215. Jab += rand(1, 3)
  216. '<center><img src="images/etogame/kik1.jpg"></center>'
  217. 'You practiced on pear jab, straight punches with long step forward. These strikes are not so powerful as the police, but they are faster.'
  218. act 'Leave':gt 'fit', 'razd'
  219. end
  220. act 'Testing power beats on a pear':
  221. cla
  222. *clr
  223. minut += 120
  224. stren += rand(1, 3)
  225. manna -= 5
  226. fat -= 4
  227. sweat += 3
  228. Punch += rand(1, 3)
  229. '<center><img src="images/etogame/kik1.jpg"></center>'
  230. 'You practiced on pear powerful force capable of hitting an opponent shake. These impacts are powerful, but they are hard to get.'
  231. act 'Leave':gt 'fit', 'razd'
  232. end
  233. act 'Testing of kicks':
  234. cla
  235. *clr
  236. minut += 120
  237. stren += rand(1, 3)
  238. manna -= 5
  239. fat -= 4
  240. sweat += 3
  241. Kik += rand(1, 3)
  242. '<center><img src="images/etogame/kik1.jpg"></center>'
  243. 'You practiced on pear powerful kicks able to cut down an opponent. These impacts are powerful, but are very difficult to hit.'
  244. act 'Leave':gt 'fit', 'razd'
  245. end
  246. act 'Testing of protection':
  247. cla
  248. *clr
  249. minut += 120
  250. agil += rand(1, 3)
  251. manna -= 5
  252. fat -= 4
  253. sweat += 3
  254. KikDef += rand(1, 3)
  255. '<center><img src="images/etogame/kik1.jpg"></center>'
  256. 'You practiced defense movements.'
  257. act 'Leave':gt 'fit', 'razd'
  258. end
  259. act 'Sparing (training bout in the ring)':
  260. cla
  261. *clr
  262. round = 0
  263. 'You need to choose a rival for sparring'
  264. act 'Rival':
  265. minut += 120
  266. manna -= 5
  267. fat -= 4
  268. sweat += 3
  269. strenV = rand(10, 20)
  270. speedV = rand(10, 20)
  271. agilV = rand(10, 20)
  272. reactV = rand(10, 20)
  273. vitalV = rand(10, 20)
  274. intelV = 10
  275. willV = 10
  276. !!skills
  277. JabV = rand(5, 20)
  278. PunchV = rand(5, 20)
  279. KikV = rand(5, 20)
  280. KikDefV = rand(5, 20)
  281. !!parameters
  282. healthV = vitalV * 10 + strenV * 5
  283. $nameV = 'Sparring partner'
  284. formula = 3
  285. sparing = 1
  286. gt 'kikbox', 'start'
  287. end
  288. end
  289. if week >= 5:
  290. 'You can spend an amateur fight.'
  291. act 'Amateur fight':
  292. round = 0
  293. minut += 120
  294. manna -= 5
  295. fat -= 4
  296. sweat += 3
  297. razrand = rand(0, 1)
  298. if razradKik + razrand = 0:
  299. strenV = rand(10, 20)
  300. speedV = rand(10, 20)
  301. agilV = rand(10, 20)
  302. reactV = rand(10, 20)
  303. vitalV = rand(10, 20)
  304. intelV = 10
  305. willV = 10
  306. !!skills
  307. JabV = rand(10, 30)
  308. PunchV = rand(10, 30)
  309. KikV = rand(10, 30)
  310. KikDefV = rand(10, 30)
  311. !!parameters
  312. healthV = vitalV * 10 + strenV * 5
  313. $nameV = 'Rival without discharge'
  314. formula = 3
  315. amateur = 1
  316. elseif razradKik + razrand = 1:
  317. strenV = rand(15, 25)
  318. speedV = rand(15, 25)
  319. agilV = rand(15, 25)
  320. reactV = rand(15, 25)
  321. vitalV = rand(15, 25)
  322. intelV = 10
  323. willV = 10
  324. !!skills
  325. JabV = rand(15, 35)
  326. PunchV = rand(15, 35)
  327. KikV = rand(15, 35)
  328. KikDefV = rand(15, 35)
  329. !!parameters
  330. healthV = vitalV * 10 + strenV * 5
  331. $nameV = 'Rival c third discharge'
  332. formula = 3
  333. amateur = 1
  334. elseif razradKik + razrand = 2:
  335. strenV = rand(20, 30)
  336. speedV = rand(20, 30)
  337. agilV = rand(20, 30)
  338. reactV = rand(20, 30)
  339. vitalV = rand(20, 30)
  340. intelV = 10
  341. willV = 10
  342. !!skills
  343. JabV = rand(30, 50)
  344. PunchV = rand(30, 50)
  345. KikV = rand(30, 50)
  346. KikDefV = rand(30, 50)
  347. !!parameters
  348. healthV = vitalV * 10 + strenV * 5
  349. $nameV = 'Rival co second discharge'
  350. formula = 3
  351. amateur = 1
  352. elseif razradKik + razrand = 3:
  353. strenV = rand(30, 40)
  354. speedV = rand(30, 40)
  355. agilV = rand(30, 40)
  356. reactV = rand(30, 40)
  357. vitalV = rand(30, 40)
  358. intelV = 10
  359. willV = 10
  360. !!skills
  361. JabV = rand(40, 60)
  362. PunchV = rand(40, 60)
  363. KikV = rand(40, 60)
  364. KikDefV = rand(40, 60)
  365. !!parameters
  366. healthV = vitalV * 10 + strenV * 5
  367. $nameV = 'Rival c first discharge'
  368. formula = 3
  369. amateur = 1
  370. elseif razradKik + razrand = 4:
  371. strenV = rand(40, 60)
  372. speedV = rand(40, 60)
  373. agilV = rand(40, 60)
  374. reactV = rand(40, 60)
  375. vitalV = rand(40, 60)
  376. intelV = 10
  377. willV = 10
  378. !!skills
  379. JabV = rand(60, 80)
  380. PunchV = rand(60, 80)
  381. KikV = rand(60, 80)
  382. KikDefV = rand(60, 80)
  383. !!parameters
  384. healthV = vitalV * 10 + strenV * 5
  385. $nameV = 'Rival CCM'
  386. formula = 3
  387. amateur = 1
  388. elseif razradKik + razrand >= 5:
  389. strenV = rand(60, 100)
  390. speedV = rand(60, 100)
  391. agilV = rand(60, 100)
  392. reactV = rand(60, 100)
  393. vitalV = rand(60, 100)
  394. intelV = 10
  395. willV = 10
  396. !!skills
  397. JabV = rand(80, 110)
  398. PunchV = rand(80, 110)
  399. KikV = rand(80, 110)
  400. KikDefV = rand(80, 110)
  401. !!parameters
  402. healthV = vitalV * 10 + strenV * 5
  403. $nameV = 'Rival MS'
  404. formula = 3
  405. amateur = 1
  406. end
  407. gt 'kikbox', 'start'
  408. end
  409. end
  410. end
  411. if $ARGS[0] = '1':
  412. cla
  413. *clr
  414. minut += 5
  415. begsec = 1
  416. 'You signed up for the run section'
  417. act 'Leave':gt 'fit', 'razd'
  418. end
  419. --- fit ---------------------------------