glife/locations/Terminal

# Terminal
CLOSE ALL
minut += 5

clr
gs 'stat'
!'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'!
'<center><b><font color="maroon">Storage terminal</font></b></center>'
'<center><img src="images/etogame/terminal.jpg"></center>'
'A plurality of storage buildings to which drive up truck for loading and unloading.'
if trfatherQW = 4 and week >= 6 and hour >= 12 and hour < 14:'Near dirty digging your truck <a href="exec:GT ''trFatherMisha''">father</a>'

act 'Leave':
	cla
	minut += 5
	gt 'nord'
end

$askfather = {
	act 'Ask about his father':
		cls
		minut += 5
		gs'stat'
		'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_9.jpg"></center>'
		'- I want to ask you, Do you know where can I find a trucker named Mikhail Kuznetsov?'
		'- Of course we know a girl, great guy by the way, right there around the corner you will find the Blacksmith, it odd there with potters wheel.'
		'- Thank you very much, and jumped for joy, you ran to meet her father.'
		act 'Go to his father':
			cls
			minut += 5
			gs'stat'
			if spdirtyv > 0:
				'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_13.jpg"></center>'
				'You came to his father with a face smeared with semen.'
				'- Fu fucking, ebannaya whore, Go fuck out of here, Well your mother, go here any slut...'
				'You felt very ashamed of his father, and you decide not to come over here and forget about my father forever.'
				trfatherQW = -1
				act 'Leave':minut += 5 & gt $curloc
			else
				'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_14.jpg"></center>'
				'- Hello, You Mikhail Kuznetsov?'
				'- Yes, Hello, it''s me, that-Something happened? Are you from the control room? If anything, tell it again, I''m the fucking crystal on such roads will not be transported...'
				'- No no, I was not there, I <<$name>> <<$surname>>...'
				'- <<$name>>? Hell, daughter....? This.... you?'
				'Your father broke down in tears, looking in your eyes, and recognizing the facial features, quickly wiped his oily hands and you hugged, together crying from happiness.'
				act 'Hug':
					cls
					minut += 5
					gs'stat'
					'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_15.jpg"></center>'
					'You hugged his father and said to him,: "Lastly-I found you, Now just I never lose."'
					'Your father hugged and looked at you, as if not believing new happiness: "What I have a big and beautiful little girl has grown"...'
					'And prompts you to go to lunch and talk...'

					act 'Go to the kebab':
						cls	
						minut += 5
						gs'stat'
						'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_17.jpg"></center>'
						'Sitting at the table, You order food and drinks, and dad started asking you about everything.'
						'You started with enthusiasm and a lot of talk about themselves, what do you do, where learning, than moonlighting on life. Told about sister, that she was not admitted to the university, and worked as a salesgirl in the supermarket..'
						'To tell you about my mother, she married, and you now have a stepfather and brother Kolya..'
						'Designed by talking, but do not learn more about the life of Pope, He began to say goodbye to you.'
						'- <<$name>> I have to go, schedule purses, I am here on weekends 12 00 to 14 00, I will be glad if you will visit me sometimes, - and kissed her on the cheek goodbye.'
						trfatherQW = 4
						act 'Leave':minut += 5 & gt 'nord'
					end
					act 'Swear':
						cls
						minut += 5
						gs'stat'
						'<center><img src="images/qwest/alter/sisterqw/sisboyqw_37.jpg"></center>'
						'- Drunk fucking, He left us and now?...You become easier to live?.. You have no idea what it''s like to live with someone else, and a man called his father. Whip to the devil, fucking freak...'
						'You will become much easier that poured all the anger in his face, and decided not to come over here and forget about my father forever.'
						trfatherQW = -1
						act 'Leave':minut += 5 & gt $curloc
					end
				end
			end
		end
	end 
}

if trfatherQW = 2:
	act 'Search for father':
		cls
		minut += 5
		gs'stat'
		'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_2.jpg"></center>'
		'You are trapped inside a large storage terminal, full of cars, trucks and wagons.'
		'You find it difficult to navigate here, better than anyone-then find and ask about his father.'
		'You can find drivers, sure that they-the know, or ask the Manager.'
		act 'Ask the Manager':
			cls
			minut += 5
			trfatherQW = 3
			gs'stat'
			'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_3.jpg"></center>'
			'- Good afternoon! What I can help you? -kindly appeals to you girl.'
			'- Hello, I want you to know, whether there have some Mikhail Kuznetsov?'
			'- I''ll check in our database, yes, we have a driver, Once he is on the road and only on Saturday 12:00.'
			'- Thank you very much, You helped me a lot. - Well, you get closer and closer to its goal. '
			act 'Leave':minut += 5 & gt $curloc
		end
		act 'To approach the truckers':
			cls
			minut += 5
			gs'stat'
			'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_4.jpg"></center>'
			'You came to the two adult men, They will see you much revived.'
			'- Hello Little, what can I walk alone? You want to earn quick?'
			'- No, thank you, I''m here looking for a man, I need your help...'
			'- Well us your help does not hurt, we have just the way, and you can help us, and we''ll, if you know what we...'
			act 'Send':
				cls
				minut += 5
				gs'stat'
				'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_5.jpg"></center>'
				'- Go fuck, suck each other,concerned assholes.'
				'You sent them, there may be another way that-learn something.'
				act 'Leave':minut += 5 & gt $curloc
			end
			act 'Suck':
				cls
				minut += 5
				horny += 5
				stat['bj'] += 1
				guy += 1
				spafinloc = 12
				gs 'cum_manage'
				swallow += 1
				gs'stat'
				'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_6.jpg"></center>'
				'Probably no other way, and you agree to suck them.'
				'The first man invited you into the cockpit, comfortable waiting for your actions Russell.'
				'You are not delaying unbuttoned his pants and began to suck and the man quickly finished your mouth.'
				'Ordered you to wait here a man came out satisfied, beckoning second.'
				act 'Wait':
					cls
					minut += 5
					horny += 5
					stat['bj'] += 1
					guy += 1
					spafinloc = 12
					gs 'cum_manage'
					spafinloc = 11
					gs 'cum_manage'
					swallow += 1
					gs'stat'
					'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_7.jpg"></center>'
					'In the cabin quickly became the second, and you that it did not last long set about their work.'
					'You carefully licked the head, and hand podrachivaya trunk quickly aspirated.'
					'This guy is too long and could not stand poured liters of semen in your mouth.'
					act 'Get out of the cab':
						cls
						minut += 5
						trfatherQW = 3
						gs'stat'
						'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_8.jpg"></center>'
						'You got out of the cab truck with a smeared face.'
						'- So, What are you talking about there we wanted to know? - I addressed to you the first of the men.'
						'- I wanted you to know, whether there have some Mikhail Kuznetsov?'
						'- Aaa, Micah, Blacksmith something? Sure, running, great guy. Only it is not available, It is only on Saturday 12:00.'
						'- You Th? His daughter? Heh, Hochma here is if he finds out, that we''re vytvorili...'
						act 'Leave':minut += 5 & gt $curloc
					end
				end
			end
		end
	end
elseif trfatherQW = 3 and week = 6 and hour = 12:
	act 'Search for father':
		cls
		minut += 5
		gs'stat'
		'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_9.jpg"></center>'
		'You go to a group of men, drinkers, cackling and that-then vigorously debated.'
		'Approaching them, their eyes were immediately sent to you.'
		'-Hello, beauty, then go here one, You want to have a drink with us?'
		act 'Drink':
			cls
			alko += 1
			cumspclnt = 2
			gs 'cum_cleanup'
			fbreath = 0
			minut += 5
			gs'stat'
			'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_10.jpg"></center>'
			'Did you decide, why not have a drink with men, and sat down next to you immediately given a bottle of beer.'
			'Truckers were told different stories, gradually more and more openly and frankly.'
			'They shared stories as fuck whores and married women on the road in the cockpits of their trucks, you were very interesting.'
			act 'Drink':
				cls
				alko += 3
				minut += 5
				gs'stat'
				'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_11.jpg"></center>'
				'You continue to drink fun killing time.'
				'Drivers warmed up and got vodka, - "Well, of course without vodka?" - He shouted half-drunk guy and offered you a bottle.'
				'Cups were not you were drinking from the bottle, passing the bottle next.'
				'After a moment, you are completely intoxicated and heard: "Well, slut ready, let her otzharim", and where you-then dragged.'
				act 'Bellowed':
					cls
					minut += 30
					spafinloc = 12
gs 'cum_manage'
					swallow += 1
					spafinloc = 11
gs 'cum_manage'
					spafinloc = 3
gs 'cum_manage'
					gs 'cum_manage'
					spafinloc = 14
gs 'cum_manage'
					spafinloc = 4
gs 'cum_manage'
					gang += 1
					gs'stat'
					'<center><img src="images/qwest/alter/trfatherqw/trfatherqw_12.jpg"></center>'
					'Mumbled-incoherently, you do not pay any attention, and dragged as a thing of the warehouse building.'
					'You quickly stripped, also undressed and truckers, They laid on his stomach and began to fuck one of two trunk.'
					'Not long tormented, men finishing and filled your hole, trusting your body to others.'
					'The next time you choked with sperm, and did not have time to swallow it, portions of shoots in your mouth.'
					'You all were stained in semen, Facial, inside priests and recording it, too, had a lot of...'
					act 'Leave':minut += 5 & gt $curloc
				end
			end
			dynamic $askfather
			act 'Leave':minut += 5 & gt $curloc
		end
		dynamic $askfather
		act 'Leave':minut += 5 & gt $curloc
	end
end


if TerminalPapper = 1 and DayTerminalPapper = daystart:
	act 'Classified documents':
		cls
		minut += 15
		TerminalPapper = 2
		gs 'stat'
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
		'You went to the office and gave the documents to the manager.'

		act 'Leave':minut += 5 & gt 'nord'
	end
end

if money >= 100:
	act 'Buy small items (100 <b>₽</b>)':
		cls
		minut += 15
		gs 'stat'
		'You went to the office and spoke with the manager about buying small things.'

		! WD: Uninitialised ~ 'tovarskladlevel' allways true
		if tovarskladlevel = 0:
			if tovarL >= 30:
				'Thinking a bit you realize, you just have nowhere to store the goods and decide to unsubscribe from the purchase.'
			elseif tovarL < 30:
				maxtov = 30 - tovarL
				'Do you have a place for storage <<maxtov>> One unit of product.'

				act 'Buy':
					cls
					gs 'stat'
					'Do you have a place for storage <<maxtov>> One unit of product.'
					tovarpokup = input("How much product you want to buy at a price 100 <b>₽</b> apiece?")

					if tovarpokup > maxtov or tovarpokup * 100 > money:
						'Manager shakes his head "No, so it will not work"'
					else
						tovarL += tovarpokup
						money -= tovarpokup * 100
						gs 'stat'
						'You bought <<tovarpokup>> One unit of small goods and now you have stored <<tovarL>> One unit of product.'
					end

					act 'Leave':minut+=5&gt $curloc
				end
			end
		end

		act 'Leave':minut += 5 & gt 'nord'
	end

	if YouCanGar > 0:
		act 'Buy small items for the car storage (100 <b>₽</b>)':
			cls
			minut += 15
			gs 'stat'
			'You went to the office and spoke with the manager about buying small things.'

			! WD: Uninitialised ~ 'tovarskladlevel' allways true
			if tovarskladlevel = 0:
				if GarTorgItem >= 100:
					'Thinking a bit you realize, you just have nowhere to store the goods and decide to unsubscribe from the purchase.'
				elseif GarTorgItem < 100:
					maxtov = 100 - GarTorgItem
					'Do you have a place for storage <<maxtov>> One unit of product.'

					act 'Buy':
						cls
						gs 'stat'
						'Do you have a place for storage <<maxtov>> One unit of product.'
						tovarpokup = input("How much product you want to buy at a price 100 <b>₽</b> apiece?")

						if tovarpokup > maxtov or tovarpokup * 100 > money:
							'Manager shakes his head "No, so it will not work"'
						else
							GarTorgItem += tovarpokup
							money -= tovarpokup * 100
							gs 'stat'
							'You bought <<tovarpokup>> One unit of small goods in the garage and now you have stored <<GarTorgItem>> One unit of product.'
						end

						act 'Leave':minut += 5 & gt $curloc
					end
				end
			end

			act 'Leave':minut += 5 & gt 'nord'
		end
	end
end

--- Terminal ---------------------------------