1
0

preCSB.qsrc 48 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704
  1. # preCSB
  2. music_loop = 0
  3. CLOSE ALL
  4. gs 'themes', 'indoors'
  5. !!-------
  6. !! Intro
  7. !!-------
  8. if $ARGS[0] = 'intro_0':
  9. *clr & cla
  10. menu_off = 1
  11. '<center><img <<$set_imgh>> src="images/pre/csb/ivancsb.jpg"></center>'
  12. 'You are Peter Ivanov.'
  13. '<<$startdob>>'
  14. 'Your parents died shortly after you were born. Your only remaining relative, your great uncle Ivan, took you in. Your uncle has always made it clear that he took you in as a courtesy to your parents, not to become one himself. You two never became close, causing a lonely childhood.'
  15. act 'Continue':
  16. *clr & cla
  17. '<center><img <<$set_imgh>> src="images/pre/csb/start3csb.jpg"></center>'
  18. '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. While you wanted your uncle to act like the fathers of the other kids at school, you were never allowed to call him anything else than "sir."'
  19. act 'Continue':
  20. *clr & cla
  21. '<center><img <<$set_imgh>> src="images/pre/csb/start4csb.jpg"></center>'
  22. 'Your teenage years were beset by the same changes as the rest of the boys your age: You got taller and gained a lot of muscle, your shoulders widened, your voice squeaked until it deepened, and hair sprouted from everywhere on your body.'
  23. 'You spent most of the last few years in a near-constant state of arousal, set off just by as little as a suggestively shaped vegetable. Thankfully the awkward changes and acne have started to subside, leaving you looking like the young man you will be.'
  24. act 'Continue':
  25. *clr & cla
  26. '<center><img <<$set_imgh>> src="images/pre/csb/start5csb.jpg"></center>'
  27. 'During the last winter break, you decided to enjoy a Christmas party at a friend of a friend''s house. An incident involving a spiked punch bowl, mistletoe, and a drunken dare led to a picture of you kissing another man being circled around. Everything went downhill from there. Now everyone thinks that you are gay, regardless of your protests.'
  28. 'Everyone you knew quickly turned on you; nothing you could say worked to change their minds. You became an outcast and received regular beatings from the other guys.'
  29. act 'Continue':
  30. *clr & cla
  31. '<center><img <<$set_imgh>> src="images/pre/csb/ivancsb.jpg"></center>'
  32. 'A few days after the incident, you came home to find a livid Uncle Ivan. He grabs you by the collar and pins you against the wall, spittle hitting you as he screams into your face.'
  33. '"What''s this I''m hearing about you being a fucking faggot?! What''s wrong with you? What, you want to suck cock you fucking fairy?!"'
  34. act 'No!': gt 'preCSB', 'intro_1_straight'
  35. act 'No! (Lie)': gt 'preCSB', 'intro_1_bi'
  36. end
  37. end
  38. end
  39. end
  40. end
  41. if $ARGS[0] = 'intro_1_straight':
  42. *clr & cla
  43. csb_bisexual = 0
  44. '<center><img <<$set_imgh>> src="images/pre/csb/ivancsb.jpg"></center>'
  45. 'You protest your innocence. It was just a drunken prank, nothing more. You manage to impress upon your uncle the truth, but he is still furious, more at the damage you are causing <i>his</i> reputation than anything else. He gives you an ultimatum: undo the damage you have done by proving your masculinity.'
  46. 'You have to convince a girl to have sex with you and post pictures by the end of the summer. If you fail, you will be disowned and have to fend for yourself.'
  47. act 'Continue': gt 'preCSB', 'intro_2_name'
  48. end
  49. if $ARGS[0] = 'intro_1_bi':
  50. *clr & cla
  51. csb_bisexual = 1
  52. '<center><img <<$set_imgh>> src="images/pre/csb/bisexualcsb.jpg"></center>'
  53. 'You can''t tell him the truth. You''ve always enjoyed the sight of muscular men just as much as half-naked women.'
  54. 'But being a gay man, or even a bisexual one, in Russia is a death sentence. You''ve played the part all your life, trying to blend in by pretending to only like girls.'
  55. 'All it took was one moment of drunken weakness and your carefully constructed facade came crumbling down around you. And given the look on your Uncle Ivan''s face, that mistake will cost you dearly.'
  56. act 'Continue':
  57. *clr & cla
  58. '<center><img <<$set_imgh>> src="images/pre/csb/ivancsb.jpg"></center>'
  59. 'You somehow manage to deceive your uncle. Maybe he believes you, or maybe he just wants to, but he believes that it is only a drunken prank gone wrong. He is still furious, but it is more at the damage you are causing <i>his</i> reputation than anything else.'
  60. 'He gives you an ultimatum: undo the damage you have done by proving your masculinity. You have to convince a girl to have sex with you and post pictures by the end of the summer. If you fail, you will be disowned and have to fend for yourself.'
  61. act 'Continue': gt 'preCSB', 'intro_2_name'
  62. end
  63. end
  64. if $ARGS[0] = 'intro_2_name':
  65. *clr & cla
  66. '<center><img <<$set_imgh>> src="images/pre/csb/mockingcsb.jpg"></center>'
  67. 'Unfortunately your reputation is in tatters. You''ve become the school outcast, no girl will give you the time of day, let alone agree to sleep with you. Out of desperation you turn to the Internet, fruitlessly looking for months before you finally manage to come across a girl from the nearby town of Pavlovsk.'
  68. act 'Her name is ...':
  69. $pcs_firstname = 'Svetlana'
  70. $pcs_lastname = 'Lebedev'
  71. $pcs_nickname = 'Sveta'
  72. !!Player names are set here
  73. $temp_firstname = '<<$pcs_firstname>>'
  74. $pcs_firstname = input("What is the girls first name? (Leave blank for Svetlana)")
  75. if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
  76. killvar '$temp_firstname'
  77. $temp_lastname = '<<$pcs_lastname>>'
  78. $pcs_lastname = input("What is the girls name? (Leave blank for Lebedev)")
  79. if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
  80. killvar '$temp_lastname'
  81. $temp_nickname = '<<$pcs_nickname>>'
  82. $pcs_nickname = input("What the girls nickname? (Leave blank for Sveta)")
  83. if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
  84. killvar '$temp_nickname'
  85. gt 'preCSB', 'intro_3'
  86. end
  87. end
  88. if $ARGS[0] = 'intro_3':
  89. *clr & cla
  90. '<center><img <<$set_imgh>> src="images/pre/csb/start7csb.jpg"></center>'
  91. 'Her name is <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>. She was born on the same day as you. She has no friends in her home town, a result of not being a particularly outgoing or beautiful girl.'
  92. 'She enthusiastically responds to your messages, eager to finally have someone to talk to. You can''t believe your luck; this might be your saving grace.'
  93. 'You spend the next few weeks messaging back and forth. <<$pcs_nickname>> appears to crave your attention, telling you all about her life as well as her likes and dislikes.'
  94. act 'Continue': gt 'preCSB', 'intro_4'
  95. act 'Re-enter her names':
  96. $pcs_firstname = 'Svetlana'
  97. $pcs_lastname = 'Lebedev'
  98. $pcs_nickname = 'Sveta'
  99. !!Player names are set here
  100. $temp_firstname = '<<$pcs_firstname>>'
  101. $pcs_firstname = input("What is the girls first name? (Leave blank for Svetlana)")
  102. if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
  103. killvar '$temp_firstname'
  104. $temp_lastname = '<<$pcs_lastname>>'
  105. $pcs_lastname = input("What is the girls name? (Leave blank for Lebedev)")
  106. if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
  107. killvar '$temp_lastname'
  108. $temp_nickname = '<<$pcs_nickname>>'
  109. $pcs_nickname = input("What the girls nickname? (Leave blank for Sveta)")
  110. if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
  111. killvar '$temp_nickname'
  112. gt 'preCSB', 'intro_3'
  113. end
  114. end
  115. if $ARGS[0] = 'intro_4':
  116. *clr & cla
  117. '<center><img <<$set_imgh>> src="images/pre/sys/altstart.jpg"></center>'
  118. 'You find out about her mother Natasha, and how her biological father left before she was born. Her mother remarried shortly afterwards to a man called Vladimir.'
  119. 'She has a sister named Anya who is two years older than her. Anya chose to live at home instead of going to college, working at the local grocery in the day and partying at night.'
  120. '<<$pcs_nickname>> has a half-brother Kolka, who is a year younger than her and really into football.'
  121. 'Her mother''s sister, Aunt Luda, lives on the top floor of the same building as her. Her stepfather''s best friend is called Uncle Misha, who lives across the hall. Her mother''s old friend Sergey Shulgin lives on the floor above them, and <<$pcs_nickname>>''s old childhood friend Vasily is his son.'
  122. 'Her grandparents live in a nearby village, where she occasionally spends a weekend.'
  123. 'You listen to her complaining about her extended family and about how she and Vasily drifted apart, comforting her as best you can. Yet you can''t help but feel a little jealous at how many caring relatives she has, given that your only relation is a great uncle who is about to kick you onto the streets for the sake of his own reputation.'
  124. 'You do the best you can to repress any resentment towards <<$pcs_nickname>> about how little she appreciates what she has.'
  125. act 'When she talks about her mother, she calls her ...':
  126. $npc_nickname['A29'] = '<<$npc_nickname[''A29'']>>'
  127. $temp_nickname = $npc_nickname['A29']
  128. $npc_nickname['A29'] = input('<center>What name does she use to address her mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
  129. if $npc_nickname['A29'] = '':$npc_nickname['A29'] = '<<$temp_nickname>>'
  130. killvar '$temp_nickname'
  131. gt 'preCSB', 'intro_5'
  132. end
  133. end
  134. if $ARGS[0] = 'intro_5':
  135. *clr & cla
  136. if $month = 'August': $cbpre_text1 = ' the end of'
  137. '<center><img <<$set_imgh>> src="images/pre/csb/talkingcsb.jpg"></center>'
  138. 'A couple months pass. You and <<$pcs_nickname>> continue to talk, and you learn even more about her life, from her envy of the confidence of the gopnik Anushka to her secret crush on the athlete Fedor.'
  139. 'In a short while, <<$pcs_nickname>> develops a massive crush on you, as you are the only boy who has ever paid any attention to her. As <<$cbpre_text1>>summer break approaches, you bring up the idea of meeting up. <<$pcs_nickname>> is excited at the prospect and you agree to meet at the café where her mother works.'
  140. killvar '$cbpre_text1'
  141. act 'Continue':
  142. *clr & cla
  143. '<center><img <<$set_imgh>> src="images/pre/csb/start6csb.jpg"></center>'
  144. 'Things at home haven''t been doing so well during this time.'
  145. 'Instead of the rumors dying, they have kept escalating over time. You''ve had to plan your routes home from school to avoid spots where you will be cornered and beaten. More than once you''ve gotten garbage thrown at you, and your uncle has become furious from the snide comments made about him by his coworkers.'
  146. 'You were quickly kicked out of any groups you used to spent time with, ending up with no friends. You find yourself hiding in your room most days, messaging <<$pcs_nickname>>. You live for the hope that after you meet up with <<$pcs_nickname>> everything will go back to normal. Just a few more days...'
  147. act 'Continue':
  148. *clr & cla
  149. '<center><img <<$set_imgh>> src="images/pre/csb/brokenwindowcsb.jpg"></center>'
  150. 'The morning before you are set to meet up with <<$pcs_nickname>>, someone throws a brick through your window. This proves to be the last straw for your uncle, who tosses you out then and there. You barely manage to tell him about the impending meeting, prompting him to give you one last chance, "Either you come back with photos, or you won''t come back at all."'
  151. act 'Continue':
  152. *clr & cla
  153. '<center><img <<$set_imgh>> src="images/pre/csb/leavingcsb.jpg"></center>'
  154. 'You pack up condoms and some spare cash into a backpack, heading off to the train station to get laid.'
  155. 'On the train ride to Pavlovsk, you get a message from <<$pcs_nickname>>. Her parents have taken her to spend time with her grandparents in Gaduyinko. She is unable to get out of the trip, since her mother has been upset at how she has been spending so much time on her phone and not with her family.'
  156. 'With no other choice, you buy a second ticket to meet her at Gaduyinko. This is your last shot to regain your old life; you can''t let this chance slip through your fingers.'
  157. act 'Travel to Gaduyinko':
  158. *clr & cla
  159. '<center><img <<$set_imgh>> src="images/locations/shared/train/gadplat.jpg"></center>'
  160. 'You get off the train next to a small road in the middle of nowhere. A dirt road leads to a small village made up of rickety wooden houses and even more ruined ones. Unsure of which house is <<$pcs_nickname>>''s grandparent''s, you pull out your phone to text her that you have arrived.'
  161. 'A few minutes later, an excited teenage girl comes rushing down one of the dirt roads. You double-check a picture of <<$pcs_nickname>> on your phone, as this is the first time you have seen her with your own eyes.'
  162. act 'Take a look at her picture': gt 'preCSB', 'intro_6_looks'
  163. end
  164. end
  165. end
  166. end
  167. end
  168. if $ARGS[0] = 'intro_6_looks':
  169. *clr & cla
  170. if player_avatar = 1:
  171. '<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
  172. 'She looks exactly like in the picture she send you.'
  173. act 'Meet her': gt 'preCSB', 'intro_7'
  174. else
  175. '<center><b><font color = maroon>GIRLFRIEND CUSTOMIZATION</font></b></center>'
  176. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  177. *nl
  178. '<center><a href="exec:gs ''preCSB'', ''hair''"><img src="images/pre/shared/hair icon.png"></a> <a href="exec:gs ''preCSB'', ''eyes''"><img src="images/pre/shared/eye icon.png"></a></center>'
  179. act '<b>Finish customization</b>': gt 'preCSB', 'intro_7'
  180. end
  181. end
  182. if $ARGS[0] = 'intro_7':
  183. *clr & cla
  184. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  185. 'She''s shorter than you but rather tall for a woman, with a body that is neither too fat nor especially skinny. On her chest rest a pair of decently-sized breasts. Her <<$curly>><<$pcdesc_hairlength>> hair is <<$pcs_haircol>>.'
  186. 'She has <<$pcs_eyecol>> eye with <<$pcs_lashes>>'+iif(glass > 0, ' hidden behind a pair of cheap glasses.', '.')
  187. 'She looks like she has spent some time in front of the mirror trying to pretty herself up, and her clothes are very clean. Despite that, she still looks rather average. Like she is the type of girl that would be a background character in another person''s life. Little wonder she isn''t very popular.'
  188. act 'Go for a walk':
  189. *clr & cla
  190. '<center><img <<$set_imgh>> src="images/pre/alt/gadukino.jpg"></center>'
  191. 'You both walk along a dirt road heading through grain fields and towards a forest. <<$pcs_nickname>> is holding your hand and keeps babbling on, asking you question after question.'
  192. act 'Keep walking':
  193. *clr & cla
  194. '<center><img <<$set_imgh>> src="images/pre/alt/ruinpre.jpg"></center>'
  195. 'You end up being dragged into her pace, getting lost in the conversation between you two. Before too long, you look up to realize that while you were talking you ended up somewhere in the forest. Just ahead of you is an old ruin.'
  196. act 'Take a rest and make a move':
  197. *clr & cla
  198. '<center><img <<$set_imgh>> src="images/pre/csb/kisscsb.jpg"></center>'
  199. 'You see a large stone at the ruins and sit <<$pcs_nickname>> down. You put your arm around her shoulders, and she leans into you. You turn to look at her face, she looks back. You lean in to plant a kiss on her lips...'
  200. act 'What''s that sound?':
  201. *clr & cla
  202. !!Background: Black
  203. fcolor = rgb(255, 255, 255)
  204. bcolor = rgb(0, 0, 0)
  205. lcolor = rgb(106, 90, 205)
  206. '<center><img <<$set_imgh>> src="images/pre/alt/tunnel1pre.jpg"></center>'
  207. 'A loud crack runs through the ruins. The ground gives way beneath you, sending both of you tumbling down into a dark hole. Miraculously you both manage to land with only minor scrapes and bruises. You curse and look around at your surroundings.'
  208. 'You seem to be in an underground chamber of some sort. Looking up you see that climbing out is not an option. There is also an old gate one side of the chamber but it''s either locked or rusted shut. Looks like the only way out is the tunnel on the other side of the chamber.'
  209. 'The romantic mood has been thoroughly broken. You have more immediate concerns of survival. You pull your backpack back on your shoulders, turn on the flashlight on your phone and lead <<$pcs_nickname>> out the only way you can.'
  210. act 'Follow the tunnel':
  211. *clr & cla
  212. '<center><img <<$set_imgh>> src="images/pre/alt/tunnel2pre.jpg"></center>'
  213. 'The tunnel goes on for what feels like miles. You start to worry that your phone battery will die.'
  214. act 'Keep going':
  215. *clr & cla
  216. '<center><img <<$set_imgh>> src="images/pre/shared/dunpre3.jpg"></center>'
  217. 'At the end of the tunnel you find a dead end. Or at least it seems so. <<$pcs_nickname>> notices light coming through the cracks in the wall. You do your best to knock it down.'
  218. 'After a few good hits the wall crumbles and you find yourself in another chamber filled with old pottery and baubles. Opposite you is another tunnel, that hopefully 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.'
  219. act 'Examine the amulet':
  220. *clr & cla
  221. '<center><img <<$set_imgh>> src="images/pre/shared/amuletpre.jpg"></center>'
  222. 'You pick up the strange amulet and examine it. You take the amulet in your hands and notice its much lighter than it looks and unusually warm for a piece of metal. It''s shaped like an antique oil lamp and... is that a penis? This is clearly very old, you think to yourself.'
  223. 'While holding the amulet, you realize that it''s getting warmer, 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.'
  224. '<<$pcs_nickname>> touches your arm, asking what you found. "Just some old junk," you reply as you pocket the amulet. "Come on, let''s get going."'
  225. act 'Find a way out':
  226. *clr & cla
  227. '<center><img <<$set_imgh>> src="images/pre/shared/kotpre.jpg"></center>'
  228. 'You follow the passage and find yourselves in a construction site. There are several keep out signs visible from here.'
  229. '<b>Shit!</b> You think.'
  230. act 'Sneak out':
  231. *clr & cla
  232. '<center><img <<$set_imgh>> src="images/pre/alt/road.jpg"></center>'
  233. 'The workers shift has long since finished so sneaking out is not too hard. The site is on a highway so hopefully you can make it back before people notice that <<$pcs_nickname>> is missing. It''s already late in the afternoon. You hope that you can get back before dark.'
  234. act 'Walk towards Gaduyinko':
  235. *clr & cla
  236. !!Background: Grey
  237. fcolor = rgb(255, 255, 255)
  238. bcolor = rgb(20, 20, 20)
  239. lcolor = rgb(106, 90, 205)
  240. '<center><img <<$set_imgh>> src="images/pre/alt/road.jpg"></center>'
  241. 'You and <<$pcs_nickname>> walk along the road for several hours. The sun has started to set, the trees casting long shadows across the road. <<$pcs_nickname>> is lagging behind, getting tired.'
  242. 'You stick your hands in your pockets, slowing down to let her catch up. You feel a hard object and pull out the amulet to look at it.'
  243. 'It still looks kind of funny, but holding it is sending a pleasant rush of heat and energy through you. There''s something about it that...'
  244. 'Suddenly, <<$pcs_nickname>> grabs your arm.'
  245. '"Who''s that?"'
  246. act 'Look up': gt 'preCSB', 'intro_8'
  247. end
  248. end
  249. end
  250. end
  251. end
  252. end
  253. end
  254. end
  255. end
  256. end
  257. end
  258. if $ARGS[0] = 'intro_8':
  259. *clr & cla
  260. !!Background: Grey
  261. fcolor = rgb(255, 255, 255)
  262. bcolor = rgb(20, 20, 20)
  263. lcolor = rgb(106, 90, 205)
  264. '<center><img <<$set_imgh>> src="images/pre/csb/shadowyfigurecsb.jpg"></center>'
  265. 'You look up to see a dark figure in a long coat. The shadows cast by the setting sun obscure his figure, but you can see him striding purposefully towards you.'
  266. 'All of a sudden a cold chill of fear run through you. Two teenagers alone, in the dark, on the side of a road, in the middle of nowhere, being approached by a tall figure cloaked in shadows? There are dozens of horror stories that begin this way, and you don''t want to stick around to find out how it ends.'
  267. act 'Run':
  268. *clr & cla
  269. '<center><img <<$set_imgh>> src="images/pre/tg/reinholdpre.jpg"></center>'
  270. '<<$pcs_nickname>> seems to have shared your thoughts, as she grabs your hand and dashes into the woods. Amidst the panic the amulet slips from your hands and lands in the grass, giving off a slight glow that briefly illuminates the face of the man who was following you. Your long legs allow you to take the lead, dragging <<$pcs_nickname>> behind you into the forest.'
  271. act 'Keep running':
  272. *clr & cla
  273. !!Background:Black
  274. fcolor = rgb(255, 255, 255)
  275. bcolor = rgb(0, 0, 0)
  276. lcolor = rgb(106, 90, 205)
  277. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.4.jpg"></center>'
  278. 'You drag <<$pcs_nickname>> along in a mad dash to escape the dark figure. You twist and turn, trying to lose him in the woods. After a few minutes you feel <<$pcs_nickname>>''s hand rip out of your grasp. You look back to see her collapsing on the ground, panting in exhaustion. There''s no sign of the man anywhere. You think you lost him. You sigh in relief.'
  279. act 'Continue':
  280. *clr & cla
  281. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/howl.jpg"></center>'
  282. 'Suddenly your hear a terrifying howl close behind you. Another jolt of adrenaline passes through you. Wolves?!'
  283. act 'Run away':
  284. *clr & cla
  285. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_wolf.jpg"></center>'
  286. 'You turn to help <<$pcs_nickname>> stand up. You look at her just in time to see a wolf knock her down, its fangs clamping down on her neck. A gush of crimson blood stains the jaws of the wolf as you look on in shock. You hear the sound of rustling brush and you rush to escape in panic, but almost immediately you feel a powerful push in the back and fall down.'
  287. act 'Lash out':
  288. *clr & cla
  289. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/wolf.jpg"></center>'
  290. 'You panic and lash backwards with your hands, causing the other wolf to spring backwards out of range. Yet another wolf rushes in from the side, tearing into your shoulder.'
  291. act 'Scream in pain':
  292. *clr & cla
  293. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
  294. 'You let out a scream of pain, every thought being buried under the wild panic of adrenaline. You try to get up to run, but a pair of jaws bites deep into your thigh, sending you to the ground.'
  295. act 'Oh god...':
  296. *clr & cla
  297. '<center><img <<$set_imgh>> src="images/pre/csb/dyingforestcsb.jpg"></center>'
  298. 'Shock and blood loss set in, causing your vision to start to black out. So this is how you die. Moments before you pass out, you swear you can hear the sound crunching bones from above you and see a flash of red hair.'
  299. act '...am I dying?': gt 'preCSB', 'intro_9'
  300. end
  301. end
  302. end
  303. end
  304. end
  305. end
  306. end
  307. end
  308. if $ARGS[0] = 'intro_9':
  309. *clr & cla
  310. '<center><img <<$set_imgh>> src="images/pre/csb/darknesscsb.jpg"></center>'
  311. '...'
  312. wait 1500
  313. *nl
  314. '...'
  315. wait 1500
  316. *nl
  317. '...'
  318. wait 1500
  319. *nl
  320. '...'
  321. wait 1500
  322. *nl
  323. 'Darkness consumes your thoughts for some time. Eventually, images begin to form in your mind and you soon find yourself in a middle of a dream. The strange amulet stands before you and out of it comes a ghost of some sort. Before you even realize what you are doing, you find yourself staring deep into the ghost''s eyes which then turn into two planet earths.'
  324. '"Most who look at the world see only the mundane, but there is more to it. Much more. Now you see that too. You have the potential to shape it all, but first, you have company."'
  325. act 'Wake up':
  326. *clr & cla
  327. !!Background: White
  328. bcolor = rgb(255, 255, 255)
  329. lcolor = rgb(106, 90, 205)
  330. fcolor = rgb(0, 0, 0)
  331. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  332. 'You open your eyes to see you are in a hospital room. Next to you is an unfamiliar red-haired girl.'
  333. '"Ah, you woke up," she chirped. "We found you half-dead, you know. You almost didn''t make it. There wasn''t anything that I could do for the girl though. Those wolves really did a number on the two of you. Running half-exhausted through the forest must have made you a pretty tempting target. Then again, given how you picked up that amulet, you probably wouldn''t have lasted much longer even if you had managed to get away."'
  334. act 'What? Who? Where?':
  335. *clr & cla
  336. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  337. 'You try to ask her all the questions running through your mind right now. Unfortunately all that comes out of your mouth is a croaking groan. Your tongue feels half-numb, as does the rest of your body. Your head is too fuzzy at the moment to think straight.'
  338. '"I''d take it easy right now. I managed to save you, but your body still needs to get used to the change."'
  339. act 'What change?':
  340. *clr & cla
  341. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  342. '"What change?" You manage to get those words out, though your voice sounds a lot higher than normal.'
  343. 'The girl points at your chest, "Take a look for yourself."'
  344. act 'Look down':
  345. *clr & cla
  346. '<center><img <<$set_imgh>> src="images/pre/csb/wakeupcsb.jpg"></center>'
  347. 'You look down, hair longer than it was yesterday shifting in front of your eyes. The covers of the hospital bed lie flat over your body, but they cover a far different shape than you are used to.'
  348. 'You whip back the covers and the front-open hospital gown to discover a pair of naked breasts in front of your face. Past them lie the smooth curves of a teenage girl. An empty feeling between your legs informs you that your old friend has gone missing.'
  349. 'You hastily recover your body in a panic, turning to the girl at your bedside.'
  350. act 'What did you do to me?!':
  351. *clr & cla
  352. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  353. 'The girl frowns at your tone. "<i´>I</i> saved your life. Twice, even. You shouldn''t run off into the woods at night, let alone be fondling ancient amulets you know nothing about. Especially something like the Amulet of Power. Turns out that it passed to you. Must have happened when you touched it."'
  354. act 'What''s going on?':
  355. *clr & cla
  356. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  357. '"What the hell is going on?" you respond. "What does that have to do with turning me into a girl?!"'
  358. '"Hold on, I''ll get around to that. Let me 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."'
  359. '"They bred with humans and with that human magicians were born. The Sidhe, 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, preventing either from being able to reproduce without the other."'
  360. '"All magicians have some of that original fae blood in their bodies. It is through that that they are able to connect with the world of magic."'
  361. 'The redhead adjusts her glasses. "Most of the world simply ignores magic, or are protected from it by magic''s natural desire to remain hidden."'
  362. act 'Continue':
  363. *clr & cla
  364. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  365. '"But last night there was a powerful burst of magical energy, strong enough to be clearly felt 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."'
  366. 'She stops for a few seconds for you process that information. It seems really far fetched.'
  367. '"A man named Reinhold wanted to prevent the amulet being misused, so he went out to find it. Of course, the moment you saw him you dropped the amulet and bolted into the woods. He picked it up but didn''t bother to check you over. Unfortunately, he''s probably realized by now that the amulet no longer has the power and now he''ll be out to hunt you down."'
  368. act 'So, the whole world is just an illusion?':
  369. *clr & cla
  370. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  371. '"So magic exists and is used by all these people and creatures. But the rest of us just don''t see it, or we convince ourselves it didn''t happen?" You ask.'
  372. '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 a flamethrower. The average human mind can''t process magic, so it blocks it out as a way to protect the person from going crazy."'
  373. '"Hence such things as little green men, UFOs, poltergeists, and spontaneous combustion are from when people encounter a difficult-to-hide phenomenon and their minds come to a flawed conclusion. In some cases, a person''s mind can''t cope with the spell they witness and they are driven so crazy that no one believes them."'
  374. act 'And who are you?':
  375. *clr & cla
  376. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  377. '"And who are you?" you ask.'
  378. '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 due to magical exposure. It gives him unmatched physical strength, plus he''s a great tracker."'
  379. '"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
  380. act 'What do you want from me?':
  381. *clr & cla
  382. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  383. '"And what is this amulet? Where did it come from?" you ask.'
  384. 'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians. He taunted the only living mage who could control its immense power by cursing him to be stuck in a female form, yet making it only activate for a male mage."'
  385. '"I''m not a mage though, how could the power be transferred to me? And what does that have to do with turning me into a girl?"'
  386. '"Well as for how the power was transferred, it seems that its long time underground caused it to malfunction and its power to enter your body. It was far too powerful for your body and would have ended up killing you and who knows how many others. Which is where the ''turning you into a girl'' part comes in."'
  387. act 'Continue':
  388. *clr & cla
  389. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  390. '"See, when I found you I could feel the aura of power emanating from you. That made it easy to put things together. I knew enough about the Amulet to know that the power would have destroyed you. So I drew from that aura to transform you into someone who was protected from the masculine alignment of the power."'
  391. 'Tatiana runs a hand through her hair and giggles. "So I made you into a pretty teenage girl. Now the power is going to lie dormant, saving you from blowing up a city or something."'
  392. '"Wasn''t there any other way? Taking away my manhood is a pretty drastic move!"'
  393. act 'Continue':
  394. *clr & cla
  395. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  396. '"Of course there was another way. I could have just stopped your heart and let your power dissolve into nature. You would have died though. Reinhold might be the kind of person to kill you to save others, but I didn''t want to kill you right after saving you. Plus with my magic I was able to take this risk. Sure, maybe with more time doing research I could have worked out another solution, but I didn''t have a lot of time."'
  397. '"Of course I couldn''t just leave a newly teenage girl without parents or a home. So I decided to kill two birds with one stone. Instead of just turning you into the girl version of you, I turned you into that girl you were with."'
  398. act 'What?':
  399. *clr & cla
  400. '<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
  401. 'Startled, you reach up to your face, tracing out the features. You didn''t get a chance to become familiar with her face, but it feels about right. This whole time, the death of <<$pcs_nickname>> didn''t feel real, like she was still around somehow. Maybe it''s because you now "are" <<$pcs_nickname>>, but even now you don''t feel a sense of loss or guilt.'
  402. '"Having a template to work off of really helped. Not even a geneticist could tell you two apart; you are identical from your fingerprints down to your DNA. Of course, that means your new ''equipment'' down there is fully functional as well, so if you don''t want to be a mommy, you should start thinking about contraceptives. You should probably also stay away from any male relatives if you don''t want to end up with a kid with eleven toes or something."'
  403. '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 a man!"'
  404. '"Well, yes. I won''t argue about that." Tatiana agrees. "You can decide what you want to do with your life, but you might want to play the part of <<$pcs_firstname>> until graduation at least. On a side note, I already took care of an alibi. Yesterday, "<<$pcs_firstname>>" was found half-dead on the edge of the woods while the leftovers of Peter''s body were found deeper in. It''s in the news." With these words, she tosses a newspaper onto the bed, an article circled out.'
  405. act 'Read the newspaper':
  406. *clr & cla
  407. '<center><img <<$set_imgh>> src="images/pre/csb/newspapercsb.jpg"></center>'
  408. 'There is a news report about a teenage boy, whose remains were found by a group of hunters half-eaten by wolves.'
  409. 'You give Tatiana a bewildered look. She has an enigmatic smile, "Well, I am a magician. That''s something that I can do. Reinhold has definitely lost the trail; there''s no reason he should suspect the power been passed to a girl. You took <<$pcs_firstname>>''s place, and she took yours. The body that ''died'' in the woods was a perfect copy of your old self, from your absorbed amulet energy down to the placement of every single hair."'
  410. '"Anyways, your ''mother'' will be by in a couple hours to pick you up; she thinks that you''ve got some amnesia from a head injury and mental trauma from seeing your ''boyfriend'' get eaten alive by wolves, so you should probably be covered for any slip-ups. Just play the part of the traumatized little schoolgirl and it should be all good. Have fun."'
  411. 'She gets up and heads to the door, opening it up to reveal a tall man with red hair and face tattoos. "Come on, Gustav, let''s go." The pair disappears into the hall, leaving you with your thoughts.'
  412. act 'Think about your situation':
  413. *clr & cla
  414. '<center><img <<$set_imgh>> src="images/pre/csb/hospitalroomcsb.jpg"></center>'
  415. 'You aren''t sure what to think.'
  416. 'On the one hand, you''ve lost your manhood forever. You''ll have to deal with skirts and periods and makeup and babies and all other sorts of girly things.'
  417. 'On the other hand, you''ve been granted a clean slate. No more beatings, no threats of becoming homeless, and you are gaining the family you never had. Plus, you''re going to be able to spy on girls in the locker rooms.'+iif(csb_bisexual = 1, ' And now nobody will look twice at you for kissing a man.', ' ')
  418. 'Whining about the situation isn''t going to change it, so you resolve to deal with it one day at a time, living your new life as <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>.'
  419. act 'Continue':
  420. *clr & cla
  421. '<center><img <<$set_imgh>> src="images/system/schoolboy.jpg"></center>'
  422. 'Welcome to the Cursed Schoolboy version! You may have lost your masculinity and your old life, but you''ve gained new possibilities in return! Will you try to live your new life as a mere schoolgirl, or do you have grander aspirations with your newfound knowledge of magic? The choice is yours!'
  423. !!'Now, would you like to dive right into the action? Or would you rather take some time to get used to your new body and life?'
  424. act 'Start main game!': gt 'preCSB', 'intro_end'
  425. !! [Will lead into the prologue, which is currently WIP]
  426. !! act 'Let''s keep this intro going!':
  427. end
  428. end
  429. end
  430. end
  431. end
  432. end
  433. end
  434. end
  435. end
  436. end
  437. end
  438. end
  439. end
  440. end
  441. end
  442. end
  443. end
  444. if $ARGS[0] = 'intro_end':
  445. *clr & cla
  446. '<center><img <<$set_imgh>> src="images/system/schoolboy.jpg"></center>'
  447. *nl
  448. 'You can choose from two starting locations:'
  449. *nl
  450. 'In the Pavlovsk start you awaken at your parent''s home in the provincial town of Pavlovsk <i>(Recommended for new players)</i>. In the Gadukino start you are visiting your grandparent''s house in the small farming village of Gadukino.'
  451. act 'Pavlovsk Start': gt 'preCSB', 'pav_start'
  452. act 'Gadukino Start': gt 'preCSB', 'gad_start'
  453. end
  454. if $ARGS[0] = 'pav_start':
  455. *clr & cla
  456. '<center><h2>Pavlovsk</h2></center>'
  457. '<center><img <<$set_imgh>> src="images/pre/alt/gorodok.jpg"></center>'
  458. *nl
  459. '<center>A provincial town in a rural area of Russia, it looks much like all the other towns in the region. Population: about 15000 inhabitants.</center>'
  460. act 'Continue': $starting_location = 'pavlovsk' & gt 'preCSB', 'game_start'
  461. act 'Change location': gt 'preCSB', 'gad_start'
  462. end
  463. if $ARGS[0] = 'gad_start':
  464. *clr & cla
  465. '<center><h2>Gadukino</h2></center>'
  466. '<center><img <<$set_imgh>> src="images/pre/alt/gadukino.jpg"></center>'
  467. *nl
  468. '<center>A small farming village with many rickety wooden houses and even more ruins of houses. This village has seen better times.</center>'
  469. act 'Continue': $starting_location = 'gadukino' & gt 'preCSB', 'game_start'
  470. act 'Change location': gt 'preCSB', 'pav_start'
  471. end
  472. if $ARGS[0] = 'game_start':
  473. *clr & cla
  474. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center>'
  475. 'Shortly after Tatiana left, your new mother showed up to take you to your new home. You met your new family and did the best you could to fit in, afraid of them figuring out that you are not <<$pcs_firstname>>. They seem to have bought Tatiana''s explanation of amnesia and mental trauma, going out of their way to reintroduce you to your new life.'
  476. act 'Continue':
  477. *clr & cla
  478. '<center><img <<$set_imgh>> src="images/pre/csb/checkingoutguycsb.jpg"></center>'
  479. 'Over the next week, you slowly became accustomed to your new life. You aren''t used to being a girl just yet, but you''ve come to think of yourself as <<$pcs_nickname>> instead of Peter, and <<$pcs_nickname>>''s family as your own.'
  480. 'There were a few incidents where you acted in some decidedly non-feminine ways. Luckily Tatiana''s alibi has proved helpful here as well, covering your mistakes.'
  481. if csb_bisexual = 0:
  482. 'You''ve noticed some other mental changes apart from just thinking of yourself as <<$pcs_firstname>>. Perhaps it is a result of your new gender, but with your new body has come an attraction towards men. You are a little unsettled by these changes, but you can''t feel repulsed by these new desires any more than you could have been repulsed for finding girls attractive before.'
  483. 'The first time you saw a man''s penis was a mind-opening experience, awakening unfamiliar feelings. Luckily it seems that you''ve retained your attraction towards women, making your changing sexuality easier to deal with. So far, you haven''t had the time to really explore a woman''s pleasure.'
  484. else
  485. 'You''ve noticed some other mental changes apart from just thinking of yourself as <<$pcs_firstname>>. While you were always attracted to men before, your new gender has changed the nature of that attraction. The first time that you saw a man''s penis brought a new need to be conquered, to be the one who gets fucked instead of the one who fucks.'
  486. 'While this type of desire isn''t completely unfamiliar, it is now far more dominant than before. So far, you haven''t had the time to really explore a woman''s pleasure.'
  487. end
  488. act 'Continue':
  489. *clr & cla
  490. if $starting_location = 'pavlovsk': '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
  491. if $starting_location = 'gadukino': '<center><img <<$set_imgh>> src="images/pre/alt/gadukino.jpg"></center>'
  492. 'It will take some more time for you to get completely used to your new body and life as <<$pcs_firstname>>. For now, you should just focus on getting out of bed.'
  493. act 'Continue':
  494. cla
  495. showstat 1
  496. showobjs 1
  497. !!Stuff from the backpack, phone
  498. money += 5000
  499. prezik = 3
  500. pornMagazine = 40
  501. balans = 200
  502. minut = 0
  503. hour = 9
  504. msg 'You have gained the trait ''Everything is New Again''! <br>Being thrust into a new life has forced you to reevaluate and relearn everything. You pick up new skills more quickly for a short time.'
  505. gs 'stat'
  506. act 'Start your new life':
  507. if $starting_location = 'pavlovsk': gt 'bedrPar'
  508. if $starting_location = 'gadukino': gt 'gadhouse', 'start'
  509. end
  510. end
  511. end
  512. end
  513. end
  514. !!------------------------
  515. !! Character Customization
  516. !!------------------------
  517. if $ARGS[0] = 'hair':
  518. *clr & cla
  519. '<center><b><font color = maroon>GIRLFRIEND CUSTOMIZATION</font></b></center>'
  520. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  521. *nl
  522. if pcs_hairlng <= 1:
  523. $hair = 'She has <a href="exec:pcs_hairlng = 31 & gs ''preCSB'', ''hair''">very short</a>,'
  524. elseif pcs_hairlng <= 31:
  525. $hair = 'She has <a href="exec:pcs_hairlng = 81 & gs ''preCSB'', ''hair''">short</a>,'
  526. elseif pcs_hairlng <= 81:
  527. $hair = 'She has <a href="exec:pcs_hairlng = 161 & gs ''preCSB'', ''hair''">chin length</a>,'
  528. elseif pcs_hairlng <= 161:
  529. $hair = 'She has <a href="exec:pcs_hairlng = 261 & gs ''preCSB'', ''hair''">shoulder length</a>,'
  530. elseif pcs_hairlng <= 261:
  531. $hair = 'She has <a href="exec:pcs_hairlng = 401 & gs ''preCSB'', ''hair''">breast length</a>,'
  532. elseif pcs_hairlng <= 401:
  533. $hair = 'She has <a href="exec:pcs_hairlng = 601 & gs ''preCSB'', ''hair''">back length</a>,'
  534. elseif pcs_hairlng <= 601:
  535. $hair = 'She has <a href="exec:pcs_hairlng = 801 & gs ''preCSB'', ''hair''">hip length</a>,'
  536. elseif pcs_hairlng <= 801:
  537. $hair = 'She has <a href="exec:pcs_hairlng = 1001 & gs ''preCSB'', ''hair''">ass length</a>,'
  538. else
  539. $hair = 'She has <a href="exec:pcs_hairlng = 1 & gs ''preCSB'', ''hair''">extremely long</a>,'
  540. end
  541. if pcs_haircol = 0 and curly <= 0:$hair += '<a href="exec:defcurly = 1 & curly = 2147483647 & gs ''preCSB'', ''hair''">straight</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">black</a> hair.'& $hair2 = 'black hair' & $hair3 = 'black hair'
  542. if pcs_haircol = 1 and curly <= 0:$hair += '<a href="exec:defcurly = 1 & curly = 2147483647 & gs ''preCSB'', ''hair''">straight</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">brown</a> hair.'& $hair2 = 'brown hair' & $hair3 = 'brown hair'
  543. if pcs_haircol = 2 and curly <= 0:$hair += '<a href="exec:defcurly = 1 & curly = 2147483647 & gs ''preCSB'', ''hair''">straight</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">red</a> hair.'& $hair2 = 'Red hair' & $hair3 = 'red hair'
  544. if pcs_haircol = 3 and curly <= 0:$hair += '<a href="exec:defcurly = 1 & curly = 2147483647 & gs ''preCSB'', ''hair''">straight</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">blonde</a> hair.'& $hair2 = 'blond hair' & $hair3 = 'blond hair'
  545. if pcs_haircol = 0 and curly > 0:$hair += '<a href="exec:defcurly = 0 & curly = 0 & gs ''preCSB'', ''hair''">curly</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">black</a> hair.'& $hair2 = 'curls' & $hair3 = 'black curls'
  546. if pcs_haircol = 1 and curly > 0:$hair += '<a href="exec:defcurly = 0 & curly = 0 & gs ''preCSB'', ''hair''">curly</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">brown</a> hair.'& $hair2 = 'curls' & $hair3 = 'brown curls'
  547. if pcs_haircol = 2 and curly > 0:$hair += '<a href="exec:defcurly = 0 & curly = 0 & gs ''preCSB'', ''hair''">curly</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">red</a> hair.'& $hair2 = 'curls' & $hair3 = 'red hair'
  548. if pcs_haircol = 3 and curly > 0:$hair += '<a href="exec:defcurly = 0 & curly = 0 & gs ''preCSB'', ''hair''">curly</a>, <a href="exec:gs ''preCSB'', ''pcs_haircol'' & gs ''preCSB'', ''hair''">blonde</a> hair.' &$hair2 = 'curls' & $hair3 = 'blond curls'
  549. '<center><i><<$hair>></i>'
  550. nathcol = pcs_haircol
  551. act'<center><b>Done</b></center>': gt 'preCSB', 'intro_6_looks'
  552. end
  553. if $ARGS[0] = 'pcs_haircol':
  554. pcs_haircol += 1
  555. if pcs_haircol > 3: pcs_haircol = 0
  556. end
  557. if $ARGS[0] = 'eyes':
  558. *clr & cla
  559. '<center><b><font color = maroon>GIRLFRIEND CUSTOMIZATION</font></b></center>'
  560. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  561. *nl
  562. if pcs_eyecol = 0:$pcs_eyecol = 'brown' & $glacol2 = 'brown'
  563. if pcs_eyecol = 1:$pcs_eyecol = 'gray' & $glacol2 = 'gray'
  564. if pcs_eyecol = 2:$pcs_eyecol = 'green' & $glacol2 = 'green'
  565. if pcs_eyecol = 3:$pcs_eyecol = 'blue' & $glacol2 = 'blue'
  566. if glass <= 0:$glass = '' & glassvnesh = 0
  567. if glass = 1:$glass = 'She wears silly glasses in a cheap frame.' & glassvnesh = 10
  568. if glass = 2:$glass = 'She wears glasses.' & glassvnesh = 0
  569. if pcs_lashes > 2:pcs_lashes = 2
  570. if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
  571. if pcs_lashes = 1:$pcs_lashes = 'with normal eyelashes'
  572. if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
  573. if pcs_eyesize > 3:pcs_eyesize = 3
  574. if pcs_eyesize = 0:$glaza = 'She has small <a href="exec:gs ''preCSB'', ''eye color'' & gs ''preCSB'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>. <<$glass>>' & $glaza2 = '<<$pcs_eyecol>> eyes' & $glaza3 = '<<$glacol2>> eyes'
  575. if pcs_eyesize = 1:$glaza = 'She has expressive <a href="exec:gs ''preCSB'', ''eye color'' & gs ''preCSB'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>. <<$glass>>' & $glaza2 = 'expressive <<$pcs_eyecol>> eyes' & $glaza3 = 'expressive <<$glacol2>> eyes'
  576. if pcs_eyesize = 2:$glaza = 'She has large <a href="exec:gs ''preCSB'', ''eye color'' & gs ''preCSB'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>. <<$glass>>' & $glaza2 = 'big <<$pcs_eyecol>> eyes' & $glaza3 = 'high <<$glacol2>> eyes'
  577. if pcs_eyesize = 3:$glaza = 'She has huge <a href="exec:gs ''preCSB'', ''eye color'' & gs ''preCSB'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>. <<$glass>>' & $glaza2 = 'great <<$pcs_eyecol>> eyes' & $glaza3 = 'great <<$glacol2>> eyes'
  578. *nl
  579. '<center><i><<$glaza>></i></center>'
  580. *nl
  581. if pcs_lashes < 2:'<center><a href="exec:pcs_lashes += 1 & gs ''preCSB'', ''eyes''">Lengthen lashes</a></center>'
  582. if pcs_lashes > 0:'<center><a href="exec:pcs_lashes -= 1 & gs ''preCSB'', ''eyes''">Shorten lashes</a></center>'
  583. if pcs_eyesize < 3:'<center><a href="exec:pcs_eyesize += 1 & gs ''preCSB'', ''eyes''">Larger eyes</a></center>'
  584. if pcs_eyesize > 0:'<center><a href="exec:pcs_eyesize -= 1 & gs ''preCSB'', ''eyes''">Smaller eyes</a></center>'
  585. if glass = 0 and glass < 2:'<center><a href="exec:glass = 2 & gs ''preCSB'', ''eyes''">Wear glasses</a></center>'
  586. if glass > 0 and glass <= 2:'<center><a href="exec:glass = 0 & gs ''preCSB'', ''eyes''">Remove glasses</a></center>'
  587. act'<center><b>Done</b></center>': gt 'preCSB', 'intro_6_looks'
  588. end
  589. if $ARGS[0] = 'eye color':
  590. pcs_eyecol += 1
  591. if pcs_eyecol > 3: pcs_eyecol = 0
  592. end
  593. --- preCSB ---------------------------------