1
0

igrkart1 6.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367
  1. # igrkart1
  2. !!by Master Set ([email protected])
  3. !!HOME GAMES
  4. clr
  5. gs 'stat'
  6. set minut += 5
  7. if turn = 0:
  8. cla
  9. '<right><img src="images/casino/stavkacw.jpg"></right>'
  10. ' Please give me your bets, gentlemen.'
  11. act 'IPod':
  12. deal = input 'Enter the amount'
  13. if money < deal:
  14. msg 'You have enough money'
  15. gt 'igrkart1'
  16. end
  17. if deal < 0:
  18. msg 'Wrong, try again.'
  19. gt 'igrkart1'
  20. end
  21. if deal > 1000:
  22. msg 'The maximum rate of 1000 rubles.'
  23. gt 'igrkart1'
  24. end
  25. set money -= deal
  26. turn = 1
  27. gt 'igrkart1'
  28. end
  29. act 'Move away from the table':gt 'bldzh'
  30. end
  31. !!the cards are dealt
  32. if turn = 1:
  33. cla
  34. '<right><img src="images/casino/cartbd.jpg"></right>'
  35. ' The dealer deals the cards:'
  36. '...'
  37. suit = rand(1, 4)
  38. number = rand(1, 13)
  39. $d_card[1] = $number[number] + $suit[suit]
  40. d_points = points[number]
  41. suit = rand(1, 4)
  42. number = rand(1, 13)
  43. $p_card[1] = $number[number] + $suit[suit]
  44. p_points = points[number]
  45. suit = rand(1, 4)
  46. number = rand(1, 13)
  47. $p_card[2] = $number[number] + $suit[suit]
  48. p_points = p_points + points[number]
  49. if p_points = 22:p_points = 21
  50. wait 1000
  51. if p_points < 21:
  52. 'Map of dealer:'
  53. '  <<$d_card[1]>>'
  54. '__________________________'
  55. 'Player Maps:'
  56. '  <<$p_card[1]>>'
  57. '  <<$p_card[2]>>'
  58. act 'Enough':
  59. turn = 3
  60. gt 'igrkart1'
  61. end
  62. act 'Another card':
  63. turn = 2
  64. gt 'igrkart1'
  65. end
  66. end
  67. if p_points = 21:
  68. 'Map of dealer:'
  69. '  <<$d_card[1]>>'
  70. '__________________________'
  71. 'Player Maps:'
  72. '  <<$p_card[1]>>'
  73. '  <<$p_card[2]>>'
  74. 'BLACK JACK!'
  75. prise = deal * 3
  76. act 'Pick up the win (<<prise>> rubles)':
  77. set money += prise
  78. turn = 0
  79. gt 'igrkart1'
  80. end
  81. end
  82. end
  83. !!Additional cards
  84. if turn = 2:
  85. cla
  86. '<right><img src="images/casino/cartbde.jpg"></right>'
  87. 'The dealer deals one more card:'
  88. '...'
  89. suit = rand(1, 4)
  90. number = rand(1, 13)
  91. $p_card[3] = $number[number] + $suit[suit]
  92. p_points = p_points + points[number]
  93. if p_points <= 21:
  94. 'Map of dealer:'
  95. '  <<$d_card[1]>>'
  96. '__________________________'
  97. 'Player Maps:'
  98. '  <<$p_card[1]>>'
  99. '  <<$p_card[2]>>'
  100. '  <<$p_card[3]>>'
  101. act 'Enough':
  102. turn = 3
  103. gt 'igrkart1'
  104. end
  105. act 'Another card':
  106. turn = 22
  107. gt 'igrkart1'
  108. end
  109. end
  110. if p_points > 21:
  111. 'Map of dealer:'
  112. '  <<$d_card[1]>>'
  113. '__________________________'
  114. 'Player Maps:'
  115. '  <<$p_card[1]>>'
  116. '  <<$p_card[2]>>'
  117. '  <<$p_card[3]>>'
  118. 'Bust! You lose.'
  119. act '...':
  120. turn = 0
  121. gt 'igrkart1'
  122. end
  123. end
  124. end
  125. if turn = 22:
  126. cla
  127. '<right><img src="images/casino/cartbde.jpg"></right>'
  128. 'The dealer deals one more card:'
  129. '...'
  130. suit = rand(1, 4)
  131. number = rand(1, 13)
  132. $p_card[4] = $number[number] + $suit[suit]
  133. p_points = p_points + points[number]
  134. if p_points <= 21:
  135. 'Map of dealer:'
  136. '  <<$d_card[1]>>'
  137. '__________________________'
  138. 'Player Maps:'
  139. '  <<$p_card[1]>>'
  140. '  <<$p_card[2]>>'
  141. '  <<$p_card[3]>>'
  142. '  <<$p_card[4]>>'
  143. act 'Enough':
  144. turn = 3
  145. gt 'igrkart1'
  146. end
  147. act 'Another card':
  148. turn = 222
  149. gt 'igrkart1'
  150. end
  151. end
  152. if p_points > 21:
  153. 'Map of dealer:'
  154. '  <<$d_card[1]>>'
  155. '__________________________'
  156. 'Player Maps:'
  157. '  <<$p_card[1]>>'
  158. '  <<$p_card[2]>>'
  159. '  <<$p_card[3]>>'
  160. '  <<$p_card[4]>>'
  161. 'Bust! You lose.'
  162. act '...':
  163. turn = 0
  164. gt 'igrkart1'
  165. end
  166. end
  167. end
  168. if turn = 222:
  169. cla
  170. '<right><img src="images/casino/cartbde.jpg"></right>'
  171. 'The dealer deals one more card:'
  172. '...'
  173. suit = rand(1, 4)
  174. number = rand(1, 13)
  175. $p_card[5] = $number[number] + $suit[suit]
  176. p_points = p_points + points[number]
  177. wait 500
  178. if p_points <= 21:
  179. 'Bank card:'
  180. '  <<$d_card[1]>>'
  181. '__________________________'
  182. 'Player Maps:'
  183. '  <<$p_card[1]>>'
  184. '  <<$p_card[2]>>'
  185. '  <<$p_card[3]>>'
  186. '  <<$p_card[4]>>'
  187. '  <<$p_card[5]>>'
  188. act 'Enough':
  189. turn = 3
  190. gt 'igrkart1'
  191. end
  192. end
  193. if p_points > 21:
  194. 'Map of dealer:'
  195. '  <<$d_card[1]>>'
  196. '__________________________'
  197. 'Player Maps:'
  198. '  <<$p_card[1]>>'
  199. '  <<$p_card[2]>>'
  200. '  <<$p_card[3]>>'
  201. '  <<$p_card[4]>>'
  202. '  <<$p_card[5]>>'
  203. 'Bust! You lose.'
  204. act '...':
  205. turn = 0
  206. gt 'igrkart1'
  207. end
  208. end
  209. end
  210. !!Transoms Bank`s cards
  211. if turn = 3:
  212. cla
  213. '<right><img src="images/casino/cartbde.jpg"></right>'
  214. 'Dealer gets cards:'
  215. '...'
  216. suit = rand(1, 4)
  217. number = rand(1, 13)
  218. $d_card[2] = $number[number] + $suit[suit]
  219. d_points = d_points + points[number]
  220. if p_points = 22:p_points = 21
  221. wait 500
  222. if d_points >= 17:
  223. 'Bank cards:'
  224. '  <<$d_card[1]>>'
  225. '  <<$d_card[2]>>'
  226. 'Points dealer:<<d_points>>'
  227. '__________________________'
  228. 'Player Points <<p_points>>'
  229. '__________________________'
  230. if d_points > p_points:
  231. 'Casinos won'
  232. act '...':
  233. turn = 0
  234. gt 'igrkart1'
  235. end
  236. end
  237. if d_points = p_points:
  238. 'Draw'
  239. act 'Take a bet':
  240. set money += deal
  241. turn = 0
  242. gt 'igrkart1'
  243. end
  244. end
  245. if d_points < p_points:
  246. 'Player won'
  247. prise = deal * 2
  248. act 'Pick up the win (<<prise>> rubles).':
  249. set money += prise
  250. turn = 0
  251. gt 'igrkart1'
  252. end
  253. end
  254. end
  255. if d_points < 17:
  256. suit = rand(1, 4)
  257. number = rand(1, 13)
  258. $d_card[3] = $number[number] + $suit[suit]
  259. d_points = d_points + points[number]
  260. if d_points <= 21:
  261. 'The dealer´s cards:'
  262. '  <<$d_card[1]>>'
  263. '  <<$d_card[2]>>'
  264. '  <<$d_card[3]>>'
  265. 'Points dealer:<<d_points>>'
  266. '__________________________'
  267. 'Player Points <<p_points>>'
  268. '__________________________'
  269. if d_points > p_points:
  270. 'Casinos won'
  271. act '...':
  272. turn = 0
  273. gt 'igrkart1'
  274. end
  275. end
  276. if d_points = p_points:
  277. 'Draw'
  278. act 'Take a bet':
  279. set money += deal
  280. turn = 0
  281. gt 'igrkart1'
  282. end
  283. end
  284. if d_points < p_points:
  285. 'Player won'
  286. prise = deal * 2
  287. act 'Pick up the win (<<prise>> rubles).':
  288. set money += prise
  289. turn = 0
  290. gt 'igrkart1'
  291. end
  292. end
  293. end
  294. if d_points > 21:
  295. 'The dealer´s cards:'
  296. '  <<$d_card[1]>>'
  297. '  <<$d_card[2]>>'
  298. '  <<$d_card[3]>>'
  299. '__________________________'
  300. 'Busting!'
  301. '__________________________'
  302. 'Player won'
  303. prise = deal * 2
  304. act 'Pick up the win (<<prise>> rubles)':
  305. set money += prise
  306. turn = 0
  307. gt 'igrkart1'
  308. end
  309. end
  310. end
  311. end
  312. --- igrkart1 ---------------------------------