1
0

portmirror 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  1. # portmirror
  2. $portmirror = {
  3. cla
  4. *clr
  5. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  6. '<<$hair>> <<$mop>> <<$skin>> <<$vnesh>>'
  7. if daystart < 10 and StoryLine = 0:'In the mirror, you looked quite strange woman''s face which is exactly copied all your actions. You hardly get to accept the idea that it is now is you.'
  8. if daystart >= 10 and daystart < 30 and StoryLine = 0:'From the mirror looks at you a woman''s face, to which you have become accustomed to, but sometimes, no, no and yes flash the idea that it is not your face.'
  9. if curly > 0: '<br>Your curly hair will last for another <<curly>> days.'
  10. if hbraids > 0: '<br>Your braided hair will last for another <<hbraids>> days.'
  11. set $makeUpString = '<br>'
  12. if kosmetica > 0: $makeUpString += 'Cosmetics: <<kosmetica>>'
  13. if kosmetica = 0: $makeUpString += 'You have no makeup'
  14. if lipbalm > 0: $makeUpString += ' | Lip Balm: <<lipbalm>>'
  15. if lipbalm = 0: $makeUpString += ' | You have no lip balm left'
  16. *pl $makeUpString
  17. ! WD: Cheat Unused ~ 'AutoHapri'
  18. if hapri = 0 and AutoHapri = 1:
  19. minut += 3
  20. hapri = 1
  21. 'You brush your hair'
  22. end
  23. ! WD: Cheat Unused ~ 'AutoMakeup'
  24. if mop = 1 and kosmetica > 0 and AutoMakeup = 1:
  25. mop = AutoMakeupType
  26. if kosmetica < 3 and mop = 4:mop = 3
  27. if kosmetica < 2 and mop = 3:mop = 2
  28. if kosmetica < 1 and mop ! 1:
  29. mop = 1
  30. 'You have no make-up left'
  31. else
  32. if mop = 2:
  33. 'Applied light make-up'
  34. minut -= 3
  35. kosmetica -= 1
  36. end
  37. if mop = 3:
  38. 'Applied natural make-up'
  39. minut -= 5
  40. kosmetica -= 2
  41. end
  42. if mop = 4:
  43. 'Applied heavy make-up'
  44. minut -= 10
  45. vidageday -= 1
  46. kosmetica -= 3
  47. end
  48. end
  49. end
  50. ! WD: Cheat Unused ~ 'AutoLipBalm'
  51. if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
  52. minut -= 10
  53. lipbalm -= 1
  54. lipkoef += rand(5, 15)
  55. if lipkoef > 50:
  56. lipkoef = 0
  57. lip += 1
  58. end
  59. lipbalmstat += 8
  60. 'You smeared lip moisturizing balm'
  61. end
  62. if hapri = 0:
  63. act 'Brush your hair':
  64. cla
  65. minut += 3
  66. hapri = 1
  67. act 'View results':dynamic $portmirror
  68. end
  69. end
  70. if mop = 1 and kosmetica > 0:
  71. act 'Apply makeup':
  72. cla
  73. *clr
  74. '<center><img src="images/etogame/mop.jpg"></center>'
  75. act 'Light make-up':
  76. cla
  77. minut += 3
  78. kosmetica -= 1
  79. mop = 2
  80. recmop = mop
  81. 'You legonechko summed eyes and lips a little tint.'
  82. act 'View results':dynamic $portmirror
  83. end
  84. if kosmetica >= 2:
  85. act 'Natural makeup':
  86. cla
  87. minut += 5
  88. kosmetica -= 2
  89. mop = 3
  90. recmop = mop
  91. 'You lipstick, summed up his eyes and eyelids.'
  92. act 'View results':dynamic $portmirror
  93. end
  94. end
  95. if kosmetica >= 3:
  96. act 'Heavy makeup':
  97. cla
  98. minut += 10
  99. kosmetica -= 3
  100. vidageday -= 1
  101. mop = 4
  102. recmop = mop
  103. 'You densely nakrasili eyes, eyelids and mascara, lip contour nakrasili pencil and lipstick.'
  104. act 'View results':dynamic $portmirror
  105. end
  106. end
  107. end
  108. end
  109. if lipbalm > 0 and lipbalmstat <= 0:
  110. act 'Smear lip balm moisturizing':
  111. cla
  112. minut += 10
  113. lipbalm -= 1
  114. lipkoef += rand(5, 15)
  115. if lipkoef > 50:
  116. lipkoef = 0
  117. lip += 1
  118. end
  119. lipbalmstat += 8
  120. 'You smeared lip moisturizing balm.'
  121. act 'View results':dynamic $portmirror
  122. end
  123. end
  124. act 'Move away from the mirror':
  125. cla
  126. if $gt2 = '':
  127. if $gt1 = 'stwork':dynamic $striptoilet
  128. if $gt1 = 'kafedinamic':dynamic $kafetualet
  129. else
  130. gt '<<$gt1>>', '<<$gt2>>'
  131. end
  132. end
  133. }
  134. --- portmirror ---------------------------------