1
0

beg1.qsrc 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368
  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 an amateur''s race. The results will determine if you join the club''s junior squad and entry in the semi-professional runner circuit.'
  13. act 'Go to the track field.':gt 'beg1', 'br'
  14. elseif razradbeg = 1:
  15. 'As a member of your club''s junior squad, you''re registered for a semi-professional''s race. The results will determine if you join the veteran squad.'
  16. act 'Go to the track field.':gt 'beg1', 'kms'
  17. elseif razradbeg = 2:
  18. 'As a member of your club''s veteran squad, you''re registered for a semi-professional''s race. The results will determine your entry in the professional runner circuit.'
  19. act 'Go to the track field.':gt 'beg1', 'ross'
  20. elseif razradbeg >= 3 and razradbeg < 14:
  21. 'As one of your club''s best athletes, you can take part in a series of qualifying races in the professional circuit. Winning 9 out of 11 would qualify you for the St. Petersburg Track Championship, that is celebrated seasonally.'
  22. nl
  23. 'Qualifying Races Attended: <<razradbeg - 3>>'
  24. 'Qualifying Races Won: <<razradbegK>>'
  25. act 'Go to the stadium':gt 'beg1', 'kval'
  26. elseif razradbeg = 14 and razradbegK < 9:
  27. cla
  28. razradbegK = 0
  29. razradbeg = 3
  30. 'You were unable to qualify for the St. Petersburg Championship.'
  31. ! WD: Argument is 'dressing room'
  32. act 'Go back to the dressing room':gt 'fit', 'dressing room'
  33. elseif razradbeg = 14 and razradbegK >= 9:
  34. cla
  35. razradbegK = 0
  36. razradbeg = 3
  37. 'You qualified for the <<year>> St. Petersburg Track Championship, taking place this season in the Petrovsky Stadium.'
  38. act 'Go to the stadium':gt 'beg1', 'evro'
  39. end
  40. end
  41. if $ARGS[0] = 'br':
  42. cla
  43. run_exp += 1
  44. fat -= 2
  45. gs 'sweat', 'add', 30
  46. pcs_stam -= 30
  47. begminus = 0
  48. if bmi_calc > 25:
  49. begminus = ((bmi_calc - 25)*4)
  50. elseif bmi_calc < 18:
  51. begminus = ((25 - bmi_calc)*6)
  52. end
  53. begresult = pcs_run - begminus
  54. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  55. 'Your discipline: The Women''s 400 Meter Dash.'
  56. 'After changing into your running gear, you spend some time warming up near the track before the race starts. Beyond some casual bystanders and encouraging familiars, no spectators are attending this competition.'
  57. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  58. wait 725
  59. 'You get in position. Then, you hear the starting shot: The race begins!'
  60. wait 725
  61. 'On your marks...'
  62. wait 725
  63. 'Get set...'
  64. wait 725
  65. 'Go! - You''re away!'
  66. wait 725
  67. if begresult < 5:
  68. '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.'
  69. elseif begresult < 10:
  70. 'You performed well for an amateur but still only came in last (8th place).'
  71. elseif begresult < 15:
  72. 'You fought hard, but managed to only take the penultimate place (7th place).'
  73. elseif begresult < 20:
  74. 'You fought hard, but only managed to take 6th place.'
  75. elseif begresult < 35:
  76. 'You fought hard, but only managed to take 5th place.'
  77. elseif begresult < 40:
  78. 'You fought hard, but only managed to take 4th place.'
  79. elseif begresult < 45:
  80. gs 'fame', 'city', 'running', 1
  81. bronzebeg += 1 & money += 150 & 'You fought hard and managed to take 3rd place, earning a prize: You receive a bronze badge and a prize of 150 <b>₽</b>'
  82. elseif begresult < 50:
  83. gs 'fame', 'city', 'running', rand(1,2)
  84. silverbeg += 1 & money += 300 & 'You fought hard and managed to take 2nd place, earning a prize: You receive a silver badge and a prize of 300 <b>₽</b>'
  85. else
  86. gs 'fame', 'city', 'running', rand(1,3)
  87. razradbeg = 1 & goldbeg += 1 & money += 600 & 'You fought hard and managed to take 1st place! You receive a gold badge, a prize of 600 <b>₽</b> and are now part of your club''s junior squad, performing at the semi-professional level.'
  88. end
  89. act 'Leave':gt 'fit', 'dressing room'
  90. end
  91. if $ARGS[0] = 'kms':
  92. cla
  93. run_exp += 1
  94. fat -= 2
  95. gs 'sweat', 'add', 30
  96. pcs_stam -= 30
  97. begminus = 0
  98. if bmi_calc > 25:
  99. begminus = ((bmi_calc - 25)*4)
  100. elseif bmi_calc < 18:
  101. begminus = ((25 - bmi_calc)*6)
  102. end
  103. begresult = pcs_run - begminus
  104. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  105. 'Your discipline: The Women''s 400 Meter Dash.'
  106. 'After changing into your running gear, you spend some time warming up near the track before the race starts. Beyond the encouraging familiars, now, you appreciate some genuinely interested spectators, some with cameras, but, even with that, no more than a hundred spectators are attending this competition. The track field is far from full.'
  107. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  108. wait 725
  109. 'You get in position. Then, you hear the starting shot: The race begins!'
  110. wait 725
  111. 'On your marks...'
  112. wait 725
  113. 'Get set...'
  114. wait 725
  115. 'Go! - You''re away!'
  116. wait 725
  117. if begresult < 20:
  118. razradbeg = 0 & '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? Your performance is so atrocious that the coach decides to return you to the amateur rank.'
  119. elseif begresult < 25:
  120. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You didn''t manage to reach any classification.'
  121. elseif begresult < 30:
  122. '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).'
  123. elseif begresult < 35:
  124. 'You fought hard, but managed to only take the penultimate place (7th place).'
  125. elseif begresult < 40:
  126. 'You fought hard, but only managed to take 6th place.'
  127. elseif begresult < 45:
  128. 'You fought hard, but only managed to take 5th place.'
  129. elseif begresult < 50:
  130. gs 'fame', 'city', 'running', 1
  131. 'You fought hard, but only managed to take 4th place.'
  132. elseif begresult < 55:
  133. gs 'fame', 'city', 'running', rand(1,2)
  134. bronzebeg += 1 & money += 300 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 300 <b>₽</b>'
  135. elseif begresult < 60:
  136. gs 'fame', 'city', 'running', rand(1,3)
  137. silverbeg += 1 & money += 600 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 600 <b>₽</b>'
  138. else
  139. gs 'fame', 'city', 'running', rand(1,4)
  140. razradbeg = 3 & goldbeg += 1 & money += 1000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 1,000 <b>₽</b> and are now part of your club''s veteran squad, performing at the semi-professional level.'
  141. end
  142. act 'Leave':gt 'fit', 'dressing room'
  143. end
  144. if $ARGS[0] = 'ross':
  145. cla
  146. run_exp += 1
  147. fat -= 2
  148. gs 'sweat', 'add', 30
  149. pcs_stam -= 30
  150. begminus = 0
  151. if bmi_calc > 25:
  152. begminus = ((bmi_calc - 25)*4)
  153. elseif bmi_calc < 18:
  154. begminus = ((25 - bmi_calc)*6)
  155. end
  156. begresult = pcs_run - begminus
  157. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  158. 'Your discipline: The Women''s 400 Meter Dash.'
  159. 'After changing into your running gear, you spend some time warming up near the track before the race starts. Familiars, the club''s fans, track''s lovers and students on a school trip, fill the place. You even see some photo journalists. All of them showing genuine interest in this competition. A gross appraisal put the spectators'' numbers in several hundred attending this competition. The track field is in full occupation.'
  160. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  161. wait 725
  162. 'You get in position. Then, you hear the starting shot: The race begins!'
  163. wait 725
  164. 'On your marks...'
  165. wait 725
  166. 'Get set...'
  167. wait 725
  168. 'Go! - You''re away!'
  169. wait 725
  170. if begresult < 30:
  171. razradbeg = 1 & '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? Your performance is so atrocious that the coach decides to return you to the junior rank.'
  172. elseif begresult < 35:
  173. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You didn''t manage to reach any classification.'
  174. elseif begresult < 40:
  175. '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).'
  176. elseif begresult < 45:
  177. 'You fought hard, but managed to only take the penultimate place (7th place).'
  178. elseif begresult < 50:
  179. 'You fought hard, but only managed to take 6th place.'
  180. elseif begresult < 55:
  181. gs 'fame', 'city', 'running', 1
  182. 'You fought hard, but only managed to take 5th place.'
  183. elseif begresult < 60:
  184. gs 'fame', 'city', 'running', rand(1,2)
  185. 'You fought hard, but only managed to take 4th place.'
  186. elseif begresult < 65:
  187. gs 'fame', 'city', 'running', rand(1,3)
  188. bronzebeg += 1 & money += 600 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 600 <b>₽</b>'
  189. elseif begresult < 70:
  190. gs 'fame', 'city', 'running', rand(1,4)
  191. silverbeg += 1 & money += 1000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 1,000 <b>₽</b>'
  192. else
  193. gs 'fame', 'city', 'running', rand(1,5)
  194. razradbeg = 3 & goldbeg += 1 & money += 1500 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 1,500 <b>₽</b> and gain entry to the professional circuit.'
  195. end
  196. act 'Leave':gt 'fit', 'dressing room'
  197. end
  198. if $ARGS[0] = 'kval':
  199. cla
  200. run_exp += 1
  201. fat -= 2
  202. gs 'sweat', 'add', 30
  203. pcs_stam -= 30
  204. razradbeg += 1
  205. minut += 60
  206. begminus = 0
  207. if bmi_calc > 25:
  208. begminus = ((bmi_calc - 25)*4)
  209. elseif bmi_calc < 18:
  210. begminus = ((25 - bmi_calc)*6)
  211. end
  212. begresult = pcs_run - begminus
  213. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  214. 'Your discipline: The Women''s 400 Meter Dash.'
  215. 'At the professional level, your club takes you, to the Petrovsky Stadium. After changing into your running gear, you spend some time warming up before the race starts and observe the current attendance. Now, this is what you call a spectacle. Thousands of people, come to see the race, including photo journalists, TV crews and all class of sports enthusiasts. Even with that, the stadium is far from full, with maybe a quarter capacity, that is around 5000 spectators.'
  216. !! Took the Krestovsky Stadium for reference. !!THX note. the Krestovsky Stadium is football-only. Better use the Petrovsky Stadium(20000), have track fields.
  217. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  218. wait 725
  219. 'You get in position. Then, you hear the starting shot: The race begins!'
  220. wait 725
  221. 'On your marks...'
  222. wait 725
  223. 'Get set...'
  224. wait 725
  225. 'Go! - You''re away!'
  226. wait 725
  227. if begresult < 40:
  228. razradbeg = 2 & razradbegK = 0 & '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? Your performance is so atrocious that the coach decides to return you to the semi-professional rank.'
  229. elseif begresult < 45:
  230. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You didn''t manage to reach any classification.'
  231. elseif begresult < 50:
  232. '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).'
  233. elseif begresult < 55:
  234. 'You fought hard, but managed to only take the penultimate place (7th place).'
  235. elseif begresult < 60:
  236. gs 'fame', 'city', 'running', 1
  237. 'You fought hard, but only managed to take 6th place.'
  238. elseif begresult < 65:
  239. gs 'fame', 'city', 'running', rand(1,2)
  240. 'You fought hard, but only managed to take 5th place.'
  241. elseif begresult < 70:
  242. gs 'fame', 'city', 'running', rand(1,3)
  243. 'You fought hard, but only managed to take 4th place.'
  244. elseif begresult < 75:
  245. gs 'fame', 'city', 'running', rand(1,4)
  246. gs 'fame', 'pav', 'running', 1
  247. razradbegK += 1 & bronzebeg += 1 & money += 1000 & 'You fought hard and managed to take 3rd place, earning a prize. You get a bronze badge and a prize of 1,000 <b>₽</b>, but sadly, only the 1st place adds to your qualification for the European championship.'
  248. elseif begresult < 80:
  249. gs 'fame', 'city', 'running', rand(1,5)
  250. gs 'fame', 'pav', 'running', rand(1,2)
  251. razradbegK += 1 & 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,500 <b>₽</b>, but sadly, only the 1st place adds to your qualification for the European championship.'
  252. else
  253. gs 'fame', 'city', 'running', rand(1,6)
  254. gs 'fame', 'pav', 'running', rand(1,3)
  255. razradbegK += 1 & goldbeg += 1 & money += 2000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 2,000 <b>₽</b> and are one step closer to qualifying for the St. Petersburg Championship.'
  256. end
  257. act 'Leave':gt 'fit', 'dressing room'
  258. end
  259. if $ARGS[0] = 'evro':
  260. cla
  261. run_exp += 1
  262. fat -= 2
  263. gs 'sweat', 'add', 30
  264. pcs_stam -= 30
  265. minut += 120
  266. begminus = 0
  267. if bmi_calc > 25:
  268. begminus = ((bmi_calc - 25)*4)
  269. elseif bmi_calc < 18:
  270. begminus = ((25 - bmi_calc)*6)
  271. end
  272. begresult = pcs_run - begminus
  273. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/race/begsor.jpg"></center>'
  274. 'Your discipline: The Women''s 400 Meter Dash.'
  275. 'This is the highest competition in the St. Petersburg area. From here, the professional runners, jump to the regional, national and eventually international scene. You will eventually reach those levels, with the possibility to reach the country Olympic Team, but for the moment, it is better if you concentrate on reaching the St. Petersburg Championship.'
  276. 'After changing into your running gear, you spend some time warming up before the race starts and observe the current attendance. The Petrovsky Stadium''s personnel is in full gear to manage the wave of spectators, journalist, and others that run around. Even with the fact, that track & field don''t attract the same attention level that football, it is evident that this is a great event, with maybe around 10000 spectators.'
  277. 'When you and the other runners are called, you walk to your starting position, tense but ready.'
  278. wait 725
  279. 'You get in position. Then, you hear the starting shot: The race begins!'
  280. wait 725
  281. 'On your marks...'
  282. wait 725
  283. 'Get set...'
  284. wait 725
  285. 'Go! - You''re away!'
  286. wait 725
  287. if begresult < 50:
  288. razradbeg = 2 & razradbegK = 0 & '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? Your performance is so atrocious that the coach decide to return you to the semi-proffessional rank.'
  289. gs 'fame', 'city', 'running', rand(1,6)
  290. elseif begresult < 55:
  291. 'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You didn''t manage to reach any clasification.'
  292. gs 'fame', 'city', 'running', rand(1,7)
  293. elseif begresult < 60:
  294. gs 'fame', 'city', 'running', rand(1,8)
  295. gs 'fame', 'pav', 'running', 1
  296. '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).'
  297. elseif begresult < 65:
  298. gs 'fame', 'city', 'running', rand(1,9)
  299. gs 'fame', 'pav', 'running', rand(1,2)
  300. 'You fought hard, but managed to only take the penultimate place (7th place).'
  301. elseif begresult < 70:
  302. gs 'fame', 'city', 'running', rand(1,10)
  303. gs 'fame', 'pav', 'running', rand(1,3)
  304. 'You fought hard, but only managed to take 6th place.'
  305. elseif begresult < 75:
  306. gs 'fame', 'city', 'running', rand(2,12)
  307. gs 'fame', 'pav', 'running', rand(1,4)
  308. 'You fought hard, but only managed to take 5th place.'
  309. elseif begresult < 80:
  310. gs 'fame', 'city', 'running', rand(3,13)
  311. 'You fought hard, but only managed to take 4th place.'
  312. elseif begresult < 85:
  313. gs 'fame', 'city', 'running', rand(4,14)
  314. gs 'fame', 'pav', 'running', rand(1,5)
  315. gs 'fame', 'village', 'running', 1
  316. razradbegEB += 1
  317. money += 10000
  318. '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>'
  319. elseif begresult < 90:
  320. gs 'fame', 'city', 'running', rand(5,15)
  321. gs 'fame', 'pav', 'running', rand(1,6)
  322. gs 'fame', 'village', 'running', rand(1,2)
  323. razradbegES += 1
  324. money += 15000
  325. 'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 15,000 <b>₽</b>'
  326. else
  327. gs 'fame', 'city', 'running', rand(6,16)
  328. gs 'fame', 'pav', 'running', rand(1,7)
  329. gs 'fame', 'village', 'running', rand(1,3)
  330. razradbegEG += 1
  331. money += 20000
  332. 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 20,000 <b>₽</b> and are now the "St. Petersburg Track Champion"!'
  333. end
  334. act 'Leave':gt 'fit', 'dressing room'
  335. end
  336. --- beg1 ---------------------------------