glife/locations/altPRE

# altPRE

! Master Node (after select start options)
! convergence and divergence of the start options
! recommend to move here many primary variable definitions
!  (sorry for my google english :) )

fairycurse = -1
gs 'npcstatic'
age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
if ((month * 100) + day) < pcs_dob mod 10000: age -= 1

daylastperiod = daystart
temprand = rand(0,3)
if temprand = 0:
	cycle = 0
	mesec = rand(1,120)
	EggRH = 0
	FocH = 0
	unfertegg = 0
	ferteggage = 0
	Ovulate = 0
	LutH = 0
	daylastperiod -= (96-mesec)/24
elseif temprand = 1:
	cycle = 1
	EggRH = rand(1,149)
	FocH = EggRH
	mesec = 0
	unfertegg = 0
	ferteggage = 0
	Ovulate = 0
	LutH = 0
	daylastperiod -= 4+(FocH/24)
	lastmens = daylastperiod
elseif temprand = 2:
	cycle = 2
	unfertegg = 1
	ferteggage = rand(0,44)
	Ovulate = (rand(24,44) - ferteggage)
	if Ovulate <= 0: Ovulate = 1
	mesec = 0
	EggRH = 0
	FocH = 0
	LutH = 0
	daylastperiod -= 10+(ferteggage/24)
	lastmens = daylastperiod
elseif temprand = 3:
	cycle = 3
	LutH = rand(0,300)
	ferteggage = 36 + LutH
	mesec = 0
	EggRH = 0
	FocH = 0
	unfertegg = 0
	Ovulate = 0
	daylastperiod -= 10+(ferteggage/24)
	lastmens = daylastperiod
end
temp[1] = daystart-daylastperiod
$cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
if menoage <= 0:
	menoage = rand(40,50)
	temprand = rand(0,10)
	if temprand = 0:
		menoage += rand(0,5)
	elseif temprand < 4:
		menoage += rand(3,10)
	elseif temprand < 9:
		menoage += rand(5,12)
	else
		menoage += rand(7,13)
	end
end

gs 'stat'

pcs_horny = 0

if $ARGS[0] = 'Original start':
	cla
	music_on = 0
	opPRE = 1
	showstat 1
	showobjs 1
	addobj 'Player'
	gt 'roomPRE'
end

if $ARGS[0] = 'Original start, Skip intro':
	music_on = 0
	opPRE = 1
	gs 'begin1'
	gt 'street'
end

if $ARGS[0] = 'Alternate Start':
	opPRE = 0
	gt 'bedrPar'
end

if $ARGS[0] = 'Cursed Schoolgirl Start':
	opPRE = 0
	'<center><img src="images/pic/gadukino.jpg"></center>'
	'You are on summer holiday with your parents and have been stuck here weeks. Good thing this evening you are finally going home, there is nothing to do here but watch animals graze.'
    
    act 'Take a walk':
        *clr
        cla
        '<center><img src="images/picpre/woodspre.jpg"></center>'
        'You take a walk while playing with your phone. When you look up you realize you got lost!'
        act 'Find a way back':
            *clr
            cla
            '<center><img src="images/picpre/ruinpre.jpg"></center>'
            'You try to find your way back but the only thing you manage to do is get more lost. After hours of wandering you come across an old ruin.'
            act 'Take a break':
                *clr
                cla
                '<center><img src="images/picpre/tunnel1pre.jpg"></center>'
                'You sit down on a large stone in the ruins and take a breather. You are starting to get hungy. If its not one thing its another. You stomp with your foot. Naturally, floor gives way and you fall down. You feel slightly dazed but after a quick check you seem to be uninjured. You seem to be in an underground chamber of some sort. Looking up you see that climbing out is not an option, there is an old gate here but its either locked or rusted shut. Looks like the only way out is the tunnel on the other side of the chamber.'
                act 'Follow the tunnel':
                    *clr
                    cla
                    '<center><img src="images/picpre/tunnel2pre.jpg"></center>'
                    'Tunnel goes on for what feels like miles. You start to worry you phone battery will die.'
                    act 'Further':
                        *clr
                        cla
                        '<center><img src="images/picpre/dunpre3.jpg"></center>'
                        'At the end of the tunnel you find a dead end. Or at least it seems so. You can see light coming through the cracks in the wall so you do your best to knock it down. Suddenly the wall crumbles and you find yourself in another chamber. Lots of old pottery and baubles. Another tunnel. Hopefully it leads out. In the center of the room is an altar and on it is what seems to be centerpiece of this room, a strange amulet.'
                        act 'Examine amulet':
                            *clr
                            cla
                            '<center><img src="images/picpre/amuletpre.jpg"></center>'
                            'You take the amulet in hand and notice its much lighter than it seems and unusually warm for a piece of metal. Its shaped like an antique oil lamp and... is that a penis? As you are about to pocket it amulet grows even hotter and zaps you. Oww. You drop it. Screw this, you are out of here.'
                            act 'Find a way out':
                                *clr
                                cla
                                '<center><img src="images/picpre/kotpre.jpg"></center>'
                                'You follow the passage and find yourself in a construction site. There are several <b>keep out</b> signs visible from here. Shit.'
                                act 'Sneak out':
                                    *clr
                                    cla
                                    '<center><img src="images/etogame/road.jpg"></center>'
                                    'Workers shift was over so that made sneaking out much easier. And you found a road! You hope you can make it back before your mother starts freaking out. As you start walking back you feel a sudden rush of heat and find yourself falling...'
                                    act 'continue':gt 'altPre','Cursed Schoolgirl Start 2'
                                end
                            end
                        end
                    end
                end
            end
        end
    end
	act 'Skip intro':gt 'pavResidential'
end

if $ARGS[0] = 'Cursed Schoolgirl Start 2':
	clr
	'<center><img src="images/picpre/karinpre.jpg"></center>'
	'You wake up in in an unfamiliar room. Standing near you is the a red-haired girl.'
	'"Ah, you woke up," she chirped. "We found you half-dead, you know. You almost didnt make it. Shouldn''t be fondling ancient amulets you know nothing about."'
	'"I did some research on what happened to you. Turns out the Amulet of Power passed to you, which should only happen if touched by a male mage. Unfortunately, I got some bad news for you. Reinhold, this really powerful mage. He''s been tracking down this amulet for a while now and if he realizes that the amulet''s power has passed to you he might think you pose a risk."'

    act 'What''s going on?':
        cla
        *clr
		'<center><img src="images/picpre/karinpre.jpg"></center>'
		'"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
		'"Um, okay, I''ll start from the beginning," the girl says. "Magic exists and is real. Ages ago the world was not the same, the fae creatures who possess natural magic lived in balance but the succubus were free to breed with whom ever they wished."'
		'"They breed with humans with that human magicians were born. The Sidhe as the most powerful of the fae feared the increasing numbers of human magicians and cast a very powerful spell to bind the succubus to them, this prevented either from being able to reproduce without the other."'
		'"All magicians have some of that original fae blood in there bodies and it is through that that they are able to connect with the world of magic."'
		*nl
		'The redhead adjusts her glasses. "Most of the world simply ignore magic or are protected from it by magic''s natural desire to remain hidden."'
		'"But last night there was a powerful burst of magical energy, strong enough to be clearly seen by any with magical connections. Can you guess where this surge came from? Yeah, that cave you found. Apparently the surge occurred when you opened the seal to the archive. Anyway, that was when we started to search, that source of power is desired by many, but it is extremely dangerous and in the wrong hands could do untold horrors."'
		'She stops for a few seconds for you process that information. It seems really far fetched.' 
		'"Reinhold wants to prevent the amulet being misused, he is tasked with maintaining order and will search for you."'

		act 'So, the whole world is just an illusion?':
			cla
			*clr
			minut += 5
			clr
			gs 'statPRE'
			'<center><img src="images/picpre/karinpre.jpg"></center>'
			'"So magic exists and is used by all these people and creatures, but the rest of us just don''t see it, or convince ourselves it didn''t happen?" You ask.'
			'The girl nods. "Yes. You''re a quick study. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people might see that I threw a grenade or shot from a flamethrower. The human mind can''t process magic, so it blocks it as a way to protect the person from going crazy."'
			'"Hence such things as little green men, UFOs, poltergeists, spontaneous combustion, are when people encounter a difficult to hide phenomenon and the conclusion is flawed. In some cases, if someone''s mind can not cope with the spell they witness, they can be driven crazy and then no one believes them."'

			act 'And who are you?':
				cla
				*clr
				minut += 5
				clr
				gs 'statPRE'
				'<center><img src="images/picpre/karinpre.jpg"></center>'
				'"And who are you?" you ask.'
				'The girl smiled. "Me? I''m Tatiana, a young mage with an keen interest in magical phenomenon. I specialize in the treatment of mutations, and magic relating to the body. I have little combat skill, so I rely on the services of Gustav to provide some muscle. He''s a Mutant, his mutation is due to magical exposure and it gives him unmatched physical strength and he is a great tracker."'
				'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'

				act 'What do you want form me?':
					cla
					*clr
					minut += 5
					clr
					gs 'statPRE'
					'<center><img src="images/picpre/karinpre.jpg"></center>'
					'"What do you want form me?" you ask.'
					'"Hmm, well... the amulet obviously," Tatiana replies. "When I looked for you, I was hoping to get that object of power to study but the power transferred to you first. The amulet will now be pretty much useless."'
					'"But this is not good for you. You may think that since you have the amulets'' power, you can do anything. But in reality, you''re helpless without the skill to use it. Its power already knocked you out and I had to use magic to stabilize you."'

					act 'What is this amulet? Where did it come from?':
						cla
						*clr
						'<center><img src="images/picpre/karinpre.jpg"></center>'
						'"And what is this amulet? Where did it come from?" you ask.'
						'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians before he died, he taunted the only living mage who could control its immense power by cursing him to be stuck in a female form and making it only activate for a male mage."'
						'"Great. So I''ve been thrown into this mess by the dead owner of that ancient tomb. Hang on, I''m not male or a mage, how could the power be transferred to me?"'
						'"It seems that its long time underground has caused it to malfunction and its power has entered your body."'
						'"You are lucky to be a woman," Tatiana adds, "Rikudo''s power seems to only work if it is in a man''s body. Since you cannot harness its power you shouldn''t arouse suspicion."'

						act 'So what should I do?':
							cla
							*clr
							'<center><img src="images/picpre/karinpre.jpg"></center>'
							'"Lay low for now. Go on with your life. We will contact you if anything comes up. Gustav here will drop you off at your home."'

							act 'Follow Gustav':
								hour = 18
								cla
								*clr
								'<center><img src="images/etogame/gorodok.jpg"></center>'
								'You give Gustav directions to your house and half an hour later he drops you off in front of your home.'
								act 'continue':gt 'pavResidential'
							end
						end
					end
				end
			end
		end
	end
end
--- altPRE ---------------------------------