1
0

pirsingsalon.qsrc 30 KB

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