0
0

319_mirror 6.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249
  1. # mirror
  2. <<<<<<< 319_mirror
  3. if $ARGS[0] = 'start':
  4. cla
  5. clr
  6. gs 'stat'
  7. gs 'portmirror'
  8. set $goto1 = 'mirror'
  9. set $goto2 = 'fin'
  10. dynamic $portmirror
  11. act 'Move away from the mirror':
  12. cla
  13. gt '<<$goto1>>','<<$goto2>>'
  14. end
  15. =======
  16. if $ARGS[0]='start':
  17. cla
  18. clr
  19. gs'stat'
  20. if glass<=0:
  21. if shorthair=0:
  22. if hcol = 0 and curly <= 0:'<center><img src="picb/hcol.jpg" ></center>'
  23. if hcol = 1 and curly <= 0:'<center><img src="picb/hcol1.jpg" ></center>'
  24. if hcol = 2 and curly <= 0:'<center><img src="picb/hcol2.jpg" ></center>'
  25. if hcol = 3 and curly <= 0:'<center><img src="picb/hcol3.jpg" ></center>'
  26. if hcol = 0 and curly > 0:'<center><img src="picb/hcolcurly.jpg" ></center>'
  27. if hcol = 1 and curly > 0:'<center><img src="picb/hcolcurly1.jpg" ></center>'
  28. if hcol = 2 and curly > 0:'<center><img src="picb/hcolcurly2.jpg" ></center>'
  29. if hcol = 3 and curly > 0:'<center><img src="picb/hcolcurly3.jpg" ></center>'
  30. end
  31. if shorthair=1:
  32. if hcol = 0:'<center><img src="picb/SHhcol.jpg" ></center>'
  33. if hcol = 1:'<center><img src="picb/SHhcol1.jpg" ></center>'
  34. if hcol = 2:'<center><img src="picb/SHhcol2.jpg" ></center>'
  35. if hcol = 3:'<center><img src="picb/SHhcol3.jpg" ></center>'
  36. end
  37. end
  38. if glass>0:
  39. if glass=1:
  40. '<center><img src="picb/nerd.jpg" ></center>'
  41. end
  42. if glass=2:
  43. if hcol = 0:'<center><img src="picb/hcolglass.jpg" ></center>'
  44. if hcol = 1:'<center><img src="picb/hcolglass1.jpg" ></center>'
  45. if hcol = 2:'<center><img src="picb/hcolglass2.jpg" ></center>'
  46. if hcol = 3:'<center><img src="picb/hcolglass3.jpg" ></center>'
  47. end
  48. end
  49. '<<$hair>> <<$mop>> <<$skin>> <<$vnesh>> <<$lip>> <<$glaza>>'
  50. if daystart<10 and StoryLine=0:'In the mirror. You hardly get to accept the idea, it now is you.'
  51. if daystart>=10 and daystart<30 and StoryLine=0:'From the mirror looks at you female face, to which you have become accustomed, but sometimes, no, no yes and flash idea, that the person is not your.'
  52. if kosmetica > 0:'cosmetics <<kosmetica>>'
  53. if kosmetica = 0:'You have no makeup.'
  54. if hapri = 0:
  55. act 'coiffured':
  56. cla
  57. set minut = minut + 3
  58. set hapri = 1
  59. gs'stat'
  60. 'You comb your hair in the mirror'
  61. act 'View results':gt'mirror','start'
  62. end
  63. end
  64. if mop = 1 and kosmetica > 0:
  65. act 'apply Makeup':
  66. cla
  67. *clr
  68. '<center><img src="pic/mop.jpg" ></center>'
  69. act 'light makeup':
  70. cla
  71. set minut = minut + 3
  72. set kosmetica = kosmetica - 1
  73. set mop = 2
  74. gs'stat'
  75. 'You lightly summed eyes and a little lipstick.'
  76. act 'View results':gt'mirror','start'
  77. end
  78. if kosmetica >= 2:
  79. act 'normal makeup':
  80. cla
  81. set minut = minut + 5
  82. set kosmetica = kosmetica - 2
  83. set mop = 3
  84. gs'stat'
  85. 'You lipstick, summed up the eyes and eyelids.'
  86. act 'View results':gt'mirror','start'
  87. end
  88. end
  89. if kosmetica >= 3:
  90. act 'The caller makeup':
  91. cla
  92. set minut = minut + 10
  93. set kosmetica = kosmetica - 3
  94. set vidageday = vidageday - 1
  95. set mop = 4
  96. gs'stat'
  97. 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
  98. act 'View results':gt'mirror','start'
  99. end
  100. end
  101. end
  102. end
  103. if brow<10 and browper=0:
  104. act 'tweeze eyebrows':
  105. cla
  106. set minut = minut + 10
  107. brow=10
  108. manna=manna/2
  109. gs'stat'
  110. 'You plucked eyebrows unwanted hairs on giving them a nice circuit. The truth is quite painful.'
  111. act 'View results':gt'mirror','start'
  112. end
  113. end
  114. if lipbalm>0 and lipbalmstat<=0:
  115. act 'Spread moisturizing lip balm':
  116. cla
  117. set minut = minut + 10
  118. lipbalm-=1
  119. set lipkoef = lipkoef + RAND(5,15)
  120. if lipkoef > 50:
  121. set lipkoef = 0
  122. set lip = lip + 1
  123. end
  124. lipbalmstat+=8
  125. gs'stat'
  126. 'You smeared moisturizing lip balm.'
  127. act 'View results':gt'mirror','start'
  128. end
  129. end
  130. act 'Move away from the mirror':
  131. cla
  132. gt'mirror','fin'
  133. end
  134. >>>>>>> 319_mirror
  135. end
  136. <<<<<<< 319_mirror
  137. if $ARGS[0] = 'fin':
  138. =======
  139. if $ARGS[0]='fin':
  140. >>>>>>> 319_mirror
  141. cla
  142. gt $locM, $metkaM
  143. <<<<<<< 319_mirror
  144. !'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
  145. set housrA = 0
  146. gt 'korr'
  147. end
  148. if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
  149. set housrA = 0
  150. set housrMir = 0
  151. gt 'bedr'
  152. end
  153. if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
  154. set fitMir = 0
  155. gt 'fit','razd'
  156. end
  157. if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
  158. set stripMir = 0
  159. gt 'stwork','start'
  160. end
  161. if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
  162. set palMir = 0
  163. gt 'palatka','start'
  164. end
  165. if saunaYouRoom = 1:
  166. saunaYouRoom = 0
  167. gt $locBroom, $metkaBroom
  168. end
  169. if housrA = 0 and obMir = 1:
  170. set obMir = 0
  171. gt 'obroom','start'
  172. end
  173. if housrA = 0 and borMir = 1:
  174. set borMir = 0
  175. gt 'bordel','start'
  176. end
  177. if housrA = 0 and tanhouse1 = 1:
  178. set tanhouse1 = 0
  179. gt 'spalnya'
  180. end'
  181. =======
  182. !'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom=0:
  183. set housrA = 0
  184. gt'korr'
  185. end
  186. if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom=0:
  187. set housrA = 0
  188. set housrMir = 0
  189. gt'bedr'
  190. end
  191. if housrA = 0 and fitMir = 1 and saunaYouRoom=0:
  192. set fitMir = 0
  193. gt'fit','razd'
  194. end
  195. if housrA = 0 and stripMir = 1 and saunaYouRoom=0:
  196. set stripMir = 0
  197. gt'stwork','start'
  198. end
  199. if housrA = 0 and palMir = 1 and saunaYouRoom=0:
  200. set palMir = 0
  201. gt'palatka','start'
  202. end
  203. if saunaYouRoom=1:
  204. saunaYouRoom=0
  205. gt $locBroom, $metkaBroom
  206. end
  207. if housrA = 0 and obMir = 1:
  208. set obMir = 0
  209. gt'obroom','start'
  210. end
  211. if housrA = 0 and borMir = 1:
  212. set borMir = 0
  213. gt'bordel','start'
  214. end
  215. if housrA = 0 and tanhouse1=1:
  216. set tanhouse1=0
  217. gt'spalnya'
  218. end'
  219. >>>>>>> 319_mirror
  220. end
  221. --- mirror ---------------------------------