1
0

preALT 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221
  1. # preALT
  2. cls
  3. if night_mode = 1:
  4. fcolor = rgb(255, 255, 255)
  5. bcolor = rgb(0, 0, 0)
  6. lcolor = rgb(106, 90, 205)
  7. else
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. end
  12. !!School Girl Specific Story elements
  13. if $ARGS[0] = 'One':
  14. '<center><img <<$set_imgh>> src="images/pre/alt/altstart.jpg"></center>'
  15. 'You are <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>'
  16. 'You were born in <<birthyear>>. You have a older sister, Anya, who is 2 years older than you.'
  17. '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.'
  18. 'Your mother meet another man not too long after her and your biological father got 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.'
  19. act 'Continue': gt 'preALT', 'Two'
  20. end
  21. if $ARGS[0] = 'Two':
  22. '<center><img <<$set_imgh>> src="images/pre/alt/altstart1.jpg"></center>'
  23. '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.'
  24. ''
  25. act 'Continue': gt 'preALT', 'Three'
  26. end
  27. if $ARGS[0] = 'Three':
  28. '<center><img <<$set_imgh>> src="images/pre/alt/altstart2.jpg"></center>'
  29. if yearlefttemp = 1:
  30. '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!'
  31. 'But first: it''s time for a well-deserved holiday!'
  32. else
  33. '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.'
  34. *nl
  35. '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 grow in at your armpits and pubic area, 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.'
  36. *nl
  37. '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!'
  38. end
  39. killvar 'yearlefttemp'
  40. if MagikDostup = 1:
  41. showstat 1
  42. showobjs 1
  43. if oldobjmenu = 0:
  44. gs 'obj_din', 'new'
  45. else
  46. gs 'obj_din', 'old'
  47. end
  48. act 'Begin': close all & gt 'bedrPar'
  49. else
  50. act 'Continue': close all & gt 'preALT', 'Cursed Schoolgirl Start'
  51. end
  52. act 'Restart':
  53. cls
  54. 'This will reset everything and take you back to the begining.'
  55. 'Are you <i><b>very</i></b> sure you want to start from the begining again?'
  56. act 'No, I hit the wrong option!': gt 'preALT', 'Three'
  57. act 'Yes, I''m sure, start over.': killall & gt 'start'
  58. end
  59. end
  60. if $ARGS[0] = 'Cursed Schoolgirl Start':
  61. '<center><img <<$set_imgh>> src="images/pre/alt/gadukino.jpg"></center>'
  62. '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.'
  63. act 'Take a walk':
  64. *clr
  65. cla
  66. '<center><img <<$set_imgh>> src="images/pre/alt/woodspre.jpg"></center>'
  67. 'While taking a walk, you was playing with your phone. When you look up you realize you got lost!'
  68. act 'Find a way back':
  69. *clr
  70. cla
  71. '<center><img <<$set_imgh>> src="images/pre/alt/ruinpre.jpg"></center>'
  72. 'You try to find your way back but the only thing you manage to do is get more lost. After hours of wandering around you come across an old ruin.'
  73. act 'Take a break':
  74. *clr
  75. cla
  76. '<center><img <<$set_imgh>> src="images/pre/alt/tunnel1pre.jpg"></center>'
  77. 'You sit down on a large stone in the ruins and take a breather. You are starting to get hungry. If its not one thing its another. You stomp with your foot. Naturally, the floor gives way and you fall down down a hole. You feel slightly dazed but after a quick check you seem to be uninjured. You seem to be in an underground chamber of some sort. Looking up you see that climbing out is not an option, there is an old gate here but its either locked or rusted shut. Looks like the only way out is the tunnel on the other side of the chamber.'
  78. act 'Follow the tunnel':
  79. *clr
  80. cla
  81. '<center><img <<$set_imgh>> src="images/pre/alt/tunnel2pre.jpg"></center>'
  82. 'Tunnel goes on for what feels like miles. You start to worry you phone battery will die.'
  83. act 'Further':
  84. *clr
  85. cla
  86. '<center><img <<$set_imgh>> src="images/pre/shared/dunpre3.jpg"></center>'
  87. 'At the end of the tunnel you find a dead end. Or at least it seems so. You can see light coming through the cracks in the wall so you do your best to knock it down. Suddenly the wall crumbles and you find yourself in another chamber. Lots of old pottery and baubles. Another tunnel. Hopefully it leads out. In the center of the room is an altar and on it is what seems to be centerpiece of this room, a strange amulet.'
  88. act 'Examine amulet':
  89. *clr
  90. cla
  91. '<center><img <<$set_imgh>> src="images/pre/shared/amuletpre.jpg"></center>'
  92. 'You take the amulet in your hands and notice its much lighter than it looks and unusually warm for a piece of metal. Its shaped like an antique oil lamp and... is that a penis? As you are about to pocket it, the amulet grows even hotter and zaps you. Oww. You drop it. Screw this, you are out of here.'
  93. act 'Find a way out':
  94. *clr
  95. cla
  96. '<center><img <<$set_imgh>> src="images/pre/shared/kotpre.jpg"></center>'
  97. 'You follow the passage and find yourself in a construction site. There are several <b>keep out</b> signs visible from here. Shit.'
  98. act 'Sneak out':
  99. *clr
  100. cla
  101. '<center><img <<$set_imgh>> src="images/pre/alt/road.jpg"></center>'
  102. 'The 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...'
  103. act 'Continue': gt 'preALT','Cursed Schoolgirl Start 2'
  104. end
  105. end
  106. end
  107. end
  108. end
  109. end
  110. end
  111. end
  112. act 'Skip intro':
  113. hour = 18
  114. showstat 1
  115. showobjs 1
  116. if oldobjmenu = 0:
  117. gs 'obj_din', 'new'
  118. else
  119. gs 'obj_din', 'old'
  120. end
  121. gt 'pavResidential'
  122. end
  123. end
  124. if $ARGS[0] = 'Cursed Schoolgirl Start 2':
  125. clr
  126. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  127. 'You wake up in in an unfamiliar room. Standing near you is the a red-haired girl.'
  128. '"Ah, you woke up," she chirped. "We found you half-dead, you know. You almost didnt make it. You shouldn''t be fondling ancient amulets you know nothing about."'
  129. '"I did some research on what happened to you. Turns out the Amulet of Power passed to you, which should only happen if touched by a male mage. Unfortunately, I got some bad news for you. Reinhold, this really powerful mage. He''s been tracking down this amulet for a while now and if he realizes that the amulet''s power has passed to you he might think you pose a risk."'
  130. act 'What''s going on?':
  131. cla
  132. *clr
  133. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  134. '"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
  135. '"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."'
  136. '"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."'
  137. '"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."'
  138. *nl
  139. '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."'
  140. '"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."'
  141. 'She stops for a few seconds for you process that information. It seems really far fetched.'
  142. '"Reinhold wants to prevent the amulet being misused, he is tasked with maintaining order and will search for you."'
  143. act 'So, the whole world is just an illusion?':
  144. cla
  145. *clr
  146. clr
  147. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  148. '"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.'
  149. '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."'
  150. '"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."'
  151. act 'And who are you?':
  152. cla
  153. *clr
  154. clr
  155. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  156. '"And who are you?" you ask.'
  157. '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."'
  158. '"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
  159. act 'What do you want form me?':
  160. cla
  161. *clr
  162. clr
  163. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  164. '"What do you want form me?" you ask.'
  165. '"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."'
  166. '"But this is not good for you. You may think that since you have the amulets'' power, you can do anything. But in reality, you''re helpless without the skill to use it. Its power already knocked you out and I had to use magic to stabilize you."'
  167. act 'What is this amulet? Where did it come from?':
  168. cla
  169. *clr
  170. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  171. '"And what is this amulet? Where did it come from?" you ask.'
  172. '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."'
  173. '"Great. So I''ve been thrown into this mess by the dead owner of that ancient tomb. Hang on, I''m not male or a mage, how could the power be transferred to me?"'
  174. '"It seems that its long time underground has caused it to malfunction and its power has entered your body."'
  175. '"You are lucky to be a woman," Tatiana adds, "Rikudo''s power seems to only work if it is in a man''s body. Since you cannot harness its power you shouldn''t arouse suspicion."'
  176. act 'So what should I do?':
  177. cla
  178. *clr
  179. '<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
  180. '"Lay low for now. Go on with your life. We will contact you if anything comes up. Gustav here will drop you off at your home."'
  181. act 'Follow Gustav':
  182. hour = 18
  183. cla
  184. *clr
  185. '<center><img <<$set_imgh>> src="images/pre/alt/gorodok.jpg"></center>'
  186. 'You give Gustav directions to your house and half an hour later he drops you off in front of your home.'
  187. act 'Continue':
  188. showstat 1
  189. showobjs 1
  190. if oldobjmenu = 0:
  191. gs 'obj_din', 'new'
  192. else
  193. gs 'obj_din', 'old'
  194. end
  195. gt 'pavResidential'
  196. end
  197. end
  198. end
  199. end
  200. end
  201. end
  202. end
  203. end
  204. end
  205. --- preALT ---------------------------------