glife/locations/104_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 1000 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 1000 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 ---------------------------------