glife/locations/108_bouling

# bouling
$sexloc = $CURLOC
gs 'stat'
'<center><B>Bowling</B></center>'
'<center><img src="images\img\centr\boul.jpg"></center>'

act 'Leave': gt 'torgcentr'
if hour >= 8 and hour <= 20:
act 'Play 300 rubles (1:00)':
	if money < 300: 'You have no money'
	if money >= 300:
		set money -= 300
		set boulingnav += rand(0,3)
		set minut += 60
		set boulrand = rand(0,9)
		set boulvar = 0
		if boulrand = 0:
			cla
			'To suit you two guys and offer to play with them'
			act 'Gamble, bet 2000': set boulvar = 1 & gt 'bouling','randwin'
			act 'Leave': gt 'torgcentr'
			end
		if boulrand = 1:
			cla
			'To suit you two girls and offer to play with them against two guys prize 5000, at a loss of sex.'
			act 'Play': set boulvar = 2 & gt 'bouling','randwin'
			act 'Leave': gt 'torgcentr'
			end
		if boulrand > 1:
			cla
			'You played billiards'
			act 'Leave': gt 'torgcentr'
			end
		end
	end
if money >= 300:
	act 'Play for money':
		set money -= 300
		set minut += 60
		set boulvar = 0
		gt 'bouling','randwin'
		end
	end
end

if $ARGS[0] = 'randwin':
cla
if boulingnav < 10: set boulwin = rand(0,10)
if boulingnav >= 10 and boulingnav < 20: set boulwin = rand(0,12)
if boulingnav >= 20 and boulingnav < 30: set boulwin = rand(0,14)
if boulingnav >= 30 and boulingnav < 40: set boulwin = rand(0,16)
if boulingnav >= 40 and boulingnav < 50: set boulwin = rand(0,18)
if boulingnav >= 50 and boulingnav < 60: set boulwin = rand(0,20)
if boulingnav >= 60 and boulingnav < 70: set boulwin = rand(0,22)
if boulingnav >= 70 and boulingnav < 80: set boulwin = rand(0,24)
if boulingnav >= 80 and boulingnav < 90: set boulwin = rand(0,26)
if boulingnav >= 90: set boulwin = rand(0,28)
if boulwin > 10 and boulvar = 1:
	set money += 2000
	'You won and received 2000 rubles.'
	act 'Leave': gt 'torgcentr'
	end
if boulwin > 10 and boulvar = 2:
	set money += 5000
	'You won and received 5000 rubles.'
	act 'Leave': gt 'torgcentr'
	end
if boulwin <= 10 and boulvar = 1:
	set picrand = 14
	if money >= 2000:
		'You lose and have to pay 2000 rubles.'
		act 'Offer in-kind': xgt 'sexdvoe','var'
		act 'Pay':
			set money -= 2000
			gt 'torgcentr'
			end
		end
	if money < 2000:
		'You lost, but you do not have money to pay, only one payment method.'
		act 'In kind': xgt 'sexdvoe','var'
		end
	end
if boulwin <= 10 and boulvar = 2:
	set picrand = 11
	'You lose, will push the legs.'
	act 'Pay': gt 'sexorg','var'
	end
if boulwin > 10 and boulvar = 0:
	set money += 300
	'You won and got 300 rubles.'
	act 'Leave': gt 'torgcentr'
	end
if boulwin <= 10 and boulvar = 0:
	!set money -= 300
	'You lost and paid 300 rubles.'
	act 'Leave': gt 'torgcentr'
	end
end

if $ARGS[0] = 'start':
'<center><B>Bowling</B></center>'
'<center><img src="images\img\centr\boul.jpg"></center>'
act 'Leave': gt 'bouling'
end
--- bouling ---------------------------------