glife/locations/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 2,000 rubles.'

		act 'Leave':gt 'torgcentr'
	end

	if boulwin > 10 and boulvar = 2:
		set money += 5000
		'You won and received 5,000 rubles.'

		act 'Leave':gt 'torgcentr'
	end

	if boulwin <= 10 and boulvar = 1:
		set picrand = 14

		if money >= 2000:
			'You lose and have to pay 2,000 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 ---------------------------------