1
0

hairsalon 28 KB

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