1
0

pirsingsalon.qsrc 30 KB

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