pirsingsalon.qsrc 30 KB

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