hairsalon 32 KB

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