1
0

barbershop.qsrc 39 KB

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