1
0

barbershop.qsrc 37 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234
  1. # barbershop
  2. !!! Maruda Hair Mod
  3. !!pcs_hairlng <= 30 = vshort
  4. !!pcs_hairlng <= 80 = short
  5. !!pcs_hairlng <= 160 = med
  6. !!pcs_hairlng <= 260 = medlo
  7. !!pcs_hairlng <= 400 = lng
  8. !!pcs_hairlng <= 600 = qlng
  9. !!pcs_hairlng <= 800 = vlng
  10. !!pcs_hairlng > 800 = xlng
  11. !!pcs_hairbsh - 0 = unbrushed 1 = brushed
  12. !!defcurly - 0 = naturally straight, 1 = naturally curly
  13. !!straight = curly hair straightened (days remaining)
  14. !!hbraids = braids
  15. !!hpigtail = pigtails
  16. !!curly = curly
  17. !!hbangs = bangs
  18. !!hpingripw = buns
  19. !!hscrunchw = scrunch
  20. !!hbangs + hscrunchw = bangs-scrunch
  21. !!hbangs + hpingripw = bangs-buns
  22. !!curly = hscrunchw = curly-scrunch
  23. !!curly + hpingripw = curly-buns
  24. !!curly + hbangs = curly-bangs
  25. !!curly + hbangs + hscrunchw = curly-bangs-scrunch
  26. !!curly + hbangs + hpingripw = curly-bangs-buns
  27. !!nathcol = natural hair colour
  28. !!pcs_haircol 0 = Black
  29. !!pcs_haircol 1 = Brown
  30. !!pcs_haircol 2 = Red
  31. !!pcs_haircol 3 = Blonde
  32. !!pcs_haircol 4 = Bright Red
  33. !!pcs_haircol 5 = Dark Blue
  34. !!pcs_haircol 6 = Medium Blue
  35. !!pcs_haircol 7 = Light Blue
  36. !!pcs_haircol 8 = Dark Green
  37. !!pcs_haircol 10 = Light Green
  38. !!pcs_haircol 11 = Dark Pink
  39. !!pcs_haircol 12 = Medium Pink
  40. !!pcs_haircol 13 = Light Pink
  41. !!pcs_haircol 14 = Dark Purple
  42. !!pcs_haircol 15 = Medium Purple
  43. !!pcs_haircol 16 = Light Purple
  44. !!pcs_haircol 17 = Orange
  45. $menu_loc = 'barbershop'
  46. $menu_arg = 'start'
  47. menu_off = 0
  48. if $ARGS[0] = 'start':
  49. gs 'stat'
  50. '<center><b><font color="maroon">The Barber Shop</font></b></center>'
  51. '<center>The only barber shop in the area owned by Oleg Anatolyevich Syomin. He denies ever playing football, but your brother is convinced he is "The Oleg Anatolyevich Syomin". While he can''t do very special hairstyles, he''s cheap and works fast.</center>'
  52. clr
  53. gs 'stat'
  54. gs 'themes', 'indoors'
  55. *nl
  56. if pcs_hairlng <= 15:
  57. 'Your hair is not long enough to require cutting.'
  58. else
  59. '<a href=' + iif(money >= 700, '"exec:gt ''barbershop'', ''cuthair''"', '') + '>Cut your hair - 700 <b>₽</b></a>'
  60. end
  61. *nl
  62. if pcs_hairlng <= 80:
  63. 'Your hair is not long enough to be curled.'
  64. else
  65. '<a href=' + iif(money >= 1500, '"exec:gt ''barbershop'', ''perm''"','') + '>Curl your hair - 1500 <b>₽</b></a>'
  66. end
  67. *nl
  68. if pcs_hairlng <= 80:
  69. 'Your hair is not long enough to be straightened.'
  70. else
  71. '<a href=' + iif(money >= 1500, '"exec:gt ''barbershop'', ''perm2''"', '') + '>Straighten your hair - 1500 <b>₽</b></a>'
  72. end
  73. *nl
  74. '<a href=' + iif(money >= 750, '"exec:gt ''barbershop'', ''dyehair''"', '') + '>Dye your hair - 750 <b>₽</b></a>'
  75. *nl
  76. if dyefade > 0 and dyefade < 7:
  77. '<a href=' + iif(money >= 375, '"exec:gt ''barbershop'', ''touchup''"', '') + '>Touch up hair color - 375 <b>₽</b></a>'
  78. *nl
  79. elseif dyefade = 0:
  80. '<a href=' + iif(money >= 750, '"exec:gt ''barbershop'', ''touchup2''"', '') + '>Re-dye your existing hair color - 750 <b>₽</b></a>'
  81. *nl
  82. end
  83. *nl
  84. if hour =< 8 or hour >= 20:
  85. *clr & cla
  86. 'The barber shop is closed at the moment, you should probably come back, when Mr. Syomin is in'
  87. act 'Leave':minut += 3 & gt 'pavCommercial'
  88. exit
  89. end
  90. act 'Leave':minut += 3 & gt 'pavCommercial'
  91. end
  92. if money >= 60:
  93. act 'Buy Scrunchies - 60 <b>₽</b>':
  94. *clr & cla
  95. menu_off = 1
  96. money -= 60
  97. hscrunch += 10
  98. 'You pay Mr. Syomin and buy the small box.'
  99. act 'Move away':gt 'barbershop', 'start'
  100. end
  101. end
  102. if money >= 80:
  103. act 'Buy Hairaccessories - 80 <b>₽</b>':
  104. *clr & cla
  105. menu_off = 1
  106. money -= 80
  107. hpingrip += 10
  108. 'You pay Mr. Syomin and buy the small box.'
  109. act 'Move away':gt 'barbershop', 'start'
  110. end
  111. end
  112. if barbershop_wrk = 0:
  113. act 'Ask for work':
  114. cla
  115. *clr
  116. menu_off = 1
  117. minut += 5
  118. 'You walk up to Mr. Syomin, the owner of the barbershop.'
  119. '"Hello Mr. Syomin", you greet him.'
  120. '"Hello <<$pcs_nickname>>! What can I do for you today?", he asks you in his usual soothing voice.'
  121. '"I was wondering if you''re looking for some help around here"'
  122. '"Well, I don''t think you have experience as a hairdresser..." He thinks for a second. "..., but my back isn''t the best anymore, so I could use some help keeping the shop clean. It''s not much work, but I''d be happy if you could come in once a day for about an hour. Just come by, when you''re done with school and when I''m still open, obviously."'
  123. 'You smile cheerfully. "That sound great! What would I have to do?"'
  124. '"Well," he says, while looking around and gathering tasks for you. "..., you''d have to mop the floor here in the main room and the break room in the back as well. Take out all the trash, clean the breakroom kitchen, clean the mirrors, windows, chairs and toilet and of course dust the shelves. It might sound like a lot, but don''t worry, even doing one thing, makes my life easier."'
  125. 'You think about it for a second, but you guess it won''t be too bad and you could need any amount of money... "I...uhm...hate to ask, but how much would I earn per hour?"'
  126. '"Ah yes," Mr. Syomin chuckles. "..., the most important question. Are you alright with 90 <b>₽</b> per hour?"'
  127. act 'Accept the job':
  128. cla
  129. *nl
  130. '"That''s great", you nod. "When can I start?"'
  131. '"If you could come back tomorrow, that''d be great."'
  132. barbershop_wrk = 1
  133. act 'Leave': gt 'barbershop','start'
  134. end
  135. act 'Think about it':
  136. cla
  137. *nl
  138. '"I guess I''ll think about it some more.", you answer.'
  139. '"Sure <<$pcs_nickname>>, come back when you want to work."'
  140. act 'Leave': gt 'barbershop','start'
  141. end
  142. end
  143. elseif barbershop_wrk = 1 and barbershop_wrk_day ! daystart:
  144. act 'Clean the shop for 90 <b>₽</b> (1:00)':
  145. cla
  146. *clr
  147. menu_off = 1
  148. minut += 60
  149. money += 90
  150. barbershop_wrk_day = daystart
  151. gs 'stat'
  152. 'You work diligently and fast. You clean the floor, take out the trash, dust off the shelves and wipe some mirrors and windows. Before you know an hour has passed and you''re 90 <b>₽</b> richer.'
  153. act 'Leave': gt 'barbershop','start'
  154. end
  155. end
  156. if $ARGS[0] = 'cuthair':
  157. cla
  158. *clr
  159. menu_off = 1
  160. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  161. 'You look at your yourself in the mirror then ask Mr. Syomin if you can get your hair cut.'
  162. '"Of course, how would you like your hair cut?", he asks you.'
  163. if pcs_hairlng > 10:
  164. act 'Very short':
  165. cla
  166. *clr
  167. money -= 700
  168. 'You sit down and say, "I want my hair to be very short."'
  169. '"Of course", he says with a friendly smile on her face, while leading you to a free seat.'
  170. act 'Sit down':
  171. *clr & cla
  172. minut += 30
  173. pcs_hairlng = 10
  174. gs 'stat'
  175. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  176. 'About half an hour later he is done and shows you your very short buzzcut.'
  177. 'You stand up and pay Mr. Syomin at the counter.'
  178. act 'Stand up':gt 'barbershop', 'start'
  179. end
  180. end
  181. end
  182. if pcs_hairlng > 31:
  183. act 'Short, but not too short':
  184. cla
  185. *clr
  186. money -= 700
  187. '"I''d like to have my hair cut short, but it shouldn''t get too short. I hope, you know what I mean.", you tell him, hoping he wouldn''t cut everything off.'
  188. '"I know what you mean, that''s not problem at all", he says, then he turns around one of the free seats and makes a gesture to you, to sit down.'
  189. act 'Sit down':
  190. if pcs_hairlng > 60:
  191. cla
  192. *clr
  193. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  194. act 'Yes':
  195. *clr & cla
  196. minut += 20
  197. pcs_hairlng = 31
  198. hbangs = 1
  199. pcs_hairbsh = 1
  200. gs 'stat'
  201. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  202. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle, which barely reaches your earlobes.'
  203. 'You stand up and pay Mr. Syomin at the counter.'
  204. act 'Stand up':gt 'barbershop', 'start'
  205. end
  206. act 'No':
  207. *clr & cla
  208. minut += 20
  209. pcs_hairlng = 31
  210. hbangs = 0
  211. pcs_hairbsh = 1
  212. gs 'stat'
  213. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  214. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle, which barely reaches your earlobes.'
  215. 'You stand up and pay Mr. Syomin at the counter.'
  216. act 'Stand up':gt 'barbershop', 'start'
  217. end
  218. else
  219. *clr & cla
  220. minut += 20
  221. pcs_hairlng = 31
  222. pcs_hairbsh = 1
  223. gs 'stat'
  224. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  225. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle, which barely reaches your earlobes.'
  226. 'You stand up and pay Mr. Syomin at the counter.'
  227. act 'Stand up':gt 'barbershop', 'start'
  228. end
  229. end
  230. end
  231. end
  232. if pcs_hairlng > 81:
  233. act 'About chin-line length':
  234. cla
  235. *clr
  236. money -= 700
  237. '"Could you cut my hair back to between my chin and shoulder, please?", you ask him.'
  238. '"Sure, no problem", he tells you getting a chair for you ready.'
  239. act 'Sit down.':
  240. if pcs_hairlng > 90:
  241. cla
  242. *clr
  243. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  244. act 'Yes':
  245. *clr & cla
  246. minut += 20
  247. pcs_hairlng = 81
  248. hbangs = 1
  249. pcs_hairbsh = 1
  250. gs 'stat'
  251. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  252. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which goes down to you chin-line and you have a fringe, covering your forehead.'
  253. 'You stand up and pay Mr. Syomin at the counter.'
  254. act 'Stand up':gt 'barbershop', 'start'
  255. end
  256. act 'No':
  257. *clr & cla
  258. minut += 30
  259. pcs_hairlng = 81
  260. hbangs = 0
  261. pcs_hairbsh = 1
  262. gs 'stat'
  263. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  264. '20 minutes later, he is done and shows you your new hairstyle which goes down to you chin-line.'
  265. 'You stand up and pay Mr. Syomin at the counter.'
  266. act 'Stand up':gt 'barbershop', 'start'
  267. end
  268. else
  269. *clr & cla
  270. minut += 20
  271. pcs_hairlng = 31
  272. pcs_hairbsh = 1
  273. gs 'stat'
  274. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  275. '20 minutes later, he is done and shows you your new hairstyle which goes down to you chin-line.'
  276. 'You stand up and pay Mr. Syomin at the counter.'
  277. act 'Stand up':gt 'barbershop', 'start'
  278. end
  279. end
  280. end
  281. end
  282. if pcs_hairlng > 161:
  283. act 'Shoulder Length':
  284. cla
  285. *clr
  286. money -= 700
  287. '"I would like to have my hair cut back to about the height of my shoulder.", you tell him.'
  288. '"Sure, no problem", he tells you, gesturing you, to sit down into a free chair.'
  289. act 'Sit down':
  290. if pcs_hairlng > 170:
  291. cla
  292. *clr
  293. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  294. act 'Yes':
  295. *clr & cla
  296. minut += 20
  297. pcs_hairlng = 161
  298. hbangs = 1
  299. pcs_hairbsh = 1
  300. gs 'stat'
  301. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  302. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which just reaches your shoulders and you have a fringe, covering your forehead.'
  303. 'You stand up and pay Mr. Syomin at the counter.'
  304. act 'Stand up':gt 'barbershop', 'start'
  305. end
  306. act 'No':
  307. *clr & cla
  308. minut += 30
  309. pcs_hairlng = 161
  310. hbangs = 0
  311. pcs_hairbsh = 1
  312. gs 'stat'
  313. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  314. '30 minutes later, he is done cutting your hair. He shows you your new hairstyle which just reaches your shoulders.'
  315. 'You stand up and pay Mr. Syomin at the counter.'
  316. act 'Stand up':gt 'barbershop', 'start'
  317. end
  318. else
  319. *clr & cla
  320. minut += 20
  321. pcs_hairlng = 161
  322. pcs_hairbsh = 1
  323. gs 'stat'
  324. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  325. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which just reaches your shoulders.'
  326. 'You stand up and pay Mr. Syomin at the counter.'
  327. act 'Stand up':gt 'barbershop', 'start'
  328. end
  329. end
  330. end
  331. end
  332. if pcs_hairlng > 261:
  333. act 'About Brastrap length':
  334. cla
  335. *clr
  336. money -= 700
  337. '"Could you cut my hair back to about where my bra-strap sits?", you ask him.'
  338. '"That''s absolutely no problem.", he says, when gesturing you sit down on one of the free seat'
  339. act 'Sit down.':
  340. if pcs_hairlng > 280:
  341. cla
  342. *clr
  343. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  344. act 'Yes':
  345. *clr & cla
  346. minut += 20
  347. pcs_hairlng = 261
  348. hbangs = 1
  349. pcs_hairbsh = 1
  350. gs 'stat'
  351. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  352. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to your bra strap, in addition he made you a fringe, which covers your forehead, as requested.'
  353. 'You stand up and pay Mr. Syomin at the counter.'
  354. act 'Stand up':gt 'barbershop', 'start'
  355. end
  356. act 'No':
  357. *clr & cla
  358. minut += 20
  359. pcs_hairlng = 261
  360. hbangs = 0
  361. pcs_hairbsh = 1
  362. gs 'stat'
  363. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  364. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to your bra strap.'
  365. 'You stand up and pay Mr. Syomin at the counter.'
  366. act 'Stand up':gt 'barbershop', 'start'
  367. end
  368. else
  369. *clr & cla
  370. minut += 20
  371. pcs_hairlng = 261
  372. pcs_hairbsh = 1
  373. gs 'stat'
  374. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  375. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to your bra strap.'
  376. 'You stand up and pay Mr. Syomin at the counter.'
  377. act 'Stand up':gt 'barbershop', 'start'
  378. end
  379. end
  380. end
  381. end
  382. if pcs_hairlng > 401:
  383. act 'About small of back length':
  384. cla
  385. *clr
  386. money -= 700
  387. '"Could you cut my hair back to about the small of my back?", you ask him.'
  388. '"That''s absolutely no problem.", he says, when gesturing you sit down on one of the free seat'
  389. act 'Sit down.':
  390. if pcs_hairlng > 420:
  391. cla
  392. *clr
  393. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  394. act 'Yes':
  395. *clr & cla
  396. minut += 20
  397. pcs_hairlng = 401
  398. hbangs = 1
  399. pcs_hairbsh = 1
  400. gs 'stat'
  401. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  402. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to the small of your back, in addition he made you a fringe, which covers your forehead, as requested.'
  403. 'You stand up and pay Mr. Syomin at the counter.'
  404. act 'Stand up':gt 'barbershop', 'start'
  405. end
  406. act 'No':
  407. *clr & cla
  408. minut += 20
  409. pcs_hairlng = 401
  410. hbangs = 0
  411. pcs_hairbsh = 1
  412. gs 'stat'
  413. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  414. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to the small of your back.'
  415. 'You stand up and pay Mr. Syomin at the counter.'
  416. act 'Stand up':gt 'barbershop', 'start'
  417. end
  418. else
  419. *clr & cla
  420. minut += 20
  421. pcs_hairlng = 401
  422. pcs_hairbsh = 1
  423. gs 'stat'
  424. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  425. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to the small of your back.'
  426. 'You stand up and pay Mr. Syomin at the counter.'
  427. act 'Stand up':gt 'barbershop', 'start'
  428. end
  429. end
  430. end
  431. end
  432. if pcs_hairlng > 601:
  433. act 'About Hip length':
  434. cla
  435. *clr
  436. money -= 700
  437. '"Could you cut my hair back to about the top of my hips?", you ask him.'
  438. '"That''s absolutely no problem.", he says, when gesturing you sit down on one of the free seat'
  439. act 'Sit down.':
  440. if pcs_hairlng > 620:
  441. cla
  442. *clr
  443. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  444. act 'Yes':
  445. *clr & cla
  446. minut += 20
  447. pcs_hairlng = 601
  448. hbangs = 1
  449. pcs_hairbsh = 1
  450. gs 'stat'
  451. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  452. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to the top of your hips, in addition he made you a fringe, which covers your forehead, as requested.'
  453. 'You stand up and pay Mr. Syomin at the counter.'
  454. act 'Stand up':gt 'barbershop', 'start'
  455. end
  456. act 'No':
  457. *clr & cla
  458. minut += 20
  459. pcs_hairlng = 601
  460. hbangs = 0
  461. pcs_hairbsh = 1
  462. gs 'stat'
  463. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  464. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to the top of your hips.'
  465. 'You stand up and pay Mr. Syomin at the counter.'
  466. act 'Stand up':gt 'barbershop', 'start'
  467. end
  468. else
  469. *clr & cla
  470. minut += 20
  471. pcs_hairlng = 601
  472. pcs_hairbsh = 1
  473. gs 'stat'
  474. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  475. '20 minutes later, he is done cutting your hair. He shows you your new hairstyle which reaches down to the top of your hips.'
  476. 'You stand up and pay Mr. Syomin at the counter.'
  477. act 'Stand up':gt 'barbershop', 'start'
  478. end
  479. end
  480. end
  481. end
  482. if pcs_hairlng > 801:
  483. act 'Cut the tips':
  484. cla
  485. *clr
  486. money -= 700
  487. '"I''d like to keep this length, but my tips might need some cutting. Could you do that?", you ask him. '
  488. '"Of course, please sit down.", he says.'
  489. act 'Sit down.':
  490. if pcs_hairlng > 801:
  491. cla
  492. *clr
  493. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  494. act 'Yes':
  495. *clr & cla
  496. minut += 20
  497. pcs_hairlng = 801
  498. hbangs = 1
  499. pcs_hairbsh = 1
  500. gs 'stat'
  501. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  502. '20 minutes later, he is done cutting your hair. He shows you how he trimmed your hair as requested keeping it as much of the length as possible, he cut you a nice fringe, which now covers your forehead.'
  503. 'You stand up and pay Mr. Syomin at the counter.'
  504. act 'Stand up':gt 'barbershop', 'start'
  505. end
  506. act 'No':
  507. *clr & cla
  508. minut += 20
  509. pcs_hairlng = 801
  510. hbangs = 0
  511. pcs_hairbsh = 1
  512. gs 'stat'
  513. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  514. '20 minutes later, he is done cutting your hair. He shows you how he trimmed your hair as requested keeping it as much of the length as possible'
  515. 'You stand up and pay Mr. Syomin at the counter.'
  516. act 'Stand up':gt 'barbershop', 'start'
  517. end
  518. else
  519. *clr & cla
  520. minut += 20
  521. pcs_hairlng = 801
  522. pcs_hairbsh = 1
  523. gs 'stat'
  524. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  525. '20 minutes later, he is done cutting your hair. He shows you how he trimmed your hair as requested keeping it as much of the length as possible'
  526. 'You stand up and pay Mr. Syomin at the counter.'
  527. act 'Stand up':gt 'barbershop', 'start'
  528. end
  529. end
  530. end
  531. end
  532. act 'Change you mind': gt 'barbershop', 'start'
  533. end
  534. if $ARGS[0] = 'perm':
  535. cla
  536. *clr
  537. menu_off = 1
  538. minut += 20
  539. money -= 1500
  540. if defcurly = 0:
  541. curly = rand(12,16)
  542. gs 'stat'
  543. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  544. 'You get your hair curled. It should hold for around 2 weeks.'
  545. else
  546. curly = 2147483647
  547. gs 'stat'
  548. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  549. 'You get your hair curled, as it should be naturally.'
  550. end
  551. act 'Leave': gt 'barbershop', 'start'
  552. end
  553. if $ARGS[0] = 'perm2':
  554. cla
  555. *clr
  556. menu_off = 1
  557. minut += 20
  558. money -= 1500
  559. curly = 0
  560. if defcurly = 0:
  561. gs 'stat'
  562. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  563. 'You get your hair straightened, as it should be naturally.'
  564. else
  565. straight = rand(12,16)
  566. gs 'stat'
  567. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  568. 'You get your hair straightened. It should hold for around 2 weeks.'
  569. end
  570. act 'Leave': gt 'barbershop', 'start'
  571. end
  572. if $ARGS[0] = 'dyehair':
  573. *clr & cla
  574. menu_off = 1
  575. gs 'stat'
  576. 'You ask Mr. Syomin, the barber, if he could dye your hair.'
  577. '"Sure.", he says.'
  578. '"What colour would like to have your hair dyed?"'
  579. act 'Change your mind':gt 'barbershop', 'start'
  580. if pcs_haircol ! nathcol:
  581. act'Restore your hair to its natural colour':
  582. cla
  583. *clr
  584. '"I want to go back to my natural hair colour." you say as you pick at your hair in the mirror, "I don''t think <<$pcs_haircol>> is working for me."'
  585. '"Sure thing!", he says, "Why don''t you take a seat?"'
  586. '"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'
  587. act 'Sit down':
  588. cla
  589. *clr
  590. minut += 45
  591. pcs_haircol = nathcol
  592. money -= 750
  593. gs 'stat'
  594. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  595. 'Less than an hour later your hair is dyed and dried.'
  596. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  597. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  598. act 'Leave':gt 'barbershop', 'start'
  599. end
  600. end
  601. end
  602. if pcs_haircol ! 0:
  603. act 'Black':
  604. cla
  605. *clr
  606. gs 'stat'
  607. '"Black", you say, "I want to have it as dark as possible, please."'
  608. '"Sure thing!", he says, "Why don''t you take a seat?"'
  609. '"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'
  610. act 'Sit down':
  611. cla
  612. *clr
  613. minut += 45
  614. pcs_haircol = 0
  615. dyefade = rand(28,35)
  616. collength = pcs_hairlng
  617. money -= 750
  618. gs 'stat'
  619. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  620. 'Not even an hour later everything seems to have dried up.'
  621. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  622. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  623. act 'Leave':gt 'barbershop', 'start'
  624. end
  625. end
  626. end
  627. if pcs_haircol ! 1:
  628. act 'Brown':
  629. cla
  630. *clr
  631. gs 'stat'
  632. '"I''d like to have my hair brown", you say.'
  633. '"Sure thing!", he answer in a happy tone, "Why don''t you take a seat?"'
  634. '"We''ll be done in no time!", he says.'
  635. act 'Sit down':
  636. cla
  637. *clr
  638. minut += 45
  639. pcs_haircol = 1
  640. dyefade = rand(28,35)
  641. collength = pcs_hairlng
  642. money -= 750
  643. gs 'stat'
  644. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  645. '45 minutes later, everything should be dried up.'
  646. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  647. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  648. act 'Leave':gt 'barbershop', 'start'
  649. end
  650. end
  651. end
  652. if pcs_haircol ! 2:
  653. act 'Red':
  654. cla
  655. *clr
  656. gs 'stat'
  657. '"Red is a colour I''d love to try out.", you say.'
  658. '"Sure thing!", he smiles, "Why don''t you take a seat?"'
  659. '"We''ll be done in no time!", he says as he turns around one of the seats for you.'
  660. act 'Sit down':
  661. cla
  662. *clr
  663. minut += 45
  664. pcs_haircol = 2
  665. dyefade = rand(28,35)
  666. collength = pcs_hairlng
  667. money -= 750
  668. gs 'stat'
  669. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  670. '45 minutes later, everything should be dried up.'
  671. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  672. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  673. act 'Leave':gt 'barbershop', 'start'
  674. end
  675. end
  676. end
  677. if pcs_haircol ! 3:
  678. act 'Blonde':
  679. cla
  680. *clr
  681. gs 'stat'
  682. '"I want to have my hair coloured blonde, please", you tell him.'
  683. '"As you wish, please have a seat.", he says and turns around one of the chairs for you.'
  684. act 'Sit down':
  685. cla
  686. *clr
  687. minut += 45
  688. pcs_haircol = 3
  689. dyefade = rand(28,35)
  690. collength = pcs_hairlng
  691. money -= 750
  692. gs 'stat'
  693. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  694. 'About an hour later, everything should be dried up.'
  695. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  696. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  697. act 'Leave':gt 'barbershop', 'start'
  698. end
  699. end
  700. end
  701. if pcs_haircol ! 4:
  702. act 'Bright Red':
  703. cla
  704. *clr
  705. gs 'stat'
  706. '"I want to try something really different." you tell him.'
  707. '"And what would that be?" Mr. Syomin asks cheerfully.'
  708. '"Really bright red, like a fire truck." you announce.'
  709. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  710. act 'Sit down':
  711. cla
  712. *clr
  713. minut += 45
  714. pcs_haircol = 4
  715. dyefade = rand(23,30)
  716. collength = pcs_hairlng
  717. money -= 750
  718. gs 'stat'
  719. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  720. 'About an hour later, everything should be dried up.'
  721. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  722. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  723. act 'Leave':gt 'barbershop', 'start'
  724. end
  725. end
  726. end
  727. if pcs_haircol ! 5:
  728. act 'Dark Blue':
  729. cla
  730. *clr
  731. gs 'stat'
  732. '"I want to try something really different." you tell him.'
  733. '"And what would that be?" Mr. Syomin asks cheerfully.'
  734. '"I want a really dark blue, almost purple." you announce.'
  735. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  736. act 'Sit down':
  737. cla
  738. *clr
  739. minut += 45
  740. pcs_haircol = 5
  741. dyefade = rand(23,30)
  742. collength = pcs_hairlng
  743. money -= 750
  744. gs 'stat'
  745. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  746. 'About an hour later, everything should be dried up.'
  747. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  748. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  749. act 'Leave':gt 'barbershop', 'start'
  750. end
  751. end
  752. end
  753. if pcs_haircol ! 6:
  754. act 'Medium Blue':
  755. cla
  756. *clr
  757. gs 'stat'
  758. '"I want to try something really different." you tell him.'
  759. '"And what would that be?" Mr. Syomin asks cheerfully.'
  760. '"I feel like trying an electric blue." you announce.'
  761. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  762. act 'Sit down':
  763. cla
  764. *clr
  765. minut += 45
  766. pcs_haircol = 6
  767. dyefade = rand(23,30)
  768. collength = pcs_hairlng
  769. money -= 750
  770. gs 'stat'
  771. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  772. 'About an hour later, everything should be dried up.'
  773. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  774. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  775. act 'Leave':gt 'barbershop', 'start'
  776. end
  777. end
  778. end
  779. if pcs_haircol ! 7:
  780. act 'Light Blue':
  781. cla
  782. *clr
  783. gs 'stat'
  784. '"I want to try something really different." you tell him.'
  785. '"And what would that be?" Mr. Syomin asks cheerfully.'
  786. '"Make my hair light blue, like candy floss." you announce.'
  787. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  788. act 'Sit down':
  789. cla
  790. *clr
  791. minut += 45
  792. pcs_haircol = 7
  793. dyefade = rand(23,30)
  794. collength = pcs_hairlng
  795. money -= 750
  796. gs 'stat'
  797. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  798. 'About an hour later, everything should be dried up.'
  799. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  800. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  801. act 'Leave':gt 'barbershop', 'start'
  802. end
  803. end
  804. end
  805. if pcs_haircol ! 8:
  806. act 'Dark Green':
  807. cla
  808. *clr
  809. gs 'stat'
  810. '"I want to try something really different." you tell him.'
  811. '"And what would that be?" Mr. Syomin asks cheerfully.'
  812. '"I want a deep green, like emerald." you announce.'
  813. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  814. act 'Sit down':
  815. cla
  816. *clr
  817. minut += 45
  818. pcs_haircol = 8
  819. dyefade = rand(23,30)
  820. collength = pcs_hairlng
  821. money -= 750
  822. gs 'stat'
  823. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  824. 'About an hour later, everything should be dried up.'
  825. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  826. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  827. act 'Leave':gt 'barbershop', 'start'
  828. end
  829. end
  830. end
  831. ! if pcs_haircol ! 9:
  832. ! act 'Medium Green':
  833. ! cla
  834. ! *clr
  835. ! gs 'stat'
  836. ! '"I want to try something really different." you tell him.'
  837. ! '"And what would that be?" Mr. Syomin asks cheerfully.'
  838. ! '"I''d like a nice froest green, like summer leaves." you announce.'
  839. ! '"As you wish, although I''not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  840. !
  841. ! act 'Sit down':
  842. ! cla
  843. ! *clr
  844. ! minut += 45
  845. ! pcs_haircol = 9
  846. ! collength = pcs_hairlng
  847. ! money -= 750
  848. ! gs 'stat'
  849. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  850. ! 'About an hour later, everything should be dried up.'
  851. ! 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  852. ! 'You stand up from the chair and pay him 750 <b>₽</b>.'
  853. !
  854. ! act 'Leave':gt 'barbershop', 'start'
  855. ! end
  856. ! end
  857. ! end
  858. if pcs_haircol ! 10:
  859. act 'Light Green':
  860. cla
  861. *clr
  862. gs 'stat'
  863. '"I want to try something really different." you tell him.'
  864. '"And what would that be?" Mr. Syomin asks cheerfully.'
  865. '"Can you do a nice light green, sort of like new leaves?" you ask.'
  866. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  867. act 'Sit down':
  868. cla
  869. *clr
  870. minut += 45
  871. pcs_haircol = 10
  872. dyefade = rand(23,30)
  873. collength = pcs_hairlng
  874. money -= 750
  875. gs 'stat'
  876. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  877. 'About an hour later, everything should be dried up.'
  878. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  879. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  880. act 'Leave':gt 'barbershop', 'start'
  881. end
  882. end
  883. end
  884. if pcs_haircol ! 11:
  885. act 'Dark Pink':
  886. cla
  887. *clr
  888. gs 'stat'
  889. '"I want to try something really different." you tell him.'
  890. '"And what would that be?" Mr. Syomin asks cheerfully.'
  891. '"How about a really dark pink, almost like a cross between purple and red." you tell him with a smile.'
  892. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  893. act 'Sit down':
  894. cla
  895. *clr
  896. minut += 45
  897. pcs_haircol = 11
  898. dyefade = rand(23,30)
  899. collength = pcs_hairlng
  900. money -= 750
  901. gs 'stat'
  902. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  903. 'About an hour later, everything should be dried up.'
  904. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  905. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  906. act 'Leave':gt 'barbershop', 'start'
  907. end
  908. end
  909. end
  910. if pcs_haircol ! 12:
  911. act 'Medium Pink':
  912. cla
  913. *clr
  914. gs 'stat'
  915. '"I want to try something really different." you tell him.'
  916. '"And what would that be?" Mr. Syomin asks cheerfully.'
  917. '"I want it to be pink like bubble gum with maybe a few really light pink streaks." you announce.'
  918. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  919. act 'Sit down':
  920. cla
  921. *clr
  922. minut += 45
  923. pcs_haircol = 12
  924. dyefade = rand(23,30)
  925. collength = pcs_hairlng
  926. money -= 750
  927. gs 'stat'
  928. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  929. 'About an hour later, everything should be dried up.'
  930. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  931. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  932. act 'Leave':gt 'barbershop', 'start'
  933. end
  934. end
  935. end
  936. if pcs_haircol ! 13:
  937. act 'Light Pink':
  938. cla
  939. *clr
  940. gs 'stat'
  941. '"I want to try something really different." you tell him.'
  942. '"And what would that be?" Mr. Syomin asks cheerfully.'
  943. '"A soft light pink, like candy floss." you announce.'
  944. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  945. act 'Sit down':
  946. cla
  947. *clr
  948. minut += 45
  949. pcs_haircol = 13
  950. dyefade = rand(23,30)
  951. collength = pcs_hairlng
  952. money -= 750
  953. gs 'stat'
  954. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  955. 'About an hour later, everything should be dried up.'
  956. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  957. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  958. act 'Leave':gt 'barbershop', 'start'
  959. end
  960. end
  961. end
  962. if pcs_haircol ! 14:
  963. act 'Dark Purple':
  964. cla
  965. *clr
  966. gs 'stat'
  967. '"I want to try something really different." you tell him.'
  968. '"And what would that be?" Mr. Syomin asks cheerfully.'
  969. '"I want it nice dark purple, like a dark wine." you announce.'
  970. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  971. act 'Sit down':
  972. cla
  973. *clr
  974. minut += 45
  975. pcs_haircol = 14
  976. dyefade = rand(23,30)
  977. collength = pcs_hairlng
  978. money -= 750
  979. gs 'stat'
  980. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  981. 'About an hour later, everything should be dried up.'
  982. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  983. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  984. act 'Leave':gt 'barbershop', 'start'
  985. end
  986. end
  987. end
  988. if pcs_haircol ! 15:
  989. act 'Medium Purple':
  990. cla
  991. *clr
  992. gs 'stat'
  993. '"I want to try something really different." you tell him.'
  994. '"And what would that be?" Mr. Syomin asks cheerfully.'
  995. '"I''m leaning towards purple, not so dark that you can''t tell it is purple, you know?" you tell him.'
  996. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  997. act 'Sit down':
  998. cla
  999. *clr
  1000. minut += 45
  1001. pcs_haircol = 15
  1002. dyefade = rand(23,30)
  1003. collength = pcs_hairlng
  1004. money -= 750
  1005. gs 'stat'
  1006. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  1007. 'About an hour later, everything should be dried up.'
  1008. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  1009. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  1010. act 'Leave':gt 'barbershop', 'start'
  1011. end
  1012. end
  1013. end
  1014. if pcs_haircol ! 16:
  1015. act 'Light Purple':
  1016. cla
  1017. *clr
  1018. gs 'stat'
  1019. '"I want to try something really different." you tell him.'
  1020. '"And what would that be?" Mr. Syomin asks cheerfully.'
  1021. '"I''m thinking a really light purple, like grape soda." you announce.'
  1022. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  1023. act 'Sit down':
  1024. cla
  1025. *clr
  1026. minut += 45
  1027. pcs_haircol = 16
  1028. dyefade = rand(23,30)
  1029. collength = pcs_hairlng
  1030. money -= 750
  1031. gs 'stat'
  1032. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  1033. 'About an hour later, everything should be dried up.'
  1034. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  1035. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  1036. act 'Leave':gt 'barbershop', 'start'
  1037. end
  1038. end
  1039. end
  1040. if pcs_haircol ! 17:
  1041. act 'Orange':
  1042. cla
  1043. *clr
  1044. gs 'stat'
  1045. '"I want to try something really different." you tell him.'
  1046. '"And what would that be?" Mr. Syomin asks cheerfully.'
  1047. '"Really orange, like a fox." you announce.'
  1048. '"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
  1049. act 'Sit down':
  1050. cla
  1051. *clr
  1052. minut += 45
  1053. pcs_haircol = 17
  1054. dyefade = rand(23,30)
  1055. collength = pcs_hairlng
  1056. money -= 750
  1057. gs 'stat'
  1058. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  1059. 'About an hour later, everything should be dried up.'
  1060. 'Mr. Syomin removes the dryer hood. "And we''re all done."'
  1061. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  1062. act 'Leave':gt 'barbershop', 'start'
  1063. end
  1064. end
  1065. end
  1066. end
  1067. if $ARGS[0] = 'touchup':
  1068. cla
  1069. *clr
  1070. menu_off = 1
  1071. minut += 45
  1072. dyefade = rand(35,42)
  1073. collength = pcs_hairlng
  1074. money -= 375
  1075. gs 'stat'
  1076. 'The hairdresser nods her head excitedly and leads you to an empty chair.'
  1077. 'She has a bubbly personality, chatting about this and that without pause or much feedback from you, but you don''t mind as it keeps you distracted while you go through the usual wash and dry routine.'
  1078. 'She flits around your head with her tools, and before you know it, your hair is restored to its earlier luster and color.'
  1079. 'You stand up from the chair and pay her 375 <b>₽</b>.'
  1080. act 'Move away':gt 'barbershop', 'start'
  1081. end
  1082. if $ARGS[0] = 'touchup2':
  1083. cla
  1084. *clr
  1085. menu_off = 1
  1086. 'The hairdresser smiles apologetically, "Sorry, but you''re going to need a completely new dye job to cover that up. I can do it, if you want? It''s only 750 <b>₽</b>."'
  1087. act 'Sure':
  1088. cla
  1089. *clr
  1090. minut += 45
  1091. dyefade = rand(35,42)
  1092. collength = pcs_hairlng
  1093. money -= 750
  1094. gs 'stat'
  1095. 'About an hour later, everything should be dried up.'
  1096. 'The hairdresser removes the dryer hood. "And we''re all done."'
  1097. 'You stand up from the chair and pay her 750 <b>₽</b>.'
  1098. act 'Move away':gt 'barbershop', 'start'
  1099. end
  1100. act 'No thanks':gt 'barbershop', 'start'
  1101. end
  1102. !!! Maruda Hair Mod
  1103. --- barbershop ---------------------------------