# torgpred
gs 'stat'
'<center><b><font color="maroon">Trade Representative</font></b></center>'
'<center><img src="images/etogame/clener.jpg"></center>'
'Not a big cabinet in which are office desks and office equipment. In the office there is a door that says "Director"'
'One of the tables sits Stas, after another Vitali, for the third table sits a woman chief accountant.'

act 'Leave':gt 'clener', 'start'
if SVqw = 2:
	if TorgPredDay ! day:
		if TorgPredZ = 0 and TorgPredZV = 0:
			act 'Take the job':
				cls
				TorgPredZ = 3
				minut += 5
				TorgPredDay = day
				gs 'stat'
				'<center><img src="images/etogame/clener.jpg"></center>'
				'You came to Stas for the job. He smiled and handed you the paper. "Do not forget. Supermarkets three pieces. You need to arrange the items in all the supermarkets."'

				act 'Leave':gt 'clener', 'start'
			end
		end
	end

	if TorgPredZ = 0 and TorgPredZV = 3:
		act 'Get Money':
			cls
			TorgPredZV = 0
			minut += 5
			money += 500
			TPworkTimes += 1
			gs 'stat'
			'<center><img src="images/etogame/clener.jpg"></center>'
			'You came to Stas for money. He smiled and handed you 500 rubles'

			if StasikSex = 0:
				if TPworkTimes >= 3 and TPmainQW = 0 and mesec = 0:
					if ski > 0 or glamur > 0:
						'Stas interest asks "Well, how do you work?"'

						act 'Excellent!':
							cls
							TPmainQW = 1
							minut += 5
							gs 'stat'
							'<center><img src="images/etogame/clener.jpg"></center>'
							'You answered Stas that everything is fine and he smiled. "Our company is developing, and intelligent man there will be a place better. Way, let´s go to the cafe, you have not stamped for work."'

							act 'Agree':
								cls
								minut += 15
								gs 'stat'
								'<center><img src="images/etogame/clener.jpg"></center>'
								'You had to agree, as all your new job and prospects depend on Stas. Stas was delighted and made you in a cafe on the way talking about work. Café Stas gallantly pulled chair for you.'

								act 'Take':gt 'StasQW'
							end
						end

						act 'So-so.':
							cls
							TPmainQW = 1
							minut += 5
							gs 'stat'
							'<center><img src="images/etogame/clener.jpg"></center>'
							'You answered that Stas so-so and he grinned. "Our company is developing, and intelligent man there will be a place better. Way, let´s go to the cafe, you have not stamped for work."'

							act 'Agree':
								cls
								minut += 15
								gs 'stat'
								'<center><img src="images/etogame/clener.jpg"></center>'
								'You had to agree, as all your new job and prospects depend on Stas. Stas was delighted and made you in a cafe on the way talking about work. Café Stas gallantly pulled chair for you.'

								act 'Take':gt 'StasQW'
							end
						end
					end

					exit
				end
			end

			if TPmainQW = 1:
				if StasikSex > 0 and StVaGang = 0:''
				if StasikSex = 0:''
			end

			if StVaGang > 0:''

			act 'Leave':gt 'clener', 'start'
		end
	end
	 
	if TPmainQW = 1 and StasikSex > 0 and StVaGang = 0:
		'In view of Stas clearly glimpsed joy, when he sees you. in_a_low_voice, to not hear his colleagues are busy, it offers you to continue your relationship and start dating.'

		if bfa >= 1: 'you think, that your current boyfriend is unlikely to please, you accept this offer. Stas, of_course, very nice, but you first need to understand their current relationship.'

		if bfa < 1:
			act 'agree':
				'You answered Stas consent, to which he beamed and promised to call you back shortly.'
				TPmainQW = 2
				$boy = 'Stas'
				boybodyrand = 1
				$boybody = 'high'
				boybodrand = 1
				$boybod = 'thin'
				boyfacerand = 3
				$boyface = 'blond'
				dick = 15
				silavag = 1
				harakBoy = 1
				finance = 1
				vneshBoy = 1
				$boyClo = 'dressed in jeans and a sweater.'
				set figurBoy = rand(0, 2)
				set titBoy = rand(0, 2)
				set haerBoy = rand(0, 3)
				izvrat = 0
				gs'boyfrend','start'
				stopboy = 0
				bfa = 70
				boyonceA = 1
				cla
				gs 'stat'

				act 'Leave':gt 'clener', 'start'
			end
		end

		act 'I need to think':
			'You answered Stas, you will find it very much, but you are not ready to give an answer, and ask him a little-just wait. Stas frowns, but accepts your answer.'
			cla

			act 'Leave':gt'clener','start'
		end

		act 'Contribute':
			TPmainQW = 2
			'You quite sharply denied Stas, what he is offended: "Oh well! I-thought, we have that-something more, than an occasional census."'
			cla
			gs 'stat'

			act 'Leave':gt'clener','start'
		end
	end
end

--- torgpred ---------------------------------