begin 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286
  1. # begin
  2. gs 'din_pav'
  3. gs 'dinSex2'
  4. gs 'dina'
  5. gs 'din2'
  6. gs 'din_van'
  7. gs 'din_bad'
  8. gs 'Cheatmenu_din'
  9. gs 'obj_din'
  10. gs 'BanSexType'
  11. !{cycle start}
  12. daylastperiod = daystart
  13. temprand = rand(0,3)
  14. if temprand = 0:
  15. Cycle = 0
  16. mesec = rand(1,120)
  17. EggRH = 0
  18. FocH = 0
  19. unfertegg = 0
  20. ferteggage = 0
  21. Ovulate = 0
  22. LutH = 0
  23. daylastperiod -= (96-mesec)/24
  24. elseif temprand = 1:
  25. Cycle = 1
  26. EggRH = rand(1,149)
  27. FocH = EggRH
  28. mesec = 0
  29. unfertegg = 0
  30. ferteggage = 0
  31. Ovulate = 0
  32. LutH = 0
  33. daylastperiod -= 4+(FocH/24)
  34. elseif temprand = 2:
  35. Cycle = 2
  36. unfertegg = 1
  37. ferteggage = rand(0,44)
  38. Ovulate = (rand(24,44) - ferteggage)
  39. if Ovulate <= 0: Ovulate = 1
  40. mesec = 0
  41. EggRH = 0
  42. FocH = 0
  43. LutH = 0
  44. daylastperiod -= 10+(ferteggage/24)
  45. elseif temprand = 3:
  46. Cycle = 3
  47. LutH = rand(0,300)
  48. ferteggage = 36 + LutH
  49. mesec = 0
  50. EggRH = 0
  51. FocH = 0
  52. unfertegg = 0
  53. Ovulate = 0
  54. daylastperiod -= 10+(ferteggage/24)
  55. end
  56. temp[1] = daystart-daylastperiod
  57. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  58. if menoage <= 0:
  59. menoage = rand(40,50)
  60. temprand = rand(0,10)
  61. if temprand = 0:
  62. menoage += rand(0,5)
  63. elseif temprand < 4:
  64. menoage += rand(3,10)
  65. elseif temprand < 9:
  66. menoage += rand(5,12)
  67. else
  68. menoage += rand(7,13)
  69. end
  70. end
  71. '<center><b><font color="maroon">CHOOSE GAME START</font></b></center>'
  72. *nl
  73. '<b>Original Start:</b>'
  74. 'You are Michael Kuznetsov, a fairly average, 35 year old businessman whose life is about to be turned inside out. Features magic and an (incomplete) over-arching plot. Beware of unintelligible translations.'
  75. *nl
  76. '<b>Alternate Start:</b>'
  77. 'You are a 15 or 16 year old small-town girl with another year of school remaining. Name and starting stats are customizable, no magic and no major ''plot'' other than <i>life</i>. Not to say that your classmates and family don''t have their own stories, though!'
  78. *nl
  79. '<b>Cursed schoolgirl Start:</b>'
  80. 'You are a 15 or 16 year old small-town girl with another year of school remaining. Name and starting stats are customizable. Includes magic and the (incomplete) plot from original start, plus all the family and classmate events from the alternate start.'
  81. act '<center><b>Original start</b></center>':
  82. cla
  83. act '<center>Show intro (recommended)</center>':
  84. cla
  85. music_on = 0
  86. showstat 1
  87. showobjs 1
  88. addobj 'Player'
  89. gt 'roomPRE'
  90. end
  91. act '<center>Skip intro (seen it before)</center>':
  92. music_on = 0
  93. gs 'begin1'
  94. gt 'street'
  95. end
  96. end
  97. act '<center><b>Alternate Start</b></center>':
  98. cla
  99. MagikDostup = 1
  100. gt 'alterStart'
  101. end
  102. act '<center><b>Cursed schoolgirl Start</b></center>':
  103. cla
  104. altQS = 1
  105. gt 'alterStart'
  106. end
  107. if $ARGS[0] = 'real_character':
  108. cls
  109. cla
  110. '<center><b><font color = maroon>character selection</font></b></center>'
  111. '<center><img src="images/pic/character_creation.jpeg"></center>'
  112. *nl
  113. 'This game has the ability to create your own character.'
  114. 'To do this, replace the image "<a href="exec:view''avatar.jpg''">avatar</a>" in the root folder of the game with a file of the same name and format JPEG (.jpg). That''s it!'
  115. 'pay attention, this choice is given only once and in the future you will not be able to change it without starting a new game! Also in-game changes to hair color, length ect will not affect the displayed image character, If you decide to use a custom one.'
  116. 'This function is made solely to simplify the life of the user, who wanted to have another look, without suffering from the selection of pictures.'
  117. 'Your selected photo or image on the role of his character - only your personal choice, and is based on your personal preferences. By default, the game uses files from the site avatar wikimedia.org.'
  118. act'<center><b>Start a standard character</b></center>':
  119. cla
  120. cls
  121. gt'begin'
  122. end
  123. act'<center><b>Post your character</b></center>':
  124. cla
  125. cls
  126. player_avatar = 1
  127. glacol = 1
  128. glaraz = 2
  129. hcol = 1
  130. lip = 2
  131. gt'begin','description_real_character'
  132. end
  133. end
  134. $din_birthday_select = {
  135. cls
  136. cla
  137. '<center><b><font color = maroon>character customization</font></b></center>'
  138. '<center><img src="images/pic/character_creation_pic1.jpg"></center>'
  139. 'You can specify your date of birth:'
  140. *nl
  141. if birthday > 0 and birthmonth > 0 and birthmonth < 10:
  142. '<center>Date of your birthday: <B><<birthday>>.0<<birthmonth>></B>(number.month)</center>'
  143. elseif birthday > 0 and birthmonth >= 10:
  144. '<center>Date of your birthday: <B><<birthday>>.<<birthmonth>></B> (number.month)</center>'
  145. end
  146. '<center><a href="exec:birthday += 1 & dynamic $din_birthday_select">+1 Day</a></center>'
  147. '<center><a href="exec:birthday -= 1 & dynamic $din_birthday_select">-1 Day</a></center>'
  148. '<center><a href="exec:birthmonth = 1 & dynamic $din_birthday_select">January</a></center>'
  149. '<center><a href="exec:birthmonth = 2 & dynamic $din_birthday_select">February</a></center>'
  150. '<center><a href="exec:birthmonth = 3 & dynamic $din_birthday_select">March</a></center>'
  151. '<center><a href="exec:birthmonth = 4 & dynamic $din_birthday_select">April</a></center>'
  152. '<center><a href="exec:birthmonth = 5 & dynamic $din_birthday_select">May</a></center>'
  153. '<center><a href="exec:birthmonth = 6 & dynamic $din_birthday_select">June</a></center>'
  154. '<center><a href="exec:birthmonth = 7 & dynamic $din_birthday_select">July</a></center>'
  155. '<center><a href="exec:birthmonth = 8 & dynamic $din_birthday_select">Augustus</a></center>'
  156. '<center><a href="exec:birthmonth = 9 & dynamic $din_birthday_select">September</a></center>'
  157. '<center><a href="exec:birthmonth = 10 & dynamic $din_birthday_select">October</a></center>'
  158. '<center><a href="exec:birthmonth = 11 & dynamic $din_birthday_select">November</a></center>'
  159. '<center><a href="exec:birthmonth = 12 & dynamic $din_birthday_select">December</a></center>'
  160. act'<center><b>Ready</b></center>':gt'begin','description_real_character'
  161. }
  162. $din_hcol = {
  163. hcol += 1
  164. if hcol > 3: hcol = 0
  165. }
  166. $avatar_hair = {
  167. avatar_hair = 1
  168. $av_hair = input("Enter a description of your hair:")
  169. }
  170. $din_hair_select = {
  171. cls
  172. cla
  173. '<center><b><font color = maroon>character customization</font></b></center>'
  174. '<center><img src="images/pic/character_creation_pic1.jpg"></center>'
  175. *nl
  176. if hcol = 0 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & dynamic $din_hair_select">straight</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">black</a> hair.'& $hair2 = 'black hair' & $hair3 = 'black hair'
  177. if hcol = 1 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & dynamic $din_hair_select">straight</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">Brown</a> hair.'& $hair2 = 'brown hair' & $hair3 = 'brown hair'
  178. if hcol = 2 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & dynamic $din_hair_select">straight</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">red</a> hair.'& $hair2 = 'Red hair' & $hair3 = 'red hair'
  179. if hcol = 3 and curly <= 0:$hair = 'You have <a href="exec:curly = 1 & dynamic $din_hair_select">straight</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">blonde</a> hair.'& $hair2 = 'blond hair' & $hair3 = 'blond hair'
  180. if hcol = 0 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & dynamic $din_hair_select">curly</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">black</a> hair.'& $hair2 = 'curls' & $hair3 = 'black curls'
  181. if hcol = 1 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & dynamic $din_hair_select">curly</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">Brown</a> hair.'& $hair2 = 'curls' & $hair3 = 'blond curls'
  182. if hcol = 2 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & dynamic $din_hair_select">curly</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">red</a> hair.'& $hair2 = 'curls' & $hair3 = 'red hair'
  183. if hcol = 3 and curly > 0:$hair = 'You have <a href="exec:curly = 0 & dynamic $din_hair_select">curly</a>, <a href="exec:dynamic $din_hcol & dynamic $din_hair_select">blonde</a> hair.' &$hair2 = 'curls' & $hair3 = 'blond curls'
  184. 'You can customize the description of your hair according to your <a href="exec:view''avatar.jpg''">image</a>:'
  185. if avatar_hair = 1:
  186. 'pay attention, that this choice is given only once and in the future you will not be able to change it, without starting a new game!'
  187. '<center>You have <i><<$av_hair>>.</i> <a href="exec:avatar_hair = 0 & dynamic $din_hair_select">Return game</a></center>'
  188. else
  189. '<center><i><<$hair>></i> <a href="exec:dynamic $avatar_hair & dynamic $din_hair_select">Manually enter description</a></center>'
  190. end
  191. act'<center><b>Ready</b></center>':gt'begin','description_real_character'
  192. }
  193. $din_glacol_select = {
  194. glacol += 1
  195. if glacol > 3: glacol = 0
  196. }
  197. $din_glaza_select = {
  198. cls
  199. cla
  200. '<center><b><font color = maroon>character customization</font></b></center>'
  201. '<center><img src="images/pic/character_creation_pic1.jpg"></center>'
  202. *nl
  203. if glacol = 0:$glacol = 'brown' & $glacol2 = 'brown'
  204. if glacol = 1:$glacol = 'gray' & $glacol2 = 'gray'
  205. if glacol = 2:$glacol = 'green' & $glacol2 = 'green'
  206. if glacol = 3:$glacol = 'blue' & $glacol2 = 'blue'
  207. if glass <= 0:$glass = '' & glassvnesh = 0
  208. if glass = 1:$glass = ' You wear glasses.' & glassvnesh = 10
  209. if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 5
  210. if resnic > 2:resnic = 2
  211. if resnic = 0:$resnic = 'with short lashes'
  212. if resnic = 1:$resnic = 'normal long eyelashes'
  213. if resnic = 2:$resnic = 'with long eyelashes'
  214. if glaraz > 3:glaraz = 3
  215. if glaraz = 0:$glaza = 'You have little <a href="exec:dynamic $din_glacol_select & dynamic $din_glaza_select"><<$glacol>></a> eyes, <<$resnic>>.<<$glass>>' & $glaza2 = '<<$glacol>> eyes' & $glaza3 = '<<$glacol2>> eyes'
  216. if glaraz = 1:$glaza = 'You expressive <a href="exec:dynamic $din_glacol_select & dynamic $din_glaza_select"><<$glacol>></a> eyes, <<$resnic>>.<<$glass>>' & $glaza2 = 'expressive <<$glacol>> eyes' & $glaza3 = 'expressive <<$glacol2>> eyes'
  217. if glaraz = 2:$glaza = 'You have larger <a href="exec:dynamic $din_glacol_select & dynamic $din_glaza_select"><<$glacol>></a> eyes, <<$resnic>>.<<$glass>>' & $glaza2 = 'big <<$glacol>> eyes' & $glaza3 = 'high <<$glacol2>> eyes'
  218. if glaraz = 3:$glaza = 'You have huge <a href="exec:dynamic $din_glacol_select & dynamic $din_glaza_select"><<$glacol>></a> eyes, <<$resnic>>.<<$glass>>' & $glaza2 = 'great <<$glacol>> eyes' & $glaza3 = 'great <<$glacol2>> eyes'
  219. 'You can change your eyes and eyelashes according to your <a href="exec:view''avatar.jpg''">image</a>:'
  220. '<center><i><<$glaza>></i></center>'
  221. if resnic < 2:'<center><a href="exec:resnic += 1 & dynamic $din_glaza_select">Enlarge lashes</a></center>'
  222. if resnic > 0:'<center><a href="exec:resnic -= 1 & dynamic $din_glaza_select">Reduce lashes</a></center>'
  223. if glaraz < 3:'<center><a href="exec:glaraz += 1 & dynamic $din_glaza_select">Increase the size of the eye</a></center>'
  224. if glaraz > 0:'<center><a href="exec:glaraz -= 1 & dynamic $din_glaza_select">Reduce the size of the eye</a></center>'
  225. if glass = 0 and glass < 2:'<center><a href="exec:glass = 2 & dynamic $din_glaza_select"> wear glasses</a></center>'
  226. if glass > 0 and glass <= 2:'<center><a href="exec:glass = 0 & dynamic $din_glaza_select">remove glasses</a></center>'
  227. act'<center><b>Ready</b></center>':gt'begin','description_real_character'
  228. }
  229. $din_lip_select = {
  230. cls
  231. cla
  232. '<center><b><font color = maroon>character customization</font></b></center>'
  233. '<center><img src="images/pic/character_creation_pic1.jpg"></center>'
  234. *nl
  235. if lip = 0:$lip = 'you have thin <<$lipbalmstat>> lips.' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips'
  236. if lip = 1:$lip = 'You have normal <<$lipbalmstat>> lips.' & $liptalk = 'soft lips' & $liptalk2 = 'delicate lips' & $liptalk3 = 'tender lips'
  237. if lip = 2:$lip = 'You have plump <<$lipbalmstat>> lips.' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips'
  238. if lip = 3:$lip = 'You have large, <<$lipbalmstat>> full lips.' & $liptalk = 'full lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'full lips'
  239. if lip = 4:$lip = 'You have thick and huge <<$lipbalmstat>> lips.' & $liptalk = 'thick lips' & $liptalk2 = 'thick lips' & $liptalk3 = 'thick lips'
  240. 'You can adjust the size of your lips according to your <a href="exec:view''avatar.jpg''">image</a>:'
  241. '<center><i><<$lip>></i></center>'
  242. if lip < 4:'<center><a href="exec:lip += 1 & dynamic $din_lip_select">Enlarge lips</a></center>'
  243. if lip > 0:'<center><a href="exec:lip -= 1 & dynamic $din_lip_select">Zoom lips</a></center>'
  244. act'<center><b>Ready</b></center>':gt'begin','description_real_character'
  245. }
  246. if $ARGS[0] = 'description_real_character':
  247. dynamic $din_hair_select
  248. dynamic $din_lip_select
  249. dynamic $din_glaza_select
  250. cls
  251. cla
  252. '<center><b><font color = maroon>character customization</font></b></center>'
  253. '<center><img src="images/pic/character_creation_pic1.jpg"></center>'
  254. *nl
  255. 'Now let`s take a little time to adjust the physical description of your image <a href="exec:view''avatar.jpg''">character</a>:'
  256. *nl
  257. '<center>Your name <B><i><<$name>> <<$surname>></B></i>.'
  258. if birthday > 0 and birthmonth > 0 and birthmonth < 10:
  259. '<center><a href="exec:dynamic $din_birthday_select">Date of your birthday</a></center>'
  260. elseif birthday > 0 and birthmonth >= 10:
  261. '<center><a href="exec:dynamic $din_birthday_select">Date of your birthday</a></center>'
  262. end
  263. '<center><a href="exec:dynamic $din_hair_select">hair Description</a></center>'
  264. '<center><a href="exec:dynamic $din_lip_select">Description lip</a></center>'
  265. '<center><a href="exec:dynamic $din_glaza_select">Description eye</a></center>'
  266. act'<center><b>Ready</b></center>':gt'begin'
  267. end
  268. --- begin ---------------------------------