1
0

beg1 14 KB

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