1
0

539_igrkart1 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644
  1. # igrkart1
  2. !by Master Set ([email protected])
  3. <<<<<<< 539_igrkart1
  4. !НАЧАЛО ИГРЫ
  5. clr
  6. gs 'stat'
  7. set minut += 5
  8. IF turn = 0:
  9. CLA
  10. '<right><img src="images\casino\stavkacw.jpg"></right>'
  11. ' Please give me your bets, gentlemen.'
  12. ACT 'IPod':
  13. deal = input 'Enter the amount'
  14. if money < deal:
  15. msg 'You have enough money'
  16. gt 'igrkart1'
  17. end
  18. if deal < 0:
  19. msg 'Wrong, try again.'
  20. gt 'igrkart1'
  21. end
  22. if deal > 1000:
  23. msg 'The maximum rate of 1000 rubles.'
  24. gt 'igrkart1'
  25. end
  26. set money -= deal
  27. turn = 1
  28. GT 'igrkart1'
  29. END
  30. ACT 'Move away from the table':
  31. GT 'bldzh'
  32. END
  33. =======
  34. !HOME GAMES
  35. clr
  36. gs'stat'
  37. set minut=minut + 5
  38. IF turn = 0:
  39. CLA
  40. '<right><img src="casino/stavkabd.jpg" ></right>'
  41. ' Please tender, gentlemen.'
  42. ACT 'make a bet':
  43. deal = input 'enter the amount'
  44. if money<deal:
  45. msg 'You do not have enough money'
  46. gt 'igrkart1'
  47. end
  48. if deal<0:
  49. msg 'wrong, try again.'
  50. gt 'igrkart1'
  51. end
  52. if deal>1000:
  53. msg 'maximum rate 1000 rubles.'
  54. gt 'igrkart1'
  55. end
  56. set money = money - deal
  57. turn = 1
  58. GT 'igrkart1'
  59. END
  60. ACT 'Away from the table':
  61. GT 'bldzh'
  62. END
  63. >>>>>>> 539_igrkart1
  64. END
  65. <<<<<<< 539_igrkart1
  66. !РАЗДАЧА КАРТ
  67. IF turn = 1:
  68. CLA
  69. '<right><img src="images\casino\cartbd.jpg"></right>'
  70. ' The dealer deals the cards:'
  71. '...'
  72. suit = RAND(1,4)
  73. number = RAND(1,13)
  74. $d_card[1] = $number[number] + $suit[suit]
  75. d_points = points[number]
  76. suit = RAND(1,4)
  77. number = RAND(1,13)
  78. $p_card[1] = $number[number] + $suit[suit]
  79. p_points = points[number]
  80. suit = RAND(1,4)
  81. number = RAND(1,13)
  82. $p_card[2] = $number[number] + $suit[suit]
  83. p_points = p_points + points[number]
  84. IF p_points = 22: p_points = 21
  85. wait 1000
  86. IF p_points < 21:
  87. 'Map of dealer:'
  88. '  <<$d_card[1]>>'
  89. '__________________________'
  90. 'Player Maps:'
  91. '  <<$p_card[1]>>'
  92. '  <<$p_card[2]>>'
  93. ACT 'Enough':
  94. turn = 3
  95. GT 'igrkart1'
  96. END
  97. ACT 'Another card':
  98. turn = 2
  99. GT 'igrkart1'
  100. END
  101. END
  102. IF p_points = 21:
  103. 'Map of dealer:'
  104. '  <<$d_card[1]>>'
  105. '__________________________'
  106. 'Player Maps:'
  107. '  <<$p_card[1]>>'
  108. '  <<$p_card[2]>>'
  109. 'BLACK JACK!'
  110. prise = deal * 3
  111. ACT 'Pick up the win <<prise>> rub.':
  112. set money += prise
  113. turn = 0
  114. GT 'igrkart1'
  115. END
  116. END
  117. =======
  118. !the cards are dealt
  119. IF turn = 1:
  120. CLA
  121. '<right><img src="casino/cartbd.jpg" ></right>'
  122. ' The dealer deals the cards:'
  123. '...'
  124. suit = RAND (1,4)
  125. number = RAND (1,13)
  126. $d_card[1] = $number[number] + $suit[suit]
  127. d_points = points[number]
  128. suit = RAND (1,4)
  129. number = RAND (1,13)
  130. $p_card[1] = $number[number] + $suit[suit]
  131. p_points = points[number]
  132. suit = RAND (1,4)
  133. number = RAND (1,13)
  134. $p_card[2] = $number[number] + $suit[suit]
  135. p_points = p_points + points[number]
  136. IF p_points = 22: p_points = 21
  137. wait 1000
  138. IF p_points < 21:
  139. 'Map dealer:'
  140. ' <<$d_card[1]>>'
  141. '__________________________'
  142. 'Player Maps:'
  143. ' <<$p_card[1]>>'
  144. ' <<$p_card[2]>>'
  145. ACT 'enough':
  146. turn = 3
  147. GT 'igrkart1'
  148. END
  149. ACT 'another map':
  150. turn = 2
  151. GT 'igrkart1'
  152. END
  153. END
  154. IF p_points = 21:
  155. 'Map dealer:'
  156. ' <<$d_card[1]>>'
  157. '__________________________'
  158. 'Player Maps:'
  159. ' <<$p_card[1]>>'
  160. ' <<$p_card[2]>>'
  161. 'Black Jack!!!'
  162. prise = deal*3
  163. ACT 'take the win <<prise>> RUB.':
  164. set money = money + prise
  165. turn = 0
  166. GT 'igrkart1'
  167. END
  168. END
  169. >>>>>>> 539_igrkart1
  170. END
  171. <<<<<<< 539_igrkart1
  172. !ДОПОЛНИТЕЛЬНАЯ КАРТА
  173. IF turn = 2:
  174. CLA
  175. '<right><img src="images\casino\cartbde.jpg"></right>'
  176. 'The dealer deals one more card:'
  177. '...'
  178. suit = RAND(1,4)
  179. number = RAND(1,13)
  180. $p_card[3] = $number[number] + $suit[suit]
  181. p_points = p_points + points[number]
  182. IF p_points <= 21:
  183. 'Map of dealer:'
  184. '  <<$d_card[1]>>'
  185. '__________________________'
  186. 'Player Maps:'
  187. '  <<$p_card[1]>>'
  188. '  <<$p_card[2]>>'
  189. '  <<$p_card[3]>>'
  190. ACT 'Enough':
  191. turn = 3
  192. GT 'igrkart1'
  193. END
  194. ACT 'Another card':
  195. turn = 22
  196. GT 'igrkart1'
  197. END
  198. END
  199. IF p_points > 21:
  200. 'Map of dealer:'
  201. '  <<$d_card[1]>>'
  202. '__________________________'
  203. 'Player Maps:'
  204. '  <<$p_card[1]>>'
  205. '  <<$p_card[2]>>'
  206. '  <<$p_card[3]>>'
  207. 'Bust! You lose.'
  208. ACT '...':
  209. turn = 0
  210. GT 'igrkart1'
  211. END
  212. END
  213. =======
  214. !Additional cards
  215. IF turn = 2:
  216. CLA
  217. '<right><img src="casino/cartbde.jpg" ></right>'
  218. 'The dealer deals one more card:'
  219. '...'
  220. suit = RAND (1,4)
  221. number = RAND (1,13)
  222. $p_card[3] = $number[number] + $suit[suit]
  223. p_points = p_points + points[number]
  224. IF p_points <= 21:
  225. 'Map dealer:'
  226. ' <<$d_card[1]>>'
  227. '__________________________'
  228. 'Player Maps:'
  229. ' <<$p_card[1]>>'
  230. ' <<$p_card[2]>>'
  231. ' <<$p_card[3]>>'
  232. ACT 'enough':
  233. turn = 3
  234. GT 'igrkart1'
  235. END
  236. ACT 'another map':
  237. turn = 22
  238. GT 'igrkart1'
  239. END
  240. END
  241. IF p_points > 21:
  242. 'Map dealer:'
  243. ' <<$d_card[1]>>'
  244. '__________________________'
  245. 'Player Maps:'
  246. ' <<$p_card[1]>>'
  247. ' <<$p_card[2]>>'
  248. ' <<$p_card[3]>>'
  249. 'busting! you lost.'
  250. ACT '...':
  251. turn = 0
  252. GT 'igrkart1'
  253. END
  254. END
  255. >>>>>>> 539_igrkart1
  256. END
  257. IF turn = 22:
  258. <<<<<<< 539_igrkart1
  259. CLA
  260. '<right><img src="images\casino\cartbde.jpg"></right>'
  261. 'The dealer deals one more card:'
  262. '...'
  263. suit = RAND(1,4)
  264. number = RAND(1,13)
  265. $p_card[4] = $number[number] + $suit[suit]
  266. p_points = p_points + points[number]
  267. IF p_points <= 21:
  268. 'Map of dealer:'
  269. '  <<$d_card[1]>>'
  270. '__________________________'
  271. 'Player Maps:'
  272. '  <<$p_card[1]>>'
  273. '  <<$p_card[2]>>'
  274. '  <<$p_card[3]>>'
  275. '  <<$p_card[4]>>'
  276. ACT 'Enough':
  277. turn = 3
  278. GT 'igrkart1'
  279. END
  280. ACT 'Another card':
  281. turn = 222
  282. GT 'igrkart1'
  283. END
  284. END
  285. IF p_points > 21:
  286. 'Map of dealer:'
  287. '  <<$d_card[1]>>'
  288. '__________________________'
  289. 'Player Maps:'
  290. '  <<$p_card[1]>>'
  291. '  <<$p_card[2]>>'
  292. '  <<$p_card[3]>>'
  293. '  <<$p_card[4]>>'
  294. 'Bust! You lose.'
  295. ACT '...':
  296. turn = 0
  297. GT 'igrkart1'
  298. END
  299. END
  300. =======
  301. CLA
  302. '<right><img src="casino/cartbde.jpg" ></right>'
  303. 'The dealer deals one more card:'
  304. '...'
  305. suit = RAND (1,4)
  306. number = RAND (1,13)
  307. $p_card[4] = $number[number] + $suit[suit]
  308. p_points = p_points + points[number]
  309. IF p_points <= 21:
  310. 'Map dealer:'
  311. ' <<$d_card[1]>>'
  312. '__________________________'
  313. 'Player Maps:'
  314. ' <<$p_card[1]>>'
  315. ' <<$p_card[2]>>'
  316. ' <<$p_card[3]>>'
  317. ' <<$p_card[4]>>'
  318. ACT 'enough':
  319. turn = 3
  320. GT 'igrkart1'
  321. END
  322. ACT 'another map':
  323. turn = 222
  324. GT 'igrkart1'
  325. END
  326. END
  327. IF p_points > 21:
  328. 'Map dealer:'
  329. ' <<$d_card[1]>>'
  330. '__________________________'
  331. 'Player Maps:'
  332. ' <<$p_card[1]>>'
  333. ' <<$p_card[2]>>'
  334. ' <<$p_card[3]>>'
  335. ' <<$p_card[4]>>'
  336. 'busting! you lost.'
  337. ACT '...':
  338. turn = 0
  339. GT 'igrkart1'
  340. END
  341. END
  342. >>>>>>> 539_igrkart1
  343. END
  344. IF turn = 222:
  345. <<<<<<< 539_igrkart1
  346. CLA
  347. '<right><img src="images\casino\cartbde.jpg"></right>'
  348. 'The dealer deals one more card:'
  349. '...'
  350. suit = RAND(1,4)
  351. number = RAND(1,13)
  352. $p_card[5] = $number[number] + $suit[suit]
  353. p_points = p_points + points[number]
  354. wait 500
  355. IF p_points <= 21:
  356. 'Bank card:'
  357. '  <<$d_card[1]>>'
  358. '__________________________'
  359. 'Player Maps:'
  360. '  <<$p_card[1]>>'
  361. '  <<$p_card[2]>>'
  362. '  <<$p_card[3]>>'
  363. '  <<$p_card[4]>>'
  364. '  <<$p_card[5]>>'
  365. ACT 'Enough':
  366. turn = 3
  367. GT 'igrkart1'
  368. END
  369. END
  370. IF p_points > 21:
  371. 'Map of dealer:'
  372. '  <<$d_card[1]>>'
  373. '__________________________'
  374. 'Player Maps:'
  375. '  <<$p_card[1]>>'
  376. '  <<$p_card[2]>>'
  377. '  <<$p_card[3]>>'
  378. '  <<$p_card[4]>>'
  379. '  <<$p_card[5]>>'
  380. 'Bust! You lose.'
  381. ACT '...':
  382. turn = 0
  383. GT 'igrkart1'
  384. END
  385. END
  386. =======
  387. CLA
  388. '<right><img src="casino/cartbde.jpg" ></right>'
  389. 'The dealer deals one more card:'
  390. '...'
  391. suit = RAND (1,4)
  392. number = RAND (1,13)
  393. $p_card[5] = $number[number] + $suit[suit]
  394. p_points = p_points + points[number]
  395. wait 500
  396. IF p_points <= 21:
  397. 'Map banks:'
  398. ' <<$d_card[1]>>'
  399. '__________________________'
  400. 'Player Maps:'
  401. ' <<$p_card[1]>>'
  402. ' <<$p_card[2]>>'
  403. ' <<$p_card[3]>>'
  404. ' <<$p_card[4]>>'
  405. ' <<$p_card[5]>>'
  406. ACT 'enough':
  407. turn = 3
  408. GT 'igrkart1'
  409. END
  410. END
  411. IF p_points > 21:
  412. 'Map dealer:'
  413. ' <<$d_card[1]>>'
  414. '__________________________'
  415. 'Player Maps:'
  416. ' <<$p_card[1]>>'
  417. ' <<$p_card[2]>>'
  418. ' <<$p_card[3]>>'
  419. ' <<$p_card[4]>>'
  420. ' <<$p_card[5]>>'
  421. 'busting! you lost.'
  422. ACT '...':
  423. turn = 0
  424. GT 'igrkart1'
  425. END
  426. END
  427. >>>>>>> 539_igrkart1
  428. END
  429. <<<<<<< 539_igrkart1
  430. !ДОБОР КАРТ БАНКУЮЩИМ
  431. IF turn = 3:
  432. CLA
  433. '<right><img src="images\casino\cartbde.jpg"></right>'
  434. 'Dealer gets cards:'
  435. '...'
  436. suit = RAND(1,4)
  437. number = RAND(1,13)
  438. $d_card[2] = $number[number] + $suit[suit]
  439. d_points = d_points + points[number]
  440. IF p_points = 22: p_points = 21
  441. wait 500
  442. IF d_points >= 17:
  443. 'Bank cards:'
  444. '  <<$d_card[1]>>'
  445. '  <<$d_card[2]>>'
  446. 'Points dealer: <<d_points>>'
  447. '__________________________'
  448. 'Player Points <<p_points>>'
  449. '__________________________'
  450. IF d_points > p_points:
  451. 'Casinos won'
  452. ACT '...':
  453. turn = 0
  454. GT 'igrkart1'
  455. END
  456. END
  457. IF d_points = p_points:
  458. 'Draw'
  459. ACT 'Take a bet':
  460. set money += deal
  461. turn = 0
  462. GT 'igrkart1'
  463. END
  464. END
  465. IF d_points < p_points:
  466. 'Player won'
  467. prise = deal * 2
  468. ACT 'Pick up the win <<prise>> rub.':
  469. set money += prise
  470. turn = 0
  471. GT 'igrkart1'
  472. END
  473. END
  474. END
  475. IF d_points < 17:
  476. suit = RAND(1,4)
  477. number = RAND(1,13)
  478. $d_card[3] = $number[number] + $suit[suit]
  479. d_points = d_points + points[number]
  480. IF d_points <= 21:
  481. 'The dealer´s cards:'
  482. '  <<$d_card[1]>>'
  483. '  <<$d_card[2]>>'
  484. '  <<$d_card[3]>>'
  485. 'Points dealer: <<d_points>>'
  486. '__________________________'
  487. 'Player Points <<p_points>>'
  488. '__________________________'
  489. IF d_points > p_points:
  490. 'Casinos won'
  491. ACT '...':
  492. turn = 0
  493. GT 'igrkart1'
  494. END
  495. END
  496. IF d_points = p_points:
  497. 'Draw'
  498. ACT 'Take a bet':
  499. set money += deal
  500. turn = 0
  501. GT 'igrkart1'
  502. END
  503. END
  504. IF d_points < p_points:
  505. 'Player won'
  506. prise = deal * 2
  507. ACT 'Pick up the win <<prise>> rub.':
  508. set money += prise
  509. turn = 0
  510. GT 'igrkart1'
  511. END
  512. END
  513. END
  514. IF d_points > 21:
  515. 'The dealer´s cards:'
  516. '  <<$d_card[1]>>'
  517. '  <<$d_card[2]>>'
  518. '  <<$d_card[3]>>'
  519. '__________________________'
  520. 'Busting!'
  521. '__________________________'
  522. 'Player won'
  523. prise = deal * 2
  524. ACT 'Pick up the win <<prise>> rub.':
  525. set money += prise
  526. turn = 0
  527. GT 'igrkart1'
  528. END
  529. END
  530. END
  531. =======
  532. !Transoms Bank`s cards
  533. IF turn = 3:
  534. CLA
  535. '<right><img src="casino/cartbde.jpg" ></right>'
  536. 'The dealer gets the card:'
  537. '...'
  538. suit = RAND (1,4)
  539. number = RAND (1,13)
  540. $d_card[2] = $number[number] + $suit[suit]
  541. d_points = d_points + points[number]
  542. IF p_points = 22: p_points = 21
  543. wait 500
  544. IF d_points => 17:
  545. 'Maps of the Bank:'
  546. ' <<$d_card[1]>>'
  547. ' <<$d_card[2]>>'
  548. 'Points dealer: <<d_points>>'
  549. '__________________________'
  550. 'Player Points: <<p_points>>'
  551. '__________________________'
  552. IF d_points > p_points:
  553. 'casino won'
  554. ACT '...':
  555. turn = 0
  556. GT 'igrkart1'
  557. END
  558. END
  559. IF d_points = p_points:
  560. 'draw'
  561. ACT 'pick rate':
  562. set money = money + deal
  563. turn = 0
  564. GT 'igrkart1'
  565. END
  566. END
  567. IF d_points < p_points:
  568. 'player won'
  569. prise = deal*2
  570. ACT 'take the win <<prise>> RUB.':
  571. set money = money + prise
  572. turn = 0
  573. GT 'igrkart1'
  574. END
  575. END
  576. END
  577. IF d_points < 17:
  578. suit = RAND (1,4)
  579. number = RAND (1,13)
  580. $d_card[3] = $number[number] + $suit[suit]
  581. d_points = d_points + points[number]
  582. IF d_points <= 21:
  583. 'Maps dealer:'
  584. ' <<$d_card[1]>>'
  585. ' <<$d_card[2]>>'
  586. ' <<$d_card[3]>>'
  587. 'Points dealer: <<d_points>>'
  588. '__________________________'
  589. 'Player Points: <<p_points>>'
  590. '__________________________'
  591. IF d_points > p_points:
  592. 'casino won'
  593. ACT '...':
  594. turn = 0
  595. GT 'igrkart1'
  596. END
  597. END
  598. IF d_points = p_points:
  599. 'draw'
  600. ACT 'pick rate':
  601. set money = money + deal
  602. turn = 0
  603. GT 'igrkart1'
  604. END
  605. END
  606. IF d_points < p_points:
  607. 'player won'
  608. prise = deal*2
  609. ACT 'take the win <<prise>> RUB.':
  610. set money = money + prise
  611. turn = 0
  612. GT 'igrkart1'
  613. END
  614. END
  615. END
  616. IF d_points > 21:
  617. 'Maps dealer:'
  618. ' <<$d_card[1]>>'
  619. ' <<$d_card[2]>>'
  620. ' <<$d_card[3]>>'
  621. '__________________________'
  622. 'busting!!!'
  623. '__________________________'
  624. 'player won'
  625. prise = deal*2
  626. ACT 'take the win <<prise>> RUB.':
  627. set money = money + prise
  628. turn = 0
  629. GT 'igrkart1'
  630. END
  631. END
  632. END
  633. >>>>>>> 539_igrkart1
  634. END
  635. --- igrkart1 ---------------------------------