1
0

hairsalon.qsrc 33 KB

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