# gaptek
cla
clr
*clr
minut += 5
gs 'stat'
gs 'time'
'Drugstore'
'
'
act 'Leave':gt 'gorodok'
if hour < 8 or hour > 20:
'Pharmacy is closed'
exit
end
!! for original start we can just use stockitem, for alt start there are other plot elements involved
if StoryLine = 0:
*p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '
', '<<$ARGS[0]>>')
*pl '' + _
FUNC ('$stock_item', 5, 'condoms', 100, 'prezik', $CURLOC) + _
FUNC ('$stock_item', 1, 'pregnancy test', 200, 'pregtest', $CURLOC) + _
FUNC ('$stock_item', 28, 'birth control pills', 500, 'tabletki', $CURLOC) + _
FUNC ('$single_stock_item', 1, 'enema kit', 500, 'klisma', $CURLOC) + _
FUNC ('$stock_item', 10, 'antibiotics', 500, 'lekarstvo', $CURLOC) + _
FUNC ('$stock_item', 20, 'vitamin drinks', 500, 'vitamin', $CURLOC) + _
FUNC ('$stock_item', 10, 'ointments for corns', 600, 'mosolmaz', $CURLOC) + _
FUNC ('$stock_item', 25, 'lip balm', 100, 'lipbalm', $CURLOC) + _
FUNC ('$stock_item', 1, 'weight loss pill', 2000, 'fatdel', $CURLOC) + _
'
'
else
'Condoms - 100 rubles'
'Pregnancy test - 200 rubles'
'Lubricant - 300 rubles'
'Birth control pills - 500 rubles'
if klisma = 0:'Enema - 500 rubles'
'Medicine - 500 rubles'
'Vitamins - 500 rubles'
'Ointment for corns - 600 rubles'
'Moisturizing Lip Balm - 1000 rubles'
'Fat burners - 1500 rubles'
if KandidNapr = 1:'Cure pills for yeast infection - 1,500 rubles'
'Behind the counter, as always, sits aunt Luda. "Hi <<$name>>. How are you?"'
end
if motherQW >= 2:
act 'Garden':
cla
cls
gs 'stat'
'Pharmacy'
'
'
if motherQW = 2:
!! gaogorod = is how many condoms you purchased from here after reaching a certain point in the mother quest
if gaogorod + rand(1, 20) < 40:
if gaptekfirst = 0:
gaptekfirst = 1
minut += 5
'You are considering showcases c drugs and are considering how to talk to my aunt. She notices your confusion and releasing the last buyer contacts you.'
'- <<$name>>, what are you doing here trash? It should be what?'
'- Yes, as if looking for a vegetable garden.'
'- Niece, you''re not wrong store? We''ve got a pharmacy, you know - it is to laugh.'
'- Know aunts. Mom asked you to buy everything for the garden.'
'- Mom, so ... Horticultural ...'
'She gravely examines you and brings the shop window with contraceptives.'
'- Here we have all "for the garden." Choose.'
else
minut += rand(5, 15)
if gaprezikday ! daystart or gatabletkiday ! daystart:
'You wait until the last buyer leaves from the pharmacy, and then speak to my aunt.'
'- Aunts, my mom would have it ... for a vegetable garden ...'
'- Yes, I have understood, you go here, trash - she grins.'
'- Thank you, aunty.'
'- But not for that, and tell Natasha that she has time to finish with gardens.'
else
'You have decided to wait until my aunt is free, but every minute shoppers at the pharmacy became more and more. You just wasted your time.'
end
end
else
cls
minut += rand(20, 30)
motherQW = 3
gs 'stat'
'Drugstore'
''
'You waited for the pharmacy will last buyer, and went up to my aunt.'
'- Aunts, I would have it ... my mom for a vegetable garden ...'
'- Well, of course my mother ...'
act 'Next':
cla
cls
'- I mean?'
'- And that you yourself do not understand. <<$nickname>>, I look like a fool?'
'- No ...'
if gorslut = 0:'- Then it is not necessary to make a fool of me. Natasha mare, of course, hardy, but she is not 16 years old, the new "garden" it is unlikely to be mastered.'
if gorslut > 0:'- Then it is not necessary to make a fool of me. The whole town knows that you <<$gnikname>>.'
'- Well ...'
'- Canned wildebeest. "Scumbag for balls" and that would ring true.'
'You stood there and did not know what to say. You were ashamed to own aunt, though rather for fraud than for your immoral behavior.'
'- Okay, figs with you. In the end, I am not your mother to read notation here. And with it you seem to have a full understanding, - smiled aunt. - With whom you are both such a whore? It seems the whole family we have always been decent.'
act 'Get away from the counter':gt 'gaptek', 'start'
end
exit
end
else
minut += rand(5, 15)
if gaprezikday ! daystart or gatabletkiday ! daystart or galubri = 0 or (galubri = 1 and galubriday ! daystart):
if rand(1, 10) = 10 and oluuosegunday ! daystart:
cls
'Drugstore'
''
if tetyafirst = 0:
'Aunt as always stood behind the counter and advised some grandmother. Periodically, she kept looking at you, and something in her eyes seemed strange to you. Letting go of the last buyer, aunt went to the front door, closed it with a key and hung a sign, "Accounting." It was obvious that she was nervous.'
'- <<$nickname>>, I wanted to talk to you about something ... - finally she said.'
'- What is it?'
'- You see, I have right now in the life of such a situation ... there is one problem, though there is certainly not a problem, though ... I do not know who to ask ... even in a strange way to say this to you ...'
'- Aunt - interrupted you. - May be enough to pull the cat is tail ... I?'
'- You have probably correctly understand ...'
'- Teeeeeeetyayayayayaya.'
'- Okay, I will say it is. I recently came a man and ...'
'- Is the wedding? Or are you pregnant? - Joyfully exclaimed you.'
'- No, not yet. Give finish. So, there was a man, named Oluuosegun.'
'- Oluuo ... who? Language is broken.'
'- Oluuosegun, I want him just to Olu. He is from somewhere in Africa.'
'- In the exotic pulled? - You laughed. Aunt missed your comment on deaf ears.'
'- Well, he is a good man, and all the hardware is just so very ... how to say ... insatiable.'
'- Iiiiii ... you want me to ... help you with it ... that is tra ... - in your voice felt surprise.'
'- Well, you can not itself, can anyone of your friends agree - frightened she interrupted. - And certainly not for nothing.'
'- Aunts, you do in your mind ??? !!! Not only that, you ask me, so still and friends are invited to find ??? !!! It seems like even in the article is, "inducement to prostitution" !!'
'- Well, <<$nickname>>, well, I am sorry - almost in tears she said. - I do not want to lose this guy. I really thought he even hire prostitutes, but there are a whole bunch with them can be. Help me, I beg you.'
elseif tetyafirst = 1:
'You waited in line and approached the counter. Aunt leaned over to the window.'
'- <<$nickname>>, remember our conversation? Nuuu ... about Ola? - She said in a whisper.'
'- Yes, aunts, remember.'
'- Well, that decided?'
elseif tetyafirst = 2:
'You waited in line and approached the counter. Aunt leaned over to the window.'
'- <<$nickname>>, then how would it again ... need your help with Ola.'
end
act 'Agree':
cla
oluuosegunday = daystart
if tetyafirst < 2:
tetyafirst = 2
'- Well, aunt, figs with you, help you, tea is not a stranger. But going to be!'
'- Of course, of course, <<$nickname>> - happily she said. - Come home to me, are the keys.'
else
'- Oh, Auntie, you have exactly the grave svedesh.'
end
act 'Go to my aunt home':
cla
cls
gs 'stat'
'Aunts apartment'
'
'
'You unlocked the door to the apartment aunt and went inside.'
if olufirst = 0:
olufirst = 1
galubri = 1
minut += rand(5, 10)
'Taking off shoes, you began to look around the room in search of Olu. Quick search returned no results and you already thinking to leave, when suddenly felt that someone or something is behind you. Turning around, you saw a huge black man, carefully studying you. "Good Aunt security system, but ... Alarms and angry dog rolled into one. And where he had just been hiding?" Flashed through your mind.'
'- Ty who? - Ebony asked in broken Russian.'
'- Yes, I like this ... <<$nickname>> ...'
'- <<$nickname>>? - The name was obviously nothing said. "Well, Aunt gives, could even prevent it."'
'- Yes, <<$nickname>>, niece aunt Luda, it is her apartment.'
'Negros face, it was clear that he was trying to understand the meaning of your words. Apparently, he really knew Russian bad. Finally reached him the meaning of what was said.'
'- Ah, my darling your aunt. Good, good. And that need ti?'
'- Yes, I would like to say ... come to help her ... with you ... help her with you, - you remember school English lessons.'
'- Help with me? - Surprised Negro.'
'Realizing that Interracial communication in a mixture of Russian and English is hardly something to give you a nod indicated Olu pants and looked at him. At this time, a long time to think about the meaning of these actions Negro did not have, and show you the famous golivudskie smile, he pulled out his h ... pulled out his h ... got his m ...'
act 'Wake':
cla
cls
minut += 30
guy += 1
anal += 1
anus += 10
cumanus = 1
sub += 5
agape = 3
agapetime = totminut
if mop ! 1:mop = 0
hapri = 0
gs 'stat'
'Aunts apartment'
'
'
'You woke up from a sharp pain. The ass was burning with fire, you were crying, screaming, trying to escape, but Olu gripped you and continued to fuck my monster. Your cries of his even more wound up.'
'In a few minutes you will have ceased to feel his ass, forces in attempts to break you no longer exists, and all that you could, so it izredko sob. Olu soon broke down and discharged you right in the ass.'
'Catching his breath, Ebony gently lifted you helped to get dressed and accompanied her to the door. Though strength is almost gone, anger was rife. Everything you wanted to at the time, so it is to strangle my aunt.'
act 'Back to aunt':
cls
gs 'stat'
'Drugstore'
''
minut += 15
'You ran back to the pharmacy and stopped at the door. You look like a jack-was-the-box. You looked in the wrong side of the counter.'
'My aunt was talking to another customer, some guy full years under 40 who choose what brand zhiroszhigatelnye pills to take. Seeing you and your opinion, aunt stopped abruptly in mid-sentence, his face reflected fear. A guy looked at her blankly, followed the direction of her gaze. Behind him in your side turned the other buyers in the queue.'
'- Pray, aunt, - through clenched teeth you. - KILL fuck !!'
'The first dangerous moment realized just the same guy. Surprisingly agile for his physique, he jumped from the place where literally a fraction of a second you were trying to reach through the window counter aunt, and judiciously deciding that running, especially from an angry woman, much more effective than any pills, beat a hasty retreat from the pharmacy . Further recognition has come to the other customers, and they quickly began to leave the future place of fighting.'
'- <<$nickname>>, let s talk!'
'- AT THE FUNERAL OF YOUR TALKING !!'
'Are you trying to get to his aunt, but every time she managed to dodge and then increase the distance between you.'
'- The bastards ... BITCH ... creature ... scum ... SHEEP ... HATE ... - every word was accompanied by a cast of what was on hand at the aunt.'
act 'An hour later':
cls
minut += 75
if son > 1:son = 1
'Drugstore'
'
'
'"Elephant in the room" - perhaps the most gentle expression, which you could describe the state of the pharmacy.'
'You and aunt sat on the floor in different corners of the room and breathed heavily. You did not manage to get to it, though a few shots yet reached the goal, and Aunt wincing rubbing sore spots.'
'Behind the glass front door you notice the crowd of onlookers, who all this time watching the show. Among them you will even notice the police, do not even try to go inside and to separate you. Seeing you view a crowd of onlookers with the police quickly resolved.'
'- <<$nickname>> ... lets talk ... please ... - breathlessly said my aunt.'
'- What the fuck ... talk - you threw a bottle of some kind of colorless liquid, but the strength you have left, so she broke at the feet of an aunt.'
'- Well, I am sorry ... <<$nickname>> ...'
'- What the hell, I am sorry, Aunt ?! Your ebyr nearly tore me apart! And you do not even warned me !!'
'- Would you ... agreed to help ... if ... know that?'
'- Yes ... No ... I do not know ...'
'- You see ...'
'You are thinking. In the words of Aunt made sense. Anger, of course, still remains, but the strength to fight and swear was not there. Aunt wearily rose and walked up to you and sat down.'
'- All that bad?'
'- Bad? Yes in the ass is a pain that does not pass!'
'- I understand - aunt winced, remembering the experience. - What did you, no lubrication or what?'
! WD: Uninitialised ~ 'ssdostup'
if age < 18 and ssdostup = 0:'- Where do you take it? In the adult store I have not allowed. Besides, I do ofigela on its size and disconnected, and woke up when it was too late.'
if age >= 18 or ssdostup = 1:'- Yes, I even did not have time to understand. When I saw razmerchik, so we can say disconnected. And when I came it was too late. In addition, far away to the city to go.'
'- I see ... I am sorry again. <<$nickname>>, every day I am in town, so that I could bring you a little bit.'
'- At least on this thank you, aunt.'
'- And Olu say that was more careful next time.'
'- What the hell next time ?! I look like a masochist ?!'
'- Well, <<$nickname>>, well, please - pleaded aunt. - I am alone with him could not do it. And not for just the same.'
'- I have heard that.'
'- Remember when I said that I was willing to hire him, even the girls? Well, I would better pay you will, than someone else. Oh, please.'
'- Cool, man. If my mother a whore, then you just prison crying! The first call will not run, but if other things will not, then to hell with you, help you.'
'- Thank you, thank you, thank you, beloved niece - aunt nearly suffocated you in his arms, she was very happy to your account.'
act 'Go home':gt 'korrPar'
end
end
end
else
if rand(1, 5) ! 5:
minut += 5
'Taking off shoes, you went straight to the big room, where he found Ola.'
'- Hi, <<$nickname>> - Ebony smiled his smile golivudskie unchanged.'
'- Well hello, my black friend - meaning of the phrase Olu clearly do not understand.'
if olufirst = 1:
olufirst = 2
'- My darling say, I make you too sick last time.'
'- Yes.'
'- Sorry for that ... I am sorry ... - he looked down guiltily.'
'- Well, I hope more of this will not happen.'
end
act 'Next':
cls
minut += 30
guy += 1
anal += 1
anus += 10
sub += 1
cumanus = 1
if lubri > 0:
agape = 1
agapetime = totminut
horny += 20
else
agape = 2
agapetime = totminut
horny += 10
end
gs 'stat'
picrand = rand(1, 3)
'Aunts apartment'
'
'
'Olu undressed himself and helped you. You sucked his little monster, so he took the firing position. When it was done, you lay down on the sofa.'
if lubri > 0:'Ebony took you grease squeezed himself into the hands and fingers smeared your anus, and then his penis.'
if lubri = 0:'Ebony was gently massaging your anus, exponent introduced first one, then two, three fingers and began to pull out the ass.'
'Finally, he pulled his fingers, and you feel like its a great device ran into your hole.'
'You squealed a little pain when he was a monster, your ass apart, came in you.'
'Olu froze for a moment, giving your ass to adjust to the protruding member in it, and then started to drive them all the more insistent.'
'You were a little hurt, but at the same time nice when a member moved inside your ass.'
'The Negro groaned and you feel like you jet of sperm hit the inside of your body.'
if oluD = 0 and rand(1, 10) = 10:
oluD = 1
'- By the way, <<$nickname>>, five adults and soon has to leave the city? - Olu asked after a while.'
'- Well, yes, most likely - sluggishly responded to you.'
'- In the city now learn my niece Demarcus.'
'- Well, not a niece and nephew, most likely. But what are you getting at?'
'- I see five lubit real man - said with a smile and nodded at Olu its not yet fallen member.'
'- Yeah, of course. And where I can find your nephew?'
'- Where is usually to meet a girl in the city? Park, coffee shop.'
'- Well, yes, and can meet with your nephew.'
end
'Olu helped you get dressed and accompanied her to the door.'
act 'Back to aunt':
cls
gs 'stat'
'Drugstore'
''
minut += rand(5, 10)
money += rand(500, 700)
'You ran to the pharmacy and waited until Aunt free.'
'- Thank you very much, <<$nickname>> - happily she said, and held out an envelope. - Here are a few, of course, but believe me, in all sincerity. I really appreciate your help.'
act 'Leave':gt 'gorodok'
end
end
else
cls
'Aunts apartment'
'
'
'You unlocked the door to the apartment aunt and went inside.'
'Taking off shoes, you went straight to the big room where there was usually Olu. Going to the door, you hear a woman moaning.'
act 'Look':
cls
picrand = rand(1, 3)
'Aunts apartment'
'
'
if oluM = 0:
oluM = 1
minut += 25
horny += 20
'You quietly opened the door and looked inside. What he saw surprised you. Your mother was writhing on the penis and Olu is clearly getting a lot of fun. "And he just placed it, especially not in the ass, " flashed through your mind. You are seeing this little porn show and went out into the corridor. After 10 minutes, your mother came and stared at you.'
'-Docha?'
'- Mum ...'
'- Aunt?'
'- Aunt ...'
'You both giggled nervously.'
'- <<$nickname>>, give me 5 minutes, I will give myself up, and then go talk to my sister.'
act 'Back to aunt':
cls
gs 'stat'
'Drugstore'
''
minut += 15
'You went to the pharmacy with his mother and aunt waited until cleared, and while buyers disperse.'
'- Well hello, madam Khrenova - start your mother.'
'- Natasha, are you talking about? - Tried to fool matted aunt.'
'- People, do not play. She guess where we are faced with <<$nickname>> or suggest?'
'- Itself ...'
'- Well, you are so quick-witted. Nail to you, sister, but in a good mood.'
'- Your daughter has already tried to ...'
'- Yes? - Mother stared at you.'
'- Well, yes, it was ... after the first time to Olu ... - sheepishly told you. - Paul pharmacy smashed.'
'- Only half? - Your mother laughed. - In general, all right, if she asks not against your Olu, you and I, in principle, too. But try its still something to draw - buried in a nearby cemetery. You know me, do not look that big sister. Everything all right?'
'- I see ...'
'- I can not hear!'
'- Yes, I have understood, I understood!'
'- That is wonderful, and now <<$nickname>> home. With you we still have to talk.'
act 'Go home with mother':
cls
minut += 60
motherQW = 4
gs 'stat'
'Маmа'
'
'
'You came home, and the mother immediately dragged you into the kitchen.'
'- Come on, tell me how you were turned.'
'Have you told her how Aunt first realized that you buy condoms for yourself how begged to help her with Olu, as you agreed, as a defeated pharmacy.'
'- It is clear, all in the style of Luda. If you can not push, then immediately to the floor and burst into tears, well, money or offers.'
'- Do you own something like?'
'- Yes, as a. They found that Olu more than a year. It almost from the beginning asked me to help. I agreed to make a duplicate key, and occasionally go to him. Although lately not so often. Looks like he did wear out so that it completely forgot about me and invited you.'
'- She is a little head like forgetfulness is not worth it.'
'- Or an entire pharmacy.'
'You both laughed.'
'- As I said, I do not mind what you do with this Olu fuck. It is your business, but first, be careful, nevertheless it really is not very small.'
'- Yeah. I do not understand how he climbed into you. I have it only in the ass.'
'- In the ass? - Surprised mother. - Hmm ... will have to try as a thread. Ugh, so what am I doing?'
'- On the ass.'
'- Oh you. But, remember. Second, your aunt - hitryuschie bitch. I doubt that she will now that the thread still offer me afraid, but still. And that will eventually suck to some bloke for discounts on items for her pharmacy.'
'- Has she offered you such?'
'- Yes, it was. I refused. And thirdly <<$nickname>>, I understand that you are young girl, and the money you need, but do not change the sex for money. It is better to be a slut or whore than a prostitute.'
'- Hmmm ... Is there a difference?'
'- Yes. While you may not realize this, but there is.'
'- Well, remember that. And with the money aunt what to do?'
'- With money aunt, you say ... In the good it would be necessary to give up, of course ... On the other hand she offered ... And then the bitch will get it all at once ... Well, can not be punished differently, so though the purse hit her ...'
'You have talked about 15 minutes about the treachery aunt Code honest sluts and whores and left.'
act 'Leave':gt 'korrPar'
end
end
else
minut += 25
horny += 20
'You quietly opened the door and looked inside. What I saw did not surprise you. Your mother was writhing on the penis and Olu is clearly getting a lot of fun. "And he just placed it, especially not in the ass" has once again caught you on your thoughts. Mother noticed you and smiled. You are seeing this little porn show and went out into the corridor.'
'"I think she can handle herself"'
act 'Leave':gt 'gorodok'
end
end
end
end
end
end
act 'Do not agree':
cla
oluuosegunday = daystart
if tetyafirst = 0:
tetyafirst = 1
'- You just moved, aunt! Niece of the litter of a black man trying to do!'
'- I am sorry - she said sadly. - You are right, it was not necessary to contact you.'
'- "Quiet, Masha, I Dubrovsky" - remember you are a school Hochma. - I did not say no, but did not say yes. Overall, I think.'
elseif tetyafirst = 1:
'- While nothing is decided. I think.'
'- Well then - she said sadly.'
else
'- Nah, aunts, now I can not.'
'- Well then. Today will have the most rap - saying this she winced.'
end
act 'Leave':gt 'gorodok'
end
exit
else
'You waited in line and approached the counter' + iif(galubri = 1,'.', ', nodding to the desired display case.')
end
else
'You waited in line and approached the counter' + iif(galubri = 1,'.', ', nodding to the desired display case.') + '"All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
end
end
act 'Step away':gt $curloc
end
end
if StoryLine = 1:
if money >= 100 and motherQW >= 2 and gaptekfirst = 1 and gaprezikday ! daystart:
act 'Buy condoms (100 rubles) < 0, ''[left:'' + prezik + '']'', '''')>>':
cla
*clr
portion = input("How many packages you want to buy? (One package contains 5 condoms)")
if portion <= 0:portion = 1
if portion > 2 and motherQW < 3:portion = 2 & '"Then 2 packages until I have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
if portion > 5 and motherQW >= 3:portion = 5 & '"<<$name>>, rublesber goods factory does not have time to deliver products."'
if portion * 100 <= money:
prezik += portion * 5
minut += 5 + (portion / 5)
money -= portion * 100
gaprezikday = daystart
'
'
'You bought condoms and paid the money to the cashier.'
if motherQW < 3:gaogorod += portion
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
if money >= 200 and motherQW >= 2 and gaptekfirst = 1:
act 'Buy pregnancy tests (200 rubles) < 0, ''[left:'' + pregtest + '']'', '''')>>':
cla
*clr
portion = input("How many packages you want to buy? (One package contains two testers)")
if portion <= 0:portion = 1
if portion * 200 <= money:
pregtest += portion * 2
minut += 5 + (portion / 5)
money -= portion * 200
''
'You bought pregnancy tests and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
!! you can only buy lube here if your aunt arranged for it and you haven''t bought any today yet
if money >= 300 and galubri = 1 and motherQW >= 2 and gaptekfirst = 1 and galubriday ! daystart:
act 'Buy lubricant (300 rubles) < 0, ''[left:'' + lubri + '']'', '''')>>':
cla
*clr
portion = input ("How many packages you want to buy? (One tube lasts for 5 uses)")
if portion <= 0:portion = 1
if portion > 10:portion = 10 & '"<<$nickname>>, I sell only 10 pieces, no longer brought, I''m_sorry."'
if portion * 300 <= money:
lubri += portion * 5
minut += 5 + (portion / 5)
money -= portion * 300
galubriday = daystart
''
'You bought some lubricant and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
if money >= 500:
if gatabletkiday ! daystart:
act 'Buy birth control pills (500 rubles) < 0, ''[left:'' + tabletki + '']'', '''')>>':
cla
*clr
portion = input ("How many packages you want to buy?")
if portion < 0 or (portion > 1 and motherQW < 3):portion = 1 & '"First package I still have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
if portion * 500 <= money:
tabletki += portion * 28
minut += 5 + (portion / 5)
money -= portion * 500
gatabletkiday = daystart
''
'You bought some lubricant and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
if klisma = 0 and motherQW >= 2 and gaptekfirst = 1:
act 'Buy enema (500 rubles)':
cla
*clr
klisma = 1
minut += 5
money -= 500
''
'You bought an enema and paid the money to the cashier.'
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
act 'Buy medicine (500 rubles) < 0, ''[left:'' + lekarstvo + '']'', '''')>>':
cla
*clr
portion = input("How many packages you want to buy? (One package contains 10 pills)")
if portion <= 0:portion = 1
if portion * 500 <= money:
money -= portion * 500
minut += 5 + (portion / 5)
lekarstvo += portion * 10
''
'You bought drugs and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
act 'Buy vitamins (500 rubles) < 0, ''[left:'' + vitamin + '']'', '''')>>':
cla
*clr
portion = input("How many packages you want to buy? (One package contains 20 pills)")
if portion <= 0:portion = 1
if portion * 500 <= money:
vitamin += portion * 20
minut += 5 + (portion / 5)
money -= portion * 500
''
'You bought vitamins and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
if money >= 600:
act 'Buy ointment for corns (600 rubles) < 0, ''[left:'' + mosolmaz + '']'', '''')>>':
cla
*clr
portion = input("How many packages you want to buy? (One package contains 10 treatments)")
if portion <= 0:portion = 1
if money >= portion * 600:
money -= portion * 600
minut += 5 + (portion / 5)
mosolmaz += portion * 10
''
'You bought some oinment packages and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
if money >= 1000:
act 'Buy moisturizing lip balm (1,000 rubles) < 0, ''[left:'' + lipbalm + '']'', '''')>>':
cla
*clr
portion = input("How many lip balms you want to buy? (One lip balm is good enough for 25 uses)")
if portion <= 0:portion = 1
if portion * 1000 <= money:
lipbalm += portion * 25
minut += 5 + (portion / 5)
money -= portion * 1000
''
'You bought some lip balm and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
if money >= 1500:
act 'Buy fat burners (1,500 rubles) < 0, ''[left:'' + fatdel + '']'', '''')>>':
cla
*clr
portion = input("How many fat burners you want to buy?")
if portion <= 0:portion = 1
if portion * 1500 <= money:
fatdel += portion
minut += 5 + (portion / 5)
money -= portion * 1500
''
'You bought some fat burning capsules and paid the money to the cashier.'
else
'You do not have enough money.'
end
act 'Move away from the counter':gt 'gaptek', 'start'
end
if KandidNapr = 1:
act 'Buy cure pills for yeast infection (1,500 rubles)':
cla
*clr
minut += 10
money -= 1500
Kandidoz = 0
! WD: Remove Dupe Images ~ '
'
''
'You bought tablets and paid the money to the cashier.'
'Immediately about cash you swallow the tablet.'
act 'Move away from the counter':gt 'gaptek', 'start'
end
end
end
end
--- gaptek ---------------------------------