glife_beastfert/locations/toilet

# toilet
if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	$ImageNeededPlacholder
	! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/cabin.jpg"></center>'
	'Do you hear any noises at some of the booths ...'

	act 'Come up with a toilet':
		cla
		minut += 5
		gt 'sexshop', 'podval'
	end

	act 'Look at each booth':
		cla
		clr
		*clr
		gs 'stat'
		$ImageNeededPlacholder
		! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/pry_1.jpg"></center>'
		'You looked into the booth and all ....'
		toisexrand = rand(0, 100)

		if toisexrand < 66 :
			act 'And anyone not found ...':
				minut += 10
				cla
				clr
				*clr
				gs 'stat'
				$ImageNeededPlacholder
				! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/cabin_0.jpg"></center>'
				'And all the booths were empty'

				act 'Come up with a toilet':gt 'sexshop', 'podval'
			end
		elseif toisexrand >= 66 :
			act 'Saw a naked girl masturbating ....':
				toigirlrand = rand(1, 2)

				if toigirlrand = 1:
					minut += 10
					cla
					clr
					*clr
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_1.jpg"></center>'
					'You know her, this girl watched porn in the next stall ....'
					'You have enabled cell phone and started filming herself as she caresses ...'

					act 'Enter into the booth and show that bitch ....':gt 'toilet', '1'
					act 'You took a good movie on a mobile phone and gone ...':gt 'toilet', '0'
				elseif toigirlrand = 2:
					minut += 10
					cla
					clr
					*clr
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_1.jpg"></center>'
					'You know her - this girl watched porn in the next stall ....'
					'You have enabled cell phone and started filming herself as she caresses ...'

					act 'Enter into the booth and show that bitch ....':gt 'toilet', '2'
					act 'You took a good movie on a mobile phone and gone ...':gt 'toilet', '0'
				end
			end
		end
	end
end

if $ARGS[0] = '0':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	clr
	*clr
	minut += 10
	horny = horny + 50
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	$ImageNeededPlacholder
	! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/pornjrolik.jpg"></center>'
	'Finding and viewing movies on your phone you are very excited ...'

	act 'Delete movie and walk out basement ...':gt 'sexshop', 'start'

	act 'Sell ​​clip on one of the porn sites ...!':
		cla
		*clr
		bankfond = bankfond + 1000
		$ImageNeededPlacholder
		! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/pornjrolik.jpg"></center>'
		'Uploading videos on the Internet, you sold it to porn site for 1000 rubles!'
		'You transferred the money to the account ...'

		act 'Walk out basement ...':gt 'sexshop', 'start'
	end
end

if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	*clr
	clr
	gs 'stat'
	gs 'time'
	$ImageNeededPlacholder
	! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_2.jpg"></center>'
	'You knocked on the stall and she opened the door a little delay'
	'She had to get dressed, but her cheeks were glowing eyes and ran - she realized that he slept ...'
	'You:- Well, what a good rest? I wrote down all your pranks on mobile ...'
	'She:- Why? What do you want?'
	'You:- Are you rested? And I want to relax again ... So take off your clothes and do what I say ...'
	'Otherwise, it is a video on the Internet today is! Gee-gee-gee ...'

	act 'She agreed and took off her bra ...':
		cla
		*clr
		$ImageNeededPlacholder
		! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_3.jpg"></center>'
		'Nipples on her small breasts excitedly sticking ...'
		'Looking at her you excited and your cock swollen ...'
		'She looked at you and waiting for further orders ....'
		'You:- Take off your pants and kiss my dick ...'

		act '...':
			cla
			*clr
			$ImageNeededPlacholder
			! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_4.jpg"></center>'
			'Removing panties she got down on her knees and kiss your cock ...'
			'Kissing is certainly nice, but I want a good suction ...'

			act 'Let ka kiddie more active ....':
				cla
				*clr
				$ImageNeededPlacholder
				! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_5.jpg"></center>'
				'She began actively otsayvat you ...'
				'You are excited and want to shove her cock in my mouth a little deeper ....'

				act 'Put in your mouth most tomatoes ...':
					cla
					*clr
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_6.jpg"></center>'
					'You are rude and started to fuck her deep in her mouth ...'
					'Probably need to try it with coarser ...'

					act 'Swat hair and bend to the toilet ...':
						cla
						*clr
						$ImageNeededPlacholder
						! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_7.jpg"></center>'
						'Bent his head to the toilet you started to insult her ...'
						'You called her a dirty whore and her slave ...'
						'Bitch was excited and kept saying:- Yes, my lord!'

						act 'Dunk your head in the toilet and wash ...':
							cla
							*clr
							$ImageNeededPlacholder
							! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_8.jpg"></center>'
							'You okunli her head in the ass ...'
							'She was trembling with excitement and asked her to cum in her mouth ...'

							act 'Give her suck ...':
								cla
								*clr
								$ImageNeededPlacholder
								! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_9.jpg"></center>'
								'She began to masturbate you substituting your sexy mouth ...'
								'Reaching the peak of excitement you removed it aside ...'
								'You:- Get on your knees bitch! Open your mouth and wait!'

								act '...':
									cla
									*clr
									$ImageNeededPlacholder
									! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_10.jpg"></center>'
									'He dutifully stood up and looking into your eyes waited for the apogee ...'
									'You discharge of semen in her mouth, and a few drops fell on the rim of the toilet ...'
									'Continuing to play the role of the Master, you said ...'

									act '- Swallow the whole sperm and lick the toilet bowl ...':
										horny = 0
										girl += 1
										minut += 30
										sexm = sexm + 1
										manna = manna + 25
										cla
										*clr
										clr
										gs 'stat'
										$ImageNeededPlacholder
										! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_11.jpg"></center>'
										'Resignedly she began to lick clean the toilet ...'
										'And you thought:"Do not offer if she participated in the filming of" ...'
										'Judging by her inclination to obey - it could play in the genre BDSM'
										'These films are more expensive than usual, and actresses such genre is not enough ...'
										'You:- Listen sweetheart! You''re gorgeous! I have a proposal for you ...'

										act 'I needed an actress in the genre BDSM':
											BDSMactressrand = rand(1, 2)
												if BDSMactressrand = 1:
													cla
													*clr
													BDSMactress = BDSMactress + 1
													$ImageNeededPlacholder
													! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_1_1.jpg"></center>'
													'It:- This is an interesting aredlozhenie. Where and when?'
													'You:- Come to the casting on Saturday! Shooting on Sundays!'
													'She:- I agree!'
													'You:- I am very pleased'

													act 'Here, take a business card! And to meet ...':gt 'sexshop', 'start'
												end

												if BDSMactressrand = 2:
												cla
												*clr
												$ImageNeededPlacholder
												! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/oblom_1.jpg"></center>'
												'She:- Fuck you for dick! Goat!'
												'You:Honey, what are you so? I thought you like domination!'
												'She:- Yes, I fear with almost peed - thought you were some kind of maniac!'
												'You:- Well, sorry neponyatochka out! Video phone I remove as dogovorivatsya!'

												act 'Go ...':
													cla
													*clr
													bankfond = bankfond + 1000
													$ImageNeededPlacholder
													! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/pornjrolik.jpg"></center>'
													'- That''s because of a bitch! - You might think ....'
													'You I still become a star! Though on the Internet!'
													'And finding a movie on your phone, sold it to one of the porn sites for 1000 rubles!'
													'You transferred the money to the account ...'

													act 'Walk out basement':gt 'sexshop', 'start'
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '2':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	*clr
	clr
	gs 'stat'
	gs 'time'
	$ImageNeededPlacholder
	! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_2.jpg"></center>'
	'You knocked on the stall and she opened the door a little delay'
	'She had to get dressed, but her cheeks were glowing eyes and ran - she realized that he slept ...'
	'You:- Well, what a good rest? I wrote down all your pranks on mobile ...'
	'She:- Why? What do you want?'
	'You:- Are you rested? And I want to relax again ... So take off your clothes and do what I say ...'
	'Otherwise, it is a video on the Internet today is! Gee-gee-gee ...'

	act 'She agreed and took off her blouse ...':
		cla
		*clr
		$ImageNeededPlacholder
		! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_3.jpg"></center>'
		'Nipples on her small breasts excitedly sticking ...'
		'Looking at her you excited and your cock swollen ...'
		'She looked at you and waiting for further orders ....'
		'You:- Take off your pants and suck my dick ...'

		act '...':
			cla
			*clr
			$ImageNeededPlacholder
			! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_4.jpg"></center>'
			'Removing panties she knelt down and began to suck you dick ...'
			'It''s certainly nice, but I want a good suction ...'

			act 'Let ka kiddie more active ....':
				cla
				*clr
				$ImageNeededPlacholder
				! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_5.jpg"></center>'
				'She began actively otsayvat you ...'
				'You are excited and want to shove her cock in my mouth a little deeper ....'

				act 'Put in your mouth most tomatoes ...':
					cla
					*clr
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_6.jpg"></center>'
					'You are rude and started to fuck her deep in her mouth ...'
					'Probably need to try it with coarser ...'

					act 'Swat hair and bend to the toilet ...':
						cla
						*clr
						$ImageNeededPlacholder
						! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_7.jpg"></center>'
						'Bent his head to the toilet you started to insult her ...'
						'You called her a dirty whore and her slave ...'
						'You:- Female lick the toilet!'
						'She:- Yes my lord!'

						act 'Dunk your head in the toilet and wash ...':
							cla
							*clr
							$ImageNeededPlacholder
							! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_8.jpg"></center>'
							'You okunli her head in the ass ...'
							'She was trembling with excitement and asked her to cum in her mouth ...'

							act 'Give it a lick dick ...':
								cla
								*clr
								$ImageNeededPlacholder
								! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_9.jpg"></center>'
								'She began to lick your dick their sexual tongue ...'
								'Reaching the peak of excitement you finished in her mouth ...'
								'You:- swallow cum bitch! Open your mouth and show me how you did it!'

								act '...':
									cla
									*clr
									$ImageNeededPlacholder
									! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_10.jpg"></center>'
									'He dutifully swallowed and opened her mouth ...'
									'Have you checked - she really swallowed every drop posleedney ...'
									'You:- Well, ka bitch conducted on hand between your legs and show me ...'

									act '....':
										cla
										clr
										*clr
										horny = 0
										girl += 1
										minut += 30
										sexm = sexm + 1
										manna = manna + 25
										gs 'stat'
										$ImageNeededPlacholder
										! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_11.jpg"></center>'
										'Groaning she held her fingers on her pussy ...'
										'Sheath of her was full of grease - you can see that she was excited ...'
										'And you thought:"Do not offer if she participated in the filming of" ...'
										'Judging by her inclination to obey - it could play in the genre BDSM'
										'These films are more expensive than usual, and actresses such genre is not enough ...'
										'You:- Listen sweetheart! You''re gorgeous! I have a proposal for you ...'

										act 'I needed an actress in the genre BDSM':
											BDSMactressrand = rand(1, 2)

											if BDSMactressrand = 1:
												cla
												*clr
												BDSMactress = BDSMactress + 1
												$ImageNeededPlacholder
												! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/toisex_2_3.jpg"></center>'
												'It:- This is an interesting aredlozhenie. Where and when?'
												'You:- Come to the casting on Saturday! Shooting on Sundays!'
												'She:- I agree!'
												'You:- I am very pleased'

												act 'Here, take a business card! And to meet ...':gt 'sexshop', 'start'
											elseif BDSMactressrand = 2:
												cla
												*clr
												$ImageNeededPlacholder
												! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/oblom_1.jpg"></center>'
												'She:- Fuck you for dick! Goat!'
												'You:Honey, what are you so? I thought you like domination!'
												'She:- Yes, I fear with almost peed - thought you were some kind of maniac!'
												'You:- Well, sorry neponyatochka out! Video phone I remove as dogovorivatsya!'

												act 'Go ...':
													cla
													*clr
													bankfond = bankfond + 1000
													$ImageNeededPlacholder
													! WD: IMAGE NEEDED ~ '<center><img src="images/toilet/pornjrolik.jpg"></center>'
													'- That''s because of a bitch! - You might think ....'
													'You I still become a star! Though on the Internet!'
													'And finding a movie on your phone, sold it to one of the porn sites for 1000 rubles!'
													'You transferred the money to the account ...'

													act 'Walk out basement':gt 'sexshop', 'start'
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

--- toilet ---------------------------------