123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339 |
- # igrkart1
- !!by Master Set ([email protected])
- !!HOME GAMES
- clr
- minut += 5
- gs 'stat'
- if turn = 0:
- cla
- '<right><img src="images/casino/stavkacw.jpg"></right>'
- ' Please give me your bets, gentlemen.'
- act 'Make a bet':
- money -= deal
- turn = 1
- deal = input 'Enter the amount'
- if money < deal:
- msg 'You have enough money'
- gt 'igrkart1'
- elseif deal < 0:
- msg 'Wrong, try again.'
- gt 'igrkart1'
- elseif deal > 1000:
- msg 'The maximum rate of 1000 <b>₽</b>.'
- gt 'igrkart1'
- end
- gt 'igrkart1'
- end
- act 'Move away from the table':gt 'bldzh'
- end
- !!the cards are dealt
- if turn = 1:
- cla
- '<right><img src="images/casino/cartbd.jpg"></right>'
- ' The dealer deals the cards:'
- '...'
- suit = rand(1, 4)
- number = rand(1, 13)
- $d_card[1] = $number[number] + $suit[suit]
- d_points = points[number]
- suit = rand(1, 4)
- number = rand(1, 13)
- $p_card[1] = $number[number] + $suit[suit]
- p_points = points[number]
- suit = rand(1, 4)
- number = rand(1, 13)
- $p_card[2] = $number[number] + $suit[suit]
- p_points += points[number]
- if p_points = 22:
- p_points = 21
- elseif p_points < 21:
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- act 'Enough':
- turn = 3
- gt 'igrkart1'
- end
- act 'Another card':
- turn = 2
- gt 'igrkart1'
- end
- elseif p_points = 21:
- prise = deal * 3
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- 'BLACK JACK!'
- act 'Pick up the win (<<prise>> <b>₽</b>)':
- money += prise
- turn = 0
- gt 'igrkart1'
- end
- end
- end
- !!Additional cards
- if turn = 2:
- cla
- '<right><img src="images/casino/cartbde.jpg"></right>'
- 'The dealer deals one more card:'
- '...'
- suit = rand(1, 4)
- number = rand(1, 13)
- $p_card[3] = $number[number] + $suit[suit]
- p_points += points[number]
- if p_points <= 21:
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- ' <<$p_card[3]>>'
- act 'Enough':
- turn = 3
- gt 'igrkart1'
- end
- act 'Another card':
- turn = 22
- gt 'igrkart1'
- end
- elseif p_points > 21:
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- ' <<$p_card[3]>>'
- 'Bust! You lose.'
- act '...':
- turn = 0
- gt 'igrkart1'
- end
- end
- end
- if turn = 22:
- cla
- '<right><img src="images/casino/cartbde.jpg"></right>'
- 'The dealer deals one more card:'
- '...'
- suit = rand(1, 4)
- number = rand(1, 13)
- $p_card[4] = $number[number] + $suit[suit]
- p_points += points[number]
- if p_points <= 21:
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- ' <<$p_card[3]>>'
- ' <<$p_card[4]>>'
- act 'Enough':
- turn = 3
- gt 'igrkart1'
- end
- act 'Another card':
- turn = 222
- gt 'igrkart1'
- end
- elseif p_points > 21:
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- ' <<$p_card[3]>>'
- ' <<$p_card[4]>>'
- 'Bust! You lose.'
- act '...':
- turn = 0
- gt 'igrkart1'
- end
- end
- end
- if turn = 222:
- cla
- '<right><img src="images/casino/cartbde.jpg"></right>'
- 'The dealer deals one more card:'
- '...'
- suit = rand(1, 4)
- number = rand(1, 13)
- $p_card[5] = $number[number] + $suit[suit]
- p_points += points[number]
- if p_points <= 21:
- 'Bank card:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- ' <<$p_card[3]>>'
- ' <<$p_card[4]>>'
- ' <<$p_card[5]>>'
- act 'Enough':
- turn = 3
- gt 'igrkart1'
- end
- elseif p_points > 21:
- 'Map of dealer:'
- ' <<$d_card[1]>>'
- '__________________________'
- 'Player Maps:'
- ' <<$p_card[1]>>'
- ' <<$p_card[2]>>'
- ' <<$p_card[3]>>'
- ' <<$p_card[4]>>'
- ' <<$p_card[5]>>'
- 'Bust! You lose.'
- act '...':
- turn = 0
- gt 'igrkart1'
- end
- end
- end
- !!Transoms Bank''s cards
- if turn = 3:
- cla
- '<right><img src="images/casino/cartbde.jpg"></right>'
- 'Dealer gets cards:'
- '...'
- suit = rand(1, 4)
- number = rand(1, 13)
- $d_card[2] = $number[number] + $suit[suit]
- d_points += points[number]
- if p_points = 22:
- p_points = 21
- elseif d_points >= 17:
- 'Bank cards:'
- ' <<$d_card[1]>>'
- ' <<$d_card[2]>>'
- 'Points dealer:<<d_points>>'
- '__________________________'
- 'Player Points <<p_points>>'
- '__________________________'
- if d_points > p_points:
- 'Casinos won'
- act '...':
- turn = 0
- gt 'igrkart1'
- end
- elseif d_points = p_points:
- 'Draw'
- act 'Take a bet':
- money += deal
- turn = 0
- gt 'igrkart1'
- end
- elseif d_points < p_points:
- 'Player won'
- prise = deal * 2
- act 'Pick up the win (<<prise>> <b>₽</b>).':
- money += prise
- turn = 0
- gt 'igrkart1'
- end
- end
- elseif d_points < 17:
- suit = rand(1, 4)
- number = rand(1, 13)
- $d_card[3] = $number[number] + $suit[suit]
- d_points += points[number]
- if d_points <= 21:
- 'The dealer''s cards:'
- ' <<$d_card[1]>>'
- ' <<$d_card[2]>>'
- ' <<$d_card[3]>>'
- 'Points dealer:<<d_points>>'
- '__________________________'
- 'Player Points <<p_points>>'
- '__________________________'
- if d_points > p_points:
- 'Casinos won'
- act '...':
- turn = 0
- gt 'igrkart1'
- end
- elseif d_points = p_points:
- 'Draw'
- act 'Take a bet':
- money += deal
- turn = 0
- gt 'igrkart1'
- end
- elseif d_points < p_points:
- 'Player won'
- prise = deal * 2
- act 'Pick up the win (<<prise>> <b>₽</b>).':
- money += prise
- turn = 0
- gt 'igrkart1'
- end
- end
- elseif d_points > 21:
- prise = deal * 2
- 'The dealer''s cards:'
- ' <<$d_card[1]>>'
- ' <<$d_card[2]>>'
- ' <<$d_card[3]>>'
- '__________________________'
- 'Busting!'
- '__________________________'
- 'Player won'
- act 'Pick up the win (<<prise>> <b>₽</b>)':
- money += prise
- turn = 0
- gt 'igrkart1'
- end
- end
- end
- end
- --- igrkart1 ---------------------------------
|