1
0

beg1 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263
  1. # beg1
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. clr
  6. gs 'stat'
  7. minut += 60
  8. kolsorev += 1
  9. razdtumbler = 0
  10. begmon = month
  11. if razradbeg = 0:
  12. 'You write in a group beginners.'
  13. act 'Go to the track':gt 'beg1', 'br'
  14. elseif razradbeg = 1:
  15. 'You write in a group treterazryadnikov.'
  16. act 'Go to the track':gt 'beg1', '3'
  17. elseif razradbeg = 2:
  18. 'You recorded in the second group of bits. City Championship.'
  19. act 'Go to the track':gt 'beg1', '2'
  20. elseif razradbeg = 3:
  21. 'You recorded in the first group of bits. Championship field.'
  22. act 'Go to the track':gt 'beg1', '1'
  23. elseif razradbeg = 4:
  24. 'You write in the CCM group. Championship region.'
  25. act 'Go to the track':gt 'beg1', 'kms'
  26. elseif razradbeg = 5:
  27. 'You write in the group Masters of Sports. Russian Championship.'
  28. act 'Go to the track':gt 'beg1', 'ross'
  29. elseif razradbeg >= 6 and razradbeg < 16:
  30. 'You write in the group International Master of Sports. Qualifying competition for access to the European Championship.'
  31. act 'Go to the track':gt 'beg1', 'kval'
  32. elseif razradbeg = 16:
  33. if razradbegK < 8:
  34. cla
  35. razradbegK = 0
  36. razradbeg = 6
  37. 'You have not been qualified for the European Championship.'
  38. ! WD: Argument is 'dressing room'
  39. act 'Leave':gt 'fit', 'dressing room'
  40. elseif razradbegK >= 8:
  41. cla
  42. razradbegK = 0
  43. razradbeg = 6
  44. 'You write for the European Championship.'
  45. act 'Go to the track':gt 'beg1', 'evro'
  46. end
  47. end
  48. end
  49. if $ARGS[0] = 'br':
  50. cla
  51. beg += 1
  52. fat -= 10
  53. begplus = beg + speed + vital + rand(1, 20)
  54. begminus = salo/2 + rand(1, 20)
  55. begresult = begplus - begminus
  56. '<center><img src="images/etogame/begsor.jpg"></center>'
  57. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  58. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  59. if begresult > 0 and begresult < 10:'You are not bad ran for dilettante course, as ranked last 8th place.'
  60. if begresult >= 10 and begresult < 20:'You fought hard, but managed to take only 7 penultimate place.'
  61. if begresult >= 20 and begresult < 30:'You fought hard, but only managed to take 6th place.'
  62. if begresult >= 30 and begresult < 40:'You fought hard, but only managed to take 5th place.'
  63. if begresult >= 40 and begresult < 50:'You fought hard, but only managed to take 4th place.'
  64. if begresult >= 50 and begresult < 60:bronzebeg += 1 & money += 100 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 100 <b>₽</b>'
  65. if begresult >= 60 and begresult < 70:silverbeg += 1 & money += 500 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 500 <b>₽</b>'
  66. if begresult >= 70:razradbeg = 1 & 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 third sports category on the run.'
  67. act 'Leave':gt 'fit', 'dressing room'
  68. end
  69. if $ARGS[0] = '3':
  70. cla
  71. beg += 1
  72. fat -= 10
  73. begplus = beg + speed + vital + rand(1, 20)
  74. begminus = salo/2 + rand(1, 20)
  75. begresult = begplus - begminus
  76. '<center><img src="images/etogame/begsor.jpg"></center>'
  77. 'You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  78. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  79. if begresult > 0 and begresult < 70:'You are not bad ran for dilettante course, as ranked last 8th place.'
  80. if begresult >= 70 and begresult < 80:'You fought hard, but managed to take only 7 penultimate place.'
  81. if begresult >= 80 and begresult < 90:'You fought hard, but only managed to take 6th place.'
  82. if begresult >= 90 and begresult < 100:'You fought hard, but only managed to take 5th place.'
  83. if begresult >= 100 and begresult < 110:'You fought hard, but only managed to take 4th place.'
  84. if begresult >= 110 and begresult < 120:bronzebeg += 1 & money += 500 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 500 <b>₽</b>'
  85. if begresult >= 120 and begresult < 130:silverbeg += 1 & money += 1000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 1, 000 <b>₽</b>'
  86. if begresult >= 130:razradbeg = 2 & 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 2nd sports category on the run.'
  87. act 'Leave':gt 'fit', 'dressing room'
  88. end
  89. if $ARGS[0] = '2':
  90. cla
  91. beg += 1
  92. fat -= 10
  93. begplus = beg + speed + vital + rand(1, 20)
  94. begminus = salo/2 + rand(1, 20)
  95. begresult = begplus - begminus
  96. '<center><img src="images/etogame/begsor.jpg"></center>'
  97. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  98. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  99. if begresult > 0 and begresult < 130:'You are not bad ran for dilettante course, as ranked last 8th place.'
  100. if begresult >= 130 and begresult < 140:'You fought hard, but managed to take only 7 penultimate place.'
  101. if begresult >= 140 and begresult < 150:'You fought hard, but only managed to take 6th place.'
  102. if begresult >= 150 and begresult < 160:'You fought hard, but only managed to take 5th place.'
  103. if begresult >= 160 and begresult < 170:'You fought hard, but only managed to take 4th place.'
  104. if begresult >= 170 and begresult < 185:bronzebeg += 1 & money += 1000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 1, 000 <b>₽</b>'
  105. if begresult >= 185 and begresult < 200:silverbeg += 1 & money += 2000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 2, 000 <b>₽</b>'
  106. if begresult >= 200:razradbeg = 3 & goldbeg += 1 & money += 3000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 3000 <b>₽</b> and 1st sports category on the run. You become the champion of the city on the run.'
  107. act 'Leave':gt 'fit', 'dressing room'
  108. end
  109. if $ARGS[0] = '1':
  110. cla
  111. beg += 1
  112. fat -= 10
  113. begplus = beg + speed + vital + rand(1, 20)
  114. begminus = salo/2 + rand(1, 20)
  115. begresult = begplus - begminus
  116. '<center><img src="images/etogame/begsor.jpg"></center>'
  117. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  118. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  119. if begresult > 0 and begresult < 200:'You are not bad ran for dilettante course, as ranked last 8th place.'
  120. if begresult >= 200 and begresult < 210:'You fought hard, but managed to take only 7 penultimate place.'
  121. if begresult >= 210 and begresult < 220:'You fought hard, but only managed to take 6th place.'
  122. if begresult >= 230 and begresult < 240:'You fought hard, but only managed to take 5th place.'
  123. if begresult >= 240 and begresult < 250:'You fought hard, but only managed to take 4th place.'
  124. if begresult >= 250 and begresult < 260:bronzebeg += 1 & money += 2000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 2, 000 <b>₽</b>'
  125. if begresult >= 260 and begresult < 270:silverbeg += 1 & money += 3000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 3, 000 <b>₽</b>'
  126. if begresult >= 270:razradbeg = 4 & goldbeg += 1 & money += 4000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 4000 <b>₽</b> and the title of the CCM on the run. You become a champion of the region.'
  127. act 'Leave':gt 'fit', 'dressing room'
  128. end
  129. if $ARGS[0] = 'kms':
  130. cla
  131. beg += 1
  132. fat -= 10
  133. begplus = beg + speed + vital + rand(1, 20)
  134. begminus = salo/2 + rand(1, 20)
  135. begresult = begplus - begminus
  136. '<center><img src="images/etogame/begsor.jpg"></center>'
  137. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  138. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  139. if begresult > 0 and begresult < 270:'You are not bad ran for dilettante course, as ranked last 8th place.'
  140. if begresult >= 270 and begresult < 280:'You fought hard, but managed to take only 7 penultimate place.'
  141. if begresult >= 280 and begresult < 290:'You fought hard, but only managed to take 6th place.'
  142. if begresult >= 290 and begresult < 300:'You fought hard, but only managed to take 5th place.'
  143. if begresult >= 300 and begresult < 310:'You fought hard, but only managed to take 4th place.'
  144. if begresult >= 310 and begresult < 320:bronzebeg += 1 & money += 3000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 3, 000 <b>₽</b>'
  145. if begresult >= 320 and begresult < 330:silverbeg += 1 & money += 4000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 4, 000 <b>₽</b>'
  146. if begresult >= 330:razradbeg = 5 & goldbeg += 1 & money += 5000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 5000 <b>₽</b> and the title of Master of Sports in the run. You become a champion of the region.'
  147. act 'Leave':gt 'fit', 'dressing room'
  148. end
  149. if $ARGS[0] = 'ross':
  150. cla
  151. beg += 1
  152. fat -= 10
  153. begplus = beg + speed + vital + rand(1, 20)
  154. begminus = salo + rand(1, 20)
  155. begresult = begplus - begminus
  156. '<center><img src="images/etogame/begsor.jpg"></center>'
  157. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  158. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  159. if begresult > 0 and begresult < 330:'You are not bad ran for dilettante course, as ranked last 8th place.'
  160. if begresult >= 330 and begresult < 340:'You fought hard, but managed to take only 7 penultimate place.'
  161. if begresult >= 340 and begresult < 350:'You fought hard, but only managed to take 6th place.'
  162. if begresult >= 350 and begresult < 360:'You fought hard, but only managed to take 5th place.'
  163. if begresult >= 360 and begresult < 370:'You fought hard, but only managed to take 4th place.'
  164. if begresult >= 370 and begresult < 380:bronzebeg += 1 & money += 4000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 4, 000 <b>₽</b>'
  165. if begresult >= 380 and begresult < 390:silverbeg += 1 & money += 5000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 5, 000 <b>₽</b>'
  166. if begresult >= 390:razradbeg = 6 & goldbeg += 1 & money += 6000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 6000 <b>₽</b> and the title of International Master of Sports on the run. You become the champion of Russia.'
  167. act 'Leave':gt 'fit', 'dressing room'
  168. end
  169. if $ARGS[0] = 'kval':
  170. cla
  171. beg += 1
  172. fat -= 10
  173. razradbeg += 1
  174. begplus = beg + speed + vital + rand(1, 20)
  175. begminus = (salo * 2) + rand(1, 20)
  176. begresult = begplus - begminus
  177. '<center><img src="images/etogame/begsor.jpg"></center>'
  178. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  179. if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  180. if begresult > 0 and begresult < 450:'You are not bad ran for dilettante course, as ranked last 8th place.'
  181. if begresult >= 450 and begresult < 500:'You fought hard, but managed to take only 7 penultimate place.'
  182. if begresult >= 500 and begresult < 550:'You fought hard, but only managed to take 6th place.'
  183. if begresult >= 550 and begresult < 600:'You fought hard, but only managed to take 5th place.'
  184. if begresult >= 600 and begresult < 650:'You fought hard, but only managed to take 4th place.'
  185. if begresult >= 650 and begresult < 700:razradbegK += 1 & bronzebeg += 1 & money += 5000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 5, 000 <b>₽</b>'
  186. if begresult >= 700 and begresult < 800:razradbegK += 1 & silverbeg += 1 & money += 10000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 10, 000 <b>₽</b>'
  187. if begresult >= 800:razradbegK += 1 & goldbeg += 1 & money += 15000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 15 thousand <b>₽</b>.'
  188. act 'Leave':gt 'fit', 'dressing room'
  189. end
  190. if $ARGS[0] = 'evro':
  191. cla
  192. beg += 1
  193. fat -= 10
  194. razradbeg += 1
  195. begplus = beg + speed + vital + rand(1, 20)
  196. begminus = (salo * 3) + rand(1, 20)
  197. begresult = begplus - begminus
  198. '<center><img src="images/etogame/begsor.jpg"></center>'
  199. 'Women''s 400 meters race. You change clothes and go out on the track. Get up at the start. Distributed starting shot.'
  200. if begresult <= 0:
  201. 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  202. elseif begresult < 450:
  203. 'You are not bad ran for dilettante course, as ranked last 8th place.'
  204. elseif begresult < 600:
  205. 'You fought hard, but managed to take only 7 penultimate place.'
  206. elseif begresult < 800:
  207. 'You fought hard, but only managed to take 6th place.'
  208. elseif begresult < 1000:
  209. 'You fought hard, but only managed to take 5th place.'
  210. elseif begresult < 1300:
  211. 'You fought hard, but only managed to take 4th place.'
  212. elseif begresult < 1800:
  213. razradbegEB += 1
  214. money += 10000
  215. 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 10 thousand <b>₽</b>'
  216. elseif begresult < 2500:
  217. razradbegES += 1
  218. money += 15000
  219. 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 15, 000 <b>₽</b>'
  220. else
  221. razradbegEG += 1
  222. money += 20000
  223. 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 20 thousand <b>₽</b>. You are the champion of Europe.'
  224. end
  225. act 'Leave':gt 'fit', 'dressing room'
  226. end
  227. --- beg1 ---------------------------------