1
1

540_igrkart2 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355
  1. # igrkart2
  2. clr
  3. <<<<<<< 540_igrkart2
  4. gs 'stat'
  5. set minut += 5
  6. =======
  7. gs'stat'
  8. set minut=minut + 5
  9. >>>>>>> 540_igrkart2
  10. if turn1 = 0:
  11. CLA
  12. <<<<<<< 540_igrkart2
  13. '<right><img src="images\casino\stavkacw.jpg"></right>'
  14. ' Please give me your bets, gentlemen.'
  15. ACT 'IPod':
  16. deal = input 'Enter the amount'
  17. if money < deal:
  18. msg 'You have enough money'
  19. =======
  20. '<right><img src="casino/stavkacw.jpg" ></right>'
  21. ' Please tender, gentlemen.'
  22. ACT 'make a bet':
  23. deal = input 'enter the amount'
  24. if money<deal:
  25. msg 'You do not have enough money'
  26. >>>>>>> 540_igrkart2
  27. gt 'igrkart2'
  28. end
  29. <<<<<<< 540_igrkart2
  30. if deal < 0:
  31. msg 'Wrong, try again.'
  32. =======
  33. if deal<0:
  34. msg 'wrong, try again.'
  35. >>>>>>> 540_igrkart2
  36. gt 'igrkart1'
  37. end
  38. <<<<<<< 540_igrkart2
  39. if deal > 1000:
  40. msg 'The maximum rate of 1000 rubles.'
  41. =======
  42. if deal>1000:
  43. msg 'maximum rate 1000 rubles.'
  44. >>>>>>> 540_igrkart2
  45. gt 'igrkart1'
  46. end
  47. <<<<<<< 540_igrkart2
  48. set money -= deal
  49. =======
  50. set money = money - deal
  51. >>>>>>> 540_igrkart2
  52. turn1 = 1
  53. GT 'igrkart2'
  54. END
  55. <<<<<<< 540_igrkart2
  56. ACT 'Move away from the table':
  57. =======
  58. ACT 'Away from the table':
  59. >>>>>>> 540_igrkart2
  60. GT 'kazvar'
  61. END
  62. end
  63. <<<<<<< 540_igrkart2
  64. if turn1 = 1:
  65. CLA
  66. '<right><img src="images\casino\stavkacw.jpg"></right>'
  67. nich = 0
  68. ACT 'Put another draw':
  69. if money < deal:
  70. msg 'You have enough money'
  71. turn1 = 2
  72. nich = 0
  73. =======
  74. if turn1=1:
  75. CLA
  76. '<right><img src="casino/stavkacw.jpg" ></right>'
  77. nich=0
  78. ACT 'Put another draw':
  79. if money<deal:
  80. msg 'You do not have enough money'
  81. turn1=2
  82. nich=0
  83. >>>>>>> 540_igrkart2
  84. gt 'igrkart2'
  85. end
  86. <<<<<<< 540_igrkart2
  87. set money -= deal
  88. turn1 = 2
  89. nich = 1
  90. =======
  91. set money=money-deal
  92. turn1=2
  93. nich=1
  94. >>>>>>> 540_igrkart2
  95. gt 'igrkart2'
  96. end
  97. <<<<<<< 540_igrkart2
  98. ACT 'Continue without an additional rate':
  99. turn1 = 2
  100. nich = 0
  101. =======
  102. ACT 'Continue without additional rate':
  103. turn1=2
  104. nich=0
  105. >>>>>>> 540_igrkart2
  106. gt 'igrkart2'
  107. end
  108. end
  109. <<<<<<< 540_igrkart2
  110. if turn1 = 2:
  111. CLA
  112. '<right><img src="images\casino\cartcw.jpg"></right>'
  113. ' The dealer deals the cards:'
  114. '...'
  115. suit = RAND(1,4)
  116. number = RAND(1,13)
  117. =======
  118. if turn1=2:
  119. CLA
  120. '<right><img src="casino/cartcw.jpg" ></right>'
  121. ' The dealer deals the cards:'
  122. '...'
  123. suit = RAND (1,4)
  124. number = RAND (1,13)
  125. >>>>>>> 540_igrkart2
  126. $di_card[1] = $number[number] + $suit[suit]
  127. di_points = points[number]
  128. <<<<<<< 540_igrkart2
  129. di_poi = number
  130. suit = RAND(1,4)
  131. number = RAND(2,14)
  132. $pl_card[1] = $number[number] + $suit[suit]
  133. pl_points = points[number]
  134. pl_poi = number
  135. wait 1000
  136. 'Map of dealer:'
  137. '  <<$di_card[1]>>'
  138. =======
  139. di_poi=number
  140. suit = RAND (1,4)
  141. number = RAND (2,14)
  142. $pl_card[1] = $number[number] + $suit[suit]
  143. pl_points = points[number]
  144. pl_poi=number
  145. wait 1000
  146. 'Map dealer:'
  147. ' <<$di_card[1]>>'
  148. >>>>>>> 540_igrkart2
  149. '__________________________'
  150. 'Player Maps:'
  151. <<<<<<< 540_igrkart2
  152. '  <<$pl_card[1]>>'
  153. if di_poi > pl_poi:
  154. ' '
  155. 'Casinos won'
  156. act 'You lost':
  157. turn1 = 0
  158. =======
  159. ' <<$pl_card[1]>>'
  160. if di_poi>pl_poi:
  161. ' '
  162. 'casino won'
  163. act 'you lost':
  164. turn1=0
  165. >>>>>>> 540_igrkart2
  166. gt 'igrkart2'
  167. end
  168. end
  169. <<<<<<< 540_igrkart2
  170. if di_poi < pl_poi:
  171. ' '
  172. 'You won'
  173. act 'You have won <<2*deal>> rub.':
  174. set money += 2 * deal
  175. turn1 = 0
  176. =======
  177. if di_poi<pl_poi:
  178. ' '
  179. 'you won'
  180. act 'you won <<2*deal>> RUB.':
  181. set money=money+2*deal
  182. turn1=0
  183. >>>>>>> 540_igrkart2
  184. gt 'igrkart2'
  185. end
  186. end
  187. <<<<<<< 540_igrkart2
  188. if di_poi = pl_poi:
  189. if nich = 1:
  190. ' '
  191. 'You won'
  192. act 'You have won <<11*deal>> rub.':
  193. set money += 11 * deal
  194. turn1 = 0
  195. =======
  196. if di_poi=pl_poi:
  197. if nich=1:
  198. ' '
  199. 'you won'
  200. act 'you won <<11*deal>> RUB.':
  201. set money=money+11*deal
  202. turn1=0
  203. >>>>>>> 540_igrkart2
  204. gt 'igrkart2'
  205. end
  206. else
  207. <<<<<<< 540_igrkart2
  208. turn1 = 3
  209. =======
  210. turn1=3
  211. >>>>>>> 540_igrkart2
  212. gt 'igrkart2'
  213. end
  214. end
  215. end
  216. <<<<<<< 540_igrkart2
  217. if turn1 = 3:
  218. act 'Continue to play':
  219. if money < deal:
  220. msg 'You have enough money'
  221. =======
  222. if turn1=3:
  223. act 'continue to play':
  224. if money<deal:
  225. msg 'You do not have enough money'
  226. >>>>>>> 540_igrkart2
  227. gt 'igrkart2'
  228. end
  229. <<<<<<< 540_igrkart2
  230. set money -= deal
  231. CLA
  232. '<right><img src="images\casino\cartcw.jpg"></right>'
  233. ' The dealer deals the cards:'
  234. '...'
  235. suit = RAND(1,4)
  236. number = RAND(1,13)
  237. =======
  238. set money=money-deal
  239. CLA
  240. '<right><img src="casino/cartcw.jpg" ></right>'
  241. ' The dealer deals the cards:'
  242. '...'
  243. suit = RAND (1,4)
  244. number = RAND (1,13)
  245. >>>>>>> 540_igrkart2
  246. $di_card[2] = $number[number] + $suit[suit]
  247. di_points = points[number]
  248. <<<<<<< 540_igrkart2
  249. di_poi = number
  250. suit = RAND(1,4)
  251. number = RAND(2,14)
  252. =======
  253. di_poi=number
  254. suit = RAND (1,4)
  255. number = RAND (2,14)
  256. >>>>>>> 540_igrkart2
  257. $pl_card[2] = $number[number] + $suit[suit]
  258. pl_points = points[number]
  259. <<<<<<< 540_igrkart2
  260. pl_poi = number
  261. wait 1000
  262. 'Map of dealer:'
  263. '  <<$di_card[1]>>'
  264. '  <<$di_card[2]>>'
  265. =======
  266. pl_poi=number
  267. wait 1000
  268. 'Map dealer:'
  269. ' <<$di_card[1]>>'
  270. ' <<$di_card[2]>>'
  271. >>>>>>> 540_igrkart2
  272. '__________________________'
  273. 'Player Maps:'
  274. <<<<<<< 540_igrkart2
  275. '  <<$pl_card[1]>>'
  276. '  <<$pl_card[2]>>'
  277. if di_poi > pl_poi:
  278. ' '
  279. 'Casinos won'
  280. act 'You lost':
  281. turn1 = 0
  282. =======
  283. ' <<$pl_card[1]>>'
  284. ' <<$pl_card[2]>>'
  285. if di_poi>pl_poi:
  286. ' '
  287. 'casino won'
  288. act 'you lost':
  289. turn1=0
  290. >>>>>>> 540_igrkart2
  291. gt 'igrkart2'
  292. end
  293. end
  294. <<<<<<< 540_igrkart2
  295. if di_poi < pl_poi:
  296. ' '
  297. 'You won'
  298. act 'You have won <<4*deal>> rub.':
  299. set money += 4 * deal
  300. turn1 = 0
  301. =======
  302. if di_poi<pl_poi:
  303. ' '
  304. 'you won'
  305. act 'you won <<4*deal>> RUB.':
  306. set money=money+4*deal
  307. turn1=0
  308. >>>>>>> 540_igrkart2
  309. gt 'igrkart2'
  310. end
  311. end
  312. <<<<<<< 540_igrkart2
  313. if di_poi = pl_poi:
  314. ' '
  315. 'Again draw'
  316. act 'Pick up <<3*deal>> rub.':
  317. set money += 3 * deal
  318. turn1 = 0
  319. =======
  320. if di_poi=pl_poi:
  321. ' '
  322. 'again draw'
  323. act 'pick_up <<3*deal>> RUB.':
  324. set money=money+3*deal
  325. turn1=0
  326. >>>>>>> 540_igrkart2
  327. gt 'igrkart2'
  328. end
  329. <<<<<<< 540_igrkart2
  330. end
  331. =======
  332. end
  333. >>>>>>> 540_igrkart2
  334. end
  335. act 'Pick up half your bet':
  336. <<<<<<< 540_igrkart2
  337. if deal mod 2 = 1:
  338. deal = deal + 1
  339. end
  340. set money += deal/2
  341. =======
  342. if deal mod 2=1:
  343. deal=deal+1
  344. end
  345. set money=money+deal/2
  346. >>>>>>> 540_igrkart2
  347. gt 'igrkart2'
  348. end
  349. end
  350. --- igrkart2 ---------------------------------