1
0

pirsingsalon.qsrc 30 KB

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