butik 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158
  1. # butik
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. cla
  8. clr
  9. *clr
  10. mag = 1
  11. minut += 5
  12. gs 'stat'
  13. fcolor = rgb(0, 0, 0)
  14. bcolor = rgb(255, 255, 255)
  15. lcolor = rgb(106, 90, 205)
  16. 'All kind of dresses, all at 25,000 rubles'
  17. '<center><b><font color="maroon">Boutique</font></b></center>'
  18. '<center><img src="images/etogame/butik.jpg"></center>'
  19. evrand = rand(0, 100)
  20. if evrand >= 80 and skin > 0 and lesbiQW = 0:
  21. 'In the boutique you see a stylish and slender woman ,with about forty years old.'
  22. act 'Stare at the woman.':gt 'event', 'lesbi'
  23. end
  24. if QWdogreiqTimer = 0 and QWdogReiq = 1 and week = 7 and qwdogiventday ! day:
  25. qwdogiventday = day
  26. 'Going into the boutique you begin to consider picking dresses on hangers.By casually taking one you try it on in passing it on your back ,you hang with mild grim face.One of the dresses unexpectedly attracts your attention , as you began to study it more closely ,you feel a strange feeling as if you were being watched'
  27. act 'Disregard':gt 'butik', 'start'
  28. act 'Look around':dynamic $butikreiqdi
  29. exit
  30. end
  31. if RimmaSex > 0:
  32. if rimmaday ! day:
  33. '<a href="exec:gt ''RimmaSexQW''">Rima</a> smiled at you. She bits her lip and starts shooting her eyes in your direction.'
  34. else
  35. 'Rima smiled at you and continued to do her business.'
  36. end
  37. end
  38. if palto < 3:
  39. 'The boutique sells a fur coat for winter - 50,000 rubles'
  40. if money >= 50000:
  41. act 'Buy a fur coat (50,000 rubles)':
  42. cla
  43. money -= 50000
  44. palto = 3
  45. $palto = 'fur coat'
  46. 'You bought a fur coat.'
  47. act 'Leave':gt 'butik', 'start'
  48. end
  49. end
  50. end
  51. if money >= 25000:
  52. if dress[1] = 0:
  53. act 'Inspect the 1st dress (25,000 rubles)':numdres = 1 & payclo = 25000 & gt 'loker', 'dress'
  54. end
  55. if dress[2] = 0:
  56. act 'Inspect the 2nd dress (25,000 rubles)':numdres = 2 & payclo = 25000 & gt 'loker', 'dress'
  57. end
  58. if dress[3] = 0:
  59. act 'Inspect the 3rd dress (25,000 rubles)':numdres = 3 & payclo = 25000 & gt 'loker', 'dress'
  60. end
  61. if dress[5] = 0:
  62. act 'Inspect the 5th dress (25,000 rubles)':numdres = 5 & payclo = 25000 & gt 'loker', 'dress'
  63. end
  64. if dress[6] = 0:
  65. act 'Inspect the 6th dress (25,000 rubles)':numdres = 6 & payclo = 25000 & gt 'loker', 'dress'
  66. end
  67. if dress[7] = 0:
  68. act 'Inspect the 7th dress (25,000 rubles)':numdres = 7 & payclo = 25000 & gt 'loker', 'dress'
  69. end
  70. if dress[8] = 0:
  71. act 'Inspect the 8th dress (25,000 rubles)':numdres = 8 & payclo = 25000 & gt 'loker', 'dress'
  72. end
  73. if dress[9] = 0:
  74. act 'Inspect the 9th dress (25,000 rubles)':numdres = 9 & payclo = 25000 & gt 'loker', 'dress'
  75. end
  76. if dress[10] = 0:
  77. act 'Inspect the 10th dress (25,000 rubles)':numdres = 10 & payclo = 25000 & gt 'loker', 'dress'
  78. end
  79. if dress[11] = 0:
  80. act 'Inspect the 11th dress (25,000 rubles)':numdres = 11 & payclo = 25000 & gt 'loker', 'dress'
  81. end
  82. if dress[12] = 0:
  83. act 'Inspect the 12th dress (25,000 rubles)':numdres = 12 & payclo = 25000 & gt 'loker', 'dress'
  84. end
  85. if dress[13] = 0:
  86. act 'Inspect the 13th dress (25,000 rubles)':numdres = 13 & payclo = 25000 & gt 'loker', 'dress'
  87. end
  88. if dress[14] = 0:
  89. act 'Inspect the 14th dress (25,000 rubles)':numdres = 14 & payclo = 25000 & gt 'loker', 'dress'
  90. end
  91. if dress[15] = 0:
  92. act 'Inspect the 15th dress (25,000 rubles)':numdres = 15 & payclo = 25000 & gt 'loker', 'dress'
  93. end
  94. if dress[16] = 0:
  95. act 'Inspect the 16th dress (25,000 rubles)':numdres = 16 & payclo = 25000 & gt 'loker', 'dress'
  96. end
  97. if dress[17] = 0:
  98. act 'Inspect the 17th dress (25,000 rubles)':numdres = 17 & payclo = 25000 & gt 'loker', 'dress'
  99. end
  100. if dress[18] = 0:
  101. act 'Inspect the 18th dress (25,000 rubles)':numdres = 18 & payclo = 25000 & gt 'loker', 'dress'
  102. end
  103. if dress[19] = 0:
  104. act 'Inspect the 19th dress (25,000 rubles)':numdres = 19 & payclo = 25000 & gt 'loker', 'dress'
  105. end
  106. if dress[20] = 0:
  107. act 'Inspect the 20th dress (25,000 rubles)':numdres = 20 & payclo = 25000 & gt 'loker', 'dress'
  108. end
  109. if dress[21] = 0:
  110. act 'Inspect the 21th dress (25,000 rubles)':numdres = 21 & payclo = 25000 & gt 'loker', 'dress'
  111. end
  112. if dress[22] = 0:
  113. act 'Inspect the 22th dress (25,000 rubles)':numdres = 22 & payclo = 25000 & gt 'loker', 'dress'
  114. end
  115. if dress[23] = 0:
  116. act 'Inspect the 23th dress (25,000 rubles)':numdres = 23 & payclo = 25000 & gt 'loker', 'dress'
  117. end
  118. end
  119. act 'Leave the boutique':
  120. cla
  121. minut += 5
  122. gt 'torgcentr'
  123. end
  124. end
  125. --- butik ---------------------------------