1
0

beg1.qsrc 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635
  1. # beg1
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. menu_off = 1
  5. gs 'stat'
  6. minut += 60
  7. kolsorev += 1
  8. razdtumbler = 0
  9. begmon = month
  10. begminus = 0
  11. if razradbeg = 0:
  12. 'You''re registered for a beginner''s race.'
  13. act 'Go to the stadium':gt 'beg1', 'br'
  14. elseif razradbeg = 1:
  15. 'You''re registered for a club ranking race.'
  16. act 'Go to the stadium':gt 'beg1', '3'
  17. elseif razradbeg = 2:
  18. 'You''re registered as your club''s representative at the Saint Petersburg City Championship.'
  19. act 'Go to the stadium':gt 'beg1', '2'
  20. elseif razradbeg = 3:
  21. 'You qualified as Saint Petersburg''s representative at the Leningrad Oblast Championship, held in Saint Petersburg.'
  22. act 'Go to the stadium':gt 'beg1', '1'
  23. elseif razradbeg = 4:
  24. 'You qualified for the Northwest District Championship, held in Saint Petersburg, representing the Leningrad Oblast.'
  25. act 'Go to the stadium':gt 'beg1', 'kms'
  26. elseif razradbeg = 5:
  27. 'You are one of the best track athletes in Russia and thus qualified for the Russian National Championship.'
  28. act 'Go to the stadium':gt 'beg1', 'ross'
  29. elseif razradbeg >= 6 and razradbeg < 16:
  30. 'As one of the best Russian athletes, you can take part in a series of international qualifying races. Winning seven out of nine would qualify you for the European and World Championships, but even if you could no longer qualify, the prize money is nothing to sneeze at.'
  31. nl
  32. 'Qualifying Races Attended: <<razradbeg - 6>>'
  33. 'Qualifying Races Won: <<razradbegK>>'
  34. act 'Go to the stadium':gt 'beg1', 'kval'
  35. elseif razradbeg = 16:
  36. if razradbegK < 7:
  37. cla
  38. razradbegK = 0
  39. razradbeg = 6
  40. 'You were unable to qualify for the European Championship.'
  41. ! WD: Argument is 'dressing room'
  42. act 'Go back to the dressing room':gt 'fit', 'dressing room'
  43. elseif razradbegK >= 7:
  44. cla
  45. razradbegK = 0
  46. razradbegInt = 1
  47. 'You qualified for the <<year>> European Championship in Athletics, held in Saint Petersburg.'
  48. act 'Go to the stadium':gt 'beg1', 'evro'
  49. end
  50. elseif razradbegInt = 1:
  51. cla
  52. razradbegInt = 0
  53. razradbeg = 6
  54. 'You qualified for the <<year>> World Championship in Athletics, held in Saint Petersburg.'
  55. act 'Go to the stadium':gt 'beg1', 'Int'
  56. end
  57. end
  58. if $ARGS[0] = 'br':
  59. cla
  60. run_exp += 1
  61. fat -= 2
  62. gs 'sweat', 'add', 30
  63. pcs_stam -= 30
  64. begminus = 0
  65. if bmi_calc > 25:
  66. begminus = ((bmi_calc - 25)*4)
  67. elseif bmi_calc < 18:
  68. begminus = ((25 - bmi_calc)*6)
  69. end
  70. begresult = pcs_run - begminus
  71. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  72. 'Your discipline: The Women''s 400 Meter Dash.'
  73. 'After changing into your running gear, you spend some time warming up in the empty stadium before the race starts.'
  74. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  75. wait 725
  76. 'You get in position. Then, you hear the starting shot: The race begins!'
  77. wait 725
  78. 'On your marks...'
  79. wait 725
  80. 'Get set...'
  81. wait 725
  82. 'Go! - You''re away!'
  83. wait 725
  84. if begresult < 10:
  85. 'Sadly, you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made a bit of a fool of yourself.'
  86. elseif begresult < 15:
  87. gs 'fame', 'city', 'running', 1
  88. 'You performed well for an amateur but still only came in last (8th place).'
  89. elseif begresult < 20:
  90. gs 'fame', 'city', 'running', 2
  91. 'You fought hard, but managed to only take the penultimate place (7th place).'
  92. elseif begresult < 25:
  93. gs 'fame', 'city', 'running', 2
  94. 'You fought hard, but only managed to take 6th place.'
  95. elseif begresult < 30:
  96. gs 'fame', 'city', 'running', 2
  97. 'You fought hard, but only managed to take 5th place.'
  98. elseif begresult < 35:
  99. gs 'fame', 'city', 'running', 2
  100. 'You fought hard, but only managed to take 4th place.'
  101. elseif begresult < 40:
  102. gs 'fame', 'city', 'running', 3
  103. bronzebeg += 1 & money += 100 & 'You fought hard and managed to take 3rd place, earning a prize: You receive a bronze bade and a prize of 100 <b>₽</b>'
  104. elseif begresult < 45:
  105. gs 'fame', 'city', 'running', 3
  106. silverbeg += 1 & money += 500 & 'You fought hard and managed to take 2nd place, earning a prize: You receive a silver badge and a prize of 500 <b>₽</b>'
  107. else
  108. gs 'fame', 'city', 'running', 4
  109. razradbeg = 1 & goldbeg += 1 & money += 1000 & 'You fought hard and managed to take 1st place! You receive a gold badge, a prize of 1,000 <b>₽</b> and are now part of your club''s junior squad.'
  110. end
  111. act 'Leave':gt 'fit', 'dressing room'
  112. end
  113. if $ARGS[0] = '3':
  114. cla
  115. run_exp += 1
  116. fat -= 2
  117. gs 'sweat', 'add', 30
  118. pcs_stam -= 30
  119. begminus = 0
  120. if bmi_calc > 25:
  121. begminus = ((bmi_calc - 25)*4)
  122. elseif bmi_calc < 18:
  123. begminus = ((25 - bmi_calc)*6)
  124. end
  125. begresult = pcs_run - begminus
  126. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  127. 'Your discipline: The Women''s 400 Meter Dash.'
  128. 'After changing into your running gear, you spend some time warming up in the empty stadium before the race starts.'
  129. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  130. wait 725
  131. 'You get in position. Then, you hear the starting shot: The race begins!'
  132. wait 725
  133. 'On your marks...'
  134. wait 725
  135. 'Get set...'
  136. wait 725
  137. 'Go! - You''re away!'
  138. wait 725
  139. if begresult < 15:
  140. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made a bit of a fool of yourself.'
  141. elseif begresult < 20:
  142. gs 'fame', 'city', 'running', 2
  143. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  144. elseif begresult < 25:
  145. gs 'fame', 'city', 'running', 2
  146. 'You fought hard, but managed to only take the penultimate place (7th place).'
  147. elseif begresult < 30:
  148. gs 'fame', 'city', 'running', 2
  149. 'You fought hard, but only managed to take 6th place.'
  150. elseif begresult < 35:
  151. gs 'fame', 'city', 'running', 2
  152. 'You fought hard, but only managed to take 5th place.'
  153. elseif begresult < 40:
  154. gs 'fame', 'city', 'running', 2
  155. 'You fought hard, but only managed to take 4th place.'
  156. elseif begresult < 45:
  157. gs 'fame', 'city', 'running', 3
  158. bronzebeg += 1 & money += 300 & 'You fought hard and managed to take 3rd place, earning a prize: You receive a bronze badge and a prize of 300 <b>₽</b>'
  159. elseif begresult < 50:
  160. gs 'fame', 'city', 'running', 3
  161. silverbeg += 1 & money += 750 & 'You fought hard and managed to take 2nd place, earning a prize: You receive a silver badge and a prize of 750 <b>₽</b>'
  162. else
  163. gs 'fame', 'city', 'running', 4
  164. razradbeg = 2 & goldbeg += 1 & money += 1500 & 'You fought hard and managed to take 1st place! You receive a gold badge, a prize of 1,500 <b>₽</b> and are now part of your club''s senior squad, representing it at the next city championship!'
  165. end
  166. act 'Leave':gt 'fit', 'dressing room'
  167. end
  168. if $ARGS[0] = '2':
  169. cla
  170. run_exp += 1
  171. fat -= 2
  172. gs 'sweat', 'add', 30
  173. pcs_stam -= 30
  174. begminus = 0
  175. if bmi_calc > 25:
  176. begminus = ((bmi_calc - 25)*4)
  177. elseif bmi_calc < 18:
  178. begminus = ((25 - bmi_calc)*6)
  179. end
  180. begresult = pcs_run - begminus
  181. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  182. 'Your discipline: The Women''s 400 Meter Dash.'
  183. 'After changing into your running gear, you spend some time warming up in the stadium before the race starts, only a hundred people or so on the ranks watching you but with how big the stadium is, you can barely even see them.'
  184. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  185. wait 725
  186. 'You get in position. Then, you hear the starting shot: The race begins!'
  187. wait 725
  188. 'On your marks...'
  189. wait 725
  190. 'Get set...'
  191. wait 725
  192. 'Go! - You''re away!'
  193. wait 725
  194. if begresult < 20:
  195. gs 'fame', 'city', 'running', 1
  196. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made a bit of a fool of yourself.'
  197. elseif begresult < 25:
  198. gs 'fame', 'city', 'running', 2
  199. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  200. elseif begresult < 30:
  201. gs 'fame', 'city', 'running', 3
  202. 'You fought hard, but managed to only take the penultimate place (7th place).'
  203. elseif begresult < 35:
  204. gs 'fame', 'city', 'running', 3
  205. 'You fought hard, but only managed to take 6th place.'
  206. elseif begresult < 40:
  207. gs 'fame', 'city', 'running', 3
  208. 'You fought hard, but only managed to take 5th place.'
  209. elseif begresult < 45:
  210. gs 'fame', 'city', 'running', 3
  211. 'You fought hard, but only managed to take 4th place.'
  212. elseif begresult < 50:
  213. gs 'fame', 'city', 'running', 4
  214. bronzebeg += 1 & money += 750 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 750 <b>₽</b>'
  215. elseif begresult < 55:
  216. gs 'fame', 'city', 'running', 4
  217. silverbeg += 1 & money += 1500 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 1,5000 <b>₽</b>'
  218. else
  219. gs 'fame', 'city', 'running', 5
  220. razradbeg = 3 & goldbeg += 1 & money += 2500 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 2,500 <b>₽</b> and became the "Track Champion of the City of Saint Petersburg", which qualifies you for the next oblast championship!'
  221. end
  222. act 'Leave':gt 'fit', 'dressing room'
  223. end
  224. if $ARGS[0] = '1':
  225. cla
  226. run_exp += 1
  227. fat -= 2
  228. gs 'sweat', 'add', 30
  229. pcs_stam -= 30
  230. begminus = 0
  231. if bmi_calc > 25:
  232. begminus = ((bmi_calc - 25)*4)
  233. elseif bmi_calc < 18:
  234. begminus = ((25 - bmi_calc)*6)
  235. end
  236. begresult = pcs_run - begminus
  237. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  238. 'Your discipline: The Women''s 400 Meter Dash.'
  239. 'After changing into your running gear, you spend some time warming up in the stadium before the race starts.'
  240. 'Only 1,000 people came to watch the city championship, spread out over the large stadium.'
  241. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  242. wait 725
  243. 'You get in position. Then, you hear the starting shot: The race begins!'
  244. wait 725
  245. 'On your marks...'
  246. wait 725
  247. 'Get set...'
  248. wait 725
  249. 'Go! - You''re away!'
  250. wait 725
  251. if begresult < 25:
  252. gs 'fame', 'city', 'running', 1
  253. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
  254. elseif begresult < 30:
  255. gs 'fame', 'city', 'running', 2
  256. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  257. elseif begresult < 35:
  258. gs 'fame', 'city', 'running', 3
  259. 'You fought hard, but managed to only take the penultimate place (7th place).'
  260. elseif begresult < 40:
  261. gs 'fame', 'city', 'running', 3
  262. 'You fought hard, but only managed to take 6th place.'
  263. elseif begresult < 45:
  264. gs 'fame', 'city', 'running', 3
  265. 'You fought hard, but only managed to take 5th place.'
  266. elseif begresult < 50:
  267. gs 'fame', 'city', 'running', 4
  268. 'You fought hard, but only managed to take 4th place.'
  269. elseif begresult < 55:
  270. gs 'fame', 'city', 'running', 5
  271. bronzebeg += 1 & money += 1500 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 1,5000 <b>₽</b>'
  272. elseif begresult < 60:
  273. gs 'fame', 'city', 'running', 5
  274. silverbeg += 1 & money += 2000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 2,000 <b>₽</b>'
  275. else
  276. gs 'fame', 'city', 'running', 6
  277. razradbeg = 4 & goldbeg += 1 & money += 3000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 3,000 <b>₽</b> and became the "Track Champion of the Leningrad Oblast", not only putting you on the list of the 50 best track athletes in the Russian Federation but also qualifying you for the next district championship!'
  278. end
  279. act 'Leave':gt 'fit', 'dressing room'
  280. end
  281. if $ARGS[0] = 'kms':
  282. cla
  283. run_exp += 1
  284. fat -= 2
  285. gs 'sweat', 'add', 30
  286. pcs_stam -= 30
  287. begminus = 0
  288. if bmi_calc > 25:
  289. begminus = ((bmi_calc - 25)*4)
  290. elseif bmi_calc < 18:
  291. begminus = ((25 - bmi_calc)*6)
  292. end
  293. begresult = pcs_run - begminus
  294. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  295. 'Your discipline: The Women''s 400 Meter Dash.'
  296. 'After changing into your running gear, you spend some time warming up in the stadium before the race starts.'
  297. 'Maybe 5,000 people came to watch the district championship, the stadium far from full.'
  298. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  299. wait 725
  300. 'You get in position. Then, you hear the starting shot: The race begins!'
  301. wait 725
  302. 'On your marks...'
  303. wait 725
  304. 'Get set...'
  305. wait 725
  306. 'Go! - You''re away!'
  307. wait 725
  308. if begresult < 30:
  309. gs 'fame', 'city', 'running', 2
  310. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
  311. elseif begresult < 35:
  312. gs 'fame', 'city', 'running', 3
  313. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  314. elseif begresult < 40:
  315. gs 'fame', 'city', 'running', 4
  316. 'You fought hard, but managed to only take the penultimate place (7th place).'
  317. elseif begresult < 45:
  318. gs 'fame', 'city', 'running', 4
  319. 'You fought hard, but only managed to take 6th place.'
  320. elseif begresult < 50:
  321. gs 'fame', 'city', 'running', 4
  322. 'You fought hard, but only managed to take 5th place.'
  323. elseif begresult < 55:
  324. gs 'fame', 'city', 'running', 5
  325. 'You fought hard, but only managed to take 4th place.'
  326. elseif begresult < 60:
  327. gs 'fame', 'city', 'running', 6
  328. bronzebeg += 1 & money += 2000 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 2,000 <b>₽</b>'
  329. elseif begresult < 65:
  330. gs 'fame', 'city', 'running', 8
  331. silverbeg += 1 & money += 3000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 3,000 <b>₽</b>'
  332. else
  333. gs 'fame', 'city', 'running', 10
  334. razradbeg = 5 & goldbeg += 1 & money += 4000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 4,000 <b>₽</b> and became the "Track Champion of the Northwest District". You are now one of the 8 best track athletes in the Russian Federation and qualified for the next national championship!'
  335. end
  336. act 'Leave':gt 'fit', 'dressing room'
  337. end
  338. if $ARGS[0] = 'ross':
  339. cla
  340. run_exp += 1
  341. fat -= 2
  342. gs 'sweat', 'add', 30
  343. pcs_stam -= 30
  344. begminus = 0
  345. if bmi_calc > 25:
  346. begminus = ((bmi_calc - 25)*4)
  347. elseif bmi_calc < 18:
  348. begminus = ((25 - bmi_calc)*6)
  349. end
  350. begresult = pcs_run - begminus
  351. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  352. 'Your discipline: The Women''s 400 Meter Dash.'
  353. 'After changing into your running gear, you spend some time warming up in the stadium before the race starts.'
  354. 'At least 30,000 people came to national championship, putting the stadium at a little less than half capacity.'
  355. !! Took the Krestovsky Stadium for reference.
  356. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  357. wait 725
  358. 'You get in position. Then, you hear the starting shot: The race begins!'
  359. wait 725
  360. 'On your marks...'
  361. wait 725
  362. 'Get set...'
  363. wait 725
  364. 'Go! - You''re away!'
  365. wait 725
  366. if begresult < 35:
  367. gs 'fame', 'city', 'running', 4
  368. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
  369. elseif begresult < 40:
  370. gs 'fame', 'city', 'running', 6
  371. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  372. elseif begresult < 45:
  373. gs 'fame', 'city', 'running', 8
  374. 'You fought hard, but managed to only take the penultimate place (7th place).'
  375. elseif begresult < 50:
  376. gs 'fame', 'city', 'running', 8
  377. 'You fought hard, but only managed to take 6th place.'
  378. elseif begresult < 55:
  379. gs 'fame', 'city', 'running', 8
  380. 'You fought hard, but only managed to take 5th place.'
  381. elseif begresult < 60:
  382. gs 'fame', 'city', 'running', 10
  383. 'You fought hard, but only managed to take 4th place.'
  384. elseif begresult < 65:
  385. gs 'fame', 'city', 'running', 15
  386. bronzebeg += 1 & money += 3000 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 3,000 <b>₽</b>'
  387. elseif begresult < 70:
  388. gs 'fame', 'city', 'running', 15
  389. silverbeg += 1 & money += 4000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 4,000 <b>₽</b>'
  390. else
  391. gs 'fame', 'city', 'running', 20
  392. razradbeg = 6 & goldbeg += 1 & money += 5000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 5,000 <b>₽</b> and became the "Track Champion of the Russian Federation". You are the single best track athlete in Russia - maybe you should try to qualify for the European championship?'
  393. end
  394. act 'Leave':gt 'fit', 'dressing room'
  395. end
  396. if $ARGS[0] = 'kval':
  397. cla
  398. run_exp += 1
  399. fat -= 2
  400. gs 'sweat', 'add', 30
  401. pcs_stam -= 30
  402. razradbeg += 1
  403. begminus = 0
  404. if bmi_calc > 25:
  405. begminus = ((bmi_calc - 25)*4)
  406. elseif bmi_calc < 18:
  407. begminus = ((25 - bmi_calc)*6)
  408. end
  409. begresult = pcs_run - begminus
  410. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  411. 'Your discipline: The Women''s 400 Meter Dash.'
  412. 'After changing into your running gear, you spend some time warming up in the empty stadium before the race starts.'
  413. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  414. wait 725
  415. 'You get in position. Then, you hear the starting shot: The race begins!'
  416. wait 725
  417. 'On your marks...'
  418. wait 725
  419. 'Get set...'
  420. wait 725
  421. 'Go! - You''re away!'
  422. wait 725
  423. if begresult < 40:
  424. gs 'fame', 'city', 'running', 4
  425. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself.'
  426. elseif begresult < 45:
  427. gs 'fame', 'city', 'running', 6
  428. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  429. elseif begresult < 50:
  430. gs 'fame', 'city', 'running', 8
  431. 'You fought hard, but managed to only take the penultimate place (7th place).'
  432. elseif begresult < 55:
  433. gs 'fame', 'city', 'running', 8
  434. 'You fought hard, but only managed to take 6th place.'
  435. elseif begresult < 60:
  436. gs 'fame', 'city', 'running', 8
  437. 'You fought hard, but only managed to take 5th place.'
  438. elseif begresult < 65:
  439. gs 'fame', 'city', 'running', 10
  440. 'You fought hard, but only managed to take 4th place.'
  441. elseif begresult < 70:
  442. gs 'fame', 'city', 'running', 15
  443. razradbegK += 1 & bronzebeg += 1 & money += 4000 & 'You fought hard and managed to take 3rd place, earning a prize. You get a bronze badge and a prize of 4,000 <b>₽</b>, but sadly, only the 1st place adds to your qualification for the European championship.'
  444. elseif begresult < 75:
  445. gs 'fame', 'city', 'running', 15
  446. razradbegK += 1 & silverbeg += 1 & money += 6000 & 'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 7,000 <b>₽</b>, but sadly, only the 1st place adds to your qualification for the European championship.'
  447. else
  448. gs 'fame', 'city', 'running', 25
  449. razradbegK += 1 & goldbeg += 1 & money += 8500 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 8,500 <b>₽</b> and are one step closer to qualifying for the European championship.'
  450. end
  451. act 'Leave':gt 'fit', 'dressing room'
  452. end
  453. if $ARGS[0] = 'evro':
  454. cla
  455. run_exp += 1
  456. fat -= 2
  457. gs 'sweat', 'add', 30
  458. pcs_stam -= 30
  459. razradbeg += 1
  460. begminus = 0
  461. if bmi_calc > 25:
  462. begminus = ((bmi_calc - 25)*4)
  463. elseif bmi_calc < 18:
  464. begminus = ((25 - bmi_calc)*6)
  465. end
  466. begresult = pcs_run - begminus
  467. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  468. 'Your discipline: The Women''s 400 Meter Dash.'
  469. 'After changing into your running gear, you spend some time warming up in the stadium before the race starts.'
  470. 'The stadium is well-attended - about 50,000 people, you''d wager - here to watch athletics competitions between the best European athletes, you one of them.'
  471. !! Took the Krestovsky Stadium for reference.
  472. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  473. wait 725
  474. 'You get in position. Then, you hear the starting shot: The race begins!'
  475. wait 725
  476. 'On your marks...'
  477. wait 725
  478. 'Get set...'
  479. wait 725
  480. 'Go! - You''re away!'
  481. wait 725
  482. if begresult < 45:
  483. gs 'fame', 'city', 'running', 6
  484. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
  485. elseif begresult < 50:
  486. gs 'fame', 'city', 'running', 8
  487. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  488. elseif begresult < 55:
  489. gs 'fame', 'city', 'running', 10
  490. 'You fought hard, but managed to only take the penultimate place (7th place).'
  491. elseif begresult < 60:
  492. gs 'fame', 'city', 'running', 10
  493. 'You fought hard, but only managed to take 6th place.'
  494. elseif begresult < 65:
  495. gs 'fame', 'city', 'running', 10
  496. 'You fought hard, but only managed to take 5th place.'
  497. elseif begresult < 70:
  498. gs 'fame', 'city', 'running', 15
  499. 'You fought hard, but only managed to take 4th place.'
  500. elseif begresult < 75:
  501. gs 'fame', 'city', 'running', 20
  502. razradbegEB += 1
  503. money += 5000
  504. 'You fought hard and managed to take 3rd place, earning a prize. You get a bronze medal and a prize of 5,000 <b>₽</b>'
  505. elseif begresult < 80:
  506. gs 'fame', 'city', 'running', 20
  507. razradbegES += 1
  508. money += 10000
  509. 'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 10,000 <b>₽</b>'
  510. else
  511. gs 'fame', 'city', 'running', 30
  512. razradbegEG += 1
  513. money += 15000
  514. 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 15,000 <b>₽</b> and are now the "European Track Champion"!'
  515. end
  516. act 'Leave':gt 'fit', 'dressing room'
  517. end
  518. if $ARGS[0] = 'Int':
  519. cla
  520. run_exp += 1
  521. fat -= 2
  522. gs 'sweat', 'add', 30
  523. pcs_stam -= 30
  524. razradbeg += 1
  525. begminus = 0
  526. if bmi_calc > 25:
  527. begminus = ((bmi_calc - 25)*4)
  528. elseif bmi_calc < 18:
  529. begminus = ((25 - bmi_calc)*6)
  530. end
  531. begresult = pcs_run - begminus
  532. 'Your discipline: The Women''s 400 Meter Dash.'
  533. 'After changing into your running gear, you spend some time warming up in the stadium before the race starts.'
  534. 'The stadium is full, almost bursting with people. There must be 70,000 people here to watch athletics competitions with competitors from all over the world. Only the best of the best even made it here and you are proud to be one of them.'
  535. !! Took the Krestovsky Stadium for reference.
  536. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  537. wait 725
  538. 'You get in position. Then, you hear the starting shot: The race begins!'
  539. wait 725
  540. 'On your marks...'
  541. wait 725
  542. 'Get set...'
  543. wait 725
  544. 'Go! - You''re away!'
  545. wait 725
  546. if begresult < 50:
  547. gs 'fame', 'city', 'running', 10
  548. 'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
  549. elseif begresult < 55:
  550. gs 'fame', 'city', 'running', 15
  551. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
  552. elseif begresult < 60:
  553. gs 'fame', 'city', 'running', 20
  554. 'You fought hard, but managed to only take the penultimate place (7th place).'
  555. elseif begresult < 65:
  556. gs 'fame', 'city', 'running', 20
  557. 'You fought hard, but only managed to take 6th place.'
  558. elseif begresult < 70:
  559. gs 'fame', 'city', 'running', 20
  560. 'You fought hard, but only managed to take 5th place.'
  561. elseif begresult < 80:
  562. gs 'fame', 'city', 'running', 25
  563. 'You fought hard, but only managed to take 4th place.'
  564. elseif begresult < 90:
  565. gs 'fame', 'city', 'running', 30
  566. razradbegIB += 1
  567. money += 10000
  568. 'You fought hard and managed to take 3rd place, earning a prize. You get a bronze medal and a prize of 10,000 <b>₽</b>'
  569. elseif begresult < 95:
  570. gs 'fame', 'city', 'running', 35
  571. razradbegIS += 1
  572. money += 20000
  573. 'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 20,000 <b>₽</b>'
  574. else
  575. gs 'fame', 'city', 'running', 50
  576. razradbegIG += 1
  577. money += 50000
  578. 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 50,000 <b>₽</b> and the title "World Track Champion" - YOU are the fastest woman alive!'
  579. end
  580. act 'Leave':gt 'fit', 'dressing room'
  581. end
  582. --- beg1 ---------------------------------