# Terminal
CLOSE ALL
minut += 5
clr
gs 'stat'
!'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'!
'Storage terminal'
'
'
'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 father'
act 'Leave':
cla
minut += 5
gt 'nord'
end
$askfather = {
act 'Ask about his father':
cls
minut += 5
gs'stat'
'
'
'- 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:
'
'
'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 'Escape':minut += 5 & gt $curloc
else
'
'
'- 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'
'
'
'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'
'
'
'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 'Escape':minut += 5 & gt 'nord'
end
act 'Swear':
cls
minut += 5
gs'stat'
'
'
'- 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 'Escape':minut += 5 & gt $curloc
end
end
end
end
end
}
if trfatherQW = 2:
act 'Search for father':
cls
minut += 5
gs'stat'
'
'
'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'
'
'
'- 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 'Escape':minut += 5 & gt $curloc
end
act 'To approach the truckers':
cls
minut += 5
gs'stat'
'
'
'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'
'
'
'- Go fuck, suck each other,concerned assholes.'
'You sent them, there may be another way that-learn something.'
act 'Escape':minut += 5 & gt $curloc
end
act 'Suck':
cls
minut += 5
horny += 5
bj += 1
guy += 1
spafinloc = 12
gs 'cum_manage'
swallow += 1
gs'stat'
'
'
'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
bj += 1
guy += 1
spafinloc = 12
gs 'cum_manage'
spafinloc = 11
gs 'cum_manage'
swallow += 1
gs'stat'
'
'
'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'
'
'
'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 'Escape':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'
''
'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'
'
'
'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'
'
'
'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'
'
'
'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 'Escape':minut += 5 & gt $curloc
end
end
dynamic $askfather
act 'Escape':minut += 5 & gt $curloc
end
dynamic $askfather
act 'Escape':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 ₽)':
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 <> One unit of product.'
act 'Buy':
cls
gs 'stat'
'Do you have a place for storage <> One unit of product.'
tovarpokup = input("How much product you want to buy at a price 100 ₽ 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 <> One unit of small goods and now you have stored <> One unit of product.'
end
act 'Leave':minut+=5> $curloc
end
end
end
act 'Leave':minut += 5 & gt 'nord'
end
if YouCanGar > 0:
act 'Buy small items for the car storage (100 ₽)':
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 <> One unit of product.'
act 'Buy':
cls
gs 'stat'
'Do you have a place for storage <> One unit of product.'
tovarpokup = input("How much product you want to buy at a price 100 ₽ 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 <> One unit of small goods in the garage and now you have stored <> One unit of product.'
end
act 'Leave':minut += 5 & gt $curloc
end
end
end
act 'Leave':minut += 5 & gt 'nord'
end
end
end
--- Terminal ---------------------------------