glife/locations/sleepPRE

# sleepPRE

if $ARGS[0] = 'stat':
	vidage = 16
	year = 2018
	year_start = 2018
	month = 5
	$month = 'May'
	day = 1
	week = 2
	hour = 13
	gs 'daystart', 'start'
	birthyear = 2000
	pcs_dob = 20000000
	pcs_dob += (birthmonth * 100)
	pcs_dob += birthday
	age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
	if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
	!!Body
	rost = 170
	fat = 60
	salo = 60
	dick = 0
	energy = 60
	water = 60
	son = 70
	!!Stats
	pcs_stren = 10
	strenbuf = 10
	speed = 10
	pcs_agil = 10
	agilbuf = 10
	pcs_vital = 10
	vitalbuf = 10
	pcs_intel = 10
	will = 10
	react = 10
	magik = 0
	health = pcs_vital * 10 + pcs_stren * 5
	willpower = pcs_intel * 5 + will * 5
	manna = (pcs_intel * magik) + magik * 100 + pcs_vital * 10 + rikudo
	nastjaQW = 0
	money = 16500
	vidageday = 300
	housrA = 1
	lobok = 3
	leghair = 3
	mop = 1
	housr = 1
	tanga = 1
	!!!!!!!!!!!!!! Maruda Hair Mod
	pcs_hairlng = 17
	pcs_haircol = 1
	nathcol = 1
	oldsavehcol = 1
	!!!!!!!!!!!!!! Maruda Hair Mod

	vidageday = 300
	housrA = 1
	lobok = 3
	leghair = 3
	mop = 1
	housr = 1
	tanga = 1
	gs 'body_shape', 'initial'
	gs 'stat'
	cheap[69] = 1
	cheapH[69] = bedra
	cheap[15] = 1
	cheapH[15] = 100
	cheapB[15] = bedra
	gs 'clothing', 'wear', 'cheap', 15
	cltarelka = 1
	fairy = 10
	eda = 5
	clrbelo = 2
	poroshok = 5
	shampoo = 5
	tampon = 2
	clr
	gs 'fight', 'Wrestlergen'
	energy = 100
	water = 100
	son = 100
	thinkpreg = 0
	denypreg = 0
	pertemp = 1
end

if $ARGS[0] = 'start':
	killobj
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	$pcs_firstname = 'Svetlana'
	$pcs_lastname = 'Lebedev'
	!!!0.2.6 addition
	$pcs_nickname = 'Sveta'
	!!!
	minut += 120
	gs 'sleepPRE', 'stat'
	gs 'stat'
	'<center><img src="images/picpre/karinpre.jpg"></center>'
	'"You''re awake?." Tatiana says looking into your eyes.'

	act 'Look at yourself':
		cla
		*clr
		minut += 5
		clr
		gs 'stat'
		'<center><img src="images/picpre/povpre.jpg"></center>'
		'"Fuck," you say and immediately shut your mouth again. Your voice ... it''s so feminine. Tatiana giggles.'
		'"This is the first time I changed the gender of a person, therefore I just HAD to see your reaction. Totally worth it. But you turned out beautiful. For a first try that is of course. I miscalculated something, for example due to sharp hormonal change you have bad acme on your face and I failed to change your eyes and lips. On the bright side, your body will change much faster than the one of a natural born woman. That means it will be easier to gain and lose weight and change facial features. All in all you turned quite well. By the way, your new ''equipment'' down there is fully functional, so if you don''t want to be a mommy, you should think about using contraceptives."'
		'You angrily look at Tatiana, "So you think I''m a complete woman? On the outside I''ll look like one, but guess what, I''m still the 34-years-old me."'
		'"Well, yes. I won''t argue about that." Tatiana agrees. "It''s your life and you decide what you do with it, but for the time being, you cannot go back to your old life, so deal with it. On a side note, I already took care of an alibi. Today Michael crashed his car into the pit and died, it''s on the news." With these words, Tatiana picked up the remote and turned on the TV.'
		$pcs_firstname = input("What is your first name? (Leave blank for default)")

		if $pcs_firstname = '':$pcs_firstname = 'Svetlana'

		$pcs_lastname = input("What is your last name? (Leave blank for default)")

		if $pcs_lastname = '':$pcs_lastname = 'Lebedev'

		!!!0.2.6 addition
		$pcs_nickname = input("What is your nickname? (Note: If you chose a custom name, you have to enter something here!)")

		if $pcs_nickname = '':$pcs_nickname = 'Sveta'
		!!!

		act 'Watch TV':
			cla
			*clr
			minut += 5
			clr
			gs 'stat'
			'<center><img src="images/picpre/car2.jpg"></center>'
			'On TV there is a news report about about a businessman, who drove his car into a hole at a construction site. The man died later in hospital without regaining consciousness.'
			'You look at Tatiana, with a bewildered look. She has an enimatic smile, "Well, I''m still a magician and that''s something that I can do. Reinhold has definitely lost the trail. The body that ''died'' behind the wheel of the BMW was a perfect copy of your old self, from your absorbed amulet energy down to the placement of every single hair."' 
			'"Anyways, here are your new legal documents, including a new passport. Starting today, you are <<$pcs_nickname>> <<$pcs_lastname>>, 18 years old, female and live in the city. Nobody knows you, but you at least have an apartment to call home. This is a gift to you from Gustav. Here are the keys to it. Now get up, you''ve got to go to your new home and start a new life."'
			'Gustav, the redhead with a tattoo on his face enters the room. He looks at you and says, "I''ll take you."'

			act 'Go with Gustav':
				cla
				*clr
				minut += 5
				clr
				gs 'stat'
				'<center><img src="images/picpre/jugopre.jpg"></center>'
				'Gustav silently takes you to the garage and you enter the black jeep. Gustav gets behind the wheel and drives you into the city. You silently speculate about what to do now.'
				'After a few minutes, while keeping his eyes on the road, Gustav speaks. "I''m sorry I beat you up. I have trouble controlling myself during a fight. You had a larger figure and for a second I thought you might be dangerous for me, so I ended up hitting with full force."'
				'You look at him. "Forget it. Listen Gustav... what do I do now?"'
				'Gustav nods and says, "Well, I would advise you to start by buying food, all sorts of washing powders, laundry detergents and dishes. There are very few supplies already in the apartment, but they''ll only last you a day or two. There''s no TV either. Then get a job. Not far from your new home is a small café, if I remember correctly there was a vacant waitress position not too long ago. You should talk to the owner of the café about the job. Don''t forget to monitor your health, keep your mood up and have a clear mind."'
				'"Now your mind is very weak, if you don''t take care of yourself you will go crazy. You need to eat well, sleep regularly, have fun, do not generally become depressive or else you end up in a madhouse. Don''t go looking for Tatiana, you will not find her anyway, and secondly, if we need to contact you, we will find you."'
				'You arrived at some five-story Khrushchev era buildings. Gustav stops the car and points a finger at the entrance. "Your apartment number 69, Tatiana already gave you the key. Now go. Remember don''t just give up, not everyone gets an entirely new chance at life. Tatiana and me will keep an eye out for you."'
				''
				'Also, you might want to steer clear of those Gopnik, they might just look like petty criminals having a drink, but they have connections and you''re just a pretty young girl now.'

				act 'Out of the car':
					cla
					opPRE = 0
					daystart = 1
					if oldobjmenu = 0:
						gs 'obj_din', 'new'
					else
						gs 'obj_din', 'old'
					end
					gt 'street'
				end
			end
		end
	end
end

--- sleepPRE ---------------------------------