# Terminal
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.'
act 'Leave':
cla
minut += 5
gt 'nord'
end
if TerminalPapper = 1 and DayTerminalPapper = day:
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 rubles)':
cls
minut += 15
gs 'stat'
'You went to the office and spoke with the manager about buying small things.'
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 rubles 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 rubles)':
cls
minut += 15
gs 'stat'
'You went to the office and spoke with the manager about buying small things.'
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 rubles 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 ---------------------------------