Bladeren bron

Start changes from Vaelon

KevinSmarts 7 jaren geleden
bovenliggende
commit
43c00aea3f
18 gewijzigde bestanden met toevoegingen van 1280 en 1529 verwijderingen
  1. 4 9
      glife-notepad++
  2. 4 11
      glife.qproj
  3. 0 488
      locations/alterStart
  4. 48 63
      locations/begin
  5. 0 36
      locations/begin1
  6. 1 1
      locations/ender
  7. 0 114
      locations/karinPRE
  8. 0 168
      locations/otelPRE
  9. 71 109
      locations/preALT
  10. 281 0
      locations/preCS
  11. 357 0
      locations/preCUST
  12. 507 0
      locations/preTG
  13. 0 147
      locations/roadPRE
  14. 0 111
      locations/roomPRE
  15. 0 176
      locations/sleepPRE
  16. 3 89
      locations/start
  17. 4 0
      locations/stat
  18. 0 7
      locations/statPRE

+ 4 - 9
glife-notepad++

@@ -11,8 +11,6 @@
             <File name="locations\AlbStarsEnd" />
             <File name="locations\alex" />
             <File name="locations\alexgang" />
-            <File name="locations\alterStart" />
-            <File name="locations\altPRE" />
             <File name="locations\amrul" />
             <File name="locations\AnalPR" />
             <File name="locations\andrey" />
@@ -69,7 +67,6 @@
             <File name="locations\beg" />
             <File name="locations\beg1" />
             <File name="locations\begin" />
-            <File name="locations\begin1" />
             <File name="locations\belgang" />
             <File name="locations\belpicknick" />
             <File name="locations\BelSex" />
@@ -313,7 +310,6 @@
             <File name="locations\kakuzu" />
             <File name="locations\kamera" />
             <File name="locations\kameraKPZ" />
-            <File name="locations\karinPRE" />
             <File name="locations\katalkin" />
             <File name="locations\katalkinAlko" />
             <File name="locations\katalkinSex" />
@@ -480,7 +476,6 @@
             <File name="locations\oral" />
             <File name="locations\orgasm" />
             <File name="locations\orgazm" />
-            <File name="locations\otelPRE" />
             <File name="locations\outdoors" />
             <File name="locations\pain" />
             <File name="locations\Palatka" />
@@ -535,6 +530,10 @@
             <File name="locations\postevents" />
             <File name="locations\postmaster" />
             <File name="locations\postoffice" />
+            <File name="locations\preALT" />
+            <File name="locations\preCS" />
+            <File name="locations\preCUST" />
+            <File name="locations\preTG" />
             <File name="locations\priziv" />
             <File name="locations\Prostitute" />
             <File name="locations\psiklin" />
@@ -564,9 +563,7 @@
             <File name="locations\rinok" />
             <File name="locations\rinwork" />
             <File name="locations\road" />
-            <File name="locations\roadPRE" />
             <File name="locations\roma" />
-            <File name="locations\roomPRE" />
             <File name="locations\roulette" />
             <File name="locations\RoundEnd" />
             <File name="locations\RoundStop" />
@@ -618,7 +615,6 @@
             <File name="locations\sitr2x" />
             <File name="locations\sitrPar" />
             <File name="locations\skverdin" />
-            <File name="locations\sleepPRE" />
             <File name="locations\Snpc" />
             <File name="locations\sny" />
             <File name="locations\soba" />
@@ -632,7 +628,6 @@
             <File name="locations\StasSex" />
             <File name="locations\stat" />
             <File name="locations\statBat" />
-            <File name="locations\statPRE" />
             <File name="locations\stat_display" />
             <File name="locations\stihi" />
             <File name="locations\stol" />

+ 4 - 11
glife.qproj

@@ -5,7 +5,6 @@
     <Location name="version"/>
     <Location name="gameover"/>
     <Location name="begin"/>
-    <Location name="begin1"/>
     <Location name="onobjsel"/>
     <Location name="obj_din"/>
     <Location name="Cheatmenu_din"/>
@@ -65,7 +64,6 @@
       <Location name="din_bad"/>
       <Location name="din_van"/>
       <Location name="statBat"/>
-      <Location name="statPRE"/>
       <Location name="outdoors"/>
       <Location name="indoors"/>
       <Location name="kid"/>
@@ -78,10 +76,6 @@
       <Location name="blowPR"/>
       <Location name="AnalPR"/>
     </Folder>
-    <Folder name="Alternative">
-      <Location name="alterStart"/>
-      <Location name="altPRE"/>
-    </Folder>
     <Folder name="Quests">
       <Location name="event"/>
       <Location name="frot"/>
@@ -98,11 +92,10 @@
       <Location name="serpent"/>
     </Folder>
     <Folder name="Prehistory">
-      <Location name="roomPRE"/>
-      <Location name="roadPRE"/>
-      <Location name="otelPRE"/>
-      <Location name="karinPRE"/>
-      <Location name="sleepPRE"/>
+      <Location name="preCS"/>
+      <Location name="preTG"/>
+      <Location name="preCUST"/>
+      <Location name="preALT"/>
     </Folder>
     <Folder name="NPCManage">
       <Location name="npccleanc"/>

+ 0 - 488
locations/alterStart

@@ -1,488 +0,0 @@
-# alterStart
-
-if $ARGS[0] = '':
-	StoryLine = 1
-	prezikProver = 3
-	brothersawpirsF = 0
-	umbrella = 1
-	$pcs_firstname = 'Svetlana'
-	$pcs_lastname = 'Lebedev'
-	!!!0.2.6 addition
-	$pcs_nickname = 'Sveta'
-	!!!
-	pcs_dob = 20000000
-	!! {This sets month and day of birth.}
-	birthyear = pcs_dob / 10000
-	birthmonth = rand(1,12)
-	if birthmonth = 4 or birthmonth = 6 or birthmonth = 9 or birthmonth = 11:
-		birthday = rand(1,30)
-	elseif  birthmonth = 1 or birthmonth = 3 or birthmonth = 5 or birthmonth = 7 or birthmonth = 8 or birthmonth = 10  or birthmonth = 12:
-		birthday = rand(1,31)
-	elseif ((birthyear mod 4 = 0) and (birthyear mod 100 ! 0)) or (birthyear mod 400 = 0):
-		birthday = rand(1,29)
-	else
-		birthday = rand(1,28)
-	end
-
-	pcs_dob += (birthmonth * 100)
-	pcs_dob += birthday
-
-	year = 2017
-	year_start = 2017
-
-	month = 8
-	!! Last friday in August 2017
-	$month = 'August'
-	day = 25
-	age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
-	vidage = age - 1
-	if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
-	week = 5
-	daystart_start = 236
-	gs 'daystart'
-	gs 'outdoors', 'weather'
-	pcs_horny = 90
-	hour = 9
-	!!body
-	pcs_hgt = 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
-	pcs_sprt = 10
-	pcs_react = 10
-	pcs_magik = 0
-	
-	
-	!!Preference Count and new skills please keep this
-	
-	canBraidHair = 0
-	makeupSetting = 0
-	
-	pierCount = 0
-	tattCount = 0
-	
-	
-	health = pcs_vital * 10 + pcs_stren * 5
-	willpower = pcs_intel * 5 + pcs_sprt * 5
-	manna = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
-	nastjaQW = 0
-	sisboyday = -2
-	money = 50
-	vidageday = 300
-	housrA = 0
-	cheap[69] = 1
-	cheapH[69] = 70
-	pcs_pubes = 3
-	pcs_leghair -= 5
-	pcs_makeup = 1
-	housr = 0
-	tanga = 1
-	cheap[15] = 1
-	cheapH[15] = 100
-	cheapB[15] = 70
-	gs 'clothing', 'wear', 'cheap', 15
-	cltarelka = 0
-	fairy = 0
-	eda = 0
-	clrbelo = 10
-	poroshok = 0
-	shampoo = 0
-	sanpad = 20
-	opPRE = 0
-	school[6] = 1
-	exercise[4] = 1
-	exerciseH[4] = 100
-	cheap[10] = 1
-	cheapH[10] = 100
-	cheapB[10] = 70
-	coat[5] = 1
-	coatH[5] = 200
-	defaultcoat = 5
-	kanikuli = 5
-	$holyday = '<b>Summer holidays</b>'
-
-	if player_avatar = 0:
-		pcs_eyecol = 1
-		pcs_eyesize = 2
-		pcs_haircol = 1
-		pcs_lip = 2
-	end
-
-	npc_rel['A28'] = 50
-	npc_rel['A29'] = 50
-	npc_rel['A33'] = 50
-	npc_rel['A34'] = 50
-	pcs_grades = 75
-
-
-	gs 'gschool_lessons', 'npc_data'
-
-	clr
-	if Enable_Android = 0:gs 'stat'
-	'<center><img src="images/pic/alterstart1.jpg"></center>'
-	'You were born in <<birthyear>>. You have a sister, Anya, who is 2 years older than you.'
-	'Your mother is Natasha <<$pcs_lastname>>. You don''t know much about your biological father... your mother never wants to talk about him, or why he left you and Anya with her.'
-	'Your mother found another man not too long after her and your biological father and her divorced, Vladimir Mikhailovich Scriabin. Together they had your little brother Kolka. Even though he''s not your real father, Vladimir always treated you and Anya as if they were his own children.'
-
-	gs 'alterStart', 'name'
-end
-
-if $ARGS[0] = 'name':
-	$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 nick name? (Note: If you chose a custom name, you have to enter something here!)")
-
-	if $pcs_nickname = '':$pcs_nickname = 'Sveta'
-	!!!
-	$pcs_nickname = $pcs_nickname
-	'Your name is <<$pcs_firstname>> <<$pcs_lastname>>, Friends and family sometimes call you <<$pcs_nickname>>.'
-
-	act 'Continue':gt 'alterStart', '2'
-	act 'Re-enter name/s':gs 'alterStart', 'name'
-
-end
-
-if $ARGS[0] = 2:
-	cls
-
-	'<center><img src="images/pic/alterstart2.jpg"></center>'
-	'You had a pleasant, undisturbed childhood when you were young. Although you don''t remember much from kindergarten, you do remember going to elementary school when you were 7 years old.'
-	*nl
-	'Like many other kids you tried out all sort of things at school, exploring your interests. But the one thing that really defines you is...'
-
-	act 'I am a complete bookworm!':
-		cls
-		pcs_stren = 1
-		pcs_vital = 5
-		pcs_agil = 1
-		fat = 10
-		salo = 180
-		pcs_intel = 50
-		pcs_tan = 0
-		blizoruk = 300
-		if glass < 1 : glass = 1
-		pcs_grades = 55
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		if player_avatar ! 1: pcs_hairlng = 90
-		if player_avatar ! 1: pcs_haircol = 0
-		hpingrip = 10
-		hpingripw = 1
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		pcs_nerd = 100
-		fantasybook = 5
-		grupTipe=0
-		gs 'alterStart', 'gtipe'
-		if Enable_Android = 0:gs 'stat'
-		'<center><img src="images/pic/alterstart3.jpg"></center>'
-		'While you were growing up, you spent virtually all your free time at home, reading books. While you have gained a lot of knowledge from reading books, your sedentary lifestyle has left you quite frumpy. The long nights of trying to read in poor light have taken a toll on your eyesight as well, so you now need glasses to be able to read.'
-
-		act 'Go to custom options': gt 'alterStart', 'custom'
-	end
-
-	act 'I am the queen of the nerds!':
-		cls
-		pcs_stren = 5
-		pcs_vital = 5
-		pcs_agil = 5
-		fat = 10
-		salo = 10
-		pcs_intel = 40
-		pcs_tan = 30
-		npc_rel['A29'] = 100
-		npc_rel['A28'] = 100
-		money += 3000
-		blizoruk = 300
-		pcs_dom = 50
-		if glass < 1 : glass = 1
-		pcs_grades = 110
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		if player_avatar ! 1: pcs_hairlng = 50
-		if player_avatar ! 1:pcs_haircol = 1
-		hpingrip = 10
-		hpingripw = 1
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		pcs_nerd = 100
-		fantasybook = 5
-		grupTipe=1
-		gs 'alterStart', 'gtipe'
-		if Enable_Android = 0:gs 'stat'
-		'<center><img src="images/pic/alterstart4.jpg"></center>'
-		'While you were growing up, you spent virtually all your free time at home, reading books and playing fantasy games with the other nerds. While you have gained a huge amount of knowledge from this, your lack of interest in exercising as a child has left your body a little frail. The long nights of trying to read in poor light have taken a toll on your eyesight as well, so you now need glasses to be able to read.'
-		'However, by the usual nerd standards you are confident and dynamic, this has lead you to be the leader of your group of friends and more acceptable to the other kids.'
-
-		act 'Go to custom options': gt 'alterStart', 'custom'
-	end
-
-	act 'I am a good student':
-		cls
-		fat = 150
-		salo = 150
-		pcs_intel = 50
-		pcs_grades = 110
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		if player_avatar ! 1: pcs_hairlng = 162
-		if player_avatar ! 1:pcs_haircol = 0
-		hpingrip = 10
-		hpingripw = 1
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		npc_rel['A29'] = 100
-		money += 2000
-		pcs_tan = 30
-		grupTipe=1
-		gs 'alterStart', 'gtipe'
-		if Enable_Android = 0:gs 'stat'
-		'<center><img src="images/pic/alterstart4.jpg"></center>'
-		'You were always a bit of a teacher''s pet, trying to absorb every bit of knowledge and doing everything you could to excel in school. While this attitude has gained you a lot of respect, it did not earn you a lot of friends, and you never had time for sports. You have excellent grades though, and your mother is very proud of you.'
-
-		act 'Go to custom options': gt 'alterStart', 'custom'
-	end
-
-	act 'I am an avid volleyball player!':
-		cls
-		pcs_stren = 25
-		pcs_vital = 25
-		speed = 25
-		pcs_agil = 25
-		fat = 20
-		salo = 20
-		sanpad = 0
-		tampon = 20
-		pcs_vball = 70
-		pcs_run = 40
-		gsAboVolley = 120
-		pcs_dom = 10
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		if player_avatar ! 1: pcs_hairlng = 97
-		if player_avatar ! 1:pcs_haircol = 3
-		hscrunch = 10
-		hscrunchw = 0
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		pcs_tan = 30
-		grupTipe=2
-		gs 'alterStart', 'gtipe'
-		if Enable_Android = 0:gs 'stat'
-		'<center><img src="images/pic/alterstart5.jpg"></center>'
-		'Ever since you first tried volleyball, you have been in love with the sport. You spent a lot of your free time trying to get better at it, and it paid off: you''re actually quite good now! However, your obsession with volleyball has had some repercussions on your school performance; you''re a sub-par student, and you haven''t made many friends.'
-
-		act 'Go to custom options': gt 'alterStart', 'custom'
-	end
-
-	act 'I have a lot of friends!':
-		cls
-		pcs_stren = 10
-		pcs_vital = 10
-		pcs_agil = 20
-		fat = 30
-		salo = 30
-		pcs_dom = 50
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		if player_avatar ! 1: pcs_hairlng = 19
-		if player_avatar ! 1:pcs_haircol = 2
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		pcs_tan = 30
-		grupTipe=4
-		gs 'alterStart', 'gtipe'
-		if Enable_Android = 0:gs 'stat'
-		'You spent most of your childhood outdoors, playing with other girls and boys. As a result, you''re quite healthy and are pretty strong verbally, knowing how to get yourself out of trouble. However, you were never very interested in school or sports, and are only a sub-par student.'
-
-		act 'Go to custom options': gt 'alterStart', 'custom'
-	end
-end
-
-if $ARGS[0] = 'custom':
-	opPRE = 2
-	gs 'body_shape', 'initial'
-	cls
-	'<center>Current face image (based on hairstyle)</center>'
-	'<center><img src="<<FUNC(''$face_image'')>>"></center>'
-	'Your hair is currently <<$pcs_haircol>>,'
-	if pcs_haircol ! 0:'Change to <a href="exec:pcs_haircol = 0 & gt ''alterStart'', ''custom''">black</a>.'
-	if pcs_haircol ! 1:'Change to <a href="exec:pcs_haircol = 1 & gt ''alterStart'', ''custom''">brown</a>.'
-	if pcs_haircol ! 2:'Change to <a href="exec:pcs_haircol = 2 & gt ''alterStart'', ''custom''">red</a>.'
-	if pcs_haircol ! 3:'Change to <a href="exec:pcs_haircol = 3 & gt ''alterStart'', ''custom''">blonde</a>.'
-	''
-	if defcurly = 0:'Your hair is naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''alterStart'', ''custom''">straight</a>.'
-	if defcurly = 1:'Your hair is naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''alterStart'', ''custom''">curly</a>.'
-	*pl
-	'Personalize attributes related to your <a href="exec:gs ''begin'', ''glaza''">eyes</a></center>.'
-	'Change your <a href="exec:gs ''begin'', ''birthday''">date of birth</a>.'
-
-	act 'Begin at the last year of school, age 16 or 17':
-		year = 2017
-		year_start = 2017
-		hcolmotherremember = pcs_haircol
-		hcolfatherremember = pcs_haircol
-		nathcol = pcs_haircol
-		hcolfronce = 1
-		cheapB[10] = bedra
-		cheapB[15] = bedra
-		gt 'alterStart', 'ev'
-	end
-
-	act 'Begin at the second-last year of school, age 15 or 16':
-		year = 2016
-		year_start = 2016
-		hcolmotherremember = pcs_haircol
-		hcolfatherremember = pcs_haircol
-		nathcol = pcs_haircol
-		hcolfronce = 1
-		cheapB[10] = bedra
-		cheapB[15] = bedra
-		gt 'alterStart', 'ev15'
-	end
-end
-
-if $ARGS[0] = 'ev15':
-	cls
-	gs 'fight', 'Wrestlergen'
-	if mesec > 0:isprok = 1
-	'<center><img src="images/pic/alterstart7.jpg"></center>'
-	'As with all girls, you reached the milestone of puberty two years ago. Like it does for most girls, it started for you when you were 13 years old. You had your first period, which sucked... but that was the start of your changes.'
-	*nl
-	'Your chest then felt strange and you discovered your breasts were growing! This excited you: how big will they be when you grow up? Hair also began to form on your armpits and groin, and at the same time you felt... things, intimate things. Over time you learned to appreciate these feelings, and how to manage your developing body. Your troublesome skin complexion remains an issue though.'
-	*nl
-	'When you finished 9th grade, you decided to continue with your secondary education. Two more years of school to go, but first: it''s time for the summer holiday!'
-	'<i>You can decide to begin your game at the end of the summer holiday, very close to starting the new school year. Alternatively, you can start at the beginning of the holiday.</i>'
-
-
-	act 'Start at the end of August <B>(recommended for new players)</B>':
-		SHOWSTAT 1
-		SHOWOBJS 1
-		bikini=1
-		health = pcs_vital*10 + pcs_stren*5+1000
-		willpower = pcs_intel*5 + pcs_sprt*5+1000
-		manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo
-		if oldobjmenu = 0:
-			gs 'obj_din', 'new'
-		else
-			gs 'obj_din', 'old'
-		end
-		day = 26
-		week = 5
-		daystart_start = 238
-		gs 'daystart'
-		kanicont = 3
-		$holyday += ', <b><<kanicont>> days left.</b>'
-		if altQS = 1:
-			gt 'altPRE','Cursed Schoolgirl Start'
-		else
-			gt 'altPRE','Alternate Start'
-		end
-	end
-
-	act 'Start at the beginning of June':
-		SHOWSTAT 1
-		SHOWOBJS 1
-		bikini=1
-		health = pcs_vital*10 + pcs_stren*5+1000
-		willpower = pcs_intel*5 + pcs_sprt*5+1000
-		manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo
-		if oldobjmenu = 0:
-			gs 'obj_din', 'new'
-		else
-			gs 'obj_din', 'old'
-		end
-		month = 6
-		$month = 'June'
-		day = 1
-		week = 3
-		daystart_start = 152
-		gs 'daystart'
-		kanicont = 92
-		$holyday += ',  <b><<kanicont>> days left.</b>'
-		if altQS = 1:
-			gt 'altPRE','Cursed Schoolgirl Start'
-		else
-			gt 'altPRE','Alternate Start'
-		end
-	end
-end
-
-if $ARGS[0] = 'ev':
-	cls
-	gs 'fight', 'Wrestlergen'
-	if mesec > 0:isprok = 1
-	'<center><img src="images/pic/alterstart7.jpg"></center>'
-	'Your 13th year began like it did for most other girls in your class: you occasionally got sick, you started to grow breasts, armpit and pubic hair. Your skin became very greasy and you have a pretty bad case of acne. You did your best in school, and managed to get very decent results. Only one more year of school left before you graduate!'
-	'But first: it''s time for a well-deserved holiday!'
-	'<i>You can decide to begin your game at the end of the summer holiday, very close to beginning your final school year. Alternatively, you can start at the beginning of the holiday.</i>'
-
-	act 'Start at the end of August <B>(recommended for new players)</B>':
-		SHOWSTAT 1
-		SHOWOBJS 1
-		bikini=1
-		health = pcs_vital*10 + pcs_stren*5+1000
-		willpower = pcs_intel*5 + pcs_sprt*5+1000
-		manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo
-		if oldobjmenu = 0:
-			gs 'obj_din', 'new'
-		else
-			gs 'obj_din', 'old'
-		end
-		kanicont = 3
-		if altQS = 1:
-			gt 'altPRE','Cursed Schoolgirl Start'
-		else
-			gt 'altPRE','Alternate Start'
-		end
-	end
-
-	act 'Start at the beginning of June':
-		SHOWSTAT 1
-		SHOWOBJS 1
-        bikini=1
-		health = pcs_vital*10 + pcs_stren*5+1000
-		willpower = pcs_intel*5 + pcs_sprt*5+1000
-		manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo
-		if oldobjmenu = 0:
-			gs 'obj_din', 'new'
-		else
-			gs 'obj_din', 'old'
-		end
-		month = 6
-		$month = 'June'
-		day = 1
-		week = 1
-		daystart_start = 152
-		kanicont = 92
-		if altQS = 1:
-			gt 'altPRE','Cursed Schoolgirl Start'
-		else
-			gt 'altPRE','Alternate Start'
-		end
-	end
-end
-
-if $ARGS[0] = 'gtipe':
-	i=1
-	:mark_grup
-	if grupTipe=grupTipe[i]:
-		npc_rel['A<<i>>']+=rand(25,30)
-	else
-		npc_rel['A<<i>>']-=rand(10,20)
-	end
-	i+=1
-	if i<=25:jump'mark_grup'
-end
-
---- alterStart ---------------------------------
-

+ 48 - 63
locations/begin

@@ -1,15 +1,6 @@
 # begin
 
 if $ARGS[0] = 'start':
-	gs 'din_pav'
-	gs 'dinSex2'
-	gs 'dina'
-	gs 'din_van'
-	gs 'din_bad'
-	gs 'dinSex'
-	gs 'dinBoroda'
-	gs 'BanSexType'
-	!{cycle start}
 
 	'<center><b><font color="maroon">CHOOSE GAME START</font></b></center>'
 	*nl
@@ -24,31 +15,26 @@ if $ARGS[0] = 'start':
 	
 	act '<center><b>Original start</b></center>':
 		cla
-		pc = 100
-		VersionCheck = 5030
 		act '<center>Show intro (recommended)</center>':
-			gt 'altPRE', 'Original start'
+			gt 'preCS', 'TGStart'
 		end
 		act '<center>Skip intro (seen it before)</center>':
-			gt 'altPRE', 'Original start, Skip intro'
+			tgs_skipinto = 1
+			gt 'preCS', 'TGStart'
 		end
 	end
 
 	act '<center><b>Alternate Start</b></center>':
 		cla
-		pc = 0
-		VersionCheck = 5030
 		MagikDostup = 1
-		gt 'alterStart'
+		gt 'preCS', 'SGStart'
 		
 	end
 
 	act '<center><b>Cursed Schoolgirl Start</b></center>':
 		cla
-		pc = 0
-		VersionCheck = 5030
 		altQS = 1
-		gt 'alterStart'
+		gt 'preCS', 'SGStart'
 	end
 end
 
@@ -72,7 +58,7 @@ if $ARGS[0] = 'real_character':
 
 	act'<center><b>Start a standard character</b></center>':
 		cls
-		gt'begin', 'start'
+		gt 'begin', 'start'
 	end
 	act'<center><b>Use the avatar system</b></center>':
 		cls
@@ -81,14 +67,14 @@ if $ARGS[0] = 'real_character':
 		pcs_eyesize = 2
 		pcs_haircol = 1
 		pcs_lip = 2
-		gt'begin','description_real_character'
+		gt 'begin', 'description_real_character'
 	end
 end
 
 if $ARGS[0] = 'description_real_character':
 	gs 'begin', 'hair'
 	gs 'begin', 'lip'
-	gs 'begin', 'glaza'
+	gs 'begin', 'eyes'
 	cls
 	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
 	'<center><img src="images/pic/character_creation_pic1.jpg"></center>'
@@ -100,13 +86,9 @@ if $ARGS[0] = 'description_real_character':
 	'<center><a href="exec:gs ''begin'', ''birthday''">Birthday</a></center>'
 	'<center><a href="exec:gs ''begin'', ''hair''">Hair</a></center>'
 	'<center><a href="exec:gs ''begin'', ''lip''">Lips</a></center>'
-	'<center><a href="exec:gs ''begin'', ''glaza''">Eyes</a></center>'
+	'<center><a href="exec:gs ''begin'', ''eyes''">Eyes</a></center>'
 
-	if opPRE = 2:
-	   act'<center><b>Done</b></center>': gt 'alterStart', 'custom'
-	else
-	   act'<center><b>Done</b></center>':gt'begin', 'start'
-	end
+	act'<center><b>Done</b></center>': gt 'begin', 'start'
 end
 
 if $ARGS[0] = 'hair':
@@ -114,14 +96,14 @@ if $ARGS[0] = 'hair':
 	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
 	'<center><img src="images/pic/character_creation_pic1.jpg"></center>'
 	*nl
-	if pcs_haircol = 0 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">black</a> hair.'& $hair2 = 'black hair' & $hair3 = 'black hair'
-	if pcs_haircol = 1 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">brown</a> hair.'& $hair2 = 'brown hair' & $hair3 = 'brown hair'
-	if pcs_haircol = 2 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">red</a> hair.'& $hair2 = 'Red hair' & $hair3 = 'red hair'
-	if pcs_haircol = 3 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">blonde</a> hair.'& $hair2 = 'blond hair' & $hair3 = 'blond hair'
-	if pcs_haircol = 0 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">black</a> hair.'& $hair2 = 'curls' & $hair3 = 'black curls'
-	if pcs_haircol = 1 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">brown</a> hair.'& $hair2 = 'curls' & $hair3 = 'blond curls'
-	if pcs_haircol = 2 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">red</a> hair.'& $hair2 = 'curls' & $hair3 = 'red hair'
-	if pcs_haircol = 3 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">blonde</a> hair.' &$hair2 = 'curls' & $hair3 = 'blond curls'
+	if pcs_haircol = 0 and pcs_haircurl <= 0:$hair = 'You have <a href="exec:pcs_haircurl = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">black</a> hair.'& $hair2 = 'black hair' & $hair3 = 'black hair'
+	if pcs_haircol = 1 and pcs_haircurl <= 0:$hair = 'You have <a href="exec:pcs_haircurl = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">brown</a> hair.'& $hair2 = 'brown hair' & $hair3 = 'brown hair'
+	if pcs_haircol = 2 and pcs_haircurl <= 0:$hair = 'You have <a href="exec:pcs_haircurl = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">red</a> hair.'& $hair2 = 'Red hair' & $hair3 = 'red hair'
+	if pcs_haircol = 3 and pcs_haircurl <= 0:$hair = 'You have <a href="exec:pcs_haircurl = 1 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">blonde</a> hair.'& $hair2 = 'blond hair' & $hair3 = 'blond hair'
+	if pcs_haircol = 0 and pcs_haircurl > 0:$hair = 'You have <a href="exec:pcs_haircurl = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">black</a> hair.'& $hair2 = 'curls' & $hair3 = 'black curls'
+	if pcs_haircol = 1 and pcs_haircurl > 0:$hair = 'You have <a href="exec:pcs_haircurl = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">brown</a> hair.'& $hair2 = 'curls' & $hair3 = 'blond curls'
+	if pcs_haircol = 2 and pcs_haircurl > 0:$hair = 'You have <a href="exec:pcs_haircurl = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">red</a> hair.'& $hair2 = 'curls' & $hair3 = 'red hair'
+	if pcs_haircol = 3 and pcs_haircurl > 0:$hair = 'You have <a href="exec:pcs_haircurl = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">blonde</a> hair.' &$hair2 = 'curls' & $hair3 = 'blond curls'
 	'<center>Adjust your hair to match your <a href="exec:view''avatar.jpg''">avatar</a>. Please note that, at present, hair choices are overridden by your starting personality choice (e.g. volleyball players will always have straight blond hair).</center>'
 	*nl
 	if avatar_hair = 1:
@@ -130,7 +112,7 @@ if $ARGS[0] = 'hair':
 	else
 		'<center><i><<$hair>></i> You may also <a href="exec:gs ''begin'', ''hair_input'' & gs ''begin'', ''hair''">manually enter a description</a></center>.'
 	end
-	act'<center><b>Done</b></center>':gt'begin','description_real_character'
+	act'<center><b>Done</b></center>': gt'begin','description_real_character'
 end
 
 if $ARGS[0] = 'pcs_haircol':
@@ -148,21 +130,21 @@ if $ARGS[0] = 'lip':
 	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
 	'<center><img src="images/pic/character_creation_pic1.jpg"></center>'
 	*nl
-	if pcs_lip = 0:$lip = 'you have thin <<$pcs_lipbalm>> lips.' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips'
-	if pcs_lip = 1:$lip = 'You have normal <<$pcs_lipbalm>> lips.' & $liptalk = 'soft lips' & $liptalk2 = 'delicate lips' & $liptalk3 = 'tender lips'
-	if pcs_lip = 2:$lip = 'You have plump <<$pcs_lipbalm>> lips.' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips'
-	if pcs_lip = 3:$lip = 'You have large, <<$pcs_lipbalm>> full lips.' & $liptalk = 'full lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'full lips'
-	if pcs_lip = 4:$lip = 'You have huge, thick <<$pcs_lipbalm>> lips.' & $liptalk = 'thick lips' & $liptalk2 = 'thick lips' & $liptalk3 = 'thick lips'
+	if pcs_lip = 0:$pcs_lip = 'you have thin <<$lipbalmstat>> lips.' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips'
+	if pcs_lip = 1:$pcs_lip = 'You have normal <<$lipbalmstat>> lips.' & $liptalk = 'soft lips' & $liptalk2 = 'delicate lips' & $liptalk3 = 'tender lips'
+	if pcs_lip = 2:$pcs_lip = 'You have plump <<$lipbalmstat>> lips.' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips'
+	if pcs_lip = 3:$pcs_lip = 'You have large, <<$lipbalmstat>> full lips.' & $liptalk = 'full lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'full lips'
+	if pcs_lip = 4:$pcs_lip = 'You have huge, thick <<$lipbalmstat>> lips.' & $liptalk = 'thick lips' & $liptalk2 = 'thick lips' & $liptalk3 = 'thick lips'
 	'<center>Adjust the size of your lips to match your <a href="exec:view''avatar.jpg''">image</a>:</center>'
 	*nl
-	'<center><i><<$lip>></i></center>'
+	'<center><i><<$pcs_lip>></i></center>'
 	*nl
 	if pcs_lip < 4:'<center><a href="exec:pcs_lip += 1 & gs ''begin'', ''lip''">Bigger lips</a></center>'
 	if pcs_lip > 0:'<center><a href="exec:pcs_lip -= 1 & gs ''begin'', ''lip''">Smaller lips</a></center>'
-	act'<center><b>Done</b></center>':gt'begin','description_real_character'
+	act'<center><b>Done</b></center>': gt'begin','description_real_character'
 end
 
-if $ARGS[0] = 'glaza':
+if $ARGS[0] = 'eyes':
 	cls
 	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
 	if player_avatar = 1:
@@ -183,29 +165,29 @@ if $ARGS[0] = 'glaza':
 	if pcs_lashes = 1:$pcs_lashes = 'normal eyelashes'
 	if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
 	if pcs_eyesize > 3:pcs_eyesize = 3
-	if pcs_eyesize = 0:$glaza = 'You have little <a href="exec:gs ''begin'', ''glacol'' & gs ''begin'', ''glaza''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = '<<$pcs_eyecol>> eyes' & $glaza3 = '<<$glacol2>> eyes'
-	if pcs_eyesize = 1:$glaza = 'You have expressive <a href="exec:gs ''begin'', ''glacol'' & gs ''begin'', ''glaza''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'expressive <<$pcs_eyecol>> eyes' & $glaza3 = 'expressive <<$glacol2>> eyes'
-	if pcs_eyesize = 2:$glaza = 'You have large <a href="exec:gs ''begin'', ''glacol'' & gs ''begin'', ''glaza''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'big <<$pcs_eyecol>> eyes' & $glaza3 = 'high <<$glacol2>> eyes'
-	if pcs_eyesize = 3:$glaza = 'You have huge <a href="exec:gs ''begin'', ''glacol'' & gs ''begin'', ''glaza''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'great <<$pcs_eyecol>> eyes' & $glaza3 = 'great <<$glacol2>> eyes'
+	if pcs_eyesize = 0:$glaza = 'You have little <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = '<<$pcs_eyecol>> eyes' & $glaza3 = '<<$glacol2>> eyes'
+	if pcs_eyesize = 1:$glaza = 'You have expressive <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'expressive <<$pcs_eyecol>> eyes' & $glaza3 = 'expressive <<$glacol2>> eyes'
+	if pcs_eyesize = 2:$glaza = 'You have large <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'big <<$pcs_eyecol>> eyes' & $glaza3 = 'high <<$glacol2>> eyes'
+	if pcs_eyesize = 3:$glaza = 'You have huge <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'great <<$pcs_eyecol>> eyes' & $glaza3 = 'great <<$glacol2>> eyes'
 	'<center>Adjust your eyes and eyelashes to match your <a href="exec:view''avatar.jpg''">avatar</a>. Please note, glasses choice may be overridden by your starting personality choice (e.g. bookworms/nerds will always start with glasses).</center>'
 	*nl
 	'<center><i><<$glaza>></i></center>'
 	*nl
-	if pcs_lashes < 2:'<center><a href="exec:pcs_lashes += 1 & gs ''begin'', ''glaza''">Lengthen lashes</a></center>'
-	if pcs_lashes > 0:'<center><a href="exec:pcs_lashes -= 1 & gs ''begin'', ''glaza''">Shorten lashes</a></center>'
-	if pcs_eyesize < 3:'<center><a href="exec:pcs_eyesize += 1 & gs ''begin'', ''glaza''">Larger eyes</a></center>'
-	if pcs_eyesize > 0:'<center><a href="exec:pcs_eyesize -= 1 & gs ''begin'', ''glaza''">Smaller eyes</a></center>'
-	if glass = 0 and glass < 2:'<center><a href="exec:glass = 2 & gs ''begin'', ''glaza''">Wear glasses</a></center>'
-	if glass > 0 and glass <= 2:'<center><a href="exec:glass = 0 & gs ''begin'', ''glaza''">Remove glasses</a></center>'
+	if pcs_lashes < 2:'<center><a href="exec:pcs_lashes += 1 & gs ''begin'', ''eyes''">Lengthen lashes</a></center>'
+	if pcs_lashes > 0:'<center><a href="exec:pcs_lashes -= 1 & gs ''begin'', ''eyes''">Shorten lashes</a></center>'
+	if pcs_eyesize < 3:'<center><a href="exec:pcs_eyesize += 1 & gs ''begin'', ''eyes''">Larger eyes</a></center>'
+	if pcs_eyesize > 0:'<center><a href="exec:pcs_eyesize -= 1 & gs ''begin'', ''eyes''">Smaller eyes</a></center>'
+	if glass = 0 and glass < 2:'<center><a href="exec:glass = 2 & gs ''begin'', ''eyes''">Wear glasses</a></center>'
+	if glass > 0 and glass <= 2:'<center><a href="exec:glass = 0 & gs ''begin'', ''eyes''">Remove glasses</a></center>'
 
 	if player_avatar = 1:
-		act'<center><b>Done</b></center>':gt'begin','description_real_character'
+		act'<center><b>Done</b></center>': gt'begin','description_real_character'
 	else
-		act'<center><b>Done</b></center>':gt 'alterStart', 'custom'
+		act'<center><b>Done</b></center>': gt 'preCUST', 'SGStart'
 	end
 end
 
-if $ARGS[0] = 'glacol':
+if $ARGS[0] = 'eye color':
 	pcs_eyecol += 1
 	if pcs_eyecol > 3: pcs_eyecol = 0
 end
@@ -220,7 +202,10 @@ if $ARGS[0] = 'birthday':
 	end
 	'<center>Choose your date of birth:</center>'
 	*nl
-	if birthyear = 0: birthyear = 2000 and pcs_dob = birthyear * 10000
+	if birthyear = 0: birthyear = 1998
+	if birthmonth = 0: birthmonth = 4
+	if birthday = 0: birthday = 1
+
 	if birthmonth = 2:
 		if ((birthyear mod 4 = 0) and (birthyear mod 100 ! 0)) or (birthyear mod 400 = 0): 
 			monthdays = 29
@@ -248,8 +233,6 @@ if $ARGS[0] = 'birthday':
 		'<center>Your birthday: <B><<birthmonth>>/<<birthday>></B> (MM/DD)</center>'
 	end
 
-	pcs_dob += birthmonth * 100 & pcs_dob += birthday
-
 	*nl
 	'<center><a href="exec:birthday += 5 & gs ''begin'', ''birthday''">+5 Days</a></center>'
 	'<center><a href="exec:birthday += 1 & gs ''begin'', ''birthday''">+1 Day</a></center>'
@@ -269,11 +252,13 @@ if $ARGS[0] = 'birthday':
 	'<center><a href="exec:birthmonth = 12 & gs ''begin'', ''birthday''">December</a></center>'
 
 	if player_avatar = 1:
-		act'<center><b>Done</b></center>':gt'begin','description_real_character'
+		act'<center><b>Done</b></center>': gt 'begin', 'description_real_character'
 	else
-		act'<center><b>Done</b></center>':gt 'alterStart', 'custom'
+		act'<center><b>Done</b></center>': gt 'preCS', 'SGStart2'
 	end
 end
 
 --- begin ---------------------------------
 
+
+

+ 0 - 36
locations/begin1

@@ -1,36 +0,0 @@
-# begin1
-
-showstat 1
-showobjs 1
-$pcs_firstname = 'Svetlana'
-$pcs_lastname = 'Lebedev'
-!!!0.2.6 addition
-$pcs_nickname = 'Sveta'
-!!!
-$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 nick name? (Note: If you chose a custom name, you have to enter something here!)")
-
-if $pcs_nickname = '':$pcs_nickname = 'Sveta'
-!!!
-
-gs 'sleepPRE', 'stat'
-clr
-gs 'stat'
-opPRE = 0
-
-if oldobjmenu = 0:
-	gs 'obj_din', 'new'
-else
-	gs 'obj_din', 'old'
-end
-
---- begin1 ---------------------------------
-

+ 1 - 1
locations/ender

@@ -15,7 +15,7 @@ if $ARGS[0] = 'loss':
 
 		'You fell on the floor and consciousness began to slip away from you.'
 
-		act 'Further':gt'karinPRE'
+		act 'Further': gt 'preTG', 'tatianaPRE'
 		exit
 	elseif jugoFight = 2:
 		health = pcs_vital*10

+ 0 - 114
locations/karinPRE

@@ -1,114 +0,0 @@
-# karinPRE
-minut += 120
-nudity = 0
-clr
-gs 'statPRE'
-fcolor = rgb(0, 0, 0)
-bcolor = rgb(255, 255, 255)
-lcolor = rgb(106, 90, 205)
-'<center><img src="images/picpre/karinpre.jpg"></center>'
-'You wake up in in an unfamiliar room. Standing near you is the same red-haired girl that entered your hotel room.'
-'"Ah, you''re awake," she chirps. "I told this jerk Gustav that he should have treated you more carefully, but he''s bad at listening. As a result I had to use some magic to stabilize you, he almost knocked you out permanently."'
-'"While you were unconscious I did some research on you. Turns out the Amulet of Power passed to you. Must have happened when you touched it. Unfortunately, Reinhold, the guy in your room, he''s probably realized by now that the amulet no longer has the power and now he''s out to hunt you down."'
-
-act 'What''s going on?':
-	cla
-	*clr
-	clr
-	gs 'statPRE'
-	'<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.' 
-	'"As you can figure out, Reinhold wanted to prevent the amulet being misused, but he was not very thorough and didn''t check you over."'
-
-	act 'So, the whole world is just an illusion?':
-		cla
-		*clr
-		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
-			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
-				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 Reinhold got to you first. The amulet will now be pretty much useless anyway, as its power passed on to you."'
-				'"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. Reinhold easily overpowered your will and forced you to obey, and Gustav beat you like a puppy."'
-
-				act 'What is this amulet? Where did it come from?':
-					cla
-					*clr
-					clr
-					gs 'statPRE'
-					'<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 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. The bad news is it is far too powerful and will kill you." At this you are filled with fear and start to struggle against your bindings.'
-					'"You are lucky Reinhold didn''t realise this, he would have stopped you from accidentally wielding the power and killing yourself and who knows how many others by killing you in that hotel room. I have another way to save you, but you''re not going to like it."'
-					'You don''t say anything, so she continues, "I can feel the aura of power emanating from you, by drawing from that I can perform a powerful magic spell that will transform you into someone who is protected from the masculine alignment of the power."'
-
-					act 'Uh, I do not understand, what are you suggesting?':
-						cla
-						*clr
-						clr
-						gs 'statPRE'
-						'<center><img src="images/picpre/karinpre.jpg"></center>'
-						'"Uh, I do not understand, what are you suggesting?" you ask her.'
-						'Tatiana runs a hand through her hair and giggles. "I''ll make you a pretty, young girl and the power will lie dormant saving you from blowing up a city or something."'
-						'Your eyes widen in shock.'
-						'"Well, there is another way, I can just stop your heart and let your power dissolve into nature, but you will die. I''m not Reinhold, I can take this risk and I don''t want to kill you. Maybe with more time doing research I can work out another solution, but I cannot leave you like this."'
-
-						act 'What about your family?':
-							cla
-							*clr
-							clr
-							gs 'statPRE'
-							'<center><img src="images/picpre/karinpre.jpg"></center>'
-							'"Hey, I do not want to be a woman. I have a family, a wife, a daughter", you tell her, afraid.'
-							'Tatiana smiles. "Well the choice is simple, either you die or live without a penis for the time being."'
-							'"As for your family, not to worry. I''ll arrange everything. We will fabricate your death to get Reinhold off your back. To make your transition easier I''ll cover your memory of the family, they will only be ghostly memories, you won''t even remember where you lived. Don''t worry, I won''t erase your entire memory and leave you a useless vegetable."'
-
-							act 'There must be another way!':
-								cla
-								*clr
-								clr
-								gs 'statPRE'
-								'<center><img src="images/picpre/karinpre.jpg"></center>'
-								'"There must be another way!" you panic. You tug at the restraints on the bed.' 
-								'Tatiana''s face becomes serious. "Do not argue. It is the only way available to me. You will need a to use a new name, think it over in your dreams and tell me when you wake up, otherwise I will give you a pretty name. Now go to sleep." Says Tatiana as she puts her hand on your chest. Your vision immediately fades.'
-
-								act 'Sleep':gt 'sleepPRE', 'start'
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
---- karinPRE ---------------------------------
-

+ 0 - 168
locations/otelPRE

@@ -1,168 +0,0 @@
-# otelPRE
-minut += 30
-clr
-gs 'statPRE'
-fcolor = rgb(0, 0, 0)
-bcolor = rgb(255, 255, 255)
-lcolor = rgb(106, 90, 205)
-money -= 3000
-'<center><img src="images/picpre/otelpre.jpg"></center>'
-'Your trip to the hotel is quite uneventful compared to your tomb raiding adventure.'
-*nl 
-'You park your car and go to the receptionist to get a room. There are only double rooms available, but its going on the company card, so that just means you''ll get a bigger room. You swipe your company card and take your room key.'
-
-act 'Head upstairs to your room':
-	cla
-	*clr
-	clr
-	gs 'statPRE'
-	'<center><img src="images/picpre/otelpre1.jpg"></center>'
-	'Lying down on one of the beds, you start to wonder just who built that crypt and what it''s purpose was. Your thoughts drift to that amulet you found. The way that thing you touched half an hour ago still makes you feel wonderful, which baffles you.'
-
-	act 'Call the director':
-		cla
-		*clr
-		clr
-		gs 'statPRE'
-		'<center><img src="images/picpre/otelpre1.jpg"></center>'
-		'You dial Romans'' number and after a few rings, he picks up. You report to him the details of what you found at the site with Igor: an ancient tomb, human bones, scrolls in a mysterious language and the altar in that room.'
-		*nl 
-		'The director stays silent while you give your report. A few moments later, he decides that it would be best to stop the construction. He tells you to stay and keep watch over the site until further notice.'
-		*nl 
-		'You put the phone away. <i>Looks like this trip is going to last longer than expected</i>, you think to yourself.'
-
-		act 'Go to bed':
-			cla
-			*clr
-			clr
-			gs 'statPRE'
-			'<center><img src="images/picpre/otelpre1.jpg"></center>'
-			'It doesn''t take you long to drift off to sleep'
-			*nl 
-			'Images begin to form in your mind and you soon find yourself in a middle of a dream. The amulet stands before you and out of it comes a ghost of some sort. Before you even realise what you are doing, you find yourself staring deep into the ghost''s eyes which turn into two planet earths.'
-			*nl 
-			'"Look at the world most just see the mundane, but there is more to it much more and now you see that too you have the potential to shape it all, but first, you have company."'
-			*nl 
-			'Suddenly your senses return and you feel the hotel room around you, but you can tell you are not alone.'
-
-			act 'Open your eyes':
-				cla
-				*clr
-				clr
-				gs 'statPRE'
-				'<center><img src="images/picpre/tobipre.jpg"></center>'
-				'As you open your eyes, you see a man standing in your room. He is wearing a long black coat and his face looks weary; he is unshaven and reminds you of most police detectives in Hollywood films.'
-				*nl 
-				'"Where is the amulet?" he approaches you.'
-
-				act 'Ask who he is':
-					cla
-					*clr
-					clr
-					gs 'statPRE'
-					'<center><img src="images/picpre/tobipre.jpg"></center>'
-					'"Who are you?" you ask puzzledly. The man''s sudden appearance and a sense you never knew you had tell you something about him is not of the world you know.'
-					*nl 
-					'"Listen, don''t cause any problems now. Give me the amulet, close the construction site, and all will be fine. After all that place belongs to us," he says in a firm voice.'
-					*nl 
-					'<i>Belongs to us?</i> His response leaves you bewildered, wondering who he is and what this is all about.'
-					*nl 
-					'"Well, how about I give you a small taste of my power." the man says, and out of nowhere comes a burning desire to give him the amulet.'
-
-					act 'Give him the amulet':
-						cla
-						*clr
-						clr
-						gs 'statPRE'
-						'<center><img src="images/picpre/otelpre1.jpg"></center>'
-						'You get out of the bed and give him the stone figure you had put in your pants earlier. The man takes it, steps back, and without warning, something in his eyes begins to spin like a whirlwind, causing your own eyes to blur as if he was hypnotising you. A few seconds later your vision clears with the man having somehow disappeared into thin air.' 
-						*nl 
-						'You rub your eyes, "What the hell is going on here? Was that a dream?. No, it can''t be. I wouldn''t walk around in a dream. I think." You say to no one in particular then check your pants, the amulet is indeed gone. You sit down on the bed trying to make sense of what just happened.'
-						*nl 
-						'While lost in thought, you hear a knock on the door. You get up to open the door, not even thinking why you would have visitors this late at night.'
-						'"...Who''s there?", you ask, still confused.'
-						*nl 
-						'A woman''s voice responds that she''s the hotel receptionist and that she needs to talk to you on an urgent matter.'
-
-						act 'Answer the door':
-							cla
-							*clr
-							clr
-							gs 'statPRE'
-							'<center><img src="images/picpre/karinpre.jpg"></center>'
-							'You open the door, but don''t recall the woman in front of you being at the reception desk; the woman from earlier didn''t have red hair and glasses. After entering the room she quickly examines the place, before locking her eyes on you.'
-							*nl 
-							'"Michael, right?" - You nod.'
-							*nl 
-							'"Last night you went to a certain place and took out something very valuable and powerful." the woman speaks to you.'
-
-							act 'Another one?':
-								cla
-								*clr
-								clr
-								gs 'statPRE'
-								'<center><img src="images/picpre/karinpre.jpg"></center>'
-								'<i>Again?</i>'
-								*nl 
-								'You sigh, irritated that not only have you been disturbed in the middle of the night, but these idiots apparently cannot even agree among themselves who the one to disturb you is.'
-								*nl 
-								'"Listen, you''re starting to bother me. That other guy already showed up asking for the damn amulet."'
-								*nl 
-								'She looks at you with surprise. "What? Someone already came here? Who was it?"'
-
-								act 'Tell her':
-									cla
-									*clr
-									clr
-									gs 'statPRE'
-									'<center><img src="images/picpre/karinpre.jpg"></center>'
-									'"It was some man in a navy cloak with ginger hair and a light beard, he didn''t tell me his name. He already took the amulet." You answer.'
-									*nl 
-									'The girl''s face drops. "Damn it!" She looks into your eyes. "Okay... Michael, we have to go somewhere else, there are too many people that might bet hurt here. Gustav, come here!" The girl calls out to the corridor.'
-									*nl 
-									'A tall man enters the room'
-
-									act 'Prepare to fight':
-										cla
-										*clr
-										clr
-										gs 'statPRE'
-										'<center><img src="images/picpre/jugopre.jpg"></center>'
-										'The man has a large tattoo across the left side of his face. He too has red hair'
-										gs 'boyStat', 175
-										!!stats
-										strenV = 600
-										speedV = 60
-										agilV = 60
-										reactV = 50
-										vitalV = 200
-										intelV = 50
-										willV = 50
-										!!skills
-										magikV = 100
-										boxingV = 100
-										shootV = 100
-										!!parameters
-										healthV = vitalV * 10 + strenV * 5
-										mannaV = intelV * 10 + magikV * 10
-										willpowerV = willV * 10
-										BonusAtakV = 0
-										BonusDefV = 0
-										!!Programme of Action
-										program = 0
-										jugoFight = 1
-
-										act 'Fight':gt 'fight', 'start'
-									end
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
---- otelPRE ---------------------------------
-

+ 71 - 109
locations/altPRE → locations/preALT

@@ -1,109 +1,58 @@
-# 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
+# preALT
+
+cls
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+
+!!School Girl Specific Story elements
+if $ARGS[0] = 'One':
+	'<center><img src="images/pic/alterstart1.jpg"></center>'
+	'You are <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>'
+	'You were born in <<birthyear>>. You have a sister, Anya, who is 2 years older than you.'
+	'Your mother is Natasha <<$pcs_lastname>>. You don''t know much about your biological father... your mother never wants to talk about him, or why he left you and Anya with her.'
+	'Your mother found another man not too long after her and your biological father and her divorced, Vladimir Mikhailovich Scriabin. Together they had your little brother Kolka. Even though he''s not your real father, Vladimir always treated you and Anya as if they were his own children.'
+	act 'Continue': gt 'preALT', 'Two'
 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)
+if $ARGS[0] = 'Two':
+	'<center><img src="images/pic/alterstart<<alterstrtimg>>.jpg"></center>'
+	'You had a pleasant, undisturbed childhood when you were young. Although you don''t remember much from kindergarten, you do remember going to elementary school when you were 7 years old.'
+	''
+	$startgrptemp
+	killvar 'alterstrtimg'
+	killvar '$startgrptemp'
+	act 'Continue': gt 'preALT', 'Three'
+end
+if $ARGS[0] = 'Three':
+	'<center><img src="images/pic/alterstart7.jpg"></center>'
+	if yearlefttemp = 1:
+		'Your 13th year began like it did for most other girls in your class: you occasionally got sick, you started to grow breasts, armpit and pubic hair. Your skin became very greasy and you have a pretty bad case of acne. You did your best in school, and managed to get very decent results. Only one more year of school left before you graduate!'
+		'But first: it''s time for a well-deserved holiday!'
 	else
-		menoage += rand(7,13)
+		'As with all girls, you reached the milestone of puberty two years ago. Like it does for most girls, it started for you when you were 13 years old. You had your first period, which sucked... but that was the start of your changes.'
+		*nl
+		'Your chest then felt strange and you discovered your breasts were growing! This excited you: how big will they be when you grow up? Hair also began to form on your armpits and groin, and at the same time you felt... things, intimate things. Over time you learned to appreciate these feelings, and how to manage your developing body. Your troublesome skin complexion remains an issue though.'
+		*nl
+		'When you finished 9th grade, you decided to continue with your secondary education. Two more years of school to go, but first: it''s time for the summer holiday!'
+	end
+	killvar 'yearlefttemp'
+	if MagikDostup = 1:
+		showstat 1
+		showobjs 1
+		if oldobjmenu = 0:
+			gs 'obj_din', 'new'
+		else
+			gs 'obj_din', 'old'
+		end
+		act 'Begin': gt 'bedrPar'
+	else
+		act 'Continue': gt 'preALT', 'Cursed Schoolgirl Start'
 	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
@@ -144,7 +93,7 @@ if $ARGS[0] = 'Cursed Schoolgirl Start':
                                     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'
+                                    act 'Continue': gt 'preALT','Cursed Schoolgirl Start 2'
                                 end
                             end
                         end
@@ -153,7 +102,16 @@ if $ARGS[0] = 'Cursed Schoolgirl Start':
             end
         end
     end
-	act 'Skip intro':gt 'pavResidential'
+	act 'Skip intro':
+		showstat 1
+		showobjs 1
+		if oldobjmenu = 0:
+			gs 'obj_din', 'new'
+		else
+			gs 'obj_din', 'old'
+		end
+		gt 'pavResidential'
+	end
 end
 
 if $ARGS[0] = 'Cursed Schoolgirl Start 2':
@@ -180,9 +138,7 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 		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."'
@@ -191,9 +147,7 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 			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."'
@@ -202,9 +156,7 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 				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."'
@@ -232,7 +184,16 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 								*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'
+								act 'Continue':
+									showstat 1
+									showobjs 1
+									if oldobjmenu = 0:
+										gs 'obj_din', 'new'
+									else
+										gs 'obj_din', 'old'
+									end
+									gt 'pavResidential'
+								end
 							end
 						end
 					end
@@ -241,5 +202,6 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 		end
 	end
 end
---- altPRE ---------------------------------
+
+--- preALT ---------------------------------
 

+ 281 - 0
locations/preCS

@@ -0,0 +1,281 @@
+# preCS
+
+!!Background Options
+cls
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+
+!!******************** TG Start Background Options ******************************
+if $ARGS[0] = 'TGStart':
+!!	Nothing here for now
+
+	
+	if tgs_skipinto = 1:
+		gt 'preCUST', 'TGStart'
+	else
+		gt 'preTG', 'roomPRE'
+	end
+end
+
+!!******************** SG Start Background Options ******************************
+if $ARGS[0] = 'SGStart':
+
+	StoryLine = 1
+
+	month = 8
+!!	Last friday in August 2016
+	$month = 'August'
+	day = 26
+	week = 5
+	daystart_start = 236
+	hour = 9
+	kanikuli = 5
+	$holyday = '<b>Summer holidays</b>'
+
+	if player_avatar = 0:
+		birthmonth = 4
+		birthday = 1
+		pcs_eyecol = 1
+		pcs_eyesize = 2
+		pcs_haircol = 1
+		pcs_lip = 2
+	end
+
+!!	Body
+	pcs_hgt = 170
+	fat = 60
+	salo = 60
+	dick = 0
+	pcs_energy = 60
+	water = 60
+	pcs_sleep = 70
+!!	Stats
+	speed = 10
+	pcs_stren = 10
+	strenbuf = 10
+	pcs_agil = 10
+	agilbuf = 10
+	pcs_vital = 10
+	vitalbuf = 10
+	pcs_intel = 10
+	pcs_sprt = 10
+	pcs_react = 10
+!!	pcs_chrsm = 10
+!!	pcs_prcptn = 10
+	pcs_magik = 0
+
+!!	pcs_makupskl = 25
+	pcs_pubes = 3
+	pcs_leghair -= 5
+	pcs_makeup = 1
+
+	money = 50
+	housrA = 0
+	npc_rel['A28'] = 50
+	npc_rel['A29'] = 50
+	npc_rel['A33'] = 50
+	npc_rel['A34'] = 50
+	pcs_grades = 75
+	prezikProver = 3
+	brothersawpirsF = 0
+
+!!	********************
+	$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'
+
+	$pcs_nickname = input("What is your nick name? (Note: If you chose a custom name, you have to enter something here!)")
+
+	if $pcs_nickname = '':$pcs_nickname = 'Sveta'
+
+	'Your name is <<$pcs_firstname>> <<$pcs_lastname>>, Friends and family sometimes call you <<$pcs_nickname>>.'
+
+	act 'Re-enter name/s': gt 'preCS', 'SGStart'
+	act 'Continue':
+		cls
+		'Please select how long you have left in school.'
+		act 'Begin at the last year of school, age 16 or 17':
+			birthyear = 1999
+			yearlefttemp = 1
+			gt 'preCS', 'SGStart2'
+		end
+		act 'Begin at the second-last year of school, age 15 or 16':
+			birthyear = 2000
+			yearlefttemp = 2
+			gt 'preCS', 'SGStart2'
+		end
+	end
+end
+if $ARGS[0] = 'SGStart2':
+	if birthday < 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday < 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	end
+
+	if player_avatar = 0:
+		'<a href="exec:gt ''begin'', ''birthday''"><<$startdob>></a>.'
+	else
+		'<<$startdob>>'
+	end
+	'You can begin your game at the end of the summer holiday, very close to starting the new school year. Alternatively, you can start at the beginning of the holiday.'
+	killvar '$startdob'
+	act 'Start at the end of August <B>(recommended for new players)</B>':
+!!		This is the default start
+		gt 'preCS', 'SGStart3'
+	end
+
+	act 'Start at the beginning of June':
+		month = 6
+		$month = 'June'
+		day = 1
+		week = 3
+		daystart_start = 152
+		kanicont = 92
+		gt 'preCS', 'SGStart3'
+	end
+end
+if $ARGS[0] = 'SGStart3':
+!!	This will be where the advanced social group options go.
+	'Select your personality/social group:'
+	act 'I am a complete bookworm!':
+		cls
+		pcs_stren = 1
+		pcs_vital = 5
+		pcs_agil = 1
+		fat = 10
+		salo = 180
+		pcs_intel = 50
+		pcs_tan = 0
+		blizoruk = 300
+		if glass < 1 : glass = 1
+		pcs_grades = 55
+!!		Maruda Hair Mod
+		if player_avatar ! 1: pcs_hairlng = 90
+		if player_avatar ! 1: pcs_haircol = 0
+		hpingrip = 10
+		hpingripw = 1
+!!		**********
+		pcs_nerd = 100
+		fantasybook = 5
+		grupTipe=0
+		alterstrtimg = 3
+		$startgrptemp = 'While you were growing up, you spent virtually all your free time at home, reading books. While you have gained a lot of knowledge from reading books, your sedentary lifestyle has left you quite frumpy. The long nights of trying to read in poor light have taken a toll on your eyesight as well, so you now need glasses to be able to read.'
+
+		gt 'preCUST', 'SGStart'
+	end
+
+	act 'I am the queen of the nerds!':
+		cls
+		pcs_stren = 5
+		pcs_vital = 5
+		pcs_agil = 5
+		fat = 10
+		salo = 10
+		pcs_intel = 40
+		pcs_tan = 30
+		npc_rel['A29'] = 100
+		npc_rel['A28'] = 100
+		money += 3000
+		blizoruk = 300
+		pcs_dom = 50
+		if glass < 1 : glass = 1
+		pcs_grades = 110
+!!		Maruda Hair Mod
+		if player_avatar ! 1: pcs_hairlng = 50
+		if player_avatar ! 1: pcs_haircol = 1
+		hpingrip = 10
+		hpingripw = 1
+!!		**********
+		pcs_nerd = 100
+		fantasybook = 5
+		grupTipe=1
+		alterstrtimg = 4
+		$startgrptemp = 'While you were growing up, you spent virtually all your free time at home, reading books and playing fantasy games with the other nerds. While you have gained a huge amount of knowledge from this, your lack of interest in exercising as a child has left your body a little frail. The long nights of trying to read in poor light have taken a toll on your eyesight as well, so you now need glasses to be able to read. However, by the usual nerd standards you are confident and dynamic, this has lead you to be the leader of your group of friends and more acceptable to the other kids.'
+
+		gt 'preCUST', 'SGStart'
+	end
+
+	act 'I am a good student':
+		cls
+		fat = 150
+		salo = 150
+		pcs_intel = 50
+		pcs_grades = 110
+!!		Maruda Hair Mod
+		if player_avatar ! 1: pcs_hairlng = 162
+		if player_avatar ! 1: pcs_haircol = 0
+		hpingrip = 10
+		hpingripw = 1
+!!		**********
+		npc_rel['A29'] = 100
+		money += 2000
+		pcs_tan = 30
+		grupTipe=1
+		alterstrtimg = 4
+		$startgrptemp = 'You were always a bit of a teacher''s pet, trying to absorb every bit of knowledge and doing everything you could to excel in school. While this attitude has gained you a lot of respect, it did not earn you a lot of friends, and you never had time for sports. You have excellent grades though, and your mother is very proud of you.'
+
+		gt 'preCUST', 'SGStart'
+	end
+
+	act 'I am an avid volleyball player!':
+		cls
+		pcs_stren = 25
+		pcs_vital = 25
+		speed = 25
+		pcs_agil = 25
+		fat = 20
+		salo = 20
+		sanpad = 0
+		tampon = 20
+		pcs_vball = 70
+		pcs_run = 40
+		gsAboVolley = 120
+		pcs_dom = 10
+!!		Maruda Hair Mod
+		if player_avatar ! 1: pcs_hairlng = 97
+		if player_avatar ! 1: pcs_haircol = 3
+		hscrunch = 10
+		hscrunchw = 0
+!!		**********
+		pcs_tan = 30
+		grupTipe=2
+		alterstrtimg = 5
+		$startgrptemp = 'Ever since you first tried volleyball, you have been in love with the sport. You spent a lot of your free time trying to get better at it, and it paid off: you''re actually quite good now! However, your obsession with volleyball has had some repercussions on your school performance; you''re a sub-par student, and you haven''t made many friends.'
+
+		gt 'preCUST', 'SGStart'
+	end
+
+	act 'I have a lot of friends!':
+		cls
+		pcs_stren = 10
+		pcs_vital = 10
+		pcs_agil = 20
+		fat = 30
+		salo = 30
+		pcs_dom = 50
+!!		Maruda Hair Mod
+		if player_avatar ! 1: pcs_hairlng = 19
+		if player_avatar ! 1: pcs_haircol = 2
+!!		**********
+		pcs_tan = 30
+		grupTipe=4
+		alterstrtimg = 2
+		$startgrptemp = 'You spent most of your childhood outdoors, playing with other girls and boys. As a result, you''re quite healthy and are pretty strong verbally, knowing how to get yourself out of trouble. However, you were never very interested in school or sports, and are only a sub-par student.'
+
+		gt 'preCUST', 'SGStart'
+	end
+
+end
+
+--- preCS ---------------------------------
+

+ 357 - 0
locations/preCUST

@@ -0,0 +1,357 @@
+# preCUST
+
+cls
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+
+!!Body Customization and Initializations
+if $ARGS[0] = 'BeforeCust':
+!!	This is a placeholder at the moment
+end
+
+!!******************** TG Start Body Customization Options ******************************
+if $ARGS[0] = 'TGStart':
+!!	This is to bypass the next part if the avatar system was used
+!!	It will be changed to bypass the head options, once more body options are added
+	if player_avatar = 1: gt 'preCUST', 'Done', 'TGS'
+
+!!	Just hair and eye color here for now; the dialog will be update as more options are added
+	'As you drift in unconsciousness, an impression of a woman forms in your mind. Many aspects of her appearance are indistinct, but there are some things you can make out.'
+	'She is fairly tall.'
+	''
+	if pcs_eyecol = 0: 'She has <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''TGStart''">brown</a> eyes.'
+	if pcs_eyecol = 1: 'She has <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''TGStart''">gray</a> eyes.'
+	if pcs_eyecol = 2: 'She has <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''TGStart''">green</a> eyes.'
+	if pcs_eyecol = 3: 'She has <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''TGStart''">blue</a> eyes.'
+	''
+	if pcs_haircol = 0: 'Her hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''TGStart''">black</a>.'
+	if pcs_haircol = 1: 'Her hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''TGStart''">brown</a>.'
+	if pcs_haircol = 2: 'Her hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''TGStart''">red</a>.'
+	if pcs_haircol = 3: 'Her hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''TGStart''">blonde</a>.'
+	if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & pcs_haircurl = 2147483647 & gt ''preCUST'', ''TGStart''">straight</a>.'
+	if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & pcs_haircurl = 0 & gt ''preCUST'', ''TGStart''">curly</a>.'
+	''
+	'Everything else about her is fuzzy...'
+	''
+
+	act 'Done': gt 'preCUST', 'Done', 'TGS'
+end
+
+!!******************** SG Start Body Customization Options ******************************
+if $ARGS[0] = 'SGStart':
+!!	This is to bypass the next part if the avatar system was used
+!!	It will be changed to bypass the head options, once more body options are added
+	if player_avatar = 1: gt 'preCUST', 'Done', 'SGS'
+
+	'<center>Current face image (based on hairstyle)</center>'
+	'<center><img src="<<FUNC(''$face_image'')>>"></center>'
+	if pcs_eyecol = 0: 'You have <a href="exec:pcs_eyecol = 1 & gt ''preCUST'', ''SGStart''">brown</a> eyes.'
+	if pcs_eyecol = 1: 'You have <a href="exec:pcs_eyecol = 2 & gt ''preCUST'', ''SGStart''">gray</a> eyes.'
+	if pcs_eyecol = 2: 'You have <a href="exec:pcs_eyecol = 3 & gt ''preCUST'', ''SGStart''">green</a> eyes.'
+	if pcs_eyecol = 3: 'You have <a href="exec:pcs_eyecol = 0 & gt ''preCUST'', ''SGStart''">blue</a> eyes.'
+	''
+	if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''SGStart''">black</a>.'
+	if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''SGStart''">brown</a>.'
+	if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''SGStart''">red</a>.'
+	if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''SGStart''">blonde</a>.'
+	if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & pcs_haircurl = 2147483647 & gt ''preCUST'', ''SGStart''">straight</a>.'
+	if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & pcs_haircurl = 0 & gt ''preCUST'', ''SGStart''">curly</a>.'
+	''
+	'Personalize attributes related to your <a href="exec:gs ''begin'', ''eyes''">eyes</a></center>.'
+
+	act 'Done': gt 'preCUST', 'Done', 'SGS'
+end
+
+!!******************** Final variable setting and initializations ***********************
+if $ARGS[0] = 'Done':
+!!	Top area for things that need to be done before setting the variables for either start
+	year = 2016
+	year_start = 2016
+	nastjaQW = 0
+	tanga = 1
+
+	BDSMfilm = 0
+	pornstudio = 0
+	pfilmSTOP = 0
+
+	thinkpreg = 0
+	denypreg = 0
+	pertemp = 1
+
+!!	Initializing elasticity
+	vshrink = 1
+	vshrinkdays = 6
+	ashrink = 1
+	ashrinkdays = 3
+
+	fairycurse = -1
+
+	gs 'npcstatic'
+	gs 'fight', 'Wrestlergen'
+
+	monthsend[1] = 31
+	if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0): 
+		Leapyear = 1 & monthsend[2] = 29
+	else
+		Leapyear = 0 & monthsend[2] = 28
+	end
+	monthsend[3] = 31
+	monthsend[4] = 30
+	monthsend[5] = 31
+	monthsend[6] = 30
+	monthsend[7] = 31
+	monthsend[8] = 31
+	monthsend[9] = 30
+	monthsend[10] = 31
+	monthsend[11] = 30
+	monthsend[12] = 31
+
+	$monthName[1] = 'January'
+	$monthName[2] = 'February'
+	$monthName[3] = 'March'
+	$monthName[4] = 'April'
+	$monthName[5] = 'May'
+	$monthName[6] = 'June'
+	$monthName[7] = 'July'
+	$monthName[8] = 'August'
+	$monthName[9] = 'September'
+	$monthName[10] = 'October' 
+	$monthName[11] = 'November'
+	$monthName[12] = 'December'
+	$month = $monthName[month]
+
+!!	TG Start Specific Variable Setting
+	if $ARGS[1] = 'TGS':
+		age = 18
+		month = 5
+		$month = 'May'
+		week = 3
+		hour = 13
+		if player_avatar = 0:
+			birthyear = year - age
+			birthmonth = 4
+			birthday = 1
+		end
+
+!!		Body
+		pcs_hgt = 170
+		fat = 60
+		salo = 60
+		dick = 0
+!!		Stats
+		speed = 10
+		pcs_stren = 10
+		strenbuf = 10
+		pcs_agil = 10
+		agilbuf = 10
+		pcs_vital = 10
+		vitalbuf = 10
+		pcs_intel = 10
+		pcs_sprt = 10
+		pcs_react = 10
+!!		pcs_chrsm = 10
+!!		pcs_prcptn = 10
+		pcs_magik = 0
+		money = 16500
+		housrA = 1
+		pcs_pubes = 3
+		pcs_leghair = 3
+		pcs_makeup = 1
+		housr = 1
+
+!!		Maruda Hair Mod
+		pcs_hairlng = 17
+!!		***********
+		cltarelka = 1
+		fairy = 10
+		eda = 5
+		clrbelo = 2
+		poroshok = 5
+		shampoo = 5
+		tampon = 2
+		pcs_energy = 100
+		water = 100
+		pcs_sleep = 100
+
+!!		Starting Option Adjustments
+!!		The TG Background options would be aplied here
+
+!!		***********
+
+		daystart_start = 145
+	end
+
+!!	SG Start Specific Variable Setting
+	if $ARGS[1] = 'SGS':
+		school[6] = 1
+		umbrella = 1
+		sisboyday = -2
+		housr = 0
+		cltarelka = 0
+		fairy = 0
+		eda = 0
+		clrbelo = 10
+		poroshok = 0
+		shampoo = 0
+		sanpad = 20
+
+		hcolmotherremember = pcs_haircol
+		hcolfatherremember = pcs_haircol
+		hcolfronce = 1
+
+		$holyday += ', <b><<kanicont>> days left.</b>'
+		
+		gs 'gschool_lessons', 'npc_data'
+
+!!		Social Group Relationship update
+		i = 1
+		:mark_grup
+		if grupTipe = grupTipe[i]:
+			npc_rel['A<<i>>'] += rand(25,30)
+		else
+			npc_rel['A<<i>>'] -= rand(10,20)
+		end
+		i += 1
+		if i <= 25: jump 'mark_grup'
+!!		**********
+		
+	end
+!!*************************
+!!	Final Initializations
+
+	VersionCheck = 5030
+
+	pcs_dob += birthyear * 10000
+	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
+		
+	if age < 17:
+		vidage = age
+	else
+		vidage = age - 1
+	end
+
+	vidageday = 300
+
+	pcs_health = pcs_vital * 10 + pcs_stren * 5
+	pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
+	pcs_manna = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
+
+	pcs_nhcol = pcs_haircol
+	oldsavepcs_haircol = 1
+
+	gs 'body_shape', 'initial'
+
+!!	Starting clothing set
+	cheap[69] = 1
+	cheapH[69] = pcs_hips
+	cheap[15] = 1
+	cheapH[15] = 100
+	cheapB[15] = pcs_hips
+	exercise[4] = 1
+	exerciseH[4] = 100
+	cheap[10] = 1
+	cheapH[10] = 100
+	cheapB[10] = pcs_hips
+	coat[5] = 1
+	coatH[5] = 200
+	defaultcoat = 5
+
+	gs 'clothing', 'wear', 'cheap', 15
+!!	**********
+	
+	gs 'din_pav'
+	gs 'dinSex2'
+	gs 'dina'
+	gs 'din_van'
+	gs 'din_bad'
+	gs 'dinSex'
+	gs 'dinBoroda'
+	gs 'BanSexType'
+
+	gs 'daystart'
+	gs 'outdoors', 'weather'
+
+	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
+
+	pcs_horny = 0
+	killvar 'opPRE'
+	killvar 'tgs_skipinto'
+
+	gs 'stat'
+	showstat 0
+	showobjs 0
+	if $ARGS[1] = 'TGS':
+		gt 'preTG', 'sleepPRE'
+	else
+		gt 'preALT', 'One'
+	end
+end
+
+--- preCUST ---------------------------------
+

+ 507 - 0
locations/preTG

@@ -0,0 +1,507 @@
+# preTG
+
+!!The TG Story Elements
+cls
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+
+if $ARGS[0] = 'roomPRE':
+	'<center><b><font color="maroon">Apartment</font></b></center>'
+	'<center><img src="images/picpre/room.jpg"></center>'
+
+	'You wake up to the sound of your alarm clock. You hear Luda, your wife, mumbling next to you, "Don''t want to, it''s too early." She pulls her blanket up and rolls over. You reach over to your clock and turn it off.' 
+	*nl 
+	'<i>There are days when I just want to keep on sleeping</i>, you think to yourself. <i>But I can''t today.</i>'
+
+	act 'Go to the bathroom':
+		cls
+		'<center><img src="images/picpre/self.jpg"></center>'
+		'Quietly, so that you don''t wake up your daughter, you go to the bathroom and take care of your morning routine.'
+
+		act 'Leave the apartment':
+			cls
+			'<center><img src="images/picpre/carpre1.jpg"></center>'
+			'In a parking lot near your house sits your car. You unlock it with the key remote and climb in.'
+
+			act 'Go to work':
+				cls
+				'<center><img src="images/picpre/carpre.jpg"></center>'
+				'You turn the key, the engines roars to life. As you drive to work the roads are filled with traffic, but it''s the morning rush hour, so it''s no surprise. You drive for what feels like an eternity, give or take an hour, but you eventually reach the office. The music on the radio was pleasant, at least.'
+
+				act 'Park at the office':
+					cls
+					'<center><img src="images/picpre/officepre.jpg"></center>'
+					'You pull into a parking lot near the building and manage to find a good spot. You greet the security guard on your way in to the building, and then go upstairs and enter your office. Shortly after you sit down at your desk and boot up your computer, your boss''s secretary comes in and hands you a folder with several travel documents.' 
+					*nl 
+					'"Am I going on a business trip or something?" you ask her.' 
+					*nl 
+					'"Yes, the director said it had something to do with a construction project, out in the middle of nowhere, but that''s pretty much all I know," Oksana says.' 
+					*nl 
+					'After she leaves, you read over the travel documents and fill them out. Time to go to the director.'
+
+					act 'Go and see your boss':
+						cls
+						'<center><img src="images/picpre/man.jpg"></center>'
+						'You head into the directors'' office, greet him and hand him the papers to sign. The director, Roman Gromov, scans through the text before signing it off with a broad, sweeping stroke.'
+						*nl 
+						'"Ms. Glavbukh is in her office. Go get some travel money while I make a few calls. We''ll discuss your trip when you get back."'
+
+						act 'Go to the chief accountant':
+							cls
+							'<center><img src="images/picpre/glavbuh.jpg"></center>'
+							'Marina is indeed already in her office. After filing your signed travel documents, she grumbles about antiquated systems as she counts out the money.'
+
+							act 'Return to the director':
+								cls
+								'<center><img src="images/picpre/man.jpg"></center>'
+								'Roman is busy talking on the phone when you re-enter the director''s office, he gestures you to sit down on one of the chairs across from him.'
+								*nl 
+								'"Yes, I understand... yes. I will send Michael over ASAP, he''ll represent me. ... Yes... Tell your men to work on some other parts of the project in the meantime. Have Igor guard the pit and let no one make any fuss, and make sure nobody gets wind of this and, you know, try to halt the construction. ...Okay, we''ll keep in touch."' 
+								*nl 
+								'Roman hangs up and turns to you.'
+								*nl 
+								'"Last night, while excavating for the foundations, the workers stumbled upon something; one of the excavators dug into a hollow space of some sort. Luckily Igor was on site and he halted the excavation.' 
+								*nl 
+								'"It''s not clear what exactly it is, yet. Maybe an abandoned bunker or a cave. But in any case, if there are any more chambers under the foundation, we might not be able to build on the land. So what I want you to do, is to go to the construction site, figure out exactly what the problem is and solve this whole mess as quickly as possible."'
+
+								act 'Remind him of the correct procedures':
+									cls
+									'<center><img src="images/picpre/man.jpg"></center>'
+									'"Firstly we need to talk to..." you start to say, but are quickly interrupted by your boss.'
+									*nl 
+									'"Michael, do you realize what''s at stake here? We''re near the end of our credit line, still have unfinalized agreements on the project''s contract, and we already have guys digging the pit. If there is a too big hole under the foundation, and we can''t build on the site, that could bankrupt the company. So this mysterious structure must be addressed immediately and I have to hold the fort here and keep a lid on things."'
+
+									act 'Doesn''t look like you have a choice': gt 'preTG', 'roadPRE'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'roadPRE':
+	'<center><img src="images/picpre/carpre.jpg"></center>'
+	'You leave the office and from your car phone Luda, your wife. You explain the situation to her and as soon as you finish the call, drive off to the construction site.'
+
+	act 'Drive':
+		cls
+		'<center><img src="images/picpre/kotpre.jpg"></center>'
+		'You''ve been on the highway for hours before you arrive at the town near the site feeling tired. But before you can check into a hotel and get some sleep, you need to get an understanding of the magnitude of the problem you''re dealing with. You follow the directions to the site. Igor calls on the way and tells you that you won''t have to go through a security check.'
+		*nl 
+		'You arrive and park your car at the site. You see Igor waving at you from the distance and walk up to him.'
+
+		act 'Greet Igor':
+			cls
+			'<center><img src="images/picpre/igor.jpg"></center>'
+			'Igor greets you. He is obviously concerned about the situation and without delay leads you to the pit''s fenced-off entrance. It rained earlier so the ground is all muddy, you''re going to have to clean your shoes when you get back to the hotel.'
+			*nl 
+			'"The ladder''s over there," Igor informs you, while pointing to your left.' 
+			*nl 
+			'You reach the hole in the ground and peek inside using the small flashlight from your keychain. "There seems to be a floor about 5 meters down."'
+			*nl 
+			'"Well, what do you think Michael? Shall we go down?" Igor says with a faint glimmer of adventure in his eyes.'
+
+			act 'Descend':
+				cls
+				'<center><img src="images/picpre/dunpre.jpg"></center>'
+				'Igor hands you a powerful flashlight and tells the guard to get the ladder over here. Igor is the first one to go down, once he reaches the bottom, he holds the ladder so you can safely climb down as well.'
+				*nl 
+				'The cave smells musty and looks all gloomy, but you can breathe freely and the light from your flashlight illuminates the walls. You shoot a beam of light into the corridor and in the distance see something that resembles a door.'
+				*nl 
+				'"Damn. If any historians hear about this, they''ll be all over this construction site." Igor mutters.'
+				*nl 
+				'You walk up to the door and see drawings on it. Most of them resemble people, but with other stick figures as well.'
+
+				act 'Open the door':
+					cls
+					'<center><img src="images/picpre/dunpre1.jpg"></center>'
+					'You lean against the door, it''s stiff but you manage to push it open.'
+					*nl 
+					'"Oh shit!... Take a look over there. Human bones." Igor says nervously.'
+					*nl 
+					'You take a look at what Igor is pointing at and see a pile of human bones with a skull on top.'
+					*nl 
+					'"A tomb, I suppose." Igor mutters looking apprehensive.'
+					*nl
+					'"Probably", you nod. "We can''t rule anything out just yet."'
+
+					act 'Go further':
+						cls
+						'<center><img src="images/picpre/dunpre2.jpg"></center>'
+						'Further into the cave, you reach a room that resembles some kind of archive, filled with dozens of old, dusty scrolls inside of racks built into the walls.'
+						*nl 
+						'Igor takes one of the scrolls and carefully unrolls it. "What the hell? Look at this, it must be some kind of ancient language," Igor says. "I''ll take one with me, and see what I can find out about these, maybe I can get it deciphered. So we''ll know what we are dealing with."'
+						*nl 
+						'Looking around, you notice another door on the other side of the chamber, you walk over and open it.'
+
+						act 'Enter the room':
+							cls
+							'<center><img src="images/picpre/dunpre3.jpg"></center>'
+							'There''s an altar in the center of the room, on it there are various pots, several gold amulets and even some stone figures. You continue looking around the room curiously, trying to figure out what it''s purpose was.'
+							*nl
+							'Looking closely at the altar, you notice a strange little amulet placed at the very top.'
+
+							act 'Examine the amulet':
+								cls
+								'<center><img src="images/picpre/amuletpre.jpg"></center>'
+								'You pick up the strange amulet and examine it. <i>This is clearly very old</i>, you think to yourself.'
+								*nl 
+								'While holding the amulet, you realize that it''s getting warm, almost hot. Suddenly you feel heat coursing through your entire body. You feel a surge of strength inside you. It''s like you just finished a long jog, but without the fatigue.'
+								*nl 
+								'Igor enters the room with one of the scrolls in his hands. "Huh. Interesting little room.", he says, glancing over the altar. "Well, we have to make a decision: either we fill the catacombs up to the brink with cement or we let someone into these rooms. Who knows what all this stuff is, maybe it''s worth more than it looks."'
+
+								act 'Consult you boss':
+									cls
+									'<center><img src="images/picpre/dunpre3.jpg"></center>'
+									'"I''ve got to think about it and consult the director before we do anything." You reply and without thinking put the small amulet into your pocket.'
+									*nl 
+									'"Well, one thing''s for sure, you won''t get reception down here. Let''s go outside." Igor tells you.'
+
+									act 'Go back to the surface':
+										cls
+										'<center><img src="images/picpre/kotpre.jpg"></center>'
+										'You walk together with Igor out of the strange chambers and up the ladder, back to the surface.'
+										*nl 
+										'"We must have been down there longer than I thought, its already late. There will only be security on site now so there''s nothing we can do here until the morning, you should go to the hotel." Igor says.'
+										*nl 
+										'With a hasty goodbye to Igor, you make your way back to your car.'
+										'<i>Damn</i>, you think, <i>tomorrow''s going to be a stressful day.</i>'
+
+										act 'Go to the hotel': gt 'preTG', 'otelPRE'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'otelPRE':
+	'<center><img src="images/picpre/otelpre.jpg"></center>'
+	'Your trip to the hotel is quite uneventful compared to your tomb raiding adventure.'
+	*nl 
+	'You park your car and go to the receptionist to get a room. There are only double rooms available, but its going on the company card, so that just means you''ll get a bigger room. You swipe your company card and take your room key.'
+
+	act 'Head upstairs to your room':
+		cls
+		'<center><img src="images/picpre/otelpre1.jpg"></center>'
+		'Lying down on one of the beds, you start to wonder just who built that crypt and what it''s purpose was. Your thoughts drift to that amulet you found. The way that thing you touched half an hour ago still makes you feel wonderful, which baffles you.'
+
+		act 'Call the director':
+			cls
+			'<center><img src="images/picpre/otelpre1.jpg"></center>'
+			'You dial Romans'' number and after a few rings, he picks up. You report to him the details of what you found at the site with Igor: an ancient tomb, human bones, scrolls in a mysterious language and the altar in that room.'
+			*nl 
+			'The director stays silent while you give your report. A few moments later, he decides that it would be best to stop the construction. He tells you to stay and keep watch over the site until further notice.'
+			*nl 
+			'You put the phone away. <i>Looks like this trip is going to last longer than expected</i>, you think to yourself.'
+
+			act 'Go to bed':
+				cls
+				'<center><img src="images/picpre/otelpre1.jpg"></center>'
+				'It doesn''t take you long to drift off to sleep'
+				*nl 
+				'Images begin to form in your mind and you soon find yourself in a middle of a dream. The amulet stands before you and out of it comes a ghost of some sort. Before you even realise what you are doing, you find yourself staring deep into the ghost''s eyes which turn into two planet earths.'
+				*nl 
+				'"Look at the world most just see the mundane, but there is more to it much more and now you see that too you have the potential to shape it all, but first, you have company."'
+				*nl 
+				'Suddenly your senses return and you feel the hotel room around you, but you can tell you are not alone.'
+
+				act 'Open your eyes':
+					cls
+					'<center><img src="images/picpre/tobipre.jpg"></center>'
+					'As you open your eyes, you see a man standing in your room. He is wearing a long black coat and his face looks weary; he is unshaven and reminds you of most police detectives in Hollywood films.'
+					*nl 
+					'"Where is the amulet?" he approaches you.'
+
+					act 'Ask who he is':
+						cls
+						'<center><img src="images/picpre/tobipre.jpg"></center>'
+						'"Who are you?" you ask puzzledly. The man''s sudden appearance and a sense you never knew you had tell you something about him is not of the world you know.'
+						*nl 
+						'"Listen, don''t cause any problems now. Give me the amulet, close the construction site, and all will be fine. After all that place belongs to us," he says in a firm voice.'
+						*nl 
+						'<i>Belongs to us?</i> His response leaves you bewildered, wondering who he is and what this is all about.'
+						*nl 
+						'"Well, how about I give you a small taste of my power." the man says, and out of nowhere comes a burning desire to give him the amulet.'
+
+						act 'Give him the amulet':
+							cls
+							'<center><img src="images/picpre/otelpre1.jpg"></center>'
+							'You get out of the bed and give him the stone figure you had put in your pants earlier. The man takes it, steps back, and without warning, something in his eyes begins to spin like a whirlwind, causing your own eyes to blur as if he was hypnotising you. A few seconds later your vision clears with the man having somehow disappeared into thin air.' 
+							*nl 
+							'You rub your eyes, "What the hell is going on here? Was that a dream?. No, it can''t be. I wouldn''t walk around in a dream. I think." You say to no one in particular then check your pants, the amulet is indeed gone. You sit down on the bed trying to make sense of what just happened.'
+							*nl 
+							'While lost in thought, you hear a knock on the door. You get up to open the door, not even thinking why you would have visitors this late at night.'
+							'"...Who''s there?", you ask, still confused.'
+							*nl 
+							'A woman''s voice responds that she''s the hotel receptionist and that she needs to talk to you on an urgent matter.'
+
+							act 'Answer the door':
+								cls
+								'<center><img src="images/picpre/karinpre.jpg"></center>'
+								'You open the door, but don''t recall the woman in front of you being at the reception desk; the woman from earlier didn''t have red hair and glasses. After entering the room she quickly examines the place, before locking her eyes on you.'
+								*nl 
+								'"Michael, right?" - You nod.'
+								*nl 
+								'"Last night you went to a certain place and took out something very valuable and powerful." the woman speaks to you.'
+
+								act 'Another one?':
+									cls
+									'<center><img src="images/picpre/karinpre.jpg"></center>'
+									'<i>Again?</i>'
+									*nl 
+									'You sigh, irritated that not only have you been disturbed in the middle of the night, but these idiots apparently cannot even agree among themselves who the one to disturb you is.'
+									*nl 
+									'"Listen, you''re starting to bother me. That other guy already showed up asking for the damn amulet."'
+									*nl 
+									'She looks at you with surprise. "What? Someone already came here? Who was it?"'
+
+									act 'Tell her':
+										cls
+										'<center><img src="images/picpre/karinpre.jpg"></center>'
+										'"It was some man in a navy cloak with ginger hair and a light beard, he didn''t tell me his name. He already took the amulet." You answer.'
+										*nl 
+										'The girl''s face drops. "Damn it!" She looks into your eyes. "Okay... Michael, we have to go somewhere else, there are too many people that might bet hurt here. Gustav, come here!" The girl calls out to the corridor.'
+										*nl 
+										'A tall man enters the room'
+										
+										StoryLine = 0
+										MagikDostup = 0
+										$pcs_firstname = 'Michael'
+										$pcs_lastname = 'Kuznetsov'
+										age = 35
+										vidage = 35
+										year = 2016
+										year_start = 2016
+										month = 5
+										week = 1
+										hour = 7
+										day = 25
+!!										body
+										pcs_hgt = 186
+										fat = 130
+										dick = 0
+										pcs_energy = 60
+										water = 60
+										pcs_sleep = 70
+!!										stats
+										pcs_stren = 160
+										speed = 50
+										pcs_agil = 50
+										pcs_vital = 160
+										pcs_intel = 50
+										pcs_sprt = 100
+										pcs_react = 50
+										pcs_health = pcs_vital * 10
+										pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
+										pcs_manna = (pcs_intel * pcs_magik) + pcs_vital * 5
+										tanga = 1
+										clrbelo = 1
+										birthday = 1
+										birthmonth = 4
+										birthyear = 1983
+										pcs_dob = 19830401
+
+										act 'Prepare to fight':
+											cls
+											'<center><img src="images/picpre/jugopre.jpg"></center>'
+											'The man has a large tattoo across the left side of his face. He too has red hair'
+											$boy = 'Gustav'
+											!!stats
+											strenV = 600
+											speedV = 60
+											agilV = 60
+											reactV = 50
+											vitalV = 200
+											intelV = 50
+											willV = 50
+											!!skills
+											magikV = 100
+											boxingV = 100
+											shootV = 100
+											!!parameters
+											healthV = vitalV * 10 + strenV * 5
+											mannaV = intelV * 10 + magikV * 10
+											willpowerV = willV * 10
+											BonusAtakV = 0
+											BonusDefV = 0
+											!!Programme of Action
+											program = 0
+											jugoFight = 1
+
+											act 'Fight': gt 'fight', 'start'
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'tatianaPRE':
+	'<center><img src="images/picpre/karinpre.jpg"></center>'
+	'You wake up in in an unfamiliar room. Standing near you is the same red-haired girl that entered your hotel room.'
+	'"Ah, you''re awake," she chirps. "I told this jerk Gustav that he should have treated you more carefully, but he''s bad at listening. As a result I had to use some magic to stabilize you, he almost knocked you out permanently."'
+	'"While you were unconscious I did some research on you. Turns out the Amulet of Power passed to you. Must have happened when you touched it. Unfortunately, Reinhold, the guy in your room, he''s probably realized by now that the amulet no longer has the power and now he''s out to hunt you down."'
+
+	act 'What''s going on?':
+		cls
+		'<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.' 
+		'"As you can figure out, Reinhold wanted to prevent the amulet being misused, but he was not very thorough and didn''t check you over."'
+
+		act 'So, the whole world is just an illusion?':
+			cls
+			'<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?':
+				cls
+				'<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?':
+					cls
+					'<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 Reinhold got to you first. The amulet will now be pretty much useless anyway, as its power passed on to you."'
+					'"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. Reinhold easily overpowered your will and forced you to obey, and Gustav beat you like a puppy."'
+
+					act 'What is this amulet? Where did it come from?':
+						cls
+						'<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 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. The bad news is it is far too powerful and will kill you." At this you are filled with fear and start to struggle against your bindings.'
+						'"You are lucky Reinhold didn''t realise this, he would have stopped you from accidentally wielding the power and killing yourself and who knows how many others by killing you in that hotel room. I have another way to save you, but you''re not going to like it."'
+						'You don''t say anything, so she continues, "I can feel the aura of power emanating from you, by drawing from that I can perform a powerful magic spell that will transform you into someone who is protected from the masculine alignment of the power."'
+
+						act 'Uh, I do not understand, what are you suggesting?':
+							cls
+							'<center><img src="images/picpre/karinpre.jpg"></center>'
+							'"Uh, I do not understand, what are you suggesting?" you ask her.'
+							'Tatiana runs a hand through her hair and giggles. "I''ll make you a pretty, young girl and the power will lie dormant saving you from blowing up a city or something."'
+							'Your eyes widen in shock.'
+							'"Well, there is another way, I can just stop your heart and let your power dissolve into nature, but you will die. I''m not Reinhold, I can take this risk and I don''t want to kill you. Maybe with more time doing research I can work out another solution, but I cannot leave you like this."'
+
+							act 'What about your family?':
+								cls
+								'<center><img src="images/picpre/karinpre.jpg"></center>'
+								'"Hey, I do not want to be a woman. I have a family, a wife, a daughter", you tell her, afraid.'
+								'Tatiana smiles. "Well the choice is simple, either you die or live without a penis for the time being."'
+								'"As for your family, not to worry. I''ll arrange everything. We will fabricate your death to get Reinhold off your back. To make your transition easier I''ll cover your memory of the family, they will only be ghostly memories, you won''t even remember where you lived. Don''t worry, I won''t erase your entire memory and leave you a useless vegetable."'
+
+								act 'There must be another way!':
+									cls
+									'<center><img src="images/picpre/karinpre.jpg"></center>'
+									'"There must be another way!" you panic. You tug at the restraints on the bed.' 
+									'Tatiana''s face becomes serious. "Do not argue. It is the only way available to me. You will need a to use a new name, think it over in your dreams and tell me when you wake up, otherwise I will give you a pretty name. Now go to sleep." Says Tatiana as she puts her hand on your chest. Your vision immediately fades.'
+
+									act 'Sleep': gt 'preCUST', 'TGStart'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'sleepPRE':
+	killobj
+	$pcs_firstname = 'Svetlana'
+	$pcs_lastname = 'Lebedev'
+	$pcs_nickname = 'Sveta'
+	'<center><img src="images/picpre/karinpre.jpg"></center>'
+	'"You''re awake?." Tatiana says looking into your eyes.'
+
+	act 'Look at yourself':
+		cla
+		*clr
+		clr
+		'<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'
+
+		$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
+			clr
+			'<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
+				clr
+				'<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
+					showstat 1
+					showobjs 1
+
+					if oldobjmenu = 0:
+						gs 'obj_din', 'new'
+					else
+						gs 'obj_din', 'old'
+					end
+					gt 'street'
+				end
+			end
+		end
+	end
+end
+
+--- preTG ---------------------------------
+

+ 0 - 147
locations/roadPRE

@@ -1,147 +0,0 @@
-# roadPRE
-minut += 5
-clr
-gs 'statPRE'
-fcolor = rgb(0, 0, 0)
-bcolor = rgb(255, 255, 255)
-lcolor = rgb(106, 90, 205)
-'<center><img src="images/picpre/carpre.jpg"></center>'
-'You leave the office and from your car phone Luda, your wife. You explain the situation to her and as soon as you finish the call, drive off to the construction site.'
-
-act 'Drive':
-	cla
-	*clr
-	minut += 500
-	clr
-	gs 'statPRE'
-	'<center><img src="images/picpre/kotpre.jpg"></center>'
-	'You''ve been on the highway for hours before you arrive at the town near the site feeling tired. But before you can check into a hotel and get some sleep, you need to get an understanding of the magnitude of the problem you''re dealing with. You follow the directions to the site. Igor calls on the way and tells you that you won''t have to go through a security check.'
-	*nl 
-	'You arrive and park your car at the site. You see Igor waving at you from the distance and walk up to him.'
-
-	act 'Greet Igor':
-		cla
-		*clr
-		minut += 15
-		clr
-		gs 'statPRE'
-		'<center><img src="images/picpre/igor.jpg"></center>'
-		'Igor greets you. He is obviously concerned about the situation and without delay leads you to the pit''s fenced-off entrance. It rained earlier so the ground is all muddy, you''re going to have to clean your shoes when you get back to the hotel.'
-		*nl 
-		'"The ladder''s over there," Igor informs you, while pointing to your left.' 
-		*nl 
-		'You reach the hole in the ground and peek inside using the small flashlight from your keychain. "There seems to be a floor about 5 meters down."'
-		*nl 
-		'"Well, what do you think Michael? Shall we go down?" Igor says with a faint glimmer of adventure in his eyes.'
-
-		act 'Descend':
-			cla
-			*clr
-			minut += 15
-			clr
-			gs 'statPRE'
-			'<center><img src="images/picpre/dunpre.jpg"></center>'
-			'Igor hands you a powerful flashlight and tells the guard to get the ladder over here. Igor is the first one to go down, once he reaches the bottom, he holds the ladder so you can safely climb down as well.'
-			*nl 
-			'The cave smells musty and looks all gloomy, but you can breathe freely and the light from your flashlight illuminates the walls. You shoot a beam of light into the corridor and in the distance see something that resembles a door.'
-			*nl 
-			'"Damn. If any historians hear about this, they''ll be all over this construction site." Igor mutters.'
-			*nl 
-			'You walk up to the door and see drawings on it. Most of them resemble people, but with other stick figures as well.'
-
-			act 'Open the door':
-				cla
-				*clr
-				minut += 15
-				clr
-				gs 'statPRE'
-				'<center><img src="images/picpre/dunpre1.jpg"></center>'
-				'You lean against the door, it''s stiff but you manage to push it open.'
-				*nl 
-				'"Oh shit!... Take a look over there. Human bones." Igor says nervously.'
-				*nl 
-				'You take a look at what Igor is pointing at and see a pile of human bones with a skull on top.'
-				*nl 
-				'"A tomb, I suppose." Igor mutters looking apprehensive.'
-				'"Probably", you nod. "We can''t rule anything out just yet."'
-
-				act 'Go further':
-					cla
-					*clr
-					minut += 15
-					clr
-					gs 'statPRE'
-					'<center><img src="images/picpre/dunpre2.jpg"></center>'
-					'Further into the cave, you reach a room that resembles some kind of archive, filled with dozens of old, dusty scrolls inside of racks built into the walls.'
-					*nl 
-					'Igor takes one of the scrolls and carefully unrolls it. "What the hell? Look at this, it must be some kind of ancient language," Igor says. "I''ll take one with me, and see what I can find out about these, maybe I can get it deciphered. So we''ll know what we are dealing with."'
-					*nl 
-					'Looking around, you notice another door on the other side of the chamber, you walk over and open it.'
-
-					act 'Enter the room':
-						cla
-						*clr
-						minut += 15
-						clr
-						gs 'statPRE'
-						'<center><img src="images/picpre/dunpre3.jpg"></center>'
-						'There''s an altar in the center of the room, on it there are various pots, several gold amulets and even some stone figures. You continue looking around the room curiously, trying to figure out what it''s purpose was.'
-						*nl 
-						'Looking closely at the altar, you notice a strange little amulet placed at the very top.'
-
-						act 'Examine the amulet':
-							cla
-							*clr
-							energy = 100
-							water = 100
-							son = 100
-							minut += 15
-							pcs_magik = 1
-							manna = (pcs_intel * pcs_magik) + pcs_vital * 5
-							clr
-							gs 'statPRE'
-							'<center><img src="images/picpre/amuletpre.jpg"></center>'
-							'You pick up the strange amulet and examine it. <i>This is clearly very old</i>, you think to yourself.'
-							*nl 
-							'While holding the amulet, you realize that it''s getting warm, almost hot. Suddenly you feel heat coursing through your entire body. You feel a surge of strength inside you. It''s like you just finished a long jog, but without the fatigue.'
-							*nl 
-							'Igor enters the room with one of the scrolls in his hands. "Huh. Interesting little room.", he says, glancing over the altar. "Well, we have to make a decision: either we fill the catacombs up to the brink with cement or we let someone into these rooms. Who knows what all this stuff is, maybe it''s worth more than it looks."'
-
-							act 'Consult you boss':
-								cla
-								*clr
-								minut += 15
-								clr
-								gs 'statPRE'
-								'<center><img src="images/picpre/dunpre3.jpg"></center>'
-								'"I''ve got to think about it and consult the director before we do anything." You reply and without thinking put the small amulet into your pocket.'
-								*nl 
-								'"Well, one thing''s for sure, you won''t get reception down here. Let''s go outside." Igor tells you.'
-
-								act 'Go back to the surface':
-									cla
-									*clr
-									minut += 15
-									clr
-									gs 'statPRE'
-									'<center><img src="images/picpre/kotpre.jpg"></center>'
-									'You walk together with Igor out of the strange chambers and up the ladder, back to the surface.'
-									*nl 
-									'"We must have been down there longer than I thought, its already late. There will only be security on site now so there''s nothing we can do here until the morning, you should go to the hotel." Igor says.'
-									*nl 
-									'With a hasty goodbye to Igor, you make your way back to your car.'
-									'<i>Damn</i>, you think, <i>tomorrow''s going to be a stressful day.</i>'
-
-									act 'Go to the hotel':gt 'otelPRE'
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
---- roadPRE ---------------------------------
-

+ 0 - 111
locations/roomPRE

@@ -1,111 +0,0 @@
-# roomPRE
-clr
-gs 'statPRE'
-fcolor = rgb(0, 0, 0)
-bcolor = rgb(255, 255, 255)
-lcolor = rgb(106, 90, 205)
-'<center><b><font color="maroon">Apartment</font></b></center>'
-'<center><img src="images/picpre/room.jpg"></center>'
-
-if pre = 0:
-	pre = 1
-	'You wake up to the sound of your alarm clock. You hear Luda, your wife, mumbling next to you, "Don''t want to, it''s too early." She pulls her blanket up and rolls over. You reach over to your clock and turn it off.' 
-	*nl 
-	'<i>There are days when I just want to keep on sleeping</i>, you think to yourself. <i>But I can''t today.</i>'
-
-	act 'Go to the bathroom':
-		cla
-		*clr
-		clr
-		gs 'statPRE'
-		'<center><img src="images/picpre/self.jpg"></center>'
-		'Quietly, so that you don''t wake up your daughter, you go to the bathroom and take care of your morning routine.'
-
-		act 'Leave the apartment':
-			cla
-			*clr
-			clr
-			gs 'statPRE'
-			'<center><img src="images/picpre/carpre1.jpg"></center>'
-			'In a parking lot near your house sits your car. You unlock it with the key remote and climb in.'
-
-			act 'Go to work':
-				cla
-				*clr
-				clr
-				gs 'statPRE'
-				'<center><img src="images/picpre/carpre.jpg"></center>'
-				'You turn the key, the engines roars to life. As you drive to work the roads are filled with traffic, but it''s the morning rush hour, so it''s no surprise. You drive for what feels like an eternity, give or take an hour, but you eventually reach the office. The music on the radio was pleasant, at least.'
-
-				act 'Park at the office':
-					cla
-					*clr
-					clr
-					gs 'statPRE'
-					'<center><img src="images/picpre/officepre.jpg"></center>'
-					'You pull into a parking lot near the building and manage to find a good spot. You greet the security guard on your way in to the building, and then go upstairs and enter your office. Shortly after you sit down at your desk and boot up your computer, your boss''s secretary comes in and hands you a folder with several travel documents.' 
-					*nl 
-					'"Am I going on a business trip or something?" you ask her.' 
-					*nl 
-					'"Yes, the director said it had something to do with a construction project, out in the middle of nowhere, but that''s pretty much all I know," Oksana says.' 
-					*nl 
-					'After she leaves, you read over the travel documents and fill them out. Time to go to the director.'
-
-					act 'Go and see your boss':
-						cla
-						*clr
-						clr
-						gs 'statPRE'
-						'<center><img src="images/picpre/man.jpg"></center>'
-						'You head into the directors'' office, greet him and hand him the papers to sign. The director, Roman Gromov, scans through the text before signing it off with a broad, sweeping stroke.'
-						*nl 
-						'"Ms. Glavbukh is in her office. Go get some travel money while I make a few calls. We''ll discuss your trip when you get back."'
-
-						act 'Go to the chief accountant':
-							cla
-							*clr
-							money += 15000
-							clr
-							gs 'statPRE'
-							'<center><img src="images/picpre/glavbuh.jpg"></center>'
-							'Marina is indeed already in her office. After filing your signed travel documents, she grumbles about antiquated systems as she counts out the money.'
-
-							act 'Return to the director':
-								cla
-								*clr
-								clr
-								gs 'statPRE'
-								'<center><img src="images/picpre/man.jpg"></center>'
-								'Roman is busy talking on the phone when you re-enter the director''s office, he gestures you to sit down on one of the chairs across from him.'
-								*nl 
-								'"Yes, I understand... yes. I will send Michael over ASAP, he''ll represent me. ... Yes... Tell your men to work on some other parts of the project in the meantime. Have Igor guard the pit and let no one make any fuss, and make sure nobody gets wind of this and, you know, try to halt the construction. ...Okay, we''ll keep in touch."' 
-								*nl 
-								'Roman hangs up and turns to you.'
-								*nl 
-								'"Last night, while excavating for the foundations, the workers stumbled upon something; one of the excavators dug into a hollow space of some sort. Luckily Igor was on site and he halted the excavation.' 
-								*nl 
-								'"It''s not clear what exactly it is, yet. Maybe an abandoned bunker or a cave. But in any case, if there are any more chambers under the foundation, we might not be able to build on the land. So what I want you to do, is to go to the construction site, figure out exactly what the problem is and solve this whole mess as quickly as possible."'
-
-								act 'Remind him of the correct procedures':
-									cla
-									*clr
-									clr
-									gs 'statPRE'
-									'<center><img src="images/picpre/man.jpg"></center>'
-									'"Firstly we need to talk to..." you start to say, but are quickly interrupted by your boss.'
-									*nl 
-									'"Michael, do you realize what''s at stake here? We''re near the end of our credit line, still have unfinalized agreements on the project''s contract, and we already have guys digging the pit. If there is a too big hole under the foundation, and we can''t build on the site, that could bankrupt the company. So this mysterious structure must be addressed immediately and I have to hold the fort here and keep a lid on things."'
-
-									act 'Doesn''t look like you have a choice':gt 'roadPRE'
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
---- roomPRE ---------------------------------
-

+ 0 - 176
locations/sleepPRE

@@ -1,176 +0,0 @@
-# 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
-	pcs_hgt = 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
-	pcs_sprt = 10
-	pcs_react = 10
-	pcs_magik = 0
-	health = pcs_vital * 10 + pcs_stren * 5
-	willpower = pcs_intel * 5 + pcs_sprt * 5
-	manna = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
-	nastjaQW = 0
-	money = 16500
-	vidageday = 300
-	housrA = 1
-	pcs_pubes = 3
-	pcs_leghair = 3
-	pcs_makeup = 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
-	pcs_pubes = 3
-	pcs_leghair = 3
-	pcs_makeup = 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 ---------------------------------
-

+ 3 - 89
locations/start

@@ -1,14 +1,13 @@
 # start
+
 killall
 close all
-!addqst 'car.qsp'
 usehtml = 1
 debug = 1
 showstat 0
 showobjs 0
 showinput 0
 disablescroll = 1
-!nosave 0
 $ongload = 'loadg'
 $ongsave = 'saveg'
 $onnewloc = 'LOCA'
@@ -22,6 +21,8 @@ $fname = 'Tahoma'
 fsize = 12
 $version = '0.5.3 the rushed mess so we can get onto 0.6.0 version (sorry).'
 
+opPRE = 1
+
 *nl
 *nl
 '<hr align="left" color="red" size="3" width="1200">'
@@ -50,93 +51,6 @@ $version = '0.5.3 the rushed mess so we can get onto 0.6.0 version (sorry).'
 'Recent Version History: <a href="exec:gt ''version''">Here</a></center>'
 *nl
 
-pc = 100
-
-StoryLine = 0
-MagikDostup = 0
-$pcs_firstname = 'Michael'
-$pcs_lastname = 'Kuznetsov'
-age = 35
-vidage = 35
-year = 2018
-year_start = 2018
-month = 5
-week = 1
-hour = 7
-day = 25
-daystart_start = 145
-gs 'daystart'
-gs 'outdoors', 'weather'
-!!body
-pcs_hgt = 186
-fat = 130
-dick = 0
-energy = 60
-water = 60
-son = 70
-!!stats
-pcs_stren = 160
-speed = 50
-pcs_agil = 50
-pcs_vital = 160
-pcs_intel = 50
-pcs_sprt = 100
-pcs_react = 50
-health = pcs_vital * 10
-willpower = pcs_intel * 5 + pcs_sprt * 5
-manna = (pcs_intel * pcs_magik) + pcs_vital * 5
-BDSMfilm = 0
-pornstudio = 0
-pfilmSTOP = 0
-money = 1500
-opPRE = 1
-tanga = 1
-clrbelo = 1
-birthday = 5
-birthmonth = 3
-birthyear = 1983
-pcs_dob = 19830305
-!initializing elasticity
-vshrink = 1
-vshrinkdays = 6
-ashrink = 1
-ashrinkdays = 3
-oldsavehcol = 1
-
-
-!MJ: The day the month ends. Including possible rollover months 0 and 13.
-monthsend[1] = 31
-if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0): 
-	Leapyear = 1 & monthsend[2] = 29
-else
-	Leapyear = 0 & monthsend[2] = 28
-end
-monthsend[3] = 31
-monthsend[4] = 30
-monthsend[5] = 31
-monthsend[6] = 30
-monthsend[7] = 31
-monthsend[8] = 31
-monthsend[9] = 30
-monthsend[10] = 31
-monthsend[11] = 30
-monthsend[12] = 31
-
-$monthName[1] = 'January'
-$monthName[2] = 'February'
-$monthName[3] = 'March'
-$monthName[4] = 'April'
-$monthName[5] = 'May'
-$monthName[6] = 'June'
-$monthName[7] = 'July'
-$monthName[8] = 'August'
-$monthName[9] = 'September'
-$monthName[10] = 'October' 
-$monthName[11] = 'November'
-$monthName[12] = 'December'
-
-$month = $monthName[month]
-
 act '<center><b>Start</b></center>':
 	cla
 	gt 'begin','real_character'

+ 4 - 0
locations/stat

@@ -1,6 +1,10 @@
 # stat
 
 clr
+
+!!This is error catching to prevent stat from running too early
+if opPRE > 0: exit
+
 if Enable_Android = 0:
 	if oldobjmenu = 0:
 		gs 'obj_din', 'new'

+ 0 - 7
locations/statPRE

@@ -1,7 +0,0 @@
-# statPRE
-
-
-pl'You are a strong man with broad shoulders and big muscles slightly swollen with fat.'
-
---- statPRE ---------------------------------
-