1
0

pirsingsalon 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329
  1. # pirsingsalon
  2. $pirsyaz = {
  3. cls
  4. minut += 30
  5. money -= 5000
  6. pirsA = 1
  7. gs 'pain', 7, 'pierce', 'tongue'
  8. gs 'stat'
  9. '<center><img src="images/etogame/pirsing.jpg"></center>'
  10. 'Master pierced your tongue and inserted a barbell.'
  11. act 'Leave':gt $curloc
  12. }
  13. $pirsgub = {
  14. cls
  15. minut += 30
  16. money -= 6000
  17. pirsB = 1
  18. gs 'pain', 7, 'pierce', 'lips'
  19. gs 'stat'
  20. '<center><img src="images/etogame/pirsing2.jpg"></center>'
  21. 'Master pierced your lip and inserted a ring.'
  22. act 'Leave':gt $curloc
  23. }
  24. $pirsysh = {
  25. cls
  26. minut += 30
  27. money -= 3000
  28. pirsC = 1
  29. gs 'pain', 7, 'pierce', 'ears'
  30. gs 'stat'
  31. 'Master pierced your ears inserted earrings.'
  32. act 'Leave':gt $curloc
  33. }
  34. $pirsnos = {
  35. cls
  36. minut += 30
  37. money -= 5000
  38. pirsD = 1
  39. gs 'pain', 7, 'pierce', 'nose'
  40. gs 'stat'
  41. 'Master pierced your nose and inserted a ring.'
  42. act 'Leave':gt $curloc
  43. }
  44. $pirsbro = {
  45. cls
  46. minut += 30
  47. money -= 5000
  48. pirsE = 1
  49. gs 'pain', 7, 'pierce', 'eyebrows'
  50. gs 'stat'
  51. 'Master pierced your eyebrow inserted a barbell.'
  52. act 'Leave':gt $curloc
  53. }
  54. $pirssos = {
  55. cls
  56. minut += 30
  57. money -= 10000
  58. pirsF = 1
  59. gs 'pain', 7, 'pierce', 'nipples'
  60. gs 'stat'
  61. 'Master pierced your nipples and inserted rings.'
  62. act 'Leave':gt $curloc
  63. }
  64. $pirsvla = {
  65. cls
  66. minut += 30
  67. money -= 25000
  68. pirsG = 1
  69. gs 'pain', 7, 'pierce', 'labia'
  70. gs 'stat'
  71. 'Master pierced your labia and inserted rings.'
  72. act 'Leave':gt $curloc
  73. }
  74. $pirspyp = {
  75. cls
  76. minut += 30
  77. money -= 10000
  78. pirsN = 1
  79. gs 'pain', 7, 'pierce', 'tummy'
  80. gs 'stat'
  81. 'Master pierced your navel and inserted a barbell.'
  82. act 'Leave':gt $curloc
  83. }
  84. $pirsclit = {
  85. cls
  86. minut += 30
  87. money -= 25000
  88. pirsGL = 1
  89. gs 'pain', 7, 'pierce', 'clitoris'
  90. gs'stat'
  91. 'Master pierced your clitoris and inserted a rod.'
  92. act 'Escape':gt $curloc
  93. }
  94. $tatyadd = {
  95. cla
  96. cls
  97. gs 'stat'
  98. act 'Go back':killvar 'n' & gt $curloc
  99. '<center>'
  100. if tatlip = 0:
  101. n = 1
  102. :looptatlip
  103. *p '<a href="exec:n = <<n>> & dynamic $maketatlip"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images/body/tatlip<<n>>.jpg" height="200" /></div></a>'
  104. n += 1
  105. if n <= 3:jump 'looptatlip'
  106. *nl
  107. end
  108. if tatplech = 0:
  109. n = 1
  110. :looptatplech
  111. *p '<a href="exec:n = <<n>> & dynamic $maketatplech"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images/body/tatplech<<n>>.jpg" height="200" /></div></a>'
  112. n += 1
  113. if n <= 4:jump 'looptatplech'
  114. *nl
  115. end
  116. if tatback = 0:
  117. n = 1
  118. :looptatback
  119. *p '<a href="exec:n = <<n>> & dynamic $maketatback"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images/body/tatb<<n>>.jpg" height="200" /></div></a>'
  120. n += 1
  121. if n <= 4:jump 'looptatback'
  122. *nl
  123. end
  124. if tatupb = 0:
  125. n = 1
  126. :looptatlowerback
  127. *p '<a href="exec:n = <<n>> & dynamic $maketatupb"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images/body/tatupb<<n>>.jpg" height="200" /></div></a>'
  128. n += 1
  129. if n <= 4:jump 'looptatlowerback'
  130. *nl
  131. end
  132. if tatvag = 0:
  133. n = 1
  134. :looptatvag
  135. *p '<a href="exec:n = <<n>> & dynamic $maketatvag"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images/body/tatvag<<n>>.jpg" height="200" /></div></a>'
  136. n += 1
  137. if n <= 6:jump 'looptatvag'
  138. *nl
  139. end
  140. if tatleg = 0:
  141. n = 1
  142. :looptatleg
  143. *p '<a href="exec:n = <<n>> & dynamic $maketatleg"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images/body/tatleg<<n>>.jpg" height="200" /></div></a>'
  144. n += 1
  145. if n <= 4:jump 'looptatleg'
  146. *nl
  147. end
  148. '</center>'
  149. }
  150. $maketatlip = {
  151. view 'images/body/tatlip<<n>>.jpg'
  152. act 'Make me a tattoo':
  153. cla
  154. tatlip = n
  155. money -= 8000
  156. minut += 60
  157. vaf += 10
  158. gs 'stat'
  159. dynamic $tatyadd
  160. end
  161. }
  162. $maketatplech = {
  163. view 'images/body/tatplech<<n>>.jpg'
  164. act 'Make me a tattoo':
  165. cla
  166. tatplech = n
  167. money -= 8000
  168. minut += 60
  169. vaf += 10
  170. gs 'stat'
  171. dynamic $tatyadd
  172. end
  173. }
  174. $maketatback = {
  175. view 'images/body/tatb<<n>>.jpg'
  176. act 'Make me a tattoo':
  177. cla
  178. tatback = n
  179. money -= 8000
  180. minut += 60
  181. vaf += 10
  182. gs 'stat'
  183. dynamic $tatyadd
  184. end
  185. }
  186. $maketatupb = {
  187. view 'images/body/tatupb<<n>>.jpg'
  188. act 'Make me a tattoo':
  189. cla
  190. tatupb = n
  191. money -= 8000
  192. minut += 60
  193. vaf += 10
  194. gs 'stat'
  195. dynamic $tatyadd
  196. end
  197. }
  198. $maketatvag = {
  199. view 'images/body/tatvag<<n>>.jpg'
  200. act 'Make me a tattoo':
  201. cla
  202. tatvag = n
  203. money -= 8000
  204. minut += 60
  205. vaf += 10
  206. gs 'stat'
  207. dynamic $tatyadd
  208. end
  209. }
  210. $maketatleg = {
  211. view 'images/body/tatleg<<n>>.jpg'
  212. act 'Make me a tattoo':
  213. cla
  214. tatleg = n
  215. money -= 8000
  216. minut += 60
  217. vaf += 10
  218. gs 'stat'
  219. dynamic $tatyadd
  220. end
  221. }
  222. $permtatbro={
  223. cls
  224. minut += 60
  225. money -= 6000
  226. browper = 1
  227. gs 'stat'
  228. 'You now have a permanent eyebrow tattoo.'
  229. act 'Leave':gt $curloc
  230. }
  231. gs 'stat'
  232. fcolor = rgb(0, 0, 0)
  233. bcolor = rgb(255, 255, 255)
  234. lcolor = rgb(106, 90, 205)
  235. '<center><b>Tattoo & Piercing Salon</b></center>'
  236. '<center><img src="images/etogame/pirsingstudia.JPG"></center>'
  237. 'Small studio where owner works by himself.'
  238. if money >= 8000:'<a href="exec:dynamic $tatyadd">Tattoo - 8000 <b>₽</b></a>'
  239. if money >= 6000 and browper = 0:'<a href="exec: dynamic $permtatbro">Permanent eyebrows tattoo - 6000 <b>₽</b></a>'
  240. if browper = 1:'You already have an eyebrow tattoo.'
  241. if pirsA = 0 and money >= 5000:'<a href="exec:dynamic $pirsyaz">Tongue piercing - 5000 rub.</a>.'
  242. if pirsB = 0 and money >= 6000:'<a href="exec:dynamic $pirsgub">Lip piercing - 6000 rub.</a>.'
  243. if pirsC = 0 and money >= 3000:'<a href="exec:dynamic $pirsysh">Ear piercings - 3000 rub.</a>.'
  244. if pirsD = 0 and money >= 5000:'<a href="exec:dynamic $pirsnos">Nose piercing - 5000 rub.</a>.'
  245. if pirsE = 0 and money >= 5000:'<a href="exec:dynamic $pirsbro">Eyebrow piercing - 5000 rub.</a>.'
  246. if pirsF = 0 and money >= 10000:'<a href="exec:dynamic $pirssos">Nipple piercings - 10000 <b>₽</b>.</a>.'
  247. if pirsN = 0 and money >= 10000:'<a href="exec:dynamic $pirspyp">Navel piercing - 10000 <b>₽</b>.</a>.'
  248. if pirsG = 0 and money >= 25000:'<a href="exec:dynamic $pirsvla">Labia piercings - 25000 <b>₽</b>.</a>.'
  249. if pirsGL = 0 and money >= 25000:'<a href="exec:dynamic $pirsclit">Clitoris piercing - 25000 <b>₽</b></a>'
  250. if hour < 12 or hour > 20:
  251. cls
  252. 'Shop is closing and you are asked to leave.'
  253. act 'Leave':minut += 5 & gt 'nord'
  254. exit
  255. end
  256. act 'Leave':gt 'nord'
  257. --- pirsingsalon ---------------------------------