hairsalon 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545
  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. fcolor = rgb(0, 0, 0)
  11. bcolor = rgb(255, 255, 255)
  12. lcolor = rgb(106, 90, 205)
  13. if hour =< 8 or hour >= 20:
  14. cls
  15. 'The hair salon is closed. You should come back during their working hours.'
  16. act 'Leave':minut += 2 & gt 'torgcentr'
  17. exit
  18. end
  19. ''
  20. '<a href=' + iif(money >= 750, '"exec:gt ''hairsalon'', ''cuthair''"', '') + '>Get a haircut - 750 <b>₽</b></a>'
  21. ''
  22. '<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''curlhair''"', '') + '>Get your hair curled - 500 <b>₽</b></a>'
  23. ''
  24. '<a href=' + iif(money >= 1000, '"exec:gt ''hairsalon'', ''dyehair''"', '') + '>Get your hair dyed - 1000 <b>₽</b></a>'
  25. ''
  26. '<a href=' + iif(money >= 1250, '"exec:gt ''hairsalon'', ''braidhair''"', '') + '>Get your hair braided - 1250 <b>₽</b></a>'
  27. act 'Leave':minut += 2 & gt 'torgcentr'
  28. if money >= 100:
  29. act 'Buy Scrunchies - 100 <b>₽</b>':
  30. cls
  31. money -= 100
  32. hscrunch += 10
  33. 'You pay the cashier and bought the small box.'
  34. act 'Move away':gt 'hairsalon', 'start'
  35. end
  36. end
  37. if money >= 120:
  38. act 'Buy Hair accessories - 120 <b>₽</b>':
  39. cls
  40. money -= 120
  41. hpingrip += 10
  42. 'You pay the cashier and bought the small box.'
  43. act 'Move away':gt 'hairsalon', 'start'
  44. end
  45. end
  46. end
  47. if $ARGS[0] = 'cuthair':
  48. cla
  49. *clr
  50. '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?"'
  51. 'She smiles, "Sure thing, have you already decided on how much we shall cut off?"'
  52. act 'Change your mind':gt 'hairsalon', 'start'
  53. if hairlength > 10:
  54. act 'Very short':
  55. cla
  56. *clr
  57. '"I''d like to have my hair cut very short", you say.'
  58. '"Of course", she says with a friendly smile on her face, while leading you to a free seat.'
  59. '"Yes, please", you answer and sit down.'
  60. act 'Sit down':
  61. cla
  62. *clr
  63. minut += 30
  64. hairlength = 10
  65. money -= 750
  66. 'About half an hour later she is done and what''s left from you former hairstyle is a very short buzzcut.'
  67. 'You stand up and pay the women at the counter.'
  68. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  69. end
  70. end
  71. end
  72. if hairlength > 31:
  73. act 'Short, but not too short':
  74. cla
  75. *clr
  76. '"I''d like to have my hair cut short, but not too short", you tell her.'
  77. '"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.'
  78. act 'Sit down':
  79. if hairlength > 60:
  80. cla
  81. *clr
  82. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  83. act 'Yes':
  84. cla
  85. *clr
  86. minut += 30
  87. hairlength = 31
  88. hbangs = 1
  89. hapri = 1
  90. money -= 750
  91. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  92. 'You stand up and pay the women at the counter.'
  93. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  94. end
  95. act 'No':
  96. cla
  97. *clr
  98. minut += 30
  99. hairlength = 31
  100. hapri = 1
  101. money -= 750
  102. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  103. 'You stand up and pay the women at the counter.'
  104. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  105. end
  106. else
  107. cla
  108. *clr
  109. minut += 30
  110. hairlength = 31
  111. hapri = 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. end
  118. end
  119. end
  120. if hairlength > 81:
  121. act 'About chin-line length':
  122. cla
  123. *clr
  124. '"Could you cut my hair back to my chin line, please?", you ask her.'
  125. '"Sure, no problem", she tells you getting a chair for you ready.'
  126. act 'Sit down.':
  127. if hairlength > 90:
  128. cla
  129. *clr
  130. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  131. act 'Yes':
  132. cla
  133. *clr
  134. minut += 30
  135. hairlength = 81
  136. hbangs = 1
  137. hapri = 1
  138. money -= 750
  139. '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.'
  140. 'You stand up and pay the women at the counter.'
  141. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  142. end
  143. act 'No':
  144. cla
  145. *clr
  146. minut += 30
  147. hairlength = 81
  148. hapri = 1
  149. money -= 750
  150. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
  151. 'You stand up and pay the women at the counter.'
  152. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  153. end
  154. else
  155. cla
  156. *clr
  157. minut += 30
  158. hairlength = 31
  159. hapri = 1
  160. money -= 750
  161. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
  162. 'You stand up and pay the women at the counter.'
  163. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  164. end
  165. end
  166. end
  167. end
  168. if hairlength > 161:
  169. act 'Shoulder Length':
  170. cla
  171. *clr
  172. '"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.'
  173. '"Sure, no problem", she tells you, geasturing you, to sit down into a free chair.'
  174. act 'Sit down.':
  175. if hairlength > 170:
  176. cla
  177. *clr
  178. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  179. act 'Yes':
  180. cla
  181. *clr
  182. minut += 30
  183. hairlength = 161
  184. hbangs = 1
  185. hapri = 1
  186. money -= 750
  187. '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.'
  188. 'You stand up and pay the women at the counter.'
  189. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  190. end
  191. act 'No':
  192. cla
  193. *clr
  194. minut += 30
  195. hairlength = 161
  196. hapri = 1
  197. money -= 750
  198. '30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
  199. 'You stand up and pay the women at the counter.'
  200. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  201. end
  202. else
  203. cla
  204. *clr
  205. minut += 30
  206. hairlength = 161
  207. hapri = 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. end
  214. end
  215. end
  216. if hairlength > 261:
  217. act 'About Brastrap length':
  218. cla
  219. *clr
  220. '"Could you cut my hair back to where my bra-strap sits?", you ask her.'
  221. '"That''s absolutely no problem.", she says, when gesturing you sit down on one of the free seat'
  222. act 'Sit down.':
  223. if hairlength > 280:
  224. cla
  225. *clr
  226. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  227. act 'Yes':
  228. cla
  229. *clr
  230. minut += 30
  231. hairlength = 261
  232. hbangs = 1
  233. hapri = 1
  234. money -= 750
  235. '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.'
  236. 'You stand up and pay the women at the counter.'
  237. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  238. end
  239. act 'No':
  240. cla
  241. *clr
  242. minut += 30
  243. hairlength = 261
  244. hapri = 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.'
  247. 'You stand up and pay the women at the counter.'
  248. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  249. end
  250. else
  251. cla
  252. *clr
  253. minut += 30
  254. hairlength = 261
  255. hapri = 1
  256. money -= 750
  257. '30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  258. 'You stand up and pay the women at the counter.'
  259. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  260. end
  261. end
  262. end
  263. end
  264. if hairlength > 401:
  265. act 'Cut the tips':
  266. cla
  267. *clr
  268. '"Could you cut my hair back a bit?", you ask her. '
  269. '"Wow, your hair is beautiful! But, sure, that''s no problem.", she tells you, geasturing you, to sit down into a free chair.'
  270. act 'Sit down.':
  271. if hairlength > 401:
  272. cla
  273. *clr
  274. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  275. act 'Yes':
  276. cla
  277. *clr
  278. minut += 30
  279. hairlength = 401
  280. hbangs = 1
  281. hapri = 1
  282. money -= 750
  283. '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.'
  284. 'You stand up and pay the women at the counter.'
  285. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  286. end
  287. act 'No':
  288. cla
  289. *clr
  290. minut += 30
  291. hairlength = 401
  292. hapri = 1
  293. money -= 750
  294. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter.'
  295. 'You stand up and pay the women at the counter.'
  296. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  297. end
  298. else
  299. cla
  300. *clr
  301. minut += 30
  302. hairlength = 401
  303. hapri = 1
  304. money -= 750
  305. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter. '
  306. 'You stand up and pay the women at the counter.'
  307. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  308. end
  309. end
  310. end
  311. end
  312. end
  313. if $ARGS[0] = 'curlhair':
  314. cls
  315. if hairlength <= 80:
  316. '"Sorry, your hair is too short to curl."'
  317. act 'Move away':gt 'hairsalon', 'start'
  318. elseif curly = 10:
  319. '"Your hair is already as curly as I can make it."'
  320. act 'Move away':gt 'hairsalon', 'start'
  321. elseif hbraids > 0:
  322. '"Your hair is in braids right now, to curl it I would have to remove them. Is that what you want me to do?"'
  323. act 'Yes':
  324. cla
  325. minut += 20
  326. hbraids = 0
  327. curly = 10
  328. money -= 500
  329. 'Your braids were removed and your hair was curled instead.'
  330. gs 'stat'
  331. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  332. end
  333. act 'No':gt 'hairsalon', 'start'
  334. else
  335. minut += 20
  336. curly = 10
  337. money -= 500
  338. 'You have your hair curled.'
  339. gs 'stat'
  340. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  341. end
  342. end
  343. if $ARGS[0] = 'dyehair':
  344. clr
  345. cla
  346. 'You ask the woman hairdresser, if she could dye your hair.'
  347. '"Sure.", she says.'
  348. '"Which colour would like to have your hair dyed in?"'
  349. act 'Change your mind':gt 'hairsalon', 'start'
  350. if hcol ! 0:
  351. act 'Black':
  352. cla
  353. *clr
  354. '"Black", you say, "I want it to be raven black, dark as the night, please."'
  355. '"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
  356. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  357. act 'Sit down':
  358. cla
  359. *clr
  360. minut += 60
  361. hcol = 0
  362. money -= 1000
  363. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  364. 'She removes the dryer hood. "And we''re all done."'
  365. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  366. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  367. end
  368. end
  369. end
  370. if hcol ! 1:
  371. act 'Brown':
  372. cla
  373. *clr
  374. '"I''d like to have my hair brown", you say.'
  375. '"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
  376. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  377. act 'Sit down':
  378. cla
  379. *clr
  380. minut += 60
  381. hcol = 1
  382. money -= 1000
  383. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  384. 'She removes the dryer hood. "And we''re all done."'
  385. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  386. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  387. end
  388. end
  389. end
  390. if hcol ! 2:
  391. act 'Red':
  392. cla
  393. *clr
  394. '"I''d like to have my in a fiercely red", you say with a devilish grin.'
  395. '"Sure thing!", she laughs, "Why don''t you take a seat?"'
  396. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  397. act 'Sit down':
  398. cla
  399. *clr
  400. minut += 60
  401. hcol = 2
  402. money -= 1000
  403. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  404. 'She removes the dryer hood. "And we''re all done."'
  405. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  406. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  407. end
  408. end
  409. end
  410. if hcol ! 3:
  411. act 'Blonde':
  412. cla
  413. *clr
  414. '"Blonde! Blondes have more fun. I want to see if that is true!", you giggle.'
  415. '"Blondes definately have more fun!", she says with a wink, "Why don''t you take a seat?"'
  416. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  417. act 'Sit down':
  418. cla
  419. *clr
  420. minut += 60
  421. hcol = 3
  422. money -= 1000
  423. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  424. 'She removes the dryer hood. "And we''re all done."'
  425. 'You stand up from the chair and pay the 1000 <b>₽</b>.'
  426. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  427. end
  428. end
  429. end
  430. gs 'stat'
  431. end
  432. if $ARGS[0] = 'braidhair':
  433. cla
  434. *clr
  435. '"I''d like to have my hair braided. Could you do that?", you as the female hairdresser.'
  436. if hbraids = 20:
  437. '"Sorry, your hair is already braided as well as I can do."'
  438. act 'Move away':gt 'hairsalon', 'start'
  439. exit
  440. elseif hairlength <= 80:
  441. '"Sorry, your hair is too short for me to braid it."'
  442. act 'Move away':gt 'hairsalon', 'start'
  443. exit
  444. elseif hairlength > 400:
  445. '"Sorry, your hair is too long to make a braid that will not fall apart."'
  446. act 'Move away':gt 'hairsalon', 'start'
  447. end
  448. 'She takes a look at you hair and nods, "Sure, you have beautiful, long hair, it shouldn''t be a problem at all."'
  449. 'The hairdresser tells you to sit down on one of the free seats and she''ll get on it immediately.'
  450. act 'Sit down':
  451. cla
  452. *clr
  453. '"Just relax, we''ll be done in no time.", she tells you.'
  454. act 'Relax':
  455. cla
  456. *clr
  457. minut += 40
  458. hbraids = 20
  459. money -= 1250
  460. '"And we are done.", she says.'
  461. 'You stand up and pay her at the counter.'
  462. act 'Look in the mirror':gt 'hairsalon', 'mirror'
  463. end
  464. end
  465. end
  466. if $ARGS[0] = 'mirror':
  467. cls
  468. '<center><img src="<<FUNC(''$face_image'')>>"></center>'
  469. '<center>You look at your new hairstyle in the mirror.</center>'
  470. act 'Move away':gt 'hairsalon', 'start'
  471. end
  472. --- hairsalon ---------------------------------