123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397 |
- # barbershop
- !!! Maruda Hair Mod
- $pokraska = {
- clr
- cla
- set money -= 750
- 'You ask the barber, if he could dye your hair.'
- '"Sure.", he says.'
- '"Which colour would like to have your hair dyed in?"'
- if hcol ! 0:
- act 'Black':
- cla
- *clr
- '"Black", you say, "I want to have it as dark as possible, please.'
- '"Sure thing!", he says, "Why don''t you take a seat?"'
- '"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'
- act 'Sit down':
- cla
- *clr
- set minut += 45
- set hcol = 0
- 'Not even an hour later everything seems to have dried up.'
- 'He removes the dryer hood. "And we''re all done."'
- 'You stand up from the chair and pay him 750 rubles.'
- act 'Leave': gt 'barbershop','start'
- end
- end
- end
- if hcol ! 1:
- act 'Brown':
- cla
- *clr
- '"I''d like to have my hair brown", you say.'
- '"Sure thing!", he answer in a happy tone, "Why don''t you take a seat?"'
- '"We''ll be done in no time!", he says.'
- act 'Sit down':
- cla
- *clr
- set minut += 45
- set hcol = 1
- '45 minutes later, everything should be dried up.'
- 'He removes the dryer hood. "And we''re all done."'
- 'You stand up from the chair and pay him 750 rubles.'
- act 'Leave': gt 'barbershop','start'
- end
- end
- end
- if hcol ! 2:
- act 'Red':
- cla
- *clr
- '"Red is a colour I''d love to try out.", you say.'
- '"Sure thing!", he smiles, "Why don''t you take a seat?"'
- '"We''ll be done in no time!", he says as he turns around one of the seats for you.'
- act 'Sit down':
- cla
- *clr
- set minut += 45
- set hcol = 2
- '45 minutes later, everything should be dried up.'
- 'He removes the dryer hood. "And we''re all done."'
- 'You stand up from the chair and pay him 750 rubles.'
- act 'Leave': gt 'barbershop','start'
- end
- end
- end
- if hcol ! 3:
- act 'Blonde':
- cla
- *clr
- '"I want to have my hair coloured blonde, please", you tell him.'
- '"As you wish, please have a seat.", he says and turns around one of the chairs for you.'
- act 'Sit down':
- cla
- *clr
- set minut += 45
- set hcol = 3
- 'About an hour later, everything should be dried up.'
- 'He removes the dryer hood. "And we''re all done."'
- 'You stand up from the chair and pay him 750 rubles.'
- act 'Leave': gt 'barbershop','start'
- end
- end
- end
- gs 'stat'
- }
- $zavivka = {
- set minut += 20
- set curly += 10
- set money -= 300
- 'You have your hair curled'
- gs 'stat'
- gt 'barbershop','start'
- }
- $cuthair = {
- cla
- *clr
- set money -= 500
- 'You approach the barber and ask, "Hi, I would like to get my hair cut."'
- '"Of course, at which length do you want to have your hair at?", he asks you.'
- if hairlength > 10:
- act 'Very short':
- cla
- *clr
- 'You sit down and say, "I want my hair to be very short."'
- '"Of course", he says with a friendly smile on her face, while leading you to a free seat.'
- act 'Sit down.':
- cla
- *clr
- set minut += 30
- set hairlength = 10
- 'About half an hour later he is done and what''s left from you former hairstyle is a very short buzzcut.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- end
- end
- if hairlength > 31:
- act 'Short, but not too short':
- cla
- *clr
- '"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.'
- '"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.'
- act 'Sit down.':
- if hairlength > 60:
- cla
- *clr
- '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
- act 'Yes':
- cla
- *clr
- set minut += 20
- set hairlength = 31
- set hbangs = 1
- set hapri = 1
- '20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- act 'No':
- cla
- *clr
- set minut += 20
- set hairlength = 31
- set hapri = 1
- '20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
- 'You stand up and pay the barber at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- else
- cla
- *clr
- set minut += 20
- set hairlength = 31
- set hapri = 1
- '20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- end
- end
- end
- if hairlength > 81:
- act 'About chin-line length':
- cla
- *clr
- '"Could you cut my hair back to between my chin and shoulder, please?", you ask him.'
- '"Sure, no problem", he tells you getting a chair for you ready.'
- act 'Sit down.':
- if hairlength > 90:
- cla
- *clr
- '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
- act 'Yes':
- cla
- *clr
- set minut += 20
- set hairlength = 81
- set hbangs = 1
- set hapri = 1
- '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.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- act 'No':
- cla
- *clr
- set minut += 30
- set hairlength = 81
- set hapri = 1
- '20 minutes later, he is done cutting your hair.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- else
- cla
- *clr
- set minut += 20
- set hairlength = 31
- set hapri = 1
- '20 minutes later, he is done cutting your hair.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- end
- end
- end
- if hairlength > 161:
- act 'Shoulder Length':
- cla
- *clr
- '"I would like to have my hair cut back to about the height of my shoulder.", you tell him.'
- '"Sure, no problem", he tells you, gesturing you, to sit down into a free chair.'
- act 'Sit down.':
- if hairlength > 170:
- cla
- *clr
- '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
- act 'Yes':
- cla
- *clr
- set minut += 20
- set hairlength = 161
- set hbangs = 1
- set hapri = 1
- '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.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- act 'No':
- cla
- *clr
- set minut += 30
- set hairlength = 161
- set hapri = 1
- '30 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- else
- cla
- *clr
- set minut += 20
- set hairlength = 161
- set hapri = 1
- '20 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- end
- end
- end
- if hairlength > 261:
- act 'About Brastrap length':
- cla
- *clr
- '"Could you cut my hair back to about where my bra-strap sits?", you ask him.'
- '"That''s absolutely no problem.", he says, when geasturing you sit down on one of the free seat'
- act 'Sit down.':
- if hairlength > 280:
- cla
- *clr
- '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
- act 'Yes':
- cla
- *clr
- set minut += 20
- set hairlength = 261
- set hbangs = 1
- set hapri = 1
- '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.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- act 'No':
- cla
- *clr
- set minut += 20
- set hairlength = 261
- set hapri = 1
- '20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- else
- cla
- *clr
- set minut += 20
- set hairlength = 261
- set hapri = 1
- '20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- end
- end
- end
- if hairlength > 401:
- act 'Cut the tips':
- cla
- *clr
- '"I''d like to keep this length, but my tips might need some cutting. Could you do that?", you ask him. '
- '"Of course, please sit down.", he says.'
- act 'Sit down.':
- if hairlength > 401:
- cla
- *clr
- '"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
- act 'Yes':
- cla
- *clr
- set minut += 20
- set hairlength = 401
- set hbangs = 1
- set hapri = 1
- '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.'
- 'You stand up and pay the barber at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- act 'No':
- cla
- *clr
- set minut += 20
- set hairlength = 401
- set hapri = 1
- '20 minutes later, he is done cutting your hair.'
- 'You stand up and pay the barber at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- else
- cla
- *clr
- set minut += 20
- set hairlength = 401
- set hapri = 1
- '20 minutes later, he is done cutting your hair.'
- 'You stand up and pay him at the counter.'
- act 'Stand up': gt 'barbershop','start'
- end
- end
- end
- end
- }
- if $ARGS[0] = 'start':
- gs 'stat'
- '<center><B><font color=maroon>The Barber Shop</font></B></center>'
- '<center>The only barber shop in the area. While he can''t do special hairstyles, he''s cheap and works fast.</center>'
- clr
- gs'stat'
- fcolor=rgb(0,0,0)
- bcolor=rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- ''
- if money >= 500 and hairlength > 15: '<a href="exec: dynamic $cuthair ">Cut your hair - 750 rubles</a>'
- if money < 500 and hairlength <= 15: 'You don''t have enough money to get your hair properly cut. It costs 750 rubles but you only have <<money>>.'
- ''
- if money >= 300 and hairlength > 80: '<a href="exec: dynamic $zavivka ">Curl your hair - 500 rubles</a>'
- if money < 300: 'You cannot afford curling your hair, as it costs 500 rubles, which you do not have at the moment.'
- if money >= 300 and hairlength <= 80: 'Your hair is too short to be curled.'
- if hairlength <= 80: 'Your hair is not long enough to be curled.'
- ''
- if money >= 750: '<a href="exec: dynamic $pokraska ">Dye your hair - 1.000 rubles</a>'
- if money < 750: 'You cannot afford dyeing your hair, as you are missing the 1.000 rubles required for it.'
- ''
- if hour =< 8 or hour >= 20:
- cls
- 'The barber shop is closed at the moment, you should probably come back, when he''s in'
- act 'Leave': set minut += 2 & gt 'gorodok'
- exit
- end
- act 'Leave': set minut += 2 & gt 'gorodok'
- end
- if money >= 60:
- act 'Buy Scrunchies - 60 rubles':
- cls
- money -= 60
- hscrunch += 10
- 'You pay the cashier and bought the small box.'
- act 'Move away': gt 'barbershop','start'
- end
- end
- if money >= 80:
- act 'Buy Hairaccessories - 80 rubles':
- cls
- money -= 80
- hpingrip += 10
- 'You pay the cashier and bought the small box.'
- act 'Move away': gt 'barbershop','start'
- end
- end
- !!! Maruda Hair Mod
- --- barbershop ---------------------------------
|