477_beg1 29 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482
  1. # beg1
  2. <<<<<<< 477_beg1
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 477_beg1
  7. cla
  8. *clr
  9. clr
  10. gs 'stat'
  11. <<<<<<< 477_beg1
  12. set minut += 60
  13. Set kolsorev += 1
  14. Set begmon = month
  15. if razradbeg = 0:
  16. 'You write in a group beginners.'
  17. act 'Exit on the treadmill': xgt 'beg1','br'
  18. end
  19. if razradbeg = 1:
  20. 'You write in a group treterazryadnikov.'
  21. act 'Exit on the treadmill': xgt 'beg1','3'
  22. end
  23. if razradbeg = 2:
  24. 'You recorded in the second group of bits. City Championship.'
  25. act 'Exit on the treadmill': xgt 'beg1','2'
  26. end
  27. if razradbeg = 3:
  28. 'You recorded in the first group of bits. Championship field.'
  29. act 'Exit on the treadmill': xgt 'beg1','1'
  30. end
  31. if razradbeg = 4:
  32. 'You write in the CCM group. Championship region.'
  33. act 'Exit on the treadmill': xgt 'beg1','kms'
  34. end
  35. if razradbeg = 5:
  36. 'You write in the group Masters of Sports. Russian Championship.'
  37. act 'Exit on the treadmill': xgt 'beg1','ross'
  38. end
  39. if razradbeg >= 6 and razradbeg < 16:
  40. 'You write in the group International Master of Sports. Qualifying competition for access to the European Championship.'
  41. act 'Exit on the treadmill': xgt 'beg1','kval'
  42. end
  43. if razradbeg = 16:
  44. if razradbegK < 8:
  45. cla
  46. Set razradbegK = 0
  47. Set razradbeg = 6
  48. 'You have not been qualified for the European Championship.'
  49. act 'Leave': gt 'fit','razd'
  50. end
  51. if razradbegK >= 8:
  52. cla
  53. Set razradbegK = 0
  54. Set razradbeg = 6
  55. 'You write for the European Championship.'
  56. act 'Exit on the treadmill': xgt 'beg1','evro'
  57. end
  58. end
  59. =======
  60. set minut = minut + 60
  61. Set kolsorev = kolsorev + 1
  62. Set begmon = month
  63. if razradbeg = 0:
  64. 'You write to the group newbies.'
  65. act 'Exit to the track':xgt 'beg1','br'
  66. end
  67. if razradbeg = 1:
  68. 'You write to the group treterazryadnikov.'
  69. act 'Exit to the track':xgt 'beg1','3'
  70. end
  71. if razradbeg = 2:
  72. 'You write in the second group of digits. The city championship.'
  73. act 'Exit to the track':xgt 'beg1','2'
  74. end
  75. if razradbeg = 3:
  76. 'You write in the first group of digits. Championship field.'
  77. act 'Exit to the track':xgt 'beg1','1'
  78. end
  79. if razradbeg = 4:
  80. 'You write in the CCM group. region Championship.'
  81. act 'Exit to the track':xgt 'beg1','kms'
  82. end
  83. if razradbeg = 5:
  84. 'You write to the group Masters of Sports. Russian Championship.'
  85. act 'Exit to the track':xgt 'beg1','ross'
  86. end
  87. if razradbeg >= 6 and razradbeg < 16:
  88. 'You write in the group world-class athlete. Qualifying competition for access to the European Championship.'
  89. act 'Exit to the track':xgt 'beg1','kval'
  90. end
  91. if razradbeg = 16:
  92. if razradbegK < 8:
  93. cla
  94. Set razradbegK = 0
  95. Set razradbeg = 6
  96. 'You are not logged qualification for the European Championship.'
  97. act 'Get_Away':gt 'fit','razd'
  98. end
  99. if razradbegK >= 8:
  100. cla
  101. Set razradbegK = 0
  102. Set razradbeg = 6
  103. 'You write to the European Championship.'
  104. act 'Exit to the track':xgt 'beg1','evro'
  105. end
  106. end
  107. >>>>>>> 477_beg1
  108. end
  109. <<<<<<< 477_beg1
  110. if $ARGS[0] = 'br':
  111. cla
  112. '<center><img src="images\etogame\begsor.jpg"></center>'
  113. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  114. Set begplus = beg + speed + vital + RAND(1,20)
  115. Set begminus = salo + RAND(1,20)
  116. Set begresult = begplus - begminus
  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 < 10: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  119. if begresult >= 10 and begresult < 20: 'You fought hard, but managed to take only 7 penultimate place.'
  120. if begresult >= 20 and begresult < 30: 'You fought hard, but only managed to take 6th place.'
  121. if begresult >= 30 and begresult < 40: 'You fought hard, but only managed to take 5th place.'
  122. if begresult >= 40 and begresult < 50: 'You fought hard, but only managed to take 4th place.'
  123. 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'
  124. 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'
  125. 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.'
  126. Set beg += 1
  127. Set fat -= 10
  128. act 'Leave': gt 'down'
  129. =======
  130. if $ARGS[0]='br':
  131. cla
  132. '<center><img src="pic/begsor.jpg" ></center>'
  133. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  134. Set begplus = beg + speed + vital + RAND (1,20)
  135. Set begminus = salo + RAND (1,20)
  136. Set begresult = begplus - begminus
  137. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  138. if begresult > 0 and begresult < 10:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  139. if begresult >= 10 and begresult < 20:'You fought hard, but only managed to take the penultimate 7 place.'
  140. if begresult >= 20 and begresult < 30:'You fought hard, but only managed to take 6 place.'
  141. if begresult >= 30 and begresult < 40:'You fought hard, but only managed to take 5 place.'
  142. if begresult >= 40 and begresult < 50:'You fought hard, but only managed to take 4 place.'
  143. if begresult >= 50 and begresult < 60:Set bronzebeg = bronzebeg + 1&Set money = money + 100&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 100 rubles'
  144. if begresult >= 60 and begresult < 70:Set silverbeg = silverbeg + 1&Set money = money + 500&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 500 rubles'
  145. if begresult >= 70:Set razradbeg = 1&Set goldbeg = goldbeg + 1&Set money = money + 1000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 1000 rubles 3First sports category on the run.'
  146. Set beg = beg + 1
  147. Set fat = fat - 10
  148. act 'Get_Away':gt 'down'
  149. >>>>>>> 477_beg1
  150. end
  151. <<<<<<< 477_beg1
  152. if $ARGS[0] = '3':
  153. cla
  154. '<center><img src="images\etogame\begsor.jpg"></center>'
  155. 'You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  156. Set begplus = beg + speed + vital + RAND(1,20)
  157. Set begminus = salo + RAND(1,20)
  158. Set begresult = begplus - begminus
  159. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  160. if begresult > 0 and begresult < 70: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  161. if begresult >= 70 and begresult < 80: 'You fought hard, but managed to take only 7 penultimate place.'
  162. if begresult >= 80 and begresult < 90: 'You fought hard, but only managed to take 6th place.'
  163. if begresult >= 90 and begresult < 100: 'You fought hard, but only managed to take 5th place.'
  164. if begresult >= 100 and begresult < 110: 'You fought hard, but only managed to take 4th place.'
  165. 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'
  166. 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'
  167. 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.'
  168. Set beg += 1
  169. Set fat -= 10
  170. act 'Leave': gt 'down'
  171. =======
  172. if $ARGS[0]='3':
  173. cla
  174. '<center><img src="pic/begsor.jpg" ></center>'
  175. 'You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  176. Set begplus = beg + speed + vital + RAND (1,20)
  177. Set begminus = salo + RAND (1,20)
  178. Set begresult = begplus - begminus
  179. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  180. if begresult > 0 and begresult < 70:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  181. if begresult >= 70 and begresult < 80:'You fought hard, but only managed to take the penultimate 7 place.'
  182. if begresult >= 80 and begresult < 90:'You fought hard, but only managed to take 6 place.'
  183. if begresult >= 90 and begresult < 100:'You fought hard, but only managed to take 5 place.'
  184. if begresult >= 100 and begresult < 110:'You fought hard, but only managed to take 4 place.'
  185. if begresult >= 110 and begresult < 120:Set bronzebeg = bronzebeg + 1&Set money = money + 500&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 500 rubles'
  186. if begresult >= 120 and begresult < 130:Set silverbeg = silverbeg + 1&Set money = money + 1000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 1000 rubles'
  187. if begresult >= 130:Set razradbeg = 2&Set goldbeg = goldbeg + 1&Set money = money + 2000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 2000 rubles 2First sports category on the run.'
  188. Set beg = beg + 1
  189. Set fat = fat - 10
  190. act 'Get_Away':gt 'down'
  191. >>>>>>> 477_beg1
  192. end
  193. <<<<<<< 477_beg1
  194. if $ARGS[0] = '2':
  195. cla
  196. '<center><img src="images\etogame\begsor.jpg"></center>'
  197. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  198. Set begplus = beg + speed + vital + RAND(1,20)
  199. Set begminus = salo + RAND(1,20)
  200. Set begresult = begplus - begminus
  201. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  202. if begresult > 0 and begresult < 130: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  203. if begresult >= 130 and begresult < 140: 'You fought hard, but managed to take only 7 penultimate place.'
  204. if begresult >= 140 and begresult < 150: 'You fought hard, but only managed to take 6th place.'
  205. if begresult >= 150 and begresult < 160: 'You fought hard, but only managed to take 5th place.'
  206. if begresult >= 160 and begresult < 170: 'You fought hard, but only managed to take 4th place.'
  207. 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'
  208. 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'
  209. 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.'
  210. Set beg += 1
  211. Set fat -= 10
  212. act 'Leave': gt 'down'
  213. =======
  214. if $ARGS[0]='2':
  215. cla
  216. '<center><img src="pic/begsor.jpg" ></center>'
  217. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  218. Set begplus = beg + speed + vital + RAND (1,20)
  219. Set begminus = salo + RAND (1,20)
  220. Set begresult = begplus - begminus
  221. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  222. if begresult > 0 and begresult < 130:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  223. if begresult >= 130 and begresult < 140:'You fought hard, but only managed to take the penultimate 7 place.'
  224. if begresult >= 140 and begresult < 150:'You fought hard, but only managed to take 6 place.'
  225. if begresult >= 150 and begresult < 160:'You fought hard, but only managed to take 5 place.'
  226. if begresult >= 160 and begresult < 170:'You fought hard, but only managed to take 4 place.'
  227. if begresult >= 170 and begresult < 180:Set bronzebeg = bronzebeg + 1&Set money = money + 1000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 1000 rubles'
  228. if begresult >= 180 and begresult < 190:Set silverbeg = silverbeg + 1&Set money = money + 2000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 2000 rubles'
  229. if begresult >= 200:Set razradbeg = 3&Set goldbeg = goldbeg + 1&Set money = money + 3000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 3000 rubles 1First sports category on the run. You become a champion of the city on the run.'
  230. Set beg = beg + 1
  231. Set fat = fat - 10
  232. act 'Get_Away':gt 'down'
  233. >>>>>>> 477_beg1
  234. end
  235. <<<<<<< 477_beg1
  236. if $ARGS[0] = '1':
  237. cla
  238. '<center><img src="images\etogame\begsor.jpg"></center>'
  239. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  240. Set begplus = beg + speed + vital + RAND(1,20)
  241. Set begminus = salo + RAND(1,20)
  242. Set begresult = begplus - begminus
  243. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  244. if begresult > 0 and begresult < 200: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  245. if begresult >= 200 and begresult < 210: 'You fought hard, but managed to take only 7 penultimate place.'
  246. if begresult >= 210 and begresult < 220: 'You fought hard, but only managed to take 6th place.'
  247. if begresult >= 230 and begresult < 240: 'You fought hard, but only managed to take 5th place.'
  248. if begresult >= 240 and begresult < 250: 'You fought hard, but only managed to take 4th place.'
  249. 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'
  250. 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'
  251. 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.'
  252. Set beg += 1
  253. Set fat -= 10
  254. act 'Leave': gt 'down'
  255. =======
  256. if $ARGS[0]='1':
  257. cla
  258. '<center><img src="pic/begsor.jpg" ></center>'
  259. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  260. Set begplus = beg + speed + vital + RAND (1,20)
  261. Set begminus = salo + RAND (1,20)
  262. Set begresult = begplus - begminus
  263. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  264. if begresult > 0 and begresult < 200:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  265. if begresult >= 200 and begresult < 210:'You fought hard, but only managed to take the penultimate 7 place.'
  266. if begresult >= 210 and begresult < 220:'You fought hard, but only managed to take 6 place.'
  267. if begresult >= 230 and begresult < 240:'You fought hard, but only managed to take 5 place.'
  268. if begresult >= 240 and begresult < 250:'You fought hard, but only managed to take 4 place.'
  269. if begresult >= 250 and begresult < 260:Set bronzebeg = bronzebeg + 1&Set money = money + 2000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 2000 rubles'
  270. if begresult >= 260 and begresult < 270:Set silverbeg = silverbeg + 1&Set money = money + 3000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 3000 rubles'
  271. if begresult >= 270:Set razradbeg = 4&Set goldbeg = goldbeg + 1&Set money = money + 4000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 4000 rubles and the title of the CCM on the run. You become a champion of the field.'
  272. Set beg = beg + 1
  273. Set fat = fat - 10
  274. act 'Get_Away':gt 'down'
  275. >>>>>>> 477_beg1
  276. end
  277. <<<<<<< 477_beg1
  278. if $ARGS[0] = 'kms':
  279. cla
  280. '<center><img src="images\etogame\begsor.jpg"></center>'
  281. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  282. Set begplus = beg + speed + vital + RAND(1,20)
  283. Set begminus = salo + RAND(1,20)
  284. Set begresult = begplus - begminus
  285. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  286. if begresult > 0 and begresult < 270: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  287. if begresult >= 270 and begresult < 280: 'You fought hard, but managed to take only 7 penultimate place.'
  288. if begresult >= 280 and begresult < 290: 'You fought hard, but only managed to take 6th place.'
  289. if begresult >= 290 and begresult < 300: 'You fought hard, but only managed to take 5th place.'
  290. if begresult >= 300 and begresult < 310: 'You fought hard, but only managed to take 4th place.'
  291. 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'
  292. 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'
  293. 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.'
  294. Set beg += 1
  295. Set fat -= 10
  296. act 'Leave': gt 'down'
  297. =======
  298. if $ARGS[0]='kms':
  299. cla
  300. '<center><img src="pic/begsor.jpg" ></center>'
  301. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  302. Set begplus = beg + speed + vital + RAND (1,20)
  303. Set begminus = salo + RAND (1,20)
  304. Set begresult = begplus - begminus
  305. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  306. if begresult > 0 and begresult < 270:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  307. if begresult >= 270 and begresult < 280:'You fought hard, but only managed to take the penultimate 7 place.'
  308. if begresult >= 280 and begresult < 290:'You fought hard, but only managed to take 6 place.'
  309. if begresult >= 290 and begresult < 300:'You fought hard, but only managed to take 5 place.'
  310. if begresult >= 300 and begresult < 310:'You fought hard, but only managed to take 4 place.'
  311. if begresult >= 310 and begresult < 320:Set bronzebeg = bronzebeg + 1&Set money = money + 3000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 3000 rubles'
  312. if begresult >= 320 and begresult < 330:Set silverbeg = silverbeg + 1&Set money = money + 4000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 4000 rubles'
  313. if begresult >= 330:Set razradbeg = 5&Set goldbeg = goldbeg + 1&Set money = money + 5000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 5000 rubles and the title of Master of Sports in the run. You become a champion of the region.'
  314. Set beg = beg + 1
  315. Set fat = fat - 10
  316. act 'Get_Away':gt 'down'
  317. >>>>>>> 477_beg1
  318. end
  319. <<<<<<< 477_beg1
  320. if $ARGS[0] = 'ross':
  321. cla
  322. '<center><img src="images\etogame\begsor.jpg"></center>'
  323. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  324. Set begplus = beg + speed + vital + RAND(1,20)
  325. Set begminus = (salo * 2) + RAND(1,20)
  326. Set begresult = begplus - begminus
  327. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  328. if begresult > 0 and begresult < 330: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  329. if begresult >= 330 and begresult < 340: 'You fought hard, but managed to take only 7 penultimate place.'
  330. if begresult >= 340 and begresult < 350: 'You fought hard, but only managed to take 6th place.'
  331. if begresult >= 350 and begresult < 360: 'You fought hard, but only managed to take 5th place.'
  332. if begresult >= 360 and begresult < 370: 'You fought hard, but only managed to take 4th place.'
  333. 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'
  334. 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'
  335. 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.'
  336. Set beg += 1
  337. Set fat -= 10
  338. act 'Leave': gt 'down'
  339. =======
  340. if $ARGS[0]='ross':
  341. cla
  342. '<center><img src="pic/begsor.jpg" ></center>'
  343. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  344. Set begplus = beg + speed + vital + RAND (1,20)
  345. Set begminus = (salo*2) + RAND (1,20)
  346. Set begresult = begplus - begminus
  347. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  348. if begresult > 0 and begresult < 330:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  349. if begresult >= 330 and begresult < 340:'You fought hard, but only managed to take the penultimate 7 place.'
  350. if begresult >= 340 and begresult < 350:'You fought hard, but only managed to take 6 place.'
  351. if begresult >= 350 and begresult < 360:'You fought hard, but only managed to take 5 place.'
  352. if begresult >= 360 and begresult < 370:'You fought hard, but only managed to take 4 place.'
  353. if begresult >= 370 and begresult < 380:Set bronzebeg = bronzebeg + 1&Set money = money + 4000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 4000 rubles'
  354. if begresult >= 380 and begresult < 390:Set silverbeg = silverbeg + 1&Set money = money + 5000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 5000 rubles'
  355. if begresult >= 390:Set razradbeg = 6&Set goldbeg = goldbeg + 1&Set money = money + 6000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 6000 rubles and the title of International Master of Sports on the run. You become a champion of Russia.'
  356. Set beg = beg + 1
  357. Set fat = fat - 10
  358. act 'Get_Away':gt 'down'
  359. >>>>>>> 477_beg1
  360. end
  361. <<<<<<< 477_beg1
  362. if $ARGS[0] = 'kval':
  363. cla
  364. '<center><img src="images\etogame\begsor.jpg"></center>'
  365. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  366. Set razradbeg += 1
  367. Set begplus = beg + speed + vital + RAND(1,20)
  368. Set begminus = (salo * 3) + RAND(1,20)
  369. Set begresult = begplus - begminus
  370. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  371. if begresult > 0 and begresult < 450: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  372. if begresult >= 450 and begresult < 500: 'You fought hard, but managed to take only 7 penultimate place.'
  373. if begresult >= 500 and begresult < 550: 'You fought hard, but only managed to take 6th place.'
  374. if begresult >= 550 and begresult < 600: 'You fought hard, but only managed to take 5th place.'
  375. if begresult >= 600 and begresult < 650: 'You fought hard, but only managed to take 4th place.'
  376. 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'
  377. 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'
  378. 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.'
  379. Set beg += 1
  380. Set fat -= 10
  381. act 'Leave': gt 'down'
  382. =======
  383. if $ARGS[0]='kval':
  384. cla
  385. '<center><img src="pic/begsor.jpg" ></center>'
  386. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  387. Set razradbeg = razradbeg + 1
  388. Set begplus = beg + speed + vital + RAND (1,20)
  389. Set begminus = (salo*3) + RAND (1,20)
  390. Set begresult = begplus - begminus
  391. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  392. if begresult > 0 and begresult < 450:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  393. if begresult >= 450 and begresult < 500:'You fought hard, but only managed to take the penultimate 7 place.'
  394. if begresult >= 500 and begresult < 550:'You fought hard, but only managed to take 6 place.'
  395. if begresult >= 550 and begresult < 600:'You fought hard, but only managed to take 5 place.'
  396. if begresult >= 600 and begresult < 650:'You fought hard, but only managed to take 4 place.'
  397. if begresult >= 650 and begresult < 700:Set razradbegK = razradbegK + 1&Set bronzebeg = bronzebeg + 1&Set money = money + 5000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 5000 rubles'
  398. if begresult >= 700 and begresult < 800:Set razradbegK = razradbegK + 1&Set silverbeg = silverbeg + 1&Set money = money + 10000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 10 thousand rubles'
  399. if begresult >= 800:Set razradbegK = razradbegK + 1&Set goldbeg = goldbeg + 1&Set money = money + 15000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 15 thousand rubles.'
  400. Set beg = beg + 1
  401. Set fat = fat - 10
  402. act 'Get_Away':gt 'down'
  403. >>>>>>> 477_beg1
  404. end
  405. <<<<<<< 477_beg1
  406. if $ARGS[0] = 'evro':
  407. cla
  408. '<center><img src="images\etogame\begsor.jpg"></center>'
  409. 'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
  410. Set razradbeg += 1
  411. Set begplus = beg + speed + vital + RAND(1,20)
  412. Set begminus = (salo * 4) + RAND(1,20)
  413. Set begresult = begplus - begminus
  414. if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
  415. if begresult > 0 and begresult < 450: 'You are not bad ran for dilettante course, as ranked last 8th place.'
  416. if begresult >= 450 and begresult < 550: 'You fought hard, but managed to take only 7 penultimate place.'
  417. if begresult >= 700 and begresult < 800: 'You fought hard, but only managed to take 6th place.'
  418. if begresult >= 800 and begresult < 1000: 'You fought hard, but only managed to take 5th place.'
  419. if begresult >= 1000 and begresult < 1300: 'You fought hard, but only managed to take 4th place.'
  420. 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'
  421. 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'
  422. 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.'
  423. Set beg += 1
  424. Set fat -= 10
  425. act 'Leave': gt 'down'
  426. =======
  427. if $ARGS[0]='evro':
  428. cla
  429. '<center><img src="pic/begsor.jpg" ></center>'
  430. 'women, running on 400 meters. You change clothes and go out on the treadmill. Get up to the start. Hear the starting shot.'
  431. Set razradbeg = razradbeg + 1
  432. Set begplus = beg + speed + vital + RAND (1,20)
  433. Set begminus = (salo*4) + RAND (1,20)
  434. Set begresult = begplus - begminus
  435. if begresult <= 0:'You barely managed to reach the finish line, what is really there place, Of course you are the last.'
  436. if begresult > 0 and begresult < 450:'You are not a bad thing ran, for dilettante course, as ranked last 8 place.'
  437. if begresult >= 450 and begresult < 550:'You fought hard, but only managed to take the penultimate 7 place.'
  438. if begresult >= 700 and begresult < 800:'You fought hard, but only managed to take 6 place.'
  439. if begresult >= 800 and begresult < 1000:'You fought hard, but only managed to take 5 place.'
  440. if begresult >= 1000 and begresult < 1300:'You fought hard, but only managed to take 4 place.'
  441. if begresult >= 1300 and begresult < 1800:Set razradbegEB = razradbegEB + 1&Set money = money + 10000&'You fought hard, and managed to take the prize 3 place. You get a bronze medal and a prize 10 thousand rubles'
  442. if begresult >= 1800 and begresult < 2500:Set razradbegES = razradbegES + 1&Set money = money + 15000&'You fought hard, and managed to take the prize 2 place. You get a silver medal and a prize 15 thousand rubles'
  443. if begresult >= 2500:Set razradbegEG = razradbegEG + 1&Set money = money + 20000&'You fought hard, and managed to take 1 place. You get a gold medal, prize 20 thousand rubles. You champion of Europe.'
  444. Set beg = beg + 1
  445. Set fat = fat - 10
  446. act 'Get_Away':gt'down'
  447. >>>>>>> 477_beg1
  448. end
  449. --- beg1 ---------------------------------