# igrkart1
!by Master Set (blakarchont@gmail.com)
!НАЧАЛО ИГРЫ
clr
gs 'stat'
set minut += 5
IF turn = 0:
CLA
''
' Please give me your bets, gentlemen.'
ACT 'IPod':
deal = input 'Enter the amount'
if money < deal:
msg 'You have enough money'
gt 'igrkart1'
end
if deal < 0:
msg 'Wrong, try again.'
gt 'igrkart1'
end
if deal > 1000:
msg 'The maximum rate of 1000 rubles.'
gt 'igrkart1'
end
set money -= deal
turn = 1
GT 'igrkart1'
END
ACT 'Move away from the table':
GT 'bldzh'
END
END
!РАЗДАЧА КАРТ
IF turn = 1:
CLA
''
' 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 = p_points + points[number]
IF p_points = 22: p_points = 21
wait 1000
IF 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
END
IF p_points = 21:
'Map of dealer:'
' <<$d_card[1]>>'
'__________________________'
'Player Maps:'
' <<$p_card[1]>>'
' <<$p_card[2]>>'
'BLACK JACK!'
prise = deal * 3
ACT 'Pick up the win <> rub.':
set money += prise
turn = 0
GT 'igrkart1'
END
END
END
!ДОПОЛНИТЕЛЬНАЯ КАРТА
IF turn = 2:
CLA
''
'The dealer deals one more card:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$p_card[3] = $number[number] + $suit[suit]
p_points = 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
END
IF 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
''
'The dealer deals one more card:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$p_card[4] = $number[number] + $suit[suit]
p_points = 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
END
IF 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
''
'The dealer deals one more card:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$p_card[5] = $number[number] + $suit[suit]
p_points = p_points + points[number]
wait 500
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
END
IF 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
!ДОБОР КАРТ БАНКУЮЩИМ
IF turn = 3:
CLA
''
'Dealer gets cards:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$d_card[2] = $number[number] + $suit[suit]
d_points = d_points + points[number]
IF p_points = 22: p_points = 21
wait 500
IF d_points >= 17:
'Bank cards:'
' <<$d_card[1]>>'
' <<$d_card[2]>>'
'Points dealer: <>'
'__________________________'
'Player Points <>'
'__________________________'
IF d_points > p_points:
'Casinos won'
ACT '...':
turn = 0
GT 'igrkart1'
END
END
IF d_points = p_points:
'Draw'
ACT 'Take a bet':
set money += deal
turn = 0
GT 'igrkart1'
END
END
IF d_points < p_points:
'Player won'
prise = deal * 2
ACT 'Pick up the win <> rub.':
set money += prise
turn = 0
GT 'igrkart1'
END
END
END
IF d_points < 17:
suit = RAND(1,4)
number = RAND(1,13)
$d_card[3] = $number[number] + $suit[suit]
d_points = d_points + points[number]
IF d_points <= 21:
'The dealer´s cards:'
' <<$d_card[1]>>'
' <<$d_card[2]>>'
' <<$d_card[3]>>'
'Points dealer: <>'
'__________________________'
'Player Points <>'
'__________________________'
IF d_points > p_points:
'Casinos won'
ACT '...':
turn = 0
GT 'igrkart1'
END
END
IF d_points = p_points:
'Draw'
ACT 'Take a bet':
set money += deal
turn = 0
GT 'igrkart1'
END
END
IF d_points < p_points:
'Player won'
prise = deal * 2
ACT 'Pick up the win <> rub.':
set money += prise
turn = 0
GT 'igrkart1'
END
END
END
IF d_points > 21:
'The dealer´s cards:'
' <<$d_card[1]>>'
' <<$d_card[2]>>'
' <<$d_card[3]>>'
'__________________________'
'Busting!'
'__________________________'
'Player won'
prise = deal * 2
ACT 'Pick up the win <> rub.':
set money += prise
turn = 0
GT 'igrkart1'
END
END
END
END
--- igrkart1 ---------------------------------