1
0

begin 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283
  1. # begin
  2. if $ARGS[0] = 'start':
  3. '<center><b><font color="maroon">CHOOSE GAME START</font></b></center>'
  4. *nl
  5. '<b>Transgendered Start:</b>'
  6. 'You are Michael Kuznetsov, a fairly average, 35 year old businessman who finds an artefact that changes everything about him and his life. Features magic.'
  7. *nl
  8. '<b>School girl Start:</b>'
  9. 'You are a school girl in the most lustful town in Russia. Will you study hard and keep your purity for that special someone or become a sex addicted whore? Or anything in between, the possibilities are endless. No magic.'
  10. *nl
  11. '<b>Cursed schoolgirl Start:</b>'
  12. 'Marvel as we recklessly squish both of the above into one start. You are a school girl who finds the amulet and not much changes, except the magic, actually that''s quite a big change.'
  13. act '<center><b>Transgendered start</b></center>':
  14. cla
  15. act '<center>Show intro (recommended)</center>':
  16. gt 'preSYS', 'TGStart'
  17. end
  18. act '<center>Skip intro (seen it before)</center>':
  19. tgs_skipinto = 1
  20. gt 'preSYS', 'TGStart'
  21. end
  22. end
  23. act '<center><b>School girl Start</b></center>':
  24. cla
  25. MagikDostup = 1
  26. gt 'preSYS', 'SGStart'
  27. end
  28. act '<center><b>Cursed Schoolgirl Start</b></center>':
  29. cla
  30. altQS = 1
  31. gt 'preSYS', 'SGStart'
  32. end
  33. end
  34. if $ARGS[0] = 'real_character':
  35. cls
  36. '<center><b><font color = maroon>CHARACTER SELECTION</font></b></center>'
  37. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation.jpeg"></center>'
  38. *nl
  39. 'This game offers you the ability to create your own character.'
  40. 'To do this, replace the image "<a href="exec:view''images/avatar.jpg''">avatar</a>" in the "images" folder of the game with a file of the same name and format JPEG (.jpg). That''s it!'
  41. 'Please note, this choice can only be changed in the cheat menu and in-game changes to hair color, length etc. will not affect the displayed image if you are using a custom one.'
  42. 'This function is made solely to simplify things for those that want to use a custom image without having to sort through hundreds of pictures.'
  43. 'Your selected image is your own personal choice, and is based on your personal preferences. By default, the game uses an avatar image from the site wikimedia.org.'
  44. *NL 'If you are playing with Quest player for Android, click '
  45. if Enable_Android = 1:
  46. *P '<a href="exec:Enable_Android = 0 & gt ''begin'',''real_character''">Here</a> (Current: <B>Yes</B>)'
  47. else
  48. *P '<a href="exec:Enable_Android = 1 & gt ''begin'',''real_character''">Here</a> (Current: <B>No</B>)'
  49. end
  50. act'<center><b>Start a standard character</b></center>':
  51. cls
  52. gt 'begin', 'start'
  53. end
  54. act'<center><b>Use the avatar system</b></center>':
  55. cls
  56. player_avatar = 1
  57. pcs_eyecol = 1
  58. pcs_eyesize = 2
  59. pcs_haircol = 1
  60. pcs_lip = 2
  61. gt 'begin', 'description_real_character'
  62. end
  63. end
  64. if $ARGS[0] = 'description_real_character':
  65. gs 'begin', 'hair'
  66. gs 'begin', 'lip'
  67. gs 'begin', 'eyes'
  68. cls
  69. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  70. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  71. *nl
  72. '<center>On this screen, you may adjust your character''s description to match your <a href="exec:view''images/avatar.jpg''">avatar</a>. Please note, at present, hair color and glasses choice may be overridden by the personality choice you make during the game intro.</center>'
  73. *nl
  74. '<center>Customize your:</center>'
  75. !'<center>Your name is <B><i><<$pcs_nickname>> <<$pcs_lastname>></B></i>. (You may change this during the intro, and also at the passport office in-game.)'
  76. '<center><a href="exec:gs ''begin'', ''birthday''">Birthday</a></center>'
  77. '<center><a href="exec:gs ''begin'', ''hair''">Hair</a></center>'
  78. '<center><a href="exec:gs ''begin'', ''lip''">Lips</a></center>'
  79. '<center><a href="exec:gs ''begin'', ''eyes''">Eyes</a></center>'
  80. act'<center><b>Done</b></center>': gt 'begin', 'start'
  81. end
  82. if $ARGS[0] = 'hair':
  83. cls
  84. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  85. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  86. *nl
  87. if pcs_hairlng <= 1:
  88. $hair = 'You have <a href="exec:pcs_hairlng = 31 & gs ''begin'', ''hair''">very short</a>,'
  89. elseif pcs_hairlng <= 31:
  90. $hair = 'You have <a href="exec:pcs_hairlng = 81 & gs ''begin'', ''hair''">short</a>,'
  91. elseif pcs_hairlng <= 81:
  92. $hair = 'You have <a href="exec:pcs_hairlng = 161 & gs ''begin'', ''hair''">chin length</a>,'
  93. elseif pcs_hairlng <= 161:
  94. $hair = 'You have <a href="exec:pcs_hairlng = 261 & gs ''begin'', ''hair''">shoulder length</a>,'
  95. elseif pcs_hairlng <= 261:
  96. $hair = 'You have <a href="exec:pcs_hairlng = 401 & gs ''begin'', ''hair''">breast length</a>,'
  97. elseif pcs_hairlng <= 401:
  98. $hair = 'You have <a href="exec:pcs_hairlng = 401 & gs ''begin'', ''hair''">back length</a>,'
  99. elseif pcs_hairlng <= 601:
  100. $hair = 'You have <a href="exec:pcs_hairlng = 601 & gs ''begin'', ''hair''">hip length</a>,'
  101. elseif pcs_hairlng <= 801:
  102. $hair = 'You have <a href="exec:pcs_hairlng = 801 & gs ''begin'', ''hair''">ass length</a>,'
  103. else
  104. $hair = 'You have <a href="exec:pcs_hairlng = 1 & gs ''begin'', ''hair''">extremely long</a>,'
  105. end
  106. if pcs_haircol = 0 and pcs_haircurl <= 0:$hair += ' <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'
  107. if pcs_haircol = 1 and pcs_haircurl <= 0:$hair += ' <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'
  108. if pcs_haircol = 2 and pcs_haircurl <= 0:$hair += ' <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'
  109. if pcs_haircol = 3 and pcs_haircurl <= 0:$hair += ' <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'
  110. if pcs_haircol = 0 and pcs_haircurl > 0:$hair += ' <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'
  111. if pcs_haircol = 1 and pcs_haircurl > 0:$hair += ' <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 = 'brown curls'
  112. if pcs_haircol = 2 and pcs_haircurl > 0:$hair += ' <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'
  113. if pcs_haircol = 3 and pcs_haircurl > 0:$hair += ' <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'
  114. '<center>Adjust your hair to match your <a href="exec:view''images/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>'
  115. *nl
  116. nathcol = pcs_haircol
  117. if avatar_hair = 1:
  118. '<center>Please note that this choice is given only once and you will not be able to change it without starting a new game!</center>'
  119. '<center>You have <i><<$av_hair>>.</i> <a href="exec:avatar_hair = 0 & gs ''begin'', ''hair''">Revert to default</a>.</center>'
  120. else
  121. '<center><i><<$hair>></i> You may also <a href="exec:gs ''begin'', ''hair_input'' & gs ''begin'', ''hair''">manually enter a description</a></center>.'
  122. end
  123. act'<center><b>Done</b></center>': gt'begin','description_real_character'
  124. end
  125. if $ARGS[0] = 'pcs_haircol':
  126. pcs_haircol += 1
  127. if pcs_haircol > 3: pcs_haircol = 0
  128. end
  129. if $ARGS[0] = 'hair_input':
  130. avatar_hair = 1
  131. $av_hair = input("Enter a description of your hair:")
  132. end
  133. if $ARGS[0] = 'lip':
  134. cls
  135. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  136. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  137. *nl
  138. if pcs_lip = 0:$pcs_lip = 'you have thin<<$pcs_lipbalm>> lips.' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips'
  139. if pcs_lip = 1:$pcs_lip = 'You have normal<<$pcs_lipbalm>> lips.' & $liptalk = 'soft lips' & $liptalk2 = 'delicate lips' & $liptalk3 = 'tender lips'
  140. if pcs_lip = 2:$pcs_lip = 'You have plump<<$pcs_lipbalm>> lips.' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips'
  141. if pcs_lip = 3:$pcs_lip = 'You have large,<<$pcs_lipbalm>> full lips.' & $liptalk = 'full lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'full lips'
  142. if pcs_lip = 4:$pcs_lip = 'You have huge, thick<<$pcs_lipbalm>> lips.' & $liptalk = 'thick lips' & $liptalk2 = 'thick lips' & $liptalk3 = 'thick lips'
  143. '<center>Adjust the size of your lips to match your <a href="exec:view''images/avatar.jpg''">image</a>:</center>'
  144. *nl
  145. '<center><i><<$pcs_lip>></i></center>'
  146. *nl
  147. if pcs_lip < 4:'<center><a href="exec:pcs_lip += 1 & gs ''begin'', ''lip''">Bigger lips</a></center>'
  148. if pcs_lip > 0:'<center><a href="exec:pcs_lip -= 1 & gs ''begin'', ''lip''">Smaller lips</a></center>'
  149. act'<center><b>Done</b></center>': gt'begin','description_real_character'
  150. end
  151. if $ARGS[0] = 'eyes':
  152. cls
  153. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  154. if player_avatar = 1:
  155. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  156. else
  157. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  158. end
  159. *nl
  160. if pcs_eyecol = 0:$pcs_eyecol = 'brown' & $glacol2 = 'brown'
  161. if pcs_eyecol = 1:$pcs_eyecol = 'gray' & $glacol2 = 'gray'
  162. if pcs_eyecol = 2:$pcs_eyecol = 'green' & $glacol2 = 'green'
  163. if pcs_eyecol = 3:$pcs_eyecol = 'blue' & $glacol2 = 'blue'
  164. if glass <= 0:$glass = '' & glassvnesh = 0
  165. if glass = 1:$glass = ' You wear glasses.' & glassvnesh = 10
  166. if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 5
  167. if pcs_lashes > 2:pcs_lashes = 2
  168. if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
  169. if pcs_lashes = 1:$pcs_lashes = 'with normal eyelashes'
  170. if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
  171. if pcs_eyesize > 3:pcs_eyesize = 3
  172. if pcs_eyesize = 0:$glaza = 'You have small <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = '<<$pcs_eyecol>> eyes' & $glaza3 = '<<$glacol2>> eyes'
  173. 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'
  174. 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'
  175. 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'
  176. '<center>Adjust your eyes and eyelashes to match your <a href="exec:view''images/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>'
  177. *nl
  178. '<center><i><<$glaza>></i></center>'
  179. *nl
  180. if pcs_lashes < 2:'<center><a href="exec:pcs_lashes += 1 & gs ''begin'', ''eyes''">Lengthen lashes</a></center>'
  181. if pcs_lashes > 0:'<center><a href="exec:pcs_lashes -= 1 & gs ''begin'', ''eyes''">Shorten lashes</a></center>'
  182. if pcs_eyesize < 3:'<center><a href="exec:pcs_eyesize += 1 & gs ''begin'', ''eyes''">Larger eyes</a></center>'
  183. if pcs_eyesize > 0:'<center><a href="exec:pcs_eyesize -= 1 & gs ''begin'', ''eyes''">Smaller eyes</a></center>'
  184. if glass = 0 and glass < 2:'<center><a href="exec:glass = 2 & gs ''begin'', ''eyes''">Wear glasses</a></center>'
  185. if glass > 0 and glass <= 2:'<center><a href="exec:glass = 0 & gs ''begin'', ''eyes''">Remove glasses</a></center>'
  186. if player_avatar = 1:
  187. act'<center><b>Done</b></center>': gt'begin','description_real_character'
  188. else
  189. act'<center><b>Done</b></center>': gt 'preCUST', 'SGStart'
  190. end
  191. end
  192. if $ARGS[0] = 'eye color':
  193. pcs_eyecol += 1
  194. if pcs_eyecol > 3: pcs_eyecol = 0
  195. end
  196. if $ARGS[0] = 'birthday':
  197. cls
  198. '<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
  199. if player_avatar = 1:
  200. '<center><img <<$set_imgh>> src="images/pre/shared/character_creation_pic1.jpg"></center>'
  201. else
  202. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  203. end
  204. '<center>Choose your date of birth:</center>'
  205. *nl
  206. if birthyear = 0: birthyear = 1998
  207. if birthmonth = 0: birthmonth = 4
  208. if birthday = 0: birthday = 1
  209. if birthmonth = 2:
  210. if ((birthyear mod 4 = 0) and (birthyear mod 100 ! 0)) or (birthyear mod 400 = 0):
  211. monthdays = 29
  212. else
  213. monthdays = 28
  214. end
  215. elseif birthmonth = 4 or birthmonth = 6 or birthmonth = 9 or birthmonth = 11:
  216. monthdays = 30
  217. else
  218. monthdays = 31
  219. end
  220. if birthmonth > 12: birthmonth = 12
  221. if birthmonth < 1: birthmonth = 1
  222. if birthday < 1: birthday = 1
  223. if birthday > monthdays: birthday = monthdays
  224. if birthday < 10 and birthmonth < 10:
  225. '<center>Your birthday: <B>0<<birthmonth>>/0<<birthday>></B> (MM/DD)</center>'
  226. elseif birthday < 10 and birthmonth >= 10:
  227. '<center>Your birthday: <B><<birthmonth>>/0<<birthday>></B> (MM/DD)</center>'
  228. elseif birthday >= 10 and birthmonth < 10:
  229. '<center>Your birthday: <B>0<<birthmonth>>/<<birthday>></B> (MM/DD)</center>'
  230. elseif birthday >= 10 and birthmonth >= 10:
  231. '<center>Your birthday: <B><<birthmonth>>/<<birthday>></B> (MM/DD)</center>'
  232. end
  233. *nl
  234. '<center><a href="exec:birthday += 5 & gs ''begin'', ''birthday''">+5 Days</a></center>'
  235. '<center><a href="exec:birthday += 1 & gs ''begin'', ''birthday''">+1 Day</a></center>'
  236. '<center><a href="exec:birthday -= 1 & gs ''begin'', ''birthday''">-1 Day</a></center>'
  237. '<center><a href="exec:birthday -= 5 & gs ''begin'', ''birthday''">-5 Days</a></center>'
  238. '<center><a href="exec:birthmonth = 1 & gs ''begin'', ''birthday''">January</a></center>'
  239. '<center><a href="exec:birthmonth = 2 & gs ''begin'', ''birthday''">February</a></center>'
  240. '<center><a href="exec:birthmonth = 3 & gs ''begin'', ''birthday''">March</a></center>'
  241. '<center><a href="exec:birthmonth = 4 & gs ''begin'', ''birthday''">April</a></center>'
  242. '<center><a href="exec:birthmonth = 5 & gs ''begin'', ''birthday''">May</a></center>'
  243. '<center><a href="exec:birthmonth = 6 & gs ''begin'', ''birthday''">June</a></center>'
  244. '<center><a href="exec:birthmonth = 7 & gs ''begin'', ''birthday''">July</a></center>'
  245. '<center><a href="exec:birthmonth = 8 & gs ''begin'', ''birthday''">August</a></center>'
  246. '<center><a href="exec:birthmonth = 9 & gs ''begin'', ''birthday''">September</a></center>'
  247. '<center><a href="exec:birthmonth = 10 & gs ''begin'', ''birthday''">October</a></center>'
  248. '<center><a href="exec:birthmonth = 11 & gs ''begin'', ''birthday''">November</a></center>'
  249. '<center><a href="exec:birthmonth = 12 & gs ''begin'', ''birthday''">December</a></center>'
  250. if player_avatar = 1:
  251. act'<center><b>Done</b></center>': gt 'begin', 'description_real_character'
  252. else
  253. act'<center><b>Done</b></center>': gt 'preSYS', 'SGStart2'
  254. end
  255. end
  256. --- begin ---------------------------------