pirsingsalon.qsrc 43 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774
  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> (cash)':
  104. 'You buy the piercing.'
  105. cla
  106. money -= 3000
  107. dynamic 'pirsA<<i>>_owned = 1'
  108. act 'Return':gt 'pirsingsalon', 'pirsyaz'
  109. end
  110. else
  111. 'You don''t have enough cash for this piercing.'
  112. end
  113. if karta + bankDebtLimit >= 3000:
  114. act 'Buy this piercing for 3000 <b>₽</b> (card)':
  115. 'You buy the piercing.'
  116. karta -= 3000
  117. dynamic 'pirsA<<i>>_owned = 1'
  118. act 'Return':gt 'pirsingsalon', 'pirsyaz'
  119. end
  120. else
  121. 'You don''t have enough money in your bank for this piercing.'
  122. end
  123. end
  124. elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
  125. if money >= 5000:
  126. act 'Get your tongue pierced with this piercing for 5000 <b>₽</b> (cash)':
  127. cls
  128. minut += 30
  129. money -= 5000
  130. pirsA = i
  131. dynamic 'pirsA<<i>>_owned = 1'
  132. pierWearCount += 1
  133. gs 'pain', 5, 'tongue', 'pierce'
  134. '<center><img src="images/locations/city/industrial/salon/pirsing.jpg"></center>'
  135. gs 'stat'
  136. 'The tattooist disinfects the area, pierces your tongue and inserts your chosen piercing.'
  137. act 'Leave':gt 'pirsingsalon', 'start'
  138. end
  139. end
  140. if karta + bankDebtLimit >= 5000:
  141. act 'Get your tongue pierced with this piercing for 5000 <b>₽</b> (card)':
  142. cls
  143. minut += 30
  144. karta -= 5000
  145. pirsA = i
  146. dynamic 'pirsA<<i>>_owned = 1'
  147. pierWearCount += 1
  148. gs 'pain', 5, 'tongue', 'pierce'
  149. '<center><img src="images/locations/city/industrial/salon/pirsing.jpg"></center>'
  150. gs 'stat'
  151. 'The tattooist disinfects the area, pierces your tongue and inserts your chosen piercing.'
  152. act 'Leave':gt 'pirsingsalon', 'start'
  153. end
  154. end
  155. else
  156. 'You cannot afford to get your tongue pierced with this piercing.'
  157. end
  158. act 'Return':gt 'pirsingsalon', 'pirsyaz'
  159. end
  160. if $ARGS[0] = 'pirsgub':
  161. *clr
  162. cla
  163. i = 1
  164. :looplip_pir
  165. *p '<a href="exec:gt ''pirsingsalon'', ''lip_pir'', <<i>>"><img src="images/pc/body/piercings/b<<i>>.jpg" height="250" /></a>'
  166. i += 1
  167. if i <= 7:jump 'looplip_pir'
  168. act 'Return':gt 'pirsingsalon', 'start'
  169. end
  170. if $ARGS[0] = 'lip_pir':
  171. *clr
  172. cla
  173. i = ARGS[1]
  174. '<center><img src="images/pc/body/piercings/b<<i>>.jpg"></center>'
  175. if pirsB > 0:
  176. if dyneval('RESULT = PirsB<<i>>_owned') = 1:
  177. 'You already own this piercing.'
  178. act 'Return':gt 'pirsingsalon', 'pirsgub'
  179. else
  180. if money >= 4000:
  181. act 'Buy this piercing for 4000 <b>₽</b> (cash)':
  182. 'You buy the piercing.'
  183. cla
  184. money -= 4000
  185. dynamic 'pirsB<<i>>_owned = 1'
  186. act 'Return':gt 'pirsingsalon', 'pirsgub'
  187. end
  188. else
  189. 'You don''t have enough cash for this piercing.'
  190. end
  191. if karta + bankDebtLimit >= 4000:
  192. act 'Buy this piercing for 4000 <b>₽</b> (card)':
  193. 'You buy the piercing.'
  194. karta -= 4000
  195. dynamic 'pirsB<<i>>_owned = 1'
  196. act 'Return':gt 'pirsingsalon', 'pirsgub'
  197. end
  198. else
  199. 'You don''t have enough money in your bank for this piercing.'
  200. end
  201. end
  202. elseif (money >= 6000) or (karta + bankDebtLimit >= 6000):
  203. if money >= 6000:
  204. act 'Get your lip pierced with this piercing for 6000 <b>₽</b> (cash)':
  205. cls
  206. minut += 30
  207. money -= 6000
  208. pirsB = i
  209. dynamic 'pirsB<<i>>_owned = 1'
  210. pierWearCount += 1
  211. gs 'pain', 2, 'lips', 'pierce'
  212. '<center><img src="images/locations/city/industrial/salon/pirsing2.jpg"></center>'
  213. gs 'stat'
  214. 'The tattooist disinfects the area, pierces your lip and inserts your chosen piercing.'
  215. act 'Leave':gt 'pirsingsalon', 'start'
  216. end
  217. end
  218. if karta + bankDebtLimit >= 6000:
  219. act 'Get your lip pierced with this piercing for 6000 <b>₽</b> (card)':
  220. cls
  221. minut += 30
  222. karta -= 6000
  223. pirsB = i
  224. dynamic 'pirsB<<i>>_owned = 1'
  225. pierWearCount += 1
  226. gs 'pain', 2, 'lips', 'pierce'
  227. '<center><img src="images/locations/city/industrial/salon/pirsing2.jpg"></center>'
  228. gs 'stat'
  229. 'The tattooist disinfects the area, pierces your lip and inserts your chosen piercing.'
  230. act 'Leave':gt 'pirsingsalon', 'start'
  231. end
  232. end
  233. else
  234. 'You cannot afford to get your lip pierced with this piercing.'
  235. end
  236. act 'Return':gt 'pirsingsalon', 'pirsgub'
  237. end
  238. if $ARGS[0] = 'pirsysh':
  239. *clr
  240. cla
  241. i = 1
  242. :loopears_pir
  243. *p '<a href="exec:gt ''pirsingsalon'', ''ears_pir'', <<i>>"><img src="images/pc/body/piercings/c<<i>>.jpg" height="250" /></a>'
  244. i += 1
  245. if i <= 24:jump 'loopears_pir'
  246. act 'Return':gt 'pirsingsalon', 'start'
  247. end
  248. if $ARGS[0] = 'ears_pir':
  249. *clr
  250. cla
  251. i = ARGS[1]
  252. '<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
  253. if pirsC > 0:
  254. if dyneval('RESULT = PirsC<<i>>_owned') = 1:
  255. 'You already own these earrings.'
  256. act 'Return':gt 'pirsingsalon', 'pirsysh'
  257. else
  258. if money >= 1000:
  259. act 'Buy this piercing for 1000 <b>₽</b> (cash)':
  260. 'You buy the earrings.'
  261. cla
  262. money -= 1000
  263. dynamic 'pirsC<<i>>_owned = 1'
  264. act 'Return':gt 'pirsingsalon', 'pirsysh'
  265. end
  266. else
  267. 'You don''t have enough cash for these earrings.'
  268. end
  269. if karta + bankDebtLimit >= 1000:
  270. act 'Buy these earrings for 1000 <b>₽</b> (card)':
  271. 'You buy the earrings.'
  272. karta -= 1000
  273. dynamic 'pirsC<<i>>_owned = 1'
  274. act 'Return':gt 'pirsingsalon', 'pirsysh'
  275. end
  276. else
  277. 'You don''t have enough money in your bank for these earrings.'
  278. end
  279. end
  280. elseif (money >= 3000) or (karta + bankDebtLimit >= 3000):
  281. if money >= 3000:
  282. act 'Get your ears pierced with these earrings for 3000 <b>₽</b> (cash)':
  283. cls
  284. minut += 30
  285. money -= 3000
  286. pirsC = i
  287. dynamic 'pirsC<<i>>_owned = 1'
  288. pierWearCount += 1
  289. gs 'pain', 1, 'ears', 'pierce'
  290. '<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
  291. gs 'stat'
  292. 'The tattooist disinfects the area, pierces your ears and inserts your chosen earrings.'
  293. act 'Leave':gt 'pirsingsalon', 'start'
  294. end
  295. end
  296. if karta + bankDebtLimit >= 3000:
  297. act 'Get your ears pierced with these earrings for 3000 <b>₽</b> (card)':
  298. cls
  299. minut += 30
  300. karta -= 3000
  301. pirsC = i
  302. dynamic 'pirsC<<i>>_owned = 1'
  303. pierWearCount += 1
  304. gs 'pain', 1, 'ears', 'pierce'
  305. '<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
  306. gs 'stat'
  307. 'The tattooist disinfects the area, pierces your ears and inserts your chosen earrings.'
  308. act 'Leave':gt 'pirsingsalon', 'start'
  309. end
  310. end
  311. else
  312. 'You cannot afford to get your ears pierced with this earrings.'
  313. end
  314. act 'Return':gt 'pirsingsalon', 'pirsysh'
  315. end
  316. if $ARGS[0] = 'pirsnos':
  317. *clr
  318. cla
  319. i = 1
  320. :loopnose_pir
  321. *p '<a href="exec:gt ''pirsingsalon'', ''nose_pir'', <<i>>"><img src="images/pc/body/piercings/d<<i>>.jpg" height="250" /></a>'
  322. i += 1
  323. if i <= 7:jump 'loopnose_pir'
  324. act 'Return':gt 'pirsingsalon', 'start'
  325. end
  326. if $ARGS[0] = 'nose_pir':
  327. *clr
  328. cla
  329. i = ARGS[1]
  330. '<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
  331. if pirsD > 0:
  332. if dyneval('RESULT = PirsD<<i>>_owned') = 1:
  333. 'You already own this piercing.'
  334. act 'Return':gt 'pirsingsalon', 'pirsnos'
  335. else
  336. if money >= 2000:
  337. act 'Buy this piercing for 2000 <b>₽</b> (cash)':
  338. 'You buy the piercing.'
  339. cla
  340. money -= 2000
  341. dynamic 'pirsD<<i>>_owned = 1'
  342. act 'Return':gt 'pirsingsalon', 'pirsnos'
  343. end
  344. else
  345. 'You don''t have enough cash for this piercing.'
  346. end
  347. if karta + bankDebtLimit >= 2000:
  348. act 'Buy this piercing for 2000 <b>₽</b> (card)':
  349. 'You buy the piercing.'
  350. karta -= 2000
  351. dynamic 'pirsD<<i>>_owned = 1'
  352. act 'Return':gt 'pirsingsalon', 'pirsnos'
  353. end
  354. else
  355. 'You don''t have enough money in your bank for this piercing.'
  356. end
  357. end
  358. elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
  359. if money >= 5000:
  360. act 'Get your nose pierced with this piercing for 5000 <b>₽</b> (cash)':
  361. cls
  362. minut += 30
  363. money -= 5000
  364. pirsD = i
  365. dynamic 'pirsD<<i>>_owned = 1'
  366. pierWearCount += 1
  367. gs 'pain', 2, 'nose', 'pierce'
  368. '<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
  369. gs 'stat'
  370. 'The tattooist disinfects the area, pierces your nose and inserts your chosen piercing.'
  371. act 'Leave':gt 'pirsingsalon', 'start'
  372. end
  373. end
  374. if karta + bankDebtLimit >= 5000:
  375. act 'Get your nose pierced with this piercing for 5000 <b>₽</b> (card)':
  376. cls
  377. minut += 30
  378. karta -= 5000
  379. pirsD = i
  380. dynamic 'pirsD<<i>>_owned = 1'
  381. pierWearCount += 1
  382. gs 'pain', 2, 'nose', 'pierce'
  383. '<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
  384. gs 'stat'
  385. 'The tattooist disinfects the area, pierces your nose and inserts your chosen piercing.'
  386. act 'Leave':gt 'pirsingsalon', 'start'
  387. end
  388. end
  389. else
  390. 'You cannot afford to get your lip pierced with this piercing.'
  391. end
  392. act 'Return':gt 'pirsingsalon', 'pirsnos'
  393. end
  394. if $ARGS[0] = 'pirsbro':
  395. *clr
  396. cla
  397. i = 1
  398. :loopbrow_pir
  399. *p '<a href="exec:gt ''pirsingsalon'', ''brow_pir'', <<i>>"><img src="images/pc/body/piercings/e<<i>>.jpg" height="250" /></a>'
  400. i += 1
  401. if i <= 2:jump 'loopbrow_pir'
  402. act 'Return':gt 'pirsingsalon', 'start'
  403. end
  404. if $ARGS[0] = 'brow_pir':
  405. *clr
  406. cla
  407. i = ARGS[1]
  408. '<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
  409. if pirsE > 0:
  410. if dyneval('RESULT = PirsE<<i>>_owned') = 1:
  411. 'You already own this piercing.'
  412. act 'Return':gt 'pirsingsalon', 'pirsbro'
  413. else
  414. if money >= 2000:
  415. act 'Buy this piercing for 2000 <b>₽</b> (cash)':
  416. 'You buy the piercing.'
  417. cla
  418. money -= 2000
  419. dynamic 'PirsE<<i>>_owned = 1'
  420. act 'Return':gt 'pirsingsalon', 'pirsbro'
  421. end
  422. else
  423. 'You don''t have enough cash for this piercing.'
  424. end
  425. if karta + bankDebtLimit >= 2000:
  426. act 'Buy this piercing for 2000 <b>₽</b> (card)':
  427. 'You buy the piercing.'
  428. karta -= 2000
  429. dynamic 'PirsE<<i>>_owned = 1'
  430. act 'Return':gt 'pirsingsalon', 'pirsbro'
  431. end
  432. else
  433. 'You don''t have enough money in your bank for this piercing.'
  434. end
  435. end
  436. elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
  437. if money >= 5000:
  438. act 'Get your brow pierced with this piercing for 5000 <b>₽</b> (cash)':
  439. cls
  440. minut += 30
  441. money -= 5000
  442. PirsE = i
  443. dynamic 'PirsE<<i>>_owned = 1'
  444. pierWearCount += 1
  445. gs 'pain', 3, 'eyebrows', 'pierce'
  446. '<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
  447. gs 'stat'
  448. 'The tattooist disinfects the area, pierces your brow and inserts your chosen piercing.'
  449. act 'Leave':gt 'pirsingsalon', 'start'
  450. end
  451. end
  452. if karta + bankDebtLimit >= 5000:
  453. act 'Get your brow pierced with this piercing for 5000 <b>₽</b> (card)':
  454. cls
  455. minut += 30
  456. karta -= 5000
  457. PirsE = i
  458. dynamic 'PirsE<<i>>_owned = 1'
  459. pierWearCount += 1
  460. gs 'pain', 3, 'eyebrows', 'pierce'
  461. '<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
  462. gs 'stat'
  463. 'The tattooist disinfects the area, pierces your brow and inserts your chosen piercing.'
  464. act 'Leave':gt 'pirsingsalon', 'start'
  465. end
  466. end
  467. else
  468. 'You cannot afford to get your brow pierced with this piercing.'
  469. end
  470. act 'Return':gt 'pirsingsalon', 'pirsbro'
  471. end
  472. if $ARGS[0] = 'pirssos':
  473. *clr
  474. cla
  475. i = 1
  476. :loopnip_pir
  477. *p '<a href="exec:gt ''pirsingsalon'', ''nip_pir'', <<i>>"><img src="images/pc/body/piercings/f<<i>>.jpg" height="250" /></a>'
  478. i += 1
  479. if i <= 7:jump 'loopnip_pir'
  480. act 'Return':gt 'pirsingsalon', 'start'
  481. end
  482. if $ARGS[0] = 'nip_pir':
  483. *clr
  484. cla
  485. i = ARGS[1]
  486. '<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
  487. if pirsF > 0:
  488. if dyneval('RESULT = PirsF<<i>>_owned') = 1:
  489. 'You already own this piercing.'
  490. act 'Return':gt 'pirsingsalon', 'pirssos'
  491. else
  492. if money >= 6000:
  493. act 'Buy these piercings for 6000 <b>₽</b> (cash)':
  494. 'You buy the piercings.'
  495. cla
  496. money -= 6000
  497. dynamic 'pirsF<<i>>_owned = 1'
  498. act 'Return':gt 'pirsingsalon', 'pirssos'
  499. end
  500. else
  501. 'You don''t have enough cash for these piercings.'
  502. end
  503. if karta + bankDebtLimit >= 6000:
  504. act 'Buy these piercings for 6000 <b>₽</b> (card)':
  505. 'You buy the piercings.'
  506. karta -= 6000
  507. dynamic 'pirsF<<i>>_owned = 1'
  508. act 'Return':gt 'pirsingsalon', 'pirssos'
  509. end
  510. else
  511. 'You don''t have enough money in your bank for this piercing.'
  512. end
  513. end
  514. elseif (money >= 10000) or (karta + bankDebtLimit >= 10000):
  515. if money >= 10000:
  516. act 'Get your nipples pierced with these piercings for 10,000 <b>₽</b> (cash)':
  517. cls
  518. minut += 30
  519. money -= 10000
  520. pirsF = i
  521. dynamic 'pirsF<<i>>_owned = 1'
  522. pierWearCount += 1
  523. gs 'pain', 7, 'nipples', 'pierce'
  524. '<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
  525. gs 'stat'
  526. 'The tattooist disinfects the area, pierces your nipples and inserts your chosen piercings.'
  527. act 'Leave':gt 'pirsingsalon', 'start'
  528. end
  529. end
  530. if karta + bankDebtLimit >= 10000:
  531. act 'Get your nipples pierced with these piercings for 10,000 <b>₽</b> (card)':
  532. cls
  533. minut += 30
  534. karta -= 10000
  535. pirsF = i
  536. dynamic 'pirsF<<i>>_owned = 1'
  537. pierWearCount += 1
  538. gs 'pain', 7, 'nipples', 'pierce'
  539. '<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
  540. gs 'stat'
  541. 'The tattooist disinfects the area, pierces your nipples and inserts your chosen piercings.'
  542. act 'Leave':gt 'pirsingsalon', 'start'
  543. end
  544. end
  545. else
  546. 'You cannot afford to get your lip pierced with these piercings.'
  547. end
  548. act 'Return':gt 'pirsingsalon', 'pirssos'
  549. end
  550. if $ARGS[0] = 'pirspyp':
  551. *clr
  552. cla
  553. i = 1
  554. :loopbelly_pir
  555. *p '<a href="exec:gt ''pirsingsalon'', ''belly_pir'', <<i>>"><img src="images/pc/body/piercings/n<<i>>.jpg" height="250" /></a>'
  556. i += 1
  557. if i <= 4:jump 'loopbelly_pir'
  558. act 'Return':gt 'pirsingsalon', 'start'
  559. end
  560. if $ARGS[0] = 'belly_pir':
  561. *clr
  562. cla
  563. i = ARGS[1]
  564. '<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
  565. if pirsN > 0:
  566. if dyneval('RESULT = PirsN<<i>>_owned') = 1:
  567. 'You already own this piercing.'
  568. act 'Return':gt 'pirsingsalon', 'pirspyp'
  569. else
  570. if money >= 7000:
  571. act 'Buy this piercing for 7000 <b>₽</b> (cash)':
  572. 'You buy the piercing.'
  573. cla
  574. money -= 7000
  575. dynamic 'PirsN<<i>>_owned = 1'
  576. act 'Return':gt 'pirsingsalon', 'pirspyp'
  577. end
  578. else
  579. 'You don''t have enough cash for this piercing.'
  580. end
  581. if karta + bankDebtLimit >= 7000:
  582. act 'Buy this piercing for 7000 <b>₽</b> (card)':
  583. 'You buy the piercing.'
  584. karta -= 7000
  585. dynamic 'PirsN<<i>>_owned = 1'
  586. act 'Return':gt 'pirsingsalon', 'pirspyp'
  587. end
  588. else
  589. 'You don''t have enough money in your bank for this piercing.'
  590. end
  591. end
  592. elseif (money >= 10000) or (karta + bankDebtLimit >= 10000):
  593. if money >= 10000:
  594. act 'Get your belly button pierced with this piercing for 10,000 <b>₽</b> (cash)':
  595. cls
  596. minut += 30
  597. money -= 10000
  598. PirsN = i
  599. dynamic 'PirsN<<i>>_owned = 1'
  600. pierWearCount += 1
  601. gs 'pain', 1, 'tummy', 'pierce'
  602. '<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
  603. gs 'stat'
  604. 'The tattooist disinfects the area, pierces your belly button and inserts your chosen piercing.'
  605. act 'Leave':gt 'pirsingsalon', 'start'
  606. end
  607. end
  608. if karta + bankDebtLimit >= 10000:
  609. act 'Get your belly button pierced with this piercing for 10,000 <b>₽</b> (card)':
  610. cls
  611. minut += 30
  612. karta -= 10000
  613. PirsN = i
  614. dynamic 'PirsN<<i>>_owned = 1'
  615. pierWearCount += 1
  616. gs 'pain', 1, 'tummy', 'pierce'
  617. '<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
  618. gs 'stat'
  619. 'The tattooist disinfects the area, pierces your belly button and inserts your chosen piercing.'
  620. act 'Leave':gt 'pirsingsalon', 'start'
  621. end
  622. end
  623. else
  624. 'You cannot afford to get your belly button pierced with this piercing.'
  625. end
  626. act 'Return':gt 'pirsingsalon', 'pirspyp'
  627. end
  628. if $ARGS[0] = 'pirsvla':
  629. *clr
  630. cla
  631. i = 1
  632. :looppubic_pir
  633. *p '<a href="exec:gt ''pirsingsalon'', ''pubic_pir'', <<i>>"><img src="images/pc/body/piercings/g<<i>>.jpg" height="250" /></a>'
  634. i += 1
  635. if i <= 7:jump 'looppubic_pir'
  636. act 'Return':gt 'pirsingsalon', 'start'
  637. end
  638. if $ARGS[0] = 'pubic_pir':
  639. *clr
  640. cla
  641. i = ARGS[1]
  642. '<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
  643. if pirsG > 0:
  644. if dyneval('RESULT = PirsG<<i>>_owned') = 1:
  645. 'You already own this piercing.'
  646. act 'Return':gt 'pirsingsalon', 'pirsvla'
  647. else
  648. if money >= 10000:
  649. act 'Buy this piercing for 10,000 <b>₽</b> (cash)':
  650. 'You buy the piercing.'
  651. cla
  652. money -= 10000
  653. dynamic 'pirsG<<i>>_owned = 1'
  654. act 'Return':gt 'pirsingsalon', 'pirsvla'
  655. end
  656. else
  657. 'You don''t have enough cash for this piercing.'
  658. end
  659. if karta + bankDebtLimit >= 10000:
  660. act 'Buy this piercing for 10,000 <b>₽</b> (card)':
  661. 'You buy the piercing.'
  662. karta -= 10000
  663. dynamic 'pirsG<<i>>_owned = 1'
  664. act 'Return':gt 'pirsingsalon', 'pirsvla'
  665. end
  666. else
  667. 'You don''t have enough money in your bank for this piercing.'
  668. end
  669. end
  670. elseif (money >= 25000) or (karta + bankDebtLimit >= 25000):
  671. if money >= 25000:
  672. act 'Get your pussy pierced with this piercing for 25,000 <b>₽</b> (cash)':
  673. cls
  674. minut += 30
  675. money -= 25000
  676. pirsG = i
  677. dynamic 'pirsG<<i>>_owned = 1'
  678. pierWearCount += 1
  679. gs 'pain', 9, 'pubic', 'pierce'
  680. '<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
  681. gs 'stat'
  682. 'The tattooist disinfects the area, pierces your pussy and inserts your chosen piercing.'
  683. act 'Leave':gt 'pirsingsalon', 'start'
  684. end
  685. end
  686. if karta + bankDebtLimit >= 25000:
  687. act 'Get your pussy pierced with this piercing for 25,000 <b>₽</b> (card)':
  688. cls
  689. minut += 30
  690. karta -= 25000
  691. pirsG = i
  692. dynamic 'pirsG<<i>>_owned = 1'
  693. pierWearCount += 1
  694. gs 'pain', 9, 'pubic', 'pierce'
  695. '<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
  696. gs 'stat'
  697. 'The tattooist disinfects the area, pierces your pussy and inserts your chosen piercing.'
  698. act 'Leave':gt 'pirsingsalon', 'start'
  699. end
  700. end
  701. else
  702. 'You cannot afford to get your pussy pierced with this piercing.'
  703. end
  704. act 'Return':gt 'pirsingsalon', 'pirsvla'
  705. end
  706. if $ARGS[0] = 'arm':
  707. *clr
  708. cla
  709. if tatarm = 0:
  710. n = 1
  711. :looptatarm
  712. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''arm_get''"><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg" height="250" /></a>'
  713. n += 1
  714. if n <= 82:jump 'looptatarm'
  715. *nl
  716. else
  717. '<center><img src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
  718. 'You already have this tattoo here.'
  719. end
  720. act 'Return': gt 'pirsingsalon', 'start'
  721. end
  722. if $ARGS[0] = 'arm_get':
  723. *clr
  724. cla
  725. '<center><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg"></center>'
  726. if (money < 8000) and (karta + bankDebtLimit < 8000):
  727. 'You cannot afford this tattoo.'
  728. else
  729. if money >= 8000:
  730. act 'Get this tattoo 8000 <b>₽</b> (cash)':
  731. cla
  732. tatarm = n
  733. money -= 8000
  734. minut += 60
  735. gs 'stat'
  736. act 'Return': gt 'pirsingsalon', 'start'
  737. end
  738. end
  739. if karta + bankDebtLimit >= 8000:
  740. act 'Get this tattoo 8000 <b>₽</b> (card)':
  741. cla
  742. tatarm = n
  743. karta -= 8000
  744. minut += 60
  745. gs 'stat'
  746. act 'Return': gt 'pirsingsalon', 'start'
  747. end
  748. end
  749. end
  750. act 'Return': gt 'pirsingsalon', 'start'
  751. end
  752. if $ARGS[0] = 'ass':
  753. *clr
  754. cla
  755. if tatass = 0:
  756. n = 1
  757. :looptatass
  758. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''ass_get''"><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg" height="250" /></a>'
  759. n += 1
  760. if n <= 25:jump 'looptatass'
  761. *nl
  762. else
  763. '<center><img src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
  764. 'You already have this tattoo here.'
  765. end
  766. act 'Return': gt 'pirsingsalon', 'start'
  767. end
  768. if $ARGS[0] = 'ass_get':
  769. *clr
  770. cla
  771. '<center><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg"></center>'
  772. if (money < 10000) and (karta + bankDebtLimit < 10000):
  773. 'You cannot afford this tattoo.'
  774. else
  775. if money >= 10000:
  776. act 'Get this tattoo 10,000 <b>₽</b> (cash)':
  777. cla
  778. tatass = n
  779. money -= 10000
  780. minut += 60
  781. gs 'stat'
  782. act 'Return': gt 'pirsingsalon', 'start'
  783. end
  784. end
  785. if karta + bankDebtLimit >= 10000:
  786. act 'Get this tattoo 10,000 <b>₽</b> (card)':
  787. cla
  788. tatass = n
  789. karta -= 10000
  790. minut += 60
  791. gs 'stat'
  792. act 'Return': gt 'pirsingsalon', 'start'
  793. end
  794. end
  795. end
  796. act 'Return': gt 'pirsingsalon', 'start'
  797. end
  798. if $ARGS[0] = 'back':
  799. *clr
  800. cla
  801. if tatback = 0:
  802. n = 1
  803. :looptatback
  804. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''back_get''"><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg" height="250" /></a>'
  805. n += 1
  806. if n <= 61:jump 'looptatback'
  807. *nl
  808. else
  809. '<center><img src="images/pc/body/tattoos/back/tatback<<tatback>>.jpg"></center>'
  810. 'You already have this tattoo here.'
  811. end
  812. act 'Return': gt 'pirsingsalon', 'start'
  813. end
  814. if $ARGS[0] = 'back_get':
  815. *clr
  816. cla
  817. '<center><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg"></center>'
  818. if (money < 10000) and (karta + bankDebtLimit < 10000):
  819. 'You cannot afford this tattoo.'
  820. else
  821. if money >= 10000:
  822. act 'Get this tattoo 10,000 <b>₽</b> (cash)':
  823. cla
  824. tatback = n
  825. money -= 10000
  826. minut += 60
  827. gs 'stat'
  828. act 'Return': gt 'pirsingsalon', 'start'
  829. end
  830. end
  831. if karta + bankDebtLimit >= 10000:
  832. act 'Get this tattoo 10,000 <b>₽</b> (card)':
  833. cla
  834. tatback = n
  835. karta -= 10000
  836. minut += 60
  837. gs 'stat'
  838. act 'Return': gt 'pirsingsalon', 'start'
  839. end
  840. end
  841. end
  842. act 'Return': gt 'pirsingsalon', 'start'
  843. end
  844. if $ARGS[0] = 'belly':
  845. *clr
  846. cla
  847. if tatblly = 0:
  848. n = 1
  849. :looptatbelly
  850. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''belly_get''"><img src="images/pc/body/tattoos/belly/tatblly<<n>>.jpg" height="250" /></a>'
  851. n += 1
  852. if n <= 21:jump 'looptatbelly'
  853. *nl
  854. else
  855. '<center><img src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
  856. 'You already have this tattoo here.'
  857. end
  858. act 'Return': gt 'pirsingsalon', 'start'
  859. end
  860. if $ARGS[0] = 'belly_get':
  861. *clr
  862. cla
  863. '<center><img src="images/pc/body/tattoos/belly/tatblly<<n>>.jpg"></center>'
  864. if (money < 10000) and (karta + bankDebtLimit < 10000):
  865. 'You cannot afford this tattoo.'
  866. else
  867. if money >= 10000:
  868. act 'Get this tattoo 10,000 <b>₽</b> (cash)':
  869. cla
  870. tatblly = n
  871. money -= 10000
  872. minut += 60
  873. gs 'stat'
  874. act 'Return': gt 'pirsingsalon', 'start'
  875. end
  876. end
  877. if karta + bankDebtLimit >= 10000:
  878. act 'Get this tattoo 10,000 <b>₽</b> (card)':
  879. cla
  880. tatblly = n
  881. karta -= 10000
  882. minut += 60
  883. gs 'stat'
  884. act 'Return': gt 'pirsingsalon', 'start'
  885. end
  886. end
  887. end
  888. act 'Return': gt 'pirsingsalon', 'start'
  889. end
  890. if $ARGS[0] = 'breast':
  891. *clr
  892. cla
  893. if tatbrst = 0:
  894. n = 1
  895. :looptatbreast
  896. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''breast_get''"><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg" height="250" /></a>'
  897. n += 1
  898. if n <= 11:jump 'looptatbreast'
  899. *nl
  900. else
  901. '<center><img src="images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg"></center>'
  902. 'You already have this tattoo here.'
  903. end
  904. act 'Return': gt 'pirsingsalon', 'start'
  905. end
  906. if $ARGS[0] = 'breast_get':
  907. *clr
  908. cla
  909. '<center><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg"></center>'
  910. if (money < 15000) and (karta + bankDebtLimit < 15000):
  911. 'You cannot afford this tattoo.'
  912. else
  913. if money >= 15000:
  914. act 'Get this tattoo 15,000 <b>₽</b> (cash)':
  915. cla
  916. tatbrst = n
  917. money -= 15000
  918. minut += 60
  919. gs 'stat'
  920. act 'Return': gt 'pirsingsalon', 'start'
  921. end
  922. end
  923. if karta + bankDebtLimit >= 15000:
  924. act 'Get this tattoo 15,000 <b>₽</b> (card)':
  925. cla
  926. tatbrst = n
  927. karta -= 15000
  928. minut += 60
  929. gs 'stat'
  930. act 'Return': gt 'pirsingsalon', 'start'
  931. end
  932. end
  933. end
  934. act 'Return': gt 'pirsingsalon', 'start'
  935. end
  936. if $ARGS[0] = 'chest':
  937. *clr
  938. cla
  939. if tatchst = 0:
  940. n = 1
  941. :looptatchest
  942. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''chest_get''"><img src="images/pc/body/tattoos/chest/tatchst<<n>>.jpg" height="250" /></a>'
  943. n += 1
  944. if n <= 15:jump 'looptatchest'
  945. *nl
  946. else
  947. '<center><img src="images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg"></center>'
  948. 'You already have this tattoo here.'
  949. end
  950. act 'Return': gt 'pirsingsalon', 'start'
  951. end
  952. if $ARGS[0] = 'chest_get':
  953. *clr
  954. cla
  955. '<center><img src="images/pc/body/tattoos/chest/tatchst<<n>>.jpg"></center>'
  956. if (money < 12000) and (karta + bankDebtLimit < 12000):
  957. 'You cannot afford this tattoo.'
  958. else
  959. if money >= 12000:
  960. act 'Get this tattoo 12,000 <b>₽</b> (cash)':
  961. cla
  962. tatchst = n
  963. money -= 12000
  964. minut += 60
  965. gs 'stat'
  966. act 'Return': gt 'pirsingsalon', 'start'
  967. end
  968. end
  969. if karta + bankDebtLimit >= 12000:
  970. act 'Get this tattoo 12,000 <b>₽</b> (card)':
  971. cla
  972. tatchst = n
  973. karta -= 12000
  974. minut += 60
  975. gs 'stat'
  976. act 'Return': gt 'pirsingsalon', 'start'
  977. end
  978. end
  979. end
  980. act 'Return': gt 'pirsingsalon', 'start'
  981. end
  982. if $ARGS[0] = 'face':
  983. *clr
  984. cla
  985. if tatfce = 0:
  986. n = 1
  987. :looptatface
  988. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''face_get''"><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg" height="250" /></a>'
  989. n += 1
  990. if n <= 8:jump 'looptatface'
  991. *nl
  992. else
  993. '<center><img src="images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg"></center>'
  994. 'You already have this tattoo here.'
  995. end
  996. act 'Return': gt 'pirsingsalon', 'start'
  997. end
  998. if $ARGS[0] = 'face_get':
  999. *clr
  1000. cla
  1001. '<center><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg"></center>'
  1002. if (money < 10000) and (karta + bankDebtLimit < 10000):
  1003. 'You cannot afford this tattoo.'
  1004. else
  1005. if money >= 10000:
  1006. act 'Get this tattoo 10,000 <b>₽</b> (cash)':
  1007. cla
  1008. tatfce = n
  1009. money -= 10000
  1010. minut += 60
  1011. gs 'stat'
  1012. act 'Return': gt 'pirsingsalon', 'start'
  1013. end
  1014. end
  1015. if karta + bankDebtLimit >= 10000:
  1016. act 'Get this tattoo 10,000 <b>₽</b> (card)':
  1017. cla
  1018. tatfce = n
  1019. karta -= 10000
  1020. minut += 60
  1021. gs 'stat'
  1022. act 'Return': gt 'pirsingsalon', 'start'
  1023. end
  1024. end
  1025. end
  1026. act 'Return': gt 'pirsingsalon', 'start'
  1027. end
  1028. if $ARGS[0] = 'foot':
  1029. *clr
  1030. cla
  1031. if tatankle = 0:
  1032. n = 1
  1033. :looptatfoot
  1034. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''foot_get''"><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg" height="250" /></a>'
  1035. n += 1
  1036. if n <= 25:jump 'looptatfoot'
  1037. *nl
  1038. else
  1039. '<center><img src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
  1040. 'You already have this tattoo here.'
  1041. end
  1042. act 'Return': gt 'pirsingsalon', 'start'
  1043. end
  1044. if $ARGS[0] = 'foot_get':
  1045. *clr
  1046. cla
  1047. '<center><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg"></center>'
  1048. if (money < 8000) and (karta + bankDebtLimit < 8000):
  1049. 'You cannot afford this tattoo.'
  1050. else
  1051. if money >= 8000:
  1052. act 'Get this tattoo 8,000 <b>₽</b> (cash)':
  1053. cla
  1054. tatankle = n
  1055. money -= 8000
  1056. minut += 60
  1057. gs 'stat'
  1058. act 'Return': gt 'pirsingsalon', 'start'
  1059. end
  1060. end
  1061. if karta + bankDebtLimit >= 8000:
  1062. act 'Get this tattoo 8,000 <b>₽</b> (card)':
  1063. cla
  1064. tatankle = n
  1065. karta -= 8000
  1066. minut += 60
  1067. gs 'stat'
  1068. act 'Return': gt 'pirsingsalon', 'start'
  1069. end
  1070. end
  1071. end
  1072. act 'Return': gt 'pirsingsalon', 'start'
  1073. end
  1074. if $ARGS[0] = 'leg':
  1075. *clr
  1076. cla
  1077. if tatleg = 0:
  1078. n = 1
  1079. :looptatleg
  1080. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''leg_get''"><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg" height="250" /></a>'
  1081. n += 1
  1082. if n <= 47:jump 'looptatleg'
  1083. *nl
  1084. else
  1085. '<center><img src="images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg"></center>'
  1086. 'You already have this tattoo here.'
  1087. end
  1088. act 'Return': gt 'pirsingsalon', 'start'
  1089. end
  1090. if $ARGS[0] = 'leg_get':
  1091. *clr
  1092. cla
  1093. '<center><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg"></center>'
  1094. if (money < 10000) and (karta + bankDebtLimit < 10000):
  1095. 'You cannot afford this tattoo.'
  1096. else
  1097. if money >= 10000:
  1098. act 'Get this tattoo 10,000 <b>₽</b> (cash)':
  1099. cla
  1100. tatleg = n
  1101. money -= 10000
  1102. minut += 60
  1103. gs 'stat'
  1104. act 'Return': gt 'pirsingsalon', 'start'
  1105. end
  1106. end
  1107. if karta + bankDebtLimit >= 10000:
  1108. act 'Get this tattoo 10,000 <b>₽</b> (card)':
  1109. cla
  1110. tatleg = n
  1111. karta -= 10000
  1112. minut += 60
  1113. gs 'stat'
  1114. act 'Return': gt 'pirsingsalon', 'start'
  1115. end
  1116. end
  1117. end
  1118. act 'Return': gt 'pirsingsalon', 'start'
  1119. end
  1120. if $ARGS[0] = 'lip':
  1121. *clr
  1122. cla
  1123. if tatlip = 0:
  1124. n = 1
  1125. :looptatlip
  1126. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''lip_get''"><img src="images/pc/body/tattoos/lip/tatlip<<n>>.jpg" height="250" /></a>'
  1127. n += 1
  1128. if n <= 9:jump 'looptatlip'
  1129. *nl
  1130. else
  1131. '<center><img src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
  1132. 'You already have this tattoo here.'
  1133. end
  1134. act 'Return': gt 'pirsingsalon', 'start'
  1135. end
  1136. if $ARGS[0] = 'lip_get':
  1137. *clr
  1138. cla
  1139. '<center><img src="images/pc/body/tattoos/lip/tatlip<<n>>.jpg"></center>'
  1140. if (money < 5000) and (karta + bankDebtLimit < 5000):
  1141. 'You cannot afford this tattoo.'
  1142. else
  1143. if money >= 5000:
  1144. act 'Get this tattoo 5,000 <b>₽</b> (cash)':
  1145. cla
  1146. tatlip = n
  1147. money -= 5000
  1148. minut += 60
  1149. gs 'stat'
  1150. act 'Return': gt 'pirsingsalon', 'start'
  1151. end
  1152. end
  1153. if karta + bankDebtLimit >= 5000:
  1154. act 'Get this tattoo 5,000 <b>₽</b> (card)':
  1155. cla
  1156. tatlip = n
  1157. karta -= 5000
  1158. minut += 60
  1159. gs 'stat'
  1160. act 'Return': gt 'pirsingsalon', 'start'
  1161. end
  1162. end
  1163. end
  1164. act 'Return': gt 'pirsingsalon', 'start'
  1165. end
  1166. if $ARGS[0] = 'neck':
  1167. *clr
  1168. cla
  1169. if tatneck = 0:
  1170. n = 1
  1171. :looptatneck
  1172. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''neck_get''"><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg" height="250" /></a>'
  1173. n += 1
  1174. if n <= 30:jump 'looptatneck'
  1175. *nl
  1176. else
  1177. '<center><img src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
  1178. 'You already have this tattoo here.'
  1179. end
  1180. act 'Return': gt 'pirsingsalon', 'start'
  1181. end
  1182. if $ARGS[0] = 'neck_get':
  1183. *clr
  1184. cla
  1185. '<center><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg"></center>'
  1186. if (money < 8000) and (karta + bankDebtLimit < 8000):
  1187. 'You cannot afford this tattoo.'
  1188. else
  1189. if money >= 8000:
  1190. act 'Get this tattoo 8,000 <b>₽</b> (cash)':
  1191. cla
  1192. tatneck = n
  1193. money -= 8000
  1194. minut += 60
  1195. gs 'stat'
  1196. act 'Return': gt 'pirsingsalon', 'start'
  1197. end
  1198. end
  1199. if karta + bankDebtLimit >= 8000:
  1200. act 'Get this tattoo 8,000 <b>₽</b> (card)':
  1201. cla
  1202. tatneck = n
  1203. karta -= 8000
  1204. minut += 60
  1205. gs 'stat'
  1206. act 'Return': gt 'pirsingsalon', 'start'
  1207. end
  1208. end
  1209. end
  1210. act 'Return': gt 'pirsingsalon', 'start'
  1211. end
  1212. if $ARGS[0] = 'pubic':
  1213. *clr
  1214. cla
  1215. if tatvag = 0:
  1216. n = 1
  1217. :looptatvag
  1218. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''vag_get''"><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg" height="250" /></a>'
  1219. n += 1
  1220. if n <= 53:jump 'looptatvag'
  1221. *nl
  1222. else
  1223. '<center><img src="images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg"></center>'
  1224. 'You already have this tattoo here.'
  1225. end
  1226. act 'Return': gt 'pirsingsalon', 'start'
  1227. end
  1228. if $ARGS[0] = 'vag_get':
  1229. *clr
  1230. cla
  1231. '<center><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg"></center>'
  1232. if (money < 20000) and (karta + bankDebtLimit < 20000):
  1233. 'You cannot afford this tattoo.'
  1234. else
  1235. if money >= 20000:
  1236. act 'Get this tattoo 20,000 <b>₽</b> (cash)':
  1237. cla
  1238. tatvag = n
  1239. money -= 20000
  1240. minut += 60
  1241. gs 'stat'
  1242. act 'Return': gt 'pirsingsalon', 'start'
  1243. end
  1244. end
  1245. if karta + bankDebtLimit >= 20000:
  1246. act 'Get this tattoo 20,000 <b>₽</b> (card)':
  1247. cla
  1248. tatvag = n
  1249. karta -= 20000
  1250. minut += 60
  1251. gs 'stat'
  1252. act 'Return': gt 'pirsingsalon', 'start'
  1253. end
  1254. end
  1255. end
  1256. act 'Return': gt 'pirsingsalon', 'start'
  1257. end
  1258. if $ARGS[0] = 'shoulder':
  1259. *clr
  1260. cla
  1261. if tatlech = 0:
  1262. n = 1
  1263. :looptatlech
  1264. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''shoulder_get''"><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg" height="250" /></a>'
  1265. n += 1
  1266. if n <= 25:jump 'looptatlech'
  1267. *nl
  1268. else
  1269. '<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
  1270. 'You already have this tattoo here.'
  1271. end
  1272. act 'Return': gt 'pirsingsalon', 'start'
  1273. end
  1274. if $ARGS[0] = 'shoulder_get':
  1275. *clr
  1276. cla
  1277. '<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg"></center>'
  1278. if (money < 8000) and (karta + bankDebtLimit < 8000):
  1279. 'You cannot afford this tattoo.'
  1280. else
  1281. if money >= 8000:
  1282. act 'Get this tattoo 8,000 <b>₽</b> (cash)':
  1283. cla
  1284. tatlech = n
  1285. money -= 8000
  1286. minut += 60
  1287. gs 'stat'
  1288. act 'Return': gt 'pirsingsalon', 'start'
  1289. end
  1290. end
  1291. if karta + bankDebtLimit >= 8000:
  1292. act 'Get this tattoo 8,000 <b>₽</b> (card)':
  1293. cla
  1294. tatlech = n
  1295. karta -= 8000
  1296. minut += 60
  1297. gs 'stat'
  1298. act 'Return': gt 'pirsingsalon', 'start'
  1299. end
  1300. end
  1301. end
  1302. act 'Return': gt 'pirsingsalon', 'start'
  1303. end
  1304. if $ARGS[0] = 'side':
  1305. *clr
  1306. cla
  1307. if tatside = 0:
  1308. n = 1
  1309. :looptatside
  1310. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''side_get''"><img src="images/pc/body/tattoos/side/tatside<<n>>.jpg" height="250" /></a>'
  1311. n += 1
  1312. if n <= 19:jump 'looptatside'
  1313. *nl
  1314. else
  1315. '<center><img src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
  1316. 'You already have this tattoo here.'
  1317. end
  1318. act 'Return': gt 'pirsingsalon', 'start'
  1319. end
  1320. if $ARGS[0] = 'side_get':
  1321. *clr
  1322. cla
  1323. '<center><img src="images/pc/body/tattoos/side/tatside<<n>>.jpg"></center>'
  1324. if (money < 12000) and (karta + bankDebtLimit < 12000):
  1325. 'You cannot afford this tattoo.'
  1326. else
  1327. if money >= 12000:
  1328. act 'Get this tattoo 12,000 <b>₽</b> (cash)':
  1329. cla
  1330. tatside = n
  1331. money -= 12000
  1332. minut += 60
  1333. gs 'stat'
  1334. act 'Return': gt 'pirsingsalon', 'start'
  1335. end
  1336. end
  1337. if karta + bankDebtLimit >= 12000:
  1338. act 'Get this tattoo 12,000 <b>₽</b> (card)':
  1339. cla
  1340. tatside = n
  1341. karta -= 12000
  1342. minut += 60
  1343. gs 'stat'
  1344. act 'Return': gt 'pirsingsalon', 'start'
  1345. end
  1346. end
  1347. end
  1348. act 'Return': gt 'pirsingsalon', 'start'
  1349. end
  1350. if $ARGS[0] = 'tramp':
  1351. *clr
  1352. cla
  1353. if tatupb = 0:
  1354. n = 1
  1355. :looptatupb
  1356. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''tramp_get''"><img src="images/pc/body/tattoos/trampstamp/tatlowbck<<n>>.jpg" height="250" /></a>'
  1357. n += 1
  1358. if n <= 32:jump 'looptatupb'
  1359. *nl
  1360. else
  1361. '<center><img src="images/pc/body/tattoos/trampstamp/tatlowbck<<tatupb>>.jpg"></center>'
  1362. 'You already have this tattoo here.'
  1363. end
  1364. act 'Return': gt 'pirsingsalon', 'start'
  1365. end
  1366. if $ARGS[0] = 'tramp_get':
  1367. *clr
  1368. cla
  1369. '<center><img src="images/pc/body/tattoos/trampstamp/tatlowbck<<n>>.jpg"></center>'
  1370. if (money < 12000) and (karta + bankDebtLimit < 12000):
  1371. 'You cannot afford this tattoo.'
  1372. else
  1373. if money >= 12000:
  1374. act 'Get this tattoo 12,000 <b>₽</b> (cash)':
  1375. cla
  1376. tatupb = n
  1377. money -= 12000
  1378. minut += 60
  1379. gs 'stat'
  1380. act 'Return': gt 'pirsingsalon', 'start'
  1381. end
  1382. end
  1383. if karta + bankDebtLimit >= 12000:
  1384. act 'Get this tattoo 12,000 <b>₽</b> (card)':
  1385. cla
  1386. tatupb = n
  1387. karta -= 12000
  1388. minut += 60
  1389. gs 'stat'
  1390. act 'Return': gt 'pirsingsalon', 'start'
  1391. end
  1392. end
  1393. end
  1394. act 'Return': gt 'pirsingsalon', 'start'
  1395. end
  1396. if $ARGS[0] = 'under':
  1397. *clr
  1398. cla
  1399. if tatunder = 0:
  1400. n = 1
  1401. :looptatunder
  1402. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''under_get''"><img src="images/pc/body/tattoos/underbreast/tatundbreast<<n>>.jpg" height="250" /></a>'
  1403. n += 1
  1404. if n <= 22:jump 'looptatunder'
  1405. *nl
  1406. else
  1407. '<center><img src="images/pc/body/tattoos/underbreast/tatundbreast<<tatunder>>.jpg"></center>'
  1408. 'You already have this tattoo here.'
  1409. end
  1410. act 'Return': gt 'pirsingsalon', 'start'
  1411. end
  1412. if $ARGS[0] = 'under_get':
  1413. *clr
  1414. cla
  1415. '<center><img src="images/pc/body/tattoos/underbreast/tatundbreast<<n>>.jpg"></center>'
  1416. if (money < 12000) and (karta + bankDebtLimit < 12000):
  1417. 'You cannot afford this tattoo.'
  1418. else
  1419. if money >= 12000:
  1420. act 'Get this tattoo 12,000 <b>₽</b> (cash)':
  1421. cla
  1422. tatunder = n
  1423. money -= 12000
  1424. minut += 60
  1425. gs 'stat'
  1426. act 'Return': gt 'pirsingsalon', 'start'
  1427. end
  1428. end
  1429. if karta + bankDebtLimit >= 12000:
  1430. act 'Get this tattoo 12,000 <b>₽</b> (card)':
  1431. cla
  1432. tatunder = n
  1433. karta -= 12000
  1434. minut += 60
  1435. gs 'stat'
  1436. act 'Return': gt 'pirsingsalon', 'start'
  1437. end
  1438. end
  1439. end
  1440. act 'Return': gt 'pirsingsalon', 'start'
  1441. end
  1442. if $ARGS[0] = 'wrist':
  1443. *clr
  1444. cla
  1445. if tatwrist = 0:
  1446. n = 1
  1447. :looptatwrist
  1448. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''wrist_get''"><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg" height="250" /></a>'
  1449. n += 1
  1450. if n <= 51:jump 'looptatwrist'
  1451. *nl
  1452. else
  1453. '<center><img src="images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg"></center>'
  1454. 'You already have this tattoo here.'
  1455. end
  1456. act 'Return': gt 'pirsingsalon', 'start'
  1457. end
  1458. if $ARGS[0] = 'wrist_get':
  1459. *clr
  1460. cla
  1461. '<center><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg"></center>'
  1462. if (money < 7000) and (karta + bankDebtLimit < 7000):
  1463. 'You cannot afford this tattoo.'
  1464. else
  1465. if money >= 7000:
  1466. act 'Get this tattoo 7,000 <b>₽</b> (cash)':
  1467. cla
  1468. tatwrist = n
  1469. money -= 7000
  1470. minut += 60
  1471. gs 'stat'
  1472. act 'Return': gt 'pirsingsalon', 'start'
  1473. end
  1474. end
  1475. if karta + bankDebtLimit >= 7000:
  1476. act 'Get this tattoo 7,000 <b>₽</b> (card)':
  1477. cla
  1478. tatwrist = n
  1479. karta -= 7000
  1480. minut += 60
  1481. gs 'stat'
  1482. act 'Return': gt 'pirsingsalon', 'start'
  1483. end
  1484. end
  1485. end
  1486. act 'Return': gt 'pirsingsalon', 'start'
  1487. end
  1488. if $ARGS[0] = 'hand':
  1489. *clr
  1490. cla
  1491. if tathand = 0:
  1492. n = 1
  1493. :looptathand
  1494. *p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''hand_get''"><img src="images/pc/body/tattoos/hand/tathnd<<n>>.jpg" height="250" /></a>'
  1495. n += 1
  1496. if n <= 9:jump 'looptathand'
  1497. *nl
  1498. else
  1499. '<center><img src="images/pc/body/tattoos/hand/tathnd<<tathand>>.jpg"></center>'
  1500. 'You already have this tattoo here.'
  1501. end
  1502. act 'Return': gt 'pirsingsalon', 'start'
  1503. end
  1504. if $ARGS[0] = 'hand_get':
  1505. *clr
  1506. cla
  1507. '<center><img src="images/pc/body/tattoos/hand/tathnd<<n>>.jpg"></center>'
  1508. if (money < 7000) and (karta + bankDebtLimit < 7000):
  1509. 'You cannot afford this tattoo.'
  1510. else
  1511. if money >= 7000:
  1512. act 'Get this tattoo 7,000 <b>₽</b> (cash)':
  1513. cla
  1514. tathand = n
  1515. money -= 7000
  1516. minut += 60
  1517. gs 'stat'
  1518. act 'Return': gt 'pirsingsalon', 'start'
  1519. end
  1520. end
  1521. if karta + bankDebtLimit >= 7000:
  1522. act 'Get this tattoo 7,000 <b>₽</b> (card)':
  1523. cla
  1524. tathand = n
  1525. karta -= 7000
  1526. minut += 60
  1527. gs 'stat'
  1528. act 'Return': gt 'pirsingsalon', 'start'
  1529. end
  1530. end
  1531. end
  1532. act 'Return': gt 'pirsingsalon', 'start'
  1533. end
  1534. --- pirsingsalon ---------------------------------