1
1

344_butik 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260
  1. # butik
  2. <<<<<<< 344_butik
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 344_butik
  7. cla
  8. *clr
  9. <<<<<<< 344_butik
  10. set mag = 1
  11. =======
  12. set mag=1
  13. >>>>>>> 344_butik
  14. $metka = $ARGS[0]
  15. $loc = $CURLOC
  16. $metkaM = $ARGS[0]
  17. $locM = $CURLOC
  18. <<<<<<< 344_butik
  19. set minut += 5
  20. '<center><B><font color = maroon>Boutique</font></B></center>'
  21. '<center><img src="images\etogame\butik.jpg"></center>'
  22. clr
  23. gs 'stat'
  24. fcolor = rgb(0,0,0)
  25. bcolor = rgb(255,255,255)
  26. LCOLOR = rgb(106,90,205)
  27. '7m kinds of dresses, all at 25,000 rubles'
  28. set evrand = RAND(0,100)
  29. if evrand >= 80 and skin > 0 and lesbiQW = 0:
  30. 'In the boutique you see a stylish and slender woman forty years.'
  31. act 'Stare at the woman.': gt 'event','lesbi'
  32. end
  33. if QWdogreiqTimer = 0 and QWdogReiq = 1 and week = 7 and qwdogiventday ! day:
  34. qwdogiventday = day
  35. 'Going into the boutique you start hanging on rassmatrevat veshlkah plate.Vzyav one you try on in passing it back and hang with mild grimassy brezglivosti.Neozhidanno attracts your attention One of the dresses, began to study it more closely kakoeto you feel a strange feeling as if you are looking for:'
  36. act 'Disregard': gt 'butik','start'
  37. act 'Look around': dynamic $butikreiqdi
  38. exit
  39. end
  40. if RimmaSex > 0:
  41. if rimmaday ! day:
  42. 'Apartment <a href="exec:GT ''RimmaSexQW''">Rima</a> you smiled and bit his lip and started shooting eyes in your direction.'
  43. else
  44. 'Rima smiled at you and do business.'
  45. end
  46. end
  47. if palto < 3:
  48. 'The boutique sells fur coat for winter. 50000 RUB'
  49. if money >= 50000:
  50. act 'Buy a fur coat':
  51. cla
  52. set money -= 50000
  53. set palto = 3
  54. $palto = 'fur coat'
  55. 'You bought a fur coat.'
  56. act 'QUIT': gt 'butik','start'
  57. end
  58. end
  59. end
  60. if money >= 25000:
  61. if dress[1] = 0:
  62. act 'Inspect the 1st dress.': set numdres = 1 & payclo = 25000 & gt 'loker','dress'
  63. end
  64. if dress[2] = 0:
  65. act 'Inspect the 2nd dress.': set numdres = 2 & payclo = 25000 & gt 'loker','dress'
  66. end
  67. if dress[3] = 0:
  68. act 'Inspect the third dress.': set numdres = 3 & payclo = 25000 & gt 'loker','dress'
  69. end
  70. if dress[5] = 0:
  71. act 'Inspect 5e dress.': set numdres = 5 & payclo = 25000 & gt 'loker','dress'
  72. end
  73. if dress[6] = 0:
  74. act 'Inspect 6e dress.': set numdres = 6 & payclo = 25000 & gt 'loker','dress'
  75. end
  76. if dress[7] = 0:
  77. act 'Inspect 7e dress.': set numdres = 7 & payclo = 25000 & gt 'loker','dress'
  78. end
  79. if dress[8] = 0:
  80. act 'Inspect 8e dress.': set numdres = 8 & payclo = 25000 & gt 'loker','dress'
  81. end
  82. if dress[9] = 0:
  83. act 'Inspect the 9th dress.': set numdres = 9 & payclo = 25000 & gt 'loker','dress'
  84. end
  85. if dress[10] = 0:
  86. act 'Inspect 10s dress.': set numdres = 10 & payclo = 25000 & gt 'loker','dress'
  87. end
  88. if dress[11] = 0:
  89. act 'Inspect 11e dress.': set numdres = 11 & payclo = 25000 & gt 'loker','dress'
  90. end
  91. if dress[12] = 0:
  92. act 'Inspect 12e dress.': set numdres = 12 & payclo = 25000 & gt 'loker','dress'
  93. end
  94. if dress[13] = 0:
  95. act 'Inspect the 13th dress.': set numdres = 13 & payclo = 25000 & gt 'loker','dress'
  96. end
  97. if dress[14] = 0:
  98. act 'Inspect 14e dress.': set numdres = 14 & payclo = 25000 & gt 'loker','dress'
  99. end
  100. if dress[15] = 0:
  101. act 'Inspect 15e dress.': set numdres = 15 & payclo = 25000 & gt 'loker','dress'
  102. end
  103. if dress[16] = 0:
  104. act 'Inspect 16e dress.': set numdres = 16 & payclo = 25000 & gt 'loker','dress'
  105. end
  106. if dress[17] = 0:
  107. act 'Inspect 17e dress.': set numdres = 17 & payclo = 25000 & gt 'loker','dress'
  108. end
  109. if dress[18] = 0:
  110. act 'Inspect 18e dress.': set numdres = 18 & payclo = 25000 & gt 'loker','dress'
  111. end
  112. if dress[19] = 0:
  113. act 'Inspect 19e dress.': set numdres = 19 & payclo = 25000 & gt 'loker','dress'
  114. end
  115. if dress[20] = 0:
  116. act 'Inspect 20s dress.': set numdres = 20 & payclo = 25000 & gt 'loker','dress'
  117. end
  118. if dress[21] = 0:
  119. act 'Inspect 21e dress.': set numdres = 21 & payclo = 25000 & gt 'loker','dress'
  120. end
  121. if dress[22] = 0:
  122. act 'Inspect 22e dress.': set numdres = 22 & payclo = 25000 & gt 'loker','dress'
  123. end
  124. if dress[23] = 0:
  125. act 'Inspect 23rd dress.': set numdres = 23 & payclo = 25000 & gt 'loker','dress'
  126. end
  127. end
  128. act 'WITHDRAW FROM BOUTIQUE':
  129. cla
  130. set minut += 5
  131. gt 'torgcentr'
  132. end
  133. =======
  134. set minut = minut + 5
  135. '<center><B><font color=maroon>boutique</font></B></center>'
  136. '<center><img src="pic/butik.jpg" ></center>'
  137. clr
  138. gs'stat'
  139. fcolor=rgb(0,0,0)
  140. bcolor=rgb(255,255,255)
  141. LCOLOR = rgb(106,90,205)
  142. '7NIL kinds of dresses, all by 25000 RUB'
  143. set evrand = RAND (0,100)
  144. if evrand >= 80 and skin > 0 and lesbiQW = 0:
  145. 'The boutique you see a stylish and slim woman forty years.'
  146. act 'Stare at a woman.':gt'event','lesbi'
  147. end
  148. if QWdogreiqTimer=0 and QWdogReiq=1 and week=7 and qwdogiventday!day:
  149. qwdogiventday=day
  150. 'Going into the boutique you start rassmatrevat hanging on veshlkah dress.Taking one you try on in passing it back and hang with mild disgust grimassy.Suddenly,began to study it more closely you feel kakoeto strange feeling as if you are looking for:'
  151. act 'Disregard':gt'butik','start'
  152. act 'look_around':dynamic $butikreiqdi
  153. exit
  154. end
  155. if RimmaSex>0:
  156. if rimmaday!day:
  157. 'apartment <a href="exec:GT ''RimmaSexQW''">Rimma</a> you smiled and bit his lip began firing eyes in your direction.'
  158. else
  159. 'Rima smiled at you and do business.'
  160. end
  161. end
  162. if palto<3:
  163. 'The boutique sells fur coat for winter. 50000 RUB'
  164. if money>=50000:
  165. act 'Buy a fur coat':
  166. cla
  167. set money-=50000
  168. set palto=3
  169. $palto='fur_coat'
  170. 'You bought a fur coat.'
  171. act 'GO_OUT':gt'butik','start'
  172. end
  173. end
  174. end
  175. if money >= 25000:
  176. if dress[1] = 0:
  177. act 'inspect 1e dress.':set numdres=1&payclo=25000&gt'loker','dress'
  178. end
  179. if dress[2] = 0:
  180. act 'inspect 2e dress.':set numdres=2&payclo=25000&gt'loker','dress'
  181. end
  182. if dress[3] = 0:
  183. act 'inspect 3e dress.':set numdres=3&payclo=25000&gt'loker','dress'
  184. end
  185. if dress[5] = 0:
  186. act 'inspect 5e dress.':set numdres=5&payclo=25000&gt'loker','dress'
  187. end
  188. if dress[6] = 0:
  189. act 'inspect 6e dress.':set numdres=6&payclo=25000&gt'loker','dress'
  190. end
  191. if dress[7] = 0:
  192. act 'inspect 7e dress.':set numdres=7&payclo=25000&gt'loker','dress'
  193. end
  194. if dress[8] = 0:
  195. act 'inspect 8e dress.':set numdres=8&payclo=25000&gt'loker','dress'
  196. end
  197. if dress[9] = 0:
  198. act 'inspect 9e dress.':set numdres=9&payclo=25000&gt'loker','dress'
  199. end
  200. if dress[10] = 0:
  201. act 'inspect 10e dress.':set numdres=10&payclo=25000&gt'loker','dress'
  202. end
  203. if dress[11] = 0:
  204. act 'inspect 11e dress.':set numdres=11&payclo=25000&gt'loker','dress'
  205. end
  206. if dress[12] = 0:
  207. act 'inspect 12e dress.':set numdres=12&payclo=25000&gt'loker','dress'
  208. end
  209. if dress[13] = 0:
  210. act 'inspect 13e dress.':set numdres=13&payclo=25000&gt'loker','dress'
  211. end
  212. if dress[14] = 0:
  213. act 'inspect 14e dress.':set numdres=14&payclo=25000&gt'loker','dress'
  214. end
  215. if dress[15] = 0:
  216. act 'inspect 15e dress.':set numdres=15&payclo=25000&gt'loker','dress'
  217. end
  218. if dress[16] = 0:
  219. act 'inspect 16e dress.':set numdres=16&payclo=25000&gt'loker','dress'
  220. end
  221. if dress[17] = 0:
  222. act 'inspect 17e dress.':set numdres=17&payclo=25000&gt'loker','dress'
  223. end
  224. if dress[18] = 0:
  225. act 'inspect 18e dress.':set numdres=18&payclo=25000&gt'loker','dress'
  226. end
  227. if dress[19] = 0:
  228. act 'inspect 19e dress.':set numdres=19&payclo=25000&gt'loker','dress'
  229. end
  230. if dress[20] = 0:
  231. act 'inspect 20e dress.':set numdres=20&payclo=25000&gt'loker','dress'
  232. end
  233. if dress[21] = 0:
  234. act 'inspect 21e dress.':set numdres=21&payclo=25000&gt'loker','dress'
  235. end
  236. if dress[22] = 0:
  237. act 'inspect 22e dress.':set numdres=22&payclo=25000&gt'loker','dress'
  238. end
  239. if dress[23] = 0:
  240. act 'inspect 23e dress.':set numdres=23&payclo=25000&gt'loker','dress'
  241. end
  242. end
  243. act 'EXIT BOUTIQUE':
  244. cla
  245. set minut = minut + 5
  246. gt'torgcentr'
  247. end
  248. >>>>>>> 344_butik
  249. end
  250. --- butik ---------------------------------