glife/locations/407_igrkart1

# igrkart1
!by Master Set ([email protected])
!НАЧАЛО ИГРЫ
clr
gs 'stat'
set minut += 5
IF turn = 0:
CLA
'<right><img src="images\casino\stavkacw.jpg"></right>'
' 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
'<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 = 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 <<prise>> rub.':
set money += prise
turn = 0
GT 'igrkart1'
END
END

END

!ДОПОЛНИТЕЛЬНАЯ КАРТА
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 = 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
'<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 = 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
'<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 = 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
'<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 = 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: <<d_points>>'
'__________________________'
'Player Points <<p_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 <<prise>> 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: <<d_points>>'
'__________________________'
'Player Points <<p_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 <<prise>> 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 <<prise>> rub.':
	set money += prise
	turn = 0
	GT 'igrkart1'
END
END
END
END
--- igrkart1 ---------------------------------