1
1

278_hairsalon 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431
  1. # hairsalon
  2. !!! Maruda Hair Mod
  3. $pokraska = {
  4. clr
  5. cla
  6. set money -= 1000
  7. 'You ask the woman hairdresser, if she could dye your hair.'
  8. '"Sure.", she says.'
  9. '"Which colour would like to have your hair dyed in?"'
  10. if hcol ! 0:
  11. act 'Black':
  12. cla
  13. *clr
  14. '"Black", you say, "I want it to be raven black, dark as the night, please."'
  15. '"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
  16. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  17. act 'Sit down':
  18. cla
  19. *clr
  20. set minut += 60
  21. set hcol = 0
  22. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  23. 'She removes the dryer hood. "And we''re all done."'
  24. 'You stand up from the chair and pay the 1000 rubles.'
  25. act 'Leave': gt 'hairsalon','start'
  26. end
  27. end
  28. end
  29. if hcol ! 1:
  30. act 'Brown':
  31. cla
  32. *clr
  33. '"I''d like to have my hair brown", you say.'
  34. '"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
  35. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  36. act 'Sit down':
  37. cla
  38. *clr
  39. set minut += 60
  40. set hcol = 1
  41. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  42. 'She removes the dryer hood. "And we''re all done."'
  43. 'You stand up from the chair and pay the 1000 rubles.'
  44. act 'Leave': gt 'hairsalon','start'
  45. end
  46. end
  47. end
  48. if hcol ! 2:
  49. act 'Red':
  50. cla
  51. *clr
  52. '"I''d like to have my in a fiercely red", you say with a devilish grin.'
  53. '"Sure thing!", she laughs, "Why don''t you take a seat?"'
  54. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  55. act 'Sit down':
  56. cla
  57. *clr
  58. set minut += 60
  59. set hcol = 2
  60. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  61. 'She removes the dryer hood. "And we''re all done."'
  62. 'You stand up from the chair and pay the 1000 rubles.'
  63. act 'Leave': gt 'hairsalon','start'
  64. end
  65. end
  66. end
  67. if hcol ! 3:
  68. act 'Blonde':
  69. cla
  70. *clr
  71. '"Blonde! Blondes have more fun. I want to see if that is true!", you giggle.'
  72. '"Blondes definately have more fun!", she says with a wink, "Why don''t you take a seat?"'
  73. '"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
  74. act 'Sit down':
  75. cla
  76. *clr
  77. set minut += 60
  78. set hcol = 3
  79. 'About an hour later, everything should be dried up and the female hairdress comes back to you.'
  80. 'She removes the dryer hood. "And we''re all done."'
  81. 'You stand up from the chair and pay the 1000 rubles.'
  82. act 'Leave': gt 'hairsalon','start'
  83. end
  84. end
  85. end
  86. gs 'stat'
  87. }
  88. $zavivka = {
  89. set minut += 20
  90. set curly += 10
  91. set money -= 500
  92. 'You have your hair curled'
  93. gs 'stat'
  94. gt 'hairsalon','start'
  95. }
  96. $cuthair = {
  97. cla
  98. *clr
  99. set money -= 750
  100. '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?"'
  101. 'She smiles, "Sure thing, have you already decided on how much we shall cut off?"'
  102. if hairlength > 10:
  103. act 'Very short':
  104. cla
  105. *clr
  106. '"I''d like to have my hair cut very short", you say.'
  107. '"Of course", she says with a friendly smile on her face, while leading you to a free seat.'
  108. '"Yes, please", you answer and sit down.'
  109. act 'Sit down.':
  110. cla
  111. *clr
  112. set minut += 30
  113. set hairlength = 10
  114. 'About half an hour later she is done and what''s left from you former hairstyle is a very short buzzcut.'
  115. 'You stand up and pay the women at the counter.'
  116. act 'Stand up': gt 'hairsalon','start'
  117. end
  118. end
  119. end
  120. if hairlength > 31:
  121. act 'Short, but not too short':
  122. cla
  123. *clr
  124. '"I''d like to have my hair cut short, but not too short", you tell her.'
  125. '"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.'
  126. act 'Sit down.':
  127. if hairlength > 60:
  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. set minut += 30
  135. set hairlength = 31
  136. set hbangs = 1
  137. set hapri = 1
  138. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  139. 'You stand up and pay the women at the counter.'
  140. act 'Stand up': gt 'hairsalon','start'
  141. end
  142. act 'No':
  143. cla
  144. *clr
  145. set minut += 30
  146. set hairlength = 31
  147. set hapri = 1
  148. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  149. 'You stand up and pay the women at the counter.'
  150. act 'Stand up': gt 'hairsalon','start'
  151. end
  152. else
  153. cla
  154. *clr
  155. set minut += 30
  156. set hairlength = 31
  157. set hapri = 1
  158. '30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  159. 'You stand up and pay the women at the counter.'
  160. act 'Stand up': gt 'hairsalon','start'
  161. end
  162. end
  163. end
  164. end
  165. if hairlength > 81:
  166. act 'About chin-line length':
  167. cla
  168. *clr
  169. '"Could you cut my hair back to my chin line, please?", you ask her.'
  170. '"Sure, no problem", she tells you getting a chair for you ready.'
  171. act 'Sit down.':
  172. if hairlength > 90:
  173. cla
  174. *clr
  175. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  176. act 'Yes':
  177. cla
  178. *clr
  179. set minut += 30
  180. set hairlength = 81
  181. set hbangs = 1
  182. set hapri = 1
  183. '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.'
  184. 'You stand up and pay the women at the counter.'
  185. act 'Stand up': gt 'hairsalon','start'
  186. end
  187. act 'No':
  188. cla
  189. *clr
  190. set minut += 30
  191. set hairlength = 81
  192. set hapri = 1
  193. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
  194. 'You stand up and pay the women at the counter.'
  195. act 'Stand up': gt 'hairsalon','start'
  196. end
  197. else
  198. cla
  199. *clr
  200. set minut += 30
  201. set hairlength = 31
  202. set hapri = 1
  203. '30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
  204. 'You stand up and pay the women at the counter.'
  205. act 'Stand up': gt 'hairsalon','start'
  206. end
  207. end
  208. end
  209. end
  210. if hairlength > 161:
  211. act 'Shoulder Length':
  212. cla
  213. *clr
  214. '"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.'
  215. '"Sure, no problem", she tells you, geasturing you, to sit down into a free chair.'
  216. act 'Sit down.':
  217. if hairlength > 170:
  218. cla
  219. *clr
  220. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  221. act 'Yes':
  222. cla
  223. *clr
  224. set minut += 30
  225. set hairlength = 161
  226. set hbangs = 1
  227. set hapri = 1
  228. '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.'
  229. 'You stand up and pay the women at the counter.'
  230. act 'Stand up': gt 'hairsalon','start'
  231. end
  232. act 'No':
  233. cla
  234. *clr
  235. set minut += 30
  236. set hairlength = 161
  237. set hapri = 1
  238. '30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
  239. 'You stand up and pay the women at the counter.'
  240. act 'Stand up': gt 'hairsalon','start'
  241. end
  242. else
  243. cla
  244. *clr
  245. set minut += 30
  246. set hairlength = 161
  247. set hapri = 1
  248. '30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
  249. 'You stand up and pay the women at the counter.'
  250. act 'Stand up': gt 'hairsalon','start'
  251. end
  252. end
  253. end
  254. end
  255. if hairlength > 261:
  256. act 'About Brastrap length':
  257. cla
  258. *clr
  259. '"Could you cut my hair back to where my bra-strap sits?", you ask her.'
  260. '"That''s absolutely no problem.", she says, when geasturing you sit down on one of the free seat'
  261. act 'Sit down.':
  262. if hairlength > 280:
  263. cla
  264. *clr
  265. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  266. act 'Yes':
  267. cla
  268. *clr
  269. set minut += 30
  270. set hairlength = 261
  271. set hbangs = 1
  272. set hapri = 1
  273. '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.'
  274. 'You stand up and pay the women at the counter.'
  275. act 'Stand up': gt 'hairsalon','start'
  276. end
  277. act 'No':
  278. cla
  279. *clr
  280. set minut += 30
  281. set hairlength = 261
  282. set hapri = 1
  283. '30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  284. 'You stand up and pay the women at the counter.'
  285. act 'Stand up': gt 'hairsalon','start'
  286. end
  287. else
  288. cla
  289. *clr
  290. set minut += 30
  291. set hairlength = 261
  292. set hapri = 1
  293. '30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  294. 'You stand up and pay the women at the counter.'
  295. act 'Stand up': gt 'hairsalon','start'
  296. end
  297. end
  298. end
  299. end
  300. if hairlength > 401:
  301. act 'Cut the tips':
  302. cla
  303. *clr
  304. '"Could you cut my hair back a bit?", you ask her. '
  305. '"Wow, your hair is beautiful! But, sure, that''s no problem.", she tells you, geasturing you, to sit down into a free chair.'
  306. act 'Sit down.':
  307. if hairlength > 401:
  308. cla
  309. *clr
  310. '"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
  311. act 'Yes':
  312. cla
  313. *clr
  314. set minut += 30
  315. set hairlength = 401
  316. set hbangs = 1
  317. set hapri = 1
  318. '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.'
  319. 'You stand up and pay the women at the counter.'
  320. act 'Stand up': gt 'hairsalon','start'
  321. end
  322. act 'No':
  323. cla
  324. *clr
  325. set minut += 30
  326. set hairlength = 401
  327. set hapri = 1
  328. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter.'
  329. 'You stand up and pay the women at the counter.'
  330. act 'Stand up': gt 'hairsalon','start'
  331. end
  332. else
  333. cla
  334. *clr
  335. set minut += 30
  336. set hairlength = 401
  337. set hapri = 1
  338. '30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter. '
  339. 'You stand up and pay the women at the counter.'
  340. act 'Stand up': gt 'hairsalon','start'
  341. end
  342. end
  343. end
  344. end
  345. }
  346. $makebraids = {
  347. cla
  348. *clr
  349. '"I''d like to have my hair braided. Could you do that?", you as the female hairdresser.'
  350. 'She takes a look at you hair and nods, "Sure, you have beautiful, long hair, it shouldn''t be a problem at all."'
  351. 'The hairdresser tells you to sit down on one of the free seats and she''ll get on it immediately.'
  352. act 'Sit down':
  353. cla
  354. *clr
  355. '"Just relax, we''ll be done in no time.", she tells you.'
  356. act 'Relax':
  357. cla
  358. *clr
  359. set minut += 40
  360. set hbraids = 20
  361. set money -= 1250
  362. '"And we are done.", she says.'
  363. 'You stand up and pay her at the counter.'
  364. act 'Stand up': gt 'hairsalon','start'
  365. end
  366. end
  367. end
  368. end
  369. }
  370. if $ARGS[0] = 'start':
  371. gs 'stat'
  372. '<center><B><font color=maroon>The Golden Curl Salon</font></B></center>'
  373. '<center>A well reviewed hair salon, capable of creating the most beautiful hairstyles. For a price of course.</center>'
  374. '<center>Next to the check out are two aisles filled with premium merchandise for you hair, including Scrunchies, Hairpins and Shampoo.</center>'
  375. clr
  376. gs'stat'
  377. fcolor=rgb(0,0,0)
  378. bcolor=rgb(255,255,255)
  379. LCOLOR = rgb(106,90,205)
  380. ''
  381. if money >= 750 and hairlength > 15: '<a href="exec: dynamic $cuthair ">Cut your hair - 750 rubles</a>'
  382. if money < 750 and hairlength <= 15: 'You don''t have enough money to get your hair properly cut. It costs 750 rubles but you only have <<money>>.'
  383. ''
  384. if money >= 500 and hairlength > 80: '<a href="exec: dynamic $zavivka ">Curl your hair - 500 rubles</a>'
  385. if money < 500: 'You cannot afford curling your hair, as it costs 500 rubles, which you do not have at the moment.'
  386. if money >= 300 and hairlength <= 30: 'Your hair is too short to curl.'
  387. ''
  388. if money >= 1000: '<a href="exec: dynamic $pokraska ">Dye your hair - 1.000 rubles</a>'
  389. if money < 1000: 'You cannot afford dyeing your hair, as you are missing the 1.000 rubles required for it.'
  390. ''
  391. if money >= 1250 and hairlength > 80: '<a href="exec: dynamic $makebraids">Braid your hair - 1250 rubles</a>'
  392. if money >= 1250 and hairlength <= 80: 'While you do have enough money to get your hair braided, your hair is not long enough to get it done properly and get a satisfying outcome.'
  393. if money < 1250 and hairlength > 80: 'You don''t have the 1.250 rubles, which you''ll need to get your hair braided.'
  394. if money < 1250 and hairlength <= 80: 'Not only you''re missing the 1.250 rubles required to do this hair job, you''re hair is also too short to get it braided.'
  395. if hour =< 8 or hour >= 20:
  396. cls
  397. 'The hair salon is closed. You should come back during their working hours.'
  398. act 'Leave': set minut += 2 & gt 'torgcentr'
  399. exit
  400. end
  401. act 'Leave': set minut += 2 & gt 'torgcentr'
  402. end
  403. if money >= 100:
  404. act 'Buy Scrunchies - 100 rubles':
  405. cls
  406. money -= 100
  407. hscrunch += 10
  408. 'You pay the cashier and bought the small box.'
  409. act 'Move away': gt 'hairsalon','start'
  410. end
  411. end
  412. if money >= 120:
  413. act 'Buy Hairaccessories - 120 rubles':
  414. cls
  415. money -= 120
  416. hpingrip += 10
  417. 'You pay the cashier and bought the small box.'
  418. act 'Move away': gt 'hairsalon','start'
  419. end
  420. end
  421. !!! Maruda Hair Mod
  422. --- hairsalon ---------------------------------