1
0

barbershop 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508
  1. # barbershop
  2. !!! Maruda Hair Mod
  3. $pokraska = {
  4. clr
  5. cla
  6. money -= 750
  7. 'You ask Mr. Sherman, the barber, if he could dye your hair.'
  8. '"Sure.", he 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 to have it as dark as possible, please."'
  15. '"Sure thing!", he says, "Why don''t you take a seat?"'
  16. '"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'
  17. act 'Sit down':
  18. cla
  19. *clr
  20. minut += 45
  21. hcol = 0
  22. 'Not even an hour later everything seems to have dried up.'
  23. 'Mr. Sherman removes the dryer hood. "And we''re all done."'
  24. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  25. act 'Leave':gt 'barbershop', '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!", he answer in a happy tone, "Why don''t you take a seat?"'
  35. '"We''ll be done in no time!", he says.'
  36. act 'Sit down':
  37. cla
  38. *clr
  39. minut += 45
  40. hcol = 1
  41. '45 minutes later, everything should be dried up.'
  42. 'Mr. Sherman removes the dryer hood. "And we''re all done."'
  43. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  44. act 'Leave':gt 'barbershop', 'start'
  45. end
  46. end
  47. end
  48. if hcol ! 2:
  49. act 'Red':
  50. cla
  51. *clr
  52. '"Red is a colour I''d love to try out.", you say.'
  53. '"Sure thing!", he smiles, "Why don''t you take a seat?"'
  54. '"We''ll be done in no time!", he says as he turns around one of the seats for you.'
  55. act 'Sit down':
  56. cla
  57. *clr
  58. minut += 45
  59. hcol = 2
  60. '45 minutes later, everything should be dried up.'
  61. 'Mr. Sherman removes the dryer hood. "And we''re all done."'
  62. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  63. act 'Leave':gt 'barbershop', 'start'
  64. end
  65. end
  66. end
  67. if hcol ! 3:
  68. act 'Blonde':
  69. cla
  70. *clr
  71. '"I want to have my hair coloured blonde, please", you tell him.'
  72. '"As you wish, please have a seat.", he says and turns around one of the chairs for you.'
  73. act 'Sit down':
  74. cla
  75. *clr
  76. minut += 45
  77. hcol = 3
  78. 'About an hour later, everything should be dried up.'
  79. 'Mr. Sherman removes the dryer hood. "And we''re all done."'
  80. 'You stand up from the chair and pay him 750 <b>₽</b>.'
  81. act 'Leave':gt 'barbershop', 'start'
  82. end
  83. end
  84. end
  85. gs 'stat'
  86. }
  87. $zavivka = {
  88. minut += 20
  89. curly += 10
  90. money -= 300
  91. 'You have your hair curled'
  92. gs 'stat'
  93. gt 'barbershop', 'start'
  94. }
  95. $cuthair = {
  96. cla
  97. *clr
  98. money -= 500
  99. 'You approach Mr. Sherman and ask, "Hi, I would like to get my hair cut."'
  100. '"Of course, at which length do you want to have your hair at?", he asks you.'
  101. if hairlength > 10:
  102. act 'Very short':
  103. cla
  104. *clr
  105. 'You sit down and say, "I want my hair to be very short."'
  106. '"Of course", he says with a friendly smile on her face, while leading you to a free seat.'
  107. act 'Sit down':
  108. cla
  109. *clr
  110. minut += 30
  111. hairlength = 10
  112. 'About half an hour later he is done and what''s left from you former hairstyle is a very short buzzcut.'
  113. 'You stand up and pay Mr. Sherman at the counter.'
  114. act 'Stand up':gt 'barbershop', 'start'
  115. end
  116. end
  117. end
  118. if hairlength > 31:
  119. act 'Short, but not too short':
  120. cla
  121. *clr
  122. '"I''d like to have my hair cut short, but it shouldn''t get too short. I hope, you know what I mean.", you tell him, hoping he wouldn''t cut everything off.'
  123. '"I know what you mean, that''s not problem at all", he says, then he turns around one of the free seats and makes a gesture to you, to sit down.'
  124. act 'Sit down':
  125. if hairlength > 60:
  126. cla
  127. *clr
  128. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  129. act 'Yes':
  130. cla
  131. *clr
  132. minut += 20
  133. hairlength = 31
  134. hbangs = 1
  135. hapri = 1
  136. '20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  137. 'You stand up and pay Mr. Sherman at the counter.'
  138. act 'Stand up':gt 'barbershop', 'start'
  139. end
  140. act 'No':
  141. cla
  142. *clr
  143. minut += 20
  144. hairlength = 31
  145. hapri = 1
  146. '20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  147. 'You stand up and pay Mr. Sherman at the counter.'
  148. act 'Stand up':gt 'barbershop', 'start'
  149. end
  150. else
  151. cla
  152. *clr
  153. minut += 20
  154. hairlength = 31
  155. hapri = 1
  156. '20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
  157. 'You stand up and pay Mr. Sherman at the counter.'
  158. act 'Stand up':gt 'barbershop', 'start'
  159. end
  160. end
  161. end
  162. end
  163. if hairlength > 81:
  164. act 'About chin-line length':
  165. cla
  166. *clr
  167. '"Could you cut my hair back to between my chin and shoulder, please?", you ask him.'
  168. '"Sure, no problem", he tells you getting a chair for you ready.'
  169. act 'Sit down.':
  170. if hairlength > 90:
  171. cla
  172. *clr
  173. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  174. act 'Yes':
  175. cla
  176. *clr
  177. minut += 20
  178. hairlength = 81
  179. hbangs = 1
  180. hapri = 1
  181. '20 minutes later, he is done cutting your hair. Your new hairstyle goes down to you chin-line and you have a fringe, covering your forehead.'
  182. 'You stand up and pay Mr. Sherman at the counter.'
  183. act 'Stand up':gt 'barbershop', 'start'
  184. end
  185. act 'No':
  186. cla
  187. *clr
  188. minut += 30
  189. hairlength = 81
  190. hapri = 1
  191. '20 minutes later, he is done cutting your hair.'
  192. 'You stand up and pay Mr. Sherman at the counter.'
  193. act 'Stand up':gt 'barbershop', 'start'
  194. end
  195. else
  196. cla
  197. *clr
  198. minut += 20
  199. hairlength = 31
  200. hapri = 1
  201. '20 minutes later, he is done cutting your hair.'
  202. 'You stand up and pay Mr. Sherman at the counter.'
  203. act 'Stand up':gt 'barbershop', 'start'
  204. end
  205. end
  206. end
  207. end
  208. if hairlength > 161:
  209. act 'Shoulder Length':
  210. cla
  211. *clr
  212. '"I would like to have my hair cut back to about the height of my shoulder.", you tell him.'
  213. '"Sure, no problem", he tells you, gesturing you, to sit down into a free chair.'
  214. act 'Sit down':
  215. if hairlength > 170:
  216. cla
  217. *clr
  218. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  219. act 'Yes':
  220. cla
  221. *clr
  222. minut += 20
  223. hairlength = 161
  224. hbangs = 1
  225. hapri = 1
  226. '20 minutes later, he is done cutting your hair. Your hair now goes just to your shoulders and you have a fringe, covering your forehead.'
  227. 'You stand up and pay Mr. Sherman at the counter.'
  228. act 'Stand up':gt 'barbershop', 'start'
  229. end
  230. act 'No':
  231. cla
  232. *clr
  233. minut += 30
  234. hairlength = 161
  235. hapri = 1
  236. '30 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
  237. 'You stand up and pay Mr. Sherman at the counter.'
  238. act 'Stand up':gt 'barbershop', 'start'
  239. end
  240. else
  241. cla
  242. *clr
  243. minut += 20
  244. hairlength = 161
  245. hapri = 1
  246. '20 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
  247. 'You stand up and pay Mr. Sherman at the counter.'
  248. act 'Stand up':gt 'barbershop', 'start'
  249. end
  250. end
  251. end
  252. end
  253. if hairlength > 261:
  254. act 'About Brastrap length':
  255. cla
  256. *clr
  257. '"Could you cut my hair back to about where my bra-strap sits?", you ask him.'
  258. '"That''s absolutely no problem.", he says, when geasturing you sit down on one of the free seat'
  259. act 'Sit down.':
  260. if hairlength > 280:
  261. cla
  262. *clr
  263. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  264. act 'Yes':
  265. cla
  266. *clr
  267. minut += 20
  268. hairlength = 261
  269. hbangs = 1
  270. hapri = 1
  271. '20 minutes later, he is done cutting your hair. He cut your hair back to about the height of where your bra sits, in addition he made you a fringe, which covers your forehead, as requested.'
  272. 'You stand up and pay Mr. Sherman at the counter.'
  273. act 'Stand up':gt 'barbershop', 'start'
  274. end
  275. act 'No':
  276. cla
  277. *clr
  278. minut += 20
  279. hairlength = 261
  280. hapri = 1
  281. '20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  282. 'You stand up and pay Mr. Sherman at the counter.'
  283. act 'Stand up':gt 'barbershop', 'start'
  284. end
  285. else
  286. cla
  287. *clr
  288. minut += 20
  289. hairlength = 261
  290. hapri = 1
  291. '20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
  292. 'You stand up and pay Mr. Sherman at the counter.'
  293. act 'Stand up':gt 'barbershop', 'start'
  294. end
  295. end
  296. end
  297. end
  298. if hairlength > 401:
  299. act 'Cut the tips':
  300. cla
  301. *clr
  302. '"I''d like to keep this length, but my tips might need some cutting. Could you do that?", you ask him. '
  303. '"Of course, please sit down.", he says.'
  304. act 'Sit down.':
  305. if hairlength > 401:
  306. cla
  307. *clr
  308. '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
  309. act 'Yes':
  310. cla
  311. *clr
  312. minut += 20
  313. hairlength = 401
  314. hbangs = 1
  315. hapri = 1
  316. '20 minutes later, he is done cutting your hair. He just cuts the tips of your, barely making it any shorter and as requested, he cut you a nice fringe, which now covers your forehead.'
  317. 'You stand up and pay Mr. Sherman at the counter.'
  318. act 'Stand up':gt 'barbershop', 'start'
  319. end
  320. act 'No':
  321. cla
  322. *clr
  323. minut += 20
  324. hairlength = 401
  325. hapri = 1
  326. '20 minutes later, he is done cutting your hair.'
  327. 'You stand up and pay Mr. Sherman at the counter.'
  328. act 'Stand up':gt 'barbershop', 'start'
  329. end
  330. else
  331. cla
  332. *clr
  333. minut += 20
  334. hairlength = 401
  335. hapri = 1
  336. '20 minutes later, he is done cutting your hair.'
  337. 'You stand up and pay Mr. Sherman at the counter.'
  338. act 'Stand up':gt 'barbershop', 'start'
  339. end
  340. end
  341. end
  342. end
  343. }
  344. if $ARGS[0] = 'start':
  345. gs 'stat'
  346. '<center><b><font color="maroon">The Barber Shop</font></b></center>'
  347. '<center>The only barber shop in the area owned by Mr. Sherman. While he can''t do very special hairstyles, he''s cheap and works fast.</center>'
  348. clr
  349. gs 'stat'
  350. fcolor = rgb(0, 0, 0)
  351. bcolor = rgb(255, 255, 255)
  352. Lcolor = rgb(106, 90, 205)
  353. ''
  354. if money >= 500 and hairlength > 15:'<a href="exec:dynamic $cuthair">Cut your hair - 750 <b>₽</b></a>'
  355. if money < 500 and hairlength <= 15:'You don''t have enough money to get your hair properly cut. It costs 750 <b>₽</b> but you only have <<money>>.'
  356. ''
  357. if money >= 300 and hairlength > 80:'<a href="exec:dynamic $zavivka">Curl your hair - 500 <b>₽</b></a>'
  358. if money < 300:'You cannot afford curling your hair, as it costs 500 <b>₽</b>, which you do not have at the moment.'
  359. if money >= 300 and hairlength <= 80:'Your hair is too short to be curled.'
  360. if hairlength <= 80:'Your hair is not long enough to be curled.'
  361. ''
  362. if money >= 750:'<a href="exec:dynamic $pokraska">Dye your hair - 1.000 <b>₽</b></a>'
  363. if money < 750:'You cannot afford dyeing your hair, as you are missing the 1.000 <b>₽</b> required for it.'
  364. ''
  365. if hour =< 8 or hour >= 20:
  366. cls
  367. 'The barber shop is closed at the moment, you should probably come back, when Mr. Sherman''s in'
  368. act 'Leave':minut += 2 & gt 'pavCommercial'
  369. exit
  370. end
  371. act 'Leave':minut += 2 & gt 'pavCommercial'
  372. end
  373. if money >= 60:
  374. act 'Buy Scrunchies - 60 <b>₽</b>':
  375. cls
  376. money -= 60
  377. hscrunch += 10
  378. 'You pay Mr. Sherman and buy the small box.'
  379. act 'Move away':gt 'barbershop', 'start'
  380. end
  381. end
  382. if money >= 80:
  383. act 'Buy Hairaccessories - 80 <b>₽</b>':
  384. cls
  385. money -= 80
  386. hpingrip += 10
  387. 'You pay Mr. Sherman and buy the small box.'
  388. act 'Move away':gt 'barbershop', 'start'
  389. end
  390. end
  391. if barbershop_wrk = 0:
  392. act 'Ask for work':
  393. cla
  394. *clr
  395. minut += 5
  396. 'You walk up to Mr. Sherman, the owner of the barbershop.'
  397. '"Hello Mr. Sherman", you greet him.'
  398. '"Hello <<$name>>! What can I do for you today?", he asks you in his usual soothing voice.'
  399. '"I was wondering if you''re looking for some help around here"'
  400. '"Well, I don''t think you have experience as a hairdresser..." He thinks for a second. "..., but my back isn''t the best anymore, so I could use some help keeping the shop clean. It''s not much work, but I''d be happy if you could come in once a day for about an hour. Just come by, when you''re done with school and when I''m still open, obviously."'
  401. 'You smile cheerfully. "That sound great! What would I have to do?"'
  402. '"Well," he says, while looking around and gathering tasks for you. "..., you''d have to mop the floor here in the main room and the break room in the back as well. Take out all the trash, clean the breakroom kitchen, clean the mirrors, windows, chairs and toilet and of course dust the shelves. It might sound like a lot, but don''t worry, even doing one thing, makes my life easier."'
  403. 'You think about it for a second, but you guess it won''t be too bad and you could need any amount of money... "I...uhm...hate to ask, but how much would I earn per hour?"'
  404. '"Ah yes," Mr. Sherman chuckles. "..., the most important question. Are you alright with 100 <b>₽</b> per hour?"'
  405. act 'Agree to work':
  406. cla
  407. *nl
  408. '"That''s great", you nod. "When can I start?"'
  409. '"If you could come back tomorrow, that''d be great."'
  410. barbershop_wrk = 1
  411. act 'Leave': gt 'barbershop','start'
  412. end
  413. act 'Think about it':
  414. cla
  415. *nl
  416. '"I guess I''ll think about it some more.", you answer.'
  417. '"Sure <<$name>>, come back when you want to work."'
  418. act 'Leave': gt 'barbershop','start'
  419. end
  420. end
  421. elseif barbershop_wrk = 1 and barbershop_wrk_day ! daystart:
  422. act 'Get to work (1h)':
  423. cla
  424. *clr
  425. minut += 60
  426. money += 100
  427. barbershop_wrk_day = daystart
  428. gs 'stat'
  429. 'You work diligently and fast. You clean the floor, take out the trash, dust off the shelves and wipe some mirrors and windows. Before you know an hour has passed and you''re 100 <b>₽</b> richer.'
  430. act 'Leave': gt 'barbershop','start'
  431. end
  432. end
  433. !!! Maruda Hair Mod
  434. --- barbershop ---------------------------------