350_fit 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998
  1. # fit
  2. <<<<<<< 350_fit
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 350_fit
  7. cla
  8. *clr
  9. <<<<<<< 350_fit
  10. set minut += 5
  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 3000 ruble'
  14. 'Be sure to come to class in sportswear.'
  15. if abonement > 0: 'Subscription is valid for <<abonement>> Occupation'
  16. clr
  17. gs 'stat'
  18. fcolor = rgb(0,0,0)
  19. bcolor = rgb(255,255,255)
  20. =======
  21. set minut = minut + 5
  22. '<center><B><font color=maroon>fitness center</font></B></center>'
  23. '<center><img src="pic/fit.jpg" ></center>'
  24. 'Subscribe to 30 training costs 3000 rubles
  25. Be sure to come to class in sportswear.'
  26. if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
  27. clr
  28. gs'stat'
  29. fcolor=rgb(0,0,0)
  30. bcolor=rgb(255,255,255)
  31. >>>>>>> 350_fit
  32. LCOLOR = rgb(106,90,205)
  33. <<<<<<< 350_fit
  34. act 'QUIT':
  35. cla
  36. set minut += 5
  37. gt 'down'
  38. end
  39. if money >= 3000:
  40. act 'Buy a subscription (3,000 rubles)':
  41. cla
  42. set money -= 3000
  43. set abonement += 30
  44. 'You bought a ticket for 30 lessons'
  45. act 'Move away from cash': gt 'fit','start'
  46. end
  47. end
  48. if abonement > 0 and fitday ! day:
  49. act 'Walk in dressing room':
  50. cla
  51. frost = 0
  52. set abonement -= 1
  53. set fitday = day
  54. set razdtumbler = 1
  55. gt 'fit','razd'
  56. end
  57. end
  58. =======
  59. act 'GO_OUT':
  60. cla
  61. set minut = minut + 5
  62. gt'down'
  63. end
  64. if money >= 3000:
  65. act 'Buy ticket (3 sput)':
  66. cla
  67. set money = money - 3000
  68. set abonement = abonement + 30
  69. 'You bought a subscription for 30 Occupation'
  70. act 'Move away from cash':gt'fit','start'
  71. end
  72. end
  73. if abonement > 0 and fitday ! day:
  74. act 'Go to the locker room':
  75. cla
  76. frost=0
  77. set abonement = abonement - 1
  78. set fitday = day
  79. set razdtumbler = 1
  80. gt'fit','razd'
  81. end
  82. end
  83. >>>>>>> 350_fit
  84. end
  85. <<<<<<< 350_fit
  86. if $ARGS[0] = 'razd':
  87. clr
  88. gs 'stat'
  89. =======
  90. if $ARGS[0]='razd':
  91. clr
  92. gs'stat'
  93. >>>>>>> 350_fit
  94. $metkaM = $ARGS[0]
  95. $locM = $CURLOC
  96. <<<<<<< 350_fit
  97. set minut += 5
  98. '<center><B><font color = maroon>Dressing</font></B></center>'
  99. '<center><img src="images\etogame\razd.jpg"></center>'
  100. 'Classifieds'
  101. 'Recruited girls section races, the winners of the competition receive cash prizes.'
  102. 'Attention, visit the sports section razreshaetsya only with tracksuits.'
  103. if razdrand = 0 and tanznak = 0 and tanday ! day:
  104. tanday = day
  105. 'In the locker room you notice <a href="exec:gt ''fitgirl''">cute girl</a>.'
  106. end
  107. if tanznak = 2:
  108. cls
  109. '<center><img src="images\img\centr\razd4.jpg"></center>'
  110. '"You at least as name, maniac, and then raped her and Chesney did not even had the" asked the girl caught her breath.'
  111. '"I am the <<$name>>, and I will not rape you herself was not against" you said trying to find the eyes of her panties.'
  112. '"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."'
  113. '"Okay as anything the race, briefs is true" you said holding out his hand.'
  114. '"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.'
  115. set tanznak = 3
  116. set tanga = 0
  117. set nude = 1
  118. set tanya += 5
  119. act 'Further': gt 'fit','razd'
  120. exit
  121. end
  122. =======
  123. set minut = minut + 5
  124. '<center><B><font color=maroon>locker_room</font></B></center>'
  125. '<center><img src="pic/razd.jpg" ></center>'
  126. 'advertisement'
  127. 'Produced a set of girls in section running, winners of the competition receive cash prizes.'
  128. 'Caution, visit the sports section razreshaetsya only with tracksuits.'
  129. if razdrand=0 and tanznak=0 and tanday!day:
  130. tanday=day
  131. 'In the locker room <a href="exec:gt ''fitgirl''">pretty girl</a>.'
  132. end
  133. if tanznak=2:
  134. cls
  135. '<center><img src="img/centr/razd4.jpg" ></center>'
  136. '"You, manyachka, and then raped the girl and Chesney did not even had the" she asked breathless.
  137. "I Light, and I will not rape you yourself did not mind" Answer You eyes trying to find her panties.
  138. "Looking for this?" asked the girl twirling his finger on your panties "I`m Tanya, and yet you seduced me, I have the girls did not exist before, and as it turned out a very good reason, I live near here with my parents, if you want to come to visit."
  139. "Okay as a sprint, Panties is true" Say you`re holding out his hand.
  140. "Do_Not-and do not return, should at me that-then stay on the memory of the first girl." With these words.'
  141. set tanznak=3
  142. set tanga=0
  143. set nude=1
  144. set tanya+=5
  145. act 'further':gt'fit','razd'
  146. exit
  147. end
  148. >>>>>>> 350_fit
  149. <<<<<<< 350_fit
  150. if begsec = 0: act 'Join section running': gt 'fit','1'
  151. if begsec > 0 and razdtumbler = 1 and sport > 0: act 'Go to section': gt 'beg','start'
  152. 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'
  153. act 'Take a shower (0:15)':
  154. cla
  155. *clr
  156. set minut += 15
  157. if sweat > -3: set sweat = -3
  158. set horny += 1
  159. set hapri = 0
  160. set mop = 1
  161. dynamic $showerdin
  162. '<center><img src="images\pics\dush.jpg"></center>'
  163. 'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
  164. act 'Get out of the shower': gt 'fit','razd'
  165. end
  166. act 'Mirror':
  167. cla
  168. set fitMir = 1
  169. gt 'mirror','start'
  170. end
  171. act 'Cabinet':
  172. cla
  173. set fitLoker = 1
  174. gt 'loker','start'
  175. end
  176. if razdtumbler = 1 and sport > 0:
  177. act 'Go to the gym':
  178. cla
  179. gt 'fit','raz'
  180. end
  181. act 'Go to the dance studio.':
  182. cla
  183. gt 'danceclass'
  184. end
  185. end
  186. if razdtumbler = 0 or sport = 0:
  187. act 'Exit of the locker room':
  188. cla
  189. gt 'fit','start'
  190. end
  191. end
  192. =======
  193. if begsec = 0: act 'Enroll in section running': gt'fit','1'
  194. if begsec > 0 and razdtumbler = 1 and sport > 0: act 'Go to section': gt'beg','start'
  195. 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'
  196. act 'take a shower 15 min':
  197. cla
  198. *clr
  199. set minut = minut + 15
  200. set sweat = -3
  201. set horny = horny + 1
  202. set hapri = 0
  203. set mop = 1
  204. dynamic $showerdin
  205. '<center><img src="pics/dush.jpg" ></center>'
  206. 'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
  207. act 'Get out of the shower':gt'fit','razd'
  208. end
  209. act 'mirror':
  210. cla
  211. set fitMir = 1
  212. gt'mirror','start'
  213. end
  214. act 'cabinet':
  215. cla
  216. set fitLoker = 1
  217. gt'loker','start'
  218. end
  219. if razdtumbler = 1 and sport > 0:
  220. act 'Go to the gym':
  221. cla
  222. gt'fit','raz'
  223. end
  224. act 'Go to the dance studio.':
  225. cla
  226. gt'danceclass'
  227. end
  228. end
  229. if razdtumbler = 0 or sport = 0:
  230. act 'Get out of the locker room':
  231. cla
  232. gt'fit','start'
  233. end
  234. end
  235. >>>>>>> 350_fit
  236. end
  237. <<<<<<< 350_fit
  238. if $ARGS[0] = 'raz':
  239. =======
  240. if $ARGS[0]='raz':
  241. >>>>>>> 350_fit
  242. cla
  243. *clr
  244. <<<<<<< 350_fit
  245. set minut += 5
  246. '<center><B><font color = maroon>Fitness Center</font></B></center>'
  247. '<center><img src="images\etogame\fit.jpg"></center>'
  248. 'In the fitness center a lot of different programs for the physical development of the organism.'
  249. clr
  250. gs 'stat'
  251. fcolor = rgb(0,0,0)
  252. bcolor = rgb(255,255,255)
  253. =======
  254. set minut = minut + 5
  255. '<center><B><font color=maroon>fitness center</font></B></center>'
  256. '<center><img src="pic/fit.jpg" ></center>'
  257. 'In the fitness center are a lot of different programs for the physical development of the organism.'
  258. clr
  259. gs'stat'
  260. fcolor=rgb(0,0,0)
  261. bcolor=rgb(255,255,255)
  262. >>>>>>> 350_fit
  263. LCOLOR = rgb(106,90,205)
  264. set razdtumbler = 0
  265. <<<<<<< 350_fit
  266. set sportzalrand = rand(0,20)
  267. act 'Aerobics (Squeegee fat)':
  268. cla
  269. *clr
  270. set minut += 120
  271. set fat -= 10
  272. set reakt += RAND(1,3)
  273. set manna -= 5
  274. set sweat += 3
  275. if sportzalrand = 0: gt 'zal','0'
  276. if sportzalrand = 1: gt 'zal','1'
  277. if sportzalrand = 2: gt 'zal','2'
  278. if sportzalrand = 3: gt 'zal','3'
  279. '<center><img src="images\etogame\fit1.jpg"></center>'
  280. 'You are very vigorously the exercises for the music ebbs fat.'
  281. act 'Leave': gt 'fit','razd'
  282. end
  283. act 'Trenazhorka (in force)':
  284. cla
  285. *clr
  286. set minut += 120
  287. set stren += RAND(1,3)
  288. set fat -= 1
  289. set manna -= 5
  290. set sweat += 3
  291. if sportzalrand = 0: gt 'zal','0'
  292. if sportzalrand = 1: gt 'zal','1'
  293. if sportzalrand = 2: gt 'zal','2'
  294. if sportzalrand = 3: gt 'zal','3'
  295. '<center><img src="images\etogame\fit2.jpg"></center>'
  296. 'Did you do with iron for strength.'
  297. act 'Leave': gt 'fit','razd'
  298. end
  299. act 'Trenazhorka (endurance)':
  300. cla
  301. *clr
  302. set minut += 120
  303. set vital += RAND(1,3)
  304. set manna -= 5
  305. set fat -= 2
  306. set sweat += 3
  307. if sportzalrand = 0: gt 'zal','0'
  308. if sportzalrand = 1: gt 'zal','1'
  309. if sportzalrand = 2: gt 'zal','2'
  310. if sportzalrand = 3: gt 'zal','3'
  311. '<center><img src="images\etogame\fit3.jpg"></center>'
  312. 'Trainers were you doing on the development of endurance.'
  313. act 'Leave': gt 'fit','razd'
  314. end
  315. act 'Tennis testing of protection (skill)':
  316. cla
  317. *clr
  318. set minut += 120
  319. set agil += RAND(1,3)
  320. set fat -= 5
  321. set manna -= 5
  322. set sweat += 3
  323. set TenisDef += 1
  324. if sportzalrand = 0: gt 'zal','0'
  325. if sportzalrand = 1: gt 'zal','1'
  326. if sportzalrand = 2: gt 'zal','2'
  327. if sportzalrand = 3: gt 'zal','3'
  328. '<center><img src="images\etogame\fit4.jpg"></center>'
  329. 'You do tennis practicing defensive actions.'
  330. act 'Leave': gt 'fit','razd'
  331. end
  332. act 'Tennis working out attacks (velocity)':
  333. cla
  334. *clr
  335. set minut += 120
  336. set speed += RAND(1,3)
  337. set manna -= 5
  338. set fat -= 5
  339. set sweat += 3
  340. set TenisAt += 1
  341. if sportzalrand = 0: gt 'zal','0'
  342. if sportzalrand = 1: gt 'zal','1'
  343. if sportzalrand = 2: gt 'zal','2'
  344. if sportzalrand = 3: gt 'zal','3'
  345. '<center><img src="images\etogame\fit4.jpg"></center>'
  346. 'You do practicing tennis attacking actions.'
  347. act 'Leave': gt 'fit','razd'
  348. end
  349. act 'Section kickboxing': gt 'fit','kik'
  350. =======
  351. set sportzalrand=rand(0,20)
  352. act 'aerobics (Squeegee fat)':
  353. cla
  354. *clr
  355. set minut = minut + 120
  356. set fat = fat - 10
  357. set reakt = reakt + RAND (1,3)
  358. set manna = manna - 5
  359. set sweat = sweat + 3
  360. if sportzalrand=0:gt'zal','0'
  361. if sportzalrand=1:gt'zal','1'
  362. if sportzalrand=2:gt'zal','2'
  363. if sportzalrand=3:gt'zal','3'
  364. '<center><img src="pic/fit1.jpg" ></center>'
  365. 'You are very energetic exercises to music for eviction fat.'
  366. act 'Get_Away':gt'fit','razd'
  367. end
  368. act 'Trenazhorka (effect on)':
  369. cla
  370. *clr
  371. set minut = minut + 120
  372. set stren = stren + RAND (1,3)
  373. set fat = fat - 1
  374. set manna = manna - 5
  375. set sweat = sweat + 3
  376. if sportzalrand=0:gt'zal','0'
  377. if sportzalrand=1:gt'zal','1'
  378. if sportzalrand=2:gt'zal','2'
  379. if sportzalrand=3:gt'zal','3'
  380. '<center><img src="pic/fit2.jpg" ></center>'
  381. 'Did you do with iron for strength development.'
  382. act 'Get_Away':gt'fit','razd'
  383. end
  384. act 'Trenazhorka (endurance)':
  385. cla
  386. *clr
  387. set minut = minut + 120
  388. set vital = vital + RAND (1,3)
  389. set manna = manna - 5
  390. set fat = fat - 2
  391. set sweat = sweat + 3
  392. if sportzalrand=0:gt'zal','0'
  393. if sportzalrand=1:gt'zal','1'
  394. if sportzalrand=2:gt'zal','2'
  395. if sportzalrand=3:gt'zal','3'
  396. '<center><img src="pic/fit3.jpg" ></center>'
  397. 'Did you do on trenazhore for development of endurance.'
  398. act 'Get_Away':gt'fit','razd'
  399. end
  400. act 'Tennis working out protection(Skill)':
  401. cla
  402. *clr
  403. set minut = minut + 120
  404. set agil = agil + RAND (1,3)
  405. set fat = fat - 5
  406. set manna = manna - 5
  407. set sweat = sweat + 3
  408. set TenisDef = TenisDef + 1
  409. if sportzalrand=0:gt'zal','0'
  410. if sportzalrand=1:gt'zal','1'
  411. if sportzalrand=2:gt'zal','2'
  412. if sportzalrand=3:gt'zal','3'
  413. '<center><img src="pic/fit4.jpg" ></center>'
  414. 'You engaged in practicing tennis protective actions.'
  415. act 'Get_Away':gt'fit','razd'
  416. end
  417. act 'Tennis working off attacks (speed)':
  418. cla
  419. *clr
  420. set minut = minut + 120
  421. set speed = speed + RAND (1,3)
  422. set manna = manna - 5
  423. set fat = fat - 5
  424. set sweat = sweat + 3
  425. set TenisAt = TenisAt + 1
  426. if sportzalrand=0:gt'zal','0'
  427. if sportzalrand=1:gt'zal','1'
  428. if sportzalrand=2:gt'zal','2'
  429. if sportzalrand=3:gt'zal','3'
  430. '<center><img src="pic/fit4.jpg" ></center>'
  431. 'You engaged in practicing tennis attacking actions.'
  432. act 'Get_Away':gt'fit','razd'
  433. end
  434. act 'section kickboxing':gt'fit','kik'
  435. >>>>>>> 350_fit
  436. end
  437. <<<<<<< 350_fit
  438. if $ARGS[0] = 'kik':
  439. =======
  440. if $ARGS[0]='kik':
  441. >>>>>>> 350_fit
  442. cla
  443. *clr
  444. <<<<<<< 350_fit
  445. set minut += 5
  446. '<center><B><font color = maroon>Kickboxing Section</font></B></center>'
  447. '<center><img src="images\etogame\kik.jpg"></center>'
  448. =======
  449. set minut = minut + 5
  450. '<center><B><font color=maroon>section kickboxing</font></B></center>'
  451. '<center><img src="pic/kik.jpg" ></center>'
  452. >>>>>>> 350_fit
  453. ''
  454. clr
  455. <<<<<<< 350_fit
  456. gs 'stat'
  457. fcolor = rgb(0,0,0)
  458. bcolor = rgb(255,255,255)
  459. LCOLOR = rgb(106,90,205)
  460. gs 'razrKik'
  461. act 'Testing jabs on pear':
  462. cla
  463. *clr
  464. set minut += 120
  465. set speed += RAND(1,3)
  466. set manna -= 5
  467. set fat -= 4
  468. set sweat += 3
  469. set Jab += RAND(1,3)
  470. '<center><img src="images\etogame\kik1.jpg"></center>'
  471. 'You practiced on pear jab, straight punches with long step forward. These strikes are not so powerful as the police, but they are faster.'
  472. act 'Leave': gt 'fit','razd'
  473. end
  474. act 'Testing power beats on a pear':
  475. cla
  476. *clr
  477. set minut += 120
  478. set stren += RAND(1,3)
  479. set manna -= 5
  480. set fat -= 4
  481. set sweat += 3
  482. set Punch += RAND(1,3)
  483. '<center><img src="images\etogame\kik1.jpg"></center>'
  484. 'You practiced on pear powerful force capable of hitting an opponent shake. These impacts are powerful, but they are hard to get.'
  485. act 'Leave': gt 'fit','razd'
  486. end
  487. act 'Testing of kicks':
  488. cla
  489. *clr
  490. set minut += 120
  491. set stren += RAND(1,3)
  492. set manna -= 5
  493. set fat -= 4
  494. set sweat += 3
  495. set Kik += RAND(1,3)
  496. '<center><img src="images\etogame\kik1.jpg"></center>'
  497. 'You practiced on pear powerful kicks able to cut down an opponent. These impacts are powerful, but are very difficult to hit.'
  498. act 'Leave': gt 'fit','razd'
  499. end
  500. act 'Testing of protection':
  501. cla
  502. *clr
  503. set minut += 120
  504. set agil += RAND(1,3)
  505. set manna -= 5
  506. set fat -= 4
  507. set sweat += 3
  508. set KikDef += RAND(1,3)
  509. '<center><img src="images\etogame\kik1.jpg"></center>'
  510. 'You practiced defense movements.'
  511. act 'Leave': gt 'fit','razd'
  512. end
  513. act 'Sparing (training bout in the ring)':
  514. cla
  515. *clr
  516. set round = 0
  517. 'You need to choose a rival for sparring'
  518. act 'Rival':
  519. set minut += 120
  520. set manna -= 5
  521. set fat -= 4
  522. set sweat += 3
  523. set strenV = RAND(10,20)
  524. set speedV = RAND(10,20)
  525. set agilV = RAND(10,20)
  526. set reactV = RAND(10,20)
  527. set vitalV = RAND(10,20)
  528. set intelV = 10
  529. set willV = 10
  530. !Навыки
  531. set JabV = RAND(5,20)
  532. set PunchV = RAND(5,20)
  533. set KikV = RAND(5,20)
  534. set KikDefV = RAND(5,20)
  535. !Параметры
  536. set healthV = vitalV * 10 + strenV * 5
  537. set $nameV = 'Sparring partner'
  538. set formula = 3
  539. set sparing = 1
  540. gt 'kikbox','start'
  541. end
  542. end
  543. if week >= 5:
  544. 'You can spend an amateur fight.'
  545. act 'Amateur fight':
  546. set round = 0
  547. set minut += 120
  548. set manna -= 5
  549. set fat -= 4
  550. set sweat += 3
  551. set razrand = RAND(0,1)
  552. if razradKik + razrand = 0:
  553. set strenV = RAND(10,20)
  554. set speedV = RAND(10,20)
  555. set agilV = RAND(10,20)
  556. set reactV = RAND(10,20)
  557. set vitalV = RAND(10,20)
  558. set intelV = 10
  559. set willV = 10
  560. !Навыки
  561. set JabV = RAND(10,30)
  562. set PunchV = RAND(10,30)
  563. set KikV = RAND(10,30)
  564. set KikDefV = RAND(10,30)
  565. !Параметры
  566. set healthV = vitalV * 10 + strenV * 5
  567. set $nameV = 'Rival without discharge'
  568. set formula = 3
  569. set amateur = 1
  570. end
  571. if razradKik + razrand = 1:
  572. set strenV = RAND(15,25)
  573. set speedV = RAND(15,25)
  574. set agilV = RAND(15,25)
  575. set reactV = RAND(15,25)
  576. set vitalV = RAND(15,25)
  577. set intelV = 10
  578. set willV = 10
  579. !Навыки
  580. set JabV = RAND(15,35)
  581. set PunchV = RAND(15,35)
  582. set KikV = RAND(15,35)
  583. set KikDefV = RAND(15,35)
  584. !Параметры
  585. set healthV = vitalV * 10 + strenV * 5
  586. set $nameV = 'Rival c third discharge'
  587. set formula = 3
  588. set amateur = 1
  589. end
  590. if razradKik + razrand = 2:
  591. set strenV = RAND(20,30)
  592. set speedV = RAND(20,30)
  593. set agilV = RAND(20,30)
  594. set reactV = RAND(20,30)
  595. set vitalV = RAND(20,30)
  596. set intelV = 10
  597. set willV = 10
  598. !Навыки
  599. set JabV = RAND(30,50)
  600. set PunchV = RAND(30,50)
  601. set KikV = RAND(30,50)
  602. set KikDefV = RAND(30,50)
  603. !Параметры
  604. set healthV = vitalV * 10 + strenV * 5
  605. set $nameV = 'Rival co second discharge'
  606. set formula = 3
  607. set amateur = 1
  608. end
  609. if razradKik + razrand = 3:
  610. set strenV = RAND(30,40)
  611. set speedV = RAND(30,40)
  612. set agilV = RAND(30,40)
  613. set reactV = RAND(30,40)
  614. set vitalV = RAND(30,40)
  615. set intelV = 10
  616. set willV = 10
  617. !Навыки
  618. set JabV = RAND(40,60)
  619. set PunchV = RAND(40,60)
  620. set KikV = RAND(40,60)
  621. set KikDefV = RAND(40,60)
  622. !Параметры
  623. set healthV = vitalV * 10 + strenV * 5
  624. set $nameV = 'Rival c first discharge'
  625. set formula = 3
  626. set amateur = 1
  627. end
  628. if razradKik + razrand = 4:
  629. set strenV = RAND(40,60)
  630. set speedV = RAND(40,60)
  631. set agilV = RAND(40,60)
  632. set reactV = RAND(40,60)
  633. set vitalV = RAND(40,60)
  634. set intelV = 10
  635. set willV = 10
  636. !Навыки
  637. set JabV = RAND(60,80)
  638. set PunchV = RAND(60,80)
  639. set KikV = RAND(60,80)
  640. set KikDefV = RAND(60,80)
  641. !Параметры
  642. set healthV = vitalV * 10 + strenV * 5
  643. set $nameV = 'Rival CCM'
  644. set formula = 3
  645. set amateur = 1
  646. end
  647. if razradKik + razrand >= 5:
  648. set strenV = RAND(60,100)
  649. set speedV = RAND(60,100)
  650. set agilV = RAND(60,100)
  651. set reactV = RAND(60,100)
  652. set vitalV = RAND(60,100)
  653. set intelV = 10
  654. set willV = 10
  655. !Навыки
  656. set JabV = RAND(80,110)
  657. set PunchV = RAND(80,110)
  658. set KikV = RAND(80,110)
  659. set KikDefV = RAND(80,110)
  660. !Параметры
  661. set healthV = vitalV * 10 + strenV * 5
  662. set $nameV = 'Rival MS'
  663. set formula = 3
  664. set amateur = 1
  665. end
  666. gt 'kikbox','start'
  667. end
  668. end
  669. =======
  670. gs'stat'
  671. fcolor=rgb(0,0,0)
  672. bcolor=rgb(255,255,255)
  673. LCOLOR = rgb(106,90,205)
  674. gs'razrKik'
  675. act 'Testing jabs on pear':
  676. cla
  677. *clr
  678. set minut = minut + 120
  679. set speed = speed + RAND (1,3)
  680. set manna = manna - 5
  681. set fat = fat - 4
  682. set sweat = sweat + 3
  683. set Jab = Jab + RAND (1,3)
  684. '<center><img src="pic/kik1.jpg" ></center>'
  685. 'You practiced on pear jab, long. These strikes are not as powerful as the power, but they will.'
  686. act 'Get_Away':gt'fit','razd'
  687. end
  688. act 'Testing of power punches on pear':
  689. cla
  690. *clr
  691. set minut = minut + 120
  692. set stren = stren + RAND (1,3)
  693. set manna = manna - 5
  694. set fat = fat - 4
  695. set sweat = sweat + 3
  696. set Punch = Punch + RAND (1,3)
  697. '<center><img src="pic/kik1.jpg" ></center>'
  698. 'You practiced on pear powerful force capable of hitting an opponent to shake. These attacks are powerful, but they are hard to get.'
  699. act 'Get_Away':gt'fit','razd'
  700. end
  701. act 'Driving range legs':
  702. cla
  703. *clr
  704. set minut = minut + 120
  705. set stren = stren + RAND (1,3)
  706. set manna = manna - 5
  707. set fat = fat - 4
  708. set sweat = sweat + 3
  709. set Kik = Kik + RAND (1,3)
  710. '<center><img src="pic/kik1.jpg" ></center>'
  711. 'You practiced on pear powerful kicks can knock an opponent. These attacks are powerful, but are very difficult to get.'
  712. act 'Get_Away':gt'fit','razd'
  713. end
  714. act 'Testing of protection':
  715. cla
  716. *clr
  717. set minut = minut + 120
  718. set agil = agil + RAND (1,3)
  719. set manna = manna - 5
  720. set fat = fat - 4
  721. set sweat = sweat + 3
  722. set KikDef = KikDef + RAND (1,3)
  723. '<center><img src="pic/kik1.jpg" ></center>'
  724. 'You practiced defense movements.'
  725. act 'Get_Away':gt'fit','razd'
  726. end
  727. act 'Sparing (training fight in the ring)':
  728. cla
  729. *clr
  730. set round = 0
  731. 'You need to choose his opponent for sparring'
  732. act 'rival':
  733. set minut = minut + 120
  734. set manna = manna - 5
  735. set fat = fat - 4
  736. set sweat = sweat + 3
  737. set strenV = RAND (10,20)
  738. set speedV = RAND (10,20)
  739. set agilV = RAND (10,20)
  740. set reactV = RAND (10,20)
  741. set vitalV = RAND (10,20)
  742. set intelV = 10
  743. set willV = 10
  744. !skills
  745. set JabV = RAND (5,20)
  746. set PunchV = RAND (5,20)
  747. set KikV = RAND (5,20)
  748. set KikDefV = RAND (5,20)
  749. !parameters
  750. set healthV = vitalV*10 + strenV*5
  751. set $nameV = 'Sparing partner'
  752. set formula = 3
  753. set sparing = 1
  754. gt'kikbox','start'
  755. end
  756. end
  757. if week >= 5:
  758. 'You can spend amateur fight.'
  759. act 'amateur fight':
  760. set round = 0
  761. set minut = minut + 120
  762. set manna = manna - 5
  763. set fat = fat - 4
  764. set sweat = sweat + 3
  765. set razrand = RAND (0,1)
  766. if razradKik + razrand = 0:
  767. set strenV = RAND (10,20)
  768. set speedV = RAND (10,20)
  769. set agilV = RAND (10,20)
  770. set reactV = RAND (10,20)
  771. set vitalV = RAND (10,20)
  772. set intelV = 10
  773. set willV = 10
  774. !skills
  775. set JabV = RAND (10,30)
  776. set PunchV = RAND (10,30)
  777. set KikV = RAND (10,30)
  778. set KikDefV = RAND (10,30)
  779. !parameters
  780. set healthV = vitalV*10 + strenV*5
  781. set $nameV = 'Rival without discharge'
  782. set formula = 3
  783. set amature = 1
  784. end
  785. if razradKik + razrand = 1:
  786. set strenV = RAND (15,25)
  787. set speedV = RAND (15,25)
  788. set agilV = RAND (15,25)
  789. set reactV = RAND (15,25)
  790. set vitalV = RAND (15,25)
  791. set intelV = 10
  792. set willV = 10
  793. !skills
  794. set JabV = RAND (15,35)
  795. set PunchV = RAND (15,35)
  796. set KikV = RAND (15,35)
  797. set KikDefV = RAND (15,35)
  798. !parameters
  799. set healthV = vitalV*10 + strenV*5
  800. set $nameV = 'rival c The third level'
  801. set formula = 3
  802. set amature = 1
  803. end
  804. if razradKik + razrand = 2:
  805. set strenV = RAND (20,30)
  806. set speedV = RAND (20,30)
  807. set agilV = RAND (20,30)
  808. set reactV = RAND (20,30)
  809. set vitalV = RAND (20,30)
  810. set intelV = 10
  811. set willV = 10
  812. !skills
  813. set JabV = RAND (30,50)
  814. set PunchV = RAND (30,50)
  815. set KikV = RAND (30,50)
  816. set KikDefV = RAND (30,50)
  817. !parameters
  818. set healthV = vitalV*10 + strenV*5
  819. set $nameV = 'rival cof the second category'
  820. set formula = 3
  821. set amature = 1
  822. end
  823. if razradKik + razrand = 3:
  824. set strenV = RAND (30,40)
  825. set speedV = RAND (30,40)
  826. set agilV = RAND (30,40)
  827. set reactV = RAND (30,40)
  828. set vitalV = RAND (30,40)
  829. set intelV = 10
  830. set willV = 10
  831. !skills
  832. set JabV = RAND (40,60)
  833. set PunchV = RAND (40,60)
  834. set KikV = RAND (40,60)
  835. set KikDefV = RAND (40,60)
  836. !parameters
  837. set healthV = vitalV*10 + strenV*5
  838. set $nameV = 'rival c first rank'
  839. set formula = 3
  840. set amature = 1
  841. end
  842. if razradKik + razrand = 4:
  843. set strenV = RAND (40,60)
  844. set speedV = RAND (40,60)
  845. set agilV = RAND (40,60)
  846. set reactV = RAND (40,60)
  847. set vitalV = RAND (40,60)
  848. set intelV = 10
  849. set willV = 10
  850. !skills
  851. set JabV = RAND (60,80)
  852. set PunchV = RAND (60,80)
  853. set KikV = RAND (60,80)
  854. set KikDefV = RAND (60,80)
  855. !parameters
  856. set healthV = vitalV*10 + strenV*5
  857. set $nameV = 'rival CCM'
  858. set formula = 3
  859. set amature = 1
  860. end
  861. if razradKik + razrand >= 5:
  862. set strenV = RAND (60,100)
  863. set speedV = RAND (60,100)
  864. set agilV = RAND (60,100)
  865. set reactV = RAND (60,100)
  866. set vitalV = RAND (60,100)
  867. set intelV = 10
  868. set willV = 10
  869. !skills
  870. set JabV = RAND (80,110)
  871. set PunchV = RAND (80,110)
  872. set KikV = RAND (80,110)
  873. set KikDefV = RAND (80,110)
  874. !parameters
  875. set healthV = vitalV*10 + strenV*5
  876. set $nameV = 'rival MS'
  877. set formula = 3
  878. set amature = 1
  879. end
  880. gt'kikbox','start'
  881. end
  882. end
  883. >>>>>>> 350_fit
  884. end
  885. <<<<<<< 350_fit
  886. if $ARGS[0] = '1':
  887. =======
  888. if $ARGS[0]='1':
  889. >>>>>>> 350_fit
  890. cla
  891. *clr
  892. <<<<<<< 350_fit
  893. set minut += 5
  894. =======
  895. set minut = minut + 5
  896. >>>>>>> 350_fit
  897. Set begsec = 1
  898. 'You signed up for the run section'
  899. <<<<<<< 350_fit
  900. act 'Leave': gt 'fit','razd'
  901. end
  902. =======
  903. act 'Get_Away':gt'fit','razd'
  904. end
  905. >>>>>>> 350_fit
  906. --- fit ---------------------------------