glife/locations/billiard

# billiard
$sexloc = $CURLOC
cla
*clr
gs 'stat'
'<center><b>Pool</b></center>'
'<center><img src="images/img/centr/bil.jpg"></center>'
'Quite a large billiard room, there are plenty of tables in the hall, but there are tables in individual cubicles.'

act 'Leave':gt 'torgcentr'

if hour >= 8 and hour <= 20:
	if money >= 250:
		act 'Play 250 rubles (1:00)':
			set money -= 250
			set billiardnav += rand(0, 3)
			set minut += 60
			set billrand = rand(0, 5)
			set billvar = 0

			if billrand = 0:
				cla
				'It suits you and the guy offers to play with him'

				if money >= 1000:act 'Gamble, bet 1000':gt 'billiard', 'randwin'

				if DOM > 20 and strapon = 1:
					act 'Play on your ass, fuck me lose':
						set billvar = 1
						gt 'billiard', 'randwin'
					end
				end

				act 'Leave':gt 'billiard'
			end

			if billrand = 1:
				cla
				'It suits you and offer a couple of guys to play with them'

				if money >= 1000:act 'Gamble, bet 1000':gt 'billiard', 'randwin'

				if DOM > 20 and strapon = 1:
					act 'Play on your ass, fuck me lose':
						set billvar = 2
						gt 'billiard', 'randwin'
					end
				end

				act 'Leave':gt 'billiard'
			end

			if billrand > 1:
				cla
				'You played billiards'

				act 'Leave':gt 'billiard'
			end
		end
	end

	if money >= 300:
		act 'Play for money':
			set money -= 300
			set minut += 60
			set billvar = 3
			gt 'billiard', 'randwin'
		end
	end
end

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

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

	if billwin > 10 and billvar = 0:
		set money += 1000
		'You won and received 1,000 rubles.'

		act 'Leave':gt 'billiard'
	end

	if billwin > 10 and billvar = 1:
		*clr
		set DOM += 5
		'<center><img src="images/img/centr/strapon.jpg"></center>'
		'You win, put a strap, and looked at the guy, "Well stand stoop, today you´re my bitch"'
		'The guy dropped his pants and got cancer, you fucked his threesome.'

		act 'Leave':gt 'billiard'
	end

	if billwin > 10 and billvar = 2:
		set DOM += 8
		'<center><img src="images/img/centr/strapon.jpg"></center>'
		'You won dressed strap, and looked at the guys:"Come on girls panties descend and rise at all, I now this whole harem going to fuck"'
		'You fucked them all in turn.'

		act 'Leave':gt 'billiard'
	end

	if billwin <= 10 and billvar = 0:
		set money -= 1000
		'You lost and paid 1,000 rubles.'

		act 'Leave':gt 'billiard'
	end

	if billwin <= 10 and billvar = 1:
		'You lose, will push the legs.'
		set picrand = 16

		act 'Pay':xgt 'sex', 'var'
	end

	if billwin <= 10 and billvar = 2:
		'You lose, will push the legs.'

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

	if billwin > 10 and billvar = 3:
		set money += 300
		'You won and got 300 rubles.'

		act 'Leave':gt 'billiard'
	end

	if billwin <= 10 and billvar = 3:
		!!set money -= 300
		'You lost and paid 300 rubles.'

		act 'Leave':gt 'billiard'
	end
end

if $ARGS[0] = 'start':
	'<center><b>Pool</b></center>'
	'<center><img src="images/img/centr/bil.jpg"></center>'

	act 'Leave':gt 'billiard'
end

--- billiard ---------------------------------