pirsingsalon 29 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313
  1. # pirsingsalon
  2. if $ARGS[0] = 'start':
  3. gs 'stat'
  4. if night_mode = 1:
  5. fcolor = rgb(255, 255, 255)
  6. bcolor = rgb(0, 0, 0)
  7. lcolor = rgb(106, 90, 205)
  8. else
  9. fcolor = rgb(0, 0, 0)
  10. bcolor = rgb(255, 255, 255)
  11. lcolor = rgb(106, 90, 205)
  12. end
  13. '<center><b>Tattoo & Piercing Salon</b></center>'
  14. '<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
  15. 'Small studio with just one artist doing the tattoos and piercings.'
  16. '<center><table border=1><TH>View tattoos</TH><TH>View tattoos</TH><TH>View piercings</TH>'
  17. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''arm''">Arm - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''lip''">Lip - 5000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsyaz''">Tongue</a><b>₽</b></TD></tr>'
  18. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''ass''">Ass - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''neck''">Neck - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsgub''">Lip</a><b>₽</b></TD></tr>'
  19. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''back''">Back - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pubic''">Pubic - 20000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsysh''">Ear</a><b>₽</b></TD></tr>'
  20. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''belly''">Belly - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''shoulder''">Shoulder - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsnos''">Nose</a><b>₽</b></TD></tr>'
  21. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''breast''">Breasts - 15000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''side''">Side - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsbro''">Eyebrow</a><b>₽</b></TD></tr>'
  22. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''chest''">Chest - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''tramp''">Tramp stamp - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirssos''">Nipple</a><b>₽</b></TD></tr>'
  23. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''face''">Face - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''under''">Under breast - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirspyp''">Navel</a><b>₽</b></TD></tr>'
  24. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''foot''">Foot - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''wrist''">Wrist - 7000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsvla''">Pussy</a><b>₽</b></TD></tr>'
  25. *p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''leg''">Legs - 10000 <b>₽</b></TD><TD></TD><TD></TD></tr></table></center>'
  26. if hour < 12 or hour > 20:
  27. cls
  28. 'Shop is closing and you are asked to leave.'
  29. act 'Leave':
  30. minut += 5
  31. gs 'pirsingsalon', 'count'
  32. gt 'nord'
  33. end
  34. exit
  35. end
  36. act 'Leave':
  37. minut += 5
  38. gs 'pirsingsalon', 'count'
  39. gt 'nord'
  40. end
  41. end
  42. if $ARGS[0] = 'count':
  43. !!Counting the tattoos and piercings just in case
  44. tattCount = 0
  45. if tatarm >= 1:
  46. tattCount += 1
  47. end
  48. if tatass >= 1:
  49. tattCount += 1
  50. end
  51. if tatback >= 1:
  52. tattCount += 1
  53. end
  54. if tatblly >= 1:
  55. tattCount += 1
  56. end
  57. if tatbrst >= 1:
  58. tattCount += 1
  59. end
  60. if tatchst >= 1:
  61. tattCount += 1
  62. end
  63. if tatfce >= 1:
  64. tattCount += 1
  65. end
  66. if tatankle >= 1:
  67. tattCount += 1
  68. end
  69. if tatleg >= 1:
  70. tattCount += 1
  71. end
  72. if tatlip >= 1:
  73. tattCount += 1
  74. end
  75. if tatneck >= 1:
  76. tattCount += 1
  77. end
  78. if tatvag >= 1:
  79. tattCount += 1
  80. end
  81. if tatlech >= 1:
  82. tattCount += 1
  83. end
  84. if tatside >= 1:
  85. tattCount += 1
  86. end
  87. if tatupb >= 1:
  88. tattCount += 1
  89. end
  90. if tatunder >= 1:
  91. tattCount += 1
  92. end
  93. if tatwrist >= 1:
  94. tattCount += 1
  95. end
  96. pierWearCount = 0
  97. if pirsA > 0 and pirsA ! 10000:
  98. pierWearCount += 1
  99. end
  100. if pirsB > 0 and pirsB ! 10000:
  101. pierWearCount += 1
  102. end
  103. if pirsC > 0 and pirsC ! 10000:
  104. pierWearCount += 1
  105. end
  106. if pirsD > 0 and pirsD ! 10000:
  107. pierWearCount += 1
  108. end
  109. if pirsE > 0 and pirsE ! 10000:
  110. pierWearCount += 1
  111. end
  112. if pirsF > 0 and pirsF ! 10000:
  113. pierWearCount += 1
  114. end
  115. if pirsG > 0 and pirsG ! 10000:
  116. pierWearCount += 1
  117. end
  118. if pirsN > 0 and pirsN ! 10000:
  119. pierWearCount += 1
  120. end
  121. end
  122. if $ARGS[0] = 'pirsyaz':
  123. *clr
  124. cla
  125. i = 1
  126. :looptongue_pir
  127. *p '<a href="exec:gt ''pirsingsalon'', ''tongue_pir'', <<i>>"><img src="images/pc/body/piercings/a<<i>>.jpg" height="250" /></a>'
  128. i += 1
  129. if i <= 3:jump 'looptongue_pir'
  130. act 'Return':gt 'pirsingsalon', 'start'
  131. end
  132. if $ARGS[0] = 'tongue_pir':
  133. *clr
  134. cla
  135. i = ARGS[1]
  136. '<center><img src="images/pc/body/piercings/a<<i>>.jpg"></center>'
  137. if pirsA > 0:
  138. if dyneval('RESULT = PirsA<<i>>_owned') = 1:
  139. 'You already own this piercing.'
  140. act 'Return':gt 'pirsingsalon', 'pirsyaz'
  141. else
  142. if money >= 3000:
  143. act 'Buy this piercing for 3000 <b>₽</b>':
  144. 'You buy this piercing.'
  145. cla
  146. money -= 3000
  147. dynamic 'pirsA<<i>>_owned = 1'
  148. act 'Return':gt 'pirsingsalon', 'pirsyaz'
  149. end
  150. else
  151. 'You cannot afford this piercing.'
  152. end
  153. end
  154. elseif money >= 5000:
  155. act 'Get your tongue pierced with this piercing (5000 <b>₽</b>)':
  156. cls
  157. minut += 30
  158. money -= 5000
  159. pirsA = i
  160. dynamic 'pirsA<<i>>_owned = 1'
  161. pierWearCount += 1
  162. gs 'pain', 7, 'tongue', 'pierce'
  163. '<center><img src="images/locations/city/industrial/salon/pirsing.jpg"></center>'
  164. gs 'stat'
  165. 'The tattooist disinfected the area, pierced your tongue and inserted your chosen piercing.'
  166. act 'Leave':gt 'pirsingsalon', 'start'
  167. end
  168. else
  169. 'You cannot afford to get your tongue pierced with this piercing.'
  170. end
  171. act 'Return':gt 'pirsingsalon', 'pirsyaz'
  172. end
  173. if $ARGS[0] = 'pirsgub':
  174. *clr
  175. cla
  176. i = 1
  177. :looplip_pir
  178. *p '<a href="exec:gt ''pirsingsalon'', ''lip_pir'', <<i>>"><img src="images/pc/body/piercings/b<<i>>.jpg" height="250" /></a>'
  179. i += 1
  180. if i <= 1:jump 'looplip_pir'
  181. act 'Return':gt 'pirsingsalon', 'start'
  182. end
  183. if $ARGS[0] = 'lip_pir':
  184. *clr
  185. cla
  186. i = ARGS[1]
  187. '<center><img src="images/pc/body/piercings/b<<i>>.jpg"></center>'
  188. if pirsB > 0:
  189. if dyneval('RESULT = PirsB<<i>>_owned') = 1:
  190. 'You already own this piercing.'
  191. act 'Return':gt 'pirsingsalon', 'pirsgub'
  192. else
  193. if money >= 4000:
  194. act 'Buy this piercing for 4000 <b>₽</b>':
  195. 'You buy this piercing.'
  196. cla
  197. money -= 4000
  198. dynamic 'pirsB<<i>>_owned = 1'
  199. act 'Return':gt 'pirsingsalon', 'pirsgub'
  200. end
  201. else
  202. 'You cannot afford this piercing.'
  203. end
  204. end
  205. elseif money >= 6000:
  206. act 'Get your lip pierced with this piercing (6000 <b>₽</b>)':
  207. cls
  208. minut += 30
  209. money -= 6000
  210. pirsB = i
  211. dynamic 'pirsB<<i>>_owned = 1'
  212. pierWearCount += 1
  213. gs 'pain', 7, 'lips', 'pierce'
  214. '<center><img src="images/locations/city/industrial/salon/pirsing2.jpg"></center>'
  215. gs 'stat'
  216. 'The tattooist disinfected the area, pierced your lip and inserted your chosen piercing.'
  217. act 'Leave':gt 'pirsingsalon', 'start'
  218. end
  219. else
  220. 'You cannot afford to get your lip pierced with this piercing.'
  221. end
  222. act 'Return':gt 'pirsingsalon', 'pirsgub'
  223. end
  224. if $ARGS[0] = 'pirsysh':
  225. *clr
  226. cla
  227. i = 1
  228. :loopears_pir
  229. *p '<a href="exec:gt ''pirsingsalon'', ''ears_pir'', <<i>>"><img src="images/pc/body/piercings/c<<i>>.jpg" height="250" /></a>'
  230. i += 1
  231. if i <= 15:jump 'loopears_pir'
  232. act 'Return':gt 'pirsingsalon', 'start'
  233. end
  234. if $ARGS[0] = 'ears_pir':
  235. *clr
  236. cla
  237. i = ARGS[1]
  238. '<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
  239. if pirsC > 0:
  240. if dyneval('RESULT = PirsC<<i>>_owned') = 1:
  241. 'You already own these earrings.'
  242. act 'Return':gt 'pirsingsalon', 'pirsysh'
  243. else
  244. if money >= 1000:
  245. act 'Buy this piercing for 1000 <b>₽</b>':
  246. 'You buy this piercing.'
  247. cla
  248. money -= 1000
  249. dynamic 'pirsC<<i>>_owned = 1'
  250. act 'Return':gt 'pirsingsalon', 'pirsysh'
  251. end
  252. else
  253. 'You cannot afford these earrings.'
  254. end
  255. end
  256. elseif money >= 3000:
  257. act 'Get your ears pierced with this piercing (3000 <b>₽</b>)':
  258. cls
  259. minut += 30
  260. money -= 3000
  261. pirsC = i
  262. dynamic 'pirsC<<i>>_owned = 1'
  263. pierWearCount += 1
  264. gs 'pain', 7, 'ears', 'pierce'
  265. '<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
  266. gs 'stat'
  267. 'The tattooist disinfected the area, pierced your ears and inserted your chosen earrings.'
  268. act 'Leave':gt 'pirsingsalon', 'start'
  269. end
  270. else
  271. 'You cannot afford to get your ears pierced with these earrings.'
  272. end
  273. act 'Return':gt 'pirsingsalon', 'pirsysh'
  274. end
  275. if $ARGS[0] = 'pirsnos':
  276. *clr
  277. cla
  278. i = 1
  279. :loopnose_pir
  280. *p '<a href="exec:gt ''pirsingsalon'', ''nose_pir'', <<i>>"><img src="images/pc/body/piercings/d<<i>>.jpg" height="250" /></a>'
  281. i += 1
  282. if i <= 7:jump 'loopnose_pir'
  283. act 'Return':gt 'pirsingsalon', 'start'
  284. end
  285. if $ARGS[0] = 'nose_pir':
  286. *clr
  287. cla
  288. i = ARGS[1]
  289. '<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
  290. if pirsD > 0:
  291. if dyneval('RESULT = PirsD<<i>>_owned') = 1:
  292. 'You already own this piercing.'
  293. act 'Return':gt 'pirsingsalon', 'pirsnos'
  294. else
  295. if money >= 2000:
  296. act 'Buy this piercing for 2000 <b>₽</b>':
  297. 'You buy this piercing.'
  298. cla
  299. money -= 2000
  300. dynamic 'pirsD<<i>>_owned = 1'
  301. act 'Return':gt 'pirsingsalon', 'pirsnos'
  302. end
  303. else
  304. 'You cannot afford this piercing.'
  305. end
  306. end
  307. elseif money >= 5000:
  308. act 'Get your nose pierced with this piercing (5000 <b>₽</b>)':
  309. cls
  310. minut += 30
  311. money -= 5000
  312. pirsD = i
  313. dynamic 'pirsD<<i>>_owned = 1'
  314. pierWearCount += 1
  315. gs 'pain', 7, 'nose', 'pierce'
  316. '<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
  317. gs 'stat'
  318. 'The tattooist disinfected the area, pierced your nose and inserted your chosen piercing.'
  319. act 'Leave':gt 'pirsingsalon', 'start'
  320. end
  321. else
  322. 'You cannot afford to get your nose pierced with this piercing.'
  323. end
  324. act 'Return':gt 'pirsingsalon', 'pirsnos'
  325. end
  326. if $ARGS[0] = 'pirsbro':
  327. *clr
  328. cla
  329. i = 1
  330. :loopbrow_pir
  331. *p '<a href="exec:gt ''pirsingsalon'', ''brow_pir'', <<i>>"><img src="images/pc/body/piercings/e<<i>>.jpg" height="250" /></a>'
  332. i += 1
  333. if i <= 2:jump 'loopbrow_pir'
  334. act 'Return':gt 'pirsingsalon', 'start'
  335. end
  336. if $ARGS[0] = 'brow_pir':
  337. *clr
  338. cla
  339. i = ARGS[1]
  340. '<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
  341. if pirsE > 0:
  342. if dyneval('RESULT = PirsE<<i>>_owned') = 1:
  343. 'You already own this piercing.'
  344. act 'Return':gt 'pirsingsalon', 'pirsbro'
  345. else
  346. if money >= 2000:
  347. act 'Buy this piercing for 2000 <b>₽</b>':
  348. 'You buy this piercing.'
  349. cla
  350. money -= 2000
  351. dynamic 'PirsE<<i>>_owned = 1'
  352. act 'Return':gt 'pirsingsalon', 'pirsbro'
  353. end
  354. else
  355. 'You cannot afford this piercing.'
  356. end
  357. end
  358. elseif money >= 5000:
  359. act 'Get your brow pierced with this piercing (5000 <b>₽</b>)':
  360. cls
  361. minut += 30
  362. money -= 5000
  363. pirsE = i
  364. dynamic 'pirsE<<i>>_owned = 1'
  365. pierWearCount += 1
  366. gs 'pain', 7, 'eyebrows', 'pierce'
  367. '<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
  368. gs 'stat'
  369. 'The tattooist disinfected the area, pierced your brow and inserted your chosen piercing.'
  370. act 'Leave':gt 'pirsingsalon', 'start'
  371. end
  372. else
  373. 'You cannot afford to get your brow pierced with this piercing.'
  374. end
  375. act 'Return':gt 'pirsingsalon', 'pirsbro'
  376. end
  377. if $ARGS[0] = 'pirssos':
  378. *clr
  379. cla
  380. i = 1
  381. :loopnip_pir
  382. *p '<a href="exec:gt ''pirsingsalon'', ''nip_pir'', <<i>>"><img src="images/pc/body/piercings/f<<i>>.jpg" height="250" /></a>'
  383. i += 1
  384. if i <= 2:jump 'loopnip_pir'
  385. act 'Return':gt 'pirsingsalon', 'start'
  386. end
  387. if $ARGS[0] = 'nip_pir':
  388. *clr
  389. cla
  390. i = ARGS[1]
  391. '<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
  392. if pirsF > 0:
  393. if dyneval('RESULT = PirsF<<i>>_owned') = 1:
  394. 'You already own this piercing.'
  395. act 'Return':gt 'pirsingsalon', 'pirssos'
  396. else
  397. if money >= 6000:
  398. act 'Buy this piercing for 6000 <b>₽</b>':
  399. 'You buy this piercing.'
  400. cla
  401. money -= 6000
  402. dynamic 'PirsF<<i>>_owned = 1'
  403. act 'Return':gt 'pirsingsalon', 'pirssos'
  404. end
  405. else
  406. 'You cannot afford this piercing.'
  407. end
  408. end
  409. elseif money >= 10000:
  410. act 'Get your nipples pierced with this piercing (10000 <b>₽</b>)':
  411. cls
  412. minut += 30
  413. money -= 10000
  414. pirsF = i
  415. dynamic 'pirsF<<i>>_owned = 1'
  416. pierWearCount += 1
  417. gs 'pain', 7, 'nipples', 'pierce'
  418. '<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
  419. gs 'stat'
  420. 'The tattooist disinfected the area, pierced your nipples and inserted your chosen piercing.'
  421. act 'Leave':gt 'pirsingsalon', 'start'
  422. end
  423. else
  424. 'You cannot afford to get your nipples pierced with this piercing.'
  425. end
  426. act 'Return':gt 'pirsingsalon', 'pirssos'
  427. end
  428. if $ARGS[0] = 'pirspyp':
  429. *clr
  430. cla
  431. i = 1
  432. :loopbelly_pir
  433. *p '<a href="exec:gt ''pirsingsalon'', ''belly_pir'', <<i>>"><img src="images/pc/body/piercings/n<<i>>.jpg" height="250" /></a>'
  434. i += 1
  435. if i <= 1:jump 'loopbelly_pir'
  436. act 'Return':gt 'pirsingsalon', 'start'
  437. end
  438. if $ARGS[0] = 'belly_pir':
  439. *clr
  440. cla
  441. i = ARGS[1]
  442. '<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
  443. if pirsN > 0:
  444. if dyneval('RESULT = PirsN<<i>>_owned') = 1:
  445. 'You already own this piercing.'
  446. act 'Return':gt 'pirsingsalon', 'pirspyp'
  447. else
  448. if money >= 7000:
  449. act 'Buy this piercing for 7000 <b>₽</b>':
  450. 'You buy this piercing.'
  451. cla
  452. money -= 7000
  453. dynamic 'PirsN<<i>>_owned = 1'
  454. act 'Return':gt 'pirsingsalon', 'pirspyp'
  455. end
  456. else
  457. 'You cannot afford this piercing.'
  458. end
  459. end
  460. elseif money >= 10000:
  461. act 'Get your belly button pierced with this piercing (10000 <b>₽</b>)':
  462. cls
  463. minut += 30
  464. money -= 10000
  465. pirsN = i
  466. dynamic 'pirsN<<i>>_owned = 1'
  467. pierWearCount += 1
  468. gs 'pain', 7, 'tummy', 'pierce'
  469. '<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
  470. gs 'stat'
  471. 'The tattooist disinfected the area, pierced your belly button and inserted your chosen piercing.'
  472. act 'Leave':gt 'pirsingsalon', 'start'
  473. end
  474. else
  475. 'You cannot afford to get your belly button pierced with this piercing.'
  476. end
  477. act 'Return':gt 'pirsingsalon', 'pirspyp'
  478. end
  479. if $ARGS[0] = 'pirsvla':
  480. *clr
  481. cla
  482. i = 1
  483. :looppubic_pir
  484. *p '<a href="exec:gt ''pirsingsalon'', ''pubic_pir'', <<i>>"><img src="images/pc/body/piercings/g<<i>>.jpg" height="250" /></a>'
  485. i += 1
  486. if i <= 4:jump 'looppubic_pir'
  487. act 'Return':gt 'pirsingsalon', 'start'
  488. end
  489. if $ARGS[0] = 'pubic_pir':
  490. *clr
  491. cla
  492. i = ARGS[1]
  493. '<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
  494. if pirsG > 0:
  495. if dyneval('RESULT = PirsG<<i>>_owned') = 1:
  496. 'You already own this piercing.'
  497. act 'Return':gt 'pirsingsalon', 'pirsvla'
  498. else
  499. if money >= 10000:
  500. act 'Buy this piercing for 10000 <b>₽</b>':
  501. cla
  502. 'You buy this piercing.'
  503. money -= 10000
  504. dynamic 'PirsG<<i>>_owned = 1'
  505. act 'Return':gt 'pirsingsalon', 'pirsvla'
  506. end
  507. else
  508. 'You cannot afford this piercing.'
  509. end
  510. end
  511. elseif money >= 25000:
  512. act 'Get your pussy pierced with this piercing (25000 <b>₽</b>)':
  513. cls
  514. minut += 30
  515. money -= 25000
  516. pirsG = i
  517. dynamic 'pirsG<<i>>_owned = 1'
  518. pierWearCount += 1
  519. gs 'pain', 7, 'pubic', 'pierce'
  520. '<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
  521. gs 'stat'
  522. 'The tattooist disinfected the area, pierced your pussy and inserted your chosen piercing.'
  523. act 'Leave':gt 'pirsingsalon', 'start'
  524. end
  525. else
  526. 'You cannot afford to get your pussy pierced with this piercing.'
  527. end
  528. act 'Return':gt 'pirsingsalon', 'pirsvla'
  529. end
  530. if $ARGS[0] = 'arm':
  531. *clr
  532. cla
  533. if tatarm = 0:
  534. n = 1
  535. :looptatarm
  536. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''arm_get''"><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg" height="250" /></a>'
  537. n += 1
  538. if n <= 69:jump 'looptatarm'
  539. *nl
  540. else
  541. '<center><img src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
  542. 'You already have this tattoo here.'
  543. end
  544. act 'Return': gt 'pirsingsalon', 'start'
  545. end
  546. if $ARGS[0] = 'arm_get':
  547. *clr
  548. cla
  549. '<center><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg"></center>'
  550. if money < 8000:
  551. 'You cannot afford this tattoo.'
  552. else
  553. act 'Get this tattoo':
  554. cla
  555. tatarm = n
  556. money -= 8000
  557. minut += 60
  558. gs 'stat'
  559. act 'Return': gt 'pirsingsalon', 'start'
  560. end
  561. end
  562. act 'Return': gt 'pirsingsalon', 'start'
  563. end
  564. if $ARGS[0] = 'ass':
  565. *clr
  566. cla
  567. if tatass = 0:
  568. n = 1
  569. :looptatass
  570. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''ass_get''"><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg" height="250" /></a>'
  571. n += 1
  572. if n <= 23:jump 'looptatass'
  573. *nl
  574. else
  575. '<center><img src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
  576. 'You already have this tattoo here.'
  577. end
  578. act 'Return': gt 'pirsingsalon', 'start'
  579. end
  580. if $ARGS[0] = 'ass_get':
  581. *clr
  582. cla
  583. '<center><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg"></center>'
  584. if money < 10000:
  585. 'You cannot afford this tattoo.'
  586. else
  587. act 'Get this tattoo':
  588. cla
  589. tatass = n
  590. money -= 10000
  591. minut += 60
  592. gs 'stat'
  593. act 'Return': gt 'pirsingsalon', 'start'
  594. end
  595. end
  596. act 'Return': gt 'pirsingsalon', 'start'
  597. end
  598. if $ARGS[0] = 'back':
  599. *clr
  600. cla
  601. if tatback = 0:
  602. n = 1
  603. :looptatback
  604. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''back_get''"><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg" height="250" /></a>'
  605. n += 1
  606. if n <= 41:jump 'looptatback'
  607. *nl
  608. else
  609. '<center><img src="images/pc/body/tattoos/back/tatback<<tatback>>.jpg"></center>'
  610. 'You already have this tattoo here.'
  611. end
  612. act 'Return': gt 'pirsingsalon', 'start'
  613. end
  614. if $ARGS[0] = 'back_get':
  615. *clr
  616. cla
  617. '<center><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg"></center>'
  618. if money < 10000:
  619. 'You cannot afford this tattoo.'
  620. else
  621. act 'Get this tattoo':
  622. cla
  623. tatback = n
  624. money -= 10000
  625. minut += 60
  626. gs 'stat'
  627. act 'Return': gt 'pirsingsalon', 'start'
  628. end
  629. end
  630. act 'Return': gt 'pirsingsalon', 'start'
  631. end
  632. if $ARGS[0] = 'belly':
  633. *clr
  634. cla
  635. if tatblly = 0:
  636. n = 1
  637. :looptatbelly
  638. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''belly_get''"><img src="images/pc/body/tattoos/belly/tatblly<<n>>.jpg" height="250" /></a>'
  639. n += 1
  640. if n <= 20:jump 'looptatbelly'
  641. *nl
  642. else
  643. '<center><img src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
  644. 'You already have this tattoo here.'
  645. end
  646. act 'Return': gt 'pirsingsalon', 'start'
  647. end
  648. if $ARGS[0] = 'belly_get':
  649. *clr
  650. cla
  651. '<center><img src="images/pc/body/tattoos/belly/tatblly<<n>>.jpg"></center>'
  652. if money < 10000:
  653. 'You cannot afford this tattoo.'
  654. else
  655. act 'Get this tattoo':
  656. cla
  657. tatblly = n
  658. money -= 10000
  659. minut += 60
  660. gs 'stat'
  661. act 'Return': gt 'pirsingsalon', 'start'
  662. end
  663. end
  664. act 'Return': gt 'pirsingsalon', 'start'
  665. end
  666. if $ARGS[0] = 'breast':
  667. *clr
  668. cla
  669. if tatbrst = 0:
  670. n = 1
  671. :looptatbreast
  672. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''breast_get''"><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg" height="250" /></a>'
  673. n += 1
  674. if n <= 9:jump 'looptatbreast'
  675. *nl
  676. else
  677. '<center><img src="images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg"></center>'
  678. 'You already have this tattoo here.'
  679. end
  680. act 'Return': gt 'pirsingsalon', 'start'
  681. end
  682. if $ARGS[0] = 'breast_get':
  683. *clr
  684. cla
  685. '<center><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg"></center>'
  686. if money < 15000:
  687. 'You cannot afford this tattoo.'
  688. else
  689. act 'Get this tattoo':
  690. cla
  691. tatbrst = n
  692. money -= 15000
  693. minut += 60
  694. gs 'stat'
  695. act 'Return': gt 'pirsingsalon', 'start'
  696. end
  697. end
  698. act 'Return': gt 'pirsingsalon', 'start'
  699. end
  700. if $ARGS[0] = 'chest':
  701. *clr
  702. cla
  703. if tatchst = 0:
  704. n = 1
  705. :looptatchest
  706. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''chest_get''"><img src="images/pc/body/tattoos/chest/tatchst<<n>>.jpg" height="250" /></a>'
  707. n += 1
  708. if n <= 10:jump 'looptatchest'
  709. *nl
  710. else
  711. '<center><img src="images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg"></center>'
  712. 'You already have this tattoo here.'
  713. end
  714. act 'Return': gt 'pirsingsalon', 'start'
  715. end
  716. if $ARGS[0] = 'chest_get':
  717. *clr
  718. cla
  719. '<center><img src="images/pc/body/tattoos/chest/tatchst<<n>>.jpg"></center>'
  720. if money < 12000:
  721. 'You cannot afford this tattoo.'
  722. else
  723. act 'Get this tattoo':
  724. cla
  725. tatchst = n
  726. money -= 12000
  727. minut += 60
  728. gs 'stat'
  729. act 'Return': gt 'pirsingsalon', 'start'
  730. end
  731. end
  732. act 'Return': gt 'pirsingsalon', 'start'
  733. end
  734. if $ARGS[0] = 'face':
  735. *clr
  736. cla
  737. if tatfce = 0:
  738. n = 1
  739. :looptatface
  740. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''face_get''"><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg" height="250" /></a>'
  741. n += 1
  742. if n <= 6:jump 'looptatface'
  743. *nl
  744. else
  745. '<center><img src="images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg"></center>'
  746. 'You already have this tattoo here.'
  747. end
  748. act 'Return': gt 'pirsingsalon', 'start'
  749. end
  750. if $ARGS[0] = 'face_get':
  751. *clr
  752. cla
  753. '<center><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg"></center>'
  754. if money < 10000:
  755. 'You cannot afford this tattoo.'
  756. else
  757. act 'Get this tattoo':
  758. cla
  759. tatfce = n
  760. money -= 10000
  761. minut += 60
  762. gs 'stat'
  763. act 'Return': gt 'pirsingsalon', 'start'
  764. end
  765. end
  766. act 'Return': gt 'pirsingsalon', 'start'
  767. end
  768. if $ARGS[0] = 'foot':
  769. *clr
  770. cla
  771. if tatankle = 0:
  772. n = 1
  773. :looptatfoot
  774. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''foot_get''"><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg" height="250" /></a>'
  775. n += 1
  776. if n <= 19:jump 'looptatfoot'
  777. *nl
  778. else
  779. '<center><img src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
  780. 'You already have this tattoo here.'
  781. end
  782. act 'Return': gt 'pirsingsalon', 'start'
  783. end
  784. if $ARGS[0] = 'foot_get':
  785. *clr
  786. cla
  787. '<center><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg"></center>'
  788. if money < 8000:
  789. 'You cannot afford this tattoo.'
  790. else
  791. act 'Get this tattoo':
  792. cla
  793. tatankle = n
  794. money -= 8000
  795. minut += 60
  796. gs 'stat'
  797. act 'Return': gt 'pirsingsalon', 'start'
  798. end
  799. end
  800. act 'Return': gt 'pirsingsalon', 'start'
  801. end
  802. if $ARGS[0] = 'leg':
  803. *clr
  804. cla
  805. if tatleg = 0:
  806. n = 1
  807. :looptatleg
  808. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''leg_get''"><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg" height="250" /></a>'
  809. n += 1
  810. if n <= 30:jump 'looptatleg'
  811. *nl
  812. else
  813. '<center><img src="images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg"></center>'
  814. 'You already have this tattoo here.'
  815. end
  816. act 'Return': gt 'pirsingsalon', 'start'
  817. end
  818. if $ARGS[0] = 'leg_get':
  819. *clr
  820. cla
  821. '<center><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg"></center>'
  822. if money < 10000:
  823. 'You cannot afford this tattoo.'
  824. else
  825. act 'Get this tattoo':
  826. cla
  827. tatleg = n
  828. money -= 10000
  829. minut += 60
  830. gs 'stat'
  831. act 'Return': gt 'pirsingsalon', 'start'
  832. end
  833. end
  834. act 'Return': gt 'pirsingsalon', 'start'
  835. end
  836. if $ARGS[0] = 'lip':
  837. *clr
  838. cla
  839. if tatlip = 0:
  840. n = 1
  841. :looptatlip
  842. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''lip_get''"><img src="images/pc/body/tattoos/lip/tatlip<<n>>.jpg" height="250" /></a>'
  843. n += 1
  844. if n <= 9:jump 'looptatlip'
  845. *nl
  846. else
  847. '<center><img src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
  848. 'You already have this tattoo here.'
  849. end
  850. act 'Return': gt 'pirsingsalon', 'start'
  851. end
  852. if $ARGS[0] = 'lip_get':
  853. *clr
  854. cla
  855. '<center><img src="images/pc/body/tattoos/lip/tatlip<<n>>.jpg"></center>'
  856. if money < 5000:
  857. 'You cannot afford this tattoo.'
  858. else
  859. act 'Get this tattoo':
  860. cla
  861. tatlip = n
  862. money -= 5000
  863. minut += 60
  864. gs 'stat'
  865. act 'Return': gt 'pirsingsalon', 'start'
  866. end
  867. end
  868. act 'Return': gt 'pirsingsalon', 'start'
  869. end
  870. if $ARGS[0] = 'neck':
  871. *clr
  872. cla
  873. if tatneck = 0:
  874. n = 1
  875. :looptatneck
  876. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''neck_get''"><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg" height="250" /></a>'
  877. n += 1
  878. if n <= 20:jump 'looptatneck'
  879. *nl
  880. else
  881. '<center><img src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
  882. 'You already have this tattoo here.'
  883. end
  884. act 'Return': gt 'pirsingsalon', 'start'
  885. end
  886. if $ARGS[0] = 'neck_get':
  887. *clr
  888. cla
  889. '<center><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg"></center>'
  890. if money < 8000:
  891. 'You cannot afford this tattoo.'
  892. else
  893. act 'Get this tattoo':
  894. cla
  895. tatneck = n
  896. money -= 8000
  897. minut += 60
  898. gs 'stat'
  899. act 'Return': gt 'pirsingsalon', 'start'
  900. end
  901. end
  902. act 'Return': gt 'pirsingsalon', 'start'
  903. end
  904. if $ARGS[0] = 'pubic':
  905. *clr
  906. cla
  907. if tatvag = 0:
  908. n = 1
  909. :looptatvag
  910. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''vag_get''"><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg" height="250" /></a>'
  911. n += 1
  912. if n <= 41:jump 'looptatvag'
  913. *nl
  914. else
  915. '<center><img src="images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg"></center>'
  916. 'You already have this tattoo here.'
  917. end
  918. act 'Return': gt 'pirsingsalon', 'start'
  919. end
  920. if $ARGS[0] = 'vag_get':
  921. *clr
  922. cla
  923. '<center><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg"></center>'
  924. if money < 20000:
  925. 'You cannot afford this tattoo.'
  926. else
  927. act 'Get this tattoo':
  928. cla
  929. tatvag = n
  930. money -= 20000
  931. minut += 60
  932. gs 'stat'
  933. act 'Return': gt 'pirsingsalon', 'start'
  934. end
  935. end
  936. act 'Return': gt 'pirsingsalon', 'start'
  937. end
  938. if $ARGS[0] = 'shoulder':
  939. *clr
  940. cla
  941. if tatlech = 0:
  942. n = 1
  943. :looptatlech
  944. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''shoulder_get''"><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg" height="250" /></a>'
  945. n += 1
  946. if n <= 24:jump 'looptatlech'
  947. *nl
  948. else
  949. '<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
  950. 'You already have this tattoo here.'
  951. end
  952. act 'Return': gt 'pirsingsalon', 'start'
  953. end
  954. if $ARGS[0] = 'shoulder_get':
  955. *clr
  956. cla
  957. '<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg"></center>'
  958. if money < 8000:
  959. 'You cannot afford this tattoo.'
  960. else
  961. act 'Get this tattoo':
  962. cla
  963. tatlech = n
  964. money -= 8000
  965. minut += 60
  966. gs 'stat'
  967. act 'Return': gt 'pirsingsalon', 'start'
  968. end
  969. end
  970. act 'Return': gt 'pirsingsalon', 'start'
  971. end
  972. if $ARGS[0] = 'side':
  973. *clr
  974. cla
  975. if tatside = 0:
  976. n = 1
  977. :looptatside
  978. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''side_get''"><img src="images/pc/body/tattoos/side/tatside<<n>>.jpg" height="250" /></a>'
  979. n += 1
  980. if n <= 13:jump 'looptatside'
  981. *nl
  982. else
  983. '<center><img src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
  984. 'You already have this tattoo here.'
  985. end
  986. act 'Return': gt 'pirsingsalon', 'start'
  987. end
  988. if $ARGS[0] = 'side_get':
  989. *clr
  990. cla
  991. '<center><img src="images/pc/body/tattoos/side/tatside<<n>>.jpg"></center>'
  992. if money < 12000:
  993. 'You cannot afford this tattoo.'
  994. else
  995. act 'Get this tattoo':
  996. cla
  997. tatside = n
  998. money -= 12000
  999. minut += 60
  1000. gs 'stat'
  1001. act 'Return': gt 'pirsingsalon', 'start'
  1002. end
  1003. end
  1004. act 'Return': gt 'pirsingsalon', 'start'
  1005. end
  1006. if $ARGS[0] = 'tramp':
  1007. *clr
  1008. cla
  1009. if tatupb = 0:
  1010. n = 1
  1011. :looptatupb
  1012. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''tramp_get''"><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<n>>.jpg" height="250" /></a>'
  1013. n += 1
  1014. if n <= 30:jump 'looptatupb'
  1015. *nl
  1016. else
  1017. '<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<tatupb>>.jpg"></center>'
  1018. 'You already have this tattoo here.'
  1019. end
  1020. act 'Return': gt 'pirsingsalon', 'start'
  1021. end
  1022. if $ARGS[0] = 'tramp_get':
  1023. *clr
  1024. cla
  1025. '<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<n>>.jpg"></center>'
  1026. if money < 12000:
  1027. 'You cannot afford this tattoo.'
  1028. else
  1029. act 'Get this tattoo':
  1030. cla
  1031. tatupb = n
  1032. money -= 12000
  1033. minut += 60
  1034. gs 'stat'
  1035. act 'Return': gt 'pirsingsalon', 'start'
  1036. end
  1037. end
  1038. act 'Return': gt 'pirsingsalon', 'start'
  1039. end
  1040. if $ARGS[0] = 'under':
  1041. *clr
  1042. cla
  1043. if tatunder = 0:
  1044. n = 1
  1045. :looptatunder
  1046. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''under_get''"><img src="images/pc/body/tattoos/underBreast/tatundbreast<<n>>.jpg" height="250" /></a>'
  1047. n += 1
  1048. if n <= 10:jump 'looptatunder'
  1049. *nl
  1050. else
  1051. '<center><img src="images/pc/body/tattoos/underBreast/tatundbreast<<tatunder>>.jpg"></center>'
  1052. 'You already have this tattoo here.'
  1053. end
  1054. act 'Return': gt 'pirsingsalon', 'start'
  1055. end
  1056. if $ARGS[0] = 'under_get':
  1057. *clr
  1058. cla
  1059. '<center><img src="images/pc/body/tattoos/underBreast/tatundbreast<<n>>.jpg"></center>'
  1060. if money < 12000:
  1061. 'You cannot afford this tattoo.'
  1062. else
  1063. act 'Get this tattoo':
  1064. cla
  1065. tatunder = n
  1066. money -= 12000
  1067. minut += 60
  1068. gs 'stat'
  1069. act 'Return': gt 'pirsingsalon', 'start'
  1070. end
  1071. end
  1072. act 'Return': gt 'pirsingsalon', 'start'
  1073. end
  1074. if $ARGS[0] = 'wrist':
  1075. *clr
  1076. cla
  1077. if tatwrist = 0:
  1078. n = 1
  1079. :looptatwrist
  1080. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''wrist_get''"><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg" height="250" /></a>'
  1081. n += 1
  1082. if n <= 43:jump 'looptatwrist'
  1083. *nl
  1084. else
  1085. '<center><img src="images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg"></center>'
  1086. 'You already have this tattoo here.'
  1087. end
  1088. act 'Return': gt 'pirsingsalon', 'start'
  1089. end
  1090. if $ARGS[0] = 'wrist_get':
  1091. *clr
  1092. cla
  1093. '<center><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg"></center>'
  1094. if money < 7000:
  1095. 'You cannot afford this tattoo.'
  1096. else
  1097. act 'Get this tattoo':
  1098. cla
  1099. tatwrist = n
  1100. money -= 7000
  1101. minut += 60
  1102. gs 'stat'
  1103. act 'Return': gt 'pirsingsalon', 'start'
  1104. end
  1105. end
  1106. act 'Return': gt 'pirsingsalon', 'start'
  1107. end
  1108. --- pirsingsalon ---------------------------------