beg1 14 KB

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