hairsalon.qsrc 33 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174
  1. # hairsalon
  2. if $ARGS[0] = 'start':
  3. cla
  4. cls
  5. '<center><b><font color="maroon">The Golden Curl Salon</font></b></center>'
  6. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/golden curl/golden curl.jpg"</center>'
  7. '<center>A well reviewed hair salon, capable of creating the most beautiful hairstyles. For a price of course.</center>'
  8. '<center>Next to the check out are two aisles filled with premium merchandise for you hair, including Scrunchies, Hairpins and Shampoo.</center>'
  9. clr
  10. gs 'stat'
  11. if night_mode = 1:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(0, 0, 0)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. if hour =< 8 or hour >= 20:
  21. cls
  22. 'The hair salon is closed. You should come back during their working hours.'
  23. act 'Leave':minut += 3 & gt 'torgcentr'
  24. exit
  25. end
  26. *nl
  27. '<a href=' + iif(money >= 750, '"exec:gt ''hairsalon'', ''cuthair''"', '') + '>Get a haircut - 750 <b>₽</b></a>'
  28. *nl
  29. '<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''curlhair''"', '') + '>Get your hair curled - 500 <b>₽</b></a>'
  30. *nl
  31. '<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''straighthair''"', '') + '>Get your hair straightened - 500 <b>₽</b></a>'
  32. *nl
  33. '<a href=' + iif(money >= 1000, '"exec:gt ''hairsalon'', ''dyehair''"', '') + '>Get your hair dyed - 1000 <b>₽</b></a>'
  34. *nl
  35. if dyefade > 0 and dyefade < 7:
  36. '<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''touchup''"', '') + '>Touch up hair color - 500 <b>₽</b></a>'
  37. *nl
  38. elseif dyefade = 0:
  39. '<a href=' + iif(money >= 1000, '"exec:gt ''hairsalon'', ''touchup2''"', '') + '>Re-dye your existing hair color - 1000 <b>₽</b></a>'
  40. *nl
  41. end
  42. '<a href=' + iif(money >= 1250, '"exec:gt ''hairsalon'', ''braidhair''"', '') + '>Get your hair braided - 1250 <b>₽</b></a>'
  43. act 'Leave':minut += 3 & gt 'torgcentr'
  44. if money >= 100:
  45. act 'Buy Scrunchies - 100 <b>₽</b>':
  46. cls
  47. money -= 100
  48. hscrunch += 10
  49. 'You pay the cashier and bought the small box.'
  50. act 'Move away':gt 'hairsalon', 'start'
  51. end
  52. end
  53. if money >= 120:
  54. act 'Buy Hair accessories - 120 <b>₽</b>':
  55. cls
  56. money -= 120
  57. hpingrip += 10
  58. 'You pay the cashier and bought the small box.'
  59. act 'Move away':gt 'hairsalon', 'start'
  60. end
  61. end
  62. end
  63. if $ARGS[0] = 'cuthair':
  64. cla
  65. *clr
  66. 'You approach the female hairdresser and ask, "Hi, I would like to get my hair cut. Can someone do it now or do I have to wait?"'
  67. 'She smiles, "Sure thing, have you already decided on how much we shall cut off?"'
  68. act 'Change your mind':gt 'hairsalon', 'start'
  69. if pcs_hairlng > 10:
  70. act 'Very short':
  71. cla
  72. *clr
  73. '"I''d like to have my hair cut very short", you say.'
  74. '"Of course", she says with a friendly smile on her face, while leading you to a free seat.'
  75. '"Yes, please", you answer and sit down.'
  76. act 'Sit down':
  77. cla
  78. *clr
  79. minut += 30
  80. pcs_hairlng = 10
  81. money -= 750
  82. 'About half an hour later she is done and what''s left from you former hairstyle is a very short buzzcut.'
  83. 'You stand up and pay the women at the counter.'
  84. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  85. end
  86. end
  87. end
  88. if pcs_hairlng > 31:
  89. act 'Short, but not too short':
  90. cla
  91. *clr
  92. '"I''d like to have my hair cut short, but not too short", you tell her.'
  93. '"I know what you mean, that''s not problem at all", she says, as she turns around one of the free seats and makes a gesture to you, to sit down.'
  94. act 'Sit down':
  95. if pcs_hairlng > 60:
  96. cla
  97. *clr
  98. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  99. act 'Yes':
  100. cla
  101. *clr
  102. minut += 30
  103. pcs_hairlng = 31
  104. hbangs = 1
  105. pcs_hairbsh = 1
  106. money -= 750
  107. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  108. 'You stand up and pay the women at the counter.'
  109. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  110. end
  111. act 'No':
  112. cla
  113. *clr
  114. minut += 30
  115. pcs_hairlng = 31
  116. hbangs = 0
  117. pcs_hairbsh = 1
  118. money -= 750
  119. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  120. 'You stand up and pay the women at the counter.'
  121. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  122. end
  123. else
  124. cla
  125. *clr
  126. minut += 30
  127. pcs_hairlng = 31
  128. pcs_hairbsh = 1
  129. money -= 750
  130. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  131. 'You stand up and pay the women at the counter.'
  132. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  133. end
  134. end
  135. end
  136. end
  137. if pcs_hairlng > 81:
  138. act 'About chin-line length':
  139. cla
  140. *clr
  141. '"Could you cut my hair back to my chin line, please?", you ask her.'
  142. '"Sure, no problem", she tells you getting a chair for you ready.'
  143. act 'Sit down.':
  144. if pcs_hairlng > 90:
  145. cla
  146. *clr
  147. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  148. act 'Yes':
  149. cla
  150. *clr
  151. minut += 30
  152. pcs_hairlng = 81
  153. hbangs = 1
  154. pcs_hairbsh = 1
  155. money -= 750
  156. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line and you have a fringe, covering your forehead.'
  157. 'You stand up and pay the women at the counter.'
  158. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  159. end
  160. act 'No':
  161. cla
  162. *clr
  163. minut += 30
  164. pcs_hairlng = 81
  165. hbangs = 0
  166. pcs_hairbsh = 1
  167. money -= 750
  168. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
  169. 'You stand up and pay the women at the counter.'
  170. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  171. end
  172. else
  173. cla
  174. *clr
  175. minut += 30
  176. pcs_hairlng = 31
  177. pcs_hairbsh = 1
  178. money -= 750
  179. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
  180. 'You stand up and pay the women at the counter.'
  181. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  182. end
  183. end
  184. end
  185. end
  186. if pcs_hairlng > 161:
  187. act 'Shoulder Length':
  188. cla
  189. *clr
  190. '"I would like to have my hair cut back to about the height of my shoulder. Would you please be so kind and do that?", you ask her.'
  191. '"Sure, no problem", she tells you, geasturing you, to sit down into a free chair.'
  192. act 'Sit down.':
  193. if pcs_hairlng > 170:
  194. cla
  195. *clr
  196. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  197. act 'Yes':
  198. cla
  199. *clr
  200. minut += 30
  201. pcs_hairlng = 161
  202. hbangs = 1
  203. pcs_hairbsh = 1
  204. money -= 750
  205. '30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders and you have a fringe, covering your forehead.'
  206. 'You stand up and pay the women at the counter.'
  207. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  208. end
  209. act 'No':
  210. cla
  211. *clr
  212. minut += 30
  213. pcs_hairlng = 161
  214. hbangs = 0
  215. pcs_hairbsh = 1
  216. money -= 750
  217. '30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
  218. 'You stand up and pay the women at the counter.'
  219. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  220. end
  221. else
  222. cla
  223. *clr
  224. minut += 30
  225. pcs_hairlng = 161
  226. pcs_hairbsh = 1
  227. money -= 750
  228. '30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
  229. 'You stand up and pay the women at the counter.'
  230. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  231. end
  232. end
  233. end
  234. end
  235. if pcs_hairlng > 261:
  236. act 'About Brastrap length':
  237. cla
  238. *clr
  239. '"Could you cut my hair back to where my bra-strap sits?", you ask her.'
  240. '"That''s absolutely no problem.", she says, when gesturing you sit down on one of the free seat'
  241. act 'Sit down.':
  242. if pcs_hairlng > 280:
  243. cla
  244. *clr
  245. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  246. act 'Yes':
  247. cla
  248. *clr
  249. minut += 30
  250. pcs_hairlng = 261
  251. hbangs = 1
  252. pcs_hairbsh = 1
  253. money -= 750
  254. '30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits, in addition she made you a fringe, covering your forehead, as requested.'
  255. 'You stand up and pay the women at the counter.'
  256. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  257. end
  258. act 'No':
  259. cla
  260. *clr
  261. minut += 30
  262. pcs_hairlng = 261
  263. hbangs = 0
  264. pcs_hairbsh = 1
  265. money -= 750
  266. '30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  267. 'You stand up and pay the women at the counter.'
  268. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  269. end
  270. else
  271. cla
  272. *clr
  273. minut += 30
  274. pcs_hairlng = 261
  275. pcs_hairbsh = 1
  276. money -= 750
  277. '30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  278. 'You stand up and pay the women at the counter.'
  279. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  280. end
  281. end
  282. end
  283. end
  284. if pcs_hairlng > 401:
  285. act 'About Back Length':
  286. cla
  287. *clr
  288. '"Could you cut my hair back to about the small of my back?", you ask her.'
  289. '"That''s absolutely no problem.", she says, when gesturing you sit down on one of the free seat'
  290. act 'Sit down.':
  291. if pcs_hairlng > 401:
  292. cla
  293. *clr
  294. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  295. act 'Yes':
  296. cla
  297. *clr
  298. minut += 30
  299. pcs_hairlng = 401
  300. hbangs = 1
  301. pcs_hairbsh = 1
  302. money -= 750
  303. '30 minutes later, she is done cutting your hair. She cut your hair back to the small of your back, in addition she made you a fringe, covering your forehead, as requested.'
  304. 'You stand up and pay the women at the counter.'
  305. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  306. end
  307. act 'No':
  308. cla
  309. *clr
  310. minut += 30
  311. pcs_hairlng = 401
  312. hbangs = 0
  313. pcs_hairbsh = 1
  314. money -= 750
  315. '30 minutes later, she is done cutting your hair. She cut your hair back to the small of your back.'
  316. 'You stand up and pay the women at the counter.'
  317. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  318. end
  319. else
  320. cla
  321. *clr
  322. minut += 30
  323. pcs_hairlng = 401
  324. pcs_hairbsh = 1
  325. money -= 750
  326. '30 minutes later, she is done cutting your hair. She cut your hair back to the small of your back.'
  327. 'You stand up and pay the women at the counter.'
  328. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  329. end
  330. end
  331. end
  332. end
  333. if pcs_hairlng > 601:
  334. act 'About Hip length':
  335. cla
  336. *clr
  337. '"Could you cut my hair back to about the top of your hips?", you ask her.'
  338. '"That''s absolutely no problem.", she says, when gesturing you sit down on one of the free seat'
  339. act 'Sit down.':
  340. if pcs_hairlng > 601:
  341. cla
  342. *clr
  343. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  344. act 'Yes':
  345. cla
  346. *clr
  347. minut += 30
  348. pcs_hairlng = 601
  349. hbangs = 1
  350. pcs_hairbsh = 1
  351. money -= 750
  352. '30 minutes later, she is done cutting your hair. She cut your hair back to about the top of your hips, in addition she made you a fringe, covering your forehead, as requested.'
  353. 'You stand up and pay the women at the counter.'
  354. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  355. end
  356. act 'No':
  357. cla
  358. *clr
  359. minut += 30
  360. pcs_hairlng = 601
  361. hbangs = 0
  362. pcs_hairbsh = 1
  363. money -= 750
  364. '30 minutes later, she is done cutting your hair. She cut your hair back to about the top of your hips.'
  365. 'You stand up and pay the women at the counter.'
  366. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  367. end
  368. else
  369. cla
  370. *clr
  371. minut += 30
  372. pcs_hairlng = 601
  373. pcs_hairbsh = 1
  374. money -= 750
  375. '30 minutes later, she is done cutting your hair. She cut your hair back to about the top of your hips.'
  376. 'You stand up and pay the women at the counter.'
  377. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  378. end
  379. end
  380. end
  381. end
  382. if pcs_hairlng > 801:
  383. act 'Cut the tips':
  384. cla
  385. *clr
  386. '"Could you cut my hair back a bit?", you ask her. '
  387. '"Wow, your hair is beautiful! But, sure, that''s no problem.", she tells you, geasturing you, to sit down into a free chair.'
  388. act 'Sit down.':
  389. if pcs_hairlng > 801:
  390. cla
  391. *clr
  392. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  393. act 'Yes':
  394. cla
  395. *clr
  396. minut += 30
  397. pcs_hairlng = 801
  398. hbangs = 1
  399. pcs_hairbsh = 1
  400. money -= 750
  401. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter and as requested, she cut you a nice fringe, , which now covers your forehead.'
  402. 'You stand up and pay the women at the counter.'
  403. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  404. end
  405. act 'No':
  406. cla
  407. *clr
  408. minut += 30
  409. pcs_hairlng = 801
  410. hbangs = 0
  411. pcs_hairbsh = 1
  412. money -= 750
  413. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter.'
  414. 'You stand up and pay the women at the counter.'
  415. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  416. end
  417. else
  418. cla
  419. *clr
  420. minut += 30
  421. pcs_hairlng = 801
  422. pcs_hairbsh = 1
  423. money -= 750
  424. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter. '
  425. 'You stand up and pay the women at the counter.'
  426. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  427. end
  428. end
  429. end
  430. end
  431. end
  432. if $ARGS[0] = 'straighthair':
  433. cls
  434. if pcs_hairlng <= 80:
  435. '"Sorry, your hair is too short to straightened."'
  436. act 'Move away':gt 'hairsalon', 'start'
  437. elseif straight >= 10 or (defcurly = 0 and curly = 0):
  438. '"Your hair is already as straight as I can make it."'
  439. act 'Move away':gt 'hairsalon', 'start'
  440. elseif hbraids > 0:
  441. '"Your hair is in braids right now, to straighten it I would have to remove them. Is that what you want me to do?"'
  442. act 'Yes':
  443. cla
  444. minut += 20
  445. hbraids = 0
  446. money -= 500
  447. curly = 0
  448. if defcurly = 0:
  449. 'Your braids were removed and your hair was straightened back to its original shape.'
  450. else
  451. straight = rand(14,21)
  452. 'Your braids were removed and your hair was straightened instead.'
  453. end
  454. gs 'stat'
  455. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  456. end
  457. act 'No':gt 'hairsalon', 'start'
  458. else
  459. minut += 20
  460. curly = 0
  461. if defcurly = 0:
  462. 'Your hair is straightened back to its original shape.'
  463. else
  464. straight = rand(14,21)
  465. 'Your hair is straightened.'
  466. end
  467. money -= 500
  468. gs 'stat'
  469. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  470. end
  471. end
  472. if $ARGS[0] = 'curlhair':
  473. cls
  474. if pcs_hairlng <= 80:
  475. '"Sorry, your hair is too short to curl."'
  476. act 'Move away':gt 'hairsalon', 'start'
  477. elseif curly >= 10:
  478. '"Your hair is already as curly as I can make it."'
  479. act 'Move away':gt 'hairsalon', 'start'
  480. elseif hbraids > 0:
  481. '"Your hair is in braids right now, to curl it I would have to remove them. Is that what you want me to do?"'
  482. act 'Yes':
  483. cla
  484. minut += 20
  485. hbraids = 0
  486. money -= 500
  487. if defcurly = 0:
  488. curly = rand(14,21)
  489. 'Your braids were removed and your hair was curled instead.'
  490. else
  491. curly = 2147483647
  492. 'Your braids were removed and your hair was curled back to its original shape.'
  493. end
  494. gs 'stat'
  495. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  496. end
  497. act 'No':gt 'hairsalon', 'start'
  498. else
  499. minut += 20
  500. money -= 500
  501. if defcurly = 0:
  502. curly = rand(14,21)
  503. 'You have your hair curled.'
  504. else
  505. curly = 2147483647
  506. 'You have your hair curled back to its original shape.'
  507. end
  508. gs 'stat'
  509. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  510. end
  511. end
  512. if $ARGS[0] = 'dyehair':
  513. clr
  514. cla
  515. 'You ask the hairdresser, if she could dye your hair.'
  516. '"Sure.", she says.'
  517. '"What colour would like to have your hair dyed?"'
  518. act 'Change your mind':gt 'hairsalon', 'start'
  519. if pcs_haircol ! nathcol:
  520. act'Return to natural colour':
  521. cla
  522. *clr
  523. '"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."'
  524. '"Sure thing!", she says in a chearful way, "Why don''t you take a seat?"'
  525. '"We''ll be done in no time!", she says and points your over to sit down on one of the seats.'
  526. act 'Sit down':
  527. cla
  528. *clr
  529. minut += 60
  530. money -= 1000
  531. pcs_haircol = nathcol
  532. 'About an hour later your hair is dyed and dried.'
  533. 'The hairdresser removes the dryer hood. "And we''re all done."'
  534. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  535. act 'Move away':gt 'hairsalon', 'start'
  536. end
  537. end
  538. end
  539. if pcs_haircol ! 0:
  540. act 'Black':
  541. cla
  542. *clr
  543. '"Black", you say, "I want it to be raven black, dark as the night, please."'
  544. '"Sure thing!", she answers in a happy tone, "Why don''t you take a seat?"'
  545. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  546. act 'Sit down':
  547. cla
  548. *clr
  549. minut += 60
  550. pcs_haircol = 0
  551. dyefade = rand(35,42)
  552. collength = pcs_hairlng
  553. money -= 1000
  554. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  555. 'She removes the dryer hood. "And we''re all done."'
  556. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  557. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  558. end
  559. end
  560. end
  561. if pcs_haircol ! 1:
  562. act 'Brown':
  563. cla
  564. *clr
  565. '"I''d like to have my hair brown", you say.'
  566. '"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
  567. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  568. act 'Sit down':
  569. cla
  570. *clr
  571. minut += 60
  572. pcs_haircol = 1
  573. dyefade = rand(35,42)
  574. collength = pcs_hairlng
  575. money -= 1000
  576. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  577. 'She removes the dryer hood. "And we''re all done."'
  578. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  579. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  580. end
  581. end
  582. end
  583. if pcs_haircol ! 2:
  584. act 'Red':
  585. cla
  586. *clr
  587. '"I''d like to have my in a fiercely red", you say with a devilish grin.'
  588. '"Sure thing!", she laughs, "Why don''t you take a seat?"'
  589. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  590. act 'Sit down':
  591. cla
  592. *clr
  593. minut += 60
  594. pcs_haircol = 2
  595. dyefade = rand(35,42)
  596. collength = pcs_hairlng
  597. money -= 1000
  598. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  599. 'She removes the dryer hood. "And we''re all done."'
  600. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  601. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  602. end
  603. end
  604. end
  605. if pcs_haircol ! 3:
  606. act 'Blonde':
  607. cla
  608. *clr
  609. '"Blonde! Blondes have more fun. I want to see if that is true!", you giggle.'
  610. '"Blondes definately have more fun!", she says with a wink, "Why don''t you take a seat?"'
  611. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  612. act 'Sit down':
  613. cla
  614. *clr
  615. minut += 60
  616. pcs_haircol = 3
  617. dyefade = rand(35,42)
  618. collength = pcs_hairlng
  619. money -= 1000
  620. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  621. 'She removes the dryer hood. "And we''re all done."'
  622. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  623. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  624. end
  625. end
  626. end
  627. if pcs_haircol ! 4:
  628. act 'Bright Red':
  629. cla
  630. *clr
  631. gs 'stat'
  632. '"I want to try something really different." you tell her.'
  633. '"And what would that be?" The hairdresser asks cheerfully.'
  634. '"Really bright red, like a fire truck." you announce.'
  635. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  636. act 'Sit down':
  637. cla
  638. *clr
  639. minut += 45
  640. pcs_haircol = 4
  641. dyefade = rand(35,42)
  642. collength = pcs_hairlng
  643. money -= 1000
  644. gs 'stat'
  645. 'About an hour later, everything should be dried up.'
  646. 'The hairdresser removes the dryer hood. "And we''re all done."'
  647. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  648. act 'Move away':gt 'hairsalon', 'start'
  649. end
  650. end
  651. end
  652. if pcs_haircol ! 5:
  653. act 'Dark Blue':
  654. cla
  655. *clr
  656. gs 'stat'
  657. '"I want to try something really different." you tell her.'
  658. '"And what would that be?" The hairdresser asks cheerfully.'
  659. '"I want a really dark blue, almost purple." you announce.'
  660. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  661. act 'Sit down':
  662. cla
  663. *clr
  664. minut += 45
  665. pcs_haircol = 5
  666. dyefade = rand(35,42)
  667. collength = pcs_hairlng
  668. money -= 1000
  669. gs 'stat'
  670. 'About an hour later, everything should be dried up.'
  671. 'The hairdresser removes the dryer hood. "And we''re all done."'
  672. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  673. act 'Move away':gt 'hairsalon', 'start'
  674. end
  675. end
  676. end
  677. if pcs_haircol ! 6:
  678. act 'Medium Blue':
  679. cla
  680. *clr
  681. gs 'stat'
  682. '"I want to try something really different." you tell her.'
  683. '"And what would that be?" The hairdresser asks cheerfully.'
  684. '"I feel like trying an electric blue." you announce.'
  685. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  686. act 'Sit down':
  687. cla
  688. *clr
  689. minut += 45
  690. pcs_haircol = 6
  691. dyefade = rand(35,42)
  692. collength = pcs_hairlng
  693. money -= 1000
  694. gs 'stat'
  695. 'About an hour later, everything should be dried up.'
  696. 'The hairdresser removes the dryer hood. "And we''re all done."'
  697. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  698. act 'Move away':gt 'hairsalon', 'start'
  699. end
  700. end
  701. end
  702. if pcs_haircol ! 7:
  703. act 'Light Blue':
  704. cla
  705. *clr
  706. gs 'stat'
  707. '"I want to try something really different." you tell her.'
  708. '"And what would that be?" The hairdresser asks cheerfully.'
  709. '"Make my hair light blue, like candy floss." you announce.'
  710. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  711. act 'Sit down':
  712. cla
  713. *clr
  714. minut += 45
  715. pcs_haircol = 7
  716. dyefade = rand(35,42)
  717. collength = pcs_hairlng
  718. money -= 1000
  719. gs 'stat'
  720. 'About an hour later, everything should be dried up.'
  721. 'The hairdresser removes the dryer hood. "And we''re all done."'
  722. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  723. act 'Move away':gt 'hairsalon', 'start'
  724. end
  725. end
  726. end
  727. if pcs_haircol ! 8:
  728. act 'Dark Green':
  729. cla
  730. *clr
  731. gs 'stat'
  732. '"I want to try something really different." you tell her.'
  733. '"And what would that be?" The hairdresser asks cheerfully.'
  734. '"I want a deep green, like emerald." you announce.'
  735. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  736. act 'Sit down':
  737. cla
  738. *clr
  739. minut += 45
  740. pcs_haircol = 8
  741. dyefade = rand(35,42)
  742. collength = pcs_hairlng
  743. money -= 1000
  744. gs 'stat'
  745. 'About an hour later, everything should be dried up.'
  746. 'The hairdresser removes the dryer hood. "And we''re all done."'
  747. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  748. act 'Move away':gt 'hairsalon', 'start'
  749. end
  750. end
  751. end
  752. ! if pcs_haircol ! 9:
  753. ! act 'Medium Green':
  754. ! cla
  755. ! *clr
  756. ! gs 'stat'
  757. ! '"I want to try something really different." you tell her.'
  758. ! '"And what would that be?" The hairdresser asks cheerfully.'
  759. ! '"I''d like a nice froest green, like summer leaves." you announce.'
  760. ! '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  761. !
  762. ! act 'Sit down':
  763. ! cla
  764. ! *clr
  765. ! minut += 45
  766. ! pcs_haircol = 9
  767. ! collength = pcs_hairlng
  768. ! money -= 1000
  769. ! gs 'stat'
  770. ! 'About an hour later, everything should be dried up.'
  771. ! 'The hairdresser removes the dryer hood. "And we''re all done."'
  772. ! 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  773. !
  774. ! act 'Move away':gt 'hairsalon', 'start'
  775. ! end
  776. ! end
  777. ! end
  778. if pcs_haircol ! 10:
  779. act 'Light Green':
  780. cla
  781. *clr
  782. gs 'stat'
  783. '"I want to try something really different." you tell her.'
  784. '"And what would that be?" The hairdresser asks cheerfully.'
  785. '"Can you do a nice light green, sort of like new leaves?" you ask.'
  786. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  787. act 'Sit down':
  788. cla
  789. *clr
  790. minut += 45
  791. pcs_haircol = 10
  792. dyefade = rand(35,42)
  793. collength = pcs_hairlng
  794. money -= 1000
  795. gs 'stat'
  796. 'About an hour later, everything should be dried up.'
  797. 'The hairdresser removes the dryer hood. "And we''re all done."'
  798. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  799. act 'Move away':gt 'hairsalon', 'start'
  800. end
  801. end
  802. end
  803. if pcs_haircol ! 11:
  804. act 'Dark Pink':
  805. cla
  806. *clr
  807. gs 'stat'
  808. '"I want to try something really different." you tell her.'
  809. '"And what would that be?" The hairdresser asks cheerfully.'
  810. '"How about a really dark pink, almost like a cross between purple and red." you tell her with a smile.'
  811. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  812. act 'Sit down':
  813. cla
  814. *clr
  815. minut += 45
  816. pcs_haircol = 11
  817. dyefade = rand(35,42)
  818. collength = pcs_hairlng
  819. money -= 1000
  820. gs 'stat'
  821. 'About an hour later, everything should be dried up.'
  822. 'The hairdresser removes the dryer hood. "And we''re all done."'
  823. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  824. act 'Move away':gt 'hairsalon', 'start'
  825. end
  826. end
  827. end
  828. if pcs_haircol ! 12:
  829. act 'Medium Pink':
  830. cla
  831. *clr
  832. gs 'stat'
  833. '"I want to try something really different." you tell her.'
  834. '"And what would that be?" The hairdresser asks cheerfully.'
  835. '"I want it to be pink like bubble gum with maybe a few really light pink streaks." you announce.'
  836. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  837. act 'Sit down':
  838. cla
  839. *clr
  840. minut += 45
  841. pcs_haircol = 12
  842. dyefade = rand(35,42)
  843. collength = pcs_hairlng
  844. money -= 1000
  845. gs 'stat'
  846. 'About an hour later, everything should be dried up.'
  847. 'The hairdresser removes the dryer hood. "And we''re all done."'
  848. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  849. act 'Move away':gt 'hairsalon', 'start'
  850. end
  851. end
  852. end
  853. if pcs_haircol ! 13:
  854. act 'Light Pink':
  855. cla
  856. *clr
  857. gs 'stat'
  858. '"I want to try something really different." you tell her.'
  859. '"And what would that be?" The hairdresser asks cheerfully.'
  860. '"A soft light pink, like candy floss." you announce.'
  861. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  862. act 'Sit down':
  863. cla
  864. *clr
  865. minut += 45
  866. pcs_haircol = 13
  867. dyefade = rand(35,42)
  868. collength = pcs_hairlng
  869. money -= 1000
  870. gs 'stat'
  871. 'About an hour later, everything should be dried up.'
  872. 'The hairdresser removes the dryer hood. "And we''re all done."'
  873. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  874. act 'Move away':gt 'hairsalon', 'start'
  875. end
  876. end
  877. end
  878. if pcs_haircol ! 14:
  879. act 'Dark Purple':
  880. cla
  881. *clr
  882. gs 'stat'
  883. '"I want to try something really different." you tell her.'
  884. '"And what would that be?" The hairdresser asks cheerfully.'
  885. '"IA nice dark purple, like a dark wine." you announce.'
  886. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  887. act 'Sit down':
  888. cla
  889. *clr
  890. minut += 45
  891. pcs_haircol = 14
  892. dyefade = rand(35,42)
  893. collength = pcs_hairlng
  894. money -= 1000
  895. gs 'stat'
  896. 'About an hour later, everything should be dried up.'
  897. 'The hairdresser removes the dryer hood. "And we''re all done."'
  898. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  899. act 'Move away':gt 'hairsalon', 'start'
  900. end
  901. end
  902. end
  903. if pcs_haircol ! 15:
  904. act 'Medium Purple':
  905. cla
  906. *clr
  907. gs 'stat'
  908. '"I want to try something really different." you tell her.'
  909. '"And what would that be?" The hairdresser asks cheerfully.'
  910. '"I''m leaning towards purple, not so dark that you can''t tell it is purple, you know?" you tell her.'
  911. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  912. act 'Sit down':
  913. cla
  914. *clr
  915. minut += 45
  916. pcs_haircol = 15
  917. dyefade = rand(35,42)
  918. collength = pcs_hairlng
  919. money -= 1000
  920. gs 'stat'
  921. 'About an hour later, everything should be dried up.'
  922. 'The hairdresser removes the dryer hood. "And we''re all done."'
  923. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  924. act 'Move away':gt 'hairsalon', 'start'
  925. end
  926. end
  927. end
  928. if pcs_haircol ! 16:
  929. act 'Light Purple':
  930. cla
  931. *clr
  932. gs 'stat'
  933. '"I want to try something really different." you tell her.'
  934. '"And what would that be?" The hairdresser asks cheerfully.'
  935. '"I''m thinking a really light purple, like grape soda." you announce.'
  936. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  937. act 'Sit down':
  938. cla
  939. *clr
  940. minut += 45
  941. pcs_haircol = 16
  942. dyefade = rand(35,42)
  943. collength = pcs_hairlng
  944. money -= 1000
  945. gs 'stat'
  946. 'About an hour later, everything should be dried up.'
  947. 'The hairdresser removes the dryer hood. "And we''re all done."'
  948. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  949. act 'Move away':gt 'hairsalon', 'start'
  950. end
  951. end
  952. end
  953. if pcs_haircol ! 17:
  954. act 'Orange':
  955. cla
  956. *clr
  957. gs 'stat'
  958. '"I want to try something really different." you tell her.'
  959. '"And what would that be?" The hairdresser asks cheerfully.'
  960. '"Really orange, like a fox." you announce.'
  961. '"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
  962. act 'Sit down':
  963. cla
  964. *clr
  965. minut += 45
  966. pcs_haircol = 17
  967. dyefade = rand(35,42)
  968. collength = pcs_hairlng
  969. money -= 1000
  970. gs 'stat'
  971. 'About an hour later, everything should be dried up.'
  972. 'The hairdresser removes the dryer hood. "And we''re all done."'
  973. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  974. act 'Move away':gt 'hairsalon', 'start'
  975. end
  976. end
  977. end
  978. gs 'stat'
  979. end
  980. if $ARGS[0] = 'touchup':
  981. cla
  982. *clr
  983. minut += 45
  984. dyefade = rand(35,42)
  985. collength = pcs_hairlng
  986. money -= 500
  987. gs 'stat'
  988. 'The hairdresser nods her head excitedly and leads you to an empty chair.'
  989. '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.'
  990. 'She flits around your head with her tools, and before you know it, your hair is restored to its earlier luster and color.'
  991. 'You stand up from the chair and pay her 500 <b>₽</b>.'
  992. act 'Move away':gt 'hairsalon', 'start'
  993. end
  994. if $ARGS[0] = 'touchup2':
  995. cla
  996. *clr
  997. '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 1000 <b>₽</b>."'
  998. act 'Sure':
  999. cla
  1000. *clr
  1001. minut += 45
  1002. dyefade = rand(35,42)
  1003. collength = pcs_hairlng
  1004. money -= 1000
  1005. gs 'stat'
  1006. 'About an hour later, everything should be dried up.'
  1007. 'The hairdresser removes the dryer hood. "And we''re all done."'
  1008. 'You stand up from the chair and pay her 1000 <b>₽</b>.'
  1009. act 'Move away':gt 'hairsalon', 'start'
  1010. end
  1011. act 'No thanks':gt 'hairsalon', 'start'
  1012. end
  1013. if $ARGS[0] = 'braidhair':
  1014. cla
  1015. *clr
  1016. '"I''d like to have my hair braided. Could you do that?", you as the female hairdresser.'
  1017. if hbraids = 20:
  1018. '"Sorry, your hair is already braided as well as I can do."'
  1019. act 'Move away':gt 'hairsalon', 'start'
  1020. exit
  1021. elseif pcs_hairlng <= 80:
  1022. '"Sorry, your hair is too short for me to braid it."'
  1023. act 'Move away':gt 'hairsalon', 'start'
  1024. exit
  1025. elseif pcs_hairlng > 800:
  1026. '"Sorry, your hair is too long to make a braid that will not fall apart."'
  1027. act 'Move away':gt 'hairsalon', 'start'
  1028. end
  1029. 'She takes a look at you hair and nods, "Sure, you have beautiful, long hair, it shouldn''t be a problem at all."'
  1030. 'The hairdresser tells you to sit down on one of the free seats and she''ll get on it immediately.'
  1031. act 'Sit down':
  1032. cla
  1033. *clr
  1034. '"Just relax, we''ll be done in no time.", she tells you.'
  1035. act 'Relax':
  1036. cla
  1037. *clr
  1038. minut += 40
  1039. hbraids = 20
  1040. money -= 1250
  1041. '"And we are done.", she says.'
  1042. 'You stand up and pay her at the counter.'
  1043. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  1044. end
  1045. end
  1046. end
  1047. if $ARGS[0] = 'mirror':
  1048. cls
  1049. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  1050. '<center>You look at your new hairstyle in the mirror.</center>'
  1051. act 'Move away':gt 'hairsalon', 'start'
  1052. end
  1053. --- hairsalon ---------------------------------