1
0

portmirror 8.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327
  1. # portmirror
  2. if $ARGS[0] = 'start':
  3. cls
  4. gs 'stat'
  5. *pl '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  6. *nl
  7. if daystart < 10 and StoryLine = 0:'In the mirror, you see a strange woman''s face looking back at you that exactly copies all your actions. You can hardly accept the idea that this is now you.'
  8. if daystart >= 10 and daystart < 30 and StoryLine = 0:'In the mirror you see a woman''s face to which you have become accustomed to. But sometimes, you get the feel that this is not your face.'
  9. *pl '<<$hair>>'
  10. *pl '<<$pcs_makeup>>. <<$lip>>'
  11. *pl '<<$skin>>'
  12. *pl '<<$pcs_apprnc>>'
  13. if curly > 0 and defcurly = 0: '<br>Your curly hair will last for another <<curly>> days.'
  14. if straight > 0 and defcurly = 1: '<br>Your straightened hair will last for another <<straight>> days.'
  15. if hbraids > 0: '<br>Your braided hair will last for another <<hbraids>> days.'
  16. if pcs_haircol ! nathcol:
  17. if dyefade > 0 and dyefade < 7: '<br>Your hair dye is beginning to fade and your roots are showing.'
  18. if dyefade = 0: '<br>Your hair dye has faded and looks terrible.'
  19. end
  20. $makeUpString = '<br>'
  21. if kosmetica > 0: $makeUpString += 'Cosmetics: <<kosmetica>>'
  22. if kosmetica = 0: $makeUpString += 'You have no makeup'
  23. if lipbalm > 0: $makeUpString += ' | Lip Balm: <<lipbalm>>'
  24. if lipbalm = 0: $makeUpString += ' | You have no lip balm left'
  25. *pl $makeUpString
  26. *nl
  27. $makeupLight = 'You subtly apply some neutral tones, with a light application of makeup to bring out your natural beauty.'
  28. $makeupNatural = 'You apply some mildly vibrant tones and colors of makeup to cover your minor imperfections and enhance your best features.'
  29. $makeupHeavy = 'You apply some deeper, richer shades of makeup, thick enough to cover most imperfections, while drawing attention to your eyes and lips.'
  30. $brushHair = 'You brush your hair.'
  31. $applyLipbalm = 'You apply some moisturizing balm on your lips.'
  32. ! WD: Cheat Unused ~ 'AutoHapri'
  33. if pcs_hairbsh = 0 and AutoHapri = 1:
  34. minut += 3
  35. pcs_hairbsh = 1
  36. *pl $brushHair
  37. end
  38. !! WD: Cheat Unused ~ 'AutoMakeup'
  39. if pcs_makeup = 1 and kosmetica > 0 and AutoMakeup = 1:
  40. pcs_makeup = AutoMakeupType
  41. makupskl_exp += rand(1,3)
  42. if kosmetica < 3 and pcs_makeup = 4:pcs_makeup = 3
  43. if kosmetica < 2 and pcs_makeup = 3:pcs_makeup = 2
  44. if kosmetica < 1 and pcs_makeup ! 1:
  45. pcs_makeup = 1
  46. 'You have no make-up left.'
  47. else
  48. if pcs_makeup = 2:
  49. *pl $makeupLight
  50. minut -= 3
  51. kosmetica -= 1
  52. end
  53. if pcs_makeup = 3:
  54. *pl $makeupNatural
  55. minut -= 5
  56. kosmetica -= 2
  57. end
  58. if pcs_makeup = 4:
  59. *pl $makeupHeavy
  60. minut -= 10
  61. vidageday -= 1
  62. kosmetica -= 3
  63. end
  64. end
  65. end
  66. ! WD: Cheat Unused ~ 'AutoLipBalm'
  67. if lipbalm > 0 and pcs_lipbalm <= 0 and AutoLipBalm = 1:
  68. minut -= 10
  69. lipbalm -= 1
  70. lipkoef += rand(0, 1)
  71. if lipkoef > 50:
  72. lipkoef = 0
  73. pcs_lip += 1
  74. end
  75. pcs_lipbalm += 8
  76. *pl $applyLipbalm
  77. end
  78. if pcs_hairbsh = 0:
  79. act 'Brush your hair': gt 'portmirror', 'brush'
  80. end
  81. !! Added the makeup setting.
  82. if pcs_makeup = 1 and kosmetica >= makeupSetting:
  83. act 'Apply makeup':
  84. cla
  85. *clr
  86. '<center><img <<$set_imgh>> src="images/pc/mop.jpg"></center>'
  87. *nl
  88. *pl 'You consider for a moment which look you want to go for.'
  89. *nl
  90. if makeupSetting = 1:
  91. cla
  92. 'Without thinking, you instantly apply a sutle amount of makeup to your face.'
  93. minut += 3
  94. makupskl_exp += rand(1,3)
  95. kosmetica -= 1
  96. pcs_makeup = 2
  97. *pl $makeupLight
  98. act 'View results':gt 'portmirror', 'start'
  99. elseif makeupSetting = 2:
  100. cla
  101. 'Without thinking, you instantly apply a moderate amount of makeup to your face.'
  102. minut += 5
  103. makupskl_exp += rand(1,3)
  104. kosmetica -= 2
  105. pcs_makeup = 3
  106. *pl $makeupNatural
  107. act 'View results':gt 'portmirror', 'start'
  108. elseif makeupSetting = 3:
  109. cla
  110. 'Without thinking, you instantly apply a heavy amount of makeup to your face.'
  111. minut += 10
  112. makupskl_exp += rand(1,3)
  113. kosmetica -= 3
  114. vidageday -= 1
  115. pcs_makeup = 4
  116. *pl $makeupHeavy
  117. act 'View results':gt 'portmirror', 'start'
  118. else
  119. if kosmetica > 0:
  120. act 'Light make-up':
  121. cla
  122. minut += 3
  123. makupskl_exp += rand(1,3)
  124. kosmetica -= 1
  125. pcs_makeup = 2
  126. *pl $makeupLight
  127. act 'View results':gt 'portmirror', 'start'
  128. end
  129. end
  130. if kosmetica > 1:
  131. act 'Natural makeup':
  132. cla
  133. minut += 5
  134. makupskl_exp += rand(1,3)
  135. kosmetica -= 2
  136. pcs_makeup = 3
  137. *pl $makeupNatural
  138. act 'View results':gt 'portmirror', 'start'
  139. end
  140. end
  141. if kosmetica > 2:
  142. act 'Heavy makeup':
  143. cla
  144. minut += 10
  145. makupskl_exp += rand(1,3)
  146. kosmetica -= 3
  147. vidageday -= 1
  148. pcs_makeup = 4
  149. *pl $makeupHeavy
  150. act 'View results':gt 'portmirror', 'start'
  151. end
  152. end
  153. act 'No makeup':
  154. cla
  155. minut += 2
  156. 'After looking in the mirror, you decide that you look fine and don''t need to put on any makeup, especially since you''ll likely be washing it off in a few hours.'
  157. act 'View results':gt 'portmirror', 'start'
  158. end
  159. end
  160. end
  161. elseif kosmetica < makeupSetting:
  162. 'You don''t have enough makeup to apply your chosen option.'
  163. end
  164. if lipbalm > 0 and pcs_lipbalm <= 0:
  165. act 'Apply lip balm':
  166. cla
  167. minut += 10
  168. lipbalm -= 1
  169. lipkoef += rand(0, 1)
  170. if lipkoef > 50:
  171. lipkoef = 0
  172. pcs_lip += 1
  173. end
  174. pcs_lipbalm += 8
  175. *pl $applyLipbalm
  176. act 'View results':gt 'portmirror', 'start'
  177. end
  178. end
  179. if pcs_hairbsh = 0 or (pcs_makeup > 0 and kosmetica > 0) or (lipbalm > 0 and pcs_lipbalm <= 0):
  180. act 'Do the works': gt 'portmirror', 'works'
  181. end
  182. !!New makeup setting
  183. !!This imforms the person what makeup they have pre selected
  184. !! 0 - none, 1 - light, 2 - moderate, 3 - heavy
  185. 'Select level for auto make-up: <a href="exec:makeupSetting = 0 & gt ''portmirror'', ''start''">none</a>, <a href="exec:makeupSetting = 1 & gt ''portmirror'', ''start''">light</a>, <a href="exec:makeupSetting = 2 & gt ''portmirror'', ''start''">vibrant</a>, <a href="exec:makeupSetting = 3 & gt ''portmirror'', ''start''">thick</a>.'
  186. if makeupSetting = 0:
  187. 'Currently you have no make-up set.'
  188. elseif makeupSetting = 1:
  189. 'Currently the level you have set is for light make-up.'
  190. elseif makeupSetting = 2:
  191. 'Currently the level you have set is for vibrant make-up.'
  192. elseif makeupSetting = 3:
  193. 'Currently the level you have set is for thick make-up.'
  194. end
  195. act 'Move away from the mirror':gt '<<$gt1>>', '<<$gt2>>'
  196. end
  197. if $ARGS[0] = 'brush':
  198. cla
  199. minut += 3
  200. pcs_hairbsh = 1
  201. *pl $brushHair
  202. act 'View results':gt 'portmirror', 'start'
  203. end
  204. if $ARGS[0] = 'works':
  205. cla
  206. if kosmetica <= 0:
  207. 'You don''t have any makeup.'
  208. elseif pcs_makeup = 1 and kosmetica >= makeupSetting:
  209. *clr
  210. '<center><img <<$set_imgh>> src="images/pc/mop.jpg"></center>'
  211. *nl
  212. *pl 'You consider for a moment which look you want to go for.'
  213. *nl
  214. if makeupSetting = 1:
  215. 'Without thinking, you instantly apply a sutle amount of makeup to your face.'
  216. minut += 3
  217. makupskl_exp += rand(1,3)
  218. kosmetica -= 1
  219. pcs_makeup = 2
  220. *pl $makeupLight
  221. elseif makeupSetting = 2:
  222. 'Without thinking, you instantly apply a moderate amount of makeup to your face.'
  223. minut += 5
  224. makupskl_exp += rand(1,3)
  225. kosmetica -= 2
  226. pcs_makeup = 3
  227. *pl $makeupNatural
  228. elseif makeupSetting = 3:
  229. 'Without thinking, you instantly apply a heavy amount of makeup to your face.'
  230. minut += 10
  231. makupskl_exp += rand(1,3)
  232. kosmetica -= 3
  233. vidageday -= 1
  234. pcs_makeup = 4
  235. *pl $makeupHeavy
  236. else
  237. if kosmetica > 0:
  238. act 'Light make-up':
  239. cla
  240. minut += 3
  241. makupskl_exp += rand(1,3)
  242. kosmetica -= 1
  243. pcs_makeup = 2
  244. *pl $makeupLight
  245. act 'View results':gt 'portmirror', 'start'
  246. end
  247. end
  248. if kosmetica > 1:
  249. act 'Natural makeup':
  250. cla
  251. minut += 5
  252. makupskl_exp += rand(1,3)
  253. kosmetica -= 2
  254. pcs_makeup = 3
  255. *pl $makeupNatural
  256. act 'View results':gt 'portmirror', 'start'
  257. end
  258. end
  259. if kosmetica > 2:
  260. act 'Heavy makeup':
  261. cla
  262. minut += 10
  263. makupskl_exp += rand(1,3)
  264. kosmetica -= 3
  265. vidageday -= 1
  266. pcs_makeup = 4
  267. *pl $makeupHeavy
  268. act 'View results':gt 'portmirror', 'start'
  269. end
  270. end
  271. end
  272. elseif kosmetica < makeupSetting:
  273. 'You don''t have enough makeup to apply your chosen option.'
  274. end
  275. if pcs_hairbsh = 0:
  276. minut += 3
  277. pcs_hairbsh = 1
  278. *pl $brushHair
  279. end
  280. if lipbalm > 0 and pcs_lipbalm <= 0:
  281. minut += 10
  282. lipbalm -= 1
  283. lipkoef += rand(0, 1)
  284. if lipkoef > 50:
  285. lipkoef = 0
  286. pcs_lip += 1
  287. end
  288. pcs_lipbalm += 8
  289. *pl $applyLipbalm
  290. end
  291. act 'View results':gt 'portmirror', 'start'
  292. end
  293. --- portmirror ---------------------------------