glife/locations/Terminal

# Terminal
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.'

act 'Leave':
	cla
	minut += 5
	gt 'nord'
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 rubles)':
		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 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 <<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 rubles)':
			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 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 <<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 ---------------------------------