glife/locations/bouling.qsrc

# bouling

if $ARGS[0] = 'start' or $ARGS[0] = '':
	$sexloc = $CURLOC
	*clr & cla
	$loc = 'bouling'
	$metka = 'start'
	$menu_loc = 'bouling'
	$menu_arg = 'start'
	menu_off = 0
	$location_type = 'public_indoors'
	gs 'stat'
	'<center><b>Bowling</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/boul.jpg"></center>'

	act 'Leave':gt 'torgcentr'

	if hour >= 8 and hour <= 20:
		act 'Play (300 <b>₽</b>) (1:00)':
			if money < 300:
				'You don''t have enough money.'
			else
				menu_off = 1
				money -= 300
				minut += 60
				boulvar = 0
				boulingnav += rand(0, 3)
				boulrand = rand(0, 9)

				gs 'npcgeneratec', 0, 'Bowling Player', rand(18,40)
				$boy[0] = $npclastgenerated
				$boydesc[0] = $npc_usedname[$npclastgenerated]
				gs 'npcgeneratec', 0, 'Bowling Player', rand(18,40)
				$boy[1] = $npclastgenerated
				$boydesc[1] = $npc_usedname[$npclastgenerated]
				gs 'stat'
				
				act 'Leave': gt 'bouling'
				
				if boulrand = 0:
					cla
					'You see two guys and they challenge you to a game.'
					act 'Gamble (2000 <b>₽</b>)':boulvar = 1 & gt 'bouling', 'randwin'	
				elseif boulrand = 1:
					cla
					'You meet two girls and they suggest challenging two guys to a game: Prize 5000 <b>₽</b>, lose and they have sex with you.'
					act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
				elseif boulrand > 1:
					cla
					'You play a game.'
				end
			end
		end

		if money >= 300:
			act 'Play for money (300 <b>₽</b>) (1:00)':
				menu_off = 1
				money -= 300
				minut += 60
				boulvar = 0
				gs 'stat'
				gt 'bouling', 'randwin'
			end
		end
	end
end

if $ARGS[0] = 'randwin':
	cla

	if boulingnav < 10:boulwin = rand(0, 10)
	if boulingnav >= 10 and boulingnav < 20:boulwin = rand(0, 12)
	if boulingnav >= 20 and boulingnav < 30:boulwin = rand(0, 14)
	if boulingnav >= 30 and boulingnav < 40:boulwin = rand(0, 16)
	if boulingnav >= 40 and boulingnav < 50:boulwin = rand(0, 18)
	if boulingnav >= 50 and boulingnav < 60:boulwin = rand(0, 20)
	if boulingnav >= 60 and boulingnav < 70:boulwin = rand(0, 22)
	if boulingnav >= 70 and boulingnav < 80:boulwin = rand(0, 24)
	if boulingnav >= 80 and boulingnav < 90:boulwin = rand(0, 26)
	if boulingnav >= 90:boulwin = rand(0, 28)

	if boulwin > 10 and boulvar = 0:
		money += 300
		'You won and received 300 <b>₽</b>.'

		act 'Leave': gt 'bouling'
	elseif boulwin > 10 and boulvar = 1:
		money += 2000
		'You won and received 2,000 <b>₽</b>.'

		act 'Leave': gt 'bouling'
	elseif boulwin > 10 and boulvar = 2:
		money += 5000
		'You won and received 5,000 <b>₽</b>.'

		act 'Leave': gt 'bouling'
	elseif boulwin <= 10 and boulvar = 0:
		money -= 300
		'You lost and paid 300 <b>₽</b>.'
		act 'Leave': gt 'bouling'
	elseif boulwin <= 10 and boulvar = 1:
		picrand = 14

		if money >= 2000:
			'You lose and have to pay 2,000 <b>₽</b>.'

			act 'Offer sex instead':xgt 'sexdvoe', 'var'
			act 'Pay': money -= 2000 & gt 'bouling'
		else
			'You lost, but you do not have money to pay, only one thing for it.'

			act 'Offer sex instead':xgt 'sexdvoe', 'var'
		end
	elseif boulwin <= 10 and boulvar = 2:
		picrand = 11
		'You lose, open those legs.'

		act 'Pay':gt 'sexorg', 'var'
	end
end

--- bouling ---------------------------------